French structural words and VV

2006-01-20 21:57:33 +00:00
parent bfbb49f7ba
commit 0da563c788
7 changed files with 45 additions and 15 deletions
--- a/resource-1.0/romance/ResRomance.gf
+++ b/resource-1.0/romance/ResRomance.gf
@@ -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 ;

 }