msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/scandinavian/MarkupScand.gf Normal file
View File

@@ -0,0 +1,13 @@
incomplete concrete MarkupScand of Markup = CatScand, MarkHTMLX ** open ResScand in {
lin
MarkupCN m cn = {s = \\n,d,c => appMark m (cn.s ! n ! d ! c) ; g = cn.g ; isMod = cn.isMod} ;
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 = \\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} ;
}