From 69c33e89c3ad5d76855e7ad660962894cad499e2 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 8 Nov 2011 16:06:40 +0000
Subject: [PATCH] FoodsTha, still to be checked

---
 contrib/summerschool/foods/FoodsTha.gf | 34 ++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 contrib/summerschool/foods/FoodsTha.gf

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 "น่า" "เบิ่อ")) ;
+
+}
+