added MarkupFin to wrap Finnish phrases in html tags and other markup

2026-06-25 02:56:28 -06:00 · 2019-08-23 16:58:30 +02:00
parent 11334b10d9
commit ac3975eefb
2 changed files with 17 additions and 3 deletions
@@ -0,0 +1,15 @@
+--# -path=.:../abstract:../common
+
+concrete MarkupFin of Markup = CatFin, MarkHTMLX ** {
+
+lin
+  MarkupCN   m cn  = cn ** {s = \\nf   => appMark m (cn.s ! nf)} ;
+  MarkupNP   m np  = np ** {s = \\c    => appMark m (np.s ! c)} ;
+  MarkupAP   m ap  = ap ** {s = \\b,nf => appMark m (ap.s ! b ! nf)} ;
+  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} ;
+
+}