From 579138af03a3e060aad293b046bafd9b0ca623c1 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Fri, 2 Jan 2009 18:48:54 +0100
Subject: tibtoa: Added string support

---
 bin/tibtoa | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'bin')

diff --git a/bin/tibtoa b/bin/tibtoa
index d4c4262..f4176dc 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -640,6 +640,7 @@ sub header_type($) {
 		when(0x00) { return('var') }
 		when(0x01) { return('list') }
 		when(0x02) { return('matrix') }
+		when(0x04) { return('string') }
 		when(0x05) { return('program') }
 		default { return(sprintf('0x%02x', $_)) }
 	}
@@ -651,6 +652,7 @@ sub header_name($) {
 	given (header_type($header)) {
 		when('var') { $name = substr($header, 0x3c, 1) }
 		when('matrix') { $name = substr($header, 0x3d, 1) }
+		when('string') { $name = (ord(substr($header, 0x3d, 1)) + 1) % 10 }
 		when('program') {
 			$name = substr($header, 0x3c, 10);
 			$name =~ s/\x00/ /g;
@@ -799,6 +801,11 @@ if ($header{type} eq 'program') {
 			print ' | ';
 		}
 	}
+} elsif ($header{type} eq 'string') {
+	while($offset < $length) {
+		print substr($program, $offset++, 1);
+	}
+	print "\n";
 } else {
 	print STDERR "file type not supported\n";
 }
-- 
cgit v1.2.3