blob: 4e21ee370b14e8321b679947e9a5d5c4f45f1079 (
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
|
concrete PeaceLex_Eng of PeaceLex = CatEng ** open LangEng, ParadigmsEng in {
lincat
MassN = N ;
lin
-- Pronouns
i_Pron = i_Pron ;
youSg_Pron = youSg_Pron ;
he_Pron = he_Pron ;
we_Pron = we_Pron ;
youPl_Pron = youPl_Pron ;
they_Pron = they_Pron ;
whoPl_IP = whoPl_IP ;
whoSg_IP = whoSg_IP ;
whatPl_IP = whatPl_IP ;
whatSg_IP = whatSg_IP ;
-- Determiners
aSg_Det = DetSg (SgQuant IndefArt) NoOrd;
aPl_Det = DetPl (PlQuant IndefArt) NoNum NoOrd;
theSg_Det = DetSg (SgQuant DefArt) NoOrd ;
thePl_Det = DetPl (PlQuant DefArt) NoNum NoOrd ;
that_Det = DetSg (SgQuant that_Quant) NoOrd ;
those_Det = DetPl (PlQuant that_Quant) NoNum NoOrd ;
this_Det = DetSg (SgQuant this_Quant) NoOrd ;
these_Det = DetPl (PlQuant this_Quant) NoNum NoOrd ;
-- Adverbs
here_Adv = here_Adv;
there_Adv = there_Adv;
where_IAdv = where_IAdv;
when_IAdv = when_IAdv;
-- 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
black_A = black_A ;
blue_A = blue_A ;
cold_A = cold_A ;
dangerous_A = regA "dangerous" ;
dead_A = regA "dead" ;
green_A = green_A ;
hot_A = hot_A ;
hungry_A = regA "hungry" ;
large_A = regA "large" ;
red_A = red_A ;
sick_A = regA "sick" ;
small_A = small_A ;
white_A = white_A ;
yellow_A = yellow_A ;
-- Nouns
air_N = regN "air" ;
airplane_N = airplane_N ;
animal_N = animal_N ;
arm_N = regN "arm" ;
blood_N = blood_N ;
boat_N = boat_N ;
boy_N = boy_N ;
building_N = regN "building" ;
car_N = regN "car" ;
child_N = child_N ;
corpse_N = regN "corpse" ;
doctor_N = regN "doctor";
enemy_N = regN "enemy";
factory_N = factory_N ;
food_N = regN "food";
foot_N = foot_N ;
friend_N = regN "friend";
girl_N = girl_N ;
hand_N = hand_N ;
head_N = head_N ;
house_N = house_N ;
landmine_N = regN "landmine" ;
leg_N = leg_N ;
man_N = man_N ;
medicine_N = regN "medicine" ;
road_N = road_N ;
skin_N = regN "skin" ;
soldier_N = regN "soldier" ;
water_N = water_N ;
weapon_N = regN "weapon";
woman_N = woman_N ;
-- Verbs
cough_V = regV "cough" ;
drink_V2 = drink_V2 ;
eat_V2 = eat_V2 ;
give_V3 = give_V3;
have_V2 = have_V2;
need_V2 = dirV2 (regV "need");
own_V2 = dirV2 (regV "own") ;
see_V2 = see_V2 ;
show_V3 = dirdirV3 (regV "show") ;
sleep_V = sleep_V ;
walk_V = walk_V ;
}
|
