/[webpac]/trunk/filter/croascii.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/filter/croascii.pm

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

revision 140 by dpavlin, Wed Oct 8 22:05:00 2003 UTC revision 141 by dpavlin, Thu Oct 30 00:49:43 2003 UTC
# Line 6  sub croascii { Line 6  sub croascii {
6          foreach (@_) {          foreach (@_) {
7  #               tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982  #               tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982
8                  tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii                  tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii
9                    # Crolist alternative encoding
10                    s/ÏC/È/g;
11                    s/Ïc/è/g;
12                    s/ÂC/Æ/g;
13                    s/Âc/æ/g;
14    
15                    s/ÏS/©/g;
16                    s/Ïs/¹/g;
17                    #s/??/Ð/g;
18                    s/ò/ð/g;
19                  $out .= $_;                  $out .= $_;
20          }          }
21          return $out;          return $out;

Legend:
Removed from v.140  
changed lines
  Added in v.141

  ViewVC Help
Powered by ViewVC 1.1.26