diff options
Diffstat (limited to 'old-examples/wiki/LexRestaurantFre.gf')
| -rw-r--r-- | old-examples/wiki/LexRestaurantFre.gf | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/old-examples/wiki/LexRestaurantFre.gf b/old-examples/wiki/LexRestaurantFre.gf new file mode 100644 index 000000000..fa3623748 --- /dev/null +++ b/old-examples/wiki/LexRestaurantFre.gf @@ -0,0 +1,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 = <>} ; + +} |