12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- guild compile "$0"
- exec guile -q -s "$0" "$@"
- !
- (use-modules (ice-9 match))
- (unless (provided? 'fork)
- (exit 77))
- (setvbuf (current-output-port) 'none)
- (sigaction SIGCHLD pk)
- (match (primitive-fork)
- (0
- (format
- (unless (zero? (sleep 5))
-
-
-
- (format
-
- (kill (getppid) SIGKILL)
- (primitive-exit 1)))
- (pid
- (format
- (sigaction SIGALRM (lambda _
- (display ".")))
-
-
-
-
- (let loop ((i 50))
- (kill (getpid) SIGALRM)
- (usleep 50000)
- (unless (zero? i)
- (loop (1- i))))
-
- (false-if-exception (kill pid SIGKILL))
- (format
|