/[webpac]/branches/tehnika/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 /branches/tehnika/filter/croascii.pm

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

trunk/filter/croascii.pm revision 141 by dpavlin, Thu Oct 30 00:49:43 2003 UTC branches/tehnika/filter/croascii.pm revision 266 by dpavlin, Fri Mar 12 15:44:03 2004 UTC
# Line 4  Line 4 
4  sub croascii {  sub croascii {
5          my $out = "";          my $out = "";
6          foreach (@_) {          foreach (@_) {
7  #               tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982  #               tr/^\~]}\|[{@\`/ÈèÆæÐ𩹮¾/;    # B1.002:1982
8                  tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii                  tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii
9                  # Crolist alternative encoding                  # Crolist alternative encoding
10                  s/ÏC/È/g;                  s/ÏC/È/g;
11                  s/Ïc/è/g;                  s/Ïc/è/g;
12                  s/ÂC/Æ/g;                  s/ÂC/Æ/g;
13                  s/Âc/æ/g;                  s/Âc/æ/g;
   
                 s/ÏS/©/g;  
                 s/Ïs/¹/g;  
14                  #s/??/Ð/g;                  #s/??/Ð/g;
15                  s/ò/ð/g;                  s/ò/ð/g;
16                    s/ÏS/©/g;
17                    s/Ïs/¹/g;
18                    s/ÏZ/®/g;
19                    s/Ïz/¾/g;
20                  $out .= $_;                  $out .= $_;
21          }          }
22          return $out;          return $out;
Legend:
Removed from v.141  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.26