1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env newlisp
;; numbers and names may be different on
;; your platform look int:
;; /usr/include/sys/signal.h or
;; /usr/include/signal.h
(define SIGUSR1 30)
(define SIGUSR2 31)
(define (myhandler s)
(println "signal " s " was fired")
)
; setup the handler
(signal SIGUSR1 myhandler)
(signal SIGUSR2 myhandler)
(set 'mypid (sys-info -3))
(dotimes (i 6)
(sleep 500)
(exec (string "kill -" SIGUSR1 " " mypid))
(exec (string "kill -" SIGUSR2 " " mypid))
)
(exit)
|
