#!/usr/bin/perl -w
#
# zalozeno na Vaskove konvertoru v Tcl, obsahuje nem. pismena, mezeru a sumove
# znacky

# pro czr labs: dava fonemy kazdy na jeden radek
# na radku
# Igor: Zmena P\\ apod. na P_

%sampa = ("e","e","o","o","a","a","y","i","t","t","s","s","n","n","l","l",
	  "r","r","ý","i:","k","k","v","v","p","p","m","m","d","d","j","j",
	  "u","u","ò","J","á","a:","z","z","c","t_s","b","b","h","h_",
	  "ø","P_","Ø","P_","é","e:","¹","S","f","f","è","t_S","H","x",
	  "»","c","¾","Z","ú","u:","O","o_u","ï","J_","g","g","N","N",
	  "A","a_u","ó","o:","E","e_u","Z","d_z","M","F","®","d_Z","ä","E:",
	  "ö","2:","ü","y:",
	  # jan is adding
	  "\*","\*","\~","\~","\%","\%"," ","pau"); 

while ($line = <>) {
    chomp $line;
    @s = split //,$line;
    foreach $c (@s) {
	$sam = $sampa{$c} or die "$c not in the table!";
	print "$sam\n";
    }
#    print "\n";
}