Hindi and Urdu as refactored to Hindustani by Shafqat

lib/src/hindustani/RelativeHindustani.gf

@@ -0,0 +1,67 @@
+--concrete RelativeUrd of Relative = CatUrd ** open ResUrd, StringsHindustani in {
+incomplete concrete RelativeHindustani of Relative = 
+  CatHindustani ** open CommonHindustani, ResHindustani, StringsHindustani, Prelude in {
+
+  flags optimize=all_subs ;
+  coding = utf8;
+
+  lin
+
+    RelCl cl = {
+      s = \\t,p,o,agr => case <t,giveNumber agr> of {
+	                    <VPImpPast,Sg> => js ++ cl.s ! t ! p ! o ; 
+						<VPImpPast,Pl> => jn ++ cl.s ! t ! p ! o ;
+						<_,_>          => "jw" ++ cl.s ! t ! p ! o 
+			};
+      c = Dir
+      } ;
+
+{-   RelVP rp vp = {
+      s = \\t,p,o,ag => 
+        let 
+          agr = case rp.a of {
+            RNoAg => ag ;
+            RAg a => a
+            } ;
+		 cl = mkSClause (rp.s ! (giveNumber agr) ! Dir) agr vp;
+		  
+--          cl = case t of {
+--                VPImpPast =>  mkSClause (rp.s ! (giveNumber agr) ! Obl) agr vp;
+--				_         =>  mkSClause (rp.s ! (giveNumber agr) ! Dir) agr vp
+--				};
+        in
+        cl.s ! t ! p ! ODir ;
+      c = Dir
+      } ;
+      
+    RelSlash rp slash = {
+      s = \\t,p,o,agr => rp.s ! (giveNumber agr) ! Dir ++ slash.c2.s ++  slash.s ! t ! p ! o  ;--case t of {
+--	       VPImpPast => rp.s !  (giveNumber agr) Obl ++ slash.c2.s ++  slash.s ! t ! p ! o ;
+--		   _         => rp.s !  (giveNumber agr) Dir ++ slash.c2.s ++  slash.s ! t ! p ! o 
+--		   };
+      c = Dir
+      } ;
+-}
+    FunRP p np rp = {
+      s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ! Masc  ;
+      a = RAg np.a
+      } ;
+
+    IdRP = {
+      s = table {
+        Sg => table {
+		
+    	    CommonHindustani.Dir  => jw ; 
+            CommonHindustani.Obl  => js ;
+            CommonHindustani.Voc  => js 
+			};
+		Pl => table {
+            CommonHindustani.Dir  => jw ;
+		    CommonHindustani.Obl  => jn ;
+		    CommonHindustani.Voc  => jn
+			}
+       }; 
+      a = RNoAg
+      } ;
+
+}