1
0
forked from GitHub/gf-rgl

add SlashV2V

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

View File

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

View File

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