regression/suspend.sml

   1 open Posix.Signal MLton.Signal Posix.Process
   2
   3 val _ =
   4    case fork () of
   5       NONE =>
   6          (setHandler (int, Handler.simple (fn () => print "child got an int\n"))
   7           ; print "child suspending\n"
   8           ; suspend Mask.none
   9           ; print "done\n")
  10     | SOME pid =>
  11          (sleep (Time.fromSeconds 1)
  12           ; print "parent sending int\n"
  13           ; kill (K_PROC pid, int)
  14           ; wait ()
  15           ; print "done\n")