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

add ListS and ComplVA

Browse Source
This commit is contained in:
Meowyam
2023-02-23 14:08:14 +08:00
parent f53078dbad
commit ee01aa1cd5
6 changed files with 38 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/malay/ResMay.gf
+10 -1
View File
@@ -251,6 +251,16 @@ oper
} ;
copula : Verb = {s = \\_ => "ada"} ; -- TODO
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
-- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
insertObj : Str -> VerbPhrase -> VerbPhrase = \str,vp -> vp ** {
s = \\vf,pol => vp.s ! Active ! Pos ++ str ;
} ;
insertComp : AdjPhrase -> VerbPhrase -> VerbPhrase = \ap,vp -> vp ** {
s = \\vf,pol => vp.s ! Active ! Pos ++ ap.s ;
} ;
------------------
-- Adv
@@ -328,7 +338,6 @@ oper
predVPSlash : NounPhrase -> VPSlash -> ClSlash = \np,vps ->
predVP np <vps : VerbPhrase> ** {c2 = vps.c2} ;
-- mkClause : Str -> NounPhrase -> VPSlash -> Clause = \str,np,vp -> {
-- subj = str ++ np.s ! Bare;
-- pred = vp.s