blob: fa36237484eb510225ec86659d7ce2263bf9c59a (
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 LexRestaurantFre of LexRestaurant = open SyntaxFre,GrammarFre,ParadigmsFre in {
oper
restaurant_N = mkN "restaurant" ;
food_N = mkN "manger" ;
staff_N = mkN "personnel" ;
wine_N = mkN "vin" ;
pizza_N = mkN "pizza" feminine ;
cheese_N = mkN "fromage" masculine ;
fish_N = mkN "poisson" ;
dish_N = mkN "plat" ;
drink_N = mkN "boisson" feminine ;
dessert_N = mkN "dessert" ;
recommend_V2 = mkV2 (mkV "recommander") ;
chinese_A = mkA "chinois" ;
french_A = mkA "français" ;
italian_A = mkA "italien" ;
japanese_A = mkA "japonais" ;
mexican_A = mkA "mexicain" ;
thai_A = mkA "thaïlandais" ;
expensive_A = mkA "cher" ;
cheap_A = mkA ["bon marché"] ["bon marché"] ["bon marché"] ["bon marché"] ;
nice_A = mkA "agréable" ;
clean_A = mkA "propre" ;
dirty_A = mkA "sale" ;
fresh_A = mkA "frais" "fraîche" "frais" "fraîches" ;
delicious_A = mkA "délicieux" ;
fatty_A = mkA "gras" "grasse" "gras" "grasses" ;
tasteless_A = mkA "fade";
authentic_A = mkA "authentique" ;
efficient_A = mkA "efficace" ;
courteous_A = mkA "poli" ;
helpful_A = mkA "obligeant" ;
friendly_A = mkA "amical" ;
personal_A = mkA "personnel" ;
warm_A = mkA "chaud" ;
prompt_A = mkA "rapide" ;
attentive_A = mkA "attentif" ;
inefficient_A = mkA "inefficace" ;
rude_A = mkA "rude" ;
impersonal_A = mkA "impersonnel" ;
slow_A = mkA "lent" ;
unattentive_A = mkA "inattentif" ;
good_A = mkA "bon" "bonne" ;
great_A = mkA "magnifique" ;
excellent_A = mkA "excellent" ;
bad_A = mkA "mauveux" ;
awful_A = mkA "affreux" ;
horrible_A = mkA "horrible" ;
disgusting_A = mkA "dégoûtant" ;
boring_A = mkA "ennuyeux" ;
diverse_A = mkA "divers" ;
noAdv_AdV = mkAdV "" ;
strongly_AdV = mkAdV "fortement" ;
completely_AdV = mkAdV "complètement";
certainly_AdV = mkAdV "certainement" ;
honestly_AdV = mkAdV "honnêtement" ;
really_AdV = mkAdV "vraiment" ;
reluctantly_AdV = mkAdV ["avec réticence"] ;
hardly_AdV = mkAdV ["à peine"] ;
-- but_Conj = ss "mais" ** {n = Pl} ;
oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
}
|
