rawmode-stty.sml

   1 structure RM :
   2 sig
   3   val enable : unit -> OS.Process.status
   4   val disable : unit -> OS.Process.status
   5 end =
   6 struct
   7   val orig = ref ""
   8
   9   fun enable () =
  10     let
  11       val stty = Unix.execute("/usr/bin/stty", ["-F", "/dev/tty", "-g"])
  12       val _ = orig := TextIO.input (Unix.textInstreamOf stty)
  13       val _ = Unix.reap stty
  14     in
  15       OS.Process.system "stty raw -echo"
  16     end
  17
  18   fun disable () = OS.Process.system ("stty " ^ !orig)
  19 end