FoodsTha, still to be checked

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