blob: a7be39e0c5b1471c4e4d375fb082c7f23fc46e88 (
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
|
instance LexRestaurantSpa of LexRestaurant = open SyntaxSpa,GrammarSpa,ParadigmsSpa in {
flags encoding = utf8 ;
oper
restaurant_N = mkN "restaurante" ;
food_N = mkN "comida" ;
staff_N = variants {mkN "personal" ; mkN "servicio"} ;
wine_N = mkN "vino" ;
pizza_N = mkN "pizza" ;
cheese_N = mkN "queso" ;
fish_N = mkN "pescado" ;
dish_N = mkN "platillo" ;
drink_N = mkN "bebida" ;
dessert_N = mkN "postre" ;
recommend_V2 = mkV2 (mkV "recomendar" "recomiendo") ;
chinese_A = mkA "chino" ;
french_A = mkA "francés" "francesa" "franceses" "francesas" "francesamente";
italian_A = mkA "italiano" ;
japanese_A = mkA "japonés" ;
mexican_A = mkA "mexicano" ;
thai_A = mkA "tailandés" "tailandesa" "tailandeses" "tailandesas" "tailandesamente";
expensive_A = mkA "caro" ;
cheap_A = mkA "barato" ;
nice_A = mkA "agradable" ;
clean_A = mkA "limpio" ;
dirty_A = mkA "sucio" ;
fresh_A = mkA "fresco" ;
delicious_A = variants {mkA "delicioso"; mkA "exquisito"; mkA "sabroso"} ;
fatty_A = mkA "grasoso" ;
tasteless_A = variants {mkA "insípido"; mkA "insulso"} ;
authentic_A = mkA "auténtico" ;
efficient_A = mkA "eficiente" ;
courteous_A = mkA "cortés" ;
helpful_A = mkA "servicial" ;
friendly_A = mkA "amigable" ;
personal_A = mkA "personal" ;
warm_A = mkA "cálido" ;
prompt_A = mkA "rápido" ;
attentive_A = mkA "atento" ;
inefficient_A = variants {mkA "ineficiente" ; mkA "incompetente"} ;
rude_A = variants {mkA "grosero" ; mkA "descortés"} ;
impersonal_A = variants {mkA "impersonal" ; mkA "frío"} ;
slow_A = mkA "lento" ;
unattentive_A = mkA "desatento" ;
good_A = mkA "bueno" ;
great_A = mkA "magnífico" ;
excellent_A = mkA "excelente" ;
bad_A = mkA "malo" ;
awful_A = mkA "terrible" ;
horrible_A = variants {mkA "horrible" ; mkA "espantoso"} ;
disgusting_A = mkA "repugnante" ;
boring_A = mkA "aburrido" ;
diverse_A = mkA "variado" ;
noAdv_AdV = mkAdV "" ;
strongly_AdV = mkAdV "enfáticamente" ;
completely_AdV = mkAdV (variants {"completamente"; "totalmente"; "definitivamente"; "absolutamente"}) ;
certainly_AdV = mkAdV "ciertamente" ;
honestly_AdV = mkAdV "honestamente" ;
really_AdV = mkAdV (variants {"realmente"; "verdaderamente"}) ;
reluctantly_AdV = mkAdV ("a" ++ "regañadientes") ;
hardly_AdV = mkAdV "difícilmente" ;
}
|
