blob: 637b52d658285e51452cde029c40a2d852877fa8 (
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
|
--# -path=.:present:prelude
concrete PeaceLexExt_Fin of PeaceLexExt =
PeaceCat_Fin ** open ParadigmsFin in {
lin
-- Adjectives
dangerous_A = mkA "vaarallinen" ;
dead_A = mkA (mkN "kuollut" "kuolleita") ;
hungry_A = mkA "nälkäinen" ;
large_A = mkA "iso" ;
sick_A = mkA "sairas" ;
-- Nouns
air_N = mkN "ilma" ;
arm_N = mk3N "käsi" "käden" "käsiä" ;
building_N = mkN "rakennus" ;
car_N = mkN "auto" ;
corpse_N = mkN "ruumis" ;
doctor_N = mkN "lääkäri";
enemy_N = mkN "vihollinen";
face_N = mkN "naama" ; ---- kasvot
food_N = mkN "ruoka";
friend_N = mkN "ystävä";
ground_N = mkN "maa" ;
knife_N = mk2N "veitsi" "veitsiä" ; ---- veistä
landmine_N = mkN "maamiina" ;
map_N = mkN "kartta" ;
medicine_N = mkN "lääke" ;
police8officer_N = mkN "poliisi" ;
skin_N = mkN "iho" ;
soldier_N = mkN "sotilas" ;
weapon_N = mkN "ase";
-- Verbs
cough_V = mkV "yskiä" ;
drop_V2 = dirV2 (mkV "pudottaa") ;
hurt_V = mkV "sattua" ;
need_V2 = dirV2 (mkV "tarvita");
own_V2 = dirV2 (mkV "omistaa") ;
show_V3 = dirdirV3 (mkV "näyttää") ;
}
|
