module Markup for marking up subphrases with html tags (or other things). Implemented for Eng and Swe so far.

This commit is contained in:
aarne
2014-02-11 15:42:17 +00:00
parent be31b52e07
commit 4c26fc80ee
10 changed files with 115 additions and 0 deletions

View File

@@ -0,0 +1,15 @@
--# -path=.:../abstract:../common
concrete MarkupEng of Markup = CatEng, 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} ;
}