adjectives

This commit is contained in:
aarne
2005-11-28 20:53:54 +00:00
parent 2c0fdf6c3c
commit d5b8fc79fb
14 changed files with 238 additions and 20 deletions

View File

@@ -1,4 +1,4 @@
concrete CatEng of Cat = open ResEng in {
concrete CatEng of Cat = open ResEng, Prelude in {
lincat
S = {s : Str} ;
@@ -18,10 +18,13 @@ concrete CatEng of Cat = open ResEng in {
V2, VV = Verb ** {c2 : Str} ;
V3 = Verb ** {c2, c3 : Str} ;
AP = {s : Str} ;
AP = {s : Str ; isPre : Bool} ;
Comp = {s : Agr => Str} ;
Adv = {s : Str} ;
A = {s : AForm => Str} ;
A2 = {s : AForm => Str ; c2 : Str} ;
Adv, AdV, AdA, AdS = {s : Str} ;
Det, Quant = {s : Str ; n : Number} ;
Predet, Num = {s : Str} ;
@@ -36,4 +39,6 @@ concrete CatEng of Cat = open ResEng in {
IDet = {s : Str ; n : Number} ;
IAdv = {s : Str} ;
Numeral = {s : CardOrd => Str ; n : Number} ;
}