few changes in ParseHin

lib/src/hindi/DictHin.gf

@@ -25793,14 +25793,14 @@ of_Prep = mkPrep "का" "की" ;
   somePl_Det = mkDet "कुछ" "कुछ" "कुछ" "कुछ" Pl ;
   something_NP = MassNP (UseN (ParadigmsHin.mkN ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] Masc ));
  -- somewhere_Adv = mkAdv ["कहीं"] ;
-  that_Quant = demoPN "वह" "उस" "उन" ;
+  that_Quant = demoPN "वह" "उस" "उन" "उन";
   that_Subj = ss "कि";
   there_Adv = mkAdv "वहाँ" ;
   there7to_Adv = mkAdv ["वहाँ पर"] ;
   there7from_Adv = mkAdv ["वहाँ से"] ;
   therefore_PConj = ss "इस लिये" ;
   they_Pron = personalPN "वे" "वे" "वे" "उन का" "उन की" "उन के" "उन की" Pl Masc Pers3_Distant ; ----
-  this_Quant = demoPN "ये" "इस" "इन";
+  this_Quant = demoPN "ये" "इस" "इन" "इन";
   through_Prep = mkPrep ["में से"] ["में से"] ;
   too_AdA = ss "बहुत" ;
   to_Prep = mkPrep "को" "को" ; -- ** {lock_Prep = <>};

lib/src/hindi/ParseHin.gf

@@ -7,7 +7,7 @@ concrete ParseHin of ParseEngAbs =
   AdjectiveHin,
   NumeralHin,
   ConjunctionHin,
-  VerbHin - [PassV2,ComplVV],
+  VerbHin - [PassV2,ComplVV,VPSlashPrep],
   AdverbHin,
   PhraseHin,
   SentenceHin,
@@ -19,8 +19,8 @@ concrete ParseHin of ParseEngAbs =
   ExtraHin [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,Temp,Pol,Conj,VPS,ListVPS,S,Num, CN,
   RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,VPI, VPIForm, VPIInf, VPIPresPart, ListVPI,
   VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,ClSlash, RCl, EmptyRelSlash],
-  DictHinMath **
---  DictHin ** 
+--  DictHinMath **
+  DictHin ** 
 open MorphoHin, ResHin, ParadigmsHin,CommonX, CommonHindustani, Prelude in {
 
 flags
@@ -59,7 +59,7 @@ lin
     s = \\n,g,_,_ => v.cvp ++ v.s ! VF Imperf Pers2_Casual n g ; -- the main verb of compound versb needs to be attached here
   } ;
 
---  OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
+  OrdCompar a = {s = a.s ! Sg ! Masc ! Dir ! Compar ; n = Sg } ;
 
   PositAdVAdj a = {s = a.s ! Sg ! Masc ! Dir ! Posit} ;
 ---------------
@@ -132,5 +132,7 @@ lin
   PPos = {s = [] ; p = Pos} ;
   PNeg = {s = [] ; p = Neg} ; -- contracted: don't
   UncNeg = {s = [] ; p = Neg} ;
+  
+  VPSlashPrep vp p = vp ** {c2 = {s = p.s!Masc ; c = VTrans}} ;
     
 }

lib/src/hindustani/VerbHindustani.gf

@@ -37,6 +37,8 @@ incomplete concrete VerbHindustani of Verb = CatHindustani ** open CommonHindust
     CompNP np = {s = \\_ => np.s ! NPC Dir} ;
     CompAdv adv = {s = \\a => adv.s ! giveGender a} ;
     CompCN cn = {s = \\a => cn.s ! giveNumber a ! Dir} ;
+    
+    VPSlashPrep vp p = vp ** {c2 = p.s ;  c = VTrans } ;
 
 
 }