More or less complete Latvian RG (by Peteris Paikens and Normunds Gruzitis)

This commit is contained in:
normundsg
2011-11-07 14:21:04 +00:00
parent f87e8279bf
commit 3148e305d5
23 changed files with 1748 additions and 1077 deletions

View File

@@ -1,22 +1,61 @@
concrete CatLav of Cat = CommonX ** open ResLav, Prelude in {
concrete CatLav of Cat = CommonX - [CAdv, Voc] ** open ResLav, Prelude in {
flags optimize=all_subs ;
lincat
S = {s : Str} ;
QS = {s : Str} ;
RS = {s : Agr => Str} ; -- ; c : Case c for it clefts
SSlash = {s : Str; p : Prep};
N = {s : Number => Case => Str ; g : Gender} ;
A = {s : Degree => Definite => Gender => Number => Case => Str} ;
V = {s : Polarity => VerbForm => Str} ;
V2 = V ; -- ** {c : ResLav.Case} - valence
N2 = {s : Number => Case => Str ; g : Gender} ** {p : Prep; isPre : Bool}; -- case / preposition used. if isPre, then located before the noun.
N3 = {s : Number => Case => Str ; g : Gender} ** {p1,p2 : Prep; isPre1, isPre2 : Bool};
PN = {s : Case => Str ; g : Gender; n : Number} ;
A = {s : AForm => Str };
A2 = A ** {p : Prep};
V, VQ, VA, VV = Verb ;
VS = Verb ** {subj : Subj} ;
V2, V2A, V2Q, V2V = Verb ** {p : Prep} ; -- TODO - valence, pieòemam ka viena; bûtu jânorâda semantika - integrçt ar FrameNet?
V2S = Verb ** {p : Prep; subj : Subj} ;
V3 = Verb ** {p1, p2 : Prep} ;
Pron = {s : Case => Str ; a : ResLav.Agr; possessive : Gender => Number => Case => Str} ;
Conj = {s1,s2 : Str ; n : Number} ;
Subj = {s : Str} ;
Prep = {s : Str; c : Number => Case} ; -- e.g. 'ar' + Sg-Acc or Pl-Dat; Preposition may be empty [] for simple case-based valences
-- TODO - pozîcija nav noteikta; daþi ir pirms daþi pçc
Cl = {s : VerbMood => Polarity => Str} ;
ClSlash = {s : VerbMood => Polarity => Str; p : Prep};
Imp = {s : Polarity => Number => Str} ;
QCl = {s : VerbMood => Polarity => Str} ;
IP = {s : Case => Str; n: Number };
IQuant = {s : Gender => Number => Str} ;
IDet = {s : Gender => Str ; n : Number} ;
RCl = {s : VerbMood => Polarity => Agr => Str} ;
RP = {s : Case => Str} ;
CN = {s : Definite => Number => Case => Str ; g : Gender} ;
Det = {s : Gender => Case => Str ; n : Number ; d: Definite} ;
NP = {s : Case => Str ; g : Gender ; n : Number; p : Person} ;
VP = {v : V ; obj : ResLav.Agr => Str} ;
--TODO - arî Quant jâpieliek
Predet = {s : Gender => Str} ;
Quant = {s : Gender => Number => Case => Str ; d: Definite} ;
Card = { s : Gender => Case => Str ; n: Number} ;
Ord = { s : Gender => Case => Str } ;
NP = {s : Case => Str ; a : ResLav.Agr} ;
AP = {s : Definite => Gender => Number => Case => Str} ;
VP = ResLav.VP;
VPSlash = VP ** {p : Prep};
Comp = {s : ResLav.Agr => Str} ;
Num = {s : Gender => Case => Str ; n : Number ; hasCard : Bool} ;
Numeral = {s : CardOrd => Gender => Case => Str ; n : Number} ;
Digits = {s : CardOrd => Str ; n : Number} ;
CAdv = { s : Str; p : Str; d: Degree } ;
{-
-- Tensed/Untensed
@@ -48,7 +87,6 @@ concrete CatLav of Cat = CommonX ** open ResLav, Prelude in {
s : ResEng.Tense => Anteriority => CPolarity => Agr => Str ;
c : Case
} ;
RP = {s : RCase => Str ; a : RAgr} ;
-- Verb