more verb constructions in Translate (Eng,Swe,Fin): without moving, by moving, in order to move

This commit is contained in:
aarne
2014-09-26 06:44:03 +00:00
parent e1538f762f
commit 56c50bfb39
10 changed files with 49 additions and 10 deletions

View File

@@ -62,7 +62,7 @@ lin
} ;
GerundNP vp =
let a = AgP3Sg Neutr
let a = AgP3Sg Neutr ---- agr
in
{s = \\_ => vp.ad ! a ++ vp.prp ++ vp.s2 ! a ++ vp.ext ; a = a} ;
@@ -71,6 +71,12 @@ lin
in
{s = vp.ad ! a ++ vp.prp ++ vp.s2 ! a ++ vp.ext} ;
WithoutVP vp = {s = "without" ++ (GerundAdv (lin VP vp)).s} ;
InOrderToVP vp = {s = ("in order" | []) ++ infVP VVInf vp Simul CPos (AgP3Sg Neutr)} ;
ByVP vp = {s = "by" ++ (GerundAdv (lin VP vp)).s} ;
PresPartAP = E.PartVP ;
PastPartAP vp = {