src/Pure/ML-Systems/mosml.ML
author wenzelm
Thu, 06 Mar 2008 20:17:50 +0100
changeset 26220 d34b68c21f9a
parent 26084 a7475459c740
child 26223 f4a1a96cc07c
permissions -rw-r--r--
common setup for system_out/system;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML-Systems/mosml.ML
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     4
    Copyright   1999  University of Cambridge
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     5
17491
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
     6
Compatibility file for Moscow ML 2.01
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     7
17491
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
     8
NOTE: saving images does not work; may run it interactively as follows:
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
     9
23826
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 22252
diff changeset
    10
$ cd Isabelle/src/Pure
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    11
$ isabelle RAW_ML_SYSTEM
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    12
> val ml_system = "mosml";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    13
> use "ML-Systems/mosml.ML";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    14
> use "ROOT.ML";
16470
051db5bb21b5 improved comment;
wenzelm
parents: 16469
diff changeset
    15
> Session.finish ();
23836
c6094fe98dfd adapted TextIO.inputLine;
wenzelm
parents: 23826
diff changeset
    16
> cd "../FOL";
16470
051db5bb21b5 improved comment;
wenzelm
parents: 16469
diff changeset
    17
> use "ROOT.ML";
24808
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
    18
> Session.finish ();
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
    19
> cd "../ZF";
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
    20
> use "ROOT.ML";
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    21
*)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    22
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    23
(** ML system related **)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    24
24597
cbf2c5cf335e added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    25
val ml_system_fix_ints = false;
cbf2c5cf335e added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    26
16517
4699288139f4 proper implementation of pointer_eq;
wenzelm
parents: 16502
diff changeset
    27
load "Obj";
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    28
load "Bool";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    29
load "Int";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    30
load "Real";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    31
load "ListPair";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    32
load "OS";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    33
load "Process";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    34
load "FileSys";
21298
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
    35
load "IO";
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    36
23965
f93e509659c1 ML-Systems/exn.ML, ML-Systems/multithreading_dummy.ML;
wenzelm
parents: 23921
diff changeset
    37
use "ML-Systems/exn.ML";
25732
308315ee2b6d added ML-Systems/universal.ML;
wenzelm
parents: 24808
diff changeset
    38
use "ML-Systems/universal.ML";
24688
a5754ca5c510 replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents: 24597
diff changeset
    39
use "ML-Systems/multithreading.ML";
a5754ca5c510 replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents: 24597
diff changeset
    40
use "ML-Systems/time_limit.ML";
26220
d34b68c21f9a common setup for system_out/system;
wenzelm
parents: 26084
diff changeset
    41
use "ML-Systems/system_shell.ML";
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents: 23836
diff changeset
    42
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents: 23836
diff changeset
    43
16517
4699288139f4 proper implementation of pointer_eq;
wenzelm
parents: 16502
diff changeset
    44
(*low-level pointer equality*)
4699288139f4 proper implementation of pointer_eq;
wenzelm
parents: 16502
diff changeset
    45
local val cast : 'a -> int = Obj.magic
4699288139f4 proper implementation of pointer_eq;
wenzelm
parents: 16502
diff changeset
    46
in fun pointer_eq (x:'a, y:'a) = (cast x = cast y) end;
4699288139f4 proper implementation of pointer_eq;
wenzelm
parents: 16502
diff changeset
    47
16469
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    48
(*proper implementation available?*)
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    49
structure IntInf =
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    50
struct
24808
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
    51
  fun divMod (x, y) = (x div y, x mod y);
16469
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    52
  open Int;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    53
end;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    54
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    55
structure Real =
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    56
struct
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    57
  open Real;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    58
  val realFloor = real o floor;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    59
end;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    60
17491
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    61
structure String =
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    62
struct
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    63
  fun isSuffix s1 s2 =
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    64
    let val n1 = size s1 and n2 = size s2
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    65
    in if n1 = n2 then s1 = s2 else n1 <= n2 andalso String.substring (s2, n2 - n1, n1) = s1 end;
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    66
  open String;
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    67
end;
2bd5a6e26e1e added String.isSuffix;
wenzelm
parents: 16993
diff changeset
    68
16469
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    69
structure Time =
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    70
struct
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    71
  open Time;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    72
  fun toString t = Time.toString t
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    73
    handle Overflow => Real.toString (Time.toReal t);   (*workaround Y2004 bug*)
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    74
end;
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    75
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    76
structure OS =
16469
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    77
struct
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    78
  open OS
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    79
  structure Process = Process
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    80
  structure FileSys = FileSys
16469
7e27422c603e some minor adaptions to make it work again;
wenzelm
parents: 16266
diff changeset
    81
end;
16993
wenzelm
parents: 16681
diff changeset
    82
22252
ce77e9622002 pervasive exception Option;
wenzelm
parents: 22144
diff changeset
    83
exception Option = Option.Option;
ce77e9622002 pervasive exception Option;
wenzelm
parents: 22144
diff changeset
    84
ce77e9622002 pervasive exception Option;
wenzelm
parents: 22144
diff changeset
    85
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    86
(*limit the printing depth*)
24329
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    87
local
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    88
  val depth = ref 10;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    89
in
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    90
  fun get_print_depth () = ! depth;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    91
  fun print_depth n =
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    92
   (depth := n;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    93
    Meta.printDepth := n div 2;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    94
    Meta.printLength := n);
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24290
diff changeset
    95
end;
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    96
24290
5607b8b752bb tuned comments;
wenzelm
parents: 23965
diff changeset
    97
(*interface for toplevel pretty printers, see also Pure/pure_setup.ML*)
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    98
(*the documentation refers to an installPP but I couldn't fine it!*)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
    99
fun make_pp path pprint = ();
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   100
fun install_pp _ = ();
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   101
16681
d54dfd724b35 dummy exception_trace;
wenzelm
parents: 16660
diff changeset
   102
(*dummy implementation*)
d54dfd724b35 dummy exception_trace;
wenzelm
parents: 16660
diff changeset
   103
fun ml_prompts p1 p2 = ();
d54dfd724b35 dummy exception_trace;
wenzelm
parents: 16660
diff changeset
   104
d54dfd724b35 dummy exception_trace;
wenzelm
parents: 16660
diff changeset
   105
(*dummy implementation*)
16660
76613dff2c9a added profiler interface (dummy);
wenzelm
parents: 16517
diff changeset
   106
fun profile (n: int) f x = f x;
76613dff2c9a added profiler interface (dummy);
wenzelm
parents: 16517
diff changeset
   107
18384
fa38cca42913 added dummy 'print' to non-polyml systems
haftmann
parents: 17824
diff changeset
   108
(*dummy implementation*)
16681
d54dfd724b35 dummy exception_trace;
wenzelm
parents: 16660
diff changeset
   109
fun exception_trace f = f ();
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   110
18384
fa38cca42913 added dummy 'print' to non-polyml systems
haftmann
parents: 17824
diff changeset
   111
(*dummy implementation*)
fa38cca42913 added dummy 'print' to non-polyml systems
haftmann
parents: 17824
diff changeset
   112
fun print x = x;
fa38cca42913 added dummy 'print' to non-polyml systems
haftmann
parents: 17824
diff changeset
   113
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   114
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   115
(** Compiler-independent timing functions **)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   116
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   117
load "Timer";
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   118
21298
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   119
fun start_timing () =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   120
  let val CPUtimer = Timer.startCPUTimer();
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   121
      val time = Timer.checkCPUTimer(CPUtimer)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   122
  in  (CPUtimer,time)  end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   123
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   124
fun end_timing (CPUtimer, {gc,sys,usr}) =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   125
  let open Time  (*...for Time.toString, Time.+ and Time.- *)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   126
      val {gc=gc2,sys=sys2,usr=usr2} = Timer.checkCPUTimer(CPUtimer)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   127
  in  "User " ^ toString (usr2-usr) ^
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   128
      "  GC " ^ toString (gc2-gc) ^
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   129
      "  All "^ toString (sys2-sys + usr2-usr + gc2-gc) ^
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   130
      " secs"
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   131
      handle Time => ""
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   132
  end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   133
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   134
fun check_timer timer =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   135
  let val {sys, usr, gc} = Timer.checkCPUTimer timer
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   136
  in (sys, usr, gc) end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   137
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   138
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   139
(* SML basis library fixes *)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   140
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   141
structure TextIO =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   142
struct
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   143
  fun canInput _ = raise IO.Io {cause = Fail "undefined", function = "canInput", name = ""};
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   144
  open TextIO;
23836
c6094fe98dfd adapted TextIO.inputLine;
wenzelm
parents: 23826
diff changeset
   145
  fun inputLine is =
c6094fe98dfd adapted TextIO.inputLine;
wenzelm
parents: 23826
diff changeset
   146
    let val s = TextIO.inputLine is
c6094fe98dfd adapted TextIO.inputLine;
wenzelm
parents: 23826
diff changeset
   147
    in if s = "" then NONE else SOME s end;
21298
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   148
end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21280
diff changeset
   149
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   150
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   151
(* ML command execution *)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   152
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   153
(*Can one redirect 'use' directly to an instream?*)
24808
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
   154
fun use_text (tune: string -> string) _ _ _ txt =
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   155
  let
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   156
    val tmp_name = FileSys.tmpName ();
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   157
    val tmp_file = TextIO.openOut tmp_name;
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   158
  in
24808
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
   159
    TextIO.output (tmp_file, tune txt);
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   160
    TextIO.closeOut tmp_file;
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   161
    use tmp_name;
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   162
    FileSys.remove tmp_name
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   163
  end;
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   164
24808
7c9a970d7ab5 fixed use_text;
wenzelm
parents: 24688
diff changeset
   165
fun use_file _ _ _ name = use name;
21770
ea6f846d8c4b added use_file;
wenzelm
parents: 21298
diff changeset
   166
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   167
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   168
16993
wenzelm
parents: 16681
diff changeset
   169
(** interrupts **)      (*Note: may get into race conditions*)
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   170
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   171
(* FIXME proper implementation available? *)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   172
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   173
exception Interrupt;
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   174
26084
a7475459c740 replaced ignore/raise_interrupt by more flexible (un)interruptible combinators;
wenzelm
parents: 25732
diff changeset
   175
fun interruptible f x = f x;
a7475459c740 replaced ignore/raise_interrupt by more flexible (un)interruptible combinators;
wenzelm
parents: 25732
diff changeset
   176
fun uninterruptible f x = f (fn (g: 'c -> 'd) => g) x;
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   177
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   178
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   179
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   180
(** OS related **)
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   181
23826
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 22252
diff changeset
   182
val cd = OS.FileSys.chDir;
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 22252
diff changeset
   183
val pwd = OS.FileSys.getDir;
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 22252
diff changeset
   184
17824
36b2978d339a added string_of_pid;
wenzelm
parents: 17491
diff changeset
   185
val string_of_pid = Int.toString;
36b2978d339a added string_of_pid;
wenzelm
parents: 17491
diff changeset
   186
9254
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   187
fun getenv var =
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   188
  (case Process.getEnv var of
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   189
    NONE => ""
f8a0e8b9bcd8 Compatibility file for Moscow ML 2.00;
wenzelm
parents:
diff changeset
   190
  | SOME txt => txt);