GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Add Extend.ByVP in Chinese and Malay
This commit is contained in:
Inari Listenmaa
2023-05-23 10:21:29 +02:00
committed by GitHub
parent 8b1309c99d 760210c219
commit a66d15a0ea
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/chinese/ExtendChi.gf
View File

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

2
src/malay/ExtendMay.gf
View File

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