/[mhonarc]/mhonarc/MHonArc/lib/iso2022jp.pl
ViewVC logotype

Diff of /mhonarc/MHonArc/lib/iso2022jp.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by ehood, Tue Jul 30 18:20:46 2002 UTC revision 1.9 by ehood, Wed Dec 4 20:00:39 2002 UTC
# Line 62  sub jp2022_to_html { Line 62  sub jp2022_to_html {
62      local($_);      local($_);
63    
64      $ret = "";      $ret = "";
65        my $cnt = scalar(@lines);
66        my $i = 0;
67      foreach (@lines) {      foreach (@lines) {
68          # a trick to process preceding ASCII text          # a trick to process preceding ASCII text
69          $_ = "\033(B" . $_ unless /^\033/;          $_ = "\033(B" . $_ unless /^\033/;
# Line 114  sub jp2022_to_html { Line 116  sub jp2022_to_html {
116          # remove a `trick'          # remove a `trick'
117          $ret =~ s/^\033\(B//;          $ret =~ s/^\033\(B//;
118    
119          $ret .= "\n";          # add back eol
120            $ret .= "\n"  unless (++$i >= $cnt);
121      }      }
122    
123      ($ret);      ($ret);

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26