diff options
| author | krasimir <krasimir@chalmers.se> | 2008-11-26 14:43:05 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-11-26 14:43:05 +0000 |
| commit | d0116c395839cd53dd24cfe1cb26b3f64ddc9430 (patch) | |
| tree | 74665c6353429f714a973437fb49a7b80a1ac12a /next-lib/src/russian/CatRus.gf | |
| parent | 66785b20208f9ea2fca7b6ff3355cd8ce87636c3 (diff) | |
add Russian in next-lib
Diffstat (limited to 'next-lib/src/russian/CatRus.gf')
| -rw-r--r-- | next-lib/src/russian/CatRus.gf | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/next-lib/src/russian/CatRus.gf b/next-lib/src/russian/CatRus.gf new file mode 100644 index 000000000..b3e3809c9 --- /dev/null +++ b/next-lib/src/russian/CatRus.gf @@ -0,0 +1,99 @@ +--# -path=.:../abstract:../common:../../prelude
+
+concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
+
+ flags optimize=all_subs ; coding=utf8 ;
+
+ lincat
+
+-- Tensed/Untensed
+
+ S = {s : Str} ;
+ QS = {s : QForm => Str} ;
+ RS = {s : GenNum => Case => Animacy => Str} ;
+ SSlash = {s : Str; s2: Str ; c: Case} ;
+
+-- Sentence
+ -- clause (variable tense) e.g. "John walks"/"John walked"
+ Cl ={s : Polarity => ClForm => Str} ;
+ ClSlash = {s : Polarity => ClForm => Str; s2: Str; c: Case} ;
+ Imp = { s: Polarity => Gender => Number => Str } ;
+
+-- Question
+
+ QCl = {s :Polarity => ClForm => QForm => Str};
+ IP = { s : PronForm => Str ; n : Number ; p : Person ;
+ g: PronGen ; anim : Animacy ; pron: Bool} ;
+ IComp = {s : Str} ;
+ IDet = Adjective ** {n: Number; g: PronGen; c: Case} ;
+ IQuant = {s : Number => AdjForm => Str; g: PronGen; c: Case} ; -- AR 16/6/2008
+
+-- Relative
+
+ RCl = {s : Polarity => ClForm => GenNum => Case => Animacy => Str} ;
+ RP = {s : GenNum => Case => Animacy => Str} ;
+
+-- Verb
+ -- Polarity =>
+ Comp, VP = VerbPhrase ;
+ VPSlash = VerbPhrase ** {sc : Str ; c : Case} ;
+
+-- Adjective
+
+ AP = {s : AdjForm => Str; p : IsPostfixAdj} ;
+
+-- Noun
+
+ CN = {s : Number => Case => Str; g : Gender; anim : Animacy} ;
+ NP = { s : PronForm => Str ; n : Number ; p : Person ;
+ g: PronGen ; anim : Animacy ; pron: Bool} ;
+ Pron = { s : PronForm => Str ; n : Number ; p : Person ;
+ g: PronGen ; pron: Bool} ;
+
+-- Determiners (only determinative pronouns
+-- (or even indefinite numerals: "много" (many)) in Russian) are inflected
+-- according to the gender of nouns they determine.
+-- extra parameters (Number and Case) are added for the sake of
+-- the determinative pronoun "bolshinstvo" ("most");
+-- Gender parameter is due to multiple determiners (Numerals in Russian)
+-- like "mnogo"
+-- The determined noun has the case parameter specific for the determiner
+
+ Det = {s : AdjForm => Str; n: Number; g: PronGen; c: Case} ;
+ Predet, Quant, Art = {s : AdjForm => Str; g: PronGen; c: Case} ;
+
+-- Numeral
+
+ Num, Numeral, Card = {s : Case => Gender => Str ; n : Number} ;
+ Digits = {s : Str ; n : Number} ; ----
+
+-- Structural
+-- The conjunction has an inherent number, which is used when conjoining
+-- noun phrases: "Иван и Маша поют" vs. "Иван или Маша поет"; in the
+-- case of "или", the result is however plural if any of the disjuncts is.
+
+ Conj = {s1,s2 : Str ; n : Number} ;
+ Subj = {s : Str} ;
+ Prep = {s : Str ; c: Case } ;
+
+-- Open lexical classes, e.g. Lexicon
+
+ V, VS, VV, VQ, VA = Verbum ; -- = {s : VerbForm => Str ; asp : Aspect } ;
+ V2, V2A = Verbum ** Complement ;
+ V2V, V2S, V2Q = Verbum ** Complement ; --- AR
+ V3 = Verbum ** Complement** {s4 : Str; c2: Case} ;
+-- VV = {s : VVForm => Str ; isAux : Bool} ;
+
+ Ord = {s : AdjForm => Str} ;
+ A = {s : Degree => AdjForm => Str} ;
+ A2 = A ** Complement ;
+
+ -- Substantives moreover have an inherent gender.
+ N = {s : SubstForm => Str ; g : Gender ; anim : Animacy } ;
+ N2 = {s : Number => Case => Str; g : Gender; anim : Animacy} ** Complement ;
+ N3 = {s : Number => Case => Str; g : Gender; anim : Animacy} ** Complement ** {s3 : Str; c2: Case} ;
+ PN = {s : Case => Str ; g : Gender ; anim : Animacy} ;
+
+
+}
+
|