src/Pure/Tools/isabelle_process.scala
changeset 28498 cb1b43edb5ed
parent 28497 40e1cc165b05
child 28501 4a6c9881adc0
equal deleted inserted replaced
28497:40e1cc165b05 28498:cb1b43edb5ed
    36     val PRIORITY = Value("PRIORITY")
    36     val PRIORITY = Value("PRIORITY")
    37     val TRACING = Value("TRACING")
    37     val TRACING = Value("TRACING")
    38     val WARNING = Value("WARNING")
    38     val WARNING = Value("WARNING")
    39     val ERROR = Value("ERROR")
    39     val ERROR = Value("ERROR")
    40     val DEBUG = Value("DEBUG")
    40     val DEBUG = Value("DEBUG")
    41     val PROMPT = Value("PROMPT")
       
    42     // messages codes
    41     // messages codes
    43     val code = Map(
    42     val code = Map(
    44       ('A' : Int) -> Kind.INIT,
    43       ('A' : Int) -> Kind.INIT,
    45       ('B' : Int) -> Kind.STATUS,
    44       ('B' : Int) -> Kind.STATUS,
    46       ('C' : Int) -> Kind.WRITELN,
    45       ('C' : Int) -> Kind.WRITELN,
    47       ('D' : Int) -> Kind.PRIORITY,
    46       ('D' : Int) -> Kind.PRIORITY,
    48       ('E' : Int) -> Kind.TRACING,
    47       ('E' : Int) -> Kind.TRACING,
    49       ('F' : Int) -> Kind.WARNING,
    48       ('F' : Int) -> Kind.WARNING,
    50       ('G' : Int) -> Kind.ERROR,
    49       ('G' : Int) -> Kind.ERROR,
    51       ('H' : Int) -> Kind.DEBUG,
    50       ('H' : Int) -> Kind.DEBUG,
    52       ('I' : Int) -> Kind.PROMPT,
       
    53       ('0' : Int) -> Kind.SYSTEM,
    51       ('0' : Int) -> Kind.SYSTEM,
    54       ('1' : Int) -> Kind.STDIN,
    52       ('1' : Int) -> Kind.STDIN,
    55       ('2' : Int) -> Kind.STDOUT,
    53       ('2' : Int) -> Kind.STDOUT,
    56       ('3' : Int) -> Kind.SIGNAL,
    54       ('3' : Int) -> Kind.SIGNAL,
    57       ('4' : Int) -> Kind.EXIT)
    55       ('4' : Int) -> Kind.EXIT)
    65     def is_system(kind: Value) =
    63     def is_system(kind: Value) =
    66       kind == SYSTEM ||
    64       kind == SYSTEM ||
    67       kind == STDIN ||
    65       kind == STDIN ||
    68       kind == SIGNAL ||
    66       kind == SIGNAL ||
    69       kind == EXIT ||
    67       kind == EXIT ||
    70       kind == STATUS ||
    68       kind == STATUS
    71       kind == PROMPT
       
    72   }
    69   }
    73 
    70 
    74   class Result(val kind: Kind.Value, val props: Properties, val result: String) {
    71   class Result(val kind: Kind.Value, val props: Properties, val result: String) {
    75     override def toString = {
    72     override def toString = {
    76       val res = XML.content(YXML.parse_failsafe(result)).mkString("")
    73       val res = XML.content(YXML.parse_failsafe(result)).mkString("")