src/Pure/ROOT.ML
changeset 23825 e0372eba47b7
parent 23696 ff97a943681e
child 23986 c656557b73d5
--- a/src/Pure/ROOT.ML	Tue Jul 17 13:19:19 2007 +0200
+++ b/src/Pure/ROOT.ML	Tue Jul 17 13:19:20 2007 +0200
@@ -7,17 +7,15 @@
 val banner = "Pure Isabelle";
 val version = "Isabelle repository version";    (*filled in automatically!*)
 
+(*if true then some tools will OMIT some proofs*)
+val quick_and_dirty = ref false;
+
 print_depth 10;
 
 (*basic tools*)
 use "General/basics.ML";
 use "library.ML";
 
-(*generic non-sense*)
-val quick_and_dirty = ref false;
-val print_mode = ref ([]: string list);
-fun print_mode_active s = member (op =) (! print_mode) s;
-
 cd "General"; use "ROOT.ML"; cd "..";
 
 (*fundamental structures*)
@@ -42,15 +40,6 @@
 use "Syntax/mixfix.ML";
 use "Syntax/printer.ML";
 use "Syntax/syntax.ML";
-structure Hidden = struct end;
-structure Lexicon = Hidden;
-structure Ast = Hidden;
-structure SynExt = Hidden;
-structure Parser = Hidden;
-structure TypeExt = Hidden;
-structure SynTrans = Hidden;
-structure Mixfix = Hidden;
-structure Printer = Hidden;
 
 use "General/ml_syntax.ML";
 
@@ -99,19 +88,4 @@
 (*configuration for Proof General*)
 cd "ProofGeneral"; use "ROOT.ML"; cd "..";
 
-use_thy "Pure";
-structure Pure = struct val thy = theory "Pure" end;
-
-Context.add_setup
- (Sign.del_modesyntax Syntax.default_mode Syntax.appl_syntax #>
-  Sign.add_syntax Syntax.applC_syntax);
-use_thy "CPure";
-structure CPure = struct val thy = theory "CPure" end;
-
-(*final ML setup*)
-use "install_pp.ML";
-val use = ThyInfo.use;
-val cd = File.cd o Path.explode;
-ml_prompts "ML> " "ML# ";
-
-proofs := 0;
+use "pure_setup.ML";