src/Pure/Thy/thy_info.ML
changeset 24314 665b3ab2dabe
parent 24307 434c9fbc1787
child 24563 f2edc70f8962
equal deleted inserted replaced
24313:5a6342236a32 24314:665b3ab2dabe
    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 *)