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

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

Browse Source
This commit is contained in:
aarne
2013-08-21 15:11:01 +00:00
parent 142b07ca82
commit 752d36e7a3
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/abstract/Extra.gf
View File

@@ -82,4 +82,8 @@ abstract Extra = Cat ** {
ExistsNP : NP -> Cl ; -- there exists a number / there exist numbers ExistsNP : NP -> Cl ; -- there exists a number / there exist numbers
-- infinitive for purpose AR 21/8/2013
PurposeVP : VP -> Adv ; -- to become happy
} }

2
lib/src/english/ExtraEng.gf
View File

@@ -174,6 +174,8 @@ lin
mkClause "there" (agrP3 (fromAgr np.a).n) mkClause "there" (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! NPAcc) (predV (regV "exist"))) ; (insertObj (\\_ => np.s ! NPAcc) (predV (regV "exist"))) ;
PurposeVP vp = {s = infVP VVInf vp Simul CPos (agrP3 Sg)} ; --- agr
------------ ------------
--- obsolete: use UncNeg : Pol --- obsolete: use UncNeg : Pol