src/Pure/Tools/isabelle_syntax.scala
author haftmann
Thu, 02 Oct 2008 17:18:36 +0200
changeset 28462 6ec603695aaf
parent 27954 4558d93e83b7
child 29140 e7ac5bb20aed
permissions -rw-r--r--
added partiality section
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
27951
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Tools/isabelle_syntax.scala
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     3
    Author:     Makarius
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     4
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     5
Isabelle outer syntax.
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     6
*/
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     7
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     8
package isabelle
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
     9
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    10
import java.util.{Properties, Enumeration}
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    11
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    12
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    13
object IsabelleSyntax {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    14
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    15
  /* string token */
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    16
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    17
  def append_string(str: String, result: StringBuilder) = {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    18
    result.append("\"")
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    19
    for (c <- str) {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    20
      if (c < 32 || c == '\\' || c == '\"') {
27954
4558d93e83b7 append_string: proper backslash in character escapes;
wenzelm
parents: 27951
diff changeset
    21
        result.append("\\")
27951
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    22
        if (c < 10) result.append('0')
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    23
        if (c < 100) result.append('0')
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    24
        result.append(c.asInstanceOf[Int].toString)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    25
      }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    26
      else result.append(c)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    27
    }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    28
    result.append("\"")
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    29
  }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    30
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    31
  def encode_string(str: String) = {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    32
    val result = new StringBuilder(str.length + 20)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    33
    append_string(str, result)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    34
    result.toString
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    35
  }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    36
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    37
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    38
  /* properties */
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    39
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    40
  def append_properties(props: Properties, result: StringBuilder) = {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    41
    result.append("(")
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    42
    val names = props.propertyNames.asInstanceOf[Enumeration[String]]
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    43
    while (names.hasMoreElements) {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    44
      val name = names.nextElement; val value = props.getProperty(name)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    45
      append_string(name, result); result.append(" = "); append_string(value, result)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    46
      if (names.hasMoreElements) result.append(", ")
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    47
    }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    48
    result.append(")")
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    49
  }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    50
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    51
  def encode_properties(props: Properties) = {
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    52
    val result = new StringBuilder(40)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    53
    append_properties(props, result)
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    54
    result.toString
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    55
  }
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    56
8adddc0b591f Isabelle outer syntax.
wenzelm
parents:
diff changeset
    57
}