mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 17:42:51 -06:00
add Predet
This commit is contained in:
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user