blob: 9d491f01e95e1c0f07fb9ce0135902dbe1be3d56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
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 ;
}
|
