mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 13:29:32 -06:00
118 lines
3.6 KiB
Plaintext
118 lines
3.6 KiB
Plaintext
|
|
--# -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 ;
|
|
|
|
}
|