ParseHinandExtraUrd

lib/src/urdu/ExtraUrd.gf

@@ -26,24 +26,51 @@ flags coding = utf8 ;
 
 -- for VP conjunction
 
-PassVPSlash vps = vps ;
-{-
---{
-  --  let 
-  --    be = predAux auxBe 
-   -- in {
+lincat
+    VPS   = {s : Agr => Str} ;
+    [VPS] = {s1,s2 : Agr => Str} ;
+
+  lin
+    BaseVPS = twoTable Agr ;
+    ConsVPS = consrTable Agr comma ;
+
+    PredVPS np vpi = {s = np.s ! NPC Dir ++ vpi.s ! np.a} ;
+
+    MkVPS t p vp = {
+      s = \\a => 
+           
+            let 
+              verb =  vp.s ! (VPTense VPPast a) ; -- this needs to be fixed --vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
+              verbf =   verb.fin ++ verb.inf ;
+            in t.s ++ p.s ++ vp.ad ++ vp.cvp ++  verbf ++ vp.obj.s ++ vp.comp ! a
+      } ;
+
+    ConjVPS = conjunctDistrTable Agr ;
+    
+--    ComplVPIVV vv vpi = 
+--      insertObj (\\a => vpi.s ! vv.typ ! a) (predVV vv) ;
+
+--PassVPSlash vps = vps ;
+
+-- in progress
+PassVPSlash vps = 
+    let 
+      aux = predV (mkV "جانا")
+    in {
    -- s = be.s ;
-   s = vps.s ;
+    s = table {
+      VPTense tense agr => {inf = (vps.s ! VPTense VPPast agr).inf ++ (aux.s ! VPTense tense agr).inf ;
+                            fin = (aux.s ! VPTense tense agr).fin};
+      vform                 => {inf = (vps.s ! vform).inf ++ (aux.s!vform).inf; fin = (vps.s!vform).inf}
+      };
     obj = vps.obj ;
-      subj = vps.c2.c ;
-      inf = vps.inf;
+      subj = vps.subj ;
+      inf = (vps.s ! VPTense VPPast (Ag Masc Sg Pers3_Distant)).inf ++ aux.inf; --this is not correct since, in this case the infinitive form will also inflect for agr i.e. khaya jana, khai jani etc
       ad = vps.ad;
       embComp = vps.embComp;
       prog = vps.prog ;
       comp = vps.comp ;
       cvp = vps.cvp       
-   -- } ;
+   } ;
 
---};
--}
 }