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

(Chi) Add ComplVPIVV, GerundNP and GerundAdv

Browse Source
This commit is contained in:
Inari Listenmaa
2023-02-24 15:26:03 +08:00
committed by Meowyam
parent 7ec7a831f3
commit 4a56f8e3fd
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/chinese/ExtendChi.gf
View File

@@ -5,12 +5,13 @@ concrete ExtendChi of Extend = CatChi **
VPS, ListVPS, VPI, ListVPI VPS, ListVPS, VPI, ListVPI
, MkVPS, BaseVPS, ConsVPS, ConjVPS , MkVPS, BaseVPS, ConsVPS, ConjVPS
, PredVPS, SQuestVPS, RelVPS --, QuestVPS -- TODO , PredVPS, SQuestVPS, RelVPS --, QuestVPS -- TODO
, MkVPI, BaseVPI, ConsVPI, ConjVPI --, ComplVPIVV -- TODO , MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV
, VPS2, ListVPS2, VPI2, ListVPI2 , VPS2, ListVPS2, VPI2, ListVPI2
, MkVPS2, BaseVPS2, ConsVPS2, ConjVPS2, ComplVPS2, ReflVPS2 , MkVPS2, BaseVPS2, ConsVPS2, ConjVPS2, ComplVPS2, ReflVPS2
, MkVPI2, BaseVPI2, ConsVPI2, ConjVPI2, ComplVPI2 , MkVPI2, BaseVPI2, ConsVPI2, ConjVPI2, ComplVPI2
, ProDrop, ComplDirectVS, ComplDirectVQ , ProDrop, ComplDirectVS, ComplDirectVQ
, PassVPSlash, PassAgentVPSlash ] , PassVPSlash, PassAgentVPSlash
, GerundAdv, GerundNP ]
with (Grammar=GrammarChi) ** open with (Grammar=GrammarChi) ** open
Prelude Prelude
, Coordination , Coordination
@@ -60,6 +61,12 @@ concrete ExtendChi of Extend = CatChi **
BaseVPI2 v w = twoSS v w ** w ; BaseVPI2 v w = twoSS v w ** w ;
ConsVPI2 v vs = consrSS duncomma v vs ** vs ; ConsVPI2 v vs = consrSS duncomma v vs ** vs ;
ComplVPIVV vv vpi = predV vv [] ** {
compl = vpi.s ;
} ;
GerundAdv vp = mkAdv (infVP vp) ;
GerundNP vp = ResChi.mkNP (infVP vp) ;
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} ;