module os

#include <sys/ptrace.h>

fn C.ptrace(i32, u32, voidptr, i32) i32

// debugger_present returns a bool indicating if the process is being debugged.
pub fn debugger_present() bool {
    $if freebsd {
        // check if a child process could trace its parent process,
        // if not a debugger must be present
        pid := fork()
        if pid == 0 {
            ppid := getppid()
            if C.ptrace(C.PT_TRACE_ME, ppid, unsafe { nil }, 0) == 0 {
                C.waitpid(ppid, 0, 0)

                // detach ptrace, otherwise further checks would indicate a debugger is present (ptrace is the Debugger then)
                C.ptrace(C.PT_DETACH, ppid, 0, 0)

                // no external debugger
                exit(0)
            } else {
                // an error occurred, a external debugger must be present
                exit(1)
            }
        } else {
            mut status := 0
            // wait until the child process dies
            C.waitpid(pid, &status, 0)
            // check the exit code of the child process check
            if posix_wait_status_exit_code(status) == 0 {
                return false
            } else {
                return true
            }
        }
    }
    return false
}