mirror of
https://github.com/20kdc/OC-KittenOS.git
synced 2024-11-30 14:18:06 +11:00
38 lines
1.4 KiB
Lua
38 lines
1.4 KiB
Lua
|
-- This is released into the public domain.
|
||
|
|
-- No warranty is provided, implied or otherwise.
|
||
|
|
|
||
|
|
-- app-allmem.lua : Memory usage tester
|
||
|
|
-- Authors: 20kdc
|
||
|
|
|
||
|
|
local value, w = 0
|
||
|
|
-- Use an event to cleanup load costs
|
||
|
|
-- We don't care about this event
|
||
|
|
neo.scheduleTimer(0)
|
||
|
|
coroutine.yield()
|
||
|
|
|
||
|
|
-- Run memory test
|
||
|
|
pcall(function ()
|
||
|
|
local data = ""
|
||
|
|
while true do
|
||
|
|
data = data .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1) .. string.char(math.random(256) - 1)
|
||
|
|
-- NOTE: we do not #data outside because that would allow it to live too long
|
||
|
|
value = value + 16
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
|
||
|
|
value = math.floor(value / 102.4) / 10
|
||
|
|
|
||
|
|
value = tostring(value) .. "KiB remaining"
|
||
|
|
w = neo.requireAccess("x.neo.pub.window", "Windowing")(#value, 1)
|
||
|
|
while true do
|
||
|
|
local ev, a, b = coroutine.yield()
|
||
|
|
if ev == "x.neo.pub.window" then
|
||
|
|
if b == "line" then
|
||
|
|
w.span(1, 1, value, 0xFFFFFF, 0)
|
||
|
|
elseif b == "close" then
|
||
|
|
w.close()
|
||
|
|
return
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|