forked from GitHub/gf-rgl
added category ACard
This commit is contained in:
@@ -83,6 +83,7 @@ abstract Cat = Common ** {
|
||||
Quant ; -- quantifier ('nucleus' of Det) e.g. "this/these"
|
||||
Num ; -- number determining element e.g. "seven"
|
||||
Card ; -- cardinal number e.g. "seven"
|
||||
ACard ; -- adjective like cardinal e.g. "few", "many"
|
||||
Ord ; -- ordinal number (used in Det) e.g. "seventh"
|
||||
DAP ; -- determiner with adjective e.g. "three small"
|
||||
|
||||
|
||||
@@ -58,6 +58,7 @@ concrete CatBul of Cat = CommonX - [IAdv,AdV,SC] ** open ResBul, Prelude, Predef
|
||||
Ord = {s : AForm => Str} ;
|
||||
Num = {s : CardForm => Str; nn : NNumber; nonEmpty : Bool} ;
|
||||
Card = {s : CardForm => Str; nn : NNumber} ;
|
||||
ACard = {s : Species => Str; nn : NNumber} ;
|
||||
Quant = {s : Bool => AForm => Str; nonEmpty : Bool; spec : Species; p : Polarity} ;
|
||||
|
||||
-- Numeral
|
||||
|
||||
@@ -75,6 +75,7 @@ concrete CatEng of Cat = CommonX - [Pol,SC,CAdv] ** open ResEng, Prelude in {
|
||||
Ord = { s : Case => Str } ;
|
||||
Num = {s,sp : Bool => Case => Str ; n : Number ; hasCard : Bool} ;
|
||||
Card = {s,sp : Bool => Case => Str ; n : Number} ;
|
||||
ACard = {s : Case => Str ; n : Number} ;
|
||||
Quant = {s : Bool => Number => Str ; sp : Gender => Bool => Number => NPCase => Str; isDef : Bool} ;
|
||||
|
||||
-- Numeral
|
||||
|
||||
@@ -80,6 +80,7 @@ incomplete concrete CatScand of Cat =
|
||||
Predet = {s : Gender => Number => Str ; p : Str ; a : PredetAgr} ;
|
||||
Num = {s : NGender => Str ; isDet : Bool ; n : Number} ;
|
||||
Card = {s : NGender => Str ; n : Number} ;
|
||||
ACard = {s : Str ; n : Number} ;
|
||||
Ord = {s : Str} ;
|
||||
|
||||
-- Numeral
|
||||
|
||||
Reference in New Issue
Block a user