mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 18:48:37 -06:00
Adding Lithuanian
This commit is contained in:
Lojikas
@@ -0,0 +1,318 @@
|
||||
--# -path=.:../prelude:../common:../abstract
|
||||
--# -coding=utf8
|
||||
|
||||
--1 A polish Resource Morphology
|
||||
|
||||
-- Adam Slaski, 2009, 2010, 2011 <adam.slaski@gmail.com>
|
||||
|
||||
-- Description of the Polish morphology
|
||||
|
||||
resource ParadigmsLit =
|
||||
Prelude,
|
||||
ResLit,
|
||||
MorphoLit, -- (< MorphoPronounLit (mkPronXis, mkPronXs, mkPronXas))
|
||||
ParadigmsVerbLit,
|
||||
ParadigmsPronounLit,
|
||||
ParadigmsAdjectiveLit,
|
||||
ParadigmsNounLit ** open (Predef=Predef) in {
|
||||
|
||||
flags coding=utf8;
|
||||
|
||||
oper
|
||||
|
||||
mkAdv : Str -> { s :Str };
|
||||
mkAdv x = { s = x };
|
||||
|
||||
compN : Adj -> CommNoun -> CommNoun ;
|
||||
compN adj noun =
|
||||
let adjTable = mkAtable adj.pos in
|
||||
{
|
||||
s = table {
|
||||
SF Sg Nom => adjTable!(cast_aform_exp!<noun.g,Sg,Nom>) ++ noun.s!SF Sg Nom;
|
||||
SF Sg Acc => adjTable!(cast_aform_exp!<noun.g,Sg,Acc>) ++ noun.s!SF Sg Acc;
|
||||
SF Sg Gen => adjTable!(cast_aform_exp!<noun.g,Sg,Gen>) ++ noun.s!SF Sg Gen;
|
||||
SF Sg Ins => adjTable!(cast_aform_exp!<noun.g,Sg,Ins>) ++ noun.s!SF Sg Ins;
|
||||
SF Sg Dat => adjTable!(cast_aform_exp!<noun.g,Sg,Dat>) ++ noun.s!SF Sg Dat;
|
||||
SF Sg Loc => adjTable!(cast_aform_exp!<noun.g,Sg,Loc>) ++ noun.s!SF Sg Loc;
|
||||
SF Sg VocL => adjTable!(cast_aform_exp!<noun.g,Sg,VocL>) ++ noun.s!SF Sg VocL;
|
||||
|
||||
SF Pl Nom => adjTable!(cast_aform_exp!<noun.g,Pl,Nom>) ++ noun.s!SF Pl Nom;
|
||||
SF Pl Acc => adjTable!(cast_aform_exp!<noun.g,Pl,Acc>) ++ noun.s!SF Pl Acc;
|
||||
SF Pl Gen => adjTable!(cast_aform_exp!<noun.g,Pl,Gen>) ++ noun.s!SF Pl Gen;
|
||||
SF Pl Ins => adjTable!(cast_aform_exp!<noun.g,Pl,Ins>) ++ noun.s!SF Pl Ins;
|
||||
SF Pl Dat => adjTable!(cast_aform_exp!<noun.g,Pl,Dat>) ++ noun.s!SF Pl Dat;
|
||||
SF Pl Loc => adjTable!(cast_aform_exp!<noun.g,Pl,Loc>) ++ noun.s!SF Pl Loc;
|
||||
SF Pl VocL => adjTable!(cast_aform_exp!<noun.g,Pl,VocL>) ++ noun.s!SF Pl VocL
|
||||
} ;
|
||||
g = noun.g ;
|
||||
nomType = Reg
|
||||
} ;
|
||||
|
||||
-- Nouns used as functions need a preposition. The most common is with Genitive.
|
||||
|
||||
mkN2 : CommNoun -> CommNoun2 ;
|
||||
mkN2 n = mkFun n nullPrep ;
|
||||
|
||||
mkFun : CommNoun -> Complement -> CommNoun2;
|
||||
mkFun f p = { s = f.s; g = f.g; nomType = Reg; cplCase = { cas = p.cas; s = p.s } } ;
|
||||
|
||||
mkN3 : CommNoun -> Complement -> Complement -> CommNoun3;
|
||||
mkN3 f p r = { s = f.s; g = f.g; nomType = Reg; cplCase = {s=p.s; cas=p.cas} ; cplCase2 = {s=r.s; cas=r.cas} };
|
||||
|
||||
-- Prepositions
|
||||
|
||||
-- The commonest cases are functions with Genitive.
|
||||
nullPrep : Complement = mkPrep [] Gen; --{s = []; c= GenC};
|
||||
|
||||
-- A preposition is formed from a string and a case.
|
||||
|
||||
mkPrep : Str -> Case -> Complement;
|
||||
mkPrep s c = mkCompl s c;
|
||||
|
||||
-- definitions for structural objects
|
||||
|
||||
kuris = mkPronXis "kuris" ;
|
||||
koks = mkPronXs "koks" ; -- jaki
|
||||
toks = mkPronXs "toks" ; -- taki
|
||||
|
||||
visi : NounPhrase = {
|
||||
nom = "visi" ;
|
||||
voc = "visi" ;
|
||||
dep = table {
|
||||
AccC => "visus";
|
||||
GenC => "visų";
|
||||
InsC => "visais";
|
||||
DatC => "visiems";
|
||||
LocC => "visuose"
|
||||
};
|
||||
p = P3 ;
|
||||
gn = MascPl ; -- in fact it is plurale tantum ver. 3 ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- wszystko
|
||||
viskas : NounPhrase = {
|
||||
nom = "viskas" ;
|
||||
voc = "viskas" ; -- does not exist
|
||||
dep = table {
|
||||
GenC => "visko";
|
||||
DatC => "viskam";
|
||||
AccC => "viską";
|
||||
InsC => "viskuo";
|
||||
LocC => "viskame"
|
||||
};
|
||||
p = P3;
|
||||
gn = Neut ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- ktos : NounPhrase = {
|
||||
kazkasAnim : NounPhrase = {
|
||||
nom = "kažkas" ;
|
||||
voc = "kažkas" ; -- does not exist
|
||||
dep = table {
|
||||
GenC => "kažko";
|
||||
DatC => "kažkam";
|
||||
AccC => "kažką";
|
||||
InsC => "kažkuo";
|
||||
LocC => "kažkame"
|
||||
};
|
||||
p = P3 ;
|
||||
gn = MascSg ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- cos : NounPhrase = {
|
||||
kazkas : NounPhrase = {
|
||||
nom = "kažkas" ;
|
||||
voc = "kažkas" ; -- does not exist
|
||||
dep = table {
|
||||
GenC => "kažko";
|
||||
DatC => "kažkam";
|
||||
AccC => "kažką";
|
||||
InsC => "kažkuo";
|
||||
LocC => "kažkame"
|
||||
};
|
||||
p = P3 ;
|
||||
gn = Neut ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
|
||||
-- kto : NounPhrase = {
|
||||
kasAnim : NounPhrase = {
|
||||
nom = "kas" ;
|
||||
voc = "kas" ;
|
||||
dep = table {
|
||||
GenC => "ko";
|
||||
DatC => "kam";
|
||||
AccC => "ką";
|
||||
InsC => "kuo";
|
||||
LocC => "kame"
|
||||
};
|
||||
p = P3 ;
|
||||
gn = MascSg ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- co : NounPhrase = {
|
||||
kas : NounPhrase = {
|
||||
nom = "kas" ;
|
||||
voc = "kas" ;
|
||||
dep = table {
|
||||
GenC => "ko";
|
||||
DatC => "kam";
|
||||
AccC => "ką";
|
||||
InsC => "kuo";
|
||||
LocC => "kame"
|
||||
};
|
||||
p = P3 ;
|
||||
gn = Neut ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- kazdyDet : Determiner = {
|
||||
-- Neut should not exist
|
||||
kiekvienasDet : Determiner = {
|
||||
s = table {
|
||||
Nom => table {SingPlur Masc => "kiekvienas"; SingPlur Fem => "kiekviena"; _ => "kiekvienas" };
|
||||
Acc => table {SingPlur Masc => "kiekvieną"; SingPlur Fem => "kiekvieną"; _ => "kiekvieną" };
|
||||
Gen => table {SingPlur Masc => "kiekvieno"; SingPlur Fem => "kiekvienos"; _ => "kiekvieno" };
|
||||
Ins => table {SingPlur Masc => "kiekvienu"; SingPlur Fem => "kiekviena"; _ => "kiekvienu" };
|
||||
Dat => table {SingPlur Masc => "kiekvienam"; SingPlur Fem => "kiekvienai"; _ => "kiekvienam" };
|
||||
Loc => table {SingPlur Masc => "kiekviename"; SingPlur Fem => "kiekvienoje"; _ => "kiekviename" };
|
||||
VocL => table {SingPlur Masc => "kiekvienas"; SingPlur Fem => "kiekviena"; _ => "kiekvienas" }
|
||||
};
|
||||
detType=NormalDet ;
|
||||
nb = Sg;
|
||||
numAgr = AgrComb;
|
||||
};
|
||||
|
||||
-- pareDet : Determiner = {
|
||||
keletasDet : Determiner = {
|
||||
s = table {
|
||||
Nom => table {_ => "keletas" };
|
||||
Acc => table {_ => "keletą" };
|
||||
Gen => table {_ => "keleto" };
|
||||
Ins => table {_ => "keletu" };
|
||||
Dat => table {_ => "keletam" };
|
||||
Loc => table {_ => "keletame" };
|
||||
VocL => table {_ => "keletas" }
|
||||
};
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
-- wieleDet : Determiner = {
|
||||
daugybeDet : Determiner = {
|
||||
s = table {
|
||||
Nom => table { _ => "daugybė" };
|
||||
Acc => table { _ => "daugybę" };
|
||||
Gen => table { _ => "daugybės" };
|
||||
Ins => table { _ => "daugybe" };
|
||||
Dat => table { _ => "daugybei" };
|
||||
Loc => table { _ => "daugybėje" };
|
||||
VocL => table { _ => "daugybe" }
|
||||
};
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
-- duzoDet : Determiner = {
|
||||
daugDet : Determiner = {
|
||||
s = \\_,_=>"daug";
|
||||
-- daug vandens...
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
-- ileDet : IDeterminer = {
|
||||
koksKiekisDet : IDeterminer = {
|
||||
s = table {
|
||||
Nom => table { _ => "koks kiekis" };
|
||||
Acc => table { _ => "kokį kiekį" };
|
||||
Gen => table { _ => "kokio kiekio" };
|
||||
Ins => table { _ => "kokiu kiekiu" };
|
||||
Dat => table { _ => "kokiam kiekam" };
|
||||
Loc => table { _ => "kokiame kiekyje" };
|
||||
VocL => table { _ => "koks kiekis" }
|
||||
};
|
||||
detType=NormalDet ;
|
||||
nb = Sg;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
kiekDet : IDeterminer = {
|
||||
s = \\_,_=>"kiek";
|
||||
-- kiek vandens...
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
|
||||
-- for "nobody", "noone", "none"
|
||||
-- oper niktNP : NounPhrase =
|
||||
oper niekasAnimNP : NounPhrase =
|
||||
{ voc,nom="niekas";
|
||||
dep = table {
|
||||
GenC => "nieko";
|
||||
DatC => "niekam";
|
||||
AccC => "nieką";
|
||||
InsC => "niekuo";
|
||||
LocC => "niekame"
|
||||
};
|
||||
p=P3;
|
||||
gn= MascSg ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
-- for "nothing"
|
||||
-- oper nicNP : NounPhrase =
|
||||
oper niekasNP : NounPhrase =
|
||||
{ voc,nom="niekas";
|
||||
dep = table {
|
||||
GenC => "nieko";
|
||||
DatC => "niekam";
|
||||
AccC => "nieką";
|
||||
InsC => "niekuo";
|
||||
LocC => "niekame"
|
||||
};
|
||||
p=P3;
|
||||
gn= Neut ;
|
||||
nomType = Pro
|
||||
};
|
||||
|
||||
joksQuant = mkPronXs "joks";
|
||||
|
||||
-- Nesu tikras ar tai geriausias vertimas (someSg)
|
||||
-- Neutre à supprimer
|
||||
kazkiekDet : Determiner = {
|
||||
s = \\_,_=>"kažkiek";
|
||||
-- kažkiek vandens...
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = GenComb
|
||||
};
|
||||
|
||||
-- Nesu tikras ar tai geriausias vertimas (somePl)
|
||||
-- Keleri Avec
|
||||
keliDet : Determiner = {
|
||||
s = table {
|
||||
Nom => table { SingPlur Masc => "keli"; SingPlur Fem=>"kelios"; _ => "keli" };
|
||||
Acc => table { SingPlur Masc => "kelis"; SingPlur Fem=>"kelias"; _ => "kelis" };
|
||||
Gen => table { SingPlur Masc => "kelių"; SingPlur Fem=>"kelių"; _ => "kelių" };
|
||||
Ins => table { SingPlur Masc => "keliais"; SingPlur Fem=>"keliomis"; _=> "keliais" };
|
||||
Dat => table { SingPlur Masc => "keliems"; SingPlur Fem=>"kelioms"; _ => "keliems" };
|
||||
Loc => table { SingPlur Masc => "keliuose"; SingPlur Fem=>"keliose"; _=> "keliuose" };
|
||||
VocL => table {SingPlur Masc => "keli"; SingPlur Fem=>"kelios"; _ => "keli" }
|
||||
};
|
||||
detType=NormalDet ;
|
||||
nb = Pl;
|
||||
numAgr = AgrComb
|
||||
};
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user