forked from GitHub/gf-core
Fre and Ita: elision with BIND
This commit is contained in:
@@ -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 ;
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
@@ -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} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user