src/Pure/ML-Systems/polyml.ML
author wenzelm
Tue, 26 Apr 2005 19:52:17 +0200
changeset 15851 6b445e021bc8
parent 15832 df958c7afe50
child 16266 7a6616be8712
permissions -rw-r--r--
eval command line: show results; 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
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     4
    Copyright   1991  University of Cambridge
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     5
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
     6
Compatibility file for Poly/ML (version 4.0, 4.1, 4.1.x).
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     7
*)
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
     8
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
     9
(** ML system related **)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    10
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    11
(* old Poly/ML emulation *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    12
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    13
local
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    14
  val orig_exit = exit;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    15
in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    16
  open PolyML;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    17
  val exit = orig_exit;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    18
  fun quit () = exit 0;
7148
e9c253036b45 removed obsolete concat;
wenzelm
parents: 7147
diff changeset
    19
end;
6042
0ccde2f25dd6 Basis Library compatible substring oeration
paulson
parents: 5813
diff changeset
    20
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    21
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    22
(* restore old-style character / string functions *)
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    23
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    24
val ord = SML90.ord;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    25
val chr = SML90.chr;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    26
val explode = SML90.explode;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    27
val implode = SML90.implode;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    28
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
    29
14519
4ca3608fdf4f Added support for the newer versions of SML/NJ, which break several of the
skalberg
parents: 12989
diff changeset
    30
(* compiler-independent timing functions *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    31
14519
4ca3608fdf4f Added support for the newer versions of SML/NJ, which break several of the
skalberg
parents: 12989
diff changeset
    32
use "ML-Systems/cpu-timer-basis.ML";
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    33
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
    34
14850
393a7be73160 including polyml-time-limit.ML
webertj
parents: 14519
diff changeset
    35
(* bounded time execution *)
393a7be73160 including polyml-time-limit.ML
webertj
parents: 14519
diff changeset
    36
393a7be73160 including polyml-time-limit.ML
webertj
parents: 14519
diff changeset
    37
use "ML-Systems/polyml-time-limit.ML";
393a7be73160 including polyml-time-limit.ML
webertj
parents: 14519
diff changeset
    38
14870
c5cf7c001313 tuned comments;
wenzelm
parents: 14850
diff changeset
    39
4977
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    40
(* prompts *)
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    41
4984
d17004d4c13b fixed ml_prompts;
wenzelm
parents: 4977
diff changeset
    42
fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);
4977
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    43
6cec2c0ffdbf added ml_prompts;
wenzelm
parents: 4428
diff changeset
    44
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    45
(* toplevel pretty printing (see also Pure/install_pp.ML) *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    46
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    47
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
    48
  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
    49
    fn () => brk (99999, 0), en);
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    50
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
    51
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    52
(* ML command execution -- 'eval' *)
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    53
7890
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    54
local
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    55
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    56
fun drop_last [] = []
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    57
  | drop_last [x] = []
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    58
  | drop_last (x :: xs) = x :: drop_last xs;
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    59
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    60
in
0aa16bc2abdb use_text: remove last char from output;
wenzelm
parents: 7855
diff changeset
    61
10914
aded4ba99b88 use_text etc.: proper output of error messages;
wenzelm
parents: 8830
diff changeset
    62
fun use_text (print, err) verbose txt =
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    63
  let
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    64
    val in_buffer = ref (explode txt);
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    65
    val out_buffer = ref ([]: string list);
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    66
    fun output () = implode (drop_last (rev (! out_buffer)));
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    67
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    68
    fun get () =
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    69
      (case ! in_buffer of
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    70
        [] => ""
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    71
      | c :: cs => (in_buffer := cs; c));
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    72
    fun put s = out_buffer := s :: ! out_buffer;
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    73
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    74
    fun exec () =
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    75
      (case ! in_buffer of
5038
301c37df931d use_text replaces use_strings;
wenzelm
parents: 4984
diff changeset
    76
        [] => ()
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    77
      | _ => (PolyML.compiler (get, put) (); exec ()));
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    78
  in
10914
aded4ba99b88 use_text etc.: proper output of error messages;
wenzelm
parents: 8830
diff changeset
    79
    exec () handle exn => (err (output ()); raise exn);
aded4ba99b88 use_text etc.: proper output of error messages;
wenzelm
parents: 8830
diff changeset
    80
    if verbose then print (output ()) else ()
5090
75ac9b451ae0 use_text: verbose flag;
wenzelm
parents: 5038
diff changeset
    81
  end;
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
    82
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    83
end;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    84
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    85
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    86
(*eval command line arguments*)
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    87
local
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    88
  fun println s =
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    89
    (TextIO.output (TextIO.stdOut, s ^ "\n"); TextIO.flushOut TextIO.stdOut);
15851
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
    90
  val eval = use_text (println, println) true;
15832
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    91
in
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    92
  val _ = PolyML.onEntry (fn () => app eval (CommandLine.arguments ()));
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    93
end;
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    94
df958c7afe50 eval command line arguments;
wenzelm
parents: 15702
diff changeset
    95
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    96
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    97
(** interrupts **)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    98
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
    99
exception Interrupt = SML90.Interrupt;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   100
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   101
local
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   102
12989
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   103
fun capture f x = ((f x): unit; NONE) handle exn => SOME exn;
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   104
12989
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   105
fun release NONE = ()
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   106
  | release (SOME exn) = raise exn;
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   107
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   108
val sig_int = 2;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   109
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   110
fun change_signal new_handler f x =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   111
  let
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   112
    (*RACE wrt. other signals*)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   113
    val old_handler = Signal.signal (sig_int, new_handler);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   114
    val result = capture f x;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   115
    val _ = Signal.signal (sig_int, old_handler);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   116
  in release result end;
5813
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   117
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   118
val default_handler = Signal.SIG_HANDLE (fn _ => Process.interruptConsoleProcesses ());
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   119
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   120
in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   121
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   122
val _ = Signal.signal (sig_int, default_handler);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   123
12989
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   124
fun ignore_interrupt f = change_signal Signal.SIG_IGN f;
42ac77552dbf renamed mask_interrupt to ignore_interrupt;
wenzelm
parents: 12108
diff changeset
   125
fun raise_interrupt f = change_signal default_handler f;
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   126
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   127
end;
5813
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   128
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   129
4eea84a9427d fake interrupt handler;
wenzelm
parents: 5090
diff changeset
   130
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   131
(** OS related **)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   132
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   133
(* system command execution *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   134
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   135
(*execute Unix command which doesn't take any input from stdin and
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   136
  sends its output to stdout; could be done more easily by Unix.execute,
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   137
  but that function doesn't use the PATH*)
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   138
fun execute command =
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   139
  let
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   140
    val tmp_name = OS.FileSys.tmpName ();
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   141
    val is = (OS.Process.system (command ^ " > " ^ tmp_name); TextIO.openIn tmp_name);
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   142
    val result = TextIO.inputAll is;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   143
  in
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   144
    TextIO.closeIn is;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   145
    OS.FileSys.remove tmp_name;
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   146
    result
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   147
  end;
7855
092a6435afad system;
wenzelm
parents: 7148
diff changeset
   148
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   149
(*plain version; with return code*)
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   150
fun system cmd =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   151
  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
   152
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   153
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   154
(* file handling *)
2341
e154da40ef00 Compatibility file for Poly/ML (versions 2.x, 3.x).
wenzelm
parents:
diff changeset
   155
6227
3198f547f8af fixed file_info;
wenzelm
parents: 6042
diff changeset
   156
(*get time of last modification*)
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   157
fun file_info name = Time.toString (OS.FileSys.modTime name) handle _ => "";
3588
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   158
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   159
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   160
(* getenv *)
e487bf0ed6c4 cleaned up;
wenzelm
parents: 2408
diff changeset
   161
11078
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   162
fun getenv var =
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   163
  (case OS.Process.getEnv var of
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   164
    NONE => ""
c1b32e7124b4 4.0 version;
wenzelm
parents: 10914
diff changeset
   165
  | SOME txt => txt);
15028
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   166
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   167
15851
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   168
(* profiling: version that works even with
15028
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   169
ML{*profiling 1*}
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   170
apply \\<dots>
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   171
ML{*profiling 0*}
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   172
*)
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   173
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   174
val profiling: int->unit =
f6a22afe0134 new profiling function
paulson
parents: 14870
diff changeset
   175
     RunCall.run_call1 RuntimeCalls.POLY_SYS_profiler;
15699
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   176
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   177
structure OriginalPosix = Posix;
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   178
structure OriginalIO = Posix.IO;
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   179
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   180
structure Posix =
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   181
struct
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   182
  open OriginalPosix
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   183
  structure IO =
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   184
  struct
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   185
  open OriginalIO
15851
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   186
  val mkTextReader = mkReader
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   187
  val mkTextWriter = mkWriter
15699
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   188
  end;
7d91dd712ff8 fixing an incompatibility with Posix.IO.mkTextReader
paulson
parents: 15028
diff changeset
   189
end;
15702
2677db44c795 new signalling primmitives for sml/nj compatibility
paulson
parents: 15699
diff changeset
   190
15851
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   191
(*This extension of the Poly/ML Signal structure is only necessary
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   192
  because in SML/NJ, types Posix.Signal.signal and Signals.signal differ.*)
15702
2677db44c795 new signalling primmitives for sml/nj compatibility
paulson
parents: 15699
diff changeset
   193
structure IsaSignal =
2677db44c795 new signalling primmitives for sml/nj compatibility
paulson
parents: 15699
diff changeset
   194
struct
15851
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   195
  open Signal
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   196
  val usr1 = Posix.Signal.usr1
6b445e021bc8 eval command line: show results;
wenzelm
parents: 15832
diff changeset
   197
  val usr2 = Posix.Signal.usr2
15702
2677db44c795 new signalling primmitives for sml/nj compatibility
paulson
parents: 15699
diff changeset
   198
end;