1
0
forked from GitHub/gf-core

Fre and Ita: elision with BIND

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

View File

@@ -29,7 +29,7 @@ instance DiffFre of DiffRomance - [
artDef : Gender -> Number -> Case -> Str = \g,n,c ->
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, _> => elisLe ;
<Fem, Sg, _> => prepCase c ++ elisLa ;

View File

@@ -12,12 +12,12 @@ oper
"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.
elisDe = elision "d" ;
elisLa = pre {"la" ; "l'" / voyelle} ;
elisLa = pre {"la" ; ("l'" ++ Predef.BIND) / voyelle} ;
elisLe = elision "l" ;
elisNe = elision "n" ;
elisQue = elision "qu" ;

View File

@@ -17,7 +17,7 @@ oper
} ;
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} ;
}