added wiki grammars

1 files changed, 117 insertions, 0 deletions

diff --git a/examples/wiki/RestaurantI.gf b/examples/wiki/RestaurantI.gf
new file mode 100644
index 000000000..9d491f01e
--- /dev/null
+++ b/examples/wiki/RestaurantI.gf
@@ -0,0 +1,117 @@
+
+--# -path=.:alltenses:prelude
+
+incomplete concrete RestaurantI of Restaurant = open Syntax, Grammar, LexRestaurant in {
+
+	flags coding = utf8 ;
+
+	lincat
+		Paragraph		= Text ;
+		Phrase			= Phr ;
+		Item			= NP ;
+		Quality			= AP ;
+		ListQual		= ListAP ;
+		Adverb			= AdV ;
+		STense			= Tense ;
+
+	lin
+-- Paragraphs
+		Sentence phrase phrases				= mkText phrase phrases ;
+		Empty_Sentence						= emptyText ;
+
+-- Sentences
+
+		The_Item_Is item quality		= mkPhr (mkS positivePol (mkCl item quality)) ;
+		The_Item_Is_Not item quality	= mkPhr (mkS negativePol (mkCl item quality)) ;
+		I_Recommend adv item			=
+			variants {mkPhr (mkS presentTense positivePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item)))) ;
+					  mkPhr (mkS conditionalTense positivePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item))))} ;
+		I_Do_Not_Recommend adv item		=
+			variants {mkPhr (mkS presentTense negativePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item)))) ;
+					  mkPhr (mkS conditionalTense negativePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item))))} ;
+
+-- Common Nouns
+		The_Restaurant				= variants {mkNP defSgDet restaurant_N; mkNP this_QuantSg restaurant_N} ;
+		The_Food					= mkNP defSgDet food_N ;
+		The_Staff					= mkNP defSgDet staff_N ;
+		The_Wine					= mkNP defSgDet wine_N ;
+		The_Wines					= mkNP defPlDet wine_N ;
+		The_Cheese					= mkNP defSgDet cheese_N ;
+		The_Cheeses					= mkNP defPlDet cheese_N ;
+		The_Fish					= mkNP defSgDet fish_N ;
+		The_Pizza					= mkNP defSgDet pizza_N ;
+		The_Dishes					= mkNP defPlDet dish_N ;
+		The_Drinks					= mkNP defPlDet drink_N ;
+		The_Desserts				= mkNP defPlDet dessert_N ;
+
+-- Adjectival Phrases
+		Adjective_And_Adjective qualA qualB		= mkListAP qualA qualB ;
+		Adj_Comma_List_Of_Adjs qualA qualB		= mkListAP qualA qualB ;
+		A_List_Of_Adjectives qual				= mkAP and_Conj qual ;
+		Very_Adjective quality					= mkAP very_AdA quality ;
+
+-- Adjectives
+--	Restaurant
+		Chinese								= mkAP chinese_A ;
+		French								= mkAP french_A ;
+		Italian								= mkAP italian_A ;
+		Japanese							= mkAP japanese_A ;
+		Mexican								= mkAP mexican_A ;
+		Thai								= mkAP thai_A ;
+
+		Expensive							= mkAP expensive_A ;
+		Cheap								= mkAP cheap_A ;
+		Nice								= mkAP nice_A ;
+		Clean								= mkAP clean_A ;
+		Dirty								= mkAP dirty_A ;
+
+--	Food
+		Fresh								= mkAP fresh_A ;
+		Delicious							= mkAP delicious_A ;
+		Fatty								= mkAP fatty_A ;
+		Tasteless							= mkAP tasteless_A;
+		Authentic							= mkAP authentic_A ;
+
+--	Service
+		Efficient							= mkAP efficient_A ;
+		Courteous							= mkAP courteous_A ;
+		Helpful								= mkAP helpful_A ;
+		Friendly							= mkAP friendly_A ;
+		Personal							= mkAP personal_A ;
+		Warm								= mkAP warm_A ;
+		Prompt								= mkAP prompt_A ;
+		Attentive							= mkAP attentive_A ;
+		Inefficient							= mkAP inefficient_A ;
+		Rude								= mkAP rude_A ;
+		Impersonal							= mkAP impersonal_A ;
+		Slow								= mkAP slow_A ;
+		UnAttentive							= mkAP unattentive_A ;
+
+--	Generic
+		Good								= mkAP good_A ;
+		Great								= mkAP great_A ;
+		Excellent							= mkAP excellent_A ;
+		Bad									= mkAP bad_A ;
+		Awful								= mkAP awful_A ;
+		Horrible							= mkAP horrible_A ;
+		Disgusting							= mkAP disgusting_A ;
+		Boring								= mkAP boring_A ;
+
+-- Generic Plural
+		Diverse								= mkAP diverse_A ;
+

+-- Adverbs
+		NoAdverb							= noAdv_AdV ;
+		Strongly							= strongly_AdV ;
+		Completely							= completely_AdV ;
+		Certainly							= certainly_AdV ;
+		Honestly							= honestly_AdV ;
+		Really								= really_AdV ;
+		Reluctantly							= reluctantly_AdV ;
+		Hardly								= hardly_AdV ;
+
+-- Tenses
+		Present_Tense						= presentTense ;
+		Conditional_Tense					= conditionalTense ;
+
+}