1
0
forked from GitHub/gf-rgl

added category ACard

This commit is contained in:
Krasimir Angelov
2018-07-27 11:57:46 +02:00
parent e56ba66232
commit e7b1c47300
4 changed files with 4 additions and 0 deletions

View File

@@ -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"

View File

@@ -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

View File

@@ -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

View File

@@ -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