@BIF
static EObject group_leader(EObject group_leader, EObject pid) {
EPID p = pid.testPID();
EPID gl = group_leader.testPID();
if (p == null || gl == null) throw ERT.badarg(group_leader, pid);
p.set_group_leader(gl);
return ERT.TRUE;
}
@BIF
public static EObject process_info(EObject pid, EObject what) {
EPID p = pid.testPID();
if (p == null) throw ERT.badarg(pid, what);
// TODO: validate WHAT locally before going remote?
return p.process_info(what);
}
@BIF
public static EAtom check_process_code(EObject pid_arg, EObject mod_arg) {
EPID pid = pid_arg.testPID();
EAtom mod = mod_arg.testAtom();
if (pid == null || mod == null) {
throw ERT.badarg(pid_arg, mod_arg);
}
log.log(Level.FINE, "check_process_code not implemented (" + pid + ", " + mod + ")");
return ERT.FALSE;
}
@BIF
public static EAtom is_process_alive(EObject p) {
EPID pid = p.testPID();
if (pid == null) throw ERT.badarg(p);
return ERT.box(pid.is_alive());
}
@BIF
public static EObject process_info(EObject pid) {
EPID p = pid.testPID();
if (p == null) throw ERT.badarg(pid);
return p.process_info();
}