mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(May) Cleanup in quant+det types
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
resource ResMay = ParamMay ** open Prelude, Predef, ParamMay in {
|
resource ResMay = ParamMay ** open Prelude, Predef in {
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Nouns
|
-- Nouns
|
||||||
@@ -59,21 +59,17 @@ oper
|
|||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Det, Quant, Card, Ord
|
-- Det, Quant, Card, Ord
|
||||||
|
|
||||||
BaseQuant : Type = {
|
Quant : Type = {
|
||||||
s : Str ;
|
s : Str ;
|
||||||
|
sp : NForm => Str ;
|
||||||
poss : Possession ;
|
poss : Possession ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
Determiner : Type = BaseQuant ** {
|
Determiner : Type = Quant ** {
|
||||||
sp : NForm => Str ;
|
|
||||||
n : Number ;
|
n : Number ;
|
||||||
-- numtype : NumType ; -- number as in "5" or "Sg/Pl", often makes a difference in lots of things
|
-- numtype : NumType ; -- number as in "5" or "Sg/Pl", often makes a difference in lots of things
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
Quant : Type = BaseQuant ** {
|
|
||||||
sp : NForm => Str ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
Num : Type = {
|
Num : Type = {
|
||||||
s : DForm => Str ; -- independent or attribute
|
s : DForm => Str ; -- independent or attribute
|
||||||
n : Number
|
n : Number
|
||||||
@@ -89,8 +85,9 @@ oper
|
|||||||
ord : Str
|
ord : Str
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
baseQuant : BaseQuant = {
|
baseQuant : Quant = {
|
||||||
s = [] ;
|
s = [] ;
|
||||||
|
sp = \\_ => [] ;
|
||||||
poss = Bare ;
|
poss = Bare ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user