CompoundAP in translator/Extensions, e.g. language(-)independent. Implemented for all but Bul,Hin

lib/src/translator/Extensions.gf

@@ -48,6 +48,7 @@ fun
   GenRP       : Num -> CN -> RP ;   -- whose car(s)
  
   CompoundCN  : N -> CN -> CN ;     -- control system / controls system / control-system
+  CompoundAP  : N -> A  -> AP ;     -- language independent / language-independent
 
   GerundCN    : VP -> CN ;         -- publishing of the document (can get a determiner)
   GerundNP    : VP -> NP ;         -- publishing the document (by nature definite)

lib/src/translator/ExtensionsChi.gf

@@ -45,6 +45,7 @@ lin
 --  but_Subj = {s = "pero" ; m = Indic} ; ---- strange to have this as Subj
 
   CompoundCN noun cn  = {s = noun.s ++ cn.s ; c = cn.c} ; ----
+  CompoundAP noun adj = complexAP (noun.s ++ possessive_s ++ adj.s) ; ----
 
   GerundN v = {
     s = v.s ;

lib/src/translator/ExtensionsDut.gf

@@ -63,12 +63,18 @@ lin
 -}
     PredVPosv = G.PredVP;
     PredVPovs = G.PredVP;
-{-
+
   CompoundCN noun cn = {
-    s = \\a,n,c => glue (noun.s ! Sg ! Nom) (cn.s ! a ! n ! c) ;
+    s = \\af,nf => glue (noun.s ! NF Sg Nom) (cn.s ! af ! nf) ;
     g = cn.g
     } ;
--}
+
+  CompoundAP noun adj = {
+      s = \\af => glue (noun.s ! NF Sg Nom) (adj.s ! Posit ! af) ;
+      isPre = True
+      } ;
+
+
   GerundN v = { -- parsing
     s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
     g = Neutr

lib/src/translator/ExtensionsEng.gf

@@ -42,6 +42,12 @@ lin
     g = cn.g
   } ;
   
+  CompoundAP noun adj = {
+    s = (\\_ => noun.s ! Sg ! Nom ++ Predef.BIND ++ "-" ++ Predef.BIND ++ adj.s ! AAdj Posit Nom)
+      | (\\_ => noun.s ! Sg ! Nom ++ adj.s ! AAdj Posit Nom)
+      ;
+    isPre = True
+    } ;
 
    GerundCN vp = {
      s = \\n,c => vp.ad ! AgP3Sg Neutr ++ vp.prp ++

lib/src/translator/ExtensionsFin.gf

@@ -52,6 +52,10 @@ lin
     h = cn.h
     } ;
 
+  CompoundAP  noun adj = {
+    s = \\_ => (snoun2nounSep {s = \\f => noun.s ! 10 ++ BIND ++ adj.s ! Posit ! sAN f ; h = adj.h}).s
+    } ;
+
 ----  PastPartAP vp = {s = \\_,nf => (sverb2verbSep v).s ! PastPartPass (AN nf)} ;
 
   PredVPosv np vp = mkCl np vp ; ----

lib/src/translator/ExtensionsFre.gf

@@ -53,6 +53,12 @@ lin
     g = cn.g
   } ;
 
+    CompoundAP noun adj = {
+      s = \\af => adj.s ! Posit ! af ++ elisDe ++ noun.s ! Sg  ;
+      isPre = False
+      } ;
+
+
 {-  
   GerundN v = {
     s = \\n,c => v.s ! VPresPart ;

lib/src/translator/ExtensionsGer.gf

@@ -68,6 +68,11 @@ lin
     g = cn.g
   } ;
 
+    CompoundAP noun adj = {
+      s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
+      isPre = True
+      } ;
+
   GerundN v = { -- parsing
     s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
     g = Neutr

lib/src/translator/ExtensionsIta.gf

@@ -53,6 +53,12 @@ lin
     g = cn.g
   } ;
 
+    CompoundAP noun adj = {
+      s = \\af => adj.s ! Posit ! af ++ "di" ++ noun.s ! Sg  ;
+      isPre = False
+      } ;
+
+
 {-  
   GerundN v = {
     s = \\n,c => v.s ! VPresPart ;

lib/src/translator/ExtensionsSpa.gf

@@ -53,6 +53,11 @@ lin
     g = cn.g
   } ;
 
+    CompoundAP noun adj = {
+      s = \\af => adj.s ! Posit ! af ++ "de" ++ noun.s ! Sg  ;
+      isPre = False
+      } ;
+
 {-  
   GerundN v = {
     s = \\n,c => v.s ! VPresPart ;

lib/src/translator/ExtensionsSwe.gf

@@ -41,6 +41,11 @@ lin
       isMod = False
       } ;
 
+  CompoundAP noun adj = {
+      s = \\ap => noun.co ++ BIND ++ adj.s ! AF (APosit ap) Nom ; 
+      isPre = True
+      } ;
+
   GerundN v = {
     s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
     g = Neutr ;

lib/src/translator/Translate.gf

@@ -23,7 +23,7 @@ abstract Translate =
   Chunk,
 
   Construction,
-  Extensions [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  Extensions [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
   Dictionary,
   Documentation
 

lib/src/translator/TranslateChi.gf

@@ -27,7 +27,7 @@ concrete TranslateChi of Translate =
   DocumentationChi,
 
   ChunkChi,
-  ExtensionsChi [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsChi [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryChi ** 
  

lib/src/translator/TranslateDut.gf

@@ -23,7 +23,7 @@ concrete TranslateDut of Translate =
 ----  DocumentationDut,
 
   ChunkDut,
-  ExtensionsDut [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsDut [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryDut ** 
 open MorphoDut, ResDut, ParadigmsDut, SyntaxDut, (E = ExtraDut), Prelude in {

lib/src/translator/TranslateEng.gf

@@ -28,7 +28,7 @@ concrete TranslateEng of Translate =
   DocumentationEng,
 
   ChunkEng,
-  ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryEng ** 
 open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {

lib/src/translator/TranslateFin.gf

@@ -27,7 +27,7 @@ concrete TranslateFin of Translate =
   DocumentationFin,
 
   ChunkFin,
-  ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryFin ** 
 

lib/src/translator/TranslateFre.gf

@@ -25,7 +25,7 @@ concrete TranslateFre of Translate =
   DocumentationFre,
 
   ChunkFre,
-  ExtensionsFre [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsFre [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryFre ** 
 open PhonoFre, MorphoFre, ResFre, CommonRomance, ParadigmsFre, SyntaxFre, Prelude, (G = GrammarFre) in {

lib/src/translator/TranslateGer.gf

@@ -23,7 +23,7 @@ concrete TranslateGer of Translate =
   DocumentationGer,
 
   ChunkGer,
-  ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryGer ** 
 open MorphoGer, ResGer, ParadigmsGer, SyntaxGer, CommonScand, (E = ExtraGer), Prelude in {

lib/src/translator/TranslateIta.gf

@@ -23,7 +23,7 @@ concrete TranslateIta of Translate =
   DocumentationIta,
 
   ChunkIta,
-  ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryIta ** 
 open MorphoIta, ResIta, ParadigmsIta, SyntaxIta, CommonScand, (E = ExtraIta), Prelude in {

lib/src/translator/TranslateSpa.gf

@@ -23,7 +23,7 @@ concrete TranslateSpa of Translate =
   DocumentationSpa,
 
   ChunkSpa,
-  ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionarySpa ** 
 open MorphoSpa, ResSpa, ParadigmsSpa, SyntaxSpa, CommonScand, (E = ExtraSpa), Prelude in {

lib/src/translator/TranslateSwe.gf

@@ -23,7 +23,7 @@ concrete TranslateSwe of Translate =
   DocumentationSwe,
 
   ChunkSwe,
-  ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionarySwe ** 
 open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {

lib/src/translator/translate.probs

@@ -58,7 +58,8 @@ ComplVPIVV	1.629348323337908e-4
 ComplVQ	3.3840311330864245e-4
 ComplVS	0.10664084776246609
 ComplVV	6.258577578913727e-2
-CompoundCN	0.010736547702286556
+CompoundAP	0.0010736547702286556
+CompoundCN	0.0010736547702286556
 ConjAP	2.1189670416781e-3
 ConjAdV	9.744689144416293e-5
 ConjAdv	1.0922898208991453e-3
@@ -189,7 +190,7 @@ SlashVPIV2V	3.942764206272281e-4
 SlashVS	9.46372239747634e-3
 SlashVV	4.484894284634719e-3
 SubjS	4.386497217261647e-3
-SymbPN	0.8107861060329068
+SymbPN	0.008107861060329068
 TCond	1.7737397420867527e-2
 TFut	2.4267291910902697e-2
 TPast	0.25411488862837045