From a2bd002917b5a28be82672cbfa813f44d3558ac8 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 4 Mar 2010 16:56:36 +0000
Subject: [PATCH] FoodsUrd added (by Shafqat)

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

diff --git a/contrib/summerschool/foods/FoodsUrd.gf b/contrib/summerschool/foods/FoodsUrd.gf
new file mode 100644
index 000000000..a1685b17f
--- /dev/null
+++ b/contrib/summerschool/foods/FoodsUrd.gf
@@ -0,0 +1,31 @@
+concrete FoodsUrd of Foods = {
+  flags coding = utf8 ;
+	  param Number = Sg | Pl ;
+	  
+	 oper coupla : Number -> Str =\n -> case n of {Sg => "ہے" ; Pl => "ہیں"};
+	  
+	 	  
+      lincat
+        Comment, Quality = {s : Str} ; 
+		Item = {s: Str ; n: Number};
+		Kind = {s: Number => Str};
+  
+      lin
+      Pred item quality = {s = item.s ++ quality.s ++  coupla item.n} ;
+	  This kind = {s = "یھ" ++ kind.s ! Sg; n= Sg} ;
+	  These kind = {s = "یھ" ++ kind.s ! Pl; n = Pl} ;
+      That kind = {s = "وہ"  ++ kind.s ! Sg; n= Sg} ;
+      Those kind = {s = "وہ" ++ kind.s ! Pl; n=Pl} ;
+      Mod quality kind = {s = \\n => quality.s ++ kind.s ! n} ;
+      Wine = {s = table { Sg => "شراب" ; Pl => "شرابیں"} };
+      Cheese = {s = table { Sg => "پنیر" ; Pl => "پنیریں"} };
+      Fish = {s = table { Sg => "مچھلی" ; Pl => "مچھلیاں"} };
+      Pizza = {s = table { Sg => "پیزہ" ; Pl => "پیزے"} };
+	  Very quality = {s = "بہت" ++ quality.s} ;
+      Fresh = {s = "تازہ"} ;
+      Warm = {s = "گرم"} ;
+      Italian = {s = "اٹا لوی"} ;
+      Expensive = {s = "مہنگا"} ;
+      Delicious = {s = "مزیدار"} ;
+      Boring = {s = "فضول"} ;
+	}