msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Chi) add ByVP

Browse Source
This commit is contained in:
Inari Listenmaa
2023-05-23 10:19:10 +02:00
parent 8b1309c99d
commit 2d429489bb
1 changed files with 5 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} ;