msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-15 16:54:59 +01:00
parent 306951280a 1da671016b
commit 1c496a719b
1 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/italian/PhonoIta.gf
View File

@@ -12,13 +12,33 @@ oper
} ;
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"
"sb" ; "sc" ; "sd" ; "sf" ; "sg" ; "sh" ; "sl" ; "sm" ; "sn" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
"Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sg" ; "Sh" ; "Sl" ; "Sm" ; "Sn" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
} ;
z : Strs = strs {
"z" ; "Z"
} ;
x : Strs = strs {
"x" ; "X"
} ;
gn : Strs = strs {
"gn" ; "Gn"
} ;
pn : Strs = strs {
"pn" ; "Pn"
} ;
ps : Strs = strs {
"ps" ; "Pn"
} ;
elision : (_,_,_ : Str) -> Str = \il, l', lo ->
let ll = case last l' of {"'" => l' ++ Predef.BIND ; _ => l'} in
pre {il ; ll / vocale ; lo / sImpuro} ;
pre {il ; ll / vocale ; lo / sImpuro ; lo / z ; lo / x ; lo / gn ; lo / pn ; lo / ps } ;
--- pre {vocale => l' ; sImpuro => lo ; _ => il} ; --- doesn't work properly 15/4/2014
}