1
0
forked from GitHub/gf-core

included capitals in some phonological string pattern matching in Fin and Ita

This commit is contained in:
aarne
2013-01-28 14:12:24 +00:00
parent 6af9575a68
commit a36e1de7a6
2 changed files with 4 additions and 3 deletions

View File

@@ -824,7 +824,7 @@ resource MorphoFin = ResFin ** open Prelude in {
} ;
vowHarmony : Str -> Str = \s -> case s of {
_ + ("a" | "o" | "u") + _ => "a" ;
_ + ("a" | "o" | "u" | "A" | "O" | "U") + _ => "a" ;
_ => "ä"
} ;

View File

@@ -7,11 +7,12 @@ resource PhonoIta = open Prelude in {
oper
vocale : Strs = strs {
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y"
"a" ; "e" ; "h" ; "i" ; "o" ; "u" ; "è" ; "y" ; "A" ; "E" ; "I" ; "O" ; "U" ; "H"
} ;
sImpuro : Strs = strs {
"z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv"
"z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
"Z" ; "Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sm" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
} ;
elision : (_,_,_ : Str) -> Str = \il, l', lo ->