Extra.PurposeVP to express "I work to get rich"

2013-08-21 15:11:01 +00:00
parent 142b07ca82
commit 752d36e7a3
2 changed files with 6 additions and 0 deletions
--- a/lib/src/english/ExtraEng.gf
+++ b/lib/src/english/ExtraEng.gf
@@ -174,6 +174,8 @@ lin
      mkClause "there" (agrP3 (fromAgr np.a).n) 
        (insertObj (\\_ => np.s ! NPAcc) (predV (regV "exist"))) ;

+   PurposeVP vp = {s = infVP VVInf vp Simul CPos (agrP3 Sg)} ; --- agr
+
 ------------
 --- obsolete: use UncNeg : Pol