mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
(Pes) add EmbedPresPart to Extend
This commit is contained in:
@@ -3,7 +3,7 @@
|
|||||||
concrete ExtendPes of Extend =
|
concrete ExtendPes of Extend =
|
||||||
CatPes ** ExtendFunctor - [
|
CatPes ** ExtendFunctor - [
|
||||||
GenNP, ApposNP, ICompAP
|
GenNP, ApposNP, ICompAP
|
||||||
,GerundNP,GerundCN,GerundAdv
|
,GerundNP,GerundCN,GerundAdv,EmbedPresPart
|
||||||
]
|
]
|
||||||
with (Grammar=GrammarPes)
|
with (Grammar=GrammarPes)
|
||||||
** open Prelude, ResPes in {
|
** open Prelude, ResPes in {
|
||||||
@@ -30,4 +30,6 @@ lin
|
|||||||
-- : VP -> Adv ; -- publishing the document (prepositionless adverb)
|
-- : VP -> Adv ; -- publishing the document (prepositionless adverb)
|
||||||
GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
|
GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
|
||||||
|
|
||||||
|
-- : VP -> SC ;
|
||||||
|
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user