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

add SlashV2V

Browse Source
This commit is contained in:
Meowyam
2023-02-23 16:00:28 +08:00
parent 0eeaf5bce7
commit dab2749b82
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/malay/VerbMay.gf
View File

@@ -64,7 +64,6 @@ lin
} ; } ;
SlashV2A v2 adj = useV { SlashV2A v2 adj = useV {
s = \\vf => v2.s ! vf; s = \\vf => v2.s ! vf;
} ** { } ** {
@@ -72,6 +71,15 @@ lin
adjCompl = adj.s adjCompl = adj.s
} ; } ;
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2 vp = vp ** useV {
s = \\vf => v2.s ! vf ++ (linVP vp);
} ** {
c2 = v2.c2;
adjCompl = [] ;
} ;
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good -- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
-- SlashV2S v2 s = useV { -- SlashV2S v2 s = useV {
-- s = \\vf => v2.s ! vf; -- s = \\vf => v2.s ! vf;
@@ -80,9 +88,6 @@ lin
-- sCompl = s.s -- sCompl = s.s
-- } ; -- } ;
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
-- SlashV2V v2v vp = ;
{- {-
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good -- : V2S -> S -> VPSlash ; -- answer (to him) that it is good