Merge pull request #425 from GrammaticalFramework/ByVP-chi-may

Add Extend.ByVP in Chinese and Malay

src/chinese/ExtendChi.gf

@@ -11,7 +11,7 @@ concrete ExtendChi of Extend = CatChi **
   , MkVPI2, BaseVPI2, ConsVPI2, ConjVPI2, ComplVPI2
   , ProDrop, ComplDirectVS, ComplDirectVQ
   , PassVPSlash, PassAgentVPSlash
-  , GerundAdv, GerundNP ]
+  , GerundAdv, GerundNP, ByVP ]
   with (Grammar=GrammarChi) ** open
      Prelude
    , Coordination
@@ -68,6 +68,10 @@ concrete ExtendChi of Extend = CatChi **
     GerundAdv vp = mkAdv (infVP vp) ;
     GerundNP vp = ResChi.mkNP (infVP vp) ;
 
+    ByVP vp =
+     let adv : Adv = GerundAdv vp
+       in adv ** {s = adv.s ++ "来" ; advType = ATTime} ;
+
     GenNP np =  {s,pl = np.s ++ possessive_s ; detType = DTPoss} ;
     GenRP nu cn = {s = \\_ => cn.s ++ relative_s} ;
 

src/malay/ExtendMay.gf

@@ -17,6 +17,7 @@ concrete ExtendMay of Extend = CatMay
     ,GenModNP, GenNP, GenRP
     ,CompoundN
     ,GerundNP, GerundAdv
+    ,ByVP
 
 
     -- VPS2 ;        -- have loved (binary version of VPS)
@@ -97,6 +98,7 @@ concrete ExtendMay of Extend = CatMay
 
       GerundAdv vp = ss (linVP vp) ;
 
+      ByVP vp = cc2 by8means_Prep (GerundAdv vp) ;
 
       -- MkVPS2    : Temp -> Pol -> VPSlash -> VPS2 ;  -- has loved
       -- ConjVPS2  : Conj -> [VPS2] -> VPS2 ;          -- has loved and now hates