diff --git a/src/english/ParseEngAbs.gf b/src/english/ParseEngAbs.gf index bcedf25c..844526e6 100644 --- a/src/english/ParseEngAbs.gf +++ b/src/english/ParseEngAbs.gf @@ -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 ; diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf index 0be398aa..5f5a6731 100644 --- a/src/malay/VerbMay.gf +++ b/src/malay/VerbMay.gf @@ -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