chunks for ordinary RGL, defined with a functor

lib/src/translator/Translate.gf

@@ -19,6 +19,8 @@ abstract Translate =
 
   Symbol [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],          ---- why only these?
 
+  Chunk - [VPS,VPI],
+
   Construction,
   Extensions,
   Dictionary,
@@ -27,8 +29,9 @@ abstract Translate =
               ** {
 flags
   startcat=Phr;
-  heuristic_search_factor=0.60;
-  meta_prob=1.0e-5;
-  meta_token_prob=1.1965149246222233e-9;
+---- robustness by Chunk now
+----  heuristic_search_factor=0.60;
+----  meta_prob=1.0e-5;
+----  meta_token_prob=1.1965149246222233e-9;
 
 }

lib/src/translator/TranslateEng.gf

@@ -1,4 +1,4 @@
---# -path=.:../abstract:../english
+--# -path=.:src/chunk
 
 concrete TranslateEng of Translate = 
   TenseX - [Pol, PNeg, PPos],
@@ -27,6 +27,8 @@ concrete TranslateEng of Translate =
   ConstructionEng,
   DocumentationEng,
 
+  ChunkEng - [VPS,VPI],
+
   ExtensionsEng,
   DictionaryEng ** 
 open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {

lib/src/translator/TranslateSwe.gf

@@ -1,4 +1,5 @@
---# -path=.:../swedish/:../scandinavian:../abstract
+--# -path=.:src/chunk:alltenses
+
 concrete TranslateSwe of Translate = 
   TenseSwe,
   NounSwe - [PPartNP],
@@ -21,6 +22,8 @@ concrete TranslateSwe of Translate =
   ConstructionSwe,
   DocumentationSwe,
 
+  ChunkSwe - [VPS,VPI],
+
   ExtensionsSwe,
   DictionarySwe ** 
 open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {