Aren
/
toaruos
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

kuroko: add waitpid bindings (temporary; should be in 'os')

This commit is contained in:
K. Lange 2022-08-17 19:31:33 +09:00
parent 77651130e6
commit 89325bb409
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lib/kuroko/_waitpid.c Normal file
View File

@ -0,0 +1,42 @@
#include <errno.h>
#include <string.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <kuroko/kuroko.h>
#include <kuroko/vm.h>
#include <kuroko/util.h>
KRK_Function(waitpid) {
int pid = -1;
int options = 0;
if (!krk_parseArgs("|ii",(const char*[]){"pid","options"}, &pid, &options)) return NONE_VAL();
int status = 0;
pid_t result = waitpid(pid, &status, options);
if (result == -1) {
return krk_runtimeError(KRK_EXC(OSError), "%s", strerror(errno));
}
krk_push(OBJECT_VAL(krk_newTuple(2)));
AS_TUPLE(krk_peek(0))->values.values[0] = INTEGER_VAL(result);
AS_TUPLE(krk_peek(0))->values.values[1] = INTEGER_VAL(status);
AS_TUPLE(krk_peek(0))->values.count = 2;
return krk_pop();
}
KrkValue krk_module_onload__waitpid(void) {
KrkInstance * module = krk_newInstance(KRK_BASE_CLASS(module));
krk_push(OBJECT_VAL(module));
BIND_FUNC(module,waitpid);
#define BIND_CONST(name) krk_attachNamedValue(&module->fields, #name, INTEGER_VAL(name))
BIND_CONST(WNOHANG);
BIND_CONST(WUNTRACED);
BIND_CONST(WSTOPPED);
BIND_CONST(WNOKERN);
return krk_pop();
}