Initial project import

tools/v/vlib/os/debugger_freebsd.c.v

@@ -0,0 +1,40 @@
+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
+}