mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
05d416e17f
("error" for any non-string on plan9). The idiom (exit #f) can be used
to indicate an arbitrary error.
143 lines
4.9 KiB
Text
143 lines
4.9 KiB
Text
|
|
;;> An interface to spawning processes and sending and
|
|
;;> receiving signals between processes.
|
|
|
|
(c-system-include "sys/types.h")
|
|
(c-system-include "sys/wait.h")
|
|
(c-system-include "signal.h")
|
|
(c-system-include "unistd.h")
|
|
|
|
;;> The siginfo_t struct is used to return info about the status,
|
|
;;> process and user info of a called signal handler.
|
|
|
|
(define-c-type siginfo_t
|
|
predicate: signal-info?
|
|
(int si_signo signal-number)
|
|
(int si_errno signal-error-number)
|
|
(int si_code signal-code)
|
|
(pid_t si_pid signal-pid)
|
|
(uid_t si_uid signal-uid)
|
|
(int si_status signal-status)
|
|
;;(clock_t si_utime signal-user-time)
|
|
;;(clock_t si_stime signal-system-time)
|
|
)
|
|
|
|
(define-c-const int (signal/hang-up "SIGHUP"))
|
|
(define-c-const int (signal/interrupt "SIGINT"))
|
|
(define-c-const int (signal/quit "SIGQUIT"))
|
|
(define-c-const int (signal/illegal "SIGILL"))
|
|
(define-c-const int (signal/abort "SIGABRT"))
|
|
(define-c-const int (signal/fpe "SIGFPE"))
|
|
(define-c-const int (signal/kill "SIGKILL"))
|
|
(define-c-const int (signal/segv "SIGSEGV"))
|
|
(define-c-const int (signal/pipe "SIGPIPE"))
|
|
(define-c-const int (signal/alarm "SIGALRM"))
|
|
(define-c-const int (signal/term "SIGTERM"))
|
|
(define-c-const int (signal/user1"SIGUSR1"))
|
|
(define-c-const int (signal/user2 "SIGUSR2"))
|
|
(define-c-const int (signal/child "SIGCHLD"))
|
|
(define-c-const int (signal/continue "SIGCONT"))
|
|
(define-c-const int (signal/stop "SIGSTOP"))
|
|
(define-c-const int (signal/tty-stop "SIGTSTP"))
|
|
(define-c-const int (signal/tty-input "SIGTTIN"))
|
|
(define-c-const int (signal/tty-output "SIGTTOU"))
|
|
|
|
(c-include "signal.c")
|
|
|
|
;;> @subsubsubsection{@rawcode{(set-signal-action! signal handler)}}
|
|
|
|
;;> Sets the signal handler for @var{signal} to @var{handler}
|
|
;;> and returns the old handler. @var{handler} should be a procedure
|
|
;;> of one argument, the signal number, the value @scheme{#t} for
|
|
;;> the default signal handler, or @scheme{#f} for no handler.
|
|
|
|
;;> Signal handlers are queued run in a dedicated thread after the
|
|
;;> system handler has returned.
|
|
|
|
(define-c sexp (set-signal-action! "sexp_set_signal_action")
|
|
((value ctx sexp) (value self sexp) sexp sexp))
|
|
|
|
;;> The sigset_t struct represents a set of signals for masking.
|
|
|
|
(define-c-type sigset_t
|
|
predicate: signal-set?)
|
|
|
|
(define-c errno (make-signal-set "sigemptyset") ((pointer result sigset_t)))
|
|
(define-c errno (signal-set-fill! "sigfillset") ((pointer sigset_t)))
|
|
(define-c errno (signal-set-add! "sigaddset") ((pointer sigset_t) int))
|
|
(define-c errno (signal-set-delete! "sigdelset") ((pointer sigset_t) int))
|
|
(define-c boolean (signal-set-contains? "sigismember") ((pointer sigset_t) int))
|
|
|
|
(define-c errno (signal-mask-block! "sigprocmask")
|
|
((value SIG_BLOCK int) (pointer sigset_t) (pointer value NULL sigset_t)))
|
|
(define-c errno (signal-mask-unblock! "sigprocmask")
|
|
((value SIG_UNBLOCK int) (pointer sigset_t) (pointer value NULL sigset_t)))
|
|
(define-c errno (signal-mask-set! "sigprocmask")
|
|
((value SIG_SETMASK int) (pointer sigset_t) (pointer value NULL sigset_t)))
|
|
(define-c errno (current-signal-mask "sigprocmask")
|
|
((value SIG_BLOCK int) (pointer value NULL sigset_t) (pointer result sigset_t)))
|
|
|
|
;;> Send a @var{signal/alarm} signal to the current process
|
|
;;> after @var{unsigned-int} seconds have elapsed.
|
|
|
|
(define-c unsigned-int alarm (unsigned-int))
|
|
|
|
;;> Suspend the current process for @var{unsigned-int} seconds.
|
|
;;> See @hyperlink["http://srfi.schemers.org/srfi-18/srfi-18.html"]{SRFI-18}
|
|
;;> @scheme{thread-sleep!} for a light-weight sleep for only the
|
|
;;> current thread.
|
|
|
|
(define-c unsigned-int sleep (unsigned-int))
|
|
|
|
;;> Fork the current process. Returns @rawcode{0} for the newly
|
|
;;> created process, and the process id of the new process for
|
|
;;> the parent.
|
|
|
|
(define-c pid_t fork ())
|
|
|
|
(define-c-const int (wait/no-hang "WNOHANG"))
|
|
|
|
;;(define-c pid_t wait ((result int)))
|
|
|
|
;;> @subsubsubsection{@rawcode{(waitpid pid options)}}
|
|
|
|
;;> Wait on the process @var{pid}, or any child process if @var{pid}
|
|
;;> is @rawcode{-1}. @var{options} should be 0, or @var{wait/no-hang}
|
|
;;> to return immediately if no processes have reported status. Returns
|
|
;;> a list whose first element is the actual @var{pid} reporting, and
|
|
;;> the second element is the integer status.
|
|
|
|
(define-c pid_t waitpid (int (result int) int))
|
|
|
|
;;> Send a signal to the given process.
|
|
|
|
(define-c errno kill (int int))
|
|
|
|
;;(define-c errno raise (int))
|
|
|
|
;;> Exits the current process immediately. Finalizers are not run.
|
|
|
|
(cond-expand
|
|
(plan9 (define-c void (%exit exit) (string)))
|
|
(else (define-c void (%exit exit) (int))))
|
|
|
|
;;> Replace the current process with the given command. Finalizers
|
|
;;> are not run.
|
|
|
|
(define-c int (execute execvp) (string (array string)))
|
|
|
|
;;> Returns the current process id.
|
|
|
|
(define-c pid_t (current-process-id getpid) ())
|
|
|
|
;;> Returns the parent process id.
|
|
|
|
(define-c pid_t (parent-process-id getppid) ())
|
|
|
|
(cond-expand
|
|
(bsd
|
|
(define-c sexp (%process-command-line sexp_pid_cmdline)
|
|
((value ctx sexp) int)))
|
|
(else #f))
|
|
|
|
(c-init "sexp_init_signals(ctx, env);")
|