From 20ac80960b78ffe7ba491f8b3b9fe48b5c72c178 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 2 Jan 2009 18:53:00 +0100 Subject: tibtoa: Show length for programs and strings --- bin/tibtoa | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/tibtoa b/bin/tibtoa index f4176dc..8967266 100755 --- a/bin/tibtoa +++ b/bin/tibtoa @@ -677,7 +677,7 @@ sub header_size($) { $size->{cols} = ord(substr($header, 0x48, 1)); $size->{rows} = ord(substr($header, 0x49, 1)); } - when('program') { + when($_ eq 'program' or $_ eq 'string') { $size->{source} = ord(substr($header, 0x48, 1)) + 255 * ord(substr($header, 0x49, 1)); } } @@ -730,6 +730,10 @@ if ($opts{h}) { print_header('Matrix dimensions:', join('x', @{$header{size}}{'rows','cols'})); } elsif ($header{type} eq 'list') { print_header('List length :', $header{size}->{items}); + } elsif ($header{type} eq 'string') { + print_header('String length:', $header{size}->{source}); + } elsif ($header{type} eq 'program') { + print_header('Program size :', $header{size}->{source}); } } -- cgit v1.2.3