adapted German to 1.5

1 files changed, 26 insertions, 0 deletions

diff --git a/next-lib/src/german/PhraseGer.gf b/next-lib/src/german/PhraseGer.gf
new file mode 100644
index 000000000..dc8cfe04e
--- /dev/null
+++ b/next-lib/src/german/PhraseGer.gf
@@ -0,0 +1,26 @@
+concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
+
+  flags optimize=all_subs ;
+
+  lin
+    PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
+
+    UttS s = {s = s.s ! Main} ;
+    UttQS qs = {s = qs.s ! QDir} ;
+    UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False} ;
+    UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
+    UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True} ;
+
+    UttIP ip = {s = ip.s ! Nom} ; --- Acc also
+    UttIAdv iadv = iadv ;
+    UttNP np = {s = np.s ! Nom} ;
+    UttVP vp = {s = useInfVP True vp} ;  -- without zu
+    UttAdv adv = adv ;
+
+    NoPConj = {s = []} ;
+    PConjConj conj = ss (conj.s2) ;
+
+    NoVoc = {s = []} ;
+    VocNP np = {s = "," ++ np.s ! Nom} ;
+
+}