msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge remote-tracking branch 'origin/latvian-new' into latvian-new

Browse Source
This commit is contained in:
lauma
2025-10-25 01:01:50 +03:00
parent 2adce20f76 842747b407
commit f6187834c4
332 changed files with 108206 additions and 1969 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/latvian/AdverbLav.gf
+1 -1
View File
@@ -43,7 +43,7 @@ lin
AdnCAdv cadv = {
s = case cadv.deg of {
Posit => cadv.s ++ cadv.prep ;
_ => NON_EXISTENT
_ => nonExist
}
} ;
src/latvian/CatLav.gf
+1 -1
View File
@@ -112,7 +112,7 @@ lincat
PN,LN = ProperNoun ;
GN = {s : Case => Str ; gend : Gender} ;
SN = {s : Sex => Case => Str; pl : Case => Str} ;
SN = {s : Gender => Case => Str; pl : Case => Str} ;
-- Overriden from CommonX
src/latvian/DocumentationLav.gf
+6 -6
View File
@@ -93,12 +93,12 @@ lin InflectionSN = \pn -> {
t = "ln" ;
s1 = heading1 "Family Name" ;
s2 = frameTable (
tr (th "Nom" ++ td (pn.s ! Male ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Male ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Male ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Male ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Male ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Male ! Voc))) ;
tr (th "Nom" ++ td (pn.s ! Masc ! Nom)) ++
tr (th "Acc" ++ td (pn.s ! Masc ! Acc)) ++
tr (th "Dat" ++ td (pn.s ! Masc ! Dat)) ++
tr (th "Gen" ++ td (pn.s ! Masc ! Gen)) ++
tr (th "Loc" ++ td (pn.s ! Masc ! Loc)) ++
tr (th "Voc" ++ td (pn.s ! Masc ! Voc))) ;
s3=[]
} ;
src/latvian/GrammarLav.gf
+3 -1
View File
@@ -14,7 +14,9 @@ concrete GrammarLav of Grammar =
TextX - [Adv,CAdv],
StructuralLav,
IdiomLav,
TenseX - [Adv,CAdv]
TenseX - [Adv,CAdv],
NamesLav
** {
flags
src/latvian/IdiomLav.gf
+2 -2
View File
@@ -57,7 +57,7 @@ lin
} ;
-- FIXME: placeholder
CleftNP np rs = { s = \\_,_ => NON_EXISTENT } ;
CleftAdv ad s = { s = \\_,_ => NON_EXISTENT } ;
CleftNP np rs = { s = \\_,_ => nonExist } ;
CleftAdv ad s = { s = \\_,_ => nonExist } ;
}
src/latvian/NamesLav.gf
+49
View File
@@ -0,0 +1,49 @@
concrete NamesLav of Names = CatLav ** open Prelude, ResLav in {
lin
GivenName gn = {
s = gn.s ;
agr = AgrP3 Sg gn.gend ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
MaleSurname sn = {
s = sn.s ! Masc ;
agr = AgrP3 Sg Masc ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
FemaleSurname sn = {
s = sn.s ! Fem ;
agr = AgrP3 Sg Fem ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
PlSurname sn = {
s = sn.pl ;
agr = AgrP3 Pl Masc ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
FullName gn sn = {
s = \\c => gn.s ! c ++ sn.s ! gn.gend ! c ;
agr = AgrP3 Sg gn.gend ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
lin
UseLN, PlainLN = \ln -> {
s = ln.s ;
agr = AgrP3 ln.num ln.gend ;
pol = Pos ;
isRel = False ;
isPron = False
} ;
}
src/latvian/ParadigmsAdjectivesLav.gf
+3 -3
View File
@@ -8,7 +8,7 @@ oper
-- ADJECTIVES
-- TODO: Parameters and paradigms should be redesigned due to the many NON_EXISTENT forms..?
-- TODO: Parameters and paradigms should be redesigned due to the many nonExist forms..?
-- To keep the code and user interface (parameters) simple, Masc lemmas are expected.
@@ -56,7 +56,7 @@ oper
s + "ais" => mkAdjective_Pos lemma Def ! g ! n ! c ;
_ => mkAdjective_Pos lemma Indef ! g ! n ! c
} ;
AAdj _ _ _ _ _ => NON_EXISTENT ;
AAdj _ _ _ _ _ => nonExist ;
AAdv d => mkAdjective_Adverb lemma ! d
}
};
@@ -69,7 +69,7 @@ oper
mkAdjective_Participle : Verb -> Voice -> Adjective = \v,p -> {
s = table {
AAdj Posit Indef g n c => v.s ! Pos ! (VPart p g n c) ;
_ => NON_EXISTENT
_ => nonExist
}
};
src/latvian/ParadigmsLav.gf
+2 -2
View File
@@ -65,8 +65,8 @@ oper
mkSN = overload {
mkSN : Str -> SN = \s -> lin SN {s = \\_ => (mkProperNoun s Sg).s; pl = (mkProperNoun s Sg).s}; -- default gender utrum
mkSN : Str -> Str -> Str -> SN =
\male,female,pl -> lin SN {s = table {Male => (mkProperNoun male Sg).s;
Female => (mkProperNoun female Sg).s} ;
\male,female,pl -> lin SN {s = table {Masc => (mkProperNoun male Sg).s;
Fem => (mkProperNoun female Sg).s} ;
pl = (mkProperNoun pl Sg).s
} ;
} ;
src/latvian/ParadigmsNounsLav.gf
+5 -5
View File
@@ -259,7 +259,7 @@ oper
in {
s = table {
Sg => case stem of {
#exception_D6 => \\_ => NON_EXISTENT ;
#exception_D6 => \\_ => nonExist ;
_ => table {
Nom => stem + "s" ;
Gen => stem + "s" ;
@@ -290,17 +290,17 @@ oper
Sg => table {
Nom => stem + "šanās" ;
Gen => stem + "šanās" ;
Dat => NON_EXISTENT ;
Dat => nonExist ;
Acc => stem + "šanos" ;
Loc => NON_EXISTENT ;
Loc => nonExist ;
Voc => stem + "šanās"
} ;
Pl => table {
Nom => stem + "šanās" ;
Gen => stem + "šanos" ;
Dat => NON_EXISTENT ;
Dat => nonExist ;
Acc => stem + "šanās" ;
Loc => NON_EXISTENT ;
Loc => nonExist ;
Voc => stem + "šanās"
}
} ;
src/latvian/ParadigmsPronounsLav.gf
+11 -11
View File
@@ -17,7 +17,7 @@ oper
Dat => "man" ;
Acc => "mani" ;
Loc => "manī" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
agr = AgrP1 Sg gend ;
poss = table {
@@ -68,7 +68,7 @@ oper
Dat => "mums" ;
Acc => "mūs" ;
Loc => "mūsos" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
agr = AgrP1 Pl gend ;
poss = \\_,_,_ => "mūsu" ;
@@ -188,7 +188,7 @@ oper
Dat => stem + "am" ;
Acc => stem + "u" ;
Loc => stem + "ā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => table {
Nom => stem + "i" ;
@@ -196,7 +196,7 @@ oper
Dat => stem + "iem" ;
Acc => stem + "us" ;
Loc => stem + "os" ;
Voc => NON_EXISTENT
Voc => nonExist
}
} ;
Fem => table {
@@ -206,7 +206,7 @@ oper
Dat => stem + "ai" ;
Acc => stem + "u" ;
Loc => stem + "ā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => table {
Nom => stem + "as" ;
@@ -214,7 +214,7 @@ oper
Dat => stem + "ām" ;
Acc => stem + "as" ;
Loc => stem + "ās" ;
Voc => NON_EXISTENT
Voc => nonExist
}
}
} ;
@@ -236,7 +236,7 @@ oper
Dat => stem + suff1 + "m" ;
Acc => stem + "o" ;
Loc => stem + "ajā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => table {
Nom => stem + "ie" ;
@@ -244,7 +244,7 @@ oper
Dat => stem + "iem" ;
Acc => stem + "os" ;
Loc => stem + "ajos" ;
Voc => NON_EXISTENT
Voc => nonExist
}
} ;
Fem => table {
@@ -254,7 +254,7 @@ oper
Dat => stem + "ai" ;
Acc => stem + "o" ;
Loc => stem + "ajā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => table {
Nom => stem + suff2 + "s" ;
@@ -262,7 +262,7 @@ oper
Dat => stem + suff2 + "m" ;
Acc => stem + suff2 + "s" ;
Loc => stem + "ajās" ;
Voc => NON_EXISTENT
Voc => nonExist
}
}
} ;
@@ -278,7 +278,7 @@ oper
Dat => case stem of { "kaut" => stem ++ "kam" ; _ => stem + "kam" } ;
Acc => case stem of { "kaut" => stem ++ "ko" ; _ => stem + "ko" } ;
Loc => case stem of { "kaut" => stem ++ "kur" ; _ => stem + "kur" } ;
Voc => NON_EXISTENT
Voc => nonExist
} ! c ;
agr = AgrP3 Sg Masc ;
poss = \\_,_,_ => case stem of { "kaut" => stem ++ "kā" ; _ => stem + "kā" } ;
src/latvian/ParadigmsVerbsLav.gf
+41 -41
View File
@@ -56,8 +56,8 @@ oper
filter_Neg : Verb_TMP -> Verb_TMP = \full -> {
s = table {
VDeb => NON_EXISTENT ;
VDebRel => NON_EXISTENT ;
VDeb => nonExist ;
VDebRel => nonExist ;
x => full.s ! x
}
} ;
@@ -98,8 +98,8 @@ oper
VRel Pres => stem2 + "ot" ;
VRel Fut => pal_C1_1 stem3 stem1 + "šot" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => "jā" + stem2 ;
VDebRel => "jā" + stem2 + "ot" ;
@@ -144,8 +144,8 @@ oper
VRel Pres => stem + "jot" ;
VRel Fut => stem + "šot" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => "jā" + stem ;
VDebRel => "jā" + stem + "jot" ;
@@ -190,8 +190,8 @@ oper
VRel Pres => pal_C3_1 stem + "ot" ;
VRel Fut => stem + "šot" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => pal_C3_3 stem ;
VDebRel => pal_C3_3 stem + "ot" ;
@@ -240,8 +240,8 @@ oper
VRel Pres => stem2 + "oties" ;
VRel Fut => pal_C1_1 stem3 stem1 + "šoties" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => "jā" + stem2 + "as" ;
VDebRel => "jā" + stem2 + "oties" ;
@@ -286,8 +286,8 @@ oper
VRel Pres => stem + "joties" ;
VRel Fut => stem + "šoties" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => "jā" + stem + "jas" ;
VDebRel => "jā" + stem + "joties" ;
@@ -332,8 +332,8 @@ oper
VRel Pres => pal_C3_1 stem + "oties" ;
VRel Fut => stem + "šoties" ;
VRel Past => NON_EXISTENT ;
VRel Cond => NON_EXISTENT ;
VRel Past => nonExist ;
VRel Cond => nonExist ;
VDeb => pal_C3_6 stem + "s" ;
VDebRel => pal_C3_6 stem + "oties" ;
@@ -374,8 +374,8 @@ oper
VInd P2 Sg Pres => "neesi" ;
VInd P3 _ Pres => "nav" ;
VDeb => NON_EXISTENT ;
VDebRel => NON_EXISTENT ;
VDeb => nonExist ;
VDebRel => nonExist ;
x => (mkVerb_C1 "nebūt" "neesu" "nebiju").s ! x -- the incorrect 'neesu' will be overriden
}
@@ -394,8 +394,8 @@ oper
} ;
Neg => table {
VInd P3 _ Pres => "ne" + pref + "iet" ;
VDeb => NON_EXISTENT ;
VDebRel => NON_EXISTENT ;
VDeb => nonExist ;
VDebRel => nonExist ;
x => (mkVerb_C1 ("ne" + pref + "iet") ("ne" + pref + "eju") ("ne" + pref + "gāju")).s ! x
}
} ;
@@ -424,9 +424,9 @@ oper
VRel Pres => (mkVerb_C3 "neguļēt").s ! VRel Pres ;
VDeb => NON_EXISTENT ;
VDeb => nonExist ;
VDebRel => NON_EXISTENT ;
VDebRel => nonExist ;
x => (mkVerb_C3 "negulēt").s ! x
}
@@ -559,7 +559,7 @@ oper
Dat => stem + "ušam" ;
Acc => stem + "ušu" ;
Loc => stem + "ušā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => case c of {
Nom => stem + "uši" ;
@@ -567,7 +567,7 @@ oper
Dat => stem + "ušiem" ;
Acc => stem + "ušus" ;
Loc => stem + "ušos" ;
Voc => NON_EXISTENT
Voc => nonExist
}
} ;
Fem => case n of {
@@ -577,7 +577,7 @@ oper
Dat => stem + "ušai" ;
Acc => stem + "ušu" ;
Loc => stem + "ušā" ;
Voc => NON_EXISTENT
Voc => nonExist
} ;
Pl => case c of {
Nom => stem + "ušas" ;
@@ -585,7 +585,7 @@ oper
Dat => stem + "ušām" ;
Acc => stem + "ušas" ;
Loc => stem + "ušās" ;
Voc => NON_EXISTENT
Voc => nonExist
}
}
} ;
@@ -599,7 +599,7 @@ oper
Dat => stem + "tam" ;
Acc => stem + "tu" ;
Loc => stem + "tā" ;
Voc => NON_EXISTENT -- FIXME: -tais ?
Voc => nonExist -- FIXME: -tais ?
} ;
Pl => case c of {
Nom => stem + "ti" ;
@@ -607,7 +607,7 @@ oper
Dat => stem + "tiem" ;
Acc => stem + "tus" ;
Loc => stem + "tos" ;
Voc => NON_EXISTENT -- FIXME: -tie ?
Voc => nonExist -- FIXME: -tie ?
}
} ;
Fem => case n of {
@@ -617,7 +617,7 @@ oper
Dat => stem + "tai" ;
Acc => stem + "tu" ;
Loc => stem + "tā" ;
Voc => NON_EXISTENT -- FIXME: -tā ?
Voc => nonExist -- FIXME: -tā ?
} ;
Pl => case c of {
Nom => stem + "tas" ;
@@ -625,7 +625,7 @@ oper
Dat => stem + "tām" ;
Acc => stem + "tas" ;
Loc => stem + "tās" ;
Voc => NON_EXISTENT -- FIXME: -tās ?
Voc => nonExist -- FIXME: -tās ?
}
}
} ;
@@ -635,37 +635,37 @@ oper
Masc => case n of {
Sg => case c of {
Nom => stem + "ies" ;
Gen => NON_EXISTENT ;
Dat => NON_EXISTENT ;
Gen => nonExist ;
Dat => nonExist ;
Acc => stem + "ušos" ;
Loc => NON_EXISTENT ;
Voc => NON_EXISTENT
Loc => nonExist ;
Voc => nonExist
} ;
Pl => case c of {
Nom => stem + "ušies" ;
Gen => stem + "ušos" ;
Dat => NON_EXISTENT ;
Dat => nonExist ;
Acc => stem + "ušos" ;
Loc => NON_EXISTENT ;
Voc => NON_EXISTENT
Loc => nonExist ;
Voc => nonExist
}
} ;
Fem => case n of {
Sg => case c of {
Nom => stem + "usies" ;
Gen => stem + "ušās" ;
Dat => NON_EXISTENT ;
Dat => nonExist ;
Acc => stem + "ušos" ;
Loc => NON_EXISTENT ;
Voc => NON_EXISTENT
Loc => nonExist ;
Voc => nonExist
} ;
Pl => case c of {
Nom => stem + "ušās" ;
Gen => stem + "ušos" ;
Dat => NON_EXISTENT ;
Dat => nonExist ;
Acc => stem + "ušos" ;
Loc => NON_EXISTENT ;
Voc => NON_EXISTENT
Loc => nonExist ;
Voc => nonExist
}
}
} ;
src/latvian/RelativeLav.gf
+1 -1
View File
@@ -63,7 +63,7 @@ lin
Dat => "kam" ;
Acc => "ko" ;
Loc => "kur" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
}
} ;
src/latvian/ResLav.gf
-2
View File
@@ -160,6 +160,4 @@ oper
prefix : pattern Str = #("aiz"|"ap"|"at"|"ie"|"iz"|"no"|"pa"|"pār"|"pie"|"sa"|"uz") ;
NON_EXISTENT : Str = "NON_EXISTENT" ;
}
src/latvian/SentenceLav.gf
+2 -4
View File
@@ -18,8 +18,7 @@ lin
ImpVP vp = { s = \\pol,num => vp.v.s ! pol ! (VImp num) ++ vp.compl ! (AgrP2 num Masc) } ;
SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ;
-- FIX ME tmp comment
SlashVP np vp = mkClause np (lin VP vp) ** { prep = vp.rightVal } ;
AdvSlash slash adv = {
s = \\m,p => slash.s ! m ! p ++ adv.s ;
@@ -62,8 +61,7 @@ lin
UseSlash t p slash = { s = t.s ++ p.s ++ slash.s ! (Ind t.a t.t) ! p.p ; prep = slash.prep } ;
-- FIXME: placeholder
AdvS a s = { s = NON_EXISTENT } ;
AdvS a s = { s = a.s ++ s.s } ;
oper
-- TODO: PassV2 verbs jāsaskaņo ar objektu, nevis subjektu (by8means_Prep: AgP3 Sg Masc)
src/latvian/StructuralLav.gf
+6 -6
View File
@@ -176,7 +176,7 @@ lin
Dat => "kuram" ;
Acc => "kuru" ;
Loc => "kurā" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
} ;
num = Sg
} ;
@@ -188,7 +188,7 @@ lin
Dat => "kuriem" ;
Acc => "kurus" ;
Loc => "kuros" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
} ;
num = Pl
} ;
@@ -200,7 +200,7 @@ lin
Dat => "kam" ;
Acc => "ko" ;
Loc => "kur" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
} ;
num = Sg
} ;
@@ -212,7 +212,7 @@ lin
Dat => "kam" ;
Acc => "ko" ;
Loc => "kur" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
} ;
num = Pl
} ;
@@ -271,12 +271,12 @@ lin
oper
reflPron : Case => Str = table {
Nom => NON_EXISTENT ;
Nom => nonExist ;
Gen => "sevis" ;
Dat => "sev" ;
Acc => "sevi" ;
Loc => "sevī" ;
ResLav.Voc => NON_EXISTENT
ResLav.Voc => nonExist
} ;
lai_Subj = ss "lai" ;
src/latvian/VerbLav.gf
+1 -1
View File
@@ -329,7 +329,7 @@ oper
Ind Anter tense => (mkV "būt").s ! finalPol ! (VInd agr.pers agr.num tense) ++ part ; --# notpresent
-- FIXME(?): Rel _ Past => ...
Rel _ Past => NON_EXISTENT ; --# notpresent
Rel _ Past => nonExist ; --# notpresent
Rel Simul tense => v.s ! finalPol ! (VRel tense) ; --# notpresent
Rel Anter tense => (mkV "būt").s ! finalPol ! (VRel tense) ++ part ; --# notpresent