Parent Directory | Revision Log | Patch
revision 1.6 by dpavlin, Mon Jun 24 15:36:40 2002 UTC | revision 1.7 by dpavlin, Mon Jun 24 15:53:56 2002 UTC | |
---|---|---|
# | Line 54 sub mps_expand { | Line 54 sub mps_expand { |
54 | $w =~ s/[]/ae/g; | $w =~ s/[]/ae/g; |
55 | $w =~ s/[]/ue/g; | $w =~ s/[]/ue/g; |
56 | $out .= "W $w $nr\n"; | $out .= "W $w $nr\n"; |
57 | # Irish Last names | |
58 | } elsif (($nr == 1 || $nr == 2 || $nr == 3 || $nr == 6 || $nr == 7 || $nr == 8) && $w =~ m/^Ma?c([A-Z].+)/) { | |
59 | $out .= "W Mc$1 $nr\n"; | |
60 | $out .= "W Mac$1 $nr\n"; | |
61 | } else { | } else { |
62 | $out .= "W $w $nr\n"; | $out .= "W $w $nr\n"; |
63 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |