fun getpass () =
let
val tty = Posix.FileSys.stdin
- val termios = Compat.getattr tty
+ val termios = Posix.TTY.TC.getattr tty
val fields = Posix.TTY.fieldsOf termios
val termios' = Posix.TTY.termios {iflag = #iflag fields,
ispeed = #ispeed fields,
ospeed = #ospeed fields}
- fun reset () = Compat.setattr (tty, Posix.TTY.TC.sanow, termios)
+ fun reset () = Posix.TTY.TC.setattr (tty, Posix.TTY.TC.sanow, termios)
in
print " Password: ";
TextIO.flushOut TextIO.stdOut;
- Compat.setattr (tty, Posix.TTY.TC.sanow, termios');
+ Posix.TTY.TC.setattr (tty, Posix.TTY.TC.sanow, termios');
case TextIO.inputLine TextIO.stdIn of
NONE => (reset ();
Aborted)