DirectComplVS, DirectComplVQ, FocusObjS in translator/Extensions.gf, implemented for Eng,Ger,Swe so far

This commit is contained in:
aarne
2014-05-23 13:17:22 +00:00
parent 81c59721b2
commit 48d61ad7c2
8 changed files with 44 additions and 5 deletions

View File

@@ -115,4 +115,14 @@ lin
UttAdV adv = adv;
DirectComplVS t np vs utt =
mkS (lin Adv (optCommaSS utt)) (mkS t positivePol (mkCl np (lin V vs))) ;
DirectComplVQ t np vs q =
mkS (lin Adv (optCommaSS (mkUtt q))) (mkS t positivePol (mkCl np (lin V vs))) ;
FocusObjS np sslash =
mkS (lin Adv (ss (sslash.c2.s ++ np.s ! NPAcc))) <lin S sslash : S> ;
}