forked from GitHub/gf-core
included capitals in some phonological string pattern matching in Fin and Ita
This commit is contained in:
@@ -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" ;
|
||||
_ => "ä"
|
||||
} ;
|
||||
|
||||
|
||||
@@ -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 ->
|
||||
|
||||
Reference in New Issue
Block a user