diff options
| -rw-r--r-- | contrib/summerschool/foods/FoodsTha.gf | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/contrib/summerschool/foods/FoodsTha.gf b/contrib/summerschool/foods/FoodsTha.gf new file mode 100644 index 000000000..ccc342e18 --- /dev/null +++ b/contrib/summerschool/foods/FoodsTha.gf @@ -0,0 +1,34 @@ +--# -path=.:alltenses
+
+concrete FoodsTha of Foods = open SyntaxTha, LexiconTha,
+ ParadigmsTha, (R=ResTha) in {
+
+ flags coding = utf8 ;
+
+ lincat
+ Comment = Utt ;
+ Item = NP ;
+ Kind = CN ;
+ Quality = AP ;
+
+ lin
+ Pred item quality = mkUtt (mkCl item quality) ;
+ This kind = mkNP this_Det kind ;
+ That kind = mkNP that_Det kind ;
+ These kind = mkNP these_Det kind ;
+ Those kind = mkNP those_Det kind ;
+ Mod quality kind = mkCN quality kind ;
+ Very quality = mkAP very_AdA quality ;
+ Wine = mkCN (mkN (R.thbind "เหล้าอ" "งุ่น") "ขวด") ;
+ Pizza = mkCN (mkN (R.thbind "พิซ" "ซา") "ถาด") ;
+ Cheese = mkCN (mkN (R.thbind "เนย" "แข็ง") "ก้อน") ;
+ Fish = mkCN fish_N ;
+ Fresh = mkAP (mkA "สด") ;
+ Warm = mkAP warm_A ;
+ Italian = mkAP (mkA " อิตาลี") ;
+ Expensive = mkAP (mkA "แพง") ;
+ Delicious = mkAP (mkA "อร่อย") ;
+ Boring = mkAP (mkA (R.thbind "น่า" "เบิ่อ")) ;
+
+}
+
|