1
0
forked from GitHub/gf-core

partial adjectives support

This commit is contained in:
krasimir
2008-02-20 17:01:19 +00:00
parent d5c53ccb7e
commit 5330d189ed
6 changed files with 36 additions and 1 deletions

View File

@@ -31,6 +31,10 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
Comp = {s : Agr => Str} ;
-- Adjective
AP = {s : AForm => Str; isPre : Bool} ;
-- Noun
CN = {s : NForm => Str; g : DGender} ;
@@ -57,6 +61,7 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
V3 = Verb ** {c2, c3 : Str} ;
A = {s : AForm => Str} ;
A2 = {s : AForm => Str ; c2 : Str} ;
N = {s : NForm => Str; g : DGender} ;
}