shithub: mc

ref: 6ed1ebe0ee2e45b4b9079bf4ed0df24311ae4e8d
dir: /libstd/waitstatus+freebsd.myr/

View raw version 
use "die.use"

pkg std =
	type waitstatus = union
		`Waitexit int32
		`Waitsig  int32
		`Waitstop int32
	;;

	const waitstatus	: (st : int32 -> waitstatus)
;;

const waitstatus = {st
	match st & 0o177
	| 0:	-> `Waitexit (st >> 8)
	| 0x7f:-> `Waitstop (st >> 8)
	| sig: 	-> `Waitsig sig
	;;
	die("unreachable")
}