ref: 690ab7aa8e6c56a4ae8a2bd5bce58d1df681234e
dir: /lib/sys/sys+openbsd-x64.myr/
use "systypes"
pkg sys =
type pid = int32 /* process id */
type scno = int64 /*syscall*/
type fdopt = int64 /* fd options */
type fd = int32 /* fd */
type whence = uint64 /* seek from whence */
type mprot = int64 /* memory protection */
type mopt = int64 /* memory mapping options */
type socktype = int64 /* socket type */
type sockproto = int64 /* socket protocol */
type sockopt = int32 /* socket option */
type sockfam = uint8 /* socket family */
type filemode = uint32
type filetype = uint8
type fcntlcmd = int64
type signo = int32
type sigflags = int32
type sigset = uint32
type clock = union
`Clockrealtime
`Clockmonotonic
`Clockproccputime
`Clockthreadcputime
`Clockuptime
;;
type waitstatus = union
`Waitfail int32
`Waitexit int32
`Waitsig int32
`Waitstop int32
;;
type timespec = struct
sec : int64
nsec : int64
;;
type timeval = struct
sec : int64
usec : int64
;;
type pollfd = struct
fd : fd
events : uint16
revents : uint16
;;
type sigaction = struct
handler : byte# /* code pointer */
mask : sigset
flags : sigflags
;;
type rusage = struct
utime : timeval /* user time */
stime : timeval /* system time */
maxrss : uint64 /* max resident set size*/
ixrss : uint64 /* shared text size */
idrss : uint64 /* unshared data size */
isrss : uint64 /* unshared stack size */
minflt : uint64 /* page reclaims */
majflt : uint64 /* page faults */
nswap : uint64 /* swaps */
inblock : uint64 /* block input ops */
oublock : uint64 /* block output ops */
msgsnd : uint64 /* messages sent */
msgrcv : uint64 /* messages received */
nsignals : uint64 /* signals received */
nvcsw : uint64 /* voluntary context switches */
nivcsw : uint64 /* involuntary context switches */
;;
type tforkparams = struct
tcb : void#
tid : pid#
stk : byte#
;;
type statbuf = struct
mode : filemode
dev : uint32
ino : uint64
nlink : uint32
uid : uint32
gid : uint32
rdev : uint32
atime : timespec
mtime : timespec
ctime : timespec
size : off
blocks : int64
blksize : uint32
flags : uint32
gen : uint32
birthtim : timespec
;;
type utsname = struct
system : byte[32]
node : byte[32]
release : byte[32]
version : byte[32]
machine : byte[32]
;;
type sockaddr = struct
len : byte
fam : sockfam
data : byte[14] /* what is the *actual* length? */
;;
type sockaddr_in = struct
len : byte
fam : sockfam
port : uint16
addr : byte[4]
zero : byte[8]
;;
type sockaddr_in6 = struct
len : byte
fam : sockfam
port : uint16
flow : uint32
addr : byte[16]
scope : uint32
;;
type sockaddr_un = struct
len : uint8
fam : sockfam
path : byte[104]
;;
type sockaddr_storage = struct
len : byte
fam : sockfam
__pad1 : byte[6]
__align : int64
__pad2 : byte[240]
;;
type dirent = struct
fileno : uint64
off : uint64
reclen : uint16
ftype : uint8
namlen : uint8
__pad : byte[4]
name : byte[256]
;;
type iovec = struct
base : byte#
len : uint64
;;
/* open options */
const Ordonly : fdopt = 0x0
const Owronly : fdopt = 0x1
const Ordwr : fdopt = 0x2
const Oappend : fdopt = 0x8
const Ondelay : fdopt = 0x4
const Oshlock : fdopt = 0x10 /* open with shared file lock */
const Oexlock : fdopt = 0x20 /* open with exclusive file lock */
const Oasync : fdopt = 0x40 /* signal pgrp when data ready */
const Osync : fdopt = 0x80 /* backwards compatibility */
const Onofollow : fdopt = 0x100
const Ocreat : fdopt = 0x200
const Otrunc : fdopt = 0x400
const Oexcl : fdopt = 0x800
const Ocloexec : fdopt = 0x10000
const Odsync : fdopt = Osync /* synchronous data writes */
const Orsync : fdopt = Osync /* synchronous reads */
const Odir : fdopt = 0x20000
/* poll options */
const Pollin : uint16 = 0x0001
const Pollpri : uint16 = 0x0002
const Pollout : uint16 = 0x0004
const Pollerr : uint16 = 0x0008
const Pollhup : uint16 = 0x0010
const Pollnval : uint16 = 0x0020
const Pollnorm : uint16 = 0x0040
const Pollrdband: uint16 = 0x0080
const Pollwrband: uint16 = 0x0100
/* stat modes */
const Sifmt : filemode = 0xf000
const Sififo : filemode = 0x1000
const Sifchr : filemode = 0x2000
const Sifdir : filemode = 0x4000
const Sifblk : filemode = 0x6000
const Sifreg : filemode = 0x8000
const Siflnk : filemode = 0xa000
const Sifsock : filemode = 0xc000
const Sisvtx : filemode = 0x0200
/* mmap protection */
const Mprotnone : mprot = 0x0
const Mprotrd : mprot = 0x1
const Mprotwr : mprot = 0x2
const Mprotexec : mprot = 0x4
const Mprotrw : mprot = 0x3
/* mmap options */
const Mshared : mopt = 0x1
const Mpriv : mopt = 0x2
const Mfixed : mopt = 0x10
const Mfile : mopt = 0x0
const Manon : mopt = 0x1000
const Mstack : mopt = 0x0
const Mnoreplace : mopt = 0x0800
/* file types */
const Dtunknown : filetype = 0
const Dtfifo : filetype = 1
const Dtchr : filetype = 2
const Dtdir : filetype = 4
const Dtblk : filetype = 6
const Dtreg : filetype = 8
const Dtlnk : filetype = 10
const Dtsock : filetype = 12
/* socket families. INCOMPLETE. */
const Afunspec : sockfam = 0
const Afunix : sockfam = 1
const Afinet : sockfam = 2
const Afinet6 : sockfam = 24
/* socket types. */
const Sockstream : socktype = 1
const Sockdgram : socktype = 2
const Sockraw : socktype = 3
const Sockrdm : socktype = 4
const Sockseqpacket : socktype = 5
/* socket options */
const Sodebug : sockopt = 0x0001 /* turn on debugging info recording */
const Soacceptconn : sockopt = 0x0002 /* socket has had listen() */
const Soreuseaddr : sockopt = 0x0004 /* allow local address reuse */
const Sokeepalive : sockopt = 0x0008 /* keep connections alive */
const Sodontroute : sockopt = 0x0010 /* just use interface addresses */
const Sobroadcast : sockopt = 0x0020 /* permit sending of broadcast msgs */
const Souseloopback : sockopt = 0x0040 /* bypass hardware when possible */
const Solinger : sockopt = 0x0080 /* linger on close if data present */
const Sooobinline : sockopt = 0x0100 /* leave received OOB data in line */
const Soreuseport : sockopt = 0x0200 /* allow local address & port reuse */
const Sotimestamp : sockopt = 0x0800 /* timestamp received dgram traffic */
const Sobindany : sockopt = 0x1000 /* allow bind to any address */
const Sosndbuf : sockopt = 0x1001 /* send buffer size */
const Sorcvbuf : sockopt = 0x1002 /* receive buffer size */
const Sosndlowat : sockopt = 0x1003 /* send low-water mark */
const Sorcvlowat : sockopt = 0x1004 /* receive low-water mark */
const Sosndtimeo : sockopt = 0x1005 /* send timeout */
const Sorcvtimeo : sockopt = 0x1006 /* receive timeout */
const Soerror : sockopt = 0x1007 /* get error status and clear */
const Sotype : sockopt = 0x1008 /* get socket type */
const Sonetproc : sockopt = 0x1020 /* multiplex; network processing */
const Sortable : sockopt = 0x1021 /* routing table to be used */
const Sopeercred : sockopt = 0x1022 /* get connect-time credentials */
const Sosplice : sockopt = 0x1023 /* splice data to other socket */
/* socket option levels */
const Solsocket : sockproto = 0xffff
/* network protocols */
const Ipproto_ip : sockproto = 0
const Ipproto_icmp : sockproto = 1
const Ipproto_tcp : sockproto = 6
const Ipproto_udp : sockproto = 17
const Ipproto_raw : sockproto = 255
const Seekset : whence = 0
const Seekcur : whence = 1
const Seekend : whence = 2
/* system specific constants */
const Maxpathlen : size = 1024
/* fcntl constants */
const Fdupfd : fcntlcmd = 0 /* duplicate file descriptor */
const Fgetfd : fcntlcmd = 1 /* get file descriptor flags */
const Fsetfd : fcntlcmd = 2 /* set file descriptor flags */
const Fgetfl : fcntlcmd = 3 /* get file status flags */
const Fsetfl : fcntlcmd = 4 /* set file status flags */
const Fgetown : fcntlcmd = 5 /* get SIGIO/SIGURG proc/pgrp */
const Fsetown : fcntlcmd = 6 /* set SIGIO/SIGURG proc/pgrp */
const Fogetlk : fcntlcmd = 7 /* get record locking information */
const Fosetlk : fcntlcmd = 8 /* set record locking information */
/* return value for a failed mapping */
const Mapbad : byte# = (-1 : byte#)
/* signal flags */
const Saonstack : sigflags = 0x0001 /* take signal on signal stack */
const Sarestart : sigflags = 0x0002 /* restart system on signal return */
const Saresethand : sigflags = 0x0004 /* reset to SIG_DFL when taking signal */
const Sanodefer : sigflags = 0x0010 /* don't mask the signal we're delivering */
const Sanocldwait : sigflags = 0x0020 /* don't create zombies (assign to pid 1) */
const Sanocldstop : sigflags = 0x0008 /* do not generate SIGCHLD on child stop */
const Sasiginfo : sigflags = 0x0040 /* generate siginfo_t */
/* signals */
const Sighup : signo = 1 /* hangup */
const Sigint : signo = 2 /* interrupt */
const Sigquit : signo = 3 /* quit */
const Sigill : signo = 4 /* illegal instruction (not reset when caught) */
const Sigtrap : signo = 5 /* trace trap (not reset when caught) */
const Sigabrt : signo = 6 /* abort() */
const Sigiot : signo = Sigabrt /* compatibility */
const Sigemt : signo = 7 /* EMT instruction */
const Sigfpe : signo = 8 /* floating point exception */
const Sigkill : signo = 9 /* kill (cannot be caught or ignored) */
const Sigbus : signo = 10 /* bus error */
const Sigsegv : signo = 11 /* segmentation violation */
const Sigsys : signo = 12 /* bad argument to system call */
const Sigpipe : signo = 13 /* write on a pipe with no one to read it */
const Sigalrm : signo = 14 /* alarm clock */
const Sigterm : signo = 15 /* software termination signal from kill */
const Sigurg : signo = 16 /* urgent condition on IO channel */
const Sigstop : signo = 17 /* sendable stop signal not from tty */
const Sigtstp : signo = 18 /* stop signal from tty */
const Sigcont : signo = 19 /* continue a stopped process */
const Sigchld : signo = 20 /* to parent on child stop or exit */
const Sigttin : signo = 21 /* to readers pgrp upon background tty read */
const Sigttou : signo = 22 /* like TTIN for output if (tp->t_local<OSTOP) */
const Sigio : signo = 23 /* input/output possible signal */
const Sigxcpu : signo = 24 /* exceeded CPU time limit */
const Sigxfsz : signo = 25 /* exceeded file size limit */
const Sigvtalrm : signo = 26 /* virtual time alarm */
const Sigprof : signo = 27 /* profiling time alarm */
const Sigwinch : signo = 28 /* window size changes */
const Siginfo : signo = 29 /* information request */
const Sigusr1 : signo = 30 /* user defined signal 1 */
const Sigusr2 : signo = 31 /* user defined signal 2 */
const Sigthr : signo = 32 /* thread library AST */
/* syscalls */
const Syssyscall : scno = 0
const Sysexit : scno = 1
const Sysfork : scno = 2
const Sysread : scno = 3
const Syswrite : scno = 4
const Sysopen : scno = 5
const Sysclose : scno = 6
const Sysgetentropy : scno = 7
const Sys__tfork : scno = 8
const Syslink : scno = 9
const Sysunlink : scno = 10
const Syswait4 : scno = 11
const Syschdir : scno = 12
const Sysfchdir : scno = 13
const Sysmknod : scno = 14
const Syschmod : scno = 15
const Syschown : scno = 16
const Sysbreak : scno = 17
const Sysgetdtablecount : scno = 18
const Sysgetrusage : scno = 19
const Sysgetpid : scno = 20
const Sysmount : scno = 21
const Sysunmount : scno = 22
const Syssetuid : scno = 23
const Sysgetuid : scno = 24
const Sysgeteuid : scno = 25
const Sysptrace : scno = 26
const Sysrecvmsg : scno = 27
const Syssendmsg : scno = 28
const Sysrecvfrom : scno = 29
const Sysaccept : scno = 30
const Sysgetpeername : scno = 31
const Sysgetsockname : scno = 32
const Sysaccess : scno = 33
const Syschflags : scno = 34
const Sysfchflags : scno = 35
const Syssync : scno = 36
const Sysstat : scno = 38
const Sysgetppid : scno = 39
const Syslstat : scno = 40
const Sysdup : scno = 41
const Sysfstatat : scno = 42
const Sysgetegid : scno = 43
const Sysprofil : scno = 44
const Sysktrace : scno = 45
const Syssigaction : scno = 46
const Sysgetgid : scno = 47
const Syssigprocmask : scno = 48
const Sysgetlogin : scno = 49
const Syssetlogin : scno = 50
const Sysacct : scno = 51
const Syssigpending : scno = 52
const Sysfstat : scno = 53
const Sysioctl : scno = 54
const Sysreboot : scno = 55
const Sysrevoke : scno = 56
const Syssymlink : scno = 57
const Sysreadlink : scno = 58
const Sysexecve : scno = 59
const Sysumask : scno = 60
const Syschroot : scno = 61
const Sysgetfsstat : scno = 62
const Sysstatfs : scno = 63
const Sysfstatfs : scno = 64
const Sysfhstatfs : scno = 65
const Sysvfork : scno = 66
const Sysgettimeofday : scno = 67
const Syssettimeofday : scno = 68
const Syssetitimer : scno = 69
const Sysgetitimer : scno = 70
const Sysselect : scno = 71
const Syskevent : scno = 72
const Sysmunmap : scno = 73
const Sysmprotect : scno = 74
const Sysmadvise : scno = 75
const Sysutimes : scno = 76
const Sysfutimes : scno = 77
const Sysmincore : scno = 78
const Sysgetgroups : scno = 79
const Syssetgroups : scno = 80
const Sysgetpgrp : scno = 81
const Syssetpgid : scno = 82
const Syssendsyslog : scno = 83
const Sysutimensat : scno = 84
const Sysfutimens : scno = 85
const Syskbind : scno = 86
const Sysclock_gettime : scno = 87
const Sysclock_settime : scno = 88
const Sysclock_getres : scno = 89
const Sysdup2 : scno = 90
const Sysnanosleep : scno = 91
const Sysfcntl : scno = 92
const Sysaccept4 : scno = 93
const Sys__thrsleep : scno = 94
const Sysfsync : scno = 95
const Syssetpriority : scno = 96
const Syssocket : scno = 97
const Sysconnect : scno = 98
const Sysgetdents : scno = 99
const Sysgetpriority : scno = 100
const Syspipe2 : scno = 101
const Sysdup3 : scno = 102
const Syssigreturn : scno = 103
const Sysbind : scno = 104
const Syssetsockopt : scno = 105
const Syslisten : scno = 106
const Syschflagsat : scno = 107
const Systame : scno = 108
const Sysppoll : scno = 109
const Syspselect : scno = 110
const Syssigsuspend : scno = 111
const Sysgetsockopt : scno = 118
const Sysreadv : scno = 120
const Syswritev : scno = 121
const Syskill : scno = 122
const Sysfchown : scno = 123
const Sysfchmod : scno = 124
const Syssetreuid : scno = 126
const Syssetregid : scno = 127
const Sysrename : scno = 128
const Sysflock : scno = 131
const Sysmkfifo : scno = 132
const Syssendto : scno = 133
const Sysshutdown : scno = 134
const Syssocketpair : scno = 135
const Sysmkdir : scno = 136
const Sysrmdir : scno = 137
const Sysadjtime : scno = 140
const Syssetsid : scno = 147
const Sysquotactl : scno = 148
const Sysnfssvc : scno = 155
const Sysgetfh : scno = 161
const Syssysarch : scno = 165
const Syspread : scno = 173
const Syspwrite : scno = 174
const Syssetgid : scno = 181
const Syssetegid : scno = 182
const Sysseteuid : scno = 183
const Syspathconf : scno = 191
const Sysfpathconf : scno = 192
const Sysswapctl : scno = 193
const Sysgetrlimit : scno = 194
const Syssetrlimit : scno = 195
const Sysmmap : scno = 197
const Sys__syscall : scno = 198
const Syslseek : scno = 199
const Systruncate : scno = 200
const Sysftruncate : scno = 201
const Sys__sysctl : scno = 202
const Sysmlock : scno = 203
const Sysmunlock : scno = 204
const Sysgetpgid : scno = 207
const Sysutrace : scno = 209
const Syssemget : scno = 221
const Sysmsgget : scno = 225
const Sysmsgsnd : scno = 226
const Sysmsgrcv : scno = 227
const Sysshmat : scno = 228
const Sysshmdt : scno = 230
const Sysminherit : scno = 250
const Syspoll : scno = 252
const Sysissetugid : scno = 253
const Syslchown : scno = 254
const Sysgetsid : scno = 255
const Sysmsync : scno = 256
const Syspipe : scno = 263
const Sysfhopen : scno = 264
const Syspreadv : scno = 267
const Syspwritev : scno = 268
const Syskqueue : scno = 269
const Sysmlockall : scno = 271
const Sysmunlockall : scno = 272
const Sysgetresuid : scno = 281
const Syssetresuid : scno = 282
const Sysgetresgid : scno = 283
const Syssetresgid : scno = 284
const Sysmquery : scno = 286
const Sysclosefrom : scno = 287
const Syssigaltstack : scno = 288
const Sysshmget : scno = 289
const Syssemop : scno = 290
const Sysfhstat : scno = 294
const Sys__semctl : scno = 295
const Sysshmctl : scno = 296
const Sysmsgctl : scno = 297
const Syssched_yield : scno = 298
const Sysgetthrid : scno = 299
const Sys__thrwakeup : scno = 301
const Sys__threxit : scno = 302
const Sys__thrsigdivert : scno = 303
const Sys__getcwd : scno = 304
const Sysadjfreq : scno = 305
const Syssetrtable : scno = 310
const Sysgetrtable : scno = 311
const Sysfaccessat : scno = 313
const Sysfchmodat : scno = 314
const Sysfchownat : scno = 315
const Syslinkat : scno = 317
const Sysmkdirat : scno = 318
const Sysmkfifoat : scno = 319
const Sysmknodat : scno = 320
const Sysopenat : scno = 321
const Sysreadlinkat : scno = 322
const Sysrenameat : scno = 323
const Syssymlinkat : scno = 324
const Sysunlinkat : scno = 325
const Sys__set_tcb : scno = 329
const Sys__get_tcb : scno = 330
extern const syscall : (sc:scno, args:... -> int64)
/* process control */
const exit : (status:int -> void)
const getpid : ( -> pid)
const kill : (pid:pid, sig:int64 -> int64)
const fork : (-> pid)
const wait4 : (pid:pid, loc:int32#, opt : int64, usage:rusage# -> int64)
const waitpid : (pid:pid, loc:int32#, opt : int64 -> int64)
const execv : (cmd : byte[:], args : byte[:][:] -> int64)
const execve : (cmd : byte[:], args : byte[:][:], env : byte[:][:] -> int64)
/* wrappers to extract wait status */
const waitstatus : (st : int32 -> waitstatus)
extern const __tfork_thread : (tfp : tforkparams#, sz : size, fn : void#, arg : void# -> pid)
/* fd manipulation */
const open : (path:byte[:], opts:fdopt -> fd)
const openmode : (path:byte[:], opts:fdopt, mode:int64 -> fd)
const close : (fd:fd -> int64)
const creat : (path:byte[:], mode:int64 -> fd)
const unlink : (path:byte[:] -> int)
const read : (fd:fd, buf:byte[:] -> size)
const pread : (fd:fd, buf:byte[:], off : off -> size)
const readv : (fd:fd, iov:iovec[:] -> size)
const write : (fd:fd, buf:byte[:] -> size)
const pwrite : (fd:fd, buf:byte[:], off : off -> size)
const writev : (fd:fd, iov:iovec[:] -> size)
const lseek : (fd:fd, off : off, whence : whence -> int64)
const stat : (path:byte[:], sb:statbuf# -> int64)
const lstat : (path:byte[:], sb:statbuf# -> int64)
const fstat : (fd:fd, sb:statbuf# -> int64)
const mkdir : (path : byte[:], mode : int64 -> int64)
generic ioctl : (fd:fd, req : int64, arg:@a# -> int64)
const getdents : (fd : fd, buf : byte[:] -> int64)
const chdir : (p : byte[:] -> int64)
const __getcwd : (buf : byte[:] -> int64)
const poll : (pfd : pollfd[:], tm : int -> int)
/* signals */
const sigaction : (sig : signo, act : sigaction#, oact : sigaction# -> int)
const sigprocmask : (how : int32, set : sigset#, oset : sigset# -> int)
/* fd stuff */
const pipe : (fds : fd[2]# -> int64)
const dup : (fd : fd -> fd)
const dup2 : (src : fd, dst : fd -> fd)
/* NB: the C ABI uses '...' for the args. */
const fcntl : (fd : fd, cmd : fcntlcmd, args : byte# -> int64)
/* networking */
const socket : (dom : sockfam, stype : socktype, proto : sockproto -> fd)
const connect : (sock : fd, addr : sockaddr#, len : size -> int)
const accept : (sock : fd, addr : sockaddr#, len : size# -> fd)
const listen : (sock : fd, backlog : int -> int)
const bind : (sock : fd, addr : sockaddr#, len : size -> int)
const setsockopt : (sock : fd, lev : sockproto, opt : sockopt, val : void#, len : size -> int)
const getsockopt : (sock : fd, lev : sockproto, opt : sockopt, val : void#, len : size# -> int)
/* memory mapping */
const munmap : (addr:byte#, len:size -> int64)
const mmap : (addr:byte#, len:size, prot:mprot, flags:mopt, fd:fd, off:off -> byte#)
/* time - doublecheck if this is right */
const clock_getres : (clk : clock, ts : timespec# -> int32)
const clock_gettime : (clk : clock, ts : timespec# -> int32)
const clock_settime : (clk : clock, ts : timespec# -> int32)
const sleep : (time : uint64 -> int32)
const nanosleep : (req : timespec#, rem : timespec# -> int32)
/* system information */
const uname : (buf : utsname# -> int)
const sysctl : (mib : int[:], \
old : void#, oldsz : size#, \
new : void#, newsz : size# \
-> int)
/* filled by start code */
extern var __cenvp : byte##
;;
/*
wraps a syscall argument, converting it to 64 bits for the syscall function. This is
the same as casting, but more concise than writing a cast to uint64
*/
generic a = {x : @t; -> (x : uint64)}
extern const cstring : (str : byte[:] -> byte#)
extern const alloca : (sz : size -> byte#)
extern const __cenvp : byte##
extern const __freebsd_pipe : (fds : fd[2]# -> int64)
/* process management */
const exit = {status; syscall(Sysexit, a(status))}
const getpid = {; -> (syscall(Sysgetpid, 1) : pid)}
const kill = {pid, sig; -> syscall(Syskill, pid, sig)}
const fork = {; -> (syscall(Sysfork) : pid)}
const wait4 = {pid, loc, opt, usage; -> syscall(Syswait4, pid, loc, opt, usage)}
const waitpid = {pid, loc, opt;
-> wait4(pid, loc, opt, (0 : rusage#))
}
const execv = {cmd, args
var p, cargs, i
/* of course we fucking have to duplicate this code everywhere,
* since we want to stack allocate... */
p = alloca((args.len + 1)*sizeof(byte#))
cargs = (p : byte##)[:args.len + 1]
for i = 0; i < args.len; i++
cargs[i] = cstring(args[i])
;;
cargs[args.len] = (0 : byte#)
-> syscall(Sysexecve, cstring(cmd), a(p), a(__cenvp))
}
const execve = {cmd, args, env
var cargs, cenv, i
var p
/* copy the args */
p = alloca((args.len + 1)*sizeof(byte#))
cargs = (p : byte##)[:args.len]
for i = 0; i < args.len; i++
cargs[i] = cstring(args[i])
;;
cargs[args.len] = (0 : byte#)
/*
copy the env.
of course we fucking have to duplicate this code everywhere,
since we want to stack allocate...
*/
p = alloca((env.len + 1)*sizeof(byte#))
cenv = (p : byte##)[:env.len]
for i = 0; i < env.len; i++
cenv[i] = cstring(env[i])
;;
cenv[env.len] = (0 : byte#)
-> syscall(Sysexecve, cstring(cmd), a(p), a(cenv))
}
/* fd manipulation */
const open = {path, opts; -> (syscall(Sysopen, cstring(path), a(opts), a(0o777)) : fd)}
const openmode = {path, opts, mode; -> (syscall(Sysopen, cstring(path), a(opts), a(mode)) : fd)}
const close = {fd; -> syscall(Sysclose, a(fd))}
const creat = {path, mode; -> (openmode(path, Ocreat | Otrunc | Owronly, mode) : fd)}
const unlink = {path; -> (syscall(Sysunlink, cstring(path)) : int)}
const read = {fd, buf; -> (syscall(Sysread, a(fd), (buf : byte#), a(buf.len)) : size)}
const pread = {fd, buf, off; -> (syscall(Syspread, a(fd), (buf : byte#), a(buf.len), a(off)) : size)}
const readv = {fd, vec; -> (syscall(Sysreadv, a(fd), (vec : iovec#), a(vec.len)) : size)}
const write = {fd, buf; -> (syscall(Syswrite, a(fd), (buf : byte#), a(buf.len)) : size)}
const pwrite = {fd, buf, off; -> (syscall(Syspwrite, a(fd), (buf : byte#), a(buf.len), a(off)) : size)}
const writev = {fd, vec; -> (syscall(Syswritev, a(fd), (vec : iovec#), a(vec.len)) : size)}
const lseek = {fd, off, whence; -> syscall(Syslseek, a(fd), a(off), a(whence))}
const stat = {path, sb; -> syscall(Sysstat, cstring(path), a(sb))}
const lstat = {path, sb; -> syscall(Syslstat, cstring(path), a(sb))}
const fstat = {fd, sb; -> syscall(Sysfstat, a(fd), a(sb))}
const mkdir = {path, mode; -> (syscall(Sysmkdir, cstring(path), a(mode)) : int64)}
generic ioctl = {fd, req, arg; -> (syscall(Sysioctl, a(fd), a(req), a(arg)) : int64)}
const chdir = {dir; -> syscall(Syschdir, cstring(dir))}
const __getcwd = {buf; -> syscall(Sys__getcwd, a(buf), a(buf.len))}
const getdents = {fd, buf; -> (syscall(Sysgetdents, a(buf), a(buf.len)) : int64)}
/* signals */
const sigaction = {sig, act, oact; -> (syscall(Syssigaction, a(sig), a(act), a(oact)) : int)}
const sigprocmask = {sig, act, oact; -> (syscall(Syssigprocmask, a(sig), a(act), a(oact)) : int)}
/* file stuff */
const pipe = {fds; -> syscall(Syspipe, fds)}
const dup = {fd; -> (syscall(Sysdup, a(fd)) : fd)}
const dup2 = {src, dst; -> (syscall(Sysdup2, a(src), a(dst)) : fd)}
const fcntl = {fd, cmd, args; -> syscall(Sysfcntl, a(fd), a(cmd), a(args))}
const poll = {pfd, tm; -> (syscall(Syspoll, (pfd : byte#), a(pfd.len), a(tm)) : int)}
/* networking */
const socket = {dom, stype, proto; -> (syscall(Syssocket, a(dom), a(stype), a(proto)) : fd)}
const connect = {sock, addr, len; -> (syscall(Sysconnect, a(sock), a(addr), a(len)) : int)}
const accept = {sock, addr, len; -> (syscall(Sysaccept, a(sock), a(addr), a(len)) : fd)}
const listen = {sock, backlog; -> (syscall(Syslisten, a(sock), a(backlog)) : int)}
const bind = {sock, addr, len; -> (syscall(Sysbind, a(sock), a(addr), a(len)) : int)}
const setsockopt = {sock, lev, opt, val, len; -> (syscall(Syssetsockopt, a(sock), a(lev), a(opt), a(val), a(len)) : int)}
const getsockopt = {sock, lev, opt, val, len; -> (syscall(Syssetsockopt, a(sock), a(lev), a(opt), a(val), a(len)) : int)}
/* memory management */
const munmap = {addr, len; -> syscall(Sysmunmap, a(addr), a(len))}
const mmap = {addr, len, prot, flags, fd, off;
/* the actual syscall has padding on the offset arg */
-> (syscall(Sysmmap, a(addr), a(len), a(prot), a(flags), a(fd), a(0), a(off)) : byte#)
}
/* time */
const clock_getres = {clk, ts; -> (syscall(Sysclock_getres, clockid(clk), a(ts)) : int32)}
const clock_gettime = {clk, ts; -> (syscall(Sysclock_gettime, clockid(clk), a(ts)) : int32)}
const clock_settime = {clk, ts; -> (syscall(Sysclock_settime, clockid(clk), a(ts)) : int32)}
const sleep = {time
var req, rem
req = [.sec = (time : int64), .nsec = 0]
-> nanosleep(&req, &rem)
}
const nanosleep = {req, rem; -> (syscall(Sysnanosleep, a(req), a(rem)) : int32)}
/* system information */
const uname = {buf
var mib : int[2]
var ret
var sys, syssz
var nod, nodsz
var rel, relsz
var ver, versz
var mach, machsz
ret = 0
mib[0] = 1 /* CTL_KERN */
mib[1] = 1 /* KERN_OSTYPE */
sys = (buf.system[:] : void#)
syssz = buf.system.len
ret = sysctl(mib[:], sys, &syssz, (0 : void#), (0 : size#))
if ret < 0
-> ret
;;
mib[0] = 1 /* CTL_KERN */
mib[1] = 10 /* KERN_HOSTNAME */
nod = (buf.node[:] : void#)
nodsz = buf.node.len
ret = sysctl(mib[:], nod, &nodsz, (0 : void#), (0 : size#))
if ret < 0
-> ret
;;
mib[0] = 1 /* CTL_KERN */
mib[1] = 2 /* KERN_OSRELEASE */
rel = (buf.release[:] : void#)
relsz = buf.release.len
ret = sysctl(mib[:], rel, &relsz, (0 : void#), (0 : size#))
if ret < 0
-> ret
;;
mib[0] = 1 /* CTL_KERN */
mib[1] = 27 /* KERN_OSVERSION */
ver = (buf.version[:] : void#)
versz = buf.version.len
ret = sysctl(mib[:], ver, &versz, (0 : void#), (0 : size#))
if ret < 0
-> ret
;;
mib[0] = 6 /* CTL_HW */
mib[1] = 1 /* HW_MACHINE */
mach = (buf.machine[:] : void#)
machsz = buf.machine.len
ret = sysctl(mib[:], mach, &machsz, (0 : void#), (0 : size#))
if ret < 0
-> ret
;;
-> 0
}
const sysctl = {mib, old, oldsz, new, newsz
/* all args already passed through a() or ar ptrs */
-> (syscall(Sys__sysctl, \
(mib : int#), a(mib.len), old, oldsz, new, newsz) : int)
}
const clockid = {clk
match clk
| `Clockrealtime: -> 0
| `Clockproccputime: -> 2
| `Clockmonotonic: -> 3
| `Clockthreadcputime: -> 4
| `Clockuptime: -> 5
;;
-> -1
}
const waitstatus = {st
if st < 0
-> `Waitfail st
;;
match st & 0o177
| 0: -> `Waitexit (st >> 8)
| 0x7f:-> `Waitstop (st >> 8)
| sig: -> `Waitsig sig
;;
}