trunk2/filter/croascii.pm

# CROASCII (YUS|HRN) B1.002:1982
# conversion to ISO-8859-2

sub croascii {
        my $out = "";
        foreach (@_) {
#               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;
}

1;
1	dpavlin	131	# CROASCII (YUS\|HRN) B1.002:1982
2			# conversion to ISO-8859-2
3	dpavlin	130
4			sub croascii {
5			my $out = "";
6			foreach (@_) {
7	dpavlin	131	# tr/^~]}\\|[{@`/ÈèÆæÐð©¹®¾/; # B1.002:1982
8	dpavlin	322	tr/^~]}\\\|[{@`/ÈèÆæÐð©¹®¾/; # Crolist croascii
9	dpavlin	141	# Crolist alternative encoding
10			s/ÏC/È/g;
11			s/Ïc/è/g;
12			s/ÂC/Æ/g;
13			s/Âc/æ/g;
14	dpavlin	143	#s/??/Ð/g;
15			s/ò/ð/g;
16	dpavlin	141	s/ÏS/©/g;
17			s/Ïs/¹/g;
18	dpavlin	143	s/ÏZ/®/g;
19			s/Ïz/¾/g;
20	dpavlin	130	$out .= $_;
21			}
22			return $out;
23			}
24
25			1;