blob: 5f40fc6b66823cb6e09ebc0df41c1a98d8ca8d4a (
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_Swe of PeaceLexExt =
PeaceCat_Swe ** open ParadigmsSwe, IrregSwe,
LexiconSwe, StructuralSwe in {
lin
-- Adjectives
dangerous_A = regA "farlig" ;
dead_A = regA "död" ;
hungry_A = regA "hungrig" ;
large_A = big_A ;
sick_A = regA "sjuk" ;
-- Nouns
air_N = regN "luft" ;
arm_N = regN "arm" ;
building_N = mk2N "byggnad" "byggnader" ;
car_N = regN "bil" ;
corpse_N = mk2N "lik" "lik" ;
doctor_N = mkN "doktor" "doktorn" "doktorer" "doktorerna";
enemy_N = mk2N "fiende" "fiender" ;
face_N = regN "ansikte" ;
food_N = regN "mat";
friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
ground_N = mk2N "mark" "marker";
knife_N = regN "kniv" ;
landmine_N = regN "landmina" ;
map_N = regN "karta" ;
medicine_N = mk2N "medicin" "mediciner";
police8officer_N = mk2N "polis" "poliser" ;
skin_N = mk2N "skinn" "skinn" ;
soldier_N = mk2N "soldat" "soldater" ;
toy_N = regN "leksak" ;
translation8machine_N = mk2N "översättningsmaskin" "översättningsmaskiner";
weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ;
-- Verbs
cooperate_V2 = mkV2 (regV "samarbetar") (mkPrep "med") ;
cough_V = regV "hostar" ;
drop_V2 = dirV2 (regV "släpper") ;
hurt_V = partV göra_V "ont" ; -- FIXME: "Gör ont ditt ben?"
need_V2 = dirV2 (regV "behöver");
own_V2 = dirV2 (regV "äger") ;
show_V3 = dirdirV3 (regV "visar") ;
}
|
