src/Pure/Thy/thy_info.ML
changeset 65058 3e9f382fb67e
parent 64574 1134e4d5e5b7
child 65443 dccbfc715904
equal deleted inserted replaced
65056:002b4c8c366e 65058:3e9f382fb67e
    14   val master_directory: string -> Path.T
    14   val master_directory: string -> Path.T
    15   val remove_thy: string -> unit
    15   val remove_thy: string -> unit
    16   val use_theories:
    16   val use_theories:
    17     {document: bool,
    17     {document: bool,
    18      symbols: HTML.symbols,
    18      symbols: HTML.symbols,
    19      last_timing: Toplevel.transition -> Time.time option,
    19      last_timing: Toplevel.transition -> Time.time,
    20      master_dir: Path.T} -> (string * Position.T) list -> unit
    20      master_dir: Path.T} -> (string * Position.T) list -> unit
    21   val use_thys: (string * Position.T) list -> unit
    21   val use_thys: (string * Position.T) list -> unit
    22   val use_thy: string * Position.T -> unit
    22   val use_thy: string * Position.T -> unit
    23   val script_thy: Position.T -> string -> theory -> theory
    23   val script_thy: Position.T -> string -> theory -> theory
    24   val register_thy: theory -> unit
    24   val register_thy: theory -> unit
   348   schedule_tasks
   348   schedule_tasks
   349     (snd (require_thys document symbols last_timing [] master_dir imports String_Graph.empty));
   349     (snd (require_thys document symbols last_timing [] master_dir imports String_Graph.empty));
   350 
   350 
   351 val use_thys =
   351 val use_thys =
   352   use_theories
   352   use_theories
   353     {document = false, symbols = HTML.no_symbols, last_timing = K NONE, master_dir = Path.current};
   353     {document = false, symbols = HTML.no_symbols, last_timing = K Time.zeroTime,
       
   354       master_dir = Path.current};
   354 
   355 
   355 val use_thy = use_thys o single;
   356 val use_thy = use_thys o single;
   356 
   357 
   357 
   358 
   358 (* toplevel scripting -- without maintaining database *)
   359 (* toplevel scripting -- without maintaining database *)