blob: c542eb4ef463e0ca6f5a95435d594fff527af8c2 (
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
|
--# -path=.:present:prelude
concrete PeaceLexExt_Swe of PeaceLexExt =
PeaceCat_Swe ** open LexiconSwe, ParadigmsSwe 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" ;
food_N = regN "mat";
friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
landmine_N = regN "landmina" ;
medicine_N = mk2N "medicin" "mediciner";
skin_N = mk2N "skinn" "skinn" ;
soldier_N = mk2N "soldat" "soldater" ;
weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ;
-- Verbs
cough_V = regV "hostar" ;
need_V2 = dirV2 (regV "behöver");
own_V2 = dirV2 (regV "äger") ;
show_V3 = dirdirV3 (regV "visar") ;
}
|
