X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=filter%2Fcroascii.pm;h=49e614d49ea1fda9d9d72dd4bab4d1af62047b4b;hb=59ace2b4b24a63980678c794091a17f6acfb64cb;hp=48c640161875b24987102247db6cf81f7fb45ea5;hpb=750bfdc13a4252c3864a501218d647da67661bc0;p=webpac

diff --git a/filter/croascii.pm b/filter/croascii.pm
index 48c6401..49e614d 100644
--- a/filter/croascii.pm
+++ b/filter/croascii.pm
@@ -1,8 +1,22 @@
+# CROASCII (YUS|HRN) B1.002:1982
+# conversion to ISO-8859-2
 
 sub croascii {
 	my $out = "";
 	foreach (@_) {
-		tr/~^}]{[|\`@/Èæƹ©ðо®/;
+#		tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;	# B1.002:1982
+		tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/;	# Crolist croascii
+		# Crolist alternative encoding
+		s/ÏC/È/g;
+		s/Ïc/è/g;
+		s/ÂC/Æ/g;
+		s/Âc/æ/g;
+		#s/??/Ð/g;
+		s/ò/ð/g;
+		s/ÏS/©/g;
+		s/Ïs/¹/g;
+		s/ÏZ/®/g;
+		s/Ïz/¾/g;
 		$out .= $_;
 	}
 	return $out;