1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
--- src/njml.sml.orig Fri Mar 30 23:39:14 2001
+++ src/njml.sml Sun Jan 13 12:35:29 2008
@@ -44,8 +44,8 @@
end
- fun setPrintDepth n = (Compiler.Control.Print.printDepth := n div 2;
- Compiler.Control.Print.printLength := n)
+ fun setPrintDepth n = (Control.Print.printDepth := n div 2;
+ Control.Print.printLength := n)
(* Set the terminal to a state suitable for sml_tk. Disables INTR
* s.t. we can use it to abort functions called from bindings, and
@@ -60,11 +60,11 @@
if Posix.ProcEnv.isatty (Posix.FileSys.stdin) then
let (* configure TTY driver to have ^\ generate sigQUIT *)
val {iflag, oflag, cflag, lflag, cc, ispeed, ospeed} =
- fieldsOf (getattr Posix.FileSys.stdin)
+ fieldsOf (Posix.TTY.TC.getattr Posix.FileSys.stdin)
val nuattr= termios {iflag=iflag, oflag=oflag, cflag=cflag,
lflag=lflag, ispeed=ispeed, ospeed=ospeed,
cc=V.update(cc, [(V.quit, Char.chr 28)])}
- in setattr(Posix.FileSys.stdin, TC.sanow, nuattr);
+ in Posix.TTY.TC.setattr(Posix.FileSys.stdin, TC.sanow, nuattr);
(* install the top level continuation as QUIT signal handler *)
setHandler(UnixSignals.sigQUIT,
HANDLER (fn _ => (abort();
@@ -106,7 +106,7 @@
fun exec (s,sl) =
let
val pr = Unix.execute (s,sl)
- in case (Unix.reap pr) of
+ in case Posix.Process.fromStatus (Unix.reap pr) of
Posix.Process.W_EXITED => true
| _ => false
end
|
