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

French structural words and VV

Browse Source
This commit is contained in:
aarne
2006-01-20 21:57:33 +00:00
parent 036de8d94e
commit 6f89da4591
7 changed files with 45 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -145,6 +145,14 @@ oper
subj ++ neg.p1 ++ clit ++ verb ++ neg.p2 ++ inf ++ compl
} ;
infVP : VP -> Agr -> Str = \vp,agr ->
let
inf = (vp.s ! VPInfinit Simul).inf ! (aagr agr.g agr.n) ;
neg = vp.neg ! Pos ; --- Neg not in API
cli = vp.clit1 ! agr ++ vp.clit2 ;
obj = vp.comp ! agr
in
clitInf cli inf ++ obj ;
}