super dupper system update (it runs)

Test/Hyperion-core-v1.0.0/lib/bit32

@@ -0,0 +1,151 @@
+-- bit32.lua
+-- Full pure-Lua implementation of Lua 5.2 bit32 library
+-- NO Lua 5.3 operators used
+
+local bit32 = {}
+
+local MOD32 = 2^32
+local MOD31 = 2^31
+
+local function norm(x)
+    return x % MOD32
+end
+
+-- Convert number to bit table
+local function tobits(x)
+    x = norm(x)
+    local t = {}
+    for i = 0, 31 do
+        local b = x % 2
+        t[i] = b
+        x = (x - b) / 2
+    end
+    return t
+end
+
+-- Convert bit table to number
+local function frombits(t)
+    local x = 0
+    local p = 1
+    for i = 0, 31 do
+        if t[i] == 1 then
+            x = x + p
+        end
+        p = p * 2
+    end
+    return norm(x)
+end
+
+-- ===== Logical ops =====
+
+function bit32.band(...)
+    local args = {...}
+    if #args == 0 then return 0xFFFFFFFF end
+    local bits = tobits(args[1])
+    for i = 2, #args do
+        local b = tobits(args[i])
+        for j = 0, 31 do
+            bits[j] = (bits[j] == 1 and b[j] == 1) and 1 or 0
+        end
+    end
+    return frombits(bits)
+end
+
+function bit32.bor(...)
+    local args = {...}
+    if #args == 0 then return 0 end
+    local bits = tobits(args[1])
+    for i = 2, #args do
+        local b = tobits(args[i])
+        for j = 0, 31 do
+            bits[j] = (bits[j] == 1 or b[j] == 1) and 1 or 0
+        end
+    end
+    return frombits(bits)
+end
+
+function bit32.bxor(...)
+    local args = {...}
+    if #args == 0 then return 0 end
+    local bits = tobits(args[1])
+    for i = 2, #args do
+        local b = tobits(args[i])
+        for j = 0, 31 do
+            bits[j] = (bits[j] ~= b[j]) and 1 or 0
+        end
+    end
+    return frombits(bits)
+end
+
+function bit32.bnot(x)
+    local bits = tobits(x)
+    for i = 0, 31 do
+        bits[i] = bits[i] == 1 and 0 or 1
+    end
+    return frombits(bits)
+end
+
+-- ===== Shifts =====
+
+function bit32.lshift(x, n)
+    return norm(norm(x) * 2^n)
+end
+
+function bit32.rshift(x, n)
+    return math.floor(norm(x) / 2^n)
+end
+
+function bit32.arshift(x, n)
+    x = norm(x)
+    if x >= MOD31 then
+        return math.floor((x - MOD32) / 2^n)
+    else
+        return math.floor(x / 2^n)
+    end
+end
+
+-- ===== Rotates =====
+
+function bit32.lrotate(x, n)
+    n = n % 32
+    x = norm(x)
+    local left = (x * 2^n) % MOD32
+    local right = math.floor(x / 2^(32 - n))
+    return norm(left + right)
+end
+
+function bit32.rrotate(x, n)
+    n = n % 32
+    x = norm(x)
+    local right = math.floor(x / 2^n)
+    local left = (x * 2^(32 - n)) % MOD32
+    return norm(left + right)
+end
+
+-- ===== Bit fields =====
+
+function bit32.extract(x, field, width)
+    width = width or 1
+    return bit32.band(bit32.rshift(x, field), 2^width - 1)
+end
+
+function bit32.replace(x, v, field, width)
+    width = width or 1
+    local mask = bit32.lshift(2^width - 1, field)
+    x = bit32.band(x, bit32.bnot(mask))
+    return bit32.bor(x, bit32.lshift(v, field))
+end
+
+-- ===== Test =====
+
+function bit32.test(x, ...)
+    local args = {...}
+    for i = 1, #args do
+        if bit32.band(x, args[i]) ~= 0 then
+            return true
+        end
+    end
+    return false
+end
+
+return bit32

Test/Hyperion-core-v1.0.0/lib/crypto/blake2s

@@ -0,0 +1,116 @@
+-- blake2s.lua
+-- Pure Lua 5.2, 32-bit only, supports keyed hashing
+
+local bit32 = require("bit32")
+local band, bor, bxor = bit32.band, bit32.bor, bit32.bxor
+local rshift, lshift = bit32.rshift, bit32.lshift
+
+local MOD32 = 2^32
+
+local function rotr(x, n)
+    return bor(rshift(x, n), lshift(x, 32 - n))
+end
+
+local IV = {
+    0x6A09E667, 0xBB67AE85, 0x3C6EF372, 0xA54FF53A,
+    0x510E527F, 0x9B05688C, 0x1F83D9AB, 0x5BE0CD19
+}
+
+local SIGMA = {
+    {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15},
+    {14,10,4,8,9,15,13,6,1,12,0,2,11,7,5,3},
+    {11,8,12,0,5,2,15,13,10,14,3,6,7,1,9,4},
+    {7,9,3,1,13,12,11,14,2,6,5,10,4,0,15,8},
+    {9,0,5,7,2,4,10,15,14,1,11,12,6,8,3,13},
+    {2,12,6,10,0,11,8,3,4,13,7,5,15,14,1,9},
+    {12,5,1,15,14,13,4,10,0,7,6,3,9,2,8,11},
+    {13,11,7,14,12,1,3,9,5,0,15,4,8,6,2,10},
+    {6,15,14,9,11,3,0,8,12,2,13,7,1,4,10,5},
+    {10,2,8,4,7,6,1,5,15,11,9,14,3,12,13,0}
+}
+
+local function G(v, a, b, c, d, x, y)
+    v[a] = (v[a] + v[b] + x) % MOD32
+    v[d] = rotr(bxor(v[d], v[a]), 16)
+    v[c] = (v[c] + v[d]) % MOD32
+    v[b] = rotr(bxor(v[b], v[c]), 12)
+    v[a] = (v[a] + v[b] + y) % MOD32
+    v[d] = rotr(bxor(v[d], v[a]), 8)
+    v[c] = (v[c] + v[d]) % MOD32
+    v[b] = rotr(bxor(v[b], v[c]), 7)
+end
+
+local function compress(h, block, t, last)
+    local v = {}
+    for i = 1, 8 do v[i] = h[i] end
+    for i = 1, 8 do v[i + 8] = IV[i] end
+
+    v[13] = bxor(v[13], t)
+    if last then
+        v[15] = bxor(v[15], 0xFFFFFFFF)
+    end
+
+    local m = {}
+    for i = 0, 15 do
+        local p = i * 4 + 1
+        m[i] =
+            (block:byte(p) or 0) +
+            ((block:byte(p + 1) or 0) * 0x100) +
+            ((block:byte(p + 2) or 0) * 0x10000) +
+            ((block:byte(p + 3) or 0) * 0x1000000)
+    end
+
+    for r = 1, 10 do
+        local s = SIGMA[r]
+        G(v,1,5,9,13,  m[s[1]],  m[s[2]])
+        G(v,2,6,10,14, m[s[3]],  m[s[4]])
+        G(v,3,7,11,15, m[s[5]],  m[s[6]])
+        G(v,4,8,12,16, m[s[7]],  m[s[8]])
+        G(v,1,6,11,16, m[s[9]],  m[s[10]])
+        G(v,2,7,12,13, m[s[11]], m[s[12]])
+        G(v,3,8,9,14,  m[s[13]], m[s[14]])
+        G(v,4,5,10,15, m[s[15]], m[s[16]])
+    end
+
+    for i = 1, 8 do
+        h[i] = bxor(h[i], v[i], v[i + 8])
+    end
+end
+
+local function blake2s(msg, key)
+    key = key or ""
+
+    local h = {}
+    for i = 1, 8 do h[i] = IV[i] end
+
+    local outlen = 32 -- bytes
+    h[1] = bxor(
+        h[1],
+        0x01010000 + lshift(#key, 8) + outlen
+    )
+
+    local t = 0
+
+    if #key > 0 then
+        local block = key .. string.rep("\0", 64 - #key)
+        t = #key
+        compress(h, block, t, false)
+    end
+
+    for i = 1, #msg, 64 do
+        local block = msg:sub(i, i + 63)
+        if #block < 64 then
+            block = block .. string.rep("\0", 64 - #block)
+        end
+        t = t + math.min(64, #msg - i + 1)
+        compress(h, block, t, i + 64 > #msg)
+    end
+
+    local out = ""
+    for i = 1, 8 do
+        out = out .. string.format("%08x", h[i])
+    end
+    return out
+end
+
+return blake2s

Test/Hyperion-core-v1.0.0/lib/store/deflate

@@ -1,9 +1,9 @@
-local deflate=require("LibDeflate")
-local lib={}
-lib.compress=function(data)
-    return deflate:CompressDeflate(data)
-end
-lib.decompress=function(data)
-    return deflate:DecompressDeflate(data)
-end
+local deflate=require("LibDeflate")
+local lib={}
+lib.compress=function(data)
+    return deflate:CompressDeflate(data)
+end
+lib.decompress=function(data)
+    return deflate:DecompressDeflate(data)
+end
 return lib

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

@@ -1,138 +1,139 @@
-local fs={}
-
--- 1 : open
--- 2 : read
--- 3 : write
--- 4 : close
-
-function fs.open(path, mode)
-    local fd=cororoutine.yield(1,path,mode)
-    local ret={
-        close=function()
-            -- close file
-            return coroutine.yield(4,fd)
-        end,
-        flush=function()
-            -- close and reopen file to flush buffers
-            coroutine.yield(4,fd)
-            fd=coroutine.yield(1,path,mode)
-        end
-    }
-    if mode=="r" then
-        ret.read=function(count)
-            return coroutine.yield(2,fd,count)
-        end
-        ret.readAll=function()
-            local chunks={} -- to store read chunks
-            while true do
-                local chunk=coroutine.yield(2,fd,math.huge)
-                if chunk==nil or #chunk==0 then break end
-                table.insert(chunks,chunk)
-            end
-            return table.concat(chunks)
-        end
-        ret.readLine = function()
-            local buffer = {}                -- stores leftover data
-            local buffer_str = ""            -- concatenated buffer
-            local chunk_size = 4096          -- 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 = coroutine.yield(2, 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 coroutine.yield(3,fd,data)
-        end
-    elseif mode=="a" then
-        ret.write=function(data)
-            -- append data to file
-            return coroutine.yield(3,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)
-    coroutine.yield(8,path)
-end
-
-function fs.remove(path)
-    coroutine.yield(9,path)
-end
-
-function fs.list(path)
-    return coroutine.yield(5,path)
-end
-
-function fs.type(path)
-    return coroutine.yield(6,path)
-end
-
-function fs.attributes(path)
-    return coroutine.yield(7,path)
-end
-
-function fs.exists(path)
-    return coroutine.yield(10, path)
-end
-
-function fs.getcwd()
-    return coroutine.yield(11)
-end
-
-function fs.setcwd(path)
-    return coroutine.yield(12, path)
-end
-
+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

@@ -1,74 +1,57 @@
-local sys = {}
-local fs = require("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 pid = coroutine.yield(0x10, func, name, envars, args)
-    local oldsignal = sys.getSignalHandler(17)
-    local exit = false
-    sys.setSignalHandler(17, function()
-        local tasks = sys.getChildrenTasks(pid)
-        if not tasks[pid] then
-            exit = true
-        end
-    end)
-    while not exit do
-        coroutine.yield()
-    end
-    sys.setSignalHandler(17, oldsignal)
-    return pid
-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(0x14, code)
-end
-
-function sys.setSignalHandler(signal, func)
-    return coroutine.yield(0x11, signal, func)
-end
-
-function sys.sendSignal(pid, signal)
-    return coroutine.yield(0x12, pid, signal)
-end
-
-function sys.getSignalHandler(signal)
-    return coroutine.yield(0x13, signal)
-end
-
-function sys.getChildrenTasks(PID)
-    PID = PID or sys.getCurrentTaskID()
-    return coroutine.yield(0x15, PID)
-end
-
-function sys.getCurrentTaskID()
-    return coroutine.yield(0x16)
-end
-
+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

Test/Hyperion-core-v1.0.0/lib/userdata

@@ -1,11 +0,0 @@
-local userdata={}
-userdata.policy={}
-userdata.policy.readOnly=1
-userdata.policy.readWrite=2
-userdata.policy.WriteOnly=3
-userdata.policy.hidden=4
-userdata.policy.custom=5
-
-function userdata.create()
-    return setmetatable()
-end