mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 18:46:28 -06:00
(Hun) Add new QuantType param to Quants
This commit is contained in:
@@ -89,13 +89,13 @@ oper
|
||||
Quant : Type = BaseQuant ** {
|
||||
s, -- form that comes before noun: "{this} car"
|
||||
sp : Number => Case => Str ; -- independent form, "I like {this}" (DetNP)
|
||||
isIndefArt : Bool ; -- standard trick to prevent "a one car"
|
||||
qt : QuantType ;
|
||||
} ;
|
||||
|
||||
mkQuant : (s,sp : Str) -> Quant = \s,sp -> {
|
||||
s = mkCaseNoun s ;
|
||||
sp = mkCaseNoun sp ;
|
||||
isIndefArt = False ;
|
||||
qt = Article ;
|
||||
objdef = Def ;
|
||||
caseagr = True ;
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user