GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added wiki grammars

Browse Source
This commit is contained in:
aarne
2008-03-04 11:56:12 +00:00
parent e434f57eff
commit 9dcad11f09
39 changed files with 4484 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
examples/wiki/LexRestaurantFre.gf Normal file
View File

@@ -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 = <>} ;
}