diff --git a/lib/resource-1.0/Examples/ResExamples.gf b/lib/resource-1.0/Examples/ResExamples.gf new file mode 100644 index 000000000..4fec2d845 --- /dev/null +++ b/lib/resource-1.0/Examples/ResExamples.gf @@ -0,0 +1,139 @@ +--# -path=.:../abstract:../../prelude + +abstract ResExamples = Lang ** { +fun + ex1, ex2, ex4, ex8, ex13, ex19, ex20, ex23: Utt; + ex3, ex5, ex6, ex7, ex10, ex12, ex14, ex15, ex16, ex24, ex25, ex26, ex27: S; + ex9: Phr; + ex11, ex17, ex18, ex21, ex22 : Text; + +def + ex1 = UttS (UseCl TPres ASimul PPos (PredVP (UsePron he_Pron) + (AdvVP (UseV sing_V) (AdAdv almost_AdA (PositAdvAdj correct_A))))); + + ex2 = UttAdv (SubjS when_Subj (ConjS and_Conj (BaseS (UseCl TPast ASimul PPos + (PredVP everybody_NP (UseComp (CompAP (ConjAP and_Conj (BaseAP + (PositA young_A) (PositA beautiful_A))))))) (UseCl TPast ASimul PPos + (PredVP everything_NP (ComplVA become_VA (PositA probable_AS))))))); + + ex3 = UseCl TPres ASimul PPos (CleftNP (PredetNP only_Predet + (DetCN (DetPl (PlQuant IndefArt) (NumInt 2) NoOrd) (UseN woman_N))) + (UseRCl TCond ASimul PPos (RelSlash IdRP + (AdvSlash (SlashPrep (PredVP (UsePron i_Pron) (ComplVV want_VV + (PassV2 see_V2))) with_Prep) (PrepNP in_Prep (DetCN (DetSg + (SgQuant DefArt) NoOrd) (UseN rain_N))))))); + + + ex4 = UttNP (DetCN someSg_Det (RelCN (UseN day_N) (UseRCl TFut ASimul PPos + (RelCl (ExistNP (AdvNP (DetCN (DetSg (SgQuant IndefArt) NoOrd) + (UseN peace_N)) (PrepNP on_Prep (DetCN (DetSg (SgQuant IndefArt) + NoOrd) (UseN earth_N))))))))); + + ex5 = UseCl TPres ASimul PPos (PredVP (UsePron they_Pron) (AdvVP + (ProgrVP (UseV play_V)) (ComparAdvAdjS less_CAdv clever_A + (UseCl TPres ASimul PPos (GenericCl (UseV think_V)))))); + + ex6 = UseCl TPres ASimul PPos (CleftAdv (AdvSC (EmbedVP (AdVVP always_AdV + (UseV stop_V)))) (UseCl TPres ASimul PPos (PredVP (UsePron we_Pron) + (ComplV2 beg_V2V (UsePron youPl_Pron))))); + + ex7 = UseCl TCond ASimul PNeg (PredVP (UsePron i_Pron) (ComplV3 give_V3 + (DetCN (DetPl (PlQuant IndefArt) (AdNum (AdnCAdv more_CAdv) + (NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))))) NoOrd) + (UseN star_N)) (DetCN (DetSg (SgQuant this_Quant) NoOrd) + (UseN restaurant_N)))); + + ex8 = UttImpSg PPos (ImpVP (ComplV2A paint_V2A (DetCN (DetSg (SgQuant DefArt) + NoOrd) (UseN earth_N)) (DConjAP both7and_DConj (BaseAP (ComparA + small_A (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN sun_N))) + (ComparA big_A (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN moon_N + ))))))) ; + + ex9 = UseCl TPres ASimul PPos (PredVP everybody_NP (ComplVQ wonder_VQ + (UseQCl TPres ASimul PPos (QuestSlash whatSg_IP (SlashV2 (UsePron + youSg_Pron)love_V2))))); + + ex10 = UseCl TPres ASimul PPos (PredSCVP (EmbedS (UseCl TPres ASimul PNeg + (PredVP (UsePron i_Pron) (UseComp (CompAP (ReflA2 married_A2)))))) + (ComplV2 kill_V2 (UsePron i_Pron))); + + ex11 = TQuestMark (PhrUtt (PConjConj and_Conj) (UttQS (UseQCl TPres ASimul + PNeg (QuestIAdv why_IAdv (PredVP (DetCN (DetSg MassDet NoOrd) + (UseN art_N)) (UseComp (CompAP (ComparA (UseA2 easy_A2V) + (DetCN (DetSg MassDet NoOrd) (UseN science_N))))))))) NoVoc) TEmpty; + + ex12 = UseCl TPres ASimul PPos (CleftNP (DetCN (DetSg (SgQuant IndefArt) + NoOrd) (UseN dog_N)) (UseRCl TPres ASimul PPos (RelSlash (FunRP + with_Prep (DetCN (DetSg (SgQuant IndefArt) NoOrd) (UseN friend_N)) + IdRP) (SlashVVV2 (DetCN (DetSg (SgQuant (PossPron i_Pron)) NoOrd) + (UseN2 brother_N2)) can_VV play_V2)))); + + ex13 = ImpPl1 (ComplVS hope_VS (DConjS either7or_DConj (BaseS (UseCl + TPres ASimul PPos (PredVP (DetCN (DetSg (SgQuant DefArt) NoOrd) + (ComplN2 father_N2 (DetCN (DetSg (SgQuant DefArt) NoOrd) + (UseN baby_N)))) (UseV run_V))) (UseCl TPres ASimul PPos (PredVP + (DetCN (DetSg (SgQuant DefArt) NoOrd)(UseN3 distance_N3)) + (UseComp (CompAP (PositA small_A)))))))); + + ex14 = UseCl TPres ASimul PNeg (PredVP (UsePron i_Pron) (AdvVP (ReflV2 + (UseVS fear_VS)) now_Adv)); + + ex15 = UseCl TPres ASimul PPos (PredVP (UsePron i_Pron) (ComplV2 (UseVQ + wonder_VQ) (ConjNP or_Conj (BaseNP somebody_NP something_NP)))); + + ex16 = UseCl TPres ASimul PPos (PredVP (DetCN every_Det (UseN baby_N)) + (UseComp (CompNP (DConjNP either7or_DConj (BaseNP (DetCN (DetSg + (SgQuant IndefArt) NoOrd) (UseN boy_N)) (DetCN (DetSg (SgQuant + IndefArt) NoOrd) (UseN girl_N))))))); + + ex17 = TQuestMark (PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos (QuestVP + (IDetCN whichSg_IDet NoNum NoOrd (ApposCN (ComplN2 (ComplN3 distance_N3 + (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN house_N))) (DetCN (DetSg + (SgQuant DefArt) NoOrd) (UseN bank_N))) (DetCN (DetSg (SgQuant + DefArt) (OrdSuperl short_A)) (UseN road_N)))) (PassV2 find_V2)))) + NoVoc) TEmpty; + + ex18 = TQuestMark (PhrUtt NoPConj ( UttQS (UseQCl TPres ASimul PPos + (QuestIComp (CompIAdv where_IAdv) (DetCN (DetSg (SgQuant DefArt) + NoOrd) (RelCN (UseN teacher_N) (UseRCl TPres ASimul PPos + (RelVP IdRP (ComplV3 sell_V3 (PPartNP (DetCN (DetPl (PlQuant DefArt) + NoNum NoOrd) (UseN book_N)) read_V2) (DetCN (DetPl (PlQuant IndefArt) + NoNum NoOrd) (UseN student_N)))))))))) NoVoc) TEmpty; + + ex19 = UttIAdv (PrepIP with_Prep (AdvIP whoSg_IP (ConjAdv and_Conj (BaseAdv + (PositAdvAdj cold_A) (PositAdvAdj warm_A))))); + + ex20 = UttAdv (DConjAdv either7or_DConj (ConsAdv here7from_Adv (BaseAdv + there_Adv everywhere_Adv))); + + ex21 = TExclMark (PhrUtt NoPConj (UttImpPl PNeg (ImpVP (UseV die_V))) + please_Voc) TEmpty; + + ex22 = TQuestMark (PhrUtt NoPConj (UttIP (IDetCN how8many_IDet NoNum NoOrd + (UseN year_N))) (VocNP (DetCN (DetSg (SgQuant (PossPron i_Pron)) + NoOrd) (UseN friend_N)))) TEmpty; + + ex23 = UttVP (PassV2 know_V2); + + ex24 = UseCl TPres ASimul PPos (PredVP (DetCN (DetSg MassDet NoOrd) (SentCN + (UseN song_N) (EmbedVP (UseV sing_V)))) (UseComp (CompAP + (PositA (UseA2 easy_A2V))))); + + ex25 = UseCl TPast ASimul PNeg (PredVP (UsePron she_Pron) (ComplV2 know_V2 + (DetCN (DetSg MassDet NoOrd) (AdvCN (UseN industry_N) (PrepNP + before_Prep (DetCN (DetSg (SgQuant DefArt) NoOrd) (UseN university_N))))))); + + ex26 = UseCl TPres ASimul PPos (PredVP (UsePron she_Pron) (UseComp (CompAP + (AdAP almost_AdA (SentAP (ComplA2 married_A2 (DetCN (DetSg (SgQuant + (PossPron she_Pron)) NoOrd) (UseN cousin_N))) (EmbedQS (UseQCl + TPast ASimul PPos (QuestCl (PredVP (UsePron youPol_Pron) + (ComplV2 watch_V2 (DetCN (DetSg (SgQuant DefArt) NoOrd) + (UseN television_N)))))))))))); + + ex27 = UseCl TPres ASimul PPos (ImpersCl (ComplVV can8know_VV (UseComp + (CompAdv (PositAdvAdj important_A))))); +} + + + + diff --git a/lib/resource-1.0/Examples/ResExamplesEng.gf b/lib/resource-1.0/Examples/ResExamplesEng.gf new file mode 100644 index 000000000..2405125c7 --- /dev/null +++ b/lib/resource-1.0/Examples/ResExamplesEng.gf @@ -0,0 +1,33 @@ +--# -path=.:../abstract:../english:../common:../../prelude + +concrete ResExamplesEng of ResExamples = LangEng ** { + +lin + ex1 = {s = ["Example 1."]}; + ex2 = {s = ["Example 2."]}; + ex3 = {s = ["Example 3."]}; + ex4 = {s = ["Example 4."]}; + ex5 = {s = ["Example 5."]}; + ex6 = {s = ["Example 6."]}; + ex7 = {s = ["Example 7."]}; + ex8 = {s = ["Example 8."]}; + ex9 = {s = ["Example 9."]}; + ex10 = {s = ["Example 10."]}; + ex11 = {s = ["Example 11."]}; + ex12 = {s = ["Example 12."]}; + ex13 = {s = ["Example 13."]}; + ex14 = {s = ["Example 14."]}; + ex15 = {s = ["Example 15."]}; + ex16 = {s = ["Example 16."]}; + ex17 = {s = ["Example 17."]}; + ex18 = {s = ["Example 18."]}; + ex19 = {s = ["Example 19."]}; + ex20 = {s = ["Example 20."]}; + ex21 = {s = ["Example 21."]}; + ex22 = {s = ["Example 22."]}; + ex23 = {s = ["Example 23."]}; + ex24 = {s = ["Example 24."]}; + ex25 = {s = ["Example 25."]}; + ex26 = {s = ["Example 26."]}; + ex27 = {s = ["Example 27."]}; +} \ No newline at end of file diff --git a/lib/resource-1.0/Examples/ResExamplesRus.gf b/lib/resource-1.0/Examples/ResExamplesRus.gf new file mode 100644 index 000000000..90c908202 --- /dev/null +++ b/lib/resource-1.0/Examples/ResExamplesRus.gf @@ -0,0 +1,34 @@ +--# -path=.:../abstract:../russian:../common:../../prelude + +concrete ResExamplesRus of ResExamples = LangRus ** { + +lin + ex1 = {s = ["Example 1."]}; + ex2 = {s = ["Example 2."]}; + ex3 = {s = ["Example 3."]}; + ex4 = {s = ["Example 4."]}; + ex5 = {s = ["Example 5."]}; + ex6 = {s = ["Example 6."]}; + ex7 = {s = ["Example 7."]}; + ex8 = {s = ["Example 8."]}; + ex9 = {s = ["Example 9."]}; + ex10 = {s = ["Example 10."]}; + ex11 = {s = ["Example 11."]}; + ex12 = {s = ["Example 12."]}; + ex13 = {s = ["Example 13."]}; + ex14 = {s = ["Example 14."]}; + ex15 = {s = ["Example 15."]}; + ex16 = {s = ["Example 16."]}; + ex17 = {s = ["Example 17."]}; + ex18 = {s = ["Example 18."]}; + ex19 = {s = ["Example 19."]}; + ex20 = {s = ["Example 20."]}; + ex21 = {s = ["Example 21."]}; + ex22 = {s = ["Example 22."]}; + ex23 = {s = ["Example 23."]}; + ex24 = {s = ["Example 24."]}; + ex25 = {s = ["Example 25."]}; + ex26 = {s = ["Example 26."]}; + ex27 = {s = ["Example 27."]}; + +} \ No newline at end of file diff --git a/lib/resource-1.0/Examples/examples.Abs.gf b/lib/resource-1.0/Examples/examples.Abs.gf new file mode 100644 index 000000000..5d48cc9ac --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Abs.gf @@ -0,0 +1,86 @@ +--include test.Abs.gf; + include ../test.Abs.gf; + +cat Text ; + +fun + onePhraseText : Phr -> Text ; + combine: Text -> Text -> Text ; + ex1, ex2, ex3, ex4, ex5, ex6, ex7, ex8, ex9, ex10, ex11, + ex12, ex13, ex14, ex15, ex16, ex17, ex18, ex19: Text ; + russian : Adj1 ; + parkedNear : Adj2 ; + +def + ex1 = onePhraseText (IndicPhrase (PredVP HeNP (PosVS Say (PredVP ThouNP (AdvVP (PosV Run ) Well))))) ; + + ex2 = onePhraseText (IndicPhrase (PredVP SheNP (NegTV Send (DefOneNP (ModAdj (ConjAP OrConj (ConsAP + (TwoAP (PositAdjP Big ) (PositAdjP Small ) ) (ConjDAP EitherOr + (TwoAP (PositAdjP Old ) (PositAdjP Young ) ) ) ) ) (UseN Car)))))) ; + + ex3 = onePhraseText (IndicPhrase (SubjS IfSubj (PredVP (UsePN John ) (AdvVP (NegV Walk ) Always )) (PredVP + WeNP (AdvVP (PosTV SwitchOn (IndefOneNP (UseN Light ) )) + (LocNP (DetNP EveryDet (ModAdj (PositAdjP Old ) (UseN House )))))))); + + ex4 = onePhraseText (IndicPhrase (ConjDS EitherOr (TwoS (PredVP TheyNP (PosA (ComparAdjP Young YeNP ))) + (PredVP INP (PosCN (AppFun Mother (SuperlNP Big (UseN Man )))))))); + + ex5 = onePhraseText (IndicPhrase (PredVP (ModGenMany YeNP (AdvCN (UseFun + Mother ) Always ) ) (PosVS Prove (PredVP YeNP (PosA (PositAdjP + Small) ) ) ) ) ); + + ex6 = onePhraseText (IndicPhrase (PredVP (IndefManyNP (ModRC (UseN Man ) ( RelSuch ( PredVP (ModGenMany + TheyNP(UseFun Uncle ) ) (PosTV Love(ConjDNP NeitherNor (TwoNP + (DefManyNP (UseN Car )) (DefManyNP (UseN House ) ) ))) ) ) ) ) + (NegA (PositAdjP Old )))) ; + + ex7 = onePhraseText (QuestPhrase (SubjQu WhenSubj (PredVP (IndefOneNP + (ModRC (UseN Man ) (RelVP IdRP (NegV Run ))))(PosV Walk )) + (IntVP WhoOne (PosV Run ) ) ) ) ; + + ex8 = onePhraseText (IndicPhrase (ConjS AndConj (ConsS (TwoS + (PredVP (DefOneNP (UseN Car)) (NegA (PositAdjP Big ))) + (PredVP (DefOneNP (UseN House)) (PosA (PositAdjP Small )))) + (PredVP SheNP (PosA (PositAdjP Old)) )))) ; + + ex9 = onePhraseText (ImperMany (SubjImper WhenSubj (PredVP YeNP + (PosA (PositAdjP Young ) ) ) (ImperVP (PosV Walk) ) ) ); + + ex10 = onePhraseText (QuestPhrase (IntSlash (FunIP Uncle (NounIPMany + (UseN Woman ) ) ) (PosSlashTV INP Wait ) ) ) ; + + ex11 = onePhraseText (QuestPhrase (QuestAdv WhyIAdv TheyNP (PosTV + Love (UsePN Mary ) ) ) ) ; + + ex12 = onePhraseText (QuestPhrase (QuestVP WeNP (PosCN (UseN Man ) ) ) ); + + ex13 = combine (combine (onePhraseText PhrYes ) (onePhraseText + (PhrNP (DetNP MostDet (UseN Car ) ) ) ) ) (combine + (onePhraseText (PhrManyCN (ModAdj (PositAdjP Old ) (UseN House + ) ) ) ) (onePhraseText (PhrIAdv HowIAdv ) ) ) ; + + ex14 = onePhraseText (IndicPhrase (PredVP SheNP (PosNP (IndefOneNP (ModRC + (UseN Woman) (RelSlash(FunRP Mother IdRP)(PosSlashTV HeNP Wait))))))); + + ex15 = onePhraseText (IndicPhrase (PredVP (ConjNP OrConj (ConsNP (TwoNP + (UsePN Mary ) (UsePN John ) ) (ConjDNP EitherOr (TwoNP YouNP INP + ) ) ) ) (PosA (PositAdjP Young ) ) ) ); + + ex16 = onePhraseText (IndicPhrase (PredVP INP (PosTV Love (ConjNP AndConj + (TwoNP (IndefManyNP (ModAdj (PositAdjP Old ) (UseN House ))) + (IndefManyNP (ModAdj (PositAdjP Young) (UseN Woman ) ))))))) ; + + ex18 = combine ex1 (combine ex2 (combine ex3 (combine ex4 (combine ex5 + (combine ex6 (combine ex7 (combine ex8 (combine ex9 (combine ex10 + (combine ex11 (combine ex12 (combine ex14 (combine ex15 + ( combine ex16 ex13)))))))))))))) ; + + ex17 = onePhraseText (PhrManyCN (ModAdj (ComplAdj parkedNear (DefOneNP + (ModAdj (AdjP1 russian ) (UseN House ) ) ) )(UseN Car ) ) ) ; + + ex19 = combine ex1 (combine ex2 (combine ex3 (combine ex4 (combine ex5 + (combine ex6 (combine ex7 (combine ex8 (combine ex9 (combine ex10 + (combine ex11 (combine ex12 (combine ex14 (combine ex15 + ( combine ex16 (combine ex17 ex13))))))))))))))) ; + + diff --git a/lib/resource-1.0/Examples/examples.Deu.gf b/lib/resource-1.0/Examples/examples.Deu.gf new file mode 100644 index 000000000..a621834bb --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Deu.gf @@ -0,0 +1,33 @@ +include + examples.Abs.gf; +-- test.Deu.gf; + ../test.Deu.gf; + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; +-- combine txt1 txt2 = { s = txt1.s ++ txt2.s } ; + + ex1 = {s = ["Beispiel 1."]}; + ex2 = {s = ["Beispiel 2."]}; + ex3 = {s = ["Beispiel 3."]}; + ex4 = {s = ["Beispiel 4."]}; + ex5 = {s = ["Beispiel 5."]}; + ex6 = {s = ["Beispiel 6."]}; + ex7 = {s = ["Beispiel 7."]}; + ex8 = {s = ["Beispiel 8."]}; + ex9 = {s = ["Beispiel 9."]}; + ex10 = {s = ["Beispiel 10."]}; + ex11 = {s = ["Beispiel 11."]}; + ex12 = {s = ["Beispiel 12."]}; + ex13 = {s = ["Beispiel 13."]}; + ex14 = {s = ["Beispiel 14."]}; + ex15 = {s = ["Beispiel 15."]}; + ex16 = {s = ["Beispiel 16."]}; + ex17 = {s = ["Beispiel 17."]}; + ex18 = {s = ["Beispiel 18. A combination of ex1-ex16"]}; + ex19 = {s = ["Beispiel 19. A combination of ex1-ex17"]}; + diff --git a/lib/resource-1.0/Examples/examples.Eng.gf b/lib/resource-1.0/Examples/examples.Eng.gf new file mode 100644 index 000000000..658e9bba1 --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Eng.gf @@ -0,0 +1,33 @@ +include + examples.Abs.gf; +-- test.Eng.gf; + ../test.Eng.gf; + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; + russian = simpleAdj "Russian"; + parkedNear = (simpleAdj "parked") ** { s2 = "near" }; + + ex1 = {s = ["Example 1."]}; + ex2 = {s = ["Example 2."]}; + ex3 = {s = ["Example 3."]}; + ex4 = {s = ["Example 4."]}; + ex5 = {s = ["Example 5."]}; + ex6 = {s = ["Example 6."]}; + ex7 = {s = ["Example 7."]}; + ex8 = {s = ["Example 8."]}; + ex9 = {s = ["Example 9."]}; + ex10 = {s = ["Example 10."]}; + ex11 = {s = ["Example 11."]}; + ex12 = {s = ["Example 12."]}; + ex13 = {s = ["Example 13."]}; + ex14 = {s = ["Example 14."]}; + ex15 = {s = ["Example 15."]}; + ex16 = {s = ["Example 16."]}; + ex17 = {s = ["Example 17."]}; + ex18 = {s = ["Example 18. A combination of ex1-ex16"]}; + ex19 = {s = ["Example 19. A combination of ex1-ex17"]}; \ No newline at end of file diff --git a/lib/resource-1.0/Examples/examples.Fra.gf b/lib/resource-1.0/Examples/examples.Fra.gf new file mode 100644 index 000000000..22ebd99b3 --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Fra.gf @@ -0,0 +1,35 @@ +include + examples.Abs.gf; +-- test.Fra.gf; + ../test.Fra.gf; + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; +-- combine txt1 txt2 = { s = txt1.s ++ txt2.s } ; + russian = mkAdjective (adjJeune "russe") adjPost ; + parkedNear = mkAdjective (adjGrand "gar") adjPost ** + {s2 = "prs"; c = genitive}; + + ex1 = {s = ["Example 1."]}; + ex2 = {s = ["Exemple 2."]}; + ex3 = {s = ["Exemple 3."]}; + ex4 = {s = ["Exemple 4."]}; + ex5 = {s = ["Exemple 5."]}; + ex6 = {s = ["Exemple 6."]}; + ex7 = {s = ["Exemple 7."]}; + ex8 = {s = ["Exemple 8."]}; + ex9 = {s = ["Exemple 9."]}; + ex10 = {s = ["Exemple 10."]}; + ex11 = {s = ["Exemple 11."]}; + ex12 = {s = ["Exemple 12."]}; + ex13 = {s = ["Exemple 13."]}; + ex14 = {s = ["Exemple 14."]}; + ex15 = {s = ["Exemple 15."]}; + ex16 = {s = ["Exemple 16."]}; + ex17 = {s = ["Exemple 17."]}; + ex18 = {s = ["Exemple 18. Une combination de ex1-ex16"]}; + ex19 = {s = ["Exemple 19. Une combination de ex1-ex17"]}; \ No newline at end of file diff --git a/lib/resource-1.0/Examples/examples.Ita.gf b/lib/resource-1.0/Examples/examples.Ita.gf new file mode 100644 index 000000000..f6513b64b --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Ita.gf @@ -0,0 +1,33 @@ +include + examples.Abs.gf; +-- test.Ita.gf; + ../test.Ita.gf; + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; +-- combine txt1 txt2 = { s = txt1.s ++ txt2.s } ; + + ex1 = {s = ["Esempio 1."]}; + ex2 = {s = ["Esempio 2."]}; + ex3 = {s = ["Esempio 3."]}; + ex4 = {s = ["Esempio 4."]}; + ex5 = {s = ["Esempio 5."]}; + ex6 = {s = ["Esempio 6."]}; + ex7 = {s = ["Esempio 7."]}; + ex8 = {s = ["Esempio 8."]}; + ex9 = {s = ["Esempio 9."]}; + ex10 = {s = ["Esempio 10."]}; + ex11 = {s = ["Esempio 11."]}; + ex12 = {s = ["Esempio 12."]}; + ex13 = {s = ["Esempio 13."]}; + ex14 = {s = ["Esempio 14."]}; + ex15 = {s = ["Esempio 15."]}; + ex16 = {s = ["Esempio 16."]}; + ex17 = {s = ["Esempio 17."]}; + ex18 = {s = ["Esempio 18. A combination of ex1-ex16"]}; + ex19 = {s = ["Esempio 19. A combination of ex1-ex17"]}; + diff --git a/lib/resource-1.0/Examples/examples.RusU.gf b/lib/resource-1.0/Examples/examples.RusU.gf new file mode 100644 index 000000000..c7b538ba4 --- /dev/null +++ b/lib/resource-1.0/Examples/examples.RusU.gf @@ -0,0 +1,38 @@ +include + examples.Abs.gf; +-- test.RusU.gf; + ../test.RusU.gf; + + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; +-- combine txt1 txt2 = { s = txt1.s ++ txt2.s } ; + russian = russkij; +-- parkedNear = mkAdj2 (adjEnd_uyj "запаркованн" ) "около" Gen ; + + parkedNear = (uy_j_EndDecl "запаркованн" ) ** { s2 = "около"; + c= Gen }; + + ex1 = {s = ["Example 1."]}; + ex2 = {s = ["Example 2."]}; + ex3 = {s = ["Example 3."]}; + ex4 = {s = ["Example 4."]}; + ex5 = {s = ["Example 5."]}; + ex6 = {s = ["Example 6."]}; + ex7 = {s = ["Example 7."]}; + ex8 = {s = ["Example 8."]}; + ex9 = {s = ["Example 9."]}; + ex10 = {s = ["Example 10."]}; + ex11 = {s = ["Example 11."]}; + ex12 = {s = ["Example 12."]}; + ex13 = {s = ["Example 13."]}; + ex14 = {s = ["Example 14."]}; + ex15 = {s = ["Example 15."]}; + ex16 = {s = ["Example 16."]}; + ex17 = {s = ["Example 17."]}; + ex18 = {s = ["Example 18. A combination of ex1-ex16"]}; + ex19 = {s = ["Example 19. A combination of ex1-ex17"]}; \ No newline at end of file diff --git a/lib/resource-1.0/Examples/examples.Swe.gf b/lib/resource-1.0/Examples/examples.Swe.gf new file mode 100644 index 000000000..4ac18a774 --- /dev/null +++ b/lib/resource-1.0/Examples/examples.Swe.gf @@ -0,0 +1,34 @@ +include + examples.Abs.gf; +-- test.Swe.gf; + ../test.Swe.gf; + +lincat + Text = SS; + +lin + onePhraseText t = t ; + combine txt1 txt2 = { s = txt1.s ++ "

" ++ txt2.s } ; +-- combine txt1 txt2 = { s = txt1.s ++ txt2.s } ; + russian = extAdjective (aFin "rysk"); + parkedNear = extAdjective (aFin "parkerad") ** { s2 = "vid" }; + + ex1 = {s = ["Exempel 1."]}; + ex2 = {s = ["Exempel 2."]}; + ex3 = {s = ["Exempel 3."]}; + ex4 = {s = ["Exempel 4."]}; + ex5 = {s = ["Exempel 5."]}; + ex6 = {s = ["Exempel 6."]}; + ex7 = {s = ["Exempel 7."]}; + ex8 = {s = ["Exempel 8."]}; + ex9 = {s = ["Exempel 9."]}; + ex10 = {s = ["Exempel 10."]}; + ex11 = {s = ["Exempel 11."]}; + ex12 = {s = ["Exempel 12."]}; + ex13 = {s = ["Exempel 13."]}; + ex14 = {s = ["Exempel 14."]}; + ex15 = {s = ["Exempel 15."]}; + ex16 = {s = ["Exempel 16."]}; + ex17 = {s = ["Exempel 17."]}; + ex18 = {s = ["Exempel 18. En combination av ex1-ex16"]}; + ex19 = {s = ["Exempel 19. En combination av ex1-ex17"]}; \ No newline at end of file diff --git a/lib/resource-1.0/russian/LexiconRus.gf b/lib/resource-1.0/russian/LexiconRus.gf new file mode 100644 index 000000000..a4154a944 --- /dev/null +++ b/lib/resource-1.0/russian/LexiconRus.gf @@ -0,0 +1,409 @@ +--# -path=.:../abstract:../common:../../prelude + +-- +concrete LexiconRus of Lexicon = CatRus ** + open ParadigmsRus, Prelude, StructuralRus, MorphoRus in { +--, IrregRus +flags + optimize=values ; + coding=utf8 ; +lin + airplane_N = nTelefon "самолет" ; + answer_V2S = dirV2 (regV imperfective first "отвеча" "ю" "отвечал" "отвечай" "отвечать" ); + apartment_N = nMashina "квартир" ; + apple_N = nChislo "яблок" ; + art_N = nChislo "искусств" ; + ask_V2Q = dirV2 (regV imperfective first "спрашива" "ю" "спрашивал" "спрашивай" "спрашивать") ; + baby_N = nMalush "малыш"; + bad_A = AKakoj_Nibud "плох" "" "хуже"; + bank_N = nBank "банк" ; + beautiful_A = AStaruyj "красив" "красивее"; + become_VA = regV perfective second "станов" "лю" "стал" "стань" "стать" ; + beer_N = nChislo "пив" ; + beg_V2V = dirV2 (mkV imperfective "прошу" "просишь" "просит" "просим" "просите" "просят" "просил" "проси" "просить" ); + big_A = AKakoj_Nibud "больш" "" "больше" ; + bike_N = nTelefon "велосипед" ; + bird_N = nEdinica "птиц" ; + black_A = AStaruyj "чёрн" "чернее"; + blue_A = AMolodoj "голуб" "голубее"; + boat_N = nMashina "лодк" ; + book_N = nNoga "книг" ; + boot_N = nBank "сапог" ; + boss_N = nStomatolog "начальник" ; + boy_N = nStomatolog "мальчик" ; + bread_N = nAdres "хлеб" ; + break_V2 = dirV2 (regV imperfective first "прерыва" "ю" "прерывал" "прерывай" "прерывать" ); + broad_A = AMalenkij "широк" "шире"; + brother_N2 = mkN2 (nBrat "брат") ; + brown_A = AStaruyj "коричнев" "коричневее"; + butter_N = nChislo "масл"; + buy_V2 = dirV2 (regV imperfective first "покупа" "ю" "покупал" "покупай" "покупать" ); + camera_N = nMashina "kamer" ; + cap_N = nNoga "чашк" ; -- чаш-ек Pl-Gen + car_N = nMashina "машин" ; + carpet_N = mkN "ковёр" "ковра" "ковру" "ковёр" "ковром" "ковре" "ковры" "ковров" "коврам" "ковры" "коврами" "коврах" masculine inanimate; + cat_N = nMashina "кошк" ; +ceiling_N = nPotolok "потол" ; + chair_N = nStul "стул" ; +cheese_N = nTelefon "сыр" ; +child_N = mkN "ребёнок" "ребёнка" "ребёнку" "ребёнка" "ребёнком" "ребёнке" "дети" "детей" "детям" "детей" "детьми" "детях" masculine animate ; + church_N = mkN "церковь" "церкви" "церкви" "церковь" "церковью" "церкви" "церкви" "церквей" "церквям" "церкви" "церквями" "церквях" masculine inanimate; + city_N = nAdres "город" ; + clean_A = AStaruyj "чист" "чище"; + clever_A = AStaruyj "умн" "умнее"; + close_V2= dirV2 (regV imperfective first "закрыва" "ю" "закрывал" "закрывай" "закрывать" ); + coat_N = mkIndeclinableNoun "пальто" masculine inanimate ; + cold_A = AStaruyj "холодн" "холоднее"; + come_V = regV imperfective first "прихо" "жу" "приходил" "приходи" "приходить" ; + computer_N = nTelefon "компьютер" ; + country_N = nMashina "стран" ; +cousin_N = nTelefon "кузен" ; +cow_N = nMashina "коров" ; +die_V = regV imperfective first "умира" "ю" "умирал" "умирай" "умирать" ; +dirty_A = AStaruyj "грязн" "грязнее" ; +doctor_N = nAdres "доктор" ; +dog_N = nNoga "собак" ; +door_N = nBol "двер" ; +drink_V2 = dirV2 (regV imperfective firstE "пь" "ю" "пил" "пей" "пить" ); +eat_V2 = dirV2 (regV imperfective first "куша" "ю" "кушал" "кушай" "кушать" ); +enemy_N = nStomatolog "враг" ; +factory_N = nNoga "фабрик" ; +father_N2 = mkN2 (mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate); +fear_VS= regV imperfective second "бо" "ю" "боял" "бой" "боять" ; +find_V2 = dirV2 (mkV imperfective "нахожу" "находишь" "находит" "находим" "находите" "находят" "находил" "находи" "находить" ); +fish_N = nMashina "рыб" ; +floor_N = nTelefon "пол" ; +forget_V2= dirV2 (regV imperfective first "забыва" "ю" "забывал" "забывай" "забывать" ); +fridge_N = nBank "холодильник" ; +friend_N = mkN "друг" "друга" "другу" "друга" "другом" "друге" "друзья" "друзей" "друзьям" "друзей" "дузьями" "друзьях" masculine animate; +fruit_N = nTelefon "фрукт" ; +garden_N = nTelefon "сад" ; +girl_N = nNoga "девочк" ; +glove_N = nNoga "перчатк" ; +gold_N = nChislo "золот" ; +good_A = AKhoroshij "хорош" "лучше" ; +go_V= regV imperfective second "хо" "жу" "ходил" "ходи" "ходить" ; +green_A = AStaruyj "зелен" "зеленее" ; +harbour_N = nTelefon "залив" ; +hate_V2= dirV2 (regV imperfective second "ненави" "жу" "ненавидел" "ненавидь" "ненавидеть" ); +hat_N = nMashina "шляп" ; +have_V2= dirV2 (regV imperfective first "име" "ю" "имел" "имей" "иметь" ); +hear_V2= dirV2 (regV imperfective first "слуша" "ю" "слушал" "слушай" "слушать" ); +hill_N = nTelefon "холм" ; +hope_VS= regV imperfective first "наде" "ю" "надеял" "надей" "надеять" ; +horse_N = nBol "лошад" ; +hot_A = AKhoroshij "горяч" "горячее" ; +house_N = nAdres "дом" ; +important_A = AStaruyj "важн" "важнее" ; +industry_N = nChislo "производств" ; +iron_N = nChislo "желез" ; +king_N = mkN "король" "короля" "королю" "короля" "королем" "короле" "короли" "королей" "королям" "королей" "королями" "королях" masculine animate; +know_V2= dirV2 (regV imperfective first "зна" "ю" "знал" "знай" "знать" ); +lake_N = nChislo "озер" ; +lamp_N = nMashina "ламп" ; +learn_V2= dirV2 (regV imperfective second "уч" "у" "учил" "учи" "учить" ); +leather_N = nEdinica "кож" ; +leave_V2= dirV2 (regV imperfective second "ухож" "у" "уходил" "уходи" "уходить" ); +like_V2= dirV2 (regV imperfective second "нрав" "лю" "нравил" "нравь" "нравить" ); +listen_V2= dirV2 (regV imperfective first "слуша" "ю" "слушал" "слушай" "слушать" ); +live_V= regV imperfective firstE "жив" "у" "жил" "живи" "жить" ; +long_A = AStaruyj "длинн" "длиннее" ; +lose_V2 = dirV2 (regV imperfective first "теря" "ю" "терял" "теряй" "терять" ); +love_N = nBol "любов" ; +love_V2= dirV2 (regV imperfective second "люб" "лю" "любил" "люби" "любить" ); +man_N = nStomatolog "человек" ; +meat_N =nChislo "мяс" ; +milk_N = nChislo "молок" ; +moon_N = nMashina "лун" ; +mother_N2 = mkN2 ( nMashina "мам") ; +mountain_N = nMashina "гор" ; +music_N = nNoga "музык" ; +narrow_A = AStaruyj "узк" "уже" ; +new_A = AStaruyj "нов" "новее" ; +newspaper_N = nMashina "газет" ; +oil_N = nBol "нефть" ; +old_A = AStaruyj "стар" "старше" ; +open_V2= dirV2 (regV imperfective first "открыва" "ю" "открывал" "открывай" "открывать" ); +paper_N = nNoga "бумаг" ; +peace_N = nTelefon "мир" ; +pen_N = nNoga "ручк" ; +planet_N = nMashina "планет" ; +plastic_N = nMashina "пластмасс" ; +play_V2 = mkV2 (regV imperfective first "игра" "ю" "играл" "играй" "играть" ) "c" instructive; +policeman_N = nTelefon "милиционер" ; +priest_N = nStomatolog "священник" ; +queen_N = nMashina "королев" ; +radio_N = mkIndeclinableNoun "радио" neuter inanimate; +read_V2 = dirV2 (regV imperfective first "чита" "ю" "читал" "читай" "читать" ); +red_A = AStaruyj "красн" "краснее" ; +religion_N = nMalyariya "религи" ; +restaurant_N = nTelefon "ресторан" ; +river_N = nNoga "рек" ; +rock_N = nUroven "кам" ; +roof_N = nEdinica "крыш" ; +rubber_N = nMashina "резин" ; +run_V = regV imperfective first "бега" "ю" "бегал" "бегай" "бегать" ; +say_VS = regV imperfective second "говор" "ю" "говорил" "говори" "говорить" ; +school_N = nMashina "школ" ; +science_N = nNoga "наук" ; +sea_N = nProizvedenie "мор" ; +seek_V2 = dirV2 (regV imperfective first "ищ" "у" "искал" "ищи" "искать" ); +see_V2 = dirV2 (regV imperfective second "виж" "у" "видел" "видь" "видеть" ); +sell_V3 = tvDirDir (regV imperfective firstE "прода" "ю" "продавал" "продавай" "продавать" ); +send_V3 = tvDirDir (regV imperfective first "посыла" "ю" "посылал" "посылай" "посылать" ); +sheep_N = nMashina "овц" ; +ship_N = nNol "корабл" ; +shirt_N = nNoga "рубашк" ; +shoe_N = mkN "туфля" "туфли" "туфле" "туфлю" "туфлей" "туфле" "туфли" "туфель" "туфлям" "туфли" "туфлями" "туфлях" masculine inanimate; +shop_N = nTelefon "магазин" ; +short_A = AMalenkij "коротк" "короче" ; +silver_N = nChislo "серебр" ; +sister_N = nMashina "сестр" ; +sleep_V = regV imperfective second "сп" "лю" "спал" "спи" "спать" ; +small_A = AMalenkij "маленьк" "меньше" ; +snake_N = nTetya"зме" ; +sock_N = nPotolok "нос" ; +speak_V2 = dirV2 (regV imperfective second "говор" "ю" "говорил" "говори" "говорить" ); +star_N = nMashina "звезд" ; +steel_N = nBol "стал" ; +stone_N = nNol "камен" ; +stove_N = nBol "печ" ; +student_N = nTelefon "студент" ; +stupid_A = AMolodoj "тупой" "тупее" ; +sun_N = mkN "солнце" "солнца" "солнцу" "солнце" "солнцем" "солнце" "солнца" "солнц" "солнцам" "солнца" "солнцами" "солнцах" neuter inanimate; +switch8off_V2 = dirV2 (regV imperfective first "выключа" "ю" "выключал" "выключай" "выключать") ; +switch8on_V2 = dirV2 (regV imperfective first "включа" "ю" "включал" "включай" "включать") ; +table_N = nTelefon "стол" ; +teacher_N = nNol "учител" ; +teach_V2 = dirV2 (regV imperfective second "уч" "у" "учил" "учи" "учить" ); +television_N = nProizvedenie "телевидени" ; +thick_A = AStaruyj "толст" "толще" ; +thin_A = AMalenkij "тонк" "тоньше" ; +train_N = nAdres "поезд" ; +travel_V = regV imperfective first "путешеству" "ю" "путешествовал" "путешествуй" "путешествовать" ; +tree_N = nChislo "дерев" ; +--trousers_N = mkN "" "" "" "" "" "" "штаны" "штанов" "штанам" "штаны" "штанами" "штанах" masculine inanimate; +ugly_A = AStaruyj "некрасив" "некрасивее" ; +understand_V2 = dirV2 (regV imperfective first "понима" "ю" "понимал" "понимай" "понимать" ); +university_N = nTelefon "университет" ; +village_N = nMalyariya "деревн" ; +wait_V2 = dirV2 (regV imperfective firstE "жд" "у" "ждал" "жди" "ждать" ); +walk_V = regV imperfective first "гуля" "ю" "гулял" "гуляй" "гулять" ; +warm_A = AStaruyj "тёпл" "теплее" ; +war_N = nMashina "войн" ; +watch_V2 = dirV2 (regV imperfective second "смотр" "ю" "смотрел" "смотри" "смотреть" ); +water_N = nMashina "вод" ; +white_A = AStaruyj "бел" "белее" ; +window_N = nChislo "окн" ; +wine_N = nChislo "вин" ; +win_V2 = dirV2 (regV imperfective first "выигрыва" "ю" "выигрывал" "выигрывай" "выигрывать" ); +woman_N = nZhenchina "женщин" ; +wood_N = nChislo "дерев" ; +write_V2 = dirV2 (regV imperfective first "пиш" "у" "писал" "пиши" "писать" ); +yellow_A = AStaruyj "жёлт" "желтее" ; +young_A = AMolodoj "молод" "моложе"; + + do_V2 = dirV2 (regV imperfective first "дела" "ю" "делал" "делай" "делать" ); + now_Adv = mkAdv "сейчас" ; + already_Adv = mkAdv "уже" ; + song_N = nTetya "песн" ; + add_V3 = mkV3 (regV imperfective first "складыва" "ю" "складывал" "складывай" "складывать" ) "" "в" accusative accusative; + number_N = nChislo "числ" ; + put_V2 = dirV2 (regV imperfective firstE "клад" "у" "клал" "клади" "класть" ); + stop_V = regV imperfective first "останавлива" "ю" "останавливал" "останавливай" "останавливать"; + jump_V = regV imperfective first "прыга" "ю" "прыгал" "прыгай" "прыгать" ; + +distance_N3 = mkN3 (nProizvedenie "расстояни") from_Prep to_Prep ; + +-- in Russian combinations with verbs are expressed with adverbs: +-- "легко понять" ("easy to understand"), which is different from +-- adjective expression "легкий для понимания" ("easy for understanding") +-- So the next to words are adjectives, since there are such adjectives +-- in Russian, but to use them with verb would be wrong in Russian: +fun_AV = AStaruyj "весёл" "веселее"; +easy_A2V = mkA2 (AMalenkij "лёгк" "легче") "для" genitive ; + +empty_A = AMolodoj "пуст" "пустее"; +married_A2 = mkA2 (adjInvar "замужем") "за" instructive ; +paint_V2A = dirV2 (regV imperfective first "рису" "ю" "рисовал" "рисуй" "рисовать" ) ; + probable_AS = AStaruyj "возможн" "возможнее"; + rain_V0 = idetDozhd verbIdti; -- No such verb in Russian! +talk_V3 = mkV3 (regV imperfective second "говор" "ю" "говорил" "говори" "говорить" ) "с" "о" instructive prepositional; +wonder_VQ = regV imperfective first "интересу" "ю" "интересовал" "интересуй" "интересовать"; + + -- Nouns + + animal_N = nZhivotnoe "животн" ; + ashes_N = nPepel "пеп" ; + back_N = nMashina "спин" ; + bark_N = mkN "лай" "лая" "лаю" "лай" "лаем" "лае" "лаи" "лаев" "лаям" "лаи" "лаями" "лаях" masculine inanimate; + belly_N = nTelefon "живот" ; + bird_N = nEdinica "птиц" ; + blood_N = nBol "кров" ; + bone_N = nBol "кост" ; + breast_N = nBol "грудь" ; + + cloud_N = nChislo "облак" ; + day_N = mkN "день" "дня" "дню" "день" "днём" "дне" "дни" "дней" "дням" "дни" "днями" "днях" masculine inanimate ; + + dust_N = nBol "пыл" ; + ear_N = nChislo "ухо" ; + earth_N = nTetya "земл" ; + egg_N = nChislo "яйц" ; + eye_N = nAdres "глаз" ; + fat_N = nBank "жир" ; + +-- father_N = UseN2 father_N2 ; + feather_N = mkN "перо" "пера" "перу" "пера" "пером" "пере" "перья" "перьев" "перьям" "перьев" "перьями" "перьях" neuter inanimate ; + fingernail_N = mkN "ноготь" "ногтя" "ногтю" "ногтя" "ногтем" "ногте" "ногти" "ногтей" "ногтям" "ногтей" "ногтями" "ногтях" masculine inanimate ; + fire_N = mkN "огонь" "огня" "огню" "огня" "огнём" "огне" "огни" "огней" "огням" "огней" "огнями" "огнях" masculine inanimate ; + fish_N = nMashina "рыб" ; + flower_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ; + fog_N = nTelefon "туман" ; + foot_N = nTetya "ступн" ; + forest_N = nAdres "лес" ; + fruit_N = nTelefon "фрукт"; + grass_N = nMashina "трав" ; + guts_N = nBol "внутренност" ; + hair_N = nTelefon "волос" ; + hand_N = nNoga "рук" ; + head_N = nMashina "голов" ; + heart_N = mkN "сердце" "сердца" "сердцу" "сердца" "сердцем" "сердце" "сердца" "сердец" "сердцам" "сердец" "сердцами" "сердцах" neuter inanimate; + horn_N = nAdres "рог" ; + husband_N = mkN "муж" "мужа" "мужу" "мужа" "мужем" "муже" "мужья" "мужей" "мужьям" "мужей" "мужьями" "мужьях" masculine animate ; + ice_N = mkN "лёд" "льда" "льду" "льда" "льдом" "льде" "льды" "льдов" "льдам" "льдов" "льдами" "льдах" masculine inanimate ; + knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ; + lake_N = nChislo "озер" ; + leaf_N = nStul "лист" ; + leg_N = nNoga "ног" ; + liver_N = nBol "печен" ; + louse_N = mkN "вошь" "вши" "вши" "вошь" "вошью" "вше" "вши" "вшей" "вшам" "вшей" "вшами" "вшах" feminine animate ; + + meat_N = nChislo "мяс" ; + moon_N = nMashina "лун" ; + + + mountain_N = nMashina "гор" ; + mouth_N = mkN "рот" "рта" "рту" "рот" "ртом" "рте" "рты" "ртов" "ртам" "рты" "ртами" "ртах" masculine inanimate; + name_N = mkN "имя" "имени" "имени" "имя" "именем" "имени" "имена" "имён" "именам" "имена" "именами" "именах" neuter inanimate; + neck_N = nTetya "ше" ; + night_N = nBol "ноч" ; + nose_N = nTelefon "нос" ; + person_N = nBol "личность" ; + rain_N = nNol "дожд" ; + + road_N = nNoga "дорог" ; + root_N = nUroven "кор" ; + rope_N = nNoga "веревк" ; + salt_N = nBol "сол" ; + sand_N = mkN "песок" "песка" "песку" "песок" "песком" "песке" "пески" "песков" "пескам" "песков" "песками" "песках" masculine inanimate ; + sea_N = nProizvedenie "мор" ; + seed_N = mkN "семя" "семени" "семении" "семя" "семенем" "семени" "семена" "семян" "семенам" "семена" "семенами" "семенах" neuter inanimate ; + skin_N = nEdinica "кож" ; + sky_N = mkN "небо" "неба" "небу" "небо" "небом" "небе" "небеса" "небес" "небесам" "небес" "небесами" "небесах" neuter inanimate ; + smoke_N = nTelefon "дым" ; + snake_N = nTetya "зме" ; + snow_N = nAdres "снег" ; + star_N = nMashina "звезд" ; + stick_N = nNoga "палк" ; + + + tail_N = nTelefon "хвост" ; + tongue_N = nBank "язык" ; + tooth_N = nTelefon "зуб" ; + tree_N = nChislo "дерев" ; + water_N = nMashina "вод" ; + wife_N = nMashina "жен" ; + wind_N = mkN "ветер" "ветра" "ветру" "ветер" "ветром" "ветра" "ветров" "ветра" "ветрам" "ветров" "ветрами" "ветрах" masculine inanimate ; + wing_N = mkN "крыло" "крыла" "крылу" "крыло" "крылом" "крыле" "крылья" "крыльев" "крыльям" "крылья" "крыльями" "крыльях" neuter inanimate ; + + worm_N = nNol "черв" ; + year_N = nAdres "год" ; + + +-- Verbs + + bite_V2 = dirV2 (regV imperfective first "куса" "ю" "кусал" "кусай" "кусать"); + blow_V = regV imperfective first "ду" "ю" "дул" "дуй" "дуть" ; + breathe_V = regV imperfective second "дыш" "у" "дышал" "дыши" "дышать" ; + burn_V = regV imperfective second "гор" "ю" "горел" "гори" "гореть" ; + count_V2 = dirV2 (regV imperfective first "счита" "ю" "считал" "считай" "считать" ) ; + cut_V2 = dirV2 (regV imperfective first "реж" "у" "резал" "режь" "резать" ) ; + dig_V = regV imperfective first "копа" "ю" "копал" "копай" "копать" ; + + + fall_V = regV imperfective first "пада" "ю" "падал" "падай" "падать" ; + + fight_V2 = dirV2 (regV imperfective firstE "дер" "у" "драл" "дери" "драть" ) ; + float_V = regV imperfective firstE "плыв" "у" "плыл" "плыви" "плыть" ; + flow_V = regV imperfective firstE "тек" "у" "тёк" "теки" "течь" ; + fly_V = regV imperfective second "лета" "ю" "летал" "летай" "летать" ; + freeze_V = regV imperfective first "замерза" "ю" "замерзал" "замерзай" "замерзать" ; + give_V3 = tvDirDir (regV imperfective firstE "да" "ю" "давал" "давай" "давать" ) ; + + hit_V2 = dirV2 (regV imperfective first "ударя" "ю" "ударял" "ударяй" "ударять" ); + hold_V2 = dirV2 (regV imperfective second "держ" "у" "держал" "держи" "держать" ); + hunt_V2 = dirV2 (regV imperfective second "охоч" "у" "охотил" "охоть" "охотить" ) ; + kill_V2 = dirV2 (regV imperfective first "убива" "ю" "убивал" "убивай" "убивать" ) ; + + laugh_V = regV imperfective firstE "сме" "ю" "смеял" "смей" "смеять" ; + lie_V = regV imperfective firstE "лг" "у" "лгал" "лги" "лгать" ; + play_V = regV imperfective first "игра" "ю" "играл" "играй" "играть" ; + pull_V2 = dirV2 (regV imperfective first "тян" "у" "тянул" "тяни" "тянуть" ) ; + push_V2 = dirV2 (regV imperfective first "толка" "ю" "толкал" "толкай" "толкать" ); + rub_V2 = dirV2 (regV imperfective firstE "тр" "у" "тёр" "три" "тереть" ); + + scratch_V2 = dirV2 (regV imperfective first "чеш" "у" "чесал" "чеши" "чесать" ) ; + + sew_V = regV imperfective firstE "шь" "ю" "шил" "шей" "шить" ; + sing_V = regV imperfective firstE "по" "ю" "пел" "пой" "петь" ; + sit_V = mkV imperfective "сижу" "сидишь" "сидит" "сидим" "сидите" "сидят" "сидел" "сиди" "сидеть" ; + smell_V = regV imperfective first "пахн" "у" "пахнул" "пахни" "пахнуть" ; + spit_V = regV imperfective firstE "плю" "ю" "плевал" "плюй" "плевать" ; + split_V2 = dirV2 (regV imperfective first "разбива" "ю" "разбивал" "разбей" "разбивать" ) ; + squeeze_V2 = dirV2 (regV imperfective first "сжима" "ю" "сжимал" "сжимай" "сжимать" ) ; + stab_V2 = dirV2 (regV imperfective first "кол" "ю" "колол" "коли" "колоть" ) ; + stand_V = regV imperfective second "сто" "ю" "стоял" "стой" "стоять" ; + suck_V2 = dirV2 (regV imperfective firstE "сос" "у" "сосал" "соси" "сосать") ; + swell_V = regV imperfective first "опуха" "ю" "опухал" "опухай" "опухать" ; + swim_V = regV imperfective first "плава" "ю" "плавал" "плавай" "плавать" ; + think_V = regV imperfective first "дума" "ю" "думал" "думай" "думать" ; + throw_V2 = dirV2 (regV imperfective first "броса" "ю" "бросал" "бросай" "бросать" ) ; + tie_V2 = dirV2 (regV imperfective first "вяж" "у" "вязал" "вяжи" "вязать") ; + turn_V = regV imperfective first "поворачива" "ю" "поворачивал" "поворачивай" "поворачивать" ; + vomit_V = regV imperfective firstE "рв" "у" "рвал" "рви" "рвать" ; + wash_V2 = dirV2 (regV imperfective first "мо" "ю" "мыл" "мой" "мыть" ) ; + wipe_V2 = dirV2 (regV imperfective first "вытира" "ю" "вытирал" "вытирай" "вытирать" ); + + + correct_A = AStaruyj "правильн" "правильнее"; + dry_A = AMolodoj "сух" "суше"; + + dull_A = AStaruyj "скучн" "скучнее"; + far_Adv = mkAdv "далеко"; + full_A = AStaruyj "полн" "полнее"; + heavy_A = AStaruyj "тяжел" "тяжелее"; + left_Ord = (uy_j_EndDecl "лев" ) ** {lock_A = <>}; + near_A = AMalenkij "близк" "ближе"; + right_Ord = (uy_j_EndDecl "прав") ** {lock_A = <>} ; + rotten_A = AMolodoj "гнил" "гнилее"; + round_A = AStaruyj "кругл" "круглее"; + sharp_A = AStaruyj "остр" "острее"; + smooth_A = AMalenkij "гладк" "глаже"; + straight_A = AMolodoj "прям" "прямее"; + wet_A = AStaruyj "мокр" "мокрее"; + wide_A = AMalenkij "широк" "шире"; + +fear_V2 =dirV2 (regV imperfective first "бо" "ю" "боял" "бой" "боять" ); +paris_PN = mkPN "Париж" Masc Inanimate ; + + + + + + grammar_N = nNoga "грамматик"; + language_N = nBank "язык" ; + rule_N = nChislo "правил" ; + +} +