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

@@ -120,5 +120,15 @@ 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 (appPrep sslash.c2 np.s))) <lin S sslash : S> ;
}