--- trunk/filter/croascii.pm 2003/10/08 22:05:00 131 +++ trunk/filter/croascii.pm 2003/10/30 00:49:43 141 @@ -6,6 +6,16 @@ foreach (@_) { # tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/; # B1.002:1982 tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/; # Crolist croascii + # Crolist alternative encoding + s/ÏC/È/g; + s/Ïc/è/g; + s/ÂC/Æ/g; + s/Âc/æ/g; + + s/ÏS/©/g; + s/Ïs/¹/g; + #s/??/Ð/g; + s/ò/ð/g; $out .= $_; } return $out;