Parent Directory | Revision Log | 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); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |