src/Pure/PIDE/markup.ML
changeset 51216 e6e7685fc8f8
parent 50975 73ec6ad6700e
child 51217 65ab2c4f4c32
equal deleted inserted replaced
51181:d0fa18638478 51216:e6e7685fc8f8
   133   val removed_versions: Properties.T
   133   val removed_versions: Properties.T
   134   val invoke_scala: string -> string -> Properties.T
   134   val invoke_scala: string -> string -> Properties.T
   135   val cancel_scala: string -> Properties.T
   135   val cancel_scala: string -> Properties.T
   136   val ML_statistics: Properties.entry
   136   val ML_statistics: Properties.entry
   137   val task_statistics: Properties.entry
   137   val task_statistics: Properties.entry
       
   138   val command_timing: Properties.entry
   138   val loading_theory: string -> Properties.T
   139   val loading_theory: string -> Properties.T
   139   val dest_loading_theory: Properties.T -> string option
   140   val dest_loading_theory: Properties.T -> string option
   140   val no_output: Output.output * Output.output
   141   val no_output: Output.output * Output.output
   141   val default_output: T -> Output.output * Output.output
   142   val default_output: T -> Output.output * Output.output
   142   val add_mode: string -> (T -> Output.output * Output.output) -> unit
   143   val add_mode: string -> (T -> Output.output * Output.output) -> unit
   412 fun cancel_scala id = [(functionN, "cancel_scala"), (idN, id)];
   413 fun cancel_scala id = [(functionN, "cancel_scala"), (idN, id)];
   413 
   414 
   414 val ML_statistics = (functionN, "ML_statistics");
   415 val ML_statistics = (functionN, "ML_statistics");
   415 
   416 
   416 val task_statistics = (functionN, "task_statistics");
   417 val task_statistics = (functionN, "task_statistics");
       
   418 
       
   419 val command_timing = (functionN, "command_timing");
   417 
   420 
   418 fun loading_theory name = [("function", "loading_theory"), ("name", name)];
   421 fun loading_theory name = [("function", "loading_theory"), ("name", name)];
   419 
   422 
   420 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name
   423 fun dest_loading_theory [("function", "loading_theory"), ("name", name)] = SOME name
   421   | dest_loading_theory _ = NONE;
   424   | dest_loading_theory _ = NONE;