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

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

6
src/english/ParseEngAbs.gf
View File

@@ -1,4 +1,4 @@
abstract ParseEngAbs = abstract ParseEngAbs =
Tense, Tense,
Cat, Cat,
Noun - [PPartNP], Noun - [PPartNP],
@@ -51,11 +51,11 @@ fun CompoundSgCN : CN -> CN -> CN ;
SlashVPIV2V : V2V -> Pol -> VPI -> VPSlash ; SlashVPIV2V : V2V -> Pol -> VPI -> VPSlash ;
SlashSlashV2V : V2V -> Ant -> Pol -> VPSlash -> VPSlash ; SlashSlashV2V : V2V -> Ant -> Pol -> VPSlash -> VPSlash ;
ComplVV : VV -> Ant -> Pol -> VP -> VP ; ComplVV : VV -> Ant -> Pol -> VP -> VP ;
PredVPosv,PredVPovs : NP -> VP -> Cl ; PredVPosv,PredVPovs : NP -> VP -> Cl ;
that_RP : RP ; that_RP : RP ;
who_RP : RP ; who_RP : RP ;

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