diff --git a/src/latvian/DocumentationLav.gf b/src/latvian/DocumentationLav.gf index e73ab988a..1934e5d8f 100644 --- a/src/latvian/DocumentationLav.gf +++ b/src/latvian/DocumentationLav.gf @@ -139,13 +139,6 @@ lin InflectionA, InflectionA2 = \adj -> { tr (th "Loc" ++ td (adj.s ! AAdj Compar Def Masc Sg Loc) ++ td (adj.s ! AAdj Compar Def Masc Pl Loc) ++ td (adj.s ! AAdj Compar Def Fem Sg Nom) ++ td (adj.s ! AAdj Compar Def Fem Pl Nom)) ++ tr (th "Voc" ++ td (adj.s ! AAdj Compar Def Masc Sg Voc) ++ td (adj.s ! AAdj Compar Def Masc Pl Voc) ++ td (adj.s ! AAdj Compar Def Fem Sg Nom) ++ td (adj.s ! AAdj Compar Def Fem Pl Nom)) ++ intagAttr "th" "colspan=\"6\"" "Superlative" ++ - tr (intagAttr "th" "rowspan=\"6\"" "Indef" ++ - th "Nom" ++ td (adj.s ! AAdj Superl Indef Masc Sg Nom) ++ td (adj.s ! AAdj Superl Indef Masc Pl Nom) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ - tr (th "Acc" ++ td (adj.s ! AAdj Superl Indef Masc Sg Acc) ++ td (adj.s ! AAdj Superl Indef Masc Pl Acc) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ - tr (th "Dat" ++ td (adj.s ! AAdj Superl Indef Masc Sg Dat) ++ td (adj.s ! AAdj Superl Indef Masc Pl Dat) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ - tr (th "Gen" ++ td (adj.s ! AAdj Superl Indef Masc Sg Gen) ++ td (adj.s ! AAdj Superl Indef Masc Pl Gen) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ - tr (th "Loc" ++ td (adj.s ! AAdj Superl Indef Masc Sg Loc) ++ td (adj.s ! AAdj Superl Indef Masc Pl Loc) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ - tr (th "Voc" ++ td (adj.s ! AAdj Superl Indef Masc Sg Voc) ++ td (adj.s ! AAdj Superl Indef Masc Pl Voc) ++ td (adj.s ! AAdj Superl Indef Fem Sg Nom) ++ td (adj.s ! AAdj Superl Indef Fem Pl Nom)) ++ tr (intagAttr "th" "rowspan=\"6\"" "Def" ++ th "Nom" ++ td (adj.s ! AAdj Superl Def Masc Sg Nom) ++ td (adj.s ! AAdj Superl Def Masc Pl Nom) ++ td (adj.s ! AAdj Superl Def Fem Sg Nom) ++ td (adj.s ! AAdj Superl Def Fem Pl Nom)) ++ tr (th "Acc" ++ td (adj.s ! AAdj Superl Def Masc Sg Acc) ++ td (adj.s ! AAdj Superl Def Masc Pl Acc) ++ td (adj.s ! AAdj Superl Def Fem Sg Nom) ++ td (adj.s ! AAdj Superl Def Fem Pl Nom)) ++ diff --git a/src/latvian/ParadigmsAdjectivesLav.gf b/src/latvian/ParadigmsAdjectivesLav.gf index 8cc5cf9ad..30c746663 100644 --- a/src/latvian/ParadigmsAdjectivesLav.gf +++ b/src/latvian/ParadigmsAdjectivesLav.gf @@ -31,7 +31,7 @@ oper -- Indeclinable adjective: theoretically, any #vowel ending mkAdjective_Indecl : Str -> Adjective = \lemma -> { s = table{ - AAdj Superl Indef _ _ _ => NON_EXISTENT ; + AAdj Superl Indef _ _ _ => nonExist ; AAdj _ _ _ _ _ => lemma ; AAdv d => mkAdjective_Adverb lemma ! d-- TODO - notestēt šādu keisu } @@ -43,7 +43,7 @@ oper 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 ; + AAdj Superl Indef _ _ _ => nonExist ; AAdv d => mkAdjective_Adverb lemma ! d } } ;