equal
deleted
inserted
replaced
28 val the_theory: string -> theory -> theory |
28 val the_theory: string -> theory -> theory |
29 val loaded_files: string -> Path.T list |
29 val loaded_files: string -> Path.T list |
30 val get_parents: string -> string list |
30 val get_parents: string -> string list |
31 val pretty_theory: theory -> Pretty.T |
31 val pretty_theory: theory -> Pretty.T |
32 val touch_child_thys: string -> unit |
32 val touch_child_thys: string -> unit |
33 val touch_all_thys: unit -> unit |
|
34 val load_file: bool -> Path.T -> unit |
33 val load_file: bool -> Path.T -> unit |
35 val use: string -> unit |
34 val use: string -> unit |
36 val time_use: string -> unit |
35 val time_use: string -> unit |
37 val use_thys: string list -> unit |
36 val use_thys: string list -> unit |
38 val use_thy: string -> unit |
37 val use_thy: string -> unit |
251 fun touch_thys names = |
250 fun touch_thys names = |
252 List.app outdate_thy (thy_graph Graph.all_succs (map_filter check_unfinished names)); |
251 List.app outdate_thy (thy_graph Graph.all_succs (map_filter check_unfinished names)); |
253 |
252 |
254 fun touch_thy name = touch_thys [name]; |
253 fun touch_thy name = touch_thys [name]; |
255 fun touch_child_thys name = touch_thys (thy_graph Graph.imm_succs name); |
254 fun touch_child_thys name = touch_thys (thy_graph Graph.imm_succs name); |
256 |
|
257 fun touch_all_thys () = List.app outdate_thy (get_names ()); |
|
258 |
255 |
259 end; |
256 end; |
260 |
257 |
261 |
258 |
262 (* load_file *) |
259 (* load_file *) |