super dupper system update (it runs)

Test/Hyperion-core-v1.0.0/lib/sys/fs

@@ -0,0 +1,139 @@
+local fs={}
+
+-- "VFS_open" : open
+-- "VFS_read" : read
+-- "VFS_write" : write
+-- "VFS_close" : close
+
+function fs.open(path, mode)
+    local fd=syscall.VFS_open(path,mode)
+    local ret={
+        close=function()
+            -- close file
+            return syscall.VFS_close(fd)
+        end,
+        flush=function()
+            -- close and reopen file to flush buffers
+            syscall.VFS_close(fd)
+            fd=syscall.VFS_open(path,mode)
+        end
+    }
+    if mode=="r" then
+        ret.read=function(count)
+            local data = syscall.VFS_read(fd,count)
+            return data
+        end
+        ret.readAll=function(chunkSize)
+            local chunks={} -- to store read chunks
+            while true do
+                local chunk=syscall.VFS_read(fd,chunkSize or 65536)
+                if chunk==nil or #chunk==0 then break end
+                table.insert(chunks,chunk)
+            end
+            return table.concat(chunks)
+        end
+        ret.readLine = function(chunkSize)
+            local buffer = {}                -- stores leftover data
+            local buffer_str = ""            -- concatenated buffer
+            local chunk_size = chunkSize or 65536          -- adjust chunk size for performance
+            local eof = false
+
+            while true do
+                -- Try to find a newline in the current buffer
+                local line_end = buffer_str:find("\n")
+                if line_end then
+                    local line = buffer_str:sub(1, line_end - 1)
+                    buffer_str = buffer_str:sub(line_end + 1)
+                    return line
+                end
+            
+                -- If EOF was reached previously and buffer is empty, stop
+                if eof then
+                    if buffer_str ~= "" then
+                        local last_line = buffer_str
+                        buffer_str = ""
+                        return last_line
+                    else
+                        return nil
+                    end
+                end
+            
+                -- Read the next chunk
+                local chunk = syscall.VFS_read(fd, chunk_size)
+                if not chunk or chunk == "" then
+                    eof = true
+                else
+                    buffer_str = buffer_str .. chunk
+                end
+            end
+        end
+    elseif mode=="w" then
+        ret.write=function(data)
+            -- write data to file
+            return syscall.VFS_write(fd,data)
+        end
+    elseif mode=="a" then
+        ret.write=function(data)
+            -- append data to file
+            return syscall.VFS_write(fd,data)
+        end
+    else
+        error("Invalid mode '"..mode.."'",2)
+    end
+    return ret
+end
+
+function fs.readAllText(path)
+    local file=fs.open(path,"r")
+    if not file then return false end
+    local content=file.readAll()
+    file.close()
+    return content
+end
+
+function fs.writeAllText(path, data)
+    local file=fs.open(path,"w")
+    file.write(data)
+    file.close()
+end
+
+function fs.appendAllText(path, data)
+    local file=fs.open(path,"a")
+    if not file then return false end
+    file.write(data)
+    file.close()
+end
+
+function fs.mkdir(path)
+    return syscall.VFS_mkdir(path)
+end
+
+function fs.remove(path)
+    return syscall.VFS_remove(path)
+end
+
+function fs.list(path)
+    return syscall.VFS_list(path)
+end
+
+function fs.type(path)
+    return syscall.VFS_type(path)
+end
+
+function fs.attributes(path)
+    return syscall.VFS_attributes(path)
+end
+
+function fs.exists(path)
+    return syscall.VFS_exists(path)
+end
+
+function fs.getcwd()
+    return syscall.VFS_getcwd()
+end
+
+function fs.setcwd(path)
+    return syscall.VFS_setcwd(path)
+end
+
+return fs

Test/Hyperion-core-v1.0.0/lib/sys/hpv

@@ -0,0 +1,57 @@
+local sys = {}
+local fs = require("sys.fs")
+
+function sys.spawn(func, name, envars, args)
+    return coroutine.yield(0x10, func, name, envars, args)
+end
+
+function sys.spawnFromFile(path, name, envars, args)
+    local data = fs.readAllText(path)
+    if not data then
+        error("File not found: "..path,2)
+    end
+    local func, err = load(data, "@"..path)
+    if not func then
+        error("Error loading file "..path..": "..tostring(err),2)
+    end
+    return coroutine.yield(0x10, func, name, envars, args)
+end
+
+function sys.spawnAndWait(func, name, envars, args)
+    local task = coroutine.yield(0x10, func, name, envars, args)
+    local oldsignal = sys.getSignalHandler(17)
+    local exit = false
+    sys.setSignalHandler(17, function()
+        local tasks = sys.getChildrenTasks(task)
+        if not tasks[task] then
+            exit = true
+        end
+    end)
+    while not exit do
+        coroutine.yield()
+    end
+    sys.setSignalHandler(17, oldsignal)
+    return task
+end
+
+function sys.spawnFromFileAndWait(path, name, envars, args)
+    local data = fs.readAllText(path)
+    if not data then
+        error("File not found: "..path,2)
+    end
+    local func, err = load(data, "@"..path)
+    if not func then
+        error("Error loading file "..path..": "..tostring(err),2)
+    end
+    return sys.spawnAndWait(func, name, envars, args)
+end
+
+function sys.exit(code)
+    return coroutine.yield(0x11, code)
+end
+
+function sys.getTaskInfo(task)
+    return coroutine.yield(0x12, task)
+end
+
+return sys

Test/Hyperion-core-v1.0.0/lib/sys/init

@@ -0,0 +1,5 @@
+local sys = {}
+sys.fs = require("sys.fs")
+sys.hpv = require("sys.hpv")
+sys.ipc = require("sys.ipc")
+return sys

Test/Hyperion-core-v1.0.0/lib/sys/ipc

@@ -0,0 +1,3 @@
+local ipc = {}
+
+return ipc

Test/Hyperion-core-v1.0.0/lib/sys/term

@@ -0,0 +1,71 @@
+local term = {}
+
+function term.clear()
+    coroutine.yield("VFS_write", 1, "\27C\25")
+end
+
+function term.setCursorPos(x, y)
+    coroutine.yield("VFS_write", 1, "\27cs"..tostring(y)..";"..tostring(x).."\25")
+end
+
+function term.size()
+    coroutine.yield("VFS_write", 1, "\27ts\25")
+    local ok, data = coroutine.yield("VFS_read", 0, 16) -- read response
+    if not ok then error("Failed to get terminal size") end
+    local x, y = string.match(data, "%R(%d+);(%d+)\25")
+    return tonumber(x), tonumber(y)
+end
+
+function term.getCursorPos()
+    coroutine.yield("VFS_write", 1, "\27gc\25")
+    local ok, data = coroutine.yield("VFS_read", 0, 16) -- read response
+    if not ok then error("Failed to get cursor position") end
+    local y, x = string.match(data, "%R(%d+);(%d+)\25")
+    return tonumber(x), tonumber(y)
+end
+
+function term.write(data)
+    coroutine.yield("VFS_write", 1, data)
+end
+
+function term.setTextColor(color)
+    local ok, err = coroutine.yield("VFS_type", 1)
+    if not ok then error(err) end
+    if ok ~= "tty" then return end
+    coroutine.yield("VFS_write", 1, "\27f"..tostring(color).."\25")
+end
+
+function term.setBackgroundColor(color)
+    local ok, err = coroutine.yield("VFS_type", 1)
+    if not ok then error(err) end
+    if ok ~= "tty" then return end
+    coroutine.yield("VFS_write", 1, "\27b"..tostring(color).."\25")
+end
+
+function term.isColor()
+    local ok, err = coroutine.yield("VFS_type", 1)
+    if not ok then error(err) end
+    return ok == "tty"
+end
+
+function term.scroll(n)
+    coroutine.yield("VFS_write", 1, "\27S"..tostring(n).."\25")
+end
+
+function term.setDefault(color, layer)
+    if layer then
+        coroutine.yield("VFS_write", 1, "\27F"..tostring(color).."\25")
+    else
+        coroutine.yield("VFS_write", 1, "\27B"..tostring(color).."\25")
+    end
+end
+
+function term.showCursor(show)
+    if show then
+        coroutine.yield("VFS_write", 1, "\27sc\25")
+    else
+        coroutine.yield("VFS_write", 1, "\27hc\25")
+    end
+end
+
+return term