rearranged some modules;
authorwenzelm
Wed May 12 16:54:31 1999 +0200 (1999-05-12)
changeset 6641254ab03bd082
parent 6640 d2e8342bf5c3
child 6642 732af87c0650
rearranged some modules;
src/Pure/Isar/outer_syntax.ML
src/Pure/Isar/session.ML
src/Pure/Thy/thy_load.ML
src/Pure/Thy/thy_syn.ML
     1.1 --- a/src/Pure/Isar/outer_syntax.ML	Wed May 12 16:52:28 1999 +0200
     1.2 +++ b/src/Pure/Isar/outer_syntax.ML	Wed May 12 16:54:31 1999 +0200
     1.3 @@ -198,7 +198,7 @@
     1.4  
     1.5  fun deps_thy name ml path =
     1.6    let
     1.7 -    val src = Source.of_file path;
     1.8 +    val src = File.source path;
     1.9      val is_old = warn_theory_style path (is_old_theory src);
    1.10      val (name', parents, files) =
    1.11        (*Note: old style headers dynamically depend on the current lexicon :-( *)
    1.12 @@ -248,7 +248,7 @@
    1.13    end;
    1.14  
    1.15  fun run_thy name path =
    1.16 -  let val (src, pos) = Source.of_file path in
    1.17 +  let val (src, pos) = File.source path in
    1.18      Present.theory_source name src;
    1.19      if is_old_theory (src, pos) then ThySyn.load_thy name (Source.exhaust src)
    1.20      else (Toplevel.excursion (parse_thy (src, pos))
     2.1 --- a/src/Pure/Isar/session.ML	Wed May 12 16:52:28 1999 +0200
     2.2 +++ b/src/Pure/Isar/session.ML	Wed May 12 16:54:31 1999 +0200
     2.3 @@ -61,7 +61,7 @@
     2.4  fun use_dir reset info parent name =
     2.5    (init reset parent name;
     2.6      Present.init info (path ()) name;
     2.7 -    Symbol.use root_file;
     2.8 +    File.symbol_use root_file;
     2.9      finish ()) handle exn => (writeln (Toplevel.exn_message exn); exit 1);
    2.10  
    2.11  
     3.1 --- a/src/Pure/Thy/thy_load.ML	Wed May 12 16:52:28 1999 +0200
     3.2 +++ b/src/Pure/Thy/thy_load.ML	Wed May 12 16:54:31 1999 +0200
     3.3 @@ -75,7 +75,7 @@
     3.4  fun load_file raw_path =
     3.5    (case check_file raw_path of
     3.6      None => error ("Could not find ML file " ^ quote (Path.pack raw_path))
     3.7 -  | Some (path, info) => (Symbol.use path; (path, info)));
     3.8 +  | Some (path, info) => (File.symbol_use path; (path, info)));
     3.9  
    3.10  
    3.11  (* check_thy *)
     4.1 --- a/src/Pure/Thy/thy_syn.ML	Wed May 12 16:52:28 1999 +0200
     4.2 +++ b/src/Pure/Thy/thy_syn.ML	Wed May 12 16:54:31 1999 +0200
     4.3 @@ -55,7 +55,7 @@
     4.4      val txt_out = ThyParse.parse_thy (! syntax) chs;
     4.5    in
     4.6      File.write tmp_path txt_out;
     4.7 -    Symbol.use tmp_path;
     4.8 +    File.symbol_use tmp_path;
     4.9      if ! delete_tmpfiles then File.rm tmp_path else ()
    4.10    end;
    4.11