src/Pure/PIDE/command_span.ML
author wenzelm
Fri, 13 Mar 2015 12:58:49 +0100
changeset 59689 7968c57ea240
parent 59683 d6824d8490be
child 68177 6e40f5d43936
permissions -rw-r--r--
simplified Command.resolve_files in ML, using blobs_index from Scala; clarified modules;

(*  Title:      Pure/PIDE/command_span.ML
    Author:     Makarius

Syntactic representation of command spans.
*)

signature COMMAND_SPAN =
sig
  datatype kind = Command_Span of string * Position.T | Ignored_Span | Malformed_Span
  datatype span = Span of kind * Token.T list
  val kind: span -> kind
  val content: span -> Token.T list
end;

structure Command_Span: COMMAND_SPAN =
struct

datatype kind = Command_Span of string * Position.T | Ignored_Span | Malformed_Span;
datatype span = Span of kind * Token.T list;

fun kind (Span (k, _)) = k;
fun content (Span (_, toks)) = toks;

end;