mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 20:06:29 -06:00
(Hun) Add new QuantType param to Quants
This commit is contained in:
@@ -13,7 +13,19 @@ oper
|
||||
--------------------------------------------------------------------------------
|
||||
-- Morphophonology
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Quant
|
||||
|
||||
param
|
||||
QuantType = Possessive | Article ;
|
||||
|
||||
oper
|
||||
-- standard trick to prevent "a one car"
|
||||
isIndefArt : {qt : QuantType ; objdef : ObjDef} -> Bool = \quant ->
|
||||
case <quant.qt,quant.objdef> of {
|
||||
<Article,Indef> => True ;
|
||||
_ => False
|
||||
} ;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Nouns
|
||||
|
||||
Reference in New Issue
Block a user