mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-31 02:38:55 -06:00
(Extend) Add AdvIsNP + implement it in Eng,Fin,Pes,Romance,Swe
This commit is contained in:
@@ -2,7 +2,7 @@
|
||||
|
||||
concrete ExtendPes of Extend =
|
||||
CatPes ** ExtendFunctor - [
|
||||
GenNP, ApposNP, ICompAP
|
||||
GenNP, ApposNP, ICompAP, AdvIsNP
|
||||
,GerundNP,GerundCN,GerundAdv,EmbedPresPart
|
||||
]
|
||||
with (Grammar=GrammarPes)
|
||||
@@ -30,6 +30,9 @@ lin
|
||||
-- : VP -> Adv ; -- publishing the document (prepositionless adverb)
|
||||
GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
|
||||
|
||||
-- : VP -> SC ;
|
||||
-- : VP -> SC ;
|
||||
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
|
||||
|
||||
-- : Adv -> NP -> Cl -- here is the car / here are the cars
|
||||
AdvIsNP adv np = mkClause (indeclNP adv.s ** {a = np.a}) (UseComp (CompNP np)) ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user