GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 01:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

French almost complete (reflexives, ordinals missing)

Browse Source
This commit is contained in:
aarne
2006-01-23 17:49:09 +00:00
parent 7364373223
commit a9191c404f
14 changed files with 73 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/resource-1.0/romance/ResRomance.gf
View File

@@ -78,7 +78,7 @@ oper
clit1 = \\a => [] ; ----
clit2 = [] ;
comp = \\a => [] ;
ext = [] ;
ext = \\p => []
} ;
insertObject : Compl -> Pronoun -> VP -> VP = \c,np,vp ->
@@ -121,6 +121,15 @@ oper
comp = \\a => vp.comp ! a ++ co ;
ext = vp.ext ;
} ;
insertExtrapos : (Polarity => Str) -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;
clit1 = vp.clit1 ;
clit2 = vp.clit2 ;
neg = vp.neg ;
comp = vp.comp ;
ext = \\p => vp.ext ! p ++ co ! p ;
} ;
mkClause : Str -> Agr -> VP ->
{s : Tense => Anteriority => Polarity => Mood => Str} =
@@ -138,7 +147,7 @@ oper
inf = vps.inf ! (appVPAgr vp.agr (aagr agr.g agr.n)) ; --- subtype bug
neg = vp.neg ! b ;
clit = vp.clit1 ! agr ++ vp.clit2 ;
compl = vp.comp ! agr ++ vp.ext
compl = vp.comp ! agr ++ vp.ext ! b
in
subj ++ neg.p1 ++ clit ++ verb ++ neg.p2 ++ inf ++ compl
} ;