GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 14:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/translator/ExtensionsEng.gf
View File

@@ -1,7 +1,7 @@
--# -path=.:../abstract
concrete ExtensionsEng of Extensions =
CatEng ** open MorphoEng, ResEng, ParadigmsEng, (S = SentenceEng), (E = ExtraEng), Prelude in {
CatEng ** open MorphoEng, ResEng, ParadigmsEng, (S = SentenceEng), (E = ExtraEng), SyntaxEng, Prelude in {
lincat
VPI = E.VPI ;
@@ -154,4 +154,13 @@ 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 (optCommaSS (ss (sslash.c2 ++ np.s ! NPAcc)))) <lin S sslash : S> ;
}