src/Pure/ML-Systems/polyml.ML
author wenzelm
Thu, 04 Oct 2007 21:10:41 +0200
changeset 24851 4e304aac841a
parent 24688 a5754ca5c510
child 25023 52eb78ebb370
permissions -rw-r--r--
tuned;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML-Systems/polyml.ML
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     3
23139
aa899bce7c3b TextIO.inputLine: use present SML B library version;
wenzelm
parents: 22144
diff changeset
     4
Compatibility file for Poly/ML (version 4.1.x and 4.2.0).
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     5
*)
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     6
23965
f93e509659c1 ML-Systems/exn.ML, ML-Systems/multithreading_dummy.ML;
wenzelm
parents: 23921
diff changeset
     7
use "ML-Systems/exn.ML";
24688
a5754ca5c510 replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents: 24598
diff changeset
     8
use "ML-Systems/multithreading.ML";
a5754ca5c510 replaced interrupt_timeout by TimeLimit.timeLimit (available on SML/NJ and Poly/ML 5.1);
wenzelm
parents: 24598
diff changeset
     9
use "ML-Systems/time_limit.ML";
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents: 23826
diff changeset
    10
24598
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    11
val ml_system_fix_ints = false;
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    12
23921
947152add153 added compatibility file for ML systems without multithreading;
wenzelm
parents: 23826
diff changeset
    13
16374
f4b7cf8975af some cygwin support;
wenzelm
parents: 16266
diff changeset
    14
(** ML system and platform related **)
f4b7cf8975af some cygwin support;
wenzelm
parents: 16266
diff changeset
    15
17077
f5af929f0fb4 added String.isSuffix;
wenzelm
parents: 16659
diff changeset
    16
(* String compatibility *)
f5af929f0fb4 added String.isSuffix;
wenzelm
parents: 16659
diff changeset
    17
16516
0842635545c3 tuned pointer_eq;
wenzelm
parents: 16502
diff changeset
    18
(*low-level pointer equality*)
0842635545c3 tuned pointer_eq;
wenzelm
parents: 16502
diff changeset
    19
val pointer_eq = Address.wordEq;
16502
5a56e59526a5 added pointer_eq;
wenzelm
parents: 16453
diff changeset
    20
5a56e59526a5 added pointer_eq;
wenzelm
parents: 16453
diff changeset
    21
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    22
(* old Poly/ML emulation *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    23
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    24
local
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    25
  val orig_exit = exit;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    26
in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    27
  open PolyML;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    28
  val exit = orig_exit;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    29
  fun quit () = exit 0;
7148
e9c253036b45 removed obsolete concat;
wenzelm
parents: 7147
diff changeset
    30
end;
6042
0ccde2f25dd6 Basis Library compatible substring oeration
paulson
parents: 5813
diff changeset
    31
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    32
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    33
(* restore old-style character / string functions *)
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    34
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    35
val ord = SML90.ord;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    36
val chr = SML90.chr;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    37
val explode = SML90.explode;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    38
val implode = SML90.implode;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    39
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
    40
14519
4ca3608fdf4f Added support for the newer versions of SML/NJ, which break several of the
skalberg
parents: 12989
diff changeset
    41
(* compiler-independent timing functions *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    42
21298
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    43
fun start_timing () =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    44
  let val CPUtimer = Timer.startCPUTimer();
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    45
      val time = Timer.checkCPUTimer(CPUtimer)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    46
  in  (CPUtimer,time)  end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    47
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    48
fun end_timing (CPUtimer, {sys,usr}) =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    49
  let open Time  (*...for Time.toString, Time.+ and Time.- *)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    50
      val {sys=sys2,usr=usr2} = Timer.checkCPUTimer(CPUtimer)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    51
  in  "User " ^ toString (usr2-usr) ^
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    52
      "  All "^ toString (sys2-sys + usr2-usr) ^
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    53
      " secs"
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    54
      handle Time => ""
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    55
  end;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    56
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    57
fun check_timer timer =
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    58
  let
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    59
    val {sys, usr} = Timer.checkCPUTimer timer;
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    60
    val gc = Timer.checkGCTime timer;    (* FIXME already included in usr? *)
6d2306b2376d tuned names of start_timing,/end_timing/check_timer;
wenzelm
parents: 21281
diff changeset
    61
  in (sys, usr, gc) end;
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    62
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
    63
4977
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    64
(* prompts *)
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    65
4984
d17004d4c13b fixed ml_prompts;
wenzelm
parents: 4977
diff changeset
    66
fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);
4977
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    67
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    68
24290
5607b8b752bb tuned comments;
wenzelm
parents: 23965
diff changeset
    69
(* toplevel pretty printing (see also Pure/pure_setup.ML) *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    70
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    71
fun make_pp _ pprint (str, blk, brk, en) _ _ obj =
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    72
  pprint obj (str, fn ind => blk (ind, false), fn wd => brk (wd, 0),
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    73
    fn () => brk (99999, 0), en);
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    74
24329
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    75
(*print depth*)
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    76
local
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    77
  val depth = ref 10;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    78
in
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    79
  fun get_print_depth () = ! depth;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    80
  fun print_depth n = (depth := n; PolyML.print_depth n);
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    81
end;
f31594168d27 ML system provides get_print_depth;
wenzelm
parents: 24296
diff changeset
    82
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    83
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    84
(* ML command execution -- 'eval' *)
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    85
24598
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    86
fun use_text (tune: string -> string) name (print, err) verbose txt =
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    87
  let
24598
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
    88
    val in_buffer = ref (explode (tune txt));
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    89
    val out_buffer = ref ([]: string list);
21715
9c19f90272e8 tuned use_text;
wenzelm
parents: 21298
diff changeset
    90
    fun output () = implode (rev (case ! out_buffer of "\n" :: cs => cs | cs => cs));
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    91
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    92
    fun get () =
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    93
      (case ! in_buffer of
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    94
        [] => ""
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    95
      | c :: cs => (in_buffer := cs; c));
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    96
    fun put s = out_buffer := s :: ! out_buffer;
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    97
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    98
    fun exec () =
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    99
      (case ! in_buffer of
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
   100
        [] => ()
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
   101
      | _ => (PolyML.compiler (get, put) (); exec ()));
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
   102
  in
22144
c33450acd873 use_text: added name argument;
wenzelm
parents: 21770
diff changeset
   103
    exec () handle exn =>
c33450acd873 use_text: added name argument;
wenzelm
parents: 21770
diff changeset
   104
      (err ((if name = "" then "" else "Error in " ^ name ^ "\n") ^ output ()); raise exn);
10914
aded4ba99b88 use_text etc.: proper output of error messages;
wenzelm
parents: 8830
diff changeset
   105
    if verbose then print (output ()) else ()
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
   106
  end;
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   107
24598
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   108
fun use_file tune output verbose name =
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   109
  let
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   110
    val instream = TextIO.openIn name;
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   111
    val txt = TextIO.inputAll instream before TextIO.closeIn instream;
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   112
  in use_text tune name output verbose txt end;
21770
ea6f846d8c4b added use_file;
wenzelm
parents: 21715
diff changeset
   113
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   114
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   115
(*eval command line arguments*)
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   116
local
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   117
  fun println s =
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   118
    (TextIO.output (TextIO.stdOut, s ^ "\n"); TextIO.flushOut TextIO.stdOut);
21715
9c19f90272e8 tuned use_text;
wenzelm
parents: 21298
diff changeset
   119
  fun eval "-q" = ()
24598
44a1c0c68e21 added ml_system_fix_ints;
wenzelm
parents: 24329
diff changeset
   120
    | eval txt = use_text (fn x => x) "" (println, println) false txt;
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   121
in
24296
3479a9fe73e0 removed signal setup from root function to on-entry hook;
wenzelm
parents: 24290
diff changeset
   122
  val _ = PolyML.onEntry (fn () =>
3479a9fe73e0 removed signal setup from root function to on-entry hook;
wenzelm
parents: 24290
diff changeset
   123
   (Signal.signal (2, Signal.SIG_HANDLE (fn _ => Process.interruptConsoleProcesses ()));
3479a9fe73e0 removed signal setup from root function to on-entry hook;
wenzelm
parents: 24290
diff changeset
   124
    app eval (CommandLine.arguments ())));
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   125
end;
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   126
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
   127
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   128
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   129
(** interrupts **)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   130
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   131
exception Interrupt = SML90.Interrupt;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   132
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   133
local
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   134
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   135
val sig_int = 2;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   136
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   137
fun change_signal new_handler f x =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   138
  let
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   139
    (*RACE wrt. other signals*)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   140
    val old_handler = Signal.signal (sig_int, new_handler);
23965
f93e509659c1 ML-Systems/exn.ML, ML-Systems/multithreading_dummy.ML;
wenzelm
parents: 23921
diff changeset
   141
    val result = Exn.capture f x;
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   142
    val _ = Signal.signal (sig_int, old_handler);
23965
f93e509659c1 ML-Systems/exn.ML, ML-Systems/multithreading_dummy.ML;
wenzelm
parents: 23921
diff changeset
   143
  in Exn.release result end;
5813
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   144
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   145
val default_handler = Signal.SIG_HANDLE (fn _ => Process.interruptConsoleProcesses ());
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   146
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   147
in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   148
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   149
val _ = Signal.signal (sig_int, default_handler);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   150
12989
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   151
fun ignore_interrupt f = change_signal Signal.SIG_IGN f;
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   152
fun raise_interrupt f = change_signal default_handler f;
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   153
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   154
end;
5813
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   155
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   156
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   157
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   158
(** OS related **)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   159
21281
0767e7dad549 no special treatment for cygwin (this is supposed to be actual cygwin, not win32 polyml within cygwin);
wenzelm
parents: 18814
diff changeset
   160
use "ML-Systems/polyml-posix.ML";
16659
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   161
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   162
23826
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   163
(* current directory *)
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   164
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   165
val cd = OS.FileSys.chDir;
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   166
val pwd = OS.FileSys.getDir;
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   167
463903573934 moved cd/pwd to ML compatibility layer (simplifies bootstrapping with Alice);
wenzelm
parents: 23139
diff changeset
   168
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   169
(* system command execution *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   170
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   171
(*execute Unix command which doesn't take any input from stdin and
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   172
  sends its output to stdout; could be done more easily by Unix.execute,
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   173
  but that function doesn't use the PATH*)
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   174
fun execute command =
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   175
  let
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   176
    val tmp_name = OS.FileSys.tmpName ();
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   177
    val is = (OS.Process.system (command ^ " > " ^ tmp_name); TextIO.openIn tmp_name);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   178
    val result = TextIO.inputAll is;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   179
  in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   180
    TextIO.closeIn is;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   181
    OS.FileSys.remove tmp_name;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   182
    result
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   183
  end;
7855
092a6435afad system;
wenzelm
parents: 7148
diff changeset
   184
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   185
(*plain version; with return code*)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   186
fun system cmd =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   187
  if OS.Process.isSuccess (OS.Process.system cmd) then 0 else 1;
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   188
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   189
17824
36b2978d339a added string_of_pid;
wenzelm
parents: 17077
diff changeset
   190
(*Convert a process ID to a decimal string (chiefly for tracing)*)
36b2978d339a added string_of_pid;
wenzelm
parents: 17077
diff changeset
   191
fun string_of_pid pid = 
23139
aa899bce7c3b TextIO.inputLine: use present SML B library version;
wenzelm
parents: 22144
diff changeset
   192
  Word.fmt StringCvt.DEC (Word.fromLargeWord (Posix.Process.pidToWord pid));
17824
36b2978d339a added string_of_pid;
wenzelm
parents: 17077
diff changeset
   193
36b2978d339a added string_of_pid;
wenzelm
parents: 17077
diff changeset
   194
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   195
(* getenv *)
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   196
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   197
fun getenv var =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   198
  (case OS.Process.getEnv var of
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   199
    NONE => ""
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   200
  | SOME txt => txt);
15028
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   201
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   202
16659
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   203
(* profile execution *)
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   204
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   205
fun profile 0 f x = f x
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   206
  | profile n f x =
24851
wenzelm
parents: 24688
diff changeset
   207
      let
wenzelm
parents: 24688
diff changeset
   208
        val _ = RunCall.run_call1 RuntimeCalls.POLY_SYS_profiler n;
wenzelm
parents: 24688
diff changeset
   209
        val res = Exn.capture f x;
wenzelm
parents: 24688
diff changeset
   210
        val _ = RunCall.run_call1 RuntimeCalls.POLY_SYS_profiler 0;
wenzelm
parents: 24688
diff changeset
   211
      in Exn.release res end;
16659
1cf39eba29fe added profiler interface, keep 'profiling' of PolyML structure;
wenzelm
parents: 16516
diff changeset
   212