GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

109
lib/src/latvian/ParadigmsAdjectivesLav.gf
View File

@@ -1,18 +1,19 @@
-- Latvian adjective paradigms - by Normunds Grūzītis; copied off mini-grammar as of 2011-07-12
resource ParadigmsAdjectivesLav = open
(Predef=Predef),
Prelude,
resource ParadigmsAdjectivesLav = open
(Predef=Predef),
Prelude,
ResLav,
CatLav
in {
flags
coding = utf8;
oper
Adj : Type = {s : Degree => Definite => Gender => Number => Case => Str} ;
--Adj : Type = {s : Degree => Definite => Gender => Number => Case => Str} ;
Adj : Type = {s : AForm => Str} ;
-- ADJECTIVES
-- TODO: Parameters and paradigms should be redesigned due to the many NON_EXISTENT forms..?
@@ -38,34 +39,45 @@ oper
-- Indeclinable adjective: theoretically, any #vowel ending
mkAdjective_Indecl : Str -> Adj = \lemma -> {
s = table{
Posit => \\_,_,_,_ => lemma ;
Compar => \\_,_,_,_ => lemma ;
Superl => table {Indef => \\_,_,_ => NON_EXISTENT ; Def => \\_,_,_ => lemma}
AAdj Superl Indef _ _ _ => NON_EXISTENT;
AAdj _ _ _ _ _ => lemma ;
AAdv d => mkAdjective_Adverb lemma ! d-- TODO - notestēt šādu keisu
}
} ;
-- Qualitative adjective: -s, -š
mkAdjective_Qual : Str -> Adj = \lemma -> {
s = table {
Posit => table {Indef => mkAdjective_Pos lemma Indef ; Def => mkAdjective_Pos lemma Def} ;
Compar => table {Indef => mkAdjective_Comp lemma Indef ; Def => mkAdjective_Comp lemma Def} ;
Superl => table {Indef => \\_,_,_ => NON_EXISTENT ; Def => mkAdjective_Sup lemma}
AAdj Posit d g n c => mkAdjective_Pos lemma d ! g ! n ! c;
AAdj Compar d g n c => mkAdjective_Comp lemma d ! g ! n ! c;
AAdj Superl Def g n c => mkAdjective_Sup lemma ! g ! n ! c;
AAdj Superl Indef _ _ _ => NON_EXISTENT;
AAdv d => mkAdjective_Adverb lemma ! d
}
} ;
-- Relative adjective: -ais (Def only); -s, -š (Indef and Def)
mkAdjective_Rel : Str -> Adj = \lemma -> {
s = table {
Posit => case lemma of {
s + "ais" => table {Indef => \\_,_,_ => NON_EXISTENT ; Def => mkAdjective_Pos lemma Def} ;
_ => table {Indef => mkAdjective_Pos lemma Indef ; Def => mkAdjective_Pos lemma Def}
AAdj Posit Def g n c => mkAdjective_Pos lemma Def ! g ! n ! c;
AAdj Posit Indef g n c => case lemma of {
s + "ais" => NON_EXISTENT ;
_ => mkAdjective_Pos lemma Indef ! g ! n ! c
} ;
Compar => table {Indef => \\_,_,_ => NON_EXISTENT ; Def => \\_,_,_ => NON_EXISTENT} ;
Superl => table {Indef => \\_,_,_ => NON_EXISTENT ; Def => \\_,_,_ => NON_EXISTENT}
AAdj _ _ _ _ _ => NON_EXISTENT ;
AAdv d => mkAdjective_Adverb lemma ! d
}
};
mkAdjective_Participle : Verb -> Adj = \v -> {
s = table {
AAdj Posit Indef g n c => v.s ! Pos !(Participle g n c); --FIXME - iznest polaritāti ārpusē lai ir noliegtie kā atsevišķi īpašībasvārdi
_ => NON_EXISTENT --FIXME - salikt arī tās divdabja formas
}
};
-- Positive degree: -s, -š (Indef and Def); -ais (Def only)
-- TODO - atsaukties uz lietvārdu locīšanas tabulām?
mkAdjective_Pos : Str -> Definite -> Gender => Number => Case => Str = \lemma,defin ->
let stem : Str = case lemma of {
s + "ais" => s ;
@@ -79,14 +91,16 @@ oper
Gen => stem + "a" ;
Dat => stem + "am" ;
Acc => stem + "u" ;
Loc => stem + "ā"
Loc => stem + "ā" ;
Voc => NON_EXISTENT
} ;
Pl => table {
Nom => stem + "i" ;
Gen => stem + "us" ;
Gen => stem + "u" ;
Dat => stem + "iem" ;
Acc => stem + "us" ;
Loc => stem + "os"
Loc => stem + "os" ;
Voc => NON_EXISTENT
}
} ;
Fem => table {
@@ -95,14 +109,16 @@ oper
Gen => stem + "as" ;
Dat => stem + "ai" ;
Acc => stem + "u" ;
Loc => stem + "ā"
Loc => stem + "ā" ;
Voc => NON_EXISTENT
} ;
Pl => table {
Nom => stem + "as" ;
Gen => stem + "u" ;
Dat => stem + "ām" ;
Acc => stem + "as" ;
Loc => stem + "ās"
Loc => stem + "ās" ;
Voc => NON_EXISTENT
}
}
} ;
@@ -113,14 +129,16 @@ oper
Gen => stem + "ā" ;
Dat => case stem of {s + "ēj" => stem + "am" ; _ => stem + "ajam"} ;
Acc => stem + "o" ;
Loc => case stem of {s + "ēj" => stem + "ā" ; _ => stem + "ajā"}
Loc => case stem of {s + "ēj" => stem + "ā" ; _ => stem + "ajā"} ;
Voc => stem + "ais"
} ;
Pl => table {
Nom => stem + "ie" ;
Gen => stem + "o" ;
Dat => case stem of {s + "ēj" => stem + "iem" ; _ => stem + "ajiem"} ;
Acc => stem + "os" ;
Loc => case stem of {s + "ēj" => stem + "os" ; _ => stem + "ajos"}
Loc => case stem of {s + "ēj" => stem + "os" ; _ => stem + "ajos"} ;
Voc => stem + "ie"
}
} ;
Fem => table {
@@ -129,14 +147,16 @@ oper
Gen => stem + "ās" ;
Dat => case stem of {s + "ēj" => stem + "ai" ; _ => stem + "ajai"} ;
Acc => stem + "o" ;
Loc => case stem of {s + "ēj" => stem + "ā" ; _ => stem + "ajā"}
Loc => case stem of {s + "ēj" => stem + "ā" ; _ => stem + "ajā"} ;
Voc => stem + "ā"
} ;
Pl => table {
Nom => stem + "ās" ;
Gen => stem + "o" ;
Dat => case stem of {s + "ēj" => stem + "ām" ; _ => stem + "ajām"} ;
Acc => stem + "ās" ;
Loc => case stem of {s + "ēj" => stem + "ās" ; _ => stem + "ajās"}
Loc => case stem of {s + "ēj" => stem + "ās" ; _ => stem + "ajās"} ;
Voc => stem + "ās"
}
}
}
@@ -153,14 +173,16 @@ oper
Gen => stem + "āka" ;
Dat => stem + "ākam" ;
Acc => stem + "āku" ;
Loc => stem + "ākā"
Loc => stem + "ākā" ;
Voc => NON_EXISTENT
} ;
Pl => table {
Nom => stem + "āki" ;
Gen => stem + "āku" ;
Dat => stem + "ākiem" ;
Acc => stem + "ākus" ;
Loc => stem + "ākos"
Loc => stem + "ākos" ;
Voc => NON_EXISTENT
}
} ;
Fem => table {
@@ -169,14 +191,16 @@ oper
Gen => stem + "ākas" ;
Dat => stem + "ākai" ;
Acc => stem + "āku" ;
Loc => stem + "ākā"
Loc => stem + "ākā" ;
Voc => NON_EXISTENT
} ;
Pl => table {
Nom => stem + "ākas" ;
Gen => stem + "āku" ;
Dat => stem + "ākām" ;
Acc => stem + "ākas" ;
Loc => stem + "ākās"
Loc => stem + "ākās" ;
Voc => NON_EXISTENT
}
}
} ;
@@ -187,14 +211,16 @@ oper
Gen => stem + "ākā" ;
Dat => stem + "ākajam" ;
Acc => stem + "āko" ;
Loc => stem + "ākajā"
Loc => stem + "ākajā" ;
Voc => stem + "ākais"
} ;
Pl => table {
Nom => stem + "ākie" ;
Gen => stem + "āko" ;
Dat => stem + "ākajiem" ;
Acc => stem + "ākos" ;
Loc => stem + "ākajos"
Loc => stem + "ākajos" ;
Voc => stem + "ākie"
}
} ;
Fem => table {
@@ -203,14 +229,16 @@ oper
Gen => stem + "ākās" ;
Dat => stem + "ākajai" ;
Acc => stem + "āko" ;
Loc => stem + "ākajā"
Loc => stem + "ākajā" ;
Voc => stem + "ākā"
} ;
Pl => table {
Nom => stem + "ākās" ;
Gen => stem + "āko" ;
Dat => stem + "ākajām" ;
Acc => stem + "ākās" ;
Loc => stem + "ākajās"
Loc => stem + "ākajās" ;
Voc => stem + "ākās"
}
}
}
@@ -218,5 +246,16 @@ oper
-- Superlative degree: Qual only, Def only
mkAdjective_Sup : Str -> Gender => Number => Case => Str = \lemma ->
\\g,n,c => "vis" + (mkAdjective_Comp lemma Def) ! g ! n ! c ;
\\g,n,c => "vis" + (mkAdjective_Comp lemma Def) ! g ! n ! c ;
-- Adverbial form, all 3 degrees
mkAdjective_Adverb : Str -> Degree => Str = \lemma ->
let stem : Str = case lemma of {
s + "ais" => s ;
_ => Predef.tk 1 lemma
} in table {
Posit => stem + "i";
Compar => stem + "āk";
Superl => "vis" + stem + "āk"
};
} ;