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"
|
Quant ; -- quantifier ('nucleus' of Det) e.g. "this/these"
|
||||||
Num ; -- number determining element e.g. "seven"
|
Num ; -- number determining element e.g. "seven"
|
||||||
Card ; -- cardinal number 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"
|
Ord ; -- ordinal number (used in Det) e.g. "seventh"
|
||||||
DAP ; -- determiner with adjective e.g. "three small"
|
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} ;
|
Ord = {s : AForm => Str} ;
|
||||||
Num = {s : CardForm => Str; nn : NNumber; nonEmpty : Bool} ;
|
Num = {s : CardForm => Str; nn : NNumber; nonEmpty : Bool} ;
|
||||||
Card = {s : CardForm => Str; nn : NNumber} ;
|
Card = {s : CardForm => Str; nn : NNumber} ;
|
||||||
|
ACard = {s : Species => Str; nn : NNumber} ;
|
||||||
Quant = {s : Bool => AForm => Str; nonEmpty : Bool; spec : Species; p : Polarity} ;
|
Quant = {s : Bool => AForm => Str; nonEmpty : Bool; spec : Species; p : Polarity} ;
|
||||||
|
|
||||||
-- Numeral
|
-- Numeral
|
||||||
|
|||||||
@@ -75,6 +75,7 @@ concrete CatEng of Cat = CommonX - [Pol,SC,CAdv] ** open ResEng, Prelude in {
|
|||||||
Ord = { s : Case => Str } ;
|
Ord = { s : Case => Str } ;
|
||||||
Num = {s,sp : Bool => Case => Str ; n : Number ; hasCard : Bool} ;
|
Num = {s,sp : Bool => Case => Str ; n : Number ; hasCard : Bool} ;
|
||||||
Card = {s,sp : Bool => Case => Str ; n : Number} ;
|
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} ;
|
Quant = {s : Bool => Number => Str ; sp : Gender => Bool => Number => NPCase => Str; isDef : Bool} ;
|
||||||
|
|
||||||
-- Numeral
|
-- Numeral
|
||||||
|
|||||||
@@ -80,6 +80,7 @@ incomplete concrete CatScand of Cat =
|
|||||||
Predet = {s : Gender => Number => Str ; p : Str ; a : PredetAgr} ;
|
Predet = {s : Gender => Number => Str ; p : Str ; a : PredetAgr} ;
|
||||||
Num = {s : NGender => Str ; isDet : Bool ; n : Number} ;
|
Num = {s : NGender => Str ; isDet : Bool ; n : Number} ;
|
||||||
Card = {s : NGender => Str ; n : Number} ;
|
Card = {s : NGender => Str ; n : Number} ;
|
||||||
|
ACard = {s : Str ; n : Number} ;
|
||||||
Ord = {s : Str} ;
|
Ord = {s : Str} ;
|
||||||
|
|
||||||
-- Numeral
|
-- Numeral
|
||||||
|
|||||||
Reference in New Issue
Block a user