mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 06:49:31 -06:00
DirectComplVS, DirectComplVQ, FocusObjS in translator/Extensions.gf, implemented for Eng,Ger,Swe so far
This commit is contained in:
@@ -85,6 +85,11 @@ fun
|
||||
|
||||
SlashSlashV2V : V2V -> Ant -> Pol -> VPSlash -> VPSlash ; -- induce them to sell (it) -- analogous to Verb.SlashVV
|
||||
|
||||
DirectComplVS : Temp -> NP -> VS -> Utt -> S ; -- I am here, she said / she said: I am here -- no negation possible
|
||||
DirectComplVQ : Temp -> NP -> VQ -> QS -> S ; -- who is there, she asked / she asked: who is there -- no negation possible
|
||||
|
||||
FocusObjS : NP -> SSlash -> S ; -- this woman I love -- in declarative S, not in QS
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -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> ;
|
||||
|
||||
}
|
||||
|
||||
@@ -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> ;
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -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> ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -24,7 +24,8 @@ abstract Translate =
|
||||
|
||||
Construction,
|
||||
Extensions [
|
||||
CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP
|
||||
CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
||||
DirectComplVS, DirectComplVQ, FocusObjS
|
||||
---- , PastPartAP, PastPartAgentAP, PresPartAP ---- not yet available for all languages
|
||||
],
|
||||
Dictionary,
|
||||
|
||||
@@ -28,7 +28,9 @@ concrete TranslateEng of Translate =
|
||||
DocumentationEng,
|
||||
|
||||
ChunkEng,
|
||||
ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP
|
||||
ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
||||
DirectComplVS, DirectComplVQ, FocusObjS
|
||||
|
||||
---- , PastPartAP, PastPartAgentAP, PresPartAP
|
||||
],
|
||||
DictionaryEng **
|
||||
|
||||
@@ -23,7 +23,8 @@ concrete TranslateGer of Translate =
|
||||
DocumentationGer,
|
||||
|
||||
ChunkGer,
|
||||
ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
|
||||
ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
||||
DirectComplVS, DirectComplVQ, FocusObjS],
|
||||
|
||||
DictionaryGer **
|
||||
open MorphoGer, ResGer, ParadigmsGer, SyntaxGer, CommonScand, (E = ExtraGer), Prelude in {
|
||||
|
||||
@@ -23,7 +23,8 @@ concrete TranslateSwe of Translate =
|
||||
DocumentationSwe,
|
||||
|
||||
ChunkSwe,
|
||||
ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
|
||||
ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
||||
DirectComplVS, DirectComplVQ, FocusObjS],
|
||||
|
||||
DictionarySwe **
|
||||
open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {
|
||||
|
||||
Reference in New Issue
Block a user