1
0
forked from GitHub/gf-core
This commit is contained in:
janna
2006-05-26 09:59:30 +00:00
parent 0d7406a7f0
commit 40dcf1c0d6
11 changed files with 531 additions and 826 deletions

View File

@@ -6,9 +6,14 @@ concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
lincat
-- Phrase
Utt, Voc = {s : Str} ;
-- Tensed/Untensed
S = {s : Str} ;
SC = {s : Str} ;
QS = {s : QForm => Str} ;
RS = {s : GenNum => Case => Animacy => Str} ;
@@ -23,7 +28,7 @@ concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
QCl = {s :Polarity => ClForm => QForm => Str};
IP = { s : PronForm => Str ; n : Number ; p : Person ;
g: PronGen ; anim : Animacy ; pron: Bool} ;
IComp = {s : Str} ;
IAdv, IComp = {s : Str} ;
IDet = Adjective ** {n: Number; g: PronGen; c: Case} ;
-- Relative
@@ -60,6 +65,10 @@ concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
QuantSg, QuantPl , Det = {s : AdjForm => Str; n: Number; g: PronGen; c: Case} ;
Predet, Quant= {s : AdjForm => Str; g: PronGen; c: Case} ;
-- Adverb
Adv, AdV, AdA, AdS, AdN = {s : Str} ;
-- Numeral
Num, Numeral = {s : Case => Gender => Str} ;
@@ -71,6 +80,8 @@ concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
Conj = {s : Str ; n : Number} ;
DConj = {s1,s2 : Str ; n : Number} ;
PConj = {s : Str} ;
CAdv = {s : Str} ;
Subj = {s : Str} ;
Prep = {s : Str ; c: Case } ;