diff --git a/languages.csv b/languages.csv index b95c3ff6..3c191a1c 100644 --- a/languages.csv +++ b/languages.csv @@ -23,6 +23,7 @@ Heb,Hebrew,hebrew,,,,,n,n,,n,n Hin,Hindi,hindi,Hindustani,to_devanagari,y,,,,,y,n Hrv,Croatian,croatian,,,,,,y,,n,n Hun,Hungarian,hungarian,,,n,y,y,y,n,n,n +Hye,Armenian,armenian,,,,y,n,n,n,y,n Ice,Icelandic,icelandic,,,,,,n,,y,n Ina,Interlingua,interlingua,,,y,,n,n,,n,n Ita,Italian,italian,Romance,,y,,,,y,y,y diff --git a/src/armenian/AdjectiveHye.gf b/src/armenian/AdjectiveHye.gf new file mode 100644 index 00000000..ab87d3f9 --- /dev/null +++ b/src/armenian/AdjectiveHye.gf @@ -0,0 +1,4 @@ +concrete AdjectiveHye of Adjective = CatHye ** { +lin + PositA a = a ; +} diff --git a/src/armenian/AllHye.gf b/src/armenian/AllHye.gf new file mode 100644 index 00000000..b11b445a --- /dev/null +++ b/src/armenian/AllHye.gf @@ -0,0 +1,4 @@ +concrete AllHye of AllHyeAbs = + LangHye + ** + {} ; diff --git a/src/armenian/AllHyeAbs.gf b/src/armenian/AllHyeAbs.gf new file mode 100644 index 00000000..354987b7 --- /dev/null +++ b/src/armenian/AllHyeAbs.gf @@ -0,0 +1,3 @@ +abstract AllHyeAbs = + Lang + ** {} \ No newline at end of file diff --git a/src/armenian/CatHye.gf b/src/armenian/CatHye.gf new file mode 100644 index 00000000..374f2817 --- /dev/null +++ b/src/armenian/CatHye.gf @@ -0,0 +1,16 @@ +concrete CatHye of Cat = CommonX ** open ResHye in { + +lincat V = Verb ; +lincat VV,VS,VQ,VA = Verb ; +lincat V2 = Verb ** {c2 : Compl} ; +lincat V3,V2A,V2S,V2Q,V2V = Verb ** {c2,c3 : Compl} ; +lincat N = Noun ; +lincat N2 = Noun ** {c2 : Compl} ; +lincat N3 = Noun ** {c2,c3 : Compl} ; +lincat CN = Noun ; +lincat A = Adj ; +lincat A2 = Adj ** {c2 : Compl} ; +lincat AP = Adj ; +lincat Prep = Compl ; + +} diff --git a/src/armenian/DocumentationHye.gf b/src/armenian/DocumentationHye.gf new file mode 100644 index 00000000..855aeda7 --- /dev/null +++ b/src/armenian/DocumentationHye.gf @@ -0,0 +1,133 @@ +concrete DocumentationHye of Documentation = CatHye ** open + ResHye, Prelude, HTML in { + +lincat + Inflection = {t : Str; s1,s2,s3 : Str} ; + Definition = {s : Str} ; + Document = {s : Str} ; + Tag = {s : Str} ; + +lin + InflectionV,InflectionV2,InflectionV2A,InflectionV2Q,InflectionV2S,InflectionV2V,InflectionV3,InflectionVA,InflectionVQ,InflectionVS,InflectionVV = \x -> { + t="v" ; + s1="" ; + s2=heading1 "Infinitive" ++ + paragraph (x.s) ++ + heading1 "Converb" ++ + frameTable ( + tr (th "Imperfective" ++ td (x.Converb.Imperfective)) ++ + tr (th "Simultaneous" ++ td (x.Converb.Simultaneous)) ++ + tr (th "Perfective" ++ td (x.Converb.Perfective)) ++ + tr (th "Futute I" ++ td (x.Converb.FutCon1)) ++ + tr (th "Futute II" ++ td (x.Converb.FutCon2)) ++ + tr (th "Connegative" ++ td (x.Converb.Negative))) ++ + heading1 "Passive" ++ + paragraph x.Passive ++ + heading1 "Participle" ++ + frameTable ( + tr (th "Resultative" ++ td (x.Participle ! Resultative)) ++ + tr (th "Subject" ++ td (x.Participle ! Subject))) ++ + heading1 "Past" ++ + frameTable ( + tr (th "" ++ th "Sg" ++ th "Pl") ++ + tr (th "P1" ++ td (x.Past ! P1 ! Sg) ++ td (x.Past ! P1 ! Pl)) ++ + tr (th "P2" ++ td (x.Past ! P2 ! Sg) ++ td (x.Past ! P2 ! Pl)) ++ + tr (th "P3" ++ td (x.Past ! P3 ! Sg) ++ td (x.Past ! P3 ! Pl))) ++ + heading1 "Subjunctive" ++ + frameTable ( + tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++ + tr (intagAttr "th" "rowspan=\"3\"" "Perfect" ++ + th "P1" ++ td (x.Subjunctive ! Perfect ! P1 ! Sg) ++ td (x.Subjunctive ! Perfect ! P1 ! Pl)) ++ + tr (th "P2" ++ td (x.Subjunctive ! Perfect ! P2 ! Sg) ++ td (x.Subjunctive ! Perfect ! P2 ! Pl)) ++ + tr (th "P3" ++ td (x.Subjunctive ! Perfect ! P3 ! Sg) ++ td (x.Subjunctive ! Perfect ! P3 ! Pl)) ++ + tr (intagAttr "th" "rowspan=\"3\"" "Non_Past" ++ + th "P1" ++ td (x.Subjunctive ! Non_Past ! P1 ! Sg) ++ td (x.Subjunctive ! Non_Past ! P1 ! Pl)) ++ + tr (th "P2" ++ td (x.Subjunctive ! Non_Past ! P2 ! Sg) ++ td (x.Subjunctive ! Non_Past ! P2 ! Pl)) ++ + tr (th "P3" ++ td (x.Subjunctive ! Non_Past ! P3 ! Sg) ++ td (x.Subjunctive ! Non_Past ! P3 ! Pl))) ++ + heading1 "Conditional" ++ + frameTable ( + tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Sg" ++ th "Pl") ++ + tr (intagAttr "th" "rowspan=\"3\"" "Perfect" ++ + th "P1" ++ td (x.Conditional ! Perfect ! P1 ! Sg) ++ td (x.Conditional ! Perfect ! P1 ! Pl)) ++ + tr (th "P2" ++ td (x.Conditional ! Perfect ! P2 ! Sg) ++ td (x.Conditional ! Perfect ! P2 ! Pl)) ++ + tr (th "P3" ++ td (x.Conditional ! Perfect ! P3 ! Sg) ++ td (x.Conditional ! Perfect ! P3 ! Pl)) ++ + tr (intagAttr "th" "rowspan=\"4\"" "Non_Past" ++ + th "P1" ++ td (x.Conditional ! Non_Past ! P1 ! Sg) ++ td (x.Conditional ! Non_Past ! P1 ! Pl)) ++ + tr (th "P2" ++ td (x.Conditional ! Non_Past ! P2 ! Sg) ++ td (x.Conditional ! Non_Past ! P2 ! Pl)) ++ + tr (th "P3" ++ td (x.Conditional ! Non_Past ! P3 ! Sg) ++ td (x.Conditional ! Non_Past ! P3 ! Pl))) ++ + heading1 "Imperative" ++ + frameTable ( + tr (th "Sg" ++ th "Pl") ++ + tr (td (x.Imperative_Jussive ! Sg) ++ td (x.Imperative_Jussive ! Pl))) ; + s3=[] + } ; +lin + InflectionN,InflectionN2,InflectionN3 = \x -> { + t="n" ; + s1="" ; + s2=frameTable ( + tr (th "" ++ th "Sg" ++ th "Pl") ++ + tr (th "Nom" ++ td (x.s ! Nom ! Sg) ++ td (x.s ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.s ! Dat ! Sg) ++ td (x.s ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.s ! Ablat ! Sg) ++ td (x.s ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.s ! Loc ! Sg) ++ td (x.s ! Loc ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "definite forms") ++ + tr (th "Nom" ++ td (x.def_nom ! Sg) ++ td (x.def_nom ! Pl)) ++ + tr (th "Dat" ++ td (x.def_dat ! Sg) ++ td (x.def_dat ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "1st person possessive forms") ++ + tr (th "Nom" ++ td (x.poss1 ! Nom ! Sg) ++ td (x.poss1 ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.poss1 ! Dat ! Sg) ++ td (x.poss1 ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.poss1 ! Ablat ! Sg) ++ td (x.poss1 ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.poss1 ! Instr ! Sg) ++ td (x.poss1 ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.poss1 ! Loc ! Sg) ++ td (x.poss1 ! Loc ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "2nd person possessive forms") ++ + tr (th "Nom" ++ td (x.poss2 ! Nom ! Sg) ++ td (x.poss2 ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.poss2 ! Dat ! Sg) ++ td (x.poss2 ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.poss2 ! Ablat ! Sg) ++ td (x.poss2 ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.poss2 ! Instr ! Sg) ++ td (x.poss2 ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.poss2 ! Loc ! Sg) ++ td (x.poss2 ! Loc ! Pl))) ; + s3=[] + } ; +lin + InflectionA,InflectionA2 = \x -> { + t="a" ; + s1="" ; + s2=frameTable ( + tr (th "" ++ th "Sg" ++ th "Pl") ++ + tr (th "Nom" ++ td (x.s ! Nom ! Sg) ++ td (x.s ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.s ! Dat ! Sg) ++ td (x.s ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.s ! Ablat ! Sg) ++ td (x.s ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.s ! Loc ! Sg) ++ td (x.s ! Loc ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "definite forms") ++ + tr (th "Nom" ++ td (x.def_nom ! Sg) ++ td (x.def_nom ! Pl)) ++ + tr (th "Dat" ++ td (x.def_dat ! Sg) ++ td (x.def_dat ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "1st person possessive forms") ++ + tr (th "Nom" ++ td (x.poss1 ! Nom ! Sg) ++ td (x.poss1 ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.poss1 ! Dat ! Sg) ++ td (x.poss1 ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.poss1 ! Ablat ! Sg) ++ td (x.poss1 ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.poss1 ! Instr ! Sg) ++ td (x.poss1 ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.poss1 ! Loc ! Sg) ++ td (x.poss1 ! Loc ! Pl)) ++ + tr (intagAttr "th" "colspan=\"3\"" "2nd person possessive forms") ++ + tr (th "Nom" ++ td (x.poss2 ! Nom ! Sg) ++ td (x.poss2 ! Nom ! Pl)) ++ + tr (th "Dat" ++ td (x.poss2 ! Dat ! Sg) ++ td (x.poss2 ! Dat ! Pl)) ++ + tr (th "Ablat" ++ td (x.poss2 ! Ablat ! Sg) ++ td (x.poss2 ! Ablat ! Pl)) ++ + tr (th "Instr" ++ td (x.poss2 ! Instr ! Sg) ++ td (x.poss2 ! Instr ! Pl)) ++ + tr (th "Loc" ++ td (x.poss2 ! Loc ! Sg) ++ td (x.poss2 ! Loc ! Pl))) ; + s3=[] + } ; +lin + InflectionAdA,InflectionAdN,InflectionAdV,InflectionAdv = \x -> {t="adv"; s1=""; s2=x.s; s3=""} ; + + InflectionPrep = \x -> {t="prep"; s1=""; s2=x.s; s3=""} ; + +lin + NoDefinition t = {s=t.s}; + MkDefinition t d = {s="

Definition:"++t.s++d.s++"

"}; + MkDefinitionEx t d e = {s="

Definition:"++t.s++d.s++"

Example:"++e.s++"

"}; + +lin + MkDocument d i e = {s = i.s1 ++ d.s ++ i.s2 ++ i.s3 ++ e.s} ; + MkTag i = {s = i.t} ; +} diff --git a/src/armenian/GrammarHye.gf b/src/armenian/GrammarHye.gf new file mode 100644 index 00000000..e3abafd4 --- /dev/null +++ b/src/armenian/GrammarHye.gf @@ -0,0 +1,2 @@ +concrete GrammarHye of Grammar = TenseX ** { +} \ No newline at end of file diff --git a/src/armenian/LangHye.gf b/src/armenian/LangHye.gf new file mode 100644 index 00000000..34f07bae --- /dev/null +++ b/src/armenian/LangHye.gf @@ -0,0 +1,10 @@ +--# -path=.:../abstract +concrete LangHye of Lang = + GrammarHye, + LexiconHye + ,DocumentationHye --# notpresent + ** { + +flags startcat = Phr ; + +} \ No newline at end of file diff --git a/src/armenian/LexiconHye.gf b/src/armenian/LexiconHye.gf new file mode 100644 index 00000000..8e4aab26 --- /dev/null +++ b/src/armenian/LexiconHye.gf @@ -0,0 +1,2 @@ +concrete LexiconHye of Lexicon = CatHye ** open ParadigmsHye in { +} \ No newline at end of file diff --git a/src/armenian/MorphoHye.gf b/src/armenian/MorphoHye.gf new file mode 100644 index 00000000..747de9dc --- /dev/null +++ b/src/armenian/MorphoHye.gf @@ -0,0 +1,7506 @@ +resource MorphoHye = open CatHye, ResHye, Predef in { + +oper + +mkV001 : Str -> V ; +mkV001 base = + case base of { + base_1+"ել" => lin V + { s = base_1+"ել" ; + Causative = base_1+"եցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"եի" ; + Pl => "կ"+base_1+"եինք" + } ; + P2 => table { + Sg => "կ"+base_1+"եիր" ; + Pl => "կ"+base_1+"եիք" + } ; + P3 => table { + Sg => "կ"+base_1+"եր" ; + Pl => "կ"+base_1+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"եմ" ; + Pl => "կ"+base_1+"ենք" + } ; + P2 => table { + Sg => "կ"+base_1+"ես" ; + Pl => "կ"+base_1+"եք" + } ; + P3 => table { + Sg => "կ"+base_1+"ի" ; + Pl => "կ"+base_1+"են" + } + } + } ; + Converb = { Imperfective = base_1+"ում" ; + FutCon1 = base_1+"ելու" ; + FutCon2 = base_1+"ելիք" ; + Negative = base_1+"ի" ; + Perfective = base_1+"ել" ; + Simultaneous = base_1+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ի՛ր" ; + Pl => base_1+"ե՛ք" + } ; + Passive = base_1+"վել" ; + Past = table { + P1 => table { + Sg => base_1+"եցի" ; + Pl => base_1+"եցինք" + } ; + P2 => table { + Sg => base_1+"եցիր" ; + Pl => base_1+"եցիք" + } ; + P3 => table { + Sg => base_1+"եց" ; + Pl => base_1+"եցին" + } + } ; + Participle = table { + Resultative => base_1+"ած" ; + Subject => base_1+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"եի" ; + Pl => base_1+"եինք" + } ; + P2 => table { + Sg => base_1+"եիր" ; + Pl => base_1+"եիք" + } ; + P3 => table { + Sg => base_1+"եր" ; + Pl => base_1+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"եմ" ; + Pl => base_1+"ենք" + } ; + P2 => table { + Sg => base_1+"ես" ; + Pl => base_1+"եք" + } ; + P3 => table { + Sg => base_1+"ի" ; + Pl => base_1+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV001" + } ; + +mkV002 : Str -> V ; +mkV002 base = + case base of { + base_1+"ալ" => lin V + { s = base_1+"ալ" ; + Causative = base_1+"ացնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"այի" ; + Pl => "կ"+base_1+"այինք" + } ; + P2 => table { + Sg => "կ"+base_1+"այիր" ; + Pl => "կ"+base_1+"այիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ար" ; + Pl => "կ"+base_1+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"ամ" ; + Pl => "կ"+base_1+"անք" + } ; + P2 => table { + Sg => "կ"+base_1+"աս" ; + Pl => "կ"+base_1+"աք" + } ; + P3 => table { + Sg => "կ"+base_1+"ա" ; + Pl => "կ"+base_1+"ան" + } + } + } ; + Converb = { Imperfective = base_1+"ում" ; + FutCon1 = base_1+"ալու" ; + FutCon2 = base_1+"ալիք" ; + Negative = base_1+"ա" ; + Perfective = base_1+"ացել" ; + Simultaneous = base_1+"ալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ա՛" ; + Pl => base_1+"ացե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ացի" ; + Pl => base_1+"ացինք" + } ; + P2 => table { + Sg => base_1+"ացիր" ; + Pl => base_1+"ացիք" + } ; + P3 => table { + Sg => base_1+"աց" ; + Pl => base_1+"ացին" + } + } ; + Participle = table { + Resultative => base_1+"ացած" ; + Subject => base_1+"ացող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"այի" ; + Pl => base_1+"այինք" + } ; + P2 => table { + Sg => base_1+"այիր" ; + Pl => base_1+"այիք" + } ; + P3 => table { + Sg => base_1+"ար" ; + Pl => base_1+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"ամ" ; + Pl => base_1+"անք" + } ; + P2 => table { + Sg => base_1+"աս" ; + Pl => base_1+"աք" + } ; + P3 => table { + Sg => base_1+"ա" ; + Pl => base_1+"ան" + } + } + } + }; + _ => error "Can't apply paradigm mkV002" + } ; + +mkV003 : Str -> V ; +mkV003 base = + case base of { + base_1+"նել" => lin V + { s = base_1+"նել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նեի" ; + Pl => "կ"+base_1+"նեինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նեիր" ; + Pl => "կ"+base_1+"նեիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ներ" ; + Pl => "կ"+base_1+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նեմ" ; + Pl => "կ"+base_1+"նենք" + } ; + P2 => table { + Sg => "կ"+base_1+"նես" ; + Pl => "կ"+base_1+"նեք" + } ; + P3 => table { + Sg => "կ"+base_1+"նի" ; + Pl => "կ"+base_1+"նեն" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նելու" ; + FutCon2 = base_1+"նելիք" ; + Negative = base_1+"նի" ; + Perfective = base_1+"րել" ; + Simultaneous = base_1+"նելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"րո՛ւ" ; + Pl => base_1+"րե՛ք" + } ; + Passive = base_1+"վել" ; + Past = table { + P1 => table { + Sg => base_1+"րի" ; + Pl => base_1+"րինք" + } ; + P2 => table { + Sg => base_1+"րիր" ; + Pl => base_1+"րիք" + } ; + P3 => table { + Sg => base_1+"րեց" ; + Pl => base_1+"րին" + } + } ; + Participle = table { + Resultative => base_1+"րած" ; + Subject => base_1+"նող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նեի" ; + Pl => base_1+"նեինք" + } ; + P2 => table { + Sg => base_1+"նեիր" ; + Pl => base_1+"նեիք" + } ; + P3 => table { + Sg => base_1+"ներ" ; + Pl => base_1+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նեմ" ; + Pl => base_1+"նենք" + } ; + P2 => table { + Sg => base_1+"նես" ; + Pl => base_1+"նեք" + } ; + P3 => table { + Sg => base_1+"նի" ; + Pl => base_1+"նեն" + } + } + } + }; + _ => error "Can't apply paradigm mkV003" + } ; + +mkV004 : Str -> V ; +mkV004 base = + case base of { + base_1+"նալ" => lin V + { s = base_1+"նալ" ; + Causative = base_1+"ցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նայի" ; + Pl => "կ"+base_1+"նայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նայիր" ; + Pl => "կ"+base_1+"նայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"նար" ; + Pl => "կ"+base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նամ" ; + Pl => "կ"+base_1+"նանք" + } ; + P2 => table { + Sg => "կ"+base_1+"նաս" ; + Pl => "կ"+base_1+"նաք" + } ; + P3 => table { + Sg => "կ"+base_1+"նա" ; + Pl => "կ"+base_1+"նան" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նալու" ; + FutCon2 = base_1+"նալիք" ; + Negative = base_1+"նա" ; + Perfective = base_1+"ցել" ; + Simultaneous = base_1+"նալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ցի՛ր" ; + Pl => base_1+"ցե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ցա" ; + Pl => base_1+"ցանք" + } ; + P2 => table { + Sg => base_1+"ցար" ; + Pl => base_1+"ցաք" + } ; + P3 => table { + Sg => base_1+"ցավ" ; + Pl => base_1+"ցան" + } + } ; + Participle = table { + Resultative => base_1+"ցած" ; + Subject => base_1+"ցող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նայի" ; + Pl => base_1+"նայինք" + } ; + P2 => table { + Sg => base_1+"նայիր" ; + Pl => base_1+"նայիք" + } ; + P3 => table { + Sg => base_1+"նար" ; + Pl => base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նամ" ; + Pl => base_1+"նանք" + } ; + P2 => table { + Sg => base_1+"նաս" ; + Pl => base_1+"նաք" + } ; + P3 => table { + Sg => base_1+"նա" ; + Pl => base_1+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV004" + } ; + +mkV005 : Str -> V ; +mkV005 base = + case base of { + base_1+"ռնալ" => lin V + { s = base_1+"ռնալ" ; + Causative = base_1+"րձնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"ռնայի" ; + Pl => "կ"+base_1+"ռնայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"ռնայիր" ; + Pl => "կ"+base_1+"ռնայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ռնար" ; + Pl => "կ"+base_1+"ռնային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"ռնամ" ; + Pl => "կ"+base_1+"ռնանք" + } ; + P2 => table { + Sg => "կ"+base_1+"ռնաս" ; + Pl => "կ"+base_1+"ռնաք" + } ; + P3 => table { + Sg => "կ"+base_1+"ռնա" ; + Pl => "կ"+base_1+"ռնան" + } + } + } ; + Converb = { Imperfective = base_1+"ռնում" ; + FutCon1 = base_1+"ռնալու" ; + FutCon2 = base_1+"ռնալիք" ; + Negative = base_1+"ռնա" ; + Perfective = base_1+"րձել" ; + Simultaneous = base_1+"ռնալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"րձի՛ր" ; + Pl => base_1+"րձե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"րձեցի" ; + Pl => base_1+"րձեցինք" + } ; + P2 => table { + Sg => base_1+"րձեցիր" ; + Pl => base_1+"րձեցիք" + } ; + P3 => table { + Sg => base_1+"րձեց" ; + Pl => base_1+"րձեցին" + } + } ; + Participle = table { + Resultative => base_1+"րձած" ; + Subject => base_1+"րձող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"ռնայի" ; + Pl => base_1+"ռնայինք" + } ; + P2 => table { + Sg => base_1+"ռնայիր" ; + Pl => base_1+"ռնայիք" + } ; + P3 => table { + Sg => base_1+"ռնար" ; + Pl => base_1+"ռնային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"ռնամ" ; + Pl => base_1+"ռնանք" + } ; + P2 => table { + Sg => base_1+"ռնաս" ; + Pl => base_1+"ռնաք" + } ; + P3 => table { + Sg => base_1+"ռնա" ; + Pl => base_1+"ռնան" + } + } + } + }; + _ => error "Can't apply paradigm mkV005" + } ; + +mkV006 : Str -> V ; +mkV006 base = + case base of { + "երթալ" => lin V + { s = "երթալ" ; + Causative = "գնացնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կերթայի" ; + Pl => "կերթայինք" + } ; + P2 => table { + Sg => "կերթայիր" ; + Pl => "կերթայիք" + } ; + P3 => table { + Sg => "կերթար" ; + Pl => "կերթային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կերթամ" ; + Pl => "կերթանք" + } ; + P2 => table { + Sg => "կերթաս" ; + Pl => "կերթաք" + } ; + P3 => table { + Sg => "կերթա" ; + Pl => "կերթան" + } + } + } ; + Converb = { Imperfective = "երթում" ; + FutCon1 = "երթալու" ; + FutCon2 = "երթալիք" ; + Negative = "երթա" ; + Perfective = "գնացել" ; + Simultaneous = "երթալիս" + } ; + Imperative_Jussive = table { + Sg => "երթա՛" ; + Pl => "գնացե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => "գնացի" ; + Pl => "գնացինք" + } ; + P2 => table { + Sg => "գնացիր" ; + Pl => "գնացիք" + } ; + P3 => table { + Sg => "գնաց" ; + Pl => "գնացին" + } + } ; + Participle = table { + Resultative => "գնացած" ; + Subject => "գնացող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => "երթայի" ; + Pl => "երթայինք" + } ; + P2 => table { + Sg => "երթայիր" ; + Pl => "երթայիք" + } ; + P3 => table { + Sg => "երթար" ; + Pl => "երթային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "երթամ" ; + Pl => "երթանք" + } ; + P2 => table { + Sg => "երթաս" ; + Pl => "երթաք" + } ; + P3 => table { + Sg => "երթա" ; + Pl => "երթան" + } + } + } + }; + _ => error "Can't apply paradigm mkV006" + } ; + +mkV007 : Str -> V ; +mkV007 base = + case base of { + "էթալ" => lin V + { s = "էթալ" ; + Causative = "գնացնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կէթայի" ; + Pl => "կէթայինք" + } ; + P2 => table { + Sg => "կէթայիր" ; + Pl => "կէթայիք" + } ; + P3 => table { + Sg => "կէթար" ; + Pl => "կէթային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կէթամ" ; + Pl => "կէթանք" + } ; + P2 => table { + Sg => "կէթաս" ; + Pl => "կէթաք" + } ; + P3 => table { + Sg => "կէթա" ; + Pl => "կէթան" + } + } + } ; + Converb = { Imperfective = "էթում" ; + FutCon1 = "էթալու" ; + FutCon2 = "էթալիք" ; + Negative = "էթա" ; + Perfective = "գնացել" ; + Simultaneous = "էթալիս" + } ; + Imperative_Jussive = table { + Sg => "էթա՛" ; + Pl => "գնացե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => "գնացի" ; + Pl => "գնացինք" + } ; + P2 => table { + Sg => "գնացիր" ; + Pl => "գնացիք" + } ; + P3 => table { + Sg => "գնաց" ; + Pl => "գնացին" + } + } ; + Participle = table { + Resultative => "գնացած" ; + Subject => "գնացող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => "էթայի" ; + Pl => "էթայինք" + } ; + P2 => table { + Sg => "էթայիր" ; + Pl => "էթայիք" + } ; + P3 => table { + Sg => "էթար" ; + Pl => "էթային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "էթամ" ; + Pl => "էթանք" + } ; + P2 => table { + Sg => "էթաս" ; + Pl => "էթաք" + } ; + P3 => table { + Sg => "էթա" ; + Pl => "էթան" + } + } + } + }; + _ => error "Can't apply paradigm mkV007" + } ; + +mkV008 : Str -> V ; +mkV008 base = + case base of { + base_1+"նել" => lin V + { s = base_1+"նել" ; + Causative = base_1+"ցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նեի" ; + Pl => "կ"+base_1+"նեինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նեիր" ; + Pl => "կ"+base_1+"նեիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ներ" ; + Pl => "կ"+base_1+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նեմ" ; + Pl => "կ"+base_1+"նենք" + } ; + P2 => table { + Sg => "կ"+base_1+"նես" ; + Pl => "կ"+base_1+"նեք" + } ; + P3 => table { + Sg => "կ"+base_1+"նի" ; + Pl => "կ"+base_1+"նեն" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նելու" ; + FutCon2 = base_1+"նելիք" ; + Negative = base_1+"նի" ; + Perfective = base_1+"ել" ; + Simultaneous = base_1+"նելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ի՛ր" ; + Pl => base_1+"ե՛ք" + } ; + Passive = base_1+"նվել" ; + Past = table { + P1 => table { + Sg => base_1+"ա" ; + Pl => base_1+"անք" + } ; + P2 => table { + Sg => base_1+"ար" ; + Pl => base_1+"աք" + } ; + P3 => table { + Sg => base_1+"ավ" ; + Pl => base_1+"ան" + } + } ; + Participle = table { + Resultative => base_1+"ած" ; + Subject => base_1+"նող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նեի" ; + Pl => base_1+"նեինք" + } ; + P2 => table { + Sg => base_1+"նեիր" ; + Pl => base_1+"նեիք" + } ; + P3 => table { + Sg => base_1+"ներ" ; + Pl => base_1+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նեմ" ; + Pl => base_1+"նենք" + } ; + P2 => table { + Sg => base_1+"նես" ; + Pl => base_1+"նեք" + } ; + P3 => table { + Sg => base_1+"նի" ; + Pl => base_1+"նեն" + } + } + } + }; + _ => error "Can't apply paradigm mkV008" + } ; + +mkV009 : Str -> V ; +mkV009 base = + case base of { + "ըլնել" => lin V + { s = "ըլնել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կըլնեի" ; + Pl => "կըլնեինք" + } ; + P2 => table { + Sg => "կըլնեիր" ; + Pl => "կըլնեիք" + } ; + P3 => table { + Sg => "կըլներ" ; + Pl => "կըլնեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կըլնեմ" ; + Pl => "կըլնենք" + } ; + P2 => table { + Sg => "կըլնես" ; + Pl => "կըլնեք" + } ; + P3 => table { + Sg => "կըլնի" ; + Pl => "կըլնեն" + } + } + } ; + Converb = { Imperfective = "ըլնում" ; + FutCon1 = "ըլնելու" ; + FutCon2 = "ըլնելիք" ; + Negative = "ըլնի" ; + Perfective = "էղել" ; + Simultaneous = "ըլնելիս" + } ; + Imperative_Jussive = table { + Sg => "էղի՛ր" ; + Pl => "էղե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => "էղա" ; + Pl => "էղանք" + } ; + P2 => table { + Sg => "էղար" ; + Pl => "էղաք" + } ; + P3 => table { + Sg => "էղավ" ; + Pl => "էղան" + } + } ; + Participle = table { + Resultative => "էղած" ; + Subject => "ըլնող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => "ըլնեի" ; + Pl => "ըլնեինք" + } ; + P2 => table { + Sg => "ըլնեիր" ; + Pl => "ըլնեիք" + } ; + P3 => table { + Sg => "ըլներ" ; + Pl => "ըլնեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "ըլնեմ" ; + Pl => "ըլնենք" + } ; + P2 => table { + Sg => "ըլնես" ; + Pl => "ըլնեք" + } ; + P3 => table { + Sg => "ըլնի" ; + Pl => "ըլնեն" + } + } + } + }; + _ => error "Can't apply paradigm mkV009" + } ; + +mkV010 : Str -> V ; +mkV010 base = + case base of { + base_1+"նալ" => lin V + { s = base_1+"նալ" ; + Causative = base_1+"ցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նայի" ; + Pl => "կ"+base_1+"նայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նայիր" ; + Pl => "կ"+base_1+"նայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"նար" ; + Pl => "կ"+base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նամ" ; + Pl => "կ"+base_1+"նանք" + } ; + P2 => table { + Sg => "կ"+base_1+"նաս" ; + Pl => "կ"+base_1+"նաք" + } ; + P3 => table { + Sg => "կ"+base_1+"նա" ; + Pl => "կ"+base_1+"նան" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նալու" ; + FutCon2 = base_1+"նալիք" ; + Negative = base_1+"նա" ; + Perfective = base_1+"ցել" ; + Simultaneous = base_1+"նալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"՛" ; + Pl => base_1+"ցե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ցի" ; + Pl => base_1+"ցինք" + } ; + P2 => table { + Sg => base_1+"ցիր" ; + Pl => base_1+"ցիք" + } ; + P3 => table { + Sg => base_1+"ց" ; + Pl => base_1+"ցին" + } + } ; + Participle = table { + Resultative => base_1+"ցած" ; + Subject => base_1+"ցող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նայի" ; + Pl => base_1+"նայինք" + } ; + P2 => table { + Sg => base_1+"նայիր" ; + Pl => base_1+"նայիք" + } ; + P3 => table { + Sg => base_1+"նար" ; + Pl => base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նամ" ; + Pl => base_1+"նանք" + } ; + P2 => table { + Sg => base_1+"նաս" ; + Pl => base_1+"նաք" + } ; + P3 => table { + Sg => base_1+"նա" ; + Pl => base_1+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV010" + } ; + +mkV011 : Str -> V ; +mkV011 base = + case base of { + base_1+"ալ" => lin V + { s = base_1+"ալ" ; + Causative = base_1+"ացնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"այի" ; + Pl => "կ"+base_1+"այինք" + } ; + P2 => table { + Sg => "կ"+base_1+"այիր" ; + Pl => "կ"+base_1+"այիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ար" ; + Pl => "կ"+base_1+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"ամ" ; + Pl => "կ"+base_1+"անք" + } ; + P2 => table { + Sg => "կ"+base_1+"աս" ; + Pl => "կ"+base_1+"աք" + } ; + P3 => table { + Sg => "կ"+base_1+"այ" ; + Pl => "կ"+base_1+"ան" + } + } + } ; + Converb = { Imperfective = base_1+"ում" ; + FutCon1 = base_1+"ալու" ; + FutCon2 = base_1+"ալիք" ; + Negative = base_1+"այ" ; + Perfective = base_1+"ացել" ; + Simultaneous = base_1+"ալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ա՛" ; + Pl => base_1+"ացէ՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ացի" ; + Pl => base_1+"ացինք" + } ; + P2 => table { + Sg => base_1+"ացիր" ; + Pl => base_1+"ացիք" + } ; + P3 => table { + Sg => base_1+"աց" ; + Pl => base_1+"ացին" + } + } ; + Participle = table { + Resultative => base_1+"ացած" ; + Subject => base_1+"ացող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"այի" ; + Pl => base_1+"այինք" + } ; + P2 => table { + Sg => base_1+"այիր" ; + Pl => base_1+"այիք" + } ; + P3 => table { + Sg => base_1+"ար" ; + Pl => base_1+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"ամ" ; + Pl => base_1+"անք" + } ; + P2 => table { + Sg => base_1+"աս" ; + Pl => base_1+"աք" + } ; + P3 => table { + Sg => base_1+"այ" ; + Pl => base_1+"ան" + } + } + } + }; + _ => error "Can't apply paradigm mkV011" + } ; + +mkV012 : Str -> V ; +mkV012 base = + case base of { + base_1+"ել" => lin V + { s = base_1+"ել" ; + Causative = base_1+"եցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"էի" ; + Pl => "կ"+base_1+"էինք" + } ; + P2 => table { + Sg => "կ"+base_1+"էիր" ; + Pl => "կ"+base_1+"էիք" + } ; + P3 => table { + Sg => "կ"+base_1+"էր" ; + Pl => "կ"+base_1+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"եմ" ; + Pl => "կ"+base_1+"ենք" + } ; + P2 => table { + Sg => "կ"+base_1+"ես" ; + Pl => "կ"+base_1+"էք" + } ; + P3 => table { + Sg => "կ"+base_1+"ի" ; + Pl => "կ"+base_1+"են" + } + } + } ; + Converb = { Imperfective = base_1+"ում" ; + FutCon1 = base_1+"ելու" ; + FutCon2 = base_1+"ելիք" ; + Negative = base_1+"ի" ; + Perfective = base_1+"ել" ; + Simultaneous = base_1+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ի՛ր" ; + Pl => base_1+"է՛ք" + } ; + Passive = base_1+"ուել" ; + Past = table { + P1 => table { + Sg => base_1+"եցի" ; + Pl => base_1+"եցինք" + } ; + P2 => table { + Sg => base_1+"եցիր" ; + Pl => base_1+"եցիք" + } ; + P3 => table { + Sg => base_1+"եց" ; + Pl => base_1+"եցին" + } + } ; + Participle = table { + Resultative => base_1+"ած" ; + Subject => base_1+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"էի" ; + Pl => base_1+"էինք" + } ; + P2 => table { + Sg => base_1+"էիր" ; + Pl => base_1+"էիք" + } ; + P3 => table { + Sg => base_1+"էր" ; + Pl => base_1+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"եմ" ; + Pl => base_1+"ենք" + } ; + P2 => table { + Sg => base_1+"ես" ; + Pl => base_1+"էք" + } ; + P3 => table { + Sg => base_1+"ի" ; + Pl => base_1+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV012" + } ; + +mkV013 : Str -> V ; +mkV013 base = + case base of { + base_1@?+base_2+"ել" => lin V + { s = base_1+base_2+"ել" ; + Causative = base_1+base_2+"եցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"եի" ; + Pl => base_1+"կ"+base_2+"եինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"եիր" ; + Pl => base_1+"կ"+base_2+"եիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"եր" ; + Pl => base_1+"կ"+base_2+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"եմ" ; + Pl => base_1+"կ"+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"ես" ; + Pl => base_1+"կ"+base_2+"եք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ի" ; + Pl => base_1+"կ"+base_2+"են" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"ում" ; + FutCon1 = base_1+base_2+"ելու" ; + FutCon2 = base_1+base_2+"ելիք" ; + Negative = base_1+base_2+"ի" ; + Perfective = base_1+base_2+"ել" ; + Simultaneous = base_1+base_2+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ի՛ր" ; + Pl => base_1+base_2+"ե՛ք" + } ; + Passive = base_1+base_2+"վել" ; + Past = table { + P1 => table { + Sg => base_1+base_2+"եցի" ; + Pl => base_1+base_2+"եցինք" + } ; + P2 => table { + Sg => base_1+base_2+"եցիր" ; + Pl => base_1+base_2+"եցիք" + } ; + P3 => table { + Sg => base_1+base_2+"եց" ; + Pl => base_1+base_2+"եցին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ած" ; + Subject => base_1+base_2+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"եի" ; + Pl => base_1+base_2+"եինք" + } ; + P2 => table { + Sg => base_1+base_2+"եիր" ; + Pl => base_1+base_2+"եիք" + } ; + P3 => table { + Sg => base_1+base_2+"եր" ; + Pl => base_1+base_2+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"եմ" ; + Pl => base_1+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+base_2+"ես" ; + Pl => base_1+base_2+"եք" + } ; + P3 => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV013" + } ; + +mkV014 : Str -> V ; +mkV014 base = + case base of { + base_1+base_2@(?+?)+"նել" => lin V + { s = base_1+base_2+"նել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նեի" ; + Pl => base_1+"կ"+base_2+"նեինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նեիր" ; + Pl => base_1+"կ"+base_2+"նեիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ներ" ; + Pl => base_1+"կ"+base_2+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նեմ" ; + Pl => base_1+"կ"+base_2+"նենք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նես" ; + Pl => base_1+"կ"+base_2+"նեք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"նի" ; + Pl => base_1+"կ"+base_2+"նեն" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"նում" ; + FutCon1 = base_1+base_2+"նելու" ; + FutCon2 = base_1+base_2+"նելիք" ; + Negative = base_1+base_2+"նի" ; + Perfective = base_1+base_2+"ել" ; + Simultaneous = base_1+base_2+"նելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ի՛ր" ; + Pl => base_1+base_2+"ե՛ք" + } ; + Passive = base_1+base_2+"նվել" ; + Past = table { + P1 => table { + Sg => base_1+base_2+"ա" ; + Pl => base_1+base_2+"անք" + } ; + P2 => table { + Sg => base_1+base_2+"ար" ; + Pl => base_1+base_2+"աք" + } ; + P3 => table { + Sg => base_1+base_2+"ավ" ; + Pl => base_1+base_2+"ան" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ած" ; + Subject => base_1+base_2+"նող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"նեի" ; + Pl => base_1+base_2+"նեինք" + } ; + P2 => table { + Sg => base_1+base_2+"նեիր" ; + Pl => base_1+base_2+"նեիք" + } ; + P3 => table { + Sg => base_1+base_2+"ներ" ; + Pl => base_1+base_2+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"նեմ" ; + Pl => base_1+base_2+"նենք" + } ; + P2 => table { + Sg => base_1+base_2+"նես" ; + Pl => base_1+base_2+"նեք" + } ; + P3 => table { + Sg => base_1+base_2+"նի" ; + Pl => base_1+base_2+"նեն" + } + } + } + }; + _ => error "Can't apply paradigm mkV014" + } ; + +mkV015 : Str -> V ; +mkV015 base = + case base of { + base_1@?+base_2+"նալ" => lin V + { s = base_1+base_2+"նալ" ; + Causative = base_1+base_2+"ցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նայի" ; + Pl => base_1+"կ"+base_2+"նայինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նայիր" ; + Pl => base_1+"կ"+base_2+"նայիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"նար" ; + Pl => base_1+"կ"+base_2+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նամ" ; + Pl => base_1+"կ"+base_2+"նանք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նաս" ; + Pl => base_1+"կ"+base_2+"նաք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"նա" ; + Pl => base_1+"կ"+base_2+"նան" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"նում" ; + FutCon1 = base_1+base_2+"նալու" ; + FutCon2 = base_1+base_2+"նալիք" ; + Negative = base_1+base_2+"նա" ; + Perfective = base_1+base_2+"ցել" ; + Simultaneous = base_1+base_2+"նալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ցի՛ր" ; + Pl => base_1+base_2+"ցե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+base_2+"ցա" ; + Pl => base_1+base_2+"ցանք" + } ; + P2 => table { + Sg => base_1+base_2+"ցար" ; + Pl => base_1+base_2+"ցաք" + } ; + P3 => table { + Sg => base_1+base_2+"ցավ" ; + Pl => base_1+base_2+"ցան" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ցած" ; + Subject => base_1+base_2+"ցող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"նայի" ; + Pl => base_1+base_2+"նայինք" + } ; + P2 => table { + Sg => base_1+base_2+"նայիր" ; + Pl => base_1+base_2+"նայիք" + } ; + P3 => table { + Sg => base_1+base_2+"նար" ; + Pl => base_1+base_2+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"նամ" ; + Pl => base_1+base_2+"նանք" + } ; + P2 => table { + Sg => base_1+base_2+"նաս" ; + Pl => base_1+base_2+"նաք" + } ; + P3 => table { + Sg => base_1+base_2+"նա" ; + Pl => base_1+base_2+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV015" + } ; + +mkV016 : Str -> V ; +mkV016 base = + case base of { + base_1+base_2@(?+?+?+?)+"ել" => lin V + { s = base_1+base_2+"ել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"էի" ; + Pl => base_1+"կ"+base_2+"էինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"էիր" ; + Pl => base_1+"կ"+base_2+"էիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"էր" ; + Pl => base_1+"կ"+base_2+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"եմ" ; + Pl => base_1+"կ"+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"ես" ; + Pl => base_1+"կ"+base_2+"էք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ի" ; + Pl => base_1+"կ"+base_2+"են" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"ում" ; + FutCon1 = base_1+base_2+"ելու" ; + FutCon2 = base_1+base_2+"ելիք" ; + Negative = base_1+base_2+"ի" ; + Perfective = base_1+base_2+"ել" ; + Simultaneous = base_1+base_2+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ի՛ր" ; + Pl => base_1+base_2+"է՛ք" + } ; + Passive = base_1+base_2+"ուել" ; + Past = table { + P1 => table { + Sg => base_1+base_2+"եցի" ; + Pl => base_1+base_2+"եցինք" + } ; + P2 => table { + Sg => base_1+base_2+"եցիր" ; + Pl => base_1+base_2+"եցիք" + } ; + P3 => table { + Sg => base_1+base_2+"եց" ; + Pl => base_1+base_2+"եցին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ած" ; + Subject => base_1+base_2+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"էի" ; + Pl => base_1+base_2+"էինք" + } ; + P2 => table { + Sg => base_1+base_2+"էիր" ; + Pl => base_1+base_2+"էիք" + } ; + P3 => table { + Sg => base_1+base_2+"էր" ; + Pl => base_1+base_2+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"եմ" ; + Pl => base_1+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+base_2+"ես" ; + Pl => base_1+base_2+"էք" + } ; + P3 => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV016" + } ; + +mkV017 : Str -> V ; +mkV017 base = + case base of { + base_1+base_2@(?+?+?)+"նել" => lin V + { s = base_1+base_2+"նել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նեի" ; + Pl => base_1+"կ"+base_2+"նեինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նեիր" ; + Pl => base_1+"կ"+base_2+"նեիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ներ" ; + Pl => base_1+"կ"+base_2+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"նեմ" ; + Pl => base_1+"կ"+base_2+"նենք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"նես" ; + Pl => base_1+"կ"+base_2+"նեք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"նի" ; + Pl => base_1+"կ"+base_2+"նեն" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"նում" ; + FutCon1 = base_1+base_2+"նելու" ; + FutCon2 = base_1+base_2+"նելիք" ; + Negative = base_1+base_2+"նի" ; + Perfective = base_1+base_2+"րել" ; + Simultaneous = base_1+base_2+"նելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"րո՛ւ" ; + Pl => base_1+base_2+"րե՛ք" + } ; + Passive = base_1+base_2+"վել" ; + Past = table { + P1 => table { + Sg => base_1+base_2+"րի" ; + Pl => base_1+base_2+"րինք" + } ; + P2 => table { + Sg => base_1+base_2+"րիր" ; + Pl => base_1+base_2+"րիք" + } ; + P3 => table { + Sg => base_1+base_2+"րեց" ; + Pl => base_1+base_2+"րին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"րած" ; + Subject => base_1+base_2+"նող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"նեի" ; + Pl => base_1+base_2+"նեինք" + } ; + P2 => table { + Sg => base_1+base_2+"նեիր" ; + Pl => base_1+base_2+"նեիք" + } ; + P3 => table { + Sg => base_1+base_2+"ներ" ; + Pl => base_1+base_2+"նեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"նեմ" ; + Pl => base_1+base_2+"նենք" + } ; + P2 => table { + Sg => base_1+base_2+"նես" ; + Pl => base_1+base_2+"նեք" + } ; + P3 => table { + Sg => base_1+base_2+"նի" ; + Pl => base_1+base_2+"նեն" + } + } + } + }; + _ => error "Can't apply paradigm mkV017" + } ; + +mkV018 : Str -> V ; +mkV018 base = + case base of { + base_1+"ել" => lin V + { s = base_1+"ել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կեի" ; + Pl => base_1+"կեինք" + } ; + P2 => table { + Sg => base_1+"կեիր" ; + Pl => base_1+"կեիք" + } ; + P3 => table { + Sg => base_1+"կեր" ; + Pl => base_1+"կեին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կեմ" ; + Pl => base_1+"կենք" + } ; + P2 => table { + Sg => base_1+"կես" ; + Pl => base_1+"կեք" + } ; + P3 => table { + Sg => base_1+"կի" ; + Pl => base_1+"կեն" + } + } + } ; + Converb = { Imperfective = base_1+"ում" ; + FutCon1 = base_1+"ելու" ; + FutCon2 = base_1+"ելիք" ; + Negative = base_1+"ի" ; + Perfective = base_1+"ել" ; + Simultaneous = base_1+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ի՛ր" ; + Pl => base_1+"ե՛ք" + } ; + Passive = base_1+"վել" ; + Past = table { + P1 => table { + Sg => base_1+"եցի" ; + Pl => base_1+"եցինք" + } ; + P2 => table { + Sg => base_1+"եցիր" ; + Pl => base_1+"եցիք" + } ; + P3 => table { + Sg => base_1+"եց" ; + Pl => base_1+"եցին" + } + } ; + Participle = table { + Resultative => base_1+"ած" ; + Subject => base_1+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"եի" ; + Pl => base_1+"եինք" + } ; + P2 => table { + Sg => base_1+"եիր" ; + Pl => base_1+"եիք" + } ; + P3 => table { + Sg => base_1+"եր" ; + Pl => base_1+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"եմ" ; + Pl => base_1+"ենք" + } ; + P2 => table { + Sg => base_1+"ես" ; + Pl => base_1+"եք" + } ; + P3 => table { + Sg => base_1+"ի" ; + Pl => base_1+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV018" + } ; + +mkV019 : Str -> V ; +mkV019 base = + case base of { + base_1+base_2@(?+?+?)+"ալ" => lin V + { s = base_1+base_2+"ալ" ; + Causative = base_1+base_2+"ացնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => base_1+"կ"+base_2+"այի" ; + Pl => base_1+"կ"+base_2+"այինք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"այիր" ; + Pl => base_1+"կ"+base_2+"այիք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ար" ; + Pl => base_1+"կ"+base_2+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"կ"+base_2+"ամ" ; + Pl => base_1+"կ"+base_2+"անք" + } ; + P2 => table { + Sg => base_1+"կ"+base_2+"աս" ; + Pl => base_1+"կ"+base_2+"աք" + } ; + P3 => table { + Sg => base_1+"կ"+base_2+"ա" ; + Pl => base_1+"կ"+base_2+"ան" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"ում" ; + FutCon1 = base_1+base_2+"ալու" ; + FutCon2 = base_1+base_2+"ալիք" ; + Negative = base_1+base_2+"ա" ; + Perfective = base_1+base_2+"ացել" ; + Simultaneous = base_1+base_2+"ալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ա՛" ; + Pl => base_1+base_2+"ացե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+base_2+"ացի" ; + Pl => base_1+base_2+"ացինք" + } ; + P2 => table { + Sg => base_1+base_2+"ացիր" ; + Pl => base_1+base_2+"ացիք" + } ; + P3 => table { + Sg => base_1+base_2+"աց" ; + Pl => base_1+base_2+"ացին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ացած" ; + Subject => base_1+base_2+"ացող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"այի" ; + Pl => base_1+base_2+"այինք" + } ; + P2 => table { + Sg => base_1+base_2+"այիր" ; + Pl => base_1+base_2+"այիք" + } ; + P3 => table { + Sg => base_1+base_2+"ար" ; + Pl => base_1+base_2+"ային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"ամ" ; + Pl => base_1+base_2+"անք" + } ; + P2 => table { + Sg => base_1+base_2+"աս" ; + Pl => base_1+base_2+"աք" + } ; + P3 => table { + Sg => base_1+base_2+"ա" ; + Pl => base_1+base_2+"ան" + } + } + } + }; + _ => error "Can't apply paradigm mkV019" + } ; + +mkV020 : Str -> V ; +mkV020 base = + case base of { + base_1+"նալ" => lin V + { s = base_1+"նալ" ; + Causative = base_1+"ցնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նայի" ; + Pl => "կ"+base_1+"նայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նայիր" ; + Pl => "կ"+base_1+"նայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"նար" ; + Pl => "կ"+base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նամ" ; + Pl => "կ"+base_1+"նանք" + } ; + P2 => table { + Sg => "կ"+base_1+"նաս" ; + Pl => "կ"+base_1+"նաք" + } ; + P3 => table { + Sg => "կ"+base_1+"նայ" ; + Pl => "կ"+base_1+"նան" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նալու" ; + FutCon2 = base_1+"նալիք" ; + Negative = base_1+"նայ" ; + Perfective = base_1+"ցել" ; + Simultaneous = base_1+"նալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"ցի՛ր" ; + Pl => base_1+"ցէ՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ցայ" ; + Pl => base_1+"ցանք" + } ; + P2 => table { + Sg => base_1+"ցար" ; + Pl => base_1+"ցաք" + } ; + P3 => table { + Sg => base_1+"ցաւ" ; + Pl => base_1+"ցան" + } + } ; + Participle = table { + Resultative => base_1+"ցած" ; + Subject => base_1+"ցող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նայի" ; + Pl => base_1+"նայինք" + } ; + P2 => table { + Sg => base_1+"նայիր" ; + Pl => base_1+"նայիք" + } ; + P3 => table { + Sg => base_1+"նար" ; + Pl => base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նամ" ; + Pl => base_1+"նանք" + } ; + P2 => table { + Sg => base_1+"նաս" ; + Pl => base_1+"նաք" + } ; + P3 => table { + Sg => base_1+"նայ" ; + Pl => base_1+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV020" + } ; + +mkV021 : Str -> V ; +mkV021 base = + case base of { + base_1+base_2@(?+?)+"ել" => lin V + { s = base_1+base_2+"ել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+base_2+"էի" ; + Pl => "կ"+base_1+base_2+"էինք" + } ; + P2 => table { + Sg => "կ"+base_1+base_2+"էիր" ; + Pl => "կ"+base_1+base_2+"էիք" + } ; + P3 => table { + Sg => "կ"+base_1+base_2+"էր" ; + Pl => "կ"+base_1+base_2+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+base_2+"եմ" ; + Pl => "կ"+base_1+base_2+"ենք" + } ; + P2 => table { + Sg => "կ"+base_1+base_2+"ես" ; + Pl => "կ"+base_1+base_2+"էք" + } ; + P3 => table { + Sg => "կ"+base_1+base_2+"ի" ; + Pl => "կ"+base_1+base_2+"են" + } + } + } ; + Converb = { Imperfective = base_1+"ւ"+base_2+"մ" ; + FutCon1 = base_1+base_2+"ելու" ; + FutCon2 = base_1+base_2+"ելիք" ; + Negative = base_1+base_2+"ի" ; + Perfective = base_1+base_2+"ել" ; + Simultaneous = base_1+base_2+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+base_2+"ի՛ր" ; + Pl => base_1+base_2+"է՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+base_2+"եցի" ; + Pl => base_1+base_2+"եցինք" + } ; + P2 => table { + Sg => base_1+base_2+"եցիր" ; + Pl => base_1+base_2+"եցիք" + } ; + P3 => table { + Sg => base_1+base_2+"եց" ; + Pl => base_1+base_2+"եցին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ած" ; + Subject => base_1+base_2+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"էի" ; + Pl => base_1+base_2+"էինք" + } ; + P2 => table { + Sg => base_1+base_2+"էիր" ; + Pl => base_1+base_2+"էիք" + } ; + P3 => table { + Sg => base_1+base_2+"էր" ; + Pl => base_1+base_2+"էին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"եմ" ; + Pl => base_1+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+base_2+"ես" ; + Pl => base_1+base_2+"էք" + } ; + P3 => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV021" + } ; + +mkV022 : Str -> V ; +mkV022 base = + case base of { + base_1+"ռնալ" => lin V + { s = base_1+"ռնալ" ; + Causative = base_1+"րձնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"ռնայի" ; + Pl => "կ"+base_1+"ռնայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"ռնայիր" ; + Pl => "կ"+base_1+"ռնայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"ռնար" ; + Pl => "կ"+base_1+"ռնային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"ռնամ" ; + Pl => "կ"+base_1+"ռնանք" + } ; + P2 => table { + Sg => "կ"+base_1+"ռնաս" ; + Pl => "կ"+base_1+"ռնաք" + } ; + P3 => table { + Sg => "կ"+base_1+"ռնա" ; + Pl => "կ"+base_1+"ռնան" + } + } + } ; + Converb = { Imperfective = base_1+"ռնում" ; + FutCon1 = base_1+"ռնալու" ; + FutCon2 = base_1+"ռնալիք" ; + Negative = base_1+"ռնա" ; + Perfective = base_1+"րձել" ; + Simultaneous = base_1+"ռնալիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"րձի՛ր" ; + Pl => base_1+"րձե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"րձա" ; + Pl => base_1+"րձանք" + } ; + P2 => table { + Sg => base_1+"րձար" ; + Pl => base_1+"րձաք" + } ; + P3 => table { + Sg => base_1+"րձավ" ; + Pl => base_1+"րձան" + } + } ; + Participle = table { + Resultative => base_1+"րձած" ; + Subject => base_1+"րձող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"ռնայի" ; + Pl => base_1+"ռնայինք" + } ; + P2 => table { + Sg => base_1+"ռնայիր" ; + Pl => base_1+"ռնայիք" + } ; + P3 => table { + Sg => base_1+"ռնար" ; + Pl => base_1+"ռնային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"ռնամ" ; + Pl => base_1+"ռնանք" + } ; + P2 => table { + Sg => base_1+"ռնաս" ; + Pl => base_1+"ռնաք" + } ; + P3 => table { + Sg => base_1+"ռնա" ; + Pl => base_1+"ռնան" + } + } + } + }; + _ => error "Can't apply paradigm mkV022" + } ; + +mkV023 : Str -> V ; +mkV023 base = + case base of { + base_1+"նալ" => lin V + { s = base_1+"նալ" ; + Causative = base_1+"սնել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նայի" ; + Pl => "կ"+base_1+"նայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նայիր" ; + Pl => "կ"+base_1+"նայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"նար" ; + Pl => "կ"+base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նամ" ; + Pl => "կ"+base_1+"նանք" + } ; + P2 => table { + Sg => "կ"+base_1+"նաս" ; + Pl => "կ"+base_1+"նաք" + } ; + P3 => table { + Sg => "կ"+base_1+"նա" ; + Pl => "կ"+base_1+"նան" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նալու" ; + FutCon2 = base_1+"նալիք" ; + Negative = base_1+"նա" ; + Perfective = base_1+"սել" ; + Simultaneous = base_1+"նալիս" + } ; + Imperative_Jussive = table { + Sg => nonExist ; + Pl => base_1+"սե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"սա" ; + Pl => base_1+"սանք" + } ; + P2 => table { + Sg => base_1+"սար" ; + Pl => base_1+"սաք" + } ; + P3 => table { + Sg => base_1+"սավ" ; + Pl => base_1+"սան" + } + } ; + Participle = table { + Resultative => base_1+"սած" ; + Subject => base_1+"սող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նայի" ; + Pl => base_1+"նայինք" + } ; + P2 => table { + Sg => base_1+"նայիր" ; + Pl => base_1+"նայիք" + } ; + P3 => table { + Sg => base_1+"նար" ; + Pl => base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նամ" ; + Pl => base_1+"նանք" + } ; + P2 => table { + Sg => base_1+"նաս" ; + Pl => base_1+"նաք" + } ; + P3 => table { + Sg => base_1+"նա" ; + Pl => base_1+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV023" + } ; + +mkV024 : Str -> V ; +mkV024 base = + case base of { + base_1+"նալ" => lin V + { s = base_1+"նալ" ; + Causative = base_1+"նել" ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+"նայի" ; + Pl => "կ"+base_1+"նայինք" + } ; + P2 => table { + Sg => "կ"+base_1+"նայիր" ; + Pl => "կ"+base_1+"նայիք" + } ; + P3 => table { + Sg => "կ"+base_1+"նար" ; + Pl => "կ"+base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+"նամ" ; + Pl => "կ"+base_1+"նանք" + } ; + P2 => table { + Sg => "կ"+base_1+"նաս" ; + Pl => "կ"+base_1+"նաք" + } ; + P3 => table { + Sg => "կ"+base_1+"նա" ; + Pl => "կ"+base_1+"նան" + } + } + } ; + Converb = { Imperfective = base_1+"նում" ; + FutCon1 = base_1+"նալու" ; + FutCon2 = base_1+"նալիք" ; + Negative = base_1+"նա" ; + Perfective = base_1+"ել" ; + Simultaneous = base_1+"նալիս" + } ; + Imperative_Jussive = table { + Sg => nonExist ; + Pl => base_1+"ե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+"ա" ; + Pl => base_1+"անք" + } ; + P2 => table { + Sg => base_1+"ար" ; + Pl => base_1+"աք" + } ; + P3 => table { + Sg => base_1+"ավ" ; + Pl => base_1+"ան" + } + } ; + Participle = table { + Resultative => base_1+"ած" ; + Subject => base_1+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+"նայի" ; + Pl => base_1+"նայինք" + } ; + P2 => table { + Sg => base_1+"նայիր" ; + Pl => base_1+"նայիք" + } ; + P3 => table { + Sg => base_1+"նար" ; + Pl => base_1+"նային" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+"նամ" ; + Pl => base_1+"նանք" + } ; + P2 => table { + Sg => base_1+"նաս" ; + Pl => base_1+"նաք" + } ; + P3 => table { + Sg => base_1+"նա" ; + Pl => base_1+"նան" + } + } + } + }; + _ => error "Can't apply paradigm mkV024" + } ; + +mkV025 : Str -> V ; +mkV025 base = + case base of { + base_1+base_2@?+"ել" => lin V + { s = base_1+base_2+"ել" ; + Causative = nonExist ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => "կ"+base_1+base_2+"եի" ; + Pl => "կ"+base_1+base_2+"եինք" + } ; + P2 => table { + Sg => "կ"+base_1+base_2+"եիր" ; + Pl => "կ"+base_1+base_2+"եիք" + } ; + P3 => table { + Sg => "կ"+base_1+base_2+"եր" ; + Pl => "կ"+base_1+base_2+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => "կ"+base_1+base_2+"եմ" ; + Pl => "կ"+base_1+base_2+"ենք" + } ; + P2 => table { + Sg => "կ"+base_1+base_2+"ես" ; + Pl => "կ"+base_1+base_2+"եք" + } ; + P3 => table { + Sg => "կ"+base_1+base_2+"ի" ; + Pl => "կ"+base_1+base_2+"են" + } + } + } ; + Converb = { Imperfective = base_1+base_2+"ում" ; + FutCon1 = base_1+base_2+"ելու" ; + FutCon2 = base_1+base_2+"ելիք" ; + Negative = base_1+base_2+"ի" ; + Perfective = base_1+base_2+"ել" ; + Simultaneous = base_1+base_2+"ելիս" + } ; + Imperative_Jussive = table { + Sg => base_1+"՛"+base_2 ; + Pl => base_1+base_2+"ե՛ք" + } ; + Passive = nonExist ; + Past = table { + P1 => table { + Sg => base_1+base_2+"եցի" ; + Pl => base_1+base_2+"եցինք" + } ; + P2 => table { + Sg => base_1+base_2+"եցիր" ; + Pl => base_1+base_2+"եցիք" + } ; + P3 => table { + Sg => base_1+base_2+"եց" ; + Pl => base_1+base_2+"եցին" + } + } ; + Participle = table { + Resultative => base_1+base_2+"ած" ; + Subject => base_1+base_2+"ող" + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => base_1+base_2+"եի" ; + Pl => base_1+base_2+"եինք" + } ; + P2 => table { + Sg => base_1+base_2+"եիր" ; + Pl => base_1+base_2+"եիք" + } ; + P3 => table { + Sg => base_1+base_2+"եր" ; + Pl => base_1+base_2+"եին" + } + } ; + Non_Past => table { + P1 => table { + Sg => base_1+base_2+"եմ" ; + Pl => base_1+base_2+"ենք" + } ; + P2 => table { + Sg => base_1+base_2+"ես" ; + Pl => base_1+base_2+"եք" + } ; + P3 => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"են" + } + } + } + }; + _ => error "Can't apply paradigm mkV025" + } ; + +mkN001 : Str -> N ; +mkN001 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN001" + } ; + +mkN002 : Str -> N ; +mkN002 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"յի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"յից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"յով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"յում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"յին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"յիս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"յիցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"յովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"յումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"յիդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"յիցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"յովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"յումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN002" + } ; + +mkN003 : Str -> N ; +mkN003 base = + case base of { + base_1+"ի" => lin N + { s = table { + Nom => table { + Sg => base_1+"ի" ; + Pl => base_1+"իներ" + } ; + Dat => table { + Sg => base_1+"ու" ; + Pl => base_1+"իների" + } ; + Ablat => table { + Sg => base_1+"ուց" ; + Pl => base_1+"իներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"իներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"իներում" + } + } ; + def_dat = table { + Sg => base_1+"ուն" ; + Pl => base_1+"իներին" + } ; + def_nom = table { + Sg => base_1+"ին" ; + Pl => base_1+"իները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"իս" ; + Pl => base_1+"իներս" + } ; + Dat => table { + Sg => base_1+"ուս" ; + Pl => base_1+"իներիս" + } ; + Ablat => table { + Sg => base_1+"ուցս" ; + Pl => base_1+"իներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"իներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"իներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"իդ" ; + Pl => base_1+"իներդ" + } ; + Dat => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"իներիդ" + } ; + Ablat => table { + Sg => base_1+"ուցդ" ; + Pl => base_1+"իներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"իներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"իներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN003" + } ; + +mkN004 : Str -> N ; +mkN004 base = + case base of { + base_1+"ու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ան" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ամբ" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"անը" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"անս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"անդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN004" + } ; + +mkN005 : Str -> N ; +mkN005 base = + case base of { + base_1+"ու"+base_2@("ղթ"|"րչ"|"ղտ"|"մբ"|"րմ"|"նջ"|"նդ"|"րձ"|"րդ"|"րծք"|?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+base_2+"եր" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+base_2+"երից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+base_2+"երով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+base_2+"երում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+base_2+"երս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+base_2+"երովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+base_2+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+base_2+"երովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+base_2+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkN005" + } ; + +mkN006 : Str -> N ; +mkN006 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN006" + } ; + +mkN007 : Str -> N ; +mkN007 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"եր" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"երի" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"երից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"երով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"երում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"երին" + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => base_1+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"երս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"երիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"երիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"երովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"երդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"երիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"երովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkN007" + } ; + +mkN008 : Str -> N ; +mkN008 base = + case base of { + base_1+"իւն" => lin N + { s = table { + Nom => table { + Sg => base_1+"իւն" ; + Pl => base_1+"իւններ" + } ; + Dat => table { + Sg => base_1+"եան" ; + Pl => base_1+"իւնների" + } ; + Ablat => table { + Sg => base_1+"իւնից" ; + Pl => base_1+"իւններից" + } ; + Instr => table { + Sg => base_1+"եամբ" ; + Pl => base_1+"իւններով" + } ; + Loc => table { + Sg => base_1+"իւնում" ; + Pl => base_1+"իւններում" + } + } ; + def_dat = table { + Sg => base_1+"եանը" ; + Pl => base_1+"իւններին" + } ; + def_nom = table { + Sg => base_1+"իւնը" ; + Pl => base_1+"իւնները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"իւնս" ; + Pl => base_1+"իւններս" + } ; + Dat => table { + Sg => base_1+"եանս" ; + Pl => base_1+"իւններիս" + } ; + Ablat => table { + Sg => base_1+"իւնիցս" ; + Pl => base_1+"իւններիցս" + } ; + Instr => table { + Sg => base_1+"եամբս" ; + Pl => base_1+"իւններովս" + } ; + Loc => table { + Sg => base_1+"իւնումս" ; + Pl => base_1+"իւններումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"իւնդ" ; + Pl => base_1+"իւններդ" + } ; + Dat => table { + Sg => base_1+"եանդ" ; + Pl => base_1+"իւններիդ" + } ; + Ablat => table { + Sg => base_1+"իւնիցդ" ; + Pl => base_1+"իւններիցդ" + } ; + Instr => table { + Sg => base_1+"եամբդ" ; + Pl => base_1+"իւններովդ" + } ; + Loc => table { + Sg => base_1+"իւնումդ" ; + Pl => base_1+"իւններումդ" + } + } + }; + _ => error "Can't apply paradigm mkN008" + } ; + +mkN009 : Str -> N ; +mkN009 base = + case base of { + base_1+"ուն" => lin N + { s = table { + Nom => table { + Sg => base_1+"ուն" ; + Pl => base_1+"ուններ" + } ; + Dat => table { + Sg => base_1+"վան" ; + Pl => base_1+"ունների" + } ; + Ablat => table { + Sg => base_1+"ունից" ; + Pl => base_1+"ուններից" + } ; + Instr => table { + Sg => base_1+"վամբ" ; + Pl => base_1+"ուններով" + } ; + Loc => table { + Sg => base_1+"ունում" ; + Pl => base_1+"ուններում" + } + } ; + def_dat = table { + Sg => base_1+"վանը" ; + Pl => base_1+"ուններին" + } ; + def_nom = table { + Sg => base_1+"ունը" ; + Pl => base_1+"ունները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ունս" ; + Pl => base_1+"ուններս" + } ; + Dat => table { + Sg => base_1+"վանս" ; + Pl => base_1+"ուններիս" + } ; + Ablat => table { + Sg => base_1+"ունիցս" ; + Pl => base_1+"ուններիցս" + } ; + Instr => table { + Sg => base_1+"ունովս" ; + Pl => base_1+"ուններովս" + } ; + Loc => table { + Sg => base_1+"ունումս" ; + Pl => base_1+"ուններումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ունդ" ; + Pl => base_1+"ուններդ" + } ; + Dat => table { + Sg => base_1+"վանդ" ; + Pl => base_1+"ուններիդ" + } ; + Ablat => table { + Sg => base_1+"ունիցդ" ; + Pl => base_1+"ուններիցդ" + } ; + Instr => table { + Sg => base_1+"ունովդ" ; + Pl => base_1+"ուններովդ" + } ; + Loc => table { + Sg => base_1+"ունումդ" ; + Pl => base_1+"ուններումդ" + } + } + }; + _ => error "Can't apply paradigm mkN009" + } ; + +mkN010 : Str -> N ; +mkN010 base = + case base of { + base_1+"ուն" => lin N + { s = table { + Nom => table { + Sg => base_1+"ուն" ; + Pl => base_1+"ուններ" + } ; + Dat => table { + Sg => base_1+"ան" ; + Pl => base_1+"ունների" + } ; + Ablat => table { + Sg => base_1+"ունից" ; + Pl => base_1+"ուններից" + } ; + Instr => table { + Sg => base_1+"ամբ" ; + Pl => base_1+"ուններով" + } ; + Loc => table { + Sg => base_1+"ունում" ; + Pl => base_1+"ուններում" + } + } ; + def_dat = table { + Sg => base_1+"անը" ; + Pl => base_1+"ուններին" + } ; + def_nom = table { + Sg => base_1+"ունը" ; + Pl => base_1+"ունները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ունս" ; + Pl => base_1+"ուններս" + } ; + Dat => table { + Sg => base_1+"անս" ; + Pl => base_1+"ուններիս" + } ; + Ablat => table { + Sg => base_1+"ունիցս" ; + Pl => base_1+"ուններիցս" + } ; + Instr => table { + Sg => base_1+"ամբս" ; + Pl => base_1+"ուններովս" + } ; + Loc => table { + Sg => base_1+"ունումս" ; + Pl => base_1+"ուններումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ունդ" ; + Pl => base_1+"ուններդ" + } ; + Dat => table { + Sg => base_1+"անդ" ; + Pl => base_1+"ուններիդ" + } ; + Ablat => table { + Sg => base_1+"ունիցդ" ; + Pl => base_1+"ուններիցդ" + } ; + Instr => table { + Sg => base_1+"ամբդ" ; + Pl => base_1+"ուններովդ" + } ; + Loc => table { + Sg => base_1+"ունումդ" ; + Pl => base_1+"ուններումդ" + } + } + }; + _ => error "Can't apply paradigm mkN010" + } ; + +mkN011 : Str -> N ; +mkN011 base = + case base of { + base_1+"ե"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ե"+base_2 ; + Pl => base_1+"ե"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2 ; + Pl => base_1+"ե"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"ից" ; + Pl => base_1+"ե"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ով" ; + Pl => base_1+"ե"+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ո"+base_2+"ը" ; + Pl => base_1+"ե"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ե"+base_2+"ը" ; + Pl => base_1+"ե"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"ս" ; + Pl => base_1+"ե"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"ս" ; + Pl => base_1+"ե"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցս" ; + Pl => base_1+"ե"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովս" ; + Pl => base_1+"ե"+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"դ" ; + Pl => base_1+"ե"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"դ" ; + Pl => base_1+"ե"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցդ" ; + Pl => base_1+"ե"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովդ" ; + Pl => base_1+"ե"+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN011" + } ; + +mkN012 : Str -> N ; +mkN012 base = + case base of { + base_1+"ու" => lin N + { s = table { + Nom => table { + Sg => base_1+"ու" ; + Pl => base_1+"ուներ" + } ; + Dat => table { + Sg => base_1+"վի" ; + Pl => base_1+"ուների" + } ; + Ablat => table { + Sg => base_1+"վից" ; + Pl => base_1+"ուներից" + } ; + Instr => table { + Sg => base_1+"վով" ; + Pl => base_1+"ուներով" + } ; + Loc => table { + Sg => base_1+"վում" ; + Pl => base_1+"ուներում" + } + } ; + def_dat = table { + Sg => base_1+"վին" ; + Pl => base_1+"ուներին" + } ; + def_nom = table { + Sg => base_1+"ուն" ; + Pl => base_1+"ուները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ուս" ; + Pl => base_1+"ուներս" + } ; + Dat => table { + Sg => base_1+"վիս" ; + Pl => base_1+"ուներիս" + } ; + Ablat => table { + Sg => base_1+"վիցս" ; + Pl => base_1+"ուներիցս" + } ; + Instr => table { + Sg => base_1+"վովս" ; + Pl => base_1+"ուներովս" + } ; + Loc => table { + Sg => base_1+"վումս" ; + Pl => base_1+"ուներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"ուներդ" + } ; + Dat => table { + Sg => base_1+"վիդ" ; + Pl => base_1+"ուներիդ" + } ; + Ablat => table { + Sg => base_1+"վիցդ" ; + Pl => base_1+"ուներիցդ" + } ; + Instr => table { + Sg => base_1+"վովդ" ; + Pl => base_1+"ուներովդ" + } ; + Loc => table { + Sg => base_1+"վումդ" ; + Pl => base_1+"ուներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN012" + } ; + +mkN013 : Str -> N ; +mkN013 base = + case base of { + base_1+"ի"+base_2@("շկ"|"ստ"|"նք"|"նձ"|"նջ"|"սպ"|?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ի"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+"ի"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+"ի"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+"ի"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+"ի"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+"ի"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+"ի"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ի"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+"ի"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+"ի"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+"ի"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+"ի"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ի"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+"ի"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+"ի"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+"ի"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+"ի"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN013" + } ; + +mkN014 : Str -> N ; +mkN014 base = + case base of { + base_1+"ի"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"վա" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"վանից" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"վան" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"վաս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"վանիցս" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"վադ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"վանիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN014" + } ; + +mkN015 : Str -> N ; +mkN015 base = + case base of { + base_1+"ի"+base_2@("նչ"|"շտ"|"րք"|"րտ"|"րգ"|"նդ"|?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+base_2+"եր" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+base_2+"երից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+base_2+"երով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+base_2+"երում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+base_2+"երս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+base_2+"երովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+base_2+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+base_2+"երովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+base_2+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkN015" + } ; + +mkN016 : Str -> N ; +mkN016 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վա" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանից" ; + Pl => base_1+"ներից" --guessed + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"վան" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վաս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցս" ; + Pl => base_1+"ներիցս" --guessed + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" --guessed + } ; + Dat => table { + Sg => base_1+"վադ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN016" + } ; + +mkN017 : Str -> N ; +mkN017 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"եր" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"երի" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"երից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"երով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"երում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"երին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"երս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"երիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"երիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"երովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"երդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"երիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"երովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkN017" + } ; + +mkN018 : Str -> N ; +mkN018 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"ոջ" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"ոջից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"ոջով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ոջը" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"ոջս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ոջիցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ոջովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"ոջդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"ոջիցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ոջովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN018" + } ; + +mkN019 : Str -> N ; +mkN019 base = + case base of { + base_1+"ձն"+base_2@?+"նուն" => lin N + { s = table { + Nom => table { + Sg => base_1+"ձն"+base_2+"նուն" ; + Pl => base_1+"ձն"+base_2+"նուններ" + } ; + Dat => table { + Sg => base_1+"վ"+base_2+"ն" ; + Pl => base_1+"ձն"+base_2+"նունների" + } ; + Ablat => table { + Sg => base_1+"ձն"+base_2+"նունից" ; + Pl => base_1+"ձն"+base_2+"նուններից" + } ; + Instr => table { + Sg => base_1+"վ"+base_2+"մբ" ; + Pl => base_1+"ձն"+base_2+"նուններով" + } ; + Loc => table { + Sg => base_1+"ձն"+base_2+"նունում" ; + Pl => base_1+"ձն"+base_2+"նուններում" + } + } ; + def_dat = table { + Sg => base_1+"վ"+base_2+"նը" ; + Pl => base_1+"ձն"+base_2+"նուններին" + } ; + def_nom = table { + Sg => base_1+"ձն"+base_2+"նունը" ; + Pl => base_1+"ձն"+base_2+"նունները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ձն"+base_2+"նունս" ; + Pl => base_1+"ձն"+base_2+"նուններս" + } ; + Dat => table { + Sg => base_1+"վ"+base_2+"նս" ; + Pl => base_1+"ձն"+base_2+"նուններիս" + } ; + Ablat => table { + Sg => base_1+"ձն"+base_2+"նունիցս" ; + Pl => base_1+"ձն"+base_2+"նուններիցս" + } ; + Instr => table { + Sg => base_1+"ձն"+base_2+"նունովս" ; + Pl => base_1+"ձն"+base_2+"նուններովս" + } ; + Loc => table { + Sg => base_1+"ձն"+base_2+"նունումս" ; + Pl => base_1+"ձն"+base_2+"նուններումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ձն"+base_2+"նունդ" ; + Pl => base_1+"ձն"+base_2+"նուններդ" + } ; + Dat => table { + Sg => base_1+"վ"+base_2+"նդ" ; + Pl => base_1+"ձն"+base_2+"նուններիդ" + } ; + Ablat => table { + Sg => base_1+"ձն"+base_2+"նունիցդ" ; + Pl => base_1+"ձն"+base_2+"նուններիցդ" + } ; + Instr => table { + Sg => base_1+"ձն"+base_2+"նունովդ" ; + Pl => base_1+"ձն"+base_2+"նուններովդ" + } ; + Loc => table { + Sg => base_1+"ձն"+base_2+"նունումդ" ; + Pl => base_1+"ձն"+base_2+"նուններումդ" + } + } + }; + _ => error "Can't apply paradigm mkN019" + } ; + +mkN020 : Str -> N ; +mkN020 base = + case base of { + base_1+"ու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ան" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ով" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"անը" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"անս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"անդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN020" + } ; + +mkN021 : Str -> N ; +mkN021 base = + case base of { + base_1+"վա"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"վա"+base_2 ; + Pl => base_1+"վա"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ո" ; + Pl => base_1+"վա"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ուց" ; + Pl => base_1+"վա"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+"վա"+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ուն" ; + Pl => base_1+"վա"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"վա"+base_2+"ը" ; + Pl => base_1+"վա"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => nonExist ; + Pl => nonExist + } ; + Dat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Ablat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Instr => table { + Sg => nonExist ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => nonExist ; + Pl => nonExist + } ; + Dat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Ablat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Instr => table { + Sg => nonExist ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN021" + } ; + +mkN022 : Str -> N ; +mkN022 base = + case base of { + base_1+"եւ"+base_2@(?+?+?+?)+"ի"+base_3@? => lin N + { s = table { + Nom => table { + Sg => base_1+"եւ"+base_2+"ի"+base_3 ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներ" + } ; + Dat => table { + Sg => base_1+"և"+base_2+base_3+"ի" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ների" + } ; + Ablat => table { + Sg => base_1+"և"+base_2+base_3+"ից" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներից" + } ; + Instr => table { + Sg => base_1+"և"+base_2+base_3+"ով" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներով" + } ; + Loc => table { + Sg => base_1+"և"+base_2+base_3+"ում" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"և"+base_2+base_3+"ին" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներին" + } ; + def_nom = table { + Sg => base_1+"եւ"+base_2+"ի"+base_3+"ը" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"եւ"+base_2+"ի"+base_3+"ս" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներս" + } ; + Dat => table { + Sg => base_1+"և"+base_2+base_3+"իս" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներիս" + } ; + Ablat => table { + Sg => base_1+"և"+base_2+base_3+"իցս" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներիցս" + } ; + Instr => table { + Sg => base_1+"և"+base_2+base_3+"ովս" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներովս" + } ; + Loc => table { + Sg => base_1+"և"+base_2+base_3+"ումս" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"եւ"+base_2+"ի"+base_3+"դ" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներդ" + } ; + Dat => table { + Sg => base_1+"և"+base_2+base_3+"իդ" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"և"+base_2+base_3+"իցդ" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"և"+base_2+base_3+"ովդ" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներովդ" + } ; + Loc => table { + Sg => base_1+"և"+base_2+base_3+"ումդ" ; + Pl => base_1+"եւ"+base_2+"ի"+base_3+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN022" + } ; + +mkN023 : Str -> N ; +mkN023 base = + case base of { + base_1+"ու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ան" ; + Pl => base_1+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"նից" ; + Pl => base_1+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"նով" ; + Pl => base_1+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"անը" ; + Pl => base_1+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"անս" ; + Pl => base_1+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"նիցս" ; + Pl => base_1+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"նովս" ; + Pl => base_1+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"անդ" ; + Pl => base_1+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"նիցդ" ; + Pl => base_1+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"նովդ" ; + Pl => base_1+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN023" + } ; + +mkN024 : Str -> N ; +mkN024 base = + case base of { + base_1+"ու"+base_2@(?+?)+base_3@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2+base_3 ; + Pl => base_1+base_2+base_3+"եր" + } ; + Dat => table { + Sg => base_1+base_2+"ե"+base_3 ; + Pl => base_1+base_2+base_3+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+base_3+"ից" ; + Pl => base_1+base_2+base_3+"երից" + } ; + Instr => table { + Sg => base_1+base_2+base_3+"ով" ; + Pl => base_1+base_2+base_3+"երով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ե"+base_3+"ը" ; + Pl => base_1+base_2+base_3+"երին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+base_3+"ը" ; + Pl => base_1+base_2+base_3+"երը" + } ; + poss1 = table { + Nom => table { + Sg => nonExist ; + Pl => nonExist + } ; + Dat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Ablat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Instr => table { + Sg => nonExist ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => nonExist ; + Pl => nonExist + } ; + Dat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Ablat => table { + Sg => nonExist ; + Pl => nonExist + } ; + Instr => table { + Sg => nonExist ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN024" + } ; + +mkN025 : Str -> N ; +mkN025 base = + case base of { + base_1+base_2@?+"ւյր" => lin N + { s = table { + Nom => table { + Sg => base_1+base_2+"ւյր" ; + Pl => base_1+base_2+"ւյրեր" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջ" ; + Pl => base_1+base_2+"ւյրերի" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջից" ; + Pl => base_1+base_2+"ւյրերից" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջով" ; + Pl => base_1+base_2+"ւյրերով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ր"+base_2+"ջը" ; + Pl => base_1+base_2+"ւյրերին" + } ; + def_nom = table { + Sg => base_1+base_2+"ւյրը" ; + Pl => base_1+base_2+"ւյրերը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+base_2+"ւյրս" ; + Pl => base_1+base_2+"ւյրերս" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջս" ; + Pl => base_1+base_2+"ւյրերիս" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջիցս" ; + Pl => base_1+base_2+"ւյրերիցս" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջովս" ; + Pl => base_1+base_2+"ւյրերովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+base_2+"ւյրդ" ; + Pl => base_1+base_2+"ւյրերդ" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջդ" ; + Pl => base_1+base_2+"ւյրերիդ" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջիցդ" ; + Pl => base_1+base_2+"ւյրերիցդ" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջովդ" ; + Pl => base_1+base_2+"ւյրերովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN025" + } ; + +mkN026 : Str -> N ; +mkN026 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"ան" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"նից" ; + Pl => base_1+"ներից" --guessed + } ; + Instr => table { + Sg => base_1+"նով" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"անը" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"անս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"նիցս" ; + Pl => base_1+"ներիցս" --guessed + } ; + Instr => table { + Sg => base_1+"նովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" --guessed + } ; + Dat => table { + Sg => base_1+"անդ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"նիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"նովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN026" + } ; + +mkN027 : Str -> N ; +mkN027 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"եր" + } ; + Dat => table { + Sg => base_1+"ու" ; + Pl => base_1+"երի" + } ; + Ablat => table { + Sg => base_1+"ուց" ; + Pl => base_1+"երից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"երով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ուն" ; + Pl => base_1+"երին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"երս" + } ; + Dat => table { + Sg => base_1+"ուս" ; + Pl => base_1+"երիս" + } ; + Ablat => table { + Sg => base_1+"ուցս" ; + Pl => base_1+"երիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"երովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"երդ" + } ; + Dat => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"երիդ" + } ; + Ablat => table { + Sg => base_1+"ուցդ" ; + Pl => base_1+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"երովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN027" + } ; + +mkN028 : Str -> N ; +mkN028 base = + case base of { + base_1+"ու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+base_2+"եր" + } ; + Dat => table { + Sg => base_1+"ա"+base_2 ; + Pl => base_1+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+base_2+"երից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+base_2+"երով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+base_2+"երում" + } + } ; + def_dat = table { + Sg => base_1+"ա"+base_2+"ը" ; + Pl => base_1+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+base_2+"երս" + } ; + Dat => table { + Sg => base_1+"ա"+base_2+"ս" ; + Pl => base_1+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+base_2+"երովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+base_2+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+"ա"+base_2+"դ" ; + Pl => base_1+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+base_2+"երովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+base_2+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkN028" + } ; + +mkN029 : Str -> N ; +mkN029 base = + case base of { + base_1+"եւու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"եւու"+base_2 ; + Pl => base_1+"եւու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+"և"+base_2+"ան" ; + Pl => base_1+"եւու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"եւու"+base_2+"ից" ; + Pl => base_1+"եւու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+"և"+base_2+"ամբ" ; + Pl => base_1+"եւու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+"եւու"+base_2+"ում" ; + Pl => base_1+"եւու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"և"+base_2+"անը" ; + Pl => base_1+"եւու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"եւու"+base_2+"ը" ; + Pl => base_1+"եւու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"եւու"+base_2+"ս" ; + Pl => base_1+"եւու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+"և"+base_2+"անս" ; + Pl => base_1+"եւու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"եւու"+base_2+"իցս" ; + Pl => base_1+"եւու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"եւու"+base_2+"ովս" ; + Pl => base_1+"եւու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+"եւու"+base_2+"ումս" ; + Pl => base_1+"եւու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"եւու"+base_2+"դ" ; + Pl => base_1+"եւու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+"և"+base_2+"անդ" ; + Pl => base_1+"եւու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"եւու"+base_2+"իցդ" ; + Pl => base_1+"եւու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"եւու"+base_2+"ովդ" ; + Pl => base_1+"եւու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+"եւու"+base_2+"ումդ" ; + Pl => base_1+"եւու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN029" + } ; + +mkN030 : Str -> N ; +mkN030 base = + case base of { + base_1+"ու"+base_2@(?+?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"յան" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"յամբ" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"յանը" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"յանս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"յանդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN030" + } ; + +mkN031 : Str -> N ; +mkN031 base = + case base of { + base_1+"ու"+base_2@("շտ"|"րդ"|?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN031" + } ; + +mkN032 : Str -> N ; +mkN032 base = + case base of { + base_1+"ուն" => lin N + { s = table { + Nom => table { + Sg => base_1+"ուն" ; + Pl => base_1+"ուններ" + } ; + Dat => table { + Sg => base_1+"վա" ; + Pl => base_1+"ունների" + } ; + Ablat => table { + Sg => base_1+"վանից" ; + Pl => base_1+"ուններից" + } ; + Instr => table { + Sg => base_1+"ունով" ; + Pl => base_1+"ուններով" + } ; + Loc => table { + Sg => nonExist ; + Pl => base_1+"ուններում" + } + } ; + def_dat = table { + Sg => base_1+"վան" ; + Pl => base_1+"ուններին" + } ; + def_nom = table { + Sg => base_1+"ունը" ; + Pl => base_1+"ունները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ունս" ; + Pl => base_1+"ուններս" + } ; + Dat => table { + Sg => base_1+"վաս" ; + Pl => base_1+"ուններիս" + } ; + Ablat => table { + Sg => base_1+"վանիցս" ; + Pl => base_1+"ուններիցս" + } ; + Instr => table { + Sg => base_1+"ունովս" ; + Pl => base_1+"ուններովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => base_1+"ուններումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ունդ" ; + Pl => base_1+"ուններդ" + } ; + Dat => table { + Sg => base_1+"վադ" ; + Pl => base_1+"ուններիդ" + } ; + Ablat => table { + Sg => base_1+"վանիցդ" ; + Pl => base_1+"ուններիցդ" + } ; + Instr => table { + Sg => base_1+"ունովդ" ; + Pl => base_1+"ուններովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => base_1+"ուններումդ" + } + } + }; + _ => error "Can't apply paradigm mkN032" + } ; + +mkN033 : Str -> N ; +mkN033 base = + case base of { + base_1+"ու" => lin N + { s = table { + Nom => table { + Sg => base_1+"ու" ; + Pl => base_1+"վեր" + } ; + Dat => table { + Sg => base_1+"վի" ; + Pl => base_1+"վերի" + } ; + Ablat => table { + Sg => base_1+"վից" ; + Pl => base_1+"վերից" + } ; + Instr => table { + Sg => base_1+"վով" ; + Pl => base_1+"վերով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"վին" ; + Pl => base_1+"վերին" + } ; + def_nom = table { + Sg => base_1+"ուն" ; + Pl => base_1+"վերը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ուս" ; + Pl => base_1+"վերս" + } ; + Dat => table { + Sg => base_1+"վիս" ; + Pl => base_1+"վերիս" + } ; + Ablat => table { + Sg => base_1+"վիցս" ; + Pl => base_1+"վերիցս" + } ; + Instr => table { + Sg => base_1+"վովս" ; + Pl => base_1+"վերովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"վերդ" + } ; + Dat => table { + Sg => base_1+"վիդ" ; + Pl => base_1+"վերիդ" + } ; + Ablat => table { + Sg => base_1+"վիցդ" ; + Pl => base_1+"վերիցդ" + } ; + Instr => table { + Sg => base_1+"վովդ" ; + Pl => base_1+"վերովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN033" + } ; + +mkN034 : Str -> N ; +mkN034 base = + case base of { + base_1+"ի"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ա"+base_2+"այք" + } ; + Dat => table { + Sg => base_1+base_2+"ոջ" ; + Pl => base_1+"ա"+base_2+"անց" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջից" ; + Pl => base_1+"ա"+base_2+"անցից" + } ; + Instr => table { + Sg => base_1+base_2+"ոջով" ; + Pl => base_1+"ա"+base_2+"անցով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ոջը" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ա"+base_2+"այքս" + } ; + Dat => table { + Sg => base_1+base_2+"ոջս" ; + Pl => base_1+"ա"+base_2+"անցս" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցս" ; + Pl => base_1+"ա"+base_2+"անցիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ոջովս" ; + Pl => base_1+"ա"+base_2+"անցովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ա"+base_2+"այքդ" + } ; + Dat => table { + Sg => base_1+base_2+"ոջդ" ; + Pl => base_1+"ա"+base_2+"անցդ" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցդ" ; + Pl => base_1+"ա"+base_2+"անցիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ոջովդ" ; + Pl => base_1+"ա"+base_2+"անցովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN034" + } ; + +mkN035 : Str -> N ; +mkN035 base = + case base of { + base_1+"ի"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ի"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ա" ; + Pl => base_1+"ի"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"անից" ; + Pl => base_1+"ի"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"անով" ; + Pl => base_1+"ի"+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ան" ; + Pl => base_1+"ի"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+"ի"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ի"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"անս" ; + Pl => base_1+"ի"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"անիցս" ; + Pl => base_1+"ի"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"անովս" ; + Pl => base_1+"ի"+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ի"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"անդ" ; + Pl => base_1+"ի"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"անիցդ" ; + Pl => base_1+"ի"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"անովդ" ; + Pl => base_1+"ի"+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN035" + } ; + +mkN036 : Str -> N ; +mkN036 base = + case base of { + base_1+"այ"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"այ"+base_2 ; + Pl => base_1+"այ"+base_2+"եր" + } ; + Dat => table { + Sg => base_1+"ո"+base_2 ; + Pl => base_1+"այ"+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"ից" ; + Pl => base_1+"այ"+base_2+"երից" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ով" ; + Pl => base_1+"այ"+base_2+"երով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ո"+base_2+"ը" ; + Pl => base_1+"այ"+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"այ"+base_2+"ը" ; + Pl => base_1+"այ"+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"այ"+base_2+"ս" ; + Pl => base_1+"այ"+base_2+"երս" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"ս" ; + Pl => base_1+"այ"+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցս" ; + Pl => base_1+"այ"+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովս" ; + Pl => base_1+"այ"+base_2+"երովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"այ"+base_2+"դ" ; + Pl => base_1+"այ"+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"դ" ; + Pl => base_1+"այ"+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցդ" ; + Pl => base_1+"այ"+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովդ" ; + Pl => base_1+"այ"+base_2+"երովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN036" + } ; + +mkN037 : Str -> N ; +mkN037 base = + case base of { + base_1+"ե"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ե"+base_2 ; + Pl => base_1+"ե"+base_2+"եր" + } ; + Dat => table { + Sg => base_1+"ո"+base_2 ; + Pl => base_1+"ե"+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"ից" ; + Pl => base_1+"ե"+base_2+"երից" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ով" ; + Pl => base_1+"ե"+base_2+"երով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ո"+base_2+"ը" ; + Pl => base_1+"ե"+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ե"+base_2+"ը" ; + Pl => base_1+"ե"+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"ս" ; + Pl => base_1+"ե"+base_2+"երս" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"ս" ; + Pl => base_1+"ե"+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցս" ; + Pl => base_1+"ե"+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովս" ; + Pl => base_1+"ե"+base_2+"երովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"դ" ; + Pl => base_1+"ե"+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"դ" ; + Pl => base_1+"ե"+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցդ" ; + Pl => base_1+"ե"+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովդ" ; + Pl => base_1+"ե"+base_2+"երովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN037" + } ; + +mkN038 : Str -> N ; +mkN038 base = + case base of { + base_1+"ու" => lin N + { s = table { + Nom => table { + Sg => base_1+"ու" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վա" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանից" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"վան" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ուն" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ուս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վաս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցս" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ուդ" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վադ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN038" + } ; + +mkN039 : Str -> N ; +mkN039 base = + case base of { + base_1+base_2@?+"ւյր" => lin N + { s = table { + Nom => table { + Sg => base_1+base_2+"ւյր" ; + Pl => base_1+base_2+"ւյրներ" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջ" ; + Pl => base_1+base_2+"ւյրների" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջից" ; + Pl => base_1+base_2+"ւյրներից" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջով" ; + Pl => base_1+base_2+"ւյրներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ր"+base_2+"ջը" ; + Pl => base_1+base_2+"ւյրներին" + } ; + def_nom = table { + Sg => base_1+base_2+"ւյրը" ; + Pl => base_1+base_2+"ւյրները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+base_2+"ւյրս" ; + Pl => base_1+base_2+"ւյրներս" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջս" ; + Pl => base_1+base_2+"ւյրներիս" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջիցս" ; + Pl => base_1+base_2+"ւյրներիցս" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջովս" ; + Pl => base_1+base_2+"ւյրներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+base_2+"ւյրդ" ; + Pl => base_1+base_2+"ւյրներդ" + } ; + Dat => table { + Sg => base_1+"ր"+base_2+"ջդ" ; + Pl => base_1+base_2+"ւյրներիդ" + } ; + Ablat => table { + Sg => base_1+"ր"+base_2+"ջիցդ" ; + Pl => base_1+base_2+"ւյրներիցդ" + } ; + Instr => table { + Sg => base_1+"ր"+base_2+"ջովդ" ; + Pl => base_1+base_2+"ւյրներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN039" + } ; + +mkN040 : Str -> N ; +mkN040 base = + case base of { + base_1+"այ"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"այ"+base_2 ; + Pl => base_1+"այ"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2 ; + Pl => base_1+"այ"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"ից" ; + Pl => base_1+"այ"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ով" ; + Pl => base_1+"այ"+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ո"+base_2+"ը" ; + Pl => base_1+"այ"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"այ"+base_2+"ը" ; + Pl => base_1+"այ"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"այ"+base_2+"ս" ; + Pl => base_1+"այ"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"ս" ; + Pl => base_1+"այ"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցս" ; + Pl => base_1+"այ"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովս" ; + Pl => base_1+"այ"+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"այ"+base_2+"դ" ; + Pl => base_1+"այ"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+"ո"+base_2+"դ" ; + Pl => base_1+"այ"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ո"+base_2+"իցդ" ; + Pl => base_1+"այ"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ո"+base_2+"ովդ" ; + Pl => base_1+"այ"+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN040" + } ; + +mkN041 : Str -> N ; +mkN041 base = + case base of { + base_1+"ե"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ե"+base_2 ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"ի" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"ից" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ով" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ի"+base_2+"ում" ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ի"+base_2+"ին" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ե"+base_2+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"ս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"իս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"իցս" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ի"+base_2+"ումս" ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"դ" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"իդ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"իցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ի"+base_2+"ումդ" ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN041" + } ; + +mkN042 : Str -> N ; +mkN042 base = + case base of { + base_1+"ի" => lin N + { s = table { + Nom => table { + Sg => base_1+"ի" ; + Pl => base_1+"իներ" + } ; + Dat => table { + Sg => base_1+"ու" ; + Pl => base_1+"իների" + } ; + Ablat => table { + Sg => base_1+"ուց" ; + Pl => base_1+"իներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"իներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ուն" ; + Pl => base_1+"իներին" + } ; + def_nom = table { + Sg => base_1+"ին" ; + Pl => base_1+"իները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"իս" ; + Pl => base_1+"իներս" + } ; + Dat => table { + Sg => base_1+"ուս" ; + Pl => base_1+"ունս" + } ; + Ablat => table { + Sg => base_1+"ուցս" ; + Pl => base_1+"իներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"իներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"իդ" ; + Pl => base_1+"իներդ" + } ; + Dat => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"իներիդ" + } ; + Ablat => table { + Sg => base_1+"ուցդ" ; + Pl => base_1+"իներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"իներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN042" + } ; + +mkN043 : Str -> N ; +mkN043 base = + case base of { + base_1+"ե"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ե"+base_2 ; + Pl => base_1+"ե"+base_2+"եր" + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"ոջ" ; + Pl => base_1+"ե"+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"ոջից" ; + Pl => base_1+"ե"+base_2+"երից" + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ոջով" ; + Pl => base_1+"ե"+base_2+"երով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ի"+base_2+"ոջը" ; + Pl => base_1+"ե"+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ե"+base_2+"ը" ; + Pl => base_1+"ե"+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"ս" ; + Pl => base_1+"ե"+base_2+"երս" + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"ոջս" ; + Pl => base_1+"ե"+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"ոջիցս" ; + Pl => base_1+"ե"+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ոջովս" ; + Pl => base_1+"ե"+base_2+"երովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ե"+base_2+"դ" ; + Pl => base_1+"ե"+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+"ի"+base_2+"ոջդ" ; + Pl => base_1+"ե"+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+"ի"+base_2+"ոջիցդ" ; + Pl => base_1+"ե"+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ի"+base_2+"ոջովդ" ; + Pl => base_1+"ե"+base_2+"երովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN043" + } ; + +mkN044 : Str -> N ; +mkN044 base = + case base of { + base_1+"ու"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"ոջ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"ոջից" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ոջով" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ոջը" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"ոջս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցս" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ոջովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+base_2+"ոջդ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+base_2+"ոջովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN044" + } ; + +mkN045 : Str -> N ; +mkN045 base = + case base of { + base_1+"ը" => lin N + { s = table { + Nom => table { + Sg => base_1+"ը" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վա" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանից" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"վան" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ըս" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վաս" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցս" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ըդ" ; + Pl => nonExist + } ; + Dat => table { + Sg => base_1+"վադ" ; + Pl => nonExist + } ; + Ablat => table { + Sg => base_1+"վանիցդ" ; + Pl => nonExist + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => nonExist + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN045" + } ; + +mkN046 : Str -> N ; +mkN046 base = + case base of { + base_1+"ի"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ա"+base_2+"այք" --guessed + } ; + Dat => table { + Sg => base_1+base_2+"ոջ" ; + Pl => base_1+"ա"+base_2+"անց" --guessed + } ; + Ablat => table { + Sg => base_1+base_2+"ոջից" ; + Pl => base_1+"ա"+base_2+"անցից" --guessed + } ; + Instr => table { + Sg => base_1+base_2+"ոջով" ; + Pl => base_1+"ա"+base_2+"անցով" --guessed + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ոջը" ; + Pl => base_1+"ի"+base_2+"ներին" --guessed + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+"ի"+base_2+"ները" --guessed + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ա"+base_2+"այքս" --guessed + } ; + Dat => table { + Sg => base_1+base_2+"ոջս" ; + Pl => base_1+"ա"+base_2+"անցս" --guessed + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցս" ; + Pl => base_1+"ա"+base_2+"անցիցս" --guessed + } ; + Instr => table { + Sg => base_1+base_2+"ոջովս" ; + Pl => base_1+"ա"+base_2+"անցովս" --guessed + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ա"+base_2+"այքդ" --guessed + } ; + Dat => table { + Sg => base_1+base_2+"ոջդ" ; + Pl => base_1+"ա"+base_2+"անցդ" --guessed + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցդ" ; + Pl => base_1+"ա"+base_2+"անցիցդ" --guessed + } ; + Instr => table { + Sg => base_1+base_2+"ոջովդ" ; + Pl => base_1+"ա"+base_2+"անցովդ" --guessed + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN046" + } ; + +mkN047 : Str -> N ; +mkN047 base = + case base of { + base_1 => lin N + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"իկ" + } ; + Dat => table { + Sg => base_1+"ու" ; + Pl => base_1+"կանց" + } ; + Ablat => table { + Sg => base_1+"ուց" ; + Pl => base_1+"կանցից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"կանցով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ուն" ; + Pl => nonExist + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => nonExist + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"իկս" + } ; + Dat => table { + Sg => base_1+"ուս" ; + Pl => base_1+"կանցս" + } ; + Ablat => table { + Sg => base_1+"ուցս" ; + Pl => base_1+"կանցիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"կանցովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"իկդ" + } ; + Dat => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"կանցդ" + } ; + Ablat => table { + Sg => base_1+"ուցդ" ; + Pl => base_1+"կանցիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"կանցովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN047" + } ; + +mkN048 : Str -> N ; +mkN048 base = + case base of { + base_1+"ու"+base_2@(?+?) => lin N + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"յան" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"յամբ" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"յանը" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"յանս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"յանդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"ու"+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ու"+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ու"+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkN048" + } ; + +mkN049 : Str -> N ; +mkN049 base = + case base of { + base_1+"ի"+base_2@? => lin N + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ի"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ոջ" ; + Pl => base_1+"ի"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջից" ; + Pl => base_1+"ի"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ոջով" ; + Pl => base_1+"ի"+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+base_2+"ոջը" ; + Pl => base_1+"ի"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+"ի"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ի"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"ոջս" ; + Pl => base_1+"ի"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցս" ; + Pl => base_1+"ի"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ոջովս" ; + Pl => base_1+"ի"+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ի"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"ոջդ" ; + Pl => base_1+"ի"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"ոջիցդ" ; + Pl => base_1+"ի"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ոջովդ" ; + Pl => base_1+"ի"+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkN049" + } ; + +mkA001 : Str -> A ; +mkA001 base = + case base of { + base_1 => lin A + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA001" + } ; + +mkA002 : Str -> A ; +mkA002 base = + case base of { + base_1 => lin A + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA002" + } ; + +mkA003 : Str -> A ; +mkA003 base = + case base of { + base_1+"ի" => lin A + { s = table { + Nom => table { + Sg => base_1+"ի" ; + Pl => base_1+"իներ" + } ; + Dat => table { + Sg => base_1+"ու" ; + Pl => base_1+"իների" + } ; + Ablat => table { + Sg => base_1+"ուց" ; + Pl => base_1+"իներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"իներով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"իներում" + } + } ; + def_dat = table { + Sg => base_1+"ուն" ; + Pl => base_1+"իներին" + } ; + def_nom = table { + Sg => base_1+"ին" ; + Pl => base_1+"իները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"իս" ; + Pl => base_1+"իներս" + } ; + Dat => table { + Sg => base_1+"ուս" ; + Pl => base_1+"իներիս" + } ; + Ablat => table { + Sg => base_1+"ուցս" ; + Pl => base_1+"իներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"իներովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"իներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"իդ" ; + Pl => base_1+"իներդ" + } ; + Dat => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"իներիդ" + } ; + Ablat => table { + Sg => base_1+"ուցդ" ; + Pl => base_1+"իներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"իներովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"իներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA003" + } ; + +mkA004 : Str -> A ; +mkA004 base = + case base of { + base_1 => lin A + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"ներ" + } ; + Dat => table { + Sg => base_1+"յի" ; + Pl => base_1+"ների" + } ; + Ablat => table { + Sg => base_1+"յից" ; + Pl => base_1+"ներից" + } ; + Instr => table { + Sg => base_1+"յով" ; + Pl => base_1+"ներով" + } ; + Loc => table { + Sg => base_1+"յում" ; + Pl => base_1+"ներում" + } + } ; + def_dat = table { + Sg => base_1+"յին" ; + Pl => base_1+"ներին" + } ; + def_nom = table { + Sg => base_1+"ն" ; + Pl => base_1+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"ներս" + } ; + Dat => table { + Sg => base_1+"յիս" ; + Pl => base_1+"ներիս" + } ; + Ablat => table { + Sg => base_1+"յիցս" ; + Pl => base_1+"ներիցս" + } ; + Instr => table { + Sg => base_1+"յովս" ; + Pl => base_1+"ներովս" + } ; + Loc => table { + Sg => base_1+"յումս" ; + Pl => base_1+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"ներդ" + } ; + Dat => table { + Sg => base_1+"յիդ" ; + Pl => base_1+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"յիցդ" ; + Pl => base_1+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"յովդ" ; + Pl => base_1+"ներովդ" + } ; + Loc => table { + Sg => base_1+"յումդ" ; + Pl => base_1+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA004" + } ; + +mkA005 : Str -> A ; +mkA005 base = + case base of { + base_1 => lin A + { s = table { + Nom => table { + Sg => base_1 ; + Pl => base_1+"եր" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"երի" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"երից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"երով" + } ; + Loc => table { + Sg => base_1+"ում" ; + Pl => base_1+"երում" + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"երին" + } ; + def_nom = table { + Sg => base_1+"ը" ; + Pl => base_1+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ս" ; + Pl => base_1+"երս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"երիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"երիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"երովս" + } ; + Loc => table { + Sg => base_1+"ումս" ; + Pl => base_1+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"դ" ; + Pl => base_1+"երդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"երիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"երիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"երովդ" + } ; + Loc => table { + Sg => base_1+"ումդ" ; + Pl => base_1+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkA005" + } ; + +mkA006 : Str -> A ; +mkA006 base = + case base of { + base_1+"ի"+base_2@("շտ"|?) => lin A + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+"ի"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+"ի"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+"ի"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+"ի"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+"ի"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+"ի"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+"ի"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+"ի"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+"ի"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+"ի"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+"ի"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+"ի"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+"ի"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+"ի"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+"ի"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+"ի"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+"ի"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA006" + } ; + +mkA007 : Str -> A ; +mkA007 base = + case base of { + base_1+base_2@(?+?+?+?+?) => lin A + { s = table { + Nom => table { + Sg => base_1+base_2 ; + Pl => base_1+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+"յ"+base_2+"յի" ; + Pl => base_1+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+"յ"+base_2+"յից" ; + Pl => base_1+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+"յ"+base_2+"յով" ; + Pl => base_1+base_2+"ներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"յ"+base_2+"յին" ; + Pl => base_1+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+base_2+"ն" ; + Pl => base_1+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+base_2+"ս" ; + Pl => base_1+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+"յ"+base_2+"յիս" ; + Pl => base_1+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+"յ"+base_2+"յիցս" ; + Pl => base_1+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+"յ"+base_2+"յովս" ; + Pl => base_1+base_2+"ներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+base_2+"դ" ; + Pl => base_1+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+"յ"+base_2+"յիդ" ; + Pl => base_1+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+"յ"+base_2+"յիցդ" ; + Pl => base_1+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+"յ"+base_2+"յովդ" ; + Pl => base_1+base_2+"ներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkA007" + } ; + +mkA008 : Str -> A ; +mkA008 base = + case base of { + base_1+"ու"+base_2@("նչ"|?) => lin A + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+"ու"+base_2+"ներ" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+"ու"+base_2+"ների" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+"ու"+base_2+"ներից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+"ու"+base_2+"ներով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+"ու"+base_2+"ներում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+"ու"+base_2+"ներին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+"ու"+base_2+"ները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+"ու"+base_2+"ներս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+"ու"+base_2+"ներիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+"ու"+base_2+"ներիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+"ու"+base_2+"ներովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+"ու"+base_2+"ներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+"ու"+base_2+"ներդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+"ու"+base_2+"ներիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+"ու"+base_2+"ներիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+"ու"+base_2+"ներովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+"ու"+base_2+"ներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA008" + } ; + +mkA009 : Str -> A ; +mkA009 base = + case base of { + base_1+"ու" => lin A + { s = table { + Nom => table { + Sg => base_1+"ու" ; + Pl => base_1+"ուներ" + } ; + Dat => table { + Sg => base_1+"վի" ; + Pl => base_1+"ուների" + } ; + Ablat => table { + Sg => base_1+"վից" ; + Pl => base_1+"ուներից" + } ; + Instr => table { + Sg => base_1+"վով" ; + Pl => base_1+"ուներով" + } ; + Loc => table { + Sg => base_1+"վում" ; + Pl => base_1+"ուներում" + } + } ; + def_dat = table { + Sg => base_1+"վին" ; + Pl => base_1+"ուներին" + } ; + def_nom = table { + Sg => base_1+"ուն" ; + Pl => base_1+"ուները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ուս" ; + Pl => base_1+"ուներս" + } ; + Dat => table { + Sg => base_1+"վիս" ; + Pl => base_1+"ուներիս" + } ; + Ablat => table { + Sg => base_1+"վիցս" ; + Pl => base_1+"ուներիցս" + } ; + Instr => table { + Sg => base_1+"վովս" ; + Pl => base_1+"ուներովս" + } ; + Loc => table { + Sg => base_1+"վումս" ; + Pl => base_1+"ուներումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ուդ" ; + Pl => base_1+"ուներդ" + } ; + Dat => table { + Sg => base_1+"վիդ" ; + Pl => base_1+"ուներիդ" + } ; + Ablat => table { + Sg => base_1+"վիցդ" ; + Pl => base_1+"ուներիցդ" + } ; + Instr => table { + Sg => base_1+"վովդ" ; + Pl => base_1+"ուներովդ" + } ; + Loc => table { + Sg => base_1+"վումդ" ; + Pl => base_1+"ուներումդ" + } + } + }; + _ => error "Can't apply paradigm mkA009" + } ; + +mkA010 : Str -> A ; +mkA010 base = + case base of { + base_1@?+"ի"+base_2 => lin A + { s = table { + Nom => table { + Sg => base_1+"ի"+base_2 ; + Pl => base_1+base_2+"եր" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+base_2+"երից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+base_2+"երով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+base_2+"երում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ի"+base_2+"ը" ; + Pl => base_1+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"ս" ; + Pl => base_1+base_2+"երս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+base_2+"երովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+base_2+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ի"+base_2+"դ" ; + Pl => base_1+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+base_2+"երովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+base_2+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkA010" + } ; + +mkA011 : Str -> A ; +mkA011 base = + case base of { + base_1+"ու"+base_2@? => lin A + { s = table { + Nom => table { + Sg => base_1+"ու"+base_2 ; + Pl => base_1+base_2+"եր" + } ; + Dat => table { + Sg => base_1+base_2+"ի" ; + Pl => base_1+base_2+"երի" + } ; + Ablat => table { + Sg => base_1+base_2+"ից" ; + Pl => base_1+base_2+"երից" + } ; + Instr => table { + Sg => base_1+base_2+"ով" ; + Pl => base_1+base_2+"երով" + } ; + Loc => table { + Sg => base_1+base_2+"ում" ; + Pl => base_1+base_2+"երում" + } + } ; + def_dat = table { + Sg => base_1+base_2+"ին" ; + Pl => base_1+base_2+"երին" + } ; + def_nom = table { + Sg => base_1+"ու"+base_2+"ը" ; + Pl => base_1+base_2+"երը" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"ս" ; + Pl => base_1+base_2+"երս" + } ; + Dat => table { + Sg => base_1+base_2+"իս" ; + Pl => base_1+base_2+"երիս" + } ; + Ablat => table { + Sg => base_1+base_2+"իցս" ; + Pl => base_1+base_2+"երիցս" + } ; + Instr => table { + Sg => base_1+base_2+"ովս" ; + Pl => base_1+base_2+"երովս" + } ; + Loc => table { + Sg => base_1+base_2+"ումս" ; + Pl => base_1+base_2+"երումս" + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"ու"+base_2+"դ" ; + Pl => base_1+base_2+"երդ" + } ; + Dat => table { + Sg => base_1+base_2+"իդ" ; + Pl => base_1+base_2+"երիդ" + } ; + Ablat => table { + Sg => base_1+base_2+"իցդ" ; + Pl => base_1+base_2+"երիցդ" + } ; + Instr => table { + Sg => base_1+base_2+"ովդ" ; + Pl => base_1+base_2+"երովդ" + } ; + Loc => table { + Sg => base_1+base_2+"ումդ" ; + Pl => base_1+base_2+"երումդ" + } + } + }; + _ => error "Can't apply paradigm mkA011" + } ; + +mkA012 : Str -> A ; +mkA012 base = + case base of { + base_1+"ի" => lin A + { s = table { + Nom => table { + Sg => base_1+"ի" ; + Pl => base_1+"իներ" + } ; + Dat => table { + Sg => base_1+"ի" ; + Pl => base_1+"իների" + } ; + Ablat => table { + Sg => base_1+"ից" ; + Pl => base_1+"իներից" + } ; + Instr => table { + Sg => base_1+"ով" ; + Pl => base_1+"իներով" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + def_dat = table { + Sg => base_1+"ին" ; + Pl => base_1+"իներին" + } ; + def_nom = table { + Sg => base_1+"ին" ; + Pl => base_1+"իները" + } ; + poss1 = table { + Nom => table { + Sg => base_1+"իս" ; + Pl => base_1+"իներս" + } ; + Dat => table { + Sg => base_1+"իս" ; + Pl => base_1+"իներիս" + } ; + Ablat => table { + Sg => base_1+"իցս" ; + Pl => base_1+"իներիցս" + } ; + Instr => table { + Sg => base_1+"ովս" ; + Pl => base_1+"իներովս" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } ; + poss2 = table { + Nom => table { + Sg => base_1+"իդ" ; + Pl => base_1+"իներդ" + } ; + Dat => table { + Sg => base_1+"իդ" ; + Pl => base_1+"իներիդ" + } ; + Ablat => table { + Sg => base_1+"իցդ" ; + Pl => base_1+"իներիցդ" + } ; + Instr => table { + Sg => base_1+"ովդ" ; + Pl => base_1+"իներովդ" + } ; + Loc => table { + Sg => nonExist ; + Pl => nonExist + } + } + }; + _ => error "Can't apply paradigm mkA012" + } ; +} \ No newline at end of file diff --git a/src/armenian/NounHye.gf b/src/armenian/NounHye.gf new file mode 100644 index 00000000..652b2511 --- /dev/null +++ b/src/armenian/NounHye.gf @@ -0,0 +1,4 @@ +concrete NounHye of Noun = CatHye ** { +lin + UseN n = n ; +} diff --git a/src/armenian/ParadigmsHye.gf b/src/armenian/ParadigmsHye.gf new file mode 100644 index 00000000..434f5453 --- /dev/null +++ b/src/armenian/ParadigmsHye.gf @@ -0,0 +1,488 @@ +resource ParadigmsHye = MorphoHye ** open Predef, Prelude, CatHye, ResHye in { +oper + regV : Str -> V -- s + = \form -> case form of { + _ + "ղալ" => mkV002 form; + _ + "ձալ" => mkV002 form; + _ + "զալ" => mkV002 form; + _ + "լալ" => mkV002 form; + _ + "թալ" => mkV002 form; + _ + "ռալ" => mkV002 form; + _ + "րալ" => mkV002 form; + _ + "ւալ" => mkV002 form; + _ + "ջալ" => mkV002 form; + _ + "գալ" => mkV002 form; + _ + "տալ" => mkV002 form; + _ + "ճալ" => mkV002 form; + _ + "սալ" => mkV002 form; + _ + "փալ" => mkV002 form; + _ + "կալ" => mkV002 form; + _ + "վալ" => mkV002 form; + _ + "բալ" => mkV002 form; + _ + "ծալ" => mkV002 form; + _ + "չալ" => mkV002 form; + _ + "նալ" => mkV004 form; + _ + "ել" => mkV001 form; + _ => error "Cannot find an inflection rule" + } ; + + reg2V : Str -> Str -> V -- s Imperative_Jussive;Pl + = \form1, form2 -> case of { + <_ + "լ", _ + "է՛ք"> => mkV012 form1; + _ => regV form1 + } ; + + regN : Str -> N -- s;Nom;Sg + = \form -> case form of { + _ + "իւն" => mkN008 form; + _ + "ժամ" => mkN007 form; + _ + "մոմ" => mkN007 form; + _ + "ւնտ" => mkN007 form; + _ + "րստ" => mkN007 form; + _ + "խոտ" => mkN007 form; + _ + "ելտ" => mkN007 form; + _ + "տառ" => mkN007 form; + _ + "երդ" => mkN007 form; + _ + "ձող" => mkN007 form; + _ + "փող" => mkN007 form; + _ + "հող" => mkN007 form; + _ + "խաղ" => mkN007 form; + _ + "իկղ" => mkN007 form; + _ + "շոր" => mkN007 form; + _ + "զոր" => mkN007 form; + _ + "շեր" => mkN016 form; + _ + "եգր" => mkN007 form; + _ + "թել" => mkN007 form; + _ + "խել" => mkN007 form; + _ + "ճոճ" => mkN007 form; + _ + "իցք" => mkN007 form; + _ + "ենք" => mkN007 form; + _ + "ուրծք" => mkN005 form; + _ + "յծք" => mkN007 form; + _ + "նչք" => mkN007 form; + _ + "ծոց" => mkN007 form; + _ + "այց" => mkN007 form; + _ + "կաց" => mkN007 form; + _ + "ջիջ" => mkN013 form; + _ + "եղջ" => mkN007 form; + _ + "ւրթ" => mkN007 form; + _ + "յոթ" => mkN007 form; + _ + "ճապ" => mkN001 form; + _ + "րապ" => mkN001 form; + _ + "լեպ" => mkN001 form; + _ + "ծագ" => mkN007 form; + _ + "ենգ" => mkN007 form; + _ + "գիչ" => mkN013 form; + _ + "միչ" => mkN013 form; + _ + "տիչ" => mkN013 form; + _ + "նիչ" => mkN013 form; + _ + "ւրծ" => mkN007 form; + _ + "թու" => mkN012 form; + _ + "զու" => mkN012 form; + _ + "ռու" => mkN012 form; + _ + "ճու" => mkN012 form; + _ + "ղու" => mkN012 form; + _ + "ճաշ" => mkN007 form; + _ + "վիշ" => mkN013 form; + _ + "ուրձ" => mkN005 form; + _ + "դհի" => mkN006 form; + _ + "ւդի" => mkN006 form; + _ + "ուն" => mkN010 form; + _ + "սն" => mkN007 form; + _ + "կն" => mkN007 form; + _ + "շն" => mkN007 form; + _ + "մն" => mkN007 form; + _ + "ռն" => mkN007 form; + _ + "ձն" => mkN007 form; + _ + "նն" => mkN007 form; + _ + "ւմ" => mkN004 form; + _ + "րմ" => mkN007 form; + _ + "ղմ" => mkN007 form; + _ + "յմ" => mkN007 form; + _ + "հմ" => mkN007 form; + _ + "լմ" => mkN007 form; + _ + "յտ" => mkN007 form; + _ + "յռ" => mkN007 form; + _ + "ղդ" => mkN007 form; + _ + "տղ" => mkN007 form; + _ + "ղխ" => mkN007 form; + _ + "լխ" => mkN007 form; + _ + "ճխ" => mkN007 form; + _ + "չխ" => mkN007 form; + _ + "ղկ" => mkN007 form; + _ + "սկ" => mkN007 form; + _ + "տր" => mkN007 form; + _ + "կր" => mkN007 form; + _ + "նր" => mkN007 form; + _ + "ղր" => mkN007 form; + _ + "խր" => mkN007 form; + _ + "բր" => mkN007 form; + _ + "օր" => mkN016 form; + _ + "յլ" => mkN007 form; + _ + "րս" => mkN007 form; + _ + "մս" => mkN007 form; + _ + "փս" => mkN007 form; + _ + "լս" => mkN007 form; + _ + "րճ" => mkN007 form; + _ + "եճ" => mkN007 form; + _ + "աճ" => mkN007 form; + _ + "նճ" => mkN007 form; + _ + "ջք" => mkN007 form; + _ + "մք" => mkN007 form; + _ + "վք" => mkN007 form; + _ + "թք" => mkN007 form; + _ + "բք" => mkN007 form; + _ + "խց" => mkN007 form; + _ + "ղց" => mkN007 form; + _ + "վթ" => mkN007 form; + _ + "ղբ" => mkN007 form; + _ + "րբ" => mkN007 form; + _ + "ուբ" => mkN005 form; + _ + "զբ" => mkN007 form; + _ + "եբ" => mkN007 form; + _ + "ոպ" => mkN001 form; + _ + "ւպ" => mkN001 form; + _ + "իպ" => mkN001 form; + _ + "եգ" => mkN007 form; + _ + "իգ" => mkN007 form; + _ + "ոգ" => mkN007 form; + _ + "յգ" => mkN007 form; + _ + "ուրչ" => mkN005 form; + _ + "շչ" => mkN007 form; + _ + "նծ" => mkN007 form; + _ + "եծ" => mkN007 form; + _ + "յծ" => mkN007 form; + _ + "եւ" => mkN001 form; + _ + "աւ" => mkN001 form; + _ + "ւժ" => mkN007 form; + _ + "իժ" => mkN013 form; + _ + "քշ" => mkN007 form; + _ + "րշ" => mkN007 form; + _ + "ուզ" => mkN005 form; + _ + "րզ" => mkN007 form; + _ + "ավ" => mkN007 form; + _ + "յվ" => mkN007 form; + _ + "աֆ" => mkN001 form; + _ + "լֆ" => mkN001 form; + _ + "իփ" => mkN001 form; + _ + "ափ" => mkN001 form; + _ + "ոյ" => mkN007 form; + _ + "լի" => mkN006 form; + _ + "բի" => mkN006 form; + _ + "խի" => mkN006 form; + _ + "թի" => mkN006 form; + _ + "պի" => mkN006 form; + _ + "վի" => mkN006 form; + _ + "փի" => mkN006 form; + _ + "աի" => mkN006 form; + _ + "ջի" => mkN006 form; + _ + "ն" => mkN001 form; + _ + "մ" => mkN001 form; + _ + "տ" => mkN001 form; + _ + "ռ" => mkN001 form; + _ + "դ" => mkN001 form; + _ + "ղ" => mkN001 form; + _ + "խ" => mkN001 form; + _ + "կ" => mkN001 form; + _ + "ր" => mkN001 form; + _ + "լ" => mkN001 form; + _ + "ս" => mkN001 form; + _ + "ճ" => mkN001 form; + _ + "ք" => mkN001 form; + _ + "ց" => mkN001 form; + _ + "ջ" => mkN001 form; + _ + "թ" => mkN001 form; + _ + "բ" => mkN001 form; + _ + "պ" => mkN007 form; + _ + "գ" => mkN001 form; + _ + "չ" => mkN001 form; + _ + "ծ" => mkN001 form; + _ + "ւ" => mkN006 form; + _ + "ժ" => mkN001 form; + _ + "շ" => mkN001 form; + _ + "զ" => mkN001 form; + _ + "ձ" => mkN007 form; + _ + "վ" => mkN001 form; + _ + "ֆ" => mkN007 form; + _ + "հ" => mkN001 form; + _ + "փ" => mkN007 form; + _ + "յ" => mkN001 form; + _ + "ա" => mkN002 form; + _ + "ո" => mkN002 form; + _ + "ի" => mkN003 form; + _ + "ե" => mkN006 form; + _ + "է" => mkN006 form; + _ => error "Cannot find an inflection rule" + } ; + + reg2N : Str -> Str -> N -- s;Nom;Sg s;Dat;Sg + = \form1, form2 -> case of { + <_ + "թու", _ + "ւի"> => mkN006 form1; + <_ + "շեր", _ + "ի"> => mkN001 form1; + <_ + "ժամ", _ + "ա"> => mkN016 form1; + <_ + "ուն", _ + "բնի"> => mkN005 form1; + <_ + "ւն", _ + "վան"> => mkN009 form1; + <_ + "ւն", _ + "տան"> => mkN028 form1; + <_ + "ւն", _ + "շան"> => mkN028 form1; + <_ + "ւզ", _ + "ւզի"> => mkN001 form1; + <_ + "ւն", _ + "ի"> => mkN001 form1; + <_ + "ւն", _ + "ա"> => mkN032 form1; + <_ + "ւմ", _ + "ի"> => mkN001 form1; + <_ + "լի", _ + "ւ"> => mkN003 form1; + <_ + "բի", _ + "ւ"> => mkN003 form1; + <_ + "խի", _ + "ւ"> => mkN003 form1; + <_ + "թի", _ + "ւ"> => mkN003 form1; + <_ + "տ", _ + "մտի"> => mkN005 form1; + <_ + "տ", _ + "գտի"> => mkN005 form1; + <_ + "տ", _ + "վտի"> => mkN013 form1; + <_ + "ռ", _ + "ճռի"> => mkN013 form1; + <_ + "ն", _ + "ծնի"> => mkN013 form1; + <_ + "ն", _ + "տնի"> => mkN013 form1; + <_ + "ն", _ + "ցնի"> => mkN013 form1; + <_ + "ն", _ + "ձնի"> => mkN013 form1; + <_ + "ն", _ + "բնի"> => mkN013 form1; + <_ + "ն", _ + "խնի"> => mkN013 form1; + <_ + "ղ", _ + "ւղի"> => mkN007 form1; + <_ + "ղ", _ + "վղի"> => mkN013 form1; + <_ + "ղ", _ + "փղի"> => mkN015 form1; + <_ + "ղ", _ + "տղի"> => mkN031 form1; + <_ + "խ", _ + "ծխի"> => mkN005 form1; + <_ + "խ", _ + "բխի"> => mkN031 form1; + <_ + "կ", _ + "ղկի"> => mkN013 form1; + <_ + "կ", _ + "տկի"> => mkN013 form1; + <_ + "կ", _ + "պկի"> => mkN013 form1; + <_ + "կ", _ + "զկի"> => mkN031 form1; + <_ + "ս", _ + "մսի"> => mkN013 form1; + <_ + "ճ", _ + "վճի"> => mkN013 form1; + <_ + "ճ", _ + "հճի"> => mkN013 form1; + <_ + "ց", _ + "տցի"> => mkN005 form1; + <_ + "ց", _ + "կցի"> => mkN013 form1; + <_ + "ր", _ + "դրի"> => mkN013 form1; + <_ + "ր", _ + "գրի"> => mkN015 form1; + <_ + "ր", _ + "տրի"> => mkN005 form1; + <_ + "ր", _ + "ջրի"> => mkN005 form1; + <_ + "ր", _ + "լրի"> => mkN005 form1; + <_ + "ր", _ + "նրի"> => mkN013 form1; + <_ + "ր", _ + "խրի"> => mkN013 form1; + <_ + "ր", _ + "կրի"> => mkN013 form1; + <_ + "ր", _ + "ցրի"> => mkN013 form1; + <_ + "չ", _ + "պչի"> => mkN013 form1; + <_ + "չ", _ + "կչի"> => mkN013 form1; + <_ + "չ", _ + "րչի"> => mkN013 form1; + <_ + "չ", _ + "ցչի"> => mkN013 form1; + <_ + "չ", _ + "վչի"> => mkN013 form1; + <_ + "ծ", _ + "գծի"> => mkN015 form1; + <_ + "շ", _ + "փշի"> => mkN005 form1; + <_ + "ի", _ + "իու"> => mkN027 form1; + <_ + "ի", _ + "ձիի"> => mkN017 form1; + <_ + "ւ", _ + "վի"> => mkN012 form1; + <_ + "տ", _ + "ա"> => mkN016 form1; + <_ + "ռ", _ + "ն"> => mkN026 form1; + <_ + "ն", _ + "ջ"> => mkN034 form1; + <_ + "կ", _ + "ա"> => mkN016 form1; + <_ + "կ", _ + "ն"> => mkN023 form1; + <_ + "ր", _ + "ջ"> => mkN043 form1; + <_ + "ի", _ + "ի"> => mkN006 form1; + _ => regN form1 + } ; + + regA : Str -> A -- s;Nom;Sg + = \form -> case form of { + _ + "կիչ" => mkA006 form; + _ + "ենգ" => mkA005 form; + _ + "աղջ" => mkA005 form; + _ + "սկի" => mkA003 form; + _ + "աղի" => mkA003 form; + _ + "ղց" => mkA005 form; + _ + "ջն" => mkA005 form; + _ + "եպ" => mkA005 form; + _ + "նտ" => mkA005 form; + _ + "ոդ" => mkA005 form; + _ + "ղծ" => mkA005 form; + _ + "յծ" => mkA005 form; + _ + "եծ" => mkA005 form; + _ + "ձր" => mkA005 form; + _ + "նր" => mkA005 form; + _ + "ծր" => mkA005 form; + _ + "մր" => mkA005 form; + _ + "սր" => mkA005 form; + _ + "քր" => mkA005 form; + _ + "ցր" => mkA005 form; + _ + "եւ" => mkA001 form; + _ + "ոկ" => mkA005 form; + _ + "ղմ" => mkA005 form; + _ + "տք" => mkA005 form; + _ + "իղ" => mkA006 form; + _ + "նչ" => mkA008 form; + _ + "ոխ" => mkA005 form; + _ + "ղխ" => mkA005 form; + _ + "ղթ" => mkA005 form; + _ + "ւթ" => mkA011 form; + _ + "րշ" => mkA005 form; + _ + "եշ" => mkA005 form; + _ + "քշ" => mkA005 form; + _ + "ոռ" => mkA005 form; + _ + "ւգ" => mkA005 form; + _ + "եգ" => mkA005 form; + _ + "րճ" => mkA005 form; + _ + "րզ" => mkA005 form; + _ + "եզ" => mkA005 form; + _ + "ւփ" => mkA005 form; + _ + "նջ" => mkA005 form; + _ + "աջ" => mkA005 form; + _ + "մբ" => mkA001 form; + _ + "ոյ" => mkA001 form; + _ + "բի" => mkA003 form; + _ + "սի" => mkA003 form; + _ + "ց" => mkA001 form; + _ + "ն" => mkA001 form; + _ + "պ" => mkA001 form; + _ + "տ" => mkA001 form; + _ + "դ" => mkA001 form; + _ + "վ" => mkA001 form; + _ + "ծ" => mkA001 form; + _ + "ձ" => mkA001 form; + _ + "ր" => mkA001 form; + _ + "լ" => mkA001 form; + _ + "ւ" => mkA002 form; + _ + "կ" => mkA001 form; + _ + "մ" => mkA001 form; + _ + "ք" => mkA001 form; + _ + "ղ" => mkA001 form; + _ + "չ" => mkA001 form; + _ + "ժ" => mkA001 form; + _ + "խ" => mkA001 form; + _ + "թ" => mkA001 form; + _ + "ս" => mkA001 form; + _ + "շ" => mkA001 form; + _ + "հ" => mkA001 form; + _ + "ռ" => mkA001 form; + _ + "գ" => mkA001 form; + _ + "ճ" => mkA001 form; + _ + "զ" => mkA001 form; + _ + "փ" => mkA001 form; + _ + "ջ" => mkA001 form; + _ + "բ" => mkA005 form; + _ + "յ" => mkA005 form; + _ + "ե" => mkA002 form; + _ + "ի" => mkA002 form; + _ + "ա" => mkA004 form; + _ + "ո" => mkA004 form; + _ => error "Cannot find an inflection rule" + } ; + + reg2A : Str -> Str -> A -- s;Nom;Sg s;Nom;Pl + = \form1, form2 -> case of { + <_ + "ոռ", _ + "ներ"> => mkA001 form1; + <_ + "տ", _ + "տեր"> => mkA005 form1; + <_ + "վ", _ + "վեր"> => mkA005 form1; + <_ + "ծ", _ + "ծեր"> => mkA005 form1; + <_ + "ձ", _ + "ձեր"> => mkA005 form1; + <_ + "լ", _ + "լեր"> => mkA005 form1; + <_ + "կ", _ + "կեր"> => mkA005 form1; + <_ + "մ", _ + "մեր"> => mkA005 form1; + <_ + "ք", _ + "քեր"> => mkA005 form1; + <_ + "ղ", _ + "ղեր"> => mkA005 form1; + <_ + "խ", _ + "խեր"> => mkA005 form1; + <_ + "թ", _ + "թեր"> => mkA005 form1; + <_ + "շ", _ + "շեր"> => mkA005 form1; + <_ + "հ", _ + "հեր"> => mkA005 form1; + <_ + "ռ", _ + "ռեր"> => mkA005 form1; + <_ + "գ", _ + "գեր"> => mkA005 form1; + <_ + "ճ", _ + "ճեր"> => mkA005 form1; + <_ + "զ", _ + "զեր"> => mkA005 form1; + <_ + "ջ", _ + "ջեր"> => mkA005 form1; + _ => regA form1 + } ; + + mkV = overload { + mkV : Str -> V = regV; -- s + mkV : Str -> Str -> V = reg2V -- s Imperative_Jussive;Pl + } ; + + mkVV,mkVS,mkVQ,mkVA = \v -> v ; + + mkV2 = overload { + mkV2 : V -> V2 = \v -> v ** {c2 = noPrep} ; + mkV2 : V -> Prep -> V2 = \v,p -> v ** {c2 = p} ; + } ; + + mkV3 = overload { + mkV3 : V -> V3 = \v -> v ** {c2 = noPrep; c3 = noPrep} ; + mkV3 : V -> Prep -> Prep -> V3 = \v,p1,p2 -> v ** {c2 = p1; c3 = p2} ; + } ; + + mkV2A = overload { + mkV2A : V -> V2A = \v -> v ** {c2 = noPrep; c3 = noPrep} ; + mkV2A : V -> Prep -> Prep -> V2A = \v,p1,p2 -> v ** {c2 = p1; c3 = p2} ; + } ; + + mkV2S = overload { + mkV2S : V -> V2S = \v -> v ** {c2 = noPrep; c3 = noPrep} ; + mkV2S : V -> Prep -> Prep -> V2S = \v,p1,p2 -> v ** {c2 = p1; c3 = p2} ; + } ; + + mkV2Q = overload { + mkV2Q : V -> V2Q = \v -> v ** {c2 = noPrep; c3 = noPrep} ; + mkV2Q : V -> Prep -> Prep -> V2Q = \v,p1,p2 -> v ** {c2 = p1; c3 = p2} ; + } ; + + mkV2V = overload { + mkV2V : V -> V2V = \v -> v ** {c2 = noPrep; c3 = noPrep} ; + mkV2V : V -> Prep -> Prep -> V2V = \v,p1,p2 -> v ** {c2 = p1; c3 = p2} ; + } ; + + mkN = overload { + mkN : Str -> N = regN; -- s;Nom;Sg + mkN : Str -> Str -> N = reg2N -- s;Nom;Sg s;Dat;Sg + } ; + + mkN2 = overload { + mkN2 : N -> N2 = \n -> n ** {c2 = noPrep} ; + mkN2 : N -> Prep -> N2 = \n,p -> n ** {c2 = p} ; + } ; + + mkN3 = overload { + mkN3 : N -> N3 = \n -> n ** {c2 = noPrep; c3 = noPrep} ; + mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> n ** {c2 = p1; c3 = p2} ; + } ; + + mkA = overload { + mkA : Str -> A = regA; -- s;Nom;Sg + mkA : Str -> Str -> A = reg2A -- s;Nom;Sg s;Nom;Pl + } ; + + mkA2 = overload { + mkA2 : A -> A2 = \a -> a ** {c2 = noPrep} ; + mkA2 : A -> Prep -> A2 = \a,p -> a ** {c2 = p} ; + } ; + + mkAdv : Str -> Adv = \s -> lin Adv {s=s} ; + mkAdV : Str -> AdV = \s -> lin AdV {s=s} ; + mkAdA : Str -> AdA = \s -> lin AdA {s=s} ; + mkAdN : Str -> AdN = \s -> lin AdN {s=s} ; + mkCAdv : Str -> CAdv = \s -> lin CAdv {s=s; p=""} ; + mkInterj : Str -> Interj = \s -> lin Interj {s=s} ; + mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ; + + mkPrep : Str -> Prep = \s -> lin Prep {s=s; c=Dat} ; + + mkIAdv : Str -> IAdv = \s -> lin IAdv {s=s} ; + mkIP : Str -> IP = \s -> lin IP {s=s} ; + mkIQuant : Str -> IQuant = \s -> lin IQuant {s=s} ; + mkIDet : Str -> IDet = \s -> lin IDet {s=s} ; + mkSubj : Str -> Subj = \s -> lin Subj {s=s} ; + mkQuant : Str -> Quant = \s -> lin Quant {s=s} ; + mkPredet : Str -> Predet = \s -> lin Predet {s=s} ; + mkDet : Str -> Det = \s -> lin Det {s=s} ; + mkCard : Str -> Card = \s -> lin Card {s=s} ; + mkConj : Str -> Conj = \s -> lin Conj {s=s} ; + mkPConj : Str -> PConj = \s -> lin PConj {s=s} ; + mkVoc : Str -> Voc = \s -> lin Voc {s=s} ; + + mkLN : Str -> LN = \s -> lin LN {s=s} ; + mkGN : Str -> GN = \s -> lin GN {s=s} ; + mkSN : Str -> SN = \s -> lin SN {s=s} ; + mkPN : Str -> PN = \s -> lin PN {s=s} ; + +} diff --git a/src/armenian/PhraseHye.gf b/src/armenian/PhraseHye.gf new file mode 100644 index 00000000..3a1de8aa --- /dev/null +++ b/src/armenian/PhraseHye.gf @@ -0,0 +1,11 @@ +concrete PhraseHye of Phrase = CatHye ** { +lin + PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ; + + UttS s = s ; + UttInterj i = i ; + + NoPConj = {s = []} ; + + NoVoc = {s = []} ; +} diff --git a/src/armenian/ResHye.gf b/src/armenian/ResHye.gf new file mode 100644 index 00000000..aad80cec --- /dev/null +++ b/src/armenian/ResHye.gf @@ -0,0 +1,269 @@ +resource ResHye = { + +param Aspect = Non_Past | Perfect ; +param Person = P1 | P3 | P2 ; +param Number = Sg | Pl ; +param Case = Nom | Dat | Ablat | Instr | Loc ; +param PartType = Resultative | Subject ; +oper Verb = {s: Str; Causative: Str; Conditional: Aspect => Person => Number => Str; Converb: {Imperfective: Str; FutCon1: Str; FutCon2: Str; Negative: Str; Perfective: Str; Simultaneous: Str}; Imperative_Jussive: Number => Str; Passive: Str; Past: Person => Number => Str; Participle: PartType => Str; Subjunctive: Aspect => Person => Number => Str} ; -- 898 +oper mkVerb : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Verb = + \f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34,f35,f36,f37,f38,f39,f40,f41,f42,f43 -> + { s = f1 ; + Causative = f2 ; + Conditional = table { + Perfect => table { + P1 => table { + Sg => f3 ; + Pl => f4 + } ; + P2 => table { + Sg => f5 ; + Pl => f6 + } ; + P3 => table { + Sg => f7 ; + Pl => f8 + } + } ; + Non_Past => table { + P1 => table { + Sg => f9 ; + Pl => f10 + } ; + P2 => table { + Sg => f11 ; + Pl => f12 + } ; + P3 => table { + Sg => f13 ; + Pl => f14 + } + } + } ; + Converb = { Imperfective = f15 ; + FutCon1 = f16 ; + FutCon2 = f17 ; + Negative = f18 ; + Perfective = f19 ; + Simultaneous = f20 + } ; + Imperative_Jussive = table { + Sg => f21 ; + Pl => f22 + } ; + Passive = f23 ; + Past = table { + P1 => table { + Sg => f24 ; + Pl => f25 + } ; + P2 => table { + Sg => f26 ; + Pl => f27 + } ; + P3 => table { + Sg => f28 ; + Pl => f29 + } + } ; + Participle = table { + Resultative => f30 ; + Subject => f31 + } ; + Subjunctive = table { + Perfect => table { + P1 => table { + Sg => f32 ; + Pl => f33 + } ; + P2 => table { + Sg => f34 ; + Pl => f35 + } ; + P3 => table { + Sg => f36 ; + Pl => f37 + } + } ; + Non_Past => table { + P1 => table { + Sg => f38 ; + Pl => f39 + } ; + P2 => table { + Sg => f40 ; + Pl => f41 + } ; + P3 => table { + Sg => f42 ; + Pl => f43 + } + } + } + } ; + + +oper Noun = {s: Case => Number => Str; def_dat: Number => Str; def_nom: Number => Str; poss1: Case => Number => Str; poss2: Case => Number => Str} ; -- 4880 +oper mkNoun : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Noun = + \f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34 -> + { s = table { + Nom => table { + Sg => f1 ; + Pl => f2 + } ; + Dat => table { + Sg => f3 ; + Pl => f4 + } ; + Ablat => table { + Sg => f5 ; + Pl => f6 + } ; + Instr => table { + Sg => f7 ; + Pl => f8 + } ; + Loc => table { + Sg => f9 ; + Pl => f10 + } + } ; + def_dat = table { + Sg => f11 ; + Pl => f12 + } ; + def_nom = table { + Sg => f13 ; + Pl => f14 + } ; + poss1 = table { + Nom => table { + Sg => f15 ; + Pl => f16 + } ; + Dat => table { + Sg => f17 ; + Pl => f18 + } ; + Ablat => table { + Sg => f19 ; + Pl => f20 + } ; + Instr => table { + Sg => f21 ; + Pl => f22 + } ; + Loc => table { + Sg => f23 ; + Pl => f24 + } + } ; + poss2 = table { + Nom => table { + Sg => f25 ; + Pl => f26 + } ; + Dat => table { + Sg => f27 ; + Pl => f28 + } ; + Ablat => table { + Sg => f29 ; + Pl => f30 + } ; + Instr => table { + Sg => f31 ; + Pl => f32 + } ; + Loc => table { + Sg => f33 ; + Pl => f34 + } + } + } ; + + +oper Adj = {s: Case => Number => Str; def_dat: Number => Str; def_nom: Number => Str; poss1: Case => Number => Str; poss2: Case => Number => Str} ; -- 1608 +oper mkAdj : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Adj = + \f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34 -> + { s = table { + Nom => table { + Sg => f1 ; + Pl => f2 + } ; + Dat => table { + Sg => f3 ; + Pl => f4 + } ; + Ablat => table { + Sg => f5 ; + Pl => f6 + } ; + Instr => table { + Sg => f7 ; + Pl => f8 + } ; + Loc => table { + Sg => f9 ; + Pl => f10 + } + } ; + def_dat = table { + Sg => f11 ; + Pl => f12 + } ; + def_nom = table { + Sg => f13 ; + Pl => f14 + } ; + poss1 = table { + Nom => table { + Sg => f15 ; + Pl => f16 + } ; + Dat => table { + Sg => f17 ; + Pl => f18 + } ; + Ablat => table { + Sg => f19 ; + Pl => f20 + } ; + Instr => table { + Sg => f21 ; + Pl => f22 + } ; + Loc => table { + Sg => f23 ; + Pl => f24 + } + } ; + poss2 = table { + Nom => table { + Sg => f25 ; + Pl => f26 + } ; + Dat => table { + Sg => f27 ; + Pl => f28 + } ; + Ablat => table { + Sg => f29 ; + Pl => f30 + } ; + Instr => table { + Sg => f31 ; + Pl => f32 + } ; + Loc => table { + Sg => f33 ; + Pl => f34 + } + } + } ; + + +oper Compl = {s : Str; c : Case} ; +oper noPrep : Compl = {s=""; c=Dat} ; + +}