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

Fre and Ita: elision with BIND

Browse Source
This commit is contained in:
aarne
2014-03-17 16:29:11 +00:00
parent a229c539e9
commit b7f1975be2
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/french/DiffFre.gf
View File

@@ -29,7 +29,7 @@ instance DiffFre of DiffRomance - [
artDef : Gender -> Number -> Case -> Str = \g,n,c -> artDef : Gender -> Number -> Case -> Str = \g,n,c ->
case <g,n,c> of { case <g,n,c> of {
<Masc,Sg, CPrep P_de> => pre {"du" ; ["de l'"] / voyelle} ; <Masc,Sg, CPrep P_de> => pre {"du" ; ("de l'" ++ Predef.BIND) / voyelle} ;
<Masc,Sg, CPrep P_a> => pre {"au" ; ["à l'"] / voyelle} ; <Masc,Sg, CPrep P_a> => pre {"au" ; ["à l'"] / voyelle} ;
<Masc,Sg, _> => elisLe ; <Masc,Sg, _> => elisLe ;
<Fem, Sg, _> => prepCase c ++ elisLa ; <Fem, Sg, _> => prepCase c ++ elisLa ;

4
lib/src/french/PhonoFre.gf
View File

@@ -12,12 +12,12 @@ oper
"I" ; "Î" ; "O" ; "Ô" ; "U" ; "Û" ; "Y" "I" ; "Î" ; "O" ; "Ô" ; "U" ; "Û" ; "Y"
} ; } ;
elision : Str -> Str = \d -> d + pre {"e" ; "'" / voyelle} ; elision : Str -> Str = \d -> d + pre {"e" ; ("'" ++ Predef.BIND) / voyelle} ;
-- The following morphemes are the most common uses of elision. -- The following morphemes are the most common uses of elision.
elisDe = elision "d" ; elisDe = elision "d" ;
elisLa = pre {"la" ; "l'" / voyelle} ; elisLa = pre {"la" ; ("l'" ++ Predef.BIND) / voyelle} ;
elisLe = elision "l" ; elisLe = elision "l" ;
elisNe = elision "n" ; elisNe = elision "n" ;
elisQue = elision "qu" ; elisQue = elision "qu" ;

2
lib/src/italian/PhonoIta.gf
View File

@@ -17,7 +17,7 @@ oper
} ; } ;
elision : (_,_,_ : Str) -> Str = \il, l', lo -> elision : (_,_,_ : Str) -> Str = \il, l', lo ->
pre {il ; l' / vocale ; lo / sImpuro} ; pre {il ; (l' ++ Predef.BIND) / vocale ; lo / sImpuro} ;
--- pre {vocale => l' ; sImpuro => lo ; _ => il} ; --- pre {vocale => l' ; sImpuro => lo ; _ => il} ;
} }