Changeset ac7d970 for app/src/tok

Timestamp:

04/08/08 13:53:51 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

0214596

Parents:

317d53b

git-author:

pawelk <pawelk@…> (04/08/08 13:53:51)

git-committer:

pawelk <pawelk@…> (04/08/08 13:53:51)

Message:

Uaktualnilismy kora.

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@23 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:

• app/src/tok/tok (modified) (4 diffs)

app/src/tok/tok

@@ -11 +11 @@
 use File::HomeDir;
 
+my $max_form_length = 50;
+
 my $interactive=0;
 my $help;
@@ -21 +23 @@
 my $file;
 foreach $file ($systemconfigfile, $userconfigfile){
-        if(open(CONFIG, $configfile1)){
+        if(open(CONFIG, $file)){
                 while (<CONFIG>) {
                         chomp;
@@ -75 +77 @@
 #       | [^[:print:]]   (?{seg("B",$&)})
 
+sub min {
+  my ($val1, $val2) = @_;
+  if($val1 < $val2) {
+        return $val1;
+  }
+  else {
+        return $val2;
+  }
+}
+
 
 sub seg
 {
     my ($tag,$match) = @_;
-    my $len=length $match;
-    printf "%04d %02d %s ", $offset, $len, $tag;
+    my $length = length $match;
+    my $idx = 0;
+    while($idx < $length) {
+        my $l = min $max_form_length, $length - $idx;
+        my $m = substr $match, $idx, $l;
+    
+        printf "%04d %02d %s ", $offset + $idx, $l, $tag;
     if($tag eq 'S')
     {
-        for(my $i=0; $i<$len; ++$i)
+        for(my $i=0; $i<$l; ++$i)
         {
-            my $c = substr $match, $i, 1;
+            my $c = substr $m, $i, 1;
             print '_' if $c eq ' ';
             print '\n' if $c eq "\n";
@@ -95 +112 @@
     elsif($tag eq 'B')
     {
-        printf "\\x%02X", ord($match);
+        printf "\\x%02X", ord($m);
     }
     else
     {
-        print $match;
+        print $m;
     }
     print "\n";
-    $offset += $len;
-}
+    $idx += $l;
+    } # while($idx < $length)
+    $offset += $length;
+} #sub seg
+