completed Translate grammars for all 8 languages; a Makefile entry for them; updated doc/translation.html. What remains to do is to make the new documentation facilities (GF-driven, in the Documentation modules) available in the Android app, so that the Parse* modules can be retired from translation tasks.

2026-04-27 05:22:50 -06:00 · 2014-01-21 08:20:46 +00:00
parent 370296c0ba
commit 9b986255bf
9 changed files with 63552 additions and 14 deletions
--- a/lib/src/translator/ExtensionsGer.gf
+++ b/lib/src/translator/ExtensionsGer.gf
@@ -0,0 +1,125 @@
+--# -path=.:../abstract
+
+concrete ExtensionsGer of Extensions = 
+  CatGer ** open MorphoGer, ResGer, ParadigmsGer, SyntaxGer, (E = ExtraGer), (G = GrammarGer), Prelude in {
+
+flags literal=Symb ; coding = utf8 ;
+
+lincat
+  VPI = E.VPI ;
+  ListVPI = E.ListVPI ;
+  VPS = E.VPS ;
+  ListVPS = E.ListVPS ;
+  
+lin
+  MkVPI = E.MkVPI ;
+  ConjVPI = E.ConjVPI ;
+  ComplVPIVV = E.ComplVPIVV ;
+
+  MkVPS = E.MkVPS ;
+  ConjVPS = E.ConjVPS ;
+  PredVPS = E.PredVPS ;
+
+  BaseVPI = E.BaseVPI ;
+  ConsVPI = E.ConsVPI ;
+  BaseVPS = E.BaseVPS ;
+  ConsVPS = E.ConsVPS ;
+
+----  GenNP = E.GenNP ;
+----  GenIP = E.GenIP ;
+----  GenRP = E.GenRP ;
+
+  PassVPSlash = E.PassVPSlash ;
+  PassAgentVPSlash = E.PassAgentVPSlash ;
+
+  EmptyRelSlash = E.EmptyRelSlash ;
+
+
+lin
+    ComplVV v ant p vp = 
+      let 
+        vpi = infVP v.isAux vp 
+      in
+       insertExtrapos vpi.p4 (
+        insertInfExt vpi.p3 (
+          insertInf vpi.p2 (
+            insertObj vpi.p1 (
+              predVGen v.isAux v)))) ;
+
+    PastPartRS ant pol sl = {   -- guessed by KA, some fields in sl are ignored!!
+      s = \\gn => let agr = agrgP3 Masc (numGenNum gn)
+                  in sl.s.s ! VPastPart APred ++ 
+                     (sl.nn ! agr).p1 ++ (sl.nn ! agr).p2 ++ sl.a2;
+      c = Nom
+      } ;
+
+    PresPartRS ant pol vp = {   -- guessed by KA!!
+      s = \\gn => let agr = agrgP3 Masc (numGenNum gn)
+                  in vp.s.s ! VPresPart APred ++ 
+                     (vp.nn ! agr).p1 ++ (vp.nn ! agr).p2;
+      c = Nom
+      } ;
+
+    PredVPosv = G.PredVP;
+    PredVPovs = G.PredVP;
+
+  CompoundCN num noun cn = {
+    s = \\a,n,c => num.s ! noun.g ! Nom ++ glue (noun.s ! num.n ! Nom) (cn.s ! a ! n ! c) ;
+    g = cn.g
+  } ;
+
+
+  DashCN noun1 noun2 = { -- type-checking
+    s = \\n,c => glue (noun1.s ! Sg ! Nom) (noun2.s ! n ! c) ;
+    g = noun2.g
+  } ;
+
+  GerundN v = { -- parsing
+    s = \\n,c => v.s ! VInf False ; --- formalisieren, not formalisierung
+    g = Neutr
+  } ;
+
+{-  
+  GerundAP v = {  -- beckoning
+    s = \\agr => v.s ! VPresPart ;
+    isPre = True
+  } ;
+
+  PastPartAP v = {   -- broken
+    s = \\agr => v.s ! VPPart ;
+    isPre = True
+  } ;
+
+  OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;  -- higher
+
+  PositAdVAdj a = {s = a.s ! AAdv} ;  -- really
+
+  UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ;  -- this London
+
+  SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++  -- force not to sleep
+                                       v.c3 ++ 
+                                       infVP v.typ vp a)
+                               (predVc v) ;
+
+  ComplPredVP np vp = { -- ?
+      s = \\t,a,b,o => 
+        let 
+          verb  = vp.s ! t ! a ! b ! o ! np.a ;
+          compl = vp.s2 ! np.a
+        in
+        case o of {
+          ODir => compl ++ "," ++ np.s ! npNom ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ;
+          OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf 
+          }
+    } ;
+-}
+  CompS s = {s = \\_ => "that" ++ s.s ! Main} ;  -- S -> Comp
+  CompVP ant p vp = {s = \\_ => useInfVP True vp} ; -- VP -> Comp
+
+lin
+  that_RP = which_RP ;
+
+  UttAdV adv = adv;
+
+
+}