Commit | Line | Data |
---|---|---|
7f918cf1 CE |
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") |