Revision 337 (by dpavlin, 2004/06/10 19:22:40) new trunk for webpac v2
# 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;