pdf - Universität zu Köln

#the function returns the encoded character and a flag that shows if a further
#character should be skipped
sub getcode
{
my ($self,$char,$nextchar)=@_;
$nextchar||= ":";
return ("1",0) if index ("bp",$char) >= 0;
return ("8",0) if index ("dt",$char) >= 0 and index ("csz",$nextchar) >= 0;
return ("2",0) if index ("dt",$char) >= 0 ;
return ("3",0) if index ("fvw",$char) >= 0;
return ("3",1) if index ("p",$char) >= 0 and $nextchar eq "h";
return ("4",0) if index ("gqk",$char) >= 0;
return ("4",0) if ($char eq "c") and index ("aouhkq",$nextchar) >= 0;
return ("48",1) if ($char eq "c") and $nextchar eq "x";
return ("48",0) if $char eq "x";
return ("5",0) if $char eq "l";
return ("6",0) if $char eq "m" or $char eq "n";
return ("7",0) if $char eq "r";
#the handling of sc was ambiguous in the paper and deducted from the example
#encodings given in the paper. So the c is consumed after an s.
return ("8",1) if $char eq "s" and $nextchar eq "c";
return ("8",0) if ("c" eq $char) and index ("aoukxq",$nextchar) == -1;
return ("8",0) if index ("sz\337",$char)>=0;
#vowels return 0 to function as separators
return ("0",0) if index ($vowels,$char)>=0;
}
1;
#default: return empty string and advance only one char
#for example ignore h
return ("",0);
11.2 Implementation des Daitch-Mokotoff-Algorithmus
# Implementation of the Daitch-Mokotoff-Algorithm as described by
64