GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 03:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

Idiom.ExistNPAdv and ExistIPAdv added

Browse Source
This commit is contained in:
aarne
2012-12-07 09:40:00 +00:00
parent 7d0f649f29
commit b4098a8f1a
3 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/abstract/Idiom.gf
View File

@@ -15,6 +15,11 @@ abstract Idiom = Cat ** {
ExistNP : NP -> Cl ; -- there is a house ExistNP : NP -> Cl ; -- there is a house
ExistIP : IP -> QCl ; -- which houses are there ExistIP : IP -> QCl ; -- which houses are there
-- 7/12/2012 generalizations of these
ExistNPAdv : NP -> Adv -> Cl ; -- there is a house in Paris
ExistIPAdv : IP -> Adv -> QCl ; -- which houses are there in Paris
ProgrVP : VP -> VP ; -- be sleeping ProgrVP : VP -> VP ; -- be sleeping
ImpPl1 : VP -> Utt ; -- let's go ImpPl1 : VP -> Utt ; -- let's go

8
lib/src/english/IdiomEng.gf
View File

@@ -22,6 +22,14 @@ concrete IdiomEng of Idiom = CatEng ** open Prelude, ResEng in {
mkQuestion (ss (ip.s ! npNom)) mkQuestion (ss (ip.s ! npNom))
(mkClause "there" (agrP3 ip.n) (predAux auxBe)) ; (mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
ExistNPAdv np adv =
mkClause "there" (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! NPAcc ++ adv.s) (predAux auxBe)) ;
ExistIPAdv ip adv =
mkQuestion (ss (ip.s ! npNom))
(mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ;
ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ; ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ; ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ;

1
lib/src/finnish/ParseFin.gf
View File

@@ -1,3 +1,4 @@
--# -path=.:../english:../abstract:../common:../api
-- # -path=alltenses:.:../english -- # -path=alltenses:.:../english
concrete ParseFin of ParseEngAbs = concrete ParseFin of ParseEngAbs =
TenseX, ---- - [Pol, PNeg, PPos], TenseX, ---- - [Pol, PNeg, PPos],