experimenting with exclusion of some functions to gain speed in Translate

lib/src/translator/Translate.gf

@@ -7,7 +7,7 @@ abstract Translate =
   Numeral,
   Conjunction,
   Verb - [
-     SlashV2V, PassV2, ComplVV,   -- to be generalized
+-----     SlashV2V, PassV2, ComplVV,   -- to be generalized
      UseCopula                    ---- overgenerating ?? 
      ],
   Adverb,
@@ -19,10 +19,10 @@ abstract Translate =
 
   Symbol [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],          ---- why only these?
 
-  Chunk - [VPS,VPI],
+  Chunk,
 
   Construction,
-  Extensions,
+  Extensions - [VPI,VPS,PredFrontVQ,PredFrontVS,SlashSlashV2V,SlashV2V,SlashVPIV2V,ComplVV,PassVPSlash,PassAgentVPSlash],
   Dictionary,
   Documentation
 

lib/src/translator/TranslateEng.gf

@@ -12,12 +12,15 @@ concrete TranslateEng of Translate =
     ],
   ConjunctionEng,
   VerbEng - [
-    SlashV2V, PassV2, UseCopula, ComplVV,  -- generalized in Extensions
-    ComplVS, SlashV2S, ComplSlash          -- have variants in Eng
+    UseCopula,  
+--    SlashV2V, PassV2, ComplVV,  -- generalized in Extensions
+    ComplVS, SlashV2S, ComplSlash,          -- have variants in Eng
+    SlashV2VNP, SlashVV, AdVVPSlash,AdvVPSlash,VPSlashPrep -----
     ],
   AdverbEng,
   PhraseEng,
   SentenceEng - [
+    SlashVS, -----
 ----    PredVP,   -- to be replaced by PredVPS, QuestVPS, QuestIAdvVPS in Extensions
     UseCl     -- replaced by UseCl | ContractedUseCl
     ],        
@@ -27,9 +30,11 @@ concrete TranslateEng of Translate =
   ConstructionEng,
   DocumentationEng,
 
-  ChunkEng - [VPS,VPI],
+  ChunkEng,
 
-  ExtensionsEng,
+  ExtensionsEng - [
+     VPI,VPS,PredFrontVQ,PredFrontVS,SlashSlashV2V,SlashV2V,SlashVPIV2V,ComplVV,PassVPSlash,PassAgentVPSlash
+     ],
   DictionaryEng ** 
 open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {
 

lib/src/translator/TranslateSwe.gf

@@ -9,10 +9,14 @@ concrete TranslateSwe of Translate =
     PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
     ],
   ConjunctionSwe,
-  VerbSwe - [SlashV2V, PassV2, UseCopula, ComplVV],
+  VerbSwe -  [
+    UseCopula,  
+--    SlashV2V, PassV2, ComplVV,  -- generalized in Extensions
+    SlashV2VNP, SlashVV, AdVVPSlash,AdvVPSlash,VPSlashPrep -----
+    ],
   AdverbSwe,
   PhraseSwe,
-  SentenceSwe,
+  SentenceSwe - [SlashVS],
   QuestionSwe,
   RelativeSwe,
   IdiomSwe [
@@ -22,9 +26,11 @@ concrete TranslateSwe of Translate =
   ConstructionSwe,
   DocumentationSwe,
 
-  ChunkSwe - [VPS,VPI],
+  ChunkSwe,
 
-  ExtensionsSwe,
+  ExtensionsSwe - [
+     VPI,VPS,PredFrontVQ,PredFrontVS,SlashSlashV2V,SlashV2V,SlashVPIV2V,ComplVV,PassVPSlash,PassAgentVPSlash
+     ],
   DictionarySwe ** 
 open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {