wneuper/isa: src/Pure/Thy/html.scala@5130dfe1b7be

     1 /*  Title:      Pure/Thy/html.scala

     2     Author:     Makarius

     4 Basic HTML output.

     5 */

     7 package isabelle

     9 import scala.collection.mutable.ListBuffer

    12 object HTML

    13 {

    14   // encode text

    16   def encode(text: String): String =

    17   {

    18     val s = new StringBuilder

    19     for (c <- text.iterator) c match {

    20       case '<' => s ++= "&lt;"

    21       case '>' => s ++= "&gt;"

    22       case '&' => s ++= "&amp;"

    23       case '"' => s ++= "&quot;"

    24       case '\'' => s ++= "&#39;"

    25       case '\n' => s ++= "<br/>"

    26       case _ => s += c

    27     }

    28     s.toString

    29   }

    32   // common elements and attributes

    34   val BODY = "body"

    35   val DIV = "div"

    36   val SPAN = "span"

    37   val BR = "br"

    38   val PRE = "pre"

    39   val CLASS = "class"

    40   val STYLE = "style"

    43   // document markup

    45   def span(cls: String, body: XML.Body): XML.Elem =

    46     XML.Elem(Markup(SPAN, List((CLASS, cls))), body)

    48   def user_font(font: String, txt: String): XML.Elem =

    49     XML.Elem(Markup(SPAN, List((STYLE, "font-family: " + font))), List(XML.Text(txt)))

    51   def hidden(txt: String): XML.Elem =

    52     span(Markup.HIDDEN, List(XML.Text(txt)))

    54   def sub(txt: String): XML.Elem = XML.elem("sub", List(XML.Text(txt)))

    55   def sup(txt: String): XML.Elem = XML.elem("sup", List(XML.Text(txt)))

    56   def bold(txt: String): XML.Elem = span("bold", List(XML.Text(txt)))

    58   def spans(input: XML.Tree, original_data: Boolean = false): XML.Body =

    59   {

    60     def html_spans(tree: XML.Tree): XML.Body =

    61       tree match {

    62         case XML.Elem(m @ Markup(name, props), ts) =>

    63           val span_class =

    64             m match { case Markup.Entity(kind, _) => name + "_" + kind case _ => name }

    65           val html_span = span(span_class, ts.flatMap(html_spans))

    66           if (original_data) List(XML.Elem(Markup.Data, List(tree, html_span)))

    67           else List(html_span)

    68         case XML.Text(txt) =>

    69           val ts = new ListBuffer[XML.Tree]

    70           val t = new StringBuilder

    71           def flush() {

    72             if (!t.isEmpty) {

    73               ts += XML.Text(t.toString)

    74               t.clear

    75             }

    76           }

    77           def add(elem: XML.Tree) {

    78             flush()

    79             ts += elem

    80           }

    81           val syms = Symbol.iterator(txt)

    82           while (syms.hasNext) {

    83             val s1 = syms.next

    84             def s2() = if (syms.hasNext) syms.next else ""

    85             if (s1 == "\n") add(XML.elem(BR))

    86             else if (Symbol.is_bsub_decoded(s1)) t ++= s1  // FIXME

    87             else if (Symbol.is_esub_decoded(s1)) t ++= s1  // FIXME

    88             else if (Symbol.is_bsup_decoded(s1)) t ++= s1  // FIXME

    89             else if (Symbol.is_esup_decoded(s1)) t ++= s1  // FIXME

    90             else if (Symbol.is_subscript_decoded(s1)) { add(hidden(s1)); add(sub(s2())) }

    91             else if (Symbol.is_superscript_decoded(s1)) { add(hidden(s1)); add(sup(s2())) }

    92             else if (Symbol.is_bold_decoded(s1)) { add(hidden(s1)); add(bold(s2())) }

    93             else if (Symbol.fonts.isDefinedAt(s1)) { add(user_font(Symbol.fonts(s1), s1)) }

    94             else t ++= s1

    95           }

    96           flush()

    97           ts.toList

    98       }

    99     html_spans(input)

   100   }

   101 }

author	wenzelm
	Thu, 07 Jul 2011 13:48:30 +0200
changeset 44569	5130dfe1b7be
parent 44550	8252d51d70e2
child 45109	36120feb70ed
permissions	-rw-r--r--