GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

started romance and french

Browse Source
This commit is contained in:
aarne
2006-01-19 16:41:44 +00:00
parent 0b18ccaea4
commit 2b2f6e4925
47 changed files with 4576 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lib/resource-1.0/french/DiffFre.gf Normal file
View File

@@ -0,0 +1,48 @@
--# -path=.:../romance:../abstract:../common:prelude
instance DiffFre of DiffRomance = open ResRomance, PhonoFre, Prelude in {
param
Prep = P_de | P_a ;
VAux = VHabere | VEsse ;
oper
dative : Case = CPrep P_a ;
genitive : Case = CPrep P_de ;
complAcc : Compl = {s = [] ; c = Acc} ;
complGen : Compl = {s = [] ; c = genitive} ;
complDat : Compl = {s = [] ; c = dative} ;
prepCase : Case -> Str = \c -> case c of {
Nom => [] ;
Acc => [] ;
CPrep P_a => "à" ;
CPrep P_de => elisDe
} ;
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_a> => pre {"au" ; ["à l'"] / voyelle} ;
<Masc,Sg, _> => elisLe ;
<Fem, Sg, _> => prepCase c ++ elisLa ;
<_, Pl, CPrep P_de> => "des" ;
<_, Pl, CPrep P_a> => "aux" ;
<_, Pl, _ > => "les"
} ;
-- In these two, "de de/du/des" becomes "de".
artIndef = \g,n,c -> case <n,c> of {
<Sg,_> => prepCase c ++ genForms "un" "une" ! g ;
<Pl,CPrep P_de> => elisDe ;
_ => prepCase c ++ "des"
} ;
partitive = \g,c -> case c of {
CPrep P_de => elisDe ;
_ => prepCase c ++ artDef g Sg (CPrep P_de)
} ;
}