/*
* Document tokens as text ranges
*
* @author Johannes Hölzl, TU Munich
* @author Fabian Immler, TU Munich
*/
package isabelle.proofdocument
import isabelle.prover.Command
object Token {
object Kind extends Enumeration {
val COMMAND_START = Value("COMMAND_START")
val COMMENT = Value("COMMENT")
val OTHER = Value("OTHER")
}
private def fill(n: Int) = {
val blanks = new Array[Char](n)
for(i <- 0 to n - 1) blanks(i) = ' '
new String(blanks)
}
def string_from_tokens (tokens: List[Token], starts: Map[Token, Int]): String = {
def stop(t: Token) = starts(t) + t.length
tokens match {
case Nil => ""
case t::tokens => ( tokens.foldLeft
(t.content, stop(t))
((a, token) => (a._1 + fill(starts(token) - a._2) + token.content, stop(token)))
)._1
}
}
}
class Token(val content: String, val kind: Token.Kind.Value) {
import Token.Kind._
val length = content.length
override def toString = content
val is_start = kind == COMMAND_START || kind == COMMENT
}