fix: inherit process environment and untrack libc objects

kernel/src/Api/Process.hpp

@@ -43,14 +43,16 @@ namespace montauk::abi {
         return Sched::LookupExitCode(pid);
     }
 
-    static int Sys_Spawn(const char* path, const char* args) {
+    static int Sys_Spawn(const char* path, const char* args,
+                         const char* environment = nullptr, uint32_t environmentLength = 0) {
         char resolved[256];
         if (!ResolveProcessPath(path, resolved, sizeof(resolved))) return -1;
 
         auto* parent = Sched::GetCurrentProcessPtr();
         int parentSlot = Ipc::CurrentSlot();
         bool inheritRedirection = parent && parent->redirected;
-        int childPid = Sched::Spawn(resolved, args, !inheritRedirection);
+        int childPid = Sched::Spawn(resolved, args, !inheritRedirection,
+                                    environment, environmentLength);
         if (childPid < 0) return childPid;
 
         if (inheritRedirection) {
@@ -107,6 +109,24 @@ namespace montauk::abi {
         return i;
     }
 
+    static int Sys_GetEnviron(char* buf, uint64_t maxLen) {
+        auto* proc = Sched::GetCurrentProcessPtr();
+        if (proc == nullptr || buf == nullptr || maxLen == 0) return -1;
+        if (maxLen < proc->environmentLength) return -2;
+        for (uint32_t i = 0; i < proc->environmentLength; i++)
+            buf[i] = proc->environment[i];
+        return (int)proc->environmentLength;
+    }
+
+    static int Sys_SetEnviron(const char* buf, uint64_t len) {
+        auto* proc = Sched::GetCurrentProcessPtr();
+        if (proc == nullptr || buf == nullptr || len == 0 ||
+            len > Sched::Process::EnvironmentBytes || buf[len - 1] != '\0') return -1;
+        for (uint64_t i = 0; i < len; i++) proc->environment[i] = buf[i];
+        proc->environmentLength = (uint32_t)len;
+        return 0;
+    }
+
     static int Sys_ProcList(ProcInfo* buf, int maxCount) {
         if (buf == nullptr || maxCount <= 0) return 0;
         int count = 0;