hare

+openbsd.ha (12422B)

---

 // SPDX-License-Identifier: MPL-2.0
 // (c) Hare authors <https://harelang.org>
 
 use errors;
 use rt;
 use unix;
 
 // Requests that [[sig::ALRM]] is delivered to the calling process in (about)
 // "sec" seconds. Returns the number of seconds until the previously scheduled
 // alarm, or zero if none was scheduled.
 export fn alarm(sec: uint) uint = {
 	return rt::alarm(sec);
 };
 
 // Configures a new signal handler, returning the old details (which can be
 // passed to [[restore]] to restore its behavior).
 export fn handle(
 	signum: sig,
 	handler: *handler,
 	flags: flag = flag::NONE,
 	mask: nullable *sigset = null,
 ) sigaction = {
 	flags |= rt::SA_SIGINFO: flag;
 	let mask = match (mask) {
 	case null =>
 		yield newsigset();
 	case let set: *sigset =>
 		yield *set;
 	};
 
 	let new = rt::sigact {
 		sa_sigaction = handler: *fn(int, *rt::siginfo, *opaque) void,
 		sa_mask = mask,
 		sa_flags = flags,
 	};
 	let old = rt::sigact {
 		sa_sigaction = null: *fn(int, *rt::siginfo, *opaque) void,
 		...
 	};
 	match (rt::sigaction(signum, &new, &old)) {
 	case let err: rt::errno =>
 		abort("sigaction failed (invalid signal?)");
 	case void => void;
 	};
 	return old;
 
 };
 
 // Restores previous signal behavior following [[handle]].
 export fn restore(signum: sig, action: *sigaction) void = {
 	match (rt::sigaction(signum, action: *rt::sigact, null)) {
 	case rt::errno =>
 		abort("sigaction failed (invalid signal?)");
 	case void => void;
 	};
 
 };
 
 // Unregisters signal handlers for the specified signal.
 export fn reset(signum: sig) void = {
 	handle(signum, rt::SIG_DFL: *handler);
 };
 
 // Unregisters all signal handlers.
 export fn resetall() void = {
 	// sig::KILL and sig::STOP deliberately omitted; see sigaction(2)
 	reset(sig::HUP);
 	reset(sig::INT);
 	reset(sig::QUIT);
 	reset(sig::ILL);
 	reset(sig::TRAP);
 	reset(sig::ABRT);
 	reset(sig::EMT);
 	reset(sig::FPE);
 	reset(sig::BUS);
 	reset(sig::SEGV);
 	reset(sig::SYS);
 	reset(sig::PIPE);
 	reset(sig::ALRM);
 	reset(sig::TERM);
 	reset(sig::URG);
 	reset(sig::TSTP);
 	reset(sig::CONT);
 	reset(sig::CHLD);
 	reset(sig::TTIN);
 	reset(sig::TTOU);
 	reset(sig::IO);
 	reset(sig::XCPU);
 	reset(sig::XFSZ);
 	reset(sig::VTALRM);
 	reset(sig::PROF);
 	reset(sig::WINCH);
 	reset(sig::INFO);
 	reset(sig::USR1);
 	reset(sig::USR2);
 };
 
 // Prevents given signal from arriving to the current process.
 // One common use case is to ignore SIGCHLD to avoid zombie child processes.
 export fn ignore(signum: sig) void = {
 	handle(signum, rt::SIG_IGN: *handler);
 };
 
 // Adds the given list of signals to the process's current signal mask,
 // returning the old signal mask. This is a convenience function around
 // [[setprocmask]].
 export fn block(signals: sig...) sigset = {
 	let new = newsigset(signals...);
 	return setprocmask(how::BLOCK, &new);
 };
 
 // Removes the given list of signals from the process's current signal mask,
 // returning the old signal mask. This is a convenience function around
 // [[setprocmask]].
 export fn unblock(signals: sig...) sigset = {
 	let new = newsigset(signals...);
 	return setprocmask(how::UNBLOCK, &new);
 };
 
 // Sets the process's signal mask, returning the previous mask.
 export fn setprocmask(how: how, mask: *sigset) sigset = {
 	let old: sigset = 0;
 	rt::sigprocmask(how, mask: *rt::sigset, &old)!;
 	return old;
 };
 
 // Gets the current process's signal mask.
 export fn getprocmask() sigset = {
 	let old: sigset = 0;
 	rt::sigprocmask(how::SETMASK, null, &old)!;
 	return old;
 };
 
 // Defines the modes of operation for [[setprocmask]].
 export type how = enum int {
 	// Adds the given set of signals to the current mask.
 	BLOCK = rt::SIG_BLOCK,
 	// Removes the given set of signals from the current mask.
 	UNBLOCK = rt::SIG_UNBLOCK,
 	// Sets the process mask to the given set.
 	SETMASK = rt::SIG_SETMASK,
 };
 
 export type sigaction = rt::sigact;
 export type sigset = rt::sigset;
 
 // Creates a new signal set filled in with the provided signals (or empty if
 // none are provided).
 export fn newsigset(items: sig...) sigset = {
 	let set: sigset = 0;
 	rt::sigemptyset(&set);
 	sigset_add(&set, items...);
 	return set;
 };
 
 // Sets a [[sigset]] to empty.
 export fn sigset_empty(set: *sigset) void = {
 	rt::sigemptyset(set: *rt::sigset);
 };
 
 // Adds signals to a [[sigset]].
 export fn sigset_add(set: *sigset, items: sig...) void = {
 	for (let i = 0z; i < len(items); i += 1) {
 		rt::sigaddset(set: *rt::sigset, items[i])!;
 	};
 };
 
 // Removes signals from a [[sigset]].
 export fn sigset_del(set: *sigset, items: sig...) void = {
 	for (let i = 0z; i < len(items); i += 1) {
 		rt::sigdelset(set: *rt::sigset, items[i])!;
 	};
 };
 
 // Adds all platform-defined signals to a [[sigset]].
 export fn sigset_fill(set: *sigset) void = {
 	rt::sigfillset(set: *rt::sigset)!;
 };
 
 // Returns true if the given signal is a member of this [[sigset]].
 export fn sigset_member(set: *sigset, item: sig) bool = {
 	return rt::sigismember(set: *rt::sigset, item)!;
 };
 
 // Waits for a signal among the given [[sigset]] to be delivered, then returns
 // the signal number.
 //
 // If a signal is received while waiting, [[errors::interrupted]] is returned.
 // Most consumers of this function will likely wish to block all signals and
 // handle them exclusively through [[wait]] et al, in which case this error
 // cannot occur.
 export fn wait(set: *sigset) (sig | errors::interrupted) = {
 	let signal = 0i;
 	match (rt::sigwait(set: *rt::sigset, &signal)) {
 	case let err: rt::errno =>
 		assert(err == rt::EINTR);
 		return errors::interrupted;
 	case void =>
 		return signal: sig;
 	};
 };
 
 // Provides additional information about signal deliveries. Only the members
 // defined by POSIX are available here; cast to [[rt::siginfo]] to access
 // non-portable members.
 export type siginfo = struct {
 	// The signal number being delivered.
 	signo: sig,
 	// The signal code, if any.
 	code: code,
 	// The errno, if any, associated with this signal. See
 	// [[errors::errno]] to convert to a Hare-native error.
 	errno: rt::errno,
 	union {
 		union {
 			struct {
 				// Process ID of the sender.
 				pid: unix::pid,
 				// Real user ID of the sending process.
 				uid: unix::uid,
 			},
 			struct {
 				// Address of the faulting instruction.
 				addr: *opaque,
 			},
 		},
 		// Pads the structure out to the length used by the kernel; do not use.
 		_si_pad: [29]int,
 	},
 };
 
 export type code = enum int {
 	NOINFO = rt::SI_NOINFO, // no signal information
 	USER = rt::SI_USER, // user generated signal via kill()
 	LWP = rt::SI_LWP, // user generated signal via lwp_kill()
 	QUEUE = rt::SI_QUEUE, // user generated signal via sigqueue()
 	TIMER = rt::SI_TIMER, // from timer expiration
 
 	ILLOPC = rt::ILL_ILLOPC, // sig::ILL: illegal opcode
 	ILLOPN = rt::ILL_ILLOPN, // sig::ILL: illegal operand
 	ILLADR = rt::ILL_ILLADR, // sig::ILL: illegal addressing mode
 	ILLTRP = rt::ILL_ILLTRP, // sig::ILL: illegal trap
 	PRVOPC = rt::ILL_PRVOPC, // sig::ILL: privileged opcode
 	PRVREG = rt::ILL_PRVREG, // sig::ILL: privileged register
 	COPROC = rt::ILL_COPROC, // sig::ILL: co-processor
 	BADSTK = rt::ILL_BADSTK, // sig::ILL: bad stack
 
 	INTDIV = rt::FPE_INTDIV, // sig::FPE: integer divide by zero
 	INTOVF = rt::FPE_INTOVF, // sig::FPE: integer overflow
 	FLTDIV = rt::FPE_FLTDIV, // sig::FPE: floating point divide by zero
 	FLTOVF = rt::FPE_FLTOVF, // sig::FPE: floating point overflow
 	FLTUND = rt::FPE_FLTUND, // sig::FPE: floating point underflow
 	FLTRES = rt::FPE_FLTRES, // sig::FPE: floating point inexact result
 	FLTINV = rt::FPE_FLTINV, // sig::FPE: invalid floating point operation
 	FLTSUB = rt::FPE_FLTSUB, // sig::FPE: subscript out of range
 
 	MAPERR = rt::SEGV_MAPERR, // sig::SEGV: address not mapped to object
 	ACCERR = rt::SEGV_ACCERR, // sig::SEGV: invalid permissions
 
 	ADRALN = rt::BUS_ADRALN, // sig::BUS: invalid address alignment
 	ADRERR = rt::BUS_ADRERR, // sig::BUS: non-existent physical address
 	OBJERR = rt::BUS_OBJERR, // sig::BUS: object specific hardware error
 
 	BRKPT = rt::TRAP_BRKPT, // sig::TRAP: breakpoint trap
 	TRACE = rt::TRAP_TRACE, // sig::TRAP: trace trap
 
 	EXITED = rt::CLD_EXITED, // sig::CHLD: child has exited
 	KILLED = rt::CLD_KILLED, // sig::CHLD: child was killed
 	DUMPED = rt::CLD_DUMPED, // sig::CHLD: child has coredumped
 	TRAPPED = rt::CLD_TRAPPED, // sig::CHLD: traced child has stopped
 	STOPPED = rt::CLD_STOPPED, // sig::CHLD: child has stopped on signal
 	CONTINUED = rt::CLD_CONTINUED, // sig::CHLD: stopped child has continued
 };
 
 export type flag = enum int {
 	NONE = 0,
 	// For use with sig::CHLD. Prevents notifications when child processes
 	// stop (e.g. via sig::STOP) or resume (i.e. sig::CONT).
 	NOCLDSTOP = rt::SA_NOCLDSTOP,
 	// For use with sig::CHLD. Do not transform children into zombies when
 	// they terminate. Note that POSIX leaves the delivery of sig::CHLD
 	// unspecified when this flag is present; some systems will still
 	// deliver a signal and others may not.
 	NOCLDWAIT = rt::SA_NOCLDWAIT,
 	// Uses an alternate stack when handling this signal. See
 	// [[setaltstack]] and [[getaltstack]] for details.
 	ONSTACK = rt::SA_ONSTACK,
 	// Do not add the signal to the signal mask while executing the signal
 	// handler. This can cause the same signal to be delivered again during
 	// the execution of the signal handler.
 	NODEFER = rt::SA_NODEFER,
 	// Restore the signal handler to the default behavior upon entering the
 	// signal handler.
 	RESETHAND = rt::SA_RESETHAND,
 	// Makes certain system calls restartable across signals. See signal(7)
 	// or similar documentation for your local system for details.
 	RESTART = rt::SA_RESTART,
 };
 
 // All possible signals.
 export type sig = enum int {
 	HUP = rt::SIGHUP, // Hangup.
 	INT = rt::SIGINT, // Terminal interrupt.
 	QUIT = rt::SIGQUIT, // Terminal quit.
 	ILL = rt::SIGILL, // Illegal instruction.
 	TRAP = rt::SIGTRAP, // Trace/breakpoint trap.
 	ABRT = rt::SIGABRT, // Process abort.
 	EMT = rt::SIGEMT, // Emulate instruction executed.
 	FPE = rt::SIGFPE, // Erroneous arithmetic operation.
 	KILL = rt::SIGKILL, // Kill (cannot be caught or ignored).
 	BUS = rt::SIGBUS, // Access to an undefined portion of a memory object.
 	SEGV = rt::SIGSEGV, // Invalid memory reference.
 	SYS = rt::SIGSYS, // Bad system call.
 	PIPE = rt::SIGPIPE, // Write on a pipe with no one to read it.
 	ALRM = rt::SIGALRM, // Alarm clock.
 	TERM = rt::SIGTERM, // Termination.
 	URG = rt::SIGURG, // High bandwidth data is available at a socket.
 	STOP = rt::SIGSTOP, // Stop executing (cannot be caught or ignored).
 	TSTP = rt::SIGTSTP, // Terminal stop.
 	CONT = rt::SIGCONT, // Continue executing, if stopped.
 	CHLD = rt::SIGCHLD, // Child process terminated, stopped, or continued.
 	TTIN = rt::SIGTTIN, // Background process attempting read.
 	TTOU = rt::SIGTTOU, // Background process attempting write.
 	IO = rt::SIGIO, // I/O now possible.
 	XCPU = rt::SIGXCPU, // CPU time limit exceeded.
 	XFSZ = rt::SIGXFSZ, // File size limit exceeded.
 	VTALRM = rt::SIGVTALRM, // Virtual timer expired.
 	PROF = rt::SIGPROF, // Profiling timer expired.
 	WINCH = rt::SIGWINCH, // Window resize.
 	INFO = rt::SIGINFO, // Status request from keyboard.
 	USR1 = rt::SIGUSR1, // User-defined signal 1.
 	USR2 = rt::SIGUSR2, // User-defined signal 2.
 };
 
 // Returns the human friendly name of a given signal.
 export fn signame(sig: sig) const str = {
 	switch (sig) {
 	case sig::HUP =>
 		return "SIGHUP";
 	case sig::INT =>
 		return "SIGINT";
 	case sig::QUIT =>
 		return "SIGQUIT";
 	case sig::ILL =>
 		return "SIGILL";
 	case sig::TRAP =>
 		return "SIGTRAP";
 	case sig::ABRT =>
 		return "SIGABRT";
 	case sig::EMT =>
 		return "SIGEMT";
 	case sig::FPE =>
 		return "SIGFPE";
 	case sig::KILL =>
 		return "SIGKILL";
 	case sig::BUS =>
 		return "SIGBUS";
 	case sig::SEGV =>
 		return "SIGSEGV";
 	case sig::SYS =>
 		return "SIGSYS";
 	case sig::PIPE =>
 		return "SIGPIPE";
 	case sig::ALRM =>
 		return "SIGALRM";
 	case sig::TERM =>
 		return "SIGTERM";
 	case sig::URG =>
 		return "SIGURG";
 	case sig::STOP =>
 		return "SIGSTOP";
 	case sig::TSTP =>
 		return "SIGTSTP";
 	case sig::CONT =>
 		return "SIGCONT";
 	case sig::CHLD =>
 		return "SIGCHLD";
 	case sig::TTIN =>
 		return "SIGTTIN";
 	case sig::TTOU =>
 		return "SIGTTOU";
 	case sig::IO =>
 		return "SIGIO";
 	case sig::XCPU =>
 		return "SIGXCPU";
 	case sig::XFSZ =>
 		return "SIGXFSZ";
 	case sig::VTALRM =>
 		return "SIGVTALRM";
 	case sig::PROF =>
 		return "SIGPROF";
 	case sig::WINCH =>
 		return "SIGWINCH";
 	case sig::INFO =>
 		return "SIGINFO";
 	case sig::USR1 =>
 		return "SIGUSR1";
 	case sig::USR2 =>
 		return "SIGUSR2";
 	};
 };