blob: 0e58537978a642dc4ea1d02e71f9c28ee3d54995 (
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
|
instance LexRestaurantFin of LexRestaurant = open SyntaxFin,GrammarFin,ParadigmsFin in {
oper
restaurant_N = mkN "ravintola" ;
food_N = mkN "ruoka" ;
staff_N = mkN "henkilökunta" ;
wine_N = mkN "viini" ;
pizza_N = mkN "pizza" ;
cheese_N = mkN "juusto" ;
fish_N = mkN "kala" ;
dish_N = mkN "ruokalaji" ;
drink_N = mkN "juoma" ;
dessert_N = mkN "jälkiruoka" ;
recommend_V2 = mkV2 (mkV "suositella") ;
chinese_A = mkA "kiinalainen" ;
french_A = mkA "ranskalainen" ;
italian_A = mkA "italialainen" ;
japanese_A = mkA "japanilainen" ;
mexican_A = mkA "meksikolainen" ;
thai_A = mkA "thaimaalainen" ;
expensive_A = mkA "kallis" ;
cheap_A = mkA "halpa" ;
nice_A = mkA "mukava" ;
clean_A = mkA "siisti" ;
dirty_A = mkA "likainen" ;
fresh_A = mkA "raikas" ;
delicious_A = mkA "herkullinen" ;
fatty_A = mkA "rasvainen" ;
tasteless_A = mkA "mauton";
authentic_A = mkA "autenttinen" ;
efficient_A = mkA "tehokas" ;
courteous_A = mkA "kohtelias" ;
helpful_A = mkA "avulias" ;
friendly_A = mkA "ystävällinen" ;
personal_A = mkA "persoonallinen" ;
warm_A = mkA "lämmin" ;
prompt_A = mkA "nopea" ;
attentive_A = mkA "valpas" ;
inefficient_A = mkA "tehoton" ;
rude_A = mkA "tyly" ;
impersonal_A = mkA "persoonaton" ;
slow_A = mkA "hidas" ;
unattentive_A = mkA "unelias" ;
good_A = mkA "hyvä" ;
great_A = mkA "upea" ;
excellent_A = mkA "erinomainen" ;
bad_A = mkA "huono" ;
awful_A = mkA "kamala" ;
horrible_A = mkA "kauhea" ;
disgusting_A = mkA "vastenmielinen" ;
boring_A = mkA "tylsä" ;
diverse_A = mkA "erilainen" ;
noAdv_AdV = mkAdV "" ;
strongly_AdV = mkAdV "vahvasti" ;
completely_AdV = mkAdV "täysin";
certainly_AdV = mkAdV "varmasti" ;
honestly_AdV = mkAdV "vilpittömästi" ;
really_AdV = mkAdV "todella" ;
reluctantly_AdV = mkAdV "vastahakoisesti" ;
hardly_AdV = mkAdV "tuskin" ;
-- but_Conj = ss "vaan" ** {n = Pl} ;
oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
}
|
