equal
deleted
inserted
replaced
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 *) |