src/Pure/ML-Systems/polyml-5.2.ML
author wenzelm
Wed, 22 Sep 2010 18:21:48 +0200
changeset 39616 8052101883c3
parent 38635 f76ad0771f67
permissions -rw-r--r--
renamed setmp_noncritical to Unsynchronized.setmp to emphasize its meaning;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
33538
edf497b5b5d2 setup for official Poly/ML 5.3.0, which is now the default;
wenzelm
parents: 32776
diff changeset
     1
(*  Title:      Pure/ML-Systems/polyml-5.2.ML
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     2
33538
edf497b5b5d2 setup for official Poly/ML 5.3.0, which is now the default;
wenzelm
parents: 32776
diff changeset
     3
Compatibility wrapper for Poly/ML 5.2.
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     4
*)
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     5
28152
c1277547d59f *** empty log message ***
wenzelm
parents: 28125
diff changeset
     6
open Thread;
30672
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
     7
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
     8
structure ML_Name_Space =
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
     9
struct
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
    10
  open PolyML.NameSpace;
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
    11
  type T = PolyML.NameSpace.nameSpace;
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
    12
  val global = PolyML.globalNameSpace;
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
    13
end;
beaadd5af500 more systematic type use_context, with particular values ML_Parse.global_context and ML_Context.local_context;
wenzelm
parents: 30627
diff changeset
    14
31427
5a07cc86675d reraise exceptions to preserve original position (ML system specific);
wenzelm
parents: 31313
diff changeset
    15
fun reraise exn = raise exn;
5a07cc86675d reraise exceptions to preserve original position (ML system specific);
wenzelm
parents: 31313
diff changeset
    16
26215
94d32a7cd0fb rearrangements to make latest Poly/ML the default, not old 4.x;
wenzelm
parents: 26084
diff changeset
    17
use "ML-Systems/polyml_common.ML";
33538
edf497b5b5d2 setup for official Poly/ML 5.3.0, which is now the default;
wenzelm
parents: 32776
diff changeset
    18
use "ML-Systems/thread_dummy.ML";
edf497b5b5d2 setup for official Poly/ML 5.3.0, which is now the default;
wenzelm
parents: 32776
diff changeset
    19
use "ML-Systems/multithreading.ML";
39616
8052101883c3 renamed setmp_noncritical to Unsynchronized.setmp to emphasize its meaning;
wenzelm
parents: 38635
diff changeset
    20
use "ML-Systems/unsynchronized.ML";
8052101883c3 renamed setmp_noncritical to Unsynchronized.setmp to emphasize its meaning;
wenzelm
parents: 38635
diff changeset
    21
8052101883c3 renamed setmp_noncritical to Unsynchronized.setmp to emphasize its meaning;
wenzelm
parents: 38635
diff changeset
    22
val _ = PolyML.Compiler.forgetValue "ref";
8052101883c3 renamed setmp_noncritical to Unsynchronized.setmp to emphasize its meaning;
wenzelm
parents: 38635
diff changeset
    23
val _ = PolyML.Compiler.forgetType "ref";
26215
94d32a7cd0fb rearrangements to make latest Poly/ML the default, not old 4.x;
wenzelm
parents: 26084
diff changeset
    24
94d32a7cd0fb rearrangements to make latest Poly/ML the default, not old 4.x;
wenzelm
parents: 26084
diff changeset
    25
val pointer_eq = PolyML.pointerEq;
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents: 23826
diff changeset
    26
29638
1f8f3d26a2cf added share_common_data -- reduces heap space, but takes long;
wenzelm
parents: 29564
diff changeset
    27
fun share_common_data () = PolyML.shareCommonData PolyML.rootFunction;
1f8f3d26a2cf added share_common_data -- reduces heap space, but takes long;
wenzelm
parents: 29564
diff changeset
    28
31312
1c00e4ff3c99 more modular setup of runtime compilation;
wenzelm
parents: 30672
diff changeset
    29
use "ML-Systems/compiler_polyml-5.2.ML";
31313
97800f7e80b4 renamed polyml_pp.ML to pp_polyml.ML;
wenzelm
parents: 31312
diff changeset
    30
use "ML-Systems/pp_polyml.ML";
38635
f76ad0771f67 added ML toplevel pretty-printing for tables, using dummy for anything other than Poly/ML 5.3.0 (or later);
wenzelm
parents: 33538
diff changeset
    31
use "ML-Systems/pp_dummy.ML";
30627
fb9e73c01603 added polyml_pp.ML: toplevel pretty printing for Poly/ML 4.x and 5.x before 5.3;
wenzelm
parents: 29638
diff changeset
    32