mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 21:19:31 -06:00
71 lines
2.2 KiB
Plaintext
71 lines
2.2 KiB
Plaintext
|
|
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 = <>} ;
|
|
|
|
}
|