# HG changeset patch
# User wenzelm
# Date 920978326 -3600
# Node ID bbd03b119f36a30d914bc03d027c9421c3a655f9
# Parent  dc72cf8216593aacc35c42265e52135581c02ec9
added use_path;
begin_theory: include files;

diff -r dc72cf821659 -r bbd03b119f36 src/Pure/Thy/thy_info.ML
--- a/src/Pure/Thy/thy_info.ML	Tue Mar 09 12:18:02 1999 +0100
+++ b/src/Pure/Thy/thy_info.ML	Tue Mar 09 12:18:46 1999 +0100
@@ -40,9 +40,10 @@
   val put_theory: theory -> unit
   val loaded_files: string -> (Path.T * File.info) list
   val load_file: bool -> Path.T -> unit
+  val use_path: Path.T -> unit
   val use: string -> unit
   val use_thy_only: string -> unit
-  val begin_theory: string -> string list -> theory
+  val begin_theory: string -> string list -> (Path.T * bool) list -> theory
   val end_theory: theory -> theory
   val finalize_all: unit -> unit
   val register_theory: theory -> unit
@@ -248,7 +249,8 @@
           writeln ("**** Finished file " ^ quote name ^ " ****\n")))
       end;
 
-val use = load_file false o Path.unpack;
+val use_path = load_file false;
+val use = use_path o Path.unpack;
 val time_use = load_file true o Path.unpack;
 
 
@@ -306,14 +308,15 @@
 val use_thy_only = gen_use_thy (require_thy false false true false []);
 
 
-(* begin / end theory *)                (* FIXME tune *)
+(* begin / end theory *)                (* FIXME tune *) (* FIXME files vs. paths (!?!?) *)
 
-fun begin_theory name parents =
+fun begin_theory name parents paths =
   let
     val _ = seq weak_use_thy parents;
     val theory = PureThy.begin_theory name (map get_theory parents);
     val _ = change_thys (update_node name parents (init_deps [] [], Some (theory, Symtab.empty)));
-  in theory end;
+    val use_paths = mapfilter (fn (x, true) => Some x | _ => None) paths;
+  in Context.setmp (Some theory) (seq use_path) use_paths; theory end;
 
 fun end_theory theory =
   let val theory' = PureThy.end_theory theory