forked from GitHub/gf-rgl
(Est) Add all case forms to result of GerundCN/NP
This commit is contained in:
@@ -301,8 +301,12 @@ concrete ExtendEst of Extend =
|
||||
GerundAdv vp = {s = infVPdefault vp InfDes} ;
|
||||
|
||||
-- : VP -> CN -- publishing of the document (can get a determiner)
|
||||
GerundCN vp = emptyCN ** {s = \\nf => infVPdefault vp InfMine} ;
|
||||
|
||||
GerundCN vp = emptyCN ** {
|
||||
s = \\nf => infVPdefault vp {stem = InfM ; suf = []}
|
||||
++ ine.s ! nf ;
|
||||
} where {
|
||||
ine : N = mkN "ine" "ise" "ist" "isesse" "iste" "isi"
|
||||
} ;
|
||||
-- : VP -> NP -- publishing the document (by nature definite)
|
||||
GerundNP vp = MassNP (GerundCN vp) ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user