zulu inclusion

src/zulu/MarkupZul.gf

@@ -0,0 +1,15 @@
+--# -path=.:../abstract:../common
+
+concrete MarkupZul of Markup = CatZul, MarkHTMLX ** {
+
+lin
+  MarkupCN   m cn  = {s = \\n,c => appMark m (cn.s ! n ! c) ; g = cn.g} ;
+  MarkupNP   m np  = {s = \\c   => appMark m (np.s ! c) ; a = np.a} ;
+  MarkupAP   m ap  = {s = \\a   => appMark m (ap.s ! a) ; isPre = ap.isPre} ;
+  MarkupAdv  m adv = {s =          appMark m adv.s} ;
+  MarkupS    m s   = {s =          appMark m s.s} ;
+  MarkupUtt  m utt = {s =          appMark m utt.s} ;
+  MarkupPhr  m phr = {s =          appMark m phr.s} ;
+  MarkupText m txt = {s =          appMark m txt.s} ;
+
+}