Improve bottag.pl to generate only MMF on blank lines

Ignore-this: 85c6430aa4bf90b279541488e59102dc

darcs-hash:20090803041240-4d648-65ac67215c4adbc0ccab6f54c96cc7a4d751b3b6.gz

diff --git a/bottag.pl b/bottag.pl
index 8132c4d85d7f493536f8ea3a82cdbe50020f01ab..2c41e1c9563a6136daf920e276f125ce8fca7c2f 100644 (file)
--- a/bottag.pl
+++ b/bottag.pl
@@ -1,3 +1,5 @@
+use strict;
+
 use Instance::Definitions qw( %known_types
                     @debug_code_chars
                     $instance_huffman_table1
@@ -12,19 +14,23 @@ my $hc = Instance::HuffmanCoder->new($mc, $instance_huffman_table1);
 while(my $text = <>) {
   chomp $text;
 
-  my $enc = $hc->encode($text);
-  my $tlv = $mc->tlv_wrap( $known_types{'InstanceLabelHuffman1'}, $enc);
-
   my @tlvs = ( );
 
-  push @tlvs, $tlv;
+  if ($text !~ /^\s*$/) {
+    my $enc = $hc->encode($text);
+    my $tlv = $mc->tlv_wrap( $known_types{'InstanceLabelHuffman1'}, $enc);
+
+    push @tlvs, $tlv;
+  }
 
-  $enc = $mc->tencode(3);
-  $tlv = $mc->tlv_wrap( $known_types{'MiscMessageFlags'}, $enc);
+  {
+    my $enc = $mc->tencode(3);
+    my $tlv = $mc->tlv_wrap( $known_types{'MiscMessageFlags'}, $enc);
 
-  push @tlvs, $tlv;
+    push @tlvs, $tlv;
+  }
 
-  my $mesg = $mc->tlvs_to_message(\@tlvs) . $mesg_suffix;
+  my $mesg = $mc->tlvs_to_message(\@tlvs) ;
 
   print $text, ":", $mesg, "\n";
 }