blob: 6ecfcf341beea2138db0281af5a7cde46c90aed1 (
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
|
--# -path=.:present:prelude
concrete PeaceLexExt_Eng of PeaceLexExt =
PeaceCat_Eng ** open ParadigmsEng, IrregEng,
LexiconEng, StructuralEng in {
lin
-- Adjectives
dangerous_A = regA "dangerous" ;
dead_A = regA "dead" ;
hungry_A = regA "hungry" ;
large_A = regA "large" ;
sick_A = regA "sick" ;
-- Nouns
air_N = regN "air" ;
arm_N = regN "arm" ;
building_N = regN "building" ;
car_N = regN "car" ;
corpse_N = regN "corpse" ;
doctor_N = regN "doctor";
enemy_N = regN "enemy";
face_N = regN "face" ;
food_N = regN "food";
friend_N = regN "friend";
ground_N = regN "ground" ;
knife_N = mk2N "knife" "knives" ;
landmine_N = regN "landmine" ;
map_N = regN "map" ;
medicine_N = regN "medicine" ;
police8officer_N = compoundN "police" (regN "officer") ;
skin_N = regN "skin" ;
soldier_N = regN "soldier" ;
toy_N = regN "toy" ;
translation8machine_N = compoundN "translation" (regN "machine") ;
weapon_N = regN "weapon";
-- Verbs
cooperate_V2 = mkV2 (regV "cooperate") (mkPrep "with") ;
cough_V = regV "cough" ;
drop_V2 = dirV2 (regDuplV "drop") ;
hurt_V = hurt_V ;
need_V2 = dirV2 (regV "need");
own_V2 = dirV2 (regV "own") ;
show_V3 = dirdirV3 (regV "show") ;
}
|
