summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-01-01 16:41:13 +0100
committerDaniel Friesel <derf@derf.homelinux.org>2009-01-01 16:41:13 +0100
commit30bc0df8db792db6897d9b20b0a46ae216ea5af4 (patch)
tree99aff7d867c69c44f191b3587ed2f25d0a698504 /bin
parent366648d96c2bb779844fe1d48acf3458cda6276d (diff)
tibtoa: Added some experimental header parsing
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tibtoa47
1 files changed, 46 insertions, 1 deletions
diff --git a/bin/tibtoa b/bin/tibtoa
index df4e5bc..42592b5 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -5,6 +5,7 @@ use strict;
use feature 'switch';
use warnings;
use utf8;
+use 5.010;
use Getopt::Std;
binmode(STDOUT, ':utf8');
@@ -616,7 +617,42 @@ my $special = {
};
local $/;
-getopts('i', \%opts);
+sub print_header {
+ my $text = join(' ', @_);
+ print "// $text\n";
+}
+
+sub header_type($) {
+ my $header = shift;
+ given (ord(substr($header, 0x3b, 1))) {
+ when(0x02) { return('matrix') }
+ when(0x05) { return('program') }
+ default { return(sprintf('0x%02x', $_)) }
+ }
+}
+
+sub header_name($) {
+ my $header = shift;
+ my $name;
+ given (header_type($header)) {
+ when('matrix') { $name = substr($header, 61, 1) }
+ when('program') {
+ $name = substr($header, 60, 10);
+ $name =~ s/\x00/ /g;
+ }
+ }
+ return($name);
+}
+
+sub header_compat($) {
+ return(substr(shift, 2, 4));
+}
+
+sub header_datestr($) {
+ return(substr(shift, 29, 19));
+}
+
+getopts('ih', \%opts);
open(PRGM, '<', shift) or die;
binmode(PRGM);
@@ -629,6 +665,15 @@ $footer = substr($program, -$footerlength, $footerlength, '');
$length = length($program);
$offset = 0;
+# Parse the header
+print_header('Compatibility:', header_compat($header));
+print_header('Extracted at :', header_datestr($header));
+print_header('Type :', header_type($header));
+print_header('Name :', header_name($header));
+
+
+
+# And now, the actual file content
while($offset < $length) {
$char = ord(substr($program, $offset++, 1));
if (exists($all{$char})) {