5 fun foreach (l
, f
) = app f l
7 structure Process
= Posix
.Process
8 open Process Posix
.Signal MLton
.Signal
10 fun print s
= let open TextIO
12 ; output (stdErr
, "\n")
15 val sleep
= sleep
o Time
.fromSeconds
23 ([(hup
, "Got a hup."),
24 (int, "You can't int me you loser."),
25 (term
, "Don't even try to term me.")],
27 setHandler (signal
, Handler
.simple (fn () => print msg
)))
28 fun loop
' () = loop
' ()
33 fun signal s
= Process
.kill (K_PROC pid
, s
)
37 ; List.foreach ([hup
, int, term
], signal
)
40 ; List.foreach ([hup
, int], signal
)