1
0
forked from GitHub/gf-core

add Predet

This commit is contained in:
krasimir
2008-02-21 11:33:20 +00:00
parent 8b2003cd80
commit 345570fa5d
3 changed files with 19 additions and 10 deletions

View File

@@ -21,6 +21,16 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
UsePN pn = {s = \\_ => pn.s; a = {gn = GSg pn.g; p = P3}} ;
UsePron p = {s = p.s; a=p.a} ;
PredetNP pred np = {
s = \\c => pred.s ! np.a.gn ++ np.s ! c ;
a = np.a
} ;
PPartNP np v2 = {
s = \\c => np.s ! c ++ v2.s ! VPassive (aform np.a.gn Indef c) ;
a = np.a
} ;
DetSg quant ord = {
s = \\g,c => quant.s ! gennum g Sg ++
ord.s ! aform (gennum g Sg) quant.spec c ;