From e7b1c47300a6ec9c0a4d8e2df0bf8325943a39ac Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Fri, 27 Jul 2018 11:57:46 +0200
Subject: [PATCH] added category ACard

---
 src/abstract/Cat.gf          | 1 +
 src/bulgarian/CatBul.gf      | 1 +
 src/english/CatEng.gf        | 1 +
 src/scandinavian/CatScand.gf | 1 +
 4 files changed, 4 insertions(+)

diff --git a/src/abstract/Cat.gf b/src/abstract/Cat.gf
index ae7745e7d..480568094 100644
--- a/src/abstract/Cat.gf
+++ b/src/abstract/Cat.gf
@@ -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"
 
diff --git a/src/bulgarian/CatBul.gf b/src/bulgarian/CatBul.gf
index 3a323bcb9..dd25c203e 100644
--- a/src/bulgarian/CatBul.gf
+++ b/src/bulgarian/CatBul.gf
@@ -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
diff --git a/src/english/CatEng.gf b/src/english/CatEng.gf
index a2d6efa70..b404628e1 100644
--- a/src/english/CatEng.gf
+++ b/src/english/CatEng.gf
@@ -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
diff --git a/src/scandinavian/CatScand.gf b/src/scandinavian/CatScand.gf
index 0aabe12fd..370e62ff0 100644
--- a/src/scandinavian/CatScand.gf
+++ b/src/scandinavian/CatScand.gf
@@ -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