From 9ec92096c67aafb390bb9292e7dd099ff5f44e15 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Wed, 25 Oct 2017 11:08:49 +0200
Subject: [PATCH] added MarkupGer

---
 src/german/MarkupGer.gf | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/german/MarkupGer.gf

diff --git a/src/german/MarkupGer.gf b/src/german/MarkupGer.gf
new file mode 100644
index 000000000..79fe7c95e
--- /dev/null
+++ b/src/german/MarkupGer.gf
@@ -0,0 +1,16 @@
+--# -path=.:../abstract:../common
+
+concrete MarkupGer of Markup = CatGer, MarkHTMLX ** {
+
+lin
+  MarkupCN   m cn  = cn ** {s = \\a,n,c => appMark m (cn.s ! a ! n ! c)} ; --- other fields e.g ext intact
+  MarkupNP   m np  = np ** {s = \\c     => appMark m (np.s ! c)} ;
+  MarkupAP   m ap  = ap ** {s = \\a     => appMark m (ap.s ! a)} ;
+  MarkupAdv  m adv = {s =          appMark m adv.s} ;
+  MarkupS    m s   = {s = \\o   => appMark m (s.s ! o)} ;
+  MarkupUtt  m utt = {s =          appMark m utt.s} ;
+  MarkupPhr  m phr = {s =          appMark m phr.s} ;
+  MarkupText m txt = {s =          appMark m txt.s} ;
+
+}
+