#include <sys/ptrace.h>
#include <caml/mlvalues.h>
#include <caml/unixsupport.h>
CAMLprim value magic_ptrace_traceme(void) {
return Val_bool(!ptrace(PTRACE_TRACEME, 0, NULL, NULL));
}
CAMLprim value magic_ptrace_detach(value v_pid) {
ptrace(PTRACE_DETACH, Long_val(v_pid), NULL, NULL);
return Val_unit;
}