summaryrefslogtreecommitdiff
path: root/old-examples/bronzeage/old/SwadeshRus.gf
blob: 651b0b0fac2a901a7bfe179922be9a3f43db194b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
--# -path=.:../abstract:../../prelude

concrete SwadeshRus of Swadesh = CatRus 
  ** open ResourceRus, SyntaxRus, ParadigmsRus, 
          BasicRus, Prelude in {
flags  coding=utf8 ;

  lincat
    MassN = N ;

  lin

    -- Pronouns

    i_NP = i_Pron ;
    youSg_NP = youSg_Pron ;
    he_NP = he_Pron ;
    we_NP = we_Pron ;
    youPl_NP = youPl_Pron ;
    they_NP = they_Pron ;
    whoPl_IP = whoPl_IP ;
    whoSg_IP = whoSg_IP ;
    whatPl_IP = whatPl_IP ;
    whatSg_IP = whatSg_IP ;

    -- Determiners

    this_Det = this_Det ;
    that_Det = that_Det ;
    all_Det = all_NDet ;
    many_Det = many_Det ;
    some_Det = someSg_Det ;
    few_Det = adjInvar "мало" ** {n = Sg; g = PNoGen; c= Nom} ;
    other_Det = drugojDet ** {n = Sg; g = PNoGen; c= Nom} ;

--    left_Ord = AStaruyj "лев";
--    right_Ord = AStaruyj "прав";

    -- Adverbs

    here_Adv = here_Adv ;
    there_Adv = there_Adv ;
    where_IAdv = where_IAdv ;
    when_IAdv = when_IAdv ;
    how_IAdv = how_IAdv ;

    -- not : Adv ; -- ?

    -- Conjunctions

    and_Conj = and_Conj ;

    -- Prepositions

    at_Prep = { s2 = "у" ; c = genitive} ;
    in_Prep = { s2 = "в" ; c = prepositional} ;
    with_Prep = { s2 = "с" ; c = instructive} ;

    -- Numerals

    one_Det = DetSg one_Quant NoOrd ;
    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;

    -- Adjectives

    bad_A = bad_A ;
    big_A = big_A ;
    black_A = black_A ;
    cold_A = cold_A ;
    correct_A = mkA (AStaruyj "правильн") "правильнее"; 
    dirty_A = dirty_A ;
    dry_A = mkA (AMolodoj "сух") "суше";
    dull_A = mkA (AStaruyj "скучн") "скучнее";
    far_A = mkA (AKhoroshij "далекий") "дальше";
    full_A = mkA (AStaruyj "полн") "полнее";
    good_A = good_A ;
    green_A = green_A ;
    heavy_A = mkA (AStaruyj "тяжел") "тяжелее";
    long_A = long_A ;
    narrow_A = narrow_A ;
    near_A = mkA (AMalenkij "близк") "ближе";
    new_A = new_A ;
    old_A = old_A ;
    red_A = red_A ;
    rotten_A = mkA (AMolodoj "гнил") "гнилее";
    round_A = mkA (AStaruyj "кругл") "круглее";
    sharp_A = mkA (AStaruyj "остр") "острее";
    short_A = short_A ;
    small_A = small_A ;
    smooth_A = mkA (AMalenkij "гладк") "глаже";
    straight_A = mkA (AMolodoj "прям") "прямее";
    thick_A = thick_A ;
    thin_A = thin_A ;
    warm_A = warm_A ;
    wet_A = mkA (AStaruyj "мокр") "мокрее";
    white_A = white_A ;
    wide_A = mkA (AMalenkij "широк") "шире";
    yellow_A = yellow_A ;


    -- Nouns

    animal_N = nZhivotnoe "животн" ;
    ashes_N = nPepel "пеп" ;
    back_N = nMashina "спин" ;
    bark_N = mkN "лай" "лая" "лаю" "лай" "лаем" "лае" "лаи" "лаев" "лаям" "лаи" "лаями" "лаях" masculine inanimate;
    belly_N = nTelefon "живот" ;
    bird_N = bird_N ;
    blood_N = nBol "кров" ;
    bone_N = nBol "кост" ;
    breast_N = nBol "грудь" ;
    child_N = child_N ;
    cloud_N = nChislo "облак" ;
    day_N = mkN "день" "дня" "дню" "день" "днём" "дне" "дни" "дней" "дням" "дни" "днями" "днях" masculine inanimate ;
    dog_N = dog_N ;
    dust_N = nBol "пыл" ;
   ear_N = nChislo "ухо" ;
   earth_N = nTetya "земл" ;
    egg_N = nChislo "яйц" ;
    eye_N = nAdres "глаз" ;
    fat_N = nBank "жир" ;
    father_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ; 
--    father_N = UseN2 father_N2 ;
    feather_N = mkN "перо" "пера" "перу" "пера" "пером" "пере" "перья" "перьев" "перьям" "перьев" "перьями" "перьях" neuter inanimate ;
   fingernail_N = mkN "ноготь" "ногтя" "ногтю" "ногтя" "ногтем" "ногте" "ногти" "ногтей" "ногтям" "ногтей" "ногтями" "ногтях" masculine inanimate ;
    fire_N = mkN "огонь" "огня" "огню" "огня" "огнём" "огне" "огни" "огней" "огням" "огней" "огнями" "огнях" masculine inanimate ;
    fish_N = fish_N ;
    flower_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ;
    fog_N = nTelefon "туман" ;
    foot_N = nTetya "ступн" ;
    forest_N = nAdres "лес" ;
    fruit_N = fruit_N ;
    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 = lake_N ;
   leaf_N = nStul "лист" ;
   leg_N = nNoga "ног" ;
  liver_N = nBol "печен" ;
  louse_N = mkN "вошь" "вши" "вши" "вошь" "вошью" "вше" "вши" "вшей" "вшам" "вшей" "вшами" "вшах" feminine animate ;
    man_N = man_N ;
    meat_N = meat_N ;
    moon_N = moon_N ;
    mother_N = mkN "мать" "матери" "матери" "мать" "матерью" "матери" "матери" "матерей" "матерям" "матерей" "матерями" "матерях" feminine animate ;
---    mother_N = UseN2 mother_N2 ;
    mountain_N = mountain_N ;
   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 "дожд" ;
   river_N = river_N ;
  road_N = nNoga "дорог" ;
   root_N = nUroven "кор" ;
   rope_N =  nNoga "веревк" ;
   salt_N = nBol "сол" ;
   sand_N = mkN "песок" "песка" "песку" "песок" "песком" "песке" "пески" "песков" "пескам" "песков" "песками" "песках" masculine inanimate ;
    sea_N = sea_N ;
    seed_N = mkN "семя" "семени" "семении" "семя" "семенем" "семени" "семена" "семян" "семенам" "семена" "семенами" "семенах" neuter inanimate ;
   skin_N =  nEdinica "кож" ;
   sky_N = mkN "небо" "неба" "небу" "небо" "небом" "небе" "небеса" "небес" "небесам" "небес" "небесами" "небесах" neuter inanimate ; 
   smoke_N =  nTelefon "дым" ;
    snake_N = snake_N ;
   snow_N = nAdres "снег" ;
    star_N = star_N ;
    stick_N = nNoga "палк" ;
    stone_N = stone_N ;
    sun_N = sun_N ;
   tail_N = nTelefon "хвост" ;
   tongue_N = nBank "язык" ;
   tooth_N = nTelefon "зуб" ;
    tree_N = tree_N ;
    water_N = water_N ;
    wife_N = nMashina "жен" ;
    wind_N = mkN "ветер" "ветра" "ветру" "ветер" "ветром" "ветра" "ветров" "ветра" "ветрам" "ветров" "ветрами" "ветрах" masculine inanimate ;
    wing_N = mkN "крыло" "крыла" "крылу" "крыло" "крылом" "крыле" "крылья" "крыльев" "крыльям" "крылья" "крыльями" "крыльях" neuter inanimate ;
    woman_N = woman_N ;
   worm_N = nNol "черв" ;
   year_N = nAdres "год" ;

    -- Verbs

    bite_V = mkRegVerb imperfective  first "куса" "ю" "кусал" "кусай" "кусать";
    blow_V = mkRegVerb imperfective  first "ду" "ю" "дул" "дуй" "дуть"  ;
   breathe_V = mkRegVerb imperfective  second "дыш" "у" "дышал" "дыши" "дышать"  ;
   burn_V = mkRegVerb imperfective  second "гор" "ю" "горел" "гори" "гореть"  ;
   come_V = come_V ;
   count_V = mkRegVerb imperfective  first "счита" "ю" "считал" "считай" "считать"   ;
    cut_V = mkRegVerb imperfective  first "реж" "у" "резал" "режь" "резать"  ;
    die_V = die_V ;
    dig_V = mkRegVerb imperfective  first "копа" "ю" "копал" "копай" "копать"  ;
    drink_V =  mkRegVerb imperfective  firstE  "пь" "ю" "пил" "пей" "пить"  ;
    eat_V = mkVerbum imperfective  "ем" "ешь" "ест" "едим" "едите" "едят" "ел" "ешь" "есть"  ; 
    fall_V = mkRegVerb imperfective  first "пада" "ю" "падал" "падай" "падать"  ;
    fear_V = mkRegVerb imperfective  second "бо" "ю" "боял" "бой" "боять"  ;
    fight_V = mkRegVerb imperfective  firstE "дер" "у" "драл" "дери" "драть"  ;
    float_V = mkRegVerb imperfective  firstE "плыв" "у" "плыл" "плыви" "плыть"  ;
    flow_V = mkRegVerb imperfective  firstE "тек" "у" "тёк" "теки" "течь"  ;
    fly_V = mkRegVerb imperfective  second "лета" "ю" "летал" "летай" "летать"  ;
    freeze_V = mkRegVerb imperfective  first "замерза" "ю" "замерзал" "замерзай" "замерзать"  ;
    give_V = mkRegVerb imperfective  firstE "да" "ю" "давал" "давай" "давать"  ;
    hear_V = mkRegVerb imperfective  first "слыш" "у" "слышал" "слышь" "слышать"  ;
    hit_V = mkRegVerb imperfective  first "ударя" "ю" "ударял" "ударяй" "ударять"  ;
    hold_V = mkRegVerb imperfective  second "держ" "у" "держал" "держи" "держать"  ;
    hunt_V = mkRegVerb imperfective  second "охоч" "у" "охотил" "охоть" "охотить"  ;
    kill_V = mkRegVerb imperfective  first "убива" "ю" "убивал" "убивай" "убивать"  ;
    know_V = mkRegVerb imperfective  first "зна" "ю" "знал" "знай" "знать"  ;
    laugh_V = mkRegVerb imperfective  firstE "сме" "ю" "смеял" "смей" "смеять"  ;
    lie_V = mkRegVerb imperfective  firstE "лг" "у" "лгал" "лги" "лгать"  ;
    live_V = live_V ;
    play_V = mkRegVerb imperfective  first "игра" "ю" "играл" "играй" "играть"  ;
    pull_V = mkRegVerb imperfective  first "тян" "у" "тянул" "тяни" "тянуть"  ;
    push_V = mkRegVerb imperfective  first "толка" "ю" "толкал" "толкай" "толкать"  ;
    rub_V = mkRegVerb imperfective  firstE "тр" "у" "тёр" "три" "тереть"  ;
    say_V = mkRegVerb imperfective  second "говор" "ю" "говорил" "говори" "говорить";
    scratch_V = mkRegVerb imperfective  first "чеш" "у" "чесал" "чеши" "чесать"  ;    see_V = mkRegVerb imperfective  second "смотр" "ю" "смотрел" "смотри" "смотреть"  ;
    sew_V = mkRegVerb imperfective  firstE "шь" "ю" "шил" "шей" "шить"  ;
    sing_V = mkRegVerb imperfective  firstE "по" "ю" "пел" "пой" "петь"  ;
    sit_V = mkVerbum imperfective  "сижу" "сидишь" "сидит" "сидим" "сидите" "сидят" "сидел" "сиди" "сидеть"  ;
    sleep_V = sleep_V ;
    smell_V = mkRegVerb imperfective  first "пахн" "у" "пахнул" "пахни" "пахнуть"  ;
    spit_V = mkRegVerb imperfective  firstE "плю" "ю" "плевал" "плюй" "плевать"  ;
    split_V = mkRegVerb imperfective  first "разбива" "ю" "разбивал" "разбей" "разбивать"  ;
    squeeze_V = mkRegVerb imperfective  first "сжима" "ю" "сжимал" "сжимай" "сжимать"  ;
    stab_V = mkRegVerb imperfective  first "кол" "ю" "колол" "коли" "колоть"  ;
    stand_V = mkRegVerb imperfective second "сто" "ю" "стоял" "стой" "стоять"  ;
    suck_V = mkRegVerb imperfective  firstE "сос" "у" "сосал" "соси" "сосать"  ;
    swell_V = mkRegVerb imperfective  first "опуха" "ю" "опухал" "опухай" "опухать"  ;
    swim_V = mkRegVerb imperfective  first "плава" "ю" "плавал" "плавай" "плавать"  ;
    think_V = mkRegVerb imperfective  first "дума" "ю" "думал" "думай" "думать"  ;
    throw_V = mkRegVerb imperfective  first "броса" "ю" "бросал" "бросай" "бросать"  ;
    tie_V = mkRegVerb imperfective  first "вяж" "у" "вязал" "вяжи" "вязать"  ;
    turn_V = mkRegVerb imperfective  first "поворачива" "ю" "поворачивал" "поворачивай" "поворачивать"  ;
    vomit_V = mkRegVerb imperfective  firstE "рв" "у" "рвал" "рви" "рвать"  ;
    walk_V = walk_V ;
    wash_V = mkRegVerb imperfective  first "мо" "ю" "мыл" "мой" "мыть"  ;
    wipe_V = mkRegVerb imperfective  first "вытира" "ю" "вытирал" "вытирай" "вытирать"  ;

};