YARUPACK 1 325 1354949
D /bin
D /boot
D /etc
D /etc/rc.d
D /home
D /home/Music
D /home/Pictures
D /home/Videos
D /home/Videos/demo
D /home/Videos/demo-hd
D /lib
D /lib/core
D /lib/core/devfs
D /lib/core/devfs/adapters
D /lib/tools
D /lib/yaru
D /mnt
D /usr
D /usr/man
D /usr/misc
D /usr/share
D /usr/share/applications
D /usr/share/doc
D /usr/share/doc/composer
D /usr/share/doc/ocbrowser
D /usr/share/doc/ocv
D /usr/share/doc/pictures
D /usr/share/optimize
D /usr/share/optimize/orig
D /usr/share/optimize/orig/boot
D /usr/share/optimize/orig/etc
D /usr/share/optimize/orig/lib
D /usr/share/yaru
D /usr/share/yaru/apps
D /usr/share/yaru/icons
D /usr/share/yaru/shell
F 791 /init.lua
do
local addr,invoke=computer.getBootAddress(),component.invoke
local function loadfile(file)
local handle=assert(invoke(addr,"open",file))
local buffer,n={},0
repeat
local data=invoke(addr,"read",handle,math.maxinteger or math.huge)
n=n+1
buffer[n]=data
until not data
invoke(addr,"close",handle)
return load(table.concat(buffer),"="..file,"bt",_G)
end
loadfile("/lib/core/boot.lua")(loadfile)
end



do
local f=loadfile("/lib/yaru/autostart.lua")
if f then f()end
end

while true do
local result,reason=xpcall(require("shell").getShell(),function(msg)
return tostring(msg).."\n"..debug.traceback()
end)
if not result then
io.stderr:write((reason~=nil and tostring(reason)or"unknown error").."\n")
io.write("Press any key to continue.\n")
os.sleep(0.5)
require("event").pull("key")
end
end
F 69 /bin/address.lua
local computer=require("computer")
io.write(computer.address(),"\n")
F 1126 /bin/alias.lua
local shell=require("shell")
local args,options=shell.parse(...)

local ec,error_prefix=0,"alias:"

if options.help then
print(string.format("Usage: alias: [name[=value] ... ]"))
return
end

local function validAliasName(k)
return k:match("[/%$`=|&;%(%)<> \t]")==nil
end

local function setAlias(k,v)
if not validAliasName(k)then
io.stderr:write(string.format("%s `%s': invalid alias name\n",error_prefix,k))
else
shell.setAlias(k,v)
end
end

local function printAlias(k)
local v=shell.getAlias(k)
if not v then
io.stderr:write(string.format("%s %s: not found\n",error_prefix,k))
ec=1
else
io.write(string.format("alias %s='%s'\n",k,v))
end
end

local function splitPair(arg)
local matchBegin,matchEnd=arg:find("=")
if matchBegin==nil or matchBegin==1 then
return arg
else
return arg:sub(1,matchBegin-1),arg:sub(matchEnd+1)
end
end

local function handlePair(k,v)
if v then
return setAlias(k,v)
else
return printAlias(k)
end
end

if not next(args)then

for k,v in shell.aliases()do
print(string.format("alias %s='%s'",k,v))
end
else
for _,v in ipairs(args)do
checkArg(1,v,"string")
handlePair(splitPair(v))
end
end

return ec
F 674 /bin/backup.lua



local B=require("yaru.backuplib")
local args,opts=require("shell").parse(...)
local cfg=B.config()
if not cfg.dst then io.stderr:write("backup: no destination set (open the Backups app)\n")return 1 end
if opts.list then
for _,s in ipairs(B.snapshots(cfg.dst))do local i=B.info(cfg.dst,s)print(s,(i.files or"?").." files")end
return
end
local stamp=os.date("%Y-%m-%d_%H%M%S")
local n,b=B.run(cfg,nil,stamp)
if not n then io.stderr:write("backup failed: "..tostring(b).."\n")return 1 end
print(string.format("backup %s: %d files, %d bytes",stamp,n,b))
local core=package.loaded["yaru.core"]
if core and core.running then core.notify("Backup finished",n.." files saved")end
F 9066 /bin/browser.lua






local component=require("component")
local computer=require("computer")
local event=require("event")
local keyboard=require("keyboard")
local term=require("term")
local unicode=require("unicode")
local fs=require("filesystem")
local shell=require("shell")
local W=require("ocweb")

local gpu=component.gpu
local inet=component.isAvailable("internet")and component.internet or nil
local args=shell.parse(...)

local SW,SH=gpu.getResolution()
local C={
bar=0x16213e,urlBox=0x0f3460,urlFocus=0x533483,urlText=0xe0e0e0,btnFg=0xffffff,off=0x6c7086,
accent=0x533483,pageBg=0x1e1e2e,status=0xa6adc8,scrollbar=0x313244,scrollFg=0x585b70,sel=0x533483,
find=0x45475a,
}
local PAGE_COLORS={text=0xcdd6f4,heading=0xcba6f7,link=0x89b4fa,dim=0x6c7086,accent=0xf5c2e7,
code=0xa6e3a1,strong=0xffffff,em=0xf9e2af}

local PAGE_Y=4
local PAGE_H=SH-PAGE_Y+1
local PAGE_W=SW-1
local BTN={{" ◄ ","back",2},{" ► ","fwd",6},{" ↺ ","reload",10},{" ⌂ ","home",14},{" ◇ ","mark",18}}
local URL_X,URL_W=23,SW-26
local GO_X=SW-2

local ui={editing=false,addr="",cur=0,find=nil,findLine=nil,dirtyBar=true,dirtyPage=true}
local S=W.session{inet=inet,width=PAGE_W-1,colors=PAGE_COLORS,
onChange=function()ui.dirtyBar,ui.dirtyPage=true,true end,
download=function(u,body)
fs.makeDirectory("/home/Downloads")
local name=(u:match("([^/?#]+)[?#]?[^/]*$")or"download"):gsub("[^%w%._%-]","_")
local f=io.open("/home/Downloads/"..name,"wb")
if f then f:write(body or"");f:close()end
S.status="Saved /home/Downloads/"..name
end}


local function set(x,y,s,fg,bg)if bg then gpu.setBackground(bg)end if fg then gpu.setForeground(fg)end gpu.set(x,y,s)end
local function clamp(s,w)if unicode.len(s)<=w then return s end return unicode.sub(s,1,math.max(0,w-1)).."…"end

local function drawBar()
gpu.setBackground(C.bar)
gpu.fill(1,1,SW,3," ")
set(2,1,clamp(S.title or"OCBrowser",SW-2),C.status,C.bar)
for _,b in ipairs(BTN)do
local on=(b[2]~="back"or#S.back>0)and(b[2]~="fwd"or#S.fwd>0)
local label=b[2]=="reload"and S.job and" × "or b[2]=="mark"and(S.isBookmarked()and" ◆ "or" ◇ ")or b[1]
set(b[3],2,label,on and C.btnFg or C.off,C.urlBox)
end
local bg=ui.editing and C.urlFocus or C.urlBox
gpu.setBackground(bg)
gpu.fill(URL_X,2,URL_W,1," ")
local text=ui.editing and ui.addr or S.url
local off=ui.editing and math.max(0,ui.cur-(URL_W-3))or 0
set(URL_X+1,2,clamp(unicode.sub(text,off+1),URL_W-2),C.urlText,bg)
if ui.editing then
local ch=unicode.sub(ui.addr,ui.cur+1,ui.cur+1)
set(URL_X+1+ui.cur-off,2,ch==""and" "or ch,bg,C.urlText)
end
set(GO_X,2," ▶",C.btnFg,C.accent)

gpu.setBackground(C.bar)
local status=ui.find and("Find: "..ui.find.."_   (Enter next, Esc close)")or(S.status or"")
local sel=S.page and S.page.links[S.sel or 0]
if sel and not ui.find then status="→ "..W.resolve(S.url,sel.href)end
set(2,3,clamp(status,SW-24),C.status,C.bar)
if S.job then
local bw=20
local p=S.job.progress or((computer.uptime()*0.7)%1)
local n=math.floor((bw-2)*p)
set(SW-bw,3,"["..string.rep("■",n)..string.rep(" ",bw-2-n).."]",C.status,C.bar)
end
end

local function drawPage()
gpu.setBackground(C.pageBg)
gpu.fill(1,PAGE_Y,PAGE_W,PAGE_H," ")
local page=S.page
if not page then return end
local lines=page.lines
S.scroll=math.max(0,math.min(S.scroll or 0,math.max(0,#lines-PAGE_H)))
local sel=page.links[S.sel or 0]
for row=1,PAGE_H do
local li=S.scroll+row
local line=lines[li]
if not line then break end
local y=PAGE_Y+row-1
local rowBg=ui.findLine==li and C.find or C.pageBg
if rowBg~=C.pageBg then gpu.setBackground(rowBg);gpu.fill(1,y,PAGE_W,1," ")end
local x=2+(line.indent or 0)
for _,seg in ipairs(line.segs)do
local isSel=sel and seg.href and sel.line==li and sel.href==seg.href
set(x,y,seg.text,isSel and 0xffffff or seg.fg or PAGE_COLORS.text,isSel and C.sel or rowBg)
x=x+unicode.len(seg.text)
end
end

gpu.setBackground(C.scrollbar)
gpu.fill(SW,PAGE_Y,1,PAGE_H," ")
if#lines>PAGE_H then
local h=math.max(1,PAGE_H*PAGE_H//#lines)
local y=(PAGE_H-h)*S.scroll//math.max(1,#lines-PAGE_H)
gpu.setBackground(C.scrollFg)
gpu.fill(SW,PAGE_Y+y,1,h," ")
end
end

local function redraw()
if ui.dirtyBar then drawBar();ui.dirtyBar=false end
if ui.dirtyPage then drawPage();ui.dirtyPage=false end
end
local function dirty(page)ui.dirtyBar=true;if page then ui.dirtyPage=true end end


local function scrollBy(n)if S.page then S.scroll=(S.scroll or 0)+n;dirty(true)end end
local function selectLink(dir)
local links=S.page and S.page.links or{}
if#links==0 then return end
S.sel=((S.sel or 0)-1+dir)%#links+1
local li=links[S.sel].line
if li<=S.scroll then S.scroll=li-1 elseif li>S.scroll+PAGE_H then S.scroll=li-PAGE_H end
dirty(true)
end
local function follow(href)if href then ui.editing=false;S.navigate(W.resolve(S.url,href));dirty(true)end end
local function editAddress()ui.editing,ui.addr=true,S.url;ui.cur=unicode.len(ui.addr);dirty()end
local function findNext()
local i=S.find(ui.find or"",ui.findLine or S.scroll)
ui.findLine=i
if i then S.scroll=math.max(0,i-3)end
dirty(true)
end
local function savePage()
fs.makeDirectory("/home/Downloads")
local p="/home/Downloads/"..((S.title or"page"):gsub("[^%w%-_]","_"):sub(1,24))..".html"
local f=io.open(p,"w")
if f then f:write(S.body or"");f:close();S.status="Saved "..p end
dirty()
end

local function onClick(x,y,btn)
if y==2 then
for _,b in ipairs(BTN)do
if x>=b[3]and x<b[3]+3 then
if b[2]=="back"then S.goBack()elseif b[2]=="fwd"then S.goForward()
elseif b[2]=="reload"then if S.job then S.stop()else S.reload()end
elseif b[2]=="home"then S.navigate("about:home")
else S.toggleBookmark()end
ui.editing=false
return dirty(true)
end
end
if x>=URL_X and x<URL_X+URL_W then return editAddress()end
if x>=GO_X then if ui.editing then ui.editing=false;S.navigate(ui.addr)end return dirty(true)end
end
if y>=PAGE_Y and S.page then
local li=(S.scroll or 0)+y-PAGE_Y+1
for _,l in ipairs(S.page.links)do
if l.line==li and x-2>=l.x1 and x-2<l.x2 then return follow(l.href)end
end
end
if ui.editing then ui.editing=false;dirty()end
end

local function onKey(char,code)
local K=keyboard.keys
local ctrl,alt=keyboard.isControlDown(),keyboard.isAltDown()
if ui.editing then
if code==K.enter then ui.editing=false;S.navigate(ui.addr)
elseif code==K.escape then ui.editing=false
elseif code==K.back then if ui.cur>0 then ui.addr=unicode.sub(ui.addr,1,ui.cur-1)..unicode.sub(ui.addr,ui.cur+1);ui.cur=ui.cur-1 end
elseif code==K.delete then ui.addr=unicode.sub(ui.addr,1,ui.cur)..unicode.sub(ui.addr,ui.cur+2)
elseif code==K.left then ui.cur=math.max(0,ui.cur-1)
elseif code==K.right then ui.cur=math.min(unicode.len(ui.addr),ui.cur+1)
elseif code==K.home then ui.cur=0 elseif code==K["end"]then ui.cur=unicode.len(ui.addr)
elseif char>=32 then ui.addr=unicode.sub(ui.addr,1,ui.cur)..unicode.char(char)..unicode.sub(ui.addr,ui.cur+1);ui.cur=ui.cur+1 end
return dirty(true)
end
if ui.find then
if code==K.enter then return findNext()
elseif code==K.escape then ui.find,ui.findLine=nil,nil;return dirty(true)
elseif code==K.back then ui.find=unicode.sub(ui.find,1,-2);return dirty()
elseif char>=32 and not ctrl then ui.find=ui.find..unicode.char(char);return dirty()end
end
if ctrl then
if code==K.l then editAddress()
elseif code==K.f then ui.find="";dirty()
elseif code==K.d then S.toggleBookmark();dirty()
elseif code==K.u then S.toggleSource();dirty(true)
elseif code==K.s then savePage()
elseif code==K.b then S.navigate("about:bookmarks")
elseif code==K.h then S.navigate("about:history")
elseif code==K.q then return"quit"end
return
end
if alt and code==K.left then S.goBack()elseif alt and code==K.right then S.goForward()
elseif code==K.f5 then S.reload()
elseif code==K.escape then S.stop();dirty()
elseif code==K.up then scrollBy(-1)elseif code==K.down then scrollBy(1)
elseif code==K.pageUp then scrollBy(-PAGE_H+1)elseif code==K.pageDown or char==32 then scrollBy(PAGE_H-1)
elseif code==K.home then S.scroll=0;dirty(true)elseif code==K["end"]then scrollBy(1e9)
elseif code==K.tab then selectLink(keyboard.isShiftDown()and-1 or 1)
elseif code==K.enter then local l=S.page and S.page.links[S.sel or 0]if l then follow(l.href)end
elseif code==K.back then S.goBack()end
dirty(true)
end


local function main()
local fg0,bg0=gpu.getForeground(),gpu.getBackground()
gpu.setBackground(C.pageBg)
gpu.fill(1,1,SW,SH," ")
if not inet then S.status="No Internet Card: only about: pages work"end
S.navigate(args[1]or"about:home",false)
while true do
redraw()
local name,_,a,b,c=event.pull(S.job and 0.05 or 1)
if name=="interrupted"then break
elseif name=="key_down"then if onKey(a,b)=="quit"then break end
elseif name=="touch"then onClick(math.floor(a),math.floor(b),c)
elseif name=="scroll"then scrollBy(c>0 and-3 or 3)
elseif name=="clipboard"then if ui.editing then ui.addr=ui.addr..a;ui.cur=unicode.len(ui.addr);dirty()end
end
if S.job then S.step();dirty(S.job==nil)end
end
S.stop()
gpu.setForeground(fg0);gpu.setBackground(bg0)
gpu.fill(1,1,SW,SH," ")
term.setCursor(1,1)
end

local ok,err=pcall(main)
if not ok then
gpu.setBackground(0);gpu.setForeground(0xffffff)
term.clear()
io.stderr:write("browser: "..tostring(err).."\n")
end
F 752 /bin/cat.lua
local shell=require("shell")
local fs=require("filesystem")

local args=shell.parse(...)
if#args==0 then
args={"-"}
end

local input_method,input_param="read",require("tty").getViewport()

for i=1,#args do
local arg=shell.resolve(args[i])
if fs.isDirectory(arg)then
io.stderr:write(string.format('cat %s: Is a directory\n',arg))
os.exit(1)
else
local file,reason
if args[i]=="-"then
file,reason=io.stdin,"missing stdin"
input_method,input_param="readLine",false
else
file,reason=fs.open(arg)
end
if not file then
io.stderr:write(string.format("cat: %s: %s\n",args[i],tostring(reason)))
os.exit(1)
else
repeat
local chunk=file[input_method](file,input_param)
if chunk then
io.write(chunk)
end
until not chunk
file:close()
end
end
end

io.stdout:close()
F 907 /bin/cd.lua
local shell=require("shell")
local fs=require("filesystem")

local args,ops=shell.parse(...)
local path=nil
local verbose=false

if ops.help then
print(
[[Usage cd [dir]
For more options, run: man cd]])
return
end

if#args==0 then
local home=os.getenv("HOME")
if not home then
io.stderr:write("cd: HOME not set\n")
return 1
end
path=home
elseif args[1]=='-'then
verbose=true
local oldpwd=os.getenv("OLDPWD");
if not oldpwd then
io.stderr:write("cd: OLDPWD not set\n")
return 1
end
path=oldpwd
else
path=args[1]
end

local resolved=shell.resolve(path)
if not fs.exists(resolved)then
io.stderr:write("cd: ",path,": No such file or directory\n")
return 1
end

path=resolved
local oldpwd=shell.getWorkingDirectory()
local result,reason=shell.setWorkingDirectory(path)
if not result then
io.stderr:write("cd: ",path,": ",reason)
return 1
else
os.setenv("OLDPWD",oldpwd)
end
if verbose then
os.execute("pwd")
end
F 36 /bin/clear.lua
local tty=require("tty")
tty.clear()F 1020 /bin/components.lua
local component=require("component")
local shell=require("shell")
local text=require("text")

local args,options=shell.parse(...)
local count=tonumber(options.limit)or math.huge

local components={}
local padTo=1

if#args==0 then
args[1]=""
end
for _,filter in ipairs(args)do
for address,name in component.list(filter)do
if name:len()>padTo then
padTo=name:len()+2
end
components[address]=name
end
end

padTo=padTo+8-padTo%8
for address,name in pairs(components)do
io.write(text.padRight(name,padTo)..address..'\n')

if options.l then
local proxy=component.proxy(address)
local padTo=1
local methods={}
for name,member in pairs(proxy)do
if type(member)=="table"or type(member)=="function"then
if name:len()>padTo then
padTo=name:len()+2
end
table.insert(methods,name)
end
end
table.sort(methods)
padTo=padTo+8-padTo%8

for _,name in ipairs(methods)do
local doc=component.doc(address,name)or tostring(proxy[name])
io.write("  "..text.padRight(name,padTo)..doc..'\n')
end
end

count=count-1
if count<=0 then
break
end
end
F 833 /bin/cp.lua
local shell=require("shell")
local transfer=require("tools/transfer")

local args,options=shell.parse(...)
options.h=options.h or options.help
if#args<2 or options.h then
io.write([[Usage: cp [OPTIONS] <from...> <to>
 -i: prompt before overwrite (overrides -n option).
 -n: do not overwrite an existing file.
 -r: copy directories recursively.
 -u: copy only when the SOURCE file differs from the destination
     file or when the destination file is missing.
 -P: preserve attributes, e.g. symbolic links.
 -v: verbose output.
 -x: stay on original source file system.
 --skip=P: skip files matching lua regex P
]])
return not not options.h
end


options=
{
cmd="cp",
i=options.i,
f=options.f,
n=options.n,
r=options.r,
u=options.u,
P=options.P,
v=options.v,
x=options.x,
skip={options.skip},
}

return transfer.batch(args,options)
F 33 /bin/date.lua
io.write(os.date("%F %T").."\n")
F 1354 /bin/desktop.lua


local shell=require("shell")
local computer=require("computer")
local fs=require("filesystem")
local args,opts=shell.parse(...)
local MARK="/etc/yaru.crash"

local function unload()
for k in pairs(package.loaded)do if k:match("^yaru%.")then package.loaded[k]=nil end end
end

local nologin=opts.nologin or opts.n
while true do
unload()
local Y=require("yaru.core")



local f=io.open(MARK,"w")if f then f:write("starting")f:close()end
local ok,res=xpcall(Y.run,debug.traceback,{nologin=nologin,onStarted=function()fs.remove(MARK)end})
fs.remove(MARK)
unload()
if not ok then
local lf=io.open("/tmp/desktop.log","a")if lf then lf:write(tostring(res),"\n")lf:close()end
local mf=io.open("/tmp/.desktop_msg","w")
if mf then mf:write("Desktop error: "..tostring(res):match("[^\n]*").."  (details: /tmp/desktop.log)")mf:close()end
local gpu=require("component").gpu
gpu.setBackground(0)gpu.setForeground(0xFFFFFF)
local w,h=gpu.getResolution()
gpu.fill(1,1,w,h," ")
require("term").setCursor(1,1)
io.stderr:write("The desktop stopped with an error:\n"..tostring(res).."\n")
io.write("Falling back to the text shell. Run 'desktop' to try again.\n")
return 1
end
if res=="reboot"then computer.shutdown(true)
elseif res=="shutdown"then computer.shutdown()
elseif res=="restart-shell"then nologin=true
else
nologin=false
if res=="exit"then return 0 end
end
end
F 1607 /bin/df.lua
local fs=require("filesystem")
local shell=require("shell")
local text=require("text")

local args,options=shell.parse(...)

local function formatSize(size)
if not options.h then
return tostring(size)
elseif type(size)=="string"then
return size
end
local sizes={"","K","M","G"}
local unit=1
local power=options.si and 1000 or 1024
while size>power and unit<#sizes do
unit=unit+1
size=size/power
end
return math.floor(size*10)/10 ..sizes[unit]
end

local mounts={}
if#args==0 then
for proxy,path in fs.mounts()do
if not mounts[proxy]or mounts[proxy]:len()>path:len()then
mounts[proxy]=path
end
end
else
for i=1,#args do
local proxy,path=fs.get(shell.resolve(args[i]))
if not proxy then
io.stderr:write(args[i],": no such file or directory\n")
else
mounts[proxy]=path
end
end
end

local result={{"Filesystem","Used","Available","Use%","Mounted on"}}
for proxy,path in pairs(mounts)do
local label=proxy.getLabel()or proxy.address
local used,total=proxy.spaceUsed(),proxy.spaceTotal()
local available,percent
if total==math.huge then
used=used or"N/A"
available="unlimited"
percent="0%"
else
available=total-used
percent=used/total
if percent~=percent then
available="N/A"
percent="N/A"
else
percent=math.ceil(percent*100).."%"
end
end
table.insert(result,{label,formatSize(used),formatSize(available),tostring(percent),path})
end

local m={}
for _,row in ipairs(result)do
for col,value in ipairs(row)do
m[col]=math.max(m[col]or 1,value:len())
end
end

for _,row in ipairs(result)do
for col,value in ipairs(row)do
local padding=col==#row and 0 or 2
io.write(text.padRight(value,m[col]+padding))
end
print()
end
F 949 /bin/dmesg.lua
local event=require("event")
local tty=require("tty")

local args={...}
local gpu=tty.gpu()
local interactive=io.output().tty
local color,isPal,evt
if interactive then
color,isPal=gpu.getForeground()
end
io.write("Press 'Ctrl-C' to exit\n")
pcall(function()
repeat
if#args>0 then
evt=table.pack(event.pullMultiple("interrupted",table.unpack(args)))
else
evt=table.pack(event.pull())
end
if interactive then gpu.setForeground(0xCC2200)end
io.write("["..os.date("%T").."] ")
if interactive then gpu.setForeground(0x44CC00)end
io.write(tostring(evt[1])..string.rep(" ",math.max(10-#tostring(evt[1]),0)+1))
if interactive then gpu.setForeground(0xB0B00F)end
io.write(tostring(evt[2])..string.rep(" ",37-#tostring(evt[2])))
if interactive then gpu.setForeground(0xFFFFFF)end
if evt.n>2 then
for i=3,evt.n do
io.write("  "..tostring(evt[i]))
end
end

io.write("\n")
until evt[1]=="interrupted"
end)
if interactive then
gpu.setForeground(color,isPal)
end

F 2530 /bin/du.lua
local shell=require("shell")
local fs=require("filesystem")

local args,options,reason=shell.parse(...)
if#args==0 then
args[1]='.'
end

local TRY=[[
Try 'du --help' for more information.]]

local VERSION=[[
du (OpenOS bin) 1.0
Written by payonel, patterned after GNU coreutils du]]

local HELP=[[
Usage: du [OPTION]... [FILE]...
Summarize disk usage of each FILE, recursively for directories.

  -h, --human-readable  print sizes in human readable format (e.g., 1K 234M 2G)
  -s, --summarize       display only a total for each argument
      --help     display this help and exit
      --version  output version information and exit]]

if options.help then
print(HELP)
return true
end

if options.version then
print(VERSION)
return true
end

local function addTrailingSlash(path)
if path:sub(-1)~='/'then
return path..'/'
else
return path
end
end

local function opCheck(shortName,longName)
local enabled=options[shortName]or options[longName]
options[shortName]=nil
options[longName]=nil
return enabled
end

local bHuman=opCheck('h','human-readable')
local bSummary=opCheck('s','summarize')

if next(options)then
for op,v in pairs(options)do
io.stderr:write(string.format("du: invalid option -- '%s'\n",op))
end
io.stderr:write(TRY..'\n')
return 1
end

local function formatSize(size)
if not bHuman then
return tostring(size)
end
local sizes={"","K","M","G"}
local unit=1
local power=options.si and 1000 or 1024
while size>power and unit<#sizes do
unit=unit+1
size=size/power
end

return math.floor(size*10)/10 ..sizes[unit]
end

local function printSize(size,rpath)
local displaySize=formatSize(size)
io.write(string.format("%s%s\n",string.format("%-12s",displaySize),rpath))
end

local function visitor(rpath)
local subtotal=0
local dirs=0
local spath=shell.resolve(rpath)

if fs.isDirectory(spath)then
local list_result=fs.list(spath)
for list_item in list_result do
local vtotal,vdirs=visitor(addTrailingSlash(rpath)..list_item)
subtotal=subtotal+vtotal
dirs=dirs+vdirs
end

if dirs==0 then
if not bSummary then
printSize(subtotal,rpath)
end
end

elseif not fs.isLink(spath)then
subtotal=fs.size(spath)
end

return subtotal,dirs
end

for i,arg in ipairs(args)do
local path=shell.resolve(arg)

if not fs.exists(path)then
io.stderr:write(string.format("du: cannot access '%s': no such file or directory\n",arg))
return 1
else
if fs.isDirectory(path)then
local total=visitor(arg)

if bSummary then
printSize(total,arg)
end
elseif fs.isLink(path)then
printSize(0,arg)
else
printSize(fs.size(path),arg)
end
end
end

return true
F 494 /bin/echo.lua
local args,options=require("shell").parse(...)
if options.help then
io.write([[
`echo` writes the provided string(s) to the standard output.
  -n      do not output the trialing newline
  -e      enable interpretation of backslash escapes
  --help  display this help and exit
]])
return
end
if options.e then
for index,arg in ipairs(args)do



args[index]=assert(load("return \""..arg:gsub('"',[[\"]]).."\""))()
end
end
io.write(table.concat(args," "))
if not options.n then
io.write("\n")
end
F 14641 /bin/edit.lua
local fs=require("filesystem")
local keyboard=require("keyboard")
local shell=require("shell")
local term=require("term")
local text=require("text")
local unicode=require("unicode")

if not term.isAvailable()then
return
end
local gpu=term.gpu()
local args,options=shell.parse(...)
if#args==0 then
io.write("Usage: edit <filename>")
return
end

local filename=shell.resolve(args[1])
local file_parentpath=fs.path(filename)

if fs.exists(file_parentpath)and not fs.isDirectory(file_parentpath)then
io.stderr:write(string.format("Not a directory: %s\n",file_parentpath))
return 1
end

local readonly=options.r or fs.get(filename)==nil or fs.get(filename).isReadOnly()

if fs.isDirectory(filename)then
io.stderr:write("file is a directory\n")
return 1
elseif not fs.exists(filename)and readonly then
io.stderr:write("file system is read only\n")
return 1
end

local function loadConfig()

local env={}
local config=loadfile("/etc/edit.cfg",nil,env)
if config then
pcall(config)
end

env.keybinds=env.keybinds or{
left={{"left"}},
right={{"right"}},
up={{"up"}},
down={{"down"}},
home={{"home"}},
eol={{"end"}},
pageUp={{"pageUp"}},
pageDown={{"pageDown"}},

backspace={{"back"},{"shift","back"}},
delete={{"delete"}},
deleteLine={{"control","delete"},{"shift","delete"}},
newline={{"enter"}},

save={{"control","s"}},
close={{"control","w"}},
find={{"control","f"}},
findnext={{"control","g"},{"control","n"},{"f3"}},
cut={{"control","k"}},
uncut={{"control","u"}}
}

if not config then
local root=fs.get("/")
if root and not root.isReadOnly()then
fs.makeDirectory("/etc")
local f=io.open("/etc/edit.cfg","w")
if f then
local serialization=require("serialization")
for k,v in pairs(env)do
f:write(k.."="..tostring(serialization.serialize(v,math.huge)).."\n")
end
f:close()
end
end
end
return env
end

term.clear()
term.setCursorBlink(true)

local running=true
local buffer={}
local scrollX,scrollY=0,0
local config=loadConfig()

local cutBuffer={}


local cutting=false

local getKeyBindHandler

local function helpStatusText()
local function prettifyKeybind(label,command)
local keybind=type(config.keybinds)=="table"and config.keybinds[command]
if type(keybind)~="table"or type(keybind[1])~="table"then return""end
local alt,control,shift,key
for _,value in ipairs(keybind[1])do
if value=="alt"then alt=true
elseif value=="control"then control=true
elseif value=="shift"then shift=true
else key=value end
end
if not key then return""end
return label..": ["..
(control and"Ctrl+"or"")..
(alt and"Alt+"or"")..
(shift and"Shift+"or"")..
unicode.upper(key)..
"] "
end
return prettifyKeybind("Save","save")..
prettifyKeybind("Close","close")..
prettifyKeybind("Find","find")..
prettifyKeybind("Cut","cut")..
prettifyKeybind("Uncut","uncut")
end



local function setStatus(value)
local x,y,w,h=term.getGlobalArea()
value=unicode.wlen(value)>w-10 and unicode.wtrunc(value,w-9)or value
value=text.padRight(value,w-10)
gpu.set(x,y+h-1,value)
end

local function getArea()
local x,y,w,h=term.getGlobalArea()
return x,y,w,h-1
end

local function removePrefix(line,length)
if length>=unicode.wlen(line)then
return""
else
local prefix=unicode.wtrunc(line,length+1)
local suffix=unicode.sub(line,unicode.len(prefix)+1)
length=length-unicode.wlen(prefix)
if length>0 then
suffix=(" "):rep(unicode.charWidth(suffix)-length)..unicode.sub(suffix,2)
end
return suffix
end
end

local function lengthToChars(line,length)
if length>unicode.wlen(line)then
return unicode.len(line)+1
else
local prefix=unicode.wtrunc(line,length)
return unicode.len(prefix)+1
end
end


local function isWideAtPosition(line,x)
local index=lengthToChars(line,x)
if index>unicode.len(line)then
return false,false
end
local prefix=unicode.sub(line,1,index)
local char=unicode.sub(line,index,index)

return unicode.isWide(char),unicode.wlen(prefix)==x
end

local function drawLine(x,y,w,h,lineNr)
local yLocal=lineNr-scrollY
if yLocal>0 and yLocal<=h then
local str=removePrefix(buffer[lineNr]or"",scrollX)
str=unicode.wlen(str)>w and unicode.wtrunc(str,w+1)or str
str=text.padRight(str,w)
gpu.set(x,y-1+lineNr-scrollY,str)
end
end

local function getCursor()
local cx,cy=term.getCursor()
return cx+scrollX,cy+scrollY
end

local function line()
local _,cby=getCursor()
return buffer[cby]or""
end

local function getNormalizedCursor()
local cbx,cby=getCursor()
local wide,right=isWideAtPosition(buffer[cby],cbx)
if wide and right then
cbx=cbx-1
end
return cbx,cby
end

local function setCursor(nbx,nby)
local x,y,w,h=getArea()
nbx,nby=math.floor(nbx),math.floor(nby)
nby=math.max(1,math.min(#buffer,nby))

local ncy=nby-scrollY
if ncy>h then
term.setCursorBlink(false)
local sy=nby-h
local dy=math.abs(scrollY-sy)
scrollY=sy
if h>dy then
gpu.copy(x,y+dy,w,h-dy,0,-dy)
end
for lineNr=nby-(math.min(dy,h)-1),nby do
drawLine(x,y,w,h,lineNr)
end
elseif ncy<1 then
term.setCursorBlink(false)
local sy=nby-1
local dy=math.abs(scrollY-sy)
scrollY=sy
if h>dy then
gpu.copy(x,y,w,h-dy,0,dy)
end
for lineNr=nby,nby+(math.min(dy,h)-1)do
drawLine(x,y,w,h,lineNr)
end
end
term.setCursor(term.getCursor(),nby-scrollY)

nbx=math.max(1,math.min(unicode.wlen(line())+1,nbx))
local wide,right=isWideAtPosition(line(),nbx)
local ncx=nbx-scrollX
if ncx>w or(ncx+1>w and wide and not right)then
term.setCursorBlink(false)
scrollX=nbx-w+((wide and not right)and 1 or 0)
for lineNr=1+scrollY,math.min(h+scrollY,#buffer)do
drawLine(x,y,w,h,lineNr)
end
elseif ncx<1 or(ncx-1<1 and wide and right)then
term.setCursorBlink(false)
scrollX=nbx-1-((wide and right)and 1 or 0)
for lineNr=1+scrollY,math.min(h+scrollY,#buffer)do
drawLine(x,y,w,h,lineNr)
end
end
term.setCursor(nbx-scrollX,nby-scrollY)

nbx,nby=getCursor()
local locstring=string.format("%d,%d",nby,nbx)
if#cutBuffer>0 then
locstring=string.format("(#%d) %s",#cutBuffer,locstring)
end
locstring=text.padLeft(locstring,10)
gpu.set(x+w-#locstring,y+h,locstring)
end

local function highlight(bx,by,length,enabled)
local x,y,w,h=getArea()
local cx,cy=bx-scrollX,by-scrollY
cx=math.max(1,math.min(w,cx))
cy=math.max(1,math.min(h,cy))
length=math.max(1,math.min(w-cx,length))

local fg,fgp=gpu.getForeground()
local bg,bgp=gpu.getBackground()
if enabled then
gpu.setForeground(bg,bgp)
gpu.setBackground(fg,fgp)
end
local indexFrom=lengthToChars(buffer[by],bx)
local value=unicode.sub(buffer[by],indexFrom)
if unicode.wlen(value)>length then
value=unicode.wtrunc(value,length+1)
end
gpu.set(x-1+cx,y-1+cy,value)
if enabled then
gpu.setForeground(fg,fgp)
gpu.setBackground(bg,bgp)
end
end

local function home()
local _,cby=getCursor()
setCursor(1,cby)
end

local function ende()
local _,cby=getCursor()
setCursor(unicode.wlen(line())+1,cby)
end

local function left()
local cbx,cby=getNormalizedCursor()
if cbx>1 then
local wideTarget,rightTarget=isWideAtPosition(line(),cbx-1)
if wideTarget and rightTarget then
setCursor(cbx-2,cby)
else
setCursor(cbx-1,cby)
end
return true
elseif cby>1 then
setCursor(cbx,cby-1)
ende()
return true
end
end

local function right(n)
n=n or 1
local cbx,cby=getNormalizedCursor()
local be=unicode.wlen(line())+1
local wide,isRight=isWideAtPosition(line(),cbx+n)
if wide and isRight then
n=n+1
end
if cbx+n<=be then
setCursor(cbx+n,cby)
elseif cby<#buffer then
setCursor(1,cby+1)
end
end

local function up(n)
n=n or 1
local cbx,cby=getCursor()
if cby>1 then
setCursor(cbx,cby-n)
end
cutting=false
end

local function down(n)
n=n or 1
local cbx,cby=getCursor()
if cby<#buffer then
setCursor(cbx,cby+n)
end
cutting=false
end

local function delete(fullRow)
local _,cy=term.getCursor()
local cbx,cby=getCursor()
local x,y,w,h=getArea()
local function deleteRow(row)
local content=table.remove(buffer,row)
local rcy=cy+(row-cby)
if rcy<=h then
gpu.copy(x,y+rcy,w,h-rcy,0,-1)
drawLine(x,y,w,h,row+(h-rcy))
end
return content
end
if fullRow then
term.setCursorBlink(false)
if#buffer>1 then
deleteRow(cby)
else
buffer[cby]=""
gpu.fill(x,y-1+cy,w,1," ")
end
setCursor(1,cby)
elseif cbx<=unicode.wlen(line())then
term.setCursorBlink(false)
local index=lengthToChars(line(),cbx)
buffer[cby]=unicode.sub(line(),1,index-1)..
unicode.sub(line(),index+1)
drawLine(x,y,w,h,cby)
elseif cby<#buffer then
term.setCursorBlink(false)
local append=deleteRow(cby+1)
buffer[cby]=buffer[cby]..append
drawLine(x,y,w,h,cby)
else
return
end
setStatus(helpStatusText())
end

local function insert(value)
if not value or unicode.len(value)<1 then
return
end
term.setCursorBlink(false)
local cbx,cby=getCursor()
local x,y,w,h=getArea()
local index=lengthToChars(line(),cbx)
buffer[cby]=unicode.sub(line(),1,index-1)..
value..
unicode.sub(line(),index)
drawLine(x,y,w,h,cby)
right(unicode.wlen(value))
setStatus(helpStatusText())
end

local function enter()
term.setCursorBlink(false)
local _,cy=term.getCursor()
local cbx,cby=getCursor()
local x,y,w,h=getArea()
local index=lengthToChars(line(),cbx)
table.insert(buffer,cby+1,unicode.sub(buffer[cby],index))
buffer[cby]=unicode.sub(buffer[cby],1,index-1)
drawLine(x,y,w,h,cby)
if cy<h then
if cy<h-1 then
gpu.copy(x,y+cy,w,h-(cy+1),0,1)
end
drawLine(x,y,w,h,cby+1)
end
setCursor(1,cby+1)
setStatus(helpStatusText())
cutting=false
end

local findText=""

local function find()
local _,_,_,h=getArea()
local cbx,cby=getCursor()
local ibx,iby=cbx,cby
while running do
if unicode.len(findText)>0 then
local sx,sy
for syo=1,#buffer do
sy=(iby+syo-1+#buffer-1)%#buffer+1
sx=string.find(buffer[sy],findText,syo==1 and ibx or 1,true)
if sx and(sx>=ibx or syo>1)then
break
end
end
if not sx then
sy=iby
sx=string.find(buffer[sy],findText,nil,true)
end
if sx then
sx=unicode.wlen(string.sub(buffer[sy],1,sx-1))+1
cbx,cby=sx,sy
setCursor(cbx,cby)
highlight(cbx,cby,unicode.wlen(findText),true)
end
end
term.setCursor(7+unicode.wlen(findText),h+1)
setStatus("Find: "..findText)

local _,address,char,code=term.pull("key_down")
if address==term.keyboard()then
local handler,name=getKeyBindHandler(code)
highlight(cbx,cby,unicode.wlen(findText),false)
if name=="newline"then
break
elseif name=="close"then
handler()
elseif name=="backspace"then
findText=unicode.sub(findText,1,-2)
elseif name=="find"or name=="findnext"then
ibx=cbx+1
iby=cby
elseif not keyboard.isControl(char)then
findText=findText..unicode.char(char)
end
end
end
setCursor(cbx,cby)
setStatus(helpStatusText())
end

local function cut()
if not cutting then
cutBuffer={}
end
local cbx,cby=getCursor()
table.insert(cutBuffer,buffer[cby])
delete(true)
cutting=true
home()
end

local function uncut()
home()
for _,line in ipairs(cutBuffer)do
insert(line)
enter()
end
end



local keyBindHandlers={
left=left,
right=right,
up=up,
down=down,
home=home,
eol=ende,
pageUp=function()
local _,_,_,h=getArea()
up(h-1)
end,
pageDown=function()
local _,_,_,h=getArea()
down(h-1)
end,

backspace=function()
if not readonly and left()then
delete()
end
end,
delete=function()
if not readonly then
delete()
end
end,
deleteLine=function()
if not readonly then
delete(true)
end
end,
newline=function()
if not readonly then
enter()
end
end,

save=function()
if readonly then return end
local new=not fs.exists(filename)
local backup
if not new then
backup=filename.."~"
for i=1,math.huge do
if not fs.exists(backup)then
break
end
backup=filename.."~"..i
end
fs.copy(filename,backup)
end
if not fs.exists(file_parentpath)then
fs.makeDirectory(file_parentpath)
end
local f,reason=io.open(filename,"w")
if f then
local chars,firstLine=0,true
for _,bline in ipairs(buffer)do
if not firstLine then
bline="\n"..bline
end
firstLine=false
f:write(bline)
chars=chars+unicode.len(bline)
end
f:close()
local format
if new then
format=[["%s" [New] %dL,%dC written]]
else
format=[["%s" %dL,%dC written]]
end
setStatus(string.format(format,fs.name(filename),#buffer,chars))
else
setStatus(reason)
end
if not new then
fs.remove(backup)
end
end,
close=function()

running=false
end,
find=function()
findText=""
find()
end,
findnext=find,
cut=cut,
uncut=uncut
}

getKeyBindHandler=function(code)
if type(config.keybinds)~="table"then return end


local result,resultName,resultWeight=nil,nil,0
for command,keybinds in pairs(config.keybinds)do
if type(keybinds)=="table"and keyBindHandlers[command]then
for _,keybind in ipairs(keybinds)do
if type(keybind)=="table"then
local alt,control,shift,key=false,false,false
for _,value in ipairs(keybind)do
if value=="alt"then alt=true
elseif value=="control"then control=true
elseif value=="shift"then shift=true
else key=value end
end
local keyboardAddress=term.keyboard()
if(alt==not not keyboard.isAltDown(keyboardAddress))and
(control==not not keyboard.isControlDown(keyboardAddress))and
(shift==not not keyboard.isShiftDown(keyboardAddress))and
code==keyboard.keys[key]and
#keybind>resultWeight
then
resultWeight=#keybind
resultName=command
result=keyBindHandlers[command]
end
end
end
end
end
return result,resultName
end



local function onKeyDown(char,code)
local handler=getKeyBindHandler(code)
if handler then
handler()
elseif readonly and code==keyboard.keys.q then
running=false
elseif not readonly then
if not keyboard.isControl(char)then
insert(unicode.char(char))
elseif unicode.char(char)=="\t"then
insert("  ")
end
end
end

local function onClipboard(value)
value=value:gsub("\r\n","\n")
local start=1
local l=value:find("\n",1,true)
if l then
repeat
local next_line=string.sub(value,start,l-1)
next_line=text.detab(next_line,2)
insert(next_line)
enter()
start=l+1
l=value:find("\n",start,true)
until not l
end
insert(string.sub(value,start))
end

local function onClick(x,y)
setCursor(x+scrollX,y+scrollY)
end

local function onScroll(direction)
local cbx,cby=getCursor()
setCursor(cbx,cby-direction*12)
end



do
local f=io.open(filename)
if f then
local x,y,w,h=getArea()
local chars=0
for fline in f:lines()do
table.insert(buffer,fline)
chars=chars+unicode.len(fline)
if#buffer<=h then
drawLine(x,y,w,h,#buffer)
end
end
f:close()
if#buffer==0 then
table.insert(buffer,"")
end
local format
if readonly then
format=[["%s" [readonly] %dL,%dC]]
else
format=[["%s" %dL,%dC]]
end
setStatus(string.format(format,fs.name(filename),#buffer,chars))
else
table.insert(buffer,"")
setStatus(string.format([["%s" [New File] ]],fs.name(filename)))
end
setCursor(1,1)
end

while running do
local event,address,arg1,arg2,arg3=term.pull()
if address==term.keyboard()or address==term.screen()then
local blink=true
if event=="key_down"then
onKeyDown(arg1,arg2)
elseif event=="clipboard"and not readonly then
onClipboard(arg1)
elseif event=="touch"or event=="drag"then
local x,y,w,h=getArea()
arg1=arg1-x+1
arg2=arg2-y+1
if arg1>=1 and arg2>=1 and arg1<=w and arg2<=h then
onClick(arg1,arg2)
end
elseif event=="scroll"then
onScroll(arg3)
else
blink=false
end
if blink then
term.setCursorBlink(true)
end
end
end

term.clear()
term.setCursorBlink(true)
F 2488 /bin/find.lua
local shell=require("shell")
local fs=require("filesystem")
local text=require("text")

local USAGE=
[===[Usage: find [path] [--type=[dfs]] [--[i]name=EXPR]
  --path  if not specified, path is assumed to be current working directory
  --type  returns results of a given type, d:directory, f:file, and s:symlinks
  --name  specify the file name pattern. Use quote to include *. iname is
          case insensitive
  --help  display this help and exit]===]

local args,options=shell.parse(...)

if(not args or not options)or options.help then
print(USAGE)
if not options.help then
return 1
else
return
end
end

if#args>1 then
io.stderr:write(USAGE..'\n')
return 1
end

local path=#args==1 and args[1]or"."

local bDirs=true
local bFiles=true
local bSyms=true

local fileNamePattern=""
local bCaseSensitive=true

if options.iname and options.name then
io.stderr:write("find cannot define both iname and name\n")
return 1
end

if options.type then
bDirs=false
bFiles=false
bSyms=false

if options.type=="f"then
bFiles=true
elseif options.type=="d"then
bDirs=true
elseif options.type=="s"then
bSyms=true
else
io.stderr:write(string.format("find: Unknown argument to type: %s\n",options.type))
io.stderr:write(USAGE..'\n')
return 1
end
end

if options.iname or options.name then
bCaseSensitive=options.iname~=nil
fileNamePattern=options.iname or options.name

if type(fileNamePattern)~="string"then
io.stderr:write('find: missing argument to `name\'\n')
return 1
end

if not bCaseSensitive then
fileNamePattern=fileNamePattern:lower()
end


fileNamePattern=text.escapeMagic(fileNamePattern)
fileNamePattern=fileNamePattern:gsub("%%%*",".*")
end

local function isValidType(spath)
if not fs.exists(spath)then
return false
end

if fileNamePattern:len()>0 then
local fileName=spath:gsub('.*/','')

if fileName:len()==0 then
return false
end

local caseFileName=fileName

if not bCaseSensitive then
caseFileName=caseFileName:lower()
end

local s,e=caseFileName:find(fileNamePattern)
if not s or not e then
return false
end

if s~=1 or e~=caseFileName:len()then
return false
end
end

if fs.isDirectory(spath)then
return bDirs
elseif fs.isLink(spath)then
return bSyms
else
return bFiles
end
end

local function visit(rpath)
local spath=shell.resolve(rpath)

if isValidType(spath)then
local result=rpath:gsub('/+$','')
print(result)
end

if fs.isDirectory(spath)then
local list_result=fs.list(spath)
for list_item in list_result do
visit(rpath:gsub('/+$','')..'/'..list_item)
end
end
end

visit(path)
F 2439 /bin/flash.lua
local component=require("component")
local shell=require("shell")
local fs=require("filesystem")

local args,options=shell.parse(...)

if#args<1 and not options.l then
io.write("Usage: flash [-qlr] [<bios.lua>] [label]\n")
io.write(" q: quiet mode, don't ask questions.\n")
io.write(" l: print current contents of installed EEPROM.\n")
io.write(" r: save the current contents of installed EEPROM to file.\n")
return
end

local function printRom()
local eeprom=component.eeprom
io.write(eeprom.get())

return nil
end

local function readRom()
local eeprom=component.eeprom
local fileName=shell.resolve(args[1])
if not options.q then
if fs.exists(fileName)then
io.write("Are you sure you want to overwrite "..fileName.."?\n")
io.write("Type `y` to confirm.\n")
repeat
local response=io.read()
until response and response:lower():sub(1,1)=="y"
end
io.write("Reading EEPROM "..eeprom.address..".\n")
end
local bios=eeprom.get()
local file=assert(io.open(fileName,"wb"))
file:write(bios)
file:close()
if not options.q then
io.write("All done!\nThe label is '"..eeprom.getLabel().."'.\n")
end

return nil
end

local function writeRom()
local file=assert(io.open(args[1],"rb"))
local bios=file:read("*a")
file:close()

if not options.q then
io.write("Insert the EEPROM you would like to flash.\n")
io.write("When ready to write, type `y` to confirm.\n")
repeat
local response=io.read()
until response and response:lower():sub(1,1)=="y"
io.write("Beginning to flash EEPROM.\n")
end

local eeprom=component.eeprom

if not options.q then
io.write("Flashing EEPROM "..eeprom.address..".\n")
io.write("Please do NOT power down or restart your computer during this operation!\n")
end

local result,reason=eeprom.set(bios)
if reason then
return nil,reason
end

local label=args[2]
if not options.q and not label then
io.write("Enter new label for this EEPROM. Leave input blank to leave the label unchanged.\n")
label=io.read()
end
if label and#label>0 then
local result,reason=eeprom.setLabel(label)
if reason then
return nil,reason
end

if not options.q then
io.write("Set label to '"..eeprom.getLabel().."'.\n")
end
end

if not options.q then
io.write("All done! You can remove the EEPROM and re-insert the previous one now.\n")
end

return nil
end

local result,reason
if options.l then
result,reason=printRom()
elseif options.r then
result,reason=readRom()
else
result,reason=writeRom()
end
if reason then
io.stderr:write(reason..'\n')
return 1
endF 231 /bin/free.lua
local computer=require("computer")
local total=computer.totalMemory()
local max=0
for _=1,40 do
max=math.max(max,computer.freeMemory())
os.sleep(0)
end
io.write(string.format("Total%12d\nUsed%13d\nFree%13d\n",total,total-max,max))
F 6909 /bin/grep.lua








local fs=require("filesystem")
local shell=require("shell")
local tty=require("tty")
local computer=require("computer")



local args,options=shell.parse(...)

local gpu=tty.gpu()

local function printUsage(ostream,msg)
local s=ostream or io.stdout
if msg then
s:write(msg,'\n')
end
s:write([[Usage: grep [OPTION]... PATTERN [FILE]...
Example: grep -i "hello world" menu.lua main.lua
for more information, run: man grep
]])
end

local PATTERNS={args[1]}
local FILES={select(2,table.unpack(args))}

local LABEL_COLOR=0xb000b0
local LINE_NUM_COLOR=0x00FF00
local MATCH_COLOR=0xFF0000
local COLON_COLOR=0x00FFFF

local function pop(...)
local result
for _,key in ipairs({...})do
result=options[key]or result
options[key]=nil
end
return result
end


local plain=pop('F','fixed-strings')
plain=not pop('e','--lua-regexp')and plain
local pattern_file=pop('file')
local match_whole_word=pop('w','word-regexp')
local match_whole_line=pop('x','line-regexp')
local ignore_case=pop('i','ignore-case')
local stdin_label=pop('label')or'(standard input)'
local stderr=pop('s','no-messages')and{write=function()end}or io.stderr
local invert_match=not not pop('v','invert-match')


if pop('V','version','help')then
printUsage()
return 0
end

local max_matches=tonumber(pop('max-count'))or math.huge
local print_line_num=pop('n','line-number')
local search_recursively=pop('r','recursive')


if pattern_file then
local pattern_file_path=shell.resolve(pattern_file)
if not fs.exists(pattern_file_path)then
stderr:write('grep: ',pattern_file,': file not found')
return 2
end
table.insert(FILES,1,PATTERNS[1])
PATTERNS={}
for line in io.lines(pattern_file_path)do
PATTERNS[#PATTERNS+1]=line
end
end

if#PATTERNS==0 then
printUsage(stderr)
return 2
end

if#FILES==0 then
FILES=search_recursively and{'.'}or{'-'}
end

if not options.h and search_recursively then
options.H=true
end

if#FILES<2 then
options.h=true
end

local f_only=pop('l','files-with-matches')
local no_only=pop('L','files-without-match')and not f_only

local include_filename=pop('H','with-filename')
include_filename=not pop('h','no-filename')or include_filename

local m_only=pop('o','only-matching')
local quiet=pop('q','quiet','silent')

local print_count=pop('c','count')
local colorize=pop('color','colour')and io.output().tty and tty.isAvailable()

local noop=function(...)return...;end
local setc=colorize and gpu.setForeground or noop
local getc=colorize and gpu.getForeground or noop

local trim=pop('t','trim')
local trim_front=trim and function(s)return s:gsub('^%s+','')end or noop
local trim_back=trim and function(s)return s:gsub('%s+$','')end or noop

if next(options)then
if not quiet then
printUsage(stderr,'unexpected option: '..next(options))
return 2
end
return 0
end

local function resolve(file)
if file:sub(1,1)=='/'then
return fs.canonical(file)
else
if file:sub(1,2)=='./'then
file=file:sub(3,-1)
end
return fs.canonical(fs.concat(shell.getWorkingDirectory(),file))
end
end



if ignore_case then
for i=1,#PATTERNS do

PATTERNS[i]=PATTERNS[i]:gsub("(%%?)(.)",function(percent,letter)
if percent~=""or not letter:match("%a")then

return percent..letter
else
return string.format("[%s%s]",letter:lower(),letter:upper())
end
end)
end
end

local function getAllFiles(dir,file_list)
for node in fs.list(shell.resolve(dir))do
local rel_path=dir:gsub("/+$","")..'/'..node
local resolved_path=shell.resolve(rel_path)
if fs.isDirectory(resolved_path)then
getAllFiles(rel_path,file_list)
else
file_list[#file_list+1]=rel_path
end
end
end

if search_recursively then
local files={}
for i,arg in ipairs(FILES)do
if fs.isDirectory(arg)then
getAllFiles(arg,files)
else
files[#files+1]=arg
end
end
FILES=files
end


local function readLines()
local curHand=nil
local curFile=nil
local meta=nil
return function()
if not curFile then
local file=table.remove(FILES,1)
if not file then
return
end
meta={line_num=0,hits=0}
if file=="-"then
curFile=file
meta.label=stdin_label
curHand=io.input()
else
meta.label=file
local file,reason=resolve(file)
if fs.exists(file)then
curHand,reason=io.open(file,'r')
if not curHand then
local msg=string.format("failed to read from %s: %s",meta.label,reason)
stderr:write("grep: ",msg,"\n")
return false,2
else
curFile=meta.label
end
else
stderr:write("grep: ",file,": file not found\n")
return false,2
end
end
end
meta.line=nil
if not meta.close and curHand then
meta.line_num=meta.line_num+1
meta.line=curHand:read("*l")
end
if not meta.line then
curFile=nil
if curHand then
curHand:close()
end
return false,meta
else
return meta,curFile
end
end
end

local function write(part,color)
local prev_color=color and getc()
if color then setc(color)end
io.write(part)
if color then setc(prev_color)end
end
local flush=(f_only or no_only or print_count)and function(m)
if no_only and m.hits==0 or f_only and m.hits~=0 then
write(m.label,LABEL_COLOR)
write('\n')
elseif print_count then
if include_filename then
write(m.label,LABEL_COLOR)
write(':',COLON_COLOR)
end
write(m.hits)
write('\n')
end
end
local ec=nil
local any_hit_ec=1
local function test(m,p)
local empty_line=true
local last_index,slen=1,#m.line
local needs_filename,needs_line_num=include_filename,print_line_num
local hit_value=1
while last_index<=slen and not m.close do
local i,j=m.line:find(p,last_index,plain)
local word_fail,line_fail=
match_whole_word and not(i and not(m.line:sub(i-1,i-1)..m.line:sub(j+1,j+1)):find("[%a_]")),
match_whole_line and not(i==1 and j==slen)
local matched=not((m_only or last_index==1)and not i)
if(hit_value==1 and word_fail)or line_fail then
matched,i,j=false
end
if invert_match==matched then break end
if max_matches==0 then os.exit(1)end
any_hit_ec=0
m.hits,hit_value=m.hits+hit_value,0
if f_only or no_only then
m.close=true
end
if flush or quiet then return end
if needs_filename then
write(m.label,LABEL_COLOR)
write(':',COLON_COLOR)
needs_filename=nil
end
if needs_line_num then
write(m.line_num,LINE_NUM_COLOR)
write(':',COLON_COLOR)
needs_line_num=nil
end
local s=m_only and''or m.line:sub(last_index,(i or 0)-1)
local g=i and m.line:sub(i,j)or''
if i==1 then g=trim_front(g)elseif last_index==1 then s=trim_front(s)end
if j==slen then g=trim_back(g)elseif not i then s=trim_back(s)end
write(s)
write(g,MATCH_COLOR)
empty_line=false
last_index=(j or slen)+1
if m_only or last_index>slen then
write("\n")
empty_line=true
needs_filename,needs_line_num=include_filename,print_line_num
elseif p:find("^^")and not plain then p="^$"end
end
if not empty_line then write("\n")end
if max_matches~=math.huge and max_matches>=m.hits then
m.close=true
end
end

local uptime=computer.uptime
local last_sleep=uptime()
for meta,status in readLines()do
if uptime()-last_sleep>1 then
os.sleep(0)
last_sleep=uptime()
end
if not meta then
if type(status)=='table'then if flush then
flush(status)end
elseif status then
ec=status or ec
end
else
for _,p in ipairs(PATTERNS)do
test(meta,p)
end
end
end

return ec or any_hit_ec
F 2477 /bin/head.lua
local shell=require("shell")

local args,options=shell.parse(...)
local error_code=0

local function pop(key,convert)
local result=options[key]
options[key]=nil
if result and convert then
local c=tonumber(result)
if not c then
io.stderr:write(string.format("use --%s=n where n is a number\n",key))
options.help=true
error_code=1
end
result=c
end
return result
end

local bytes=pop('bytes',true)
local lines=pop('lines',true)
local quiet={pop('q'),pop('quiet'),pop('silent')}
quiet=quiet[1]or quiet[2]or quiet[3]
local verbose={pop('v'),pop('verbose')}
verbose=verbose[1]or verbose[2]
local help=pop('help')

if help or next(options)then
local invalid_key=next(options)
if invalid_key then
invalid_key=string.format('invalid option: %s\n',invalid_key)
error_code=1
else
invalid_key=''
end
print(invalid_key..[[Usage: head [--lines=n] file
Print the first 10 lines of each FILE to stdout.
For more info run: man head]])
os.exit(error_code)
end

if#args==0 then
args={'-'}
end

if quiet and verbose then
quiet=false
end

local function new_stream()
return
{
open=true,
capacity=math.abs(lines or bytes or 10),
bytes=bytes,
buffer=(lines and lines<0 and{})or(bytes and bytes<0 and'')
}
end

local function close(stream)
if stream.buffer then
if type(stream.buffer)=='table'then
stream.buffer=table.concat(stream.buffer)
end
io.stdout:write(stream.buffer)
stream.buffer=nil
end
stream.open=false
end

local function push(stream,line)
if not line then
return close(stream)
end

local cost=stream.bytes and line:len()or 1
stream.capacity=stream.capacity-cost

if not stream.buffer then
if stream.bytes and stream.capacity<0 then
line=line:sub(1,stream.capacity-1)
end
io.write(line)
if stream.capacity<=0 then
return close(stream)
end
else
if type(stream.buffer)=='table'then
stream.buffer[#stream.buffer+1]=line
if stream.capacity<0 then
table.remove(stream.buffer,1)
stream.capacity=0
end
else
stream.buffer=stream.buffer..line
if stream.capacity<0 then
stream.buffer=stream.buffer:sub(-stream.capacity+1)
stream.capacity=0
end
end
end

end

for i=1,#args do
local arg=args[i]
local file,reason
if arg=='-'then
arg='standard input'
file=io.stdin
else
file,reason=io.open(arg,'r')
if not file then
io.stderr:write(string.format([[head: cannot open '%s' for reading: %s]],arg,reason))
end
end
if file then
if verbose or#args>1 then
io.write(string.format('==> %s <==\n',arg))
end

local stream=new_stream()

while stream.open do
push(stream,file:read('*L'))
end

file:close()
end
end
F 600 /bin/hostname.lua
local shell=require("shell")
local args,ops=shell.parse(...)
local hostname=args[1]

if hostname then
local file,reason=io.open("/etc/hostname","w")
if not file then
io.stderr:write("failed to open for writing: ",reason,"\n")
return 1
end
file:write(hostname)
file:close()
ops.update=true
else
local file=io.open("/etc/hostname")
if file then
hostname=file:read("*l")
file:close()
end
end

if ops.update then
os.setenv("HOSTNAME_SEPARATOR",hostname and#hostname>0 and":"or"")
os.setenv("HOSTNAME",hostname)
elseif hostname then
print(hostname)
else
io.stderr:write("Hostname not set\n")
return 1
end
F 1016 /bin/install.lua
local computer=require("computer")
local options

do
local basic,reason=loadfile("/lib/core/install_basics.lua","bt",_G)
if not basic then
io.stderr:write("failed to load install: "..tostring(reason).."\n")
return 1
end
options=basic(...)
end

if not options then
return
end

if computer.freeMemory()<50000 then
print("Low memory, collecting garbage")
for i=1,20 do
os.sleep(0)
end
end

local transfer=require("tools/transfer")
for _,inst in ipairs(options.cp_args)do
local ec=transfer.batch(table.unpack(inst))
if ec~=nil and ec~=0 then
return ec
end
end

print("Installation complete!")

if options.setlabel then
pcall(options.target.dev.setLabel,options.label)
end

if options.setboot then
local address=options.target.dev.address
if computer.setBootAddress(address)then
print("Boot address set to "..address)
end
end

if options.reboot then
io.write("Reboot now? [Y/n] ")
if((io.read()or"n").."y"):match("^%s*[Yy]")then
print("\nRebooting now!\n")
computer.shutdown(true)
end
end

print("Returning to shell.\n")
F 893 /bin/label.lua
local shell=require("shell")
local devfs=require("devfs")
local comp=require("component")

local args,options=shell.parse(...)
if#args<1 then
io.write("Usage: label [-a] <device> [<label>]\n")
io.write(" -a  Device is specified via label or address instead of by path.\n")
return 1
end

local filter=args[1]
local label=args[2]

local proxy,reason

if options.a then
for addr in comp.list()do
if addr:sub(1,filter:len())==filter then
proxy,reason=comp.proxy(addr)
break
end
local tmp_proxy=comp.proxy(addr)
local tmp_label=devfs.getDeviceLabel(tmp_proxy)
if tmp_label==filter then
proxy=tmp_proxy
break
end
end
else
proxy,reason=devfs.getDevice(filter)
end

if not proxy then
io.stderr:write(reason..'\n')
return 1
end

if#args<2 then
local label=devfs.getDeviceLabel(proxy)
if label then
print(label)
else
io.stderr:write("no label\n")
return 1
end
else
devfs.setDeviceLabel(proxy,label)
end
F 2694 /bin/less.lua
local keys=require("keyboard").keys
local shell=require("shell")
local unicode=require("unicode")
local term=require("term")

local args,ops=shell.parse(...)
if#args>1 then
io.write("Usage: ",os.getenv("_"):match("/([^/]+)%.lua$")," <filename>\n")
io.write("- or no args reads stdin\n")
return 1
end

local cat_cmd=table.concat({"cat",...}," ")
if not io.output().tty then
return os.execute(cat_cmd)
end

local preader=io.popen(cat_cmd)
local scrollback=not ops.noback and{}
local bottom=0
local end_of_buffer=false

local width,height=term.getViewport()

local function split(full_line)
local index=1
local parts={}
while true do
local sub=full_line:sub(index,index+width*3)

if#sub<width or unicode.wlen(sub)<=width then
parts[#parts+1]=sub
break
end
parts[#parts+1]=unicode.wtrunc(sub,width+1)
index=index+#parts[#parts]
if index>#full_line then
break
end
end
return parts
end

local function scan(num)
local result={}
local line_count=0
for i=1,num do
local lines={}
if scrollback and(bottom+i)<=#scrollback then
lines={scrollback[bottom+i]}
else
local full_line=preader:read()
if not full_line then preader:close()break end

local buffering=false
for _,line in ipairs(split(full_line))do
if not buffering then
lines[#lines+1]=line
end
if scrollback then
buffering=true
scrollback[#scrollback+1]=line
end
end
end

for _,line in ipairs(lines)do
result[#result+1]=line
line_count=line_count+1
if#result>height then
table.remove(result,1)
end
end

if line_count>=num then
break
end
end
return result,line_count
end

local function status()
if end_of_buffer then
if ops.noback then
os.exit()
end
io.write("(END)")
end
io.write(":")
end

local function goback(n)
if not scrollback then return end
local current_top=bottom-height+1
n=math.min(current_top,n)
if n<1 then return end
local top=current_top-n+1
term.scroll(-n)
term.setCursor(1,1)
for i=1,n do
if i>=height then
break
end
print(scrollback[top+i-1])
end
term.setCursor(1,height)
bottom=bottom-n
end_of_buffer=false
end

local function goforward(n)
term.clearLine()
local update,line_count=scan(n)
for _,line in ipairs(update)do
print(line)
end
if line_count<n then
end_of_buffer=true
end
bottom=bottom+line_count
end

goforward(height-1)

while true do
term.clearLine()
status()
local e,_,_,code=term.pull()
if e=="interrupted"then
break
elseif e=="key_down"then
if code==keys.q then
term.clearLine()
os.exit()
elseif code==keys["end"]then
goforward(math.huge)
elseif code==keys.space or code==keys.pageDown then
goforward(height-1)
elseif code==keys.enter or code==keys.down then
goforward(1)
elseif code==keys.up then
goback(1)
elseif code==keys.pageUp then
goback(height-1)
elseif code==keys.home then
goback(math.huge)
end
end
end
F 660 /bin/list.lua
local fs=require("filesystem")
local shell=require("shell")

local args,ops=shell.parse(...)
if#args==0 then
table.insert(args,".")
end

local arg=args[1]
local path=shell.resolve(arg)

if ops.help then
io.write([[Usage: list [path]
  path:
    optional argument (defaults to ./)
  Displays a list of files in the given path with no added formatting
  Intended for low memory systems
]])
return 0
end

local real,why=fs.realPath(path)
if real and not fs.exists(real)then
why="no such file or directory"
end
if why then
io.stderr:write(string.format("cannot access '%s': %s",arg,tostring(why)))
return 1
end

for item in fs.list(real)do
io.write(item,'\n')
end
F 716 /bin/ln.lua
local fs=require("filesystem")
local shell=require("shell")

local args=shell.parse(...)
if#args==0 then
io.write("Usage: ln <target> [<name>]\n")
return 1
end

local target_name=args[1]
local target=shell.resolve(target_name)


if not fs.exists(target)and not fs.isLink(target)then
io.stderr:write("ln: failed to access '"..target_name.."': No such file or directory\n")
return 1
end

local linkpath
if#args>1 then
linkpath=shell.resolve(args[2])
else
linkpath=fs.concat(shell.getWorkingDirectory(),fs.name(target))
end

if fs.isDirectory(linkpath)then
linkpath=fs.concat(linkpath,fs.name(target))
end

local result,reason=fs.link(target_name,linkpath)
if not result then
io.stderr:write(reason..'\n')
return 1
end
F 302 /bin/ls.lua


local ok,why=pcall(function(...)
return loadfile("/lib/core/full_ls.lua","bt",_G)(...)
end,...)

if not ok then
if type(why)=="table"then
if why.code==0 then
return
end
why=why.reason
end
io.stderr:write(tostring(why).."\nFor low memory systems, try using `list` instead\n")
return 1
end

return why
F 1118 /bin/lshw.lua
local computer=require("computer")
local shell=require("shell")
local text=require("text")

local args,options=shell.parse(...)

local devices=computer.getDeviceInfo()
local columns={}

if not next(options,nil)then
options.t=true
options.d=true
options.p=true
end
if options.t then table.insert(columns,"Class")end
if options.d then table.insert(columns,"Description")end
if options.p then table.insert(columns,"Product")end
if options.v then table.insert(columns,"Vendor")end
if options.c then table.insert(columns,"Capacity")end
if options.w then table.insert(columns,"Width")end
if options.s then table.insert(columns,"Clock")end

local m={}
for address,info in pairs(devices)do
for col,name in ipairs(columns)do
m[col]=math.max(m[col]or 1,(info[name:lower()]or""):len())
end
end

io.write(text.padRight("Address",10))
for col,name in ipairs(columns)do
io.write(text.padRight(name,m[col]+2))
end
io.write("\n")

for address,info in pairs(devices)do
io.write(text.padRight(address:sub(1,5).."...",10))
for col,name in ipairs(columns)do
io.write(text.padRight(info[name:lower()]or"",m[col]+2))
end
io.write("\n")
end
F 606 /bin/lua.lua
local shell=require("shell")
local args=shell.parse(...)

if#args==0 then
args={"/lib/core/lua_shell.lua"}
end

local filename=args[1]
local buffer,script,reason
buffer=io.lines(filename,"*a")()
if buffer then
buffer=buffer:gsub("^#![^\n]+","")
script,reason=load(buffer,"="..filename)
else
reason=string.format("could not open %s for reading",filename)
end

if not script then
io.stderr:write(tostring(reason).."\n")
os.exit(false)
end

buffer,reason=pcall(script,table.unpack(args,2))
if not buffer then
io.stderr:write(type(reason)=="table"and reason.reason or tostring(reason),"\n")
os.exit(false)
end
F 538 /bin/man.lua
local fs=require("filesystem")
local shell=require("shell")

local args=shell.parse(...)
if#args==0 then
io.write("Usage: man <topic>\n")
io.write("Where `topic` will usually be the name of a program or library.\n")
return 1
end

local topic=args[1]
for path in string.gmatch(os.getenv("MANPATH"),"[^:]+")do
path=shell.resolve(fs.concat(path,topic),"man")
if path and fs.exists(path)and not fs.isDirectory(path)then
os.execute(os.getenv("PAGER").." "..path)
os.exit()
end
end
io.stderr:write("No manual entry for "..topic..'\n')
return 1
F 549 /bin/mkdir.lua
local fs=require("filesystem")
local shell=require("shell")

local args=shell.parse(...)
if#args==0 then
io.write("Usage: mkdir <dirname1> [<dirname2> [...]]\n")
return 1
end

local ec=0
for i=1,#args do
local path=shell.resolve(args[i])
local result,reason=fs.makeDirectory(path)
if not result then
if not reason then
if fs.exists(path)then
reason="file or folder with that name already exists"
else
reason="unknown reason"
end
end
io.stderr:write("mkdir: cannot create directory '"..tostring(args[i]).."': "..reason.."\n")
ec=1
end
end

return ec
F 1515 /bin/mktmp.lua
local fs=require("filesystem")
local shell=require("shell")
local sh=require("sh")

local touch=loadfile(shell.resolve("touch","lua"))
local mkdir=loadfile(shell.resolve("mkdir","lua"))

if not touch then
local errorMessage="missing tools for mktmp"
io.stderr:write(errorMessage..'\n')
return false,errorMessage
end

local args,ops=shell.parse(...)

local function pop(...)
local result
for _,key in ipairs({...})do
result=ops[key]or result
ops[key]=nil
end
return result
end

local directory=pop('d')
local verbose=pop('v','verbose')
local quiet=pop('q','quiet')

if pop('help')or#args>1 or next(ops)then
print([[Usage: mktmp [OPTION] [PATH]
Create a new file with a random name in $TMPDIR or PATH argument if given
  -d              create a directory instead of a file
  -v, --verbose   print result to stdout, even if no tty
  -q, --quiet     do not print results to stdout, even if tty (verbose overrides)
      --help      print this help message]])
if next(ops)then
io.stderr:write("invalid option: "..(next(ops))..'\n')
return 1
end
return
end

if not verbose then
if not quiet then
if io.stdout.tty then
verbose=true
end
end
end

local prefix=args[1]or os.getenv("TMPDIR")..'/'
if not fs.exists(prefix)then
io.stderr:write(
string.format(
"cannot create tmp file or directory at %s, it does not exist\n",
prefix))
return 1
end

local tmp=os.tmpname()
local ok,reason=(directory and mkdir or touch)(tmp)

if sh.internal.command_passed(ok)then
if verbose then
print(tmp)
end
return tmp
end

return ok,reason
F 2100 /bin/mount.lua
local fs=require("filesystem")
local shell=require("shell")

local function usage()
io.stderr:write([==[
Usage: mount [OPTIONS] [device] [path]")
  If no args are given, all current mount points are printed.
  <Options> Note that multiple options can be used together
  -r, --ro    Mount the filesystem read only
      --bind  Create a mount bind point, folder to folder
  <Args>
  device      Specify filesystem device by one of:
              a. label
              b. address (can be abbreviated)
              c. folder path (requires --bind)
  path        Target folder path to mount to

See `man mount` for more details
  ]==])
os.exit(1)
end


local args,opts=shell.parse(...)
opts.readonly=opts.r or opts.readonly

if opts.h or opts.help then
usage()
end

local function print_mounts()

local mounts={}

for proxy,path in fs.mounts()do
local device={}

device.dev_path=proxy.address
device.mount_path=path
device.rw_ro=proxy.isReadOnly()and"ro"or"rw"
device.fs_label=proxy.getLabel()or proxy.address

mounts[device.dev_path]=mounts[device.dev_path]or{}
local dev_mounts=mounts[device.dev_path]
table.insert(dev_mounts,device)
end

local smounts={}
for key,value in pairs(mounts)do
smounts[#smounts+1]={key,value}
end
table.sort(smounts,function(a,b)return a[1]<b[1]end)

for _,dev in ipairs(smounts)do
local dev_path,dev_mounts=table.unpack(dev)
for _,device in ipairs(dev_mounts)do
local rw_ro="("..device.rw_ro..")"
local fs_label="\""..device.fs_label.."\""

io.write(string.format("%-8s on %-10s %s %s\n",
dev_path:sub(1,8),
device.mount_path,
rw_ro,
fs_label))
end
end
end

local function do_mount()

local proxy,reason=fs.proxy(args[1],opts)
if not proxy then
io.stderr:write("Failed to mount: ",tostring(reason),"\n")
os.exit(1)
end

local result,mount_failure=fs.mount(proxy,shell.resolve(args[2]))
if not result then
io.stderr:write(mount_failure,"\n")
os.exit(2)
end
end

if#args==0 then
if next(opts)then
io.stderr:write("Missing argument\n")
usage()
else
print_mounts()
end
elseif#args==2 then
do_mount()
else
io.stderr:write("wrong number of arguments: ",#args,"\n")
usage()
end
F 649 /bin/mv.lua
local shell=require("shell")
local transfer=require("tools/transfer")

local args,options=shell.parse(...)
options.h=options.h or options.help
if#args<2 or options.h then
io.write([[Usage: mv [OPTIONS] <from> <to>
  -f         overwrite without prompt
  -i         prompt before overwriting
             unless -f
  -v         verbose
  -n         do not overwrite an existing file
  --skip=P   ignore paths matching lua regex P
  -h, --help show this help
]])
return not not options.h
end


options=
{
cmd="mv",
f=options.f,
i=options.i,
v=options.v,
n=options.n,
skip={options.skip},
P=true,
r=true,
x=true,
}

return transfer.batch(args,options)
F 275 /bin/notify-send.lua

local args={...}
if#args==0 then io.stderr:write("usage: notify-send TITLE [BODY]\n")return 1 end
local Y=package.loaded["yaru.core"]
if Y and Y.running then Y.notify(args[1],table.concat(args," ",2))
else print(args[1]..(args[2]and(": "..table.concat(args," ",2))or""))end
F 9154 /bin/ocv.lua









local component=require("component")
local computer=require("computer")
local event=require("event")
local fs=require("filesystem")
local shell=require("shell")
local term=require("term")

local gpu=component.gpu

local byte,concat,floor=string.byte,table.concat,math.floor
local uptime=computer.uptime

local HEADER_SIZE=64
local MAX_SKIP=4
local RAM_SHARE=0.4
local REFILL=3
local KEY_SPACE,KEY_Q=32,113

local OP_BG,OP_FG,OP_BOTH,OP_TEXT=1,2,3,4



local function u16(s,o)return byte(s,o)*0x100+byte(s,o+1)end
local function u32(s,o)return u16(s,o)*0x10000+u16(s,o+2)end

local function fail(msg)
error(msg,0)
end




local function buildColorTable(header)
local rgb={}
for i=0,15 do
local o=17+i*3
rgb[i]=byte(header,o)*0x10000+byte(header,o+1)*0x100+byte(header,o+2)
end
for i=0,239 do
local r=floor(floor(i/40)*255/5+0.5)
local g=floor(floor(i/5)%8*255/7+0.5)
local b=floor(i%5*255/4+0.5)
rgb[16+i]=r*0x10000+g*0x100+b
end
return rgb
end




local function buildGlyphTable()
local chars={[0]=" ","▄","▀","█"}
local t={}
for n=1,4 do
t[n]={}
for b=0,255 do
local s={}
for i=1,n do
s[i]=chars[floor(b/4^(4-i))%4]
end
t[n][b]=concat(s)
end
end
return t
end



local function readIndex(dir)
local f,err=io.open(fs.concat(dir,"index.ocv"),"rb")
if not f then fail("cannot open index.ocv: "..tostring(err))end
local h=f:read(HEADER_SIZE)
f:close()
if not h or#h<HEADER_SIZE or h:sub(1,4)~="OCV5"then
fail("bad index.ocv (нужен OCV5, перекодируй через ocv_encode.py)")
end
local v={
dir=dir,
width=u16(h,5),
height=u16(h,7),
fps=u16(h,9)/100,
frames=u32(h,11),
parts=u16(h,15),
header=h,
}
if v.width<1 or v.height<1 or v.fps<=0 or v.frames<1 or v.parts<1 then
fail("bad index.ocv: пустое или повреждённое видео")
end
return v
end



local function openStream(video,capacity)
local part,file=0,nil
local queue,head,tail,bytes={},1,0,0
local eof=false
local stream={}

local function readFrame()
while true do
if not file then
part=part+1
if part>video.parts then return nil end
local path=fs.concat(video.dir,string.format("part%04d.ocv",part))
local err
file,err=io.open(path,"rb")
if not file then fail("cannot open "..path..": "..tostring(err))end
end
local head4=file:read(4)
if head4 and#head4==4 then
local len=u32(head4,1)
if len==0 then return""end
local data=file:read(len)
if not data or#data<len then fail("truncated frame in part "..part)end
return data
end
file:close()
file=nil
end
end

function stream.fill(maxFrames,yieldEvery)
local n=0
while not eof and bytes<capacity and n<maxFrames do
local data=readFrame()
if not data then eof=true;break end
tail=tail+1
queue[tail]=data
bytes=bytes+#data
n=n+1
if yieldEvery and n%yieldEvery==0 then event.pull(0)end
end
return n
end

function stream.next()
if head>tail then stream.fill(1)end
if head>tail then return nil end
local data=queue[head]
queue[head]=nil
head=head+1
bytes=bytes-#data
return data
end

function stream.buffered()return tail-head+1,bytes end

function stream.close()
if file then file:close();file=nil end
queue,head,tail,bytes={},1,0,0
end

return stream
end



local Display={}
Display.__index=Display

function Display.open(w,h,palette)
if gpu.maxDepth()<8 then fail("нужен GPU и экран Tier 3")end
local mw,mh=gpu.maxResolution()
if mw<w or mh<h then
fail(string.format("экран %dx%d меньше видео %dx%d",mw,mh,w,h))
end

local self=setmetatable({w=w,h=h},Display)
self.saved={
depth=gpu.getDepth(),
fg=gpu.getForeground(),
bg=gpu.getBackground(),
palette={},
}
self.saved.w,self.saved.h=gpu.getResolution()

gpu.setDepth(8)
gpu.setResolution(w,h)
for i=0,15 do self.saved.palette[i]=gpu.getPaletteColor(i)end
self:_applyPalette(palette)


if gpu.allocateBuffer then
local ok,buf=pcall(gpu.allocateBuffer,w,h)
if ok and buf then
self.buffer=buf
gpu.setActiveBuffer(buf)
self:_applyPalette(palette)
end
end

self:clear()
return self
end

function Display:_applyPalette(palette)
for i=0,15 do gpu.setPaletteColor(i,palette[i])end
end


function Display:clear()
gpu.setBackground(0x000000)
gpu.fill(1,1,self.w,self.h," ")
self:present()
end

function Display:present()
if self.buffer then
gpu.bitblt(0,1,1,self.w,self.h,self.buffer,1,1)
end
end

function Display:close()
local s=self.saved
pcall(function()
if self.buffer then
gpu.setActiveBuffer(0)
gpu.freeBuffer(self.buffer)
end
for i=0,15 do gpu.setPaletteColor(i,s.palette[i])end
gpu.setDepth(s.depth)
gpu.setResolution(s.w,s.h)
gpu.setForeground(s.fg)
gpu.setBackground(s.bg)
end)
term.clear()
end



local function makeRenderer(colors,glyphs)
local setBg,setFg,set=gpu.setBackground,gpu.setForeground,gpu.set
local g4=glyphs[4]
local parts={}

return function(data)
local p,n,sets=1,#data,0
while p<=n do
local op=byte(data,p)
if op==OP_TEXT then
local x,y,len=byte(data,p+1,p+3)
local q=p+4
if len<=4 then
set(x,y,glyphs[len][byte(data,q)])
p=q+1
sets=sets+1
else
local full=floor(len/4)
for i=1,full do parts[i]=g4[byte(data,q+i-1)]end
local cnt,rest=full,len-full*4
if rest>0 then
cnt=cnt+1
parts[cnt]=glyphs[rest][byte(data,q+full)]
end
set(x,y,concat(parts,"",1,cnt))
p=q+cnt
sets=sets+1
end
elseif op==OP_BOTH then
setBg(colors[byte(data,p+1)])
setFg(colors[byte(data,p+2)])
p=p+3
elseif op==OP_BG then
setBg(colors[byte(data,p+1)])
p=p+2
elseif op==OP_FG then
setFg(colors[byte(data,p+1)])
p=p+2
else
error(string.format("corrupted frame: op %d at %d",op,p),0)
end
end
return sets
end
end



local QUIT,PAUSE="quit","pause"

local function poll(timeout)
local name,_,char=event.pull(timeout)
if name=="interrupted"then return QUIT end
if name=="key_down"then
if char==KEY_Q then return QUIT end
if char==KEY_SPACE then return PAUSE end
end
end

local function waitUntil(deadline)
repeat
local cmd=poll(math.max(0,deadline-uptime()))
if cmd then return cmd end
until uptime()>=deadline
end



local function play(video,display,render,stats)
local capacity=math.max(64*1024,floor(computer.freeMemory()*RAM_SHARE))
local stream=openStream(video,capacity)
stream.fill(math.huge,8)
local frames0,bytes0=stream.buffered()
stats.preload=stats.preload or string.format("%d кадров / %d КБ",frames0,floor(bytes0/1024))

local interval=1/video.fps
local t0=uptime()
local skipped=0

local ok,result=pcall(function()
for k=0,video.frames-1 do
local data=stream.next()
if not data then return end

local c0=os.clock()
stats.sets=stats.sets+render(data)
stats.cpu=stats.cpu+(os.clock()-c0)
stats.drawn=stats.drawn+1

local due=t0+k*interval
local now=uptime()
local cmd

if display.buffer and now>due+interval and skipped<MAX_SKIP and k<video.frames-1 then

skipped=skipped+1
stats.late=stats.late+1
cmd=poll(0)
else
stream.fill(REFILL)
cmd=waitUntil(due)
display:present()
skipped=0
end

if cmd==PAUSE then
local p0=uptime()
repeat cmd=poll(math.huge)until cmd
t0=t0+(uptime()-p0)
end
if cmd==QUIT then return QUIT end
end
end)

stream.close()
if not ok then error(result,0)end
return result
end



local HEADROOM=0.7


local function recommend(stats,fps)
if stats.drawn==0 or stats.sets==0 then return end
local perSet=stats.cpu/stats.sets
local avgSets=stats.sets/stats.drawn
print(string.format("Не успевает: в среднем %d gpu.set на кадр, %.3f мс на вызов.",
floor(avgSets+0.5),perSet*1000))
local targets=fps>10 and{fps,10}or{fps}
local printed=false
for _,f in ipairs(targets)do
local budget=floor(HEADROOM/f/perSet/50)*50
if budget>=100 and budget<avgSets then
print(string.format("  перекодируй: --fps %g --max-sets %d",f,budget))
printed=true
end
end
if not printed then
if floor(HEADROOM/10/perSet)<100 then
print("  слишком медленно даже для 10 fps: уменьши --width/--height")
else
print("  рисование укладывается — тормозит не GPU, а диск или TPS сервера")
end
end
end



local function main(...)
local args,opts=shell.parse(...)
local dir=args[1]
if not dir then
print("usage: ocv <video_folder> [-l]")
print("  -l  зациклить   |   Space — пауза, Q / Ctrl+C — выход")
return
end
dir=shell.resolve(dir)
if not fs.isDirectory(dir)then fail("папка не найдена: "..dir)end

local video=readIndex(dir)
local colors=buildColorTable(video.header)
local render=makeRenderer(colors,buildGlyphTable())
local display=Display.open(video.width,video.height,colors)
local stats={drawn=0,late=0,cpu=0,sets=0}
local started=uptime()

local ok,err=pcall(function()
repeat
if play(video,display,render,stats)==QUIT then break end
if opts.l then display:clear()end
until not opts.l
end)

display:close()
if not ok and err~="interrupted"then fail(err)end

local elapsed=math.max(uptime()-started,1e-6)
print(string.format("%d кадров за %.1f с (%.1f fps), пропущено выводов: %d, CPU на кадр: %.1f мс",
stats.drawn,elapsed,(stats.drawn-stats.late)/elapsed,stats.late,
stats.cpu/math.max(stats.drawn,1)*1000))
print("Буфер ОЗУ при старте: "..tostring(stats.preload))
if stats.late>stats.drawn/10 then recommend(stats,video.fps)end
end

local ok,err=pcall(main,...)
if not ok then
io.stderr:write("ocv: "..tostring(err).."\n")
end
F 1883 /bin/ocv_get.lua





local component=require("component")
local computer=require("computer")
local fs=require("filesystem")
local shell=require("shell")
local term=require("term")

if not component.isAvailable("internet")then
io.stderr:write("ocv_get: нужна интернет-карта\n")
return
end
local internet=require("internet")

local args=shell.parse(...)
local base,dir=args[1],args[2]or"video"
if not base then
print("usage: ocv_get <url> [folder]")
return
end
if base:sub(-1)~="/"then base=base.."/"end
dir=shell.resolve(dir)

local function human(n)
if n>=1048576 then return string.format("%.2f MB",n/1048576)end
if n>=1024 then return string.format("%.1f KB",n/1024)end
return n.." B"
end

local function status(text)
local _,y=term.getCursor()
term.setCursor(1,y)
term.clearLine()
io.write(text)
end

local function download(name,label)
local path=fs.concat(dir,name)
local file=assert(io.open(path,"wb"))
local size,t0,lastDraw=0,computer.uptime(),0

local ok,err=pcall(function()
for chunk in internet.request(base..name)do
file:write(chunk)
size=size+#chunk
local now=computer.uptime()
if now-lastDraw>=0.25 then
lastDraw=now
status(label.."  "..human(size))
end
end
end)
file:close()

if not ok or size==0 then
fs.remove(path)
error(name..": "..tostring(err or"пустой ответ"),0)
end
status(string.format("%s  %s  %.1fs\n",label,human(size),computer.uptime()-t0))
end

local ok,err=pcall(function()
fs.makeDirectory(dir)
download("index.ocv","index.ocv")

local f=assert(io.open(fs.concat(dir,"index.ocv"),"rb"))
local h=f:read(64)
f:close()
if not h or#h<64 or h:sub(1,4)~="OCV5"then error("index.ocv: не OCV5",0)end

local parts=h:byte(15)*256+h:byte(16)
for i=1,parts do
download(string.format("part%04d.ocv",i),string.format("[%d/%d]",i,parts))
end
print("Готово: ocv "..dir)
end)

if not ok then io.stderr:write("\nocv_get: "..tostring(err).."\n")end
F 2232 /bin/optimize.lua





local shell=require("shell")
local fs=require("filesystem")
local args,opts=shell.parse(...)
local BASE="/usr/share/optimize"
local ok,man=pcall(dofile,BASE.."/manifest.lua")
if not ok then io.stderr:write("optimize: manifest missing ("..tostring(man)..")\n")return 1 end

local function read(p)local f=io.open(p,"rb")if not f then return nil end local d=f:read("*a")f:close()return d end
local function setCfg(key,value)
local cfg={}
local d=read("/etc/yaru.cfg")
if d then local s,t=pcall(require("serialization").unserialize,d)if s and type(t)=="table"then cfg=t end end
cfg[key]=value
local f=assert(io.open("/etc/yaru.cfg","w"))f:write(require("serialization").serialize(cfg))f:close()
end

local cmd=args[1]or"status"
if cmd=="status"then
print("Optimisation package "..man.version)
for _,p in ipairs(man.patched)do
local cur,orig=read(p),read(BASE.."/orig"..p)
local state=not orig and"no backup"or cur==orig and"original"or"patched"
print(string.format("  %-24s %s",p,state))
end
for _,p in ipairs(man.added)do print(string.format("  %-24s %s",p,fs.exists(p)and"installed"or"absent"))end
local d=read("/etc/yaru.cfg")or""
print("  desktop autostart: "..(d:find("autostart%s*=%s*false")and"off"or"on"))
elseif cmd=="rollback"then
io.write(opts.keep and"Restore the original OpenOS system files (desktop stays installed)? [y/N] "
or"Restore original OpenOS files and REMOVE the desktop? [y/N] ")
local a=io.read()
if not a or not a:lower():match("^y")then print("cancelled")return end
for _,p in ipairs(man.patched)do
local orig=read(BASE.."/orig"..p)
if orig then
local f,err=io.open(p,"wb")
if f then f:write(orig)f:close()print("restored "..p)else io.stderr:write(p..": "..tostring(err).."\n")end
end
end
if not opts.keep then
for _,p in ipairs(man.added)do if fs.exists(p)then fs.remove(p)print("removed "..p)end end
for _,p in ipairs(man.state)do if fs.exists(p)then fs.remove(p)end end
print("Backups kept in "..BASE.." (delete it to free space).")
end
print("Done. Reboot to apply.")
elseif cmd=="desktop"then
local on=args[2]~="off"
setCfg("autostart",on)
print("desktop autostart "..(on and"enabled"or"disabled"))
else
io.stderr:write("usage: optimize status | rollback [--keep] | desktop on|off\n")return 1
end
F 3266 /bin/pastebin.lua


local component=require("component")
local fs=require("filesystem")
local internet=require("internet")
local shell=require("shell")

if not component.isAvailable("internet")then
io.stderr:write("This program requires an internet card to run.")
return
end

local args,options=shell.parse(...)


local function get(pasteId,filename)
local f,reason=io.open(filename,"w")
if not f then
io.stderr:write("Failed opening file for writing: "..reason)
return
end

io.write("Downloading from pastebin.com... ")
local url="https://pastebin.com/raw/"..pasteId
local result,response=pcall(internet.request,url)
if result then
io.write("success.\n")
for chunk in response do
if not options.k then
string.gsub(chunk,"\r\n","\n")
end
f:write(chunk)
end

f:close()
io.write("Saved data to "..filename.."\n")
else
io.write("failed.\n")
f:close()
fs.remove(filename)
io.stderr:write("HTTP request failed: "..response.."\n")
end
end


local function encode(code)
if code then
code=string.gsub(code,"([^%w ])",function(c)
return string.format("%%%02X",string.byte(c))
end)
code=string.gsub(code," ","+")
end
return code
end



local function run(pasteId,...)
local tmpFile=os.tmpname()
get(pasteId,tmpFile)
io.write("Running...\n")

local success,reason=shell.execute(tmpFile,nil,...)
if not success then
io.stderr:write(reason)
end
fs.remove(tmpFile)
end


local function put(path)
local config={}
local configFile=loadfile("/etc/pastebin.conf","t",config)
if configFile then
local result,reason=pcall(configFile)
if not result then
io.stderr:write("Failed loading config: "..reason)
end
end
config.key=config.key or"fd92bd40a84c127eeb6804b146793c97"
local file,reason=io.open(path,"r")

if not file then
io.stderr:write("Failed opening file for reading: "..reason)
return
end

local data=file:read("*a")
file:close()

io.write("Uploading to pastebin.com... ")
local result,response=pcall(internet.request,
"https://pastebin.com/api/api_post.php",
"api_option=paste&"..
"api_dev_key="..config.key.."&"..
"api_paste_format=lua&"..
"api_paste_expire_date=N&"..
"api_paste_name="..encode(fs.name(path)).."&"..
"api_paste_code="..encode(data))

if result then
local info=""
for chunk in response do
info=info..chunk
end
if string.match(info,"^Bad API request, ")then
io.write("failed.\n")
io.write(info)
else
io.write("success.\n")
local pasteId=string.match(info,"[^/]+$")
io.write("Uploaded as "..info.."\n")
io.write('Run "pastebin get '..pasteId..'" to download anywhere.')
end
else
io.write("failed.\n")
io.stderr:write(response)
end
end

local command=args[1]
if command=="put"then
if#args==2 then
put(shell.resolve(args[2]))
return
end
elseif command=="get"then
if#args==3 then
local path=shell.resolve(args[3])
if fs.exists(path)then
if not options.f or not os.remove(path)then
io.stderr:write("file already exists")
return
end
end
get(args[2],path)
return
end
elseif command=="run"then
if#args>=2 then
run(args[2],table.unpack(args,3))
return
end
end


io.write("Usages:\n")
io.write("pastebin put [-f] <file>\n")
io.write("pastebin get [-f] <id> <file>\n")
io.write("pastebin run [-f] <id> [<arguments...>]\n")
io.write(" -f: Force overwriting existing files.\n")
io.write(" -k: keep line endings as-is (will convert\n")
io.write("     Windows line endings to Unix otherwise).")F 638 /bin/primary.lua
local component=require("component")
local shell=require("shell")

local args=shell.parse(...)
if#args==0 then
io.write("Usage: primary <type> [<address>]\n")
io.write("Note that the address may be abbreviated.\n")
return 1
end

local componentType=args[1]

if#args>1 then
local address=args[2]
if not component.get(address)then
io.stderr:write("no component with this address\n")
return 1
else
component.setPrimary(componentType,address)
os.sleep(0.1)
end
end
if component.isAvailable(componentType)then
io.write(component.getPrimary(componentType).address,"\n")
else
io.stderr:write("no primary component for this type\n")
return 1
end
F 2857 /bin/ps.lua
local process=require("process")
local unicode=require("unicode")
local event=require("event")
local event_mt=getmetatable(event.handlers)



local data={}
local widths={}
local sorted={}
local moved_indexes={}

local elbow=unicode.char(0x2514)

local function thread_id(t,p)
if t then
return tostring(t):gsub("^thread: 0x","")
end

for k,v in pairs(process.list)do
if v==p then
return thread_id(k)
end
end
return"-"
end

local cols=
{
{"PID",thread_id},
{"EVENTS",function(_,p)
local handlers={}
if event_mt.threaded then
handlers=rawget(p.data,"handlers")or{}
elseif not p.parent then
handlers=event.handlers
end
local count=0
for _ in pairs(handlers)do
count=count+1
end
return count==0 and"-"or tostring(count)
end},
{"THREADS",function(_,p)

local count=0
for _,h in ipairs(p.data.handles)do
local mt=getmetatable(h)
if mt and mt.__status then
count=count+1
end
end
return count==0 and"-"or tostring(count)
end},
{"PARENT",function(_,p)
for _,process_info in pairs(process.list)do
for i,handle in ipairs(process_info.data.handles)do
local mt=getmetatable(handle)
if mt and mt.__status then
if mt.process==p then
return thread_id(nil,process_info)
end
end
end
end
return thread_id(nil,p.parent)
end},
{"HANDLES",function(_,p)
local count=#p.data.handles
return count==0 and"-"or tostring(count)
end},
{"CMD",function(_,p)return p.command end},
}

local function add_field(key,value)
if not data[key]then data[key]={}end
table.insert(data[key],value)
widths[key]=math.max(widths[key]or 0,#value)
end

for _,key in ipairs(cols)do
add_field(key[1],key[1])
end

for thread_handle,process_info in pairs(process.list)do
for _,key in ipairs(cols)do
add_field(key[1],key[2](thread_handle,process_info))
end
end

local parent_index
for index,set in ipairs(cols)do
if set[1]=="PARENT"then
parent_index=index
break
end
end
assert(parent_index,"did not find a parent column")

local function move_to_sorted(index)
if moved_indexes[index]then
return false
end
local entry={}
for k,v in pairs(data)do
entry[k]=v[index]
end
sorted[#sorted+1]=entry
moved_indexes[index]=true
return true
end

local function make_elbow(depth)
return(" "):rep(depth-1)..(depth>0 and elbow or"")
end


move_to_sorted(1)

local function update_family(parent,depth)
depth=depth or 0
parent=parent or"-"
for index in ipairs(data.PID)do
local this_parent=data[cols[parent_index][1]][index]
if this_parent==parent then
local dash_cmd=make_elbow(depth)..data.CMD[index]
data.CMD[index]=dash_cmd
widths.CMD=math.max(widths.CMD or 0,#dash_cmd)
if move_to_sorted(index)then
update_family(data.PID[index],depth+1)
end
end
end
end

update_family()
table.remove(cols,parent_index)

for _,set in ipairs(sorted)do
local split=""
for _,key in ipairs(cols)do
local label=key[1]
local format=split.."%-"..tostring(widths[label]).."s"
io.write(string.format(format,set[label]))
split="   "
end
print()
end

F 309 /bin/pwd.lua
local shell=require("shell")
local fs=require("filesystem")
local _,op=shell.parse(...)

local path,why=shell.getWorkingDirectory(),""
if op.P then
path,why=fs.realPath(path)
end
if not path then
io.stderr:write(string.format("error retrieving current directory: %s",why))
os.exit(1)
end

io.write(path,"\n")
F 3215 /bin/rc.lua
local rc=require("rc")
local fs=require("filesystem")

local function loadConfig()
local env={}
local result,reason=loadfile('/etc/rc.cfg','t',env)
if result then
result,reason=xpcall(result,debug.traceback)
if result then
return env
end
end
return nil,reason
end

local function saveConfig(conf)
local file,reason=io.open('/etc/rc.cfg','w')
if not file then
return nil,reason
end
for key,value in pairs(conf)do
file:write(tostring(key).." = "..require("serialization").serialize(value).."\n")
end

file:close()
return true
end

local function load(name,args)
if rc.loaded[name]then
return rc.loaded[name]
end
local fileName=fs.concat('/etc/rc.d/',name..'.lua')
local env=setmetatable({args=args},{__index=_G})
local result,reason=loadfile(fileName,'t',env)
if result then
result,reason=xpcall(result,debug.traceback)
if result then
rc.loaded[name]=env
return env
else
return nil,string.format("%s failed to start: %s",fileName,reason)
end
end
return nil,string.format("%s failed to load: %s",fileName,reason)
end

function rc.unload(name)
rc.loaded[name]=nil
end

local function rawRunCommand(conf,name,cmd,args,...)
local result,what=load(name,args)
if result then
if not cmd then
io.output():write("Commands for service "..name.."\n")
for command,val in pairs(result)do
if type(val)=="function"then
io.output():write(tostring(command).." ")
end
end
return true
elseif type(result[cmd])=="function"then
result,what=xpcall(result[cmd],debug.traceback,...)
if result then
return true
end
elseif cmd=="restart"and type(result["stop"])=="function"and type(result["start"])=="function"then
local daemon=result
result,what=xpcall(daemon["stop"],debug.traceback,...)
if result then
result,what=xpcall(daemon["start"],debug.traceback,...)
if result then
return true
end
end
elseif cmd=="enable"then
conf.enabled=conf.enabled or{}
for _,_name in ipairs(conf.enabled)do
if name==_name then
return nil,"Service already enabled"
end
end
conf.enabled[#conf.enabled+1]=name
return saveConfig(conf)
elseif cmd=="disable"then
conf.enabled=conf.enabled or{}
for n,_name in ipairs(conf.enabled)do
if name==_name then
table.remove(conf.enabled,n)
end
end
return saveConfig(conf)
else
what="Command '"..cmd.."' not found in daemon '"..name.."'"
end
end
return nil,what
end

local function runCommand(name,cmd,...)
local conf,reason=loadConfig()
if not conf then
return nil,reason
end
return rawRunCommand(conf,name,cmd,conf[name],...)
end

local function allRunCommand(cmd,...)
local conf,reason=loadConfig()
if not conf then
return nil,reason
end
local results={}
for _,name in ipairs(conf.enabled or{})do
results[name]=table.pack(rawRunCommand(conf,name,cmd,conf[name],...))
end
return results
end

local stream=io.stderr
local write=stream.write

if select("#",...)==0 then

if _G.runlevel=="S"then
write=function(_,msg)
require("event").onError(msg)
end
end

local results,reason=allRunCommand("start")
if not results then
local msg="rc failed to start:"..tostring(reason)
write(stream,msg,"\n")
return
end
for _,result in pairs(results)do
local ok,reason=table.unpack(result)
if not ok then
write(stream,reason,"\n")
end
end
else
local result,reason=runCommand(...)
if not result then
write(stream,reason,"\n")
return 1
end
end
F 84 /bin/reboot.lua
local computer=require("computer")

io.write("Rebooting...")
computer.shutdown(true)F 2416 /bin/redstone.lua
local colors=require("colors")
local component=require("component")
local shell=require("shell")
local sides=require("sides")

if not component.isAvailable("redstone")then
io.stderr:write("This program requires a redstone card or redstone I/O block.\n")
return 1
end
local rs=component.redstone

local args,options=shell.parse(...)
if#args==0 and not options.w and not options.f then
io.write("Usage:\n")
io.write("  redstone <side> [<value>]\n")
if rs.setBundledOutput then
io.write("  redstone -b <side> <color> [<value>]\n")
end
if rs.setWirelessOutput then
io.write("  redstone -w [<value>]\n")
io.write("  redstone -f [<frequency>]\n")
end
return
end

if options.w then
if not rs.setWirelessOutput then
io.stderr:write("wireless redstone not available\n")
return 1
end
if#args>0 then
local value=args[1]
if tonumber(value)then
value=tonumber(value)>0
else
value=({["true"]=true,["on"]=true,["yes"]=true})[value]~=nil
end
rs.setWirelessOutput(value)
end
io.write("in: "..tostring(rs.getWirelessInput()).."\n")
io.write("out: "..tostring(rs.getWirelessOutput()).."\n")
elseif options.f then
if not rs.setWirelessOutput then
io.stderr:write("wireless redstone not available\n")
return 1
end
if#args>0 then
local value=args[1]
if not tonumber(value)then
io.stderr:write("invalid frequency\n")
return 1
end
rs.setWirelessFrequency(tonumber(value))
end
io.write("freq: "..tostring(rs.getWirelessFrequency()).."\n")
else
local side=sides[args[1]]
if not side then
io.stderr:write("invalid side\n")
return 1
end
if type(side)=="string"then
side=sides[side]
end

if options.b then
if not rs.setBundledOutput then
io.stderr:write("bundled redstone not available\n")
return 1
end
local color=colors[args[2]]
if not color then
io.stderr:write("invalid color\n")
return 1
end
if type(color)=="string"then
color=colors[color]
end
if#args>2 then
local value=args[3]
if tonumber(value)then
value=tonumber(value)
else
value=({["true"]=true,["on"]=true,["yes"]=true})[value]and 255 or 0
end
rs.setBundledOutput(side,color,value)
end
io.write("in: "..rs.getBundledInput(side,color).."\n")
io.write("out: "..rs.getBundledOutput(side,color).."\n")
else
if#args>1 then
local value=args[2]
if tonumber(value)then
value=tonumber(value)
else
value=({["true"]=true,["on"]=true,["yes"]=true})[value]and 15 or 0
end
rs.setOutput(side,value)
end
io.write("in: "..rs.getInput(side).."\n")
io.write("out: "..rs.getOutput(side).."\n")
end
end
F 527 /bin/resolution.lua
local shell=require("shell")
local tty=require("tty")

local args=shell.parse(...)
local gpu=tty.gpu()

if#args==0 then
local w,h=gpu.getViewport()
io.write(w," ",h,"\n")
return
end

if#args~=2 then
print("Usage: resolution [<width> <height>]")
return
end

local w=tonumber(args[1])
local h=tonumber(args[2])
if not w or not h then
io.stderr:write("invalid width or height\n")
return 1
end

local result,reason=gpu.setResolution(w,h)
if not result then
if reason then
io.stderr:write(reason..'\n')
end
return 1
end
tty.clear()
F 3491 /bin/rm.lua
local fs=require("filesystem")
local shell=require("shell")

local function usage()
print("Usage: rm [options] <filename1> [<filename2> [...]]"..[[

  -f          ignore nonexistent files and arguments, never prompt
  -r          remove directories and their contents recursively
  -v          explain what is being done
      --help  display this help and exit

For complete documentation and more options, run: man rm]])
end

local args,options=shell.parse(...)
if#args==0 or options.help then
usage()
return 1
end

local bRec=options.r or options.R or options.recursive
local bForce=options.f or options.force
local bVerbose=options.v or options.verbose
local bEmptyDirs=options.d or options.dir
local promptLevel=(options.I and 3)or(options.i and 1)or 0

bVerbose=bVerbose and not bForce
promptLevel=bForce and 0 or promptLevel

local function perr(...)
if not bForce then
io.stderr:write(...)
end
end

local function pout(...)
if not bForce then
io.stdout:write(...)
end
end

local metas={}




local function _path(m)return shell.resolve(m.rel)end
local function _link(m)return fs.isLink(_path(m))end
local function _exists(m)return _link(m)or fs.exists(_path(m))end
local function _dir(m)return not _link(m)and fs.isDirectory(_path(m))end
local function _readonly(m)return not _exists(m)or fs.get(_path(m)).isReadOnly()end
local function _empty(m)return _exists(m)and _dir(m)and(fs.list(_path(m))==nil)end

local function createMeta(origin,rel)
local m={origin=origin,rel=rel:gsub("/+$","")}
if _dir(m)then
m.rel=m.rel..'/'
end
return m
end

local function unlink(path)
os.remove(path)
return true
end

local function confirm()
if bForce then
return true
end
local r=io.read()
return r=='y'or r=='yes'
end

local remove

local function remove_all(parent)
if parent==nil or not _dir(parent)or _empty(parent)then
return true
end

local all_ok=true
if bRec and promptLevel==1 then
pout(string.format("rm: descend into directory `%s'? ",parent.rel))
if not confirm()then
return false
end

for file in fs.list(_path(parent))do
local child=createMeta(parent.origin,parent.rel..file)
all_ok=remove(child)and all_ok
end
end

return all_ok
end

remove=function(meta)
if not remove_all(meta)then
return false
end

if not _exists(meta)then
perr(string.format("rm: cannot remove `%s': No such file or directory\n",meta.rel))
return false
elseif _dir(meta)and not bRec and not(_empty(meta)and bEmptyDirs)then
if not bEmptyDirs then
perr(string.format("rm: cannot remove `%s': Is a directory\n",meta.rel))
else
perr(string.format("rm: cannot remove `%s': Directory not empty\n",meta.rel))
end
return false
end

local ok=true
if promptLevel==1 then
if _dir(meta)then
pout(string.format("rm: remove directory `%s'? ",meta.rel))
elseif meta.link then
pout(string.format("rm: remove symbolic link `%s'? ",meta.rel))
else
pout(string.format("rm: remove regular file `%s'? ",meta.rel))
end

ok=confirm()
end

if ok then
if _readonly(meta)then
perr(string.format("rm: cannot remove `%s': Is read only\n",meta.rel))
return false
elseif not unlink(_path(meta))then
perr(meta.rel..": failed to be removed\n")
ok=false
elseif bVerbose then
pout("removed '"..meta.rel.."'\n");
end
end

return ok
end

for _,arg in ipairs(args)do
metas[#metas+1]=createMeta(arg,arg)
end

if promptLevel==3 and#metas>3 then
pout(string.format("rm: remove %i arguments? ",#metas))
if not confirm()then
return
end
end

local ok=true
for _,meta in ipairs(metas)do
local result=remove(meta)
ok=ok and result
end

return bForce or ok
F 2224 /bin/rmdir.lua
local shell=require("shell")
local fs=require("filesystem")
local text=require("text")

local args,options=shell.parse(...)

local function usage()
print(
[[Usage: rmdir [OPTION]... DIRECTORY...
Removes the DIRECTORY(ies), if they are empty.

  -q, --ignore-fail-on-non-empty
                  ignore failures due solely to non-empty directories
  -p, --parents   remove DIRECTORY and its empty ancestors
                  e.g. 'rmdir -p a/b/c' is similar to 'rmdir a/b/c a/b a'
  -v, --verbose   output a diagnostic for every directory processed
      --help      display this help and exit]])
end

if options.help then
usage()
return 0
end

if#args==0 then
io.stderr:write("rmdir: missing operand\n")
return 1
end

options.p=options.p or options.parents
options.v=options.v or options.verbose
options.q=options.q or options['ignore-fail-on-non-empty']

local ec=0
local function ec_bump()
ec=1
return 1
end

local function remove(path,...)

if path==nil then
return true
end

if options.v then
print(string.format('rmdir: removing directory, %s',path))
end

local rpath=shell.resolve(path)
if path=='.'then
io.stderr:write('rmdir: failed to remove directory \'.\': Invalid argument\n')
return ec_bump()
elseif not fs.exists(rpath)then
io.stderr:write("rmdir: cannot remove "..path..": path does not exist\n")
return ec_bump()
elseif fs.isLink(rpath)or not fs.isDirectory(rpath)then
io.stderr:write("rmdir: cannot remove "..path..": not a directory\n")
return ec_bump()
else
local list,reason=fs.list(rpath)

if not list then
io.stderr:write(tostring(reason)..'\n')
return ec_bump()
else
if list()then
if not options.q then
io.stderr:write("rmdir: failed to remove "..path..": Directory not empty\n")
end
return ec_bump()
else

local ok,reason=fs.remove(rpath)
if not ok then
io.stderr:write(tostring(reason)..'\n')
return ec_bump(),reason
end
return remove(...)
end
end
end
end

for _,path in ipairs(args)do

path=path:gsub('/+','/')

local segments={}
if options.p and path:len()>1 and path:find('/')then
local chain=text.split(path,{'/'},true)
local prefix=''
for _,e in ipairs(chain)do
table.insert(segments,1,prefix..e)
prefix=prefix..e..'/'
end
else
segments={path}
end

remove(table.unpack(segments))
end

return ec
F 366 /bin/set.lua
local args={...}

if#args<1 then
for k,v in pairs(os.getenv())do
io.write(k.."='"..string.gsub(v,"'",[['"'"']]).."'\n")
end
else
local count=0
for _,expr in ipairs(args)do
local e=expr:find('=')
if e then
os.setenv(expr:sub(1,e-1),expr:sub(e+1))
else
if count==0 then
for i=1,os.getenv('#')do
os.setenv(i,nil)
end
end
count=count+1
os.setenv(count,expr)
end
end
end
F 828 /bin/sh.lua
local shell=require("shell")
local tty=require("tty")
local text=require("text")
local sh=require("sh")

local args=shell.parse(...)

shell.prime()

if#args==0 then
local has_profile
local input_handler={hint=sh.hintHandler}
while true do
if io.stdin.tty and io.stdout.tty then
if not has_profile then
has_profile=true
dofile("/etc/profile.lua")
end
if tty.getCursor()>1 then
io.write("\n")
end
io.write(sh.expand(os.getenv("PS1")or"$ "))
end
tty.window.cursor=input_handler
local command=io.stdin:readLine(false)
tty.window.cursor=nil
if command then
command=text.trim(command)
if command=="exit"then
return
elseif command~=""then

local result,reason=sh.execute(_ENV,command)
if not result and reason then
io.stderr:write(tostring(reason),"\n")
end
end
elseif command==nil then
return
end
end
else

return sh.execute(...)
end
F 92 /bin/shutdown.lua
local computer=require("computer")
local tty=require("tty")

tty.clear()
computer.shutdown()F 1407 /bin/sleep.lua
local shell=require("shell")
local args,options=shell.parse(...)

if options.help then
print([[Usage: sleep NUMBER[SUFFIX]...
Pause for NUMBER seconds.  SUFFIX may be 's' for seconds (the default),
'm' for minutes, 'h' for hours or 'd' for days.  Unlike most implementations
that require NUMBER be an integer, here NUMBER may be an arbitrary floating
point number.  Given two or more arguments, pause for the amount of time
specified by the sum of their values.]])
end

local function help(bad_arg)
print("sleep: invalid option -- '"..tostring(bad_arg).."'")
print("Try 'sleep --help' for more information.")
end

local function time_type_multiplier(time_type)
if not time_type or#time_type==0 or time_type=='s'then
return 1
elseif time_type=='m'then
return 60
elseif time_type=='h'then
return 60*60
elseif time_type=='d'then
return 60*60*24
end


assert(false,'bug parsing parameter:'..tostring(time_type))
end

options.help=nil
if next(options)then
help(next(options))
return 1
end

local total_time=0

for _,v in ipairs(args)do
local interval,time_type=v:match('^([%d%.]+)([smhd]?)$')
interval=tonumber(interval)

if not interval or interval<0 then
help(v)
return 1
end

total_time=total_time+time_type_multiplier(time_type)*interval
end

local ins=io.stdin.stream
local pull=ins.pull
local start=1
if not pull then
pull=require("event").pull
start=2
end
pull(select(start,ins,total_time,"interrupted"))
F 770 /bin/source.lua
local shell=require("shell")
local process=require("process")

local args,options=shell.parse(...)

if#args~=1 then
io.stderr:write("specify a single file to source\n");
return 1
end

local file,open_reason=io.open(args[1],"r")

if not file then
if not options.q then
io.stderr:write(string.format("could not source %s because: %s\n",args[1],open_reason));
end
return 1
end

local lines=file:lines()

while true do
local line=lines()
if not line then
break
end
local current_data=process.info().data

local source_proc=process.load((assert(os.getenv("SHELL"),"no $SHELL set")))
local source_data=process.list[source_proc].data
source_data.aliases=current_data.aliases
source_data.vars=current_data.vars
process.internal.continue(source_proc,_ENV,line)
end

file:close()
F 504 /bin/time.lua
local computer=require('computer')
local sh=require('sh')

local real_before,cpu_before=computer.uptime(),os.clock()
local cmd_result=0
if...then
sh.execute(nil,...)
cmd_result=sh.getLastExitCode()
end
local real_after,cpu_after=computer.uptime(),os.clock()

local real_diff=real_after-real_before
local cpu_diff=cpu_after-cpu_before

print(string.format('real%5dm%.3fs',math.floor(real_diff/60),real_diff%60))
print(string.format('cpu %5dm%.3fs',math.floor(cpu_diff/60),cpu_diff%60))

return cmd_result
F 1096 /bin/touch.lua

local shell=require("shell")
local fs=require("filesystem")

local args,options=shell.parse(...)

local function usage()
print(
[[Usage: touch [OPTION]... FILE...
Update the modification times of each FILE to the current time.
A FILE argument that does not exist is created empty, unless -c is supplied.

  -c, --no-create    do not create any files
      --help         display this help and exit]])
end

if options.help then
usage()
return 0
elseif#args==0 then
io.stderr:write("touch: missing operand\n")
return 1
end

options.c=options.c or options["no-create"]
local errors=0

for _,arg in ipairs(args)do
local path=shell.resolve(arg)

if fs.isDirectory(path)then
io.stderr:write(string.format("`%s' ignored: directories not supported\n",arg))
else
local real,reason=fs.realPath(path)
if real then
local file
if fs.exists(real)or not options.c then
file=io.open(real,"a")
end
if not file then
real=options.c
reason="permission denied"
else
file:close()
end
end
if not real then
io.stderr:write(string.format("touch: cannot touch `%s': %s\n",arg,reason))
errors=1
end
end
end

return errors
F 7275 /bin/tree.lua
local computer=require("computer")
local shell=require("shell")
local fs=require("filesystem")
local tx=require("transforms")
local text=require("text")

local args,opts=shell.parse(...)

local function die(...)
io.stderr:write(...)
os.exit(1)
end

do
if opts.help then
print([[Usage: tree [OPTION]... [FILE]...
  -a, --all             do not ignore entries starting with .
      --full-time       with -l, print time in full iso format
  -h, --human-readable  with -l, print human readable sizes
      --si              likewise, but use powers of 1000 not 1024
      --level=LEVEL     descend only LEVEL directories deep
      --color=WHEN      WHEN can be
                        auto - colorize output only if writing to a tty,
                        always - always colorize output,
                        never - never colorize output; (default: auto)
  -l                    use a long listing format
  -f                    print the full path prefix for each file
  -i                    do not print indentation lines
  -p                    append "/" indicator to directories
  -Q, --quote           quote filenames with double quotes
  -r, --reverse         reverse order while sorting
  -S                    sort by file size
  -t                    sort by modification type, newest first
  -X                    sort alphabetically by entry extension
  -C                    do not count files and directories
  -R                    count root directories like other files
      --help            print this help and exit]])
return 0
end

if#args==0 then
table.insert(args,".")
end

opts.level=tonumber(opts.level)or math.huge
if opts.level<1 then
die("Invalid level, must be greater than 0")
end

opts.color=opts.color or"auto"
if opts.color=="auto"then
opts.color=io.stdout.tty and"always"or"never"
end

if opts.color~="always"and opts.color~="never"then
die("Invalid value for --color=WHEN option; WHEN should be auto, always or never")
end
end

local lastYield=computer.uptime()
local function yieldopt()
if computer.uptime()-lastYield>2 then
lastYield=computer.uptime()
os.sleep(0)
end
end

local function peekable(iterator,state,var1)
local nextItem={iterator(state,var1)}

return setmetatable({
peek=function()
return table.unpack(nextItem)
end
},{
__call=coroutine.wrap(function()
while true do
local item=nextItem
nextItem={iterator(state,nextItem[1])}
coroutine.yield(table.unpack(item))
if nextItem[1]==nil then break end
end
end)
})
end

local function filter(entry)
return opts.a or entry:sub(1,1)~="."
end

local function stat(path)
local st={}
st.path=path
st.name=fs.name(path)or"/"
st.sortName=st.name:gsub("^%.","")
st.time=fs.lastModified(path)
st.isLink=fs.isLink(path)
st.isDirectory=fs.isDirectory(path)
st.size=st.isLink and 0 or fs.size(path)
st.extension=st.name:match("(%.[^.]+)$")or""
st.fs=fs.get(path)
return st
end

local colorize
if opts.color=="always"then

local colors=tx.foreach(text.split(os.getenv("LS_COLORS")or"",{":"},true),function(e)
local parts=text.split(e,{"="},true)
return parts[2],parts[1]
end)

function colorize(stat)
return stat.isLink and colors.ln or
stat.isDirectory and colors.di or
colors["*"..stat.extension]or
colors.fi
end
end

local function list(path)
return coroutine.wrap(function()
local l={}
for entry in fs.list(path)do
if filter(entry)then
table.insert(l,stat(fs.concat(path,entry)))
end
end

if opts.S then
table.sort(l,function(a,b)
return a.size<b.size
end)
elseif opts.t then
table.sort(l,function(a,b)
return a.time<b.time
end)
elseif opts.X then
table.sort(l,function(a,b)
return a.extension<b.extension
end)
else
table.sort(l,function(a,b)
return a.sortName<b.sortName
end)
end

for i=opts.r and#l or 1,opts.r and 1 or#l,opts.r and-1 or 1 do
coroutine.yield(l[i])
end
end)
end

local function digRoot(rootPath)
coroutine.yield(stat(rootPath),{})

if not fs.isDirectory(rootPath)then
return
end
local iterStack={peekable(list(rootPath))}
local pathStack={rootPath}
local levelStack={not not iterStack[#iterStack]:peek()}


repeat
local entry=iterStack[#iterStack]()

if entry then
levelStack[#levelStack]=not not iterStack[#iterStack]:peek()

local path=fs.concat(fs.concat(table.unpack(pathStack)),entry.name)

coroutine.yield(entry,levelStack)

if entry.isDirectory and opts.level>#levelStack then
table.insert(iterStack,peekable(list(path)))
table.insert(pathStack,entry.name)
table.insert(levelStack,not not iterStack[#iterStack]:peek())
end
else
table.remove(iterStack)
table.remove(pathStack)
table.remove(levelStack)
end
until#iterStack==0
end

local function dig(roots)
return coroutine.wrap(function()
for _,root in ipairs(roots)do
digRoot(root)
end
end)
end

local function nod(n)
return n and(tostring(n):gsub("(%.[0-9]+)0+$","%1"))or"0"
end

local function formatFSize(size)
if not opts.h and not opts["human-readable"]and not opts.si then
return tostring(size)
end

local sizes={"","K","M","G"}
local unit=1
local power=opts.si and 1000 or 1024

while size>power and unit<#sizes do
unit=unit+1
size=size/power
end

return nod(math.floor(size*10)/10)..sizes[unit]
end

local function pad(txt)
txt=tostring(txt)
return#txt>=2 and txt or"0"..txt
end

local function formatTime(epochms)
local month_names={"January","February","March","April","May","June",
"July","August","September","October","November","December"}

if epochms==0 then return""end

local d=os.date("*t",epochms)
local day,hour,min,sec=nod(d.day),pad(nod(d.hour)),pad(nod(d.min)),pad(nod(d.sec))

if opts["full-time"]then
return string.format("%s-%s-%s %s:%s:%s ",d.year,pad(nod(d.month)),pad(day),hour,min,sec)
else
return string.format("%s %2s %2s:%2s ",month_names[d.month]:sub(1,3),day,hour,pad(min))
end
end

local function writeEntry(entry,levelStack)
for i,hasNext in ipairs(levelStack)do
if opts.i then break end

if i==#levelStack then
if hasNext then
io.write("├── ")
else
io.write("└── ")
end
else
if hasNext then
io.write("│   ")
else
io.write("    ")
end
end
end

if opts.l then
io.write("[")

io.write(entry.isDirectory and"d"or entry.isLink and"l"or"f","-")
io.write("r",entry.fs.isReadOnly()and"-"or"w"," ")

io.write(formatFSize(entry.size)," ")

io.write(formatTime(entry.time))
io.write("] ")
end

if opts.Q then io.write('"')end

if opts.color=="always"then
io.write("\27["..colorize(entry).."m")
end

if opts.f then
io.write(entry.path)
else
io.write(entry.name)
end

if opts.color=="always"then
io.write("\27[0m")
end

if opts.p and entry.isDirectory then
io.write("/")
end

if opts.Q then io.write('"')end
io.write("\n")
end

local function writeCount(dirs,files)
io.write("\n")
io.write(dirs," director",dirs==1 and"y"or"ies")
io.write(", ")
io.write(files," file",files==1 and""or"s")
io.write("\n")
end

local dirs,files=0,0

local roots={}
for _,arg in ipairs(args)do
local path=shell.resolve(arg)
local real,reason=fs.realPath(path)
if not real then
die("cannot access ",path,": ",reason or"unknown error")
elseif not fs.exists(path)then
die("cannot access ",path,":","No such file or directory")
else
table.insert(roots,real)
end
end

for entry,levelStack in dig(roots)do
if opts.R or#levelStack>0 then
if entry.isDirectory then
dirs=dirs+1
else
files=files+1
end
end
writeEntry(entry,levelStack)
yieldopt()
end

if not opts.C then
writeCount(dirs,files)
end

F 735 /bin/umount.lua
local fs=require("filesystem")
local shell=require("shell")

local args,options=shell.parse(...)

if#args<1 then
io.write("Usage: umount [-a] <mount>\n")
io.write(" -a  Remove any mounts by file system label or address instead of by path. Note that the address may be abbreviated.\n")
return 1
end

local proxy,reason
if options.a then
proxy,reason=fs.proxy(args[1])
if proxy then
proxy=proxy.address
end
else
local path=shell.resolve(args[1])
proxy,reason=fs.get(path)
if proxy then
proxy=reason
if proxy~=path then
io.stderr:write("not a mount point\n")
return 1
end
end
end
if not proxy then
io.stderr:write(tostring(reason)..'\n')
return 1
end

if not fs.umount(proxy)then
io.stderr:write("nothing to unmount here\n")
return 1
end
F 329 /bin/unalias.lua
local shell=require("shell")

local args=shell.parse(...)
if#args<1 then
io.write("Usage: unalias <name>...\n")
return 2
end
local e=0

for _,arg in ipairs(args)do
local result=shell.getAlias(arg)
if not result then
io.stderr:write(string.format("unalias: %s: not found\n",arg))
e=1
else
shell.setAlias(arg,nil)
end
end
return e
F 145 /bin/unset.lua
local args={...}

if#args<1 then
io.write("Usage: unset <varname>[ <varname2> [...]]\n")
else
for _,k in ipairs(args)do
os.setenv(k,nil)
end
end
F 316 /bin/uptime.lua
local computer=require("computer")

local seconds=math.floor(computer.uptime())
local minutes,hours=0,0
if seconds>=60 then
minutes=math.floor(seconds/60)
seconds=seconds%60
end
if minutes>=60 then
hours=math.floor(minutes/60)
minutes=minutes%60
end
io.write(string.format("%02d:%02d:%02d\n",hours,minutes,seconds))
F 267 /bin/useradd.lua
local computer=require("computer")
local shell=require("shell")

local args=shell.parse(...)
if#args~=1 then
io.write("Usage: useradd <name>\n")
return 1
end

local result,reason=computer.addUser(args[1])
if not result then
io.stderr:write(reason..'\n')
return 1
end
F 246 /bin/userdel.lua
local computer=require("computer")
local shell=require("shell")

local args=shell.parse(...)
if#args~=1 then
io.write("Usage: userdel <name>\n")
return 1
end

if not computer.removeUser(args[1])then
io.stderr:write("no such user\n")
return 1
end
F 2419 /bin/wget.lua
local component=require("component")
local fs=require("filesystem")
local internet=require("internet")
local shell=require("shell")
local text=require("text")

if not component.isAvailable("internet")then
io.stderr:write("This program requires an internet card to run.")
return
end

local args,options=shell.parse(...)
options.q=options.q or options.Q

if#args<1 then
io.write("Usage: wget [-fq] <url> [<filename>]\n")
io.write(" -f: Force overwriting existing files.\n")
io.write(" -q: Quiet mode - no status messages.\n")
io.write(" -Q: Superquiet mode - no error messages.")
return
end

local url=text.trim(args[1])
local filename=args[2]
if not filename then
filename=url
local index=string.find(filename,"/[^/]*$")
if index then
filename=string.sub(filename,index+1)
end
index=string.find(filename,"?",1,true)
if index then
filename=string.sub(filename,1,index-1)
end
end
filename=text.trim(filename)
if filename==""then
if not options.Q then
io.stderr:write("could not infer filename, please specify one")
end
return nil,"missing target filename"
end
filename=shell.resolve(filename)

local preexisted
if fs.exists(filename)then
preexisted=true
if not options.f then
if not options.Q then
io.stderr:write("file already exists")
end
return nil,"file already exists"
end
end

local f,reason=io.open(filename,"a")
if not f then
if not options.Q then
io.stderr:write("failed opening file for writing: "..reason)
end
return nil,"failed opening file for writing: "..reason
end
f:close()
f=nil

if not options.q then
io.write("Downloading... ")
end
local result,response=pcall(internet.request,url,nil,{["user-agent"]="Wget/OpenComputers"})
if result then
local result,reason=pcall(function()
for chunk in response do
if not f then
f,reason=io.open(filename,"wb")
assert(f,"failed opening file for writing: "..tostring(reason))
end
f:write(chunk)
end
end)
if not result then
if not options.q then
io.stderr:write("failed.\n")
end
if f then
f:close()
if not preexisted then
fs.remove(filename)
end
end
if not options.Q then
io.stderr:write("HTTP request failed: "..reason.."\n")
end
return nil,reason
end
if not options.q then
io.write("success.\n")
end

if f then
f:close()
end

if not options.q then
io.write("Saved data to "..filename.."\n")
end
else
if not options.q then
io.write("failed.\n")
end
if not options.Q then
io.stderr:write("HTTP request failed: "..response.."\n")
end
return nil,response
end
return true
F 404 /bin/which.lua
local shell=require("shell")

local args=shell.parse(...)
if#args==0 then
io.write("Usage: which <program>\n")
return 255
end

for i=1,#args do
local result,reason=shell.resolve(args[i],"lua")

if not result then
result=shell.getAlias(args[i])
if result then
result=args[i]..": aliased to "..result
end
end

if result then
print(result)
else
io.stderr:write(args[i]..": "..reason.."\n")
return 1
end
end
F 673 /bin/yes.lua

local shell=require("shell")

local args,options=shell.parse(...)

if options.V or options.version then
io.write("yes v:1.0-3\n")
io.write("Inspired by functionality of yes from GNU coreutils\n")
return 0
end

if options.h or options.help then
io.write("Usage: yes [string]...\n")
io.write("OR:    yes [-V/h]\n")
io.write("\n")
io.write("yes prints the command line arguments, or 'y', until is killed.\n")
io.write("\n")
io.write("Options:\n")
io.write("	-V, --version	Version\n")
io.write("	-h, --help  	This help\n")
return 0
end

local msg=#args==0 and'y'or table.concat(args,' ')
msg=msg..'\n'

while io.write(msg)do
if io.stdout.tty then
os.sleep(0)
end
end
return 0
F 851 /boot/00_base.lua
function loadfile(filename,...)
if filename:sub(1,1)~="/"then
filename=(os.getenv("PWD")or"/").."/"..filename
end
local handle,open_reason=require("filesystem").open(filename)
if not handle then
return nil,open_reason
end
local buffer={}
while true do


local data,reason=handle:read(math.huge)
if not data then
handle:close()
if reason then
return nil,reason
end
break
end
buffer[#buffer+1]=data
end
return load(table.concat(buffer),"="..filename,...)
end

function dofile(filename)
local program,reason=loadfile(filename)
if not program then
return error(reason..':'..filename,0)
end
return program()
end

function print(...)
local args=table.pack(...)
local stdout=io.stdout
local pre=""
for i=1,args.n do
stdout:write(pre,(assert(tostring(args[i]),"'tostring' must return a string to 'print'")))
pre="\t"
end
stdout:write("\n")
stdout:flush()
end
F 1709 /boot/01_process.lua
local process=require("process")
local fs=require("filesystem")


local _coroutine=coroutine

_G.coroutine=setmetatable(
{
resume=function(co,...)
local proc=process.info(co)



return(proc and proc.data.coroutine_handler.resume or _coroutine.resume)(co,...)
end
},
{
__index=function(_,key)
local proc=process.info(_coroutine.running())
return(proc and proc.data.coroutine_handler or _coroutine)[key]
end
}
)

package.loaded.coroutine=_G.coroutine

local kernel_load=_G.load
local intercept_load
intercept_load=function(source,label,mode,env)
local prev_load=env and env.load or _G.load
local e=env and setmetatable({
load=function(_source,_label,_mode,_env)
return prev_load(_source,_label,_mode,_env or env)
end},{
__index=env,
__pairs=function(...)return pairs(env,...)end,
__newindex=function(_,key,value)env[key]=value end,
})
return kernel_load(source,label,mode,e or process.info().env)
end
_G.load=intercept_load

local kernel_create=_coroutine.create
_coroutine.create=function(f,standAlone)
local co=kernel_create(f)
if not standAlone then
table.insert(process.findProcess().instances,co)
end
return co
end

_coroutine.wrap=function(f)
local thread=coroutine.create(f)
return function(...)
return select(2,coroutine.resume(thread,...))
end
end

local init_thread=_coroutine.running()
process.list[init_thread]={
path="/init.lua",
command="init",
env=_ENV,
data=
{
vars={},
handles={},
io={},
coroutine_handler=_coroutine,
signal=error
},
instances=setmetatable({},{__mode="v"})
}


local fs_open=fs.open
fs.open=function(...)
local fs_open_result=table.pack(fs_open(...))
if fs_open_result[1]then
process.addHandle(fs_open_result[1])
end
return table.unpack(fs_open_result,1,fs_open_result.n)
end

F 875 /boot/02_os.lua
local computer=require("computer")
local fs=require("filesystem")
local info=require("process").info
local event=require("event")

function os.getenv(varname)
local env=info().data.vars
if not varname then
return env
elseif varname=='#'then
return#env
end
return env[varname]
end

function os.setenv(varname,value)
checkArg(1,varname,"string","number")
if value~=nil then
value=tostring(value)
end
info().data.vars[varname]=value
return value
end

function os.sleep(timeout)
checkArg(1,timeout,"number","nil")
local deadline=computer.uptime()+(timeout or 0)
repeat
event.pull(deadline-computer.uptime())
until computer.uptime()>=deadline
end

os.setenv("PATH","/bin:/usr/bin:/home/bin:.")
os.setenv("TMP","/tmp")
os.setenv("TMPDIR","/tmp")

if computer.tmpAddress()then
fs.mount(computer.tmpAddress(),"/tmp")
end

require("package").delay(os,"/lib/core/full_filesystem.lua")
F 783 /boot/03_io.lua
local buffer=require("buffer")
local tty_stream=require("tty").stream

local core_stdin=buffer.new("r",tty_stream)
local core_stdout=buffer.new("w",tty_stream)
local core_stderr=buffer.new("w",setmetatable(
{
write=function(_,str)
return tty_stream:write("\27[31m"..str.."\27[37m")
end
},{__index=tty_stream}))

core_stdout:setvbuf("no")
core_stderr:setvbuf("no")
core_stdin.tty=true
core_stdout.tty=true
core_stderr.tty=true

core_stdin.close=tty_stream.close
core_stdout.close=tty_stream.close
core_stderr.close=tty_stream.close

local io_mt=getmetatable(io)or{}
io_mt.__index=function(_,k)
return
k=='stdin'and io.input()or
k=='stdout'and io.output()or
k=='stderr'and io.error()or
nil
end

setmetatable(io,io_mt)

io.input(core_stdin)
io.output(core_stdout)
io.error(core_stderr)
F 4158 /boot/04_component.lua
local component=require("component")
local computer=require("computer")
local event=require("event")

local adding={}
local primaries={}





setmetatable(component,{
__index=function(_,key)
return component.getPrimary(key)
end,
__pairs=function(self)
local parent=false
return function(_,key)
if parent then
return next(primaries,key)
else
local k,v=next(self,key)
if not k then
parent=true
return next(primaries)
else
return k,v
end
end
end
end
})

function component.get(address,componentType)
checkArg(1,address,"string")
checkArg(2,componentType,"string","nil")
for c in component.list(componentType,true)do
if c:sub(1,address:len())==address then
return c
end
end
return nil,"no such component"
end

function component.isAvailable(componentType)
checkArg(1,componentType,"string")
if not primaries[componentType]and not adding[componentType]then



component.setPrimary(componentType,component.list(componentType,true)())
end
return primaries[componentType]~=nil
end

function component.isPrimary(address)
local componentType=component.type(address)
if componentType then
if component.isAvailable(componentType)then
return primaries[componentType].address==address
end
end
return false
end

local findProcess=require("process").findProcess
function component.getPrimary(componentType)
checkArg(1,componentType,"string")


local p=findProcess()
local ov=p and p.data.componentOverride
if ov and ov[componentType]then
return ov[componentType]
end
assert(component.isAvailable(componentType),
"no primary '"..componentType.."' available")
return primaries[componentType]
end

function component.setPrimary(componentType,address)
checkArg(1,componentType,"string")
checkArg(2,address,"string","nil")
if address~=nil then
address=component.get(address,componentType)
assert(address,"no such component")
end

local wasAvailable=primaries[componentType]
if wasAvailable and address==wasAvailable.address then
return
end
local wasAdding=adding[componentType]
if wasAdding and address==wasAdding.address then
return
end
if wasAdding then
event.cancel(wasAdding.timer)
end
primaries[componentType]=nil
adding[componentType]=nil

local primary=address and component.proxy(address)or nil
if wasAvailable then
computer.pushSignal("component_unavailable",componentType)
end
if primary then
if wasAvailable or wasAdding then
adding[componentType]={
address=address,
proxy=primary,
timer=event.timer(0.1,function()
adding[componentType]=nil
primaries[componentType]=primary
computer.pushSignal("component_available",componentType)
end)
}
else
primaries[componentType]=primary
computer.pushSignal("component_available",componentType)
end
end
end



local function onComponentAdded(_,address,componentType)
local prev=primaries[componentType]or(adding[componentType]and adding[componentType].proxy)

if prev then

if componentType=="screen"then

if#prev.getKeyboards()==0 then
local first_kb=component.invoke(address,'getKeyboards')[1]
if first_kb then





component.setPrimary("keyboard",first_kb)
prev=nil
end
end
elseif componentType=="keyboard"then

if address~=prev.address then

local current_screen=primaries.screen or(adding.screen and adding.screen.proxy)

if current_screen then
















prev=address~=current_screen.getKeyboards()[1]
end
end
end
end

if not prev then
component.setPrimary(componentType,address)
end
end

local function onComponentRemoved(_,address,componentType)
if primaries[componentType]and primaries[componentType].address==address or
adding[componentType]and adding[componentType].address==address
then
local next=component.list(componentType,true)()
component.setPrimary(componentType,next)

if componentType=="screen"and next then

local proxy=(primaries.screen or(adding.screen and adding.screen.proxy))
if proxy then


local next_kb=proxy.getKeyboards()[1]
local old_kb=primaries.keyboard or adding.keyboard


if next_kb and(not old_kb or old_kb.address~=next_kb)then
component.setPrimary("keyboard",next_kb)
end
end
end
end
end

event.listen("component_added",onComponentAdded)
event.listen("component_removed",onComponentRemoved)

if _G.boot_screen then
component.setPrimary("screen",_G.boot_screen)
end
_G.boot_screen=nil
F 353 /boot/10_devfs.lua
require("filesystem").mount(
setmetatable({
address="f5501a9b-9c23-1e7a-4afe-4b65eed9b88a"
},
{
__index=function(tbl,key)
local result=
({
getLabel="devfs",
spaceTotal=0,
spaceUsed=0,
isReadOnly=false,
})[key]

if result~=nil then
return function()return result end
end
local lib=require("devfs")
lib.register(tbl)
return lib.proxy[key]
end
}),"/dev")

F 269 /boot/89_rc.lua





require("event").listen("init",function()



local env={}
local cfg=loadfile("/etc/rc.cfg","t",env)
if cfg and pcall(cfg)and type(env.enabled)=="table"and next(env.enabled)==nil then
return false
end
dofile(require("shell").resolve("rc","lua"))
return false
end)

F 1405 /boot/90_filesystem.lua
local event=require("event")
local fs=require("filesystem")
local shell=require("shell")
local tmp=require("computer").tmpAddress()

local pendingAutoruns={}

local function onComponentAdded(_,address,componentType)
if componentType=="filesystem"and tmp~=address then
local proxy=fs.proxy(address)
if proxy then
local name=address:sub(1,3)
while fs.exists(fs.concat("/mnt",name))and
name:len()<address:len()
do
name=address:sub(1,name:len()+1)
end
name=fs.concat("/mnt",name)
fs.mount(proxy,name)
if not fs.exists("/etc/filesystem.cfg")or fs.isAutorunEnabled()then
local file=shell.resolve(fs.concat(name,"autorun"),"lua")or
shell.resolve(fs.concat(name,".autorun"),"lua")
if file then
local run={file,_ENV,proxy}
if pendingAutoruns then
table.insert(pendingAutoruns,run)
else
xpcall(shell.execute,event.onError,table.unpack(run))
end
end
end
end
end
end

local function onComponentRemoved(_,address,componentType)
if componentType=="filesystem"then
if fs.get(shell.getWorkingDirectory()).address==address then
shell.setWorkingDirectory("/")
end
fs.umount(address)
end
end

event.listen("init",function()
for _,run in ipairs(pendingAutoruns)do
xpcall(shell.execute,event.onError,table.unpack(run))
end
pendingAutoruns=nil
return false
end)

event.listen("component_added",onComponentAdded)
event.listen("component_removed",onComponentRemoved)

require("package").delay(fs,"/lib/core/full_filesystem.lua")
F 695 /boot/91_gpu.lua
local event=require("event")

local function onComponentAvailable(_,componentType)
local component=require("component")
local tty=require("tty")
if(componentType=="screen"and component.isAvailable("gpu"))or
(componentType=="gpu"and component.isAvailable("screen"))
then
local gpu,screen=component.gpu,component.screen
local screen_address=screen.address
if gpu.getScreen()~=screen_address then
gpu.bind(screen_address)
end
local depth=math.floor(2^(gpu.getDepth()))
os.setenv("TERM","term-"..depth.."color")
event.push("gpu_bound",gpu.address,screen_address)
if tty.gpu()~=gpu then
tty.bind(gpu)
event.push("term_available")
end
end
end

event.listen("component_available",onComponentAvailable)
F 285 /boot/92_keyboard.lua
local event=require("event")
local keyboard=require("keyboard")

local function onKeyChange(ev,_,char,code)


keyboard.pressedChars[char]=ev=="key_down"or nil
keyboard.pressedCodes[code]=ev=="key_down"or nil
end

event.listen("key_down",onKeyChange)
event.listen("key_up",onKeyChange)
F 900 /boot/93_term.lua
local event=require("event")

local function components_changed(ename,address,type)
local tty=require("tty")
local window=tty.window
if not window then
return
end

if ename=="component_available"or ename=="component_unavailable"then
type=address
end

if ename=="component_removed"or ename=="component_unavailable"then

if type=="gpu"and window.gpu.address==address then
window.gpu=nil
window.keyboard=nil
elseif type=="keyboard"then




window.keyboard=nil
end
if(type=="screen"or type=="gpu")and not tty.isAvailable()then
event.push("term_unavailable")
end
elseif(ename=="component_added"or ename=="component_available")and type=="keyboard"then








window.keyboard=nil
end
end

event.listen("component_removed",components_changed)
event.listen("component_added",components_changed)
event.listen("component_available",components_changed)
event.listen("component_unavailable",components_changed)

F 134 /boot/94_shell.lua


if require("filesystem").exists("/etc/hostname")then
loadfile("/bin/hostname.lua")("--update")
end
os.setenv("SHELL","/bin/sh.lua")
F 149 /boot/95_diskpool.lua


if require("filesystem").exists("/etc/yaru-pools.cfg")then
local ok,D=pcall(require,"diskpool")
if ok then pcall(D.mountAll);pcall(D.watch)end
end
F 184 /boot/96_lights.lua

if require("filesystem").exists("/etc/yaru-lights.cfg")then
local ok,L=pcall(require,"yaru.lights")
if ok then
local c=L.load()
if c.autostart and c.on then pcall(L.start)end
end
end
F 1558 /etc/motd
local component = require("component")
local computer = require("computer")
local unicode = require("unicode")
local tty = require("tty")

local f = io.open("/usr/misc/greetings.txt")
local lines = {_OSVERSION .. " (" .. math.floor(computer.totalMemory() / 1024) .. "k RAM)"}
local greeting = ""
if f then
  local greetings = {}
  pcall(function()
    for line in f:lines() do table.insert(greetings, line) end
  end)
  f:close()
  greeting = greetings[math.random(1, math.max(#greetings, 1))] or ""
end
local width = math.min(#greeting, (tty.getViewport() or math.huge) - 5)
local maxLine = #lines[1]
while #greeting > 0 do
  local si, ei = greeting:sub(1, width):find("%s%S*$")
  local line = #greeting <= width and greeting or greeting:sub(1, si or width)
  lines[#lines + 1] = line
  maxLine = math.max(maxLine, #line)
  greeting = greeting:sub(#line + 1)
end

local borders = {{unicode.char(0x2552), unicode.char(0x2550), unicode.char(0x2555)},
                 {unicode.char(0x2502), nil, unicode.char(0x2502)},
                 {unicode.char(0x2514), unicode.char(0x2500), unicode.char(0x2518)}}
io.write(borders[1][1], string.rep(borders[1][2], maxLine + 2), borders[1][3], "\n")
for _,line in ipairs(lines) do
  io.write(borders[2][1], " ", line, (" "):rep(maxLine - #line + 1), borders[2][3], " \n")
end
io.write(borders[3][1] .. string.rep(borders[3][2], maxLine + 2) .. borders[3][3] .. "\n")

if require("filesystem").get("home").isReadOnly() then
  io.write("\27[33mNote: Your home directory is readonly. Run `install` and reboot.\27[m\n")
end
F 1579 /etc/profile.lua
local shell=require("shell")
local tty=require("tty")
local fs=require("filesystem")

if tty.isAvailable()then
if io.stdout.tty then
io.write("\27[40m\27[37m")
tty.clear()
end
end
if not os.getenv("YARU_TERM")then
dofile("/etc/motd")

if fs.exists("/tmp/.desktop_msg")then
local m=io.open("/tmp/.desktop_msg")
if m then io.stderr:write(m:read("*a").."\n")m:close()end
fs.remove("/tmp/.desktop_msg")
end
end

shell.setAlias("dir","ls")
shell.setAlias("move","mv")
shell.setAlias("rename","mv")
shell.setAlias("copy","cp")
shell.setAlias("del","rm")
shell.setAlias("md","mkdir")
shell.setAlias("cls","clear")
shell.setAlias("rs","redstone")
shell.setAlias("view","edit -r")
shell.setAlias("help","man")
shell.setAlias("l","ls -lhp")
shell.setAlias("..","cd ..")
shell.setAlias("df","df -h")
shell.setAlias("grep","grep --color")
shell.setAlias("more","less --noback")
shell.setAlias("reset","resolution `cat /dev/components/by-type/gpu/0/maxResolution`")

os.setenv("EDITOR","/bin/edit")
os.setenv("HISTSIZE","10")
os.setenv("HOME","/home")
os.setenv("IFS"," ")
os.setenv("MANPATH","/usr/man:.")
os.setenv("PAGER","less")
os.setenv("PS1","\27[40m\27[31m$HOSTNAME$HOSTNAME_SEPARATOR$PWD # \27[37m")
if os.getenv("YARU_TERM")then
os.setenv("PS1","\27[32muser@"..(os.getenv("HOSTNAME")or"openos").."\27[37m:\27[34m$PWD\27[37m$ ")
end
os.setenv("LS_COLORS","di=0;36:fi=0:ln=0;33:*.lua=0;32")

shell.setWorkingDirectory(os.getenv("YARU_CWD")or os.getenv("HOME"))

local home_shrc=shell.resolve(".shrc")
if fs.exists(home_shrc)then
loadfile(shell.resolve("source","lua"))(home_shrc)
end
F 39 /etc/rc.cfg
enabled = {}

example = "Hello World!"
F 328 /etc/rc.d/example.lua
local count=0

function start(msg)
print("This script displays a welcome message and counts the number "..
"of times it has been called. The welcome message can be set in the "..
"config file /etc/rc.cfg")
print(args)
if msg then
print(msg)
end
print(count)
print("runlevel: "..require("computer").runlevel())
count=count+1
end
F 0 /home/.shrc
F 376 /home/Music/converted-demo.yms
{bpm=120,spb=4,length=32,tracks={{inst="harp",name="melody"},{inst="bass",name="bass"}},notes={[1]={{1,6},{2,6}},[3]={{1,8}},[5]={{1,10},{2,6}},[7]={{1,11}},[8]={{1,13}},[9]={{2,13}},[12]={{1,11}},[13]={{1,10},{2,13}},[15]={{1,8}},[16]={{2,11}},[17]={{1,11}},[19]={{1,10}},[20]={{1,13}},[21]={{2,11}},[24]={{2,8}},[25]={{1,17}},[27]={{1,13}},[29]={{1,10},{2,8}},[31]={{1,6}}}}F 404 /home/Music/demo.yms
{bpm=140,spb=2,length=32,tracks={{inst="harp"},{inst="bass"}},notes={[1]={{1,13},{2,1}},[2]={{1,15}},[3]={{1,17}},[4]={{1,18}},[5]={{1,17},{2,6}},[7]={{1,15}},[9]={{1,13},{2,3}},[10]={{1,15}},[11]={{1,13}},[12]={{1,10}},[13]={{1,8},{2,6}},[17]={{1,10},{2,8}},[18]={{1,13}},[19]={{1,15}},[20]={{1,17}},[21]={{1,20},{2,6}},[23]={{1,18}},[25]={{1,17},{2,1}},[26]={{1,15}},[27]={{1,17}},[29]={{1,13},{2,1}}}}F 17437 /home/Pictures/Jellyfish.pic
OCIF�1�⠀1X	

 !*+,-./012345678:=@ENQWhklopqrsvx���������������������������
6	

"$%&-./0123456789:gnt�������3
	

#$&()+,-.1357?DVls�������"
	

').0:kn{����
#),/35Zxz����
"%(025;Akov�����

 (/���
$*:B�

&)0�	
/�

��
��

7����

'��
���
���
���
���

���
#�
���
$���
����
�
�������� 

���!��"

����#
����$	

������%�������&���'
����(����)
�����*
����+�����,	����-/����.
)J�������/	 E��������������0	)�����������������������1
0B����������������������


OH N"K\#DY
LRa
BP""\J
K
S\
YZ]MM[⠁


.

QYQSXoFW_FMuw��
BEM���
CLOco~�F{�	(1]y��
;rty����e��;i{~����
%;{��(,v�����
u�	����*}��)9?y�p���
��*;����
i(�v
2~��%~*jy ���!
n",1�#'$%a�&	`��'X(#��)r��*
l+$'��,"7o-^ho{���.*k{/I^|0#*I(*
@N]
d�26E��
*d,<��'/���
	&�
~�(
	

��
���
�
|
�
���
����!
�"#$�����%���&�(��)�+�,
-
�.

/0
=1
�
 Oa"?⠂

0
S[_zMTeh_aev�S[�<EQ|8Kfh�
)ENQSUW[^_hs��;=ACL[]}���	@pr��
#6d�Agi���4:���
,:BEku��
@BD}��"4=��/2?B�%0r~��=�):��
)-9?b"(ACu���	!#%)-?t��)����
$&quxz��8ls��
��5l��hkny~�=f��
*24pt'<mw� 5!
�"
-/5tx{}�#%1kt$	-`dv{�%(kn��&tv{}��'/KPUdku��(\�)-X]behy����*	.+	
#+6Fs|��,
DT^py{}�-	'*J`lny}�.	>CDPilt~/HNl0HU^ceqv~1%5@JRZp(0
Y}
BXv��������/9u(/1Yg��*0lt�#),{�-0\�(+>}	+3w	
%0��

(<�����
t�
!�(��
��
*�':��=*�+��	
��
�}���� 	����!���"	~�#�����$
~�%
�&����'�������(
�)
�*
�+	"�,%��- I���.!�/
5M01
E�

#JUY⠃
 
+/
g-4
!LW($@⠄

1\
'P^x�OZag}4HZ\p��HIL�	CL]bf�>DGL]eoy��4IP`bf��9EGMV\gqt����		3?m}����
	%0Ielm����:=hk��
39Bmwyz�
	*.58|�-?ACj���
+?d|������3:@gw�+/16f!$>el���
 @ct	,Eq��7{��	!,l~��
'+6=sy{��
 *2@jr��� #'),2ty!#ahn��)Vgjmw(U�$3dl��Vs� 	gio~�����!t~"2Ys#,.]�$,.Yu��%!ly�&!3W_z�'+5^hotv�($'elpx�).gp|*8^o�+	(GLPXdruv~,	U]chnxz|-!<_mrz|~.#6<h�/
+-16<=AT_cen{0	
GJRTbn}1&4(1
<>CGLOZ]`y~
	;uw~�����	%'8Ex����*3F[u|���
	$8Eqs{����&+16Yh�A��	1;|�� *1Dpz�����	
#2>���
:{	 )89z�����
���&���
$%')*��	#),� �
���+��������~�
��
��
���
�� 
�!	l"m��#)�$���%	����&
w��'
(z��)k�*$��+
���,
�-
���.
-.g����/0z~0

+1.12F���
 DS7"c⠅

%R	
G$*/n
/2lmn}.6~hijxghpv
?fFdku
;Fuy
,@cknqjlou�
)o
 
4m)
Wz!
Wa"
.n#
5j$
ef%
"c&")FXYknx'!"LMY)l*>]u{+
x,+-5=[.=0,:1'?`o( 
AOh
t�"}
B&
y�(
	q)*

�.
	/13�


�⠆
%O⠇

0h#i⠈

0
�
N~JSj��DJmp���Xjn}�?YacuHalw����	">ejlos��	"46��
9jp�3;�"(-@v�
�%4:e�,E��%��
.�%A�?}z��.6���A~��<A|"5��#&?Bi��	%(
�&(4{
hfk�r��� {!�"q�#e~$%& +/^�'[]gy(	%-So��)j�*#Sh���+JObqt,JOak��-+0U��.2;d/:y}�0/3EKQ19Pem(+
 )r}�w��#%=?Ct"%6�a�"&*5Xx3{$-y�	-�
"/>
�

=

�
��

#
	�

�
	(

���


���
(�

� 
�!

�"��$�%~��&)��*��+ -
	�.
}�/
'k��0{��1

I


KT
!G"GOM(UMR⠉

?⠊

#�$&H'_
?,)-z/Sp
Cy3
bd(#0M�(e2	
3
E!E`H
T⠋


X-(#"MJx�LM�P
K⠌

$
UH%|7E5@hijkl}�F
p�z~��'wz$0i
7je
.2?`ix*/5;@�UXbcr
7k 6Uw�!
+"'e�#
$w%#Ff&
2'
Sm(
U])'9Y*
&1+>BCK,8=>-678Y.Z0
X(

Zo
Bj9lx�2u%��
|�	+l�
-��< �����

�
x��
l
$
&�+
\,#.
"/0|⠐
1%
GMdCGJ]kIMPUi�!AMPUa�Tm��IWjlq��"kv��5UXd��	GH`dis~��
4Ebiw��#2?qsw~�!elpru�
&=�3is;ux�$+-89<=ft��!4m��
'+578dko��hq�tw��;~������'o|?q{�!:knv��"%>y|����E{��fuvz��etz!jv��Tinv|�69p{� (3mqux!,`pq{�"ku��#3m|��$1]kr�% &)/4\_isw�&
&-V]gir�'	%)r~(/RZjr�)		#FMO`mtw{* HLOQYaepx��+Tan��,2M[_v���-"2;@Gcw�.	(4:GIW^`x|/29BQ`su�0
 (26O`sz�1	#;NV^j2#c(/
#>Vbjm";=@Y`oqz��"-7>q}�.<Gh�K��!%39Cnw{���
-9y�8~���	
):<v���
&+�/<���
47��!,��
&
�B�	
���
��
 &��	����
�������o~�� s}���!��"
�#
+������$t�%x�&
��'|���(
)��*"nt�+_,m���-
$D��.
����/	*,/b�����0a��1
*>

>$RT(&JMJ⠑

\O4
	'Ct(
8
��$
+W "!
1#Z$
 m%�&
Mp(7MY~)S*7,0-M/&0C1~%>(
f	�
 J��OP( 0⠒
(��S⠓

0;*;
;
`
IR⠔

I"9#v%
go&a'7P(1	^)
>�*<G-E/Y0\cF
ek
0
-c(�0m!*F(
Ow#⠕
 !."Z#_'D(b/e1`bW-⠘
(%E"
N⠙


1s9D
2?
-u"\⠚

,$
DM⠛	
!5C*C=
;G
=A +:$*,G2&C'H5AS�"A
=>
GU%K
1D?@

"LCHI_"OZWR
GKR =X
 G^"F
JLRI!IJNI
 BI
!J[�9
CVx!BH!xLsQ
M
 KUI
K
XZ
K"�
U�
Q�RMT��
T
R�M

SKs
#ION�I�D�PQ

WHmQ�F�CH
�
V�
X"Y
U]T(F
!@
@VV
#ND:

8 ?� >
sMLM
�

RU�Q

XOxQK�K��QRSQ�O"L�
QS�P
^�
OK"
N
Is�
W"^�M�
SQxXx�

SP�

W
S�
Q�R"
NY�RMQO
�[}U"Z�

PV�
Px
Z\�
T}]⠜

TR⠝
�⠟
1{

G⠠

1
)S
*+FKaf>\c���5T]chszCcg~�	9JZ^`cst��)4[bps��!26Adip	!2Y`binrv�		5B_bfghuz�

Boqv}���
!%*+-15Dcd{}���	01?fh}���
#36<qs��
 "9<hruz{Atw��		&'*{����?�
"(9<@Bt}��!$6�&'=vBpx38Bv����'/@sz�� Fm~�-4ou�3A����%'3@jy��
$'13x���� #iux|u
	
"%eiqx} Xlz�!hz�"
�#or$$2}��%Z^`pr}&	*,.eq'&`fx{}�( "2Qgin{����)
NUiqu��*

'PRV`cqs��+N����,	
-1ILNRdl�-.]be.19Fz��/
4DFftx�0	158Po1
/8:ADHLOSuw(1
ADJMPV[^abeg
	!Cis|����!0246Umy�	&,<@DK��	+BXjwy����
!$'-4=[ry~������'+.1Ovz}����
 #<@qz����%(,/?�	,.9;n��
!*$.x��

(�������� (
A���
�%
���

�����	}�������
%��	 ���u� n��!����"
��#��$(���%+&�'���(
�) [�*��+e��,
*w��-,���.an�/"3��0
&9kt�1),k�
I$9SL I⠡


,eGuQ^a	!DF
Dv
CD
epy~klmB
nz
twruv~*>pr
 :zx|x{�
Bzd��`ao�)yz8
-f Ybjpt!
(�"p#
x{$56V%,.2[&[\lo',9ap�(LX_f}�)%17*
5+9;Qfmp,(6Vi�-
O.
pw/
>p1 Uci(#
=q�������(:?\d�/
2�?�	
	C
3C
n�

�
=���

{� 

�!�$�%�&
~�')*+
-
�.�/#0
'
 R⠢

$R	K

`
ak
@w�
n�Cz�x���5o�mn
24
gid
/p
-s_+.acq`
/Y 
.a!7Z]e"
U_#
7a$[b%T&L'((
(<+
ik,59Y-Q.'/
Vh0(/K(�*\⠣

	'!
0�%&9FZ*?
8W+8��⠤
0x1"<⠥

!v,t⠨

'S	[

@aCb�d
�oq.oqs4su~�8<{��.0z��8r|�� y�Eq�7w{#.>ov/>j�h
q�
.�-d��;^kp�;jyzbct &de!8TUfix"
*V#
/g$#ci%LXY&
f'13?()5Ln*KUWm��+RSV^�,r-p.M1](
L!�n
x
��
j�'�	8)"�0716*�8���
�
K
W⠩

(.]⠪
S W"#V$
hq&R'
<A(9?E)J**
G/70ZB:⠫

i4&6"R[⠬,u⠭(
!⠰
b⠱

_.S⠸

"%8⠻

#@%95
&<C

O
L
 M F["P⠿

N"J⡀

1IKRc

Rc	FHLRW^p|��GLQy�� KQ`r�N��7JPSdg�	DJRVYgnr��f	=\o|�
ksu0�#.8Aq
)9?��'*5�>y�
>5|���
+@t�� �� }�����%pw���$'.�"&k�gw�

l&�
� )4�!
-�"3rwz|�#$
�%jz�&ju�'
��(.0[^s)!Pad*/Zvy�+D`c, 3W\b�-&K��.Obe�/$7Om0Fu1$+GQW_n(-

;?Fimtwz��
HWe��*A{� $8~
&7>�7p�#6:@m<�	$*w
',14��
)�
>�

#
"�"�,���
(����
�"��������!
|�"
��#��$	%
'&
b���'�(*�+!%,
$�-%)��./(���0
4]1�

!M!OT(%="O⡁

&

Ty
T]\ei	H��
Bj
tx
-1Ci�
>
�-
w�
&v
@lv�
%d
hr
m~
m
#f
3v #-u$
)/%Ud&K'
 l(
3q)
Q\*%+<->.0/Z0>dl1
a(i
1|
:

)t
s
!&.�
�
�

�
�
w�"$%t&
s'
�*�+
o�/
0�⡂


'
I�
QT
GZ	flo&
Dho89~y}��q
w�CDn
>G
1�m
<ft
nr
*6b
x� Z!9V^mo"
�#^hlz$WZo%Vbu&OPQc'R(4cd)()c*
0z+YZy},4;<X-VWZ.KQ/
U\0NYZ[1XY[b(
X{
=��	�
7�����

��m
"�
�!
}#
y�%
��&
m�(�)
��*,!-/dM⡃

0l.$p%m"e-+w^⡄

d:&$1�(,
W
M"XMR[⡅

+$n(
)/⡆

"6l&EIF⡇

!bm⡈

$U
F�	
a�
ry
�;
��x�p
Fn
lo�+

i�
n{�T f!
&s"#
\`$+x%]&
'N'*Qns()fo*M+
UW,
:g-
v.$,57�/;0
S_17(
 r
N�=D,0��
B

��@
��


#4&"�$%

�&�*+�,��-
k.y1
<⡊

0UZ [! "($
7X%
MN&:)�*�+
=]
Eb-/[m
"[A+
@_
!F⡋
6,&D⡌

] 
#^kDDN�⡍


,.[GsQ⡎


6^$8%?
Ej\k
"R⡏
$F⡐

$
NR	eFcoxfgp{CDE
7>de
{|DEb�!`fux#$*/Dors�.@ckn��
*0
0c!.0:0X!0eg
(d 
8T!
<" &[\vy#WX[w$y%*'\ei(&:FGPV)
K�*+,=+
:M,KPf~-
Aj.
?m/?@Xw1l("T
�v;m�
iv
7'4x	t
$�
v�
=s��
�
?�
!�	��� ��!r"�#�'�(
k�)&*b+
,�-
dq.
+�/
v�1
ES⡑

 
HE5w2cGcCG[
6b4
bp
r�56Zaq#\` 
]!2"`#
#8%
;R&A'6(
=�)8*@A|,-i./
W01|(
&b⡒


1,V⡓


':F)AX
1"X

!P#H⡔
!�i$E
gh&B9*
DEs⡕

H%<&#\,*IYZ[H
0
K⡗
I⡘
ajZ(*⡙

/&>_.!�⡚


$</j⡛

2'I79
1+

.\OLBMP��
UDK⡜

[\]HEb⡝
*J⡞a⡟$S⡠
!$l&SM'T)^*-i�
(
H0r�0
z�)$*
f��"
�

A
LG

LKHJM\
=S⡡

/i 
c~
Ib()	L0
h,e.ouv( ��	j⡢



[_ $\_!!'#*%W&0'@)
*0u

x�-S
FG�4H]a&+H:
<>
VY
�3��
Y⡣
,b /!:1x^]
$QU(
+j⡤

:.'0y$?

	VH
FTx�M("N⡥



(A'8
 E⡦

0;3⡨


$a![gj
HR'
=B	Z)z-R./CdE1!):y
!\I9e/c&(
K�⡩
/⡪



 7!_'>(5-s//F
5l8`9`A�
S⡫0
-V"W+*⡬


<B
1,⡭
?⡮

!>$N	Y7%@^K
V(
]⡯IL"W⡰

D!S+%:)6L⡱
0<!;1v$BOPi&
=@)
?@\.R⡳

H#F$A
`^T(%Q⡴

";:*B⡵
]⡷_⡸

 Sa[9-t!%⡹!R⡺

J(
Y⡻

J#bZ&?

fP Q
]M\I
U⡼!$⡽
(

!Q"Q
W⡾U⡿$K��
ZK(
$G��
T
O A⢀

0$(U
,EBX`�@VY^bk��PSW_z��;Zi�
TtKkm	
7E
.8=Fc|���
>�>��

 Acz�$��3#����
��6��9=�"<��<�
,}�1w�)�
!)7p����$$>k�%u|�1��1o}�)gl|� '|��!��"+o��#
}��$z%
%0&(5|�''cjz�(
W|��)	
svx����*Ndk�+l{,E`�-	-3HPax��.3@L_cjs��/%Rag0"$0BDL1-MT}�(+
9B_fjnu���
<?kp�<�AVr���'9;N .>�
r&.=x�.�	�
	Ax���
)
�
��


���
��
�
	�
�
� !y��"��#0���$���%|���&�'
��(u�*
!�+,�-#f�. HN/
��0!1

F
_P"}VJ
S⢁


 
JfO
^�c
fn
 

v
y|:�)Ao
(��*<}��*-6de!56Yw��#$|%-&'
.w(
`h)
_�+2,&/Sq-L.E/
Jq0f1K(

�

Dl
:n"�
dw$t~&�
]@(�

5
�+���
��,
�

�.�/
��
��
��
J⢂


$
U
Og_K
Iu	Jck


"$dj
y}Bo��-
��|;=ms���t
ah
e�
59
msh 
`h!\"04=^#
&2$
_g%
16&%78'CNOT(
v)+,HR}*()346[_w+345@Eh-9:?g/8LP]o0
.g1=g($
"|�!^-�38q�
Z	
x
2
6|
!+�
�

$"
>��<>x����}����!"#
	�%&
'
-�*+&,
�.�/)0p1�
J⢃

r(D!⢄


1 
�!/#
4p
V(T	
 I
 *
2T
j�,�f.
&X10w
;s1(Cf�$g{&<,(dl��+.

!C	U
VR��Z H(W⢅

k&iqg
ex
ch%q2s��p
r�V
=X"]#Y$
a%e&Z'V(H*
9:+
.7,A-N/1q+H⢆
-#C`

]7+⢇
0
/0&Hf⢈

#
`bo
_h	A
z&7p
g�

frt
Cv6|�39@
7�
s�3puy=
1�
w�
"h kry"T#$$%0^js%hqv&'
2q(
!y*Xjr�+�,
FQ.
Uf/
!.1(+
��km|6	{��
����!
��#
s%&)*+,�.���/G0��⢉
6⢊

 -_"
#(%
7+z,j-T.A/r0j`\�t{
0Wg(+�
S⢋
;-)I⢌

#W

^_

Fb�m
;qna�4cr`_ 
,V!d"
!7# 6TU%$5S';EJ(
8;)
:G+?,-X/1\⢎
1z%G
X�⢏0i⢐


%V\J'FGm<dgpDcr�5emr�
kl/Ecijns�4g�A|�}0hrdw_|~>,o��'
5n ;!
)4")jl�#n$'4U\%3{&Udh'$4Zb(6Nmt)34VZ*Gg}~+-[��,
@Z-
.
8V/
j1d(


{
W
f�:@�5


g
}1}' v"�$�'
(�)
"W*�+g,
s�.H⢑

([7
	�nl
2j
h_fo
d�igq^4 *!"#$3&T'
0W(
Ka)2T~+
1A,
,..TYr1
hr⢓

#O5g'F
X⢔

 9#f+I,?-
1\08bc.%{7-c
CqP⢕

 <!X"
Pa#P$T%I&4(�	+,'1m0G23
WsYgt[\]a
N(
"i⢗
>⢘
0Ab#;H⢙

 :)E=
L⢛
"8'#)=,H7T!k1tD"
"$(,(

"H"EQ"
OU

NX⢜

	3#S
IJ$:f_dehb	N)C-C!#⢝

5#BQd&
M⢞
%H⢟


$;%J^
"IE
_O($>
R⢠
R(@;+0.v⢡

^.q⢢
4\Y(C);+/F.B⢣

2
GH]_(AZ"]⢤
,C0%P(Jw(/
aQ
Q⢥
,'⢦
">⢧
n(

.(⢨
!0@"hI6a⢪
0?a(B[
]]`⢫

I
K⢬


`'G,B?
22)1"b⢭(
3⢮


14%B_(I(
f

J⢯^
M(

G⢰
 !⢱

^^XYZ[Z\]G[⢳

b$"⢵]⢸

#:
[\⢹


Z#=(
[⢻


"D$I
#>Y
UM(
`]#KM⢽
:
S("#⢿!MX��O��
X&RHO(
?#LM`!K⣀(#A⣄


]X^⣅

!=,⣇
&G⣌

,(>⣎

"f
!c1y⣏
e(
$!⣑
 %⣓S⣔


bF6#7j"Z⣕

 2e]*F\
a&1⣗
GRGsR⣙
!A⣛

7
V⣜


(+
^1
X⣝

)Ba⣞(
#?⣟E!
"XMZ"M[W
LJ(

a-B"VP⣠"C⣢

Yf⣣


.)<
`⣤
!3#7
.A6CHH�A�E $8-F!?":G
=IE
H
"<6
$HC
8


!D	S	RC
UVsP�


YZ\
	T
`#M
OP
 CD
	QRQM!�XB PW:CN�
N!Nx^LCKUML
T
NE
MRHO�
O=NL(
[J#G$LC"@;"M%D&IK
I
sTH
s
NO
PQU
OVxNI> L"
SW�
JKNNPxU
K^M
PR�RMT�
QG�NxTMQ�Mx
�V�U"IRY

JL
\
�L�T�
WPxW}
NY��N⣥


8#qC⣦

B8< 2++)


!HQ�
�T�W"
_
M⣧
	W
!u%P
#E(


JX⣨
D⣪

%A_⣫
R⣬

	O
;G
FBO
JS⣮

\ @
v_wxM(


^G$JRML⣯
	
PXQRZrx
[(

%8"dBCL
}QMS
LM�Y⣰
V⣴

#<&;<)D

VV"N
O⣵

@$=9J 1#"	M
W(

$C⣶
N⣷"xV��XJ(/#!%CY"
K[⣹
  ⣺g⣻
`_MT
N⣼

#9"gMM(�⣽
QMY
M_P
^]GsPMJ(

Q"S#RB"`��Y⣾_S(

"B
DF 122 /home/Pictures/README.txt
Sample pictures from MineOS by Igor Timofeev (https://github.com/IgorTimofeev/MineOS),
see /usr/share/yaru/icons/LICENSE.
F 11123 /home/Pictures/Road.pic
OCIF�2

▄+!

	



	
	

	�
�

�

�
�
�
	������
	���������
������������

�������������!
	
�������������������(
	
|�������������������#
	
���������������������
���������


-
s0
�1���2
�

0

+
z1
%
�-
o(1
	�

+��
),�

 #%'(*-1���

	')����
	&*��

!+-|}���		
!),/4{����
*,z~������
/2|~���
	
 ����


#-0��

�
 0���
��	~���	����

�������
���������

����������	
������������������
"$}���� "$+wy{~������ "{}�����
	
�����������
	
���
	������ 
"��#��$��%��&����'���(�����)�����*w{����+	x|�������,
tv��������-
mu��������.
hkot��������/jv|~��������0#&-9eu{����������1
%(+7<@DFfjou}�����������2#)2;AHbdjmoty{~��������������)
�
��
_QS]�

\gG`NPh

bl
ZMXm
\GN
\�l
VZm
NP
.
#/
2(	#o$
}%
�)(l*#+
@I,
e-

")#
w%
&Ae'8
}��$
T%
T&UV'
U(NP*
P+
Q�'
W(
X-
R�%
V'
P)
Pf
(
U�%
U)
O*
N+
O~
!
Q��#
S&
T'
M(
O�
%
O�

P�#
O'
O�
N
L
M
1
2

1
E&
�)
�+
y,
u1
c
`
_S 
F
[
M6
A
F(!
q
?#
1
I
>(
D
A-
t`j/
K0

4
o
7
0)
3
>5@BAD	GM
>D
<:>CLe

b;?Bg=e
9
<
7
4
:3k-2mp
0,/ky*3r )/69u!%+")3=afk#69Be$Db%+0='
G* C]a!8>D`":@FX%
GIT
=GQWAEI>Cj:>g:@
;
<
<
=6;@Beh8ah6:?B7<
g��
'
N�
 
N��$
S&MO�
!
S�
$
N�
N
O�

L�

P1
A
AS


S�
�
!
M�
a
*
V�
&
P�
&
Wf)
M,
O-
Y.
]�
"
T(
.
N)
.PR�(
W)WXY*WXY+XZ,PRXYZ[-P[.
YT

N�)
Q-
O�

N�
(
V~
!
LS1
24
<QXGVX
[2

VS
B$
P'
Q
O
O
OT

8NP
:
<U

Q6
W

6=?EL
D
L
g
E
P
R
ZUWf 
S
N7
]

=
N(
/[^)
a)
U.
X* 
G$
R%
L&
S
f
;
A
\<

b�
f
%
ST1
G
J
TS

J$
L+
MT
VX[
MV\#
LVY\	NPRTWY]^`PSVY[^OQTWY\UXZ	OT
`RUVZNO
IU
^HJ]LQSTVXEdPS]	WY
L6
GS]bHJY]JLUYaKMQ_`
M

WW_MQ
FCe
e
f
D
HQTZf
!
O7
@LNPRTWY\^`OQSUXZ\`<PRTXZ_PRTXZMQUX\OUZPSX]`QT`	QV[
Y[\^
]
YKSYIR
Ig

c*
^e<
\
ZX\UZW[

^

PU



]g[^`NPPc)

_*
abdS
 
PT
cLTXY	
R
Z
Y[
ZUJYILRTUX
IEI	
\
Q\6CD
GKV[\
^

\7
^
U

R
R
Y�
#
U�

R<
^
KQW
L
Y
[~
K
N��#
R'
V*
O+NW,
N-NQ�
)
V�
,
Q�
-
X
 
L��(
M+
P�
)
N�

L�
N
L�
L
Q`f
+
[(
/
Zaa
*
M�'
X*
Z+
Y-
Z.
[T

Mf(
Q+
R(
/Y\]*
"
Qe
f
.
Zf`
.
\�%
P-
\S
,
WU"
L
M�"
O
M)
.OQg�RVaY_THJ
PU
dKSTgH\^_a
FJKMNQRSTVXYbKMSUWYFLTUOXYZ[^_`acd<
]JbUel[]`GOZ_a
Tad
b~
HV\(0

�(*��
	.���	+/��
%(+z���
#(}�
�

%(+.|����	
$1}������



}�����	
"*���"��
~	~���
	,��
����

��


����������������

�����������������
�����	
 {~������
!)u~��������
!%(z}�������	
��������
���
��"���#��$
�%��&
�'���(����)�������*y������+~����,	qy|�����-pwz}��������.
&nrx{��������/!$(*,.1hmpsy����������0	 ).035;lnqsx|~����������1#
!#',.159>Chlqsvxz|����������2'
#%'+.0368?`fhkqsvx�������������0
.
^
 
!
""
#�$mt%
�&
a'y(Bv)%/+Fj,
70
<1
0=%��
h
f
q$
"
8
5
q(
�
/)
�
//
-(2
[
 !"#$%&'()*+,-/0gijklmnopqrstuvwxyz{|}~�������������������������������V
 !"#$%&'),-./0ghjklmnopqrstuvwxyz{|}~�����������������������������R
 !"#$%&'(*+-/0hijkmnopqrstuvwxyz{|}~�����������������������������R!"$&),.02356?@fghijkmnopqrstuvwxyz{|}~����������������������������H
 !"#$&*,-./0147Bgikmnopqrstuvwxy{|}~��������������������������Q !"$%')+,-./0169:<Dghijlmnopqrstuvwxyz{|~������������������������������N	 "#$%&'()*,./012:<EKghknopqrstuvwxyz{}~��������������������������������L !"#$&')*,-/012345;>@egknoqrstuvwxyz{~��������������������������	M "#%&'(*+-.0235679?ACfgilmnopqrstuvwxyz|~�����������������������
K
 !"#$%&'()+-./0123456789filmopqrstuvwxy{|���������������������P
 !#$%&'()+,-.013456789:jlopqrstuvwxyz{}���������������������������F
!#$%&'()*+,-./0123578inrstuvwxyz{|}~��������������������
N
	
 !"$%&'()*+,./12456789mopqrtuvwxy{|}��������������������������L !"#$%&')*+,-./012345678dlnprstuvwxyz{|}������������������������B!"#$%&'()*+-./123456qrstuvwxyz{|}~��������������������C	 !"#$%&()*+,-./035pstuvwxz{|}~���������������������E
 !"#$%&'()*+,-./1oqrstuvwxz{|}�����������������������D "#$%&'()*+,-02opqrstuvwx{|}~����������������������<	

!#$%&'()*+,-/0235ntuvwxy{|}~��������������:	
 !"$%&'()*+,-./1ptvxy{|}~������������5
 !"#$%&'()*+,-./2mqrstuvwxy{|}~�����0 !"#$%&'()*+,-./0124mpstuvwxyz{|}~�������-!"#$%&'()*+,-./01347nopqrstuwxyz|}�����% #%&'(*+,-./1235lnoprstvwxyz{|��#&')*,-.stuvx�!#$%&'()*+,vwxyz|~�� !"#$%&vwy{}~�����������,'�����������������������������(


 "$����������������������%
	
!&(z}��������������!	

~����������������� '


#�����������������������!0
	
 $����������������������������"*
	

!vx~����������������������#,
	tvxz{|����������������������$/


wxz|~���������������������������%8
	"*/nprsvxyz{|}~������������������������&G

!#%')+-/24:Zlmoqrtuvxyz{|}~���������������������������'J


!#%*-/134`begiklnopqrstvwxz{|}~���������������������������(O

"%'(+.249;>@Z]_`acefhjklmoqrstuwxyz{|}~�����������������������)P
	
 #&),0469=@[]_`abcdefghijkmnopqrstuvwxyz{|}~�������������������*Z

 "$&()+,.013568:<>@DF]^_abcdeghijklmnopqrstuvxz|}~�����������������������+_
 !#$%&'(*,-.0134689:;=?BD]^_abcdeghiklmnopqrstuvw{}����������������������,e
	
 !"#%&()*+,./0235689:;<=>?@ABCGV]_`abcdfghijklmnoprswxz{}~��������������������-h


 !"#$%&'()*+,-./0123456789:;<>?ABDEHL_`abcdefghijklnqrvxy{|~�����������������.n
	

 !"$%'()*+,-./0123456789:;<=>?@ABCDEGIKU_acdefgijlmpqsuvwyz|}~�����������������/g
	

 "#%&')+/03456789:;<=>?@ABCDEFGHJLNPTWX_`abcdefgiklnoqrtuwxz{}���������������0a

!"$%'(*+,/124678:>?@ABCDEFGHIJKLMNPRTVXYZ[\]^_`abcdfghijkmoprtvwyz}������������1W
	 "$&)*-/023468:;=?ABGHIJKLMNOPQRSTUVWXY[\]^_`abcdegikmnprtwy{~���������2S
	 !"$&(*,-/14579:<=>@BCDEFGIJKLMNOPQRSTUWXYZ[\]^_acegilnpruwz|}�����).

hgl4l68CIjl28Cef=Fjm	78<=JLfim	<>HJKj
:;=?AEGKgjk
;=@Ccdfikn	4fkmoq���
3:is�(:oq�
8fhknop���148qy��035mpy��!/3nz.p�35nuz015np8o468m0lmpr-.m'()tu�	 !"){|}~!&x}����#*x|������!#%'){��������  "%(*|���!

&prtx}�"#%orswz|��# "#%),/ry~��$	 #$&(,0iprvy�%
!$%'-2579^dfiluw&
57=?^cfhjkpw'	&(+6:>@BY[]_dfj(	!$&*-068=\^bi)!$+-258:<?AC\^*!%*-279;=?BH`+	)+/27<>AH`f,	
'-1EIT-	CGU.FTVb/ORV0OQU*
F/jk*
[rsh�

]l
H
H)1	
f"
7
b
d
]6iln19
a
 
�!
~%k&
('2^
$S%
W	
c-
S
d
H
H
:	
b
HLEN
A
EU;c6>l
:
81k
i
9
:58e+k(or5tw-1 '-;ily!05h"
 #&-<?]$48B\%
E&
;'
J(
H6
e
^
b(2

.1fi1@ABH2359e37;=EFJ4567il6?IKhjlp		8:;@EIehk
Behn?abhm69dglp��
clnz��9f�79���'27mr�246�.5my "qs#04sw3z6nqr269mv7k23fnopqrst+.xz|#$%(
+vy{~�������� $&|����� 	!&nqz~������!
(uvy{���"&(qty{}��#

!'+.qu}����$!%')+.13chkoqsu{��%
 #&(,148:<Z\_beghjmt&	 $.068<>X[_bdgins' '),0579;<=?AEZ\chmu(
 #),/1357<[dgnp)
"'*.137;>BDE*	
'/4ACK\f+
"5CGKS,$4DFHJ^-=@FIJ^.HJLW`/IMQSU0SW1
Z2
V).

f
2>A78>be?@AGHfh4>?Ibdk39;?@CDIJef9EGHbcd	=BDFL
<@CFIJMd>BDFGHIJKLMUeg;<=?@BDFGHJMNObchj�
;<>@BCPadefghjk��<=abcehikm��:gijlm�	:gijkno��789;ghijkln�167l	4678lmorz26klmor678jkl359kl8;<=jkl9;j
14ghijknoq01456hlu	*-01247pq&*,./01oqrstuxyz#%')*,-./dfqstuwz|� "%')+-.ghijsuv{~�(+,.:hjklmnopqtvwxyz $+,24jkmoprstvwx{}!!#')*,-.1279jlmnoswz|�""$'*+,-./0124568;Ccdghlmnpu��#$$(*0234578:;>AEXZ^_`abcdfgijklmnps$#*-/25679:;<=>?@ACFHJQXY[]_`adefgjln%).36;>?@ABCDHQXY[]`acoq&"&*,139@BCDEFGIRY\]`'"$.CDFHIRSa(:?ACEFGIJKLRST)
FGHIJKLRST*EGIJLSTU+EJLTU\,KLSU-KTVW.
M*
de	
_EKa
?AIJLNADINQT_
<:fh9i9j
:67cd78ijl4`jl24p2eopr057is 18h!4;=dgk"<V^bj#QV[$EGK%
K'
K)
Z*1 
T!IK"KP
c$
I&
H
`
S
RGJLVCL
A
><AXa:CH9>@I]_
F=Ea(
Y,
\S
J!
T
gT

f 3@[f!BVZ^c"D\_#GJYh
b%
J
KO
?
@
A
>>i
h9b>^
caeh:?Dn
>6!
H	Na
_
VFHOQS\`
CDe
f>Ch
A@B>B>@HYDG
`
^
^f
$
V(
e
e=J

c
2
,.
S)!

1
c:dac
GBM

T
V
U
HMRS>@]
B;<;=k;j8h;j
i
359gmo3bnvw1m038flmq46<u .07=!	/36:<?efi"9>?AWZei#=@CHW$Z^%
R&
K'
L+
V*#
cAG
A	
`OT
V
DFTV
CEFGHJKLMOPSU>@CDKNd=?@AD=>?ABaf9<?@Bgi=?@AB;<=?A<=?Bi:=?h>?ghi=@g9:a:;cefg8<\_bdfi	7:;=?AD^e5789;<>@bcgijk46;=A`bd29;?BCSacdf 5:>AE^`bdeg!
@ACEFPUWX[\ab"BEHJUY]`#DIKP$
W%
I&JLQ*
R,
M-
M
B
<l�
^
Q�

[g
H
cJKbcQW]h

Jm

]m�
`O[^O[�

Wl
`
^m

R�
�$
O&
N0
*
-
]11


c
7
C
@

OCU
ZH[]_GIUWY[S
N
g
K
?

^
XEKRT
H
b
S
R6 IKW
b
PUXOQSc
E
DCDF=CV\^JQSW^`JYZc
\DJSCY[aGI` HXc"
IGa
K<f
3
c
e(
5
D
L)"
[
4#
\
<%
F
d
C	
d

b
P
Z`n5d/8* <?BOVZ_!GY]_
3"
G#
F
F
W

`
W
P
F
d
g
?
`?EF\=E
B
=>@]@D]b2S
G
V6

6��
#
T�
%
N�#
M$
M��
!
R�
"
S� 
M!
N#
N�
$
U�
"
N�
 
R�"
R%
M6
1 DJ\
7:=HI:=J
N

aRTY
PDc
B@B
BDFHRWXY[]GI_FIKTCEKAKRBSTVXZ\_JT\2

F
I
E
RSKU
>ACO`7<G
F
EIPU
P
T
N
KT
;D_TW[_OS[^OS
L
_	
^

_
_TXY[\bFLTX
a
f
G
S
T6
359<?EHKMOQa458:@CNPRad8;FQ`
Dac
_

N
Q
XWZEGIMRVd
h
fEe
CCE?AK
VRUWHJQWY[GIUW\^HJVXZbe
9
E

V7
BI;AFK^
KELN^
OQ`	
]

`
]Za
G
d
D
U(

6)2Bd;K
B

U

_* UY!
J
M
S
Q

X
E
@
_BD[]
aCE
FFH7
1
>
YS9D
9
a
]T
W]UW[]V[NRTW]_RV[^V\
^IW_PU
d
DFLMWU
[MWMOV
Y	PSZ
X]
X
X6

UZ
VCMb
;S_
N
O
J
S
[7
	
Xg
F
F*

c<

_~
I
e�� 
Q"
MMQ�

M�

P�

O<T
E
R
RU
Z
S	
U

Z[]Z\6
Z

P7


Zg

_)

`~
Y
U�
�
*
Q~�

OS'
T
OT
Q
M7
G
Sg
\GZ
W
Ll

X

Og
MR�

Lm

PF 33041 /home/Pictures/Space.pic
OCIF�2
�⠀	

�
�	
�
�a
a
 
S
S
T
T(
r

7
7TVX
Y
Y
W�
�
(8;�
�

Am
m

J�
�

B⠁0
/>L

�
�,.�
#+1���	'����	��
z���t��mt���
fhmowtv��n����q��
�~�|~��
�w���
__d�
�
�B

 S
.
76

�(

1
���2
�
�+
�
v/
A


'+03i�1?Hx2n.6]/
4[0
}2
,

|

*`
�
+





ea
�

��
*
F�
*DJV�
+
-�
-
�
'
7'
�
4

_
'
�g�
G
G�

F(
1

A


:

(
�a
/
+2
$
�6
(
�
(
�)
/
(+
*
�\
.
`h�

Hn
FI�
�
(
)1

c2
$
�7

X,


'
�*7
"
P\

 +a,
-
F�
.
[
.
�-
.
,2

Kb

[X

^\

�-

Zm
s

H0
�
,
!12(
z
8T
!
M]

;T
b
-
mU�
+
k�
#
F7h

S=
X
U�
�
*M_~
�
-
-
�
&
D⠂

t�&2�%���)-$*�%q����#$���	!#(��
	#%'Jky���(HJq��cgoq�

 )���&o�{}����)����u�)��(~����&�������������]b������0
\2
_7

(0��1
�2
?
�
�
��
�
�+
�
�-
�+0;1
>2!v-
T.
5/
S\
1
-�
�
(
<

2

Fa
�

�
�
+
'2
X
R
p
6]^b
d7%x�
1g
h 
;
J(1
&
Y[
-
4,

-�
�
*
W)1
 
y"
�

:
`
1

l
	
i
r

U


b

;*

T,

*
\ 
0

"+V
,
h[
-
\
-
�,2
K
\\

f]
g
Y-

_12 
K"
O#MP
NT

7

P
&
���
"
�
&
Tb
+
nU

7
'
kU
�
!
G��
(
H�
*
I�
�

C\
]
"
H�
�

F
�
(
Y⠃�

n0
1
�
	
u6
%
�f
+
T7

3(0
B1
X*
-
h+
/
J[
2
B\
1
Ca
�

b
h
!
F
7

U(1*
�
A

y6

f
.
E[
2
/\0
2.
c~
0
uh
�

=�
�(
*
U)1&
�
1b

�U

 6
%
�m

?+a
/
�
.
',b

^]

`m
�

L�
�
,
T
g

<7
h

T[
~
!
~�
-
,
-
.⠄
 
),8pq� 5u���z�&(-/����0�&(0}~�EPy��
�	'�
$Z�Px��
SWYz}����
(Qdps�%suw������
!"rvyz��� #+txy|,mx}��z|�x��tv{��
��������Z�a���
` dg!
�"ce�)
�g


S(


'
�	
�
����+���
�,
�

{-
�
|.\�/��09�19A���2L���
�*

�+0A^1g�2
	*
�,
U.
^/:Q

2

B1

h2
?
C
[
^%
s&
�

E7#
�
n
6'
�(
�g
�

H(1
;
0
&
 
�
'#
m
(6


,

1\
-
d)1e#
V$
X
l

V

{


7

z*
_

s,

\

*
)
�*S,
|-
}\
51!#+V
.
([
+
y,2

N
LW

U
Pm
�

E12
#
NS
 
N7$
R&WX�
�
%
�
�
)
�
h

DTb#
-'
b7
'
lU�
%
H~
'
W�
�

B�
�
$
~
�
&
H
�
:;⠅

��

(�
�

[
#
RV_
m
�,u�
%
q*��
�w|'
�
�
``�[��� ��!\`fgh"
h(

�068R�

�1
:25@Y
s�-
�.
�/���+0
1')q(
�/
f,	
\

p�
�
#
>�
�
'
1

e2
$
�7
\
T
x(1

J
!
j"
�#
�$
�
o
�

"%
�+
.
)1
F!��>A
1S

X,
\
U*1

\!)*
-
t
 ,2

e]

f1
7

MSb

L2
"
N7
h

W[
�
.
~
�#
*
k⠆0
,
O


Sa
/
'T

�(0
�
{a
~
!
1
T
)
wb
�
#
4�
�
%
S
a
.
rT
U


7
Z$
�(1
g

<,
<
+�

)
1#
{

6,
]

_⠇

[
/
3�
-
cb
�
 
G(�
-
A
'
�)
1

0⠈	
 
��.��#�'�,���	
*����)
�*
�Om��f~
t��r��qu��"n�{�������
���{���g��1

�S

6

Q(


1@�
�2b�

(
R

�
y,
�
z��
-
^*
*/
<+0c��1�2
*
�/
P\1
,/
=
1
f
f2

Da�
"
�
*
o��%
(
%*EH�
*A\�
)
2

o
5
6'
7
7(
{
w
sg
�
 
<(



q1
>
+)
�

@A

S

�
/
))0
E2
-/
+
)
�[
-g<


9\0vw1
.��
+
,�
*
Q)1IMN

[
aT

j*
$
�
@\
g
Z*S
3+
}[

3\

/+�
.
%[
-!\
0
,W
TU]

O0
\
.
�2
b

9S
]!
I+
sTa

�

U

f

7
(
iU
�
"
F<
h

L
�
*
f⠉
1


0

#�
.
;�
/
*U
�-
]

'
R*0
|2
G[
0
x\
/I�

b
h

<�
�
*
��
*
G�
*
�
*027

]�

[�
�
,
(1

Na
.
M6


=
*
�)
.
"*

 
	
=�
�
*')7

1�
-
>*
�
.
/+�
.
&S
/
m�
,
�
,
�
,
�
,
6
,
M�
�
*
�
�
-
�
�
*
eT
~


7<

Vm

K�
�
-
��
*CKL�
*NO�
�
*
"⠊

 `�
y	
s
+

w(

.2
�
�
�-
�+
1
s�
�
#
CS
a
/
t
7%
�	
47
h

O(1

o*
/
l,
$
k\
0
D)1


8
+
�,
!
r+
�
-

l
s

M<
h

M⠋
0
.
@1
*
�6

-
(
�*
/
C
*
�[
0
y<


&\
/
a

'
S��
)
�
*
 �
�
*
Yg
�

I(1
m$
�)
�7
'
n)
1
Z
y+�+
/

�
,
L�
-
=0�
-
	~
.
=�
�
*S
�
.
.T�

U
-
l~

J6
h

MV�
.
�$
'

��
*;<=>?@^�
*678[g
)
i�,
.
�
�
*
#�
�

D⠌
)wx#u
�/���&.���%O��	DG�
,his)L^`a

i+Mprs
q
+&|~��)*�
'����
����Z����a���
_ b�(

23
('	
�*
�
�
�
x��/6Re0���
�18K�2����+0
1tv2%1/
~,

t�
�
$
A
7

6g�
"
9�
#
D(1



.
r
&
�
'	
}
$
]
�

D



!
!,
-
.�
�
+
+)1
a
3
<


 

,
!!#*a
,
vS
+
|6

\
 
2,
]

Z�
�
.
m
�

I0
a
.
w12

d7$
Q
4\

4T
b
%
KU
m

L7
g

H[
\
,
"~
�
#
#⠍
�
,
4T
g

=U
~
+
l(
1

X)1

0,

;⠎1
)
�(
%�,

}a
�
 
Tb

7U


7

M(

i
A
$
�,
	
j)
1"
�
9+
�
1
⠏7
&
p(
1
b0
a
.
v1
g

NU
m

P)
1

}+�
-
~
 

m
�

E⠐�



%
*o|	#+8��	
*4s���� $0����
%����,.��	*��(,�	%w�

 Yrt!$Vr��"%RV^hij���
���
n�(lpt���	%w������
����%(�����w�z�������x�������
�
�`�d��� 
f!
�#
�$
e%
�)
�2
](�
�
��
�(
�	
�
��*
�+
�x|�,RT�

�-
X
�.Y�
/��
~0@]�1J�
�2
�*
,
\+0
f1Phjnz2OPx�#
�(
S.
P/7c\
.
|

1

fa
�
!
�
�
%
=1

d2
4
`
]
S

Sgh
 
F�

>(1
	

"
n
(
$*
-

[
-
K,

")1
O 
q
c
6
<
l

;
n


!T


h7

B\

�~

'*S
)
~6


\ 
*
-+[
/
`\
-
",2
JL\

X12$
M%
u
4T

46

O7'
t
S2
'
r]
 
I�
h
"
=TU

7
(
gU
�
"
6[
�
,
x~�
%
F
-
/⠑

�
x	
P
LSo}
\
a

[(

�,
�+0IK1
2
',

�
'
�0a
/

\
/
w1
2
'
~a
�
.
*S
a
-
nT�

:U


2&
�
v7
c

;(

	
[
L
$
�)
.
N
'
�)1
9
h^_
9
Q
&
�7

4,
%
b*1
,
}\
 
(+
[
/
�⠒
�

d(1

:a
.
j�
�
+
f)
7

^+
\
/
�m
�

?⠓T
g
(
f(
1

0)
�

0�
�

F⠔
 
a
)�
�
#	q

&MK[l
	c
'
v
�_�
�Y`
cb�7

,(
0=�2
�
�
�
�s�+����

�y�
�,
	
^<


%

1
g
c7
Y
6
o

x(
 ��!
["
i%
c

B
�


]a
.
K2

?

|*

,
"
o)1
0
g
`


6
(
�,
]

\0
\
2
1
2
'
�6
7
%
O7
g

P��
(
I�
+
6[
�
,

\
~
!

~
�
$
3⠕	

!a�
�
1uy	
R



]
i
\b�(

(1362Jd/
�+1	*/
0
a
/
1
T
!
LT
U


7'
�
R(1

R
	 Z\�
-#
�
s
F
�
A
Vdh
$
[)
�+0
#/
i,
z5u
T)1
]
G
?(
�
y


;,
>
0
;�
�

B*
6
-
|⠖
\
.
?1T
!
K<

T(6



}⠗a
�


U
g

L(
1

F⠘

x
z�
+
RS
.
i
*
�7

2(

�

m*
0
+
0
[
0
1\
.

.
B1�

5�

>a
�
+
j7
h

:(1

l�
.
C,
	
nh
�

<)1
e
F
m
_
p,

-<

x�
�

A+[
-
#\
+
h[
�
.
\
b
)
u�
�
-
⠙
1
*��(

�[
-
5\
/
��
-
:a
�

	��
&
	�
*
/
7

q(1
$
��
*
T*

X\
/
o�
�
*(-)
1

4+
�
,
�
�
)
0
�
-
y1T

�

IT
�

��
*
:�
*
5⠚a
.
LB

"7

)[
.
_\
/
�(7


	
<�
�
*
m
�

@⠛
�
*
R�
+
]
.
�
+
S�+P\-
_)0LM1
�/
K
*
�\
/
�
+
Q�
+
U

7

`b
m

=��
*&�
*%�
�
*

�
�
,
(�

2U
0
s�
-
?*
$
��
-
@)
6
(
|*
�
*
�
�
*
.+�,
K-
'�
-
`\
/
n�
,
 �
�
-
��
*
�
,
+�
*
�
*
$�
�
,
*��
*
B�
*
9�
*	14�
�
*!�
�
*
3⠜	


�(

�
�0
�
-
(1
7

8�
�
$
S
7
(
w(

i|
"
�,
A	
l)1



"
W+
[
-
$~
�
#
"⠝�
�
+
)(
1

��
�
*
,*
1

4m
�

F�
�
*
+⠞
0
2
D�
�
$
S
T
+
p(a,

-
*

�
�
,
⠟�
+
[T
0
t)
/
8[
-
La
�
*

b
h

;�
�
,-.S
~
-
kT
g

8V
�
%
�
�+
,
(1#
�
'
�7
(
k
0
q+�
-
1�
-
b~
0
r<
�

O�
�
*
⠠
#
!-6sv�
-0yz��		$135���"+���&*�����-���)+"'M��	L�
U���	X��$_
Ol���kq����o|���	'p}������jrz����uw��y��������������y�����
�^��
�
�
e��!
^#
d)
�1
�(



��
�
�	
�
w��v|+���
�,
�

�/
��1<�2=M}�
�+1LOl2+m*
�,Q�.
V/



1

a�
�
$
?�
�$

'
"(
&2
\
5
n
y
b&
}
:

n-

C�
�
#

�
�#
<$
=T�

b$
J'^`U
!
 7
%
LU
�
"
"V
\
,
$�
�
+
@[
\
,
#�
�

Da�

.
+f

f
�
.
,(
$
g
%%�
',
L
#h
�

>)1"
z


]
|S

fT

27
9	
2*
�* 
{

8,

2*6


\ ')+*
y,.+
[
-
I,2
O
`\

d
W
]]


\-

`
dm
n

>0
\-
x.
�/
x12
#
KT



u7
&ks]

<7g

s8

Q⠡
-�� ���u*F�	�
n
 l,b

T#k�$(z����vz$�y|�y���z��
z
�
�fgh�f�ce� 
�!b�"`a#
e%
�(
�
��1�����2<����

�
���,���
v�-
�+0Pk1
o2oqt�.
g/#ga
�
#
2��
*
[�
,
21
_
^2

A(
	!l�
$
h
R

$#*
�7

2)
&
�,

�$
i"(
.�
�
+
*)1


:


)
'
�,
-#-
+*1

\

3+�
*
h\
/
v,2

V]

Z0
\
.
�1
7

6Sa
,
q7
(
t\

T
a

7h

R=

W⠢


<
7�
#N�DK�	OVzGbgjITe
+LX-j�
s(��*�x�}�chcg�f��
�Y^�� 
j!
�"
](





�+
�
w-���~�.QUW��
�/
�
~1~��229;z|��+1!$.
f/
 ,
g
���

1
i
a
o�
�
'
!
2

=(


�!
k"
�#
^T	

`m
C
/	

-
,#-bf

V
�"��#
�$
�%
�
)
�).
#/
k*
.
},
j ,h
�

?)1
%
a
]
8
T
(

"
Q

	,
3
=
*
'*
\ 
/!
-
6-
r
2,
]

^m
�

K�
�
#
0
\
/,y1a

72

oT
"
J7
&
m�
�
,
S
a*
w


TU

7

L⠣0
0
0



Y(1Y.
�,
�
x

f�
�
#
@1g

67
'z{]

N

1
e
Z
7
'
}(
 
�!
�#
�
`
?c
Y
A

\)
0
�+
0
,%
g
)
1
*
�,
1

U⠤7

(*
-
O,
*
�S
T
*
z(1

K\
0

+
[
.
~⠥


	
,�
�

D*
1

⠦
(

/a
~
 
(
\
0
	⠧a
.
(0
T-
\1
7

pa
~
 
(
,
	
e)
1

Q⠨


x
p)�
�)m
~L	Kv
NOUZPU]
"qs
l"�
��
%
)����e�[������\]_�_c��� 
_!
d&
�(
$&
�
1

	
�)
�

�
�+
�{�,��

�-
�.X��/X�0
�1N�
�207T�
�+1"m2)*.



1
bha
� 
!
2

I

\g
h

K(


�"k�#]hiP%
�	
y
0H


Q



.
$
 
�
�
$
�)
2
C,
!$'()*

2,

#\
 
&*,

%\ 
-!
'+
0
0

0
\
-
�12

66

37&
r(
x��
%�
&
S
7
&
nTb
)st7
(
uU
�
 
6
7
'
i7
h

S�
�
+78�
�

E⠩(

�

u+
.
4a
~
 
(


F1
v
e	
g�
�
)
+
�
,
5�
�
"
⠪
	
k 
�
Q	
T

^
]

.

i(

51
0"
�
�
�/V�+0
m1
1�
�"?D
C

1

j2

X

\(
 
m!Xo"Z��#
b
$
�
�

D

F0I
q
t
g
e
}
l
m


�+
0
',
�<p

)1
4
?

=
R

,
 
z*
a
 
",
]

\m
�

H0
a
1
12

T7

7]

c�
�
%�
�
'
:~�
#
:�
!
7⠫0
/
b

#(


 T
g

;
7

Y(0
.
1

`,

{*
a
,
t+
a
2
⠬1
T

(
,

�)
6

~⠭\
]

c,
]

b⠮
1

]�
�
-
(
1
 
�)
1

2⠯
,

y�
�
)
)
1

1⠰


�(
�-
V.
��

0
\
.
01
~

6

1

aS
T

�
�
'
,7
L&
�m

pg�
!
=h

9(

 
X
k*
.
8m
�

L�
�
+
^⠱	





"
f(
�y�

�-
�+.
h/
,

U1
]

_

1

^a
~

7
h

<(1

@


 
?
|


i




$b�
c
m
,

A)
1

/'
�+*
1
F[
/
�m
�

N⠲
,

KS
a
.
u⠳
\+
{-
8g
�
%
E)
1
k
[+
[
/
�⠴
(
<

⠵
<

Y(
0
0
�⠶1
	
�

"~

e[
�
#
⠷a
�
,
dV
�
.
-g
�

N+
�
/
�
�
.
⠸1
(
�S
'
T(1
�2

`
�
-


1

aa
�
"
5(


6a
-
i
#
�,
w
[)


/1
 
r�
*
i�
�
"
⠹1
&
�)
'
�0
�
0
(
1

]<
m

;�
�
,
⠺0
�
.

7

r(
,

8�
�
'
9)
6
(
��
�
)
⠻	0
0
{)
)
��
+
V
(
�[
.
,

s0
�
,
3�
�
$
�
�)
*
��$
	*
]�
,
1(
�
,
8*
T
.
o+T
-
{�
-
am
�

?⠼

%
�7
h

;⠾a
/
	7
*
�(
6
%
S+
�
,
e[
�
.
<
m

R⠿0
.
91

2�
+
Z)2
F(
��
+WXa�
-
)~
 

�
�
+
!��
*
�
,
(
�
+
Y)1

eS
*
*T
,
u�
+
O
-
j+T
.
n7
'
m�
,
J�
.
D0
�
,
H��
,,/�
,
�
,
0T
g

9[�
+"#�
+
$~
 
�
�
)
~�
*
�
,
G⡀

/9�2��


'v��	)	&��
&)v�"%uz��knp��
ju�$lo
x
�
|

�{}���v��
�
�
�
\�� 
�!
�0
�2
\�

U

�(2y�
�

�+	1Qei|2 w%
�'
�)
�+
�,
�.
�/
O�
-
7\
/
|`
�
-
a�

b
#
,�

�
#
)�
�
%
>�
�'(
+
b2
B$
S&
~rs7
>%
T
9

[
"
�g
�
 
:(1
J
a

%
�U

$
'
�7$
�%
�<

S��
(
�
)
2)1

C
2"
p#
}
E
h$
Y

`
BT

/*

\

!*S

U

16

W

)\)yz




+[
.
F,

/\
0/,2


a\

a]

]
R
[-

Pm
s

K1a

2
5
OT

Sa
*
|
T

�
�
&
(Tb
'
c�
)
nU
	
h

;7g

I8

Ah

N=

R��
(
J�
)
\�
+
5�
�
)

=
n

F~
�
#
�
�
D
C⡁	

,.��
	M
(f�
�s�
r
�y�����
x
h(	1
=23:
�)
�*
�
,
�-
�.
�+1
 2
s0
\
.��16

7

O]
 
L�
�
#
2
4
y7

5(
!
�#
k
%
)

Y1

X*
-
�
�
+
B)1	
7
)
�*
�,
J



,
H*a
-
s6


\
⡂

:��:�!"
3$~�I
z
W	N� d
!M`e�,ef�%���$���x����+st�
}&+�
���
�e�be�����!
i$
�(
0<V

1V}2{��
��+
�,
�

r.RS���/
�+0
j1
(

1

k
1
cdg
�
"
E(
	
��

�$
�%
�
H
",u
*!��(
�7
&
�*
/
�,
"
l)1BC
3$VW	
6,)
�
/*S

\!
.
,\

X]

e0
\
-
�1T

6

7
&
w-

e�
�
&
S
a

��
&
'�

<TU
 
g

O\
~
"
&~
�
#
⡃

G

\(0
�2

�
�.
�,


�1
7

Q
7

w(


R
%
�[
.
y)
1!
R
O⡄

	
+

N
�(
�0
d*
0
Ha�
"
~
!
�
�

E
7

R(


�1
(
�T
'
p
"
�)1
1

,
�
&,
 
o+
\
2
,
T

~1
T
*
}�
�
#
�
�
+
U
�
)
h~
�
!

⡅


O

(0
U1
f(
�,
�0a
+
w\
/
01
]

\a
~
 
T
U

(1

<
 

j
C
U
 
�)


<1

z*
�
)
p⡆	
)
�(0
S
	
�
,
]*
-
Ga
�
 
U
�
,
j
7

G7
h

=(1

l

j
BT


i"|
\
1
/)



=1

7+\
-
z�
,py
�
&
1⡇("
�-
[�
,
A)
-
�`
�
0
a
�
,
gb
�
#
E
1
#
z(


z
=
i"
})1

Y


k*T
)
x�
(
Q+
a(
p.
3,
]

`�
�
+
gU
�
"
6
7
'
x[a
.
2�
0
⡈

,
&
�
�z�
V	
Y

�
[
.&z��)�#)puw�
y
w'���
���
����
�
�

(
�0
�
�
�	
���
�,
�

�.
�/
�+1
k2
a
�
-
01

b2

V7

]g
�

I(

R
+
#
�1

?
 
�,

))
1!sy#
U
l+
\1
G+
x�
�
#
⡉
(2
E

x/
;)

�⡊0
/
}

 
c%J�
Paf

Z
�

Z`�

�(

1
(
�	
�

�.
���

C�

D0
\
2
1b

66


7
7
5
4a
~
!
	�
�
%
T
7
(
v
7

Z(
"
[#
l
G&
�

I
d
-
-
h
a
Z
~VZ



�
�
T,
�
|
J
M)
(
�
>1
)+S,

|[
�
1
�
�
!
⡋


D�
�
&
T


I(


1

7,

h⡌

9
U


^(0
�1
_
�)$
�*
�,

va�
 
b
!
51
T
!
NS
7
'
vU�
"
~
#
(0
/
G
	
"
X

e
Wj}
F

>

$
\,
	
h)1
J"
T@l%
{
| 
S




<
&
�*
\

5+
*
.
[
�
1
,
1


Pm
�

O⡍
0
/

6
)
�(
,
�
q)
1

6⡎

(
1
`

1

Ag
�
"
:(
f
"
~
 
,
e
m	
i)1

(g
$
�,

?*
7
%
�m
�

H1
6

��
$
�
+
d�
%
S
7
'
wT
m
'
Q�
�
%
�
�

H⡏	�
-
E)
+
�,

G1
7

Pr
�

GS
�
*
g(


j�
0
�
�
+
?)

(
�*
1

2�
�
-
⡐
6q�!*�2�O�-W�	HIJX�
	E~W\]_N\j&*+�&)�
!&r
z���u��
{(�}�����
a
�
�j�g��� ����!
�$
f( 
�
#
�
�
�

	
�*
�+��
�,
�
�/
�0>��1;[�
�2`�
�
�)
2
H+
0
",

�

1

ba
�
$-/�
�
'
2

Y7
M
5
5(



}!
p"
�#cj
p%
dp}

/

!r
%1

Z

+
/
,$
l
%�
�
'
	)1
`"
S

&
e

7+
{
z,


2*
\

,
]

]0
\
.
�12

N7$
N&oy'
u
5
N\
!
(�
�
'
Ta


7

7]

:�
�
#
[
�
"
~�
&
I
&
L⡑
!
_
o"^bd
8LO~	-W
{
h-MX
PU
+klt
o&u
cd�
X
gf�(0
_

17Z{
�
w+
�-����
�)

�+0
1%p-
e/
M,
y
ag

1
j
_1b

MT

6a
�
"
�
�
#
S
a
,
r
1

_(
 Xk
=w!m�"
�BN
U'
�sx	


A
D0BE

D

$
d
g
i
Y
i
Ta
.
<
#_�

 
.


T6
'
�,

kUx

d)1!
x
'
�


1


 
,
$
m�
�

A*1

(\

4~
�
#
6⡒0
\
/
/1
]

d7
h

R(
 
},
i
Y
\)



V�
�
-
&⡓�
�
!
D(0
.
G

,

l)
1
(
��
�
$
⡔(1
\
42
c	
+
.
{a

!
1
7
'
���
"
�$

+

6
&
�(1

=

G,

Bh
�

F)
1
(
�,
]

f<
h

<~
�
 
8
�
(
Z⡕

(.
Z
�a
~
1
\]6
#
�g
� 
9!
<( 
Y
{,

�qt
CXYZ
d
>)1)
�235




(
�

,
F
6*
1

�
�
/
m
�

J17

7]

b�
�
$[
�
-
<
h

S⡖
r
�

I⡗
)
.
�

1

CV
�
+
(
6
'
�*
S
*
~,
1


M⡘



�(0
J1
S2
f.
�

1

aaU
 
	�
 
7g
h

:(

!
Z
8
p
r



�
!
�*

_,qt
\)1
E
U
l

,
 
n*
\
!
0+
\
/
E1
7

8�
�
+
T
b

7[�
.
�
1
~
�
%
-⡙
�
�
#
A)
1
�\
0
,1
T

7S
T
)
v�
�
*
b�
�
*
*(
0
1
)
1
4
.
p+
*
+
z�
�
*
)⡚1
7

t[
�
,
⡛	

C(
2gh�
�

F�
�
$
�
�
*
aU
g

M�
�
*
`(
1

~)
1
t
`,
b

a⡜



;(!
�1]^1
7

9Sa
,
s7

91

mT


6(


~&
�
,

W)
 
~#
$
~
D
7
%
��
�
#
⡝
0
1
b
�
!:;T
7

8
1
G
8g�

Fh

J(1

f,

V)1

v
$
},

�⡞�
�

?�
�
&
6g
�
!
9(
1

)
1
d,
⡟
)
0
U
g

Hg
�

J(
+
.
z)1

S�
+
A*
�
*
+
�
,
7⡠

/
(
�
�
�	")

M

��
m
�7

+(0Y`


�
a
�
$
.2

X7
I
p(
a
.
J)1	
_

A
f#
p$
n&
�
3
p
}*
%
i*6

	7
%
q+a
.
a[
,
�,
b

em
�

O1
6
!
OTa

U

7
h

F�
�
+
c�
�
*
~�"
(
^
#
%⡡	
	
'
)
z
p
E	

y!Ld�(
�0
�
2
�+
2
1
7
9&
U��
(
"�
,CFT
�
"
7
=

T(

"
S
X
#
�%
�,

�
�
�
(
#)1
_
,

W,1
VW


Z⡢


;{
QQrw	EZ



,
�
~
[W[�
�
�

(
0
�
�1UW
0
�
�)
�
�,
�
$+1
r2
&.
d,

�
v�
�

E

1

ma
~

b
�
#
51

^2

\7
H
x
7(
!
�S
	
_


�JPWSW1
&
d 
U

o%
�
T,
b

�
l


n
*)1
G!
w
D$
U
4
*

/
R

,

<
,
=*
1

,
]

am
�

P�
�
!
16&
v
7

:��
'
�
#
S
a
"
0U�
!
�#

$
+<
m

O\
b
)
r
�
'
D⡣


T(0
�1
�2Zpr-
�,

z�
�

B1T&
t
7
w
va
U
 
�
�
-
+�
�&
(

1
4"
w&
�
3
W
3(0
0
�

-

p]x

@
D
C

#
�
+
.
,KSwx
�
�
(
 )1"qx
5



>
2%
��
�
-
�
&
+�
!
E⡤B

!,

n��
+
`�
+
aT
~
/
s(


>h
�

>⡥(


w)
1

.⡦1T

7

8S
T



7

@(
�
/
&⡧�
�
&
"(

"
�)
1

g!
Q\
]

c�
�

G
�
%
D⡨

 
�!
c
6


�	
Ux

T
n
O



�

*(
%14�2
e
�-
�
�/
+
2"(,
"
j

1
d
_aU


~

b
�
"
7��
(
$�
(
)
1

Z(

R
=#
�$
c

t

~
�j}


l�1

j

n
!,

u)
1)*
++
*
-
 1T
!
&]

`�
�
&
T
a

[
\
2
~
�#
$$
4%
.
�
$
5⡩
(

7.
�g
h

Q(1
L
:
a


[,
	
⡪


 
v

N

(0Z[a1
R2ku
�,
�

�.
�,

o�
�
A
Aa�
 
~ 
"


1
"
y1!
u#
y$Tz
m
37
U
[g�
!
8h

L(
f
;
I
|Vc
S
Ulm%
�

�+1

.
 ,
k"
m
oKopqrs
.KL

X	

)1!
t
@$
{)*
 Tp

k
#
~,
0mn
>b*S

\
!
/�
�
"
0
\
/
-17

V]

a�
�
'~
�#
;$
&
�
'
C⡫
)
*
�1
]

b

1

X�
�
+
L�
�
-
*�
�%

&
�
�
%
?(
1

;)1
UV6


%
�\
~
!
H
�
&
B⡬T
U
(
q(

{,

H)
,

;�
�
'
�
�
(

�
%
C⡭
)
1
!
v⡮�
�
!
C

1

B1S

7

u�
�

@a
~
 
�
�%
6&
7�
�
+
C1(
~
R6
#
u�
�
%
 (


)
1

T
�
(
N⡯0
-
9(
2
Q1T
"
I7
Z
Za
U


�
�
&
0�
�
+
&T
b

N1

P6#
t
2(
(1
(
�

k�
�
$
)
1
W
c,
1

h⡰


Z

((
{0
4
w+
2
�
�
+
_
1


6(
"
�6
)
�,


�)1

B#
�,

0,
1

}⡱(
�0WX1
�2
[-��,

V�
�
 
E

1

H�
�
(
!1
566
'��7Z[&
�
r(

i
-
E
q
s1

l
 VW!
�
#���o$��%
�
r
,
.DMTk
c	>
.h
�

E)


m1 
s"
r#
o
%

6
+
�*
�
1
+
*
.
H,
1

TNW~0
a
.
b1
7

7s
�

DS
T

�
�
'
*⡲
,

�
�
%
!S
T

(


q)
,

n⡳

1

{�
m

Ia
~

1
W
4
36$
w)
�g
m

;(

a,
L	
f)1



k*
1

,
1
Mi��
"
�
%
#�
�
&
.U�
"

*
m<
h

U⡴



/

6

Qa
�
+
S
~
(
j(A
	
;T
%
h
#
�*

)
1
2
A[

!

⡵1
T
#
L
1
4%
W(
1
 
|)
,

e\
~
#
*
�
#
7⡶
1

B1
S
)
}�
�
&
T
U

/
r(
1

P)
1
&
f⡷1
T
(
s�
�
+
�
�
&
@
1

5)
1

�*
~
"
	⡸	


(
d-
�1
7

sa
~ 
!
1
t

5

3
z(
!
Y#
�
n
m
o


�,
<7oYZ)1

q

Y,

a,
]

b\
b
 
6�
�
)
⡹
0
0
z1
7

Va
~
#
+T
g

>(
*
0
F⡺�
�
"
Aa
~
"
!�
�
%
'
1
A$
t
T�
�
%

(
,

l)
ln
i�
�
)
⡻
)0
N2
,1
7

U�
�
!
B��$
B%
A�
$
�
�
+
Ig
m

K+
�
,
;⡼
a
0
p1
T

a
�
$
)
1

1
�
%
5⡽`
�
,
'�
�
&
>
1"
Q
D$
p�
�
)
(
,

f�
�
+
1+
1

3~
�
+
N⡾�
�
"
@0
�
-
<1
U

�
�
&
=6
7

u(
1

`�
�
,
⡿�
m

J
)0
~/
H�
�

Ca
~
$
G

�
&
R1
I
)
6
Q
Pg
m

Q)1

Ta
2
+
�
,
�
�
+
 �
�
$
1
g

Q��
,
I�
&
*�
,
cs
�

B�
�
'
=S
a
/
2Tb

9~
+
mU
b

:V
�
-
[�&
,

�
.
\
�
0
�
�
)
��

@�

F⢀

#'4�$'{(�����"

�	
 ��

��
'p��&�
n|~����}��~���*�����{������
�
�
�������a�
�1
�U

6

*7

R(



�
�(
�/
Y+0Obe2j,X[-RWY.
:/
U<


#\
0
+

1

d�
�
'

2%
o
n
;7&
�
w

5
9
X
gSa
*
vb

8T

�
�
(
6Ta

�

b
*
qU
7
'
jU�

>h

:�
�
(
Fa�

�!
)
o�
,
U
 
�
!
b
�
#
3g
i

?(1
#	
1

%
fa
/
$b

}2

=6
#
�7

)
1
D*

\
-
�=

^h
�

>)1	

E
/!
z
g
%
mn
z
C2
%
�

P7
$
�,

*2
&
jS




 6&
h

\

++
\0
1
,2


YW


SX

Y\


c]

OXb-


[m�
N
G�

I0
�
/
12"
M%
t�
%
RT

7
&lu] 
J#
J
:s
x

C78
=>h
:
<~�
!
�
$
(
�
'
M⢁
%"g�+��"$��	
$ik`�
,�(x���
�
�
���b����
���(


	
�1
�2>N~


�*
�,��-
S
}+
1
y1
7
#
O��
(
'�
*
X(

+
�,
,
�)
1
)
�+
\2
,
�,2

M\

X~
�
&
G⢂


r"�


{��HI
&CIJ�	
*GHIQFQ
*-gk*-
�#*�,tu}%�
�}��������������ef����������
�
�i�!
e

(0
:


125�2

	
		��+
���,
W
}�/]�+0)hl1
w.
Oa
U
!
��
,
D�
+
D�
'
 
2
<
3(
 
i"
�#
�$
j
!
1

j,
�
,)1


9


,

$*6

\
!
,+*
.
	\
-
��
&
�
&
1T
 
M7

\
 
!�
�
,
	��
(
G�

ESa-
q.
s]
$
LTa

b
#
.U

7
h

X�
�
&


�
$
$⢃


"(
�
)
�
}/
�,


�\
-
M�
-
;1
7'
|
o
qa
~

b
�
$
F�
�
-
T
b

K
1

iV
�
&
(+
/
,

n)
,

0⢄
 
�np

�
�
{
�	
Q
+
^

\
�(	

1

�
�
�+
�
u-
�
�a
�
7
K&xz
&
�g
�
(
X(

"(
�*

b�
�
,
b)
1

D^c!
�2k%`}&
�

W*S

6

,
]

_
[m
�

K�
�
)
0
\
-
31T

7$
O'
fSa
 
T"
/
T
U

7
h

S�
�
(
4
�$
%%
)⢅
 
h

�!v#
�
4
{
Pw�
FKR]
IK	
)Wa
h
n
"(s
v
)
dW��a�
�
(07��
�2IKV


�.
T/
�+
/
,

{1
7

6a�
#
U



Sa

7
%
P�
�
+
Ta

b

<U
,
mW
]

^(
	 
[!
�
$`�
C
Cb
|
G
k
"
�,
r

e)1 
Q!
S%
~
*
�n{,
1
0
)*1

a
.
t7

8\
!
++
\
.
x
�
&EF⢆

p
H


(24W

".
�,
�
g1
T

a
�!
"
��
$
�
'

7

S7
h

T(
 
�!
~
@
?E
["
Y#[�
t,
m
4
h
,	
/
k
g)1GH 
x&
�
;
>6
&
�7
$
�+
\
-
J,
]

bm
�

G⢇



(0
Q/\��
�
#
?a
~
!

7

Z(

u

 ��*

,
Q)1



I,

1
<

q�
�
'
S
7
'
yU
�
!
�
�
,=>\
b
#
H�
�
+
⢈

!
�*7�#
f$
��/�+B	
�
P�So#r�'{
���(+��
������\d(

1
�
2
8

�
{/
?+1
#2
l/
^,

d1
6

S

*
jT
a



7

7(

$
d%
�

&)1
S
2
,
'
!*
\
 #.+
W
+
i�
�
)
⢉(1

jT
(
l�
�
*
⢊	
 
�
�
�

J	

�

_
�
H


j(

�
�*
�/
�+
.
e,

s17
%
Q]

]TU

�
"
31
"
�2

W(
 
�
o
.
�

*
.
I+
.
!,

-�
�
+9:)1
1
@


v%
^

1




,

8m
�

G~
�
$
2⢋0
/


&)
1
�,

R1
7

O�
�
+
.
7

oV
�
#
(1
M)
�*
'
�+
�
-
2⢌

3GMSr��
-	CSr
-jlq
E
G
,ov� 
,
+~�
|
�
�
b
YX]^h1
(
�

(0
g
+1IT
12��'
�*
�+
�-
U.��/��+
1
u,

t�
�
#
B

1
`
`a
U
 

�
�
+
G
7

7(
 l�
?�!nq#
�
�
	.o




K/d
ij
.
q,p
%
h
g
Uj1
2
, 
�!
}#Za

s,
<

$
f)1
U
<

",

D*1
,
~\ 134
5+
\
,
�,\

Y]

am
�

J0
\
1
1T!
J
7

7]

c��'
+
�$
&
�
�
"
>S
a
+
qT
b

6
�
$
8⢍(1

I


B
"
\+
0
$,
O	
b)


@1

Q,

7[
�
.

�
�

E⢎0
-
f
v
(-
Z/
�)
-
Q`
�
/


1

\aU
	
�
!
6b
�
";<�
�
&

6
&
(

5
:
q
f
{
$��,
�=�
P
i)1 vw
3#
r
 
�
[
0
-,
`
/+
0
-
,
1

W�
�
/
�
�
$
 �
�
)
$�
�
&
5T
a

�
�
+
;[
�0
1
⢏
1
#
w(0
0
%1
ij�
�
,
?)
1

u�
�
+
>⢐

muyrs,
!��
�!R} !		
!WX|NRT


�m�!��t���
�
y
�~�������������c���^W����
�!
�#
g(



	
�
����,PS
y�-��
/
T05?1�
�2
���+0
2
#/_d

1
eja� 
!
"

U

�
#
1
2

c(
	


n#
�
!
"
'
#
�
�1

1
F





?+
/
",
%&)1
b
:
%[_





,
 %&*
\ $%,
2+
[
/
z,
\


W�
�
,
%1T

77
'ghS
a
	�
�
'
/Ta

b#
/%MN7
(
h7
g

@⢑
 
^!
�
w
||�N�	BF{

VYc

b	.mv�
�
#
~
}
h
X
\

'(	0
�
�2
X

�

�-
�
�/5@+2
$/!h�
�#
=$
>1T

7$
P
RaU

�

8�
�
+
FTa

g

9
7

[(

!���%
�
D

V
BF1

d


+
.
,
|
@	
a)1
1
T
\
o


/%
�

8
S+
[
2
~
�
$
"⢒1
T

(
,
C
c)

"
V⢓

(


�a
U

1
7

t
6
$
�g
�
$
D⢔

"
_
r
s /



[(1a�
�

�+
1
&1T

6%
r
7
&
{S
a"
+
T
=

J(

!��"
�&
�
t�
 
�

	*

c,
�

])1#
�'
�=V


U&
�
'
�*
\
!
1,
\


V⢕
	
! 
e
!
]

#
x
Q
�


J
(0
�1
d26a��
�

,����.
�/
[�
�

=

1

^�
�

>a
~
 1
\#
�(
�
y
m2

Zf
�
!
(
 
�
!��5H

	0]
?
CEVl
L	"�����#
\$
^



A

,Ngh
4
^	k|)


01
'
�!
T

1$
_
[
.
1,#
n
G
?
79:i*1

[
/
.\

5,
1

Q�
�
/
m
�

I0
\

41S

7

S]

_��%
&

�
$
�
$7
b

;�
�
$
⢖
(
2
i
1


3)
1

⢗
1



1


H�
�
"

1

x(+
0
*,
	
c�
�
+
<)
,

k*
\
0
.⢘


-(
2
S,

��
�
&
g
�

?(1

S
#
Y,
	@ph
�

>�
�
*
P[
�
0
+
)
0
�⢙
(



1⢚

(

�⢛
(


��
�
*
(


@+
�
/
⢜1
	
t(2
�+
�+
0
�a
U

�
�

@1

c7
%
�(

i

>"
�
r
W!
|
	#
`
,

@E
Z	
m
/
e)


b!
{#
|
a
E
'
�,

g*1

6

,
\


^1a

6T

�
�
&
�
�
 
=S
a
+
u�
�
(
3�
�

B[
�
/
~
�
%
+⢝	
0
/
j16
(
y7

R
1
L%
z(
1

i��
+
=�
*
c)
1

[*
S

�
�
.
�
�
"
⢞�
�

G
7

w(
1


0)1

]

f+
�
-
B,
1

c�
�

C⢟
1

.�
�

B�
�
$
#�
�
&�
�
&
)
1
QR��
�
,
⢠*
/
D<

\0
C-
6�
�
+

7
&
|g
�

?(1

M*
0
o)1"
�$
|%
]
q	
5
16
#
�7
A&
q*
a
*
x+
a
/
%0
�
"

1T"
K
g

87
'
qT�
&
QU

g

NU
�
)
mV
�
'
7h
KM=

Lm

;
�%
0'
K⢡

$
{
0

Q
�
 
](
�2
�
2&
�S
a

(

@
K,

A)1

=
!
U+a
+
[
2
m
�

?⢢


l
tw|

(2
�
�
�+
�,
V

�a
U

��
'
�
,
E1

Y7

v(

7%
�/{	
A




k
�
(
�,

�
>
y
?)


1#
T(
�
,
o

0,

R*
6

+
\
1
1
T
"
L��
#
�
$
Sa
+
rb

8T

�
�
+
~
�
$
)⢣

(.
�/
�

1

Va
U 

�
�
'
(


�
!
$
a


H,
?
k
	
`)1

$
[
x



	
8
b,
8
_	
d�
�
.
m
�

@T
a
	
�
�
+
K�
�

@[
�
/

�
'
A⢤�
�
&
9b
�
$
EU
g

O
a
-
~(
1

h
n

@)
1
*
�
�
(
\⢥T
b

8)
1

E⢦	
,

x

1

MS
T
"
1
7

J7
m

N)
1
O

+
�
Nm
�

M�
�
#

�
,
<⢧
1
7

v�
�
&
)�
�
+
HT
b

:
1

@�
�
(
(
0
0
G)1

,

j�
�
/

�'
F(
P⢨



/

3(

"1
�
�2
^-
�/
W1S

47

6a
�
"
#�
�
&
S
a
,
o�
�
-
DT
a

(

k

!
W"
�%
�


)1


"
U+
�
,
�
�
,
@�
�
,
`⢪

(
1
���
+	
�
%

T
�

=f
�
!
(

P
i

G
J
a#
X
_+
0
&,
:
6
i

)1



,
`
;�
�
#
�
�
$
!�
�
,
a
�
(
A⢫(


z,

�(
1

k)
1

_�
�

D�
�
.
�
�
-
⢬1

'(
+
�,

z\
-
H(
!
�

)1

.
#
W,
1

S
�
'
B⢭
)
*
�)
1

⢮	1S

U

57

8�
�
+
3�
�
$
'�
�
&

1
6#
x
S
q(
m
l,

h+
0
2
.�
�
%
~
�

9⢯�
�

G1#
S
36

th
�
!
@�
�
(
,)
1 
t
0+1
,
��
+

�
�
&
!�
�

C⢰(1
c2
R,YZ,
)
�S
a
"
(
7

5�
�
.
(a
-



,

[)
1

F%Y\]^[
�
+
\
b
!
4⢱


(
�1T

7

p

U�
�
#
W
]

]7
h

V(


b!
V
	

,
p
O
@>\)


91
%
Z
,

=*
6


+
\,
N.
>�
�
.
⢲
+
0
.
�⢳
(
/
Z1
T

9�
�
$
T
7

Q(
,

k)


l⢴
0
+
�1
T

6T
~
#
0)
\

0⢵	�
�
'
S
T

��
%
9�
%

1
"tv7
h

Ug
h

Ph
�

?(
*
(
��
�

C⢶
0
-
PT
~
'
\)
1
+
�⢷�
�
+
�
�
(
E�
�
!
A1

u6

3�
�#
$
(
.(
1
&
�<
m

Mm
s

G⢸0
-
�(
,
�

1

Ia�
(
U~
" 
6
&
�(


j,
	
?�
�
,
_)1
F

2
2


>�
,
^,

\+
a,
i/
1⢹`
�
-
%1
7

q�
�
,
1
$
y7

W*
�
,
B+
�
+
e\
]

`⢺
1
'
��
�
$

1

3(


n⢻�
�
EH7
&
T(
*
�)
)
�
'
�1
7

X�
�
$
@V
�
,
((
a
/
p)
1

Y+S
,
z�
*
⢼1
b

=S
U
*
{
1

nV
�
,
(
1

f�
�
(
2)
1

⢽
)
/
�a
�
0
1


46
$
rh
m

L�
�
+
(
0
.
$)
1
Ui�

#
!n
�

A0
[
0
�
�%
&(
?T7

Q~
(
o6
7

R�
�

A�
�
%
⢾	
,
%
e��
&
$�
&
,�
�
(
9T
~
'
]g
m

=)
1

�
�
%
�
�
-

�
�
)
⢿
)
�)0
!2
*
�,

n�
�
=
;�
�!
?
<
@a�
+
%�
,
f�
-
Cb
g

J��
+
(�
&


1

2�
�
+
)
1VhjX[
d
/+
1
.
k�
�
*
1U
*
pg

R�
�%
%&
4s
�

B�
�
'
;T
7

T\a
-
o�
,
9
�
'
@⣀

'r
	
:B

 


.~
'
oB
n

Eb
�
$
1�
�
(
��
(
�(
)
37
&V]m

[(1

U6
#
�<

��
)
1�
)/0)1
K"
{
:T
&ab*
S
,
{n
�

A1
T


Sb
!
"T!
%"
.��
)
a�
)
Z�
)
]�
)
^T�

	�
'
Zg
'
XU
�
)
g7
c

<��'
)?@ADFJKLNOY�
)=CEIQVWX�
)69>�)578:;<,
:�)
G+
M�
+
4~�
)
e�
)
b�
)
f
�
%
/⣁
)


��
�
*
Z⣂

(
2
U1T
 
 7

;
7
S
J(



n)
1
E%
j

�
'
E⣃

"
�(
,
	
9⣄

&
S

7
$
��
�
(

7&
Y
u(
6
%
���
)
!�
(
	)
S
&
c�
�
+
2
c

?S
T

�
�
)
Ug
&
P~
&
O�
�
)
4<
�

I\
b

;~�
)cd�"
(VW�
�

A
�
)
`⣅

(


^1
a
 
�
�
,
&S
T

(
1
y
~)
1


Gn
�

B⣆�
)
R)
&
�1
7

Fa
�

<S
T"
,*
u�
�
)
UU
g
&
N(1
T
v�
)
S)
1

Z⣇0
\
-
u
)
/
�1
]

da
�
"
T
~
"
Gg
�
$
C(

h
}�
�
*
S)
1

f
[a
,
w�
0
<
m

G�
�
'
⣈(


�)

~S
a
.
p)
1


2[
�
,
⣉
+
T
.
l⣊
(

�S
a
"
-�
�
&

7
Y
[(+
0
(,
	~)1
 
u,



�
&
C⣌

 (

�,

va
~
!
�
�
'
(1
$
�,
9
g
]�
�
(

)
1

8⣍
�
�
)
⣎
�
�
"
C

1

51
7

:S
b

QT
a


1
D%
|6
<

8�
�
&
 (
g
k$
�,

�)1 
P
4+
'(
w
$
]\
-
v⣏
)
+
�a
�
"
�
�
"
B[
�
+
⣐
1
+
�b
�
$
0(1

/,


l�
�
))*+⣑1
T

�
�
$
<7
h

=(


.
$
Z)
1

g,
1

⣒
�
�
(
*⣓a
~

(0
0
�
#
�⣔	b
�
"
8T
a
!
U
~
(
a(
,

~
9h
�

G��
'
(�
(
)
1

K*
S
)
|+
[
-
�⣕
�
� 
C!
>1S

7
NPQT
&
[6
%
V7

Og
m

:(+
1
+,

�
e)
1

�
�
)
	,
1

�<
m

V�
�
/
⣖S
T
"
)�
�
(
[�
�
)
,*
S


\
b
$
I⣗a
~
#
G
1
H#
s$
o	
3(
,

|)1

fS
&
`,


R,
1

gm
�

F1
b

=�
�
'
IT
7

;6
7

u7
h

>�
�
+
0\
T
#
I�
�

H⣘a
~


s
�

E�
�
(
(h
�

?)
1
N
7⣙�
�
,
,
1

�⣚S
T
*
t)
1

/⣛

)
/
N⣜T
a
 
U
~
#
 1
5
r7

t(
o
p+
1

,


���
#
�
+
2)1

6

1
$
⣝

(
.
[a
U

�
�

?
1(
}

4(0
,
�

l,

h)1

^

m,

T*
\
-
�,
1

J1g

97

v��
'
+�
%
$��
&
A�
'
�
%
8�

?6
7

r�
�
+
/⣞�
�
&
?
1

4�
�$

(
1�

#
&
�
(
M⣟�
�

D
)0
 (
�/
a
~ 
H,
k�
�

D
1 
O
<*
1

+
T
.
m�
�
*

�
�&
3'
2S
U

��
'
8�
(
K�
%
<U
g

K6
7

t�
�
'
6�
�
*
\
U+
o,
n⣠a
-
NS

h<


$a
�
!
g
n

=�
�
+
(*
&
�~
(
m�
�
)
(+�
)
j�
.

1
T

	�
�
%
T�
-

(
cV
�
-
7
h

P�
�
)HP<
m

N\b"
2
7~

9
�$
7'
L⣡
(

�
�
)
(1



A[�
%
�
,
+
0
,

�
$
:⣢
1


Z
h
$$
�
�S
U
!
3U
�
(
_h
n

A(1
%
�*
 
R��
(
�
)
&)
1
m
�
�
(
*
6


�
'
H⣣1
6

a
�
#
�
�
%
@1

16
#Rv(
,

j�
�
'
)
1
^+
~⣤)
(
T\
/
{�
�
(
��
(
�
)
-)
6
%
k
�

~�
�
#
1
�

S
T
.
q�
�
)BM[_TU
'
a�


'
VU
�
!
\
�

:=
s

D�
�
(~

&
J⣥
)
.
AS
U
 
(*
&
�

)
1

⣦
)
1
M��%
)

�
)
 ��(
)"#�
)
')
1
%
l*S

	T
'
d1a
!
$<

7�
�
-
SU
!
#�

�
�
#
��
(�
)
%T
~(
e/
q7h

Em
D
L�
�
(
0=
s

C~
�
%
1⣧0
a
-
p
)
/
91
7

t�
�
%
"T

'
U
<

Hg�
#
9�

P)
1

"[
a
-
w<
h

B=
�

H
�
(
O⣨(1

.
#
�<
m

C�
�
)
⣩
)
1

:⣪
,

^�
�

D1
7

W�
�
%
BT
a

1


76
$
v��
'

�
"
(

k,

)1
5"
R\
.
[
�
!
�
�
"

�
'
?⣫1
7

O��
+
J�
 
A�
�'
7(
CT
7

9
1#
q
0
r�
�%
*
d�
�
.
⣬


!�
�
)
*
6

⣭0
U
+
v�
�
'
V
�
+
)
1

&⣮
)
(
�a
~
$
,��
%
�
'
g�
#
8m

<)1

.S

2

h�
�
(�
�"
#
�
�
%
	S
�
)
lU
g
&
M�
�
(
-�
�
)
\
U
"
*
�
(
L⣯�
�

H
)
)
�

1


L��
+
�
%
�
�

E1
!
P6%
p&
_
Pg
m

Q)
1

*
1

1
T
$
K��
'
>�
(
DT
~
,
l6b

S<
BC7
g

K��&
#'
.�'
0(
5<
�

I\a
U)
q*
r
=
m

M�
�

F⣰	)
)
�*1
B2
A�
)
T1
T
'
eS
U
 
5V
�
&
(1
%
�,

j
1�
�
)
.)
6
%
n+�
$
�
)
k�
#
	[
�
%
⣱
(
*
�1
T

81
%
X7

V(
,

b)
1
H"
s
.+
*
/
F\
�

;⣲
1

wa
~
#
()1

06
'
�=
�

B�
$
6�
%34⣳
1T
'
s7

Ka
~
"
4�
�
%
�
�'
5(
7U
~
(
`6
7

q
6$
x%Uvy)
1

*<
m

L
�
(
B⣴1a

7

Eb
�

>S
U
"
'�
�
(
T
~
(
d(1
'
�*
&
��
�
(*
S

+
�
-
<
m

M\
�
(


�
'
J⣵1
S

a
~
*
n��
'
<�
&
�
%
:�
�
+
ET&
^
06
&\gg�
 
Dm

J)1

Q
%6
%
m<h

?�

<\
~
"
%�
�
*
l
�
%
2⣶
S

'
Y�
�
(
��
)
�
(
/Tg

8~
'
[U
~
"
$6
b

Ugn

J
'
O)
1

0<
m
K
K~�
'
N�
(
]⣷�
�
 
@a
~#
'%
I(
bb~
%
G
&
K1

/6
	&
Z7

Y(
1
�
u)1h�


-S
)
{��
!
�
%
,�
�
%
1
T


92
7

W��
')1�
%(*�
$
S
U'
_
+
t��
&:;�
%
�
'
%�
�
)

T
~
%
JU

'
P6
T

�
�
%
�
�'
&(
+<
h
@A\
a

�
�

A
�
$
9⣸
)
/
Bb
�

=T
g

:(
1
)
�⣹

1


J�
�
+
(
0
2

+
�
 
m
�

@⣺�
�
 
>�
�
 
?�
�%
7(
@6
7

8
6
$sug
m

O�
�
+
,
1

_�

$
*�
�
+

�
'
G⣻
a�
/
~
$
H�
�
'
1
"
u6

sg
h

>�
�
'
$)1

3

k��
&
&�
&-/2�
�&
<(
=U
g

96
7

r��
'
-�
"

�
�
,
)�
�

B⣼
�
�
%
;1
g

Pb
�

>�
�
#
�
�
)

7

sV
�
.
))
1

)
�[
�
#

\
�
'
⣽�
�

=(
&
�)0
n1
E�
� 
B
@�
�
&
�
�

C1

I
6#
Q%
w&
i(
1

3)
1

"*1

T
!
2+
1
1
3
/�
�

Cm
�

@�
�
)
�
�
)
ST

U
/
u�
�
(
:T
b

<6
7

L��
&
%�
'
4�
�
)
<
m

N�
�

A
�
$
;⣾�
�

@
)'
�/


1


K��
'
�
'
#1

/6$
q
�
�
&
(U
(
n*
!
�)
1

e
*
6



7

D+
1

$��
"
�
&
0
1

&1T

7

7<

MS
U!
!
��
&
8�
(
>T
b

:6b
P
97

s<

G��
'
'�
'
3�
�#
$
\
T
*
s�
�
+
�
�

BF 64 /home/Videos/demo/index.ocv
OCV5P�(
---<<<KKKZZZiiixxx������������������������F 19219 /home/Videos/demo/part0001.ocv
	 bc










!

#

%

'

)

+

-

/

1

3

5

7

9

;

=

?

A

C

E

G

I

K

M

O






 
"
$
&
(
*
,
.
0
2
4
6
8
:
<
>
@
B
D
F
H
J
L
N
P

?
�@ɉ��������������
w@@WwWwWwWwWwWwWwWw�


�

�

�

�

�

�

�

�

�!

�#

�%

�'

�)

�+

�-

�/

�1

�3

�5

�7

�9

�;

�=

�?

�A

�C

�E

�G

�I

�K

�M

�O

�
�
�
�;���������������
�>����������������

�
>�!3!3!3!3!3!3!3 9���������������
�




	












!
#
%
'
)
+
-
/
1
3
5
7
9
;
=
?
A
C
E
G
I
K
M
O

	
	D
0
@����������������
tt�

@

@
�
�
p���
���
�������
@	 0
�

@
@
�

@
�

@�
�
�		
@�M��������������������
�
	












!
#
%
'
)
+
-
/
1
3
5
7
9
;
=
?
A
C
E
G
I
K
M
O

@	HDdDdDdDdDdDdDdDdD
�	H������������������
�I�������������������
P��������������������
�
�
�
�
�
�
� 
�$
�(
�,
�0
�4
�8
�<
�@
�D
�H
�L
�P
��

P��������������������
�	H������������������
�
G������������������
�
�

�
�
�
�
�
�
@�
	��
�
�

@
�
@


��
�
�
�
�

@

@�
�
@�
�;
"" " " " '" /" 7" ?" G" O 
 $(,048<@DHLP

P
c`�
P��������������������
Pwwwwwwwwwwwwwwwwwwww
P��������������������
P��������������������
�
�

�
�
�
�
�
�"
�&
�*
�.
�2
�6
�:
�>
�B
�F
�J
�N
�
<
Pvvvvvvvvvvvvvvvvvvvv
�
�
�
�&
�.
�6
�>
�F
�N
�M@b�

�
��
�
c	�
;�
�

@
�
��
@�
�
�

�
�
���
�
��
���

@��
@�
@
�
��
�
m
�;
@c�
��

�b�
�
���	

�
p
@
�
���H
�t��
@
@
�



@
b
@
��
�
��

@
�
��

�
�
@
@
��
��
@
��P
�
��
�
��
�
�
�
���			
@


@�
	
@;c
��
�
@
�

@b
@
�
@�

@
�
@
�
@
�
@
�
�
�
�
h
�b
@c
@
�

@



�
���
���
�;�
�
���

�

���
�d@�F@
�

@

�
�	

@�



@
b

@
��
�


@
�
@�

�
�
@�

@
�

@
�
��
�
�


@�
�

�
�
�
�
�
�
@�	
�	�

�
�
�
�
�
�

��

��
@��
�
@
�
@
�
@
�
�
�
��
@
�
@;c
�

@m
�
�	
@��
	
@�	
@
�
�
�
@
b
��
�
�
@
;
��
�
c
�;�
�
�b�	

���
`


c�
��
�
�
@��
p
�
@

@
@
��
�

@
@
�	
@
��
@	
�
�


@
�
@�
@
�
�
��
@
��
�

��
�
�
�
�
��
�
�	@


@�	
@�

@��
�	
��
@c

@�
�
�
@�
��
���
�

@
�
�
@��

@
�

@
�

@
c
�;��

��
�b�
�;�
�
���

�
P��

�ә�

?�
?ё��
�

@

@�	
	P



�
@
@
@

�
�
@
�
@���
�bc


@	
@
�

P�
@�
�
�
@
�	
@
�
@�
�
�
�

@��

�	
@
�
�	
�	


�

��
�b
@
�

@
�	
@�
�
�

@
�

@
�
@�
�
m
�
�

�
�
���	
@��	
@�

@��
@�
�
h

�c�
�;

�
m
@c�
�
���
�\
@
�

�

��]
�
@
��
�
�	@


�
@P
�
�
@
�
��
�	
�
@
�
@
@�
@
�
�
�
��
�


��
@	
�
�
�
@
�
@
�
@
�
�
@�
@


@b�

�	�
(	



�

�
�

�
�
@�	
@;c
�
��
�

@
�
@�
�
�

@
�
@
�
@
�

@�
@��

@
�
@��
@
b
��
���
���
�
h
�c
@
�
@;�
�
���

�0
4�|`

vDF@`H	
�

@

@
�

@�



@
b

@
��

�
�


@�
�
�

@
�

@�
@
�

�cP
;	
�

�
�
@
l
@
�
@�
@
�
@��
@
�
�
��
�
@�
��
@
� ��	

�	
@�	
@�
��
@
�
@�
���

@
m
�
�
���

@
b
��
�
�
�
�
@h

@c�
�
�b�

�
��
�




�
��	
�
�	�	
��

@
@
�
p�
�

@
@0��
�
@
��
�
�
�


�
�
@��
@p��
��
�


��
�
�
��
�
�
�
��
@�

�
�

��
@;c
�P
�
@�

��

�
�
@�
�
�

@�
@�
�
�
�
�
�c
@
�
@
�
@b
@
l
@
�
@
h
@
���
p���


�
@0
�

@

@�	
	P


�
��
�
@
@
�
@
�
@�
@
�
@bc

�
@
;
@
@
�P�

�
�

��

��
��
@
b

�
��

@
�

�
�
�
@�	
@�

@��
@�
@


�
@
�P�
���
@�
��
�
�
��
@�
@�
�
h
���
��
�c�
��
�m
�
�
@��
�c�
�
���
��
@
�
�FDH
�����
@
@
�



@
b
@
��
�
�
c�

�
@�	
�
�	��

���
@�
�
@�
�p
@
�
�
�
@
�
@
�
@�
�

@��
��
@
�

@
�
@
�
@
�
��

��
@
�

@�
�


��
@�
��
@��
@��
���
�c
@
�
@
;
@
�
@b
@
h
@�
�c
@
�
@��

�ٰ�
@@
�

@
�
�

@�



@
b

@
��
�


@
�
@c
�
�
�P�
�
�
�
�
�
�

�


�
�
��


�P

��
�
@
�
@
@
�
�	
	P


�
�


@
�
�
@

@�

�
�
@�

�
�
��
@


��

@
�
��
��

�
�

@�
@��	
@�	
@
� 
�
�!
@�!

�
�!
@�

@
�

@
� 
��
�
�

@�
�b
@
�
@m�
�c
@
�
@
�
@
;
@
�b�

���
`#


c�
�
�
@
@�
�
�
�
� 
�!
�
.n��!
�������

�!
��"

�"
��

��

��
�
�

�

�

@�	��

�
�	
�
� 

��
�
�
@��
�

�
�
�

��

@
�

0
p
@
�
�
@�
�
�"
@�
�
@
�
���"
@
b
��"
���
�
c 
�;
��
��
�
���

�
P�
����"
"��
�

@!

@�	
	P

�

�
@
�
�
�


�
��
�

�
�

�
�
���

�
@
�

@�
�
@

@�
@�

@


@
@

@
�
�bc

@
@
�$

P�$
@
�	
@�"

@��

@�$
�b"
@
�

@
�
@�#
�
�

@
� 

@
�#
@�"
�
m
�
�
�
�!
���
@�

@
�

�
�
@��#
@h�
�c�
�;
�m
��
�
���
�\#
@"
�$
$
 $
�] 
�
�"
��
�
�

�
�

�b�
��
(


�

�
�#

�
�
@�	@


�
��
@
�




@
�
@
�
@�

@


�

�
�

@
@
�
@

@�
@
�

@
�
@
�%
@
�

@�
@;c
�$
�P
�
@
�
@
�
@
� 
@�
�
h#
�c!
@
�
@

��� 	
@��"

@
�$
@��%
@
b
��%
���%
�
���"

�$�,�|`%
@%`qH	
�!

@
@
�

@�

%

@
b

@
��
�
�


@�&
�
�#

@
�$

@�'
@
�'

�c
�
�
� P�'
@
�&
�
b
��%
�
�

��
@
@

�
��
@�
�
�
��
@
�

@�

�

�

�


���
@

�
��
��

���	

� 	
@�!	
@��

@
m
�
�$
���
@
c
�l
��"
�;#
�h�
�
�b�

���
�)



�(
��#	
�
�	�"	
��%

@
@
�#
p#�'
�
�'
@&0��
�
@
�%
�
�'
@
�
�

@
�

@
�(

@�(
@�$
�
�
�
�
�

�
@�

@

@
�
@
��

�
�
�
��
��
�
�
@T
�
�
@
�
��

@
�
@�

�

@�
��

�
�&

��(
@;c
�P
�&
@
�
@
�"
@b
@
l
@
�(
@
h'
@��

@
�

�
�
�c�#
�
���$
p���(
(
�(
@%�
�

@'

@� 	
#	P

�!	
@�(

@�
@
�

�
�
�
��
@
�
@�
�

@



@�

@
�
 ��
�
�
@
@�

�
�

@bc
�
@
;
@&
@
�#P�*

�
�&

��

��)
�
�(
@�
@
@
�

@
�
�b�

�
��

@
�
��)
@�*
@�*
�
b
���)
�
m
�c 
@
�
@
�(
@
�%
@��'
�
�b�

���
,

�

cp 
��
�
�&	
@�!	@


�
��
 


@
���
���!
��)
@*
�
�DFH*
�$�t&�� 
@(
@



��
�
�
��

�
�
�
��(

@
�*
@�)

�
�

��
@�
@
� 

@
�
@
�+
@
�+
�
h)
�b*
@
�+
@c"
@
�
@�

�
�
�
�
�
�

@��+
@��
���
�c%
@
;!
@
�&
@
h'
@
���(

� ���)�+
@+@*(
�)

@"
�
�!

@�

+

@
b

@
��
�


@
�
@c&P
;
��@)
@
m#
@�!
�
�"

@�
@
�
�
��
�

��
@
�


@�
@
�

�
�


@�


���#	
&	P 


�

@
�

@�
@
�
��
�
�"	
@�$	
@
�,
�
�-
@�-

�
�-
@�*

@
�'

@
�,
��*
�
�

�
�

��
�b� 
��+
�
c$
��(
�
�b�!

���
`/

 
c�$
�*
�
�"
@(
@�!
�+
�
�)
�,
@-
� 
.�n�-
�"���$���$

�-
��#

��+

��!
�
�
@
�

@
�

@

��
@
�


�
�
�

�
�
@
�
@
�

@�$	��"

��

�
p�
�


��

��
@��)	
@�,

@��.
@
b 
��.
��� 
@
�.
�
�.
@��.

�� 
@c,
@
;#
@
�%
@
�)
@�#
���&

�*
P*��"
����.
.�*�
�$

@-

@�&	
)	P"

�#

�!
@ 
�
�!
�!


�"
��
�
�
�

�
�
�
�
�	
�
��
�
@
�
@�P
�
�
@


�
�
��
�
�

@


�

�
�

@
��
�

�
�
@�
�
�
@
�
�
�
�
�

�
�
@bc 
 "
@!
@
�0

)P�0
@
�'	
@�.

@��
��

���%

@
�,

@
�/
@�.
�
m$
�
�-
�b!
@
� 

@
�.
@�0
���/
@h�"
���/
�
�%
�c�#
�;%
�m&
��+
�
���'
�\/
@.
�0
0
�0
%
�],
�#
@.
��

@

@

�
�'	@$

�,	
@�#
@
b"
�!�
(!"
$

�%

�
�/

��0
@
�.

@b1
@
�#
@�&

@
�$
@
�1
@
�#

@�#
@
�
@��
�

�
�
�

��

@
�	

p
@
�
�
@c�#
%
�0
&
;'
��(
��+
�
�$
@�&
@h/
@
c-
��,
��
�
@
�
���1
@��1
�
���.

�00%,�|`1
@1`&wq(H	
�-

@%
@
�'

@�%

1

@$
#b#

@#
�#�"
�
�$

$
@�2
�
�/

@
�0

@�3
@
�3

�c!
�%
�(
�,P�

�
�
@
@�

@�
@��

�
@
�

@�
�
@�	
�


@
@

@
�
���)	&

�,	
@�-	
@

@�
@�

@
�

�
�

@�
@��
���(

@
m'
�
�0
���%
@
b1
��&
�
�2
�
�3
@h%
@cl)
��*
��.
�;/
�
�b�'

�%�$�$
�$5
%
&

�4
��/	
�
�*	�.	
��1

@'
@
�/
p/�3
�&
�3
@20*��
�3
@'
��
�
�

�
�

���
�
@

�

��
�
�
�

@
�
@

�
�
@

@�

�
��
��

�
�
�;c'
�)P
�2
@�)

��*

�
�&
@�(

�
�2

��4
@��4

��&
@
�1
@�)
@�0
@
�4
�bl&
��4
��(
�h3
�c�+
��.
��/
�
���0
p)���4
4
44
�+
@10
�*

@3

@�,	
/	P(


�
@
@

�
��
@�
�
�
��
@
�

@�

�
�
��
@

�
��

�bc&
&%�'
@
;+
@2
@
�/P�6

�
�2

��+

��5
��5
@
b'

�'
��&

@
�)

�&
�
�'
@�-	
@�4

@�

�

�

�


���(
@�'
@
�5
�
�6
�
�6
@h(
@c�)
��4
�m,
�
�*
@��3
�c�1
�
���-
��5
@6
�)
�FDH6
�0��2��,
@4
@
�)

+

@('
b(
@'
�'�(
�*
�
c(�,

�)
@�2	
�
�-	��*

�


@
@
�
@

@
�
�

�

��
�
@
�

@
@�

�
��
@
��
@�

�
�

@
�
@�
��
��
�
�
@
�4

��6
�
�5

@�7
@��
��

���,

@
�*
@
�)
@
�7
@
�7
�
h5
�b6
@
�7
@c.
@
�+
@
;-
@
�1
@�*
���)
�c�2
�h3
�
���4

�2ٰ5�7
@7@64
�5

@.
�
�-

@�+

7

@*
)b)

@)
�)�
�*

*
@
�+
@c+
�*
�.
�2P�9

�
�9
@�6

@
�3

@
�8
��6
�
�.

@�
@
�
@�
�

@



@�

@
�
 ��
�
�
@
@�

�
�

@��/	
2	P,

�.	
@�0	
@
�8
�
�9
@
b,
��7
�
�+
@
c0
�m/
�
�-
@�
@
@
�

@
�
�c�4
�;5
�
�b�-

�+�*�*
`*;
+
,
c+�0
�
�.
@4
@�-
�7
�
�5
�8
�9
�,
.n��9
�.���0���0

�9
��:

�:
��/

��7

��-
�



��
�
�
��

�
�
�
��0	��.

��
@
�
�
�

�
 
�

@
�
@��

@�
@�
@��
�
�,
��8

�
�5	
���:
@
b,
��:
���:
@
�/
�c5
@
�8
@�,
@;c/
@
�1
@
���2

�6
P6�.
����:
:�6�
�0

@9

@�2	
5	P.

�/

�-
@,
�
�-
�-


�.
��
@
�
�
��
�

��
�
�


@�
@



�

@
�
��

��

��
�bc,
,.
@-
@
�<

5P�<
@
�3	
@�:

@��

��

�
�
��	
��
@
�<
@
b:
��,

��-
�
�;
@�1

��8

��;
�
�:
@m0
@�1
@�9
@��;
@h�.
�c�/
�;1
�m2
��7
�
���3
�\;
@:
�<
<
 <
1�]8
�0
�:
�
�2

@
�0
@�1

�
b.
�-�+
(-.
0

�;

�
�/
@�3	@0


�

@

��
@
�


�
�
�

�
�
@
�
@
�

@�

�
p�

�
�
�
��/
@
�=
@
�/

@�/
@;c/
�<
�2P
�1
@
�4
@
�7
@
�8
@�2
�
h;
�c9
@
�

��
�
�
�
��:

@
�<
@��8	
@��=
@
b/
��=
���=
���:

�<�1,�|`=
@=`2q4H	
�9

@1
@
�3

@�1

=

@0
/b/

@/
�/�.
�
�0

0
@�>
�
�;

@
�<

@�?
@
�?

�c-
�1
�4
�8P�
@
�
��


�
@�
�
@�
�
�

�
@�
�
�
��
@
@
�
�
@



��
@
�
�

@
�
�


�

��
�
�
��
�
�
��
�
�
�
�

�
�
���5	2

�8	
@�9	
@


@�
���

���4

@
m3
�
�<
���1
@
b=
��2
�
�>
�
�?
@h1
@cl5
��6
��:
�;;
�
�b�3

�1�0�0
�0A
1
2

�@
��;	
�
�6	�:	
��

�

�

@
�2
�2
@=
@�;
�;?
2
.���?
�>�6?p�=

�3
��?
�3
@�5

��6

��@

�
�@
�
�<
@�5
@��



p
@
�
�
@�
�
�



�

@
�

�;c3
�5P
�>
@
�7
@
�:
@b4
@
l2
@
�@
@
h?
@�
�
@
�
���4

@�>

@
�@
�c�;
�
���<
p5���@
@
�@7
@=�
�6

@?

@�8	
;	P4


�
�
@�

�
@
�

@
�
�
�

�

�
�


��
@bc2
21�3
@
;7
@>
@
�;P�B

�
�>

��7

��A
�
�@
@��5

@2
�3
�
�9	
�
�@

�b�3

�3
��2

@
�4
��
�

�
�

�
�
���

@�
@�
@
�

@�
�

���A
@�3
��B
@�B
�
b4
���A
�
m6
�c8
@
�5
@
�@
@
�=
@��?
�
�b�5

�4�3�3
D

�34
6
c4p8
��5
�
�>	
@�9	@6


�
��
�
@
�8
@@
@�9
��A
@B
�5
�DFHB
�<�t>�
�8

@
�6
@
�5
@�
�

@
�T

�

@�
@
�6
@�@

��B
�
�A

@�7

@
�
�

@

@�

�
��

�
�
�

�

�
�
@

���C
@��C
@
�C
�
hA
�bB
@
�C
@c:
@
�7
@
;9
@
�=
@
�>
@
h?
@��5
�
���@

�8���A�C
@C@B@
�A

@:
�
�9

@�7

C

@6
5b5

@5
�5�
�6

6
@
�7
@c>P
;7
�6�@A
@
m;
@�9
�
�:

@�

@
�
�
��;	
�>	�8

�
�:	
�
�<	
��D
@�E
�
�E

@�E
�
�B

��?

��D
@
�B
@�

�

�

�


��
@
@
�
�
�
@�



��

���
@

�
��
��

���7
@
bC
��8
�c�<
��@
�
�b�9

�7�6�6
`6G
7
8
c7�<
�B
�
�:
@@
@�9
�C
�
�A
�D
@E
�8
.�n�E
�:���<���<

�E
��;

��C

��9
�
�

@


��
@
���
�

�
�
��<	��:

�


@
�

�

�
@�
�
@



�
@
�

@
@�
@
�
@
�
@�
@�
@
�

��
�
�
@
�8
��F
@�F
���A	
@�D

@��F
@
b8
��F
���F

��8
@cD
@
;;
@
�=
@
�A
@�;
�
���>

�B
PB��:
����F
F�B�
�<

@E

@�>	
A	P:

�;

�9
@8
�
�9
�9


�:
��
@
�
@�
�

@



@��
�
�
@
@�

�
�

@bc8
8:
@9
@
�H

AP�H
@
�?	
@�F

@�
@
@
�

@
�
���

��
���=

@
�D

@
�G
@�F
�
m<
�
�E
�b9
@
�8

@
�F
@�H
���G
@h�:
���G
�
�=
�c�;
�;=
�m>
��C
�
���?
�\G
@F
�H
H
�H
=
�]D
�;
@F
�


@
�
@�
@
�

@
@�
@
�?	@<


�
��
 



���

��
�b�:
�9�7
(9:
<

�=

�
�G

�
�;
@�D	
@c�;
=
�H
>
;?
��@
��C
�
�

@�
@�
@��
�
�;
@�;

@
�>

@
�<
@
�I
@
�<
�
�>
�
hG
�cE
@
�D
@��F

@
�H
@��I
@
b;
��I
���I
�
���F

�H0=,�|`I
@I`>wq@H	
�E

@=
@
�?

@�=

I

@<
;b;

@;
�;�:
�
�<

<
@�J
�
�G

@
�H

@�K
@
�K

�c9
�=
�@
�DP�K
@
�J
�
b>
��I
�
�
��
@

�	

@

@
�
`�
�

�
�
�
�

@�

@

@�

�
�
�
�

��

��E	
�
�A	�>

�
�D	
���
@
�=
@
cB
�lA
��F
�;G
���

��
���@

@
m?
�
�H
�h�=
�
�b�?

�=�<�<
�<M
=
>

�L
��G	
�
�B	�F	
�

�

@�I

@?
@
�G
pG�K
�>
�K
@J0B��
�K
@?
�
�A

@
�B

@�>
�
�
@
�

@
�


�
�
@�
�
@



@

@�

@�
��
�;c?
�AP
�J
@�L

��>
@
�@

@�J

@
�L
�
�

��
���

@
���L
�
�H
@�A
@�I
@
cG
��C
��F
�
b@
�l>
��L
�hK
�F 64 /home/Videos/demo-hd/index.ocv
OCV5�2�(
---<<<KKKZZZiiixxx������������������������F 45179 /home/Videos/demo-hd/part0001.ocv
���




	












!
#
%
'
)
+
-
/
1
3
5
7
9
;
=
?
A
C
E
G
I
K
M
O
Q
S
U
W
Y
[
]
_
a
c
e
g
i
k
m
o
q
s
u
w
y
{
}

�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�









"
&
*
.
2
6
:
>
B
F
J
N
R
V
Z
^
b
f
j
n
r
v
z
~
�
�
�
�
�
�
�
�











 
"
	���
����rbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb`
	nn@ ����������������������������������
Ff"Y�]�]�]�]�]�]�]�]�]�]�]�]�]�]�]�
��#~��������������������������������
��$}��������������������������������
�
�%|�������������������������������

�+
�-
�/
�1
�3
�5
�7
�9
�;
�=
�?
�A
�C
�E
�G
�I
�K
�M
�O
�Q
�S
�U
�W
�Y
�[
�]
�_
�a
�c
�e
�g
�i
�k
�m
�o
�q
�s
�u
�w
�y
�{
�}
�
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
�,
�0
�4
�8
�<
�@
�D
�H
�L
�P
�T
�X
�\
�`
�d
�h
�l
�p
�t
�x
�|
��
��
��
��
��
��
��
��
��
��
�
�
�
�
�
�
�!
�#
�%
�'
�)
�+
�-
�/
�1
�3
�5
�7
�9
�;
�=
�?
�A
�C
�E
�G
�I
�K
�M
�O
�Q
�S
�U
�W
�Y
�[
�]
�_
�a
�c
�e
�g
�i
�k
�m
�o
�q
�s
�u
�w
�y
�{
�}
�
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
�
�

�
	�	
�	
�	�������������������������������������

��
�������������������������������������
����������������������������������������
�����������������������������������������

�����������������������������������������
����������������������������������������������������������������������������������
�����������������������������������������	�������
�

�
�

�
�
e
@�DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD@	
@
	�	
@

@

@�

�����������������������������������������
�����������������������������������������
�����������������������������������������
����������������������������������������
��`
��
�
��"
�$
�&�*
�,
�.�2
�4
�6�:
�<
�>�B
�D
�F�J
�L
�N�R
�T
�V�Z
�\
�^�b
�d
�f�j
�l
�n�r
�t
�v�z
�|
�~��
��
����
��
����
��
����
��
��� 
��������������������������������������


	

�





 
"
$
&
(
*
,
.
0
2
4
6
8
:
<
>
@
B
D
F
H
J
L
N
P
R
T
V
X
Z
\
^
`
b
d
f
h
j
l
n
p
r
t
v
x
z
|
~
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�

	






 
$
&
(
,
.
0
4
6
8
<
>
@
D
F
H
L
N
P
T
V
X
\
^
`
d
f
h
l
n
p
t
v
x
|
~
�
�
�
�
�
�
�
�
�
�
�
�
�
	
	
	

�

@
@
@
@
@
@
@!
@#
@%
@)
@+
@-
@1
@3
@5
@9
@;
@=
@A
@C
@E
@I
@K
@M
@Q
@S
@U
@Y
@[
@]
@a
@c
@e
@i
@k
@m
@q
@s
@u
@y
@{
@}
@�
@�
@�
@�
@�
@�
@�
@�
@�
@�
@�
@�
@
�
�	
�
�P
�



�
�
�	`
�
@

@	�
�
�
�
�
�	
�


@

@
@	

@

�
�
@

@�

@	
@
�		
�

@
@�	
@	
@
�
�

@�
@
�T�
�


�
�
�
�
@b
@
c
�$�*
�
�&
�+
�-
�/
�1
�3
�5
�7
�9
�;
�=
�?
�A
�C
�E
�G
�I
�K
�M
�O
�Q
�S
�U
�W
�Y
�[
�]
�_
�a
�c
�e
�g
�i
�k
�m
�o
�q
�s
�u
�w
�y
�{
�}
�
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
�
��$�(
�*
�,
�.
�0
�2
�4
�6
�8
�:
�<
�>
�@
�B
�D
�F
�H
�J
�L
�N
�P
�R
�T
�V
�X
�Z
�\
�^
�`
�b
�d
�f
�h
�j
�l
�n
�p
�r
�t
�v
�x
�z
�|
�~
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
�
��$}��������������������������������
��#~�������������������������������
��"�������������������������������
��!���gggggggggggggggggggggggggggggg
 sv\ ���gggggggggggggggggggggggggggggg`
!���!����������������������������������
"
�"
�"
�"
�	"
�"
�
"
�"
�!"
�#"
�%"
�'"
�)"
�+"
�-"
�/"
�1"
�3"
�5"
�7"
�9"
�;"
�="
�?"
�A"
�C"
�E"
�G"
�I"
�K"
�M"
�O"
�Q"
�S"
�U"
�W"
�Y"
�["
�]"
�_"
�a"
�c"
�e"
�g"
�i"
�k"
�m"
�o"
�q"
�s"
�u"
�w"
�y"
�{"
�}"
�"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
��"
�; 
! 

!!
"
@"
@"
@"
@
"
@"
@"fffD@ "
@""
@$"
@&"
@("
@*"
@,"
@."
@0"
@2"
@4"
@6"
@8"
@:"
@<"
@>"
@@"
@B"
@D"
@F"
@H"
@J"
@L"
@N"
@P"
@R"
@T"
@V"
@X"
@Z"
@\"
@^"
@`"
@b"
@d"
@f"
@h"
@j"
@l"
@n"
@p"
@r"
@t"
@v"
@x"
@z"
@|"
@~"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@�"
@
#�����������������������������������������
$�����������������������������������������
%�gwgwgwgwgwgwgwgwgwgwgwgwgwgwgwgwgwgwgwgw
&�����������������������������������������
'�����������������������������������������
(�����������������������������������������
)�����������������������������������������
*�����������������������������������������+
�+
�+
�+
�+
�+
�+
� +
�$+
�(+
�,+
�0+
�4+
�8+
�<+
�@+
�D+
�H+
�L+
�P+
�T+
�X+
�\+
�`+
�d+
�h+
�l+
�p+
�t+
�x+
�|+
��+
��+
��+
��+
��+
��+
��+
��+
��+
�,
�,
�
,
�,
�,
�,
�,
�,
�",
�&,
�*,
�.,
�2,
�6,
�:,
�>,
�B,
�F,
�J,
�N,
�R,
�V,
�Z,
�^,
�b,
�f,
�j,
�n,
�r,
�v,
�z,
�~,
��,
��,
��,
��,
��,
��,
��,
��,
�
-��-��-��-��$-��,-��4-��<-��D-��L-��T-��\-��d-��l-��t-��|-���-���-���-���-��<
--
-
	-
-
-
--
-
--
-
!-%-
'-
)---
/-
1-5-
7-
9-=-
?-
A-E-
G-
I-M-
O-
Q-U-
W-
Y-]-
_-
a-e-
g-
i-m-
o-
q-u-
w-
y-}-
-
�-�-
�-
�-�-
�-
�-�-
�-
�-�-
�-

.�����������������������������������������
/�����������������������������������������
0�
1�
2�
;
+�����������������������������������������
,������������������������������������������!
��!
�
�
@
@�
@
@
@!
@
�
�
�
@
@

@b
@
@$
@y&{f�DDDDDDDDDDDDDDDDDDDDDDDDDDDDDd%zv\�����������������������������
t'ywwwwwwwwwwwwwwwwwwwwwwwwwwwwww@�
@�
@
�
@"
@�
@�
@
�
�#
�
@
@�
3
�����
����|	���������Q������O������O������U������?������	O������
?������s��  � 
dd�
�

@#
�#
� 
�
:!�!�c	
@!
@
� 
@!
@�
@
@
�"
� 
�
�
� 
�
�
@�

��
@
�
@�
@a#
��
��
�
�
��	
�� 
@
�#
��
@
�#
@
b 
��$
�
�!
@
�!
@b
 
@
� 
@c
@
� 
@:

@�
�
�	
�c!
@
�!
@��
@

�
�

@m��
�

����@!P
@"�#�#�#d

�#D

#�

@"�
!�

� y����� N�
�
@%
@&
@&

�
@
@ 
�� 
�

�
��@

|
@#
� �
��
�$
�	
	
�
�
�&
�
b
�'
�
�
�c'


'
%
�	�$
� �
� 
@!
@!
@�
@
@
�#
@&
@
c 
�!
�;!`�!�
�
@:!
@!
@�&
��%
@
�

@�%
@
�
@
@�
@a
@�"
@
�!
��
�
�	
@&
��
@
�
@�
�
�

@
�"
�b'
@
�

@�	
�
�$
�b
@
�  
@�!
@��


��DD	��	p
�
�	�
��

�

�

�

�

�
	
�

��	��
���
@�
@

@
�
�


	



�	
@
�

���	
���
@
c

�
�
@c�#
��! 
��!
�:;!
@
�!
@����!l"�%�%D%t&�&�&�&�
�%H$�
�"� �@� 
�&
�)
��(
�
@
�
�%
�)
@�
�

�
�
@�
@
@'
@
�
��`0�
�
b
�

�
�
�	�*
�	X	�	�





c
@
� �!
�
:
@ 
@!
@
;!�!!
@
� 
@!
@�
�
�)
�
�
�#
�
�%
��
�"
�
�
@�


	
�	

UP�
�

�

�
�	P	
@
�

@	
@�
@
�
	
�

�
�
@
@

@�	
@�

�
�	
�
P
�

@
P�		
@

@
�
�
@

@
�	
�
�

@
@
�

��

��	
���
@%
�
�$
@a(
�
�
@�

@
�
�
�)
@�
@
�
@
�!
@
�
��
@
�
@
b

��*
��
��
�
�
@�
@
�

@�(
@
�'
@
b&
�
�" 
@c!
@
�!P
�# 
@
�$ 
@
�!
@� 
�
: 
��!
�
b!
��
�
�
@�
@
�


@
;!
�� !
���
@��!
����
�
� ,�ٳ%D(�()t)�)�)�(}'�
�'�����&� 
N�B�
�
@,
@*
�%
@
: 
� !��!
�!
�!
�
�,
@$ 
@�+
@(
@% 
@�
�$
�
�
@ P
@*
@
�
���r��
�,
�
��
b
�-
��-
`-



 c+
�� 
�!
@
� 
@!
@�
�,
��
@
@�
�,
@�

@
�
��
�&
�
�
�%
�+
��'
@
�
�#
@
��,
@
�+
��
�
�	
@
�
��
@�		;�	
@


�
@
@��
�
�
�
	
�	
�
�	
�
�


P
	

�
�

@

�

@


�

@�

�

�
�

@

@
@�
@
@
�
@
��`
�	
�
�
�	�

@�	
��	
�
b
��-
��
��
�
�)
��
��
��
@
�*
��
�
�(
�;& 
@!
@
c!d�!
��#!
���
���	

@
�

@�
�b)
@
�' 
@
�"!
@�
���!
�:b$!
@���
�"a~�l�@)T*�(S�,P,�
�,�
�,�,�
�*�
�*�����@ 
l�
�
@
@/
�/
�
�
�
@/
@/
@' 
�
�'
@
@
@�
�#�


����*
���
b0
@�
@
@
c0
�����/
@�.
��-
� !
@!
!
�'!
�,
�* 
�� 
�%!
�
�"
@
@/
@�
@)
@
@
@
�
�
�
�.
@( 
@�*
�
@ 
@�&
�,
�
�!
@�(
@�+
@�-
@
�
��.
�
�
��.
��
@
�
@
�/
��
@�-
��+
���

�
�
�
�	��	
�	�

��݀�	`
@
��

@
@P

��
�P
`��
��
@
@

@
�
P
�

@
���
�
	
@
�

@

@;!
�!
@�

@
�
��
�

@
�
�:� 
�#!�
�
�
c!
��
�
b0
��
��"!
�
�!!
���	
@�	
@
�
@�	
@:�
�
c) 
��!
�;�&!
����Ʉ(
�*�
@+�.�.�
@/T/�/�/�.�
@-v���~�d*�% �@
�'
@* 
��
�*
�
�!
@%T
@0
@
�
�����/
�d���
b
�3
�`3
 3

 c` �. 
�
�/
@)!
@
� 
@!
@�
�2
@
�.
@+ 
@�)
� 
@�
@
@�
�
�	
@
@��	

�

	

�

@

@
�

@

�

��
�

�
�
@




	
	
	


�

T

����		D@	
��	T
�

@

�
�	
@�U
��	
@
@
	
�

�
�
@
@
�
@

@�	

��

�
�
@� 
@�$
@
�+
@
�-
��/
�
@�
�
�,
@�.
@
�1
@�
@
�1
@�
��
�
�
��
��0
@
b
��3
��
�
a2
@
�
@c, 
@
;!�
�- 
@:�%!
�'!
�
�2
@�2
���
@
@�
�
�	
@�
@�	
���2
@: 
@
;!
�b!
@
�
@
:*!
@�!!
�
;&!
�� !
��(!
���$!
����"((B�����/�0�2�2p2�2�
�2�
@2�$S���
�0d,�! ,�`- 
��
�5
�5
�5
�
c%!
�)!�bd !
!!
�
�


6
@'�6
�_|���3
�1 
�� 
��
�
�!�$
�(�
��
�3
�


�'
�.
��,
@2
@
�!
@
@
�-
@
@
�
@. 
�
�
@
��1
@, 
�
: 
�$!
�&!
�(!
�
�
@�
�
�/
�
�
�
�5
�c 
@+!
@
;!�
�0 
@�5
�
�
@
�
@�
�  
�
� 
@
�4
��1
�
�
�a4
��5
@
�
��1
�
�#
���
�
@
�
��
�		
@	

�
	
@	
�

@


�
@	
��
�
@
@
��
 
�
��
�	
@

���

@
@

�
�
@
@
@
�
@
�


��	
���

�
��

@

@


��
@b�6
��
��
��2
��/ 
�
:
���3
�
c#!
�;�"!
�b""
�
�,!
@��'!
�x��)H.
�0
@.��
4�4�2��5�5�
�5�
@5�1�@1�!/�o��% �f�
�8
�8
8
@8
@
:" 
�,!�
�%
@7
@
�/
@# 
��1
�7
�
b
��`9

5 

�R�6
�p����#'
@+T 
"
@5

6
@
�
��2
@
@
� 
�1 
@
�
�7
@�
�
�
�
@8
�
c! 
�%!
�b
@ d4 
!
�#!
�5
�/!
�;"!
@+"
��3 
�
b
��9
��
�
�0
��
�$ 
�
�#
@�
�
�	
��
�3�
��8	 	�
0
�
�
�	u
@�
@
@
@�
@P
�
�

�	
�

`

@

@
@	
@�
@
@�
�
�	T�
@
�	�
�
	
�:�)!
�+!
�
�-
��$
��3
�
�4
@�&
@�*
@��

���5
��6
@
�*!
@�
@
�
��8
�
�
�b�
�
� 
@��4
�b�2 
�
;&!
�:$!
��.!
�c�'!
�:b0!
@���.q$
�0{5_!d�7�7D8�8�8�8�8�2~"���q�$���u & 
�1 
�%
@;
�;
�3 
��6
�( 
�
�2
@;
@
�
�3
@ 
@�*
�.�9
�


�&�"��db#
<
@�<
�d|����9
�  
�# 
�
c;
@
@:
@
� 5"!
@%!
'!
�:!
�3!
��$ 
�1!
�;$!D� 
�
�5
@
@�-
@7
@:
@�)
@�4
@
� 
@:.!T�#
�
b6 
�2!
�
�&
��:
@4 
@
�

@��




�	
	

�	
@


	
�
	
	
	0

�

T
�
@

@	
�
���		x	
@
�

�P	�

�
@

@
�
@


�

�
�
�
��
�
�
�
�
�
�

��	
@
@
�
@
�
��

�
�
@
�
�
�	
@�	

��
@
�
@
���%
@
�'
�
�
�
a;
@
�
@�"
���6
@
�!
@
�8
��;
@
�7
��;
�
�
@:"
@�#
�
�!
�c)!
@
�5 
@
�*!
@b% 
@
�<
@
�
@
�8
@��9
��-!
�;�(!
����2
4
'��^�@9P:�;�;�;d;D;�"
@:�$
9�%
8y'��]L�+ ,�
�1
@=
@>
@>

�-
@3
@
�&
@7 
��)
@$
@
�*
@6
@�-
�1
�3
�(
�!
!

�'��5
�%|"@;
�  �b 
@?
@
@
@
c�?
�
� 
��?
����=
!%# }: 
@
�"
@4!
@�2
�<
�>
��!
�>
@
�8
@%
@�0
@7
@
�5
�#
@�;
�>
�c( 
@2!
@
�' 
@+!
@
;(!�
�-!P�9
�
�:
@�,
@a4
@��	



 
�	
@	�

@

@
�
��
�
�
�

�

@
�

��

�

@
�0
��	
�P�	
�	

@

��
�
@	
�
�
�	
�
�
@�

@

�
�
@��
�

��	
�

@
�

��

��
�:�1!
�3!
�
�>
@
�=
��"
�
�=
���
���	
@
�#
��"
��:
@
b?
��#
�
�<
@�!
@;,!
@
�8 
@
:*!
@b6!
@
�9 
@��$
@
c%
�
�&
@c�;
��5!
���0!
����	p
�`���
�
�









	
	
�
@
@��	
�
�
�
�
�
�
�
�
�	
�	
�

�

@�

�
�

�

�
�

�
�
�

�
�
�
	
�	
�

�

@��
�
�	
@
@	�	t	
�
�
��	�
�
�	
�

�
@
@�
�
�	`

@
@

@

�
�

@
@

@�

�
�	
�
�
�
�
�

�
�
��T
�

@

@�
��
@�,
@
�5p+
�9�:=0=�=�>>->->l'
�=�<d+
@:T5 ��
�8
@>
@A
@
�(
@@
@�=
@A
�(
�
�-
@%
@
:+ 
�4!
�c'
@) 
@-!
@
b$
@%�' �#!`+!
�+"
@�)
�%
�"�"�!�B
�!XB
!�!�""#
%
$
?

�,@(0$�$
��4T?
@$
�$
��3
@:
@�/
@�0
@
�9
��&
�
�+
@A
@
c* 
�7!
�;*!D9!
��5!��; 
�
�%
@�)
�=
@


@�

���
@
�
@;.!
@
�8!
@�;
�
�=
��<
@a@
�
�&
@�%
@
�
�
�'
�
�A
@�$
��$
�b%
@
�B
@
�&
@
�(
@�&
��'
�
�)
��?
@
�@
@
b>
�
�: 
@c0!
@
�< 
@
�/!
@�, 
���(
@b�2!
���3!
�Y��1
�5
�8,-���l�=D@�@AtA�A�A�@}?�+'?�-����>�/ 
F�B�
�7
@D
@B
�=
@
�)
@(
@�3
�7�.
�B
�'
'

�/�*�(�$%D
@%$b&
@E
@$xE
�$�$�E
�%�%�&�*
�* �
cC
@'$) 
-!
��- 
�1!
�
�0
�<
��;
�(
@*
@�C
@@
@= 
@�D
@< 
@
:3!
�5!
�7!
��8!�
�/
@�|
�
�
�	
�

��
�
�
�
�
�3|p���		�
�


�

@


	



�@
@�
�
@
�
@
�
�
�
�
@��6
@=
@C
@
;> 
�2!
�c.!�
�4!
@�,
��*
��A
��C
�
�D
@�B
@
�(
@�2
@
�>
@�+
@
�'
�D
@�D
�
�@
��?
@�'
@�,
���
��
@b�E
��(
��)
��+
��A
��? 
��:!
�:<!
�
�. 
@��6!
�c�;!
����4
�:a0۽�1ATB�@S�DPD�D�D�D�,XB�.
�B�4s���5 
l�
�.
@-
@G
�G
�
�?
@,
@+
@�6
�;�*
*

�0��.�B
�+�*�($'&
bH
@'�'
@'
@
cH
�(�(�(�(�G
@)�F
�+�E
�- .!
@1!
3!
�?!
�D
�B 
�
�

@
��
@
@	
@

@
�
@
@
�	
�

��
�
�

�

�


@
@
@
�
@
@

��
�
@
@�

�
�
�
@
@P
@
�
@
�
�	
��
�	
�	
��h
�
�
�

�

�
�
@��:
@1
@G
@�A
@.
@+
@
�2
�/
��G
�G
�? 
@
:1 
�;!��.
�
�B
�/
@2 
@�>
�D
�+
@�F
�0
@�F
@@ 
@
�5
@�
�
�
�
@c�0 
�=!
�
�*
@
�*
@�C
�
�9
�
�@
�
�E
��3
@
�C
��-
@�G
�
b+
��H
�
c,
��A 
�
�F
@
�-
@;�2!
4!
�


@�
@�	
���E
�
c5!
��6!
���9!
�
b:!
�;�>!
����7Ʉ@
�B�C�F�F�GTG�G�G�F�Ev1u�~�d3B�= �@�0
�F
@C 
@�A
�5 
@�2
�I
@�0
@2
@�5
�
�	
@
�
��	


�

@

�

�
�

�
�
@

@�
@
@
�


���	
	
�
�
@
@
@
�
@
@
�
@
�

@

@
�	
@
��
�	�
���
�
�`

@�	
�
�
@�9
�=�4
�H
�-
-

�2��1|.lG
@-�+++b*
@K
@*�K
�*�*�K
�+�+�+�0
�1 �
c.�/ `F 
@�G
�A!
��3 
�7!
�
�6
�B
��?
@B 
�
�G
@.
�
�E
@�<
�
�8
�
�D
��
��.
�
�C
�
�I
��F
�
�1
��-
@J
��

@
�

@:�=!
�?!
�
�J
@�4
@
�.
@�/
@aJ
��-
�b.
@
�K
@
�/
@�H
�
:9!
��4 
�
�J
�
�<!
�;c4!�
�D 
@
�E 
@��
@��
�

@��J
@b�1
�;2!
�
:6!
@
�8!
@
�>!
@
�@!
@:bB!
@���:(@B6�����G�H�J�JpJ�J�J�J�<S���HdD�9 ,�`E 
�
:7 
�<!
�>!
�@!
�
�I
@D 
��4
@6
�
�D
@J
@2
�
�M
@M
@M
@c=!
@A!P
b1�3 �7!
�9!
@�5
�0
�2
�.�.�-�N
�)�xN
,�-�../K
I 

�8
@1D1
@�9<
@@T4
62
K
@0
�0
��?
@F
@�;
@�I
@
�3
@8 
@�9
�1
��E
�2
��3
�F 
@�8
��L
@
�	
��	
�	
�




�
�
�
�
�
�	
�	�	
�	
�

�����`
�
�
@�

�
t

@
@
�
�
@
��
�
�	
@

�
��
�
�
@P�
@
�
@c6 
@C!
@
;6!�
�H 
@�1
�
�G
�
�4
��5
@
�I
��M
�
�M
@
�0
@
�0
@
b1
��N
��2
��J
��G 
�
:4
�
�5
@�M
�
aL
@��
@
@
@�
@
�
@


��
�
�	
���
@
�
���K
�
c;!
�;�:!
�b:"
�
�D!
@��?!
����AHF
�H7
@F��6
L�L�J��M�M�4
M�4
@M�I�@I�9/�o��= �f�
�P
�P
P
@P
@
:: 
�D!�
�=
@O
@
�G
@; 
��I
�O
�
b2
�0�0`0Q
11236
M 

�6R4�N
�3p1�1�0��;?
@CT8
:
@M
5
N
@3
�3
��J
@7
@
�8
�I 
@
�6
�O
@�5
�4
�
�3
@P
�
c9 
�=!
�b5
@6 dL 
5!
�;!
�M
�G!
�;:!
@C"
��K 
�
b5
��Q
��4
�
�H
��7
�< 
�
�;
@�

@
�
@T
�
�
@
�
�	
��
�
��
@
�
�

�

@

�
�
��
�;;
�	��	

��
�
@
@
�
@
@
�
�
�
@	
�

�
@

@	
��
@

�

��
�
��
@	
��

�
@
�
@
@�
�
��
�
�
�
�:�A!
�C!
�
�E
��<
��K
�
�L
@�>
@�B
@�
���

@
�
���M
��N
@
�B!
@�6
@
�3
��P
�
�4
�b�7
�
�8
@��L
�b�J 
�
;>!
�:<!
��F!
�c�?!
�:bH!
@���Fq<
�H{M_9d�O�ODP�P�P�P�P�J~:���q�<���u > 
�I 
�=
@S
�S
�K 
��N
�@ 
�
�J
@S
@7
�
�K
@8
@�B
�F�Q
�6
6

�>�:�7�6db;
443T
@3�T
�3d3|4�4�5�7�Q
�8 
�; 
�
cS
@7
@R
@6
�7 5:!
@=!
?!
�:9
�K!
��< 
�I!
�;<!D�8
�
�M
@7
@�E
@O
@R
@�A
@�L
@
�8
@:F!T�;
�
bN 
�J!
�
�>
��R
@L 
@�N
��9
��P
@
�S
��7
�
�=
@
�?
�
aS
@
�6
@�:
���


�
�
�	
@

@��
��
��
�
�
�
��
�
@

@
�
�
@
���
�	
@

@
@	
�

�

�
�
@�
��
@
�
�
�
�
�
@��

�
�

@
�
�
��
���
@b7
@
�T
@�Q
��E!
�
�O
��S
�
�6
@::
@�;
�
�9
�cA!
@
�M 
@
�B!
@b= 
@
�P
@;�@!
����J
L
?��^�@QPR�S�S�SdSDS�:
@R�<
Q�=
Py?��]L�C ,�
�I
@U
@V
@V

�E
@K
@
�>
@O 
��A
@<
@
�B
@N
@�E
�I
�K
�@
�9
9

�?��M
�=|:@S
�8 7�66b8
@W
@6
@7
@
c7�W
�6
�8
�6�W
�7�7�7�U
9%; }R 
@
�:
@L!
@�J
�T
�V
��9
�V
@
�P
@=
@�H
@O
@
�M
�;
@�S
�V
�c@ 
@J!
@
�? 
@C!
@
;@!�
�E!P�Q
�
�R
@�D
@aL
@��

@ 0D@	P	p
�
�����@
�
���
��
@
@	
@
�
�
�	
�
�
�
��
�	
��
�
�U

�:�I!
�K!
�
�V
@
�U
��:
�
�U
���
@

@
�
��
��
@�
���
�
�;
��:
��R
@
bW
��;
�
�T
@�9
@;D!
@
�P 
@
:B!
@bN!
@
�Q 
@��<
@
c=
�
�>
@c�S
��M!
���H!
����M�C
@QlR�U�UDUtV�V�V�V�?
UHT�C
�R�M D�P
�V
�Y
��@
�X
�
�U
�Y
@@
@�E
�=
�:C 
@L!
@
c?
�A 
�E!
�b<
�=`? ;!�C!
C"
�
�A
=
::9Z
@9�Z
�9|9|:�:�;
�=
�<
�W
��D�@�<e<
@
�L�W
�<
<

�K
�R
�
�
@
�
�G
�
�H
��Q
@
�D
@�
�
@
���	y	
@

��
@	
�

�

@
�
�
��
�
�

@	
	


�
�
@
@�

@�
@
@
�
T
�
�
�
@�
@
�
@�
@
�
�
@

@�

�

@
�A
�U
@�T
�
�U
@�C
@Y
@
cB 
�O!
�;B!DQ!
��M!��S 
�
�=
@�X
@
�S
@a>
@�=
@
�?
�
�Y
@�>
@�<
��<
�
aX
@
�>
@
�?
@
b@
��Z
��=
��>
��V
�
�W
@�A
�
�R 
�
cH!
��T 
��G!
�
�D 
@���
�
�
�

@
�
��
��
�
���	
@;F!
@
�P!
@b�J!
���K!
����I
�M
�P,E���l�UDX�XYtY�Y�Y�X}W�C'W�E����V�G 
F�B�
�O
@\
@Z
�U
@
�A
@@
@�K
�O�F
�Z
�?
?

�G�B�@�<=\
@=<b>
@]
@<x]
�<�<�]
�=�=�>�B
�B �
c[
@?$A 
E!
��E 
�I!
�
�H
�T
��S
�@
@B
@�[
@X
@U 
@�\
@T 
@
:K!
�M!
�O!
��P!�
�G
@�
@	
@
�
@	
�	




�


�

@���
@	�
�
@

�
@��
0
@�0	


�


�
@
�
�

�
�
�
@�
@
�
@
��
�

@�
�
�
@
@
�
@
�

@��N
@U
@[
@
;V 
�J!
�cF!�
�L!
@�D
��B
��Y
��[
�
�\
@�Z
@
�@
@�J
@
	
�
�V
@�C
@
�?
�\
@�	
��\
�
�X
��W
@�?
@�D
���
�b@
@
�]
@
�A
@
�C
@
�Y
@
�W 
@
�R!
@
:T!
@�F 
���
��
���N!
�c�S!
����L
�RaH۽�1YTZ�XS�\P\�\�\�\�DXZ�F
�Z�Ls���M 
l�
�F
@E
@_
�_
�
�W
@D
@C
@�N
�S�B
B

�H��F�Z
�C�B�@<?>
b`
@?�?
@?
@
c`
�@�@�@�@�_
@A�^
�C�]
�E F!
@I!
K!
�W!
�\
�Z 
��H 
�U!
�
�R
@I
@_
@�Y
@F
@C
@
�J
�G
��_
�_
�W 
@
:I 
�S!��F
�
�Z
�G
@J 
@�V
�\
�C
@�^
�H
@�^
@X 
@
�M
@�
�
	
�
�
�
@
�
@
@
�

�
�
�	
�	
�	

�

@

�
�
�
@
@
	
@

@

@
�
	

�
�
��	
@

@
P
�
�
�	
@
�	�
�
�


�
0

�	
�	

P
�
@�
@

�
@
@
@	��
�

�	
@
�
�	
@	��		
@

@

�
�
�
@
@
@

@�

@
@�

@
@

@	
@

�
�
�

�


@�
�


��
�
�
@;�J!
L!
�
�
��
�
�B
@
�B
@�[
�
�Q
�
�X
�
�]
��K
@
�[
�

��
@�E
@�_
�
bC
��`
�
cD
��Y 
�
�^
@
�E
@��
�
�


@��]
�
cM!
��N!
���Q!
�
bR!
�;�V!
�L��OɄX
�Z�[�^�^�_T_�_�_�^�]vIu�~�dKZ�U �@�H
�^
@[ 
@�Y
�M 
@�J
�a
@�H
@J
@�M
�
��


	



�
@�

���D�D	�	p
�
��
��
�
�
�
�
�	
�

�����`
@
�
�
�
�
��
@
�
@�
@
�
�b�B
�c
�B`c
B Bc
CCCH
I 
�JI�F�_
�EdC�C�C��Q
@UTL
@`
@E
�E
�
�N
�Z
��W
@Z 
�
�_
@F
�
�]
@�T
�
�P
�
�\
�
�I
��E
@b
�
cK 
�O!
�bF�G `^ 
@�_
�Y!
�;L!`�\ 
�
�[
@�F
@�a
@
�^
@
�b
��L
@
�F
@�G
@ab
��E
�bF
@
�c
@
�G
@�`
�
:Q!
��U!
�W!
�
�b
@
�b
@:L 
@
;N!
�bJ!
@
�I
@
:Z!
@c�] 
�;�P!
��V!
��X!
���T!
����R(XBN�����_�`�b�bpb�b�b�b�TS���`d\�Q ,�`] 
�
:O 
�T!
�V!
�X!
�
�a
@\ 
��L
@N
�
�\
@b
@J
�
�e
@e
@e
@cU!
@Y!P
bI�K �O!
�Q!
@�M
�H
�J
�F�F�E�f
�A�xf
D�E�FFGc
a 

�P
@IDI
@�QT
@XTL
NJ
c
@H
�H
��W
@^
@�
�
��
�
�
@	
@
p
�
@


�
�
��
�
�
�
P
�
@

�
�
�

@
P�
@
@	
@

@�
�
��

�
@
��
@	
@
�
@	
@	
@�

@
�
�I
@�_
@
�K
�^ 
@�Q
�I
��]
�J
��K
@P 
@�P
��d
@
�e
@cN 
@[!
@
;N!�
�` 
@�a
�
�M
@�L
�
�e
��H
��H
�
�a
@�S
@��
�
�
�h

�
�
�

��
@�	
�
�
�
@�

@a�d
@
�e
��M
@
:L
�
b_ 
��f
��I
��J
��b
�
�W!
@��c
�
cS!
�;�R!
�bR"
�
�\!
@���YH^
�`O
@^��N
d�d�b��e�e�L
e�L
@e�a�@a�Q/�o��U �f�
�h
�h
h
@h
@
:R 
�\!�
�U
@g
@
�_
@S 
��a
�g
�
bJ
�H�H`Hi
IIJKN
e 

�NRL�f
�KpI�I�H��SW
@[TP
R
@e
M
f
@K
�K
��b
@O
@
�P
�a 
@
�N
�g
@�M
�L
�
�K
@h
�
cQ 
�U!
�bM
@N dd 
M!
�S!
�e
�_!
�;R!
@["
��c 
�
�
@�
�	
@
�	
@
��	


�

@

�

�
�

�
�
@

@�
@
@
�


���	
	
��
@	`
�	
�
@
@�
�
�
�
�
�
��
@
�

@

@�`
�
����
@��O
@T 
@�S
�
�

��

�
�d
@�T
��]
�
:Y!
�[!
�;T!
@
�V!
@�c
@�d
�
�V
�
�Z
���
�

@
�
���`
@�h
�
�L
���e
��f
@
�Z!
@�N
@
�K
�bL
@
�i
@
�M
@
�O
@�P
�b�b 
�:`!
�c�W!
�;�^!
����^qT
�`{e_Qd�g�gDh�h�h�h�h�b~R���q�T���u V 
�a 
�U
@k
�k
�c 
��f
�X 
�
�b
@k
@O
�
�c
@P
@�Z
�^�i
�N
N

�V�R�O�NdbS
LLKl
@K�l
�KdK|L�L�M�O�i
�P 
�S 
�
ck
@O
@j
@N
�O 5R!
@U!
W!
�:Q
�c!
��T 
�a!
�;T!D�P
�
�e
@O
@�]
@g
@j
@�Y
@�d
@
�P
@:^!T�S
�
bf 
�b!
�
�V
��j
@d 
@
�	
��	
�	
�




�
�
�
�
�
�	
�	�	
�	
�

�����`
�
�
@�

�
t

@
@
�
�
@
��
�
�	
@

�
��
�
�
@P�
@
�
@
�
@


��
�
�	
���
@
@
@�
@�
@
�
���U
@
�W
�
�O
�
ak
@
�N
@�R
���f
@
�Q
@
�h
��k
@
�g
��k
�
�N
@:R
@�S
�
�Q
�cY!
@
�e 
@
�Z!
@bU 
@
�l
@
�O
@
�h
@��i
��]!
�;�X!
����b
d
W��^�@iPj�k�k�kdkDk�R
@j�T
i�U
hyW��]L�[ ,�
�a
@m
@n
@n

�]
@c
@
�V
@g 
��Y
@T
@
�Z
@f
@�]
�a
�c
�X
�Q
Q

�W��e
�U|R@k
�P O�NNbP
@o
@N
@O
@
cO�o
�N
�P
�N�o
�O�O�O�m
Q%S }j 
@
�R
@d!
@�b
�l
�n
��Q
�n
@
�h
@U
@�`
@g
@
�e
�S
@�k
�n
�cX 
@b!
@
�W 
@[!
@
;X!�
�]!P�i
�
�j
@�\
@ad
@��P
�
�
@

�



�	
	
	
���
�
�
@
P
�
�
��
@
�
�

�

@

�
�
��;8	��	

�
@	
�

�
@

@	
��
@

�

�
�
@T
@
@
@
�
�	
@
�

@
��
�
�
�
@
@
�
@�
@

@:�a!
�c!
�
�n
@
�m
��R
�
�m
��
���

@
�

@bi 
@
�o
@
�S
@�l
�
�Q
��S
@
�R
@
�j
�ck
@
�U
@�T
��V
�;�h 
�:Z!
��\!
���`!
�c�e!
�:bf!
@���e�[
@ilj�m�mDmtn�n�n�n�W
mHl�[
�j�e D�h
�n
�q
��X
�p
�
�m
�q
@X
@�]
�U
�:[ 
@d!
@
cW
�Y 
�]!
�bT
�U`W S!�[!
["
�
�Y
U
RRQr
@Q�r
�Q|Q|R�R�S
�U
�T
�o
��\�X�TeT
@
�d�o
�T
T

�c
�j
�
�_
�
�`
��i
@
�\
@��
�
�
�
��
�
@

@
�
�
@
���
�	
@

@
@	
�

�

�
�
@�
�
�
���


�
�
�	
@

@��
@
@�
@
�
�;cZ!�i!
@
�Z 
@g!
@�[
�q
�
�k
�
�m
��l
@
�Y
@m
��W
@�U
�
aV
��p
@
�T
��V
@�T
��q
@bU
@
�r
@
�V
@
�X
@�V
��W
�
�Y
��U
�
�p
��o
�bn
@�j 
�
c`!
��e!��k 
��l 
��_!
�
�\ 
@��

�
�

@
�
�
��
���
@;^!
@
�h!
@��X
@b�b!
���c!
�^��a
�e
�h,]���l�mDp�pqtq�q�q�p}o�['o�]����n�_ 
F�B�
�g
@t
@r
�m
@
�Y
@X
@�c
�g�^
�r
�W
W

�_�Z�X�TUt
@UTbV
@u
@Txu
�T�T�u
�U�U�V�Z
�Z �
cs
@W$Y 
]!
��] 
�a!
�
�`
�l
��k
�X
@Z
@�s
@p
@m 
@�t
@l 
@
:c!
�e!
�g!
��h!�
�_
@
�
�
�
�
�	
��
@
@	
@
����
��@
��

@ 0D@	P	p
�
����
@	
@
�
@��
@��f
@m
@s
@
;n 
�b!
�c^!�
�d!
@�\
��Z
��q
��s
�
�t
@�r
@
�X
@�b
@
�
@�W
�t
@
�[
@�n
@��
@

@
�
��
��
@�
���o
@�p
�
�t
��W
�
�\
@b�u
��X
��Y
��[
��q
��o 
��j!
�:l!
�
�^ 
@��f!
�c�k!
����d
�ja`۽�1qTr�pS�tPt�t�t�t�\Xr�^
�r�ds���e 
l�
�^
@]
@w
�w
�
�o
@\
@[
@�f
�k�Z
Z

�`��^�r
�[�Z�XTWV
bx
@W�W
@W
@
cx
�X�X�X�X�w
@Y�v
�[�u
�] ^!
@a!
c!
�o!
�t
�r 
�
�

�

@
�

@	
	


���
�
�
@	
�

�

@
�
����	y	
@

�
�

@�
@
@
@
@
�
�
��
@
��
T
�
��
�
�
�;b!
�d!
@�
@

�

�
��
�
�
�

@
�
��
��
�
���j
@a
@w
@�q
@^
@[
@
�b
�_
��w
�w
�o 
@
:a 
�k!��^
�
�r
�_
@b 
@�n
�t
�[
@�v
�`
@�v
@p 
@
�e
@�i
@�p
@�s
@�u
@
�c
��s
@
�]
�
�w
@c` 
@m!
@�Z
��Z
�
�v
@
�]
@
cq 
��\
�
bx
��[
��j!
�
�i!
��
�
�	
@��u
�
ce!
��f!
�;�n!
�
�
���gɄp
�r�s�v�v�wTw�w�w�v�uvau�~�dcr�m �@�`
�v
@s 
@�q
�e 
@�b
�y
@�`
@b
@�e
�
�
�	
��
�	
@	
�

@

@
�
��
�
�"
�	�
�

@
�
�0
��
�P�	
�

@

�

@
�
�

@
@�
�
�
��
�
@
�
@
�
�
@�
�

��
�

@
�b�Z
�{
�Z`{
Z Z{
[[[`
a 
�ba�^�w
�]d[�[�[��i
@mTd
@x
@]
�]
�
�f
�r
��o
@r 
�
�w
@^
�
�u
@�l
�
�h
�
�t
�
�a
��]
@z
�
cc 
�g!
�b^�_ `v 
@�w
�q!
�;d!`�t 
�
�s
@�^
@�y
@
�v
@
�z
��d
@
�^
@�	
��_
@az
��]
�b^
@
�{
@
�_
@�x
�
:i!
��m!
�o!
�
�z
@
�z
@:d 
@
;f!
�bb!
@
�a
@
:r!
@��
��	
���
��
�c�u 
�;�h!
��n!
��p!
���l!
�z��j(pBf�����w�x�z�zpz�z�z�z�lS���xdt�i ,�`u 
�
:g 
�l!
�n!
�p!
�
�y
@t 
��d
@f
�
�t
@z
@b
�
�}
@}
@}
@cm!
@q!P
ba�c �g!
�i!
@�e
�`
�b
�^�^�]�~
�Y�x~
\�]�^^_{
y 

�h
@aDa
@�il
@pTd
fb
{
@`
�`
��o
@v
@�k
@
�
@�

�
�u
�b
��i
�a
��c
�v 
@�c
@h 
@�h
��|
@
�

��


@


@`



	
	
	�
�
�
�
@
�
�
�
�	
�

�

P

��	




D
		�@	
�	d
�
�
�	
�	
@
@
@
@�
�	P
�
�
�
�BX�	
@
@�

@

@
@

�

�

@

�
�
�
@
@

@�
�
�
�
�

�
�
�
�
@cf 
@s!
@
;f!�
�x 
@

�
�

@

@

��
�	
@
�

�
�
�
�
�
�
�	
@
�	
@�
@��	

@
�
��
�
�a
@�w
@�d
@
�e
��y
@
�}
@�}
��`
��`
�
�y
@
:d
�
�e
@�}
�
a|
@b�~
��a
��b
��z
��w 
��t!
�
�{
@ck!
@;�j!
�bj"
���o!
�}��qHv
�xg
@v��f
|�|�z��}�}�d
}�d
@}�y�@y�i/�o��m �f�
��
��
�
@�
@
:j 
�t!�
�m
@
@
�w
@k 
��y
�
�
bb
�`�```�
aabcf
} 

�fRd�~
�cpa�a�`��ko
@sTh
j
@}
e
~
@c
�c
��z
@g
@
�h
�y 
@
�f
�
@�e
�d
�
�c
@�
�
ci 
�m!
�be
@f d| 
e!
�k!
�}
�w!
�;j!
@s"
��{ 
�
be
���
��d
�
�x
��g
�l 
�
�k
@
�l
@
�u
@:q!
@s!
@
;l!
��n!
�
�{
�
�|
@�n
@�r
@��

��D�D	�	p
�
��
��
�
�
�
�
�	
�

����
�`
@
��
�
@�
@
��


	



�
@�
@��
�
�
��
���}
��~
@
�r!
@�f
@
�c
���
�
�d
�b�g
�
�h
@��|
�b�z 
�:x!
�c�o!
�;�v!
����vql
�x{}_id��D����������z~j���q�l���u n 
�y 
�m
@�
��
�{ 
��~
�p 
�
�z
@�
@g
�
�{
@h
@�r
�v��
�f
f

�n�j�g�fdbk
ddc�
@c��
�cdc|d�d�e�g��
�h 
�k 
�
c�
@g
@�
@f
�g 5j!
@m!
o!
�:i
�{!
��l 
�y!
�;l!D�h
�
�}
@g
@�u
@
@�
@�
�
��
�
�
@	
@
p
�
@


�
�
��
�
�
�
P�
�	
�	
�

�
�
�
�	
�

�
�
@
@P
@
�
@
�
�	
��h
�
�
@
@�

�
�
�

�
@��
�| 
�
�n
@b~ 
@z!
@�j
�
�m
��o
@�g
@
:v!�
�k
@�f
@
a�
@
�f
@�~
@
�i
@
��
���
@
�h
��|
�
�q
���
�
�

�
�
�

�
�
@�
�
�
@	
@
�
�
�

�bg
@
��
@��
��u!
�
�
���
�b�
@
�m 
@cr!
@
�} 
@:j
@�k
�
�i
�cq!
@;�p!
����z
|
o��^�@�P�������d�D��j
@��l
��m
�yo��]L�s ,�
�y
@�
@�
@�

�u
@{
@
�n
@ 
��q
@l
@
�r
@~
@�u
�y
�{
�p
�i
i

�o��}
�m|j@�
�h g�ffbh
@�
@f
@g
@
cg��
�f
�h
�f��
�g�g�g��
i%k }� 
@
�j
@|!
@�z
��
��
��i
��
@
��
@m
@�x
@
@
�}
�k
@��
��
�cp 
@z!
@
�o 
@s!
@
;p!�
�u!P��
�
��
@�t
@a|
@��
@
@
�


���	
	
��
�
@

@
�	


�

@

�

�
�
�	
@
�
�
�
@
@
�
@
@
�
�
@


�

��	
�
@
�
@	`�P
�
@��
�
�	
@�
��
@
�j
@��
@:�y!
�{!
�
��
@
��
�b�
@
�k
@��
�
�i
��k
@
�j
@
��
�c�
@
�m
@�l
��n
���
@��
�

@��

@
�

@b� 
@
:~!
@;r!
@
�� 
@
�t!
@��x!
�c�}!
����}�s
@�l�����D�t��������o
�H��s
���} D��
��
��
��p
��
�
��
��
@p
@�u
�m
�:s 
@|!
@
co
�q 
�u!
�bl
�m`o k!�s!
s"
�
�q
m
jji�
@i��
�i|i|j�j�k
�m
�l
��
��t�p�lel
@
�|��
�l
l

�{
��
�
�w
�
�x
���
@
�t
@�
�
����`
�
�
@�

�
�
�
�
�	
�	�	
�	
�

�
�	
�	
�




�
�
@
	
�



�
@�
�
@
�
�

�
�
�
�

�
�
��
�
�s
@�
@
cr 
�!
�;r!D�!
��}!��� 
�
�m
@�q
��
@
�	
��
@
�
@P�
@
�
@


��
���
@
�
���	
����
@��
@
��
�
a�
@�n
�
�m
��o
@��
�
�n
�
�l
@
�l
@
bm
���
��n
��p
�
�n
@
�o
@�q
@
��
���
�b�
@�� 
�
cx!
��� 
��w!
�
�t 
@��p
@;�v!
���!
�b�z!
���{!
����y
�}
��,u���l��D����t�������}��s'��u������w 
F�B�
�
@�
@�
��
@
�q
@p
@�{
��v
��
�o
o

�w�r�p�lm�
@mlbn
@�
@lx�
�l�l��
�m�m�n�r
�r �
c�
@o$q 
u!
��u 
�y!
�
�x
��
���
�p
@r
@��
@�
@� 
@��
@� 
@
:{!
�}!
�!
���!�
�w
@�	
�
@
@
�

@

�

@
@
@�

@P
�
@�
@
@
�
�
��


�
�

�
�
�
�0	
�	
�	
T
�;8	��	


�
@

@	
��
@

�

�
�
@T
@
@
@
�
�	
@
�

@
���~
@�
@�
@
;� 
�z!
�cv!�
�|!
@�t
��r
���
���
�
��
@��
@
�p
@�z
@
�

��
@
@
�
@
�
�
��
���o
@�
��

@�s
�
��
��
����
@��
�
��
��o
�
�t
@b��
��p
��q
��s
���
��� 
���!
�:�!
�
�v 
@��~!
�c��!
����|
��ax۽�1�T���S��P��������tX��v
���|s���} 
l�
�v
@u
@�
��
�
��
@t
@s
@�~
���r
r

�x��v��
�s�r�plon
b�
@o�o
@o
@
c�
�p�p�p�p��
@q��
�s��
�u v!
@y!
{!
��!
��
�� 
��x 
��!
�
��
@y
@�
@��
@v
@s
@
�z
�w
���
��
�� 
@
:y 
��!��v
�
��
�w
@z 
@��
��
�s
@��
�x
@��
@� 
@
�}
@��
@��
@��
@��
@
�{
���
@
�u
�
��
@�r
��r
�
��
@
�u
@
c� 
��t
�
b�
��s
���!
�
��!
���


�
�
�	
�

@��
��
��
�
�
�
��
�
@

@
�
�
@
���
�	
@

@
@	
�

�

�
�
@�
��
@
�
�
�
�
�
@��

�
�

@
�
�
��
�;�z!
|!
�
�
����
�
c}!
��~!
�;��!
�U��Ʉ�
����������T���������vyu�~�d{��� �@�x
��
@� 
@��
�} 
@�z
��
@�x
@z
@�}
�

@
@�
@
@	
@
�
�
�	
�
`
�PP�}�
@
�
�
������	(	�

�
�
�	
��
�
�U

�b�r
��
�r`�
r r�
sssx
y 
�zy�v��
�uds�s�s���
@�T|
@�
@u
�u
�
�~
��
���
@� 
�
��
@v
�
��
@��
�
��
�
��
�
�y
��u
@�
�
c{ 
�!
�bv�w `� 
@��
��!
�;|!`�� 
�
��
@�v
@��
@
��
@
��
��|
@
�v
@�
@�w
@a�
��u
�bv
@
��
@
�w
@��
�
:�!
���!
��!
�
��
@
��
@:| 
@
;~!
�bz!
@
�y
@
:�!
@��
@

@
�
��
��
@�
�c�� 
�;��!
���!
���!
����!
�����(�B~������������p���������S����d��� ,�`� 
�
: 
��!
��!
��!
�
��
@� 
��|
@~
�
��
@�
@z
�
��
@�
@�
@c�!
@�!P
by�{ �!
��!
@�}
�x
�z
�v�v�u��
�q�x�
t�u�vvw�
� 

��
@yDy
@���
@�T|
~z
�
@x
�x
���
@�
@�
��
@��
@
�{
@� 
@��
�y
���
�z
��{
�� 
@��
���
@
�

�

@
�

@	
	


���
�
�

�

@
�
����	
�	y	
@

�

�
�
�	

�
�

@�
@
@
@
@
�
�
��
@
�
�
@�
@
�
�
@

@�P�
@
�
@
@�	
�c�~ 
��!
�;~!D�� 
�
�y
@��
@�|
@
�}
���
@
��
@��
��x
��x
�by
@
��
@
�z
@
��
@
�� 
@:|
@�}
�
��
@a�
���
��
��
�
�

@�
@���
�
c�!
�;��!
�b�"
�
��!
@���!
�����H�
��
@���~
�����������|
��|
@����@���/�o��� �f�
��
��
�
@�
@
:� 
��!�
��
@�
@
��
@� 
���
��
�
bz
�x�x`x�
yyz{~
� 

�~R|��
�{py�y�x����
@�T�
�
@�
}
�
@{
�{
���
@
@
��
�� 
@
�~
��
@�}
�|
�
�{
@�
�
c� 
��!
�b}
@~ d� 
}!
��!
��
��!
�;�!
@�"
��� 
�
b}
���
��|
�
�	
@�
�
�
�"
�
	�	
@	
�

@

@
�
��
�

@
�
�0
��
�P�	
�

@

�

@
�
�

@
@�
�
�
��
�
@
�
�	
�
�
@
�
�
@�
�

��
�

@
���
@� 
@��
�
	
�
�|
@��
@
��
�
�{
@��
@
��
@
��
@:�!
@�!
@
;�!
���!
�
��
@��
@��
@��
���
��
����
���
@
��!
@�~
@��
@
b
��� 
�:�!
����
�c��!
�;��!
�F 1545 /lib/bit32.lua



local bit32={}



local function fold(init,op,...)
local result=init
local args=table.pack(...)
for i=1,args.n do
result=op(result,args[i])
end
return result
end

local function trim(n)
return n&0xFFFFFFFF
end

local function mask(w)
return~(0xFFFFFFFF<<w)
end

function bit32.arshift(x,disp)
return x//(2^disp)
end

function bit32.band(...)
return fold(0xFFFFFFFF,function(a,b)return a&b end,...)
end

function bit32.bnot(x)
return~x
end

function bit32.bor(...)
return fold(0,function(a,b)return a|b end,...)
end

function bit32.btest(...)
return bit32.band(...)~=0
end

function bit32.bxor(...)
return fold(0,function(a,b)return a~b end,...)
end

local function fieldargs(f,w)
w=w or 1
assert(f>=0,"field cannot be negative")
assert(w>0,"width must be positive")
assert(f+w<=32,"trying to access non-existent bits")
return f,w
end

function bit32.extract(n,field,width)
local f,w=fieldargs(field,width)
return(n>>f)&mask(w)
end

function bit32.replace(n,v,field,width)
local f,w=fieldargs(field,width)
local m=mask(w)
return(n&~(m<<f))|((v&m)<<f)
end

function bit32.lrotate(x,disp)
if disp==0 then
return x
elseif disp<0 then
return bit32.rrotate(x,-disp)
else
disp=disp&31
x=trim(x)
return trim((x<<disp)|(x>>(32-disp)))
end
end

function bit32.lshift(x,disp)
return trim(x<<disp)
end

function bit32.rrotate(x,disp)
if disp==0 then
return x
elseif disp<0 then
return bit32.lrotate(x,-disp)
else
disp=disp&31
x=trim(x)
return trim((x>>disp)|(x<<(32-disp)))
end
end

function bit32.rshift(x,disp)
return trim(x>>disp)
end



return bit32
F 3574 /lib/buffer.lua
local computer=require("computer")
local unicode=require("unicode")

local buffer={}
local metatable={
__index=buffer,
__metatable="file"
}

function buffer.new(mode,stream)
local result={
closed=false,
tty=false,
mode={},
stream=stream,
bufferRead="",
bufferWrite="",
bufferSize=math.max(512,math.min(8*1024,computer.freeMemory()/8)),
bufferMode="full",
readTimeout=math.huge,
}
mode=mode or"r"
for i=1,unicode.len(mode)do
result.mode[unicode.sub(mode,i,i)]=true
end



stream.close=setmetatable({close=stream.close,parent=result},{__call=buffer.close})
return setmetatable(result,metatable)
end

function buffer:close()

local meta=getmetatable(self)
if meta==metatable.__metatable then
return self.stream:close()
end
local parent=self.parent

if parent.mode.w or parent.mode.a then
parent:flush()
end
parent.closed=true
return self.close(parent.stream)
end

function buffer:flush()
if#self.bufferWrite>0 then
local tmp=self.bufferWrite
self.bufferWrite=""
local result,reason=self.stream:write(tmp)
if not result then
return nil,reason or"bad file descriptor"
end
end

return self
end

function buffer:lines(...)
local args=table.pack(...)
return function()
local result=table.pack(self:read(table.unpack(args,1,args.n)))
if not result[1]and result[2]then
error(result[2])
end
return table.unpack(result,1,result.n)
end
end

local function readChunk(self)
if computer.uptime()>self.timeout then
error("timeout")
end
local result,reason=self.stream:read(math.max(1,self.bufferSize))
if result then
self.bufferRead=self.bufferRead..result
return self
else
return result,reason
end
end

function buffer:readLine(chop,timeout)
self.timeout=timeout or(computer.uptime()+self.readTimeout)
local start=1
while true do
local buf=self.bufferRead
local i=buf:find("[\r\n]",start)
local c=i and buf:sub(i,i)
local is_cr=c=="\r"
if i and(not is_cr or i<#buf)then
local n=buf:sub(i+1,i+1)
if is_cr and n=="\n"then
c=c..n
end
local result=buf:sub(1,i-1)..(chop and""or c)
self.bufferRead=buf:sub(i+#c)
return result
else
start=#self.bufferRead-(is_cr and 1 or 0)
local result,reason=readChunk(self)
if not result then
if reason then
return result,reason
else
result=#self.bufferRead>0 and self.bufferRead or nil
self.bufferRead=""
return result
end
end
end
end
end

function buffer:read(...)
if not self.mode.r then
return nil,"read mode was not enabled for this stream"
end

if self.mode.w or self.mode.a then
self:flush()
end

if select("#",...)==0 then
return self:readLine(true)
end
return self:formatted_read(readChunk,...)
end

function buffer:setvbuf(mode,size)
mode=mode or self.bufferMode
size=size or self.bufferSize

assert(mode=="no"or mode=="full"or mode=="line",
"bad argument #1 (no, full or line expected, got "..tostring(mode)..")")
assert(mode=="no"or type(size)=="number",
"bad argument #2 (number expected, got "..type(size)..")")

self.bufferMode=mode
self.bufferSize=size

return self.bufferMode,self.bufferSize
end

function buffer:write(...)
if self.closed then
return nil,"bad file descriptor"
end
if not self.mode.w and not self.mode.a then
return nil,"write mode was not enabled for this stream"
end
local args=table.pack(...)
for i=1,args.n do
if type(args[i])=="number"then
args[i]=tostring(args[i])
end
checkArg(i,args[i],"string")
end

for i=1,args.n do
local arg=args[i]
local result,reason

if self.bufferMode=="no"then
result,reason=self.stream:write(arg)
else
result,reason=buffer.buffered_write(self,arg)
end

if not result then
return nil,reason
end
end

return self
end

require("package").delay(buffer,"/lib/core/full_buffer.lua")

return buffer
F 368 /lib/colors.lua
local colors={
[0]="white",
[1]="orange",
[2]="magenta",
[3]="lightblue",
[4]="yellow",
[5]="lime",
[6]="pink",
[7]="gray",
[8]="silver",
[9]="cyan",
[10]="purple",
[11]="blue",
[12]="brown",
[13]="green",
[14]="red",
[15]="black"
}

do
local keys={}
for k in pairs(colors)do
table.insert(keys,k)
end
for _,k in pairs(keys)do
colors[colors[k]]=k
end
end

return colorsF 6766 /lib/devfs.lua
local fs=require("filesystem")
local text=require("text")

local api={}

local function new_node(proxy)
local node={proxy=proxy}
if not proxy or not proxy.list then
node.children={}
end
return node
end

local function array_read(array,separator)
separator=separator or" "
local builder={}
for _,value in ipairs(array)do
table.insert(builder,tostring(value))
end
return table.concat(builder,separator)
end

local function child_iterator(node)


local listed={}
if node then
if node.proxy and node.proxy.list then




local list=node.proxy.list
listed=type(list)=="table"and list or list()
elseif node.children then
listed=node.children
end
end
local availables={}
for name,item in pairs(listed)do
if name:len()>0 then
if not item.proxy then item=new_node(item)end
if not item.proxy.isAvailable or item.proxy.isAvailable()then
availables[name]=item
end
end
end
return pairs(availables)
end

local function get_child(node,name)
for child_name,child in child_iterator(node)do
if child_name==name then
return child
end
end
end

local function add_child(node,name,proxy)
if not node or node.proxy and node.proxy.list then
return nil,"cannot add child to listing proxy"
end

local child=new_node(proxy)
node.children[name]=child
return child
end

local function findNode(path,bCreate)
local segments=fs.segments(path)
local node=api.root
while#segments>0 do
local name=table.remove(segments,1)
local next=get_child(node,name)
if not next then
if bCreate then
if not add_child(node,name)then
return nil,"cannot create child node"
end
else
return nil,"no such file or directory"
end
end
node=next or get_child(node,name)
end
return node
end



api.root=new_node()

function api.create(path,proxy)
checkArg(1,path,"string")
checkArg(2,proxy,"table","nil")
local pwd=fs.path(path)
local name=fs.name(path)
if not name then return nil,"invalid devfs path"end
local pnode,why=findNode(pwd,true)
if not pnode then
return nil,why
end

if get_child(pnode,name)then
return nil,"file or directory exists"
end

return add_child(pnode,name,proxy)
end


api.proxy={}


local inject_dynamic_pairs
local function dynamic_list(path,fsnode)
local nodes,links,dirs={},{},{}
local node=findNode(path)
if node then
for name,cnode in child_iterator(node)do
if cnode.proxy and cnode.proxy.link then
links[name]=cnode.proxy.link
elseif cnode.proxy and cnode.proxy.list then
local child={name=name,parent=fsnode}
local child_path=path.."/"..name
inject_dynamic_pairs(child,child_path,true)
dirs[name]=child
else
nodes[name]=cnode
end
end
end
return nodes,links,dirs
end

inject_dynamic_pairs=function(fsnode,path,bStoreUse)
if getmetatable(fsnode)then return end
fsnode.children=nil
fsnode.links=nil
setmetatable(fsnode,
{
__index=function(tbl,key)
local bLinks=key=="links"
local bChildren=key=="children"
if not bLinks and not bChildren then return end
local _,links,dirs=dynamic_list(path,tbl)
if bStoreUse then
tbl.children=dirs
tbl.links=links
end
return bLinks and links or dirs
end
})
end

local label_lib=dofile("/lib/core/device_labeling.lua")
label_lib.loadRules()
api.getDeviceLabel=label_lib.getDeviceLabel
api.setDeviceLabel=label_lib.setDeviceLabel

local registered=false
function api.register(public_proxy)
if registered then return end
registered=true

local start_path="/lib/core/devfs/"
for starter in fs.list(start_path)do
local full_path=start_path..starter
local _,matched=starter:gsub("%.lua$","")
if matched>0 then
local data=dofile(full_path)
for name,entry in pairs(data)do
api.create(name,entry)
end
end
end

if rawget(public_proxy,"fsnode")then
inject_dynamic_pairs(public_proxy.fsnode,"")
end
end

function api.proxy.list(path)
local result={}
for name in pairs(dynamic_list(path,false))do
table.insert(result,name)
end
return result
end

function api.proxy.isDirectory(path)
local node=findNode(path)
return node and node.proxy and node.proxy.list
end

function api.proxy.size(path)
checkArg(1,path,"string")
local node=findNode(path)
if not node or not node.proxy then
return 0
end

local proxy=node.proxy
if proxy.list then return 0 end
if proxy.size then return proxy.size()end
if proxy.open then return 0 end
if proxy.read then return proxy.read():len()end
if proxy[1]~=nil then return array_read(proxy):len()end
return 0
end

function api.proxy.lastModified()
return 0
end

function api.proxy.exists(path)
checkArg(1,path,"string")
return not not findNode(path)
end

function api.getDevice(path)
checkArg(1,path,"string")
local device
local reason="no such device"
local real,why=fs.realPath(require("shell").resolve(path))
if not real then return nil,why end
if fs.exists(real)then


real=fs.path(real)..(fs.name(real)or"")
local part,subbed=real:gsub("^/dev/","")
if subbed>0 and part:len()>0 then
local node=findNode(part)
if node and node.proxy then

device=node.proxy.device
end
if not device then
reason="not a device"
end
else
device,reason=fs.get(real)
end
end
return device,reason
end

function api.proxy.open(path,mode)
checkArg(1,path,"string")
checkArg(2,mode,"string","nil")

mode=mode or"r"
local bRead=mode:match("[ra]")
local bWrite=mode:match("[wa]")

if not bRead and not bWrite then
return nil,"invalid mode"
end

local node,why=findNode(path)
if not node then
return nil,why
elseif not node.proxy or node.proxy.list then
return nil,"is a directory"
end

local proxy=node.proxy



if proxy.link then
return fs.open("/dev/"..path,mode)
end


if proxy[1]~=nil then
local array=proxy
proxy.read=function()return array_read(array)end
end

if proxy.open then
return proxy.open(mode)
end

if bRead and not proxy.read then
return nil,"cannot open for read"
elseif bWrite and not proxy.write then
return nil,"cannot open for write"
end

local txtRead=bRead and proxy.read()

if bWrite then
return text.internal.writer(proxy.write,mode,txtRead)
end

return text.internal.reader(txtRead,mode)
end




local function checked_invoke(handle,method,...)
checkArg(1,handle,"table")
checkArg(2,method,"string")
checkArg(3,handle[method],"function","table","nil")
local m=handle[method]
if not m then
return nil,"bad file handle"
elseif type(m)=="table"then
local mm=getmetatable(m)
assert(mm and mm.__call,string.format("FILE handle [%s] method defined, but is not callable",tostring(method)))
end
return m(handle,...)
end

function api.proxy.read(h,...)
return checked_invoke(h,"read",...)
end

function api.proxy.close(h,...)
return checked_invoke(h,"close",...)
end

function api.proxy.write(h,...)
return checked_invoke(h,"write",...)
end

function api.proxy.seek(h,...)
return checked_invoke(h,"seek",...)
end

function api.proxy.remove()
return nil,"cannot remove file or directory"
end

function api.proxy.makeDirectory()
return nil,"use create in the devfs api"
end

function api.proxy.setLabel()
return nil,"cannot set label on devfs"
end

return api
F 16502 /lib/diskpool.lua















local component=require("component")
local computer=require("computer")
local fs=require("filesystem")
local serialization=require("serialization")
local D={}

D.CFG="/etc/yaru-pools.cfg"
D.mounted=D.mounted or{}

D.PINNED={bin=true,boot=true,etc=true,lib=true,usr=true,["init.lua"]=true,autorun=true,[".autorun"]=true}



local function bootFs()return component.proxy(computer.getBootAddress())end
function D.load()
if D.unsaved then return D.unsaved end
local b=bootFs()
if not b or not b.exists(D.CFG)then return{}end
local h=b.open(D.CFG,"r")
if not h then return{}end
local parts={}
while true do
local d=b.read(h,2048)
if not d then break end
parts[#parts+1]=d
end
b.close(h)
local ok,t=pcall(serialization.unserialize,table.concat(parts))
return ok and type(t)=="table"and t or{}
end
function D.save(pools)
local b=bootFs()
local data=serialization.serialize(pools)
b.makeDirectory("/etc")
local h=b.open(D.CFG,"w")
if not h then return nil,"cannot write "..D.CFG..": the boot drive is full"end
local ok,err=b.write(h,data)
b.close(h)
if not ok then return nil,"cannot write "..D.CFG..": "..tostring(err)end
D.unsaved=nil
return true
end


local function copyFile(src,sp,dst,dp,tick)
local h,err=src.open(sp,"r")
if not h then return nil,err end
local o,err2=dst.open(dp,"w")
if not o then src.close(h);return nil,err2 end
local buf,n,k,ok,werr={},0,0,true,nil
while true do
local d=src.read(h,2048)
if d then buf[#buf+1]=d;n=n+#d end
if(not d or n>=16384)and n>0 then
ok,werr=dst.write(o,table.concat(buf))
buf,n={},0
if not ok then break end
k=k+1
if tick and k%4==0 then tick()end
end
if not d then break end
end
src.close(h)
dst.close(o)
if not ok then dst.remove(dp);return nil,werr or"write failed"end
return true
end
D.copyFile=copyFile
function D.newId()
local used={}
for _,p in ipairs(D.load())do used[p.id]=true end
local seed=math.floor((os.time()or 0)+computer.uptime()*1000)
while true do
seed=(seed*1103515245+12345)%2147483648
local id=string.format("%06x",(seed+math.random(0,0xFFFF))%0x1000000)
if not used[id]then return id end
end
end
function D.systemPool(pools)
for _,p in ipairs(pools or D.load())do if p.system then return p end end
end

local function clean(path)
path=(path or""):gsub("\\","/"):gsub("/+","/"):gsub("^/",""):gsub("/$","")
return path
end
local function parent(path)
return path:match("^(.*)/[^/]*$")or""
end



local function prefixOf(pool,addr)
if pool.system and addr==pool.root then return""end
return"/.pool-"..pool.id
end
D.prefixOf=prefixOf

function D.proxy(pool)
local P={address=pool.system and pool.root or("pool-"..pool.id),type="filesystem",pool=pool,slot=-1}
local handles,nextHandle={},1
local cache

local function mp(m,path)
path=clean(path)
local pre=prefixOf(pool,m.address)
if path==""then return pre==""and"/"or pre end
return pre.."/"..path
end

local function members()
if cache then return cache end
local r={}
for _,a in ipairs(pool.members)do
if component.type(a)=="filesystem"then
local ok,p=pcall(component.proxy,a)
if ok and p then r[#r+1]=p end
end
end
cache=r
return r
end
P.members=members
function P.invalidate()cache=nil end
local function free(m)
local ok,t,u=pcall(function()return m.spaceTotal(),m.spaceUsed()end)
if not ok then return 0 end
return(t or 0)-(u or 0)
end
local function whereIs(path)
for _,m in ipairs(members())do if m.exists(mp(m,path))then return m end end
end
local function roomiest(need,except)
local best,bf
for _,m in ipairs(members())do
if(not except or m.address~=except.address)and not m.isReadOnly()then
local f=free(m)
if(not bf or f>bf)and f>=(need or 0)then best,bf=m,f end
end
end
return best
end

local function placeNew(path,need)
if pool.system then
local top=clean(path):match("^[^/]+")
if top and D.PINNED[top]then
for _,m in ipairs(members())do
if m.address==pool.root and free(m)>=(need or 0)+1024 then return m end
end
end
end
return roomiest(need or 1)
end
local function ensureParent(m,path)
local par=parent(clean(path))
if par~=""then m.makeDirectory(mp(m,par))end
end

function P.spaceTotal()
local n=0
for _,m in ipairs(members())do n=n+(m.spaceTotal()or 0)end
return n
end
function P.spaceUsed()
local n=0
for _,m in ipairs(members())do n=n+(m.spaceUsed()or 0)end
return n
end
function P.isReadOnly()return roomiest(0)==nil end
function P.getLabel()
if pool.system then
for _,m in ipairs(members())do if m.address==pool.root then return m.getLabel()end end
end
return pool.name
end
function P.setLabel(s)
if pool.system then
for _,m in ipairs(members())do if m.address==pool.root then return m.setLabel(s)end end
end
pool.name=tostring(s or pool.name)
return pool.name
end
function P.exists(path)
if clean(path)==""then return true end
return whereIs(path)~=nil
end
function P.isDirectory(path)
for _,m in ipairs(members())do if m.isDirectory(mp(m,path))then return true end end
return false
end
function P.size(path)
local m=whereIs(path)
return m and m.size(mp(m,path))or 0
end
function P.lastModified(path)
local m=whereIs(path)
return m and m.lastModified(mp(m,path))or 0
end
function P.list(path)
local seen,out={},{}
local any=false
local atRoot=clean(path)==""
for _,m in ipairs(members())do
local p=mp(m,path)
if m.isDirectory(p)then
any=true
local hidePre=atRoot and prefixOf(pool,m.address)==""
for _,name in ipairs(m.list(p)or{})do
if not seen[name]and not(hidePre and name:match("^%.pool%-"))then seen[name]=true;out[#out+1]=name end
end
end
end
if not any then return nil,"no such file or directory"end
table.sort(out)
out.n=#out
return out
end
function P.makeDirectory(path)
local ok=false
for _,m in ipairs(members())do
if not m.isReadOnly()and m.makeDirectory(mp(m,path))then ok=true end
end
return ok
end
function P.remove(path)
local ok=false
for _,m in ipairs(members())do
local p=mp(m,path)
if m.exists(p)and m.remove(p)then ok=true end
end
return ok
end
function P.rename(from,to)
local ok=false
for _,m in ipairs(members())do
if m.exists(mp(m,from))then
ensureParent(m,to)
if m.exists(mp(m,to))then m.remove(mp(m,to))end
if m.rename(mp(m,from),mp(m,to))then ok=true end
end
end
return ok
end

function P.open(path,mode)
mode=mode or"r"
if P.isDirectory(path)then return nil,path end
local m=whereIs(path)
if mode:sub(1,1)=="r"then
if not m then return nil,path end
else
if not m then
m=placeNew(path,1)
if not m then return nil,"not enough space"end
ensureParent(m,path)
end

for _,o in ipairs(members())do if o.address~=m.address and o.exists(mp(o,path))then o.remove(mp(o,path))end end
end
local h,err=m.open(mp(m,path),mode)
if not h then return nil,err end
local id=nextHandle
nextHandle=nextHandle+1
handles[id]={m=m,h=h,mode=mode,path=path}
return id
end
function P.read(id,n)
local e=handles[id]
if not e then return nil,"bad file descriptor"end
return e.m.read(e.h,n)
end
function P.seek(id,whence,off)
local e=handles[id]
if not e then return nil,"bad file descriptor"end
return e.m.seek(e.h,whence,off)
end
function P.close(id)
local e=handles[id]
if not e then return nil,"bad file descriptor"end
handles[id]=nil
return e.m.close(e.h)
end

local function migrate(e,extra)
local old=e.m
local p=mp(old,e.path)
old.close(e.h)
local size=old.size(p)
local target=roomiest(size+extra,old)
if not target then
e.h=old.open(p,"a")
return nil,"not enough space"
end
ensureParent(target,e.path)
local tp=mp(target,e.path)
local ok,err=copyFile(old,p,target,tp)
if not ok then e.h=old.open(p,"a");return nil,err end
old.remove(p)
e.m=target
e.h=target.open(tp,"a")
return e.h~=nil
end
function P.write(id,data)
local e=handles[id]
if not e then return nil,"bad file descriptor"end
local ok,err=e.m.write(e.h,data)
if not ok and tostring(err):lower():find("space")then
local moved,merr=migrate(e,#data)
if not moved then return nil,merr end
return e.m.write(e.h,data)
end
return ok,err
end
return P
end


local function mountPath(pool)
if pool.system then return"/"end
if pool.mount and pool.mount~=""then return pool.mount end
local name=(pool.name or"pool"):lower():gsub("[^%w%-_]","_")
return"/mnt/"..name
end
D.mountPath=mountPath



local function rootNode()
local cur=fs.get("/")
if not cur then return end
if cur.pool then return cur.fsnode,cur.orig end
return cur.fsnode,cur
end
local function attachRoot(proxy)
local node,orig=rootNode()
if not node or not orig then return nil,"root file system not found"end
proxy.fsnode=node
proxy.orig=orig
node.fs=proxy
return true
end
local function detachRoot()
local node,orig=rootNode()
if node and orig and node.fs~=orig then node.fs=orig end
end
D.detachRoot=detachRoot

local function hideMembers(pool)
if pool.hide==false then return end
local hide={}
for _,a in ipairs(pool.members)do hide[a]=true end
local drop={}
for p,at in fs.mounts()do
if p.address and hide[p.address]and at:match("^/mnt/[^/]+$")then drop[#drop+1]=at end
end
for _,at in ipairs(drop)do fs.umount(at)end
end


function D.mountAll(pools)
pools=pools or D.load()
local want={}
local hasSystem=false
for _,pool in ipairs(pools)do
want[pool.id]=true
local present=0
for _,a in ipairs(pool.members or{})do if component.type(a)=="filesystem"then present=present+1 end end
local cur=D.mounted[pool.id]
if cur and not pool.system then fs.umount(cur.path)end
D.mounted[pool.id]=nil
if present>0 then
local proxy=D.proxy(pool)
for _,m in ipairs(proxy.members())do
local pre=prefixOf(pool,m.address)
if pre~=""then pcall(m.makeDirectory,pre)end
end
local path=mountPath(pool)
local ok
if pool.system then
hasSystem=true
ok=attachRoot(proxy)
else
fs.makeDirectory(path)
ok=fs.mount(proxy,path)
end
if ok then D.mounted[pool.id]={proxy=proxy,path=path,present=present,total=#pool.members,system=pool.system}end
hideMembers(pool)
end
end
if not hasSystem then detachRoot()end
for id,cur in pairs(D.mounted)do
if not want[id]then
if cur.system then detachRoot()else fs.umount(cur.path)end
D.mounted[id]=nil
end
end
return pools
end


function D.watch()
if D.watching then return end
D.watching=true
local event=require("event")
local pending
local function remount(name,_,ctype)
if ctype~="filesystem"then return end
if name=="component_removed"then
for _,cur in pairs(D.mounted)do if cur.proxy.invalidate then cur.proxy.invalidate()end end
end
if pending then return end

pending=event.timer(0.5,function()pending=nil;pcall(D.mountAll)end)
end
event.listen("component_added",remount)
event.listen("component_removed",remount)
end


function D.candidates(pools)
local used={}
for _,pool in ipairs(pools or D.load())do for _,a in ipairs(pool.members)do used[a]=pool.name end end
local r={}
for addr in component.list("filesystem")do
if addr~=computer.getBootAddress()and addr~=computer.tmpAddress()then
local p=component.proxy(addr)
if p and not p.isReadOnly()then
r[#r+1]={addr=addr,label=p.getLabel()or addr:sub(1,8),total=p.spaceTotal(),used=p.spaceUsed(),pool=used[addr]}
end
end
end
table.sort(r,function(a,b)return a.addr<b.addr end)
return r
end




local KEEP={bin=true,boot=true,etc=true,lib=true,["init.lua"]=true,autorun=true,[".autorun"]=true}
function D.reserve(total)return math.max(128*1024,total//20)end
function D.relieveBoot(sys,step)
local boot=component.proxy(sys.root)
local reserve=D.reserve(boot.spaceTotal())
local function bfree()return boot.spaceTotal()-boot.spaceUsed()end
if bfree()>=reserve then return 0 end
local others,room={},0
for _,a in ipairs(sys.members)do
if a~=sys.root and component.type(a)=="filesystem"then
local p=component.proxy(a)
if not p.isReadOnly()then others[#others+1]=p;room=room+p.spaceTotal()-p.spaceUsed()end
end
end

local files,movable,seen={},0,0
local function add(path,tier)
local size=boot.size(path)
files[#files+1]={path,size,tier}
movable=movable+size
end
local function walk(dir,tier)
for _,name in ipairs(boot.list(dir)or{})do
seen=seen+1
if step and seen%64==0 then step(0,"looking for files to move…")end
local path=dir.."/"..name:gsub("/$","")
if name:sub(-1)=="/"then walk(path,tier)else add(path,tier)end
end
end
for _,name in ipairs(boot.list("/")or{})do
local top=name:gsub("/$","")
if not KEEP[top]and not top:match("^%.pool%-")then
if name:sub(-1)=="/"then walk("/"..top,top=="usr"and 2 or 1)else add("/"..top,1)end
end
end
local need=reserve-bfree()
if movable<need then
return nil,string.format("the boot drive is full and only %d KB of it are not system files",movable//1024)
end
if room<need+4096 then
return nil,string.format("the other drives need %d KB more free space to take files off the boot drive",(need+4096-room)//1024+1)
end
table.sort(files,function(a,b)if a[3]~=b[3]then return a[3]<b[3]end return a[2]>b[2]end)
local moved,tooBig=0,nil
for _,f in ipairs(files)do
if bfree()>=reserve then break end
local target,tf
for _,o in ipairs(others)do
local fr=o.spaceTotal()-o.spaceUsed()
if fr>=f[2]+2048 and(not tf or fr>tf)then target,tf=o,fr end
end
if target then
local dp=prefixOf(sys,target.address)..f[1]
target.makeDirectory(dp:match("^(.*)/[^/]*$"))
if copyFile(boot,f[1],target,dp,step and function()step(moved,f[1])end)then
boot.remove(f[1])
moved=moved+1
if step then step(moved,f[1])end
end
elseif not tooBig then
tooBig=f
end
end
if bfree()<reserve and tooBig then
return moved,string.format("%s (%d KB) does not fit on any of the other drives",tooBig[1],tooBig[2]//1024)
end
return moved
end

function D.joinSystem(addrs,step)
local pools=D.load()
local sys=D.systemPool(pools)
if not sys then
sys={id=D.newId(),name="System",system=true,root=computer.getBootAddress(),members={computer.getBootAddress()},hide=true}
pools[#pools+1]=sys
end
local have={}
for _,a in ipairs(sys.members)do have[a]=true end
for _,a in ipairs(addrs)do if not have[a]then sys.members[#sys.members+1]=a;have[a]=true end end

D.unsaved=pools
D.mountAll(pools)
local moved,err=D.relieveBoot(sys,step)
local note=moved and err
if not moved then
D.unsaved=nil
D.mountAll()
return nil,err
end
local ok,serr=D.save(pools)
if not ok then return nil,serr..(note and("; "..note)or"").." (the drives stay joined until the computer restarts)"end
return sys,moved
end



function D.split(step)
local pools=D.load()
local sys=D.systemPool(pools)
if not sys then return 0 end
local boot=component.proxy(sys.root)

local need,seen=0,0
local function size(m,path)
local n=0
for _,name in ipairs(m.list(path)or{})do
seen=seen+1
if step and seen%32==0 then step(0,"checking space…")end
local p=path.."/"..name:gsub("/$","")
if name:sub(-1)=="/"then n=n+size(m,p)+512 else n=n+m.size(p)+512 end
end
return n
end
for _,a in ipairs(sys.members)do
if a~=sys.root and component.type(a)=="filesystem"then need=need+size(component.proxy(a),prefixOf(sys,a))end
end
local room=boot.spaceTotal()-boot.spaceUsed()
if need>room then
return nil,string.format("the boot drive needs %d KB more free space to take the files back",(need-room+1023)//1024)
end
local done=0
for _,a in ipairs(sys.members)do
if a~=sys.root and component.type(a)=="filesystem"then
done=done+D.drain(sys,a,step and function(n,name)step(done+n,name)end,sys.root)
end
end
for i,p in ipairs(pools)do if p==sys then table.remove(pools,i)break end end
D.save(pools)
D.mountAll()

for _,a in ipairs(sys.members)do
if a~=sys.root and component.type(a)=="filesystem"then
local mounted=false
for p in fs.mounts()do if p.address==a then mounted=true end end
if not mounted then pcall(fs.mount,component.proxy(a),"/mnt/"..a:sub(1,3))end
end
end
return done
end



function D.drain(pool,addr,step,onlyTo)
if pool.system and addr==pool.root then error("the boot drive cannot leave the system disk")end
local proxy=D.proxy(pool)
local m=component.proxy(addr)
local pre=prefixOf(pool,addr)
local others={}
for _,o in ipairs(proxy.members())do if o.address~=addr and not o.isReadOnly()and(not onlyTo or o.address==onlyTo)then others[#others+1]=o end end
local done=0
local function free(o)return o.spaceTotal()-o.spaceUsed()end
local function walk(dir)
for _,name in ipairs(m.list(pre..dir)or{})do
local rel=dir.."/"..name:gsub("/$","")
if name:sub(-1)=="/"then
for _,o in ipairs(others)do o.makeDirectory(prefixOf(pool,o.address)..rel)end
walk(rel)
else
local size=m.size(pre..rel)
local target
for _,o in ipairs(others)do if free(o)>=size+512 and(not target or free(o)>free(target))then target=o end end
if not target then error("not enough free space on the other drives for "..rel)end
local tpre=prefixOf(pool,target.address)
target.makeDirectory(tpre..(rel:match("^(.*)/[^/]*$")or""))
assert(copyFile(m,pre..rel,target,tpre..rel,step and function()step(done,rel)end))
m.remove(pre..rel)
done=done+1
if step then step(done,rel)end
end
end
end
walk("")
if pre~=""then m.remove(pre)end
return done
end

return D
F 3662 /lib/event.lua
local computer=require("computer")
local keyboard=require("keyboard")

local event={}
local handlers={}
local lastInterrupt=-math.huge

event.handlers=handlers

function event.register(key,callback,interval,times,opt_handlers)
local handler=
{
key=key,
times=times or 1,
callback=callback,
interval=interval or math.huge,
}

handler.timeout=computer.uptime()+handler.interval
opt_handlers=opt_handlers or handlers

local id=0
repeat
id=id+1
until not opt_handlers[id]

opt_handlers[id]=handler
return id
end

local _pullSignal=computer.pullSignal
setmetatable(handlers,{__call=function(_,...)return _pullSignal(...)end})
computer.pullSignal=function(seconds)
checkArg(1,seconds,"number","nil")
seconds=seconds or math.huge
local uptime=computer.uptime
local deadline=uptime()+seconds
repeat
local interrupting=uptime()-lastInterrupt>1 and keyboard.isControlDown()and keyboard.isKeyDown(keyboard.keys.c)
and(not event.interruptHook or event.interruptHook())
if interrupting then
lastInterrupt=uptime()
if keyboard.isAltDown()then
require("process").info().data.signal("interrupted",0)
return
end
event.push("interrupted",lastInterrupt)
end

local closest=deadline
for _,handler in pairs(handlers)do
local timeout=handler.timeout
if timeout<closest then closest=timeout end
end

local event_data=table.pack(handlers(closest-uptime()))
local signal=event_data[1]
local copy={}
for id,handler in pairs(handlers)do
copy[id]=handler
end
for id,handler in pairs(copy)do


if(handler.key==nil or handler.key==signal)or uptime()>=handler.timeout then
handler.times=handler.times-1
handler.timeout=handler.timeout+handler.interval


if handler.times<=0 and handlers[id]==handler then
handlers[id]=nil
end

local result,message=pcall(handler.callback,table.unpack(event_data,1,event_data.n))
if not result then
pcall(event.onError,message)
elseif message==false and handlers[id]==handler then
handlers[id]=nil
end
end
end
if signal then
return table.unpack(event_data,1,event_data.n)
end
until uptime()>=deadline
end

local function createPlainFilter(name,...)
local filter=table.pack(...)
if name==nil and filter.n==0 then
return nil
end

return function(...)
local signal=table.pack(...)
if name and not(type(signal[1])=="string"and signal[1]:match(name))then
return false
end
for i=1,filter.n do
if filter[i]~=nil and filter[i]~=signal[i+1]then
return false
end
end
return true
end
end



function event.listen(name,callback)
checkArg(1,name,"string")
checkArg(2,callback,"function")
for _,handler in pairs(handlers)do
if handler.key==name and handler.callback==callback then
return false
end
end
return event.register(name,callback,math.huge,math.huge)
end

function event.pull(...)
local args=table.pack(...)
if type(args[1])=="string"then
return event.pullFiltered(createPlainFilter(...))
else
checkArg(1,args[1],"number","nil")
checkArg(2,args[2],"string","nil")
return event.pullFiltered(args[1],createPlainFilter(select(2,...)))
end
end

function event.pullFiltered(...)
local args=table.pack(...)
local seconds,filter=math.huge

if type(args[1])=="function"then
filter=args[1]
else
checkArg(1,args[1],"number","nil")
checkArg(2,args[2],"function","nil")
seconds=args[1]
filter=args[2]
end

local deadline=computer.uptime()+(seconds or math.huge)
repeat
local waitTime=deadline-computer.uptime()
if waitTime<0 then
break
end
local signal=table.pack(computer.pullSignal(waitTime))
if signal.n>0 then
if not(seconds or filter)or filter==nil or filter(table.unpack(signal,1,signal.n))then
return table.unpack(signal,1,signal.n)
end
end
until signal.n==0
end


event.push=computer.pushSignal

require("package").delay(event,"/lib/core/full_event.lua")



return event
F 6282 /lib/filesystem.lua
local component=require("component")
local unicode=require("unicode")

local filesystem={}
local mtab={name="",children={},links={}}
local fstab={}

local function segments(path)
local parts={}
for part in path:gmatch("[^\\/]+")do
local current,up=part:find("^%.?%.$")
if current then
if up==2 then
table.remove(parts)
end
else
table.insert(parts,part)
end
end
return parts
end

local function findNode(path,create,resolve_links)
checkArg(1,path,"string")
local visited={}
local parts=segments(path)
local ancestry={}
local node=mtab
local index=1
while index<=#parts do
local part=parts[index]
ancestry[index]=node
if not node.children[part]then
local link_path=node.links[part]
if link_path then
if not resolve_links and#parts==index then break end

if visited[path]then
return nil,string.format("link cycle detected '%s'",path)
end

visited[path]=index
local pst_path="/"..table.concat(parts,"/",index+1)
local pre_path

if link_path:match("^[^/]")then
pre_path=table.concat(parts,"/",1,index-1).."/"
local link_parts=segments(link_path)
local join_parts=segments(pre_path..link_path)
local back=(index-1+#link_parts)-#join_parts
index=index-back
node=ancestry[index]
else
pre_path=""
index=1
node=mtab
end

path=pre_path..link_path..pst_path
parts=segments(path)
part=nil
elseif create then
node.children[part]={name=part,parent=node,children={},links={}}
else
break
end
end
if part then
node=node.children[part]
index=index+1
end
end

local vnode,vrest=node,#parts>=index and table.concat(parts,"/",index)
local rest=vrest
while node and not node.fs do
rest=rest and filesystem.concat(node.name,rest)or node.name
node=node.parent
end
return node,rest,vnode,vrest
end



function filesystem.canonical(path)
local result=table.concat(segments(path),"/")
if unicode.sub(path,1,1)=="/"then
return"/"..result
else
return result
end
end

function filesystem.concat(...)
local set=table.pack(...)
for index,value in ipairs(set)do
checkArg(index,value,"string")
end
return filesystem.canonical(table.concat(set,"/"))
end

function filesystem.get(path)
local node=findNode(path)
if node.fs then
local proxy=node.fs
path=""
while node and node.parent do
path=filesystem.concat(node.name,path)
node=node.parent
end
path=filesystem.canonical(path)
if path~="/"then
path="/"..path
end
return proxy,path
end
return nil,"no such file system"
end

function filesystem.realPath(path)
checkArg(1,path,"string")
local node,rest=findNode(path,false,true)
if not node then return nil,rest end
local parts={rest or nil}
repeat
table.insert(parts,1,node.name)
node=node.parent
until not node
return table.concat(parts,"/")
end

function filesystem.mount(fs,path)
checkArg(1,fs,"string","table")
if type(fs)=="string"then
fs=filesystem.proxy(fs)
end
assert(type(fs)=="table","bad argument #1 (file system proxy or address expected)")
checkArg(2,path,"string")

local real
if not mtab.fs then
if path=="/"then
real=path
else
return nil,"rootfs must be mounted first"
end
else
local why
real,why=filesystem.realPath(path)
if not real then
return nil,why
end

if filesystem.exists(real)and not filesystem.isDirectory(real)then
return nil,"mount point is not a directory"
end
end

local fsnode
if fstab[real]then
return nil,"another filesystem is already mounted here"
end
for _,node in pairs(fstab)do
if node.fs.address==fs.address then
fsnode=node
break
end
end

if not fsnode then
fsnode=select(3,findNode(real,true))

fs.fsnode=fsnode
else
local pwd=filesystem.path(real)
local parent=select(3,findNode(pwd,true))
local name=filesystem.name(real)
fsnode=setmetatable({name=name,parent=parent},{__index=fsnode})
parent.children[name]=fsnode
end

fsnode.fs=fs
fstab[real]=fsnode

return true
end

function filesystem.path(path)
local parts=segments(path)
local result=table.concat(parts,"/",1,#parts-1).."/"
if unicode.sub(path,1,1)=="/"and unicode.sub(result,1,1)~="/"then
return"/"..result
else
return result
end
end

function filesystem.name(path)
checkArg(1,path,"string")
local parts=segments(path)
return parts[#parts]
end

function filesystem.proxy(filter,options)
checkArg(1,filter,"string")
if not component.list("filesystem")[filter]or next(options or{})then

return filesystem.internal.proxy(filter,options)
end
return component.proxy(filter)
end

function filesystem.exists(path)
if not filesystem.realPath(filesystem.path(path))then
return false
end
local node,rest,vnode,vrest=findNode(path)
if not vrest or vnode.links[vrest]then
return true
elseif node and node.fs then
return node.fs.exists(rest)
end
return false
end

function filesystem.isDirectory(path)
local real,reason=filesystem.realPath(path)
if not real then return nil,reason end
local node,rest,vnode,vrest=findNode(real)
if not vnode.fs and not vrest then
return true
end
if node.fs then
return not rest or node.fs.isDirectory(rest)
end
return false
end

function filesystem.list(path)
local node,rest,vnode,vrest=findNode(path,false,true)
local result={}
if node then
result=node.fs and node.fs.list(rest or"")or{}


if not vrest then
for k,n in pairs(vnode.children)do
if not n.fs or fstab[filesystem.concat(path,k)]then
table.insert(result,k.."/")
end
end
for k in pairs(vnode.links)do
table.insert(result,k)
end
end
end
local set={}
for _,name in ipairs(result)do
set[filesystem.canonical(name)]=name
end
return function()
local key,value=next(set)
set[key or false]=nil
return value
end
end

function filesystem.open(path,mode)
checkArg(1,path,"string")
mode=tostring(mode or"r")
checkArg(2,mode,"string")

assert(({r=true,rb=true,w=true,wb=true,a=true,ab=true})[mode],
"bad argument #2 (r[b], w[b] or a[b] expected, got "..mode..")")

local node,rest=findNode(path,false,true)
if not node then
return nil,rest
end
if not node.fs or not rest or(({r=true,rb=true})[mode]and not node.fs.exists(rest))then
return nil,"file not found"
end

local handle,reason=node.fs.open(rest,mode)
if not handle then
return nil,reason
end

return setmetatable({
fs=node.fs,
handle=handle,
},{__index=function(tbl,key)
if not tbl.fs[key]then return end
if not tbl.handle then
return nil,"file is closed"
end
return function(self,...)
local h=self.handle
if key=="close"then
self.handle=nil
end
return self.fs[key](h,...)
end
end})
end

filesystem.findNode=findNode
filesystem.segments=segments
filesystem.fstab=fstab



return filesystem
F 2321 /lib/internet.lua
local buffer=require("buffer")
local component=require("component")

local internet={}



function internet.request(url,data,headers,method)
checkArg(1,url,"string")
checkArg(2,data,"string","table","nil")
checkArg(3,headers,"table","nil")
checkArg(4,method,"string","nil")

if not component.isAvailable("internet")then
error("no primary internet card found",2)
end
local inet=component.internet

local post
if type(data)=="string"then
post=data
elseif type(data)=="table"then
for k,v in pairs(data)do
post=post and(post.."&")or""
post=post..tostring(k).."="..tostring(v)
end
end

local request,reason=inet.request(url,post,headers,method)
if not request then
error(reason,2)
end

return setmetatable(
{
["()"]="function():string -- Tries to read data from the socket stream and return the read byte array.",
close=setmetatable({},
{
__call=request.close,
__tostring=function()return"function() -- closes the connection"end
})
},
{
__call=function()
while true do
local data,reason=request.read()
if not data then
request.close()
if reason then
error(reason,2)
else
return nil
end
elseif#data>0 then
return data
end

os.sleep(0)
end
end,
__index=request,
})
end



local socketStream={}

function socketStream:close()
if self.socket then
self.socket.close()
self.socket=nil
end
end

function socketStream:seek()
return nil,"bad file descriptor"
end

function socketStream:read(n)
if not self.socket then
return nil,"connection is closed"
end
return self.socket.read(n)
end

function socketStream:write(value)
if not self.socket then
return nil,"connection is closed"
end
while#value>0 do
local written,reason=self.socket.write(value)
if not written then
return nil,reason
end
value=string.sub(value,written+1)
end
return true
end

function internet.socket(address,port)
checkArg(1,address,"string")
checkArg(2,port,"number","nil")
if port then
address=address..":"..port
end

local inet=component.internet
local socket,reason=inet.connect(address)
if not socket then
return nil,reason
end

local stream={inet=inet,socket=socket}
local metatable={__index=socketStream,
__metatable="socketstream"}
return setmetatable(stream,metatable)
end

function internet.open(address,port)
local stream,reason=internet.socket(address,port)
if not stream then
return nil,reason
end
return buffer.new("rwb",stream)
end



return internetF 2160 /lib/io.lua
local io={}



function io.close(file)
return(file or io.output()):close()
end

function io.flush()
return io.output():flush()
end

function io.lines(filename,...)
if filename then
local file,reason=io.open(filename)
if not file then
error(reason,2)
end
local args=table.pack(...)
return function()
local result=table.pack(file:read(table.unpack(args,1,args.n)))
if not result[1]then
if result[2]then
error(result[2],2)
else
file:close()
return nil
end
end
return table.unpack(result,1,result.n)
end
else
return io.input():lines()
end
end

function io.open(path,mode)

local resolved_path=require("shell").resolve(path)
local stream,result=require("filesystem").open(resolved_path,mode)
if stream then
return require("buffer").new(mode,stream)
else
return nil,result
end
end

function io.stream(fd,file,mode)
checkArg(1,fd,'number')
checkArg(2,file,"table","string","nil")
assert(fd>=0,'fd must be >= 0. 0 is input, 1 is stdout, 2 is stderr')
local dio=require("process").info().data.io
if file then
if type(file)=="string"then
file=assert(io.open(file,mode))
end
dio[fd]=file
end
return dio[fd]
end

function io.input(file)
return io.stream(0,file,'r')
end

function io.output(file)
return io.stream(1,file,'w')
end

function io.error(file)
return io.stream(2,file,'w')
end

function io.popen(prog,mode,env)
return require("pipe").popen(prog,mode,env)
end

function io.read(...)
return io.input():read(...)
end

function io.tmpfile()
local name=os.tmpname()
if name then
return io.open(name,"a")
end
end

function io.type(object)
if type(object)=="table"then
if getmetatable(object)=="file"then
if object.stream.handle then
return"file"
else
return"closed file"
end
end
end
return nil
end

function io.write(...)
return io.output():write(...)
end

local dup_mt={__index=function(dfd,key)
local fd_value=dfd.fd[key]
if key~="close"and type(fd_value)~="function"then return fd_value end
return function(self,...)
if key=="close"or self._closed then self._closed=true return end
return fd_value(self.fd,...)
end
end,__newindex=function(dfd,key,value)
dfd.fd[key]=value
end}

function io.dup(fd)
return setmetatable({fd=fd,_closed=false},dup_mt)
end



return io
F 1238 /lib/keyboard.lua
local keyboard={pressedChars={},pressedCodes={}}




keyboard.keys={
c=0x2E,
d=0x20,
q=0x10,
w=0x11,
back=0x0E,
delete=0xD3,
down=0xD0,
enter=0x1C,
home=0xC7,
lcontrol=0x1D,
left=0xCB,
lmenu=0x38,
lshift=0x2A,
pageDown=0xD1,
rcontrol=0x9D,
right=0xCD,
rmenu=0xB8,
rshift=0x36,
space=0x39,
tab=0x0F,
up=0xC8,
["end"]=0xCF,
numpadenter=0x9C,
}



function keyboard.isAltDown()
return keyboard.pressedCodes[keyboard.keys.lmenu]or keyboard.pressedCodes[keyboard.keys.rmenu]
end

function keyboard.isControl(char)
return type(char)=="number"and(char<0x20 or(char>=0x7F and char<=0x9F))
end

function keyboard.isControlDown()
return keyboard.pressedCodes[keyboard.keys.lcontrol]or keyboard.pressedCodes[keyboard.keys.rcontrol]
end

function keyboard.isKeyDown(charOrCode)
checkArg(1,charOrCode,"string","number")
if type(charOrCode)=="string"then
return keyboard.pressedChars[utf8 and utf8.codepoint(charOrCode)or charOrCode:byte()]
elseif type(charOrCode)=="number"then
return keyboard.pressedCodes[charOrCode]
end
end

function keyboard.isShiftDown()
return keyboard.pressedCodes[keyboard.keys.lshift]or keyboard.pressedCodes[keyboard.keys.rshift]
end



require("package").delay(keyboard.keys,"/lib/core/full_keyboard.lua")

return keyboard
F 2250 /lib/note.lua


local computer=require("computer")

local note={}

local notes={}

local reverseNotes={}

do

local tempNotes={
"c",
"c#",
"d",
"d#",
"e",
"f",
"f#",
"g",
"g#",
"a",
"a#",
"b"
}

local sNotes={}

local bNotes={}


do
table.insert(sNotes,"a0")
table.insert(sNotes,"a#0")
table.insert(bNotes,"bb0")
table.insert(sNotes,"b0")
for i=1,6 do
for _,v in ipairs(tempNotes)do
table.insert(sNotes,v..tostring(i))
if#v==1 and v~="c"and v~="f"then
table.insert(bNotes,v.."b"..tostring(i))
end
end
end
end
for i=21,95 do
notes[sNotes[i-20]]=tostring(i)
end


do
for k,v in pairs(notes)do
reverseNotes[tonumber(v)]=k
end
end


for k,v in ipairs(bNotes)do
notes[v]=tostring(notes[string.gsub(v,"(.)b(.)","%1%2")]-1)
end
end


function note.midi(n)
if type(n)=="string"then
n=string.lower(n)
if tonumber(notes[n])~=nil then
return tonumber(notes[n])
else
error("Wrong input "..tostring(n).." given to note.midi, needs to be <note>[semitone sign]<octave>, e.g. A#0 or Gb4")
end
elseif type(n)=="number"then
return math.floor((12*math.log(n/440,2))+69)
else
error("Wrong input "..tostring(n).." given to note.midi, needs to be a number or a string")
end
end


function note.freq(n)
if type(n)=="string"then
n=string.lower(n)
if tonumber(notes[n])~=nil then
return math.pow(2,(tonumber(notes[n])-69)/12)*440
else
error("Wrong input "..tostring(n).." given to note.freq, needs to be <note>[semitone sign]<octave>, e.g. A#0 or Gb4",2)
end
elseif type(n)=="number"then
return math.pow(2,(n-69)/12)*440
else
error("Wrong input "..tostring(n).." given to note.freq, needs to be a number or a string",2)
end
end


function note.name(n)
n=tonumber(n)
if reverseNotes[n]then
return string.upper(string.match(reverseNotes[n],"^(.)"))..string.gsub(reverseNotes[n],"^.(.*)","%1")
else
error("Attempt to get a note for a non-exsisting MIDI code",2)
end
end


function note.ticks(n)
if type(n)=="number"then
if n>=0 and n<=24 then
return n+34
elseif n>=34 and n<=58 then
return n-34
else
error("Wrong input "..tostring(n).." given to note.ticks, needs to be a number [0-24 or 34-58]",2)
end
else
error("Wrong input "..tostring(n).." given to note.ticks, needs to be a number",2)
end
end


function note.play(tone,duration)
computer.beep(note.freq(tone),duration)
end

return note
F 20040 /lib/occss.lua






local C={}

local INHERIT={color=1,["font-weight"]=1,["font-style"]=1,["text-align"]=1,["white-space"]=1,
visibility=1,["list-style-type"]=1,["font-size"]=1,["text-transform"]=1,["line-height"]=1,
["letter-spacing"]=1,cursor=1}
local KEEP={display=1,visibility=1,color=1,["background-color"]=1,["background-image"]=1,background=1,
width=1,["max-width"]=1,["min-width"]=1,height=1,["min-height"]=1,["max-height"]=1,
margin=1,["margin-top"]=1,["margin-bottom"]=1,["margin-left"]=1,["margin-right"]=1,
padding=1,["padding-top"]=1,["padding-bottom"]=1,["padding-left"]=1,["padding-right"]=1,
border=1,["border-top"]=1,["border-bottom"]=1,["border-left"]=1,["border-right"]=1,["border-color"]=1,
["border-width"]=1,["border-style"]=1,["border-radius"]=1,
["text-align"]=1,["font-weight"]=1,["font-size"]=1,["font-style"]=1,["white-space"]=1,float=1,
position=1,["flex-direction"]=1,flex=1,["flex-grow"]=1,["flex-basis"]=1,["flex-wrap"]=1,
["flex-flow"]=1,["justify-content"]=1,["align-items"]=1,gap=1,["column-gap"]=1,["row-gap"]=1,
["grid-template-columns"]=1,["grid-column"]=1,["list-style"]=1,["list-style-type"]=1,
["text-transform"]=1,opacity=1,overflow=1,["line-height"]=1,clear=1,["vertical-align"]=1,
["text-decoration"]=1,["object-fit"]=1,["background-size"]=1,["background-position"]=1,clip=1,
["clip-path"]=1,transform=1,top=1,left=1,right=1,bottom=1,["text-indent"]=1,content=1}
local PSEUDO_EL={before=1,after=1}
local BAD_PSEUDO={hover=1,focus=1,active=1,visited=1,before=1,after=1,["focus-within"]=1,
["focus-visible"]=1,placeholder=1,selection=1,["first-line"]=1,["first-letter"]=1,checked=1,
disabled=1,target=1,marker=1,backdrop=1,["-webkit-scrollbar"]=1,["-moz-focus-inner"]=1}


local function parseCompound(s)

local c={classes={},attrs={},pseudo={}}
local pos=1
local tag=s:match("^([%w%-%*]+)",pos)
if tag then c.tag=tag:lower();pos=pos+#tag end
if c.tag=="*"then c.tag=nil end
while pos<=#s do
local ch=s:sub(pos,pos)
if ch=="#"then
local id=s:match("^#([%w%-_]+)",pos)
if not id then return nil end
c.id=id;pos=pos+#id+1
elseif ch=="."then
local cl=s:match("^%.([%w%-_]+)",pos)
if not cl then return nil end
c.classes[#c.classes+1]=cl;pos=pos+#cl+1
elseif ch=="["then
local close=s:find("]",pos,true)
if not close then return nil end
local body=s:sub(pos+1,close-1)
local name,op,val=body:match('^%s*([%w%-_:]+)%s*([~|%^%$%*]?=)%s*["\']?(.-)["\']?%s*[iI]?%s*$')
if not name then name=body:match("^%s*([%w%-_:]+)%s*$")end
if not name then return nil end
c.attrs[#c.attrs+1]={name:lower(),op,val}
pos=close+1
elseif ch==":"then
local double=s:sub(pos+1,pos+1)==":"
local name=s:match("^:+([%w%-]+)",pos)
if not name then return nil end
pos=pos+#name+(double and 2 or 1)
name=name:lower()
if name=="before"or name=="after"then
c.pseudoEl=name
elseif BAD_PSEUDO[name]then return nil end
if c.pseudoEl==name then

elseif name=="not"then
local arg=s:match("^%((.-)%)",pos)
if not arg then return nil end
pos=pos+#arg+2
local inner=parseCompound(arg)
if not inner then return nil end
c.pseudo[#c.pseudo+1]={"not",inner}
elseif name=="first-child"or name=="last-child"or name=="root"or name=="only-child"then
c.pseudo[#c.pseudo+1]={name}
elseif name=="nth-child"or name=="nth-of-type"or name=="is"or name=="where"or name=="has"then
return nil
else
return nil
end
else
return nil
end
end
return c
end

local function parseSelector(sel)
sel=sel:gsub("^%s+",""):gsub("%s+$","")
if sel==""or sel:find("[+~]")then return nil end
sel=sel:gsub("%s*>%s*"," > ")
local parts,combs={},{}
local nextComb=nil
for tok in sel:gmatch("%S+")do
if tok==">"then nextComb=">"
else
local c=parseCompound(tok)
if not c then return nil end
parts[#parts+1]=c
combs[#parts]=nextComb or" "
nextComb=nil
end
end
if#parts==0 then return nil end
local a,b,cc=0,0,0
for _,p in ipairs(parts)do
if p.id then a=a+1 end
b=b+#p.classes+#p.attrs+#p.pseudo
if p.tag then cc=cc+1 end
end
return{parts=parts,combs=combs,spec=a*10000+b*100+cc}
end

local function hasClass(el,cl)
local list=el.classSet
if not list then
list={}
for w in(el.attrs.class or""):gmatch("%S+")do list[w]=true end
el.classSet=list
end
return list[cl]
end

local function elementIndex(el)
local p=el.parent
if not p then return 1,1 end
local idx,n=0,0
for _,c in ipairs(p.children)do
if c.tag then
n=n+1
if c==el then idx=n end
end
end
return idx,n
end

local function matchCompound(el,c)
if not el.tag or el.tag:sub(1,1)=="#"then return false end
if c.tag and c.tag~=el.tag then return false end
if c.id and el.attrs.id~=c.id then return false end
for _,cl in ipairs(c.classes)do if not hasClass(el,cl)then return false end end
for _,at in ipairs(c.attrs)do
local v=el.attrs[at[1]]
if v==nil then return false end
local op,want=at[2],at[3]
if op=="="and v~=want then return false
elseif op=="~="then local ok=false for w in v:gmatch("%S+")do if w==want then ok=true end end if not ok then return false end
elseif op=="^="and v:sub(1,#want)~=want then return false
elseif op=="$="and(want==""or v:sub(-#want)~=want)then return false
elseif op=="*="and not v:find(want,1,true)then return false
elseif op=="|="and v~=want and v:sub(1,#want+1)~=want.."-"then return false end
end
for _,ps in ipairs(c.pseudo)do
local k=ps[1]
if k=="not"then if matchCompound(el,ps[2])then return false end
elseif k=="root"then if el.tag~="html"then return false end
else
local i,n=elementIndex(el)
if k=="first-child"and i~=1 then return false end
if k=="last-child"and i~=n then return false end
if k=="only-child"and n~=1 then return false end
end
end
return true
end

local function matches(el,sel)
local parts,combs=sel.parts,sel.combs
local i=#parts
if not matchCompound(el,parts[i])then return false end
local node=el
while i>1 do
local comb=combs[i]
i=i-1
if comb==">"then
node=node.parent
if not node or not matchCompound(node,parts[i])then return false end
else
repeat node=node.parent until not node or matchCompound(node,parts[i])
if not node then return false end
end
end
return true
end
C.matches=matches


local function mediaOk(q,vw)
q=q:lower()
if q:find("print")and not q:find("screen")then return false end
if q:find("prefers%-color%-scheme%s*:%s*dark")then return false end
for op,v in q:gmatch("(m[ai][xn])%-width%s*:%s*([%d%.]+)")do
v=tonumber(v)
if op=="max"and vw>v then return false end
if op=="min"and vw<v then return false end
end
return true
end





local function canMatch(sel,present)
if not present then return true end
for _,c in ipairs(sel.parts)do
if c.id and not present.id[c.id]then return false end
if c.tag and not present.tag[c.tag]then return false end
for _,cl in ipairs(c.classes)do if not present.class[cl]then return false end end
end
return true
end

function C.present(dom)
local pr={tag={},class={},id={}}
local function walk(n)
if n.tag then
pr.tag[n.tag]=true
if n.attrs then
if n.attrs.id then pr.id[n.attrs.id]=true end
for w in(n.attrs.class or""):gmatch("%S+")do pr.class[w]=true end
end
for _,c in ipairs(n.children or{})do walk(c)end
end
end
walk(dom)
return pr
end

function C.parse(css,vw,rules,base,present)
rules=rules or{}
css=css:gsub("/%*.-%*/","")
local order=#rules
local pos,len=1,#css
local function block(from)

local depth,i=0,from
while i<=len do
local ch=css:sub(i,i)
if ch=="{"then depth=depth+1 elseif ch=="}"then depth=depth-1 if depth==0 then return i end end
i=i+1
end
return len
end
while pos<=len do
local ob=css:find("[{;]",pos)
if not ob then break end
local head=css:sub(pos,ob-1):gsub("^%s+",""):gsub("%s+$","")
if css:sub(ob,ob)==";"then
pos=ob+1
else
local cb=block(ob)
local body=css:sub(ob+1,cb-1)
pos=cb+1
if head:sub(1,6):lower()=="@media"then
if mediaOk(head:sub(7),vw)then C.parse(body,vw,rules,base,present)order=#rules end
elseif head:sub(1,9):lower()=="@supports"then
C.parse(body,vw,rules,base,present)order=#rules
elseif head:sub(1,1)=="@"then

else

local sels={}
for sx in head:gmatch("[^,]+")do
local sel=parseSelector(sx)
if sel and canMatch(sel,present)then sels[#sels+1]=sel end
end
local decls={}
if#sels>0 then for d in(body..";"):gmatch("([^;]*);")do
local prop,val=d:match("^%s*([%w%-]+)%s*:%s*(.-)%s*$")
if prop then
prop=prop:lower()
local imp=false
if val:find("!%s*important%s*$")then imp=true;val=val:gsub("%s*!%s*important%s*$","")end
if KEEP[prop]or prop:sub(1,2)=="--"then
if base and val:find("url%(")then
val=val:gsub("url%(%s*['\"]?([^'\")]+)['\"]?%s*%)",function(u)return"url("..base(u)..")"end)
end
decls[#decls+1]={prop,val,imp}
end
end
end end
if#decls>0 then
for _,sel in ipairs(sels)do
order=order+1
rules[#rules+1]={sel=sel,decls=decls,order=order}
end
end
end
end
end
return rules
end


function C.index(rules)
local idx={id={},class={},tag={},any={}}
for _,r in ipairs(rules)do
local last=r.sel.parts[#r.sel.parts]
local bucket
if last.id then bucket=idx.id[last.id]or{};idx.id[last.id]=bucket
elseif#last.classes>0 then local k=last.classes[1]bucket=idx.class[k]or{};idx.class[k]=bucket
elseif last.tag then bucket=idx.tag[last.tag]or{};idx.tag[last.tag]=bucket
else bucket=idx.any end
bucket[#bucket+1]=r
end
return idx
end


local NAMED={black=0x000000,white=0xFFFFFF,red=0xFF0000,green=0x008000,blue=0x0000FF,yellow=0xFFFF00,
gray=0x808080,grey=0x808080,silver=0xC0C0C0,maroon=0x800000,purple=0x800080,fuchsia=0xFF00FF,
lime=0x00FF00,olive=0x808000,navy=0x000080,teal=0x008080,aqua=0x00FFFF,orange=0xFFA500,
pink=0xFFC0CB,brown=0xA52A2A,gold=0xFFD700,darkgray=0xA9A9A9,darkgrey=0xA9A9A9,lightgray=0xD3D3D3,
lightgrey=0xD3D3D3,whitesmoke=0xF5F5F5,gainsboro=0xDCDCDC,dimgray=0x696969,crimson=0xDC143C,
darkred=0x8B0000,darkblue=0x00008B,darkgreen=0x006400,royalblue=0x4169E1,steelblue=0x4682B4,
dodgerblue=0x1E90FF,skyblue=0x87CEEB,tomato=0xFF6347,coral=0xFF7F50,salmon=0xFA8072,
beige=0xF5F5DC,ivory=0xFFFFF0,khaki=0xF0E68C,indigo=0x4B0082,violet=0xEE82EE,orchid=0xDA70D6,
tan=0xD2B48C,chocolate=0xD2691E,seagreen=0x2E8B57,slategray=0x708090,aliceblue=0xF0F8FF,
ghostwhite=0xF8F8FF,snow=0xFFFAFA,honeydew=0xF0FFF0,mintcream=0xF5FFFA,lavender=0xE6E6FA}


function C.color(v)
if not v then return nil end
v=v:lower():gsub("^%s+",""):gsub("%s+$","")
if v=="transparent"or v=="none"or v==""then return nil,0 end
local h=v:match("^#(%x+)$")
if h then
if#h==3 or#h==4 then
local r,g,b=tonumber(h:sub(1,1),16),tonumber(h:sub(2,2),16),tonumber(h:sub(3,3),16)
local a=#h==4 and tonumber(h:sub(4,4),16)/15 or 1
return(r*17)<<16|(g*17)<<8|(b*17),a
elseif#h==6 or#h==8 then
return tonumber(h:sub(1,6),16),#h==8 and tonumber(h:sub(7,8),16)/255 or 1
end
return nil
end
local fn,args=v:match("^(rgba?)%s*%((.-)%)")
if fn then
local nums={}
for n,pct in args:gmatch("([%d%.]+)(%%?)")do nums[#nums+1]=pct=="%"and tonumber(n)*2.55 or tonumber(n)end
if#nums>=3 then
local a=nums[4]or 1
if args:find("/%s*[%d%.]+%%")then a=a/2.55/100 end
if a>1 then a=a/255 end
local function c(x)return math.max(0,math.min(255,math.floor(x+0.5)))end
return c(nums[1])<<16|c(nums[2])<<8|c(nums[3]),a
end
end
local hs,hargs=v:match("^(hsla?)%s*%((.-)%)")
if hs then
local n={}
for x in hargs:gmatch("[%d%.]+")do n[#n+1]=tonumber(x)end
if#n>=3 then
local hh,s,l=(n[1]%360)/360,n[2]/100,n[3]/100
local function f(k)
local kk=(k+hh*12)%12
local a=s*math.min(l,1-l)
return l-a*math.max(-1,math.min(kk-3,9-kk,1))
end
local function c(x)return math.floor(x*255+0.5)end
return c(f(0))<<16|c(f(8))<<8|c(f(4)),n[4]and(n[4]>1 and n[4]/100 or n[4])or 1
end
end
if NAMED[v]then return NAMED[v],1 end
return nil
end


function C.px(v,ref,fontPx)
if not v then return nil end
v=v:lower()
local n,unit=v:match("^%s*(-?[%d%.]+)%s*([%a%%]*)")
n=tonumber(n)
if not n then return nil end
if unit=="px"or unit==""then return n end
if unit=="%"then return ref and n*ref/100 or nil end
if unit=="em"then return n*(fontPx or 16)end
if unit=="rem"then return n*16 end
if unit=="pt"then return n*4/3 end
if unit=="vw"then return n*(C.vw or 1200)/100 end
if unit=="vh"then return n*(C.vh or 700)/100 end
if unit=="ch"then return n*8 end
return nil
end


local DEFAULT_DISPLAY={div="block",p="block",ul="block",ol="block",li="list-item",h1="block",
h2="block",h3="block",h4="block",h5="block",h6="block",header="block",footer="block",
section="block",article="block",nav="block",main="block",aside="block",form="block",
table="table",tr="table-row",td="table-cell",th="table-cell",thead="block",tbody="block",
tfoot="block",blockquote="block",pre="block",hr="block",body="block",html="block",
figure="block",figcaption="block",dl="block",dt="block",dd="block",address="block",
center="block",fieldset="block",details="block",summary="block",caption="block",
head="none",script="none",style="none",title="none",meta="none",link="none",noscript="none",
template="none",svg="inline-block",iframe="none",object="none",select="inline-block",
button="inline-block",input="inline-block",textarea="inline-block",img="inline-block",br="inline",
video="none",audio="none",canvas="none",datalist="none",dialog="none",map="none",area="none",
picture="inline",source="none"}
local UA={
h1={["font-size"]="32px",["font-weight"]="bold",["margin-top"]="21px",["margin-bottom"]="21px"},
h2={["font-size"]="24px",["font-weight"]="bold",["margin-top"]="20px",["margin-bottom"]="20px"},
h3={["font-size"]="19px",["font-weight"]="bold",["margin-top"]="18px",["margin-bottom"]="18px"},
h4={["font-weight"]="bold",["margin-top"]="16px",["margin-bottom"]="16px"},
h5={["font-weight"]="bold"},h6={["font-weight"]="bold"},
p={["margin-top"]="16px",["margin-bottom"]="16px"},
ul={["padding-left"]="40px",["margin-top"]="16px",["margin-bottom"]="16px",["list-style-type"]="disc"},
ol={["padding-left"]="40px",["margin-top"]="16px",["margin-bottom"]="16px",["list-style-type"]="decimal"},
blockquote={["margin-left"]="40px",["margin-top"]="16px",["margin-bottom"]="16px"},
pre={["white-space"]="pre",["margin-top"]="16px",["margin-bottom"]="16px"},
b={["font-weight"]="bold"},strong={["font-weight"]="bold"},th={["font-weight"]="bold"},
i={["font-style"]="italic"},em={["font-style"]="italic"},
a={color="#0000ee",["text-decoration"]="underline"},
body={["margin"]="8px",color="#000000"},
hr={["border-top"]="1px solid #888888",["margin-top"]="8px",["margin-bottom"]="8px"},
center={["text-align"]="center"},td={padding="1px"},th={padding="1px",["text-align"]="center"},
button={["background-color"]="#e9e9ed",color="#000000",["padding-left"]="6px",["padding-right"]="6px"},
input={["background-color"]="#ffffff",color="#000000"},select={["background-color"]="#ffffff",color="#000000"},
textarea={["background-color"]="#ffffff",color="#000000"},
}

local function resolveVars(v,st,depth)
if not v:find("var(",1,true)or(depth or 0)>6 then return v end
local out=v:gsub("var%(%s*(%-%-[%w%-_]+)%s*,?%s*([^()]*)%)",function(name,fb)
local x=st[name]
if x==nil or x==""then x=fb~=""and fb or""end
return x
end)
return resolveVars(out,st,(depth or 0)+1)
end

local SHORT={margin=1,padding=1,background=1,flex=1,["flex-flow"]=1,["list-style"]=1,gap=1}
local function expand(st,prop,val)

if SHORT[prop]and val:find("var(",1,true)then st[prop]=val return end

if prop=="margin"or prop=="padding"then
local p={}
for t in val:gmatch("%S+")do p[#p+1]=t end
local t,r,b,l=p[1],p[2]or p[1],p[3]or p[1],p[4]or p[2]or p[1]
st[prop.."-top"],st[prop.."-right"],st[prop.."-bottom"],st[prop.."-left"]=t,r,b,l
elseif prop=="background"then
local url=val:match("url%(%s*['\"]?([^'\")]+)['\"]?%s*%)")
if url then st["background-image"]="url("..url..")"end
local col
for tok in val:gsub("url%b()",""):gsub("%b()",function(x)return x:gsub("%s","")end):gmatch("%S+")do
if C.color(tok)or tok=="transparent"then col=tok end
end
if val:find("rgba?%b()")then col=val:match("(rgba?%b())")end
if val:find("#%x+")and not col then col=val:match("(#%x+)")end
if val:find("gradient")then

col=val:match("gradient%(.-(#%x+)")or val:match("gradient%(.-(rgba?%b())")or col
end
if col then st["background-color"]=col end
if not url and not col and val:match("^%s*none%s*$")then st["background-color"]="transparent"end
elseif prop=="border"or prop=="border-top"or prop=="border-bottom"or prop=="border-left"or prop=="border-right"then
st[prop]=val
elseif prop=="flex"then
local g=val:match("^%s*([%d%.]+)")
if val=="none"then st["flex-grow"]="0"elseif val=="auto"then st["flex-grow"]="1"elseif g then st["flex-grow"]=g end
local basis=val:match("^%s*[%d%.]+%s+[%d%.]+%s+(%S+)")or val:match("^%s*[%d%.]+%s+(%S+%a)$")
if basis then st["flex-basis"]=basis end
elseif prop=="flex-flow"then
if val:find("wrap")then st["flex-wrap"]="wrap"end
if val:find("column")then st["flex-direction"]="column"end
elseif prop=="list-style"then
if val:find("none")then st["list-style-type"]="none"end
elseif prop=="gap"then
st["column-gap"]=val:match("(%S+)%s*$")
st["row-gap"]=val:match("^%s*(%S+)")
else
st[prop]=val
end
end

function C.cascade(root,rules,vwPx,yield)
local idx=C.index(rules)
local function candidates(el)
local list={}
local function addAll(b)if b then for _,r in ipairs(b)do list[#list+1]=r end end end
if el.attrs.id then addAll(idx.id[el.attrs.id])end
for cl in(el.attrs.class or""):gmatch("%S+")do addAll(idx.class[cl])end
addAll(idx.tag[el.tag])
addAll(idx.any)
return list
end
local visited=0
local function visit(el,parentStyle)
visited=visited+1
if yield and visited%100==0 then yield()end
if not el.tag or el.tag=="#document"then
for _,c in ipairs(el.children or{})do if c.tag then visit(c,parentStyle)end end
return
end


local meta=parentStyle.__inh
if not meta then
meta={__index=function(_,k)
if INHERIT[k]or(type(k)=="string"and k:sub(1,2)=="--")then return parentStyle[k]end
end}
rawset(parentStyle,"__inh",meta)
end
local st=setmetatable({},meta)
st.display=DEFAULT_DISPLAY[el.tag]or"inline"
for k,v in pairs(UA[el.tag]or{})do expand(st,k,v)end

local hits,gen={},nil
for _,r in ipairs(candidates(el))do
if matches(el,r.sel)then
local pe=r.sel.parts[#r.sel.parts].pseudoEl
if pe then
gen=gen or{}
local g=gen[pe]or{spec=-1}
for _,d in ipairs(r.decls)do
if(d[1]=="content"or d[1]=="color")and r.sel.spec>=g.spec then g[d[1]]=d[2]end
end
g.spec=math.max(g.spec,r.sel.spec)
gen[pe]=g
else hits[#hits+1]=r end
end
end
if gen then
for pe,g in pairs(gen)do
local c=g.content and g.content:match('^%s*"(.-)"%s*$')or g.content and g.content:match("^%s*'(.-)'%s*$")
if c then
c=c:gsub("\\a"," "):gsub("\\(%x%x%x%x?)",function(h)return utf8.char(tonumber(h,16))end)
el.pseudo=el.pseudo or{}
el.pseudo[pe]={text=c,color=g.color}
end
end
end
table.sort(hits,function(a,b)if a.sel.spec~=b.sel.spec then return a.sel.spec<b.sel.spec end return a.order<b.order end)
local important={}
for _,r in ipairs(hits)do
for _,d in ipairs(r.decls)do
if d[3]then important[#important+1]=d else expand(st,d[1],d[2])end
end
end

local inline=el.attrs.style
if inline then
for d in(inline..";"):gmatch("([^;]*);")do
local prop,val=d:match("^%s*([%w%-]+)%s*:%s*(.-)%s*$")
if prop then
prop=prop:lower()
val=val:gsub("%s*!%s*important%s*$","")
if KEEP[prop]or prop:sub(1,2)=="--"then expand(st,prop,val)end
end
end
end
for _,d in ipairs(important)do expand(st,d[1],d[2])end

if el.attrs.hidden then st.display="none"end
if el.attrs.align and not st["text-align"]then st["text-align"]=el.attrs.align end
if el.attrs.bgcolor then st["background-color"]=el.attrs.bgcolor end
if el.tag=="font"and el.attrs.color then st.color=el.attrs.color end
if el.attrs.width and not st.width then st.width=el.attrs.width:match("%%$")and el.attrs.width or(el.attrs.width.."px")end
if el.attrs.height and not st.height then st.height=el.attrs.height:match("%%$")and el.attrs.height or(el.attrs.height.."px")end

local withVar
for k,v in pairs(st)do
if k~="__inh"and k:sub(1,2)~="--"and type(v)=="string"and v:find("var(",1,true)then
withVar=withVar or{}
withVar[#withVar+1]=k
end
end
for _,k in ipairs(withVar or{})do
local r=resolveVars(st[k],st)
if SHORT[k]then st[k]=nil;expand(st,k,r)else st[k]=r end
end
st.display=(st.display or"inline"):lower():match("^%s*(%S+)")
if st.opacity and tonumber(st.opacity)and tonumber(st.opacity)<0.05 then st.visibility="hidden"end
el.style=st
el.classSet=nil
for _,c in ipairs(el.children)do
if c.tag then visit(c,st)end
end
end
C.vw=vwPx
visit(root,{color="#000000",["font-size"]="16px"})
end

return C
F 3534 /lib/ocdom.lua





local D={}
D.SPACE={text=" "}

local VOID={area=1,base=1,br=1,col=1,embed=1,hr=1,img=1,input=1,link=1,meta=1,
param=1,source=1,track=1,wbr=1}
local RAW={script=1,style=1,textarea=1,title=1,noscript=1,template=1,svg=1}

local CLOSES={
p={p=1},li={li=1},dt={dt=1,dd=1},dd={dt=1,dd=1},tr={tr=1,td=1,th=1},
td={td=1,th=1},th={td=1,th=1},option={option=1},thead={tbody=1,tfoot=1},
tbody={thead=1,tbody=1,tfoot=1},tfoot={thead=1,tbody=1},
}
local BLOCK_CLOSES_P={div=1,ul=1,ol=1,table=1,h1=1,h2=1,h3=1,h4=1,h5=1,h6=1,section=1,
article=1,header=1,footer=1,nav=1,form=1,pre=1,blockquote=1,hr=1,main=1,aside=1,figure=1}

local function parseAttrs(s,decode)
local a={}
local pos=1
while true do
local n1,n2,name=s:find("^%s*([^%s=/>\"']+)",pos)
if not n1 then break end
pos=n2+1
local v
local e1,e2=s:find("^%s*=%s*",pos)
if e1 then
pos=e2+1
local q=s:sub(pos,pos)
if q=='"'or q=="'"then
local close=s:find(q,pos+1,true)or#s+1
v=s:sub(pos+1,close-1)
pos=close+1
else
local _,ve=s:find("^[^%s>]*",pos)
v=s:sub(pos,ve)
pos=ve+1
end
end
a[name:lower()]=v and decode(v)or""
end
return a
end

function D.parse(html,decode,maxNodes,yield)
maxNodes=maxNodes or 12000
local root={tag="#document",attrs={},children={}}
local stack={root}
local count=0
local pos,len=1,#html
local lower=html:lower()
local function top()return stack[#stack]end
local function add(node)
local p=top()
node.parent=p
p.children[#p.children+1]=node
count=count+1
end
local function closeTo(name)
for i=#stack,2,-1 do
if stack[i].tag==name then
for j=#stack,i,-1 do stack[j]=nil end
return true
end
end
end
while pos<=len and count<maxNodes do
if yield and count%300==0 then yield()end
local lt=html:find("<",pos,true)
local tEnd=(lt or len+1)-1
if tEnd>=pos then
local t=html:sub(pos,tEnd)
if t:find("%S")then add({text=decode(t)})
elseif#top().children>0 then

local p=top()
p.children[#p.children+1]=D.SPACE
end
end
if not lt then break end
local c2=html:sub(lt+1,lt+1)
if html:sub(lt,lt+3)=="<!--"then
local e=html:find("-->",lt+4,true)
pos=e and e+3 or len+1
elseif c2=="!"or c2=="?"then
local e=html:find(">",lt,true)
pos=e and e+1 or len+1
else
local gt=html:find(">",lt,true)
if not gt then break end
local raw=html:sub(lt+1,gt-1)
pos=gt+1
local close=raw:sub(1,1)=="/"
local name=(raw:match("^/?%s*([%w%-]+)")or""):lower()
if name~=""then
if close then
if name=="p"and not closeTo("p")then add({tag="p",attrs={},children={}})
else closeTo(name)end
else
local attrs=parseAttrs(raw:sub(#name+1):gsub("/%s*$",""),decode)
local t=top()
if CLOSES[name]and CLOSES[name][t.tag]then stack[#stack]=nil end
if BLOCK_CLOSES_P[name]and top().tag=="p"then stack[#stack]=nil end
local node={tag=name,attrs=attrs,children={}}
add(node)
if RAW[name]then
local e=lower:find("</"..name,pos,true)or len+1
local body=html:sub(pos,e-1)
if name=="textarea"or name=="title"then node.children[1]={text=decode(body),parent=node}
elseif name=="style"then node.css=body end
local gt2=html:find(">",e,true)
pos=gt2 and gt2+1 or len+1
elseif not VOID[name]and not raw:find("/%s*$")then
stack[#stack+1]=node
end
end
end
end
end
root.truncated=count>=maxNodes
return root
end


function D.walk(node,fn,depth)
depth=depth or 0
if fn(node,depth)==false then return end
for _,c in ipairs(node.children or{})do D.walk(c,fn,depth+1)end
end
function D.find(node,tag)
local r
D.walk(node,function(n)if not r and n.tag==tag then r=n return false end end)
return r
end
function D.text(node)
local t={}
D.walk(node,function(n)if n.text then t[#t+1]=n.text end end)
return table.concat(t)
end

return D
F 17286 /lib/ocimg.lua










local M={}
local byte,char,sub=string.byte,string.char,string.sub

local function u32be(s,i)local a,b,c,d=byte(s,i,i+3)return((a<<24)|(b<<16)|(c<<8)|d)end
local function u16be(s,i)local a,b=byte(s,i,i+1)return(a<<8)|b end
local function u16le(s,i)local a,b=byte(s,i,i+1)return a|(b<<8)end

function M.size(d)
if sub(d,1,8)=="\137PNG\r\n\26\n"then return u32be(d,17),u32be(d,21),"png"end
if sub(d,1,4)=="GIF8"then return u16le(d,7),u16le(d,9),"gif"end
if sub(d,1,2)=="\255\216"then
local p=3
while p<#d do
if byte(d,p)~=0xFF then return nil end
local m=byte(d,p+1)
if m>=0xC0 and m<=0xCF and m~=0xC4 and m~=0xC8 and m~=0xCC then
return u16be(d,p+7),u16be(d,p+5),m==0xC2 and"jpeg-progressive"or"jpeg"
end
p=p+2+u16be(d,p+2)
end
end
if sub(d,1,4)=="RIFF"and sub(d,9,12)=="WEBP"then return nil,nil,"webp"end
return nil
end




local function inflateStream(data,emit,yield,rawSize)
local ok,comp=pcall(require,"component")
if ok and comp and comp.isAvailable and comp.isAvailable("data")and(rawSize or 0)<=256*1024 then
local ok2,res=pcall(comp.data.inflate,data)
if ok2 and res then emit(res)return end
end
local pos,bitbuf,bitcnt=3,0,0
local function bits(n)
while bitcnt<n do
bitbuf=bitbuf|((byte(data,pos)or 0)<<bitcnt)
pos=pos+1
bitcnt=bitcnt+8
end
local v=bitbuf&((1<<n)-1)
bitbuf=bitbuf>>n
bitcnt=bitcnt-n
return v
end
local function build(lengths,n)
local counts,offs,syms={},{},{}
for i=0,15 do counts[i]=0 end
for i=0,n-1 do counts[lengths[i]or 0]=counts[lengths[i]or 0]+1 end
counts[0]=0
offs[1]=0
for i=1,14 do offs[i+1]=offs[i]+counts[i]end
for i=0,n-1 do
local l=lengths[i]or 0
if l>0 then syms[offs[l]]=i;offs[l]=offs[l]+1 end
end
return{counts,syms}
end
local function decode(h)
local counts,syms=h[1],h[2]
local code,first,index=0,0,0
for l=1,15 do
code=code|bits(1)
local count=counts[l]
if code-count<first then return syms[index+(code-first)]end
index=index+count
first=(first+count)<<1
code=code<<1
end
error("inflate: bad code")
end
local LBASE={3,4,5,6,7,8,9,10,11,13,15,17,19,23,27,31,35,43,51,59,67,83,99,115,131,163,195,227,258}
local LEXT={0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0}
local DBASE={1,2,3,4,5,7,9,13,17,25,33,49,65,97,129,193,257,385,513,769,1025,1537,2049,3073,
4097,6145,8193,12289,16385,24577}
local DEXT={0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13}
local buf,n,hist={},0,""
local total=0
local function flush()
if n==0 then return end
local s=char(table.unpack(buf,1,n))
emit(s)
hist=hist..s
if#hist>40000 then hist=sub(hist,-32768)end
n=0
total=total+#s
if yield then yield()end
end
local function put(b)
n=n+1
buf[n]=b
if n>=4096 then flush()end
end
local function back(d)
if d<=n then return buf[n-d+1]end
return byte(hist,#hist-(d-n)+1)
end
local fixedL,fixedD
repeat
local final=bits(1)
local typ=bits(2)
if typ==0 then
bitbuf,bitcnt=0,0
local len=u16le(data,pos)
pos=pos+4
for i=0,len-1 do put(byte(data,pos+i))end
pos=pos+len
else
local lit,dist
if typ==1 then
if not fixedL then
local l={}
for i=0,143 do l[i]=8 end for i=144,255 do l[i]=9 end
for i=256,279 do l[i]=7 end for i=280,287 do l[i]=8 end
fixedL=build(l,288)
local d={}for i=0,29 do d[i]=5 end
fixedD=build(d,30)
end
lit,dist=fixedL,fixedD
else
local hlit,hdist,hclen=bits(5)+257,bits(5)+1,bits(4)+4
local ORDER={16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15}
local cl={}
for i=1,19 do cl[ORDER[i]]=i<=hclen and bits(3)or 0 end
local clh=build(cl,19)
local lens,i={},0
while i<hlit+hdist do
local sym=decode(clh)
if sym<16 then lens[i]=sym;i=i+1
else
local rep,val=0,0
if sym==16 then val=lens[i-1];rep=3+bits(2)
elseif sym==17 then rep=3+bits(3)else rep=11+bits(7)end
for _=1,rep do lens[i]=val;i=i+1 end
end
end
local ll,dl={},{}
for k=0,hlit-1 do ll[k]=lens[k]end
for k=0,hdist-1 do dl[k]=lens[hlit+k]end
lit,dist=build(ll,hlit),build(dl,hdist)
end
while true do
local sym=decode(lit)
if sym<256 then put(sym)
elseif sym==256 then break
else
sym=sym-256
local length=LBASE[sym]+bits(LEXT[sym])
local ds=decode(dist)+1
local d=DBASE[ds]+bits(DEXT[ds])
for _=1,length do put(back(d))end
end
end
end
until final==1
flush()
end
function M.inflate(data)
local parts={}
inflateStream(data,function(s)parts[#parts+1]=s end)
return table.concat(parts)
end




M.TRANSPARENT=0x010203




local function Sink(sw,sh,tw,th)
local T=M.TRANSPARENT
local pack=string.pack
local fx,fy=sw/tw,sh/th
local cols={}
for x=0,tw-1 do
local x0=math.floor(x*fx)
local x1=math.max(x0,math.floor((x+1)*fx)-1)
local step=math.max(1,(x1-x0+1)/4)
local xs,xx={},x0
while xx<=math.min(x1,sw-1)do xs[#xs+1]=math.floor(xx);xx=xx+step end
cols[x+1]=xs
end
local rows={}
local sr,sg,sb,cnt,tr,lo,loC,hi,hiC={},{},{},{},{},{},{},{},{}
local function reset()
for i=1,tw do sr[i],sg[i],sb[i],cnt[i],tr[i],lo[i],hi[i]=0,0,0,0,0,1e9,-1 end
end
reset()
local cur=0
local function finalize()
local out={}
for i=1,tw do
local n=cnt[i]
local c
if n==0 or tr[i]>n then c=T
else
local ar,ag,ab=sr[i]//n,sg[i]//n,sb[i]//n
c=(ar<<16)|(ag<<8)|ab
if n>1 then
local function dev(v)return math.abs((v>>16)-ar)+math.abs(((v>>8)&255)-ag)+math.abs((v&255)-ab)end
local dl,dh=dev(loC[i]),dev(hiC[i])
if dl>180 or dh>180 then c=dl>=dh and loC[i]or hiC[i]end
end
if c==T then c=T+1 end
end
out[i]=pack(">I3",c)
end
return table.concat(out)
end
local sink={}
function sink.row(y,get)

local t0=math.floor(y/fy)
if t0>=th then return end
while cur<t0 do
rows[#rows+1]=finalize()
reset()
cur=cur+1
end
local y0=math.floor(cur*fy)
local stepY=math.max(1,math.floor(fy/4))
if(y-y0)%stepY~=0 then return end
for i=1,tw do
for _,sx in ipairs(cols[i])do
local c=get(sx)
if c then
sr[i],sg[i],sb[i],cnt[i]=sr[i]+(c>>16),sg[i]+((c>>8)&255),sb[i]+(c&255),cnt[i]+1
local l=(c>>16)*3+((c>>8)&255)*6+(c&255)
if l<lo[i]then lo[i],loC[i]=l,c end
if l>hi[i]then hi[i],hiC[i]=l,c end
else tr[i]=tr[i]+1 end
end
end

if fy<1 then
local tEnd=math.min(th-1,math.floor((y+1)/fy-1e-9))
local r=finalize()
while cur<=tEnd do rows[#rows+1]=r;cur=cur+1 end
reset()
end
end
function sink.result()
if cur<th and#rows<th then
local r=finalize()
while#rows<th do rows[#rows+1]=r end
end
return{w=tw,h=th,px=table.concat(rows,"",1,th)}
end
return sink
end


function M.pixel(img,x,y)
local c=string.unpack(">I3",img.px,(y*img.w+x)*3+1)
if c==M.TRANSPARENT then return false end
return c
end


local function decodePNG(d,tw,th,yield)
local w,h=u32be(d,17),u32be(d,21)
local depth,ctype,interlace=byte(d,25),byte(d,26),byte(d,29)
if interlace~=0 then return nil,"interlaced PNG"end
local idat,pal,trns={},nil,nil
local p=9
while p<#d do
local len,typ=u32be(d,p),sub(d,p+4,p+7)
if typ=="IDAT"then idat[#idat+1]=sub(d,p+8,p+7+len)
elseif typ=="PLTE"then pal=sub(d,p+8,p+7+len)
elseif typ=="tRNS"then trns=sub(d,p+8,p+7+len)
elseif typ=="IEND"then break end
p=p+12+len
end
local chans=({[0]=1,[2]=3,[3]=1,[4]=2,[6]=4})[ctype]
if not chans then return nil,"PNG colour type"end
local bpp=math.max(1,chans*depth//8)
local stride=(w*chans*depth+7)//8
local sink=Sink(w,h,tw,th)
local prev={}
for i=1,stride do prev[i]=0 end
local pend,y="",0
local cur
local function px(x)
local a,b,c,al
if depth==8 then local o=x*chans a,b,c,al=cur[o+1],cur[o+2],cur[o+3],cur[o+4]
elseif depth==16 then local o=x*chans*2 a,b,c,al=cur[o+1],cur[o+3],cur[o+5],cur[o+7]
else
local bit=x*depth
local v=(cur[(bit>>3)+1]>>(8-depth-(bit&7)))&((1<<depth)-1)
if ctype==0 then v=v*255//((1<<depth)-1)end
a=v
end
if ctype==0 then return(a<<16)|(a<<8)|a
elseif ctype==2 then return(a<<16)|(b<<8)|c
elseif ctype==3 then
if not pal then return 0 end
if trns and(byte(trns,a+1)or 255)<128 then return false end
local r,g,bb=byte(pal,a*3+1,a*3+3)
return((r or 0)<<16)|((g or 0)<<8)|(bb or 0)
elseif ctype==4 then if b<128 then return false end return(a<<16)|(a<<8)|a
else if al<128 then return false end return(a<<16)|(b<<8)|c end
end
local function onBytes(s)
pend=pend..s
local rb=stride+1
local off=1
while#pend-off+1>=rb and y<h do
local ft=byte(pend,off)
cur={byte(pend,off+1,off+stride)}
off=off+rb
if ft==1 then for i=bpp+1,stride do cur[i]=(cur[i]+cur[i-bpp])&255 end
elseif ft==2 then for i=1,stride do cur[i]=(cur[i]+prev[i])&255 end
elseif ft==3 then
for i=1,stride do cur[i]=(cur[i]+(((i>bpp and cur[i-bpp]or 0)+prev[i])>>1))&255 end
elseif ft==4 then
for i=1,stride do
local a,b,c=i>bpp and cur[i-bpp]or 0,prev[i],i>bpp and prev[i-bpp]or 0
local pp=a+b-c
local pa,pb,pc=math.abs(pp-a),math.abs(pp-b),math.abs(pp-c)
cur[i]=(cur[i]+((pa<=pb and pa<=pc)and a or(pb<=pc and b or c)))&255
end
end
sink.row(y,px)
prev=cur
y=y+1
end
pend=sub(pend,off)
end
inflateStream(table.concat(idat),onBytes,yield,(stride+1)*h)
return sink.result()
end


local function decodeGIF(d,tw,th,yield)
local w,h=u16le(d,7),u16le(d,9)
local flags=byte(d,11)
local p=14
local gpal
if flags&0x80~=0 then
local n=2<<(flags&7)
gpal=sub(d,p,p+n*3-1)
p=p+n*3
end
local transp
while p<=#d do
local b=byte(d,p)
if b==0x21 then
local label=byte(d,p+1)
p=p+2
if label==0xF9 and byte(d,p+1)&1==1 then transp=byte(d,p+4)end
while byte(d,p)~=0 do p=p+byte(d,p)+1 end
p=p+1
elseif b==0x2C then
local ix,iy,iw,ih,iflags=u16le(d,p+1),u16le(d,p+3),u16le(d,p+5),u16le(d,p+7),byte(d,p+9)
p=p+10
local pal=gpal
if iflags&0x80~=0 then
local n=2<<(iflags&7)
pal=sub(d,p,p+n*3-1)
p=p+n*3
end
local interlaced=iflags&0x40~=0
if interlaced and iw*ih>300000 then return nil,"large interlaced GIF"end
local minSize=byte(d,p)
p=p+1
local chunks={}
while byte(d,p)and byte(d,p)~=0 do
local n=byte(d,p)
chunks[#chunks+1]=sub(d,p+1,p+n)
p=p+n+1
end
local stream=table.concat(chunks)
chunks=nil

local sink=Sink(w,h,tw,th)
local stored=interlaced and{}or nil
local rowOrder={}
if interlaced then
for _,pass in ipairs({{0,8},{4,8},{2,4},{1,2}})do
for yy=pass[1],ih-1,pass[2]do rowOrder[#rowOrder+1]=yy end
end
end
local canvasY=0
local function rgbOf(idx)
if not idx or idx==transp or not pal then return false end
local rr,g,bb=byte(pal,idx*3+1,idx*3+3)
return((rr or 0)<<16)|((g or 0)<<8)|(bb or 0)
end
local function pushCanvasRow(frameRow)

sink.row(canvasY,function(x)
if not frameRow then return false end
local lx=x-ix
if lx<0 or lx>=iw then return false end
return rgbOf(byte(frameRow,lx+1))
end)
canvasY=canvasY+1
end
local done=0
local row,rn={},0
local function rowDone()
local s=char(table.unpack(row,1,rn))
if interlaced then stored[rowOrder[done+1]]=s
else
while canvasY<iy do pushCanvasRow(nil)end
pushCanvasRow(s)
end
done=done+1
rn=0
if yield and done%16==0 then yield()end
end
local function out(v)
rn=rn+1
row[rn]=v
if rn==iw then rowDone()end
end

local clear,eoi=1<<minSize,(1<<minSize)+1
local prefix,suffix,first={},{},{}
for i=0,clear-1 do suffix[i],first[i]=i,i end
local nextCode,size=eoi+1,minSize+1
local prev
local stack={}
local bitpos,total=0,#stream*8
local function emitCode(code)
local k=0
while code>=clear do
k=k+1
stack[k]=suffix[code]
code=prefix[code]
end
out(suffix[code])
for j=k,1,-1 do if done<ih then out(stack[j])end end
end
while bitpos+size<=total and done<ih do
local code=0
for k=0,size-1 do
local bi=bitpos+k
code=code|(((byte(stream,(bi>>3)+1)>>(bi&7))&1)<<k)
end
bitpos=bitpos+size
if code==clear then
nextCode,size,prev=eoi+1,minSize+1,nil
elseif code==eoi then break
else
local firstChar
if code<nextCode and(code<clear or prefix[code]~=nil or code<eoi)then
emitCode(code)
firstChar=first[code]
elseif prev then
emitCode(prev)
if done<ih then out(first[prev])end
firstChar=first[prev]
else break end
if prev and nextCode<4096 then
prefix[nextCode],suffix[nextCode],first[nextCode]=prev,firstChar,first[prev]
nextCode=nextCode+1
if nextCode==(1<<size)and size<12 then size=size+1 end
end
prev=code
end
end
if interlaced then
while canvasY<iy do pushCanvasRow(nil)end
for r=0,ih-1 do pushCanvasRow(stored[r])end
end
while canvasY<h do pushCanvasRow(nil)end
return sink.result()
elseif b==0x3B then break
else p=p+1 end
end
return nil,"GIF without image"
end





local function decodeJPEG(d,tw,th,yield)
local qt,htDC,htAC,comps,w,h={},{},{},{},0,0
local restart=0
local progressive=false
local p=3
local function buildHT(counts,syms)
local t,code,k={},0,1
for l=1,16 do
t[l]={}
for _=1,counts[l]do t[l][code]=syms[k];code=code+1;k=k+1 end
code=code<<1
end
return t
end
while p<#d do
if byte(d,p)~=0xFF then p=p+1 goto continue end
do
local m=byte(d,p+1)
if m==0xD8 or(m>=0xD0 and m<=0xD7)or m==0x01 or m==0xFF then p=p+2 goto continue end
local len=u16be(d,p+2)
local seg=p+4
if m==0xDB then
local q=seg
while q<p+2+len do
local pq,id=byte(d,q)>>4,byte(d,q)&15
local function qv(k)return pq==0 and byte(d,q+1+k)or u16be(d,q+1+k*2)end
qt[id]={qv(0),qv(1),qv(2),qv(4)}
q=q+1+(pq==0 and 64 or 128)
end
elseif m==0xC0 or m==0xC1 or m==0xC2 then
progressive=m==0xC2
h,w=u16be(d,seg+1),u16be(d,seg+3)
local n=byte(d,seg+5)
for i=0,n-1 do
local o=seg+6+i*3
comps[#comps+1]={id=byte(d,o),hs=byte(d,o+1)>>4,vs=byte(d,o+1)&15,tq=byte(d,o+2)}
end
elseif m==0xC3 or(m>=0xC5 and m<=0xCF and m~=0xC8 and m~=0xCC)then
return nil,"lossless/arithmetic JPEG"
elseif m==0xC4 then
local q=seg
while q<p+2+len do
local tc,th2=byte(d,q)>>4,byte(d,q)&15
local counts,total={},0
for l=1,16 do counts[l]=byte(d,q+l);total=total+counts[l]end
local syms={byte(d,q+17,q+16+total)}
if tc==0 then htDC[th2]=buildHT(counts,syms)else htAC[th2]=buildHT(counts,syms)end
q=q+17+total
end
elseif m==0xDD then
restart=u16be(d,seg)
elseif m==0xDA then
local ns=byte(d,seg)
for i=0,ns-1 do
local cid,tb=byte(d,seg+1+i*2),byte(d,seg+2+i*2)
for _,c in ipairs(comps)do if c.id==cid then c.td,c.ta=tb>>4,tb&15 end end
end
local ss=byte(d,seg+1+ns*2)
local ahal=byte(d,seg+3+ns*2)
local al=ahal&15
if progressive and(ss~=0 or(ahal>>4)~=0 or ns~=#comps)then
p=p+2+len
while p<#d and not(byte(d,p)==0xFF and byte(d,p+1)~=0 and not(byte(d,p+1)>=0xD0 and byte(d,p+1)<=0xD7))do p=p+1 end
goto continue
end
p=p+2+len
local hmax,vmax=1,1
for _,c in ipairs(comps)do hmax=math.max(hmax,c.hs);vmax=math.max(vmax,c.vs)end
local mcux,mcuy=(w+8*hmax-1)//(8*hmax),(h+8*vmax-1)//(8*vmax)
local S=progressive and 1 or 2
local sw,sh=(w*S+7)//8,(h*S+7)//8
local sink=Sink(sw,sh,tw,th)
for _,c in ipairs(comps)do c.bw=mcux*c.hs;c.pred=0 end
local bitbuf,bitcnt=0,0
local function fill()
local b=byte(d,p)
if not b then bitbuf=bitbuf<<8;bitcnt=bitcnt+8 return end
if b==0xFF then
local nb=byte(d,p+1)
if nb==0 then p=p+2
else bitbuf=bitbuf<<8;bitcnt=bitcnt+8 return end
else p=p+1 end
bitbuf=((bitbuf<<8)|b)&0xFFFFFFFF
bitcnt=bitcnt+8
end
local function getbit()
if bitcnt==0 then fill()end
bitcnt=bitcnt-1
return(bitbuf>>bitcnt)&1
end
local function receive(n)
local v=0
for _=1,n do v=(v<<1)|getbit()end
return v
end
local function extend(v,n)if n==0 then return 0 end if v<(1<<(n-1))then return v-(1<<n)+1 end return v end
local function huff(t)
local code=0
for l=1,16 do
code=(code<<1)|getbit()
local s=t[l][code]
if s then return s end
end
return 0
end
local function clamp(x)x=math.floor(x+0.5)return x<0 and 0 or x>255 and 255 or x end
local mcus,y=0,0
for my=0,mcuy-1 do

for _,c in ipairs(comps)do c.band={}end
for mx=0,mcux-1 do
if restart>0 and mcus>0 and mcus%restart==0 then
bitcnt=0
while p<#d and not(byte(d,p)==0xFF and byte(d,p+1)>=0xD0 and byte(d,p+1)<=0xD7)do p=p+1 end
p=p+2
for _,c in ipairs(comps)do c.pred=0 end
end
for _,c in ipairs(comps)do
local rowLen=c.bw*S
for by=0,c.vs-1 do
for bx=0,c.hs-1 do
local s=huff(htDC[c.td])
c.pred=c.pred+extend(receive(s),s)
local a1,a2,a4=0,0,0
local k=progressive and 64 or 1
while k<64 do
local rs=huff(htAC[c.ta])
local r,sz=rs>>4,rs&15
if sz==0 then
if r==15 then k=k+16 else break end
else
k=k+r
local v=extend(receive(sz),sz)
if k==1 then a1=v elseif k==2 then a2=v elseif k==4 then a4=v end
k=k+1
end
end
local q=qt[c.tq]or{1,1,1,1}
local dc=(c.pred<<(progressive and al or 0))*q[1]/8+128
local bxAll=mx*c.hs+bx
if S==1 then
c.band[by*rowLen+bxAll]=dc
else
local h1,v1,d1=a1*q[2]/8,a2*q[3]/8,a4*q[4]/8
local base=(by*2)*rowLen+bxAll*2
c.band[base]=dc+h1+v1+d1
c.band[base+1]=dc-h1+v1-d1
c.band[base+rowLen]=dc+h1-v1-d1
c.band[base+rowLen+1]=dc-h1-v1+d1
end
end
end
end
mcus=mcus+1
end

for ry=0,vmax*S-1 do
if y>=sh then break end
sink.row(y,function(x)
local Y,Cb,Cr
for i,c in ipairs(comps)do
local cx,cy=x*c.hs//hmax,ry*c.vs//vmax
local v=c.band[cy*c.bw*S+cx]or 128
if i==1 then Y=v elseif i==2 then Cb=v else Cr=v end
end
if not Cb then local g=clamp(Y)return(g<<16)|(g<<8)|g end
local r=clamp(Y+1.402*(Cr-128))
local g=clamp(Y-0.344136*(Cb-128)-0.714136*(Cr-128))
local b=clamp(Y+1.772*(Cb-128))
return(r<<16)|(g<<8)|b
end)
y=y+1
end
if yield then yield()end
end
for _,c in ipairs(comps)do c.band=nil end
return sink.result()
elseif m==0xD9 then break end
p=p+2+len
end
::continue::
end
return nil,"JPEG without image data"
end

function M.decode(d,tw,th,yield)
local w,h,fmt=M.size(d)
if not w then return nil,fmt and(fmt.." is not supported")or"unknown image format"end
if w*h>4096*4096 then return nil,"image too large"end
local function run(y)
if fmt=="png"then return decodePNG(d,tw,th,y)
elseif fmt=="gif"then return decodeGIF(d,tw,th,y)
elseif fmt=="jpeg"or fmt=="jpeg-progressive"then return decodeJPEG(d,tw,th,y)
end
return nil,fmt.." is not supported"
end



local co=coroutine.create(function()return run(yield and coroutine.yield or nil)end)
while true do
local ok,a,b=coroutine.resume(co)
if not ok then return nil,tostring(a)end
if coroutine.status(co)=="dead"then return a,b end
if yield then yield()end
end
end

return M
F 21358 /lib/oclayout.lua








local C=require("occss")
local unicode=require("unicode")
local ulen,usub=unicode.len,unicode.sub
local L={}

local BLOCKISH={block=1,["list-item"]=1,flex=1,grid=1,table=1,["table-row"]=1,["table-cell"]=1,
["inline-flex"]=1,["inline-grid"]=1,
["table-row-group"]=1,["table-header-group"]=1,["table-footer-group"]=1,["flow-root"]=1}



function L.viewport(cols)
if cols>=110 then return math.max(cols*8,1280)end
return math.max(cols*8,1024)
end

function L.layout(dom,cols,base,yieldFn)
local vw=L.viewport(cols)
local PX=vw/cols
local ops,links,inputs,images,forms={},{},{},{},{}
local steps=0
local maxRows=L.maxRows or 3000
local function tick()steps=steps+1 if yieldFn and steps%200==0 then yieldFn()end end

local function cw(px)return px and math.floor(px/PX+0.5)or nil end
local function rh(px)return px and math.floor(px/16+0.35)or 0 end
local function len(st,prop,ref)return C.px(st[prop],ref,C.px(st["font-size"],nil,16))end
local function hidden(st)return st.display=="none"or st.visibility=="hidden"or st.visibility=="collapse"end
local function outOfFlow(st)


return st.position=="absolute"
end
local function colorOf(v,bg)
local c,a=C.color(v)
if not c then return nil end
if a and a<1 and bg then
if a<0.15 then return nil end
local function mix(sh)return math.floor(((c>>sh)&255)*a+((bg>>sh)&255)*(1-a)+0.5)end
return mix(16)<<16|mix(8)<<8|mix(0)
end
return c
end
local function lum(c)return 0.2126*(c>>16)+0.7152*((c>>8)&255)+0.0722*(c&255)end
local function readable(fg,bg)
if not fg then fg=0 end
if bg and math.abs(lum(fg)-lum(bg))<50 then return lum(bg)<128 and 0xFFFFFF or 0x000000 end
return fg
end


local function maxContent(el,cap,depth)
depth=depth or 0
if el.text then return math.min(cap,ulen((el.text:gsub("%s+"," "))))end
local st=el.style
if not st or hidden(st)or outOfFlow(st)or depth>30 then return 0 end
local w=len(st,"width")
if w then return math.min(cap,cw(w))end
if el.tag=="img"then return math.min(cap,cw(C.px(el.attrs.width)or 64))end
if el.tag=="input"then return math.min(cap,tonumber(el.attrs.size or"")or 16)end
local pad=(cw(len(st,"padding-left")or 0)or 0)+(cw(len(st,"padding-right")or 0)or 0)
if not BLOCKISH[st.display]then
pad=pad+math.min(4,math.max(0,cw(len(st,"margin-left")or 0)or 0))+math.min(4,math.max(0,cw(len(st,"margin-right")or 0)or 0))
end
local inlineSum,best=0,0
local row=st.display=="flex"and(st["flex-direction"]or"row"):sub(1,3)=="row"
for _,c in ipairs(el.children)do
local m=maxContent(c,cap,depth+1)
if row and c.style and BLOCKISH[c.style.display]then
m=m+math.max(0,cw(len(c.style,"margin-left")or 0)or 0)+math.max(0,cw(len(c.style,"margin-right")or 0)or 0)
end
if c.text or(c.style and not BLOCKISH[c.style.display])or row then inlineSum=inlineSum+m
else best=math.max(best,inlineSum,m);inlineSum=0 end
end
return math.min(cap,math.max(best,inlineSum)+pad)
end

local function emitFill(x,y,w,h,rgb)
if w<=0 or h<=0 or not rgb then return nil end
local op={"fill",x,y,w,h,rgb}
ops[#ops+1]=op
return op
end
local function shiftFrom(i0,li0,ii0,dx,dy)
for i=i0,#ops do local o=ops[i]o[2],o[3]=o[2]+dx,o[3]+dy end
for i=li0,#links do local o=links[i]o.x,o.y=o.x+dx,o.y+dy end
for i=ii0,#inputs do local o=inputs[i]o.x,o.y=o.x+dx,o.y+dy end
end

local layoutBox,flowChildren



local function collectInline(node,items,ctx)
tick()
if node.text then
local t=node.text
local st=ctx.style
if st["text-transform"]=="uppercase"then t=unicode.upper(t)elseif st["text-transform"]=="lowercase"then t=unicode.lower(t)end
local pre=st["white-space"]=="pre"or st["white-space"]=="pre-wrap"
if pre then
local first=true
for line in(t.."\n"):gmatch("([^\n]*)\n")do
if not first then items[#items+1]={kind="br"}end
first=false
if line~=""then items[#items+1]={kind="word",text=line:gsub("\t","    "),fg=ctx.fg,bg=ctx.ibg,href=ctx.href}end
end
else
for sp,word in t:gmatch("(%s*)(%S*)")do
if sp~=""then items[#items+1]={kind="space",fg=ctx.fg,bg=ctx.ibg,href=ctx.href}end
if word~=""then items[#items+1]={kind="word",text=word,fg=ctx.fg,bg=ctx.ibg,href=ctx.href}end
end
end
return
end
local st=node.style
if not st or hidden(st)or outOfFlow(st)then return end
local tag=node.tag
local fg=colorOf(st.color,ctx.bg)or ctx.fg
local ibg=ctx.ibg
local own=colorOf(st["background-color"],ctx.bg)
if own and own~=ctx.bg then ibg=own end
local sub={style=st,fg=fg,ibg=ibg,bg=ibg or ctx.bg,href=ctx.href,form=ctx.form}
if tag=="a"and node.attrs.href then sub.href=node.attrs.href end
if tag=="br"then items[#items+1]={kind="br"}return end
if tag=="img"then
local wpx=len(st,"width",ctx.wpx)or C.px(node.attrs.width)
local hpx=len(st,"height")or C.px(node.attrs.height)
local nat=ctx.natural and ctx.natural(base(node.attrs.src or""))
if nat and not wpx and not hpx then wpx,hpx=nat[1],nat[2]end
if wpx and not hpx then hpx=nat and wpx*nat[2]/nat[1]or wpx/2 end
if hpx and not wpx then wpx=nat and hpx*nat[1]/nat[2]or hpx*2 end
wpx,hpx=wpx or 160,hpx or 96
local w=math.max(1,math.min(ctx.width,cw(wpx)))
local h=math.max(1,math.floor(hpx*(w/math.max(1,cw(wpx)))/16+0.5))
if wpx<=24 and hpx<=24 then w,h=math.max(1,cw(wpx)),1 end
items[#items+1]={kind="box",w=w,h=h,img=base(node.attrs.src or""),alt=node.attrs.alt or"",href=sub.href}
return
end
if tag=="input"or tag=="button"or tag=="select"or tag=="textarea"then
local typ=(node.attrs.type or(tag=="button"and"submit"or"text")):lower()
if typ=="hidden"then return end
local label,w
if tag=="button"or typ=="submit"or typ=="button"or typ=="reset"then
label=" "..((tag=="button"and require("ocdom").text(node)or node.attrs.value or"Submit"):gsub("%s+"," "):gsub("^ ",""):gsub(" $","")).." "
w=ulen(label)
items[#items+1]={kind="word",text=label,fg=colorOf(st.color)or 0,bg=colorOf(st["background-color"])or 0xE9E9ED,
input={el=node,form=ctx.form,kind="submit"}}
return
elseif typ=="checkbox"or typ=="radio"then
label=typ=="checkbox"and(node.attrs.checked and"[x]"or"[ ]")or(node.attrs.checked and"(•)"or"( )")
items[#items+1]={kind="word",text=label,fg=ctx.fg,input={el=node,form=ctx.form,kind=typ}}
return
elseif tag=="select"then
local first
require("ocdom").walk(node,function(n)if not first and n.tag=="option"then first=n end end)
label=(first and require("ocdom").text(first)or""):gsub("%s+"," ")
label=" "..label.." ▾"
else
label=node.attrs.value or""
end
w=cw(len(st,"width",ctx.wpx)or 0)or 0
if w<=0 then w=tonumber(node.attrs.size or"")or(tag=="textarea"and 30 or 18)end
w=math.max(4,math.min(ctx.width,w))
local shown=label~=""and label or(""..(node.attrs.placeholder or""))
items[#items+1]={kind="word",text=usub(shown..string.rep(" ",w),1,w),fg=label~=""and 0x000000 or 0x808080,
bg=colorOf(st["background-color"])or 0xFFFFFF,input={el=node,form=ctx.form,kind=tag=="select"and"select"or typ,w=w}}
return
end
if tag=="form"then sub.form=node end

local mL=cw(len(st,"margin-left")or 0)or 0
local mR=cw(len(st,"margin-right")or 0)or 0
if mL>0 then for _=1,math.min(mL,4)do items[#items+1]={kind="word",text=" ",fg=ctx.fg}end end

local padL=st.display=="inline-block"and cw(len(st,"padding-left")or 0)or 0
local padR=st.display=="inline-block"and cw(len(st,"padding-right")or 0)or 0
if padL>0 and sub.ibg then items[#items+1]={kind="word",text=string.rep(" ",math.min(padL,3)),bg=sub.ibg,fg=fg,href=sub.href}end
local function generated(which)
local g=node.pseudo and node.pseudo[which]
if g and g.text and g.text~=""then
local gfg=colorOf(g.color,ctx.bg)or fg
collectInline({text=g.text},items,{style=st,fg=gfg,ibg=sub.ibg,bg=sub.bg,href=sub.href})
end
end
generated("before")
for _,c in ipairs(node.children)do
if c.text or not BLOCKISH[c.style and c.style.display or"inline"]then collectInline(c,items,sub)
else items[#items+1]={kind="block",el=c,ctx=sub}end
end
generated("after")
if padR>0 and sub.ibg then items[#items+1]={kind="word",text=string.rep(" ",math.min(padR,3)),bg=sub.ibg,fg=fg,href=sub.href}end
if mR>0 then for _=1,math.min(mR,4)do items[#items+1]={kind="word",text=" ",fg=ctx.fg}end end
end


local function flowInline(items,x,y,w,align,ctx)
local lines,line,lw,lh={},{},0,1
local function finish()

while#line>0 and line[#line].kind=="space"do lw=lw-1;line[#line]=nil end
lines[#lines+1]={items=line,w=lw,h=lh}
line,lw,lh={},0,1
end
for _,it in ipairs(items)do
if it.kind=="br"then finish()
elseif it.kind=="space"then
if#line>0 and line[#line].kind~="space"and lw<w then line[#line+1]=it;lw=lw+1 end
else
local iw=it.kind=="box"and it.w or ulen(it.text)
if lw+iw>w and#line>0 then finish()end
if it.kind=="word"and iw>w then
local t=it.text
while ulen(t)>w-lw do
local room=math.max(1,w-lw)
line[#line+1]={kind="word",text=usub(t,1,room),fg=it.fg,bg=it.bg,href=it.href}
lw=lw+room
t=usub(t,room+1)
finish()
end
if t~=""then line[#line+1]={kind="word",text=t,fg=it.fg,bg=it.bg,href=it.href,input=it.input};lw=lw+ulen(t)end
else
line[#line+1]=it
lw=lw+iw
if it.kind=="box"then lh=math.max(lh,it.h)end
end
end
end
if#line>0 then finish()end
local cy=y
for _,ln in ipairs(lines)do
local cx=x
if align=="center"then cx=x+math.max(0,(w-ln.w)//2)
elseif align=="right"or align=="end"then cx=x+math.max(0,w-ln.w)end
local row=cy+ln.h-1
for _,it in ipairs(ln.items)do
if it.kind=="box"then
ops[#ops+1]={"img",cx,cy+ln.h-it.h,it.w,it.h,it.img,it.alt}
images[#images+1]=ops[#ops]
if it.href then links[#links+1]={x=cx,y=cy+ln.h-it.h,w=it.w,h=it.h,href=it.href}end
cx=cx+it.w
else
local t=it.kind=="space"and" "or it.text
local n=ulen(t)
ops[#ops+1]={"text",cx,row,t,readable(it.fg,it.bg or ctx.bg),it.bg}
if it.href then
local l=links[#links]
if l and l.href==it.href and l.y==row and l.x+l.w==cx then l.w=l.w+n
else links[#links+1]={x=cx,y=row,w=n,h=1,href=it.href}end
end
if it.input then
local inp=it.input
inp.x,inp.y,inp.w,inp.h=cx,row,n,1
inputs[#inputs+1]=inp
end
cx=cx+n
end
end
cy=cy+ln.h
end
return cy-y
end


local function blockMargins(st,ref)
return rh(len(st,"margin-top",ref)or 0),rh(len(st,"margin-bottom",ref)or 0)
end


function flowChildren(el,x,y,w,ctx)
local st=el.style
local cy=y
local prevMB=0
local first=true
local pending={}
local align=st["text-align"]or"left"
local listN=0
local function flushInline()
if#pending==0 then return end
local has=false
for _,it in ipairs(pending)do if it.kind~="space"then has=true break end end
if has then
cy=cy+(first and 0 or 0)
cy=cy+flowInline(pending,x,cy,w,align,ctx)
first=false
prevMB=0
end
pending={}
end
local floats={}
local function flushFloats()
if#floats==0 then return end

local rowH,lx,rx=0,x,x+w
local placed={}
for _,f in ipairs(floats)do
local fst=f.style
local fw=cw(len(fst,"width",w*PX)or 0)
if not fw or fw<=0 then fw=math.min(w,maxContent(f,w))end
fw=math.min(fw,w)
if lx+fw>rx then cy=cy+rowH;rowH,lx,rx=0,x,x+w end
local fx
if fst.float=="right"then rx=rx-fw;fx=rx else fx=lx;lx=lx+fw end
local h=layoutBox(f,fx,cy,fw,ctx)
rowH=math.max(rowH,h)
end
cy=cy+rowH
floats={}
first=false
end
for _,c in ipairs(el.children)do
tick()
if cy>maxRows then break end
local cst=c.style
if c.text then
flushFloats()
collectInline(c,pending,{style=st,fg=ctx.fg,bg=ctx.bg,href=ctx.href,form=ctx.form,width=w,wpx=w*PX,natural=ctx.natural})
elseif cst and not hidden(cst)and not outOfFlow(cst)then
if cst.float=="left"or cst.float=="right"then
flushInline()
floats[#floats+1]=c
elseif BLOCKISH[cst.display]then
flushInline()
flushFloats()
if cst.display=="list-item"then listN=listN+1;c.listIndex=listN end
local mt,mb=blockMargins(cst,w*PX)
if not first then cy=cy+math.max(0,math.max(mt,prevMB)-prevMB)else cy=cy+mt end
local h=layoutBox(c,x,cy,w,ctx)
cy=cy+h+mb
prevMB=mb
first=false
else
collectInline(c,pending,{style=st,fg=ctx.fg,bg=ctx.bg,href=ctx.href,form=ctx.form,width=w,wpx=w*PX,natural=ctx.natural})

local nb={}
for i=#pending,1,-1 do
if pending[i].kind=="block"then table.insert(nb,1,table.remove(pending,i))end
end
if#nb>0 then
flushInline()
for _,b in ipairs(nb)do
local h=layoutBox(b.el,x,cy,w,b.ctx)
cy=cy+h
end
end
end
end
end
flushInline()
flushFloats()
return cy-y
end

local function trackWidths(spec,n,w,gap)

local toks={}
spec=spec:gsub("repeat%(%s*(%d+)%s*,%s*([^%)]+%)?[^%)]*)%)",function(k,v)
return string.rep(v.." ",tonumber(k))
end)
for t in spec:gsub("minmax%b()","1fr"):gmatch("%S+")do toks[#toks+1]=t end
if#toks==0 then return nil end
local free=w-gap*(#toks-1)
local fixed,fr=0,0
local ws={}
for i,t in ipairs(toks)do
local f=t:match("^([%d%.]+)fr$")
if f then fr=fr+tonumber(f);ws[i]={fr=tonumber(f)}
elseif t=="auto"then fr=fr+1;ws[i]={fr=1}
else local px=C.px(t,w*PX)ws[i]={w=px and cw(px)or 1};fixed=fixed+ws[i].w end
end
local out={}
for i,t in ipairs(ws)do out[i]=t.w or math.max(1,math.floor((free-fixed)*t.fr/math.max(fr,1e-9)))end
return out
end


local function rowLayout(el,items,x,y,w,ctx,opts)
local st=el.style
local gap=cw(C.px(st["column-gap"],w*PX)or 0)or 0
local rgap=rh(C.px(st["row-gap"],nil)or 0)
local widths={}
local grow={}
for i,it in ipairs(items)do
local ist=it.style or st
local bw=it.style and(len(ist,"width",w*PX)or len(ist,"flex-basis",w*PX))
if opts.fixed and opts.fixed[i]then widths[i]=opts.fixed[i]
elseif bw then widths[i]=math.max(1,cw(bw))
else
local g=it.style and tonumber(ist["flex-grow"]or"")or 0
grow[i]=g
widths[i]=(g>0 and opts.flex)and math.min(w,math.max(1,maxContent(it,w)//2))or math.max(1,maxContent(it,w))
end
if it.style then
local mx=len(it.style,"max-width",w*PX)
if mx then widths[i]=math.min(widths[i],cw(mx))end
if not(opts.fixed and opts.fixed[i])then
local m=(cw(len(it.style,"margin-left",w*PX)or 0)or 0)+(cw(len(it.style,"margin-right",w*PX)or 0)or 0)
widths[i]=math.min(w,widths[i]+math.max(0,m))
end
end
end

local lines={{}}
local used=0
for i=1,#items do
local need=widths[i]+(#lines[#lines]>0 and gap or 0)
if opts.wrap and#lines[#lines]>0 and used+need>w then lines[#lines+1]={};used=0;need=widths[i]end
table.insert(lines[#lines],i)
used=used+need
end
local cy=y
for li,line in ipairs(lines)do
local total=gap*(#line-1)
for _,i in ipairs(line)do total=total+widths[i]end
local free=w-total
local gsum=0
for _,i in ipairs(line)do gsum=gsum+(grow[i]or 0)end
local lw={}
for _,i in ipairs(line)do lw[i]=widths[i]end
if free>0 and gsum>0 and opts.flex then
local left=free
for k,i in ipairs(line)do
local add=k==#line and left or math.floor(free*(grow[i]or 0)/gsum)
if(grow[i]or 0)>0 then lw[i]=lw[i]+add;left=left-add end
end
free=0
elseif free<0 then

local scale=(w-gap*(#line-1))/math.max(1,total-gap*(#line-1))
for _,i in ipairs(line)do lw[i]=math.max(1,math.floor(widths[i]*scale))end
free=0
end
local jc=st["justify-content"]or"flex-start"
local cx,extra=x,0
if free>0 and opts.flex then
if jc=="center"then cx=x+free//2
elseif jc=="flex-end"or jc=="end"or jc=="right"then cx=x+free
elseif jc=="space-between"and#line>1 then extra=free/(#line-1)
elseif jc=="space-around"or jc=="space-evenly"then extra=free/(#line+1);cx=x+math.floor(extra)end
end
local rowH=0
local placed={}
local acc=0
for k,i in ipairs(line)do
local it=items[i]
local o0,l0,i0=#ops+1,#links+1,#inputs+1
local ix=cx+math.floor(acc)
local h
if it.text then
h=flowInline((function()local t={}collectInline(it,t,{style=st,fg=ctx.fg,bg=ctx.bg,width=lw[i],wpx=lw[i]*PX,natural=ctx.natural})return t end)(),
ix,cy,lw[i],"left",ctx)
else
local mt,mb=blockMargins(it.style,w*PX)
local ml=math.max(0,cw(len(it.style,"margin-left",w*PX)or 0)or 0)
local mr=math.max(0,cw(len(it.style,"margin-right",w*PX)or 0)or 0)
if ml+mr>=lw[i]then ml,mr=0,0 end
h=layoutBox(it,ix+ml,cy+mt,lw[i]-ml-mr,ctx,true)+mt+mb
end
placed[#placed+1]={it=it,h=h,o0=o0,l0=l0,i0=i0,x=ix,w=lw[i]}
rowH=math.max(rowH,h)
acc=acc+lw[i]+gap+extra
end

local ai=st["align-items"]or"stretch"
for _,p in ipairs(placed)do
if(ai=="center")and p.h<rowH then shiftFrom(p.o0,p.l0,p.i0,0,(rowH-p.h)//2)
elseif(ai=="flex-end"or ai=="end")and p.h<rowH then shiftFrom(p.o0,p.l0,p.i0,0,rowH-p.h)end
if ai=="stretch"and p.it.bgOp then p.it.bgOp[5]=math.max(p.it.bgOp[5],rowH-(p.it.bgOp[3]-cy))end
end
cy=cy+rowH+(li<#lines and rgap or 0)
end
return cy-y
end


function layoutBox(el,x,y,w,ctx,flexItem)
tick()
local st=el.style
if not st or hidden(st)then return 0 end

local wpx=w*PX
local ml,mr=len(st,"margin-left",wpx),len(st,"margin-right",wpx)
local bw=len(st,"width",wpx)
local mx=len(st,"max-width",wpx)
local bx,bwc=x,w
local mlc,mrc=cw(ml or 0)or 0,cw(mr or 0)or 0
if flexItem then bw,mx,mlc,mrc=nil,nil,0,0 end
if bw then bwc=math.min(w,cw(bw))else bwc=math.max(1,w-math.max(0,mlc)-math.max(0,mrc))end
if mx then bwc=math.min(bwc,cw(mx))end
if el.tag=="table"and not bw then bwc=w end
if flexItem then bx=x
elseif st["margin-left"]=="auto"and st["margin-right"]=="auto"then bx=x+math.max(0,(w-bwc)//2)
elseif st["margin-left"]=="auto"then bx=x+math.max(0,w-bwc)
else bx=x+math.max(0,math.min(mlc,w-1))end
bwc=math.max(1,math.min(bwc,x+w-bx))

local bg=colorOf(st["background-color"],ctx.bg)
local bgOp
if bg and bg~=ctx.bg then bgOp=emitFill(bx,y,bwc,1,bg)end
local bgImg=(st["background-image"]or""):match("url%(([^)]+)%)")
local imgOp
if bgImg and not bgImg:find("^data:")then
imgOp={"img",bx,y,bwc,1,bgImg,"",cover=true}
ops[#ops+1]=imgOp
images[#images+1]=imgOp
end
el.bgOp=bgOp
local fg=colorOf(st.color,bg or ctx.bg)or ctx.fg
local sub={fg=fg,bg=bg or ctx.bg,href=ctx.href,form=ctx.form,natural=ctx.natural}
if el.tag=="a"and el.attrs.href then sub.href=el.attrs.href end
if el.tag=="form"then sub.form=el end

local pl,pr=cw(len(st,"padding-left",wpx)or 0)or 0,cw(len(st,"padding-right",wpx)or 0)or 0
local pt,pb=rh(len(st,"padding-top",wpx)or 0),rh(len(st,"padding-bottom",wpx)or 0)
if not bg and not bgImg then pt,pb=math.min(pt,1),math.min(pb,1)end
local border=st.border or st["border-top"]or st["border-bottom"]
local cx,cwid=bx+pl,math.max(1,bwc-pl-pr)
local cy=y+pt

if st.display=="list-item"and st["list-style-type"]~="none"then
local t=st["list-style-type"]or"disc"
local m=(t=="decimal"or t=="decimal-leading-zero")and((el.listIndex or 1)..". ")or(t=="circle"and"◦ "or t=="square"and"▪ "or"• ")
ops[#ops+1]={"text",math.max(1,cx-ulen(m)),cy,m,fg,nil}
end
local h
local disp=st.display
if disp=="inline-flex"then disp="flex"elseif disp=="inline-grid"then disp="grid"end
if el.tag=="hr"then
local c=colorOf((st["border-top"]or""):match("(#%x+)")or(st["border-top"]or""):match("(rgba?%b())")or"#888888")or 0x888888
ops[#ops+1]={"text",cx,cy,string.rep("─",cwid),c,nil}
h=1
elseif disp=="flex"and not((st["flex-direction"]or"row"):find("column"))then
local items={}
for _,c in ipairs(el.children)do
if c.text then if c.text:find("%S")then items[#items+1]=c end
elseif c.style and not hidden(c.style)and not outOfFlow(c.style)then items[#items+1]=c end
end
h=rowLayout(el,items,cx,cy,cwid,sub,{flex=true,wrap=(st["flex-wrap"]or""):find("wrap")~=nil})
elseif disp=="grid"and st["grid-template-columns"]then
local items={}
for _,c in ipairs(el.children)do
if c.style and not hidden(c.style)and not outOfFlow(c.style)then items[#items+1]=c end
end
local gap=cw(C.px(st["column-gap"],wpx)or 0)or 0
local tw=trackWidths(st["grid-template-columns"],#items,cwid,gap)
if tw then
h=0
local rgap=rh(C.px(st["row-gap"],nil)or 0)
for r0=1,#items,#tw do
local rowItems,fixed={},{}
for k=0,#tw-1 do if items[r0+k]then rowItems[#rowItems+1]=items[r0+k];fixed[#fixed+1]=tw[k+1]end end
h=h+rowLayout(el,rowItems,cx,cy+h,cwid,sub,{fixed=fixed})+rgap
end
else
h=flowChildren(el,cx,cy,cwid,sub)
end
elseif disp=="table"then
local rows={}
require("ocdom").walk(el,function(n)if n~=el and n.tag=="table"then return false end if n.tag=="tr"then rows[#rows+1]=n return false end end)
local ncol=0
local cells={}
for r,tr in ipairs(rows)do
cells[r]={}
for _,c in ipairs(tr.children)do if c.tag=="td"or c.tag=="th"then cells[r][#cells[r]+1]=c end end
ncol=math.max(ncol,#cells[r])
end
if ncol==0 then h=flowChildren(el,cx,cy,cwid,sub)else
local pref={}
for c=1,ncol do
pref[c]=1
for r=1,#rows do if cells[r][c]then pref[c]=math.max(pref[c],maxContent(cells[r][c],cwid))end end
end
local sum=0 for c=1,ncol do sum=sum+pref[c]end
local fixed={}
for c=1,ncol do fixed[c]=math.max(1,math.floor(pref[c]*math.min(1,(cwid-ncol+1)/sum)))end
h=0
for r=1,#rows do
local f={}
for c=1,#cells[r]do f[c]=fixed[c]end
if#cells[r]>0 then
h=h+rowLayout(el,cells[r],cx,cy+h,cwid,sub,{fixed=f,gap=1})
end
end
end
else
h=flowChildren(el,cx,cy,cwid,sub)
end
local minH=rh(len(st,"min-height")or 0)
local fixH=len(st,"height")
local total=pt+h+pb
if fixH and(bg or bgImg)then total=math.max(rh(fixH),1)elseif minH>total then total=minH end
if border and not border:find("none")and(bg or bgImg)==nil and total>0 then

local col=colorOf(border:match("(#%x+)")or border:match("(rgba?%b())")or"")
if col and total>=2 and bwc>=3 then
ops[#ops+1]={"text",bx,y+total,"└"..string.rep("─",bwc-2).."┘",col,nil}
total=total+1
end
end
if bgOp then bgOp[5]=math.max(1,total)end
if imgOp then imgOp[5]=math.max(1,total)end
return total
end


local html=require("ocdom").find(dom,"html")or dom
local body=require("ocdom").find(dom,"body")or html
local pageBg=colorOf(body.style and body.style["background-color"])or colorOf(html.style and html.style["background-color"])or 0xFFFFFF
local fg=colorOf(body.style and body.style.color)or 0x000000
local ctx={fg=fg,bg=pageBg,natural=L.natural}
local h
if body.style then
local mt=rh(len(body.style,"margin-top",vw)or 0)
h=mt+layoutBox(body,1,1+mt,cols,ctx)
else
h=flowChildren(html,1,1,cols,ctx)
end
return{ops=ops,links=links,inputs=inputs,images=images,height=math.max(1,h),bg=pageBg,fg=fg,cols=cols}
end

return L
F 5436 /lib/ocvlib.lua




local fs=require("filesystem")
local byte,concat,floor=string.byte,table.concat,math.floor

local L={}
local HEADER_SIZE=64
local OP_BG,OP_FG,OP_BOTH,OP_TEXT=1,2,3,4
L.CODES={[0]=0x20,0x2584,0x2580,0x2588}

local function u16(s,o)return byte(s,o)*0x100+byte(s,o+1)end
local function u32(s,o)return u16(s,o)*0x10000+u16(s,o+2)end

function L.isVideo(dir)return fs.exists(fs.concat(dir,"index.ocv"))end

function L.readIndex(dir)
local f,err=io.open(fs.concat(dir,"index.ocv"),"rb")
if not f then return nil,"cannot open index.ocv: "..tostring(err)end
local h=f:read(HEADER_SIZE)
f:close()
if not h or#h<HEADER_SIZE or h:sub(1,4)~="OCV5"then return nil,"not an OCV5 video"end
local v={dir=dir,width=u16(h,5),height=u16(h,7),fps=u16(h,9)/100,
frames=u32(h,11),parts=u16(h,15),header=h}
if v.width<1 or v.height<1 or v.fps<=0 or v.frames<1 or v.parts<1 then return nil,"empty or damaged video"end
v.duration=v.frames/v.fps
v.bytes=0
for i=1,v.parts do v.bytes=v.bytes+(fs.size(fs.concat(dir,string.format("part%04d.ocv",i)))or 0)end
v.name=fs.name(dir)
return v
end


function L.colors(video)
local h,rgb=video.header,{}
for i=0,15 do
local o=17+i*3
rgb[i]=byte(h,o)*0x10000+byte(h,o+1)*0x100+byte(h,o+2)
end
for i=0,239 do
local r=floor(floor(i/40)*255/5+0.5)
local g=floor(floor(i/5)%8*255/7+0.5)
local b=floor(i%5*255/4+0.5)
rgb[16+i]=r*0x10000+g*0x100+b
end
return rgb
end


function L.openStream(video,capacity)
local part,file=0,nil
local queue,head,tail,bytes={},1,0,0
local eof=false
local s={}
local function readFrame()
while true do
if not file then
part=part+1
if part>video.parts then return nil end
local path=fs.concat(video.dir,string.format("part%04d.ocv",part))
local err
file,err=io.open(path,"rb")
if not file then error("cannot open "..path..": "..tostring(err),0)end
end
local h4=file:read(4)
if h4 and#h4==4 then
local len=u32(h4,1)
if len==0 then return""end
local data=file:read(len)
if not data or#data<len then error("truncated frame in part "..part,0)end
return data
end
file:close()
file=nil
end
end
function s.fill(maxFrames)
local n=0
while not eof and bytes<capacity and n<maxFrames do
local data=readFrame()
if not data then eof=true;break end
tail=tail+1
queue[tail]=data
bytes=bytes+#data
n=n+1
end
return n
end
function s.next()
if head>tail then s.fill(1)end
if head>tail then return nil end
local data=queue[head]
queue[head]=nil
head=head+1
bytes=bytes-#data
return data
end
function s.buffered()return tail-head+1,bytes end
function s.close()
if file then file:close();file=nil end
queue,head,tail,bytes={},1,0,0
end
return s
end



function L.newGrid(w,h,black)
local g={}
local v=0x20|(black<<21)|(black<<29)
for i=1,w*h do g[i]=v end
return g
end


function L.decodeToGrid(data,grid,gw,idx,st)
local codes=L.CODES
local p,n,sets=1,#data,0
local fg,bg=st.fg or idx[0],st.bg or idx[0]
while p<=n do
local op=byte(data,p)
if op==OP_TEXT then
local x,y,len=byte(data,p+1,p+3)
local q=p+4
local i=(y-1)*gw+x
local colors=(fg<<21)|(bg<<29)
local cnt=(len+3)//4
for k=0,cnt-1 do
local b=byte(data,q+k)
local m=math.min(4,len-k*4)
for j=1,m do
grid[i]=codes[(b>>(2*(4-j)))&3]|colors
i=i+1
end
end
p=q+cnt
sets=sets+1
elseif op==OP_BOTH then bg,fg=idx[byte(data,p+1)],idx[byte(data,p+2)];p=p+3
elseif op==OP_BG then bg=idx[byte(data,p+1)];p=p+2
elseif op==OP_FG then fg=idx[byte(data,p+1)];p=p+2
else error(string.format("corrupted frame: op %d at %d",op,p),0)end
end
st.fg,st.bg=fg,bg
return sets
end


function L.glyphs()
local chars={[0]=" ","▄","▀","█"}
local t={}
for n=1,4 do
t[n]={}
for b=0,255 do
local s={}
for i=1,n do s[i]=chars[floor(b/4^(4-i))%4]end
t[n][b]=concat(s)
end
end
return t
end


function L.gpuRenderer(gpu,colors,glyphs)
local setBg,setFg,set=gpu.setBackground,gpu.setForeground,gpu.set
local g4=glyphs[4]
local parts={}
return function(data)
local p,n=1,#data
while p<=n do
local op=byte(data,p)
if op==OP_TEXT then
local x,y,len=byte(data,p+1,p+3)
local q=p+4
if len<=4 then
set(x,y,glyphs[len][byte(data,q)])
p=q+1
else
local full=floor(len/4)
for i=1,full do parts[i]=g4[byte(data,q+i-1)]end
local cnt,rest=full,len-full*4
if rest>0 then cnt=cnt+1;parts[cnt]=glyphs[rest][byte(data,q+full)]end
set(x,y,concat(parts,"",1,cnt))
p=q+cnt
end
elseif op==OP_BOTH then setBg(colors[byte(data,p+1)]);setFg(colors[byte(data,p+2)]);p=p+3
elseif op==OP_BG then setBg(colors[byte(data,p+1)]);p=p+2
elseif op==OP_FG then setFg(colors[byte(data,p+1)]);p=p+2
else error(string.format("corrupted frame: op %d at %d",op,p),0)end
end
end
end



function L.paintGrid(gpu,grid,gw,gh,rgbOf)
local curF,curB
for y=1,gh do
local x=1
local base=(y-1)*gw
while x<=gw do
local v=grid[base+x]
local f,b=(v>>21)&255,(v>>29)&255
local chars,x2={},x
while x2<=gw do
local v2=grid[base+x2]
if((v2>>21)&255)~=f or((v2>>29)&255)~=b then break end
chars[#chars+1]=utf8.char(v2&0x1FFFFF)
x2=x2+1
end
if b~=curB then gpu.setBackground(rgbOf(b));curB=b end
if f~=curF then gpu.setForeground(rgbOf(f));curF=f end
gpu.set(x,y,table.concat(chars))
x=x2
end
end
end


function L.find(roots,depth)
local found,seen={},{}
local function walk(dir,d)
dir=fs.canonical(dir)
if seen[dir]or not fs.isDirectory(dir)then return end
seen[dir]=true
if L.isVideo(dir)then found[#found+1]=dir return end
if d<=0 then return end
for name in fs.list(dir)do
if name:sub(-1)=="/"then walk(fs.concat(dir,name),d-1)end
end
end
for _,r in ipairs(roots)do pcall(walk,r,depth or 2)end
table.sort(found)
return found
end

return L
F 31943 /lib/ocweb.lua





local unicode=require("unicode")
local W={}

local function ui_size_(n)
if n>=1048576 then return string.format("%.1f MB",n/1048576)end
if n>=1024 then return string.format("%.1f KB",n/1024)end
return n.." B"
end
W.size=ui_size_


function W.parse(url)
local scheme,rest=url:match("^(%a[%w+.-]*):(.*)$")
if not scheme then return{path=url}end
local u={scheme=scheme:lower()}
local frag
rest,frag=rest:match("^([^#]*)#?(.*)$")
u.fragment=frag~=""and frag or nil
local q
rest,q=rest:match("^([^?]*)%??(.*)$")
u.query=q~=""and q or nil
local auth,path=rest:match("^//([^/]*)(.*)$")
u.host=auth
u.path=(path or rest)
if u.host and u.path==""then u.path="/"end
return u
end

local function dotSegments(path)
local out,parts={},{}
for seg in(path.."/"):gmatch("([^/]*)/")do parts[#parts+1]=seg end
for i,seg in ipairs(parts)do
if seg==".."then if#out>1 then out[#out]=nil end
elseif seg~="."then out[#out+1]=seg end
if(seg=="."or seg=="..")and i==#parts then out[#out+1]=""end
end
local r=table.concat(out,"/")
if path:sub(1,1)=="/"and r:sub(1,1)~="/"then r="/"..r end
return r
end

function W.resolve(base,href)
href=(href or""):gsub("^%s+",""):gsub("%s+$","")
if href==""then return base end
if href:match("^%a[%w+.-]*:")then return href end
local b=W.parse(base)
if not b.scheme or not b.host then return href end
local origin=b.scheme.."://"..b.host
if href:sub(1,2)=="//"then return b.scheme..":"..href end
if href:sub(1,1)=="#"then return(base:gsub("#.*$",""))..href end
if href:sub(1,1)=="?"then return origin..b.path..href end
if href:sub(1,1)=="/"then return origin..dotSegments(href:match("^[^?#]*"))..(href:match("[?#].*$")or"")end
local dir=b.path:match("^(.*/)")or"/"
local p,tail=href:match("^([^?#]*)(.*)$")
return origin..dotSegments(dir..p)..tail
end

function W.normalize(input,searchUrl)
input=input:gsub("^%s+",""):gsub("%s+$","")
if input==""then return nil end
if input:match("^%a[%w+.-]*:")then return input end

if not input:find("%s")and(input:find("%.")or input:match("^localhost")or input:match("^%d+%.%d+%.%d+%.%d+"))then
return"http://"..input
end
return(searchUrl or"https://html.duckduckgo.com/html/?q=")..W.urlencode(input)
end

function W.urlencode(s)
return(s:gsub("[^%w%-_%.~]",function(c)return string.format("%%%02X",c:byte())end))
end



local CP1251={[0xA8]="Ё",[0xB8]="ё",[0xAB]="«",[0xBB]="»",[0x96]="–",[0x97]="—",[0x85]="…",
[0xB9]="№",[0x93]="“",[0x94]="”",[0xA0]=" "}
function W.fromCP1251(s)
return(s:gsub("[\128-\255]",function(c)
local b=c:byte()
if b>=0xC0 then return utf8.char(0x410+b-0xC0)end
return CP1251[b]or"?"
end))
end

function W.sanitize(s)
if utf8.len(s)then return s end
local out,i,n={},1,#s
while i<=n do
local ok,cp=pcall(utf8.codepoint,s,i)
if ok then
local ch=utf8.char(cp)
out[#out+1]=ch
i=i+#ch
else
out[#out+1]="?"
i=i+1
end
end
return table.concat(out)
end

local ENT={amp="&",lt="<",gt=">",quot='"',apos="'",nbsp=" ",copy="©",reg="®",trade="™",
mdash="—",ndash="–",hellip="…",laquo="«",raquo="»",bull="•",middot="·",deg="°",
euro="€",times="×",larr="←",rarr="→",uarr="↑",darr="↓",ldquo="“",rdquo="”",
lsquo="‘",rsquo="’",shy=""}
function W.decodeEntities(s)
return(s:gsub("&(#?[%w]+);?",function(e)
local n=e:match("^#[xX](%x+)$")
if n then n=tonumber(n,16)else n=e:match("^#(%d+)$");n=n and tonumber(n)end
if n then
if n<32 or n>0x10FFFF then return" "end
return utf8.char(n)
end
return ENT[e:lower()]or("&"..e..";")
end))
end


local REDIRECT={[301]=true,[302]=true,[303]=true,[307]=true,[308]=true}
W.USER_AGENT="OCBrowser/3.0 (OpenComputers)"
W.MAX_BYTES=512*1024
W.TIMEOUT=15

local function header(h,name)
if not h then return nil end
local v=h[name]
if v==nil then
for k,x in pairs(h)do if type(k)=="string"and k:lower()==name:lower()then v=x break end end
end
if type(v)=="table"then v=v[1]end
return v
end



function W.fetch(inet,url,opts)
opts=opts or{}
local job={url=url,state="connect",chunks={},received=0,redirects=0,started=os.clock()}
local computer=require("computer")
local function open(u)
job.url=u
job.state="connect"
job.deadline=computer.uptime()+(opts.timeout or W.TIMEOUT)
local post=job.redirects==0 and opts.post or nil
local hdr={["User-Agent"]=W.USER_AGENT,["Accept"]="text/html,text/plain;q=0.9,*/*;q=0.5",
["Accept-Encoding"]="identity",["Accept-Language"]="ru,en;q=0.8"}
if post then hdr["Content-Type"]="application/x-www-form-urlencoded"end
local ok,req=pcall(inet.request,u,post,hdr)
if not ok or not req then job.state,job.err="error","request failed: "..tostring(req)return end
job.req=req
end
local function fail(msg)
job.state,job.err="error",msg
if job.req then pcall(job.req.close)end
end
function job:step()
if self.state=="done"or self.state=="error"then return self.state end
local ok,err=pcall(function()
if self.state=="connect"then
local done,e=self.req.finishConnect()
if e then return fail(tostring(e))end
if done then self.state="headers"elseif computer.uptime()>self.deadline then fail("connection timed out")end
return
end
if self.state=="headers"then
local code,msg,headers=self.req.response()
if not code then
if computer.uptime()>self.deadline then fail("no response")end
return
end
self.code,self.msg,self.headers=code,msg,headers
if REDIRECT[code]then
local loc=header(headers,"location")
if loc then
pcall(self.req.close)
self.redirects=self.redirects+1
if self.redirects>10 then return fail("too many redirects")end
return open(W.resolve(self.url,loc))
end
end
self.ct=header(headers,"content-type")or""
self.total=tonumber(header(headers,"content-length")or"")
self.state="body"
return
end
if self.state=="body"then
for _=1,4 do
local chunk,e=self.req.read(8192)
if not chunk then
if e then return fail(tostring(e))end
pcall(self.req.close)
self.body=table.concat(self.chunks)
self.chunks=nil
self.state="done"
return
end
if#chunk>0 then
self.chunks[#self.chunks+1]=chunk
self.received=self.received+#chunk
if self.received>(opts.maxBytes or W.MAX_BYTES)then
pcall(self.req.close)
self.body=table.concat(self.chunks)
self.chunks,self.truncated,self.state=nil,true,"done"
return
end
else return end
end
end
end)
if not ok then fail(tostring(err))end
self.progress=self.total and self.total>0 and math.min(1,self.received/self.total)or nil
return self.state
end
function job:cancel()if self.req then pcall(self.req.close)end self.state="error";self.err="cancelled"end
open(url)
return job
end


function W.decodeBody(body,ct)
local cs=(ct or""):lower():match("charset=([%w%-_]+)")
if not cs then cs=body:sub(1,2048):lower():match("<meta[^>]-charset=[\"']?([%w%-_]+)")end
if cs and(cs:find("1251")or cs=="cp1251")then body=W.fromCP1251(body)end
return W.sanitize(body)
end




local BLOCK={p=true,div=true,section=true,article=true,header=true,footer=true,main=true,
nav=true,aside=true,form=true,table=true,tr=true,dl=true,dt=true,dd=true,figure=true,
figcaption=true,center=true,address=true,details=true,summary=true}
local HEAD={h1=1,h2=2,h3=3,h4=4,h5=5,h6=6}
local SKIP={script=true,style=true,noscript=true,svg=true,template=true,iframe=true,select=true}

function W.layout(html,width,C,isHtml)
local lines,links,anchors={},{},{}
local pendingBullet,pendingSep
local afterLink=false
local cur,curLen,indent=nil,0,0
local title
local function newLine()
cur={segs={},indent=indent}
lines[#lines+1]=cur
curLen=indent
end
local function blank()
if#lines>0 and(#lines[#lines].segs>0)then newLine()end
if cur and#cur.segs>0 then newLine()end
end
local function breakLine()newLine()end
local function addSeg(text,style)
if not cur then newLine()end
local last=cur.segs[#cur.segs]
if last and last.fg==style.fg and last.href==style.href and last.bg==style.bg then
last.text=last.text..text
else
cur.segs[#cur.segs+1]={text=text,fg=style.fg,href=style.href,bg=style.bg}
end
if style.href then
local l=links[#links]
if l and l.line==#lines and l.href==style.href and l.x2==curLen then l.x2=curLen+unicode.len(text);l.text=l.text..text
else links[#links+1]={line=#lines,x1=curLen,x2=curLen+unicode.len(text),href=style.href,text=text}end
end
curLen=curLen+unicode.len(text)
end

local addText0
local function addText(text,style,pre)
if(pendingBullet or pendingSep)and text:find("%S")then
if pendingBullet then
newLine();curLen=indent
addSeg(pendingBullet,{fg=C.accent})
pendingBullet=nil
elseif pendingSep then
if cur and#cur.segs>0 then addSeg(" · ",{fg=C.dim})end
pendingSep=nil
end
text=text:gsub("^%s+","")
end
return addText0(text,style,pre)
end
function addText0(text,style,pre)
if pre then
local first=true
for part in(text.."\n"):gmatch("([^\n]*)\n")do
if not first then breakLine()end
first=false
while unicode.len(part)>0 do
local room=width-curLen
if room<=0 then breakLine();room=width-curLen end
addSeg(unicode.sub(part,1,room),style)
part=unicode.sub(part,room+1)
end
end
return
end
for space,word in text:gmatch("(%s*)(%S*)")do
if space~=""and cur and#cur.segs>0 and curLen<width then
local last=cur.segs[#cur.segs].text
if last:sub(-1)~=" "then addSeg(" ",style)end
end
if word~=""then
local wl=unicode.len(word)
if curLen+wl>width and cur and#cur.segs>0 then breakLine()end
while unicode.len(word)>width-curLen do
local room=math.max(1,width-curLen)
addSeg(unicode.sub(word,1,room),style)
word=unicode.sub(word,room+1)
breakLine()
end
if word~=""then addSeg(word,style)end
end
end
end

if not isHtml then
for l in(html:gsub("\r\n?","\n").."\n"):gmatch("([^\n]*)\n")do
newLine()
addText(l:gsub("\t","    "),{fg=C.text},true)
end
return{lines=lines,links=links,anchors=anchors}
end

local style={fg=C.text}
local styles={}
local function push(s)
styles[#styles+1]=style
local n={}
for k,v in pairs(style)do n[k]=v end
for k,v in pairs(s)do n[k]=v end
style=n
end
local function pop()if#styles>0 then style=table.remove(styles)end end
local skip,pre=nil,0
local lists={}
local hideTag,hideDepth=nil,0
local navDepth=0
local VOID={br=true,hr=true,img=true,input=true,meta=true,link=true,area=true,base=true,
col=true,embed=true,source=true,track=true,wbr=true}
local function isHidden(tag)
local low=tag:lower()
if low:find("%shidden[%s/>=]")or low:find("%shidden$")or low:find('aria%-hidden%s*=%s*["\']?true')then return true end
local style=low:match('style%s*=%s*"([^"]*)"')or low:match("style%s*=%s*'([^']*)'")or""
if style:find("display%s*:%s*none")or style:find("visibility%s*:%s*hidden")then return true end
local cls=" "..(low:match('class%s*=%s*"([^"]*)"')or low:match("class%s*=%s*'([^']*)'")or"").." "
for _,c in ipairs({"hidden","d%-none","sr%-only","visually%-hidden","invisible","screen%-reader%-text",
"mobile%-menu","mobile%-nav","offcanvas","modal","dropdown%-menu","tooltip","popover","cookie"})do
if cls:find("[%s]"..c.."[%s]")then return true end
end
return false
end
local pos,len=1,#html
while pos<=len do
if skip then
local e=html:lower():find("</"..skip,pos,true)
if not e then break end
pos=e
skip=nil
end
local lt=html:find("<",pos,true)
local textEnd=(lt or(len+1))-1
if textEnd>=pos and not hideTag then
local t=W.decodeEntities(html:sub(pos,textEnd))
if t:find("%S")then afterLink=false end
if pre>0 then addText(t,style,true)elseif t:find("%S")or(cur and#cur.segs>0)then addText(t,style,false)end
end
if not lt then break end
if html:sub(lt,lt+3)=="<!--"then
local e=html:find("-->",lt+4,true)
pos=e and e+3 or len+1
else
local gt=html:find(">",lt,true)
if not gt then break end
local tag=html:sub(lt+1,gt-1)
pos=gt+1
local close=tag:sub(1,1)=="/"
local name=(tag:match("^/?%s*([%w]+)")or""):lower()
if hideTag then
if name==hideTag and not VOID[name]then hideDepth=hideDepth+(close and-1 or 1)end
if hideDepth<=0 then hideTag=nil end
goto continue
end
if not close and not VOID[name]and not tag:find("/%s*$")and isHidden(tag)then
hideTag,hideDepth=name,1
goto continue
end
if name=="nav"or name=="header"then navDepth=math.max(0,navDepth+(close and-1 or 1))end
local function attr(a)
return tag:match(a..'%s*=%s*"([^"]*)"')or tag:match(a.."%s*=%s*'([^']*)'")or tag:match(a.."%s*=%s*([^%s>]+)")
end
if name=="title"and not close then
local e=html:lower():find("</title",pos,true)
if e then title=W.decodeEntities(html:sub(pos,e-1)):gsub("%s+"," "):gsub("^ ",""):gsub(" $","");pos=e end
elseif SKIP[name]and not close and not tag:find("/%s*$")then
skip=name
elseif name=="br"then breakLine()
elseif name=="hr"then blank();addSeg(string.rep("─",width-indent),{fg=C.dim});newLine()
elseif HEAD[name]then
blank()
if close then pop();newLine()else push({fg=C.heading});if HEAD[name]<=2 then addSeg(HEAD[name]==1 and"█ "or"▌ ",{fg=C.accent})end end
elseif name=="pre"then
blank()
if close then pre=math.max(0,pre-1);pop()else pre=pre+1;push({fg=C.code})end
elseif name=="code"or name=="kbd"or name=="samp"or name=="tt"then
if close then pop()else push({fg=C.code})end
elseif name=="b"or name=="strong"then if close then pop()else push({fg=C.strong})end
elseif name=="i"or name=="em"or name=="cite"then if close then pop()else push({fg=C.em})end
elseif name=="a"then
if close then pop();afterLink=true
else

if afterLink and cur and#cur.segs>0 and cur.segs[#cur.segs].text:sub(-1)~=" "then
addSeg(" · ",{fg=C.dim})
end
local href=attr("href")
local id=attr("name")or attr("id")
if id then anchors[id]=#lines+1 end
push(href and{fg=C.link,href=href}or{})
end
elseif name=="ul"or name=="ol"then
if close then
local l=table.remove(lists)
if l and l.inline then newLine()else indent=math.max(0,indent-2);blank()end
else
local cls=(tag:lower():match('class%s*=%s*"([^"]*)"')or"")
local inline=navDepth>0 or cls:find("nav")or cls:find("menu")or cls:find("breadcrumb")or cls:find("inline")
or(lists[#lists]and lists[#lists].inline)
if inline then
if cur and#cur.segs>0 then newLine()end
else blank();indent=indent+2 end
lists[#lists+1]={ordered=name=="ol",n=0,inline=inline and true or false}
end
elseif name=="li"and not close then
local l=lists[#lists]
if l then l.n=l.n+1 end
if l and l.inline then

pendingSep=l.n>1
afterLink=false
else
pendingBullet=l and l.ordered and(l.n..". ")or"• "
end
elseif name=="blockquote"then
blank()
if close then indent=math.max(0,indent-2);pop()else indent=indent+2;push({fg=C.em})end
elseif name=="td"or name=="th"then
if not close and cur and#cur.segs>0 then addSeg(" │ ",{fg=C.dim})end
if name=="th"then if close then pop()else push({fg=C.strong})end end
elseif name=="img"then
local alt=attr("alt")
if alt and alt~=""then addText("["..W.decodeEntities(alt).."]",{fg=C.dim})end
elseif name=="input"and not close then
local t=(attr("type")or"text"):lower()
if t=="submit"or t=="button"then addText("["..W.decodeEntities(attr("value")or"OK").."]",{fg=C.accent})
elseif t~="hidden"then addText("[____]",{fg=C.dim})end
elseif BLOCK[name]then
blank()
end
local id=attr("id")
if id and not close then anchors[id]=anchors[id]or(#lines+(cur and#cur.segs>0 and 1 or 0))end
::continue::
end
end

while#lines>0 and#lines[#lines].segs==0 do lines[#lines]=nil end
return{lines=lines,links=links,title=title,anchors=anchors}
end




local CONF="/home/.config/ocbrowser"
local function loadList(name)
local f=io.open(CONF.."/"..name)
if not f then return{}end
local ok,t=pcall(require("serialization").unserialize,f:read("*a"))
f:close()
return ok and type(t)=="table"and t or{}
end
local function saveList(name,t)
require("filesystem").makeDirectory(CONF)
local f=io.open(CONF.."/"..name,"w")
if f then f:write(require("serialization").serialize(t));f:close()end
end

local function esc(s)return(s:gsub("&","&amp;"):gsub("<","&lt;"):gsub(">","&gt;"):gsub('"',"&quot;"))end

function W.session(o)
local S={url="about:home",back={},fwd={},width=o.width or 80,colors=o.colors,
bookmarks=loadList("bookmarks"),globalHistory=loadList("history"),status="",source=false}
local inet=o.inet

local function aboutPage(url)
local name=url:match("^about:(%w*)")or"home"
local h={"<html><head><title>",name=="home"and"OCBrowser"or("about:"..name),"</title></head><body>"}
local function add(...)for _,x in ipairs({...})do h[#h+1]=x end end
if name=="bookmarks"then
add("<h1>Bookmarks</h1>")
if#S.bookmarks==0 then add("<p>No bookmarks yet. Press Ctrl+D on a page.</p>")end
add("<ul>")
for _,b in ipairs(S.bookmarks)do add('<li><a href="',esc(b.url),'">',esc(b.title or b.url),"</a></li>")end
add("</ul>")
elseif name=="history"then
add("<h1>History</h1><ul>")
for i=#S.globalHistory,math.max(1,#S.globalHistory-99),-1 do
local e=S.globalHistory[i]
add('<li><a href="',esc(e.url),'">',esc(e.title or e.url),"</a></li>")
end
add("</ul>")
else
add("<h1>OCBrowser 3.0</h1><p>Type an address or words to search (DuckDuckGo).</p>")
if#S.bookmarks>0 then
add("<h3>Bookmarks</h3><ul>")
for i=1,math.min(10,#S.bookmarks)do local b=S.bookmarks[i]add('<li><a href="',esc(b.url),'">',esc(b.title or b.url),"</a></li>")end
add("</ul>")
end
add([[<h3>Try</h3><ul>
<li><a href="http://example.com">example.com</a> - test page</li>
<li><a href="http://wttr.in/?format=3">wttr.in</a> - weather (plain text)</li>
<li><a href="https://html.duckduckgo.com/html/?q=opencomputers">DuckDuckGo</a> - search</li>
<li><a href="http://neverssl.com">neverssl.com</a> - plain HTTP</li>
<li><a href="about:bookmarks">about:bookmarks</a> · <a href="about:history">about:history</a></li></ul>
<h3>Keys</h3><p>Ctrl+L address · Enter open · Tab next link · Alt+Left/Right back/forward · F5 reload ·
Ctrl+F find · Ctrl+D bookmark · Ctrl+U view source · Ctrl+S save page · Space/PgDn scroll · Esc stop</p>]])
end
add("</body></html>")
return table.concat(h)
end





local cfgMode=loadList("mode")
S.textOnly=cfgMode.textOnly or false
function S.setTextOnly(v)S.textOnly=v and true or false;saveList("mode",{textOnly=S.textOnly})end
S.imgCache,S.imgNat,S.imgData={},{},{}
local budget=0.04
local sliceStart=0
local okc,computerLib=pcall(require,"computer")
local function freeMem()
if okc and computerLib and computerLib.freeMemory then return computerLib.freeMemory()end
return math.huge
end
local lowCount=0
local function slice()
if os.clock()-sliceStart>budget then

if freeMem()<100*1024 then
lowCount=lowCount+1
if lowCount>25 then error("not enough memory for the styled view",0)end
else lowCount=0 end
coroutine.yield()
end
end
S.cssCache={}
local function fetchInside(url,maxBytes)

if not inet then return nil end
local job=W.fetch(inet,url,{maxBytes=maxBytes})
while true do
local st=job:step()
if st=="done"then return job.body,job.ct end
if st=="error"then return nil end
coroutine.yield()
end
end
local function styledPipeline(html,url)
local D,CSS,LAY=require("ocdom"),require("occss"),require("oclayout")
S.status="Parsing…"

if collectgarbage then collectgarbage()end
local free=freeMem()
local maxNodes=free==math.huge and 8000 or math.max(500,math.min(8000,(free-300*1024)//900))
LAY.maxRows=math.max(150,math.min(3000,maxNodes//2))
local dom=D.parse(html,W.decodeEntities,maxNodes,slice)
local vw=require("oclayout").viewport(S.cols)
local rules={}
local base=function(u)return W.resolve(url,u)end
local sheets,total=0,0
D.walk(dom,function(n)
if n.tag=="title"and n.children[1]then S.title=n.children[1].text:gsub("%s+"," ")end
end)
local list,present={},nil
D.walk(dom,function(n)
if n.css then list[#list+1]={css=n.css}
elseif n.tag=="link"and(n.attrs.rel or""):lower():find("stylesheet")and n.attrs.href then
local media=(n.attrs.media or"all"):lower()
if not media:find("print")or media:find("screen")then list[#list+1]={href=base(n.attrs.href)}end
end
end)
for _,it in ipairs(list)do
local css,sheetUrl=it.css,url
if it.href and sheets<6 and total<400*1024 then
S.status="Loading style "..(it.href:match("[^/?]+[^/]*$")or it.href).."…"
if o.onChange then o.onChange("status")end
css=S.cssCache[it.href]
if not css then
css=fetchInside(it.href,300*1024)

if css and#css<120*1024 then S.cssCache[it.href]=css end
end
sheets=sheets+1
sheetUrl=it.href
if css then total=total+#css end
end
if css then
present=present or CSS.present(dom)
CSS.parse(W.sanitize(css),vw,rules,function(u)return W.resolve(sheetUrl,u)end,present)
css=nil
slice()
end
end
S.status=string.format("Styling (%d rules)…",#rules)
if o.onChange then o.onChange("status")end
CSS.cascade(dom,rules,vw,slice)
rules=nil
LAY.natural=function(src)return S.imgNat[src]end
local function doLayout()
S.status="Layout…"
local page=LAY.layout(dom,S.cols,base,slice)
local used={}
for _,op in ipairs(page.images)do used[op[6].."|"..op[4].."x"..op[5]]=true end
for k in pairs(S.imgCache)do if not used[k]then S.imgCache[k]=nil end end
S.styled=page
S.styledDom=dom
S.scroll=math.min(S.scroll or 0,math.max(0,page.height-1))
if o.onChange then o.onChange("page")end
return page
end
local page=doLayout()



local I=require("ocimg")
local rawBudget=160*1024
local function decodeFor(pg,src,data)
for _,op in ipairs(pg.images)do
if op[6]==src then
local key=src.."|"..op[4].."x"..op[5]
if S.imgCache[key]==nil then
local img=I.decode(data,op[4],op[5]*2,slice)
S.imgCache[key]=img or false
if o.onChange then o.onChange("page")end
end
end
end
end
local seen,n,guessed={},0,false
for _,op in ipairs(page.images)do
local src=op[6]
if src and src~=""and not seen[src]and not src:find("^data:")and n<30 then
seen[src]=true
n=n+1
S.status=string.format("Picture %d of %d…",n,#page.images)
if o.onChange then o.onChange("status")end
local data=fetchInside(src,400*1024)
if data then
local w,h=I.size(data)
if w then
if not S.imgNat[src]then guessed=true end
S.imgNat[src]={w,h}
decodeFor(page,src,data)
if#data<=rawBudget then S.imgData[src]=data;rawBudget=rawBudget-#data end
end
end
data=nil
end
end
if guessed then
page=doLayout()
for src in pairs(seen)do
local missing=false
for _,op in ipairs(page.images)do
if op[6]==src and S.imgCache[src.."|"..op[4].."x"..op[5]]==nil then missing=true end
end
if missing then
local data=S.imgData[src]or fetchInside(src,400*1024)
if data then decodeFor(page,src,data)end
end
end
end
S.status=string.format("%s · %d pictures%s",S.httpInfo or"",n,dom.truncated and" · long page cut (memory)"or"")
if o.onChange then o.onChange("page")end
end

function S.picture(src,w,h)
local c=S.imgCache[src.."|"..w.."x"..h]
return c or nil
end

function S.layout()
local body,isHtml=S.body or"",S.isHtml
if S.source then isHtml=false end
S.page=W.layout(body,S.width,S.colors,isHtml)
S.title=(not S.source and S.page.title)or S.url
S.proc=nil
if isHtml and not S.textOnly and not S.source then
local body2,url=body,S.url
S.proc=coroutine.create(function()styledPipeline(body2,url)end)
end
end
local function show(body,ct,url)
S.frame=nil
S.styled=nil
S.cssCache,S.imgData,S.imgCache={},{},{}
S.body=body
S.ct=ct or"text/html"
S.isHtml=S.ct:find("html")or body:sub(1,512):lower():find("<html")or body:sub(1,512):lower():find("<!doctype")
S.url=url
S.scroll,S.sel=0,0
S.layout()
local frag=url:match("#(.+)$")
if frag and S.page.anchors[frag]then S.scroll=math.max(0,S.page.anchors[frag]-1)end
if not url:match("^about:")then
table.insert(S.globalHistory,{url=url,title=S.title})
while#S.globalHistory>200 do table.remove(S.globalHistory,1)end
saveList("history",S.globalHistory)
end
if o.onChange then o.onChange("page")end
end

function S.stop()
if S.job then S.job:cancel();S.job=nil;S.status="Stopped"end
if S.proc then S.proc=nil;S.status="Stopped"end
end

function S.navigate(input,push)
local url=W.normalize(input,o.searchUrl)
if not url then return end
if push~=false and S.url and S.url~=url then
table.insert(S.back,S.url)
S.fwd={}
end
S.stop()
S.source=false
if url:match("^about:")then
S.status=url
return show(aboutPage(url),"text/html",url)
end
if not url:match("^https?:")then S.status="Unsupported address: "..url;if o.onChange then o.onChange("status")end return end
if S.renderMode then
S.frame=S.frame
return S.rOpen(url,push)
end

if S.body and url:gsub("#.*$","")==(S.url or""):gsub("#.*$","")and url:find("#")then
S.url=url
local a=S.page.anchors[url:match("#(.+)$")]
if a then S.scroll=a-1 end
if o.onChange then o.onChange("page")end
return
end
if not inet then S.status="No internet card";return show(aboutPage("about:home"),"text/html","about:home")end
S.job=W.fetch(inet,url)
S.loadingUrl=url
S.status="Connecting to "..(W.parse(url).host or url).."…"
if o.onChange then o.onChange("status")end
end
function S.goBack()
if S.renderMode and S.sid and S.frame then return S.rNav("back")end
local u=table.remove(S.back)if u then table.insert(S.fwd,S.url)S.navigate(u,false)end
end
function S.goForward()
if S.renderMode and S.sid and S.frame then return S.rNav("forward")end
local u=table.remove(S.fwd)if u then table.insert(S.back,S.url)S.navigate(u,false)end
end
function S.reload()
if S.renderMode and S.sid and S.frame then return S.rNav("reload")end
S.navigate(S.url,false)
end


function S.step()
if S.proc and not S.job then
sliceStart=os.clock()
local ok,err=coroutine.resume(S.proc)
if not ok then S.status="Styled view failed: "..tostring(err).." (text view shown)";S.proc,S.styled=nil,nil end
if S.proc and coroutine.status(S.proc)=="dead"then S.proc=nil end
return true
end
local job=S.job
if not job then return false end
local st=job:step()
if st=="done"and job.render then
S.job=nil
local f,err=W.parseFrame(job.body or"")
if not f then
S.status="Render server: "..tostring(err)
if err and err:find("unknown session")then S.sid=nil end
else
S.sid,S.frame=f.sid,f
if f.url~=S.url and S.url and not S.url:match("^about:")and job.url:find("/open?",1,true)==nil then
table.insert(S.back,S.url)
end
S.url,S.title=f.url,(f.title~=""and f.title or f.url)
S.status=string.format("Rendered · %s · rows %d-%d of %d",W.size(#job.body),f.scroll+1,f.scroll+f.rows,f.total)
S.page=nil
if not S.url:match("^about:")then
table.insert(S.globalHistory,{url=S.url,title=S.title})
while#S.globalHistory>200 do table.remove(S.globalHistory,1)end
saveList("history",S.globalHistory)
end
end
if o.onChange then o.onChange("page")end
return true
elseif st=="error"and job.render then
S.job=nil
S.status="Render server unreachable: "..tostring(job.err).." (menu → Render server)"
if o.onChange then o.onChange("status")end
return true
elseif st=="done"then
S.job=nil
local ct=job.ct or""
local text=ct==""or ct:find("text")or ct:find("html")or ct:find("json")or ct:find("xml")or ct:find("javascript")
if not text and o.download then
o.download(job.url,job.body,ct)
S.status="Downloaded "..job.url
return true
end
local body=W.decodeBody(job.body or"",ct)
S.status=string.format("HTTP %s · %s%s",tostring(job.code),ui_size_(#(job.body or"")),job.truncated and" (truncated)"or"")
S.httpInfo=S.status
show(body,ct,job.url)
return true
elseif st=="error"then
S.job=nil
S.status="Error: "..tostring(job.err)
show("<html><head><title>Error</title></head><body><h1>Can't open the page</h1><p>"..esc(S.loadingUrl or"")..
"</p><p>"..esc(tostring(job.err)).."</p><p><a href=\"about:home\">Home</a></p></body></html>","text/html",S.loadingUrl or"about:home")
return true
end
S.status=string.format("Loading %s… %s",W.parse(job.url).host or"",job.received>0 and ui_size_(job.received)or"")
return true
end


local cfgServer=loadList("server")
S.server=cfgServer.url
S.renderMode=cfgServer.on and S.server~=nil
function S.setServer(url,on)
S.server=url~=""and url or nil
S.renderMode=(on and S.server~=nil)and true or false
saveList("server",{url=S.server,on=S.renderMode})
end

S.cols,S.rows=80,24
local function rq(cmd,params)
local q={}
for k,v in pairs(params or{})do q[#q+1]=k.."="..W.urlencode(tostring(v))end
if S.sid then q[#q+1]="sid="..S.sid end
return S.server:gsub("/+$","").."/"..cmd.."?"..table.concat(q,"&")
end
local function renderJob(cmd,params,label)
if not inet then S.status="No internet card";return end
if S.job then S.job:cancel()end
S.job=W.fetch(inet,rq(cmd,params),{maxBytes=2*1024*1024,timeout=40})
S.job.render=true
S.status=label or"Rendering…"
if o.onChange then o.onChange("status")end
end
function S.rOpen(url,push)
if push~=false and S.url and S.url~=url then table.insert(S.back,S.url);S.fwd={}end
S.loadingUrl=url
renderJob("open",{url=url,cols=S.cols,rows=S.rows},"Rendering "..(W.parse(url).host or url).."…")
end
function S.rClick(x,y)renderJob("click",{x=x,y=y},"Click…")end
function S.rType(text)renderJob("type",{text=text},"Typing…")end
function S.rKey(key)renderJob("key",{key=key},key.."…")end
function S.rScroll(row)
if not S.frame then return end
row=math.max(0,math.min(row,math.max(0,S.frame.total-S.rows)))
renderJob("frame",{row=row,cols=S.cols,rows=S.rows},"Scrolling…")
end
function S.rNav(cmd)renderJob(cmd,{},cmd.."…")end


function S.submit(form,submitter)
local D=require("ocdom")
local fields={}
D.walk(form,function(n)
local a=n.attrs or{}
if not n.tag or not a.name or a.disabled then return end
if n.tag=="input"then
local t=(a.type or"text"):lower()
if t=="checkbox"or t=="radio"then if a.checked then fields[#fields+1]={a.name,a.value or"on"}end
elseif t=="submit"or t=="button"or t=="image"or t=="reset"or t=="file"then
if n==submitter then fields[#fields+1]={a.name,a.value or""}end
else fields[#fields+1]={a.name,a.value or""}end
elseif n.tag=="textarea"then fields[#fields+1]={a.name,a.value or D.text(n)}
elseif n.tag=="select"then
local val
D.walk(n,function(o2)if o2.tag=="option"and(not val or o2.attrs.selected)then val=o2.attrs.value or D.text(o2)end end)
fields[#fields+1]={a.name,val or""}
elseif n.tag=="button"and n==submitter then fields[#fields+1]={a.name,a.value or""}end
end)
local q={}
for _,f in ipairs(fields)do q[#q+1]=W.urlencode(f[1]).."="..W.urlencode(f[2])end
local query=table.concat(q,"&")
local action=W.resolve(S.url,form.attrs.action or S.url)
if(form.attrs.method or"get"):lower()=="post"then
if not inet then return end
table.insert(S.back,S.url);S.fwd={}
S.stop()
S.job=W.fetch(inet,action,{post=query})
S.loadingUrl=action
S.status="Sending form…"
if o.onChange then o.onChange("status")end
else
S.navigate(action:gsub("%?.*$","").."?"..query)
end
end

function S.isBookmarked()for i,b in ipairs(S.bookmarks)do if b.url==S.url then return i end end end
function S.toggleBookmark()
local i=S.isBookmarked()
if i then table.remove(S.bookmarks,i)else table.insert(S.bookmarks,1,{url=S.url,title=S.title})end
saveList("bookmarks",S.bookmarks)
return not i
end
function S.toggleSource()S.source=not S.source;S.layout();S.scroll=0 end

function S.find(text,from)
if not S.page or text==""then return end
local q=unicode.lower(text)
local n=#S.page.lines
for k=1,n do
local i=(from+k-1)%n+1
if unicode.lower(W.lineText(S.page.lines[i])):find(q,1,true)then return i end
end
end
function S.resize(width)
if width~=S.width then
S.width=width
S.cols=width+1
if S.body then S.layout()end
end
end
return S
end





local R_LV,G_LV,B_LV={},{},{}
for i=0,5 do R_LV[i]=math.floor(i*255/5+0.5)end
for i=0,7 do G_LV[i]=math.floor(i*255/7+0.5)end
for i=0,4 do B_LV[i]=math.floor(i*255/4+0.5)end
function W.cubeRGB(i)
i=i-16
if i<0 then i=0 end
return R_LV[i//40]<<16|G_LV[(i//5)%8]<<8|B_LV[i%5]
end

function W.parseFrame(data)
local nl=data:find("\n",1,true)
if data:sub(1,3)=="ERR"then return nil,data:sub(5)end
if not nl or data:sub(1,4)~="SID "then return nil,"not a render server answer"end
local sid=data:sub(5,nl-1)
local p=nl+1
if data:sub(p,p+3)~="OCF2"then return nil,"bad frame"end
p=p+4
local f={sid=sid}
f.cols,f.rows,f.total,f.scroll,f.nlinks,f.ninputs,p=string.unpack(">I2I2I2I2I2I2",data,p)
local function str()
local s
s,p=string.unpack(">s2",data,p)
return s
end
f.url,f.title=str(),str()
local cells={}
local byte,sub=string.byte,string.sub
for i=1,f.cols*f.rows do
local t,b,fg,n=byte(data,p,p+3)
p=p+4
if n and n>0 then
cells[i]={utf8.codepoint(sub(data,p,p+n-1)),fg,t}
p=p+n
else
cells[i]={false,t,b}
end
end
f.cells=cells
f.links,f.inputs={},{}
for i=1,f.nlinks do
local x,y,w,h
x,y,w,h,p=string.unpack(">I2I2I2I2",data,p)
f.links[i]={x=x,y=y,w=w,h=h,href=str(),text=str()}
end
for i=1,f.ninputs do
local x,y,w,h
x,y,w,h,p=string.unpack(">I2I2I2I2",data,p)
f.inputs[i]={x=x,y=y,w=w,h=h,type=str(),value=str(),placeholder=str()}
end
return f
end


function W.lineText(line)
local t={}
for _,s in ipairs(line.segs)do t[#t+1]=s.text end
return string.rep(" ",line.indent or 0)..table.concat(t)
end

return W
F 2635 /lib/package.lua
local package={}

package.config="/\n;\n?\n!\n-\n"

package.path="/lib/?.lua;/usr/lib/?.lua;/home/lib/?.lua;./?.lua;/lib/?/init.lua;/usr/lib/?/init.lua;/home/lib/?/init.lua;./?/init.lua"

local loading={}
local preload={}
local searchers={}

local loaded={
["_G"]=_G,
["bit32"]=bit32,
["coroutine"]=coroutine,
["math"]=math,
["os"]=os,
["package"]=package,
["string"]=string,
["table"]=table
}
package.loaded=loaded
package.preload=preload
package.searchers=searchers

function package.searchpath(name,path,sep,rep)
checkArg(1,name,"string")
checkArg(2,path,"string")
sep=sep or'.'
rep=rep or'/'
sep,rep='%'..sep,rep
name=string.gsub(name,sep,rep)
local fs=require("filesystem")
local errorFiles={}
for subPath in string.gmatch(path,"([^;]+)")do
subPath=string.gsub(subPath,"?",name)
if subPath:sub(1,1)~="/"and os.getenv then
subPath=fs.concat(os.getenv("PWD")or"/",subPath)
end

if fs.exists(subPath)and not fs.isDirectory(subPath)then
return subPath
end
errorFiles[#errorFiles+1]=subPath
end
return nil,#errorFiles>0 and("no file '"..table.concat(errorFiles,"'\n\tno file '").."'")or""
end

table.insert(searchers,function(module)
if package.preload[module]then
return package.preload[module]
end

return"no field package.preload['"..module.."']"
end)
table.insert(searchers,function(module)
local library,path,status

path,status=package.searchpath(module,package.path)
if not path then
return status
end

library,status=loadfile(path)
if not library then
error(string.format("error loading module '%s' from file '%s':\n\t%s",module,path,status))
end

return library,module
end)

function require(module)
checkArg(1,module,"string")
if loaded[module]~=nil then
return loaded[module]
elseif loading[module]then
error("already loading: "..module.."\n"..debug.traceback(),2)
else
local library,status,arg
local errors={}

if type(searchers)~="table"then error("'package.searchers' must be a table")end
for _,searcher in pairs(searchers)do
library,arg=searcher(module)
if type(library)=="function"then break end
if type(library)~=nil then
errors[#errors+1]=tostring(library)
library=nil
end
end
if not library then error(string.format("module '%s' not found:\n\t%s",module,table.concat(errors,"\n\t")))end

loading[module]=true
library,status=pcall(library,arg or module)
loading[module]=false
assert(library,string.format("module '%s' load failed:\n%s",module,status))
loaded[module]=status
return status
end
end

function package.delay(lib,file)
local mt={}
function mt.__index(tbl,key)
mt.__index=nil
dofile(file)
return tbl[key]
end
if lib.internal then
setmetatable(lib.internal,mt)
end
setmetatable(lib,mt)
end



return package
F 4596 /lib/pipe.lua
local process=require("process")
local shell=require("shell")
local buffer=require("buffer")
local command_result_as_code=require("sh").internal.command_result_as_code

local pipe={}
local _root_co=assert(process.info(),"process metadata failed to load").data.coroutine_handler


function pipe.createCoroutineStack(root,env,name)
checkArg(1,root,"thread","function")

if type(root)=="function"then
root=assert(process.load(root,env,nil,name or"pipe"),"failed to load proc data for given function")
end

local proc=assert(process.list[root],"coroutine must be a process thread else the parent process is corrupted")

local pco=setmetatable({root=root},{__index=_root_co})
proc.data.coroutine_handler=pco

function pco.yield(...)
return _root_co.yield(nil,...)
end
function pco.yield_past(co,...)
return _root_co.yield(co,...)
end
function pco.resume(co,...)
checkArg(1,co,"thread")
local args=table.pack(...)
while true do
local result=table.pack(_root_co.resume(co,table.unpack(args,1,args.n)))
local target=result[2]==true and pco.root or result[2]
if not result[1]or _root_co.status(co)=="dead"then
return table.unpack(result,1,result.n)
elseif target and target~=co then
args=table.pack(_root_co.yield(table.unpack(result,2,result.n)))
else
return true,table.unpack(result,3,result.n)
end
end
end
return pco
end

local pipe_stream=
{
continue=function(self,exit)
local result=table.pack(coroutine.resume(self.next))
while true do


if coroutine.status(self.next)=="dead"then
self:close()




result[1]=nil
end

if not result[1]then
if exit then
os.exit(command_result_as_code(result[2]))
end
return self
end

if self.read_mode then

return self
end


result=table.pack(coroutine.yield_past(true,table.unpack(result,2,result.n)))
result=table.pack(coroutine.resume(self.next,table.unpack(result,1,result.n)))
end
end,
close=function(self)
self.closed=true
if coroutine.status(self.next)=="suspended"then
self:continue()
end
end,
seek=function()
return nil,"bad file descriptor"
end,
write=function(self,value)
if self.closed then

if coroutine.status(self.next)~="dead"then
io.stderr:write("attempt to use a closed stream\n")
os.exit(1)
end
else
self.buffer=self.buffer..value
return self:continue(true)
end
os.exit(0)
end,
read=function(self,n)
if self.closed then
return nil
end
if self.buffer==""then




self.read_mode=true
coroutine.yield_past(self.next)
self.read_mode=false
end
local result=string.sub(self.buffer,1,n)
self.buffer=string.sub(self.buffer,n+1)
return result
end
}


function pipe.buildPipeChain(progs)
local chain={}
local prev_piped_stream
for i=1,#progs do
local thread=progs[i]


pipe.createCoroutineStack(thread)
chain[i]=thread
local proc=process.info(thread)
local pio=proc.data.io

local piped_stream
if i<#progs then
local handle=setmetatable({buffer=""},{__index=pipe_stream})
process.addHandle(handle,proc)
piped_stream=buffer.new("rw",handle)
piped_stream:setvbuf("no",1024)
pio[1]=piped_stream
end

if prev_piped_stream then
prev_piped_stream.stream.next=thread
pio[0]=prev_piped_stream
end

prev_piped_stream=piped_stream
end

return chain
end

local chain_stream=
{
read=function(self,value,...)
if self.io_stream.closed then return nil end

self.ready=false
local ret=table.pack(coroutine.resume(self.pco.root,value,...))
if coroutine.status(self.pco.root)=="dead"then
return nil
elseif not ret[1]then
return table.unpack(ret,1,ret.n)
end
if not self.ready then

return self:read(coroutine.yield())
end
return ret[2]
end,
write=function(self,...)
return self:read(...)
end,
close=function(self)
self.io_stream:close()
end,
}

function pipe.popen(prog,mode,env)
mode=mode or"r"
if mode~="r"and mode~="w"then
return nil,"bad argument #2: invalid mode "..tostring(mode).." must be r or w"
end

local r=mode=="r"

local chain={}



local cmd_proc=process.load(function()return shell.execute(prog,env)end,nil,nil,prog)


local stream=setmetatable({},{__index=chain_stream})


local pipe_proc=process.load(function()
local n=r and 0 or""
local key=r and"read"or"write"
local ios=stream.io_stream
while not ios.closed do

local ret=table.pack(ios[key](ios,n))
stream.ready=true

n=coroutine.yield_past(chain[1],table.unpack(ret,1,ret.n))
end
end,nil,nil,"pipe_handler")

chain[r and 1 or 2]=cmd_proc
chain[r and 2 or 1]=pipe_proc


pipe.buildPipeChain(chain)
local cmd_data=process.info(chain[1]).data
local cmd_stack=cmd_data.coroutine_handler


stream.io_stream=cmd_data.io[1].stream
stream.pco=cmd_stack


cmd_stack.resume(cmd_stack.root)

local buffered_stream=buffer.new(mode,stream)
buffered_stream:setvbuf("no",1024)
return buffered_stream
end

return pipe
F 4146 /lib/process.lua
local process={}




process.list=setmetatable({},{__mode="k"})




local owner=setmetatable({},{__mode="k"})

function process.findProcess(co)
co=co or coroutine.running()
local main=owner[co]
if main then
local p=process.list[main]
if p then
return p
end
end
for main,p in pairs(process.list)do
if main==co then
owner[co]=main
return p
end
for _,instance in pairs(p.instances)do
if instance==co then
owner[co]=main
return p
end
end
end
end


function process.load(path,env,init,name)
checkArg(1,path,"string","function")
checkArg(2,env,"table","nil")
checkArg(3,init,"function","nil")
checkArg(4,name,"string","nil")

assert(type(path)=="string"or env==nil,"process cannot load function environments")

local p=process.findProcess()
env=env or p.env
local code
if type(path)=="string"then
code=function(...)
local fs,shell=require("filesystem"),require("shell")
local program,reason=shell.resolve(path,"lua")
if not program then
return require("tools/programLocations").reportNotFound(path,reason)
end
os.setenv("_",program)


local f,why=fs.open(program)
if not f then
return assert(loadfile(program,"bt",env))(...)
end
local chunks={}
repeat
local data=f:read(math.huge)
chunks[#chunks+1]=data
until not data
f:close()
local source=table.concat(chunks)
local shebang=source:match("^#!([^\n]+)")
if shebang then
path=shebang:gsub("%s","")
return code(program,...)
end

return assert(load(source,"="..program,"bt",env))(...)
end
else
code=path
end

local thread=nil
thread=coroutine.create(function(...)

local result=
{
xpcall(function(...)
init=init or function(...)return...end
return code(init(...))
end,
function(msg)
if type(msg)=="table"and msg.reason=="terminated"then
return msg.code or 0
end
return{msg,debug.traceback()}
end,...)
}

if not result[1]and type(result[2])=="table"then

xpcall(function()
local stack=result[2][2]:gsub("^([^\n]*\n)[^\n]*\n[^\n]*\n","%1")
io.stderr:write(string.format("%s:\n%s",result[2][1]or"",stack))
end,
function(msg)
io.stderr:write("process library exception handler crashed: ",tostring(msg))
end)

result[2]=128
end


process.internal.close(thread,result)

return select(2,table.unpack(result))
end,true)
local new_proc=
{
path=path,
command=name or tostring(path),
env=env,
data=
{
handles={},
io={},
},
parent=p,
instances=setmetatable({},{__mode="v"}),
}
for i,fd in pairs(p.data.io)do
new_proc.data.io[i]=io.dup(fd)
end
setmetatable(new_proc.data,{__index=p.data})
process.list[thread]=new_proc

return thread
end

function process.info(levelOrThread)
checkArg(1,levelOrThread,"thread","number","nil")
local p
if type(levelOrThread)=="thread"then
p=process.findProcess(levelOrThread)
else
local level=levelOrThread or 1
p=process.findProcess()
while level>1 and p do
p=p.parent
level=level-1
end
end
if p then
return{path=p.path,env=p.env,command=p.command,data=p.data}
end
end


process.internal={}

function process.internal.close(thread,result)
checkArg(1,thread,"thread")
local pdata=process.info(thread).data
pdata.result=result
while pdata.handles[1]do
local h=table.remove(pdata.handles)
if h.close then
pcall(h.close,h)
end
end
process.list[thread]=nil
end

function process.internal.continue(co,...)
local result={}

local args=table.pack(...)
while coroutine.status(co)~="dead"do
result=table.pack(coroutine.resume(co,table.unpack(args,1,args.n)))
if coroutine.status(co)~="dead"then
args=table.pack(coroutine.yield(table.unpack(result,2,result.n)))
elseif not result[1]then
io.stderr:write(result[2])
end
end
return table.unpack(result,2,result.n)
end

function process.removeHandle(handle,proc)
local handles=(proc or process.info()).data.handles
for pos,h in ipairs(handles)do
if h==handle then
return table.remove(handles,pos)
end
end
end

function process.addHandle(handle,proc)
local _close=handle.close
local handles=(proc or process.info()).data.handles
table.insert(handles,handle)
function handle:close(...)
if _close then
self.close=_close
_close=nil
process.removeHandle(self,proc)
return self:close(...)
end
end
return handle
end

function process.running(level)
local info=process.info(level)
if info then
return info.path,info.env,info.command
end
end

return process
F 39 /lib/rc.lua


local rc={}
rc.loaded={}

return rc

F 12077 /lib/redsim.lua










local R={}

R.TYPES={"dust","block","lever","button","torch","repeater","comparator","lamp","observer"}
R.DIRECTIONAL={torch=true,repeater=true,comparator=true,observer=true}
R.DX={[0]=0,1,0,-1}
R.DY={[0]=-1,0,1,0}
local DX,DY=R.DX,R.DY
local function back(f)return(f+2)%4 end

local W={}
W.__index=W

function R.new()
return setmetatable({rows={},n=0,tick=0,dirty=true,pend={}},W)
end

function W:get(x,y)
local r=self.rows[y]
return r and r[x]
end


function R.cell(t,f)
local c={t=t,f=f or 0,p=0,on=false}
if t=="repeater"then c.d=1 end
if t=="comparator"then c.m="cmp"end
if t=="torch"then c.on=true end
return c
end

function W:set(x,y,c)
local r=self.rows[y]
local old=r and r[x]
if old then self.pend[old]=nil;self.n=self.n-1 end
if c then
if not r then r={};self.rows[y]=r end
c.x,c.y=x,y
r[x]=c
self.n=self.n+1
if c.pend then self.pend[c]=true end
elseif r then
r[x]=nil
if next(r)==nil then self.rows[y]=nil end
end
self.dirty=true
end

function W:clear()
self.rows,self.n,self.pend,self.dirty={},0,{},true
end

function W:each(fn)
for y,r in pairs(self.rows)do for x,c in pairs(r)do fn(c,x,y)end end
end


function W:bounds()
local x1,y1,x2,y2
self:each(function(_,x,y)
if not x1 then x1,y1,x2,y2=x,y,x,y
else
if x<x1 then x1=x end
if x>x2 then x2=x end
if y<y1 then y1=y end
if y>y2 then y2=y end
end
end)
return x1,y1,x2,y2
end


function W:lists()
if not self.dirty and self.L then return self.L end
local L={}
for _,t in ipairs(R.TYPES)do L[t]={}end
self:each(function(c,x,y)
local nb=c.nb or{}
for d=0,3 do nb[d]=self:get(x+DX[d],y+DY[d])or false end
c.nb=nb
local l=L[c.t]
l[#l+1]=c
end)
self.L,self.dirty=L,false
return L
end



local function emit(n,dir,target)
local t=n.t
if t=="lever"or t=="button"then return n.on and 15 or 0
elseif t=="torch"then
if n.on and dir~=back(n.f)and target~="block"then return 15 end
return 0
elseif t=="repeater"then return(n.on and dir==n.f)and 15 or 0
elseif t=="comparator"then return dir==n.f and n.p or 0
elseif t=="observer"then return(n.on and dir==back(n.f))and 15 or 0
elseif t=="dust"then return target~="dust"and n.p or 0
elseif t=="block"then
if target=="dust"then return(n.strong or 0)>0 and 15 or 0 end
return((n.strong or 0)>0 or(n.weak or 0)>0)and 15 or 0
end
return 0
end
R.emit=emit


local function inputFrom(c,d)
local n=c.nb[d]
if not n then return 0 end
return emit(n,back(d),c.t)
end


local function signature(n)
if not n then return""end
local t=n.t
if t=="dust"or t=="comparator"then return t..n.p..(n.m or"")end
if t=="block"then return t..(((n.strong or 0)>0 or(n.weak or 0)>0)and 1 or 0)end
return t..(n.on and 1 or 0)..n.f..(n.d or"")
end
R.signature=signature

function W:schedule(c,at,v)
c.pend={at=at,v=v}
self.pend[c]=true
end


function W:step()
local L=self:lists()
self.tick=self.tick+1
local now=self.tick
local changed=false


local due={}
for c in pairs(self.pend)do
if not c.pend then self.pend[c]=nil
elseif c.pend.at<=now then due[#due+1]=c end
end
for _,c in ipairs(due)do
local v=c.pend.v
c.pend=nil
self.pend[c]=nil
if c.t=="comparator"then
if c.p~=v then c.p=v;changed=true end
else
if c.on~=v then
c.on=v
changed=true
if c.t=="torch"and not v then

local h=c.hist or{}
h[#h+1]=now
while h[1]and h[1]<now-30 do table.remove(h,1)end
c.hist=h
if#h>=8 then c.burnt=now+50;c.hist={}end
end
if c.t=="observer"and v then self:schedule(c,now+1,false)end
end
end
end


for _,b in ipairs(L.block)do
local s=0
for d=0,3 do
local n=b.nb[d]
if n and n.t~="dust"and n.t~="block"then
local e=emit(n,back(d),"block")
if e>s then s=e end
end
end
if(b.strong or 0)~=s then b.strong=s;changed=true end
end


local buckets={}
for i=1,15 do buckets[i]={}end
for _,w in ipairs(L.dust)do
local s=0
for d=0,3 do
local n=w.nb[d]
if n and n.t~="dust"then
local e=emit(n,back(d),"dust")
if e>s then s=e end
end
end
w.np=s
if s>0 then local b=buckets[s]b[#b+1]=w end
end
for lvl=15,2,-1 do
local b=buckets[lvl]
local i=1
while b[i]do
local w=b[i]
if w.np==lvl then
for d=0,3 do
local n=w.nb[d]
if n and n.t=="dust"and n.np<lvl-1 then
n.np=lvl-1
local nb=buckets[lvl-1]
nb[#nb+1]=n
end
end
end
i=i+1
end
end
for _,w in ipairs(L.dust)do
if w.p~=w.np then w.p=w.np;changed=true end
end


for _,b in ipairs(L.block)do
local wk=0
for d=0,3 do
local n=b.nb[d]
if n and n.t=="dust"and n.p>0 then wk=15 end
end
if(b.weak or 0)~=wk then b.weak=wk;changed=true end
end


for _,c in ipairs(L.torch)do
local want=inputFrom(c,back(c.f))==0
if c.burnt then
if now<c.burnt then want=false else c.burnt=nil end
end
if want~=c.on and not c.pend then self:schedule(c,now+1,want)end
if c.pend and c.pend.v==c.on then c.pend=nil;self.pend[c]=nil end
end
for _,c in ipairs(L.repeater)do

local locked=false
for _,sd in ipairs({(c.f+1)%4,(c.f+3)%4})do
local n=c.nb[sd]
if n and n.f==back(sd)and((n.t=="repeater"and n.on)or(n.t=="comparator"and n.p>0))then locked=true end
end
if c.locked~=locked then c.locked=locked;changed=true end
if locked then
if c.pend then c.pend=nil;self.pend[c]=nil end
else
local want=inputFrom(c,back(c.f))>0
if want~=c.on and not c.pend then self:schedule(c,now+c.d,want)end
end
end
for _,c in ipairs(L.comparator)do
local a=inputFrom(c,back(c.f))
local s=math.max(inputFrom(c,(c.f+1)%4),inputFrom(c,(c.f+3)%4))
local out
if c.m=="sub"then out=math.max(0,a-s)else out=a>=s and a or 0 end
if out~=c.p then
if not c.pend or c.pend.v~=out then self:schedule(c,now+1,out)end
elseif c.pend then c.pend=nil;self.pend[c]=nil end
end
for _,c in ipairs(L.lamp)do
local lit=false
for d=0,3 do if inputFrom(c,d)>0 then lit=true end end
if lit~=c.on then c.on=lit;changed=true end
end
for _,c in ipairs(L.observer)do
local sig=signature(c.nb[c.f])
if c.sig~=nil and sig~=c.sig and not c.on and not c.pend then self:schedule(c,now+1,true)end
c.sig=sig
end
return changed
end


function W:settle(n)
for _=1,n or 3 do self:step()end
end



function W:interact(x,y)
local c=self:get(x,y)
if not c then return false end
if c.t=="lever"then c.on=not c.on
elseif c.t=="button"then
c.on=true
self:schedule(c,self.tick+10,false)
elseif c.t=="repeater"then c.d=c.d%4+1
elseif c.t=="comparator"then c.m=c.m=="sub"and"cmp"or"sub"
else return false end
return true
end


function R.describe(c)
if not c then return"empty"end
local DIR={[0]="N","E","S","W"}
local t=c.t
if t=="dust"then return"Redstone dust · power "..c.p end
if t=="block"then
local s=(c.strong or 0)>0 and"strongly powered"or(c.weak or 0)>0 and"weakly powered"or"unpowered"
return"Block · "..s
end
if t=="lever"then return"Lever · "..(c.on and"ON"or"off")end
if t=="button"then return"Button · "..(c.on and"pressed"or"released")end
if t=="torch"then return"Torch → "..DIR[c.f].." · "..(c.burnt and"BURNT OUT"or c.on and"lit"or"off")end
if t=="repeater"then
return"Repeater → "..DIR[c.f].." · delay "..c.d.." · "..(c.on and"ON"or"off")..(c.locked and" · locked"or"")
end
if t=="comparator"then
return"Comparator → "..DIR[c.f].." · "..(c.m=="sub"and"subtract"or"compare").." · out "..c.p
end
if t=="lamp"then return"Lamp · "..(c.on and"lit"or"off")end
if t=="observer"then return"Observer → watches "..DIR[c.f]..(c.on and" · PULSE"or"")end
return t
end



function W:copy(x1,y1,x2,y2)
if x1>x2 then x1,x2=x2,x1 end
if y1>y2 then y1,y2=y2,y1 end
local out={}
for y=y1,y2 do
local r=self.rows[y]
if r then
for x=x1,x2 do
local c=r[x]
if c then out[#out+1]={x-x1,y-y1,c.t,c.f,c.d,c.m,c.t=="lever"and c.on or nil}end
end
end
end
return out
end

function W:erase(x1,y1,x2,y2)
if x1>x2 then x1,x2=x2,x1 end
if y1>y2 then y1,y2=y2,y1 end
for y=y1,y2 do
local r=self.rows[y]
if r then for x=x1,x2 do if r[x]then self:set(x,y,nil)end end end
end
end


function R.rotate(pat,rot)
rot=(rot or 0)%4
if rot==0 then return pat end
local out={}
local mx,my=math.huge,math.huge
for _,e in ipairs(pat)do
local x,y=e[1],e[2]
for _=1,rot do x,y=-y,x end
out[#out+1]={x,y,e[3],(e[4]+rot)%4,e[5],e[6],e[7]}
if x<mx then mx=x end
if y<my then my=y end
end
for _,e in ipairs(out)do e[1],e[2]=e[1]-mx,e[2]-my end
return out
end

function R.size(pat)
local w,h=0,0
for _,e in ipairs(pat)do
if e[1]+1>w then w=e[1]+1 end
if e[2]+1>h then h=e[2]+1 end
end
return w,h
end

function W:paste(pat,x,y)
for _,e in ipairs(pat)do
local c=R.cell(e[3],e[4])
if e[5]then c.d=e[5]end
if e[6]then c.m=e[6]end
if e[7]then c.on=true end
self:set(x+e[1],y+e[2],c)
end
end


function W:save()
local list={}
self:each(function(c,x,y)
list[#list+1]={x,y,c.t,c.f,c.d,c.m,c.t=="lever"and c.on or nil}
end)
table.sort(list,function(a,b)return a[2]<b[2]or(a[2]==b[2]and a[1]<b[1])end)
return{format="redstone-lab",version=1,cells=list}
end

function R.load(t)
local w=R.new()
if type(t)~="table"or type(t.cells)~="table"then return nil,"not a Redstone Lab file"end
for _,e in ipairs(t.cells)do
if type(e[1])=="number"and type(e[2])=="number"and type(e[3])=="string"then
local c=R.cell(e[3],e[4])
if e[5]then c.d=e[5]end
if e[6]then c.m=e[6]end
if e[7]then c.on=true end
w:set(e[1],e[2],c)
end
end
return w
end




local N,E,S,Wd=0,1,2,3
R.TEMPLATES={
{name="NOT gate",info="Lever → torch inverts the signal → lamp.",cells={
{0,0,"lever"},{1,0,"dust"},{2,0,"torch",E},{3,0,"dust"},{4,0,"lamp"}}},
{name="OR gate",info="Either lever lights the lamp.",cells={
{0,0,"lever"},{1,0,"dust"},{1,1,"dust"},{1,2,"dust"},{0,2,"lever"},
{2,1,"dust"},{3,1,"dust"},{4,1,"lamp"}}},
{name="AND gate",info="Both levers: two torches go out, the third lights.",cells={
{0,0,"lever"},{1,0,"dust"},{2,0,"torch",E},{3,0,"dust"},
{3,1,"dust"},{4,1,"torch",E},{5,1,"dust"},{6,1,"lamp"},
{0,2,"lever"},{1,2,"dust"},{2,2,"torch",E},{3,2,"dust"}}},
{name="XOR gate",info="Two subtracting comparators: A−B or B−A.",cells={

{2,0,"lever"},{3,0,"dust"},{4,0,"comparator",E,nil,"sub"},
{1,0,"dust"},{0,0,"dust"},{0,1,"dust"},{0,2,"dust"},{0,3,"dust"},{0,4,"dust"},
{0,5,"dust"},{0,6,"dust"},{1,6,"dust"},{2,6,"dust"},{3,6,"dust"},{4,6,"dust"},
{4,5,"repeater",N,1},

{2,4,"lever"},{3,4,"dust"},{4,4,"comparator",E,nil,"sub"},
{2,3,"dust"},{2,2,"dust"},{3,2,"dust"},{4,2,"dust"},{4,1,"repeater",N,1},

{5,0,"repeater",E,1},{5,4,"repeater",E,1},
{6,0,"dust"},{6,1,"dust"},{6,2,"dust"},{6,3,"dust"},{6,4,"dust"},{7,2,"lamp"}}},
{name="Clock",info="Torch + repeater loop: blinks every second.",cells={
{1,0,"torch",E},{2,0,"dust"},{2,1,"dust"},{1,1,"repeater",Wd,4},
{0,1,"dust"},{0,0,"dust"},{3,0,"lamp"}}},
{name="Memory (set / reset)",info="Left button stores, top button clears.",cells={
{0,1,"button"},{1,1,"dust"},{2,1,"comparator",E,nil,"sub"},{3,1,"dust"},{3,2,"dust"},
{2,2,"repeater",Wd,1},{1,2,"dust"},{2,0,"dust"},{2,-1,"button"},{4,1,"lamp"}}},
{name="Latch (repeater lock)",info="Lock lever freezes the data repeater.",cells={
{0,0,"lever"},{1,0,"dust"},{2,0,"repeater",E,1},{3,0,"dust"},{4,0,"lamp"},
{2,1,"repeater",N,1},{2,2,"lever"}}},
{name="Pulse on change",info="Observer sees any change; a delay-4 repeater stretches its 1-tick pulse.",cells={
{0,0,"lever"},{1,0,"dust"},{2,0,"observer",Wd},{3,0,"repeater",E,4},{4,0,"dust"},{5,0,"lamp"}}},
{name="Delay line",info="Repeaters at delay 4 light the lamps in turn.",cells={
{0,0,"lever"},{1,0,"repeater",E,4},{2,0,"dust"},{2,1,"lamp"},{3,0,"repeater",E,4},
{4,0,"dust"},{4,1,"lamp"},{5,0,"repeater",E,4},{6,0,"dust"},{6,1,"lamp"},
{7,0,"repeater",E,4},{8,0,"dust"},{8,1,"lamp"}}},
{name="Signal strength",info="Power drops by 1 per dust (15 → 0 after 16); a repeater restores 15.",cells=(function()
local t={{0,0,"lever"}}
for x=1,16 do t[#t+1]={x,0,"dust"}end
t[#t+1]={17,0,"lamp"}
t[#t+1]={0,2,"lever"}
for x=1,15 do t[#t+1]={x,2,"dust"}end
t[#t+1]={16,2,"repeater",E,1}
for x=17,21 do t[#t+1]={x,2,"dust"}end
t[#t+1]={22,2,"lamp"}
return t
end)()},
{name="Torch on a block",info="A powered block turns the torch off.",cells={
{0,0,"lever"},{1,0,"dust"},{2,0,"block"},{3,0,"torch",E},{4,0,"dust"},{5,0,"lamp"}}},
}

for _,tp in ipairs(R.TEMPLATES)do
local pat,mx,my={},math.huge,math.huge
for _,e in ipairs(tp.cells)do
if e[1]<mx then mx=e[1]end
if e[2]<my then my=e[2]end
end
for _,e in ipairs(tp.cells)do
pat[#pat+1]={e[1]-mx,e[2]-my,e[3],e[4]or 0,e[5]or(e[3]=="repeater"and 1 or nil),e[6],nil}
end
tp.pattern=pat
end

return R
F 3124 /lib/serialization.lua
local serialization={}


local local_pairs=function(tbl)
local mt=getmetatable(tbl)
return(mt and mt.__pairs or pairs)(tbl)
end



function serialization.serialize(value,pretty)
local kw={["and"]=true,["break"]=true,["do"]=true,["else"]=true,
["elseif"]=true,["end"]=true,["false"]=true,["for"]=true,
["function"]=true,["goto"]=true,["if"]=true,["in"]=true,
["local"]=true,["nil"]=true,["not"]=true,["or"]=true,
["repeat"]=true,["return"]=true,["then"]=true,["true"]=true,
["until"]=true,["while"]=true}
local id="^[%a_][%w_]*$"
local ts={}
local result_pack={}
local function recurse(current_value,depth)
local t=type(current_value)
if t=="number"then
if current_value~=current_value then
table.insert(result_pack,"0/0")
elseif current_value==math.huge then
table.insert(result_pack,"math.huge")
elseif current_value==-math.huge then
table.insert(result_pack,"-math.huge")
else
table.insert(result_pack,tostring(current_value))
end
elseif t=="string"then
table.insert(result_pack,(string.format("%q",current_value):gsub("\\\n","\\n")))
elseif
t=="nil"or
t=="boolean"or
pretty and(t~="table"or(getmetatable(current_value)or{}).__tostring)then
table.insert(result_pack,tostring(current_value))
elseif t=="table"then
if ts[current_value]then
if pretty then
table.insert(result_pack,"recursion")
return
else
error("tables with cycles are not supported")
end
end
ts[current_value]=true
local f
if pretty then
local ks,sks,oks={},{},{}
for k in local_pairs(current_value)do
if type(k)=="number"then
table.insert(ks,k)
elseif type(k)=="string"then
table.insert(sks,k)
else
table.insert(oks,k)
end
end
table.sort(ks)
table.sort(sks)
for _,k in ipairs(sks)do
table.insert(ks,k)
end
for _,k in ipairs(oks)do
table.insert(ks,k)
end
local n=0
f=table.pack(function()
n=n+1
local k=ks[n]
if k~=nil then
return k,current_value[k]
else
return nil
end
end)
else
f=table.pack(local_pairs(current_value))
end
local i=1
local first=true
table.insert(result_pack,"{")
for k,v in table.unpack(f)do
if not first then
table.insert(result_pack,",")
if pretty then
table.insert(result_pack,"\n"..string.rep(" ",depth))
end
end
first=nil
local tk=type(k)
if tk=="number"and k==i then
i=i+1
recurse(v,depth+1)
else
if tk=="string"and not kw[k]and string.match(k,id)then
table.insert(result_pack,k)
else
table.insert(result_pack,"[")
recurse(k,depth+1)
table.insert(result_pack,"]")
end
table.insert(result_pack,"=")
recurse(v,depth+1)
end
end
ts[current_value]=nil
table.insert(result_pack,"}")
else
error("unsupported type: "..t)
end
end
recurse(value,1)
local result=table.concat(result_pack)
if pretty then
local limit=type(pretty)=="number"and pretty or 10
local truncate=0
while limit>0 and truncate do
truncate=string.find(result,"\n",truncate+1,true)
limit=limit-1
end
if truncate then
return result:sub(1,truncate).."..."
end
end
return result
end

function serialization.unserialize(data)
checkArg(1,data,"string")
local result,reason=load("return "..data,"=data",nil,{math={huge=math.huge}})
if not result then
return nil,reason
end
local ok,output=pcall(result)
if not ok then
return nil,output
end
return output
end

return serialization
F 4214 /lib/sh.lua
local process=require("process")
local shell=require("shell")
local text=require("text")
local tx=require("transforms")

local sh={}
sh.internal={}

function sh.internal.isWordOf(w,vs)
return w and#w==1 and not w[1].qr and tx.first(vs,{{w[1].txt}})~=nil
end

local isWordOf=sh.internal.isWordOf





sh.internal.ec={}
sh.internal.ec.parseCommand=127
sh.internal.ec.last=0

function sh.getLastExitCode()
return sh.internal.ec.last
end

function sh.internal.command_result_as_code(ec,reason)

local code
if ec==false then
code=1
elseif ec==nil or ec==true then
code=0
elseif type(ec)~="number"then
code=2
else
code=ec
end

if reason and code~=0 then io.stderr:write(reason,"\n")end
return code
end

function sh.internal.resolveActions(input,resolved)
resolved=resolved or{}

local processed={}

local prev_was_delim=true
local words,reason=text.internal.tokenize(input)

if not words then
return nil,reason
end

while#words>0 do
local next=table.remove(words,1)
if isWordOf(next,{";","&&","||","|"})then
prev_was_delim=true
resolved={}
elseif prev_was_delim then
prev_was_delim=false

if next and#next==1 and not next[1].qr then
local key=next[1].txt
if key=="!"then
prev_was_delim=true
elseif not resolved[key]then
resolved[key]=shell.getAlias(key)
local value=resolved[key]
if value and key~=value then
local replacement_tokens,resolve_reason=sh.internal.resolveActions(value,resolved)
if not replacement_tokens then
return replacement_tokens,resolve_reason
end
words=tx.concat(replacement_tokens,words)
next=table.remove(words,1)
end
end
end
end

table.insert(processed,next)
end

return processed
end


function sh.internal.isIdentifier(key)
if type(key)~="string"then
return false
end

return key:match("^[%a_][%w_]*$")==key
end



function sh.expand(value)
local expanded=value
:gsub("%$([_%w%?]+)",function(key)
if key=="?"then
return tostring(sh.getLastExitCode())
end
return os.getenv(key)or''
end)
:gsub("%${(.*)}",function(key)
if sh.internal.isIdentifier(key)then
return os.getenv(key)or''
end
io.stderr:write("${"..key.."}: bad substitution\n")
os.exit(1)
end)
return expanded
end

function sh.internal.createThreads(commands,env,start_args)







local threads={}
for i=1,#commands do
local command=commands[i]
local program,args,redirects=table.unpack(command)
local name=tostring(program)
local thread_env=type(program)=="string"and env or nil
local thread,reason=process.load(program or"/dev/null",thread_env,function(...)
if redirects then
sh.internal.openCommandRedirects(redirects)
end

args=tx.concat(args,start_args[i]or{},table.pack(...))



io.write("")
return table.unpack(args,1,args.n or#args)
end,name)

if not thread then
for _,t in ipairs(threads)do
process.internal.close(t)
end
return nil,reason
end

threads[i]=thread

end

if#threads>1 then
require("pipe").buildPipeChain(threads)
end

return threads
end

function sh.internal.executePipes(pipe_parts,eargs,env)
local commands={}
for _,words in ipairs(pipe_parts)do
local args={}
local reparse
for _,word in ipairs(words)do
local value=""
for _,part in ipairs(word)do
reparse=reparse or part.qr or part.txt:find("[%$%*%?<>]")
value=value..part.txt
end
args[#args+1]=value
end

local redirects
if reparse then
args,redirects=sh.internal.evaluate(words)
if not args then
return false,redirects
end
end

commands[#commands+1]=table.pack(table.remove(args,1),args,redirects)
end

local threads,reason=sh.internal.createThreads(commands,env,{[#commands]=eargs})
if not threads then return false,reason end
return process.internal.continue(threads[1])
end

function sh.execute(env,command,...)
checkArg(2,command,"string")
if command:find("^%s*#")then return true,0 end

local words,reason=sh.internal.resolveActions(command)
if type(words)~="table"then
return words,reason
elseif#words==0 then
return true
end


local eargs=table.pack(...)


if not command:find("[;%$&|!<>]")then
sh.internal.ec.last=sh.internal.command_result_as_code(sh.internal.executePipes({words},eargs,env))
return sh.internal.ec.last==0
end

return sh.internal.execute_complex(words,eargs,env)
end

function sh.hintHandler(full_line,cursor)
return sh.internal.hintHandlerImpl(full_line,cursor)
end

require("package").delay(sh,"/lib/core/full_sh.lua")

return sh
F 2738 /lib/shell.lua
local fs=require("filesystem")
local unicode=require("unicode")
local process=require("process")

local shell={}




local shells=setmetatable({},{__mode="v"})

function shell.getShell()
local shellPath=os.getenv("SHELL")or"/bin/sh"
local shellName,reason=shell.resolve(shellPath,"lua")
if not shellName then
return nil,"cannot resolve shell `"..shellPath.."': "..reason
end
if shells[shellName]then
return shells[shellName]
end
local sh,load_reason=loadfile(shellName,nil,setmetatable({},{__index=_G}))
if sh then
shells[shellName]=sh
end
return sh,load_reason
end



function shell.prime()
local data=process.info().data
for _,key in ipairs({'aliases','vars'})do

local raw=rawget(data,key)
if not raw then

local current=data[key]
data[key]={}
if current then
for k,v in pairs(current)do
data[key][k]=v
end
end
end
end
end

function shell.getAlias(alias)
return process.info().data.aliases[alias]
end

function shell.setAlias(alias,value)
checkArg(1,alias,"string")
checkArg(2,value,"string","nil")
process.info().data.aliases[alias]=value
end

function shell.getWorkingDirectory()

return os.getenv("PWD")or"/"
end

function shell.setWorkingDirectory(dir)
checkArg(1,dir,"string")


dir=fs.canonical(dir):gsub("^$","/"):gsub("(.)/$","%1")
if fs.isDirectory(dir)then
os.setenv("PWD",dir)
return true
else
return nil,"not a directory"
end
end

function shell.resolve(path,ext)
checkArg(1,path,"string")

local dir=path
if dir:find("/")~=1 then
dir=fs.concat(shell.getWorkingDirectory(),dir)
end
local name=fs.name(path)
dir=fs[name and"path"or"canonical"](dir)
local fullname=fs.concat(dir,name or"")

if not ext then
return fullname
elseif name then
checkArg(2,ext,"string")


local search_in=path:find("/")and dir or os.getenv("PATH")
for search_path in string.gmatch(search_in,"[^:]+")do

local search_name=fs.concat(shell.resolve(search_path),name)
if not fs.exists(search_name)then
search_name=search_name.."."..ext
end

if fs.exists(search_name)and not fs.isDirectory(search_name)then
return search_name
end
end
end

return nil,"file not found"
end

function shell.parse(...)
local params=table.pack(...)
local args={}
local options={}
local doneWithOptions=false
for i=1,params.n do
local param=params[i]
if not doneWithOptions and type(param)=="string"then
if param=="--"then
doneWithOptions=true
elseif param:sub(1,2)=="--"then
local key,value=param:match("%-%-(.-)=(.*)")
if not key then
key,value=param:sub(3),true
end
options[key]=value
elseif param:sub(1,1)=="-"and param~="-"then
for j=2,unicode.len(param)do
options[unicode.sub(param,j,j)]=true
end
else
table.insert(args,param)
end
else
table.insert(args,param)
end
end
return args,options
end



require("package").delay(shell,"/lib/core/full_shell.lua")

return shell
F 569 /lib/sides.lua
local sides={
[0]="bottom",
[1]="top",
[2]="back",
[3]="front",
[4]="right",
[5]="left",
[6]="unknown",

bottom=0,
top=1,
back=2,
front=3,
right=4,
left=5,
unknown=6,

down=0,
up=1,
north=2,
south=3,
west=4,
east=5,

negy=0,
posy=1,
negz=2,
posz=3,
negx=4,
posx=5,

forward=3
}

local metatable=getmetatable(sides)or{}


local itertable={
sides[0],
sides[1],
sides[2],
sides[3],
sides[4],
sides[5]
}



function metatable.__len(sides)
return#itertable
end


function metatable.__ipairs(sides)
return ipairs(itertable)
end

setmetatable(sides,metatable)



return sides
F 5944 /lib/tapelib.lua







local serialization=require("serialization")
local computer=require("computer")
local L={}

L.RATE=48000
L.BPS=6000
function L.setRate(r)L.RATE=r;L.BPS=r//8 end

function L.nominalMinutes(size)return math.floor(size/(4096*60)+.5)end
L.TOCSIZE=4096
local MAGIC="YTAPE1"

function L.fmt(sec)
sec=math.max(0,math.floor(sec+0.5))
if sec>=3600 then return string.format("%d:%02d:%02d",sec//3600,sec//60%60,sec%60)end
return string.format("%d:%02d",sec//60,sec%60)
end
function L.secs(bytes)return bytes/L.BPS end

local D={}
D.__index=D

function L.deck(proxy)
return setmetatable({t=proxy,addr=proxy.address,tracks={},size=0,label="",ready=false,
formatted=false,pos=0,state="STOPPED",speed=1,volume=1},D)
end


function D:go(p)
local t=self.t
t.seek(-math.max(self.size,1)*2)
p=math.max(0,math.min(self.size,math.floor(p)))
if p>0 then t.seek(p)end
self.pos=p
self.base,self.baseT=p,computer.uptime()
end



function D:exactPos()
local t=self.t
if t.getPosition then
local ok,p=pcall(t.getPosition)
if ok and type(p)=="number"then return p end
end
local d=t.seek(-math.max(self.size,1)*2)or 0
if d~=0 then t.seek(-d)end
return-d
end

function D:readTOC()
self.tracks,self.formatted={},false
if self.size<=L.TOCSIZE then return end
self:go(self.size-L.TOCSIZE)
local s=self.t.read(L.TOCSIZE)
self:go(0)
if type(s)~="string"or s:sub(1,#MAGIC)~=MAGIC then return end
local n=string.unpack(">I4",s,#MAGIC+1)
if n<=0 or n>L.TOCSIZE-#MAGIC-4 then return end
local ok,tbl=pcall(serialization.unserialize,s:sub(#MAGIC+5,#MAGIC+4+n))
if not ok or type(tbl)~="table"or type(tbl.tracks)~="table"then return end
for _,tr in ipairs(tbl.tracks)do
if type(tr[1])=="string"and type(tr[2])=="number"and type(tr[3])=="number"then
self.tracks[#self.tracks+1]={name=tr[1],start=tr[2],len=tr[3]}
end
end
table.sort(self.tracks,function(a,b)return a.start<b.start end)
self.formatted=true
end

function D:writeTOC()
local list={}
for _,tr in ipairs(self.tracks)do list[#list+1]={tr.name,tr.start,tr.len}end
local body=serialization.serialize({tracks=list})
local room=L.TOCSIZE-#MAGIC-4
if#body>room then return nil,"too many tracks for the table of contents"end
local back=self.pos
local s=MAGIC..string.pack(">I4",#body)..body
self:go(self.size-L.TOCSIZE)
self.t.write(s..string.rep("\0",L.TOCSIZE-#s))
self:go(back)
self.formatted=true
return true
end


function D:refresh()
local t=self.t
self.ready=t.isReady()and true or false
if not self.ready then self.tracks,self.size,self.label,self.formatted={},0,"",false;return end
self.size=t.getSize()or 0
self.label=t.getLabel()or""
t.stop()
self:readTOC()
self.state="STOPPED"
self:go(0)
end

function D:capacity()return math.max(0,self.size-L.TOCSIZE)end
function D:nextFree()
local e=0
for _,tr in ipairs(self.tracks)do e=math.max(e,tr.start+tr.len)end
return e
end
function D:free()return math.max(0,self:capacity()-self:nextFree())end
function D:trackAt(p)
for i,tr in ipairs(self.tracks)do
if p>=tr.start and p<tr.start+tr.len then return i,tr end
end
end


function D:poll()
local t=self.t
local st=t.getState()or"STOPPED"
local was=self.state
self.state=st
if st=="PLAYING"then
if was~="PLAYING"or not self.baseT then self.base,self.baseT=self.pos,computer.uptime()end
self.pos=math.min(self.size,self.base+(computer.uptime()-self.baseT)*L.BPS*self.speed)
elseif st=="STOPPED"and was~="STOPPED"then
self.pos=self:exactPos()
self.base,self.baseT=self.pos,computer.uptime()
end
return st
end

function D:play()
self.t.play()
self.state="PLAYING"
self.base,self.baseT=self.pos,computer.uptime()
end
function D:stop()
self.t.stop()
self.state="STOPPED"
self.pos=self:exactPos()
self.base,self.baseT=self.pos,computer.uptime()
end

function D:jump(p)
local playing=self.state=="PLAYING"
if playing then self.t.stop()end
self:go(p)
if playing then self:play()end
end
function D:setSpeed(s)
s=math.max(0.25,math.min(2,s))
if self.state=="PLAYING"then self.base,self.baseT=self.pos,computer.uptime()end
self.speed=s
self.t.setSpeed(s)
end
function D:setVolume(v)
self.volume=math.max(0,math.min(1,v))
self.t.setVolume(self.volume)
end
function D:setLabel(s)
self.t.setLabel(s)
self.label=self.t.getLabel()or s
end







L.BANDS=10
local TILT,FLOOR,STEP=3.5,34,3.0
local BINS={1,2,4,7,12,20,34,56,90,140}
local N=512
local COEF={}
for i,k in ipairs(BINS)do COEF[i]=2*math.cos(2*math.pi*k/N)end

local WIN={}
for i=1,N do WIN[i]=0.5-0.5*math.cos(2*math.pi*(i-1)/(N-1))end

local function decodeSlice(s)
local out,n={},0
local charge,strength,prev,lpf=0,0,false,0
for i=1,#s do
local b=s:byte(i)
for k=0,7 do
local bit=(b>>k)&1==1
local target=bit and 127 or-128
local nc=charge+(strength*(target-charge)+512)//1024
if nc==charge and nc~=target then nc=nc+(bit and 1 or-1)end
if bit==prev then if strength~=1023 then strength=strength+1 end
elseif strength~=0 then strength=strength-1 end
if strength<8 then strength=8 end
local blo=bit==prev and nc or(nc+charge+1)//2
charge,prev=nc,bit
lpf=lpf+((blo-lpf)*140+128)//256
n=n+1
out[n]=lpf
end
end
return out,n
end


function L.spectrum(slice)
local smp,n=decodeSlice(slice)
local base=n-N
local mean=0
for i=1,N do mean=mean+smp[base+i]end
mean=mean/N
local x={}
for i=1,N do x[i]=(smp[base+i]-mean)*WIN[i]end
local res={}
for b=1,#BINS do
local c,s1,s2=COEF[b],0,0
for i=1,N do
local s0=x[i]+c*s1-s2
s2=s1
s1=s0
end
local p=s1*s1+s2*s2-c*s1*s2
local db=p>0 and 10*math.log(p,10)or 0

local v=math.floor((db+(b-1)*TILT-FLOOR)/STEP+0.5)
res[b]=string.char(48+(v<0 and 0 or v>15 and 15 or v))
end
return table.concat(res)
end


function L.analyzer(bps)
local frame=math.max(100,bps//10)
local A={tail="",frames={}}
function A.feed(chunk)
local t=A.tail..chunk
local i=1
while#t-i+1>=frame do
A.frames[#A.frames+1]=L.spectrum(t:sub(i,i+79))
i=i+frame
if L.breathe then L.breathe()end
end
A.tail=t:sub(i)
end
function A.result()
if#A.tail>=80 then A.frames[#A.frames+1]=L.spectrum(A.tail:sub(1,80))end
A.tail=""
return table.concat(A.frames)
end
return A
end

return L
F 3534 /lib/term.lua
local tty=require("tty")
local computer=require("computer")
local process=require("process")
local event=require("event")
local core_cursor=require("core/cursor")

local kb=require("keyboard")
local keys=kb.keys

local term=setmetatable({internal={}},{__index=tty})

local function as_window(window,func,...)
local data=process.info().data
if not data.window or not window then
return func(...)
end
local prev=rawget(data,"window")
data.window=window
local ret=table.pack(func(...))
data.window=prev
return table.unpack(ret,1,ret.n)
end

function term.internal.open(...)
local dx,dy,w,h=...
local window={fullscreen=select("#",...)==0,blink=true,output_buffer=""}



setmetatable(window,
{
__index=function(tbl,key)
key=key=="w"and"width"or key=="h"and"height"or key
return rawget(tbl,key)
end,
__newindex=function(tbl,key,value)
key=key=="w"and"width"or key=="h"and"height"or key
return rawset(tbl,key,value)
end
})


if rawget(tty,"window")then
for _,p in pairs(process.list)do
if not p.parent then
p.data.window=tty.window
break
end
end
tty.window=nil
setmetatable(tty,
{
__index=function(_,key)
if key=="window"then
return process.info().data.window
end
end
})
end

as_window(window,tty.setViewport,w,h,dx,dy,1,1)
as_window(window,tty.bind,tty.gpu())
return window
end

local function create_cursor(history,ops)
local cursor=history or{}
cursor.hint=ops.hint or cursor.hint

local filter=ops.filter or cursor.filter
if filter then
if type(filter)=="string"then
local filter_text=filter
filter=function(text)
return text:match(filter_text)
end
end

function cursor:handle(name,char,code)
if name=="key_down"and(code==keys.enter or code==keys.numpadenter)then
if not filter(self.data)then
computer.beep(2000,0.1)
return true
end
end
return self.super.handle(self,name,char,code)
end
end

local pwchar=ops.pwchar or cursor.pwchar
local nobreak=ops.dobreak==false or cursor.dobreak==false
if pwchar or nobreak then
if type(pwchar)=="string"then
local pwchar_text=pwchar
pwchar=function(text)
return text:gsub(".",pwchar_text)
end
end
function cursor:echo(arg,...)
if pwchar and type(arg)=="string"and#arg>0 and not arg:match("^\27")then
arg=pwchar(arg)
elseif nobreak and arg=="\n"then
arg=""
end
return self.super.echo(self,arg,...)
end
end

return core_cursor.new(cursor,cursor.nowrap and core_cursor.horizontal)
end


function term.write(value,wrap)
io.stdout:flush()
local previous_nowrap=tty.window.nowrap
tty.window.nowrap=wrap==false
io.write(value)
io.stdout:flush()
tty.window.nowrap=previous_nowrap
end

function term.read(history,dobreak,hint,pwchar,filter)
tty.window.cursor=create_cursor(history,{
dobreak=dobreak,
pwchar=pwchar,
filter=filter,
hint=hint
})
return io.stdin:readLine(false)
end

function term.getGlobalArea()
local w,h,dx,dy=tty.getViewport()
return dx+1,dy+1,w,h
end

function term.clearLine()
term.write("\27[2K\27[999D")
end

function term.setCursorBlink(enabled)
tty.window.blink=enabled
end

function term.getCursorBlink()
return tty.window.blink
end

function term.pull(...)
local args=table.pack(...)
local timeout=math.huge
if type(args[1])=="number"then
timeout=computer.uptime()+table.remove(args,1)
args.n=args.n-1
end
local cursor=core_cursor.new()
while timeout>=computer.uptime()do
cursor:echo()
local s=table.pack(event.pull(.5,table.unpack(args,1,args.n)))
cursor:echo(not s[1])
if s.n>1 then return table.unpack(s,1,s.n)end
end
end

function term.bind(gpu,window)
return as_window(window,tty.bind,gpu)
end

term.scroll=tty.stream.scroll
term.internal.run_in_window=as_window

return term
F 2290 /lib/text.lua
local unicode=require("unicode")
local tx=require("transforms")

local text={}
text.internal={}

text.syntax={"^%d?>>?&%d+","^%d?>>?",">>?","<%&%d+","<",";","&&","||?"}

function text.trim(value)
local from=string.match(value,"^%s*()")
return from>#value and""or string.match(value,".*%S",from)
end


function text.escapeMagic(txt)
return txt:gsub('[%(%)%.%%%+%-%*%?%[%^%$]','%%%1')
end

function text.removeEscapes(txt)
return txt:gsub("%%([%(%)%.%%%+%-%*%?%[%^%$])","%1")
end

function text.internal.tokenize(value,options)
checkArg(1,value,"string")
checkArg(2,options,"table","nil")
options=options or{}
local delimiters=options.delimiters
local custom=not not options.delimiters
delimiters=delimiters or text.syntax

local words,reason=text.internal.words(value,options)

local splitter=text.escapeMagic(custom and table.concat(delimiters)or"<>|;&")
if type(words)~="table"or
#splitter==0 or
not value:find("["..splitter.."]")then
return words,reason
end

return text.internal.splitWords(words,delimiters)
end


function text.internal.words(input,options)
checkArg(1,input,"string")
checkArg(2,options,"table","nil")
options=options or{}
local quotes=options.quotes
local show_escapes=options.show_escapes
local qr=nil
quotes=quotes or{{"'","'",true},{'"','"'},{'`','`'}}
local function append(dst,txt,_qr)
local size=#dst
if size==0 or dst[size].qr~=_qr then
dst[size+1]={txt=txt,qr=_qr}
else
dst[size].txt=dst[size].txt..txt
end
end

local tokens,token={},{}
local escaped,start=false,-1
for i=1,unicode.len(input)do
local char=unicode.sub(input,i,i)
if escaped then
escaped=false





if show_escapes or(qr and not qr[3]and qr[2]~=char)then
append(token,'\\',qr)
end
append(token,char,qr)
elseif char=="\\"and(not qr or not qr[3])then
escaped=true
elseif qr and qr[2]==char then

if#token==0 or#token[#token]==0 then
append(token,'',qr)
end
qr=nil
elseif not qr and tx.first(quotes,function(Q)
qr=Q[1]==char and Q or nil return qr end)then
start=i
elseif not qr and string.find(char,"%s")then
if#token>0 then
table.insert(tokens,token)
end
token={}
else
append(token,char,qr)
end
end
if qr then
return nil,"unclosed quote at index "..start
end

if#token>0 then
table.insert(tokens,token)
end

return tokens
end

require("package").delay(text,"/lib/core/full_text.lua")

return text
F 5768 /lib/thread.lua
local pipe=require("pipe")
local event=require("event")
local process=require("process")
local computer=require("computer")

local thread={}
local init_thread

local function waitForDeath(threads,timeout,all)
checkArg(1,threads,"table")
checkArg(2,timeout,"number","nil")
checkArg(3,all,"boolean")
timeout=timeout or math.huge
local mortician={}
local timed_out=true
local deadline=computer.uptime()+timeout
while deadline>computer.uptime()do
local dieing={}
local living=false
for _,t in ipairs(threads)do
local mt=getmetatable(t)
local result=mt.attached.data.result
local proc_ok=type(result)~="table"or result[1]
local ready_to_die=t:status()~="running"
or not proc_ok
if ready_to_die then
dieing[#dieing+1]=t
mortician[t]=true
else
living=true
end
end

if all and not living or not all and#dieing>0 then
timed_out=false
break
end



event.pull(deadline-computer.uptime())
end

for t in pairs(mortician)do
t:kill()
end

if timed_out then
return nil,"thread join timed out"
end
return true
end

function thread.waitForAny(threads,timeout)
return waitForDeath(threads,timeout,false)
end

function thread.waitForAll(threads,timeout)
return waitForDeath(threads,timeout,true)
end

local box_thread={}

function box_thread:resume()
local mt=getmetatable(self)
if mt.__status~="suspended"then
return nil,"cannot resume "..mt.__status.." thread"
end
mt.__status="running"

if coroutine.status(self.pco.root)=="suspended"and not mt.reg then
mt.register(0)
end
return true
end

function box_thread:suspend()
local mt=getmetatable(self)
if mt.__status~="running"then
return nil,"cannot suspend "..mt.__status.." thread"
end
mt.__status="suspended"
local pco_status=coroutine.status(self.pco.root)
if pco_status=="running"or pco_status=="normal"then
mt.coma()
end
return true
end

function box_thread:status()
return getmetatable(self).__status
end

function box_thread:join(timeout)
return waitForDeath({self},timeout,true)
end

function box_thread:kill()
getmetatable(self).close()
end

function box_thread:detach()
return self:attach(init_thread)
end

function box_thread:attach(parent)
local proc=process.info(parent)
local mt=assert(getmetatable(self),"thread panic: no metadata")
if not proc then return nil,"thread failed to attach, process not found"end
if mt.attached==proc then return self end


local waiting_handler
if mt.attached then

waiting_handler=mt.unregister()
process.removeHandle(self,mt.attached)
end


self.close=self.join


mt.attached=proc
process.addHandle(self,proc)


if waiting_handler then
mt.register(waiting_handler.timeout-computer.uptime())
end

return self
end

function thread.current()
local proc=process.findProcess()
local thread_root
while proc do
if thread_root then
for _,handle in ipairs(proc.data.handles)do
if handle.pco and handle.pco.root==thread_root then
return handle
end
end
else
thread_root=proc.data.coroutine_handler.root
end
proc=proc.parent
end
end

function thread.create(fp,...)
checkArg(1,fp,"function")

local mt={__status="suspended",__index=box_thread}
local t=setmetatable({},mt)
t.pco=pipe.createCoroutineStack(function(...)
mt.__status="running"
local fp_co=t.pco.create(fp)



local args=table.pack(...)
while true do
local result=table.pack(t.pco.resume(fp_co,table.unpack(args,1,args.n)))
if t.pco.status(fp_co)=="dead"then


if not result[1]then
local exit_code
local msg=result[2]

local reason="crashed"
if type(msg)=="table"then
if type(msg.reason)=="string"then
reason=msg.reason
end
exit_code=tonumber(msg.code)
elseif type(msg)=="string"then
reason=msg
end
if not exit_code then
pcall(event.onError,string.format("[thread] %s",reason))
exit_code=1
end
os.exit(exit_code)
end
break
end
args=table.pack(event.pull(table.unpack(result,2,result.n)))
end
end,nil,"thread")


function mt.private_resume(...)
mt.unregister()

if t:status()=="dead"then return end
local result=table.pack(t.pco.resume(t.pco.root,...))
if t.pco.status(t.pco.root)=="dead"then
mt.close()
end
return table.unpack(result,1,result.n)
end

mt.process=process.list[t.pco.root]
mt.process.data.handlers={}

function mt.register(timeout)

mt.id=event.register(
nil,
mt.private_resume,
timeout,
1,
mt.attached.data.handlers)
mt.reg=mt.attached.data.handlers[mt.id]
end

function mt.unregister()
local id=mt.id
local reg=mt.reg
mt.id=nil
mt.reg=nil

if id and mt.attached.data.handlers[id]==reg then
mt.attached.data.handlers[id]=nil
return reg
end
end

function mt.coma()
mt.unregister()
while mt.__status=="suspended"do
t.pco.yield_past(t.pco.root,0)
end
end

function mt.process.data.pull(_,timeout)


















mt.register(timeout)
local event_data=table.pack(t.pco.yield_past(t.pco.root,timeout))
mt.coma()
return table.unpack(event_data,1,event_data.n)
end

function mt.close()
local old_status=t:status()
mt.__status="dead"
process.removeHandle(t,mt.attached)
if old_status~="dead"then
event.push("thread_exit")
end
end

t:attach()
mt.private_resume(...)

return t
end

do
local handlers=event.handlers
local handlers_mt=getmetatable(handlers)

if not handlers_mt.threaded then

local root_data
for t,p in pairs(process.list)do
if not p.parent then
init_thread=t
root_data=p.data
break
end
end
assert(init_thread,"thread library panic: no init thread")
handlers_mt.threaded=true


root_data.handlers={}
root_data.pull=handlers_mt.__call
while true do
local key,value=next(handlers)
if not key then break end
root_data.handlers[key]=value
handlers[key]=nil
end
handlers_mt.__index=function(_,key)
return process.info().data.handlers[key]
end
handlers_mt.__newindex=function(_,key,value)
process.info().data.handlers[key]=value
end
handlers_mt.__pairs=function(_,...)
return pairs(process.info().data.handlers,...)
end
handlers_mt.__call=function(tbl,...)
return process.info().data.pull(tbl,...)
end
end
end

return thread
F 1497 /lib/transforms.lua
local lib={}
lib.internal={}
function lib.internal.range_adjust(f,l,s)
checkArg(1,f,'number','nil')
checkArg(2,l,'number','nil')
checkArg(3,s,'number')
if f==nil then f=1 elseif f<0 then f=s+f+1 end
if l==nil then l=s elseif l<0 then l=s+l+1 end
return f,l
end
function lib.internal.table_view(tbl,f,l)
return setmetatable({},
{
__index=function(_,key)
return(type(key)~='number'or(key>=f and key<=l))and tbl[key]or nil
end,
__len=function(_)
return l
end,
})
end
local adjust=lib.internal.range_adjust
local view=lib.internal.table_view


function lib.first(tbl,pred,f,l)
checkArg(1,tbl,'table')
checkArg(2,pred,'function','table')
if type(pred)=='table'then
local set;set,pred=pred,function(e,fi,tbl)
for vi=1,#set do
local v=set[vi]
if lib.begins(tbl,v,fi)then return true,#v end
end
end
end
local s=#tbl
f,l=adjust(f,l,s)
tbl=view(tbl,f,l)
for i=f,l do
local si,ei=pred(tbl[i],i,tbl)
if si then
return i,i+(ei or 1)-1
end
end
end


function lib.begins(tbl,v,f,l)
checkArg(1,tbl,'table')
checkArg(2,v,'table')
local vs=#v
f,l=adjust(f,l,#tbl)
if vs>(l-f+1)then return end
for i=1,vs do
if tbl[f+i-1]~=v[i]then return end
end
return true
end

function lib.concat(...)
local r,rn,k={},0
for _,tbl in ipairs({...})do
if type(tbl)~='table'then
return nil,'parameter '..tostring(_)..' to concat is not a table'
end
local n=tbl.n or#tbl
k=k or tbl.n
for i=1,n do
rn=rn+1;r[rn]=tbl[i]
end
end
r.n=k and rn or nil
return r
end

require("package").delay(lib,"/lib/core/full_transforms.lua")

return lib
F 5242 /lib/tty.lua
local unicode=require("unicode")
local event=require("event")
local component=require("component")
local computer=require("computer")

local tty={}
tty.window=
{
fullscreen=true,
blink=true,
dx=0,
dy=0,
x=1,
y=1,
output_buffer="",
}

tty.stream={}

local screen_cache={}
local function screen_reset(gpu,addr)
screen_cache[addr or gpu.getScreen()or false]=nil
end

event.listen("screen_resized",screen_reset)

function tty.getViewport()
local window=tty.window
local screen=tty.screen()
if window.fullscreen and screen and not screen_cache[screen]then
screen_cache[screen]=true
window.width,window.height=window.gpu.getViewport()
end

return window.width,window.height,window.dx,window.dy,window.x,window.y
end

function tty.setViewport(width,height,dx,dy,x,y)
checkArg(1,width,"number")
checkArg(2,height,"number")
local window=tty.window
dx,dy,x,y=dx or 0,dy or 0,x or 1,y or 1
window.width,window.height,window.dx,window.dy,window.x,window.y=width,height,dx,dy,x,y
end

function tty.gpu()
return tty.window.gpu
end

function tty.clear()
tty.stream.scroll(math.huge)
tty.setCursor(1,1)
end

function tty.isAvailable()
local gpu=tty.gpu()
return not not(gpu and gpu.getScreen())
end


function tty.stream.read()
local core=require("core/cursor")
local cursor=core.new(tty.window.cursor)


tty.window.cursor=cursor

local ok,result,reason=xpcall(core.read,debug.traceback,cursor)

if not ok or not result then
pcall(cursor.update,cursor)
end

return select(2,assert(ok,result,reason))
end


function tty.stream:write(value)
local gpu=tty.gpu()
if not gpu then
return
end
local window=tty.window
local cursor=window.cursor or{}
cursor.sy=cursor.sy or 0
cursor.tails=cursor.tails or{}
local beeped
local uptime=computer.uptime
local last_sleep=uptime()
window.output_buffer=window.output_buffer..value
while true do
if uptime()-last_sleep>3 then
os.sleep(0)
last_sleep=uptime()
end

local ansi_print=require("vt100").parse(window)



cursor.sy=cursor.sy+self.scroll()


if#window.output_buffer==0 or not ansi_print then
break
end

local x,y=tty.getCursor()

local _,ei,delim=unicode.sub(window.output_buffer,1,window.width):find("([\27\t\r\n\a\b\v\15])")
local segment=ansi_print..(ei and window.output_buffer:sub(1,ei-1)or window.output_buffer)

if segment~=""then
local gpu_x,gpu_y=x+window.dx,y+window.dy
local tail=""
local wlen_needed=unicode.wlen(segment)
local wlen_remaining=window.width-x+1
if wlen_remaining<wlen_needed then
segment=unicode.wtrunc(segment,wlen_remaining+1)
wlen_needed=unicode.wlen(segment)
tail=wlen_needed<wlen_remaining and" "or""
cursor.tails[gpu_y-cursor.sy]=tail
if not window.nowrap then

ei=#segment

delim="\n"
end
end
gpu.set(gpu_x,gpu_y,segment..tail)
x=x+wlen_needed
end

window.output_buffer=ei and window.output_buffer:sub(ei+1)or
unicode.sub(window.output_buffer,window.width+1)

if delim=="\t"then
x=((x-1)-((x-1)%8))+9
elseif delim=="\r"then
x=1
elseif delim=="\n"then
x=1
y=y+1
elseif delim=="\b"then
x=x-1
elseif delim=="\v"then
y=y+1
elseif delim=="\a"and not beeped then
computer.beep()
beeped=true
elseif delim=="\27"then
window.output_buffer=delim..window.output_buffer
end

tty.setCursor(x,y)
end
return cursor.sy
end

function tty.getCursor()
local window=tty.window
return window.x,window.y
end

function tty.setCursor(x,y)
checkArg(1,x,"number")
checkArg(2,y,"number")
local window=tty.window
window.x,window.y=x,y
end

local gpu_intercept=setmetatable({},{__mode="k"})
function tty.bind(gpu)
checkArg(1,gpu,"table")
if not gpu_intercept[gpu]then
gpu_intercept[gpu]=true


local setr,setv=gpu.setResolution,gpu.setViewport
gpu.setResolution=function(...)
screen_reset(gpu)
return setr(...)
end
gpu.setViewport=function(...)
screen_reset(gpu)
return setv(...)
end
end
local window=tty.window
if window.gpu~=gpu then
window.gpu=gpu
window.keyboard=nil
tty.getViewport()
end
screen_reset(gpu)
end

function tty.keyboard()

local window=tty.window

if window.keyboard then
return window.keyboard
end

local system_keyboard=component.isAvailable("keyboard")and component.keyboard
system_keyboard=system_keyboard and system_keyboard.address or"no_system_keyboard"

local screen=tty.screen()

if not screen then

return system_keyboard
end


if component.isAvailable("screen")and component.screen.address==screen then
window.keyboard=system_keyboard
else




window.keyboard=component.invoke(screen,"getKeyboards")[1]or system_keyboard
end

return window.keyboard
end

function tty.screen()
local gpu=tty.gpu()
if not gpu then
return nil
end
return gpu.getScreen()
end

function tty.stream.scroll(lines)
local gpu=tty.gpu()
if not gpu then
return 0
end
local width,height,dx,dy,x,y=tty.getViewport()









if not lines then
if y<1 then
lines=y-1
elseif y>height then
lines=y-height
else
return 0
end
end

lines=math.min(lines,height)
lines=math.max(lines,-height)


local abs_lines=math.abs(lines)
local box_height=height-abs_lines
local fill_top=dy+1+(lines<0 and 0 or box_height)

gpu.copy(dx+1,dy+1+math.max(0,lines),width,box_height,0,-lines)
gpu.fill(dx+1,fill_top,width,abs_lines,' ')

tty.setCursor(x,math.max(1,math.min(y,height)))
return lines
end


local function bfd()return nil,"tty: invalid operation"end
tty.stream.close=bfd
tty.stream.seek=bfd
tty.stream.handle="tty"

return tty
F 454 /lib/uuid.lua
local bit32=require("bit32")
local uuid={}

function uuid.next()


local sets={4,2,2,2,6}
local result=""
local pos=0

for _,set in ipairs(sets)do
if result:len()>0 then
result=result.."-"
end
for _=1,set do
local byte=math.random(0,255)
if pos==6 then
byte=bit32.bor(bit32.band(byte,0x0F),0x40)
elseif pos==8 then
byte=bit32.bor(bit32.band(byte,0x3F),0x80)
end
result=result..string.format("%02x",byte)
pos=pos+1
end
end

return result
end

return uuid
F 2266 /lib/vt100.lua
local text=require("text")

local rules={}
local vt100={rules=rules}
local full




rules[{"%[","[%d;]*","m"}]=function(window,_,number_text)


local colors={0x0,0xff0000,0x00ff00,0xffff00,0x0000ff,0xff00ff,0x00B6ff,0xffffff}
local fg,bg=window.gpu.setForeground,window.gpu.setBackground
if window.flip then
fg,bg=bg,fg
end
number_text=" _ "..number_text:gsub("^;$",""):gsub(";"," _ ").." _ "
local parts=text.internal.tokenize(number_text)
local last_was_break
for _,part in ipairs(parts)do
local num=tonumber(part[1].txt)
last_was_break,num=not num,num or last_was_break and 0

local flip=num==7
if flip then
if not window.flip then
local rgb,pal=bg(window.gpu.getForeground())
fg(pal or rgb,not not pal)
fg,bg=bg,fg
end
elseif num==5 then
window.blink=true
elseif num==0 then
bg(colors[1])
fg(colors[8])
elseif num then
num=num-29
local set=fg
if num>10 then
num=num-10
set=bg
end
local color=colors[num]
if color then
set(color)
end
end
window.flip=flip
end
end

local function save_attributes(window,seven,s)
if seven=="7"or s=="s"then
window.saved=
{
window.x,
window.y,
{window.gpu.getBackground()},
{window.gpu.getForeground()},
window.flip,
window.blink
}
else
local data=window.saved or{1,1,{0x0},{0xffffff},window.flip,window.blink}
window.x=data[1]
window.y=data[2]
window.gpu.setBackground(table.unpack(data[3]))
window.gpu.setForeground(table.unpack(data[4]))
window.flip=data[5]
window.blink=data[6]
end
end



rules[{"[78]"}]=save_attributes



rules[{"%[","[su]"}]=save_attributes


function vt100.parse(window)
if window.output_buffer:sub(1,1)~="\27"then
return""
end
local any_valid

for rule,action in pairs(rules)do
local last_index=1
local captures={}
for _,pattern in ipairs(rule)do
if last_index>=#window.output_buffer then
any_valid=true
break
end
local si,ei,capture=window.output_buffer:find("^("..pattern..")",last_index+1)
if not si then
break
end
captures[#captures+1]=capture
last_index=ei
end

if#captures==#rule then
action(window,table.unpack(captures))
window.output_buffer=window.output_buffer:sub(last_index+1)
return""
end
end

if not full then

full=true
dofile("/lib/core/full_vt.lua")
return vt100.parse(window)
end

if not any_valid then

window.output_buffer=window.output_buffer:sub(2)
return"\27"
end


end

return vt100
F 2551 /lib/core/boot.lua

local raw_loadfile=...

_G._OSVERSION="OpenOS 1.8.10"


local component=component
local computer=computer
local unicode=unicode


_G.runlevel="S"
local shutdown=computer.shutdown
computer.runlevel=function()return _G.runlevel end
computer.shutdown=function(reboot)
_G.runlevel=reboot and 6 or 0
if os.sleep then
computer.pushSignal("shutdown")
os.sleep(0.1)
end
shutdown(reboot)
end

local w,h
local screen=component.list("screen",true)()
local gpu=screen and component.list("gpu",true)()
if gpu then
gpu=component.proxy(gpu)
if not gpu.getScreen()then
gpu.bind(screen)
end
_G.boot_screen=gpu.getScreen()
w,h=gpu.maxResolution()
gpu.setResolution(w,h)
gpu.setBackground(0x000000)
gpu.setForeground(0xFFFFFF)
gpu.fill(1,1,w,h," ")
end


local y=1
local uptime=computer.uptime


local pull=computer.pullSignal
local last_sleep=uptime()
local function status(msg)
if gpu then
gpu.set(1,y,msg)
if y==h then
gpu.copy(1,2,w,h-1,0,-1)
gpu.fill(1,h,w,1," ")
else
y=y+1
end
end

if uptime()-last_sleep>1 then
local signal=table.pack(pull(0))

if signal.n>0 then

computer.pushSignal(table.unpack(signal,1,signal.n))
end
last_sleep=uptime()
end
end

status("Booting ".._OSVERSION.."...")


local function dofile(file)
status("> "..file)
local program,reason=raw_loadfile(file)
if program then
local result=table.pack(pcall(program))
if result[1]then
return table.unpack(result,2,result.n)
else
error(result[2])
end
else
error(reason)
end
end

status("Initializing package management...")




local package=dofile("/lib/package.lua")

do

_G.component=nil
_G.computer=nil
_G.process=nil
_G.unicode=nil

_G.package=package


package.loaded.component=component
package.loaded.computer=computer
package.loaded.unicode=unicode
package.loaded.buffer=dofile("/lib/buffer.lua")
package.loaded.filesystem=dofile("/lib/filesystem.lua")


_G.io=dofile("/lib/io.lua")
end

status("Initializing file system...")



require("filesystem").mount(computer.getBootAddress(),"/")

status("Running boot scripts...")


local function rom_invoke(method,...)
return component.invoke(computer.getBootAddress(),method,...)
end

local scripts={}
for _,file in ipairs(rom_invoke("list","boot"))do
local path="boot/"..file
if not rom_invoke("isDirectory",path)then
table.insert(scripts,path)
end
end
table.sort(scripts)
for i=1,#scripts do
dofile(scripts[i])
end

status("Initializing components...")

for c,t in component.list()do
computer.pushSignal("component_added",c,t)
end

status("Initializing system...")

computer.pushSignal("init")
require("event").pull(1,"init")
_G.runlevel=1
F 5722 /lib/core/cursor.lua
local unicode=require("unicode")
local kb=require("keyboard")
local tty=require("tty")
local text=require("text")
local computer=require("computer")
local keys=kb.keys

local core_cursor={}

core_cursor.vertical={}

function core_cursor.vertical:move(n)
local s=math.max(math.min(self.index+n,self.len),0)
if s==self.index then return end
local echo_cmd=keys.left
local from=s+1
local to=self.index
if s>self.index then
echo_cmd,from,to=keys.right,to+1,s
end
self.index=s
local step=unicode.wlen(unicode.sub(self.data,from,to))
self:echo(echo_cmd,step)
end


function core_cursor.vertical:update(arg,back)
if not arg then
self.tails={}
self.data=""
self.index=0
self.sy=0
self.hindex=0
end
local s1=unicode.sub(self.data,1,self.index)
local s2=unicode.sub(self.data,self.index+1)
if type(arg)=="string"then
if back==false then
arg,s2=arg..s2,""
else
self.index=self.index+unicode.len(arg)
self:echo(arg)
end
self.data=s1 ..arg
elseif arg then
local has_tail=arg<0 or#s2>0
if arg<0 then

if self.index<=0 then return end
self:move(arg)
s1=unicode.sub(s1,1,-1+arg)
else

if self.index>=self.len then return end
s2=unicode.sub(s2,1+arg)
end
self.data=s1
if has_tail then
self:echo(self.clear)
end
end
self.len=unicode.len(self.data)
self:move(back or 0)
if#s2>0 then
self:update(s2,-unicode.len(s2))
end
end

function core_cursor.vertical:echo(arg,num)
local win=tty.window
local gpu=win.gpu







if not io.stdin.tty then
return
end
local out=io.stdin.stream

if not gpu then return end
win.nowrap=self.nowrap
if arg==""then
local width,x,y=win.width,win.x,win.y
if x>width then
win.x=((x-1)%width)+1
win.y=y+math.floor(x/width)
out:write("")
x,y=win.x,win.y
end
if x<=0 or y<=0 or y>win.height or not gpu then return end
return table.pack(select(2,pcall(gpu.get,x+win.dx,y+win.dy)))
elseif arg==keys.left then
local x=win.x-num
local y=win.y
while x<1 do
x=x+win.width-#(self.tails[win.dy+y-self.sy-1]or"")
y=y-1
end
win.x,win.y=x,y
arg=""
elseif arg==keys.right then
local x=win.x+num
local y=win.y
while true do
local width=win.width-#(self.tails[win.dy+y-self.sy]or"")
if x<=width then break end
x=x-width
y=y+1
end
win.x,win.y=x,y
arg=""
elseif not arg or arg==true then
local char=self.char_at_cursor
if(arg==nil and not char)or(arg and not self.blinked)then
char=char or self:echo("")
if not char[1]then return false end
self.blinked=true
if not arg then
out:write("\0277")
char.saved=win.saved
gpu.setForeground(char[4]or char[2],not not char[4])
gpu.setBackground(char[5]or char[3],not not char[5])
end
out:write("\0277\27[7m"..char[1].."\0278")
elseif(arg and self.blinked)or(arg==false and char)then
self.blinked=false
gpu.set(win.x+win.dx,win.y+win.dy,char[1])
if not arg then
win.saved=char.saved
out:write("\0278")
char=nil
end
end
self.char_at_cursor=char
return true
end
return out:write(arg)
end

function core_cursor.vertical:handle(name,char,code)
if name=="clipboard"then
self.cache=nil
local newline=char:find("\10")or#char
local printable_prefix,remainder=char:sub(1,newline),char:sub(newline+1)
self:update(printable_prefix)
self:update(remainder,false)
elseif name=="touch"or name=="drag"then
core_cursor.touch(self,char,code)
elseif name=="interrupted"then
self:echo("^C\n")
return false,name
elseif name=="key_down"then
local data=self.data
local backup_cache=self.cache
self.cache=nil
local ctrl=kb.isControlDown()
if ctrl and code==keys.d then
return
elseif code==keys.tab then
self.cache=backup_cache
core_cursor.tab(self)
elseif code==keys.enter or code==keys.numpadenter then
self:move(self.len)
self:update("\n")
elseif code==keys.up or code==keys.down then
local ni=self.hindex+(code==keys.up and 1 or-1)
if ni>=0 and ni<=#self then
self[self.hindex]=data
self.hindex=ni
self:move(self.len)
self:update(-self.len)
self:update(self[ni])
end
elseif code==keys.left or code==keys.back or code==keys.w and ctrl then
local value=ctrl and((unicode.sub(data,1,self.index):find("%s[^%s]+%s*$")or 0)-self.index)or-1
if code==keys.left then
self:move(value)
else
self:update(value)
end
elseif code==keys.right then
self:move(ctrl and((data:find("%s[^%s]",self.index+1)or self.len)-self.index)or 1)
elseif code==keys.home then self:move(-self.len)
elseif code==keys["end"]then self:move(self.len)
elseif code==keys.delete then self:update(1)
elseif char>=32 then self:update(unicode.char(char))
else self.cache=backup_cache
end
end
return true
end


core_cursor.vertical.clear="\27[J"

function core_cursor.new(base,index)


base=base or{}
base.super=base.super or index or core_cursor.vertical
setmetatable(base,getmetatable(base)or{__index=base.super})
if not base.data then
base:update()
end
return base
end

function core_cursor.read(cursor)
local last=cursor.next or""
cursor.next=nil
if#last>0 then
cursor:handle("clipboard",last)
end


local address_check=
{
key_down=tty.keyboard,
clipboard=tty.keyboard,
touch=tty.screen,
drag=tty.screen,
drop=tty.screen
}

while true do
local next_line=cursor.data:find("\10")
if next_line then
local result=cursor.data:sub(1,next_line)
local overflow=cursor.data:sub(next_line+1)
local history=text.trim(result)
if history~=""and history~=cursor[1]then
table.insert(cursor,1,history)
cursor[(tonumber(os.getenv("HISTSIZE"))or 10)+1]=nil
end
cursor[0]=nil
cursor:update()
cursor.next=overflow
return result
end

cursor:echo()
local pack=table.pack(computer.pullSignal(tty.window.blink and.5 or math.huge))
local name=pack[1]
cursor:echo(not name)

if name then
local filter_address=address_check[name]
if not filter_address or filter_address()==pack[2]then
local ret,why=cursor:handle(name,table.unpack(pack,3,pack.n))
if not ret then
return ret,why
end
end
end
end
end

require("package").delay(core_cursor,"/lib/core/full_cursor.lua")

return core_cursor
F 2041 /lib/core/device_labeling.lua
local fs=require("filesystem")

local lib={}

local rules_path="/etc/udev/rules.d/"
local auto_rules="autogenerated.lua"

local function fs_key(dir,filename)
local long_name=dir..'/'..filename
local segments=fs.segments(long_name)
local result='/'..table.concat(segments,'/')
return result
end

function lib.loadRules(root_dir)
checkArg(1,root_dir,"string","nil")
root_dir=(root_dir or rules_path)
lib.rules={}
lib.rules[fs_key(root_dir,auto_rules)]={}

for file in fs.list(root_dir)do
if file:match("%.lua$")then
local path=fs_key(root_dir,file)
local file_handle=io.open(path)
if file_handle then
local load_rule=load("return {"..file_handle:read("*a").."}")
file_handle:close()
if load_rule then
local ok,rule=pcall(load_rule)
if ok and type(rule)=="table"then
local irule={}
lib.rules[path]=irule
for _,v in ipairs(rule)do
if type(v)=="table"then
table.insert(irule,v)
end

end
end
end
end
end
end
end

function lib.saveRule(rule_set,path)
checkArg(1,rule_set,"table")
checkArg(2,path,"string")
local file=io.open(path,"w")
if not file then return end
for index,irule in ipairs(rule_set)do
file:write(require("serialization").serialize(irule),",\n")
end
file:close()
end

function lib.saveRules(rules)
for path,rule_set in pairs(rules)do
lib.saveRule(rule_set,path)
end
end

local function getIRule(proxy)
checkArg(1,proxy,"table")
for path,rule_set in pairs(lib.rules)do
for index,irule in ipairs(rule_set)do
if irule.address==proxy.address then
return irule,index,rule_set,path
end
end
end
end

function lib.getDeviceLabel(proxy)
local irule=getIRule(proxy)
if irule and irule.label then
return irule.label
elseif proxy.getLabel then
return proxy.getLabel()
end
end

function lib.setDeviceLabel(proxy,label)
local irule,index,rule_set,path=getIRule(proxy)
if not irule then

if proxy.setLabel then
return proxy.setLabel(label)
end
path=fs_key(rules_path,auto_rules)
rule_set=lib.rules[path]
index=#rule_set+1
irule={address=proxy.address}
table.insert(rule_set,irule)
end
irule.label=label
lib.saveRule(rule_set,path)
end

return lib

F 4374 /lib/core/full_buffer.lua
local buffer=require("buffer")
local unicode=require("unicode")

function buffer:getTimeout()
return self.readTimeout
end

function buffer:setTimeout(value)
self.readTimeout=tonumber(value)
end

function buffer:seek(whence,offset)
whence=tostring(whence or"cur")
assert(whence=="set"or whence=="cur"or whence=="end",
"bad argument #1 (set, cur or end expected, got "..whence..")")
offset=offset or 0
checkArg(2,offset,"number")
assert(math.floor(offset)==offset,"bad argument #2 (not an integer)")

if self.mode.w or self.mode.a then
self:flush()
elseif whence=="cur"then
offset=offset-#self.bufferRead
end
local result,reason=self.stream:seek(whence,offset)
if result then
self.bufferRead=""
return result
else
return nil,reason
end
end

function buffer:buffered_write(arg)
local result,reason
if self.bufferMode=="full"then
if self.bufferSize-#self.bufferWrite<#arg then
result,reason=self:flush()
if not result then
return nil,reason
end
end
if#arg>self.bufferSize then
result,reason=self.stream:write(arg)
else
self.bufferWrite=self.bufferWrite..arg
result=self
end
else
local l
repeat
local idx=arg:find("\n",(l or 0)+1,true)
if idx then
l=idx
end
until not idx
if l or#arg>self.bufferSize then
result,reason=self:flush()
if not result then
return nil,reason
end
end
if l then
result,reason=self.stream:write(arg:sub(1,l))
if not result then
return nil,reason
end
arg=arg:sub(l+1)
end
if#arg>self.bufferSize then
result,reason=self.stream:write(arg)
else
self.bufferWrite=self.bufferWrite..arg
result=self
end
end
return result,reason
end



function buffer:readNumber(readChunk)
local len,sub
if self.mode.b then
len=rawlen
sub=string.sub
else
len=unicode.len
sub=unicode.sub
end

local number_text=""
local white_done

local function peek()
if len(self.bufferRead)==0 then
local result,reason=readChunk(self)
if not result then
return result,reason
end
end
return sub(self.bufferRead,1,1)
end

local function pop()
local n=sub(self.bufferRead,1,1)
self.bufferRead=sub(self.bufferRead,2)
return n
end

while true do
local peeked=peek()
if not peeked then
break
end

if peeked:match("[%s]")then
if white_done then
break
end
pop()
else
white_done=true
if not tonumber(number_text..peeked.."0")then
break
end
number_text=number_text..pop()
end
end

return tonumber(number_text)
end

function buffer:readBytesOrChars(readChunk,n)
n=math.max(n,0)
local len,sub
if self.mode.b then
len=rawlen
sub=string.sub
else
len=unicode.len
sub=unicode.sub
end
local data=""
while true do
local current_data_len=len(data)
local needed=n-current_data_len
if needed<1 then
break
end


if#self.bufferRead==0 then
local result,reason=readChunk(self)
if not result then
if reason then
return result,reason
else
return current_data_len>0 and data or nil
end
end
end
local splice=self.bufferRead
if len(self.bufferRead)>needed then
splice=sub(self.bufferRead,1,needed)
if len(splice)~=needed then


splice=self.bufferRead
end

end
data=data..splice
self.bufferRead=string.sub(self.bufferRead,#splice+1)
end
return data
end

function buffer:readAll(readChunk)
repeat
local result,reason=readChunk(self)
if not result and reason then
return result,reason
end
until not result
local result=self.bufferRead
self.bufferRead=""
return result
end

function buffer:formatted_read(readChunk,...)
self.timeout=require("computer").uptime()+self.readTimeout
local function read(n,format)
if type(format)=="number"then
return self:readBytesOrChars(readChunk,format)
else
local first_char_index=1
if type(format)~="string"then
error("bad argument #"..n.." (invalid option)")
elseif unicode.sub(format,1,1)=="*"then
first_char_index=2
end
format=unicode.sub(format,first_char_index,first_char_index)
if format=="n"then
return self:readNumber(readChunk)
elseif format=="l"then
return self:readLine(true,self.timeout)
elseif format=="L"then
return self:readLine(false,self.timeout)
elseif format=="a"then
return self:readAll(readChunk)
else
error("bad argument #"..n.." (invalid format)")
end
end
end

local results={}
local formats=table.pack(...)
for i=1,formats.n do
local result,reason=read(i,formats[i])
if result then
results[i]=result
elseif reason then
return nil,reason
end
end
return table.unpack(results,1,formats.n)
end

function buffer:size()
local len=self.mode.b and rawlen or unicode.len
local size=len(self.bufferRead)
if self.stream.size then
size=size+self.stream:size()
end
return size
end
F 2617 /lib/core/full_cursor.lua
local core_cursor=require("core/cursor")
local unicode=require("unicode")
local kb=require("keyboard")
local tty=require("tty")

core_cursor.horizontal={}

function core_cursor.touch(cursor,gx,gy)
if cursor.len>0 then
local win=tty.window
gx,gy=gx-win.dx,gy-win.dy
while true do
local x,y,d=win.x,win.y,win.width
local dx=((gy*d+gx)-(y*d+x))
if dx==1 then
dx=unicode.wlen(unicode.sub(cursor.data,cursor.index+1,cursor.index+1))==2 and 0 or dx
end
if dx==0 then
break
end
cursor:move(dx>0 and 1 or-1)
if x==win.x and y==win.y then
break
end
end
end
end

function core_cursor.tab(cursor)
local hints=cursor.hint
if not hints then return end
if not cursor.cache then
cursor.cache=
type(hints)=="table"and hints or
hints(cursor.data,cursor.index+1)or
{}
cursor.cache.i=-1
end

local cache=cursor.cache

if#cache==1 and cache.i==0 then

cursor.cache=hints(cache[1],cursor.index+1)
if not cursor.cache then return end
cursor.cache.i=-1
cache=cursor.cache
end

local change=kb.isShiftDown()and-1 or 1
cache.i=(cache.i+change)%math.max(#cache,1)
local next=cache[cache.i+1]
if next then
local tail=unicode.len(cursor.data)-cursor.index
cursor:move(cursor.len)
cursor:update(-cursor.len)
cursor:update(next,-tail)
end
end

function core_cursor.horizontal:scroll(num,final_index)
self:move(self.vindex-self.index)

self.vindex=self.vindex+num
self.index=self.index+num

self:echo("\0277"..
unicode.sub(self.data,self.index+1)..
"\27[K\0278")

self:move(final_index-self.index)
end

function core_cursor.horizontal:echo(arg,num)
local w=tty.window
w.nowrap=self.nowrap
if arg==""then
local width=w.width
if w.x>=width then

width=width-math.max(unicode.wlen(unicode.sub(self.data,self.index+1,self.index+1))-1,0)
if w.x>width then
local s1=unicode.sub(self.data,self.vindex+1,self.index)
self:scroll(unicode.len(unicode.wtrunc(s1,w.x-width+1)),self.index)
end
end

elseif arg==kb.keys.left then
if self.index<self.vindex then
local s2=unicode.sub(self.data,self.index+1)
w.x=w.x-num+unicode.wlen(unicode.sub(s2,1,self.vindex-self.index))
local current_x=w.x
self:echo(s2)
w.x=current_x
self.vindex=self.index
return true
end
elseif arg==kb.keys.right then
w.x=w.x+num
return self:echo("")
end
return core_cursor.vertical.echo(self,arg,num)
end

function core_cursor.horizontal:update(arg,back)
if back then


self:update(arg,false)
local x=tty.window.x
self:echo(arg)
tty.window.x=x
self:move(self.len-self.index+back)
return true
elseif not arg then
self.nowrap=true
self.clear="\27[K"
self.vindex=0
end
return core_cursor.vertical.update(self,arg,back)
end

setmetatable(core_cursor.horizontal,{__index=core_cursor.vertical})
F 1470 /lib/core/full_event.lua
local event=require("event")

local function createMultipleFilter(...)
local filter=table.pack(...)
if filter.n==0 then
return nil
end

return function(...)
local signal=table.pack(...)
if type(signal[1])~="string"then
return false
end
for i=1,filter.n do
if filter[i]~=nil and signal[1]:match(filter[i])then
return true
end
end
return false
end
end

function event.pullMultiple(...)
local seconds
local args
if type(...)=="number"then
seconds=...
args=table.pack(select(2,...))
for i=1,args.n do
checkArg(i+1,args[i],"string","nil")
end
else
args=table.pack(...)
for i=1,args.n do
checkArg(i,args[i],"string","nil")
end
end
return event.pullFiltered(seconds,createMultipleFilter(table.unpack(args,1,args.n)))
end

function event.cancel(timerId)
checkArg(1,timerId,"number")
if event.handlers[timerId]then
event.handlers[timerId]=nil
return true
end
return false
end

function event.ignore(name,callback)
checkArg(1,name,"string")
checkArg(2,callback,"function")
for id,handler in pairs(event.handlers)do
if handler.key==name and handler.callback==callback then
event.handlers[id]=nil
return true
end
end
return false
end

function event.onError(message)
local log=io.open("/tmp/event.log","a")
if log then
pcall(log.write,log,tostring(message),"\n")
log:close()
end
end

function event.timer(interval,callback,times)
checkArg(1,interval,"number")
checkArg(2,callback,"function")
checkArg(3,times,"number","nil")
return event.register(false,callback,interval,times)
end
F 7980 /lib/core/full_filesystem.lua
local filesystem=require("filesystem")
local component=require("component")
local shell=require("shell")

function filesystem.makeDirectory(path)
if filesystem.exists(path)then
return nil,"file or directory with that name already exists"
end
local node,rest=filesystem.findNode(path)
if node.fs and rest then
local success,reason=node.fs.makeDirectory(rest)
if not success and not reason and node.fs.isReadOnly()then
reason="filesystem is readonly"
end
return success,reason
end
if node.fs then
return nil,"virtual directory with that name already exists"
end
return nil,"cannot create a directory in a virtual directory"
end

function filesystem.lastModified(path)
local node,rest,vnode,vrest=filesystem.findNode(path,false,true)
if not node or not vnode.fs and not vrest then
return 0
end
if node.fs and rest then
return node.fs.lastModified(rest)
end
return 0
end

function filesystem.mounts()
local tmp={}
for path,node in pairs(filesystem.fstab)do
table.insert(tmp,{node.fs,path})
end
return function()
local next=table.remove(tmp)
if next then return table.unpack(next)end
end
end

function filesystem.link(target,linkpath)
checkArg(1,target,"string")
checkArg(2,linkpath,"string")

if filesystem.exists(linkpath)then
return nil,"file already exists"
end
local linkpath_parent=filesystem.path(linkpath)
if not filesystem.exists(linkpath_parent)then
return nil,"no such directory"
end
local linkpath_real,reason=filesystem.realPath(linkpath_parent)
if not linkpath_real then
return nil,reason
end
if not filesystem.isDirectory(linkpath_real)then
return nil,"not a directory"
end

local _,_,vnode,_=filesystem.findNode(linkpath_real,true)
vnode.links[filesystem.name(linkpath)]=target
return true
end

function filesystem.umount(fsOrPath)
checkArg(1,fsOrPath,"string","table")
local real
local fs
local addr
if type(fsOrPath)=="string"then
real=filesystem.realPath(fsOrPath)
addr=fsOrPath
else
fs=fsOrPath
end

local paths={}
for path,node in pairs(filesystem.fstab)do
if real==path or addr==node.fs.address or fs==node.fs then
table.insert(paths,path)
end
end
for _,path in ipairs(paths)do
local node=filesystem.fstab[path]
filesystem.fstab[path]=nil
node.fs=nil
node.parent.children[node.name]=nil
end
return#paths>0
end

function filesystem.size(path)
local node,rest,vnode,vrest=filesystem.findNode(path,false,true)
if not node or not vnode.fs and(not vrest or vnode.links[vrest])then
return 0
end
if node.fs and rest then
return node.fs.size(rest)
end
return 0
end

function filesystem.isLink(path)
local name=filesystem.name(path)
local node,rest,vnode,vrest=filesystem.findNode(filesystem.path(path),false,true)
if not node then return nil,rest end
local target=vnode.links[name]




if not vrest and target~=nil then
return true,target
end
return false
end

function filesystem.copy(fromPath,toPath)
local data=false
local input,reason=filesystem.open(fromPath,"rb")
if input then
local output=filesystem.open(toPath,"wb")
if output then
repeat
data,reason=input:read(1024)
if not data then break end
data,reason=output:write(data)
if not data then data,reason=false,"failed to write"end
until not data
output:close()
end
input:close()
end
return data==nil,reason
end

local function readonly_wrap(proxy)
checkArg(1,proxy,"table")
if proxy.isReadOnly()then
return proxy
end

local function roerr()return nil,"filesystem is readonly"end
return setmetatable({
rename=roerr,
open=function(path,mode)
checkArg(1,path,"string")
checkArg(2,mode,"string")
if mode:match("[wa]")then
return roerr()
end
return proxy.open(path,mode)
end,
isReadOnly=function()
return true
end,
write=roerr,
setLabel=roerr,
makeDirectory=roerr,
remove=roerr,
},{__index=proxy})
end

local function bind_proxy(path)
local real,reason=filesystem.realPath(path)
if not real then
return nil,reason
end
if not filesystem.isDirectory(real)then
return nil,"must bind to a directory"
end
local real_fs,real_fs_path=filesystem.get(real)
if real==real_fs_path then
return real_fs
end

local rest=real:sub(#real_fs_path+1)
local function wrap_relative(fp)
return function(mpath,...)
return fp(filesystem.concat(rest,mpath),...)
end
end
local bind={
type="filesystem_bind",
address=real,
isReadOnly=real_fs.isReadOnly,
list=wrap_relative(real_fs.list),
isDirectory=wrap_relative(real_fs.isDirectory),
size=wrap_relative(real_fs.size),
lastModified=wrap_relative(real_fs.lastModified),
exists=wrap_relative(real_fs.exists),
open=wrap_relative(real_fs.open),
remove=wrap_relative(real_fs.remove),
read=real_fs.read,
write=real_fs.write,
close=real_fs.close,
getLabel=function()return""end,
setLabel=function()return nil,"cannot set the label of a bind point"end,
}
return bind
end

filesystem.internal={}
function filesystem.internal.proxy(filter,options)
checkArg(1,filter,"string")
checkArg(2,options,"table","nil")
options=options or{}
local address,proxy,reason
if options.bind then
proxy,reason=bind_proxy(filter)
else

for c in component.list("filesystem",true)do
if component.invoke(c,"getLabel")==filter then
address=c
break
end
if c:sub(1,filter:len())==filter then
address=c
break
end
end
if not address then
return nil,"no such file system"
end
proxy,reason=component.proxy(address)
end
if not proxy then
return proxy,reason
end
if options.readonly then
proxy=readonly_wrap(proxy)
end
return proxy
end

function filesystem.remove(path)
local function removeVirtual()
local _,_,vnode,vrest=filesystem.findNode(filesystem.path(path),false,true)



if not vrest then
local name=filesystem.name(path)
if vnode.children[name]or vnode.links[name]then
vnode.children[name]=nil
vnode.links[name]=nil
while vnode and vnode.parent and not vnode.fs and not next(vnode.children)and not next(vnode.links)do
vnode.parent.children[vnode.name]=nil
vnode=vnode.parent
end
return true
end
end


return false
end
local function removePhysical()
local node,rest=filesystem.findNode(path)
if node.fs and rest then
return node.fs.remove(rest)
end
return false
end
local success=removeVirtual()
success=removePhysical()or success
if success then return true
else return nil,"no such file or directory"
end
end

function filesystem.rename(oldPath,newPath)
if filesystem.isLink(oldPath)then
local _,_,vnode,_=filesystem.findNode(filesystem.path(oldPath))
local target=vnode.links[filesystem.name(oldPath)]
local result,reason=filesystem.link(target,newPath)
if result then
filesystem.remove(oldPath)
end
return result,reason
else
local oldNode,oldRest=filesystem.findNode(oldPath)
local newNode,newRest=filesystem.findNode(newPath)
if oldNode.fs and oldRest and newNode.fs and newRest then
if oldNode.fs.address==newNode.fs.address then
return oldNode.fs.rename(oldRest,newRest)
else
local result,reason=filesystem.copy(oldPath,newPath)
if result then
return filesystem.remove(oldPath)
else
return nil,reason
end
end
end
return nil,"trying to read from or write to virtual directory"
end
end

local isAutorunEnabled=nil
local function saveConfig()
local root=filesystem.get("/")
if root and not root.isReadOnly()then
local f=filesystem.open("/etc/filesystem.cfg","w")
if f then
f:write("autorun="..tostring(isAutorunEnabled))
f:close()
end
end
end

function filesystem.isAutorunEnabled()
if isAutorunEnabled==nil then
local env={}
local config=loadfile("/etc/filesystem.cfg",nil,env)
if config then
pcall(config)
isAutorunEnabled=not not env.autorun
else
isAutorunEnabled=true
end
saveConfig()
end
return isAutorunEnabled
end

function filesystem.setAutorunEnabled(value)
checkArg(1,value,"boolean")
isAutorunEnabled=value
saveConfig()
end


os.remove=filesystem.remove
os.rename=filesystem.rename

os.execute=function(command)
if not command then
return type(shell)=="table"
end
return shell.execute(command)
end

function os.exit(code)
error({reason="terminated",code=code},0)
end

function os.tmpname()
local path=os.getenv("TMPDIR")or"/tmp"
if filesystem.exists(path)then
for _=1,10 do
local name=filesystem.concat(path,tostring(math.random(1,0x7FFFFFFF)))
if not filesystem.exists(name)then
return name
end
end
end
end
F 3126 /lib/core/full_keyboard.lua
local keyboard=require("keyboard")

keyboard.keys["1"]=0x02
keyboard.keys["2"]=0x03
keyboard.keys["3"]=0x04
keyboard.keys["4"]=0x05
keyboard.keys["5"]=0x06
keyboard.keys["6"]=0x07
keyboard.keys["7"]=0x08
keyboard.keys["8"]=0x09
keyboard.keys["9"]=0x0A
keyboard.keys["0"]=0x0B
keyboard.keys.a=0x1E
keyboard.keys.b=0x30
keyboard.keys.c=0x2E
keyboard.keys.d=0x20
keyboard.keys.e=0x12
keyboard.keys.f=0x21
keyboard.keys.g=0x22
keyboard.keys.h=0x23
keyboard.keys.i=0x17
keyboard.keys.j=0x24
keyboard.keys.k=0x25
keyboard.keys.l=0x26
keyboard.keys.m=0x32
keyboard.keys.n=0x31
keyboard.keys.o=0x18
keyboard.keys.p=0x19
keyboard.keys.q=0x10
keyboard.keys.r=0x13
keyboard.keys.s=0x1F
keyboard.keys.t=0x14
keyboard.keys.u=0x16
keyboard.keys.v=0x2F
keyboard.keys.w=0x11
keyboard.keys.x=0x2D
keyboard.keys.y=0x15
keyboard.keys.z=0x2C

keyboard.keys.apostrophe=0x28
keyboard.keys.at=0x91
keyboard.keys.back=0x0E
keyboard.keys.backslash=0x2B
keyboard.keys.capital=0x3A
keyboard.keys.colon=0x92
keyboard.keys.comma=0x33
keyboard.keys.enter=0x1C
keyboard.keys.equals=0x0D
keyboard.keys.grave=0x29
keyboard.keys.lbracket=0x1A
keyboard.keys.lcontrol=0x1D
keyboard.keys.lmenu=0x38
keyboard.keys.lshift=0x2A
keyboard.keys.minus=0x0C
keyboard.keys.numlock=0x45
keyboard.keys.pause=0xC5
keyboard.keys.period=0x34
keyboard.keys.rbracket=0x1B
keyboard.keys.rcontrol=0x9D
keyboard.keys.rmenu=0xB8
keyboard.keys.rshift=0x36
keyboard.keys.scroll=0x46
keyboard.keys.semicolon=0x27
keyboard.keys.slash=0x35
keyboard.keys.space=0x39
keyboard.keys.stop=0x95
keyboard.keys.tab=0x0F
keyboard.keys.underline=0x93


keyboard.keys.up=0xC8
keyboard.keys.down=0xD0
keyboard.keys.left=0xCB
keyboard.keys.right=0xCD
keyboard.keys.home=0xC7
keyboard.keys["end"]=0xCF
keyboard.keys.pageUp=0xC9
keyboard.keys.pageDown=0xD1
keyboard.keys.insert=0xD2
keyboard.keys.delete=0xD3


keyboard.keys.f1=0x3B
keyboard.keys.f2=0x3C
keyboard.keys.f3=0x3D
keyboard.keys.f4=0x3E
keyboard.keys.f5=0x3F
keyboard.keys.f6=0x40
keyboard.keys.f7=0x41
keyboard.keys.f8=0x42
keyboard.keys.f9=0x43
keyboard.keys.f10=0x44
keyboard.keys.f11=0x57
keyboard.keys.f12=0x58
keyboard.keys.f13=0x64
keyboard.keys.f14=0x65
keyboard.keys.f15=0x66
keyboard.keys.f16=0x67
keyboard.keys.f17=0x68
keyboard.keys.f18=0x69
keyboard.keys.f19=0x71


keyboard.keys.kana=0x70
keyboard.keys.kanji=0x94
keyboard.keys.convert=0x79
keyboard.keys.noconvert=0x7B
keyboard.keys.yen=0x7D
keyboard.keys.circumflex=0x90
keyboard.keys.ax=0x96


keyboard.keys.numpad0=0x52
keyboard.keys.numpad1=0x4F
keyboard.keys.numpad2=0x50
keyboard.keys.numpad3=0x51
keyboard.keys.numpad4=0x4B
keyboard.keys.numpad5=0x4C
keyboard.keys.numpad6=0x4D
keyboard.keys.numpad7=0x47
keyboard.keys.numpad8=0x48
keyboard.keys.numpad9=0x49
keyboard.keys.numpadmul=0x37
keyboard.keys.numpaddiv=0xB5
keyboard.keys.numpadsub=0x4A
keyboard.keys.numpadadd=0x4E
keyboard.keys.numpaddecimal=0x53
keyboard.keys.numpadcomma=0xB3
keyboard.keys.numpadenter=0x9C
keyboard.keys.numpadequals=0x8D


setmetatable(keyboard.keys,
{
__index=function(tbl,k)
if type(k)~="number"then return end
for name,value in pairs(tbl)do
if value==k then
return name
end
end
end
})
F 9375 /lib/core/full_ls.lua
local fs=require("filesystem")
local shell=require("shell")
local tty=require("tty")
local unicode=require("unicode")
local tx=require("transforms")
local text=require("text")

local dirsArg,ops=shell.parse(...)

if ops.help then
print([[Usage: ls [OPTION]... [FILE]...
  -a, --all                  do not ignore entries starting with .
      --full-time            with -l, print time in full iso format
  -h, --human-readable       with -l and/or -s, print human readable sizes
      --si                   likewise, but use powers of 1000 not 1024
  -l                         use a long listing format
  -r, --reverse              reverse order while sorting
  -R, --recursive            list subdirectories recursively
  -S                         sort by file size
  -t                         sort by modification time, newest first
  -X                         sort alphabetically by entry extension
  -1                         list one file per line
  -p                         append / indicator to directories
  -M                         display Microsoft-style file and directory
                             count after listing
      --no-color             Do not colorize the output (default colorized)
      --help                 display this help and exit
For more info run: man ls]])
return 0
end

if#dirsArg==0 then
table.insert(dirsArg,".")
end

local ec=0
local fOut=tty.isAvailable()and io.output().tty
local function perr(msg)io.stderr:write(msg,"\n")ec=2 end
local set_color=function()end
local function colorize()return end
if fOut and not ops["no-color"]then
local LSC=tx.foreach(text.split(os.getenv("LS_COLORS")or"",{":"},true),function(e)
local parts=text.split(e,{"="},true)
return parts[2],parts[1]
end)
colorize=function(info)
return
info.isLink and LSC.ln or
info.isDir and LSC.di or
LSC['*'..info.ext]or
LSC.fi
end
set_color=function(c)
io.write(string.char(0x1b),"[",c or"","m")
end
end
local msft={reports=0,proxies={}}
function msft.report(files,dirs,used,proxy)
local free=proxy.spaceTotal()-proxy.spaceUsed()
set_color()
local pattern="%5i File(s) %s bytes\n%5i Dir(s)  %11s bytes free\n"
io.write(string.format(pattern,files,tostring(used),dirs,tostring(free)))
end
function msft.tail(names)
local fsproxy=fs.get(names.path)
if not fsproxy then
return
end
local totalSize,totalFiles,totalDirs=0,0,0
for i=1,#names do
local info=names[i]
if info.isDir then
totalDirs=totalDirs+1
else
totalFiles=totalFiles+1
end
totalSize=totalSize+info.size
end
msft.report(totalFiles,totalDirs,totalSize,fsproxy)
local ps=msft.proxies
ps[fsproxy]=ps[fsproxy]or{files=0,dirs=0,used=0}
local p=ps[fsproxy]
p.files=p.files+totalFiles
p.dirs=p.dirs+totalDirs
p.used=p.used+totalSize
msft.reports=msft.reports+1
end
function msft.final()
if msft.reports<2 then return end
local groups={}
for proxy,report in pairs(msft.proxies)do
table.insert(groups,{proxy=proxy,report=report})
end
set_color()
print("Total Files Listed:")
for _,pair in ipairs(groups)do
local proxy,report=pair.proxy,pair.report
if#groups>1 then
print("As pertaining to: "..proxy.address)
end
msft.report(report.files,report.dirs,report.used,proxy)
end
end

if not ops.M then
msft.tail=function()end
msft.final=function()end
end

local function nod(n)
return n and(tostring(n):gsub("(%.[0-9]+)0+$","%1"))or"0"
end

local function formatSize(size)
if not ops.h and not ops['human-readable']and not ops.si then
return tostring(size)
end
local sizes={"","K","M","G"}
local unit=1
local power=ops.si and 1000 or 1024
while size>power and unit<#sizes do
unit=unit+1
size=size/power
end
return nod(math.floor(size*10)/10)..sizes[unit]
end

local function pad(txt)
txt=tostring(txt)
return#txt>=2 and txt or"0"..txt
end

local function formatDate(epochms)

local month_names={"January","February","March","April","May","June","July","August","September","October","November","December"}
if epochms==0 then return""end
local d=os.date("*t",epochms)
local day,hour,min,sec=nod(d.day),pad(nod(d.hour)),pad(nod(d.min)),pad(nod(d.sec))
if ops["full-time"]then
return string.format("%s-%s-%s %s:%s:%s ",d.year,pad(nod(d.month)),pad(day),hour,min,sec)
else
return string.format("%s %2s %2s:%2s ",month_names[d.month]:sub(1,3),day,hour,pad(min))
end
end

local function filter(names)
if ops.a then
return names
end
local set={path=names.path}
for _,info in ipairs(names)do
if fs.name(info.name):sub(1,1)~="."then
set[#set+1]=info
end
end
return set
end

local function sort(names)
local once=false
local function ni(v)
for i=1,#names do
local info=names[i]
if info.key==v.key then
return i
end
end
end
local function sorter(key)
once=true
table.sort(names,function(a,b)
local ast=names[ni(a)]
local bst=names[ni(b)]
return ast[key]>bst[key]
end)
end
if ops.t then sorter("time")end
if ops.X then sorter("ext")end
if ops.S then sorter("size")end
local rev=ops.r or ops.reverse
if not once then sorter("sort_name")rev=not rev end
if rev then
for i=1,#names/2 do
names[i],names[#names-i+1]=names[#names-i+1],names[i]
end
end
return names
end

local function dig(names,dirs,dir)
if ops.R then
local di=1
for i=1,#names do
local info=names[i]
if info.isDir then
local path=dir..(dir:sub(-1)=="/"and""or"/")
table.insert(dirs,di,path..info.name)
di=di+1
end
end
end
return names
end

local first_display=true
local function display(names)
local mt={}
local lines=setmetatable({},mt)
if ops.l then
lines.n=#names
local max_size_width=1
local max_date_width=0
for i=1,lines.n do
local info=names[i]
max_size_width=math.max(max_size_width,formatSize(info.size):len())
max_date_width=math.max(max_date_width,formatDate(info.time):len())
end
mt.__index=function(_,index)
local info=names[index]
local file_type=info.isLink and'l'or info.isDir and'd'or'f'
local link_target=info.isLink and string.format(" -> %s",info.link:gsub("/+$","")..(info.isDir and"/"or""))or""
local write_mode=info.fs.isReadOnly()and'-'or'w'
local size=formatSize(info.size)
local modDate=formatDate(info.time)
local format="%s-r%s %"..tostring(max_size_width).."s %"..tostring(max_date_width).."s"
local meta=string.format(format,file_type,write_mode,size,modDate)
local item=info.name..link_target
return{{name=meta},{color=colorize(info),name=item}}
end
elseif ops["1"]or not fOut then
lines.n=#names
mt.__index=function(_,index)
local info=names[index]
return{{color=colorize(info),name=info.name}}
end
else
local num_columns,items_per_column,width=0,0,tty.getViewport()-1
local function real(x,y)
local index=y+((x-1)*items_per_column)
return index<=#names and index or nil
end
local function max_name(column_index)
local max=0
for r=1,items_per_column do
local ri=real(column_index,r)
if not ri then break end
local info=names[ri]
max=math.max(max,unicode.wlen(info.name))
end
return max
end
local function measure()
local total=0
for column_index=1,num_columns do
total=total+max_name(column_index)+(column_index>1 and 2 or 0)
end
return total
end
while items_per_column<#names do
items_per_column=items_per_column+1
num_columns=math.ceil(#names/items_per_column)
if measure()<width then
break
end
end
lines.n=items_per_column
mt.__index=function(_,line_index)
return setmetatable({},{
__len=function()return num_columns end,
__index=function(_,column_index)
local ri=real(column_index,line_index)
if not ri then return end
local info=names[ri]
local name=info.name
return{color=colorize(info),name=name..string.rep(' ',max_name(column_index)-unicode.wlen(name)+(column_index<num_columns and 2 or 0))}
end,
})
end
end
for line_index=1,lines.n do
local line=lines[line_index]
for element_index=1,#line do
local e=line[element_index]
if not e then break end
first_display=false
set_color(e.color)
io.write(e.name)
end
set_color()
print()
end
msft.tail(names)
end
local header=function()end
if#dirsArg>1 or ops.R then
header=function(path)
if not first_display then print()end
set_color()
io.write(path,":\n")
end
end

local function stat(path,name)
local info={}
info.key=name
info.path=name:sub(1,1)=="/"and""or path
info.full_path=fs.concat(info.path,name)
info.isDir=fs.isDirectory(info.full_path)
info.name=name:gsub("/+$","")..(ops.p and info.isDir and"/"or"")
info.sort_name=info.name:gsub("^%.","")
info.isLink,info.link=fs.isLink(info.full_path)
info.size=info.isLink and 0 or fs.size(info.full_path)
info.time=fs.lastModified(info.full_path)/1000
info.fs=fs.get(info.full_path)
info.ext=info.name:match("(%.[^.]+)$")or""
return info
end

local function displayDirList(dirs)
while#dirs>0 do
local dir=table.remove(dirs,1)
header(dir)
local path=shell.resolve(dir)
local list,reason=fs.list(path)
if not list then
perr(reason)
else
local names={path=path}
for name in list do
names[#names+1]=stat(path,name)
end
display(dig(sort(filter(names)),dirs,dir))
end
end
end
local dir_set,file_set={},{path=shell.getWorkingDirectory()}
for _,dir in ipairs(dirsArg)do
local path=shell.resolve(dir)
local real,why=fs.realPath(path)
local access_msg="cannot access "..tostring(path)..": "
if not real then
perr(access_msg..why)
elseif not fs.exists(path)then
perr(access_msg.."No such file or directory")
elseif fs.isDirectory(path)then
table.insert(dir_set,dir)
else
table.insert(file_set,stat(dir,dir))
end
end

io.output():setvbuf("line")

local ok,msg=pcall(function()
if#file_set>0 then display(sort(file_set))end
displayDirList(dir_set)
msft.final()
end)

io.output():flush()
io.output():setvbuf("no")

assert(ok,msg)

return ec

F 11329 /lib/core/full_sh.lua
local fs=require("filesystem")
local process=require("process")
local shell=require("shell")
local text=require("text")
local tx=require("transforms")
local unicode=require("unicode")

local sh=require("sh")

local isWordOf=sh.internal.isWordOf



function sh.internal.command_passed(ec)
return sh.internal.command_result_as_code(ec)==0
end






function sh.internal.buildCommandRedirects(words)
local redirects={}
local index=1
local from_io,to_io,mode
local syn_err_msg="syntax error near unexpected token "





while true do
local word=words[index]
if not word then break end




local part=word[1]
local token=not word[2]and not part.qr and part.txt or""
local _,_,from_io_txt,mode_txt,to_io_txt=token:find("(%d*)([<>]>?)%&?(.*)")
if mode_txt then
if mode then
return nil,syn_err_msg..token
end
mode=assert(({["<"]="r",[">"]="w",[">>"]="a",})[mode_txt],"redirect failed to detect mode")
from_io=from_io_txt~=""and tonumber(from_io_txt)or mode=="r"and 0 or 1
to_io=to_io_txt~=""and tonumber(to_io_txt)
elseif mode then
token=sh.internal.evaluate({word})
if#token>1 then
return nil,string.format("%s: ambiguous redirect",part.txt)
end
to_io=token[1]
else
index=index+1
end

if mode then
table.remove(words,index)
end

if to_io then
table.insert(redirects,{from_io,to_io,mode})
mode=nil
to_io=nil
end
end

if mode then
return nil,syn_err_msg.."newline"
end

return redirects
end


function sh.internal.openCommandRedirects(redirects)
local data=process.info().data
local ios=data.io

for _,rjob in ipairs(redirects)do
local from_io,to_io,mode=table.unpack(rjob)

if type(to_io)=="number"then

ios[from_io]=io.dup(ios[to_io])
else

local file,reason=io.open(shell.resolve(to_io),mode)
if not file then
io.stderr:write("could not open '"..to_io.."': "..reason.."\n")
os.exit(1)
end
ios[from_io]=file
end
end
end


function sh.internal.glob(eword)



local globbers={{"*",".*"},{"?","."}}
local glob_pattern=""
local has_globits
for _,part in ipairs(eword)do
local next=part.txt

if not part.qr then
local escaped=text.escapeMagic(next)
next=escaped

for _,glob_rule in ipairs(globbers)do

while true do
local prev=next
next=next:gsub(text.escapeMagic(glob_rule[1]):rep(2),glob_rule[1])
if prev==next then
break
end
end

next=next:gsub("%%%"..glob_rule[1],glob_rule[2])
end



has_globits=has_globits or next~=escaped
end
glob_pattern=glob_pattern..next
end

if not has_globits then
return{eword.txt}
end

local segments=text.split(glob_pattern,{"/"},true)
local hiddens=tx.foreach(segments,function(e)return e:match("^%%%.")==nil end)
local function is_visible(s,i)
return not hiddens[i]or s:match("^%.")==nil
end

local function magical(s)
for _,glob_rule in ipairs(globbers)do
if(" "..s):match("[^%%]"..text.escapeMagic(glob_rule[2]))then
return true
end
end
end

local is_abs=glob_pattern:sub(1,1)=="/"
local root=is_abs and''or shell.getWorkingDirectory():gsub("([^/])$","%1/")
local paths={is_abs and"/"or''}
local relative_separator=''
for i,segment in ipairs(segments)do
local enclosed_pattern=string.format("^(%s)/?$",segment)
local next_paths={}
for _,path in ipairs(paths)do
if fs.isDirectory(root..path)then
if magical(segment)then
for file in fs.list(root..path)do
if file:match(enclosed_pattern)and is_visible(file,i)then
table.insert(next_paths,path..relative_separator..file:gsub("/+$",''))
end
end
else
local plain=text.removeEscapes(segment)
local fpath=root..path..relative_separator..plain
local hit=path..relative_separator..plain:gsub("/+$",'')
if fs.exists(fpath)then
table.insert(next_paths,hit)
end
end
end
end
paths=next_paths
if not next(paths)then

return{eword.txt}
end
relative_separator="/"
end
return paths
end

function sh.getMatchingPrograms(baseName)
if not baseName or baseName==""then return{}end
local result={}
local result_keys={}
local function check(key)
if key:find(baseName,1,true)==1 and not result_keys[key]then
table.insert(result,key)
result_keys[key]=true
end
end
for alias in shell.aliases()do
check(alias)
end
for basePath in string.gmatch(os.getenv("PATH"),"[^:]+")do
for file in fs.list(shell.resolve(basePath))do
check(file:gsub("%.lua$",""))
end
end
return result
end

function sh.getMatchingFiles(partial_path)

local name=partial_path:gsub("^.*/","")

local basePath=unicode.sub(partial_path,1,-unicode.len(name)-1)

local resolvedPath=shell.resolve(basePath)
local result,baseName={}






if fs.isDirectory(resolvedPath)and name==""then
baseName="^(.-)/?$"
else
baseName="^("..text.escapeMagic(name)..".-)/?$"
end

for file in fs.list(resolvedPath)do
local match=file:match(baseName)
if match then
table.insert(result,basePath..match:gsub("(%s)","\\%1"))
end
end


if#result==1 and fs.isDirectory(shell.resolve(result[1]))then
result[1]=result[1].."/"
end
return result
end

function sh.internal.hintHandlerSplit(line)



if line:match("\\$")then return nil end

local splits=text.internal.tokenize(line,{show_escapes=true})
if not splits then
return nil
end

local num_splits=#splits


local last_close=0
for index=num_splits,1,-1 do
local word=splits[index]
if isWordOf(word,{";","&&","||","|"})then
last_close=index
break
end
end




if last_close==num_splits then
return nil
end

local last_word=splits[num_splits]
local normal=text.internal.normalize({last_word})[1]




if unicode.sub(line,-unicode.len(normal))~=normal then
return line,nil,""
end

local prefix=unicode.sub(line,1,-unicode.len(normal)-1)


normal=text.internal.normalize(text.internal.tokenize(normal),true)[1]



if last_close==num_splits-1 then
return prefix,normal,nil
else
return prefix,nil,normal
end
end

function sh.internal.hintHandlerImpl(full_line,cursor)

local line=unicode.sub(full_line,1,cursor-1)

local suffix=unicode.sub(full_line,cursor)






local prev,cmd,arg=sh.internal.hintHandlerSplit(line)


if not prev then
return{}
end
local result

local searchInPath=cmd and not cmd:find("/")
if searchInPath then
result=sh.getMatchingPrograms(cmd)
else

if arg then
local equal_index=arg:find("=[^=]*$")
if equal_index then
prev=prev..unicode.sub(arg,1,equal_index)
arg=unicode.sub(arg,equal_index+1)
end
end
result=sh.getMatchingFiles(cmd or arg)
end


local resultSuffix=suffix
if#result>0 and unicode.sub(result[1],-1)~="/"and
not suffix:sub(1,1):find('%s')and
#result==1 or searchInPath then
resultSuffix=" "..resultSuffix
end

table.sort(result)
for i=1,#result do

result[i]=prev..result[i]..resultSuffix
end
return result
end


function sh.internal.hasValidPiping(words,pipes)
checkArg(1,words,"table")
checkArg(2,pipes,"table","nil")

if#words==0 then
return true
end

local semi_split=tx.first(text.syntax,{{";"}})
pipes=pipes or tx.sub(text.syntax,semi_split+1)

local state=""

for w=1,#words do
local word=words[w]
for p=1,#word do
local part=word[p]
if part.qr then
state=nil
elseif part.txt==""then
state=nil
elseif#text.split(part.txt,pipes,true)==0 then
local prev=state
state=part.txt
if prev then
word=nil
break
end
else
state=nil
end
end
if not word then
break
end
end

if state then
return false,"syntax error near unexpected token "..state
else
return true
end
end

function sh.internal.boolean_executor(chains,predicator)
local function not_gate(result,reason)
return sh.internal.command_passed(result)and 1 or 0,reason
end

local last=true
local last_reason
local boolean_stage=1
local negation_stage=2
local command_stage=0
local stage=negation_stage
local skip=false

for ci=1,#chains do
local next=chains[ci]
local single=#next==1 and#next[1]==1 and not next[1][1].qr and next[1][1].txt

if single=="||"then
if stage~=command_stage or#chains==0 then
return nil,"syntax error near unexpected token '"..single.."'"
end
if sh.internal.command_passed(last)then
skip=true
end
stage=boolean_stage
elseif single=="&&"then
if stage~=command_stage or#chains==0 then
return nil,"syntax error near unexpected token '"..single.."'"
end
if not sh.internal.command_passed(last)then
skip=true
end
stage=boolean_stage
elseif not skip then
local chomped=#next
local negate=sh.internal.remove_negation(next)
chomped=chomped~=#next
if negate then
local prev=predicator
predicator=function(n,i)
local result,reason=not_gate(prev(n,i))
predicator=prev
return result,reason
end
end
if chomped then
stage=negation_stage
end
if#next>0 then
last,last_reason=predicator(next,ci)
stage=command_stage
end
else
skip=false
stage=command_stage
end
end

if stage==negation_stage then
last=not_gate(last)
end

return last,last_reason
end

function sh.internal.splitStatements(words,semicolon)
checkArg(1,words,"table")
checkArg(2,semicolon,"string","nil")
semicolon=semicolon or";"

return tx.partition(words,function(g,i)
if isWordOf(g,{semicolon})then
return i,i
end
end,true)
end

function sh.internal.splitChains(s,pc)
checkArg(1,s,"table")
checkArg(2,pc,"string","nil")
pc=pc or"|"
return tx.partition(s,function(w)

if isWordOf(w,{pc})then
return true
end
end,true)
end

function sh.internal.groupChains(s)
checkArg(1,s,"table")
return tx.partition(s,function(w)return isWordOf(w,{"&&","||"})end)
end

function sh.internal.remove_negation(chain)
if isWordOf(chain[1],{"!"})then
table.remove(chain,1)
return not sh.internal.remove_negation(chain)
end
return false
end

function sh.internal.execute_complex(words,eargs,env)

local statements=sh.internal.splitStatements(words)
for i=1,#statements do
local ok,why=sh.internal.hasValidPiping(statements[i])
if not ok then return nil,why end
end

for si=1,#statements do local s=statements[si]
local chains=sh.internal.groupChains(s)
local last_code,reason=sh.internal.boolean_executor(chains,function(chain,chain_index)
local pipe_parts=sh.internal.splitChains(chain)
local next_args=chain_index==#chains and si==#statements and eargs or{}
return sh.internal.executePipes(pipe_parts,next_args,env)
end)
sh.internal.ec.last=sh.internal.command_result_as_code(last_code,reason)
end
return sh.internal.ec.last==0
end



function sh.internal.evaluate(words)
local redirects,why=sh.internal.buildCommandRedirects(words)
if not redirects then
return nil,why
end

do
local normalized=text.internal.normalize(words)
local command_text=table.concat(normalized," ")
local subbed=sh.internal.parse_sub(command_text)
if subbed~=command_text then
words=text.internal.tokenize(subbed)
end
end

local repack=false
for _,word in ipairs(words)do
for _,part in pairs(word)do
if not(part.qr or{})[3]then
local expanded=sh.expand(part.txt)
if expanded~=part.txt then
part.txt=expanded
repack=true
end
end
end
end

if repack then
local normalized=text.internal.normalize(words)
local command_text=table.concat(normalized," ")
words=text.internal.tokenize(command_text)
end

local args={}
for _,word in ipairs(words)do
local eword={txt=""}
for _,part in ipairs(word)do
eword.txt=eword.txt..part.txt
eword[#eword+1]={qr=part.qr,txt=part.txt}
end
for _,arg in ipairs(sh.internal.glob(eword))do
args[#args+1]=arg
end
end

return args,redirects
end

function sh.internal.parse_sub(input,quotes)






if quotes and quotes[1]=='`'then
input=string.format("`%s`",input)
quotes[1],quotes[2]="",""
end


local packed={}

local i,len=1,#input

while i<=len do
local fi,si,capture=input:find("`([^`]*)`",i)

if not fi then
table.insert(packed,input:sub(i))
break
end
table.insert(packed,input:sub(i,fi-1))

local sub=io.popen(capture)
local result=sub:read("*a")
sub:close()


table.insert(packed,(result:gsub("\n+$","")))
i=si+1
end

return table.concat(packed)
end


F 557 /lib/core/full_shell.lua
local shell=require("shell")
local process=require("process")

function shell.aliases()
return pairs(process.info().data.aliases)
end

function shell.execute(command,env,...)
local sh,reason=shell.getShell()
if not sh then
return false,reason
end
local proc=process.load(sh,nil,nil,command)
local result=table.pack(process.internal.continue(proc,env,command,...))
if result.n==0 then return true end
return table.unpack(result,1,result.n)
end

function shell.getPath()
return os.getenv("PATH")
end

function shell.setPath(value)
os.setenv("PATH",value)
end
F 6136 /lib/core/full_text.lua
local text=require("text")
local tx=require("transforms")
local unicode=require("unicode")
local process=require("process")
local buffer=require("buffer")




function text.tokenize(value,options)
checkArg(1,value,"string")
checkArg(2,options,"table","nil")
options=options or{}

local tokens,reason=text.internal.tokenize(value,options)

if type(tokens)~="table"then
return nil,reason
end

if options.doNotNormalize then
return tokens
end

return text.internal.normalize(tokens)
end





function text.split(input,delimiters,dropDelims,di)
checkArg(1,input,"string")
checkArg(2,delimiters,"table")
checkArg(3,dropDelims,"boolean","nil")
checkArg(4,di,"number","nil")

if#input==0 then return{}end
di=di or 1
local result={input}
if di>#delimiters then return result end

local function add(part,index,r,s,e)
local sub=part:sub(s,e)
if#sub==0 then return index end
local subs=r and text.split(sub,delimiters,dropDelims,r)or{sub}
for i=1,#subs do
table.insert(result,index+i-1,subs[i])
end
return index+#subs
end

local i,d=1,delimiters[di]
while true do
local next=table.remove(result,i)
if not next then break end
local si,ei=next:find(d)
if si and ei and ei~=0 then
i=add(next,i,di+1,1,si-1)
i=dropDelims and i or add(next,i,false,si,ei)
i=add(next,i,di,ei+1)
else
i=add(next,i,di+1,1,#next)
end
end

return result
end






function text.internal.splitWords(words,delimiters)
checkArg(1,words,"table")
checkArg(2,delimiters,"table")

local split_words={}
local next_word
local function add_part(part)
if next_word then
split_words[#split_words+1]={}
end
table.insert(split_words[#split_words],part)
next_word=false
end
for wi=1,#words do local word=words[wi]
next_word=true
for pi=1,#word do local part=word[pi]
local qr=part.qr
if qr then
add_part(part)
else
local part_text_splits=text.split(part.txt,delimiters)
tx.foreach(part_text_splits,function(sub_txt)
local delim=#text.split(sub_txt,delimiters,true)==0
next_word=next_word or delim
add_part({txt=sub_txt,qr=qr})
next_word=delim
end)
end
end
end

return split_words
end

function text.internal.normalize(words,omitQuotes)
checkArg(1,words,"table")
checkArg(2,omitQuotes,"boolean","nil")
local norms={}
for _,word in ipairs(words)do
local norm={}
for _,part in ipairs(word)do
norm=tx.concat(norm,not omitQuotes and part.qr and{part.qr[1],part.txt,part.qr[2]}or{part.txt})
end
norms[#norms+1]=table.concat(norm)
end
return norms
end

function text.internal.stream_base(binary)
return
{
binary=binary,
plen=binary and string.len or unicode.len,
psub=binary and string.sub or unicode.sub,
seek=function(handle,whence,to)
if not handle.txt then
return nil,"bad file descriptor"
end
to=to or 0
local offset=handle:indexbytes()
if whence=="cur"then
offset=offset+to
elseif whence=="set"then
offset=to
elseif whence=="end"then
offset=handle.len+to
end
offset=math.max(0,math.min(offset,handle.len))
handle:byteindex(offset)
return offset
end,
indexbytes=function(handle)
return handle.psub(handle.txt,1,handle.index):len()
end,
byteindex=function(handle,offset)
local sub=string.sub(handle.txt,1,offset)
handle.index=handle.plen(sub)
end,
}
end

function text.internal.reader(txt,mode)
checkArg(1,txt,"string")
local reader=setmetatable(
{
txt=txt,
len=string.len(txt),
index=0,
read=function(_,n)
checkArg(1,n,"number")
if not _.txt then
return nil,"bad file descriptor"
end
if _.index>=_.plen(_.txt)then
return nil
end
local next=_.psub(_.txt,_.index+1,_.index+n)
_.index=_.index+_.plen(next)
return next
end,
close=function(_)
if not _.txt then
return nil,"bad file descriptor"
end
_.txt=nil
return true
end,
},{__index=text.internal.stream_base((mode or""):match("b"))})
return process.addHandle(buffer.new((mode or"r"):match("[rb]+"),reader))
end

function text.internal.writer(ostream,mode,append_txt)
if type(ostream)=="table"then
local mt=getmetatable(ostream)or{}
checkArg(1,mt.__call,"function")
end
checkArg(1,ostream,"function","table")
checkArg(2,append_txt,"string","nil")
local writer=setmetatable(
{
txt="",
index=0,
len=0,
write=function(_,...)
if not _.txt then
return nil,"bad file descriptor"
end
local pre=_.psub(_.txt,1,_.index)
local vs={}
local pos=_.psub(_.txt,_.index+1)
for _,v in ipairs({...})do
table.insert(vs,v)
end
vs=table.concat(vs)
_.index=_.index+_.plen(vs)
_.txt=pre..vs..pos
_.len=string.len(_.txt)
return true
end,
close=function(_)
if not _.txt then
return nil,"bad file descriptor"
end
ostream((append_txt or"").._.txt)
_.txt=nil
return true
end,
},{__index=text.internal.stream_base((mode or""):match("b"))})
return process.addHandle(buffer.new((mode or"w"):match("[awb]+"),writer))
end

function text.detab(value,tabWidth)
checkArg(1,value,"string")
checkArg(2,tabWidth,"number","nil")
tabWidth=tabWidth or 8
local function rep(match)
local spaces=tabWidth-match:len()%tabWidth
return match..string.rep(" ",spaces)
end
local result=value:gsub("([^\n]-)\t",rep)
return result
end

function text.padLeft(value,length)
checkArg(1,value,"string","nil")
checkArg(2,length,"number")
if not value or unicode.wlen(value)==0 then
return string.rep(" ",length)
else
return string.rep(" ",length-unicode.wlen(value))..value
end
end

function text.padRight(value,length)
checkArg(1,value,"string","nil")
checkArg(2,length,"number")
if not value or unicode.wlen(value)==0 then
return string.rep(" ",length)
else
return value..string.rep(" ",length-unicode.wlen(value))
end
end

function text.wrap(value,width,maxWidth)
checkArg(1,value,"string")
checkArg(2,width,"number")
checkArg(3,maxWidth,"number")
local line,nl=value:match("([^\r\n]*)(\r?\n?)")
if unicode.wlen(line)>width then
local partial=unicode.wtrunc(line,width)
local wrapped=partial:match("(.*[^a-zA-Z0-9._()'`=])")
if wrapped or unicode.wlen(line)>maxWidth then
partial=wrapped or partial
return partial,unicode.sub(value,unicode.len(partial)+1),true
else
return"",value,true
end
end
local start=unicode.len(line)+unicode.len(nl)+1
return line,start<=unicode.len(value)and unicode.sub(value,start)or nil,unicode.len(nl)>0
end

function text.wrappedLines(value,width,maxWidth)
local line
return function()
if value then
line,value=text.wrap(value,width,maxWidth)
return line
end
end
end

F 2006 /lib/core/full_transforms.lua
local lib=require("transforms")

local adjust=lib.internal.range_adjust
local view=lib.internal.table_view


function lib.sub(tbl,f,l)
checkArg(1,tbl,'table')
local r,s={},#tbl
f,l=adjust(f,l,s)
l=math.min(l,s)
for i=math.max(f,1),l do
r[#r+1]=tbl[i]
end
return r
end


function lib.partition(tbl,partitioner,dropEnds,f,l)
checkArg(1,tbl,'table')
checkArg(2,partitioner,'function','table')
checkArg(3,dropEnds,'boolean','nil')
if type(partitioner)=='table'then
return lib.partition(tbl,function(e,i,tbl)
return lib.first(tbl,partitioner,i)
end,dropEnds,f,l)
end
local s=#tbl
f,l=adjust(f,l,s)
local cut=view(tbl,f,l)
local result={}
local need=true
local exp=function()if need then result[#result+1]={}need=false end end
local i=f
while i<=l do
local e=cut[i]
local ds,de=partitioner(e,i,cut)

if ds==true then ds,de=i,i
elseif ds==false then ds,de=nil,nil end
if ds~=nil then
ds,de=adjust(ds,de,l)
ds=ds>=i and ds
end
if not ds then
exp()
table.insert(result[#result],e)
else
local sub=lib.sub(cut,i,not dropEnds and de or(ds-1))
if#sub>0 then
exp()
result[#result+math.min(#result[#result],1)]=sub
end

local ensured=math.max(math.max(de or ds,ds),i)
if de and ds and de<ds and ensured==i then
if#result==0 then result[1]={}end
table.insert(result[#result],e)
end
i=ensured
need=true
end
i=i+1
end

return result
end


function lib.foreach(tbl,c,f,l)
checkArg(1,tbl,'table')
checkArg(2,c,'function','string')
local ck=c
c=type(c)=="string"and function(e)return e[ck]end or c
local s=#tbl
f,l=adjust(f,l,s)
tbl=view(tbl,f,l)
local r={}
for i=f,l do
local n,k=c(tbl[i],i,tbl)
if n~=nil then
if k then r[k]=n
else r[#r+1]=n end
end
end
return r
end

function lib.where(tbl,p,f,l)
return lib.foreach(tbl,
function(e,i,tbl)
return p(e,i,tbl)and e or nil
end,f,l)
end



function lib.at(tbl,index)
checkArg(1,tbl,"table")
checkArg(2,index,"number","nil")
local current_index=1
for k,v in pairs(tbl)do
if current_index==index then
return k,v
end
current_index=current_index+1
end
return nil,current_index-1
end
F 1498 /lib/core/full_vt.lua
local vt100=require("vt100")

local rules=vt100.rules


rules[{"%[","%?","7","[hl]"}]=function(window,_,_,_,nowrap)
window.nowrap=nowrap=="l"
end


local function set_cursor(window,x,y)
window.x=math.min(math.max(x,1),window.width)
window.y=math.min(math.max(y,1),window.height)
end






rules[{"%[","%d*","[ABCD]"}]=function(window,_,n,dir)
local dx,dy=0,0
n=tonumber(n)or 1
if dir=="A"then
dy=-n
elseif dir=="B"then
dy=n
elseif dir=="C"then
dx=n
else
dx=-n
end
set_cursor(window,window.x+dx,window.y+dy)
end





rules[{"%[","%d*",";","%d*","[Hf]"}]=function(window,_,y,_,x)
set_cursor(window,tonumber(x)or 1,tonumber(y)or 1)
end



rules[{"%[[Hf]"}]=function(window)
set_cursor(window,1,1)
end





local function clear_line(window,_,n)
n=tonumber(n)or 0
local x=(n==0 and window.x or 1)
local rep=n==1 and window.x or(window.width-x+1)
window.gpu.fill(x+window.dx,window.y+window.dy,rep,1," ")
end
rules[{"%[","[012]?","K"}]=clear_line





rules[{"%[","[012]?","J"}]=function(window,_,n)
clear_line(window,_,n)
n=tonumber(n)or 0
local y=n==0 and(window.y+1)or 1
local rep=n==1 and(window.y-1)or(window.height)
window.gpu.fill(1+window.dx,y+window.dy,window.width,rep," ")
end


rules[{"%[","6","n"}]=function(window)


io.stdin.bufferRead=string.format("%s%s[%d;%dR",io.stdin.bufferRead,string.char(0x1b),window.y,window.x)
end




rules[{"[DEM]"}]=function(window,_,dir)
if dir=="D"then
window.y=window.y+1
elseif dir=="E"then
window.y=window.y+1
window.x=1
else
window.y=window.y-1
end
end
F 5847 /lib/core/install_basics.lua
local computer=require("computer")
local shell=require("shell")
local fs=require("filesystem")

local args,options=shell.parse(...)

if options.help then
io.write([[Usage: install [OPTION]...
  --from=ADDR        install filesystem at ADDR
                     default: builds list of
                     candidates and prompts user
  --to=ADDR          same as --from but for target
  --fromDir=PATH     install PATH from source
  --root=PATH        same as --fromDir but target
  --toDir=PATH       same as --root
  -u, --update       update files interactively
  --label            override label from .prop
  --nosetlabel       do not label target
  --nosetboot        do not use target for boot
  --noreboot         do not reboot after install
]])
return nil
end

local utils_path="/lib/core/install_utils.lua"
local utils

local rootfs=fs.get("/")
if not rootfs then
io.stderr:write("no root filesystem, aborting\n")
os.exit(1)
end

local label=args[1]
options.label=label

local source_filter=options.from
local source_filter_dev
if source_filter then
local from_path=shell.resolve(source_filter)
if fs.isDirectory(from_path)then
source_filter_dev=fs.get(from_path)
source_filter=source_filter_dev.address
options.from=from_path
end
end

local target_filter=options.to
local target_filter_dev
if target_filter then
local to_path=shell.resolve(target_filter)
if fs.isDirectory(target_filter)then
target_filter_dev=fs.get(to_path)
target_filter=target_filter_dev.address
options.to=to_path
end
end

local sources={}
local targets={}



local comps=require("component").list("filesystem")
local devices={}


for dev,path in fs.mounts()do
if comps[dev.address]then
local known=devices[dev]
devices[dev]=known and#known<#path and known or path
end
end

local dev_dev=fs.get("/dev")
devices[dev_dev==rootfs or dev_dev]=nil
local tmpAddress=computer.tmpAddress()

for dev,path in pairs(devices)do
local address=dev.address
local install_path=dev==target_filter_dev and options.to or path
local specified=target_filter and address:find(target_filter,1,true)==1

if dev.isReadOnly()then
if specified then
io.stderr:write("Cannot install to "..options.to..", it is read only\n")
os.exit(1)
end
elseif
specified or
not(source_filter and address:find(source_filter,1,true)==1)and
not target_filter and
address~=tmpAddress
then
table.insert(targets,{dev=dev,path=install_path,specified=specified})
end
end

local target=targets[1]

if#targets==1 then
devices[targets[1].dev]=nil
end

for dev,path in pairs(devices)do
local address=dev.address
local install_path=dev==source_filter_dev and options.from or path
local specified=source_filter and address:find(source_filter,1,true)==1

if
fs.list(install_path)()and
(specified or
not source_filter and address~=tmpAddress and not(address==rootfs.address and not rootfs.isReadOnly()))
then
local prop={}
local prop_path=install_path.."/.prop"
local prop_file=fs.open(prop_path)
if prop_file then
local prop_data=prop_file:read(math.maxinteger or math.huge)
prop_file:close()
local prop_load=load("return "..prop_data)
prop=prop_load and prop_load()
if not prop then
io.stderr:write("Ignoring "..path.." due to malformed prop file\n")
prop={ignore=true}
end
end
if not prop.ignore then
if not label or label:lower()==(prop.label or dev.getLabel()or""):lower()then
table.insert(sources,{dev=dev,path=install_path,prop=prop,specified=specified})
end
end
end
end


local source=sources[1]
if#sources~=1 then
utils=loadfile(utils_path,"bt",_G)
source=utils("select","sources",options,sources)
end
if not source then
return
end

options={
from=source.path.."/",
fromDir=fs.canonical(options.fromDir or source.prop.fromDir or""),
root=fs.canonical(options.root or options.toDir or source.prop.root or""),
update=options.update or options.u,
label=source.prop.label or label,
setlabel=not(options.nosetlabel or options.nolabelset)and source.prop.setlabel,
setboot=not(options.nosetboot or options.noboot)and source.prop.setboot,
reboot=not options.noreboot and source.prop.reboot
}
local source_display=options.label or source.dev.getLabel()or source.path


for index,entry in ipairs(targets)do
if entry.dev==source.dev then
table.remove(targets,index)
target=targets[1]
end
end


if#targets~=1 then
if#sources==1 then
io.write(source_display," selected for install\n")
end

utils=utils or loadfile(utils_path,"bt",_G)
target=utils("select","targets",options,targets)
end
if not target then
return
end

options.to=target.path.."/"

local function resolveFrom(path)
return fs.concat(options.from,options.fromDir).."/"..path
end

local fullTargetPath=fs.concat(options.to,options.root)
local transfer_args={
{
{resolveFrom("."),fullTargetPath},
{
cmd="cp",
r=true,v=true,x=true,u=options.update,i=options.update,
skip={resolveFrom(".prop")},
}
}
}

if source.prop.noclobber and#source.prop.noclobber>0 then
local noclobber_opts={cmd="cp",v=true,n=true}
for _,noclobber in ipairs(source.prop.noclobber or{})do
local noclobberFrom=resolveFrom(noclobber)
local noclobberTo=fs.concat(fullTargetPath,noclobber)
table.insert(transfer_args[1][2].skip,noclobberFrom)
table.insert(transfer_args,{{noclobberFrom,noclobberTo},noclobber_opts})
end
end

local special_target=""
if#targets>1 or target_filter or source_filter then
special_target=" to "..transfer_args[1][1][2]
end

io.write("Install "..source_display..special_target.."? [Y/n] ")
if not((io.read()or"n").."y"):match("^%s*[Yy]")then
io.write("Installation cancelled\n")
os.exit()
end

local installer_path=options.from.."/.install"
if fs.exists(installer_path)then
local installer,reason=loadfile(installer_path,"bt",setmetatable({install=options},{__index=_G}))
if not installer then
io.stderr:write("installer failed to load: "..tostring(reason).."\n")
os.exit(1)
end
os.exit(installer())
end

options.cp_args=transfer_args
options.target=target

return options
F 1652 /lib/core/install_utils.lua
local cmd,arg,options,devices=...

local function select_prompt(devs,prompt)
table.sort(devs,function(a,b)return a.path<b.path end)
local num_devs=#devs

if num_devs<2 then
return devs[1]
end

io.write(prompt,'\n')

for i=1,num_devs do
local src=devs[i]
local dev=src.dev
local selection_label=(src.prop or{}).label or dev.getLabel()
if selection_label then
selection_label=string.format("%s (%s...)",selection_label,dev.address:sub(1,8))
else
selection_label=dev.address
end
io.write(string.format("%d) %s at %s [r%s]\n",i,selection_label,src.path,dev.isReadOnly()and'o'or'w'))
end

io.write("Please enter a number between 1 and "..num_devs..'\n')
io.write("Enter 'q' to cancel the installation: ")
for _=1,5 do
local result=io.read()or"q"
if result=="q"then
os.exit()
end
local number=tonumber(result)
if number and number>0 and number<=num_devs then
return devs[number]
else
io.write("Invalid input, please try again: ")
os.sleep(0)
end
end
print("\ntoo many bad inputs, aborting")
os.exit(1)
end

if cmd=="select"then
if arg=="sources"then
if#devices==0 then
if options.label then
io.stderr:write("Nothing to install labeled: "..options.label..'\n')
elseif options.from then
io.stderr:write("Nothing to install from: "..options.from..'\n')
else
io.stderr:write("Nothing to install\n")
end
os.exit(1)
end
return select_prompt(devices,"What do you want to install?")
elseif arg=="targets"then
if#devices==0 then
if options.to then
io.stderr:write("No such target to install to: "..options.to..'\n')
else
io.stderr:write("No writable disks found, aborting\n")
end
os.exit(1)
end
return select_prompt(devices,"Where do you want to install to?")
end
endF 3070 /lib/core/lua_shell.lua
local package=require("package")
local term=require("term")

local function optrequire(...)
local success,module=pcall(require,...)
if success then
return module
end
end

local env
env=setmetatable({},{
__index=function(_,k)
_ENV[k]=_ENV[k]or optrequire(k)
return _ENV[k]
end,
__pairs=function(t)
return function(_,key)
local k,v=next(t,key)
if not k and t==env then
t=_ENV
k,v=next(t)
end
if not k and t==_ENV then
t=package.loaded
k,v=next(t)
end
return k,v
end
end,
})
env._PROMPT=tostring(env._PROMPT or"\27[32mlua> \27[37m")

local function findTable(t,path)
if type(t)~="table"then return nil end
if not path or#path==0 then return t end
local name=string.match(path,"[^.]+")
for k,v in pairs(t)do
if k==name then
return findTable(v,string.sub(path,#name+2))
end
end
local mt=getmetatable(t)
if t==env then mt={__index=_ENV}end
if mt then
return findTable(mt.__index,path)
end
return nil
end

local function findKeys(t,r,prefix,name)
if type(t)~="table"then return end
for k,v in pairs(t)do
if type(k)=="string"and string.match(k,"^"..name)then
local postfix=""
if type(v)=="function"then postfix="()"
elseif type(v)=="table"and getmetatable(v)and getmetatable(v).__call then postfix="()"
elseif type(v)=="table"then postfix="."
end
r[prefix..k..postfix]=true
end
end
local mt=getmetatable(t)
if t==env then mt={__index=_ENV}end
if mt then
return findKeys(mt.__index,r,prefix,name)
end
end

local read_handler={hint=function(line,index)
line=(line or"")
local tail=line:sub(index)
line=line:sub(1,index-1)
local path=string.match(line,"[a-zA-Z_][a-zA-Z0-9_.]*$")
if not path then return nil end
local suffix=string.match(path,"[^.]+$")or""
local prefix=string.sub(path,1,#path-#suffix)
local tbl=findTable(env,prefix)
if not tbl then return nil end
local keys={}
local hints={}
findKeys(tbl,keys,string.sub(line,1,#line-#suffix),suffix)
for key in pairs(keys)do
table.insert(hints,key..tail)
end
return hints
end}

io.write("\27[37m".._VERSION.." Copyright (C) 1994-2022 Lua.org, PUC-Rio\n")
io.write("\27[33mEnter a statement and hit enter to evaluate it.\n")
io.write("Prefix an expression with '=' to show its value.\n")
io.write("Press Ctrl+D to exit the interpreter.\n\27[37m")

while term.isAvailable()do
io.write(env._PROMPT)
local command=term.read(read_handler)
if not command then
return
end
local code,reason
if string.sub(command,1,1)=="="then
code,reason=load("return "..string.sub(command,2),"=stdin","t",env)
else
code,reason=load("return "..command,"=stdin","t",env)
if not code then
code,reason=load(command,"=stdin","t",env)
end
end
if code then
local result=table.pack(xpcall(code,debug.traceback))
if not result[1]then
if type(result[2])=="table"and result[2].reason=="terminated"then
os.exit(result[2].code)
end
io.stderr:write(tostring(result[2]).."\n")
else
local ok,why=pcall(function()
for i=2,result.n do
io.write(require("serialization").serialize(result[i],true),i<result.n and"\t"or"\n")
end
end)
if not ok then
io.stderr:write("crashed serializing result: ",tostring(why))
end
end
else
io.stderr:write(tostring(reason).."\n")
end
end
F 2830 /lib/core/devfs/01_hw.lua
local comp=require("component")
local text=require("text")

local dcache={}
local pcache={}
local adapter_pwd="/lib/core/devfs/adapters/"

local adapter_api={}

function adapter_api.toArgsPack(input,pack)
local split=text.split(input,{"%s"},true)
local req=pack[1]
local num=#split
if num<req then return nil,"insufficient args"end
local result={n=num}
for index=1,num do
local typename=pack[index+1]
local token=split[index]
if typename=="boolean"then
if token~="true"and token~="false"then return nil,"bad boolean value"end
token=token=="true"
elseif typename=="number"then
token=tonumber(token)
if not token then return nil,"bad number value"end
end
result[index]=token
end
return result
end

function adapter_api.createWriter(callback,...)
local types=table.pack(...)
return function(input)
local args,why=adapter_api.toArgsPack(input,types)
if not args then return why end
return callback(table.unpack(args,1,args.n))
end
end

function adapter_api.create_toggle(read,write,switch)
return
{
read=read and function()return tostring(read())end,
write=write and function(value)
value=text.trim(tostring(value))
local on=value=="1"or value=="true"
local off=value=="0"or value=="false"
if not on and not off then
return nil,"bad value"
end
if switch then
(off and switch or write)()
else
write(on)
end
end
}
end

function adapter_api.make_link(list,addr,prefix,bOmitZero)
prefix=prefix or""
local zero=bOmitZero and""or"0"
local id=0
local name
repeat
name=string.format("%s%s",prefix,id==0 and zero or tostring(id))
id=id+1
until not list[name]
list[name]={link=addr}
end

return
{
components=
{
list=function()
local dirs={}
local types={}
local labels={}
local ads={}

dirs["by-type"]={list=function()return types end}
dirs["by-label"]={list=function()return labels end}
dirs["by-address"]={list=function()return ads end}


local hw_addresses={}
for addr,type in comp.list()do
local isPrim=comp.isPrimary(addr)
table.insert(hw_addresses,select(isPrim and 1 or 2,1,{type,addr}))
end

for _,pair in ipairs(hw_addresses)do
local type,addr=table.unpack(pair)
if not dcache[type]then
local adapter_file=adapter_pwd..type..".lua"
local loader=loadfile(adapter_file,"bt",_G)
dcache[type]=loader and loader(adapter_api)
end
local adapter=dcache[type]
if adapter then
local proxy=pcache[addr]or comp.proxy(addr)
pcache[addr]=proxy
ads[addr]=
{
list=function()
local devfs_proxy=adapter(proxy)
devfs_proxy.address={proxy.address}
devfs_proxy.slot={proxy.slot}
devfs_proxy.type={proxy.type}
devfs_proxy.device={device=proxy}
return devfs_proxy
end
}


local type_dir=types[type]or{list={}}
adapter_api.make_link(type_dir.list,"../../by-address/"..addr)
types[type]=type_dir


local label=require("devfs").getDeviceLabel(proxy)
if label then
adapter_api.make_link(labels,"../by-address/"..addr,label,true)
end
end
end
return dirs
end
},
}
F 739 /lib/core/devfs/02_utils.lua
return
{
eeprom=
{
link="components/by-type/eeprom/0/contents",
isAvailable=function()
local comp=require("component")
return comp.list("eeprom")()
end
},
["eeprom-data"]=
{
link="components/by-type/eeprom/0/data",
isAvailable=function()
local comp=require("component")
return comp.list("eeprom")()
end
},
null=
{
open=function()
return
{
read=function()end,
write=function()end
}
end
},
random=
{
open=function(mode)
if mode and not mode:match("r")then
return nil,"read only"
end
return
{
read=function(_,n)
local chars={}
for _=1,n do
table.insert(chars,string.char(math.random(0,255)))
end
return table.concat(chars)
end
}
end
},
zero=
{
open=function()
return
{
read=function(_,n)return("\0"):rep(n)end,
write=function()end
}
end
},
}
F 207 /lib/core/devfs/adapters/computer.lua
local adapter_api=...

return function(proxy)
return
{
beep={write=adapter_api.createWriter(proxy.beep,0,"number","number")},
running=adapter_api.create_toggle(proxy.isRunning,proxy.start,proxy.stop),
}
end
F 477 /lib/core/devfs/adapters/eeprom.lua
local cache={}
local function cload(callback)
local c=cache[callback]
if not c then
c=callback()
cache[callback]=c
end
return c
end

return function(proxy)
return
{
contents={read=proxy.get,write=proxy.set},
data={read=proxy.getData,write=proxy.setData},
checksum={read=proxy.getChecksum,size=function()return 8 end},
size={cload(proxy.getSize)},
dataSize={cload(proxy.getDataSize)},
label={write=proxy.setLabel,proxy.getLabel()},
makeReadonly={write=proxy.makeReadonly}
}
end
F 507 /lib/core/devfs/adapters/filesystem.lua
local fs=require("filesystem")
local text=require("text")

return function(proxy)
return
{
["label"]=
{
read=function()return proxy.getLabel()or""end,
write=function(v)proxy.setLabel(text.trim(v))end
},
["isReadOnly"]={proxy.isReadOnly()},
["spaceUsed"]={proxy.spaceUsed()},
["spaceTotal"]={proxy.spaceTotal()},
["mounts"]={read=function()
local mounts={}
for mproxy,mpath in fs.mounts()do
if mproxy.address==proxy.address then
table.insert(mounts,mpath)
end
end
return table.concat(mounts,"\n")
end}
}
end
F 755 /lib/core/devfs/adapters/gpu.lua
local adapter_api=...

return function(proxy)
local screen=proxy.getScreen()
screen=screen and("../"..screen)
return
{
viewport={write=adapter_api.createWriter(proxy.setViewport,2,"number","number"),proxy.getViewport()},
resolution={write=adapter_api.createWriter(proxy.setResolution,2,"number","number"),proxy.getResolution()},
maxResolution={proxy.maxResolution()},
screen={link=screen,isAvailable=proxy.getScreen},
depth={write=adapter_api.createWriter(proxy.setDepth,1,"number"),proxy.getDepth()},
maxDepth={proxy.maxDepth()},
background={write=adapter_api.createWriter(proxy.setBackground,1,"number","boolean"),proxy.getBackground()},
foreground={write=adapter_api.createWriter(proxy.setForeground,1,"number","boolean"),proxy.getForeground()},
}
end
F 110 /lib/core/devfs/adapters/internet.lua
return function(proxy)
return
{
httpEnabled={proxy.isHttpEnabled()},
tcpEnabled={proxy.isTcpEnabled()},
}
end
F 196 /lib/core/devfs/adapters/modem.lua
return function(proxy)
return
{
wakeMessage=
{
read=function()return proxy.getWakeMessage()or""end,
write=function(msg)return proxy.setWakeMessage(msg)end,
},
wireless={proxy.isWireless()},
}
end
F 497 /lib/core/devfs/adapters/screen.lua
local adapter_api=...

return function(proxy)
return
{
["aspectRatio"]={proxy.getAspectRatio()},
["keyboards"]={read=function()
local ks={}
for _,ka in ipairs(proxy.getKeyboards())do
table.insert(ks,ka)
end
return table.concat(ks,"\n")
end},
["on"]=adapter_api.create_toggle(proxy.isOn,proxy.turnOn,proxy.turnOff),
["precise"]=adapter_api.create_toggle(proxy.isPrecise,proxy.setPrecise),
["touchModeInverted"]=adapter_api.create_toggle(proxy.isTouchModeInverted,proxy.setTouchModeInverted),
}
end
F 763 /lib/tools/programLocations.lua
local computer=require("computer")
local fs=require("filesystem")
local shell=require("shell")
local lib={}

function lib.locate(path)
for _,lookup in ipairs(computer.getProgramLocations())do
if lookup[1]==path then
return lookup[2]
end
end
end

function lib.reportNotFound(path,reason)
checkArg(1,path,"string")
if fs.isDirectory(shell.resolve(path))then
io.stderr:write(path..": is a directory\n")
return 126
end
local loot=lib.locate(path)
if loot then
io.stderr:write("The program '"..path.."' is currently not installed.  To install it:\n"..
"1. Craft the '"..loot.."' floppy disk and insert it into this computer.\n"..
"2. Run `install "..loot.."`")
elseif type(reason)=="string"then
io.stderr:write(path..": "..reason.."\n")
end
return 127
end

return lib
F 5863 /lib/tools/transfer.lua
local fs=require("filesystem")
local shell=require("shell")
local lib={}

local function perr(ops,format,...)
if format then
io.stderr:write(ops.cmd..string.format(": "..format,...).."\n")
ops.exit_code=1
return 1
end
end

local function contents_check(arg,options,bMustExist)
if arg==""then
return perr(options,"cannot create regular file '' No such file or directory")
end
local path=shell.resolve(arg)
local content_pattern="^(%.*)(.?)"
local contents_of,of_dir=arg:reverse():match(content_pattern)
of_dir=of_dir:match("^/?$")
local dots=contents_of and contents_of:len()or 0
contents_of=of_dir and({true,true})[dots]

if(not bMustExist or fs.exists(path))and of_dir and not fs.isDirectory(path)then
perr(options,"'%s' is not a directory",arg)
os.exit(1)
end

return contents_of,path
end

local function areEqual(path1,path2)
local f1,f2=fs.open(path1,"rb")
local result=true
if f1 then
f2=fs.open(path2,"rb")
if f2 then
local chunkSize=4*1024
repeat
local s1,s2=f1:read(chunkSize),f2:read(chunkSize)
if s1~=s2 then
result=false
break
end
until not s1 or not s2
f2:close()
end
f1:close()
end
assert(f1 and f2,"could not open files for reading: "..path1 ..", "..path2)
return result
end

local function status(verbose,from,to)
if verbose then
to=to and(" -> "..to)or""
io.write(from..to.."\n")
end
os.sleep(0)
end

local function prompt(message)
io.write(message.." [Y/n] ")
local result=io.read()
if not result then
os.exit(1)
end
return result and(result==""or result:sub(1,1):lower()=="y")
end

local function stat(path,ops,P)
local real,reason=fs.realPath(path)
if not real and not P then
perr(ops,"cannot read '%s': '%s'",path,reason)
return false
end
local isLink,linkTarget=fs.isLink(path)
return true,
real,
reason,
isLink,
linkTarget,
fs.exists(path),
fs.get(path),
real and fs.isDirectory(real)
end

function lib.recurse(fromPath,toPath,options,origin,top)
fromPath=fromPath:gsub("/+","/")
toPath=toPath:gsub("/+","/")
local fromPathFull=shell.resolve(fromPath)
local toPathFull=shell.resolve(toPath)
local mv=options.cmd=="mv"
local verbose=options.v and(not mv or top)
if options.skip[fromPathFull]then
status(verbose,string.format("skipping %s",fromPath))
return true
end
local function release(result,reason)
if result and mv and top then
local rm_result=not fs.get(fromPathFull).isReadOnly()and fs.remove(fromPathFull)
if not rm_result then
perr(options,"cannot remove '%s': filesystem is readonly",fromPath)
result=false
end
end
return result,reason
end

local
ok,
fromReal,
_,
fromIsLink,
fromLinkTarget,
fromExists,
fromFs,
fromIsDir=stat(fromPathFull,options,options.P)
if not ok then return nil end
local
ok,
toReal,
_,
toIsLink,
_,
toExists,
toFs,
toIsDir=stat(toPathFull,options)
if not ok then os.exit(1)end
if toFs.isReadOnly()then
perr(options,"cannot create target '%s': filesystem is readonly",toPath)
return
end

local same_path=fromReal==toReal

local same_fs=fromFs==toFs
local is_mount=origin[fromReal]

if mv and is_mount then
return false,string.format("cannot move '%s', it is a mount point",fromPath)
end

if fromIsLink and options.P and not(toExists and same_path and not toIsLink)then
if toExists and options.n then
return true
end
fs.remove(toPathFull)
if toExists then
status(verbose,string.format("removed '%s'",toPath))
end
status(verbose,fromPath,toPath)
return release(fs.link(fromLinkTarget,toPathFull))
elseif fromIsDir then
if not options.r then
status(true,string.format("omitting directory '%s'",fromPath))
options.exit_code=1
return true
end
if toExists and not toIsDir then

return nil,"cannot overwrite non-directory '"..toPath.."' with directory '"..fromPath.."'"
end
if options.x and not top and is_mount then
return true
end
if same_fs then
if(toReal.."/"):find(fromReal.."/",1,true)then
return nil,"cannot write a directory, '"..fromPath.."', into itself, '"..toPath.."'"
end
end
if mv then
if fs.list(toReal)()then
return nil,"cannot move '"..fromPath.."' to '"..toPath.."': Directory not empty"
end
status(verbose,fromPath,toPath)
end
if not toExists then
status(verbose,fromPath,toPath)
fs.makeDirectory(toPathFull)
end
for file in fs.list(fromPathFull)do
local result,reason=lib.recurse(fromPath.."/"..file,toPath.."/"..file,options,origin,false)
if not result then
return false,reason
end
end
return release(true)
elseif fromExists then
if toExists then
if same_path then
return nil,"'"..fromPath.."' and '"..toPath.."' are the same file"
end
if options.n then
return true
end
if options.u and not toIsDir and areEqual(fromReal,toReal)then
return true
end
if options.i then
if not prompt("overwrite '"..toPath.."'?")then
return true
end
end
if toIsDir then
return nil,"cannot overwrite directory '"..toPath.."' with non-directory"
end
fs.remove(toReal)
end
status(verbose,fromPath,toPath)
return release(fs.copy(fromPathFull,toPathFull))
else
return nil,"'"..fromPath.."': No such file or directory"
end
end

function lib.batch(args,options)
options.exit_code=0


options.i=options.i and not options.f
options.P=options.P or options.r

local skips=options.skip or{}
options.skip={}
for _,skip_item in ipairs(skips)do
options.skip[shell.resolve(skip_item)]=true
end

local origin={}
for dev,path in fs.mounts()do
origin[path]=dev
end

local toArg=table.remove(args)
local _,ok=contents_check(toArg,options)
if not ok then
return 1
end
local originalToIsDir=fs.isDirectory(ok)

for _,fromArg in ipairs(args)do


local contents_of
contents_of,ok=contents_check(fromArg,options,true)
if ok then

local toPath=toArg
if contents_of and options.cmd=="mv"then
perr(options,"invalid move path '%s'",fromArg)
else
if not contents_of and originalToIsDir then
local fromName=fs.name(fromArg)
if fromName then
toPath=toPath.."/"..fromName
end
end

local result,reason=lib.recurse(fromArg,toPath,options,origin,true)

if not result then
perr(options,reason)
end
end
end
end

return options.exit_code
end

return libF 1073 /lib/yaru/autostart.lua




local fs=require("filesystem")
if fs.exists("/bin/desktop.lua")and fs.exists("/lib/yaru/core.lua")then
local auto=true



local f=fs.open("/etc/yaru.cfg")
if f then
local parts={}
repeat local d=f:read(math.huge)parts[#parts+1]=d until not d
local data=table.concat(parts)
f:close()
local chunk=load("return "..data,"=yaru.cfg","t",{math={huge=math.huge}})
local ok,cfg=pcall(chunk or error)
if ok and type(cfg)=="table"and cfg.autostart==false then auto=false end
end
if auto and fs.exists("/etc/yaru.crash")then
fs.remove("/etc/yaru.crash")
local m=io.open("/tmp/.desktop_msg","w")
if m then m:write("Desktop did not start last time - text shell (safe mode). Run 'desktop' to retry.")m:close()end
auto=false
end
if auto and require("event").pull(0.3,"key_down")then
local m=io.open("/tmp/.desktop_msg","w")
if m then m:write("Safe mode: text shell. Run 'desktop' to start the desktop.")m:close()end
auto=false
end
if auto then
local ok,a,b=pcall(require("shell").execute,"desktop")
if not ok or a==false then io.stderr:write(tostring(ok and b or a).."\n")end
end
end
F 2494 /lib/yaru/backuplib.lua



local fs=require("filesystem")
local serialization=require("serialization")
local B={}
B.CFG="/etc/yaru-backup.cfg"

function B.config()
local cfg={src="/home",dst=nil,keep=3}
local f=io.open(B.CFG)
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then for k,v in pairs(t)do cfg[k]=v end end
end
return cfg
end
function B.save(cfg)
local f=io.open(B.CFG,"w")
if f then f:write(serialization.serialize(cfg));f:close()end
end

function B.snapshots(dst)
local r={}
local dir=fs.concat(dst or"","Backups")
if dst and fs.isDirectory(dir)then
for n in fs.list(dir)do if n:sub(-1)=="/"then r[#r+1]=n:sub(1,-2)end end
end
table.sort(r,function(a,b)return a>b end)
return r
end

local function walk(src,fn)
for name in fs.list(src)do
local p=fs.concat(src,name)
if name:sub(-1)=="/"then
if not fs.isLink(p)then walk(p,fn)end
else fn(p)end
end
end


function B.run(cfg,progress,stamp)
if not cfg.dst or not fs.isDirectory(cfg.dst)then return nil,"no destination drive"end
local dst=fs.canonical(cfg.dst)
local src=fs.canonical(cfg.src)
if(dst.."/"):sub(1,#src+1)==src.."/"then return nil,"destination is inside the source folder"end
local files={}
walk(src,function(p)files[#files+1]=p end)
local snap=fs.concat(dst,"Backups",stamp)
fs.makeDirectory(snap)
local bytes=0
for i,p in ipairs(files)do
local rel=p:sub(#src+2)
local target=fs.concat(snap,rel)
fs.makeDirectory(fs.path(target))
local ok,err=fs.copy(p,target)
if not ok then return nil,rel..": "..tostring(err)end
bytes=bytes+(fs.size(p)or 0)
if progress and i%5==0 then progress(i,#files,rel)end
end
local f=io.open(fs.concat(snap,".backup-info"),"w")
if f then f:write(serialization.serialize({src=src,files=#files,bytes=bytes}));f:close()end

local snaps=B.snapshots(dst)
for i=(cfg.keep or 3)+1,#snaps do fs.remove(fs.concat(dst,"Backups",snaps[i]))end
return#files,bytes
end

function B.info(dst,name)
local f=io.open(fs.concat(dst,"Backups",name,".backup-info"))
if not f then return{}end
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
return ok and t or{}
end


function B.restore(dst,name,into,progress)
local snap=fs.concat(dst,"Backups",name)
local n=0
local files={}
walk(snap,function(p)if fs.name(p)~=".backup-info"then files[#files+1]=p end end)
for i,p in ipairs(files)do
local target=fs.concat(into,p:sub(#snap+2))
fs.makeDirectory(fs.path(target))
fs.copy(p,target)
n=n+1
if progress and i%5==0 then progress(i,#files,p)end
end
return n
end

return B
F 50119 /lib/yaru/core.lua


local component=require("component")
local computer=require("computer")
local event=require("event")
local fs=require("filesystem")
local unicode=require("unicode")
local gfx=require("yaru.gfx")
local T=require("yaru.theme")
local ui=require("yaru.ui")

local Y={running=false,windows={},ws=1,wsCount=4,notifs={},toasts={},
clipboard="",apps={},appOrder={},modules={},nextId=1,stats={}}
package.loaded["yaru.core"]=Y

local K={esc=0x01,tab=0x0F,enter=0x1C,lctrl=0x1D,rctrl=0x9D,lshift=0x2A,rshift=0x36,
lalt=0x38,ralt=0xB8,f1=0x3B,f2=0x3C,f4=0x3E,f10=0x44,up=0xC8,down=0xD0,
left=0xCB,right=0xCD,pgup=0xC9,pgdn=0xD1,home=0xC7,["end"]=0xCF,del=0xD3,
back=0x0E,lsuper=0xDB,rsuper=0xDC,sysrq=0xB7,a=0x1E,d=0x20,e=0x12,h=0x23,
l=0x26,t=0x14,v=0x2F,s=0x1F,c=0x2E,space=0x39}
Y.K=K
local mods={}
local function ctrl()return mods[K.lctrl]or mods[K.rctrl]end
local function alt()return mods[K.lalt]or mods[K.ralt]end
local function shift()return mods[K.lshift]or mods[K.rshift]end
local function super()return mods[K.lsuper]or mods[K.rsuper]end
Y.mods={ctrl=ctrl,alt=alt,shift=shift,super=super}

local W,H,DOCK=160,50,12
local CW,CH=160,50
local gpu,screenAddr,kbAddr
local now

local SCR={}
Y.displays=SCR
local inputs={}
local appX
local lastNormal


local CFG_PATH="/etc/yaru.cfg"
local defaults={dark=true,accent="orange",wallpaper="noble",favorites={"files","terminal","editor","monitor","settings"},
clockSeconds=false,clockWeekday=true,clockReal=true,tz=0,dnd=false,beeps=true,showMemory=true,
desktopIcons=true,autostart=true,autologin=false,password=nil,blank=0,resolution=nil,dockClickMinimize=true,
displays={}}
function Y.loadConfig()
local cfg={}
local f=io.open(CFG_PATH,"r")
if f then
local ok,t=pcall(require("serialization").unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then cfg=t end
end
for k,v in pairs(defaults)do if cfg[k]==nil then cfg[k]=v end end
Y.cfg=cfg
end
function Y.saveConfig()
local f=io.open(CFG_PATH,"w")
if f then f:write(require("serialization").serialize(Y.cfg));f:close()end
end
function Y.applyTheme()
Y.theme=T.build(Y.cfg.dark,Y.cfg.accent)
gfx.setCustomPalette(Y.theme.palette)
local wp=Y.cfg.wallpaper

for i,s in ipairs(SCR[1]and SCR or{{x0=0,w=W,h=H}})do
if i==1 or not s.mirror then
if not(type(wp)=="string"and wp:sub(1,1)=="/"and Y.setPictureWallpaper(wp,s.w,s.h,s.x0))then
local wall=require("yaru.wall")
if not wall.designs[wp]then Y.cfg.wallpaper="noble";wp="noble"end
gfx.setWallpaper(wall.generate(Y.cfg.wallpaper,s.w,s.h),s.w,nil,s.x0)
end
end
end
package.loaded["yaru.wall"]=nil
gfx.damageAll()
end



function Y.setPictureWallpaper(path,W,H,x0)
W,H=W or Y.size(),H or select(2,Y.size())
local img=require("yaru.image").load(path,true)
if not img then return false end
local iw,ih,d=img[1],img[2],img[3]
local chars,cidx,out,row={},{},{},{}
local byte=string.char
for y=0,H-1 do
local sy=y*ih//H
for x=0,W-1 do
local k=(sy*iw+x*iw//W+1)*3
local cp=d[k-2]
local ci=cidx[cp]
if not ci then
if#chars>=255 then ci=cidx[32]or 1 else chars[#chars+1]=cp;ci=#chars;cidx[cp]=ci end
end
local bg=d[k]
row[x+1]=byte(ci,gfx.color(d[k-1]),gfx.color(bg>=0 and bg or 0))
end
out[y+1]=table.concat(row,"",1,W)
end
gfx.setWallpaper(table.concat(out),W,chars,x0)
return true
end


local timeBase,timeUp
function Y.now()
local up=computer.uptime()
if not Y.cfg.clockReal then return os.time()end
if not timeBase or up-timeUp>600 then
local p="/tmp/.yaru_clock"
local f=io.open(p,"w")
local ms=0
if f then f:write("");f:close();ms=fs.lastModified(p)or 0 end
if ms>0 then timeBase,timeUp=ms//1000,up else return os.time()end
end
return timeBase+math.floor(up-timeUp)+math.floor(Y.cfg.tz*3600)
end
now=Y.now
function Y.date(fmt,t)return os.date("!"..fmt,t or now())end


local builtin={
{"files","Files","folder"},{"terminal","Terminal","terminal"},{"editor","Text Editor","editor"},
{"monitor","System Monitor","monitor"},{"settings","Settings","settings"},{"calc","Calculator","calc"},
{"viewer","Image Viewer","viewer"},{"paint","Paint","paint"},{"notes","Notes","notes"},
{"clock","Clocks","clock"},{"disks","Disks","disks"},{"redstone","Redstone","redstone"},
{"chat","Messages","chat"},{"mines","Mines","mines"},{"g2048","2048","2048"},
{"explorer","Component Explorer","explorer"},{"backup","Backups","backup"},{"search","Search","search"},
{"energy","Power Statistics","energy"},{"storage","Storage","storage"},{"scanner","Terrain Scanner","scanner"},
{"scheduler","Scheduled Tasks","scheduler"},{"sudoku","Sudoku","sudoku"},{"tetris","Quadrapassel","tetris"},
{"player","Media Player","player"},{"composer","Composer","composer"},{"web","Web Browser","web"},{"redlab","Redstone Lab","redlab"},{"tapes","Tape Deck","tapes"},{"camera","Depth Camera","camera"},
{"print3d","3D Print Studio","print3d"},{"holo","Hologram Studio","holo"},{"lights","Light Show","lights"},
{"battleship","Battleship","battleship"},
}

local ICONDIR="/usr/share/yaru/icons/"
Y.icons={files="folder",terminal="terminal",editor="editor",monitor="monitor",settings="settings",
calc="calc",trash="trash",drive="hdd",floppy="floppy",home="folder",generic="app",script="script"}
function Y.registerApps()
Y.apps,Y.appOrder={},{}
for _,b in ipairs(builtin)do
local path="/usr/share/yaru/apps/"..b[1]..".lua"
if fs.exists(path)then
Y.apps[b[1]]={id=b[1],name=b[2],icon=b[3],path=path}
Y.appOrder[#Y.appOrder+1]=b[1]
end
end

local dir="/usr/share/applications"
if fs.isDirectory(dir)then
for name in fs.list(dir)do
if name:match("%.lua$")then
local ok,d=pcall(dofile,fs.concat(dir,name))
if ok and type(d)=="table"and d.name and d.exec then
local id="user:"..name:gsub("%.lua$","")
d.id,d.user=id,true
Y.apps[id]=d
Y.appOrder[#Y.appOrder+1]=id
end
end
end
end
end

local function appModule(id)
local m=Y.modules[id]
local a=Y.apps[id]

if m and a and a.path then
local t=fs.lastModified(a.path)
if t~=a.mtime and#Y.windowsOf(id)==0 then m=nil end
end
if not m then
a.mtime=fs.lastModified(a.path)
local chunk,err=loadfile(a.path)
if not chunk then Y.notify("Cannot start "..a.name,tostring(err))return end
local ok,mod=xpcall(chunk,debug.traceback)
if not ok then Y.notify("Cannot start "..a.name,tostring(mod))return end
m=mod
Y.modules[id]=m
end
return m
end

function Y.launch(id,...)
local a=Y.apps[id]
if not a then return end
if a.user then
if a.fullscreen then return Y.runFullscreen(a.exec)end
return Y.launch("terminal",a.exec)
end
local m=appModule(id)
if m then
local ok,err=xpcall(m.open,debug.traceback,...)
if not ok then Y.notify(a.name.." crashed",tostring(err):match("[^\n]*"))end
end
end



local APP_LIBS={redsim="redlab",tapelib="tapes",ocvlib="player",
ocweb="web",occss="web",ocdom="web",oclayout="web",ocimg="web"}
local function maybeUnload(id)
for _,w in ipairs(Y.windows)do if w.app==id then return end end
local m=Y.modules[id]
if m and not m.resident then Y.modules[id]=nil end
for lib,app in pairs(APP_LIBS)do if app==id then package.loaded[lib]=nil end end
end






Y.pending={}
local lastYieldUp,lastYieldClock=computer.uptime(),os.clock()
function Y.markYield()lastYieldUp,lastYieldClock=computer.uptime(),os.clock()end
function Y.breathe(force)
if not force and computer.uptime()-lastYieldUp<0.5 and os.clock()-lastYieldClock<0.5 then return false end
local ok,sig=pcall(function()return table.pack(event.pull(0))end)
if ok and sig[1]then Y.pending[#Y.pending+1]=sig end
Y.markYield()
return true
end


local lowMemNotified=0
function Y.relieveMemory(quiet)
local image=package.loaded["yaru.image"]
if image and image.flush then pcall(image.flush)end
for id,m in pairs(Y.modules)do
local used=false
for _,w in ipairs(Y.windows)do if w.app==id then used=true end end
if not used and not m.resident then Y.modules[id]=nil end
end
for lib,app in pairs(APP_LIBS)do
local used=false
for _,w in ipairs(Y.windows)do if w.app==app then used=true end end
if not used then package.loaded[lib]=nil end
end
for _,w in ipairs(Y.windows)do if w.lowMemory then pcall(w.lowMemory,w)end end
if collectgarbage then for _=1,3 do collectgarbage()end end
if not quiet and computer.uptime()-lowMemNotified>120 then
lowMemNotified=computer.uptime()
Y.notify("Memory is low",string.format("%d KB free of %d KB. Close some windows or add RAM.",
computer.freeMemory()//1024,computer.totalMemory()//1024))
end
end



local function regionAt(x)
local r=SCR[1]
for i=2,#SCR do
local s=SCR[i]
if not s.mirror and x>s.x0 and(not r or s.x0>r.x0)then r=s end
end
return r
end
Y.regionAt=regionAt
local function displayOf(addr)for _,s in ipairs(SCR)do if s.addr==addr then return s end end end


local function winScreen(w)
if w.kiosk then return displayOf(w.kiosk)end
local s=regionAt(w.x+w.w//2)
if s and s.app then s=lastNormal or SCR[1]end
return s
end
Y.winScreen=winScreen

local function workArea(s)
if s and s~=SCR[1]and not s.mirror then return s.x0+1,1,s.w,s.h end
return DOCK+1,2,W-DOCK,H-1
end
Y.workArea=workArea


local function winDamage(w)
gfx.damage(w.x,w.y-1,w.w+1,w.h+3)
end
function Y.redraw(w)
if w then
if not w.minimized and w.ws==Y.ws then winDamage(w)end
else
gfx.damageAll()
end
end

local function clampWin(w)
if w.kiosk then return end
local s=winScreen(w)
local ax,ay,aw,ah=workArea(s)
local x0,sw,sh=0,W,H
if s and s~=SCR[1]then x0,sw,sh=s.x0,s.w,s.h end
w.w=math.max(w.minW or 20,math.min(w.w,aw))
w.h=math.max(w.minH or 6,math.min(w.h,ah))
w.x=math.max(x0+1-w.w+8,math.min(w.x,x0+sw-6))
w.y=math.max(ay+1,math.min(w.y,sh-1))
end

function Y.newWindow(o)
local w=o
w.id=Y.nextId;Y.nextId=w.id+1
w.ws=Y.ws
w.hits,w.hhits={},{}
w.w,w.h=w.w or 70,w.h or 22

local scr=Y.lastScr
if not scr or scr.app or scr.mirror or not displayOf(scr.addr)then scr=SCR[1]end
local ax,ay,aw,ah=workArea(scr)

local n=0
for _,o2 in ipairs(Y.windows)do if o2.ws==Y.ws then n=n+1 end end
w.x=w.x or ax+(aw-w.w)//2+(n%5)*3-6
w.y=w.y or ay+math.max(0,(ah-w.h)//3)+(n%5)
clampWin(w)
table.insert(Y.windows,w)
Y.focusWin(w)
winDamage(w)
return w
end




function Y.setPrecise(on)
on=on and true or false
if on==Y.precise or not screenAddr then return end
local ok=pcall(component.invoke,screenAddr,"setPrecise",on)
local okq,isP=pcall(component.invoke,screenAddr,"isPrecise")
Y.precise=ok and okq and isP==true
for i=2,#SCR do pcall(component.invoke,SCR[i].addr,"setPrecise",on and Y.precise)end
end

function Y.focusWin(w)
if Y.focus and Y.focus~=w then Y.redraw(Y.focus);if Y.focus.blur then pcall(Y.focus.blur,Y.focus)end end
if w then
for i,o in ipairs(Y.windows)do if o==w then table.remove(Y.windows,i)break end end
table.insert(Y.windows,w)
w.minimized=false
if w.ws~=Y.ws then Y.switchWs(w.ws)end
winDamage(w)
if w.focusIn then pcall(w.focusIn,w)end
end
Y.focus=w
Y.setPrecise(w and w.precise)
Y.dockDirty()
gfx.damage(1,1,W,1)
end

local function topWindow()
for i=#Y.windows,1,-1 do
local w=Y.windows[i]
if w.ws==Y.ws and not w.minimized then return w end
end
end

function Y.closeWin(w,force)
if not force and w.onclose then
local ok,veto=pcall(w.onclose,w)
if ok and veto==false then return end
end
if w.cleanup then pcall(w.cleanup,w)end
if w.kiosk and not force then Y.kioskClosed[w.kiosk]=true end
winDamage(w)
for i,o in ipairs(Y.windows)do if o==w then table.remove(Y.windows,i)break end end
if Y.focus==w then Y.focus=nil;Y.focusWin(topWindow())end
maybeUnload(w.app)
Y.dockDirty()
end

function Y.minimize(w)
winDamage(w)
w.minimized=true
if Y.focus==w then Y.focus=nil;Y.focusWin(topWindow())end
Y.dockDirty()
end

function Y.maximize(w,how)
if w.kiosk then return end
winDamage(w)
local ax,ay,aw,ah=workArea(winScreen(w))
if how=="restore"or(not how and w.maxState)then
if w.restore then w.x,w.y,w.w,w.h=table.unpack(w.restore)end
w.maxState,w.restore=nil,nil
else
if not w.maxState then w.restore={w.x,w.y,w.w,w.h}end
how=how or"max"
if how=="max"then w.x,w.y,w.w,w.h=ax,ay,aw,ah
elseif how=="left"then w.x,w.y,w.w,w.h=ax,ay,aw//2,ah
else w.x,w.y,w.w,w.h=ax+aw//2,ay,aw-aw//2,ah end
w.maxState=how
end
if w.resized then pcall(w.resized,w)end
winDamage(w)
end

function Y.switchWs(n)
if n<1 or n>Y.wsCount or n==Y.ws then return end

for _,w in ipairs(Y.windows)do if w.sticky or w.kiosk or winScreen(w)~=SCR[1]then w.ws=n end end
Y.ws=n
Y.focus=nil
Y.focusWin(topWindow())
gfx.damageAll()
end

function Y.windowsOf(id)
local r={}
for _,w in ipairs(Y.windows)do if w.app==id then r[#r+1]=w end end
return r
end


function Y.notify(title,body,opts)
opts=opts or{}
local n={title=tostring(title),body=body and tostring(body)or"",time=now(),icon=opts.icon,action=opts.action,actionLabel=opts.actionLabel}
table.insert(Y.notifs,1,n)
Y.notifs[21]=nil
Y.unread=true
if not Y.cfg.dnd or opts.urgent then
n.expires=computer.uptime()+(opts.timeout or 5)
Y.toasts={n}
if Y.cfg.beeps then computer.beep(1000,0.05)end
end
gfx.damage(1,1,W,1)
gfx.damage(W//2-30,2,62,7)
end


local image=require("yaru.image")
local function drawIcon(x,y,name)
local img=image.load(ICONDIR..(Y.icons[name]or name)..".pic")or image.load(ICONDIR.."app.pic")
if img then gfx.image(x,y,img)end
end
Y.drawIcon=drawIcon

function Y.wallpaper()gfx.drawWallpaper()end


local function label(x,y,s,w)
s=ui.trunc(s,w)
local lx=x+(w-unicode.len(s))//2
gfx.blend(lx-1,y,unicode.len(s)+2,1,0,0.4)
gfx.text(lx,y,s,0xFFFFFF)
end
Y.label=label

local deskItems={}
local function drawWallpaper()
gfx.drawWallpaper()
deskItems={}
if Y.cfg.desktopIcons and not(Y.overlay and Y.overlay.opaque)then
local x,y=DOCK+3,3
local function item(icon,name,kind,arg)
drawIcon(x+1,y,icon)
label(x-1,y+4,name,12)
deskItems[#deskItems+1]={x-1,y,12,5,kind,arg}
y=y+6
end
item("home","Home","home")
for _,d in ipairs(Y.drives or{})do item(d.floppy and"floppy"or"drive",d.label,"drive",d.path)end
item("trash","Trash","trash")
end
end
Y.deskItems=function()return deskItems end

local function drawWindow(w)
local t=Y.theme
local focused=Y.focus==w
local x,y=w.x,w.y
local hb=focused and t.header or t.headerIn
local rounded=not w.maxState

if rounded then
local a=focused and 0.5 or 0.3
gfx.blend(x+w.w,y,1,w.h+1,0,a)
gfx.blend(x+1,y+w.h,w.w-1,1,0,a)

gfx.half(x+1,y-1,w.w-2,hb,false)
gfx.text(x,y-1,"⣠",hb);gfx.text(x+w.w-1,y-1,"⣄",hb)
end

gfx.fill(x,y,w.w,1,hb)
local title=ui.trunc(w.title or"",w.w-22)
if not w.header or w.showTitle then gfx.text(x+(w.w-unicode.len(title))//2,y,title,focused and t.headerFg or t.dim,hb)end
w.hhits={}
if w.header then
gfx.pushClip(x,y,w.w-11,1)
gfx.origin(x-1,y-1)
local saved=w.hits
w.hits=w.hhits
pcall(w.header,w,w.w-11)
w.hits=saved
gfx.popClip()
gfx.origin(0,0)
end

local bb=t.dark and 0x454545 or 0xDEDDDA
local bfg=focused and t.headerFg or t.dim
local bx=x+w.w-10
if not w.fixed then
ui.pill(bx,y,3,bb);gfx.text(bx+1,y,"−",bfg,bb)
ui.pill(bx+3,y,3,bb);gfx.text(bx+4,y,w.maxState and"◫"or"□",bfg,bb)
end
local cb=focused and t.accent or bb
ui.pill(bx+6,y,3,cb);gfx.text(bx+7,y,"×",focused and 0xFFFFFF or bfg,cb)

w.hits={}
if gfx.pushClip(x,y+1,w.w,w.h-1)then
gfx.origin(x-1,y)
gfx.fill(1,1,w.w,w.h-1,t.bg)
local ok,err=pcall(w.draw,w,w.w,w.h-1)
if not ok then
gfx.text(2,2,"draw error:",t.danger)
gfx.text(2,3,ui.trunc(tostring(err),w.w-3),t.fg)
end
end
gfx.popClip()
gfx.origin(0,0)
if rounded then

local yb=y+w.h-1
gfx.text(x,yb,"⠙",gfx.bgAt(x,yb),gfx.bgAt(x-1,yb))
gfx.text(x+w.w-1,yb,"⠋",gfx.bgAt(x+w.w-1,yb),gfx.bgAt(x+w.w,yb))
if not w.fixed then gfx.text(x+w.w-2,yb,"◢",t.dim)end
end
end


local dockItems={}
function Y.dockDirty()gfx.damage(1,2,DOCK,H-1)end

local function running(id)
local n,vis=0,false
for _,w in ipairs(Y.windows)do if w.app==id then n=n+1 end end
return n
end

local function drawDock()
local t=Y.theme

gfx.blend(1,2,DOCK,H-1,0x000000,0.5)
dockItems={}
local y=3
local seen={}
local function item(kind,id,icon,label,count)
if y+4>H-5 then return end
local focusedApp=Y.focus and Y.focus.app==id
if focusedApp then
gfx.blend(2,y,DOCK-2,4,0xFFFFFF,0.16)
gfx.half(3,y-1,DOCK-4,0xFFFFFF,false,0.16)
gfx.half(3,y+4,DOCK-4,0xFFFFFF,true,0.16)
end
drawIcon(3,y,icon)
if count and count>0 then
gfx.text(1,y+1,"•",t.accent)
if count>1 then gfx.text(1,y+2,"•",t.accent)end
end
dockItems[#dockItems+1]={kind=kind,id=id,y=y,label=label}
y=y+5
end
for _,id in ipairs(Y.cfg.favorites)do
local a=Y.apps[id]
if a then seen[id]=true;item("app",id,a.icon or"generic",a.name,running(id))end
end
for _,w in ipairs(Y.windows)do
if not seen[w.app]and Y.apps[w.app]then
seen[w.app]=true
local a=Y.apps[w.app]
item("app",w.app,a.icon or"generic",a.name,running(w.app))
end
end
gfx.text(3,y-1,string.rep("─",DOCK-4),0x5E5C64)
y=y+1
for _,d in ipairs(Y.drives or{})do item("drive",d.path,d.floppy and"floppy"or"drive",d.label)end
item("trash","trash","trash","Trash")

local gy=H-4
local ov=Y.overlay and Y.overlay.kind=="overview"and Y.overlay.mode=="apps"
if ov then gfx.blend(2,gy,DOCK-2,3,0xFFFFFF,0.16)end
for r=0,2 do gfx.text(4,gy+r,"● ● ●",0xFFFFFF)end
dockItems[#dockItems+1]={kind="grid",y=gy}
end

local function clockText()
local fmt=(Y.cfg.clockWeekday and"%a "or"").."%b %d  %H:%M"..(Y.cfg.clockSeconds and":%S"or"")
return Y.date(fmt)
end

local panelHits={}
local function drawPanel()
local t=Y.theme
gfx.fill(1,1,W,1,t.panel)
panelHits={}

local x=2
for i=1,Y.wsCount do
if i==Y.ws then ui.pill(x,1,4,0xFFFFFF);x=x+5
else gfx.text(x,1,"●",0x77767B,t.panel);x=x+2 end
end
panelHits[#panelHits+1]={1,x,"activities"}
if Y.focus then
local a=Y.apps[Y.focus.app]
if a then gfx.text(x+2,1,a.name,t.panelFg,t.panel)end
end

local c=clockText()
local cw=unicode.len(c)+(Y.unread and 2 or 0)
local cx=(W-cw)//2
if Y.overlay and Y.overlay.kind=="calendar"then ui.pill(cx-2,1,cw+4,0x383838)end
gfx.text(cx,1,c,t.panelFg)
if Y.unread then gfx.text(cx+cw-1,1,"●",t.accent)end
panelHits[#panelHits+1]={cx-2,cx+cw+2,"calendar"}

local tray={}
if Y.cfg.showMemory then
local total,free=computer.totalMemory(),computer.freeMemory()
tray[#tray+1]=string.format("▦ %d%%",math.floor((total-free)*100/total+.5))
end
if component.isAvailable("internet")then tray[#tray+1]="⇅"
elseif component.isAvailable("modem")then tray[#tray+1]="⌁"end
tray[#tray+1]=Y.cfg.beeps and"♪"or"∅"
local maxE=computer.maxEnergy()
if maxE and maxE>0 then tray[#tray+1]=string.format("ϟ %d%%",math.floor(computer.energy()*100/maxE))end
tray[#tray+1]="⌽"
local s=table.concat(tray,"  ")
local sw=unicode.len(s)
local tx=W-sw-2
if Y.overlay and Y.overlay.kind=="quick"then ui.pill(tx-2,1,sw+4,0x383838)end
gfx.text(tx,1,s,t.panelFg)
panelHits[#panelHits+1]={tx-2,W,"quick"}
end

local function drawToasts()
local t=Y.theme
local n=Y.toasts[1]
if not n or(Y.overlay and(Y.overlay.kind=="lock"or Y.overlay.opaque))then return end
local w=56
local x=(W-w)//2
ui.card(x,3,w,3,t.menu)
gfx.text(x+2,3,"●",t.accent,t.menu)
gfx.text(x+4,3,ui.trunc(n.title,w-14),t.menuFg,t.menu)
gfx.text(x+w-8,3,"now",t.dim,t.menu)
gfx.text(x+w-3,3,"×",t.dim,t.menu)
gfx.text(x+4,4,ui.trunc(n.body:gsub("\n"," "),w-6),t.dim,t.menu)
if n.action then
local l=n.actionLabel or"Open"
ui.button(nil,x+w-unicode.len(l)-6,5,l,nil,nil)
end
Y.toastRect={x,2,w,5}
end


local function drawEmptyApp(s)
local t=Y.theme
local a=Y.apps[s.app]
local name=a and a.name or s.app
local cw=math.min(s.w-4,math.max(30,unicode.len(name)+12))
local x,y=s.x0+(s.w-cw)//2+1,s.h//2-3
ui.card(x,y,cw,7,t.menu)
drawIcon(x+(cw-8)//2,y,a and a.icon or"generic")
local l="Open "..name
ui.button(nil,x+(cw-unicode.len(l)-4)//2,y+5,l,nil,"suggested")
end



local function drawLocked(s)
gfx.drawWallpaper()
gfx.blend(s.x0+1,1,s.w,s.h,0,0.55)
local c=Y.date("%H:%M")
ui.big(s.x0+(s.w-ui.bigWidth(c))//2+1,s.h//2-5,c,0xFFFFFF)
local l="Locked"
gfx.text(s.x0+(s.w-#l)//2+1,s.h//2+4,l,0xC0BFBC)
end

local function kioskWin(s)
for _,w in ipairs(Y.windows)do if w.kiosk==s.addr then return w end end
end
Y.kioskWin=kioskWin

local function drawWin(w)
gfx.origin(0,0)
if w.kiosk or not appX or appX>=CW then return drawWindow(w)end
gfx.pushClip(1,1,appX,CH)
drawWindow(w)
gfx.popClip()
end


local function drawIdentify()
for _,s in ipairs(SCR)do
if not s.mirror then
local l=tostring(s.n)
local bw=ui.bigWidth(l)+6
local x,y=s.x0+(s.w-bw)//2+1,(s.h-10)//2+1
ui.card(x,y,bw,10,Y.theme.accent)
ui.big(x+3,y+1,l,0xFFFFFF)
end
end
end

function Y.render()
if Y.paused then return end
if not gfx.isDamaged()then return end
local t0=os.clock()
gfx.resetClip()
local lock=Y.overlay and Y.overlay.kind=="lock"
if not lock then
drawWallpaper()
local opaque=Y.overlay and Y.overlay.opaque
for _,w in ipairs(Y.windows)do
if w.ws==Y.ws and not w.minimized and gfx.damaged(w.x,w.y-1,w.w+1,w.h+3)
and not(opaque and winScreen(w)==SCR[1])then
drawWin(w)
end
end
gfx.origin(0,0)
for i=2,#SCR do
local s=SCR[i]
if s.app and gfx.damaged(s.x0+1,1,s.w,s.h)then
local kw=kioskWin(s)
if not kw or kw.minimized then drawEmptyApp(s)end
end
end
if gfx.damaged(1,2,DOCK,H-1)then drawDock()end
if gfx.damaged(1,1,W,1)then drawPanel()end
drawToasts()
end
if Y.overlay then
gfx.origin(0,0)
Y.overlay.hits={}
local ok,err=pcall(Y.overlay.draw,Y.overlay)
if not ok then Y.overlay=nil;Y.notify("Shell error",tostring(err))end
end
if lock then
for i=2,#SCR do
local s=SCR[i]
if not s.mirror and gfx.damaged(s.x0+1,1,s.w,s.h)then
gfx.resetClip()
gfx.pushClip(s.x0+1,1,s.w,s.h)
local kw=s.app and kioskWin(s)
if Y.overlay.blank then gfx.fill(s.x0+1,1,s.w,s.h,0)
elseif kw and not kw.minimized then gfx.drawWallpaper();drawWin(kw)else drawLocked(s)end
gfx.popClip()
end
end
end
if Y.identifyUntil then gfx.resetClip();drawIdentify()end
local calls=gfx.flush()
Y.stats.lastFrameMs=(os.clock()-t0)*1000
Y.stats.lastRuns=calls
end




local lazyCache={}
function Y.openOverlay(o)
if Y.overlay and Y.overlay.close then pcall(Y.overlay.close,Y.overlay)end
Y.overlay=o
gfx.damageAll()
end
function Y.closeOverlay()
if Y.overlay and Y.overlay.close then pcall(Y.overlay.close,Y.overlay)end
Y.overlay=nil
for k in pairs(lazyCache)do lazyCache[k]=nil end
gfx.damageAll()
end


function Y.menu(x,y,items)
local t=Y.theme
local mw=10
for _,it in ipairs(items)do
if type(it)=="table"then mw=math.max(mw,unicode.len(it[1])+(it.key and unicode.len(it.key)+3 or 0)+7)end
end
local mh=#items

local s=regionAt(x)
local x0,sw,sh,top=0,W,H,3
if s and s~=SCR[1]then x0,sw,sh,top=s.x0,s.w,s.h,2 end
if x+mw>x0+sw then x=x0+sw-mw end
if y+mh>sh-1 then y=math.max(top,sh-mh-1)end
if y<top then y=top end
local o={kind="menu",sel=0}
local function activate(i)
local it=items[i]
if type(it)~="table"or it.disabled then return end
Y.closeOverlay()
if it[2]then local ok,e=pcall(it[2])if not ok then Y.notify("Error",e)end end
end
function o.draw()
ui.card(x,y,mw,mh,t.menu)
for i,it in ipairs(items)do
local yy=y+i-1
if it=="-"then
gfx.text(x+2,yy,string.rep("─",mw-4),t.sep,t.menu)
else
local bg=t.menu
if i==o.sel then bg=t.menuHi;ui.select(x+1,yy,mw-2,bg)end
local fg=it.disabled and t.dim or t.menuFg
if it.check~=nil then gfx.text(x+2,yy,it.check and"✓"or" ",t.accent,bg)end
gfx.text(x+4,yy,it[1],fg,bg)
if it.key then gfx.text(x+mw-unicode.len(it.key)-3,yy,it.key,t.dim,bg)end
o.hits[#o.hits+1]={x,yy,mw,1,function()activate(i)end}
end
end
end
function o.touch(_,px,py)
Y.closeOverlay()
return true
end
function o.key(_,char,code)
if code==K.esc then Y.closeOverlay()
elseif code==K.down or code==K.up then
local d=code==K.down and 1 or-1
for _=1,#items do
o.sel=(o.sel+d-1)%#items+1
if items[o.sel]~="-"and not items[o.sel].disabled then break end
end
gfx.damage(x,y-1,mw+1,mh+3)
elseif code==K.enter then activate(o.sel)end
end
Y.openOverlay(o)
return o
end


function Y.dialog(d)
local t=Y.theme
local lines={}
for l in((d.text or"").."\n"):gmatch("(.-)\n")do lines[#lines+1]=l end
local dw=math.max(40,unicode.len(d.title or"")+6)
for _,l in ipairs(lines)do dw=math.max(dw,unicode.len(l)+6)end
local s=Y.lastScr
if not s or s.mirror or not displayOf(s.addr)then s=SCR[1]end
local x0,sw,sh=0,W,H
if s and s~=SCR[1]then x0,sw,sh=s.x0,s.w,s.h end
dw=math.min(dw,sw-10)
local dh=5+#lines+(d.entry and 2 or 0)
local x,y=x0+(sw-dw)//2,(sh-dh)//2
local o={kind="dialog",field=d.entry and{text=d.entry,cur=unicode.len(d.entry)}}
local function press(b)
Y.closeOverlay()
if b and b[2]then local ok,e=pcall(b[2],o.field and o.field.text)if not ok then Y.notify("Error",e)end end
end
function o.draw()
if x0==0 then gfx.blend(1,2,W,H-1,0,0.5)else gfx.blend(x0+1,1,sw,sh,0,0.5)end
ui.card(x,y,dw,dh,t.menu)
local tt=d.title or""
gfx.text(x+(dw-unicode.len(tt))//2,y+1,tt,t.menuFg,t.menu)
for i,l in ipairs(lines)do gfx.text(x+(dw-unicode.len(l))//2,y+2+i,l,t.dim,t.menu)end
if o.field then ui.entry(nil,o.field,x+3,y+3+#lines,dw-6,true,nil,d.mask)end
local bw=(dw-4)//#d.buttons
for i,b in ipairs(d.buttons)do
local bx=x+2+(i-1)*bw
ui.button(nil,bx,y+dh-2,b[1],nil,b[3]or nil,bw-1)
o.hits[#o.hits+1]={bx,y+dh-2,bw-1,1,function()press(b)end}
end
end
function o.touch()return true end
function o.key(_,char,code)
if code==K.esc then press(d.cancel and{"",d.cancel})
elseif code==K.enter then
for _,b in ipairs(d.buttons)do if b[3]=="suggested"or b[3]=="destructive"then return press(b)end end
press(d.buttons[#d.buttons])
elseif o.field then ui.entryKey(o.field,char,code);gfx.damage(x,y-1,dw+1,dh+3)end
end
function o.paste(_,s)if o.field then ui.entryPaste(o.field,s);gfx.damage(x,y-1,dw+1,dh+3)end end
Y.openOverlay(o)
end

function Y.lazy(name)
local m=lazyCache[name]
if not m then
m=assert(loadfile("/usr/share/yaru/shell/"..name..".lua"))()
lazyCache[name]=m
end
return m
end


function Y.runFullscreen(cmd)
Y.paused=true
local term=require("term")
gfx.defaultPalette()
local wasPrecise=Y.precise
Y.setPrecise(false)
gpu.setBackground(0);gpu.setForeground(0xFFFFFF)
gpu.fill(1,1,W,H," ")
term.setCursor(1,1)
local ok,err=xpcall(require("shell").execute,debug.traceback,cmd)
if not ok or err==false then io.write("\n[process exited] ",tostring(err or""),"\n")end
io.write("\nPress any key to return to the desktop…")
event.pull("key_down")
Y.paused=false
gpu.setResolution(W,H)
gfx.setCustomPalette(Y.theme.palette,true)
Y.setPrecise(wasPrecise)
gfx.damageAll()
end


function Y.scanDrives()
local boot=computer.getBootAddress()
local tmp=computer.tmpAddress()
Y.drives={}
for proxy,path in fs.mounts()do
if path:match("^/mnt/[^/]+$")and proxy.address~=boot and proxy.address~=tmp then
local label=proxy.getLabel and proxy.getLabel()or nil
Y.drives[#Y.drives+1]={path=path,label=label or path:sub(6),address=proxy.address}
end
end
table.sort(Y.drives,function(a,b)return a.path<b.path end)
end


local drag
local lastClick={t=0,x=0,y=0}
local superTap

local function dockTouch(x,y,btn)
for _,it in ipairs(dockItems)do
if y>=it.y and y<=it.y+3 then
if it.kind=="grid"then
Y.lazy("overview").open("apps")
elseif it.kind=="app"then
local wins=Y.windowsOf(it.id)
if btn==1 then
local fav=false
for _,f in ipairs(Y.cfg.favorites)do if f==it.id then fav=true end end
local items={{"New Window",function()Y.launch(it.id)end}}
if#wins>0 then items[#items+1]={"Quit",function()for _,w in ipairs(wins)do Y.closeWin(w)end end}end
items[#items+1]="-"
items[#items+1]={fav and"Unpin"or"Pin to Dash",function()
if fav then
for i,f in ipairs(Y.cfg.favorites)do if f==it.id then table.remove(Y.cfg.favorites,i)break end end
else table.insert(Y.cfg.favorites,it.id)end
Y.saveConfig();Y.dockDirty()
end}
Y.menu(DOCK+1,it.y,items)
elseif#wins==0 then
Y.launch(it.id)
else
local top
for _,w in ipairs(Y.windows)do if w.app==it.id then top=w end end
if Y.focus and Y.focus.app==it.id and Y.cfg.dockClickMinimize then
for _,w in ipairs(wins)do if not w.minimized then Y.minimize(w)end end
else
for _,w in ipairs(wins)do if w.minimized and w~=top then w.minimized=false;winDamage(w)end end
Y.focusWin(top)
end
end
elseif it.kind=="drive"then
if btn==1 then
Y.menu(DOCK+1,it.y,{{"Open",function()Y.launch("files",it.id)end},
{"Eject",function()fs.umount(it.id);Y.scanDrives();gfx.damageAll();Y.notify("Drive ejected",it.label.." can be removed safely")end}})
else Y.launch("files",it.id)end
elseif it.kind=="trash"then
Y.launch("files","trash://")
end
return
end
end
end

local function hitList(hits,x,y,btn,...)
for i=#hits,1,-1 do
local h=hits[i]
if x>=h[1]and x<h[1]+h[3]and y>=h[2]and y<h[2]+h[4]and(h[6]==nil or h[6]==btn)then
return true,h[5](...)
end
end
return false
end

local function winAt(x,y,scr)
local onApp=scr and scr.app
for i=#Y.windows,1,-1 do
local w=Y.windows[i]
if w.ws==Y.ws and not w.minimized and x>=w.x and x<w.x+w.w and y>=w.y and y<w.y+w.h
and(onApp and w.kiosk==scr.addr or not onApp and not w.kiosk)then return w end
end
end


local function normals()
local l={}
for _,s in ipairs(SCR)do if not s.mirror and not s.app then l[#l+1]=s end end
return l
end
Y.normalDisplays=normals



function Y.moveToScreen(w,s)
if w.kiosk or not s or s.mirror or s.app then return end
local from=winScreen(w)
if from==s then return end
winDamage(w)
local m,r=w.maxState,w.restore
if m then w.maxState,w.restore=nil,nil;if r then w.x,w.y,w.w,w.h=table.unpack(r)end end
local fax,fay=workArea(from)
local ax,ay,aw,ah=workArea(s)
w.w,w.h=math.min(w.w,aw),math.min(w.h,ah)
w.x=ax+math.max(0,math.min(aw-w.w,w.x-fax))
w.y=ay+math.max(1,math.min(ah-w.h,w.y-fay))
w.ws=Y.ws
clampWin(w)
if m then Y.maximize(w,m)end
if w.resized then pcall(w.resized,w)end
Y.lastScr=s
Y.focusWin(w)
gfx.damageAll()
end

local function onTouch(x,y,btn,scr)
scr=scr or SCR[1]
local primary=scr==SCR[1]

local o=Y.overlay
if o then
if hitList(o.hits or{},x,y,btn,o,x,y,btn)then gfx.damageAll()return end
if o.touch and o.touch(o,x,y,btn)then return end
end
if Y.toasts[1]and Y.toastRect then
local r=Y.toastRect
if x>=r[1]and x<r[1]+r[3]and y>=r[2]and y<r[2]+r[4]then
local n=Y.toasts[1]
Y.toasts={}
gfx.damage(W//2-30,2,62,7)
if n.action and not(y==r[2]and x>=r[1]+r[3]-3)then pcall(n.action)end
return
end
end
if Y.overlay and Y.overlay.kind=="lock"then return end
if primary and y==1 then
for _,h in ipairs(panelHits)do
if x>=h[1]and x<=h[2]then
if h[3]=="activities"then Y.lazy("overview").open("windows")
elseif h[3]=="calendar"then Y.lazy("calendar").open()
elseif h[3]=="quick"then Y.lazy("quick").open()end
return
end
end
return
end
if primary and x<=DOCK then return dockTouch(x,y,btn)end
local w=winAt(x,y,scr)
if not w and scr.app then
local kw=kioskWin(scr)
if kw then kw.minimized=false;Y.focusWin(kw)else Y.kioskClosed[scr.addr]=nil;Y.placeKiosk(scr,true)end
gfx.damageAll()
return
end
if not w then

for _,it in ipairs(deskItems)do
if x>=it[1]and x<it[1]+it[3]and y>=it[2]and y<it[2]+it[4]then
if it[5]=="home"then return Y.launch("files","/home")
elseif it[5]=="trash"then return Y.launch("files","trash://")
else return Y.launch("files",it[6])end
end
end
if btn==1 then
Y.menu(x,y,{
{"New Folder",function()Y.launch("files","/home","newfolder")end},
"-",
{"Open in Terminal",function()Y.launch("terminal")end},
{"Change Background…",function()Y.launch("settings","appearance")end},
{"Display Settings",function()Y.launch("settings","display")end},
{"Settings",function()Y.launch("settings")end},
})
end
return
end
if Y.focus~=w then Y.focusWin(w)end
local lx,ly=x-w.x+1,y-w.y
if ly==0 then

local rx=x-(w.x+w.w-10)
if rx>=6 and rx<=8 then return Y.closeWin(w)end
if not w.fixed and rx>=3 and rx<=5 then return Y.maximize(w)end
if not w.fixed and rx>=0 and rx<=2 then return Y.minimize(w)end
if hitList(w.hhits,lx,1,btn,w,lx,1,btn)then winDamage(w)return end
local tnow=computer.uptime()
if btn==0 and tnow-lastClick.t<0.4 and lastClick.y==y then lastClick.t=0;return Y.maximize(w)end
lastClick.t,lastClick.y=tnow,y
if btn==1 then
if w.kiosk then return Y.menu(x,y+1,{{"Close",function()Y.closeWin(w)end,key="Alt+F4"}})end
local items={
{"Minimize",function()Y.minimize(w)end},
{w.maxState and"Unmaximize"or"Maximize",function()Y.maximize(w)end},
"-",
{"Always on Visible Workspace",function()w.sticky=not w.sticky end,check=w.sticky},
{"Move to Workspace Right",function()if w.ws<Y.wsCount then w.ws=w.ws+1;Y.focusWin(topWindow());gfx.damageAll()end end},
{"Move to Workspace Left",function()if w.ws>1 then w.ws=w.ws-1;Y.focusWin(topWindow());gfx.damageAll()end end},
}
local ns=normals()
if#ns>1 then
items[#items+1]="-"
local cur=winScreen(w)
for _,d in ipairs(ns)do
if d~=cur then items[#items+1]={"Move to Display "..d.n,function()Y.moveToScreen(w,d)end,key=d==SCR[1]and"main"or nil}end
end
end
items[#items+1]="-"
items[#items+1]={"Close",function()Y.closeWin(w)end,key="Alt+F4"}
return Y.menu(x,y+1,items)
end
if btn==0 and not w.kiosk then drag={win=w,mode="move",dx=x-w.x,dy=y-w.y}end
return
end
if not w.maxState and not w.fixed and x>=w.x+w.w-2 and y==w.y+w.h-1 then
drag={win=w,mode="resize"}
return
end

local tnow=computer.uptime()
local dbl=tnow-lastClick.t<0.4 and lastClick.x==x and lastClick.y==y
lastClick.t,lastClick.x,lastClick.y=dbl and 0 or tnow,x,y
local hit,r=hitList(w.hits,lx,ly,btn,w,lx,ly,btn,dbl)
if hit then winDamage(w)if r=="focus"then w.focusField=true end return end
if w.touch then pcall(w.touch,w,lx,ly,btn,"touch",dbl);winDamage(w)end
end

local function onDrag(x,y,btn,scr)
if drag then
local w=drag.win
winDamage(w)
if drag.mode=="move"then
if w.maxState then
local rw=w.restore and w.restore[3]or w.w
Y.maximize(w,"restore")
drag.dx=math.min(drag.dx,rw-10)
end
local ox,oy=w.x,w.y
local _,ay=workArea(scr)
w.x,w.y=x-drag.dx,math.max(ay+1,y-drag.dy)

if not Y.overlay and Y.windows[#Y.windows]==w and not w.maxState then
gfx.moveHint(ox,oy-1,w.w+1,w.h+3,w.x-ox,w.y-oy)
end
else
w.w,w.h=math.max(w.minW or 20,x-w.x+1),math.max(w.minH or 6,y-w.y+1)
if w.resized then pcall(w.resized,w)end
end
winDamage(w)
return
end
local w=Y.focus
if w and w.touch and w.ws==Y.ws and not w.minimized then
pcall(w.touch,w,x-w.x+1,y-w.y,btn,"drag");winDamage(w)
end
end

local function onDrop(x,y,btn,scr)
if drag then
local w=drag.win
if drag.mode=="move"then

local ax,ay,aw=workArea(scr)
if y<=ay and w.y<=ay then Y.maximize(w,"max")
elseif x<=ax then Y.maximize(w,"left")
elseif x>=ax+aw-1 then Y.maximize(w,"right")end
end
clampWin(w)
gfx.damageAll()
drag=nil
return
end
local w=Y.focus
if w and w.touch then pcall(w.touch,w,x-w.x+1,y-w.y,btn,"drop");winDamage(w)end
end

local function onScroll(x,y,dir,scr)
local o=Y.overlay
if o then if o.scroll then o.scroll(o,x,y,dir)end return end
if(scr or SCR[1])==SCR[1]and y==1 and x<12 then return Y.switchWs(Y.ws-dir)end
local w=winAt(x,y,scr)
if w and w.scroll then pcall(w.scroll,w,x-w.x+1,y-w.y,dir);winDamage(w)end
end

function Y.screenshot()
local rows=gfx.dump()
local dir="/home/Pictures"
fs.makeDirectory(dir)
local name=fs.concat(dir,"Screenshot "..Y.date("%Y-%m-%d %H-%M-%S")..".txt")
local f=io.open(name,"w")
if f then f:write(table.concat(rows,"\n"));f:close()end
Y.notify("Screenshot captured","Saved to "..name,{action=function()Y.launch("editor",name)end,actionLabel="Open"})
end

local function cycleWs(d,move)
local n=Y.ws+d
if n<1 or n>Y.wsCount then return end
if move and Y.focus then Y.focus.ws=n end
Y.switchWs(n)
end

local function globalKey(char,code)
local c,a,s,sup=ctrl(),alt(),shift(),super()
if sup and code~=K.lsuper and code~=K.rsuper then superTap=false end
if code==K.sysrq then Y.screenshot()return true end
if c and a and code==K.t then Y.launch("terminal")return true end
if c and a and code==K.del then Y.lazy("quick").powerDialog()return true end
if(c and a and(code==K.left or code==K.right))or(sup and(code==K.pgup or code==K.pgdn))then
cycleWs((code==K.left or code==K.pgup)and-1 or 1,s)return true
end
if c and a and code==K.d or sup and code==K.d then
local any=false
for _,w in ipairs(Y.windows)do if w.ws==Y.ws and not w.minimized then any=true end end
for _,w in ipairs(Y.windows)do if w.ws==Y.ws then w.minimized=any end end
Y.focus=nil
if not any then Y.focusWin(topWindow())end
gfx.damageAll()
return true
end
if a and code==K.f4 then if Y.focus then Y.closeWin(Y.focus)end return true end
if a and code==K.f10 then if Y.focus then Y.maximize(Y.focus)end return true end
if a and code==K.f1 then Y.lazy("overview").open("windows")return true end
if a and code==K.f2 then Y.lazy("overview").open("run")return true end
if(a or sup)and code==K.tab then Y.lazy("switcher").open(s and-1 or 1)return true end
if c and code==K.tab and not a then Y.lazy("switcher").open(s and-1 or 1)return true end
if sup and s and(code==K.left or code==K.right)and Y.focus then
local ns,cur=normals(),winScreen(Y.focus)
for i,d in ipairs(ns)do
if d==cur then
local t=ns[i+(code==K.left and-1 or 1)]
if t then Y.moveToScreen(Y.focus,t)end
break
end
end
return true
end
if sup then
if code==K.up and Y.focus then Y.maximize(Y.focus,"max")return true end
if code==K.down and Y.focus then if Y.focus.maxState then Y.maximize(Y.focus,"restore")else Y.minimize(Y.focus)end return true end
if code==K.left and Y.focus then Y.maximize(Y.focus,"left")return true end
if code==K.right and Y.focus then Y.maximize(Y.focus,"right")return true end
if code==K.h and Y.focus then Y.minimize(Y.focus)return true end
if code==K.a then Y.lazy("overview").open("apps")return true end
if code==K.e then Y.launch("files","/home")return true end
if code==K.l then Y.lazy("lock").open(Y.cfg.password~=nil)return true end
if code==K.v then Y.lazy("calendar").open()return true end
if code==K.s then Y.lazy("quick").open()return true end
if code==K.t then Y.launch("terminal")return true end
end
end

local function onKey(char,code,down)
mods[code]=down or nil
if not down then
if(code==K.lsuper or code==K.rsuper)and superTap and not(Y.overlay and Y.overlay.kind=="lock")then
superTap=false
if Y.overlay and Y.overlay.kind=="overview"then Y.closeOverlay()else Y.lazy("overview").open("windows")end
end
if Y.overlay and Y.overlay.keyUp then Y.overlay.keyUp(Y.overlay,char,code)end
if Y.focus and Y.focus.keyUp and not Y.overlay then pcall(Y.focus.keyUp,Y.focus,char,code)end
return
end
Y.lastInput=computer.uptime()
if code==K.lsuper or code==K.rsuper then superTap=true return end
local o=Y.overlay
if o and o.kind=="lock"then return o.key(o,char,code)end
if globalKey(char,code)then return end
if o then if o.key then o.key(o,char,code)end return end
local w=Y.focus
if w and w.key and not w.minimized then
local ok,err=pcall(w.key,w,char,code)
if not ok then Y.notify("Application error",err)end
winDamage(w)
end
end

local INPUT={key_down=1,key_up=1,touch=1,drag=1,drop=1,scroll=1,clipboard=1}

local function handle(name,a1,a2,a3,a4,a5,...)
if INPUT[name]and a1~=kbAddr and not inputs[a1]then return end

if not INPUT[name]then
for _,w in ipairs(Y.windows)do
if w.onSignal then local ok=pcall(w.onSignal,name,a1,a2,a3,a4,a5,...)if ok then winDamage(w)end end
end
end
if name=="touch"or name=="drag"or name=="drop"or name=="scroll"then
if Y.precise and(math.type(a2)=="float"or math.type(a3)=="float")then

Y.touchFrac=a3-math.floor(a3)
a2,a3=math.floor(a2)+1,math.floor(a3)+1
else
Y.touchFrac=nil
end


if name=="drag"and not(Y.focus and Y.focus.precise)then
local k=math.floor(a2)*1000+math.floor(a3)
if k==Y.lastDragCell then return end
Y.lastDragCell=k
elseif name=="touch"or name=="drop"then Y.lastDragCell=nil end


local d=inputs[a1]
if type(d)~="table"or d.mirror then d=SCR[1]end
a2=math.floor(a2)+(d and d.x0 or 0)
if name=="touch"then Y.lastScr=d end
a1=d
end
if name=="touch"then Y.lastInput=computer.uptime()onTouch(a2,math.floor(a3),a4,a1)
elseif name=="drag"then onDrag(a2,math.floor(a3),a4,a1)
elseif name=="drop"then onDrop(a2,math.floor(a3),a4,a1)
elseif name=="scroll"then onScroll(a2,math.floor(a3),a4,a1)
elseif name=="key_down"then onKey(a2,a3,true)
elseif name=="key_up"then onKey(a2,a3,false)
elseif name=="clipboard"then
local o=Y.overlay
if o and o.paste then o.paste(o,a2)
elseif Y.focus and Y.focus.paste then pcall(Y.focus.paste,Y.focus,a2);winDamage(Y.focus)end
elseif(name=="component_added"or name=="component_removed")and(a2=="screen"or a2=="gpu")then
Y.displaysChanged(name=="component_added",a1,a2)
elseif name=="component_added"or name=="component_removed"then
if a2=="filesystem"then
local before=#(Y.drives or{})
Y.scanDrives()
gfx.damageAll()
if name=="component_added"and#Y.drives>before then
local d=Y.drives[#Y.drives]
for _,dd in ipairs(Y.drives)do if dd.address==a1 then d=dd end end
Y.notify("Drive connected",d.label.." mounted at "..d.path,{action=function()Y.launch("files",d.path)end,actionLabel="Open"})
end
elseif name=="component_added"and a2~="filesystem"then
Y.notify("New device",a2 .." "..a1:sub(1,8))
end
elseif name=="screen_resized"and a1==screenAddr then
local w,h=gpu.getResolution()
if w~=W or h~=H then Y.setResolution(w,h,true)end
elseif name=="yaru_notify"then Y.notify(a1,a2)
elseif name=="yaru_open"then Y.launch(a1,a2)
elseif name=="yaru_call"and type(a1)=="function"then a1()
elseif name=="yaru_clipboard"then Y.clipboard=a1 or""
end
end

function Y.setResolution(w,h,already)
if not already then gpu.setResolution(w,h)end
W,H=gpu.getResolution()
Y.setupDisplays()
end
function Y.size()return W,H,DOCK end
function Y.canvas()return CW,CH end










Y.kioskClosed={}


function Y.screenList()
local d=Y.cfg.displays or{}
local l={}
for a in component.list("screen",true)do if a~=screenAddr then l[#l+1]=a end end
table.sort(l,function(a,b)
local oa,ob=d[a]and d[a].order or 99,d[b]and d[b].order or 99
if oa~=ob then return oa<ob end
return a<b
end)
return l
end


function Y.placeKiosk(s,launch)
local w=kioskWin(s)
if not w and launch and not Y.kioskClosed[s.addr]then
local before={}
for _,o in ipairs(Y.windows)do before[o]=true end
local ls=Y.lastScr
Y.lastScr=nil
Y.launch(s.app)
Y.lastScr=ls
for _,o in ipairs(Y.windows)do if not before[o]and o.app==s.app then w=o end end

if not w then for _,o in ipairs(Y.windows)do if o.app==s.app and not o.kiosk then w=o end end end
if w then w.kiosk,w.fixed0=s.addr,w.fixed or false end
end
if not w then return end
w.x,w.y,w.w,w.h=s.x0+1,1,s.w,s.h
w.maxState,w.restore,w.fixed,w.ws="kiosk",nil,true,Y.ws
if w.resized then pcall(w.resized,w)end
return w
end

function Y.setupDisplays()
local cfg=Y.cfg.displays or{}
Y.cfg.displays=cfg

for _,w in ipairs(Y.windows)do
local s=SCR[1]and winScreen(w)
if s then w.scr0,w.dx0=s.addr,w.x-s.x0 end
end
local list={{addr=screenAddr,gpu=gpu,w=W,h=H,x0=0,role="main",n=1,depth=gpu.getDepth()}}
local spare={}
for a in component.list("gpu",true)do if a~=gpu.address then spare[#spare+1]=a end end
table.sort(spare)

local free=computer.freeMemory()-96*1024
for i=2,#SCR do free=free+SCR[i].w*SCR[i].h*(SCR[i].mirror and 1 or 2)*40 end
Y.displayInfo={}
for n,a in ipairs(Y.screenList())do
local c=cfg[a]or{}
local role=c.role or"off"
if role=="app"and not(c.app and Y.apps[c.app])then role="off"end
local info={addr=a,n=n+1,role=role}
Y.displayInfo[#Y.displayInfo+1]=info
if role~="off"then

local g,p,shared
for i,ga in ipairs(spare)do if ga==c.gpu then g=table.remove(spare,i)break end end
g=g or table.remove(spare,1)
if g then p=component.proxy(g)end
local ok=true
if p then
if p.getScreen()~=a then ok=pcall(p.bind,a)end
c.gpu=g
else
p,shared=gpu,true
ok=pcall(gpu.bind,a,false)
end
if ok then
local mw,mh=p.maxResolution()
local tw,th=mw,mh
if role=="mirror"then tw,th=math.min(mw,W),math.min(mh,H)
elseif c.res then tw,th=math.min(mw,c.res[1]),math.min(mh,c.res[2])end
local rw,rh=p.getResolution()
if rw~=tw or rh~=th then pcall(p.setResolution,tw,th)end
rw,rh=p.getResolution()
info.w,info.h,info.maxW,info.maxH,info.depth,info.shared=rw,rh,mw,mh,p.getDepth(),shared
if shared then pcall(gpu.bind,screenAddr,false)end

local need=rw*rh*(role=="mirror"and 1 or 2)*40
if rw<30 or rh<10 then info.problem="screen too small ("..rw.."x"..rh..")"
elseif need>free then info.problem="not enough memory ("..need//1024 .." KB)"
else
free=free-need
list[#list+1]={addr=a,gpu=p,shared=shared,w=rw,h=rh,role=role,n=n+1,
mirror=role=="mirror"or nil,app=role=="app"and c.app or nil,depth=info.depth}
end
else
info.problem="no GPU can drive it"
end
end
end

local x=W
CH=H
local order={list[1]}
for pass=1,2 do
for i=2,#list do
local s=list[i]
if(pass==1 and s.role=="extend")or(pass==2 and s.role=="app")then
s.x0,x=x,x+s.w
if s.h>CH then CH=s.h end
order[#order+1]=s
end
end
end
for i=2,#list do if list[i].mirror then list[i].x0=0;order[#order+1]=list[i]end end
CW=x
SCR=order
Y.displays=SCR
appX,lastNormal=CW,SCR[1]
for _,s in ipairs(SCR)do
if s.app and s.x0<appX then appX=s.x0 end
if not s.app and not s.mirror then lastNormal=s end
end
inputs={}
for _,s in ipairs(SCR)do
inputs[s.addr]=s
local ok,kbs=pcall(component.invoke,s.addr,"getKeyboards")
if ok and type(kbs)=="table"then for _,k in ipairs(kbs)do inputs[k]=true end end
end
if kbAddr then inputs[kbAddr]=true end
local outs={}
for _,s in ipairs(SCR)do outs[#outs+1]={gpu=s.gpu,addr=s.addr,src=s.x0,w=s.w,h=s.h,bind=s.shared}end
gfx.setOutputs(outs,CW,CH)
Y.applyTheme()
if Y.precise then Y.precise=nil;Y.setPrecise(true)end

for _,w in ipairs(Y.windows)do
if w.kiosk then
local s=displayOf(w.kiosk)
if not(s and s.app==w.app)then
w.kiosk,w.fixed,w.maxState=nil,w.fixed0,nil
w.x,w.y=DOCK+3,3
end
elseif w.scr0 then
local s=displayOf(w.scr0)
if s and not s.mirror and not s.app then w.x=s.x0+w.dx0
elseif w.scr0~=screenAddr then w.x=DOCK+3+math.max(0,math.min(w.dx0,W-DOCK-10))end
end
w.scr0,w.dx0=nil,nil
if not w.kiosk then
if w.maxState then local m,r=w.maxState,w.restore;w.maxState=nil;Y.maximize(w,m);w.restore=r end
clampWin(w)
if w.resized then pcall(w.resized,w)end
end
end
if Y.running then for _,s in ipairs(SCR)do if s.app then Y.placeKiosk(s,true)end end end
if Y.lastScr and not displayOf(Y.lastScr.addr)then Y.lastScr=nil end
gfx.damageAll()
end



local function offerScreen(addr)
Y.notify("New display connected","Extend the desktop to it, or choose a role in Settings › Displays",
{action=function()Y.setDisplayRole(addr,"extend")end,actionLabel="Extend",timeout=15})
end
function Y.displaysChanged(added,addr,kind)
Y.displaysDirty=computer.uptime()+0.3
if added and kind=="screen"and addr~=screenAddr and not(Y.cfg.displays or{})[addr]then offerScreen(addr)end
end


function Y.setDisplayRole(addr,role,app)
local c=Y.cfg.displays[addr]or{}
Y.cfg.displays[addr]=c
c.role,c.app=role,app or(role=="app"and c.app)or nil
if role=="app"then Y.kioskClosed[addr]=nil end

for _,w in ipairs(Y.windows)do if w.kiosk==addr and(role~="app"or w.app~=c.app)then
w.kiosk,w.fixed,w.maxState=nil,w.fixed0,nil
w.x,w.y=DOCK+3,3
end end
Y.saveConfig()
Y.setupDisplays()
end


function Y.identify()
Y.identifyUntil=computer.uptime()+3
gfx.damageAll()
end


local function nextTimeout()
local up=computer.uptime()
local t=Y.cfg.clockSeconds and 1 or(60-now()%60)
local n=Y.toasts[1]
if n and n.expires then t=math.min(t,math.max(0,n.expires-up))end
for _,w in ipairs(Y.windows)do
if w.tickInterval and not w.minimized then t=math.min(t,math.max(0,(w.nextTick or 0)-up))end
end
local o=Y.overlay
if o and o.tick then t=math.min(t,math.max(0,(o.nextTick or 0)-up))end
if Y.identifyUntil then t=math.min(t,math.max(0,Y.identifyUntil-up))end
if Y.displaysDirty then t=math.min(t,math.max(0,Y.displaysDirty-up))end
return math.max(0.05,t)
end

local lastMinute
local function periodic()
local up=computer.uptime()
if Y.identifyUntil and up>=Y.identifyUntil then Y.identifyUntil=nil;gfx.damageAll()end
if Y.displaysDirty and up>=Y.displaysDirty then Y.displaysDirty=nil;Y.setupDisplays()end
local n=Y.toasts[1]
if n and n.expires and up>=n.expires then
Y.toasts={}
gfx.damage(W//2-30,2,62,7)
end
local m=Y.cfg.clockSeconds and now()or now()//60
if m~=lastMinute then
lastMinute=m;gfx.damage(1,1,W,1)

if fs.exists("/etc/yaru-tasks.cfg")then pcall(require("yaru.tasks").tick,Y)end
end
for _,w in ipairs(Y.windows)do
if w.tickInterval and not w.minimized and up>=(w.nextTick or 0)then
w.nextTick=up+w.tickInterval
pcall(w.tick,w)
Y.breathe()
end
end

local total=computer.totalMemory()
if total>0 and computer.freeMemory()<total*0.08 then
if collectgarbage then collectgarbage()end
if computer.freeMemory()<total*0.08 then Y.relieveMemory()end
end
local o=Y.overlay
if o and o.tick and up>=(o.nextTick or 0)then o.nextTick=up+(o.tickInterval or 0.5);o.tick(o)end
if Y.cfg.blank and Y.cfg.blank>0 and up-(Y.lastInput or up)>Y.cfg.blank*60 and not(Y.overlay and Y.overlay.kind=="lock")then
Y.lazy("lock").open(Y.cfg.password~=nil,true)
end
end

function Y.run(opts)
opts=opts or{}
Y.loadConfig()
gpu=component.gpu
screenAddr=gpu.getScreen()
Y.precise=false
kbAddr=component.isAvailable("keyboard")and component.keyboard.address or""
Y.screenAddr,Y.kbAddr,Y.gpu=screenAddr,kbAddr,gpu
if Y.cfg.resolution then pcall(gpu.setResolution,Y.cfg.resolution[1],Y.cfg.resolution[2])end
W,H=gpu.getResolution()
if W<50 or H<16 then error("screen too small for the desktop (need a tier 2+ screen and GPU)")end
if gpu.getDepth()<4 then error("the desktop needs a tier 2+ GPU and screen (colour)")end
Y.registerApps()
Y.setupDisplays()
Y.scanDrives()
Y.running=true
for _,s in ipairs(SCR)do if s.app then Y.placeKiosk(s,true)end end

for _,info in ipairs(Y.displayInfo or{})do if not Y.cfg.displays[info.addr]then offerScreen(info.addr)break end end
Y.lastInput=computer.uptime()

event.interruptHook=function()
local p=require("process").findProcess()
local id=p and p.data.yaruTerm
return id~=nil and Y.focus~=nil and Y.focus.termId==id
end
if not opts.nologin and not(Y.cfg.autologin and not Y.cfg.password)then Y.lazy("lock").open(Y.cfg.password~=nil,false,true)end
Y.render()
if opts.onStarted then pcall(opts.onStarted)end
if fs.exists("/etc/yaru-tasks.cfg")then pcall(require("yaru.tasks").tick,Y,true)end
while Y.running do
local sig
if Y.pending[1]then sig=table.remove(Y.pending,1)
else
sig=table.pack(event.pull(nextTimeout()))
Y.markYield()
end
if sig[1]then
local ok,err=xpcall(handle,debug.traceback,table.unpack(sig,1,sig.n))
if not ok then pcall(Y.notify,"Shell error",tostring(err):match("[^\n]*"));pcall(event.onError,err)end
end
periodic()
Y.breathe()
local ok,err=xpcall(Y.render,debug.traceback)
if not ok then pcall(event.onError,err);gfx.invalidate()end
end

for i=#Y.windows,1,-1 do Y.closeWin(Y.windows[i],true)end
event.interruptHook=nil
Y.overlay=nil
Y.setPrecise(false)
gfx.defaultPalette()

for i=#SCR,2,-1 do
local s=SCR[i]
pcall(function()
if s.shared then s.gpu.bind(s.addr,false)end
s.gpu.setBackground(0);s.gpu.fill(1,1,s.w,s.h," ")
if s.shared then s.gpu.bind(screenAddr,false)end
end)
end
gpu.setBackground(0);gpu.setForeground(0xFFFFFF)
gpu.fill(1,1,W,H," ")
require("term").setCursor(1,1)
return Y.exitAction
end

function Y.quit(action)Y.exitAction=action;Y.running=false end

return Y
F 16513 /lib/yaru/gfx.lua













local unicode=require("unicode")
local ubyte,uchar,sort,concat=string.byte,unicode.char,table.sort,table.concat

local gfx={}
local gpu
local W,H=0,0
local back={}





local outs={}
local boundTo={}

local pal,palIdx,palN={},{},0
local ox,oy=0,0
local cx1,cy1,cx2,cy2=1,1,0,0
local dmg={x1=1,y1=1,x2=0,y2=0}
local hints={}
local clipStack={}
gfx.stats={frames=0,set=0,fill=0,copy=0,fg=0,bg=0,cells=0,binds=0}



local function use(o)
if o.addr then
local ga=o.gpu.address
if boundTo[ga]~=o.addr then
o.gpu.bind(o.addr,false)
boundTo[ga]=o.addr
gfx.stats.binds=gfx.stats.binds+1
end
end
return o.gpu
end


local function goHome()
for _,o in ipairs(outs)do
if not o.bind and o.addr then
local ga=o.gpu.address
if boundTo[ga]~=o.addr then o.gpu.bind(o.addr,false);boundTo[ga]=o.addr;gfx.stats.binds=gfx.stats.binds+1 end
end
end
end






local function delta(a,b)
local dr,dg,db=(a>>16)-(b>>16),((a>>8)&255)-((b>>8)&255),(a&255)-(b&255)
return 0.2126*dr*dr+0.7152*dg*dg+0.0722*db*db
end
for i=0,15 do pal[i]=(i+1)*0x0F0F0F end
for r=0,5 do for g=0,7 do for b=0,4 do
pal[16+r*40+g*5+b]=(r*51)<<16|((g*255+3)//7)<<8|((b*255+2)//4)
end end end
palN=256

local function color(rgb)
local i=palIdx[rgb]
if i then return i end
local best,bd=0,math.huge
for k=0,15 do local d=delta(pal[k],rgb)if d<bd then best,bd=k,d end end
local r=((rgb>>16)*5+127)//255
local g=(((rgb>>8)&255)*7+127)//255
local b=((rgb&255)*4+127)//255
local ci=16+r*40+g*5+b
if delta(pal[ci],rgb)<bd then best=ci end
palIdx[rgb]=best
return best
end
gfx.color=color
function gfx.rgb(i)return pal[i]end
function gfx.snap(rgb)return pal[color(rgb)]end

local blendCache={}



local function writePalette(idx)
if#idx==0 then return end
for _,o in ipairs(outs)do
local g=use(o)
for _,i in ipairs(idx)do g.setPaletteColor(i,pal[i])end
end
goHome()
end
local ALL16={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}
function gfx.setCustomPalette(list,force)
local changed={}
for i=0,15 do
local c=list[i+1]or(i+1)*0x0F0F0F
if force or pal[i]~=c then pal[i]=c;changed[#changed+1]=i end
end
writePalette(changed)
palIdx={}
blendCache={}
if gpu then gfx.invalidate()end
end
function gfx.defaultPalette()
for i=0,15 do pal[i]=(i+1)*0x0F0F0F end
writePalette(ALL16)
palIdx={}
blendCache={}
end



function gfx.setOutputs(list,cw,ch)
local old={}
for _,o in ipairs(outs)do old[o.addr or 1]=true end
outs,gpu,W,H=list,list[1].gpu,cw,ch
boundTo={}
for _,o in ipairs(outs)do
o.src=o.src or 0
local f={}
for i=1,o.w*o.h do f[i]=-1 end
o.front=f
if not o.bind and o.addr and o.gpu.address then boundTo[o.gpu.address]=o.addr end
end
back=nil
back={}
local blank=32|(color(0xFFFFFF)<<21)|(color(0)<<29)
for i=1,W*H do back[i]=blank end

for _,o in ipairs(outs)do
if not old[o.addr or 1]then local g=use(o)for i=0,15 do g.setPaletteColor(i,pal[i])end end
end
goHome()
gfx.resetClip()
gfx.damageAll()
end
function gfx.init(g,w,h)gfx.setOutputs({{gpu=g,w=w,h=h}},w,h)end
function gfx.outputs()return outs end
function gfx.size()return W,H end


function gfx.resetClip()ox,oy=0,0;cx1,cy1,cx2,cy2=dmg.x1,dmg.y1,dmg.x2,dmg.y2 end
function gfx.origin(x,y)ox,oy=x,y end
function gfx.getOrigin()return ox,oy end
function gfx.pushClip(x,y,w,h)
clipStack[#clipStack+1]={cx1,cy1,cx2,cy2,ox,oy}
x,y=x+ox,y+oy
if x>cx1 then cx1=x end
if y>cy1 then cy1=y end
if x+w-1<cx2 then cx2=x+w-1 end
if y+h-1<cy2 then cy2=y+h-1 end
return cx1<=cx2 and cy1<=cy2
end
function gfx.popClip()
local c=table.remove(clipStack)
cx1,cy1,cx2,cy2,ox,oy=c[1],c[2],c[3],c[4],c[5],c[6]
end
function gfx.visible(x,y,w,h)
x,y=x+ox,y+oy
return x<=cx2 and y<=cy2 and x+w-1>=cx1 and y+h-1>=cy1
end


function gfx.damage(x,y,w,h)
if w<=0 or h<=0 then return end
local x2,y2=x+w-1,y+h-1
if x<1 then x=1 end
if y<1 then y=1 end
if x2>W then x2=W end
if y2>H then y2=H end
if x>x2 or y>y2 then return end
if dmg.x1>dmg.x2 then
dmg.x1,dmg.y1,dmg.x2,dmg.y2=x,y,x2,y2
else
if x<dmg.x1 then dmg.x1=x end
if y<dmg.y1 then dmg.y1=y end
if x2>dmg.x2 then dmg.x2=x2 end
if y2>dmg.y2 then dmg.y2=y2 end
end
end
function gfx.damageAll()dmg.x1,dmg.y1,dmg.x2,dmg.y2=1,1,W,H end
function gfx.isDamaged()return dmg.x1<=dmg.x2 end
function gfx.damaged(x,y,w,h)
return x<=dmg.x2 and y<=dmg.y2 and x+w-1>=dmg.x1 and y+h-1>=dmg.y1
end
function gfx.invalidate()
for _,o in ipairs(outs)do local f=o.front for i=1,o.w*o.h do f[i]=-1 end end
gfx.damageAll()
end


function gfx.fill(x,y,w,h,bg,fg,ch)
x,y=x+ox,y+oy
local x2,y2=x+w-1,y+h-1
if x<cx1 then x=cx1 end
if y<cy1 then y=cy1 end
if x2>cx2 then x2=cx2 end
if y2>cy2 then y2=cy2 end
if x>x2 or y>y2 then return end
local v=(ch and utf8.codepoint(ch)or 32)|(color(fg or 0xFFFFFF)<<21)|(color(bg)<<29)
for yy=y,y2 do
local base=(yy-1)*W
for i=base+x,base+x2 do back[i]=v end
end
end


function gfx.text(x,y,s,fg,bg)
y=y+oy
if y<cy1 or y>cy2 then return end
x=x+ox
if x>cx2 then return end
local fgk=color(fg)<<21
local bgk=bg and(color(bg)<<29)
local base=(y-1)*W
local ascii=not s:find("[\128-\255]")
local n=ascii and#s or unicode.len(s)
if x+n-1<cx1 then return end
local i0=1
if x<cx1 then i0=cx1-x+1 end
local last=n
if x+n-1>cx2 then last=cx2-x+1 end
if ascii then
for i=i0,last do
local idx=base+x+i-1
back[idx]=ubyte(s,i)|fgk|(bgk or(back[idx]&(255<<29)))
end
else
local i=0
for _,cp in utf8.codes(s)do
i=i+1
if i>last then break end
if i>=i0 then
local idx=base+x+i-1
back[idx]=cp|fgk|(bgk or(back[idx]&(255<<29)))
end
end
end
end


function gfx.cell(x,y,ch,fg,bg)
x,y=x+ox,y+oy
if x<cx1 or x>cx2 or y<cy1 or y>cy2 then return end
local idx=(y-1)*W+x
back[idx]=utf8.codepoint(ch)|(color(fg)<<21)|(bg and(color(bg)<<29)or(back[idx]&(255<<29)))
end



local function mix(c,rgb,a)
local ia=1-a
return((c>>16)*ia+(rgb>>16)*a+.5)//1<<16|(((c>>8)&255)*ia+((rgb>>8)&255)*a+.5)//1<<8
|((c&255)*ia+(rgb&255)*a+.5)//1
end
function gfx.blend(x,y,w,h,rgb,a,bgOnly)
x,y=x+ox,y+oy
local x2,y2=x+w-1,y+h-1
if x<cx1 then x=cx1 end
if y<cy1 then y=cy1 end
if x2>cx2 then x2=cx2 end
if y2>cy2 then y2=cy2 end
if x>x2 or y>y2 then return end
local key=rgb*1000+(a*999)//1
local map=blendCache[key]
if not map then map={};blendCache[key]=map end
for yy=y,y2 do
local base=(yy-1)*W
for i=base+x,base+x2 do
local v=back[i]
local fi,bi=(v>>21)&255,(v>>29)&255
local nf,nb=map[fi],map[bi]
if bgOnly then nf=fi elseif not nf then nf=color(mix(pal[fi],rgb,a));map[fi]=nf end
if not nb then nb=color(mix(pal[bi],rgb,a));map[bi]=nb end
back[i]=(v&0x1FFFFF)|(nf<<21)|(nb<<29)
end
end
end


function gfx.half(x,y,w,rgb,top,a)
x,y=x+ox,y+oy
if y<cy1 or y>cy2 then return end
local x2=x+w-1
if x<cx1 then x=cx1 end
if x2>cx2 then x2=cx2 end
local ch=top and 0x2580 or 0x2584
local base=(y-1)*W
local fi=rgb and color(rgb)
for i=base+x,base+x2 do
local v=back[i]
local bi=(v>>29)&255
local f=fi
if a then
local key=rgb*1000+(a*999)//1
local map=blendCache[key]
if not map then map={};blendCache[key]=map end
f=map[bi]
if not f then f=color(mix(pal[bi],rgb,a));map[bi]=f end
end
back[i]=ch|(f<<21)|(bi<<29)
end
end





local UPPER,LOWER,FULL=0x2580,0x2584,0x2588
local function halvesOf(v)
local cp,f,b=v&0x1FFFFF,(v>>21)&255,(v>>29)&255
if cp==UPPER then return f,b elseif cp==LOWER then return b,f elseif cp==FULL then return f,f end
return b,b
end
local function setHalf(i,isTop,ci)
local t,b=halvesOf(back[i])
if isTop then t=ci else b=ci end
if t==b then back[i]=32|(t<<21)|(t<<29)else back[i]=UPPER|(t<<21)|(b<<29)end
end
function gfx.pset(px,py,rgb)
local x,y=px+ox,(py+1)//2+oy
if x<cx1 or x>cx2 or y<cy1 or y>cy2 then return end
setHalf((y-1)*W+x,py%2==1,color(rgb))
end

function gfx.prect(px,py,pw,ph,rgb)
if pw<=0 or ph<=0 then return end
local ci=color(rgb)
local py2=py+ph-1
local y=py
if y%2==0 then
for x=px,px+pw-1 do gfx.pset(x,y,rgb)end
y=y+1
end
local full=(py2-y+1)//2
if full>0 then gfx.fill(px,(y+1)//2,pw,full,rgb)end
y=y+full*2
if y<=py2 then for x=px,px+pw-1 do gfx.pset(x,y,rgb)end end
end

function gfx.prrect(px,py,pw,ph,rgb)
gfx.prect(px+1,py,pw-2,ph,rgb)
gfx.prect(px,py+1,1,ph-2,rgb)
gfx.prect(px+pw-1,py+1,1,ph-2,rgb)
end
function gfx.pline(x0,y0,x1,y1,rgb)
local dx,dy=math.abs(x1-x0),-math.abs(y1-y0)
local sx,sy=x0<x1 and 1 or-1,y0<y1 and 1 or-1
local err=dx+dy
while true do
gfx.pset(x0,y0,rgb)
if x0==x1 and y0==y1 then break end
local e2=2*err
if e2>=dy then err=err+dy;x0=x0+sx end
if e2<=dx then err=err+dx;y0=y0+sy end
end
end
function gfx.pcircle(cx,cy,r,rgb)
for y=-r,r do
local w=math.floor(math.sqrt(r*r-y*y)+0.5)
gfx.prect(cx-w,cy+y,2*w+1,1,rgb)
end
end


function gfx.bgAt(x,y)
x,y=x+ox,y+oy
if x<1 or y<1 or x>W or y>H then return 0 end
return pal[(back[(y-1)*W+x]>>29)&255]
end

function gfx.shade(x,y,w,h,a)gfx.blend(x,y,w,h,0,a or 0.45)end





local wall,wallW,wallChars
local walls={}



function gfx.setWallpaper(str,w,chars,x0)
x0=x0 or 0
if x0==0 then wall,wallW,wallChars=str,w,chars;walls={}end
for i=#walls,1,-1 do if walls[i][4]==x0 then table.remove(walls,i)end end
walls[#walls+1]={str,w,chars,x0}
end
function gfx.drawWallpaper()
if not wall then return gfx.fill(1-ox,1-oy,W,H,0)end
local sb=ubyte
for _,wp in ipairs(walls)do
local str,ww,chars,x0=wp[1],wp[2],wp[3],wp[4]
local wh=#str//(ww*3)
local xa,xb=math.max(cx1,x0+1),math.min(cx2,x0+ww)
for y=cy1,math.min(cy2,wh)do
local base,wb=(y-1)*W,(y-1)*ww*3-x0*3
for x=xa,xb do
local p=wb+x*3-2
local pat,f,b=sb(str,p,p+2)
if not pat then back[base+x]=32 else
back[base+x]=(chars and chars[pat]or(pat==0 and 32 or 0x2800+pat))|(f<<21)|(b<<29)
end
end
end
end
end


function gfx.drawWallpaperScaled(x,y,w,h)
if not wall then return end
local sb=ubyte
local wh=#wall//(wallW*3)
for yy=0,h-1 do
local sy=yy*wh//h
for xx=0,w-1 do
local sx=xx*wallW//w
local p=(sy*wallW+sx)*3+1
local pat,f,b=sb(wall,p,p+2)
local X,Yy=x+xx+ox,y+yy+oy
if pat and X>=cx1 and X<=cx2 and Yy>=cy1 and Yy<=cy2 then
back[(Yy-1)*W+X]=(wallChars and wallChars[pat]or(pat==0 and 32 or 0x2800+pat))|(f<<21)|(b<<29)
end
end
end
end


function gfx.image(x,y,img)
x,y=x+ox,y+oy
local iw,ih,d=img[1],img[2],img[3]
for yy=math.max(y,cy1),math.min(y+ih-1,cy2)do
local base,ib=(yy-1)*W,(yy-y)*iw-x+1
for xx=math.max(x,cx1),math.min(x+iw-1,cx2)do
local k=(ib+xx)*3
local idx=base+xx
local bg=d[k]
back[idx]=d[k-2]|(color(d[k-1])<<21)|(bg>=0 and(color(bg)<<29)or(back[idx]&(255<<29)))
end
end
end




local function halves(cp,fg,bg)
if cp==0x2580 then return fg,bg elseif cp==0x2584 then return bg,fg
elseif cp==0x2588 then return fg,fg end
return bg,bg
end
function gfx.imageScaled(x,y,w,h,img)
local iw,ih,d=img[1],img[2],img[3]
local ph,sh=h*2,ih*2
for yy=0,h-1 do
for xx=0,w-1 do
local X,Yy=x+xx+ox,y+yy+oy
if X>=cx1 and X<=cx2 and Yy>=cy1 and Yy<=cy2 then
local sx=xx*iw//w
local c={}
for half=0,1 do
local spy=(yy*2+half)*sh//ph
local k=((spy//2)*iw+sx+1)*3
local bg=d[k]>=0 and d[k]or 0
local top,bot=halves(d[k-2],d[k-1],bg)
c[half+1]=spy%2==0 and top or bot
end
back[(Yy-1)*W+X]=0x2580|(color(c[1])<<21)|(color(c[2])<<29)
end
end
end
end


function gfx.blit(grid,gw,gh,x,y)
x,y=x+ox,y+oy
local sx1,sy1=math.max(x,cx1),math.max(y,cy1)
local sx2,sy2=math.min(x+gw-1,cx2),math.min(y+gh-1,cy2)
if sx1>sx2 or sy1>sy2 then return end
for yy=sy1,sy2 do
local base,gbase=(yy-1)*W,(yy-y)*gw-x+1
for xx=sx1,sx2 do back[base+xx]=grid[gbase+xx]end
end
end




function gfx.blitScaled(grid,gw,gh,x,y,dw,dh)
local ph,sh=dh*2,gh*2
local rowSrc={}
for py=0,ph-1 do rowSrc[py]=py*sh//ph end
for yy=0,dh-1 do
local Yy=y+yy+oy
if Yy>=cy1 and Yy<=cy2 then
local spT,spB=rowSrc[yy*2],rowSrc[yy*2+1]
local cT,cB=(spT//2)*gw,(spB//2)*gw
local loT,loB=spT%2==1,spB%2==1
local base=(Yy-1)*W
for xx=0,dw-1 do
local X=x+xx+ox
if X>=cx1 and X<=cx2 then
local sx=xx*gw//dw+1
local vt,vb=grid[cT+sx],grid[cB+sx]
local t,b
do
local cp,f,bg=vt&0x1FFFFF,(vt>>21)&255,(vt>>29)&255
local up,lo=bg,bg
if cp==0x2580 then up=f elseif cp==0x2584 then lo=f elseif cp==0x2588 then up,lo=f,f end
t=loT and lo or up
end
do
local cp,f,bg=vb&0x1FFFFF,(vb>>21)&255,(vb>>29)&255
local up,lo=bg,bg
if cp==0x2580 then up=f elseif cp==0x2584 then lo=f elseif cp==0x2588 then up,lo=f,f end
b=loB and lo or up
end
back[base+X]=(t==b and 32 or 0x2580)|(t<<21)|(b<<29)
end
end
end
end
end


function gfx.scrollHint(x,y,w,h,dy)
local last=hints[#hints]
if last and not last.move and last[1]==x and last[2]==y and last[3]==w and last[4]==h then
last[5]=last[5]+dy
else
hints[#hints+1]={x,y,w,h,dy}
end
end



function gfx.moveHint(x,y,w,h,dx,dy)
if dx==0 and dy==0 then return end
if x<1 or y<1 or x+w-1>W or y+h-1>H then return end
if x+dx<1 or y+dy<1 or x+dx+w-1>W or y+dy+h-1>H then return end
hints[#hints+1]={x,y,w,h,dx,dy,move=true}
end



local function inside(o,x,y,w,h)
return x-o.src>=1 and y>=1 and x-o.src+w-1<=o.w and y+h-1<=o.h
end
local function applyMove(h)
for _,o in ipairs(outs)do
local x,y,w,hh,dx,dy=h[1],h[2],h[3],h[4],h[5],h[6]
if inside(o,x,y,w,hh)and inside(o,x+dx,y+dy,w,hh)then
x=x-o.src
use(o).copy(x,y,w,hh,dx,dy)
gfx.stats.copy=gfx.stats.copy+1
local front,OW=o.front,o.w
local tmp,n={},0
for r=y,y+hh-1 do
local b=(r-1)*OW
for c=x,x+w-1 do n=n+1;tmp[n]=front[b+c]end
end
n=0
for r=y+dy,y+dy+hh-1 do
local b=(r-1)*OW
for c=x+dx,x+dx+w-1 do n=n+1;front[b+c]=tmp[n]end
end
end
end
end


local rY,rX,rS,rK,rH,rSp,order={},{},{},{},{},{},{}
local cps={}

local function applyHint(h)
local x0,y,w,hh,dy=h[1],h[2],h[3],h[4],h[5]
if dy==0 or math.abs(dy)>=hh then return end
for _,o in ipairs(outs)do
if inside(o,x0,y,w,hh)then
local x,front,OW=x0-o.src,o.front,o.w

local srcY=dy>0 and y+dy or y
local n=hh-math.abs(dy)
use(o).copy(x,srcY,w,n,0,-dy)
gfx.stats.copy=gfx.stats.copy+1

if dy>0 then
for r=0,n-1 do
local d,s=(y+r-1)*OW,(y+r+dy-1)*OW
for c=x,x+w-1 do front[d+c]=front[s+c]end
end
else
for r=n-1,0,-1 do
local d,s=(y+r-dy-1)*OW,(y+r-1)*OW
for c=x,x+w-1 do front[d+c]=front[s+c]end
end
end
end
end
end


local function flushOut(o,st)
local sx0,OW,front=o.src,o.w,o.front
local fx1,fx2=dmg.x1,dmg.x2
local y1,y2=dmg.y1,dmg.y2
if fx1<sx0+1 then fx1=sx0+1 end
if fx2>sx0+OW then fx2=sx0+OW end
if y2>o.h then y2=o.h end
if fx1>fx2 or y1>y2 then return 0 end
local n=0
for y=y1,y2 do
local base,fb=(y-1)*W,(y-1)*OW-sx0
local x=fx1
while x<=fx2 do
local i=base+x
local v=back[i]
if v~=front[fb+x]then
local key=v>>21
local start,lastDiff=x,x
local space=(v&0x1FFFFF)==32
x=x+1
while x<=fx2 do
local v2=back[base+x]
if(v2>>21)~=key then break end
if v2~=front[fb+x]then lastDiff=x
elseif x-lastDiff>4 then break end
x=x+1
end
local nc=0
for xx=start,lastDiff do
local bv=back[base+xx]
local c=bv&0x1FFFFF
if c~=32 then space=false end
nc=nc+1
cps[nc]=c
front[fb+xx]=bv
end
n=n+1
rY[n],rX[n],rK[n],rH[n],rSp[n]=y,start-sx0,key,1,space
if space then
rS[n]=nc
else
rS[n]=nc<200 and uchar(table.unpack(cps,1,nc))or nil
if not rS[n]then
local parts={}
for k=1,nc,200 do parts[#parts+1]=uchar(table.unpack(cps,k,math.min(nc,k+199)))end
rS[n]=concat(parts)
end
end
st.cells=st.cells+nc
x=lastDiff+1
else
x=x+1
end
end
end
if n==0 then return 0 end

local stack,alive={},{}
for k=1,n do
alive[k]=true
if rSp[k]then
local id=rX[k]*4096+rS[k]*8+0
local sk=id..":"..(rK[k]>>8)
local prev=stack[sk]
if prev and rY[prev]+rH[prev]==rY[k]then
rH[prev]=rH[prev]+1
alive[k]=false
else
stack[sk]=k
end
end
end

local m=0
for k=1,n do
if alive[k]then
m=m+1
order[m]=k
local bgi,fgi=rK[k]>>8,rK[k]&255
rK[k]=bgi*512+(rSp[k]and 0 or fgi+1)
end
end
for k=m+1,#order do order[k]=nil end
sort(order,function(a,b)return rK[a]<rK[b]end)
local g=use(o)
local curBg,curFg=-1,-1
for j=1,m do
local k=order[j]
local key=rK[k]
local bgi,fgp=key//512,key%512
if bgi~=curBg then g.setBackground(bgi<16 and bgi or pal[bgi],bgi<16);curBg=bgi;st.bg=st.bg+1 end
if fgp>0 and fgp-1~=curFg then g.setForeground(fgp<=16 and fgp-1 or pal[fgp-1],fgp<=16);curFg=fgp-1;st.fg=st.fg+1 end
if rSp[k]then
if rH[k]>1 then
g.fill(rX[k],rY[k],rS[k],rH[k]," ");st.fill=st.fill+1
else
g.set(rX[k],rY[k],string.rep(" ",rS[k]));st.set=st.set+1
end
else
g.set(rX[k],rY[k],rS[k]);st.set=st.set+1
end
end
for k=1,n do rS[k]=nil end
return m
end

function gfx.flush()
if not gpu then return 0 end
local st=gfx.stats
for i=1,#hints do local h=hints[i];if h.move then applyMove(h)else applyHint(h)end;hints[i]=nil end
local m=0


for _,o in ipairs(outs)do if o.bind then m=m+flushOut(o,st)end end
for _,o in ipairs(outs)do if not o.bind then m=m+flushOut(o,st)end end
goHome()
st.frames=st.frames+1
dmg.x1,dmg.y1,dmg.x2,dmg.y2=1,1,0,0
return m
end


function gfx.peek(x,y)
local v=back[(y-1)*W+x]
return v&0x1FFFFF,pal[(v>>21)&255],pal[(v>>29)&255]
end


function gfx.dump()
local rows={}
for y=1,H do
local t={}
for x=1,W do t[x]=uchar(back[(y-1)*W+x]&0x1FFFFF)end
rows[y]=concat(t)
end
return rows
end

return gfx
F 3059 /lib/yaru/image.lua




local M={}


local P={}
do
local greys={0x0F0F0F,0x1E1E1E,0x2D2D2D,0x3C3C3C,0x4B4B4B,0x5A5A5A,0x696969,0x787878,0x878787,0x969696,0xA5A5A5,
0xB4B4B4,0xC3C3C3,0xD2D2D2,0xE1E1E1,0xF0F0F0}
local gi,n=1,0
for r=0,5 do
for g=0,7 do
for b=0,4 do
P[n]=(r*51)<<16|((g*255+3)//7)<<8|((b*255+2)//4)
n=n+1
end
end

if r<5 then for _=1,(r==2 and 4 or 3)do if greys[gi]then P[n]=greys[gi];gi=gi+1;n=n+1 end end end
end
end

local cache={}

function M.load(path,nocache)
local c=not nocache and cache[path]
if c then return c end
local f=io.open(path,"rb")
if not f then return nil,"cannot open "..path end
local d=f:read("*a")
f:close()
if not d or d:sub(1,4)~="OCIF"then return nil,"not an OCIF image"end
local pos=5
local byte,codepoint=string.byte,utf8.codepoint
local function b1()local v=byte(d,pos)pos=pos+1 return v end
local function b2()local a,b=byte(d,pos,pos+1)pos=pos+2 return a<<8|b end
local function uc()
local c0=byte(d,pos)
local n=c0>=0xF0 and 4 or c0>=0xE0 and 3 or c0>=0xC0 and 2 or 1
local cp=codepoint(d,pos)
pos=pos+n
return cp
end
local m=b1()
local w,h,cells=0,0,{}
if m==5 then
w,h=b2(),b2()
for i=1,w*h do
local bg,fg,a=P[b1()],P[b1()],b1()
local k=i*3
cells[k-2],cells[k-1],cells[k]=uc(),fg,a<128 and bg or-1
end
elseif m>=6 and m<=8 then
local is7,is8=m>=7 and 1 or 0,m>=8 and 1 or 0
w,h=b1()+is8,b1()+is8
for i=1,w*h do cells[i*3-2],cells[i*3-1],cells[i*3]=32,0,-1 end
for _=1,b1()+is7 do
local a=b1()
for _=1,b2()+is7 do
local ch=uc()
for _=1,b1()+is7 do
local bg=P[b1()]
for _=1,b1()+is7 do
local fg=P[b1()]
for _=1,b1()+is7 do
local y=b1()+is8
for _=1,b1()+is7 do
local x=b1()+is8
local k=((y-1)*w+x)*3
cells[k-2],cells[k-1],cells[k]=ch,fg,a<128 and bg or-1
end
end
end
end
end
end
else
return nil,"unsupported OCIF encoding "..tostring(m)
end
c={w,h,cells}
if not nocache then cache[path]=c end
return c
end


local near={}
local function to8(c)
local i=near[c]
if i then return i end
local best,bd=0,math.huge
for k=0,255 do
local p=P[k]
local d=((p>>16)-(c>>16))^2+(((p>>8)&255)-((c>>8)&255))^2+((p&255)-(c&255))^2
if d<bd then best,bd=k,d end
end
near[c]=best
return best
end


function M.save(path,img)
local w,h,d=img[1],img[2],img[3]
local out={"OCIF",string.char(5,w>>8,w&255,h>>8,h&255)}
for i=1,w*h do
local k=i*3
local bg=d[k]
out[#out+1]=string.char(to8(bg>=0 and bg or 0),to8(d[k-1]),bg>=0 and 0 or 255)..utf8.char(d[k-2])
end
local f,err=io.open(path,"wb")
if not f then return nil,err end
f:write(table.concat(out))
f:close()
cache[path]=nil
return true
end


function M.pixels(img)
local w,h,d=img[1],img[2],img[3]
local function get(px,py)
if px<0 or py<0 or px>=w or py>=h*2 then return nil end
local i=((py//2)*w+px)*3+1
local cp,fg,bg=d[i],d[i+1],d[i+2]
local top=py%2==0
local c
if cp==0x2580 then c=top and fg or bg
elseif cp==0x2584 then c=top and bg or fg
elseif cp==0x2588 then c=fg
elseif cp==32 or not cp then c=bg
else c=(bg and bg>=0)and bg or fg end
if not c or c<0 then return nil end
return c
end
return w,h*2,get
end

function M.forget(path)cache[path]=nil end
function M.flush()cache={}end

return M
F 12217 /lib/yaru/lights.lua







local component=require("component")
local computer=require("computer")
local event=require("event")
local serialization=require("serialization")
local L=package.loaded["yaru.lights"]or{}
package.loaded["yaru.lights"]=L

L.CFG="/etc/yaru-lights.cfg"
local floor,min,max,sin,cos,abs=math.floor,math.min,math.max,math.sin,math.cos,math.abs

local DEFAULTS={w=8,h=4,map={},on=true,mode="effect",effect="rainbow",speed=5,
text="HELLO OPENCOMPUTERS",textColor=0xFFB000,textRainbow=true,bg=0x000000,font="auto",scrollAlways=false,
clock24=true,clockColor=0x33DDFF,color=0xE95420,brightness=100,fps=10,budget=256,smooth=true,load=60,saver=true,relights=4,
music="bars",musicColors="classic",gain=100,pic={}}

function L.load()
local c={}
local f=io.open(L.CFG)
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then c=t end
end
for k,v in pairs(DEFAULTS)do if c[k]==nil then c[k]=type(v)=="table"and{}or v end end
L.cfg=c
return c
end
function L.save()
local f=io.open(L.CFG,"w")
if not f then return false end
f:write(serialization.serialize(L.cfg))
f:close()
return true
end

function L.lamps()
local r={}
for a in component.list("colorful_lamp")do r[#r+1]=a end
table.sort(r)
return r
end




local function level(c15)return math.floor(((c15>>10)+((c15>>5)&31)+(c15&31))/93*15+0.5)end
L.level=level
local function equalize(c,sum)
local r,g,b=c>>16,(c>>8)&255,c&255
local s=r+g+b
if s==0 then return c end
local f=sum/s
r,g,b=r*f,g*f,b*f

for _=1,2 do
local over=math.max(0,r-255)+math.max(0,g-255)+math.max(0,b-255)
if over<=0 then break end
r,g,b=math.min(255,r),math.min(255,g),math.min(255,b)
local room=(255-r)+(255-g)+(255-b)
if room<=0 then break end
r,g,b=r+over*(255-r)/room,g+over*(255-g)/room,b+over*(255-b)/room
end
return floor(r)<<16|floor(g)<<8|floor(b)
end
local function hsv(h,s,v)
h=(h%1)*6
local i=floor(h)
local f=h-i
local p,q,t=v*(1-s),v*(1-s*f),v*(1-s*(1-f))
local r,g,b
if i==0 then r,g,b=v,t,p elseif i==1 then r,g,b=q,v,p elseif i==2 then r,g,b=p,v,t
elseif i==3 then r,g,b=p,q,v elseif i==4 then r,g,b=t,p,v else r,g,b=v,p,q end
return floor(r*255)<<16|floor(g*255)<<8|floor(b*255)
end
L.hsv=hsv
local function scale(c,f)
if f>=1 then return c end
if f<=0 then return 0 end
return floor((c>>16)*f)<<16|floor(((c>>8)&255)*f)<<8|floor((c&255)*f)
end
L.scale=scale
local function ramp(stops,v)
v=max(0,min(1,v))*(#stops-1)
local i=floor(v)
local a,b=stops[i+1],stops[min(#stops,i+2)]
local f=v-i
return floor((a>>16)*(1-f)+(b>>16)*f)<<16|floor(((a>>8)&255)*(1-f)+((b>>8)&255)*f)<<8
|floor((a&255)*(1-f)+(b&255)*f)
end
function L.to15(c)
return((c>>19)&31)<<10|((c>>11)&31)<<5|((c>>3)&31)
end


L.EFFECTS={{"rainbow","Rainbow"},{"plasma","Plasma"},{"fire","Fire"},{"rain","Rain"},{"matrix","Matrix"},
{"sparkle","Sparkles"},{"pulse","Breathing"},{"wave","Colour wave"},{"police","Police"},{"scanner","Scanner"}}
local fx={}
local function rnd()return math.random()end

local function effect(name,fb,W,H,t,c)
local col=c.color
local eq=c.saver and function(col)return equalize(col,357)end or function(col)return col end
if name=="rainbow"then
for y=0,H-1 do for x=0,W-1 do fb[y*W+x+1]=eq(hsv(x/max(1,W)*0.8+y*0.04-t*0.15,1,1))end end
elseif name=="plasma"then
for y=0,H-1 do
for x=0,W-1 do
local v=sin(x*0.55+t)+sin(y*0.8-t*1.3)+sin((x+y)*0.35+t*0.7)+sin(math.sqrt(x*x+y*y)*0.5-t)
fb[y*W+x+1]=eq(hsv(v/8+t*0.05,0.9,1))
end
end
elseif name=="fire"then
local heat=fx.heat
if not heat or#heat~=W*H then heat={}for i=1,W*H do heat[i]=0 end fx.heat=heat end
for x=0,W-1 do heat[(H-1)*W+x+1]=0.55+rnd()*0.45 end
for y=0,H-2 do
for x=0,W-1 do
local b=(y+1)*W
local a=heat[b+x+1]
local l=heat[b+max(0,x-1)+1]
local r=heat[b+min(W-1,x+1)+1]
heat[y*W+x+1]=max(0,(a*2+l+r)/4-(0.55+rnd()*0.5)/max(3,H))
end
end
for i=1,W*H do fb[i]=ramp({0x000000,0x400000,0xC01800,0xFF6A00,0xFFC020,0xFFFFC0},heat[i])end
elseif name=="rain"or name=="matrix"then
local drops=fx[name]
if not drops or drops.W~=W then drops={W=W}for x=1,W do drops[x]=rnd()*H*2-H end fx[name]=drops end
local trail=name=="matrix"and 5 or 2
local base=name=="matrix"and 0x33FF66 or col
for x=0,W-1 do
drops[x+1]=drops[x+1]+(0.35+((x*7)%5)*0.08)*(c.speed/5)
if drops[x+1]-trail>H then drops[x+1]=-rnd()*H end
local head=drops[x+1]
for y=0,H-1 do
local d=head-y
local v=0
if d>=0 and d<trail then v=1-d/trail end
local cc=scale(base,v)
if name=="matrix"and d>=0 and d<1 then cc=0xC0FFC0 end
fb[y*W+x+1]=cc
end
end
elseif name=="sparkle"then
local s=fx.sparkle
if not s or#s~=W*H then s={}for i=1,W*H do s[i]=0 end fx.sparkle=s end
for i=1,W*H do
s[i]=s[i]*0.78
if rnd()<0.03*(c.speed/5)then s[i]=1 end
fb[i]=scale(s[i]>0.9 and 0xFFFFFF or col,s[i])
end
elseif name=="pulse"then
local v=0.15+0.85*(0.5+0.5*sin(t*2))
for i=1,W*H do fb[i]=scale(col,v)end
elseif name=="wave"then
for y=0,H-1 do for x=0,W-1 do
local v=0.5+0.5*sin(x*0.6-t*3+y*0.3)
fb[y*W+x+1]=ramp({scale(col,0.15),col,0xFFFFFF},v)
end end
elseif name=="police"then
local phase=floor(t*4)%4
for y=0,H-1 do for x=0,W-1 do
local left=x<W/2
local on=(phase==0 and left)or(phase==2 and not left)
fb[y*W+x+1]=on and(left and 0xFF1010 or 0x1030FF)or 0
end end
elseif name=="scanner"then
local pos=(sin(t*2)*0.5+0.5)*(W-1)
for y=0,H-1 do for x=0,W-1 do
local d=abs(x-pos)
fb[y*W+x+1]=scale(col,max(0,1-d/2.2))
end end
end
end


local pixfont
local function textCols(c,text,H)
pixfont=pixfont or require("yaru.pixfont")
local font=c.font
if font=="auto"then font=H>=7 and"normal"or"small"end
if c.textCache and c.textCache.s==text and c.textCache.f==font then return c.textCache.cols,c.textCache.h end
local cols,h=pixfont.columns(text,font)
c.textCache={s=text,f=font,cols=cols,h=h}
return cols,h
end
local function drawText(fb,W,H,c,text,color,rainbow,t,speed,always)
local cols,fh=textCols(c,text,H)
local n=#cols
local x0
if n<=W and not always then x0=(W-n)//2
else
local span=n+W
x0=W-floor(t*speed)%span
end
local y0=(H-fh)//2
for i=1,n do
local x=x0+i-1
if x>=0 and x<W then
local bits=cols[i]
for r=0,fh-1 do
local y=y0+r
if y>=0 and y<H and bits>>r&1==1 then
fb[y*W+x+1]=rainbow and hsv(x/max(8,W)*0.7-t*0.2,1,1)or color
end
end
end
end
end


local function tapeFrame()
local okY,Y=pcall(require,"yaru.core")
if not okY or not Y.windowsOf then return nil,"no desktop"end
local w=Y.windowsOf("tapes")[1]
local api=w and w.api
if not api or not api.deck then return nil,"Open Tape Deck and play a cassette"end
local d=api.deck()
if not d then return nil,"No tape drive"end
pcall(d.poll,d)
if d.state~="PLAYING"then return nil,"Tape Deck is not playing"end
local frame=api.eqFrame and api.eqFrame()
if not frame then return nil,"playing — no equalizer data yet (Tape Deck: ☰ → Analyze)",true end
return frame
end
L.levels=L.levels or{}
local function music(fb,W,H,c,t)
local frame,why,playing=tapeFrame()
L.musicStatus=frame and"♪ in sync with Tape Deck"or why
local lv=L.levels
local gain=c.gain/100
for x=0,W-1 do
local target=0
if frame then
local p=x/max(1,W-1)*9+1
local a=floor(p)
local b=min(10,a+1)
local fa,fbv=frame:byte(a)-48,frame:byte(b)-48
target=(fa+(fbv-fa)*(p-a))/15*gain
target=target*(0.92+0.16*sin(x*1.7+t*9))
elseif playing then
target=(0.4+0.4*abs(sin(t*4+x*0.5)))*gain
end
target=min(1,target)
local v=lv[x+1]or 0
if target>v then v=target else v=max(target,v-0.12)end
lv[x+1]=v
end
for y=0,H-1 do
for x=0,W-1 do
local v=lv[x+1]or 0
local on,frac
if c.music=="center"then
local mid=(H-1)/2
on=abs(y-mid)<=v*(H/2)
frac=abs(y-mid)/max(1,H/2)
else
local hgt=v*H
on=(H-y)<=hgt+0.01
frac=(H-1-y)/max(1,H-1)
end
local cc=0
if on then
if c.musicColors=="rainbow"then cc=hsv(x/max(1,W)*0.8+t*0.05,1,1)
elseif c.musicColors=="mono"then cc=scale(c.color,0.4+0.6*frac)
else cc=ramp({0x20E040,0xE0E020,0xFF2020},frac)end
end
fb[y*W+x+1]=cc
end
end
end


function L.render(t)
local c=L.cfg
local W,H=c.w,c.h
local fb=L.fb or{}
L.fb=fb
local n=W*H
for i=n+1,#fb do fb[i]=nil end
local bg=c.bg or 0
if not c.on or c.mode=="off"then
for i=1,n do fb[i]=0 end
elseif c.mode=="solid"then
for i=1,n do fb[i]=c.color end
elseif c.mode=="effect"then
effect(c.effect,fb,W,H,t*(c.speed/5),c)
elseif c.mode=="text"then
for i=1,n do fb[i]=bg end
drawText(fb,W,H,c,c.text~=""and c.text or" ",c.textColor,c.textRainbow,t,c.speed*2,c.scrollAlways)
elseif c.mode=="clock"then
for i=1,n do fb[i]=bg end
local okY,Y=pcall(require,"yaru.core")
local now=okY and Y.now and Y.now()or os.time()
local hh,mm=floor(now/3600)%24,floor(now/60)%60
if not c.clock24 then hh=(hh+11)%12+1 end
local s=string.format(c.clock24 and"%02d:%02d"or"%d:%02d",hh,mm)
drawText(fb,W,H,c,s,c.clockColor,false,t,4,false)
elseif c.mode=="picture"then
local pic=c.pic
for i=1,n do fb[i]=pic[i]or 0 end
elseif c.mode=="music"then
music(fb,W,H,c,t)
end
local b=(c.brightness or 100)/100
if b<1 then for i=1,n do fb[i]=scale(fb[i],b)end end
return fb
end


L.sent=L.sent or{}

local lampCache,lampAt={},-10
local function connected()
if computer.uptime()-lampAt>2 then lampCache,lampAt=L.lamps(),computer.uptime()end
return lampCache
end
function L.forgetLamps()lampAt=-10 end










local function diff(a,b)
if not b then return 99 end
return math.abs((a>>10)-(b>>10))+math.abs(((a>>5)&31)-((b>>5)&31))+math.abs((a&31)-(b&31))
end
function L.push()
local c=L.cfg
local fb=L.fb
if not fb then return 0 end
local seen,cands={},{}
local function consider(a)
if seen[a]then return end
seen[a]=true
local idx=c.map[a]
local col
if L.override then col=L.override(a,idx)end
if col==nil then col=(idx and idx<c.w*c.h)and fb[idx+1]or 0 end
local v=L.to15(col or 0)
local d=diff(v,L.sent[a])

if d>0 and(d>(c.minDiff or 2)or v==0 or L.override)then
local relight=not L.sent[a]or level(v)~=level(L.sent[a])
cands[#cands+1]={a,v,a==L.priority and 1000 or d,relight}
end
end
if L.priority then consider(L.priority)end
for a in pairs(c.map)do consider(a)end
for _,a in ipairs(connected())do consider(a)end
table.sort(cands,function(p,q)return p[3]>q[3]end)


local now0=computer.uptime()
local earned=(now0-(L.lastPush or now0))*(c.load or 60)/100
L.lastPush=now0
L.credit=min(0.5,(L.credit or 0)+earned)
local per=L.callTime or 0.01
local t0=now0
local n=0




L.relightCredit=math.min(c.relights or 4,math.max(0,L.relightCredit or 0)+(now0-(L.lastRelight or now0))*(c.relights or 4))
L.lastRelight=now0
L.relightsSkipped=0
for _,e in ipairs(cands)do
if n>=(c.budget or 256)then break end
local limited=c.saver and e[4]and not L.override and L.sent[e[1]]~=nil
if limited and L.relightCredit<1 then L.relightsSkipped=L.relightsSkipped+1 goto continue end
if L.priority~=e[1]and L.credit<per and n>0 then break end
if L.credit<per and(L.credit<0 or n>0)then break end
local c0=computer.uptime()
local ok=pcall(component.invoke,e[1],"setLampColor",e[2])
if ok then L.sent[e[1]]=e[2]else L.sent[e[1]]=nil end
L.credit=L.credit-(computer.uptime()-c0)
if limited then L.relightCredit=L.relightCredit-1 end
n=n+1
::continue::
end
L.behind=n<#cands
L.lastSends=n
if n>0 then
local per=(computer.uptime()-t0)/n
L.callTime=L.callTime and(L.callTime*0.7+per*0.3)or per
end

if not L.behind then
local now=computer.uptime()
if L.lastFull then L.wallFps=(L.wallFps or 0)*0.7+0.3/max(0.01,now-L.lastFull)end
L.lastFull=now
end
return n
end

function L.step()
if not L.cfg then L.load()end
local c=L.cfg
local now=computer.uptime()
local ok,err=pcall(function()

local realtime=not c.smooth or c.mode=="music"or c.mode=="clock"or L.override
if realtime then
L.render(now-(L.t0 or now))
elseif not L.behind or not L.fb then
L.animT=(L.animT or 0)+min(0.5,now-(L.lastStep or now))
L.render(L.animT)
end
L.lastStep=now
L.push()
end)
if not ok then L.lastError=tostring(err)end
L.frames=(L.frames or 0)+1
end

function L.running()return L.timer~=nil end
function L.start()
if not L.cfg then L.load()end
L.t0=L.t0 or computer.uptime()
if L.timer then event.cancel(L.timer)end
L.timer=event.timer(1/max(1,min(20,L.cfg.fps or 10)),L.step,math.huge)
end
function L.stop(dark)
if L.timer then event.cancel(L.timer)end
L.timer=nil
if dark then
for a in pairs(L.cfg and L.cfg.map or{})do pcall(component.invoke,a,"setLampColor",0)end
for a in component.list("colorful_lamp")do pcall(component.invoke,a,"setLampColor",0)end
L.sent={}
end
end

function L.resend()L.sent={};L.cursor=1 end

return L
F 6935 /lib/yaru/pixfont.lua




local F={}
F['small']={h=6,g={[32]="\0\0",[33]="\23",[34]="\3\0\3",[35]="\31\10\31\10",[36]="\22\55\26",[37]="\9\4\18",[38]="\10\21\10\16",[39]="\3",[40]="\30\33",[41]="\33\30",[42]="\21\14\21",[43]="\4\31\4",[44]="\32\16",[45]="\4\4\4",[46]="\16",[47]="\24\4\3",[48]="\14\21\14",[49]="\18\31\16",[50]="\18\25\22",[51]="\17\21\11",[52]="\7\4\31",[53]="\23\21\9",[54]="\14\21\9",[55]="\25\5\3",[56]="\26\21\11",[57]="\18\21\14",[58]="\18",[59]="\32\18",[60]="\4\10\17",[61]="\10\10\10",[62]="\17\10\4",[63]="\1\21\2",[64]="\14\17\23",[65]="\30\5\30",[66]="\31\21\10",[67]="\14\17\10",[68]="\31\17\14",[69]="\31\21\17",[70]="\31\5\1",[71]="\14\17\29",[72]="\31\4\31",[73]="\17\31\17",[74]="\8\16\15",[75]="\31\4\27",[76]="\31\16\16",[77]="\31\6\31",[78]="\30\4\15",[79]="\14\17\14",[80]="\31\5\2",[81]="\14\17\46",[82]="\31\5\26",[83]="\18\21\9",[84]="\1\31\1",[85]="\31\16\31",[86]="\15\24\15",[87]="\31\12\31",[88]="\27\4\27",[89]="\3\28\3",[90]="\25\21\19",[91]="\31\17",[92]="\3\4\24",[93]="\17\31",[94]="\2\1\2",[95]="\32\32\32",[96]="\1\2",[97]="\12\18\30",[98]="\31\18\12",[99]="\12\18\18",[100]="\12\18\31",[101]="\12\26\20",[102]="\4\30\5",[103]="\36\42\30",[104]="\31\2\28",[105]="\20\29\16",[106]="\32\32\29",[107]="\31\4\26",[108]="\17\31\16",[109]="\30\4\30",[110]="\30\2\28",[111]="\12\18\12",[112]="\62\10\4",[113]="\12\18\62",[114]="\30\4\2",[115]="\20\22\10",[116]="\2\15\18",[117]="\14\16\30",[118]="\14\16\14",[119]="\30\8\30",[120]="\18\12\18",[121]="\38\40\30",[122]="\18\26\22",[123]="\4\30\33",[124]="\31",[125]="\33\30\4",[126]="\2\1\2\1",[176]="\2\5\2",[1025]="\31\22\19",[1105]="\13\26\21",[1040]="\30\5\30",[1041]="\31\21\9",[1042]="\31\21\10",[1043]="\31\1\1",[1044]="\61\19\63",[1045]="\31\21\17",[1046]="\27\14\27",[1047]="\17\21\10",[1048]="\15\4\30",[1049]="\30\9\61",[1050]="\31\4\27",[1051]="\30\1\31",[1052]="\31\2\31",[1053]="\31\4\31",[1054]="\14\17\14",[1055]="\31\1\31",[1056]="\31\5\2",[1057]="\14\17\10",[1058]="\1\31\1",[1059]="\39\24\7",[1060]="\14\27\14",[1061]="\27\4\27",[1062]="\31\16\31",[1063]="\3\4\31",[1064]="\31\28\31",[1065]="\31\28\31\48",[1066]="\1\31\20\8",[1067]="\31\20\8\31",[1068]="\31\20\8",[1069]="\17\21\14",[1070]="\31\14\17\14",[1071]="\26\5\31",[1072]="\12\18\30",[1073]="\14\21\13",[1074]="\30\22\10",[1075]="\30\2\2",[1076]="\60\18\62",[1077]="\12\26\20",[1078]="\18\12\30\18",[1079]="\18\22\10",[1080]="\30\12\30",[1081]="\29\10\29",[1082]="\30\8\22",[1083]="\28\2\30",[1084]="\30\4\30",[1085]="\30\4\30",[1086]="\12\18\12",[1087]="\30\2\30",[1088]="\62\10\4",[1089]="\12\18\18",[1090]="\2\30\2",[1091]="\38\40\30",[1092]="\12\51\12",[1093]="\18\12\18",[1094]="\30\16\62",[1095]="\6\8\30",[1096]="\30\28\30",[1097]="\30\28\30\48",[1098]="\2\30\20\8",[1099]="\30\20\8\30",[1100]="\30\20\8",[1101]="\18\22\12",[1102]="\30\12\18\12",[1103]="\20\10\30",[9829]="\14\28\14",[9834]="\24\15\2",[8592]="\4\14\4\4",[8594]="\4\4\14\4",[8593]="\4\30\4",[8595]="\8\30\8"}}
F['normal']={h=7,g={[32]="\0\0\0",[33]="\47",[34]="\7\0\7",[35]="\20\62\20\62\20",[36]="\4\42\62\42\16",[37]="\19\8\4\50",[38]="\20\42\20\32",[39]="\7",[40]="\30\33",[41]="\33\30",[42]="\42\28\42",[43]="\8\8\62\8\8",[44]="\64\48\16",[45]="\8\8\8\8",[46]="\48\48",[47]="\16\8\4\2",[48]="\30\33\30",[49]="\34\63\32",[50]="\34\49\41\38",[51]="\17\37\37\27",[52]="\12\10\63\8",[53]="\23\37\37\25",[54]="\30\37\37\24",[55]="\1\49\13\3",[56]="\26\37\37\26",[57]="\6\41\41\30",[58]="\54\54",[59]="\64\54\22",[60]="\8\20\34",[61]="\20\20\20\20",[62]="\34\20\8",[63]="\2\41\6",[64]="\30\33\45\14",[65]="\62\9\9\62",[66]="\63\37\37\26",[67]="\30\33\33\18",[68]="\63\33\33\30",[69]="\63\37\37\33",[70]="\63\5\5\1",[71]="\30\33\41\58",[72]="\63\4\4\63",[73]="\33\63\33",[74]="\16\32\32\31",[75]="\63\12\18\33",[76]="\63\32\32\32",[77]="\63\6\6\63",[78]="\63\6\24\63",[79]="\30\33\33\30",[80]="\63\9\9\6",[81]="\30\49\33\94",[82]="\63\9\25\38",[83]="\18\37\41\18",[84]="\1\63\1",[85]="\31\32\32\31",[86]="\15\48\48\15",[87]="\63\24\24\63",[88]="\51\12\12\51",[89]="\7\56\7",[90]="\49\41\37\35",[91]="\63\33\33",[92]="\2\4\8\16",[93]="\33\33\63",[94]="\2\1\2",[95]="\32\32\32\32",[96]="\1\2",[97]="\24\36\20\60",[98]="\63\36\36\24",[99]="\24\36\36",[100]="\24\36\36\63",[101]="\24\52\44\8",[102]="\8\62\9\2",[103]="\40\84\84\76",[104]="\63\4\4\56",[105]="\36\61\32",[106]="\32\64\61",[107]="\63\8\20\32",[108]="\33\63\32",[109]="\60\8\12\56",[110]="\60\4\4\56",[111]="\24\36\36\24",[112]="\124\36\36\24",[113]="\24\36\36\124",[114]="\60\4\4\8",[115]="\40\44\52\20",[116]="\4\31\36\32",[117]="\28\32\32\60",[118]="\28\32\28",[119]="\60\48\48\60",[120]="\36\24\24\36",[121]="\12\80\32\28",[122]="\36\52\44\36",[123]="\4\30\33",[124]="\63",[125]="\33\30\4",[126]="\2\1\2\1",[176]="\2\5\2",[1025]="\63\37\37\33",[1105]="\25\52\45\8",[1040]="\62\9\9\62",[1041]="\63\37\37\24",[1042]="\63\37\37\26",[1043]="\63\1\1\1",[1044]="\96\62\33\127",[1045]="\63\37\37\33",[1046]="\51\12\63\12\51",[1047]="\17\37\37\26",[1048]="\63\24\6\63",[1049]="\63\25\6\63",[1050]="\63\12\18\33",[1051]="\32\30\1\63",[1052]="\63\6\6\63",[1053]="\63\4\4\63",[1054]="\30\33\33\30",[1055]="\63\1\1\63",[1056]="\63\9\9\6",[1057]="\30\33\33\18",[1058]="\1\63\1",[1059]="\39\24\7",[1060]="\30\51\30",[1061]="\51\12\12\51",[1062]="\63\32\32\127",[1063]="\7\8\8\63",[1064]="\63\32\63\32\63",[1065]="\63\32\63\32\127",[1066]="\1\63\36\24",[1067]="\63\36\24\63",[1068]="\63\36\36\24",[1069]="\18\33\37\30",[1070]="\63\30\33\30",[1071]="\38\25\9\63",[1072]="\24\36\20\60",[1073]="\28\42\42\16",[1074]="\60\44\44\16",[1075]="\60\4\4\4",[1076]="\96\56\36\124",[1077]="\24\52\44\8",[1078]="\36\24\60\24\36",[1079]="\36\44\28",[1080]="\60\16\8\60",[1081]="\61\18\10\61",[1082]="\60\8\24\36",[1083]="\32\24\4\60",[1084]="\60\8\48\8\60",[1085]="\60\8\8\60",[1086]="\24\36\36\24",[1087]="\60\4\4\60",[1088]="\124\36\36\24",[1089]="\24\36\36",[1090]="\4\60\4",[1091]="\12\80\32\28",[1092]="\57\111\56",[1093]="\36\24\24\36",[1094]="\60\32\32\124",[1095]="\12\16\16\60",[1096]="\60\32\60\32\60",[1097]="\60\32\60\32\124",[1098]="\4\60\40\16",[1099]="\60\40\16\60",[1100]="\60\40\40\16",[1101]="\36\44\24",[1102]="\60\24\36\24",[1103]="\40\20\60",[9829]="\6\31\62\31\6",[9834]="\16\56\31\2\4",[8592]="\8\28\8\8",[8594]="\8\8\28\8",[8593]="\2\63\2",[8595]="\16\63\16"}}

local unicode=require("unicode")
local M={fonts=F}

function M.columns(text,font)
local f=F[font or"normal"]or F.normal
local out={}
local n=unicode.len(text)
for i=1,n do
local cp=utf8.codepoint(unicode.sub(text,i,i))
local g=f.g[cp]or f.g[utf8.codepoint(unicode.upper(unicode.sub(text,i,i)))]or f.g[63]
for k=1,#g do out[#out+1]=g:byte(k)end
if i<n then out[#out+1]=0 end
end
return out,f.h
end
function M.width(text,font)return#M.columns(text,font)end
function M.height(font)return(F[font or"normal"]or F.normal).h end

function M.draw(text,font,put)
local cols,h=M.columns(text,font)
for x,c in ipairs(cols)do
for y=0,h-1 do if c>>y&1==1 then put(x-1,y)end end
end
return#cols,h
end
return M
F 2396 /lib/yaru/sha256.lua


local component=require("component")
local M={}
local k={
0x428a2f98,0x71374491,0xb5c0fbcf,0xe9b5dba5,0x3956c25b,0x59f111f1,0x923f82a4,0xab1c5ed5,
0xd807aa98,0x12835b01,0x243185be,0x550c7dc3,0x72be5d74,0x80deb1fe,0x9bdc06a7,0xc19bf174,
0xe49b69c1,0xefbe4786,0x0fc19dc6,0x240ca1cc,0x2de92c6f,0x4a7484aa,0x5cb0a9dc,0x76f988da,
0x983e5152,0xa831c66d,0xb00327c8,0xbf597fc7,0xc6e00bf3,0xd5a79147,0x06ca6351,0x14292967,
0x27b70a85,0x2e1b2138,0x4d2c6dfc,0x53380d13,0x650a7354,0x766a0abb,0x81c2c92e,0x92722c85,
0xa2bfe8a1,0xa81a664b,0xc24b8b70,0xc76c51a3,0xd192e819,0xd6990624,0xf40e3585,0x106aa070,
0x19a4c116,0x1e376c08,0x2748774c,0x34b0bcb5,0x391c0cb3,0x4ed8aa4a,0x5b9cca4f,0x682e6ff3,
0x748f82ee,0x78a5636f,0x84c87814,0x8cc70208,0x90befffa,0xa4506ceb,0xbef9a3f7,0xc67178f2}
local M32=0xFFFFFFFF
local function rotr(x,n)return((x>>n)|(x<<(32-n)))&M32 end

local function lua256(msg)
local len=#msg
msg=msg.."\128"..string.rep("\0",(55-len)%64)..string.pack(">I8",len*8)
local h={0x6a09e667,0xbb67ae85,0x3c6ef372,0xa54ff53a,0x510e527f,0x9b05688c,0x1f83d9ab,0x5be0cd19}
local w={}
for chunk=1,#msg,64 do
for i=0,15 do w[i]=string.unpack(">I4",msg,chunk+i*4)end
for i=16,63 do
local a,b=w[i-15],w[i-2]
local s0=rotr(a,7)~rotr(a,18)~(a>>3)
local s1=rotr(b,17)~rotr(b,19)~(b>>10)
w[i]=(w[i-16]+s0+w[i-7]+s1)&M32
end
local a,b,c,d,e,f,g,hh=h[1],h[2],h[3],h[4],h[5],h[6],h[7],h[8]
for i=0,63 do
local S1=rotr(e,6)~rotr(e,11)~rotr(e,25)
local ch=(e&f)~(~e&g)
local t1=(hh+S1+ch+k[i+1]+w[i])&M32
local S0=rotr(a,2)~rotr(a,13)~rotr(a,22)
local maj=(a&b)~(a&c)~(b&c)
local t2=(S0+maj)&M32
hh,g,f,e,d,c,b,a=g,f,e,(d+t1)&M32,c,b,a,(t1+t2)&M32
end
h[1],h[2],h[3],h[4]=(h[1]+a)&M32,(h[2]+b)&M32,(h[3]+c)&M32,(h[4]+d)&M32
h[5],h[6],h[7],h[8]=(h[5]+e)&M32,(h[6]+f)&M32,(h[7]+g)&M32,(h[8]+hh)&M32
end
return string.format(string.rep("%08x",8),table.unpack(h))
end

function M.hex(s)
if component.isAvailable("data")and component.data.sha256 then
return(component.data.sha256(s):gsub(".",function(c)return string.format("%02x",c:byte())end))
end
return lua256(s)
end


function M.make(pw)
local salt=string.format("%08x",math.random(0,0x7FFFFFFF))
return"sha256$"..salt.."$"..M.hex(salt..pw)
end
function M.check(stored,pw)
if type(stored)~="string"then return false end
local salt,hash=stored:match("^sha256%$(%x+)%$(%x+)$")
if not salt then return false end
return M.hex(salt..pw)==hash
end
M.lua256=lua256
return M
F 1892 /lib/yaru/tasks.lua



local serialization=require("serialization")
local computer=require("computer")
local T={FILE="/etc/yaru-tasks.cfg"}

function T.load()
local f=io.open(T.FILE)
if not f then return{}end
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
return ok and type(t)=="table"and t or{}
end
function T.save(list)
local f=io.open(T.FILE,"w")
if f then f:write(serialization.serialize(list));f:close()end
end

function T.describe(task)
local n=task.when:match("^every (%d+)")
if n then return"every "..n.." min"end
local hm=task.when:match("^at (%d+:%d+)")
if hm then return"daily at "..hm end
return"at login"
end

function T.run(Y,task)
task.last=computer.uptime()
task.result="running"
local cmd=task.cmd
require("thread").create(function()
local ok,a,b=pcall(require("shell").execute,cmd.." >>/tmp/tasks.log")
task.result=(ok and a~=false)and("ok "..Y.date("%H:%M"))or("failed "..Y.date("%H:%M"))

local list=T.load()
for _,t2 in ipairs(list)do
if t2.cmd==task.cmd and t2.when==task.when then t2.result,t2.last,t2.lastDay=task.result,task.last,task.lastDay end
end
T.save(list)
if not(ok and a~=false)or task.notify then
Y.notify("Task “"..task.name.."”",task.result..(ok and""or(": "..tostring(a))),{actionLabel="Log",
action=function()Y.launch("editor","/tmp/tasks.log")end})
end
end):detach()
end


function T.tick(Y,login)
local list=T.load()
local hm=Y.date("%H:%M")
local up=computer.uptime()
local changed=false
for _,task in ipairs(list)do
if task.on then
local every=tonumber(task.when:match("^every (%d+)")or"")
local at=task.when:match("^at (%d+:%d+)")
local due=(login and task.when=="login")
or(every and(not task.last or task.last>up or up-task.last>=every*60-5))
or(at and at==hm and task.lastDay~=Y.date("%Y-%m-%d"))
if due then
if at then task.lastDay=Y.date("%Y-%m-%d")end
T.run(Y,task)
changed=true
end
end
end
if changed then T.save(list)end
end

return T
F 1668 /lib/yaru/theme.lua



local T={}

T.accents={
{"orange",0xE95420},{"bark",0x787859},{"sage",0x657B69},{"olive",0x4B8501},
{"viridian",0x03875B},{"prussian",0x308280},{"blue",0x0073E5},{"purple",0x7764D8},
{"magenta",0xB34CB3},{"red",0xDA3450},
}

function T.accent(name)
for _,a in ipairs(T.accents)do if a[1]==name then return a[2]end end
return 0xE95420
end

local function darken(c,f)
return((c>>16)*f//1)<<16|((((c>>8)&255)*f)//1)<<8|((c&255)*f)//1
end

function T.build(dark,accentName)
local a=T.accent(accentName)
local t={
dark=dark,accent=a,accentFg=0xFFFFFF,accentDark=darken(a,0.78),
panel=0x000000,panelFg=0xFFFFFF,panelDim=0x9A9996,
danger=0xC01C28,success=0x26A269,warning=0xE5A50A,
termBg=0x2C001E,termFg=0xFFFFFF,aubergine=0x2C001E,
overview=0x1E1E1E,overviewFg=0xFFFFFF,
}
if dark then
t.bg,t.fg,t.dim=0x242424,0xFFFFFF,0x9A9996
t.view,t.sidebar,t.sep=0x1E1E1E,0x2E2E2E,0x383838
t.header,t.headerFg,t.headerIn=0x303030,0xFFFFFF,0x242424
t.button,t.buttonFg,t.hover=0x454545,0xFFFFFF,0x5E5C64
t.menu,t.menuFg,t.menuHi=0x383838,0xFFFFFF,0x454545
t.entry,t.entryFg=0x1E1E1E,0xFFFFFF
t.card,t.rowAlt=0x303030,0x2E2E2E
else
t.bg,t.fg,t.dim=0xFAFAFA,0x383838,0x77767B
t.view,t.sidebar,t.sep=0xFFFFFF,0xEBEBEB,0xDEDDDA
t.header,t.headerFg,t.headerIn=0xEBEBEB,0x383838,0xFAFAFA
t.button,t.buttonFg,t.hover=0xDEDDDA,0x383838,0xC0BFBC
t.menu,t.menuFg,t.menuHi=0xFFFFFF,0x383838,0xEBEBEB
t.entry,t.entryFg=0xFFFFFF,0x383838
t.card,t.rowAlt=0xFFFFFF,0xFAFAFA
end
t.dock=0x000000
t.sel,t.selFg=a,0xFFFFFF

t.palette={0x1E1E1E,0x242424,0x2E2E2E,0x303030,0x383838,0x454545,0x5E5C64,0x77767B,
0x9A9996,0xC0BFBC,0xDEDDDA,0xEBEBEB,0xFAFAFA,a,t.accentDark,0x2C001E}
return t
end

return T
F 6904 /lib/yaru/ui.lua


local gfx=require("yaru.gfx")
local unicode=require("unicode")
local ui={}

local function Y()return package.loaded["yaru.core"]end
function ui.theme()return Y().theme end

function ui.hit(win,x,y,w,h,fn,btn)
local hits=win.hits
hits[#hits+1]={x,y,w,h,fn,btn}
end

function ui.text(x,y,s,fg,bg)gfx.text(x,y,s,fg,bg)end

function ui.trunc(s,n)
if n<=0 then return""end
if unicode.len(s)<=n then return s end
if n==1 then return"…"end
return unicode.sub(s,1,n-1).."…"
end

function ui.pad(s,n)
s=ui.trunc(s,n)
return s..string.rep(" ",n-unicode.len(s))
end



function ui.pill(x,y,w,bg)
gfx.text(x,y,"◖",bg)
if w>2 then gfx.fill(x+1,y,w-2,1,bg)end
gfx.text(x+w-1,y,"◗",bg)
end


function ui.round(x,y,w,h,bg)
if h<=1 then return ui.pill(x,y,w,bg)end
local tl,tr=gfx.bgAt(x,y),gfx.bgAt(x+w-1,y)
local bl,br=gfx.bgAt(x,y+h-1),gfx.bgAt(x+w-1,y+h-1)
gfx.fill(x,y,w,h,bg)
gfx.text(x,y,"▟",bg,tl);gfx.text(x+w-1,y,"▙",bg,tr)
gfx.text(x,y+h-1,"▜",bg,bl);gfx.text(x+w-1,y+h-1,"▛",bg,br)
end


function ui.card(x,y,w,h,bg,shadow)
gfx.fill(x,y,w,h,bg)
gfx.half(x+1,y-1,w-2,bg,false)
gfx.text(x,y-1,"⣠",bg);gfx.text(x+w-1,y-1,"⣄",bg)
gfx.half(x+1,y+h,w-2,bg,true)
gfx.text(x,y+h,"⠙",bg);gfx.text(x+w-1,y+h,"⠋",bg)
if shadow~=false then
gfx.blend(x+w,y,1,h+1,0,0.4)
gfx.blend(x+1,y+h+1,w,1,0,0.25)
end
end


function ui.button(win,x,y,label,fn,kind,w)
local t=ui.theme()
local bg,fg=t.button,t.buttonFg
if kind=="suggested"then bg,fg=t.accent,t.accentFg
elseif kind=="destructive"then bg,fg=t.danger,0xFFFFFF
elseif kind=="flat"then bg,fg=nil,t.fg end
w=w or unicode.len(label)+4
if bg then ui.pill(x,y,w,bg)end
gfx.text(x+(w-unicode.len(label))//2,y,label,fg,bg)
if fn then ui.hit(win,x,y,w,1,fn)end
return w
end


function ui.switch(win,x,y,on,fn)
local t=ui.theme()
local off=t.dark and 0x5E5C64 or 0xC0BFBC
if on then
gfx.text(x,y,"◖",t.accent)
gfx.fill(x+1,y,2,1,t.accent)
gfx.text(x+3,y,"◖",0xFFFFFF,t.accent)
gfx.fill(x+4,y,1,1,0xFFFFFF)
gfx.text(x+5,y,"◗",0xFFFFFF)
else
gfx.text(x,y,"◖",0xFFFFFF)
gfx.fill(x+1,y,1,1,0xFFFFFF)
gfx.text(x+2,y,"◗",0xFFFFFF,off)
gfx.fill(x+3,y,2,1,off)
gfx.text(x+5,y,"◗",off)
end
if fn then ui.hit(win,x,y,6,1,fn)end
end

function ui.radio(win,x,y,on,label,fn)
local t=ui.theme()
gfx.text(x,y,on and"◉"or"○",on and t.accent or t.dim)
gfx.text(x+2,y,label,t.fg)
if fn then ui.hit(win,x,y,unicode.len(label)+2,1,fn)end
end


function ui.progress(x,y,w,frac,fg,bg)
local t=ui.theme()
frac=math.max(0,math.min(1,frac))
local n=math.floor(w*frac+.5)
if n>0 then gfx.text(x,y,string.rep("━",n),fg or t.accent)end
if n<w then gfx.text(x+n,y,string.rep("━",w-n),bg or t.sep)end
end



function ui.graph(x,y,w,h,values,maxv,fg,bg)
local t=ui.theme()
bg=bg or(t.dark and 0x1E1E1E or 0xF0F0F0)
gfx.fill(x,y,w,h,bg)
local ph=h*2
local py0=y*2-1

for q=1,3 do gfx.prect(x,py0+ph*q//4,w,1,t.dark and 0x2D2D2D or 0xE1E1E1)end
local fill=gfx.snap((((fg>>16)+(bg>>16))//2)<<16|((((fg>>8)&255)+((bg>>8)&255))//2)<<8|(((fg&255)+(bg&255))//2))
local n=#values
local prev
for i=1,math.min(w,n)do
local v=values[n-i+1]/(maxv>0 and maxv or 1)
local hp=math.max(0,math.min(ph,math.floor(v*ph+0.5)))
local col=x+w-i
if hp>0 then
gfx.prect(col,py0+ph-hp,1,hp,fill)
local top=py0+ph-hp
gfx.pset(col,top,fg)
if prev and math.abs(prev-top)>1 then
local a,b=math.min(prev,top),math.max(prev,top)
gfx.prect(col,a,1,b-a,fg)
end
prev=top
end
end
end


function ui.select(x,y,w,color)ui.pill(x,y,w,color)end


function ui.entry(win,st,x,y,w,focused,placeholder,mask)
local t=ui.theme()
st.text=st.text or""
st.cur=math.max(0,math.min(st.cur or unicode.len(st.text),unicode.len(st.text)))
st.off=st.off or 0
if st.cur<st.off then st.off=st.cur end
if st.cur-st.off>w-2 then st.off=st.cur-(w-2)end
local ring=focused and t.accent or t.entry
gfx.text(x,y,"◖",ring)
gfx.text(x+w-1,y,"◗",ring)
gfx.fill(x+1,y,w-2,1,t.entry)
local shown=st.text
if mask then shown=string.rep("•",unicode.len(shown))end
if shown==""and placeholder then
gfx.text(x+(focused and 2 or 1),y,ui.trunc(placeholder,w-3),t.dim,t.entry)
else
gfx.text(x+1,y,unicode.sub(shown,st.off+1,st.off+w-2),t.entryFg,t.entry)
end
if focused then
local cx=x+1+st.cur-st.off
local ch=unicode.sub(shown,st.cur+1,st.cur+1)
if ch==""or ch==" "then gfx.cell(cx,y,"▏",t.accent,t.entry)
else gfx.cell(cx,y,ch,t.entry,t.accent)end
end

if win then ui.hit(win,x,y,w,1,function(_,lx)st.cur=st.off+math.max(0,lx-x-1);st.focus=true;return"focus"end)end
end


function ui.entryKey(st,char,code)
local k=require("keyboard").keys
local len=unicode.len(st.text or"")
st.cur=st.cur or len
if code==k.enter or code==k.numpadenter then return"enter"
elseif code==1 then return"esc"
elseif code==k.back then
if st.cur>0 then st.text=unicode.sub(st.text,1,st.cur-1)..unicode.sub(st.text,st.cur+1);st.cur=st.cur-1 end
return true
elseif code==k.delete then
st.text=unicode.sub(st.text,1,st.cur)..unicode.sub(st.text,st.cur+2);return true
elseif code==k.left then st.cur=math.max(0,st.cur-1)return true
elseif code==k.right then st.cur=math.min(len,st.cur+1)return true
elseif code==k.home then st.cur=0 return true
elseif code==k["end"]then st.cur=len return true
elseif char and char>=32 and char~=127 then
st.text=unicode.sub(st.text,1,st.cur)..unicode.char(char)..unicode.sub(st.text,st.cur+1)
st.cur=st.cur+1
return true
end
end

function ui.entryPaste(st,s)
s=s:gsub("[\r\n].*","")
st.text=unicode.sub(st.text,1,st.cur)..s..unicode.sub(st.text,st.cur+1)
st.cur=st.cur+unicode.len(s)
end


function ui.size(n)
if n<1024 then return n.." B"end
if n<1024*1024 then return string.format("%.1f kB",n/1024)end
return string.format("%.1f MB",n/1048576)
end


function ui.scrollbar(x,y,h,first,visible,total)
if total<=visible then return end
local t=ui.theme()
local bh=math.max(1,h*visible//total)
local by=y+(h-bh)*first//math.max(1,total-visible)
for i=0,bh-1 do gfx.text(x,by+i,"▐",t.dim)end
end



local font={["0"]="0000386CC6C6CED6E6C6C66C38000000",["1"]="0000183878181818181818187E000000",
["2"]="00003C666606060C183060607E000000",["3"]="00003C666606061C060666663C000000",
["4"]="00000C1C3C6CCCCCFE0C0C0C0C000000",["5"]="00007E6060607C06060666663C000000",
["6"]="00001C3060607C66666666663C000000",["7"]="00007E0606060C0C1818181818000000",
["8"]="00003C666666763C6E6666663C000000",["9"]="00003C666666663E0606060C38000000",
[":"]="00000018181800000000181818000000"}
local function adv(c)return c==":"and 5 or 8 end
function ui.bigWidth(s)local n=0 for i=1,#s do n=n+adv(s:sub(i,i))end return n end
function ui.big(x,y,s,fg)
for i=1,#s do
local c=s:sub(i,i)
local g=font[c]
if g then
local xo=c==":"and-2 or 0
for row=0,7 do
local top,bot=tonumber(g:sub(row*4+1,row*4+2),16),tonumber(g:sub(row*4+3,row*4+4),16)
for px=0,7 do
local bit=0x80>>px
local tp,bp=top&bit~=0,bot&bit~=0
local ch=tp and bp and"█"or tp and"▀"or bp and"▄"
if ch then gfx.text(x+px+xo,y+row,ch,fg)end
end
end
end
x=x+adv(c)
end
end

return ui
F 4299 /lib/yaru/vgpu.lua




local gfx=require("yaru.gfx")
local unicode=require("unicode")

local vgpu={}
local color=gfx.color


local remapFg={[0x000000]=0x171421,[0xFF0000]=0xF66151,[0x00FF00]=0x33DA7A,[0xFFFF00]=0xE9AD0C,
[0x0000FF]=0x2A7BDE,[0xFF00FF]=0xC061CB,[0x00B6FF]=0x33C7DE,[0xFFFFFF]=0xFFFFFF}

function vgpu.new(w,h,opts)
opts=opts or{}
local termBg=opts.bg or 0x2C001E
local g={w=w,h=h,grid={},changed=true,scroll=0}
local fg,bg=0xFFFFFF,0x000000
local fgK,bgK
local palette={}
for i=0,15 do palette[i]=(i*17)<<16|(i*17)<<8|(i*17)end
local function mapFg(c)return remapFg[c]or c end
local function mapBg(c)if c==0 then return termBg end return c end
local function upd()fgK=color(mapFg(fg))<<21;bgK=color(mapBg(bg))<<29 end
upd()
local grid=g.grid
local blank=function()return 32|fgK|bgK end
for i=1,w*h do grid[i]=32|fgK|bgK end

local function touch()if not g.changed then g.changed=true;if g.onChange then g.onChange()end end end

local p={type="gpu",address=opts.address or"vgpu"}
g.proxy=p
function p.getScreen()return opts.screen end
function p.bind()return true end
function p.getResolution()return g.w,g.h end
function p.maxResolution()return g.w,g.h end
function p.getViewport()return g.w,g.h end
function p.setResolution(nw,nh)
if nw==g.w and nh==g.h then return false end
if g.onResize then return g.onResize(nw,nh)end
return false
end
p.setViewport=p.setResolution
function p.getDepth()return 8 end
function p.maxDepth()return 8 end
function p.setDepth()return 8 end
function p.getForeground()return fg,false end
function p.getBackground()return bg,false end
function p.setForeground(c,isPal)
local old=fg
if isPal then c=palette[c]or 0xFFFFFF end
fg=c;upd();return old
end
function p.setBackground(c,isPal)
local old=bg
if isPal then c=palette[c]or 0 end
bg=c;upd();return old
end
function p.getPaletteColor(i)return palette[i]end
function p.setPaletteColor(i,c)local o=palette[i];palette[i]=c;return o end
function p.set(x,y,s,vertical)
x,y=math.floor(x),math.floor(y)
local W,H=g.w,g.h
if not vertical and(y<1 or y>H)then return true end
local i=0
local k=fgK|bgK
for _,cp in utf8.codes(s)do
local xx,yy=x+i,y
if vertical then xx,yy=x,y+i end
if xx>=1 and xx<=W and yy>=1 and yy<=H then grid[(yy-1)*W+xx]=cp|k end
i=i+1
end
touch()
return true
end
function p.get(x,y)
x,y=math.floor(x),math.floor(y)
if x<1 or y<1 or x>g.w or y>g.h then error("index out of bounds")end
local v=grid[(y-1)*g.w+x]
return unicode.char(v&0x1FFFFF),gfx.rgb((v>>21)&255),gfx.rgb((v>>29)&255)
end
function p.fill(x,y,fw,fh,ch)
x,y,fw,fh=math.floor(x),math.floor(y),math.floor(fw),math.floor(fh)
local W=g.w
local v=utf8.codepoint(ch)|fgK|bgK
local x2,y2=math.min(W,x+fw-1),math.min(g.h,y+fh-1)
x,y=math.max(1,x),math.max(1,y)
for yy=y,y2 do
local base=(yy-1)*W
for xx=x,x2 do grid[base+xx]=v end
end
touch()
return true
end
function p.copy(x,y,cw,ch,tx,ty)
x,y,cw,ch,tx,ty=math.floor(x),math.floor(y),math.floor(cw),math.floor(ch),math.floor(tx),math.floor(ty)
local W,H=g.w,g.h

local x1,y1=math.max(1,x),math.max(1,y)
local x2,y2=math.min(W,x+cw-1),math.min(H,y+ch-1)
if x1>x2 or y1>y2 then return true end
local rows={}
local ystart,ystop,ystep=y1,y2,1
if ty>0 then ystart,ystop,ystep=y2,y1,-1 end
local xstart,xstop,xstep=x1,x2,1
if tx>0 then xstart,xstop,xstep=x2,x1,-1 end
for yy=ystart,ystop,ystep do
local dy=yy+ty
if dy>=1 and dy<=H then
local sb,db=(yy-1)*W,(dy-1)*W
for xx=xstart,xstop,xstep do
local dx=xx+tx
if dx>=1 and dx<=W then grid[db+dx]=grid[sb+xx]end
end
end
end

if tx==0 and ty<0 and x1==1 and x2==W and y1+ty==1 and y2==H then
g.scroll=g.scroll-ty
else
g.noscroll=true
end
touch()
return true
end

function p.getActiveBuffer()return 0 end
function p.setActiveBuffer()return 0 end
function p.buffers()return{}end
function p.allocateBuffer()return nil,"not enough video memory"end
function p.freeBuffer()return false end
function p.freeAllBuffers()end
function p.totalMemory()return 0 end
function p.freeMemory()return 0 end
function p.bitblt()return false end

function g.resize(nw,nh)
local ng={}
local b=blank()
for yy=1,nh do
for xx=1,nw do
ng[(yy-1)*nw+xx]=(xx<=g.w and yy<=g.h)and grid[(yy-1)*g.w+xx]or b
end
end
for i=1,#grid do grid[i]=nil end
for i=1,nw*nh do grid[i]=ng[i]end
g.w,g.h=nw,nh
g.noscroll=true
touch()
end
function g.setTermBg(c)termBg=c;upd()end
return g
end

return vgpu
F 10725 /lib/yaru/vox.lua





local gfx=require("yaru.gfx")
local V={}

local floor,sqrt,cos,sin,min,max=math.floor,math.sqrt,math.cos,math.sin,math.min,math.max


V.NORMALS={{-1,0,0},{1,0,0},{0,-1,0},{0,1,0},{0,0,-1},{0,0,1}}
local N=V.NORMALS
local SHADE={}
do
local lx,ly,lz=-0.45,1,0.65
local l=sqrt(lx*lx+ly*ly+lz*lz)
for f,n in ipairs(N)do SHADE[f]=0.6+0.4*max(0,(n[1]*lx+n[2]*ly+n[3]*lz)/l)end
end
V.SHADE=SHADE

function V.scale(rgb,f)
local r,g,b=floor((rgb>>16)*f),floor(((rgb>>8)&255)*f),floor((rgb&255)*f)
if r>255 then r=255 end
if g>255 then g=255 end
if b>255 then b=255 end
return r<<16|g<<8|b
end
function V.mix(a,b,f)
local ia=1-f
return floor((a>>16)*ia+(b>>16)*f)<<16|floor(((a>>8)&255)*ia+((b>>8)&255)*f)<<8
|floor((a&255)*ia+(b&255)*f)
end
local scale=V.scale


function V.frame(W,H,bg)
return{W=W,H=H,zb={},col={},fid={},bg=bg or 0x101014}
end




function V.camera(F,view,cx,cy,cz,r)
local dist=r*3
local f=min(F.W,F.H)/2*dist/r*0.92*(view.zoom or 1)
local cyw,syw=cos(view.yaw or 0),sin(view.yaw or 0)
local cp,sp=cos(view.pitch or 0.5),sin(view.pitch or 0.5)
F.c={cx,cy,cz,dist,f,cyw,syw,cp,sp}
F.ox,F.oy=F.W/2+(view.panx or 0),F.H/2+(view.pany or 0)

local zr=-dist*cp
F.eye={cx+zr*syw,cy+dist*sp,cz+zr*cyw}
end

function V.project(F,x,y,z)
local c=F.c
x,y,z=x-c[1],y-c[2],z-c[3]
local xr,zr=z*c[7]-x*c[6],x*c[7]+z*c[6]
local yr,zz=y*c[8]+zr*c[9],-y*c[9]+zr*c[8]+c[4]
if zz<0.05 then zz=0.05 end
return F.ox+xr*c[5]/zz,F.oy-yr*c[5]/zz,zz
end
local project=V.project


local function tri(F,ax,ay,az,bx,by,bz,cx,cy,cz,rgb,id)
local W,H=F.W,F.H
local x0,x1=floor(min(ax,bx,cx)),floor(max(ax,bx,cx))
local y0,y1=floor(min(ay,by,cy)),floor(max(ay,by,cy))
if x0<0 then x0=0 end
if y0<0 then y0=0 end
if x1>W-1 then x1=W-1 end
if y1>H-1 then y1=H-1 end
if x0>x1 or y0>y1 then return end
local area=(bx-ax)*(cy-ay)-(cx-ax)*(by-ay)
if area==0 then return end
local inv=1/area
local zb,col,fid=F.zb,F.col,F.fid
local e=-1e-7
for py=y0,y1 do
local sy=py+0.5
local base=py*W+1
for px=x0,x1 do
local sx=px+0.5
local w0=((bx-sx)*(cy-sy)-(cx-sx)*(by-sy))*inv
if w0>=e then
local w1=((cx-sx)*(ay-sy)-(ax-sx)*(cy-sy))*inv
if w1>=e and w0+w1<=1-e then
local z=w0*az+w1*bz+(1-w0-w1)*cz
local k=base+px
local o=zb[k]
if not o or z<o then zb[k]=z;col[k]=rgb;fid[k]=id end
end
end
end
end
end


local function corners(f,x1,y1,z1,x2,y2,z2)
if f==1 then return x1,y1,z1,x1,y1,z2,x1,y2,z2,x1,y2,z1
elseif f==2 then return x2,y1,z1,x2,y1,z2,x2,y2,z2,x2,y2,z1
elseif f==3 then return x1,y1,z1,x2,y1,z1,x2,y1,z2,x1,y1,z2
elseif f==4 then return x1,y2,z1,x2,y2,z1,x2,y2,z2,x1,y2,z2
elseif f==5 then return x1,y1,z1,x2,y1,z1,x2,y2,z1,x1,y2,z1
else return x1,y1,z2,x2,y1,z2,x2,y2,z2,x1,y2,z2 end
end



function V.face(F,f,x1,y1,z1,x2,y2,z2,rgb,id,noShade)
local n,e=N[f],F.eye
local mx=(n[1]==0)and(x1+x2)/2 or(n[1]<0 and x1 or x2)
local my=(n[2]==0)and(y1+y2)/2 or(n[2]<0 and y1 or y2)
local mz=(n[3]==0)and(z1+z2)/2 or(n[3]<0 and z1 or z2)
if n[1]*(mx-e[1])+n[2]*(my-e[2])+n[3]*(mz-e[3])>=0 then return end
local ax,ay,az,bx,by,bz,cx,cy,cz,dx,dy,dz=corners(f,x1,y1,z1,x2,y2,z2)
local pax,pay,paz=project(F,ax,ay,az)
local pbx,pby,pbz=project(F,bx,by,bz)
local pcx,pcy,pcz=project(F,cx,cy,cz)
local pdx,pdy,pdz=project(F,dx,dy,dz)
local c=noShade and rgb or scale(rgb,SHADE[f])
local fidv=(id or 0)*8+f

local w=max(pax,pbx,pcx,pdx)-min(pax,pbx,pcx,pdx)
local h=max(pay,pby,pcy,pdy)-min(pay,pby,pcy,pdy)
if w<1.5 and h<1.5 then
local px,py=floor((pax+pcx)/2),floor((pay+pcy)/2)
if px>=0 and py>=0 and px<F.W and py<F.H then
local k=py*F.W+px+1
local z=(paz+pcz)/2
if not F.zb[k]or z<F.zb[k]then F.zb[k]=z;F.col[k]=c;F.fid[k]=fidv end
end
return
end
tri(F,pax,pay,paz,pbx,pby,pbz,pcx,pcy,pcz,c,fidv)
tri(F,pax,pay,paz,pcx,pcy,pcz,pdx,pdy,pdz,c,fidv)
end

function V.box(F,x1,y1,z1,x2,y2,z2,rgb,id)
for f=1,6 do V.face(F,f,x1,y1,z1,x2,y2,z2,rgb,id)end
end


function V.line(F,x1,y1,z1,x2,y2,z2,rgb,behind)
local ax,ay,az=project(F,x1,y1,z1)
local bx,by,bz=project(F,x2,y2,z2)
local n=max(1,floor(max(math.abs(bx-ax),math.abs(by-ay))+0.5))
local W,H,zb,col=F.W,F.H,F.zb,F.col
for i=0,n do
local t=i/n
local px,py=floor(ax+(bx-ax)*t),floor(ay+(by-ay)*t)
if px>=0 and py>=0 and px<W and py<H then
local k=py*W+px+1
local z=az+(bz-az)*t
local o=zb[k]
if not o or z<=o+0.02 then
col[k]=rgb
if not o then zb[k]=z+1e6 end
elseif behind then
col[k]=V.mix(col[k],rgb,behind)
end
end
end
end





function V.edges(F,f,soft,jumpUnits)
local W,H,fid,col,zb=F.W,F.H,F.fid,F.col,F.zb
local mark={}
local jump=jumpUnits or(F.c and F.c[4]*0.012 or 0.3)
local function key(k)
local v=fid[k]
if not v then return nil end
return(v%8)*0x1000000+col[k]
end

local function edge(k1,k2,a,b)
if not a then mark[k2]=2 return end
if not b then mark[k1]=2 return end
local near,far=k1,k2
if zb[k2]<zb[k1]then near,far=k2,k1 end
local strength=(zb[far]-zb[near]>jump)and 2 or 1
if(mark[near]or 0)<strength then mark[near]=strength end
end
for py=0,H-1 do
local base=py*W+1
for px=0,W-1 do
local k=base+px
local a=key(k)
if px<W-1 then
local b=key(k+1)
if a~=b then edge(k,k+1,a,b)end
end
if py<H-1 then
local b=key(k+W)
if a~=b then edge(k,k+W,a,b)end
end
end
end
local strong,mild=f or 0.62,soft or 0.86
for k,m in pairs(mark)do if fid[k]then col[k]=scale(col[k],m==2 and strong or mild)end end
end


function V.pick(F,px,py)
local k=floor(py)*F.W+floor(px)+1
local v=F.fid[k]
if not v then return nil end
return v//8,v%8,F.zb and F.zb[k]
end


function V.toGrid(F,top,bottom)
local W,H,col=F.W,F.H,F.col
top,bottom=top or F.bg,bottom or F.bg
local grid={}
local rows=H//2
for r=0,rows-1 do
local bgc=gfx.color(V.mix(top,bottom,r/max(1,rows-1)))
local bgrgb=gfx.rgb(bgc)
for x=0,W-1 do
local t,b=col[r*2*W+x+1],col[(r*2+1)*W+x+1]
local ti,bi=t and gfx.color(t)or bgc,b and gfx.color(b)or bgc
grid[r*W+x+1]=ti==bi and(32|ti<<21|ti<<29)or(0x2580|ti<<21|bi<<29)
end
local _=bgrgb
end
return grid,W,rows
end





local ORDERS={{1,3,2},{3,1,2},{1,2,3},{2,1,3},{3,2,1},{2,3,1}}
function V.boxes(sx,sy,sz,get,breathe)
local dims={sx,sy,sz}
local best
for _,ord in ipairs(ORDERS)do
local done={}
local out={}
local function idx(p)return(p[3]*sy+p[2])*sx+p[1]+1 end
local a,b,c=ord[1],ord[2],ord[3]
local p={0,0,0}
for z=0,sz-1 do
for y=0,sy-1 do
for x=0,sx-1 do
p[1],p[2],p[3]=x,y,z
local v=get(x,y,z)
if v~=0 and not done[idx(p)]then
local lo={x,y,z}
local hi={x,y,z}
local q={0,0,0}
local function free(axis,at)

local r1=axis==1 and{at,at}or{lo[1],hi[1]}
local r2=axis==2 and{at,at}or{lo[2],hi[2]}
local r3=axis==3 and{at,at}or{lo[3],hi[3]}
if at>=dims[axis]then return false end
for zz=r3[1],r3[2]do for yy=r2[1],r2[2]do for xx=r1[1],r1[2]do
q[1],q[2],q[3]=xx,yy,zz
if get(xx,yy,zz)~=v or done[idx(q)]then return false end
end end end
return true
end
for _,axis in ipairs({a,b,c})do
while free(axis,hi[axis]+1)do hi[axis]=hi[axis]+1 end
end
for zz=lo[3],hi[3]do for yy=lo[2],hi[2]do for xx=lo[1],hi[1]do
q[1],q[2],q[3]=xx,yy,zz
done[idx(q)]=true
end end end
out[#out+1]={lo[1],lo[2],lo[3],hi[1]+1,hi[2]+1,hi[3]+1,v}
if best and#out>=#best then break end
end
end
if best and#out>=#best then break end
end
if breathe then breathe()end
if best and#out>=#best then break end
end
if not best or#out<#best then best=out end
end
return best or{}
end



function V.faces(sx,sy,sz,get,breathe)
local out={}
local dims={sx,sy,sz}
for d=1,3 do
local u,v=d%3+1,(d+1)%3+1
local du,dv=dims[u],dims[v]
for dir=-1,1,2 do
local f=d*2-(dir<0 and 1 or 0)
local p={0,0,0}
for s=0,dims[d]-1 do
local mask={}
local any=false
for j=0,dv-1 do
for i=0,du-1 do
p[d],p[u],p[v]=s,i,j
local val=get(p[1],p[2],p[3])
if val~=0 then
local n=s+dir
local nb=0
if n>=0 and n<dims[d]then p[d]=n;nb=get(p[1],p[2],p[3])end
if nb==0 then mask[j*du+i+1]=val;any=true end
end
end
end
if any then
local plane=dir<0 and s or s+1
for j=0,dv-1 do
local i=0
while i<du do
local val=mask[j*du+i+1]
if val then
local w=1
while i+w<du and mask[j*du+i+w+1]==val do w=w+1 end
local h=1
local ok=true
while j+h<dv and ok do
for k=0,w-1 do if mask[(j+h)*du+i+k+1]~=val then ok=false break end end
if ok then h=h+1 end
end
for jj=j,j+h-1 do for k=0,w-1 do mask[jj*du+i+k+1]=nil end end
local lo,hi={0,0,0},{0,0,0}
lo[d],hi[d]=plane,plane
lo[u],hi[u]=i,i+w
lo[v],hi[v]=j,j+h
out[#out+1]={f,lo[1],lo[2],lo[3],hi[1],hi[2],hi[3],val}
i=i+w
else
i=i+1
end
end
end
end
if breathe then breathe()end
end
end
end
return out
end





function V.layerMesher(sx,sy,sz)
local sides,tops,bots={},{},{}
local function rects(mask,du,dv,emit)
for j=0,dv-1 do
local i=0
while i<du do
local val=mask[j*du+i+1]
if val then
local w=1
while i+w<du and mask[j*du+i+w+1]==val do w=w+1 end
local h=1
local ok=true
while j+h<dv and ok do
for k=0,w-1 do if mask[(j+h)*du+i+k+1]~=val then ok=false break end end
if ok then h=h+1 end
end
for jj=j,j+h-1 do for k=0,w-1 do mask[jj*du+i+k+1]=nil end end
emit(i,j,w,h,val)
i=i+w
else
i=i+1
end
end
end
end
local function sideFaces(s,y)
local out={}
if not s:find("[^\0]")then return out end

for dir=-1,1,2 do
local f=dir<0 and 1 or 2
for x=0,sx-1 do
local z=0
while z<sz do
local v=s:byte(z*sx+x+1)
local nx=x+dir
local open=v~=0 and(nx<0 or nx>=sx or s:byte(z*sx+nx+1)==0)
if open then
local z2=z+1
while z2<sz do
local v2=s:byte(z2*sx+x+1)
if v2~=v or not(nx<0 or nx>=sx or s:byte(z2*sx+nx+1)==0)then break end
z2=z2+1
end
local px=dir<0 and x or x+1
out[#out+1]={f,px,y,z,px,y+1,z2,v}
z=z2
else
z=z+1
end
end
end
end

for dir=-1,1,2 do
local f=dir<0 and 5 or 6
for z=0,sz-1 do
local nz=z+dir
local x=0
while x<sx do
local v=s:byte(z*sx+x+1)
local open=v~=0 and(nz<0 or nz>=sz or s:byte(nz*sx+x+1)==0)
if open then
local x2=x+1
while x2<sx do
local v2=s:byte(z*sx+x2+1)
if v2~=v or not(nz<0 or nz>=sz or s:byte(nz*sx+x2+1)==0)then break end
x2=x2+1
end
local pz=dir<0 and z or z+1
out[#out+1]={f,x,y,pz,x2,y+1,pz,v}
x=x2
else
x=x+1
end
end
end
end
return out
end
local function capFaces(s,other,y,up)
local out={}
if not s:find("[^\0]")then return out end
local mask={}
for k=1,sx*sz do
local v=s:byte(k)
if v~=0 and(not other or other:byte(k)==0)then mask[k]=v end
end
local py=up and y+1 or y
rects(mask,sx,sz,function(i,j,w,h,val)
out[#out+1]={up and 4 or 3,i,py,j,i+w,py,j+h,val}
end)
return out
end
local M={}
function M.update(L,breathe)
local all={}
for y=0,sy-1 do
local s,above,below=L[y+1],L[y+2],L[y]
local c=sides[y]
if not c or c.s~=s then c={s=s,q=sideFaces(s,y)};sides[y]=c end
local t=tops[y]
if not t or t.s~=s or t.o~=above then t={s=s,o=above,q=capFaces(s,above,y,true)};tops[y]=t end
local b=bots[y]
if not b or b.s~=s or b.o~=below then b={s=s,o=below,q=capFaces(s,below,y,false)};bots[y]=b end
for _,list in ipairs({c.q,t.q,b.q})do for _,q in ipairs(list)do all[#all+1]=q end end
if breathe then breathe()end
end
return all
end
function M.reset()sides,tops,bots={},{},{}end
return M
end

return V
F 10452 /lib/yaru/voxedit.lua








local gfx=require("yaru.gfx")
local E={}
E.__index=E

local floor,min,max,abs=math.floor,math.min,math.max,math.abs
local function mix(a,b,f)
local ia=1-f
return floor((a>>16)*ia+(b>>16)*f)<<16|floor(((a>>8)&255)*ia+((b>>8)&255)*f)<<8
|floor((a&255)*ia+(b&255)*f)
end
local schar,unpack=string.char,table.unpack

function E.new(o)
local ed=setmetatable({sx=o.sx,sy=o.sy,sz=o.sz,L={},y=o.y or 0,tool="pen",value=1,brush=1,
mirrorX=false,mirrorZ=false,undo={},redo={},zoom=nil,ox=0,oz=0,onion=true,
colorOf=o.colorOf,onChange=o.onChange,maxUndo=o.maxUndo or 40},E)
ed:theme(true)
ed:clear(true)
return ed
end


function E:theme(dark)

if dark then self.bg1,self.bg2,self.guide1,self.guide2=0x1E1E1E,0x242424,0x2E2E2E,0x303030
else self.bg1,self.bg2,self.guide1,self.guide2=0xFAFAFA,0xEBEBEB,0xDEDDDA,0xDEDDDA end
end


function E:empty()return string.rep("\0",self.sx*self.sz)end
function E:clear(silent)
local e=self:empty()
for y=1,self.sy do self.L[y]=e end
if not silent then self:changed()end
end
function E:changed()self.version=(self.version or 0)+1;if self.onChange then self.onChange()end end
function E:get(x,y,z)
if x<0 or y<0 or z<0 or x>=self.sx or y>=self.sy or z>=self.sz then return 0 end
return self.L[y+1]:byte(z*self.sx+x+1)
end

function E:getter()
local L,sx=self.L,self.sx
return function(x,y,z)return L[y+1]:byte(z*sx+x+1)end
end
function E:count()
local n=0
for y=1,self.sy do
local s=self.L[y]
local _,k=s:gsub("[^\0]","")
n=n+k
end
return n
end

function E:setCells(y,cells,v)
if y<0 or y>=self.sy or#cells==0 then return end
local s=self.L[y+1]
local b={s:byte(1,-1)}
local sx,sz=self.sx,self.sz
local any=false
for i=1,#cells,2 do
local x,z=cells[i],cells[i+1]
if x>=0 and z>=0 and x<sx and z<sz then
local k=z*sx+x+1
if b[k]~=v then b[k]=v;any=true end
end
end
if any then
local parts={}
for i=1,#b,4096 do parts[#parts+1]=schar(unpack(b,i,min(#b,i+4095)))end
self.L[y+1]=table.concat(parts)
end
return any
end

function E:apply(fn,breathe)
for y=0,self.sy-1 do
local cells,vals={},{}
for z=0,self.sz-1 do
for x=0,self.sx-1 do
local v=fn(x,y,z)
if v then
vals[v]=vals[v]or{}
local c=vals[v]
c[#c+1]=x;c[#c+1]=z
end
end
end
for v,c in pairs(vals)do self:setCells(y,c,v)end
if breathe then breathe()end
end
end

function E:remap(fn)
local old={unpack(self.L)}
local sx=self.sx
local function get(x,y,z)
if x<0 or y<0 or z<0 or x>=self.sx or y>=self.sy or z>=self.sz then return 0 end
return old[y+1]:byte(z*sx+x+1)
end
for y=0,self.sy-1 do
local b={}
for z=0,self.sz-1 do
for x=0,sx-1 do
local a,bb,c=fn(x,y,z)
b[z*sx+x+1]=a and get(a,bb,c)or 0
end
end
local parts={}
for i=1,#b,4096 do parts[#parts+1]=schar(unpack(b,i,min(#b,i+4095)))end
self.L[y+1]=table.concat(parts)
end
end
function E:bounds()
local x1,y1,z1,x2,y2,z2
for y=0,self.sy-1 do
local s=self.L[y+1]
if s:find("[^\0]")then
y1=y1 or y;y2=y
for z=0,self.sz-1 do
local row=s:sub(z*self.sx+1,(z+1)*self.sx)
local a=row:find("[^\0]")
if a then
local b=#row-row:reverse():find("[^\0]")+1
x1=min(x1 or a-1,a-1);x2=max(x2 or b-1,b-1)
z1=min(z1 or z,z);z2=max(z2 or z,z)
end
end
end
end
if not y1 then return nil end
return x1,y1,z1,x2,y2,z2
end


function E:checkpoint()
self.undo[#self.undo+1]={unpack(self.L)}
if#self.undo>self.maxUndo then table.remove(self.undo,1)end
self.redo={}
end
function E:undoStep()
local s=table.remove(self.undo)
if not s then return false end
self.redo[#self.redo+1]={unpack(self.L)}
self.L=s
self:changed()
return true
end
function E:redoStep()
local s=table.remove(self.redo)
if not s then return false end
self.undo[#self.undo+1]={unpack(self.L)}
self.L=s
self:changed()
return true
end
function E:snapshot()return{unpack(self.L)}end
function E:restore(layers)self.L={unpack(layers)};self:changed()end



local function addPoint(ed,out,x,z)
local r=ed.brush-1
local lo=-floor(r/2)
for dz=lo,lo+r do
for dx=lo,lo+r do
local px,pz=x+dx,z+dz
out[#out+1]=px;out[#out+1]=pz
if ed.mirrorX then out[#out+1]=ed.sx-1-px;out[#out+1]=pz end
if ed.mirrorZ then out[#out+1]=px;out[#out+1]=ed.sz-1-pz end
if ed.mirrorX and ed.mirrorZ then out[#out+1]=ed.sx-1-px;out[#out+1]=ed.sz-1-pz end
end
end
end
local function linePoints(ed,out,x0,z0,x1,z1,thin)
local dx,dz=abs(x1-x0),-abs(z1-z0)
local sx,sz=x0<x1 and 1 or-1,z0<z1 and 1 or-1
local err=dx+dz
while true do
if thin then
out[#out+1]=x0;out[#out+1]=z0
if ed.mirrorX then out[#out+1]=ed.sx-1-x0;out[#out+1]=z0 end
if ed.mirrorZ then out[#out+1]=x0;out[#out+1]=ed.sz-1-z0 end
if ed.mirrorX and ed.mirrorZ then out[#out+1]=ed.sx-1-x0;out[#out+1]=ed.sz-1-z0 end
else
addPoint(ed,out,x0,z0)
end
if x0==x1 and z0==z1 then break end
local e2=2*err
if e2>=dz then err=err+dz;x0=x0+sx end
if e2<=dx then err=err+dx;z0=z0+sz end
end
end
function E:shapeCells(tool,x0,z0,x1,z1)
local out={}
if tool=="line"then
linePoints(self,out,x0,z0,x1,z1)
elseif tool=="rect"or tool=="box"then
local a,b=min(x0,x1),max(x0,x1)
local c,d=min(z0,z1),max(z0,z1)
for z=c,d do
for x=a,b do
if tool=="box"or x==a or x==b or z==c or z==d then
out[#out+1]=x;out[#out+1]=z
if self.mirrorX then out[#out+1]=self.sx-1-x;out[#out+1]=z end
if self.mirrorZ then out[#out+1]=x;out[#out+1]=self.sz-1-z end
if self.mirrorX and self.mirrorZ then out[#out+1]=self.sx-1-x;out[#out+1]=self.sz-1-z end
end
end
end
elseif tool=="circle"or tool=="disc"then
local cx,cz=(x0+x1)/2,(z0+z1)/2
local rx,rz=abs(x1-x0)/2+0.5,abs(z1-z0)/2+0.5
for z=min(z0,z1),max(z0,z1)do
for x=min(x0,x1),max(x0,x1)do
local d=((x-cx)/rx)^2+((z-cz)/rz)^2
local inside=d<=1
local edge=inside and(tool=="disc"or
((x+1-cx)/rx)^2+((z-cz)/rz)^2>1 or((x-1-cx)/rx)^2+((z-cz)/rz)^2>1 or
((x-cx)/rx)^2+((z+1-cz)/rz)^2>1 or((x-cx)/rx)^2+((z-1-cz)/rz)^2>1)
if edge then
out[#out+1]=x;out[#out+1]=z
if self.mirrorX then out[#out+1]=self.sx-1-x;out[#out+1]=z end
if self.mirrorZ then out[#out+1]=x;out[#out+1]=self.sz-1-z end
end
end
end
end
return out
end
function E:flood(x,z,v)
local y=self.y
local from=self:get(x,y,z)
if from==v then return end
local sx,sz=self.sx,self.sz
local s=self.L[y+1]
local seen,out,stack={},{},{x,z}
while#stack>0 do
local cz=table.remove(stack)
local cx=table.remove(stack)
local k=cz*sx+cx+1
if cx>=0 and cz>=0 and cx<sx and cz<sz and not seen[k]and s:byte(k)==from then
seen[k]=true
out[#out+1]=cx;out[#out+1]=cz
stack[#stack+1]=cx+1;stack[#stack+1]=cz
stack[#stack+1]=cx-1;stack[#stack+1]=cz
stack[#stack+1]=cx;stack[#stack+1]=cz+1
stack[#stack+1]=cx;stack[#stack+1]=cz-1
end
end
self:setCells(y,out,v)
end



function E:fitScale(w,h)
return max(1,min(w//self.sx,(h*2)//self.sz))
end
function E:geometry(x,y,w,h)
local fit=self:fitScale(w,h)
local s=self.zoom or fit
local vw,vh=min(self.sx,w//s),min(self.sz,(h*2)//s)
self.ox=max(0,min(self.ox,self.sx-vw))
self.oz=max(0,min(self.oz,self.sz-vh))
local pw,ph=vw*s,vh*s
local px0=x+(w-pw)//2
local py0=(2*y-1)+((h*2-ph)//2)
if py0%2==0 and s%2==0 then py0=py0+1 end
self.geo={px0=px0,py0=py0,s=s,vw=vw,vh=vh,x=x,y=y,w=w,h=h,fit=fit}
return self.geo
end

function E:voxelAt(lx,ly,frac)
local g=self.geo
if not g then return end
local py=2*ly-1+((frac or 0)>=0.5 and 1 or 0)
local vx=(lx-g.px0)//g.s
local vz=(py-g.py0)//g.s
if vx<0 or vz<0 or vx>=g.vw or vz>=g.vh then return nil end
return vx+self.ox,vz+self.oz
end

function E:draw(x,y,w,h,opts)
opts=opts or{}
local g=self:geometry(x,y,w,h)
local s,px0,py0=g.s,g.px0,g.py0
local L,sx=self.L,self.sx
local cur,below=L[self.y+1],self.y>0 and L[self.y]or nil
local colorOf=self.colorOf
local bg1,bg2=self.bg1,self.bg2
local prev={}
if self.preview then for i=1,#self.preview,2 do prev[self.preview[i+1]*sx+self.preview[i]+1]=true end end
local pv=self.previewValue
local midX,midZ=self.sx//2,self.sz//2
local guide=opts.guides~=false
local block=s>=3 and 1 or 4
for vz=0,g.vh-1 do
local z=vz+self.oz
for vx=0,g.vw-1 do
local xx=vx+self.ox
local k=z*sx+xx+1
local v=cur:byte(k)
local c
if prev[k]then
c=pv and pv>0 and colorOf(pv)or 0x000000
if not pv or pv==0 then c=0x5A2020 end
elseif v~=0 then
c=colorOf(v)
else
local even=((xx//block)+(z//block))%2==0
c=even and bg1 or bg2
if guide and(xx==midX or z==midZ)and s>=2 then c=even and self.guide1 or self.guide2 end
if below and self.onion then
local bv=below:byte(k)
if bv~=0 then c=mix(colorOf(bv),self.bg2,0.7)end
end
end
gfx.prect(px0+vx*s,py0+vz*s,s,s,c)
end
end

if s>=6 then
for vz=0,g.vh-1 do
for vx=0,g.vw-1 do
local k=(vz+self.oz)*sx+vx+self.ox+1
if cur:byte(k)~=0 and not prev[k]then
gfx.prect(px0+vx*s+s-1,py0+vz*s,1,s,0x000000|((colorOf(cur:byte(k))>>1)&0x7F7F7F))
gfx.prect(px0+vx*s,py0+vz*s+s-1,s,1,0x000000|((colorOf(cur:byte(k))>>1)&0x7F7F7F))
end
end
end
end
return g
end



function E:touch(lx,ly,btn,kind,frac)
local x,z=self:voxelAt(lx,ly,frac)
local tool=self.tool
local v=btn==1 and 0 or self.value
if kind=="touch"then
if not x then return false end
if tool=="pick"then
local p=self:get(x,self.y,z)
if p~=0 then self.value=p end
self.tool=self.lastTool or"pen"
return true,"picked"
elseif tool=="fill"then
self:checkpoint()
self:flood(x,z,v)
self:changed()
return true
elseif tool=="pen"then
self:checkpoint()
local cells={}
addPoint(self,cells,x,z)
self:setCells(self.y,cells,v)
self.stroke={x,z,v}
self:changed()
return true
else
self.stroke={x,z,v,x,z}
self.preview=self:shapeCells(tool,x,z,x,z)
self.previewValue=v
return true
end
elseif kind=="drag"and self.stroke then
if not x then return false end
local st=self.stroke
if tool=="pen"then
if x~=st[1]or z~=st[2]then
local cells={}
linePoints(self,cells,st[1],st[2],x,z)
self:setCells(self.y,cells,st[3])
st[1],st[2]=x,z
self:changed()
end
else
st[4],st[5]=x,z
self.preview=self:shapeCells(tool,st[1],st[2],x,z)
end
return true
elseif kind=="drop"and self.stroke then
local st=self.stroke
self.stroke=nil
if tool~="pen"then
if x then st[4],st[5]=x,z end
self:checkpoint()
self:setCells(self.y,self:shapeCells(tool,st[1],st[2],st[4],st[5]),st[3])
self.preview=nil
self:changed()
end
return true
end
return false
end

function E:setTool(t)
if t=="pick"and self.tool~="pick"then self.lastTool=self.tool end
self.tool=t
self.preview,self.stroke=nil,nil
end
function E:setLayer(y)
y=max(0,min(self.sy-1,y))
if y~=self.y then self.y=y;self.preview,self.stroke=nil,nil;return true end
return false
end
function E:zoomBy(d,w,h)
local fit=self:fitScale(w,h)
local steps={1,2,3,4,6,8,12,16}
local cur=self.zoom or fit
local z=cur
if d>0 then
for _,v in ipairs(steps)do if v>cur then z=v break end end
else
for i=#steps,1,-1 do if steps[i]<cur then z=steps[i]break end end
end
self.zoom=z>fit and z or nil
end

return E
F 2458 /lib/yaru/wall.lua




local gfx=require("yaru.gfx")
local sqrt,floor,max,min,char,concat=math.sqrt,math.floor,math.max,math.min,string.char,table.concat

local M={}


local BAYER={{0,8,2,10},{12,4,14,6},{3,11,1,9},{15,7,13,5}}
for r=1,4 do for c=1,4 do BAYER[r][c]=(BAYER[r][c]+0.5)/16 end end
local BIT={[0]={[0]=1,2,4,64},{[0]=8,16,32,128}}



M.designs={
noble={name="Noble",ramp={0x2C001E,0x330040,0x660040,0x990040,0xCC2440,0xFF4940,0xFF6D40,0xFF9240},
field=function(u,v,a)

local dx,dy=u-a*0.78,v-1.05
local g=1-sqrt(dx*dx*0.55+dy*dy)/1.05
local band=0.35-math.abs(v-(0.95-u/a*0.55))*1.4
return max(g,band,0)
end},
jammy={name="Jammy",ramp={0x2C001E,0x330040,0x660080,0x992480,0xCC4980,0xFF6D80},
field=function(u,v,a)return max(0,min(1,(u/a*0.7+v*0.6)-0.25))end},
mantic={name="Mantic",ramp={0x000040,0x002480,0x3324BF,0x6649BF,0x996DFF,0xCC92FF},
field=function(u,v,a)local dx,dy=u-a*0.3,v-0.2 return max(0,1-sqrt(dx*dx+dy*dy)/1.1)end},
ocean={name="Ocean",ramp={0x002440,0x004980,0x006DBF,0x0092BF,0x33B6BF,0x66DBFF},
field=function(u,v,a)return max(0,min(1,1.1-v*0.9-math.abs(u/a-0.5)*0.4))end},
forest={name="Forest",ramp={0x002400,0x004940,0x336D40,0x669240,0x99B640},
field=function(u,v,a)local dx,dy=u-a*0.5,v+0.3 return max(0,1-sqrt(dx*dx+dy*dy)/1.6)end},
graphite={name="Graphite",ramp={0x0F0F0F,0x1E1E1E,0x2D2D2D,0x3C3C3C,0x4B4B4B},
field=function(u,v,a)local dx,dy=u-a*0.5,v-0.35 return max(0,1-sqrt(dx*dx+dy*dy)/1.2)end},

solid={name="Solid",ramp={0x2C001E,0x2C001E},field=function()return 0 end},
}
M.order={"noble","jammy","mantic","ocean","forest","graphite","solid"}


function M.generate(name,W,H)
local d=M.designs[name]or M.designs.noble
local ramp={}
for i,c in ipairs(d.ramp)do ramp[i-1]=gfx.color(c)end
local n=#d.ramp-1
local field=d.field
local scale=1/(4*H)
local aspect=(2*W)/(4*H)
local out,row={},{}
for cy=0,H-1 do
local k=0
for cx=0,W-1 do
local s=field((cx*2+1)*scale,(cy*4+2)*scale,aspect)*n
local i=floor(s)
if i>=n then i=n-1 end
if i<0 then i=0 end
local pat=0
for dy=0,3 do
local py=cy*4+dy
local brow=BAYER[py%4+1]
for dx=0,1 do
local px=cx*2+dx
local t=field((px+0.5)*scale,(py+0.5)*scale,aspect)*n-i
if t>brow[px%4+1]then pat=pat|BIT[dx][dy]end
end
end
local f,b=ramp[i+1],ramp[i]
if pat==255 then pat,b=0,f elseif pat==0 or f==b then pat=0 end
k=k+1
row[k]=char(pat,f,b)
end
out[cy+1]=concat(row,"",1,k)
end
return concat(out)
end


function M.swatch(name)
local d=M.designs[name]or M.designs.noble
return d.ramp
end

return M
F 418 /usr/man/address
NAME
  address - display the computer's address

SYNOPSIS
  address

DESCRIPTION
  `address` allows printing the computer's component address. This can be useful to quickly look up a computer's address without an Analyzer. Knowing a computer's address can be useful if you wish to directly send network messages between two computers.

EXAMPLES
  address
    Displays the address of the computer the program is run on.F 929 /usr/man/alias
NAME
  alias - displays and manipulates aliases for programs

SYNOPSIS
  alias
  alias name
  alias name=value

DESCRIPTION
  `alias` allows listing and editing aliases for programs. An alias is an alternative name that can be used to start a program. A program can have multiple aliases. Aliases can also contain parameters and options to pass to the actual program. An alias can also, in turn, have aliases.

EXAMPLES
  alias
    Displays the list of all current aliases.

  alias name
    Displays the value the specified alias, i.e. what the specified alias stands for.

  alias name=value
  alias name='value with arguments'
    Sets the value of the alias with the specified name. Note that white space separates arguments to a command, thus to have an alias whose value has whitespace, quote the value

  alias name1 name2 name3=value
    You can also return the value, or set the value, of an arbitrary number of aliases.F 289 /usr/man/cat
NAME
  cat - concatenate files and print on the standard output

SYNOPSIS
  cat [FILE]...

DESCRIPTION
  `cat` allows concatenating files or standard input to standard output.

EXAMPLES
  cat
    Copy standard input to standard output.

  cat test.txt
    Output contents of file test.txt.F 1451 /usr/man/cd
NAME
  cd - change the current working directory

SYNOPSIS
  cd [directory]
  cd -

DESCRIPTION
  `cd` allows changing the current working directory, i.e the directory based on which relative paths are resolved.

  If no operand is given then HOME environment variable is used.

  If the operand is - (just a single dash) then OLDPWD environment variable is used.

  Relative path components ./ and ../ may be used to denote the working directory and the parent directory, respectively. An operand starting with ./ is equivalent to PWD environment variable. See examples for illustrations.

  Lastly, cd will attempt to change the current directory to the path defined by the operand, reporting errors if any.

  If cd is successful, OLDPWD environment variable will also be set to the previous value of PWD (that is the current working directory immediately prior to the call to cd).

ENVIRONMENT VARIABLES
  PWD
    Parent Working Directory, the current working directory

  OLDPWD
    Old PWD, set each time the PWD is changed by calling the cd utility

  HOME
    Represents the path of the user's home directory

EXAMPLES
  cd a
    Changes to directory `a` in the current working directory

  cd /bin
    Changes to directory `/bin`, using the specified absolute path

  cd ../
    Changes to the parent directory of the current working directory

  cd -
    Changes to the previos directory, defined by OLDPWD, and set each time cd changes PWD
F 241 /usr/man/clear
NAME
  clear - clears the terminal

SYNOPSIS
  clear

DESCRIPTION
  Clears any text from the screen, using the current background and foreground (text) colors and resets the cursor position to (1, 1).

EXAMPLES
  clear
    Clears the screen/F 319 /usr/man/cp
NAME
  cp - copy files

SYNOPSIS
  cp SOURCE DEST
  cp SOURCE DIRECTORY

DESCRIPTION
  `cp` allows copying single files on a filesystem and across filesystems.

EXAMPLES
  cp a b
    Copy file `a` to new file `b` in the same directory.

  cp /home/a.txt /home/d/
    Copy file `/home/a.txt` to new file `/home/d/a.txt`.F 323 /usr/man/date
NAME
  date - get the current time and date

SYNOPSIS
  date

DESCRIPTION
  Writes the current time and date to the standard output. Note that the time is measured in in-game time, with the date starting on the 1st of January 1970 as the time the world was created.

EXAMPLES
  date
    Displays the current date and time.
F 409 /usr/man/df
NAME
  df - report file system disk space usage

SYNOPSIS
  df [FILE]...

DESCRIPTION
  `df` outputs disk space information for the file systems containing the specified files. If no file names are given it returns the information for all currently mounted file systems.

EXAMPLES
  df
    Show global file system disk usage.

  df /home /var
    Show disk usage of file systems mounted at `/home` and `/var`.F 155 /usr/man/dmesg
NAME
  dmesg - display messages(events)

SYNOPIS
  dmesg [EVENT]...

EXAMPLES
  dmesg
    Shows all events.

  dmesg touch
    Shows only "touch" events.

F 367 /usr/man/echo
NAME
  echo - display a line of text

SYNOPSIS
  echo [STRING]...

DESCRIPTION
  `echo` writes the provided string(s) to the standard output.

  -n      do not output the trialing newline

  --help  display this help and exit

EXAMPLES
  echo test
    Print `test` to the standard output (which is usually the terminal).

  echo "a   b"
    Writes the string `a   b`.F 541 /usr/man/edit
NAME
  edit - primitive file editor

SYNOPSIS
  edit FILE

DESCRIPTION
  A very simple text file editor. To create new files with `edit`, open a file in a writable file system that doesn't exist and save.

OPTIONS
  -r
    opens file as read only

EXAMPLES
  edit /tmp/test.txt
    Opens the file `/tmp/test.txt` for editing. If it doesn't exists, it will be created upon saving.

  edit /bin/ls.lua
    Opens the file `/bin/ls.lua`, which will be opened in read-only mode, assuming `/bin` is the default as provided by the read-only-memory.F 1902 /usr/man/grep
NAME
  grep - Search for PATTERN in each FILE or standard input. PATTERN is, by default, a Lua regular expression
  Example: grep -i 'hello world' menu.lua main.lua

OPTIONS
Regexp selection and interpretation:
  -e, --lua-regexp          PATTERN is a Lua regexp (default)
  -F, --fixed-strings       PATTERN is a plain string
      --file=FILE           use newline separated PATTERNs from FILE
  -w, --word-regexp         force PATTERN to match only whole words
  -x, --line-regexp         force PATTERN to match only whole lines
  -i, --ignore-case         ignore case distinctions

Miscellaneous:
      --label=LABEL         use LABEL instead of (standard input) for stdin prefix
  -s, --no-messages         suppress error messages
  -v, --invert-match        select non-matching lines
      --help                display help message and exit

Output control:
      --max-count=NUM       stop after NUM matches
  -n, --line-number         print line number with output lines
  -H, --with-filename       print the file name for each match
  -h, --no-filename         suppress the file name prefix on output
  -o, --only-matching       show only the part of a line matching PATTERN
  -q, --quiet, --silent     suppress all normal output
  -r, --recursive           search directories in FILEs recursively
  -L, --files-without-match print only names of FILEs containing no match
  -l, --files-with-matches  print only names of FILEs containing matches
  -c, --count               print only a count of matching lines per FILE
      --color, --colour     user markers to highlight the matching strings
  -t, --trim                trim whitespace off results

When FILE is -, read stdin. With no FILE, read - or ./ if a command line -r. If fewer than two FILEs are given, assume -h. Exit status is 0 if any line is selected, 1 otherwise. If any error occurs and -q is not given, the exit status is 2.
F 1031 /usr/man/head
NAME
  head - Print the first 10 lines of each FILE to stdout.

SYNOPSIS
  head [OPTION]... [FILE]...

DESCRIPTION
  Print the first 10 lines of each FILE to stdout.
  With no FILE, or when FILE is -, read stdin.

      --bytes=[-]n        print the first n bytes of each file'
                            with the leading '-', print all but the last
                            n bytes of each file
      --lines=[-]n        print the first n lines instead of the first 10;
                            with the leading '-', print all but the last
                            n lines of each file
  -q, --quiet, --silent   never print headers giving file names
  -v, --verbose           always print headers giving file names
      --help              print help message

EXAMPLES
  head
  head -
    Read next 10 lines from standard in and print to standard out, then close.

  head file.txt
    Print first 10 lines of file.txt and print to stdout

  head -n 32 file.txt
    Print first 32 lines of file.txt and print to stdout

F 325 /usr/man/hostname
NAME
  hostname - Display and modify hostname

SYNOPIS
  hostname [NEW NAME] [--update]

EXAMPLES
  hostname
    Prints currently set hostname

  hostname test
    Sets hostname of this computer to test

  hostname --update
    Updates $HOSTNAME by reading /etc/hostname in case it was set manually. Does not print to stdout
F 5997 /usr/man/install
NAME
  install - installs files from a source filesystem to a target filesystem

SYNOPSIS
  install [name] [OPTIONS]...

DESCRIPTION
  install builds a list of candidate source and target mounted filesystems. If there are multiple candidates, the user is prompted for selections. By default, install copies all files from the source filesystem's root to the target filesystem's root path. The source filesystem can define label, boot, and reboot behavior via .prop and a fully custom install experience via .install which supercedes install running cp from source to target filesystems. Developers creating their own .install files for devices should respect environment variables set by install as per options it is given, such as the root path. This manual page details those environment variables.

OPTIONS
  --from=ADDR
    Specifies the source filesystem or its root path. ADDR can be the device uuid or a directory path. If this is a directory path, it represents a root path to install from. This option can also be used to specify source paths that would otherwise be ignored, those being devfs, tmpfs, and the rootfs. e.g. --from=/tmp . Note that if both --from and --label are used, install expects the source path to have a .prop defining the same label. See .prop for more details.

  --to=ADDR
    Same as --from but specifies the target filesystem by uuid or its root path. This option can also be used to specify filesystems that are otherwise ignored including tmpfs. i.e. --to=ADDR where ADDR matches the tmpfs device address or its mount point path. e.g. --to=/tmp

  --fromDir=PATH
    Install PATH from source. PATH is relative to the root of the source filesystem or path given by --from. The default is .

  --root=PATH
    Same as --fromDir but for the target filesystem.

  --toDir=PATH
    Same as --root. Either can be used. It is meaningless to specify both and is not documented which takes precedence in such a case.

  -u, --update
    Indicates that install should prompt the user before modifying files. This invokes -i and -u for /bin/cp.

The following can override settings defined in .prop in the source filesystem.

  --label=LABEL
    use LABEL for label instead of any value specified by .prop

  --nosetlabel
    do not set target label. --nolabelset is deprecated

  --nosetboot
    do not set target as default boot device when rebooting. --noboot is deprecated

  --noreboot
    do not reboot after install

.prop
  .prop should have valid lua syntax for a table of keys and their values: e.g. "{label='OpenOS'}"
  All fields are optional, as is the .prop file

  label:string
    Declares an identifying name of the installation. This is displayed by install during source selection and also can be used on the commandline: e.g. (where {label="tape"} is given) `install tape`. If setlabel is true, this value is used for the target filesystem label. --label overrides this value. Note that install uses a case insensitive search: e.g. install TAPE works the same as install tape.

  setlabel:boolean
    Determines whether the install should set the target filesystem's label. If .prop does not define a label and the user does not define a command line --label=LABEL, setlabel has no action. --nosetlabel overrides this value

  setboot:boolean
    Determines if the target filesystem should be set as the machine's default boot device. Default is false, overriden by --nosetboot

  reboot:boolean
    Determines if the machine should reboot after the install completes. Overriden by --noreboot

  ignore:boolean
    If true, the installer will skip the source filesystem and not include it for selection

  EXAMPLE:
    {label='OpenOS', setlabel=true, setboot=true, reboot=true}

.install ENVIRONMENT
  A loot disc can optionally provide a custom installation script at the root of the source filesytem selected for installation. The script must be named ".install"
  When provided, the default install action is replaced by executation of this script. The default action is to copy all source files to the destination
  A table of configuration options, named `install`, is provided in _ENV
  These are the keys and their descriptions of that table

  _ENV.install.from:
    This is the path of the selected source filesystem to install from. It should be the path to the executing .install
    example: /mnt/ABC/.install is executing, thus _ENV.install.from is "/mnt/ABC/"

  _ENV.install.to:
    This is the path of the selected target filesystem to install to.
    example: "/"

  _ENV.install.fromDir
    This is the relative path to use in the source filesystem as passed by command line to install. If unspecified to install it defaults to "."
    example: Perhaps the user executed `install --fromDir="bin"` with the intention that only files under /mnt/ABC/bin would be copied to their rootfs

  _ENV.install.root
    This is the relative path to use in the target filesystem as passed by command line to install. If unspecified to install it defaults to "."
    example: The user prefers to install to usr/ and uses `install --root=usr` and here _ENV.install.root would be "usr"

  _ENV.install.update
    Assigned value of --update, see OPTIONS

  _ENV.install.label
    Assigned value of --label or .prop's label, see OPTIONS

  _ENV.install.setlabel
    Assigned value of .prop's setlabel unless --nosetlabel, see OPTIONS

  _ENV.install.setboot
    Assigned value of .prop's boot unless --nosetboot, see OPTIONS

  _ENV.install.reboot
    Assigned value of .prop's reboot unless --noreboot, see OPTIONS

EXAMPLES
  install
    Searches all non rootfs filesystems to install from, and all non tmpfs filesystems to install to. Prompts the user for a selection, and copies. If .prop is defined in source, sets label and will prompt for reboot when completed.

  install openos
    Searches candidates source filesystems that have .prop's that define label="OpenOS" and prompts the user to confirm install to candidate target filesystems.


F 498 /usr/man/label
NAME
  label - show or change the label of file systems

SYNOPSIS
  label FILE [STRING]
  label -a ADDRESS [STRING]

DESCRIPTION
  `label` allows reading and writing the label of file systems. The file system can either be specified by a path to or into a mount, or by its address.

EXAMPLES
  label /home
    Write the label of the file system mounted at `/home` to the standard output.

  label -a 93f test
    Change the label of the file system of which the address starts with `93f` to `test`.F 597 /usr/man/less
NAME
  less - file viewer

SYNOPSIS
  less [FILE]

DESCRIPTION
  'less' is similar to `more`, but with buffering. This allows to you scroll back and forward a single line at a time.

COMMANDS
  q        quit
  up       scroll up one line
  down     scroll down one line
  space
  pgdown   scroll down one page
  pgup     scroll up one page
  home     scroll to the start of the buffer
  end      scroll to the end of the buffer

EXAMPLES
  less example.txt
    Displays the contents of file `example.txt`
  find / | less
    filter the output of `file /` through the 'less' pager

SEE ALSO
  more
F 1011 /usr/man/ln
NAME
  ln - creates symbolic links

SYNOPSIS
  ln FILE [TARGET]

DESCRIPTION
  `ln` allows creating virtual symbolic links. A symbolic link is a reference in the file system that can be used to point to other nodes in the file system. For example, a symbolic link to a file will behave like that file: it can be opened and changed, where in reality the file the link references is changed. A symbolic link to a directory will behave as such.

  Note that symbolic links can lead to cycles (recursion) in the file system structure.

  Symbolic links in OpenOS are 'virtual'. They are not stored on any file system, and as such will not persist across a reboot of the computer. This also means that the can be created in virtual folders, and even on read-only file systems.

EXAMPLES
  ln /bin/ls.lua
    Creates a symbolic link `ls.lua` to the file `/bin/ls.lua` in the current working directory.

  ln /home/magic.lua /bin/magic.lua
    Creates a symbolic link to file `/home/magic.lua` in the `/bin` directory.F 1599 /usr/man/ls
NAME
  ls - list directory contents

SYNOPSIS
  ls [OPTION]... [FILE]...

DESCRIPTION
  List information about the specified files, or the current working directory by default.

OPTIONS
  -a, --all
    do not ignore entries starting with .

  --full-time
    with -l, print time in full iso format

  -h, --human-readable
    with -l and/or -s, print human readable sizes

  --si
    likewise, but use powers of 1000 not 1024

  -l
    use a long listing format

  -r, --reverse
    reverse order while sorting

  -R, --recursive
    list subdirectories recursively

  -S
    sort by file size

  -t
    sort by modification time, newest first

  -X
    sort alphabetically by entry extension

  -1
    list one file per line

  --no-color
    Do not colorize the output (default colorized)

  --help
    display this help and exit

  -p
    append / indicator to directories

  -M
    display Microsoft-style file and directory count after listing

ENVIRONMENT VARIABLES

  LS_COLORS
    A serialized table listing colors to use for listing filesystem elements.

    FILE
      Coloring to use when listing a regular file

    DIR
      Coloring to use when listing a directory

    LINK
      Coloring to use when listing a symbolic link

    *.<extension>
      Coloring to use for regular files with an extension <extension>

    The default LS_COLORS string is "{FILE=0xFFFFFF,DIR=0x66CCFF,LINK=0xFFAA00,["*.lua"]=0x00FF00}"

EXAMPLES
  ls
    Displays the contents of the current directory.

  ls /bin /mnt
    Displays the contents of the `/bin`/ and `/mnt` directories, one after the other.
F 114 /usr/man/lshw
NAME
  lshw - hardware viewer

SYNOPSIS
  lshw

DESCRIPTION
  'lshw' shows you the device information of your PC.
F 408 /usr/man/lua
NAME
  lua - a simple Lua interpreter

SYNOPSIS
  lua

DESCRIPTION
  Launches a command line that can be used to evaluate Lua statements and expressions. This can be very useful for testing out commands. Note that the interpreter will automatically try to resolve undefined globals using `require`, i.e. it will try to load a package with the specified name.

EXAMPLES
  lua
    Launches the Lua interpreter.F 470 /usr/man/man
NAME
  man - help program, providing help on various programs and topics

SYNOPSIS
  man topic

DESCRIPTION
  `man` is the system's help viewer. Each help topic is normally the name of a program or library. Topics are stored as individual text files in the `/usr/man` folder. Additional help topics can be provided by creating a symbolic link to a file.

EXAMPLES
  man man
    Display the help for the `man` program.

  man ls
    Display the help for the `ls` program.F 363 /usr/man/mkdir
NAME
  mkdir - make directories

SYNOPSIS
  mkdir DIRECTORY...

DESCRIPTION
  Create the specified directories, if they don't already exist.

EXAMPLES
  mkdir a
    Create directory `a` in the current directory.

  mkdir /a/b c
    Create directory `/a` if it doesn't already exists, then create directory `/a/b` and create directory `c` in the current directory.F 430 /usr/man/more
NAME
  more - primitive file viewer

SYNOPSIS
  more FILE

DESCRIPTION
  `more` allows viewing the contents of a file one screenful at a time.
  There is no buffering which means you cannot scroll back, long lines will jump the view forward, but there is a small and fixed memory footprint even when piping long running programs with significant output

EXAMPLES
  more /home/a.txt
    Displays the contents of file `/home/a.txt`
F 1147 /usr/man/mount
NAME
  mount - mount a file system

SYNOPSIS
  mount
  mount LABEL PATH
  mount ADDRESS PATH
  mount --bind PATH PATH

OPTIONS
  -r, --readonly  mount filesystem readonly
      --bind      mount a bind point (folder to folder)
  -h, --help      print help message

DESCRIPTION
  All files accessible in OpenOS are arranged in one big tree, starting with the root node, '/'. The files are the leaves of the tree, directories are inner nodes of the tree. Files can be distributed across several devices (file system components, such as hard drives and floppies). The `mount` command is used to attach a file system to this tree. The `umount` command can be used to remove a mounted file system from the tree (note that `rm` works for this, too).

EXAMPLES
  mount
    Display a list of all currently mounted file systems.

  mount test /home
    Mounts the file system labeled `test` at `/home`.

  mount 56f /var
    Mounts the file system of which the address starts with `56f` at `/var`.

  mount --readonly tmpfs /tmp_ro
    Mounts a readonly access path of tmpfs to /tmp_ro

  mount --bind /mnt/fa4/home /home
    Mounts /mnt/fa5/home to /home
F 504 /usr/man/mv
NAME
  mv - move (rename) files

SYNOPSIS
  mv SOURCE DEST

DESCRIPTION
  Renames files - and folders, as long they remain on the same file system. Files that are 'renamed' to another file system will actually be copied, then deleted.

OPTIONS
  -f         overwrite without prompt
  -i         prompt before overwriting
             unless -f
  -v         verbose
  -h, --help show this help

EXAMPLES
  mv a b
    Renames file `a` to `b`.

  mv /home/a /var/b
    Moves file from `/home/a` to `/var/b`.F 669 /usr/man/pastebin
NAME
  pastebin - download and upload programs from and to pastebin

SYNOPSIS
  pastebin get PASTID FILE
  pastebin put FILE
  pastebin run PASTEID [ARGUMENT]...

DESCRIPTION
  The pastebin program allows downloading programs from pastebin, identified by their paste ID. I can also be used to upload programs to pastebin.

  The pastebin program requires an internet card and internet access to be enabled in the mod's configuration.

OPTIONS
  -f
    do not prompt before overwriting

EXAMPLES
  pastebin get AbCdEfGh test
    Downloads the paste with ID `AbCdEfGh` and writes it to file `test`.

  pastebin put prog.lua
    Uploads the program `prog.lua` to pastebin.F 544 /usr/man/primary
NAME
  primary - get or set primary components

SYNOPSIS
  primary TYPE
  primary TYPE ADDRESS

DESCRIPTION
  This program allows reading the address of the current primary component of the specified type. It also allows changing the current primary component for a specified type by providing the (abbreviated) address of the new primary component.

EXAMPLES
  primary gpu
    Writes the address of the current primary GPU to the standard output.

  primary gpu 24a
    Makes the GPU of which the address starts with `24a` the new primary GPU.F 227 /usr/man/pwd
NAME
  pwd - print name of current/working directory

SYNOPSIS
  pwd

DESCRIPTION
  `pwd` writes the name of the current working directory to the standard output.

EXAMPLES
  pwd
    Write the current directory to the terminal.F 1182 /usr/man/rc
NAME
  rc - Manage services

SYNOPSIS
  rc SERVICE COMMAND [ARGS...]

DESCRIPTION
  Controls services in /etc/rc.d/
  Common commands are start/stop/restart, there are also special commands enable/disable. A command is global function in executable file that is stored in /etc/rc.d/ directory. Services can define their own commands.

COMMANDS
  start
    This command starts specified service, executed automatically for all enabled services when system boots.

  stop
    This command stops specified service.

  restart
    This command restarts specified service. This command doesn't have to be implemented by services when start and stop commands are present.

  enable
    This command enables specified service. Executing this command won't start the service. It's implemented by the rc library, but can be overridden by service.

  disable
    This command disables specified service. Executing this command won't stop the service. It's implemented by the rc library, but can be overridden by service.

EXAMPLES
  rc example
    Lists commands of example service.

  rc example start
    Starts example service.

  rc example enable
    Makes example start on system boot.
F 217 /usr/man/reboot
NAME
  reboot - restarts the computer

SYNOPSIS
  reboot

DESCRIPTION
  `reboot` will immediately issue a reboot of the computer, shutting it down then starting it back up.

EXAMPLES
  reboot
    Reboots the computer.F 890 /usr/man/redstone
NAME
  redstone - access to redstone input and output

SYNOPSIS
  redstone SIDE
  redstone SIDE VALUE
  redstone SIDE -b COLOR
  redstone SIDE -b COLOR VALUE

DESCRIPTION
  This program allows manipulating redstone output of the computer via the shell, if it has a built-in redstone card or is connected to a redstone I/O block. It can also be used to just display the current in- and output. If another mod is installed that provides bundled redstone logic, such as RedLogic, MineFactory Reloaded (Rednet Cables) or Project: Red, it can also be used to interact with bundled signals by passing the `-b` flag.

OPTIONS
  -b
    interact with bundled signals

EXAMPLES
  redstone front
    Displays the simple in- and output on the front face of a computer with a redstone card.

  redstone north -b lime 200
    Sets the bundled `lime` output of a redstone I/O block's northern side to 200.F 412 /usr/man/resolution
NAME
  resolution - get or set screen resolution

SYNOPSIS
  resolution
  resolution WIDTH HEIGHT

DESCRIPTION
  The `resolution` program is used to write the resolution of the current primary screen to the standard output, or to change the resolution to a new value.

EXAMPLES
  resolution
    Displays the current screen resolution.

  resolution 30 10
    Sets the screen's resolution to 30 by 10 characters.
F 1853 /usr/man/rm
NAME
  rm - remove files or directories

SYNOPSIS
  rm [OPTION]... FILE...

DESCRIPTION
  Removes all of the specified files, one by one. By default, it does not remove directories. To remove a mount, please use umount.

  If the -I option is given, and there are more than three files or the -r, -R, or --recursive are given, the rm prompts the user for whether to proceed with the entire operation. If the response is not affirmative, the entire command is aborted.

  Otherwise, if a file is unwritablle, standard input is a terminal, and the -f or --force option is not given, or the -i option is given, rm prompts the user for whether to remove the file. If the response is not affirmative, the file is skipped.

OPTIONS
  Remove (unlink) the FILE(s).

  -f, --force
         ignore nonexistent files and arguments, never prompt

  -i     prompt before every removal

  -I     prompt once before removing more than three files, or when removing recursively; less intrusive than -i, while still giving protection against most mistakes

  --one-file-system
         when removing a hierarchy recursively, skip any directory that is on a file system different from that of the corresponding command line argument

  --no-preserve-root
         do not treat '/' specially

  --preserve-root
         do not remove '/' (default)

  -r, -R, --recursive
         remove directories and their contents recursively

  -d, --dir
         remove empty directories

  -v, --verbose
         explain what is being done

  --help
         display this help and exit.

By default, rm does not remove directories.  Use the --recursive (-r or -R) option to remove each listed directory, too, along with all of its contents.

To remove a file whose name starts with a '-', for example '-foo', use this command:
  rm ./-foo

EXAMPLES
  rm a
    Deletes the file `a`.
F 148 /usr/man/rmdir
NAME
  rmdir - remove empty directories

SYNOPIS
  rmdir [DIRECTORY]

EXAMPLES
  rmdir doc
    Removes doc if and only if doc is an empty directory
F 502 /usr/man/set
NAME
  set - set a environment variable

SYNOPSIS
  set [VARIABLE]=[VALUE]

DESCRIPTION
  set an environment variable. Quote [VALUE] to include spaces or non alphanumerics.

EXAMPLES
  set
    Shows all environment variables
  set example="Hello World"; echo $example
    Prints Hello World without quotes
  set LS_COLORS="{FILE=0xFFFFFF,DIR=0x66CCFF,LINK=0xFFAA00,['*.lua']=0xFFFF00}"
    Change ls colors, showing lua files in yellow. Note ls color defaults are set in /etc/profile

SEE ALSO
  unset
F 2010 /usr/man/sh
NAME
  sh - command interpreter (shell)

SYNOPSIS
  sh

DESCRIPTION
  This is the basic, built-in standard shell of OpenOS. It provides basic functionality and does the job for getting started. To run a command, enter it and press enter. The first token in a command will usually be a program. Any additional parameters will be passed along to the program.

  Arguments to programs can be quoted, to provide strings with multiple spaces in them, for example:
    echo "a   b"
  will print the string `a   b` to the screen. It is also possible to use single quotes (echo 'a b').

  Single quotes also suppress variable expansion. Per default, expressions like `$NAME` and `${NAME}` are expanded using environment variables (also accessible via the `os.getenv` method).

  Globbing is supported, i.e. '*' and '?' are expanded approriately. For example:
    ls b?n/
  will list all files in `/bin/` (and, if it exists `/ban` and so on).
    cp /bin/* /usr/bin/
  will copy all files from `/bin` to `/usr/bin`.

  The shell provides redirects and piping:
    cat f > f2
  copies the contents of file `f` to `f2`, for example.
    echo 'this  is  a  "test"' >> f2
  will append the string 'this is a "test"' to the file `f2`.
    2>/dev/null ./some_program_with_errors
  will redirect all stderr to /dev/null [i.e. supress errors].
  This example also demonstrates redirects can go at the front

  Redirects can be combined:
    cat < f >> f2
  will feed the contents of file `f` to cat, which will then output it (in append mode) to file `f2`.

  Finally, pipes can be used to pass data between programs:
    ls | cat > f
  will enumerate the files and directories in the working directory, write them to its output stream, which is cat's input stream, which will in turn write the data to file `f`.

  The shell also supports aliases, which can be created using `alias` and removed using `unalias` (or using the `shell` API). For example, `dir` is a standard alias for `ls`.

EXAMPLES
  sh
    Starts a new shell.F 158 /usr/man/shutdown
NAME
  shutdown - shut down the computer

SYNOPSIS
  shutdown

DESCRIPTION
  Immediately shuts down the computer.

EXAMPLES
  shutdown
    Stops the computer.F 481 /usr/man/umount
NAME
  umount - remove a file system mount

SYNOPSIS
  umount PATH
  umount -a LABEL
  umount -a ADDRESS

DESCRIPTION
  Removes either a single mount point if given the path into a mount, or all mount points for a specified file system if given the label or address of the file system.

EXAMPLES
  umount /mnt/82f
    Unmounts the automatically generated mountpoint at `/mnt/82f`.

  umount -a 82f
    Removes all mounts of the file system for which the address starts with `82f`.
F 226 /usr/man/unalias
NAME
  unalias - removes aliases for programs

SYNOPSIS
  unalias name

DESCRIPTION
  Allows removal of aliases created with the `alias` command.

EXAMPLES
  unalias dir
    Removes the `dir` alias (usually an alias for `ls`).F 220 /usr/man/unset
NAME
  unset - remove an environment variable

SYNOPSIS
  unset [VARNAME]

DESCRIPTION
  Removes an environment variable

EXAMPLES
  unset some_variable
    Removes the environment variable some_variable

SEE ALSO
  set
F 270 /usr/man/uptime
NAME
  uptime - how long has the computer been running

SYNOPSIS
  uptime

DESCRIPTION
  Writes the time in real time hours, minutes and seconds the computer has been running to the standard output.

EXAMPLES
  uptime
    Displays the time the computer has been running.F 786 /usr/man/useradd
NAME
  useradd - adds a player to the list of authorized users

SYNOPSIS
  useradd NAME

DESCRIPTION
  Adds a player to the list of users that can use the computer. To add a player, he has to be logged in when the command is run. Note that the names are case sensitive. Users can be removed again using `userdel`.

  As long as the list of players registered on a computer is empty, the computer can be used by all players. Once there is at least one entry in the list of users, only the players in the list can use the computer. This includes modifying its inventory, performing keyboard and mouse input as well as breaking the computer block.

  Computer ownership can be disabled in the configuration.

EXAMPLES
  useradd Steve
    Adds the player named `Steve` to the list of users.F 277 /usr/man/userdel
NAME
  userdel - removes a player from the list of authorized users

SYNOPSIS
  userdel NAME

DESCRIPTION
  Removes a player from the list of users authorized to use this computer. See `useradd`.

EXAMPLES
  userdel Steve
    Removes the player named `Steve` from the userlist.F 597 /usr/man/wget
NAME
  wget - download files via http

SYNOPSIS
  wget URL [FILE]

DESCRIPTION
  The wget program allows downloading programs from the interwebs, given the URL to download from.

  The wget program requires an internet card and internet access to be enabled in the mod's configuration.

OPTIONS
  -f
    do not prompt before overwriting
  -q
    only print errors, no status messages

EXAMPLES
  wget http://example.com/data.zip
    Downloads the file `data.zip` and saves it as `data.zip`.

  wget http://example.com/data.zip blah.zip
    Downloads the file `data.zip` and saves it as `blah.zip`.F 416 /usr/man/which
NAME
  which - locate a command

SYNOPSIS
  which COMMAND

DESCRIPTION
  This program writes the full path to each of the specified programs to the standard output. If a program is an alias, this is indicated. If a program cannot be found and error message will be written.

EXAMPLES
  which ls
    Displays `/bin/ls.lua`.

  which doesntexist dir
    Displays `doesntexist: file not found` and `dir: aliased to ls`.F 486 /usr/man/yes
NAME
  yes - Automatically answers yes to every question.

SYNOPSIS
  yes [string]...
  yes [-V/h]

DESCRIPTION
  Prints strings in command line arguments, if there is none, prints 'y'.
  Followed by newline, until it is killed.

  This might be used for programs which don't have force (-f) option
  and require user interaction.

EXAMPLES
  yes
    Says y on every line.

  yes no
    Says no on every line.

  yes "yes: I'm great servant, but an evil master."
    Repeats sentence.

F 2354 /usr/misc/greetings.txt
Tier 2 and 3 screens can act as touch screens - don't attach a keyboard or sneak-activate them.
You can change the text size on screens by changing their resolution - run `resolution 40 16` in the shell.
Firing arrows on touch capable screens can trigger touch events.
Item colors indicate their tier - white is tier one, yellow is tier two and cyan is tier three.
Use an Analyzer to get more information on blocks - for example, to find out why a computer crashed.
Keyboards have to be attached to or placed next to a screen to work.
You can install OpenOS on a writable medium by running the `install` program.
Internet Cards can be used to make HTTP requests and open raw TCP connections.
If you crafted something by mistake or don't need it any longer, throw it into a disassembler.
Have a look at the code of the built-in programs for examples on how to use the APIs.
Most programs can be interrupted by pressing Ctrl+Alt+C.
Paste the contents of the clipboard using the middle mouse button or a configurable key (default: insert).
Computers will consume less power while idling - i.e. when os.sleep(n > 0.05) is called.
Screens will consume more power the more lit characters they display.
Most blocks act as 'cables' - use relays and power distributors to create separate networks.
Welcome to the dark side - here, have some cookies.
Screens can display Unicode - paste the special chars or use unicode.char.
Run `help` or `man programname` for ingame help on programs shipped with OpenOS - start with `man man`.
For more help, there's a wiki at https://ocdoc.cil.li/ - or find the IRC loot disk and join #oc.
Computers have a very basic, built-in speaker - control it using computer.beep().
Many component methods have a short documentation - use `=component.componentName.methodName` in the Lua interpreter to see it.
You can get a list of all attached components using the `components` program.
If you encounter out of memory errors, throw more RAM at your computer.
Have you tried turning it off and on again?
To disable this greeting, install OpenOS to a writeable medium and remove the `/etc/motd` line from `/etc/profile.lua`.
Did you know OpenComputers has a forum? No? Well, it's at https://oc.cil.li/.
Please report bugs on the Github issue tracker, thank you!
Beware of cycles when building networks, or you may get duplicate messages!
F 4605 /usr/share/doc/install.lua









local component=require("component")
local computer=require("computer")
local shell=require("shell")
local term=require("term")

local DEFAULT_URL=""

local args,opts=shell.parse(...)
local url=args[1]or DEFAULT_URL
if url==""then
io.stderr:write("usage: install [url of yaru.pack] [-y]\n")
return 1
end
if not component.isAvailable("internet")then
io.stderr:write("install: an internet card is needed\n")
return 1
end
local internet=require("internet")

local function ask(q)
if opts.y then return true end
io.write(q.." [Y/n] ")
local a=(io.read()or""):lower()
return a==""or a=="y"or a=="yes"or a=="д"or a=="да"
end


local boot,tmp=computer.getBootAddress(),computer.tmpAddress()
local disks={}
for addr in component.list("filesystem")do
local p=component.proxy(addr)
if addr~=tmp and not p.isReadOnly()then
disks[#disks+1]={addr=addr,proxy=p,label=p.getLabel()or"",
free=p.spaceTotal()-p.spaceUsed(),total=p.spaceTotal(),
os=p.exists("/init.lua")and p.exists("/lib/core")}
end
end
table.sort(disks,function(a,b)return(a.addr==boot)and b.addr~=boot or(a.addr~=boot)==(b.addr~=boot)and a.addr<b.addr end)
if#disks==0 then io.stderr:write("install: no writable disk\n")return 1 end

print("OpenOS Yaru installer")
print("Disks:")
for i,d in ipairs(disks)do
print(string.format("  %d) %s  %-12s %4d KB free%s%s",i,d.addr:sub(1,8),d.label:sub(1,12),d.free//1024,
d.os and"  (OpenOS)"or"",d.addr==boot and"  <- this computer boots from it"or""))
end
local pick=1
if#disks>1 and not opts.y then
io.write("Install onto disk [1]: ")
pick=tonumber(io.read()or"")or 1
end
local disk=disks[pick]
if not disk then io.stderr:write("install: no such disk\n")return 1 end
local fs=disk.proxy


local handle,reason=internet.request(url)
if not handle then io.stderr:write("install: "..tostring(reason).."\n")return 1 end

local buf=""
local stream_ok=true
local function more()
local ok,chunk=pcall(handle)
if not ok then stream_ok=false;error("download failed: "..tostring(chunk),0)end
if not chunk then return false end
buf=buf..chunk
return true
end
local function line()
while true do
local nl=buf:find("\n",1,true)
if nl then
local l=buf:sub(1,nl-1)
buf=buf:sub(nl+1)
return l
end
if not more()then return nil end
end
end

local head=line()
local nfiles,total=(head or""):match("^YARUPACK 1 (%d+) (%d+)$")
if not nfiles then io.stderr:write("install: "..url.." is not a Yaru pack\n")return 1 end
nfiles,total=tonumber(nfiles),tonumber(total)
print(string.format("%d files, %d KB, onto %s %s",nfiles,total//1024,disk.addr:sub(1,8),disk.label))
if disk.free+(disk.os and 400*1024 or 0)<total then
print("Warning: the disk may be too small.")
end
if not ask("Install now? Existing system files are replaced, /home is kept.")then print("Cancelled.")return end

local done,bytes,kept=0,0,0
local lastPct=-1
local function progress()
local pct=total>0 and bytes*100//total or 100
if pct~=lastPct then
lastPct=pct
local _,y=term.getCursor()
term.setCursor(1,y)
io.write(string.format("Installing... %3d%%  (%d of %d files)",pct,done,nfiles))
end
end

local ok,err=pcall(function()
while true do
local l=line()
if not l then error("the download ended early",0)end
local kind=l:sub(1,1)
if kind=="E"then break
elseif kind=="D"then
fs.makeDirectory(l:sub(3))
elseif kind=="F"then
local size,path=l:match("^F (%d+) (.+)$")
size=tonumber(size)
local target=path
local skip=false
if path:sub(1,6)=="/home/"and fs.exists(path)then skip=true;kept=kept+1 end
if path=="/etc/rc.cfg"and fs.exists(path)then target="/etc/rc.cfg.yaru"end
local fh
if not skip then
local dir=target:match("^(.*)/[^/]*$")
if dir and dir~=""then fs.makeDirectory(dir)end
local reason2
fh,reason2=fs.open(target,"w")
if not fh then error(target..": "..tostring(reason2),0)end
end
local left=size
while left>0 do
if#buf==0 and not more()then error("the download ended early",0)end
local n=math.min(left,#buf,8192)
if fh then fs.write(fh,buf:sub(1,n))end
buf=buf:sub(n+1)
left=left-n
bytes=bytes+n
end
if fh then fs.close(fh)end
done=done+1
progress()
end
end
end)
pcall(handle.close)
print()
if not ok then
io.stderr:write("install failed: "..tostring(err).."\n")
io.stderr:write("Run it again; files already written are simply replaced.\n")
return 1
end

if(fs.getLabel()or"")==""then pcall(fs.setLabel,"Yaru")end
computer.setBootAddress(disk.addr)
print(string.format("Done: %d files written%s.",done-kept,kept>0 and(", "..kept.." of your files in /home kept")or""))
if fs.exists("/etc/rc.cfg.yaru")then print("Your /etc/rc.cfg was kept (the new one is /etc/rc.cfg.yaru).")end
if ask("Reboot into Yaru now?")then computer.shutdown(true)end
F 77675 /usr/share/doc/composer/mp3_to_yms.py
#!/usr/bin/env python3
"""
mp3_to_yms.py — turns an audio file (mp3, wav, ogg, flac…) or a MIDI file (.mid) into a .yms song for
the Composer app of OpenOS Yaru (note blocks in OpenComputers).

What it does
  1. decodes the audio (soundfile, or ffmpeg as a fallback) to mono 22.05 kHz;
  2. estimates the tempo and the beat phase from onset strength;
  3. computes a pitch salience per semitone (harmonic sum over an STFT), so
     overtones do not show up as extra notes;
  4. on every grid step picks the voices:
       melody  — strongest salient note in the upper range,
       bass    — strongest note below MIDI 55,
       harmony — further strong notes (optional, more tracks);
     a note is written when it starts (onset), long notes can be re-struck;
  5. folds every track into the note block range F#3..F#5 (25 semitones)
     with the octave shift that keeps most notes in range;
  6. writes a Lua table readable by OpenOS `serialization.unserialize`
     and, optionally, a WAV preview of what the note blocks will play.

Note blocks only "pluck" (no sustain, one note per tick per block), so the
result is an arrangement of the song, not a copy of the recording.
Clear melodies (piano, guitar, chiptune, a solo voice) work best; dense mixes
give a busier, less accurate result: lower --tracks, raise --threshold.

Requirements:  py -m pip install numpy scipy soundfile
               (if soundfile cannot read mp3 on your system, install ffmpeg)
Examples:      py mp3_to_yms.py song.mp3 song.yms --preview song_preview.wav
               py mp3_to_yms.py song.mp3 --voices band
               py mp3_to_yms.py song.mp3 --voices melody:flute,harmony:bell,harmony:chime,bass::-12,kick,hat
"""
from __future__ import annotations

import argparse
import math
import os
import shutil
import subprocess
import sys

import numpy as np
from scipy import signal

SR = 22050
HOP = 256                      # ~11.6 ms analysis hop
NFFT = 4096                    # ~5.4 Hz bins: enough to separate semitones from ~E2 up
MIDI_LO, MIDI_HI = 36, 96      # analysed range C2..C7
NB_LO = 54                     # F#3 = note block pitch 0
NB_RANGE = 25                  # 0..24
# MIDI note of block pitch 0 for each instrument (Minecraft: bass/didgeridoo two
# octaves down, guitar one down, flute/cow bell one up, bell/chime/xylophone two up)
INST_BASE = {"harp": 54, "pling": 54, "banjo": 54, "bit": 54, "iron_xylophone": 54, "basedrum": 54, "snare": 54, "hat": 54,
             "bass": 30, "didgeridoo": 30, "guitar": 42, "flute": 66, "cow_bell": 66, "bell": 78, "chime": 78, "xylophone": 78}
INSTRUMENTS = ["harp", "basedrum", "snare", "hat", "bass", "flute", "bell", "guitar", "chime",
               "xylophone", "iron_xylophone", "cow_bell", "didgeridoo", "bit", "banjo", "pling"]


# ---------------------------------------------------------------- audio
def _miniaudio():
    """the miniaudio decoder (mp3/flac/ogg/wav without ffmpeg); installed on first use"""
    try:
        import miniaudio
        return miniaudio
    except ImportError:
        pass
    try:
        subprocess.run([sys.executable, "-m", "pip", "install", "--user", "--quiet", "miniaudio"],
                       check=True, capture_output=True, timeout=300)
        import importlib
        import site
        importlib.invalidate_caches()
        if site.getusersitepackages() not in sys.path:
            sys.path.append(site.getusersitepackages())
        import miniaudio
        return miniaudio
    except Exception:  # noqa: BLE001
        return None


def load_audio(path: str, start: float, duration: float | None) -> np.ndarray:
    data = None
    errors = []
    try:
        import soundfile as sf
        y, sr = sf.read(path, always_2d=True, dtype="float32")
        data = (y.mean(axis=1), sr)
    except Exception as e:  # noqa: BLE001 - any decoder problem -> try miniaudio, then ffmpeg
        errors.append(f"soundfile: {e}")
    if data is None:
        ma = _miniaudio()
        if ma is not None:
            try:
                snd = ma.decode_file(path, output_format=ma.SampleFormat.FLOAT32, nchannels=1, sample_rate=SR)
                data = (np.asarray(snd.samples, dtype=np.float32), SR)
            except Exception as e:  # noqa: BLE001
                errors.append(f"miniaudio: {e}")
    if data is None and not shutil.which("ffmpeg"):
        sys.exit(f"cannot decode {path}:\n  " + "\n  ".join(errors) + "\ninstall miniaudio (py -m pip install miniaudio) or ffmpeg")
    if data is None:
        cmd = ["ffmpeg", "-v", "error", "-i", path, "-ac", "1", "-ar", str(SR), "-f", "f32le", "-"]
        raw = subprocess.run(cmd, check=True, stdout=subprocess.PIPE).stdout
        y, sr = np.frombuffer(raw, dtype=np.float32), SR
    else:
        y, sr = data
    if sr != SR:
        g = math.gcd(int(sr), SR)
        y = signal.resample_poly(y, SR // g, int(sr) // g).astype(np.float32)
    a = int(start * SR)
    b = len(y) if duration is None else min(len(y), a + int(duration * SR))
    y = y[a:b]
    peak = np.max(np.abs(y)) if len(y) else 0
    if peak > 0:
        y = y / peak
    return y


def stft_mag(y: np.ndarray, nfft: int = NFFT) -> np.ndarray:
    # centred frames: frame k is centred at k * HOP samples, for every window size
    _, _, z = signal.stft(y, fs=SR, window="hann", nperseg=nfft, noverlap=nfft - HOP, boundary="zeros", padded=True)
    return np.abs(z).astype(np.float32)          # (freq bins, frames)


# ---------------------------------------------------------------- tempo
def onset_envelope(mag: np.ndarray) -> np.ndarray:
    """spectral flux of a short-window STFT (accurate timing)"""
    logm = np.log1p(100 * mag)
    flux = np.maximum(0, np.diff(logm, axis=1)).sum(axis=0)
    flux = np.concatenate([[0], flux])
    flux = flux - signal.medfilt(flux, 31)
    return np.maximum(flux, 0)


def estimate_tempo(env: np.ndarray, lo: float = 60, hi: float = 200) -> float:
    fps = SR / HOP
    e = env - env.mean()
    ac = np.correlate(e, e, mode="full")[len(e) - 1:]
    best, best_score = 120.0, -1e9
    for bpm in np.arange(lo, hi, 0.5):
        lag = fps * 60 / bpm
        score = 0.0
        for k, w in ((1, 1.0), (2, 0.5), (4, 0.25)):   # beat + its multiples
            i = int(round(lag * k))
            if i < len(ac):
                score += w * ac[i]
        score *= math.exp(-0.5 * (math.log2(bpm / 120) / 0.9) ** 2)  # prefer ~120 bpm
        if score > best_score:
            best, best_score = bpm, score
    return float(best)


def beat_phase(env: np.ndarray, step_frames: float) -> float:
    """grid offset (frames) that puts the most onset energy on grid points"""
    best, best_v = 0.0, -1.0
    n = int(step_frames)
    for off in range(max(1, n)):
        idx = np.arange(off, len(env), step_frames).astype(int)
        v = env[idx].sum()
        if v > best_v:
            best, best_v = float(off), v
    return best


# ---------------------------------------------------------------- source separation (optional)
def separate(path: str, stem: str) -> str:
    """isolate the melody with Demucs (py -m pip install demucs): 'vocals' = sung
    melody, 'other' = everything but vocals/drums/bass (lead instruments).
    Returns the path of the separated WAV (cached next to the input)."""
    import tempfile
    out = os.path.join(tempfile.gettempdir(), "mp3_to_yms_demucs")
    name = os.path.splitext(os.path.basename(path))[0]
    wav = os.path.join(out, "htdemucs", name, f"{stem}.wav")
    if os.path.exists(wav):
        return wav
    cmd = [sys.executable, "-m", "demucs", "-n", "htdemucs", "-o", out]
    if stem == "vocals":
        cmd += ["--two-stems", "vocals"]
    cmd.append(path)
    print("Separate : running Demucs (first run downloads the model, a few minutes on CPU)…")
    r = subprocess.run(cmd)
    if r.returncode != 0 or not os.path.exists(wav):
        sys.exit("Demucs failed; install it with: py -m pip install demucs   (or drop --separate)")
    return wav


# ---------------------------------------------------------------- neural pitch (optional)
def find_model(path: str | None) -> str | None:
    """Basic Pitch (Spotify, Apache-2.0) ONNX model: --model, next to this script, or the installed package"""
    cands = [path] if path else []
    here = os.path.dirname(os.path.abspath(__file__))
    cands += [os.path.join(here, "nmp.onnx")]
    try:
        import basic_pitch  # noqa: F401
        cands.append(os.path.join(os.path.dirname(basic_pitch.__file__), "saved_models", "icassp_2022", "nmp.onnx"))
    except Exception:  # noqa: BLE001
        pass
    for c in cands:
        if c and os.path.exists(c):
            return c
    return None


def nn_posteriors(y: np.ndarray, model: str, n_frames: int) -> tuple[np.ndarray, np.ndarray]:
    """runs Basic Pitch over 2-second windows (30 frames overlap, as the reference code);
    returns (note, onset) posteriors resampled to our semitone rows MIDI_LO..MIDI_HI
    and our frame grid (both use a 256-sample hop at 22.05 kHz)"""
    import onnxruntime as ort
    sess = ort.InferenceSession(model, providers=["CPUExecutionProvider"])
    n_samples, olap_frames = 2 * SR - 256, 30
    olap = olap_frames * 256
    hop = n_samples - olap
    audio = np.concatenate([np.zeros(olap // 2, np.float32), y.astype(np.float32)])
    wins = []
    for i in range(0, len(audio), hop):
        w = audio[i:i + n_samples]
        if len(w) < n_samples:
            w = np.pad(w, (0, n_samples - len(w)))
        wins.append(w)
    notes, onsets = [], []
    inp = sess.get_inputs()[0].name
    names = [o.name for o in sess.get_outputs()]
    note_name = next(n for n in names if n.endswith(":1"))
    onset_name = next(n for n in names if n.endswith(":2"))
    for k in range(0, len(wins), 16):
        batch = np.stack(wins[k:k + 16])[..., None]
        out = sess.run([note_name, onset_name], {inp: batch})
        notes.append(out[0])
        onsets.append(out[1])
    h = olap_frames // 2
    def unwrap(parts):
        a = np.concatenate(parts)[:, h:-h, :]
        a = a.reshape(-1, a.shape[-1])
        return a[:int(len(y) * SR / 256 / SR) + 1]
    note, onset = unwrap(notes), unwrap(onsets)
    def to_rows(a):
        rows = np.zeros((MIDI_HI - MIDI_LO + 1, n_frames), np.float32)
        m = min(n_frames, a.shape[0])
        for midi in range(MIDI_LO, MIDI_HI + 1):
            rows[midi - MIDI_LO, :m] = a[:m, midi - 21]
        return rows
    return to_rows(note), to_rows(onset)


# ---------------------------------------------------------------- pitch
def salience(mag: np.ndarray, nfft: int = NFFT) -> np.ndarray:
    """harmonic-sum pitch salience, one row per MIDI note in MIDI_LO..MIDI_HI"""
    freqs = np.fft.rfftfreq(nfft, 1 / SR)
    comp = np.sqrt(mag)                       # compress dynamics
    out = np.zeros((MIDI_HI - MIDI_LO + 1, mag.shape[1]), np.float32)
    for m in range(MIDI_LO, MIDI_HI + 1):
        f0 = 440.0 * 2 ** ((m - 69) / 12)
        acc = np.zeros(mag.shape[1], np.float32)
        for h, w in ((1, 1.0), (2, 0.6), (3, 0.45), (4, 0.3), (5, 0.2)):
            f = f0 * h
            if f > SR / 2 - 50:
                break
            # band +-35 cents around the partial
            lo, hi = f * 2 ** (-0.35 / 12), f * 2 ** (0.35 / 12)
            band = (freqs >= lo) & (freqs <= hi)
            if not band.any():
                band = np.zeros_like(band)
                band[np.argmin(np.abs(freqs - f))] = True
            acc += w * comp[band].max(axis=0)
        out[m - MIDI_LO] = acc
    # suppress sub-octave ghosts: a note whose octave above is much stronger is an artefact
    for i in range(out.shape[0] - 12):
        out[i] = np.where(out[i + 12] > 1.6 * out[i], out[i] * 0.4, out[i])
    return out


# ---------------------------------------------------------------- transcription
def fold(notes: list[int], base: int = NB_LO) -> int:
    """octave shift that puts most notes into the instrument's 25-semitone range"""
    best, best_score = 0, -1e9
    for sh in range(-48, 49, 12):
        inside = sum(1 for n in notes if base <= n + sh < base + NB_RANGE)
        # keep the original octave unless moving gains clearly more notes (>10%)
        score = inside - 0.1 * len(notes) * abs(sh) / 12
        if score > best_score:
            best, best_score = sh, score
    return best


def to_block(m: int, base: int = NB_LO) -> int:
    p = m - base
    while p < 0:
        p += 12
    while p >= NB_RANGE:
        p -= 12
    return p


PITCHED = ("melody", "alto", "tenor", "bass", "harmony")
DRUMS = {"kick": ((30, 120), 3), "snare": ((1500, 5000), 10), "hat": ((7000, 11000), 18)}
DEFAULT_INST = {"melody": "harp", "alto": "flute", "tenor": "guitar", "bass": "bass", "harmony": ["bell", "chime", "xylophone", "pling", "banjo"],
                "kick": "basedrum", "snare": "snare", "hat": "hat"}
PRESETS = {"1": "melody", "2": "melody,bass", "3": "melody,bass,harmony",
           "piano": "melody,harmony,harmony,bass", "satb": "melody,alto,tenor,bass",
           "band": "melody,bass,harmony,kick,snare,hat", "full": "melody,alto,tenor,bass,harmony,harmony,kick,snare,hat",
           "drums": "kick,snare,hat"}


def parse_voices(spec: str) -> list[dict]:
    """'melody:flute,bass::-12,harmony,kick' -> [{role, inst, shift, name}]"""
    spec = PRESETS.get(spec, spec)
    out, count = [], {}
    for item in spec.split(","):
        item = item.strip()
        if not item:
            continue
        parts = item.split(":")
        role = parts[0].lower()
        if role not in PITCHED and role not in DRUMS:
            sys.exit(f"unknown voice {role!r}; use: {', '.join(PITCHED + tuple(DRUMS))} or a preset: {', '.join(PRESETS)}")
        count[role] = count.get(role, 0) + 1
        inst = parts[1] if len(parts) > 1 and parts[1] else None
        if inst is None and role in DRUMS:
            inst = DEFAULT_INST[role]
        if inst is not None and inst not in INSTRUMENTS:
            sys.exit(f"unknown instrument {inst!r}; use one of: {', '.join(INSTRUMENTS)}")
        shift = int(parts[2]) if len(parts) > 2 and parts[2] else 0
        name = role if count[role] == 1 else f"{role} {count[role]}"
        out.append({"role": role, "inst": inst, "shift": shift, "name": name, "nth": count[role]})
    if not out:
        sys.exit("no voices given")
    return out


_PERC = {}


def percussive(y: np.ndarray) -> np.ndarray:
    """percussive part of a short-window spectrogram (median-filter HPSS):
    drums are smooth across frequency, notes are smooth across time"""
    key = id(y)
    if key not in _PERC:
        from scipy.ndimage import median_filter
        mag = stft_mag(y, 1024)
        harm = median_filter(mag, size=(1, 17))
        perc = median_filter(mag, size=(17, 1))
        _PERC[key] = mag * (perc > 1.5 * harm)
    return _PERC[key]


def band_flux(y: np.ndarray, bands) -> np.ndarray:
    """onset strength of a frequency band of the percussive part"""
    mag = percussive(y)
    freqs = np.fft.rfftfreq(1024, 1 / SR)
    sel = np.zeros(len(freqs), bool)
    for k in range(0, len(bands), 2):
        sel |= (freqs >= bands[k]) & (freqs < bands[k + 1])
    e = np.log1p(100 * mag[sel]).sum(axis=0)
    flux = np.maximum(0, np.diff(e, prepend=e[:1]))
    return flux / (np.percentile(flux, 98) + 1e-9)


def make_grid(sal: np.ndarray, env: np.ndarray, bpm: float, spb: int) -> dict:
    fps = SR / HOP
    step_frames = fps * 60 / bpm / spb
    phase = beat_phase(env, step_frames)
    n_steps = int((sal.shape[1] - phase) / step_frames)
    steps = np.zeros((sal.shape[0], n_steps), np.float32)
    for s in range(n_steps):
        a = int(phase + (s + 0.25) * step_frames)
        b = max(a + 1, int(phase + (s + 1.25) * step_frames))
        steps[:, s] = sal[:, a:min(b, sal.shape[1])].mean(axis=1) if a < sal.shape[1] else 0
    loud = steps.max(axis=0) / (np.percentile(steps.max(axis=0), 95) + 1e-9)
    return {"step_frames": step_frames, "phase": phase, "n": n_steps, "steps": steps, "loud": loud}


def peaks(col: np.ndarray, thr: float) -> list[int]:
    """salient semitones of one step, without octave / octave+fifth ghosts of lower notes"""
    cand, kept = [], set()
    for i in range(1, len(col) - 1):
        if col[i] >= thr * 0.6 and col[i] >= col[i - 1] and col[i] >= col[i + 1]:
            if i >= 12 and (i - 12) in kept and col[i - 12] >= 0.8 * col[i]:
                continue
            if i >= 19 and (i - 19) in kept and col[i - 19] >= col[i]:
                continue
            kept.add(i)
            if col[i] >= thr:
                cand.append(i)
    return cand


def track_line(steps: np.ndarray, loud: np.ndarray, lo: int, hi: int, args, jump: float = 0.02,
               silence: float | None = None, avoid: list | None = None) -> list[int | None]:
    """Viterbi tracking of one continuous line (melody or bass) inside MIDI lo..hi:
    each step either holds a note or rests; the score rewards salience measured
    *within this range* (so a loud bass does not hide the melody) and penalises
    jumps, so the line follows the tune instead of jumping between instruments."""
    lo = max(lo, MIDI_LO + 1)
    a, b = lo - MIDI_LO, hi - MIDI_LO + 1
    sub = steps[a:b]
    n = sub.shape[1]
    if n == 0:
        return []
    norm = sub / (np.percentile(sub.max(axis=0), 90) + 1e-9)          # range-local loudness
    # a note that just started is more likely the tune than one still ringing
    rise = np.maximum(0, norm - np.concatenate([norm[:, :1], norm[:, :-1]], axis=1))
    states = sub.shape[0] + 1                                         # last state = rest
    rest_score = args.threshold * 0.55
    dist = np.abs(np.arange(sub.shape[0])[:, None] - np.arange(sub.shape[0])[None, :])
    trans = -jump * dist - np.where(dist > 7, 0.08, 0) - np.where(dist > 12, 0.15, 0)
    score = np.full(states, -1e9)
    back = np.zeros((n, states), np.int32)
    for s in range(n):
        col = norm[:, s]
        # only real peaks of this range can be notes (ghost-free, relative to the range max)
        if avoid is not None and avoid[s] is not None:
            # overtones of the bass note (octave, octave+fifth, two octaves) are not melody
            col = col.copy()
            for h in (12, 19, 24, 28):
                k = avoid[s] + h - lo
                if 0 <= k < len(col):
                    col[k] *= 0.35
        rel = col / (col.max() + 1e-9)
        cand = set(peaks(rel, args.threshold * 0.8)) if loud[s] >= (silence if silence is not None else args.silence) else set()
        emit = np.full(states, -1e9)
        for i in cand:
            emit[i] = col[i] + 0.8 * rise[i, s]
        emit[-1] = rest_score
        if s == 0:
            new = emit.copy()
            back[s] = states - 1
        else:
            new = np.full(states, -1e9)
            prev_notes = score[:-1]
            # to a note: from a note (with jump cost) or from rest (free)
            via_note = prev_notes[:, None] + trans                      # [from, to]
            best_from = via_note.argmax(axis=0)
            best_val = via_note.max(axis=0)
            from_rest = score[-1]
            use_rest = from_rest >= best_val
            new[:-1] = np.where(use_rest, from_rest, best_val) + emit[:-1]
            back[s, :-1] = np.where(use_rest, states - 1, best_from)
            # to rest: from anything
            k = int(score.argmax())
            new[-1] = score[k] + emit[-1]
            back[s, -1] = k
        score = new
    path = [0] * n
    k = int(score.argmax())
    for s in range(n - 1, -1, -1):
        path[s] = k
        k = back[s, k]
    return [None if p == states - 1 else lo + p for p in path]


def attack_steps(y, env, bpm, spb, n_steps, sustained, onset_post=None):
    """per-step salience of what *started* in the step: harmonic sum over the
    positive spectral difference (now minus ~90 ms ago). Held chords, pads and
    the bass hardly change, a newly played melody note does, so this separates
    the tune from the accompaniment much better than the plain spectrum."""
    if onset_post is not None:
        att = onset_post
    else:
        mag = stft_mag(y, NFFT)
        k = 8
        diff = np.maximum(0, mag - np.concatenate([np.repeat(mag[:, :1], k, axis=1), mag[:, :-k]], axis=1))
        att = salience(diff, NFFT)
    fps = SR / HOP
    step_frames = fps * 60 / bpm / spb
    phase = beat_phase(env, step_frames)
    out = np.zeros((att.shape[0], n_steps), np.float32)
    for s in range(n_steps):
        a = max(0, int(phase + (s - 0.3) * step_frames))
        b = max(a + 1, int(phase + (s + 0.7) * step_frames))
        seg = att[:, a:min(b, att.shape[1])]
        if seg.shape[1]:
            out[:, s] = seg.max(axis=1)
    na = out / (np.percentile(out.max(axis=0), 90) + 1e-9)
    ns = sustained / (np.percentile(sustained.max(axis=0), 90) + 1e-9)
    return na + 0.3 * ns[:, :n_steps]


def transcribe(sal: np.ndarray, env: np.ndarray, bpm: float, spb: int, args, voices_spec, y) -> tuple[dict, int, np.ndarray]:
    g = make_grid(sal, env, bpm, spb)
    step_frames, phase, n_steps, steps, loud = g["step_frames"], g["phase"], g["n"], g["steps"], g["loud"]
    def per_step(sig):
        v = np.zeros(n_steps, np.float32)
        for s in range(n_steps):
            a = int(phase + s * step_frames)
            v[s] = sig[a:int(phase + (s + 1) * step_frames) + 1].max() if a < len(sig) else 0
        return v
    env_steps = per_step(env)
    env_steps = env_steps / (np.percentile(env_steps, 95) + 1e-9)

    events = {v["name"]: [] for v in voices_spec}
    last: dict[str, tuple] = {}
    prevcol = np.zeros(steps.shape[0], np.float32)
    thr = args.threshold
    pitched = [v for v in voices_spec if v["role"] in PITCHED]

    def emit(name, i, s, col, onset, bass):
        m = i + MIDI_LO
        rise = col[i] > prevcol[i] * 1.25 + 0.05 or (s > 0 and steps[i, s] > steps[i, s - 1] * 1.12)
        prev = last.get(name)
        if prev is None or prev[0] != m:
            if not (prev and prev[0] == m and s - prev[1] <= 1):
                events[name].append((s, m)); last[name] = (m, s)
        elif s - prev[1] >= 2 and ((onset or bass) and rise or (args.restrike and s - prev[1] >= args.restrike)):
            events[name].append((s, m)); last[name] = (m, s)

    roles = {v["role"] for v in pitched}
    # the bass line first (long window: low notes need frequency resolution);
    # its overtones are then ignored by the melody tracker, which uses a shorter
    # window (2048 samples = 93 ms) so fast notes do not smear into each other
    bass_line = track_line(steps, loud, 28, 59, args, jump=0.04)
    mel_steps = steps
    if "melody" in roles:
        my = getattr(args, "melody_audio", None)
        if my is not None:
            msal = getattr(args, "mel_note", None)
            if msal is None:
                msal = salience(stft_mag(my))
            ms = make_grid(msal, env, bpm, spb)["steps"]
            ms = ms[:, :n_steps] if ms.shape[1] >= n_steps else np.pad(ms, ((0, 0), (0, n_steps - ms.shape[1])))
            mel_steps = attack_steps(my, env, bpm, spb, n_steps, ms, getattr(args, "onset_post", None))
        else:
            mel_steps = attack_steps(y, env, bpm, spb, n_steps, steps, getattr(args, "onset_post", None))
    lines = {"bass": bass_line if "bass" in roles else [None] * n_steps,
             "melody": track_line(mel_steps, loud, args.mel_lo, 96, args, avoid=bass_line) if "melody" in roles else [None] * n_steps}
    for s in range(n_steps):
        if loud[s] < args.silence or not pitched:
            prevcol = steps[:, s] * 0
            continue
        col = steps[:, s] / (steps[:, s].max() + 1e-9)
        cand = peaks(col, thr)
        if not cand and lines["melody"][s] is None and lines["bass"][s] is None:
            prevcol = col
            continue
        by_pitch = sorted(cand, reverse=True)           # high -> low
        used = set()
        onset = env_steps[s] > args.onset
        # melody and bass come from the tracked lines; alto/tenor by pitch rank below the melody
        rank = {"alto": 1, "tenor": 2}
        for v in pitched:
            r = v["role"]
            i = None
            if r == "melody":
                m = lines["melody"][s]
                i = None if m is None else m - MIDI_LO
            elif r == "bass":
                m = lines["bass"][s]
                i = None if m is None else m - MIDI_LO
                if i is not None and lines["melody"][s] is not None and abs(m - lines["melody"][s]) < 5:
                    i = None
            elif r in rank:
                below = [x for x in by_pitch if lines["melody"][s] is None or x + MIDI_LO < lines["melody"][s]]
                if len(below) > rank[r] - 1:
                    i = below[rank[r] - 1]
                    if lines["bass"][s] is not None and i + MIDI_LO == lines["bass"][s]:
                        i = None
            if i is not None:
                used.add(i)
                emit(v["name"], i, s, col, onset, r == "bass")
        # harmony voices: strongest remaining notes, no octave doubling of used notes
        rest = sorted((i for i in cand if i not in used and all(abs(i - u) != 12 for u in used)), key=lambda i: -col[i])
        for v, i in zip([v for v in pitched if v["role"] == "harmony"], rest):
            emit(v["name"], i, s, col, onset, False)
        prevcol = col

    # drums: onsets of the percussive part per band, on the step grid, fixed pitch
    cache = {}
    for v in voices_spec:
        if v["role"] in DRUMS:
            for st_ in detect_drum(y, v["role"], g, args.drums, cache):
                events[v["name"]].append((st_, NB_LO + DRUMS[v["role"]][1]))
    # clean the melody up (fewer stray notes): key, octave slips, blips, density
    for v in voices_spec:
        if v["role"] == "melody" and args.simplify > 0:
            events[v["name"]] = clean_melody(events[v["name"]], mel_steps, args, spb)
    return events, n_steps, steps


MAJOR = (0, 2, 4, 5, 7, 9, 11)
KEYS = {n.lower(): i for i, n in enumerate(["C", "C#", "D", "D#", "E", "F", "F#", "G", "G#", "A", "A#", "B"])}
KEYS.update({"db": 1, "eb": 3, "gb": 6, "ab": 8, "bb": 10})
KEYS.update({k + "m": (v + 3) % 12 for k, v in list(KEYS.items())})   # minor key = its relative major scale


def clean_melody(evs: list, conf: np.ndarray, args, spb: int) -> list:
    """post-processing of the melody line:
       1. octave slips: a note an octave away from both neighbours moves back next to them
       2. blips: a one-step note far from both neighbours with weak evidence is dropped
       3. key: weak notes outside the song's scale are dropped
       4. (--simplify 2) at most one note per eighth"""
    if len(evs) < 3:
        return evs
    evs = sorted(evs)
    def strength(s, m):
        i = m - MIDI_LO
        return float(conf[i, s]) if 0 <= i < conf.shape[0] and s < conf.shape[1] else 0.0
    norm = float(np.percentile([strength(s, m) for s, m in evs], 50)) + 1e-9
    out = list(evs)
    for k in range(1, len(out) - 1):
        (_, a), (s1, b), (_, c) = out[k - 1], out[k], out[k + 1]
        for sh in (-12, 12):
            if abs(b - a) >= 10 and abs(b - c) >= 10 and abs(b + sh - a) <= 5 and abs(b + sh - c) <= 5:
                out[k] = (s1, b + sh)
                break
    keep = [True] * len(out)
    for k in range(1, len(out) - 1):
        (_, a), (s1, b), (s2, c) = out[k - 1], out[k], out[k + 1]
        if s2 - s1 <= 1 and abs(b - a) >= 5 and abs(b - c) >= 5 and strength(s1, b) < 1.2 * norm:
            keep[k] = False
    out = [e for e, k in zip(out, keep) if k]
    if args.key != "off":
        pcs = np.bincount([m % 12 for _, m in out], minlength=12).astype(float)
        tonic = max(range(12), key=lambda t: sum(pcs[(t + d) % 12] for d in MAJOR)) if args.key == "auto" else KEYS[args.key.lower()]
        scale = {(tonic + d) % 12 for d in MAJOR}
        out = [(s, m) for s, m in out if m % 12 in scale or strength(s, m) >= 1.5 * norm]
    if args.simplify >= 2 and spb == 4:
        best = {}
        for s, m in out:
            k = s // 2
            if k not in best or strength(s, m) > strength(*best[k]):
                best[k] = (s, m)
        out = sorted(best.values())
    return out


def analyze(y: np.ndarray, sal: np.ndarray, env: np.ndarray, bpm: float, args) -> tuple[str, int, float, list[str]]:
    """decide the voices, steps per beat and note threshold from the recording"""
    notes_ = []
    # steps per beat: are there onsets between the eighth notes?
    g16 = make_grid(sal, env, bpm, 4)
    fps = SR / HOP
    onsets = np.array([env[int(g16["phase"] + s * g16["step_frames"]):int(g16["phase"] + (s + 0.5) * g16["step_frames"]) + 1].max()
                       if int(g16["phase"] + s * g16["step_frames"]) < len(env) else 0 for s in range(g16["n"])])
    eighth, sixteenth = onsets[0::2].mean() + 1e-9, onsets[1::2].mean()
    ratio = sixteenth / eighth
    spb = args.spb or (4 if ratio > 0.45 and bpm * 4 / 60 <= 20 else 2)
    notes_.append(f"off-beat sixteenth onsets {ratio:.2f} of the eighths -> {'1/16' if spb == 4 else '1/8'} grid")
    g = g16 if spb == 4 else make_grid(sal, env, bpm, spb)
    steps, loud = g["steps"], g["loud"]
    # polyphony and bass, on steps that are not silent
    thr = args.threshold
    counts, bass_steps, voiced = [], 0, 0
    for s in range(g["n"]):
        if loud[s] < args.silence:
            continue
        col = steps[:, s] / (steps[:, s].max() + 1e-9)
        c = peaks(col, thr)
        if not c:
            continue
        voiced += 1
        counts.append(len(c))
        if len(c) > 1 and min(c) + MIDI_LO < 60:
            bass_steps += 1
    if voiced == 0:
        return "drums", spb, thr, notes_ + ["no pitched content found"]
    poly = float(np.percentile(counts, 75))
    bass = bass_steps / voiced > 0.3
    # dense mixes: raise the threshold a little, sparse ones: lower it
    if not args.threshold_given:
        thr = 0.62 if poly >= 5 else 0.5 if poly <= 1.5 else thr
    harmony = 1 if poly >= 4 else 0       # more inner voices mostly add mud on note blocks
    notes_.append(f"polyphony ~{poly:.1f} notes, bass on {bass_steps * 100 // voiced}% of steps -> "
                  f"melody{' + bass' if bass else ''}{f' + {harmony} harmony' if harmony else ''}")
    voices = ["melody"] + (["bass"] if bass else []) + ["harmony"] * harmony
    # drums: share of percussive energy and regular hits per bar
    mag = stft_mag(y, 1024)
    perc = percussive(y)
    pshare = float(perc.sum() / (mag.sum() + 1e-9))
    bars = max(1, g["n"] / (spb * 4))
    if pshare > 0.15:
        found = []
        for r in DRUMS:
            hits = len(detect_drum(y, r, g, args.drums, {}))
            need = 3.0 if r == "hat" else 0.75
            if hits / bars >= need:
                voices.append(r)
                found.append(f"{r} {hits / bars:.1f}/bar")
        notes_.append(f"percussive energy {pshare * 100:.0f}% -> " + (", ".join(found) if found else "no regular drums"))
    else:
        notes_.append(f"percussive energy {pshare * 100:.0f}% -> no drums")
    return ",".join(voices), spb, thr, notes_


def detect_drum(y, role, g, threshold, flux_cache) -> list[int]:
    n_steps, phase, step_frames = g["n"], g["phase"], g["step_frames"]
    def drum_steps(sig):
        v = np.zeros(n_steps, np.float32)
        for s in range(n_steps):
            a = int(phase + (s - 0.4) * step_frames)
            b = int(phase + (s + 0.4) * step_frames) + 1
            v[s] = sig[max(0, a):b].max() if max(0, a) < min(b, len(sig)) else 0
        return v / (np.percentile(v, 95) + 1e-9)
    for r in ("kick", "snare", role):
        if r not in flux_cache:
            flux_cache[r] = drum_steps(band_flux(y, DRUMS[r][0]))
    f = flux_cache[role]
    hits, last_hit = [], -9
    for s in range(n_steps):
        left = f[s - 1] if s > 0 else 0
        right = f[s + 1] if s + 1 < n_steps else 0
        if f[s] < threshold or f[s] < left or f[s] <= right:
            continue
        other = {"kick": "snare", "snare": "kick"}.get(role)
        if other and flux_cache[other][s] > f[s] * 1.15 and f[s] < 0.9:
            continue
        if s - last_hit < 2 and f[s] < 1.0:
            continue
        hits.append(s)
        last_hit = s
    return hits


PITCHED_INST = ["harp", "pling", "banjo", "bit", "iron_xylophone", "bass", "didgeridoo", "guitar", "flute", "cow_bell",
                "bell", "chime", "xylophone"]
PLUCKED = {"harp", "pling", "banjo", "bit", "iron_xylophone", "guitar", "bass", "xylophone"}
SUSTAINED = {"flute", "didgeridoo", "bell", "chime"}


def choose_instruments(spec: list, events: dict, steps: np.ndarray) -> list[str]:
    """per voice: the instrument whose real range holds most of the voice's notes
    without an octave shift (so it sounds at the original pitch), with a bonus for
    a matching attack (decaying notes -> plucked, held notes -> sustained) and a
    small penalty for an instrument another voice already uses"""
    used, why = set(), []
    for v in spec:
        if v["inst"] is not None:
            continue
        evs = events.get(v["name"]) or []
        if not evs:
            v["inst"] = "harp"
            continue
        ms = [m for _, m in evs]
        med = float(np.median(ms))
        held = []
        for s, m in evs:
            i = m - MIDI_LO
            if s + 2 < steps.shape[1] and steps[i, s] > 0:
                held.append(min(1.5, steps[i, s + 2] / steps[i, s]))
        sustain = float(np.median(held)) if held else 0.5
        plucked = sustain <= 0.75

        def score(inst):
            base = INST_BASE[inst]
            inside = sum(1 for m in ms if base <= m < base + NB_RANGE) / len(ms)
            bonus = 0.12 if (plucked and inst in PLUCKED) or (not plucked and inst in SUSTAINED) else 0
            if v["role"] == "bass" and inst in ("bass", "didgeridoo", "guitar"):
                bonus += 0.1
            if v["role"] == "melody" and inst in ("harp", "flute", "pling", "bell", "xylophone"):
                bonus += 0.05
            return inside + bonus - (0.2 if inst in used else 0)
        pick = max(PITCHED_INST, key=score)
        base = INST_BASE[pick]
        inside = sum(1 for m in ms if base <= m < base + NB_RANGE) * 100 // len(ms)
        used.add(pick)
        v["inst"] = pick
        why.append(f"{v['name']}: median {NAMES[int(med) % 12]}{int(med) // 12 - 1}, {'plucked' if plucked else 'held'} "
                   f"-> {pick} ({inside}% at the original pitch)")
    return why


NAMES = ["C", "C#", "D", "D#", "E", "F", "F#", "G", "G#", "A", "A#", "B"]


def build_song(events: dict, voices_spec: list, n_steps: int, bpm: float, spb: int, args) -> dict:
    tracks, notes, stats = [], {}, {}
    ti = 0
    for v in voices_spec:
        evs = events[v["name"]]
        if not evs and not args.keep_empty:
            stats[v["name"]] = (0, 0, 0)
            continue
        ti += 1
        drum = v["role"] in DRUMS
        base = NB_LO if drum else INST_BASE.get(v["inst"], NB_LO)
        shift = (0 if drum else fold([m for _, m in evs], base) + (args.transpose or 0)) + v["shift"]
        inside = 0
        for s, m in evs:
            mm = m + shift
            if base <= mm < base + NB_RANGE:
                inside += 1
            step = s + 1
            lst = notes.setdefault(step, [])
            if any(t == ti for t, _ in lst):          # one note per track per step
                continue
            lst.append((ti, to_block(mm, base) if not drum else to_block(mm)))
        tracks.append({"inst": v["inst"], "name": v["name"]})
        stats[v["name"]] = (len(evs), shift, inside)
    bar = spb * 4
    last = max(notes) if notes else bar
    length = ((last - 1) // bar + 1) * bar
    return {"bpm": int(round(bpm)), "spb": spb, "length": length, "tracks": tracks, "notes": notes, "stats": stats}


def lua_song(song: dict) -> str:
    def q(s: str) -> str:
        return '"' + s.replace("\\", "\\\\").replace('"', '\\"') + '"'
    tracks = ",".join("{inst=%s,name=%s}" % (q(t["inst"]), q(t["name"])) for t in song["tracks"])
    notes = ",".join("[%d]={%s}" % (s, ",".join("{%d,%d}" % n for n in song["notes"][s])) for s in sorted(song["notes"]))
    return "{bpm=%d,spb=%d,length=%d,tracks={%s},notes={%s}}" % (song["bpm"], song["spb"], song["length"], tracks, notes)


# ---------------------------------------------------------------- preview
def render_preview(song: dict, path: str) -> None:
    sr = 22050
    step = 60 / song["bpm"] / song["spb"]
    total = int((song["length"] + 4) * step * sr)
    out = np.zeros(total, np.float32)
    t = np.arange(int(0.6 * sr)) / sr
    rng = np.random.default_rng(1)
    noise = rng.uniform(-1, 1, len(t)).astype(np.float32)
    for s, lst in song["notes"].items():
        for ti, p in lst:
            inst = song["tracks"][ti - 1]["inst"]
            f = 440.0 * 2 ** ((INST_BASE.get(inst, NB_LO) + p - 69) / 12)
            if inst == "basedrum":
                tone = np.sin(2 * np.pi * 60 * t * np.exp(-t * 8)) * np.exp(-t * 18)
            elif inst == "snare":
                tone = (0.7 * noise + 0.3 * np.sin(2 * np.pi * 190 * t)) * np.exp(-t * 25) * 0.6
            elif inst == "hat":
                tone = np.diff(noise, prepend=0) * np.exp(-t * 60) * 0.3
            else:
                tone = np.sin(2 * np.pi * f * t) + 0.3 * np.sin(4 * np.pi * f * t)
                tone *= np.exp(-t * (6 if ti == 1 else 4)) * (0.5 if ti > 1 else 0.6)
            a = int((s - 1) * step * sr)
            b = min(total, a + len(tone))
            out[a:b] += tone[:b - a]
    out /= max(1e-9, np.max(np.abs(out)))
    pcm = (out * 32000).astype("<i2")
    import wave
    with wave.open(path, "wb") as w:
        w.setnchannels(1)
        w.setsampwidth(2)
        w.setframerate(sr)
        w.writeframes(pcm.tobytes())


# ---------------------------------------------------------------- main
# ================================================================ MIDI input
# A MIDI file already contains exact notes: no pitch detection, only mapping to
# note blocks: tracks/channels -> voices, chords -> several voices, GM programs ->
# note block instruments, drums (channel 10) -> kick/snare/hat, timing -> grid.

def read_midi(path: str) -> dict:
    """minimal Standard MIDI File reader (format 0/1). Returns
    {ppq, tempo (us per quarter, first), tracks: [{name, notes: [(tick, ch, note, vel)], programs: {ch: prog}}]}"""
    data = open(path, "rb").read()
    if data[:4] != b"MThd":
        sys.exit("not a MIDI file")
    hlen = int.from_bytes(data[4:8], "big")
    fmt, ntrk, div = int.from_bytes(data[8:10], "big"), int.from_bytes(data[10:12], "big"), int.from_bytes(data[12:14], "big")
    if div & 0x8000:
        sys.exit("SMPTE-timed MIDI files are not supported")
    pos = 8 + hlen
    tracks, tempo, tempos = [], None, []
    for _ in range(ntrk):
        while data[pos:pos + 4] != b"MTrk":
            if pos >= len(data):
                break
            pos += 8 + int.from_bytes(data[pos + 4:pos + 8], "big")      # skip unknown chunks
        if pos >= len(data):
            break
        ln = int.from_bytes(data[pos + 4:pos + 8], "big")
        p, end = pos + 8, pos + 8 + ln
        pos = end
        tick, status = 0, 0
        tr = {"name": "", "notes": [], "programs": {}}
        def vlq():
            nonlocal p
            v = 0
            while True:
                b = data[p]; p += 1
                v = (v << 7) | (b & 0x7F)
                if not b & 0x80:
                    return v
        while p < end:
            tick += vlq()
            b = data[p]
            if b & 0x80:
                status = b; p += 1
            if status == 0xFF:
                typ = data[p]; p += 1
                n = vlq()
                body = data[p:p + n]; p += n
                if typ == 0x03 and not tr["name"]:
                    tr["name"] = body.decode("latin-1", "replace").strip()
                elif typ == 0x51 and n == 3:
                    us = int.from_bytes(body, "big")
                    tempos.append((tick, us))
                    if tempo is None:
                        tempo = us
                elif typ == 0x2F:
                    break
                status = 0
            elif status in (0xF0, 0xF7):
                n = vlq(); p += n; status = 0
            else:
                kind, ch = status & 0xF0, status & 0x0F
                if kind in (0xC0, 0xD0):
                    d1 = data[p]; p += 1
                    if kind == 0xC0:
                        tr["programs"].setdefault(ch, d1)
                else:
                    d1, d2 = data[p], data[p + 1]; p += 2
                    if kind == 0x90 and d2 > 0:
                        tr["notes"].append((tick, ch, d1, d2))
        tracks.append(tr)
    return {"ppq": div, "tempo": tempo or 500000, "tempos": tempos, "tracks": tracks, "format": fmt}


# General MIDI program families -> note block instruments that suit them
GM_FAMILY = [
    (0, 7, ["harp", "pling", "banjo"]),                  # pianos
    (8, 8, ["bell", "chime"]), (9, 9, ["bell", "chime"]), (10, 10, ["chime", "bell"]),     # celesta, glockenspiel, music box
    (11, 11, ["iron_xylophone"]), (12, 12, ["iron_xylophone", "xylophone"]), (13, 13, ["xylophone"]),
    (14, 15, ["chime", "bell"]),                         # tubular bells, dulcimer
    (16, 23, ["flute", "bit", "didgeridoo"]),            # organs, accordion, harmonica
    (24, 31, ["guitar", "harp", "banjo"]),               # guitars
    (32, 39, ["bass", "didgeridoo", "guitar"]),          # basses
    (40, 55, ["flute", "harp", "didgeridoo", "bell"]),   # strings, ensembles, choir
    (56, 63, ["didgeridoo", "bit", "flute"]),            # brass
    (64, 79, ["flute", "didgeridoo"]),                   # reeds, pipes
    (80, 87, ["bit", "pling", "flute"]),                 # synth leads
    (88, 103, ["pling", "chime", "bell", "flute"]),      # pads, synth fx
    (104, 104, ["banjo"]), (105, 105, ["banjo"]), (106, 111, ["banjo", "harp", "didgeridoo"]),  # ethnic
    (112, 112, ["bell"]), (113, 113, ["cow_bell"]), (114, 119, ["xylophone", "basedrum", "cow_bell"]),
    (120, 127, ["pling", "hat"]),
]
GM_DRUM = {35: "kick", 36: "kick", 41: "kick", 43: "kick", 45: "kick", 47: "kick", 48: "kick", 50: "kick",
           37: "snare", 38: "snare", 39: "snare", 40: "snare",
           42: "hat", 44: "hat", 46: "hat", 49: "hat", 51: "hat", 52: "hat", 53: "hat", 55: "hat", 57: "hat", 59: "hat"}
DRUM_PITCH = {"kick": 3, "snare": 10, "hat": 18}


def midi_instrument(prog: int | None, notes: list[int], used: set) -> str:
    cands = next((c for lo, hi, c in GM_FAMILY if prog is not None and lo <= prog <= hi), ["harp", "flute", "bell", "guitar", "bass"])
    def score(inst):
        base = INST_BASE[inst]
        inside = sum(1 for m in notes if base <= m < base + NB_RANGE) / max(1, len(notes))
        return inside - (0.15 if inst in used else 0) - 0.02 * cands.index(inst)
    return max(cands, key=score)


def convert_midi(args, out: str) -> None:
    mf = read_midi(args.input)
    ppq = mf["ppq"]
    bpm = args.bpm or round(60_000_000 / mf["tempo"], 2)
    if len({us for _, us in mf["tempos"]}) > 1:
        print(f"note     : the file changes tempo {len(mf['tempos'])} times; Composer plays one tempo ({bpm:g} bpm)")
    # split into parts: one per (track, channel); channel 10 (index 9) = drums
    parts = []
    for ti, tr in enumerate(mf["tracks"], start=1):
        chans = sorted({ch for _, ch, _, _ in tr["notes"]})
        for ch in chans:
            notes = [(t, n, v) for t, c, n, v in tr["notes"] if c == ch]
            prog = tr["programs"].get(ch)
            if prog is None:
                for other in mf["tracks"]:
                    if ch in other["programs"]:
                        prog = other["programs"][ch]
                        break
            name = tr["name"] or f"track {ti}"
            if len(chans) > 1:
                name += f" ch{ch + 1}"
            parts.append({"index": len(parts) + 1, "name": name, "ch": ch, "prog": prog, "notes": notes, "drums": ch == 9})
    if not parts:
        sys.exit("the MIDI file has no notes")
    # start/duration (seconds at the main tempo)
    tick_s = 60 / bpm / ppq
    t0 = int(args.start / tick_s)
    t1 = int((args.start + args.duration) / tick_s) if args.duration else None
    # grid: the coarsest steps per beat that keeps (almost) all onsets exact
    onsets = [t for p in parts for t, _, _ in p["notes"] if t >= t0 and (t1 is None or t < t1)]
    spb = args.spb
    if not spb:
        for cand in (1, 2, 3, 4, 6, 8):
            step = ppq / cand
            exact = sum(1 for t in onsets if abs(t / step - round(t / step)) < 0.1) / max(1, len(onsets))
            if exact >= 0.97 or cand == 8:
                spb = cand
                break
        while bpm * spb / 60 > 20 and spb > 1:      # note blocks: max 20 notes per second per block
            spb = {8: 4, 6: 3, 4: 2, 3: 2, 2: 1}[spb]
        spb = max(spb, 2) if bpm * 2 / 60 <= 20 else spb
    step_ticks = ppq / spb
    print(f"MIDI     : {len(parts)} parts, {ppq} ticks per beat, {bpm:g} bpm, grid 1/{spb * 4} ({bpm * spb / 60:.1f} steps/s)")
    # choose parts
    sel = parts
    if args.parts:
        want = set()
        for x in args.parts.split(","):
            x = x.strip()
            want |= {p["index"] for p in parts if x.isdigit() and p["index"] == int(x) or (not x.isdigit() and x.lower() in p["name"].lower())}
        sel = [p for p in parts if p["index"] in want]
    if args.no_drums:
        sel = [p for p in sel if not p["drums"]]
    for p in parts:
        mark = "*" if p in sel else " "
        kind = "drums" if p["drums"] else f"program {p['prog'] if p['prog'] is not None else '-'}"
        rng = [n for _, n, _ in p["notes"]]
        print(f"  {mark}{p['index']:2}. {p['name'][:28]:28} {kind:12} {len(p['notes']):5} notes  {min(rng)}..{max(rng)}")
    # voices
    tracks, notes, used = [], {}, set()
    def add_note(ti, step, pitch):
        lst = notes.setdefault(step, [])
        if not any(t == ti for t, _ in lst):
            lst.append((ti, pitch))
    overrides = dict(x.split("=", 1) for x in args.inst.split(",")) if args.inst else {}
    for p in sel:
        evs = [(int(round((t - t0) / step_ticks)) + 1, n, v) for t, n, v in p["notes"] if t >= t0 and (t1 is None or t < t1)]
        if args.min_velocity:
            evs = [e for e in evs if e[2] >= args.min_velocity]
        if not evs:
            continue
        if p["drums"]:
            for kind in ("kick", "snare", "hat"):
                ds = [(s, n) for s, n, _ in evs if GM_DRUM.get(n) == kind]
                if not ds:
                    continue
                tracks.append({"inst": {"kick": "basedrum", "snare": "snare", "hat": "hat"}[kind], "name": f"{p['name']} {kind}"})
                ti = len(tracks)
                for s, _ in ds:
                    add_note(ti, s, DRUM_PITCH[kind])
                print(f"  -> {tracks[-1]['name'][:30]:30} {tracks[-1]['inst']:14} {len(ds):5} hits")
            continue
        # chords: per step the notes from high to low go to voice 1, 2, 3…; extra notes
        # beyond --max-poly are dropped from the middle (keep top and bottom)
        by_step = {}
        for s, n, v in evs:
            by_step.setdefault(s, set()).add(n)
        poly = min(args.max_poly, max(len(v) for v in by_step.values()))
        voices = [[] for _ in range(poly)]
        for s, ns in by_step.items():
            ns = sorted(ns, reverse=True)
            if len(ns) > poly:
                ns = ns[:poly - 1] + [ns[-1]] if poly > 1 else ns[:1]
            for k, n in enumerate(ns):
                voices[k].append((s, n))
        for k, vs in enumerate(voices):
            if not vs:
                continue
            name = p["name"] if poly == 1 else f"{p['name']} {k + 1}"
            inst = (overrides.get(name) or overrides.get(str(p["index"])) or overrides.get(p["name"])
                    or midi_instrument(p["prog"], [n for _, n in vs], used))
            if inst not in INSTRUMENTS:
                sys.exit(f"unknown instrument {inst!r}")
            used.add(inst)
            base = INST_BASE[inst]
            shift = fold([n for _, n in vs], base) + args.transpose
            inside = sum(1 for _, n in vs if base <= n + shift < base + NB_RANGE) * 100 // len(vs)
            tracks.append({"inst": inst, "name": name})
            ti = len(tracks)
            for s, n in vs:
                add_note(ti, s, to_block(n + shift, base))
            print(f"  -> {name[:30]:30} {inst:14} {len(vs):5} notes, shift {shift:+d}, {inside}% at that octave")
    if not tracks:
        sys.exit("nothing to convert (check --parts / --start)")
    bar = spb * 4
    last = max(notes)
    song = {"bpm": int(round(bpm)), "spb": spb, "length": ((last - 1) // bar + 1) * bar, "tracks": tracks, "notes": notes}
    with open(out, "w", encoding="utf-8") as f:
        f.write(lua_song(song))
    print(f"Written  : {out}  ({song['length']} steps, {sum(len(v) for v in notes.values())} notes, {len(tracks)} tracks)")
    if args.preview:
        render_preview(song, args.preview)
        print(f"Preview  : {args.preview}")


# ---------------------------------------------------------------- GUI
AUDIO_EXTS = (".mp3", ".wav", ".ogg", ".flac", ".m4a", ".aac", ".opus")
MIDI_EXTS = (".mid", ".midi", ".kar")
VOICE_CHOICES = [("Авто — по музыке", "auto"), ("Только мелодия", "1"), ("Мелодия + бас", "2"),
                 ("Мелодия + бас + аккорды", "3"), ("Пианино (мелодия, 2 аккорда, бас)", "piano"),
                 ("Хор: 4 голоса", "satb"), ("Группа: + бочка, малый, хэт", "band"),
                 ("Полный состав", "full"), ("Только ударные", "drums")]
NOTES_CHOICES = [("Авто", None), ("Мало нот (чище)", 0.7), ("Средне", 0.55), ("Много нот (подробнее)", 0.42)]
GRID_CHOICES = [("Авто", None), ("Восьмые (спокойнее)", 2), ("Шестнадцатые (быстрые партии)", 4)]
CLEAN_CHOICES = [("Выкл.", 0), ("Обычная", 1), ("Сильная — не больше ноты на восьмую", 2)]
DRUM_CHOICES = [("Чаще", 0.4), ("Обычно", 0.55), ("Реже", 0.7)]
SEP_CHOICES = [("Нет", "off"), ("Мелодия = вокал", "vocals"), ("Мелодия = инструменты", "other")]
ENGINE_CHOICES = [("Авто", "auto"), ("Нейросеть (Basic Pitch)", "nn"), ("Встроенный", "dsp")]
KEYS = ["auto", "off"] + [k + m for m in ("", "m") for k in ("C", "C#", "D", "Eb", "E", "F", "F#", "G", "Ab", "A", "Bb", "B")]


def build_args(o: dict) -> list[str]:
    """GUI options -> command line of this script"""
    a = [o["input"], o["output"]]
    midi = o["input"].lower().endswith(MIDI_EXTS)
    if o.get("preview"):
        a += ["--preview", o["preview"]]
    if o["transpose"]:
        a += ["--transpose", str(o["transpose"])]
    if midi:
        if o["parts"].strip():
            a += ["--parts", o["parts"].strip()]
        if o["no_drums"]:
            a.append("--no-drums")
        a += ["--max-poly", str(o["max_poly"])]
        return a
    if o["start"] > 0:
        a += ["--start", f"{o['start']:g}"]
    if o["duration"] > 0:
        a += ["--duration", f"{o['duration']:g}"]
    if o["bpm"] > 0:
        a += ["--bpm", f"{o['bpm']:g}"]
    if o["voices"] != "auto":
        a += ["--voices", o["voices"]]
    if o["threshold"] is not None:
        a += ["--threshold", str(o["threshold"])]
    if o["spb"]:
        a += ["--spb", str(o["spb"])]
    a += ["--simplify", str(o["simplify"]), "--key", o["key"] or "auto", "--drums", str(o["drums"])]
    if o["separate"] != "off":
        a += ["--separate", o["separate"]]
    if o["engine"] != "auto":
        a += ["--engine", o["engine"]]
    return a


def _num(s: str) -> float:
    try:
        return max(0.0, float(str(s).replace(",", ".").strip()))
    except ValueError:
        return 0.0


def _play(path: str) -> None:
    if sys.platform == "win32":
        import winsound
        winsound.PlaySound(path, winsound.SND_FILENAME | winsound.SND_ASYNC)
    elif sys.platform == "darwin":
        subprocess.Popen(["afplay", path])
    else:
        for player in ("paplay", "aplay", "ffplay"):
            if shutil.which(player):
                cmd = [player, path] if player != "ffplay" else [player, "-nodisp", "-autoexit", path]
                subprocess.Popen(cmd, stdout=subprocess.DEVNULL, stderr=subprocess.DEVNULL)
                return
        subprocess.Popen(["xdg-open", path])


def _stop_play() -> None:
    if sys.platform == "win32":
        import winsound
        winsound.PlaySound(None, 0)


def _open_folder(path: str) -> None:
    if sys.platform == "win32":
        subprocess.Popen(["explorer", "/select,", os.path.normpath(path)])
    elif sys.platform == "darwin":
        subprocess.Popen(["open", "-R", path])
    else:
        subprocess.Popen(["xdg-open", os.path.dirname(path) or "."])


def run_gui(initial: list[str]) -> None:
    import queue
    import threading
    import tkinter as tk
    from tkinter import filedialog, messagebox, ttk

    BG, CARD, FG, DIM, ACC, OK, ERR = "#242424", "#303030", "#f2f2f2", "#9a9996", "#E95420", "#33d17a", "#ff6b6b"
    root = tk.Tk()
    root.title("MP3 / MIDI → YMS · Composer")
    root.configure(bg=BG)
    root.minsize(820, 640)
    root.geometry("940x720")
    st = ttk.Style(root)
    st.theme_use("clam")
    st.configure(".", background=BG, foreground=FG, fieldbackground="#454545", bordercolor=BG, font=("Segoe UI", 10))
    st.configure("TFrame", background=BG)
    st.configure("Card.TFrame", background=CARD)
    st.configure("TLabel", background=BG, foreground=FG)
    st.configure("Dim.TLabel", background=BG, foreground=DIM)
    st.configure("Title.TLabel", background=BG, foreground=FG, font=("Segoe UI Semibold", 18))
    st.configure("Card.TLabel", background=CARD, foreground=FG)
    st.configure("CardDim.TLabel", background=CARD, foreground=DIM)
    st.configure("CardHead.TLabel", background=CARD, foreground=FG, font=("Segoe UI Semibold", 11))
    st.configure("File.TLabel", background=BG, foreground=FG, font=("Segoe UI Semibold", 11))
    st.configure("TCheckbutton", background=CARD, foreground=FG)
    st.map("TCheckbutton", background=[("active", CARD)], foreground=[("disabled", DIM)])
    st.configure("TButton", background="#454545", foreground=FG, borderwidth=0, padding=(14, 7))
    st.map("TButton", background=[("active", "#5e5c64"), ("disabled", "#383838")], foreground=[("disabled", DIM)])
    st.configure("Accent.TButton", background=ACC, foreground="#ffffff")
    st.map("Accent.TButton", background=[("active", "#ff6a33"), ("disabled", "#6b3a28")])
    for w in ("TCombobox", "TSpinbox", "TEntry"):
        st.configure(w, fieldbackground="#454545", background="#454545", foreground=FG, arrowcolor=FG,
                     bordercolor="#454545", insertcolor=FG, padding=4)
        st.map(w, fieldbackground=[("readonly", "#454545"), ("disabled", "#383838")],
               foreground=[("readonly", FG), ("disabled", DIM)],
               selectbackground=[("readonly", "#454545")], selectforeground=[("readonly", FG)])
    root.option_add("*TCombobox*Listbox.background", CARD)
    root.option_add("*TCombobox*Listbox.foreground", FG)
    root.option_add("*TCombobox*Listbox.selectBackground", ACC)
    st.configure("Horizontal.TProgressbar", background=ACC, troughcolor=CARD, bordercolor=CARD, lightcolor=ACC, darkcolor=ACC)

    S = {"input": "", "output": "", "proc": None, "preview": None, "result": None}
    q: queue.Queue = queue.Queue()

    def labels(choices):
        return [c[0] for c in choices]

    def value(choices, var):
        for label, v in choices:
            if label == var.get():
                return v
        return choices[0][1]

    V = {
        "voices": tk.StringVar(value=VOICE_CHOICES[0][0]), "notes": tk.StringVar(value=NOTES_CHOICES[0][0]),
        "grid": tk.StringVar(value=GRID_CHOICES[0][0]), "clean": tk.StringVar(value=CLEAN_CHOICES[1][0]),
        "drums": tk.StringVar(value=DRUM_CHOICES[1][0]), "sep": tk.StringVar(value=SEP_CHOICES[0][0]),
        "engine": tk.StringVar(value=ENGINE_CHOICES[0][0]), "key": tk.StringVar(value="auto"),
        "bpm": tk.StringVar(value=""), "start": tk.StringVar(value=""), "duration": tk.StringVar(value=""),
        "transpose": tk.IntVar(value=0), "preview": tk.BooleanVar(value=True),
        "parts": tk.StringVar(value=""), "no_drums": tk.BooleanVar(value=False), "max_poly": tk.IntVar(value=3),
    }

    # header
    head = ttk.Frame(root, padding=(20, 16, 20, 4))
    head.pack(fill="x")
    ttk.Label(head, text="MP3 / MIDI → YMS", style="Title.TLabel").pack(side="left")
    ttk.Label(head, text="   песня для нотных блоков · Composer в OpenOS Yaru", style="Dim.TLabel").pack(side="left", pady=(8, 0))

    # file
    frow = ttk.Frame(root, padding=(20, 8, 20, 4))
    frow.pack(fill="x")
    ttk.Button(frow, text="Выбрать файл…", command=lambda: pick_input(), style="Accent.TButton").pack(side="left")
    file_lbl = ttk.Label(frow, text="MP3, WAV, FLAC, OGG или MIDI", style="Dim.TLabel")
    file_lbl.pack(side="left", padx=(12, 0))
    orow = ttk.Frame(root, padding=(20, 0, 20, 6))
    orow.pack(fill="x")
    out_lbl = ttk.Label(orow, text="", style="Dim.TLabel", cursor="hand2")
    out_lbl.pack(side="left")
    out_lbl.bind("<Button-1>", lambda e: pick_output())

    cards = ttk.Frame(root, padding=(20, 4, 20, 0))
    cards.pack(fill="x")
    cards.columnconfigure(0, weight=1, uniform="c")
    cards.columnconfigure(1, weight=1, uniform="c")

    def card(col, title, hint=""):
        f = ttk.Frame(cards, style="Card.TFrame", padding=(14, 10))
        f.grid(row=0, column=col, sticky="nsew", padx=(0, 8) if col == 0 else (8, 0))
        ttk.Label(f, text=title, style="CardHead.TLabel").grid(row=0, column=0, columnspan=2, sticky="w")
        if hint:
            ttk.Label(f, text=hint, style="CardDim.TLabel").grid(row=1, column=0, columnspan=2, sticky="w", pady=(0, 6))
        f.columnconfigure(1, weight=1)
        return f

    rows = {}

    def field(f, label, widget_fn, key):
        r = rows.get(f, 2)
        rows[f] = r + 1
        lab = ttk.Label(f, text=label, style="Card.TLabel")
        lab.grid(row=r, column=0, sticky="w", pady=3, padx=(0, 10))
        w = widget_fn(f)
        w.grid(row=r, column=1, sticky="ew", pady=3)
        widgets[key] = w
        group.append(lab)
        group.append(w)
        return w

    widgets: dict = {}
    audio_only: list = []
    midi_only: list = []
    group = audio_only
    combo = lambda var, ch: (lambda f: ttk.Combobox(f, textvariable=var, values=labels(ch), state="readonly"))
    entry = lambda var, w=8: (lambda f: ttk.Entry(f, textvariable=var, width=w))

    a = card(0, "Аранжировка", "для MP3 / WAV: что услышат нотные блоки")
    field(a, "Голоса", combo(V["voices"], VOICE_CHOICES), "voices")
    field(a, "Количество нот", combo(V["notes"], NOTES_CHOICES), "notes")
    field(a, "Сетка", combo(V["grid"], GRID_CHOICES), "grid")
    field(a, "Чистка мелодии", combo(V["clean"], CLEAN_CHOICES), "clean")
    field(a, "Ударные", combo(V["drums"], DRUM_CHOICES), "drums")
    field(a, "Выделить мелодию", combo(V["sep"], SEP_CHOICES), "sep")
    field(a, "Распознавание", combo(V["engine"], ENGINE_CHOICES), "engine")
    midi_note = ttk.Label(a, text="Для MIDI не нужно: ноты, инструменты и\nтемп берутся прямо из файла.", style="CardDim.TLabel")
    midi_note.grid(row=rows[a], column=0, columnspan=2, sticky="w", pady=(8, 0))

    b = card(1, "Песня", "пустое поле = автоматически / целиком")
    field(b, "Темп, BPM", entry(V["bpm"]), "bpm")
    field(b, "Начало, сек", entry(V["start"]), "start")
    field(b, "Длина, сек", entry(V["duration"]), "duration")
    field(b, "Тональность", lambda f: ttk.Combobox(f, textvariable=V["key"], values=KEYS), "key")
    group = []
    field(b, "Транспонировать", lambda f: ttk.Spinbox(f, from_=-24, to=24, textvariable=V["transpose"], width=6), "transpose")
    group = midi_only
    field(b, "Партии", entry(V["parts"], 16), "parts")
    field(b, "Нот одновременно", lambda f: ttk.Spinbox(f, from_=1, to=8, textvariable=V["max_poly"], width=6), "max_poly")
    nd = ttk.Checkbutton(b, text="Без ударных", variable=V["no_drums"])
    nd.grid(row=rows[b], column=1, sticky="w", pady=3)
    hint = ttk.Label(b, text="партии: номера или имена, напр. 1,3 или piano,bass", style="CardDim.TLabel")
    hint.grid(row=rows[b] + 1, column=0, columnspan=2, sticky="w")
    midi_only += [nd, hint]

    # buttons
    bar = ttk.Frame(root, padding=(20, 12, 20, 6))
    bar.pack(fill="x")
    go_btn = ttk.Button(bar, text="Конвертировать", style="Accent.TButton", command=lambda: start())
    go_btn.pack(side="left")
    stop_btn = ttk.Button(bar, text="Стоп", command=lambda: stop())
    stop_btn.pack(side="left", padx=(8, 0))
    ttk.Checkbutton(bar, text="Сделать WAV для прослушивания", variable=V["preview"], style="Bar.TCheckbutton").pack(side="left", padx=(16, 0))
    st.configure("Bar.TCheckbutton", background=BG, foreground=FG)
    st.map("Bar.TCheckbutton", background=[("active", BG)])
    folder_btn = ttk.Button(bar, text="Показать файл", command=lambda: S["result"] and _open_folder(S["result"]))
    folder_btn.pack(side="right")
    play_btn = ttk.Button(bar, text="▶ Прослушать", command=lambda: toggle_play())
    play_btn.pack(side="right", padx=(0, 8))

    prog = ttk.Progressbar(root, mode="determinate", value=0)
    prog.pack(fill="x", padx=20, pady=(4, 6))
    logf = ttk.Frame(root, style="Card.TFrame", padding=1)
    logf.pack(fill="both", expand=True, padx=20, pady=(0, 16))
    log = tk.Text(logf, bg=CARD, fg=FG, insertbackground=FG, relief="flat", font=("Consolas", 10), height=8,
                  wrap="word", padx=10, pady=8, highlightthickness=0)
    log.pack(fill="both", expand=True)
    log.tag_configure("ok", foreground=OK)
    log.tag_configure("err", foreground=ERR)
    log.tag_configure("dim", foreground=DIM)

    def say(text, tag=None):
        log.config(state="normal")
        log.insert("end", text + "\n", tag)
        log.config(state="disabled")
        log.see("end")

    def is_midi():
        return S["input"].lower().endswith(MIDI_EXTS)

    def update():
        has = bool(S["input"])
        running = S["proc"] is not None
        go_btn.state(["!disabled"] if has and not running else ["disabled"])
        stop_btn.state(["!disabled"] if running else ["disabled"])
        ok = S["result"] is not None and not running
        folder_btn.state(["!disabled"] if ok else ["disabled"])
        play_btn.state(["!disabled"] if ok and S["preview"] and os.path.isfile(S["preview"]) else ["disabled"])
        midi = is_midi()
        # only the settings that matter for this kind of file are shown
        for w in audio_only:
            w.grid() if not midi else w.grid_remove()
        for w in midi_only:
            w.grid() if midi else w.grid_remove()
        midi_note.grid() if midi else midi_note.grid_remove()
        if S["output"]:
            d = os.path.dirname(S["output"])
            short = os.path.join("…", os.path.basename(d), os.path.basename(S["output"])) if len(S["output"]) > 70 else S["output"]
            out_lbl.config(text="Сохранить как: " + short + "   (изменить)")
        else:
            out_lbl.config(text="")

    def set_input(path):
        S["input"] = path
        S["output"] = os.path.splitext(path)[0] + ".yms"
        S["result"] = None
        kind = "MIDI — ноты берутся точно" if is_midi() else "аудио — будет аранжировка"
        file_lbl.config(text=f"{os.path.basename(path)}   ·  {kind}", style="File.TLabel")
        update()

    def pick_input():
        p = filedialog.askopenfilename(title="Песня", filetypes=[
            ("Музыка и MIDI", " ".join("*" + e for e in AUDIO_EXTS + MIDI_EXTS)), ("MIDI", " ".join("*" + e for e in MIDI_EXTS)),
            ("Все файлы", "*.*")])
        if p:
            set_input(p)

    def pick_output():
        if not S["input"]:
            return
        p = filedialog.asksaveasfilename(title="Сохранить .yms", defaultextension=".yms",
                                         initialdir=os.path.dirname(S["output"]), initialfile=os.path.basename(S["output"]),
                                         filetypes=[("Composer", "*.yms")])
        if p:
            S["output"] = p
            update()

    def options():
        try:
            tr = int(V["transpose"].get())
        except (tk.TclError, ValueError):
            tr = 0
        try:
            mp = max(1, int(V["max_poly"].get()))
        except (tk.TclError, ValueError):
            mp = 3
        preview = os.path.splitext(S["output"])[0] + "_preview.wav" if V["preview"].get() else None
        return {"input": S["input"], "output": S["output"], "preview": preview, "transpose": tr,
                "voices": value(VOICE_CHOICES, V["voices"]), "threshold": value(NOTES_CHOICES, V["notes"]),
                "spb": value(GRID_CHOICES, V["grid"]), "simplify": value(CLEAN_CHOICES, V["clean"]),
                "drums": value(DRUM_CHOICES, V["drums"]), "separate": value(SEP_CHOICES, V["sep"]),
                "engine": value(ENGINE_CHOICES, V["engine"]), "key": V["key"].get().strip(),
                "bpm": _num(V["bpm"].get()), "start": _num(V["start"].get()), "duration": _num(V["duration"].get()),
                "parts": V["parts"].get(), "no_drums": V["no_drums"].get(), "max_poly": mp}

    def reader(proc):
        for line in proc.stdout:
            q.put(("line", line.rstrip("\n")))
        q.put(("done", proc.wait()))

    def start():
        if not S["input"] or S["proc"]:
            return
        _stop_play()
        o = options()
        cmd = [sys.executable, "-u", os.path.abspath(__file__)] + build_args(o)
        log.config(state="normal")
        log.delete("1.0", "end")
        say("▸ " + os.path.basename(S["input"]), "dim")
        env = dict(os.environ, PYTHONIOENCODING="utf-8")
        flags = 0x08000000 if sys.platform == "win32" else 0   # no console window
        try:
            S["proc"] = subprocess.Popen(cmd, stdout=subprocess.PIPE, stderr=subprocess.STDOUT, text=True,
                                         encoding="utf-8", errors="replace", env=env, creationflags=flags)
        except OSError as e:
            say(f"не удалось запустить: {e}", "err")
            return
        S["preview"], S["result"] = o["preview"], None
        prog.config(mode="indeterminate")
        prog.start(12)
        threading.Thread(target=reader, args=(S["proc"],), daemon=True).start()
        update()

    def stop():
        if S["proc"]:
            S["proc"].terminate()

    def toggle_play():
        if S["preview"] and os.path.isfile(S["preview"]):
            _play(S["preview"])

    def poll():
        try:
            while True:
                kind, v = q.get_nowait()
                if kind == "line" and v.startswith("Copy the .yms"):
                    continue
                if kind == "line":
                    low = v.lower()
                    tag = "err" if ("error" in low or "cannot" in low or "traceback" in low or "not found" in low) else \
                        "ok" if v.startswith(("Written", "Preview")) else None
                    say(v, tag)
                else:
                    S["proc"] = None
                    prog.stop()
                    prog.config(mode="determinate", value=100 if v == 0 else 0)
                    if v == 0 and os.path.isfile(S["output"]):
                        S["result"] = S["output"]
                        say("\nГотово. Скопируй .yms в /home/Music на компьютер OC и открой в Composer.", "ok")
                    elif v != 0:
                        say("\nНе получилось (код %s)." % v, "err")
                    update()
        except queue.Empty:
            pass
        root.after(80, poll)

    def on_close():
        if S["proc"]:
            S["proc"].terminate()
        _stop_play()
        root.destroy()

    root.protocol("WM_DELETE_WINDOW", on_close)
    say("1. Выбери MP3 или MIDI.  2. При желании поменяй настройки.  3. «Конвертировать».", "dim")
    say("MIDI даёт точные ноты; из MP3 получается аранжировка — лучше всего с понятной мелодией.", "dim")
    if initial and os.path.isfile(initial[0]):
        set_input(initial[0])
    update()
    poll()
    root.mainloop()


def main() -> None:
    # no options: the window (a dropped file is opened in it)
    argv = sys.argv[1:]
    if not argv or (len(argv) == 1 and not argv[0].startswith("-")) or argv == ["--gui"]:
        try:
            return run_gui([a for a in argv if a != "--gui"])
        except Exception as e:  # noqa: BLE001  (no tkinter / no display)
            if not argv or argv == ["--gui"]:
                sys.exit(f"cannot open the window ({e}); usage: mp3_to_yms.py input [output] [options], see -h")
    ap = argparse.ArgumentParser(description="audio (mp3/wav/...) -> .yms song for the Yaru Composer (note blocks)")
    ap.add_argument("input")
    ap.add_argument("output", nargs="?", help="default: <input>.yms")
    ap.add_argument("--start", type=float, default=0.0, help="start offset, seconds")
    ap.add_argument("--duration", type=float, help="length to convert, seconds")
    ap.add_argument("--bpm", type=float, help="tempo (default: detected)")
    ap.add_argument("--spb", type=int, default=None, choices=(2, 4), help="steps per beat: 2 = eighths, 4 = sixteenths (default: auto)")
    ap.add_argument("--voices", default="auto", help="'auto' (default: decided from the audio) or voices = tracks, comma separated: role[:instrument[:semitones]]. "
                    "roles: melody alto tenor bass harmony kick snare hat (repeat harmony for more chord notes). "
                    "presets: " + ", ".join(f"{k}={v}" for k, v in PRESETS.items()))
    ap.add_argument("--tracks", type=int, choices=(1, 2, 3), help="old shortcut: 1 melody, 2 +bass, 3 +harmony")
    ap.add_argument("--drums", type=float, default=0.55, help="drum hit threshold 0..1 (higher = fewer hits)")
    ap.add_argument("--keep-empty", action="store_true", help="keep voices that got no notes as empty tracks")
    ap.add_argument("--threshold", type=float, default=None, help="relative note strength 0..1 (higher = fewer notes; default: auto around 0.55)")
    ap.add_argument("--silence", type=float, default=0.12, help="steps quieter than this are rests")
    ap.add_argument("--melody-low", dest="mel_lo", type=int, default=55, help="lowest MIDI note the melody may use (default 55 = G3)")
    ap.add_argument("--onset", type=float, default=0.6, help="onset strength that re-strikes held notes")
    ap.add_argument("--restrike", type=int, default=0, help="re-strike held notes every N steps (0 = off)")
    ap.add_argument("--transpose", type=int, default=0, help="extra semitones after octave folding")
    ap.add_argument("--preview", help="also write a WAV preview of the arrangement")
    ap.add_argument("--simplify", type=int, default=1, choices=(0, 1, 2),
                    help="melody clean-up: 0 off, 1 fix octave slips/blips/out-of-key notes (default), 2 also max one note per eighth")
    ap.add_argument("--key", default="auto", help="song key for the clean-up: auto, off, or e.g. C, Am, F#, Bbm")
    ap.add_argument("--parts", help="MIDI: which parts to keep, by number or name, e.g. 1,3 or piano,bass")
    ap.add_argument("--no-drums", action="store_true", help="MIDI: leave the drum channel out")
    ap.add_argument("--max-poly", type=int, default=3, help="MIDI: max simultaneous notes per part (each becomes a track)")
    ap.add_argument("--inst", help="MIDI: instrument per part, e.g. 1=flute,bass=didgeridoo")
    ap.add_argument("--min-velocity", type=int, default=0, help="MIDI: ignore quieter notes (1..127)")
    ap.add_argument("--separate", choices=("off", "vocals", "other"), default="off",
                    help="isolate the melody first with Demucs (py -m pip install demucs): vocals = sung melody, other = lead instruments")
    ap.add_argument("--engine", choices=("auto", "nn", "dsp"), default="auto",
                    help="pitch detection: nn = Basic Pitch neural network (needs onnxruntime + model), dsp = built-in; auto = nn if available")
    ap.add_argument("--model", help="path to Basic Pitch nmp.onnx (default: next to this script or from the basic-pitch package)")
    args = ap.parse_args()

    if not os.path.isfile(args.input):
        folder = os.path.dirname(os.path.abspath(args.input))
        found = sorted(f for f in os.listdir(folder) if f.lower().endswith((".mid", ".midi", ".kar", ".mp3", ".wav", ".ogg", ".flac"))) \
            if os.path.isdir(folder) else []
        msg = f"file not found: {args.input}"
        if found:
            msg += "\nmusic files in " + folder + ":\n  " + "\n  ".join(found[:20])
        sys.exit(msg)
    out = args.output or os.path.splitext(args.input)[0] + ".yms"
    if args.input.lower().endswith((".mid", ".midi", ".kar")):
        return convert_midi(args, out)
    y = load_audio(args.input, args.start, args.duration)
    if len(y) < SR:
        sys.exit("audio is shorter than one second")
    print(f"Audio    : {len(y) / SR:.1f} s")
    mag = stft_mag(y)                      # long window: pitch
    env = onset_envelope(stft_mag(y, 1024))  # short window: timing
    bpm = args.bpm or estimate_tempo(env)
    sal = salience(mag)
    args.onset_post = None
    args.melody_audio = None
    if args.separate != "off":
        args.melody_audio = load_audio(separate(args.input, args.separate), args.start, args.duration)[:len(y)]
        if len(args.melody_audio) < len(y):
            args.melody_audio = np.pad(args.melody_audio, (0, len(y) - len(args.melody_audio)))
        print(f"Separate : melody taken from the '{args.separate}' stem")
    model = find_model(args.model) if args.engine in ("auto", "nn") else None
    if args.engine == "nn" and not model:
        sys.exit("neural engine: model not found (py -m pip install basic-pitch, or --model path/to/nmp.onnx)")
    if model:
        try:
            note_post, onset_post = nn_posteriors(y, model, sal.shape[1])
            sal, args.onset_post = note_post, onset_post
            if args.melody_audio is not None:
                args.mel_note, args.onset_post = nn_posteriors(args.melody_audio, model, sal.shape[1])
            print(f"Engine   : neural (Basic Pitch, {os.path.basename(model)})")
        except ImportError:
            if args.engine == "nn":
                sys.exit("neural engine needs onnxruntime: py -m pip install onnxruntime")
            print("Engine   : signal processing (install onnxruntime + basic-pitch for the neural engine)")
    else:
        print("Engine   : signal processing (py -m pip install basic-pitch onnxruntime for the more accurate neural engine)")
    args.threshold_given = args.threshold is not None
    if args.threshold is None:
        args.threshold = 0.55
    auto = args.voices == "auto" and not args.tracks
    if auto:
        voices, spb, args.threshold, why = analyze(y, sal, env, bpm, args)
        for line in why:
            print(f"Analysis : {line}")
    else:
        voices, spb = args.voices if args.voices != "auto" else str(args.tracks), args.spb or 4
    args.spb = spb
    rate = bpm * spb / 60
    if rate > 20:
        print(f"warning: {rate:.1f} steps/s is above 20 (one note block note per tick); use --spb 2 or a lower --bpm")
    print(f"Tempo    : {bpm:.1f} bpm{' (detected)' if not args.bpm else ''}, {spb} steps per beat ({rate:.1f} steps/s), threshold {args.threshold:.2f}")
    spec = parse_voices(voices)
    events, n_steps, steps = transcribe(sal, env, bpm, spb, args, spec, y)
    for line in choose_instruments(spec, events, steps):
        print(f"Sound    : {line}")
    print("Voices   : " + ", ".join(f"{v['name']} ({v['inst']})" for v in spec))
    song = build_song(events, spec, n_steps, bpm, spb, args)
    for voice, (n, shift, inside) in song["stats"].items():
        if n == 0:
            print(f"{voice:10}: no notes found (track left out; --keep-empty keeps it)")
        else:
            print(f"{voice:10}: {n} notes, octave shift {shift:+d}, {inside * 100 // max(1, n)}% in the instrument's range")
    with open(out, "w", encoding="utf-8") as f:
        f.write(lua_song(song))
    print(f"Written  : {out}  ({song['length']} steps, {sum(len(v) for v in song['notes'].values())} notes)")
    if args.preview:
        render_preview(song, args.preview)
        print(f"Preview  : {args.preview}")
    print("Copy the .yms to /home/Music on the OC computer and open it in Composer.")


if __name__ == "__main__":
    main()
F 15966 /usr/share/doc/ocbrowser/ocweb_server.py
#!/usr/bin/env python3
"""
ocweb_server.py — render server for OCBrowser (OpenComputers).

A real Chromium (Playwright) loads the page with JavaScript and CSS; the server
turns the visible part into a grid of character cells the OC screen can show:
  * background, pictures and boxes -> two square "semi-pixels" per cell
    (upper/lower half), dithered to the 240-colour palette of a tier-3 GPU
  * text -> real characters at their positions, in their colours
  * links and input fields -> clickable boxes
The browser in OpenOS sends clicks, typed text, keys and scrolling back, so
interactive sites (logins, search, Gmail…) work like a very low-resolution
remote browser (the Browsh / Opera Mini idea).

Install (once):   py -m pip install playwright pillow numpy
                  py -m playwright install chromium
Run:              py ocweb_server.py --port 8765
In OCBrowser:     menu → Render server → http://<this PC>:8765

Security: pages, cookies and everything typed go through this server in plain
HTTP. Run it on your own PC/LAN (or put HTTPS in front of it).

Protocol (all GET, binary answer "OCF2" frame or text "ERR ..."):
  /open?url=&cols=&rows=[&sid=]   new or existing session, navigate
  /frame?sid=[&row=N]             current view, optionally scrolled to row N
  /click?sid=&x=&y=               click at cell (x, y) of the view (1-based)
  /type?sid=&text=                type text into the focused element
  /key?sid=&key=Enter|Tab|Backspace|Escape|ArrowDown…
  /back?sid= /forward?sid= /reload?sid= /close?sid=
"""
from __future__ import annotations

import argparse
import io
import struct
import sys
import threading
import time
import uuid
from http.server import BaseHTTPRequestHandler, HTTPServer
from urllib.parse import parse_qs, urlparse

import numpy as np
from PIL import Image

CW, CH = 8, 16                     # css pixels per character cell
UA = ("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) "
      "Chrome/124.0 Safari/537.36 OCBrowser-render/1.0")

# ---------------------------------------------------------------- palette
# tier-3 GPU fixed colours: 6 red x 8 green x 5 blue levels (indices 16..255)
R_LV = np.array([round(i * 255 / 5) for i in range(6)])
G_LV = np.array([round(i * 255 / 7) for i in range(8)])
B_LV = np.array([round(i * 255 / 4) for i in range(5)])


def cube_index(rgb: np.ndarray) -> np.ndarray:
    """nearest cube colour for an (..., 3) float array -> index 16..255"""
    r = np.clip(np.rint(rgb[..., 0] * 5 / 255), 0, 5).astype(int)
    g = np.clip(np.rint(rgb[..., 1] * 7 / 255), 0, 7).astype(int)
    b = np.clip(np.rint(rgb[..., 2] * 4 / 255), 0, 4).astype(int)
    return 16 + r * 40 + g * 5 + b


def cube_rgb(idx: np.ndarray) -> np.ndarray:
    i = idx - 16
    return np.stack([R_LV[i // 40], G_LV[(i // 5) % 8], B_LV[i % 5]], axis=-1).astype(float)


def dither(img: np.ndarray) -> np.ndarray:
    """Floyd-Steinberg to the cube (img: H x W x 3 float) -> H x W indices"""
    a = img.astype(float).copy()
    h, w, _ = a.shape
    out = np.zeros((h, w), int)
    for y in range(h):
        for x in range(w):
            old = a[y, x]
            idx = int(cube_index(old))
            new = cube_rgb(np.array(idx))
            out[y, x] = idx
            err = old - new
            if np.abs(err).max() < 24:      # flat colour close enough: no noise
                continue
            err = err * 0.6                  # damped: smoother photos, less speckle
            if x + 1 < w:
                a[y, x + 1] += err * 7 / 16
            if y + 1 < h:
                if x > 0:
                    a[y + 1, x - 1] += err * 3 / 16
                a[y + 1, x] += err * 5 / 16
                if x + 1 < w:
                    a[y + 1, x + 1] += err * 1 / 16
    return out


# ---------------------------------------------------------------- page JS
# collects visible characters, links and inputs of the viewport (css pixels)
COLLECT_JS = r"""
([CW, CH]) => {
  const vw = innerWidth, vh = innerHeight;
  const chars = [], links = [], inputs = [];
  const seen = new Set();
  const visible = (el) => {
    const s = getComputedStyle(el);
    return s.visibility !== 'hidden' && s.display !== 'none' && parseFloat(s.opacity) > 0.05;
  };
  const walker = document.createTreeWalker(document.body || document.documentElement, NodeFilter.SHOW_TEXT);
  const range = document.createRange();
  let n, budget = 60000;
  while ((n = walker.nextNode()) && budget > 0) {
    const t = n.nodeValue.replace(/\s+/g, ' ');
    if (!t || !t.trim()) continue;
    const el = n.parentElement;
    if (!el || !visible(el)) continue;
    range.selectNodeContents(n);
    const br = range.getBoundingClientRect();
    if (br.bottom < 0 || br.top > vh || br.right < 0 || br.left > vw || br.width === 0) continue;
    const color = getComputedStyle(el).color;
    // split the node into visual lines: a run = consecutive characters with the same top
    let run = null;
    for (let i = 0; i < t.length && budget > 0; i++) {
      const c = t[i];
      range.setStart(n, i); range.setEnd(n, i + 1);
      const r = range.getBoundingClientRect();
      budget--;
      if (r.width === 0 && r.height === 0) continue;
      if (!run || Math.abs(r.top - run.top) > r.height * 0.5) {
        if (run) chars.push([run.left, run.top + run.h / 2, run.text, color]);
        if (/\s/.test(c)) { run = null; continue; }
        run = {left: r.left, top: r.top, h: r.height, text: ''};
      }
      run.text += /\s/.test(c) ? ' ' : c;
    }
    if (run) chars.push([run.left, run.top + run.h / 2, run.text, color]);
  }
  for (const a of document.querySelectorAll('a[href], button, [role=button], [onclick], summary, label[for]')) {
    if (!visible(a)) continue;
    const r = a.getBoundingClientRect();
    if (r.width < 2 || r.height < 2 || r.bottom < 0 || r.top > vh) continue;
    links.push([r.left, r.top, r.width, r.height, a.href || '', (a.innerText || a.getAttribute('aria-label') || '').trim().slice(0, 60)]);
  }
  for (const e of document.querySelectorAll('input, textarea, select, [contenteditable=true]')) {
    if (!visible(e) || e.type === 'hidden') continue;
    const r = e.getBoundingClientRect();
    if (r.width < 2 || r.height < 2 || r.bottom < 0 || r.top > vh) continue;
    inputs.push([r.left, r.top, r.width, r.height, (e.type || e.tagName).toLowerCase(), e.value || '', e.placeholder || '']);
  }
  const de = document.documentElement;
  return {chars, links, inputs, scrollY, height: Math.max(de.scrollHeight, document.body ? document.body.scrollHeight : 0),
          title: document.title, url: location.href};
}
"""
HIDE_TEXT_CSS = ("*{color:transparent!important;text-shadow:none!important;caret-color:transparent!important;"
                 "-webkit-text-fill-color:transparent!important}input::placeholder,textarea::placeholder{color:transparent!important}")


def parse_css_color(s: str):
    s = s.strip()
    if s.startswith("rgb"):
        nums = s[s.index("(") + 1:s.index(")")].replace("/", " ").replace(",", " ").split()
        r, g, b = (float(x) for x in nums[:3])
        a = float(nums[3]) if len(nums) > 3 else 1.0
        return (r, g, b, a)
    return (255.0, 255.0, 255.0, 1.0)


# ---------------------------------------------------------------- sessions
class Session:
    def __init__(self, browser, cols: int, rows: int):
        self.cols, self.rows = cols, rows
        self.ctx = browser.new_context(viewport={"width": cols * CW, "height": rows * CH}, user_agent=UA,
                                       locale="ru-RU", device_scale_factor=1)
        self.page = self.ctx.new_page()
        self.last = time.time()
        self.hide = None

    def resize(self, cols, rows):
        if (cols, rows) != (self.cols, self.rows):
            self.cols, self.rows = cols, rows
            self.page.set_viewport_size({"width": cols * CW, "height": rows * CH})

    def settle(self, timeout=6000):
        try:
            self.page.wait_for_load_state("networkidle", timeout=timeout)
        except Exception:  # noqa: BLE001 - slow pages: show what is there
            pass

    def frame(self) -> bytes:
        cols, rows = self.cols, self.rows
        info = self.page.evaluate(COLLECT_JS, [CW, CH])
        # background without text
        handle = self.page.add_style_tag(content=HIDE_TEXT_CSS)
        png = self.page.screenshot(type="png")
        handle.evaluate("e => e.remove()")
        img = Image.open(io.BytesIO(png)).convert("RGB")
        small = np.asarray(img.resize((cols, rows * 2), Image.BOX), float)
        idx = dither(small)                                   # (rows*2, cols)
        top, bot = idx[0::2], idx[1::2]
        cell_rgb = (small[0::2] + small[1::2]) / 2
        # text: first (largest) character per cell wins
        # text runs: placed one character per cell from the run's left edge, so
        # words stay whole (proportional fonts are narrower or wider than a cell)
        chars = {}
        for x, y, text, color in info["chars"]:
            col, row = int(round(x / CW)), int(y // CH)
            if not (0 <= row < rows):
                continue
            for k, c in enumerate(text.rstrip()):
                cc = col + k
                if cc >= cols:
                    break
                if cc >= 0 and (cc, row) not in chars and c != " ":
                    chars[(cc, row)] = (c, color)
        out = io.BytesIO()
        def s16(v):
            out.write(struct.pack(">H", max(0, min(65535, int(v)))))
        def sstr(t):
            b = t.encode("utf-8")[:65535]
            s16(len(b)); out.write(b)
        out.write(b"OCF2")
        total_rows = int(info["height"] // CH) + 1
        scroll_row = int(round(info["scrollY"] / CH))
        s16(cols); s16(rows); s16(total_rows); s16(scroll_row)
        s16(len(info["links"])); s16(len(info["inputs"]))
        sstr(info["url"]); sstr(info["title"] or "")
        for r in range(rows):
            for c in range(cols):
                ch = chars.get((c, r))
                if ch:
                    bg = cell_rgb[r, c]
                    tr, tg, tb, ta = parse_css_color(ch[1])
                    fg = np.array([tr, tg, tb]) * ta + bg * (1 - ta)
                    # keep text readable on its background
                    lum = lambda v: 0.2126 * v[0] + 0.7152 * v[1] + 0.0722 * v[2]
                    if abs(lum(fg) - lum(bg)) < 60:
                        fg = np.array([255.0, 255, 255]) if lum(bg) < 128 else np.array([0.0, 0, 0])
                    b = int(cube_index(bg)); f = int(cube_index(fg))
                    data = ch[0].encode("utf-8")
                    out.write(bytes([b, b, f, len(data)])); out.write(data)
                else:
                    out.write(bytes([top[r, c], bot[r, c], 0, 0]))
        for x, y, w, h, href, text in info["links"]:
            s16(x // CW + 1); s16(y // CH + 1); s16(max(1, -(-w // CW))); s16(max(1, -(-h // CH)))
            sstr(href); sstr(text)
        for x, y, w, h, typ, val, ph in info["inputs"]:
            s16(x // CW + 1); s16(y // CH + 1); s16(max(1, -(-w // CW))); s16(max(1, -(-h // CH)))
            sstr(typ); sstr(val); sstr(ph)
        return out.getvalue()


class Server:
    def __init__(self, headless=True, chrome=None):
        from playwright.sync_api import sync_playwright
        self.pw = sync_playwright().start()
        opts = {"headless": headless}
        if chrome:
            opts["executable_path"] = chrome
        self.browser = self.pw.chromium.launch(**opts)
        self.sessions: dict[str, Session] = {}
        self.lock = threading.Lock()

    def session(self, q, create=False) -> Session:
        sid = q.get("sid", [""])[0]
        s = self.sessions.get(sid)
        if s is None:
            if not create:
                raise KeyError("unknown session (it expired?) - open the page again")
            cols = max(20, min(320, int(q.get("cols", ["150"])[0])))
            rows = max(5, min(100, int(q.get("rows", ["44"])[0])))
            s = Session(self.browser, cols, rows)
            sid = uuid.uuid4().hex[:12]
            self.sessions[sid] = s
        s.sid = sid
        s.last = time.time()
        if "cols" in q and "rows" in q:
            s.resize(max(20, min(320, int(q["cols"][0]))), max(5, min(100, int(q["rows"][0]))))
        return s

    def gc(self):
        for sid, s in list(self.sessions.items()):
            if time.time() - s.last > 1800:
                try:
                    s.ctx.close()
                except Exception:  # noqa: BLE001
                    pass
                del self.sessions[sid]

    def handle(self, path: str, q: dict) -> bytes:
        with self.lock:
            self.gc()
            if path == "/open":
                s = self.session(q, create=True)
                url = q.get("url", ["about:blank"])[0]
                try:
                    s.page.goto(url, timeout=20000, wait_until="domcontentloaded")
                except Exception as e:  # noqa: BLE001
                    if "Timeout" not in str(e):
                        return f"ERR {e}".encode()
                s.settle()
            else:
                s = self.session(q)
                if path == "/frame":
                    if "row" in q:
                        s.page.evaluate("y => scrollTo(0, y)", int(q["row"][0]) * CH)
                        time.sleep(0.15)
                elif path == "/click":
                    x, y = float(q["x"][0]) - 0.5, float(q["y"][0]) - 0.5
                    s.page.mouse.click(x * CW, y * CH)
                    time.sleep(0.3)
                    s.settle(4000)
                elif path == "/type":
                    s.page.keyboard.type(q.get("text", [""])[0], delay=5)
                    time.sleep(0.2)
                elif path == "/key":
                    s.page.keyboard.press(q.get("key", ["Enter"])[0])
                    time.sleep(0.3)
                    s.settle(4000)
                elif path in ("/back", "/forward", "/reload"):
                    getattr(s.page, {"/back": "go_back", "/forward": "go_forward", "/reload": "reload"}[path])()
                    s.settle()
                elif path == "/close":
                    s.ctx.close()
                    del self.sessions[s.sid]
                    return b"OK"
                else:
                    return b"ERR unknown command"
            body = s.frame()
            return b"SID " + s.sid.encode() + b"\n" + body


def main():
    ap = argparse.ArgumentParser(description="render server for OCBrowser")
    ap.add_argument("--port", type=int, default=8765)
    ap.add_argument("--host", default="0.0.0.0")
    ap.add_argument("--show", action="store_true", help="show the Chromium window (debugging)")
    ap.add_argument("--chrome", help="path to a Chromium/Chrome executable (default: Playwright's)")
    args = ap.parse_args()
    srv = Server(headless=not args.show, chrome=args.chrome)

    class H(BaseHTTPRequestHandler):
        def do_GET(self):
            u = urlparse(self.path)
            t0 = time.time()
            try:
                body = srv.handle(u.path, parse_qs(u.query))
                code = 200
            except KeyError as e:
                body, code = f"ERR {e.args[0]}".encode(), 200
            except Exception as e:  # noqa: BLE001
                body, code = f"ERR {type(e).__name__}: {e}".encode(), 200
            self.send_response(code)
            self.send_header("Content-Type", "application/octet-stream")
            self.send_header("Content-Length", str(len(body)))
            self.end_headers()
            self.wfile.write(body)
            print(f"{u.path:8} {len(body):7} B  {time.time() - t0:5.2f} s")

        def log_message(self, *a):
            pass

    print(f"OCBrowser render server on http://{args.host}:{args.port}  (Ctrl+C to stop)")
    HTTPServer((args.host, args.port), H).serve_forever()


if __name__ == "__main__":
    main()
F 5644 /usr/share/doc/ocv/README.md
# OCV5 — видео для OpenComputers

Три файла:

| файл | где | что |
|---|---|---|
| `ocv_encode.py` | ПК | видео → папка `index.ocv` + `partNNNN.ocv` |
| `ocv.lua` | OC | плеер |
| `ocv_get.lua` | OC | скачать папку с HTTP-сервера |

Требуется **GPU Tier 3 + Screen Tier 3**.

## Быстрый старт

```powershell
py -m pip install opencv-python numpy
py ocv_encode.py input.mp4 video --fps 10 --max-sets 1000 --preview 100 300
```

`--max-sets` подбирается под машину: плеер сам подскажет число, если не успевает.

`preview_N.png` в папке видео — пиксель-в-пиксель то, что покажет экран OC. Удобно подбирать параметры, не заходя в игру.

На OC:

```sh
ocv_get http://192.168.1.103/video/ video
ocv video          # -l  зациклить
```

Space — пауза, Q / Ctrl+C — выход. После просмотра плеер печатает статистику: если `пропущено выводов` заметно больше нуля, машина не успевает.

## Параметры энкодера

| флаг | по умолчанию | |
|---|---|---|
| `--width / --height` | 160 / 50 | размер в символах, максимум Tier 3 |
| `--fps` | 20 | больше 20 бессмысленно: OC рисует по тикам |
| `--max-sets` | 0 (без лимита) | бюджет `gpu.set` на кадр. Если плеер не успевает — 1000, 800, 600… |
| `--sharpen` | 0.5 | резкость после даунскейла, 0 — выкл |
| `--smooth` | 25 | сглаживание с сохранением краёв: меньше `gpu.set`, но меньше мелких текстур |
| `--noise` | 0.6 | штраф за шумный дизеринг: больше — чище и дешевле, меньше — точнее цвет |
| `--stability` | 10 | подавление шума исходника: меньше мерцания, меньше команд, меньше размер |
| `--gray` | — | ч/б, 18 уровней серого |
| `--chunk-mb` | 1.0 | размер part-файла |

## Как это устроено

**Палитра.** Tier 3 GPU физически показывает только 256 цветов: куб 6×8×5 (240 шт.) + 16 изменяемых. Плеер ставит в изменяемые 16 ровных серых (вместе с чёрным и белым куба — 18 уровней с шагом 15). Энкодер квантует сразу в эту палитру, поэтому GPU ничего не округляет повторно.

**Дизеринг.** Двухцветный ordered dither (Bayer 8×8): каждый цвет раскладывается на смесь двух ближайших цветов палитры, смешивание считается в линейном свете. Плоская область получает ровно 2 цвета — чисто визуально и идеально ложится в одну пару bg/fg. Паттерн статичен во времени, неподвижные участки не мерцают.

**Команды вместо пикселей.** Половинки символа — два «пикселя»: верх = bg, низ = fg. При заданных bg/fg символы `' ' '▄' '▀' '█'` покрывают все 4 комбинации, поэтому одна `gpu.set` рисует любую полосу ячеек, чьи цвета ⊆ {bg, fg}. Энкодер заранее строит минимальный поток `setBackground / setForeground / set`, сгруппированный по парам цветов, символы упакованы по 2 бита. Плеер просто исполняет поток в back buffer (он не тратит call budget) и выводит кадр одним `bitblt`.

**Бюджет.** С `--max-sets` энкодер рисует в первую очередь самые заметные изменения, остальное доезжает в следующих кадрах (с ростом приоритета, чтобы ничего не застревало). Плеер гарантированно держит FPS ценой лёгкого шлейфа в быстрых сценах.

**Стриминг.** Кадры читаются с диска по одному, без загрузки part-файла целиком — нет фризов на границах чанков.

## Объём

160×50 @ 20 fps — 100–200 КБ/с (зависит от динамики; `--max-sets` заметно уменьшает). Tier 3 HDD (4 МБ) — 20–40 с, RAID из трёх — 1–2 мин. Для длинных роликов: `--width 80 --height 25` (в ~4 раза меньше) или `--fps 10`.

## Формат OCV5

`index.ocv`, 64 байта, big-endian: `"OCV5"`, `u16 width`, `u16 height`, `u16 fps×100`, `u32 frames`, `u16 parts`, 16×RGB палитра.

`partNNNN.ocv`: кадры подряд, `u32 длина` + команды:

```
01 c          setBackground(PAL[c])
02 c          setForeground(PAL[c])
03 bg fg      оба
04 x y n ...  gpu.set(x, y, n символов), 2 бита на символ: 0=' ' 1='▄' 2='▀' 3='█'
```

Индексы цвета: 0–15 — палитра, 16–255 — куб (`16 + r·40 + g·5 + b`).
F 22722 /usr/share/doc/ocv/ocv_encode.py
#!/usr/bin/env python3
"""
ocv_encode.py — конвертер видео в формат OCV5 для OpenComputers (Tier 3 GPU + Screen).

Вся тяжёлая работа выполняется на ПК: плеер получает готовый поток
GPU-команд и просто исполняет его, без попиксельной обработки в Lua.

Пайплайн кадра:
  1. ресэмплинг FPS (OC рисует по тикам: потолок 20 fps);
  2. letterbox + downscale в линейном свете (INTER_AREA, без ringing);
  3. unsharp mask + bilateral (выравнивает плоские области, края не трогает);
  4. временная стабилизация (гасит шум исходника -> меньше мерцания и команд);
  5. двухцветный ordered dithering (Bayer 8x8) прямо в РОДНУЮ палитру Tier 3:
     240 цветов куба 6x8x5 + 16 серых палитры (18 ровных уровней серого);
  6. diff с тем, что реально на экране -> минимальный набор команд:
     одна gpu.set() рисует любые ячейки, чьи 2 цвета ⊆ {bg, fg}
     (' ', '▄', '▀', '█'); команды сгруппированы по парам цветов;
     при бюджете --max-sets первыми рисуются самые заметные изменения.

Формат OCV5 (big-endian):
  index.ocv, 64 байта:
    [4]  "OCV5"
    [2]  width, символы
    [2]  height, символы
    [2]  fps * 100
    [4]  frames
    [2]  parts
    [48] 16 x RGB — палитра GPU 0..15
  partNNNN.ocv — кадры подряд, кадр не пересекает границу файла:
    [4]  длина payload
    команды payload:
      0x01 c              setBackground(PAL[c])
      0x02 c              setForeground(PAL[c])
      0x03 bg fg          оба
      0x04 x y n codes    gpu.set(x, y, <n символов>), коды по 2 бита, старшие биты первыми:
                          0=' '  1='▄'  2='▀'  3='█'

Зависимости: pip install opencv-python numpy
"""

from __future__ import annotations

import argparse
import os
import struct
import sys
import time
from collections import defaultdict
from dataclasses import dataclass

import cv2
import numpy as np

# ---------------------------------------------------------------- палитра OC

CUBE_R, CUBE_G, CUBE_B = 6, 8, 5
PALETTE_SIZE = 16
GRAY_LEVELS = PALETTE_SIZE + 2  # чёрный и белый берутся из куба
GRAY_STEP = 255 // (GRAY_LEVELS - 1)  # = 15


def _cube_rgb(i: int) -> tuple[int, int, int]:
    b, g, r = i % CUBE_B, (i // CUBE_B) % CUBE_G, i // (CUBE_B * CUBE_G)
    return (
        int(r * 255 / (CUBE_R - 1) + 0.5),
        int(g * 255 / (CUBE_G - 1) + 0.5),
        int(b * 255 / (CUBE_B - 1) + 0.5),
    )


GRAY_PALETTE = [(GRAY_STEP * (i + 1),) * 3 for i in range(PALETTE_SIZE)]
FULL_PALETTE = np.array(GRAY_PALETTE + [_cube_rgb(i) for i in range(240)], dtype=np.uint8)

IDX_BLACK = PALETTE_SIZE
IDX_WHITE = PALETTE_SIZE + 239

# индекс в 256-цветной палитре для каждого уровня серого 0..17
GRAY_LUT = np.array(
    [IDX_BLACK] + list(range(PALETTE_SIZE)) + [IDX_WHITE], dtype=np.uint8
)

# ---------------------------------------------------------------- дизеринг

def _bayer(n: int) -> np.ndarray:
    m = np.array([[0]], dtype=np.float32)
    while m.shape[0] < n:
        m = np.block([[4 * m, 4 * m + 2], [4 * m + 3, 4 * m + 1]])
    return (m + 0.5) / m.size  # (0, 1)


BAYER8 = _bayer(8)

LUT_BITS = 6            # входной цвет квантуется до 64 уровней на канал для LUT
MIX_CANDIDATES = 8      # сколько ближайших цветов палитры перебирать парами
LUMA_W = np.array([0.299, 0.587, 0.114], dtype=np.float32) * 3

# ---------------------------------------------------------------- команды

# Коды символов (2 бита на ячейку). bg/fg — текущие цвета GPU.
CODE_SPACE = 0   # ' '  обе половины = bg
CODE_LOWER = 1   # '▄'  верх = bg, низ = fg
CODE_UPPER = 2   # '▀'  верх = fg, низ = bg
CODE_FULL = 3    # '█'  обе половины = fg

OP_BG, OP_FG, OP_BOTH, OP_TEXT = 1, 2, 3, 4

MAX_RUN = 160      # ячеек в одной команде (ширина экрана)
MAX_BRIDGE = 12    # сколько совместимых ячеек можно перекрыть, чтобы склеить два run

# ================================================================= обработка кадра

def _srgb_to_lin(x: np.ndarray) -> np.ndarray:
    x = x / 255.0
    return np.where(x <= 0.04045, x / 12.92, ((x + 0.055) / 1.055) ** 2.4)


def _lin_to_srgb(x: np.ndarray) -> np.ndarray:
    x = np.clip(x, 0.0, 1.0)
    return np.where(x <= 0.0031308, x * 12.92, 1.055 * np.power(x, 1 / 2.4) - 0.055) * 255.0


@dataclass
class Geometry:
    width: int       # символы
    height: int      # символы

    @property
    def px_h(self) -> int:
        return self.height * 2


class FramePreprocessor:
    """letterbox + resize в линейном свете + sharpen + edge-preserving сглаживание.

    Сглаживание (bilateral) выравнивает плоские области, не трогая контуры:
    меньше мелких участков -> заметно меньше gpu.set на кадр при той же чёткости.
    """

    def __init__(self, geo: Geometry, sharpen: float, smooth: float):
        self.geo = geo
        self.sharpen = sharpen
        self.smooth = smooth
        self._to_lin = _srgb_to_lin(np.arange(256, dtype=np.float32)).astype(np.float32)

    def __call__(self, bgr: np.ndarray) -> np.ndarray:
        w, h = self.geo.width, self.geo.px_h
        sh, sw = bgr.shape[:2]
        scale = min(w / sw, h / sh)
        nw, nh = max(1, round(sw * scale)), max(1, round(sh * scale))

        lin = self._to_lin[cv2.cvtColor(bgr, cv2.COLOR_BGR2RGB)]
        small = _lin_to_srgb(cv2.resize(lin, (nw, nh), interpolation=cv2.INTER_AREA))

        if self.sharpen > 0:
            blur = cv2.GaussianBlur(small, (0, 0), 0.8)
            small = small + self.sharpen * (small - blur)
        if self.smooth > 0:
            small = cv2.bilateralFilter(np.clip(small, 0, 255).astype(np.float32), 5, self.smooth, 3)

        canvas = np.zeros((h, w, 3), dtype=np.float32)
        x0, y0 = (w - nw) // 2, (h - nh) // 2
        canvas[y0:y0 + nh, x0:x0 + nw] = np.clip(small, 0, 255)
        return canvas


class Stabilizer:
    """Держит пиксель неизменным, пока исходник не ушёл дальше порога.
    Убирает мерцание от шума/артефактов сжатия на статичных участках."""

    def __init__(self, threshold: float):
        self.threshold = threshold
        self.anchor: np.ndarray | None = None

    def __call__(self, img: np.ndarray) -> np.ndarray:
        if self.threshold <= 0:
            return img
        if self.anchor is None:
            self.anchor = img.copy()
            return img
        moved = np.abs(img - self.anchor).max(axis=2) > self.threshold
        self.anchor[moved] = img[moved]
        return self.anchor.copy()


class Quantizer:
    """Двухцветный ordered dithering в палитру Tier 3.

    Для каждого цвета заранее (LUT 64^3) находится пара цветов палитры и доля
    смешивания, минимизирующие ошибку + штраф за шум. Смешивание считается в
    линейном свете (так глаз усредняет соседние пиксели). Плоская область
    получает ровно 2 цвета -> ячейки идеально ложатся в одну пару bg/fg.
    """

    def __init__(self, geo: Geometry, gray_only: bool, noise_penalty: float):
        h, w = geo.px_h, geo.width
        self.noise_penalty = noise_penalty
        self.t = np.tile(BAYER8, (h // 8 + 1, w // 8 + 1))[:h, :w].astype(np.float32)
        allowed = GRAY_LUT if gray_only else np.arange(256, dtype=np.uint8)
        self.c1, self.c2, self.ratio = self._build_lut(np.unique(allowed), noise_penalty)

    @staticmethod
    def _build_lut(allowed: np.ndarray, noise_penalty: float):
        n = 1 << LUT_BITS
        pal = FULL_PALETTE[allowed].astype(np.float32)
        pal_lin = _srgb_to_lin(pal)
        k = min(MIX_CANDIDATES, len(pal))

        axis = np.arange(n, dtype=np.float32) * 255.0 / (n - 1)
        grid = np.stack(np.meshgrid(axis, axis, axis, indexing="ij"), -1).reshape(-1, 3)

        c1 = np.empty(len(grid), np.uint8)
        c2 = np.empty(len(grid), np.uint8)
        ratio = np.empty(len(grid), np.float32)
        ii, jj = np.triu_indices(k)  # включая i == j (чистый цвет)

        for s in range(0, len(grid), 8192):
            p = grid[s:s + 8192]
            d = (((p[:, None, :] - pal[None]) ** 2) * LUMA_W).sum(-1)
            near = np.argpartition(d, k - 1, axis=1)[:, :k]            # (B, k)
            a, b = near[:, ii], near[:, jj]                             # (B, P)
            la, lb = pal_lin[a], pal_lin[b]                             # (B, P, 3)
            pl = _srgb_to_lin(p)[:, None, :]
            diff = lb - la
            den = (diff ** 2).sum(-1)
            r = np.where(den > 0, ((pl - la) * diff).sum(-1) / np.maximum(den, 1e-12), 0.0)
            r = np.clip(np.round(r * 64) / 64, 0, 1)
            mix = _lin_to_srgb(la + r[..., None] * diff)
            err = (((mix - p[:, None, :]) ** 2) * LUMA_W).sum(-1)
            spread = (((pal[b] - pal[a]) ** 2) * LUMA_W).sum(-1)
            err += noise_penalty * r * (1 - r) * spread
            best = err.argmin(1)
            rows = np.arange(len(p))
            c1[s:s + 8192] = allowed[a[rows, best]]
            c2[s:s + 8192] = allowed[b[rows, best]]
            ratio[s:s + 8192] = r[rows, best]
        return c1, c2, ratio

    def __call__(self, img: np.ndarray) -> np.ndarray:
        n = 1 << LUT_BITS
        q = np.clip(np.rint(img * ((n - 1) / 255.0)), 0, n - 1).astype(np.int32)
        key = (q[..., 0] * n + q[..., 1]) * n + q[..., 2]
        return np.where(self.t < self.ratio[key], self.c2[key], self.c1[key])


# ================================================================= генерация команд

@dataclass
class Run:
    key: tuple[int, ...]   # 1 или 2 цвета, которыми рисуется run
    y: int
    x0: int
    x1: int
    score: float = 0.0     # визуальная ошибка, которую run исправляет


class CommandEncoder:
    """Diff отображаемого экрана с целевым кадром -> поток GPU-команд.

    Энкодер хранит то, что РЕАЛЬНО нарисовано на экране. При бюджете max_sets
    рисуются run'ы с наибольшей визуальной ошибкой, остальное доезжает позже.
    """

    def __init__(self, geo: Geometry, max_sets: int):
        self.top = np.full((geo.height, geo.width), IDX_BLACK, dtype=np.uint8)
        self.bot = self.top.copy()
        self.max_sets = max_sets
        pal = FULL_PALETTE.astype(np.float32)
        self.dist = np.sqrt((((pal[:, None] - pal[None]) ** 2) * LUMA_W).sum(-1)).astype(np.float32)
        self.age = np.zeros(self.top.shape, dtype=np.float32)  # сколько кадров ячейка ждёт отрисовки
        self.deferred = 0

    # ---------------------------------------------------------------- run'ы

    def _build_runs(self, top: np.ndarray, bot: np.ndarray, changed: np.ndarray) -> list[Run]:
        tl, bl = top.tolist(), bot.tolist()
        ys, xs = np.nonzero(changed)

        pairs: dict[tuple[int, int], dict[int, list[int]]] = defaultdict(lambda: defaultdict(list))
        singles: dict[int, dict[int, list[int]]] = defaultdict(lambda: defaultdict(list))
        for y, x in zip(ys.tolist(), xs.tolist()):
            a, b = tl[y][x], bl[y][x]
            if a == b:
                singles[a][y].append(x)
            else:
                pairs[(a, b) if a < b else (b, a)][y].append(x)

        runs: list[Run] = []

        def split(key: tuple[int, ...], y: int, xs_: list[int]) -> None:
            row_t, row_b = tl[y], bl[y]
            ok = set(key)
            xs_ = sorted(xs_)
            x0 = x1 = xs_[0]
            for x in xs_[1:]:
                if (x - x1 - 1 <= MAX_BRIDGE and x - x0 < MAX_RUN
                        and all(row_t[g] in ok and row_b[g] in ok for g in range(x1 + 1, x))):
                    x1 = x
                else:
                    runs.append(Run(key, y, x0, x1))
                    x0 = x1 = x
            runs.append(Run(key, y, x0, x1))

        # двухцветные пары, в них же вливаем одноцветные ячейки тех же цветов
        for key in sorted(pairs, key=lambda k: -sum(map(len, pairs[k].values()))):
            rows = pairs[key]
            for c in key:
                for y, xs_ in singles.pop(c, {}).items():
                    rows[y].extend(xs_)
            for y, xs_ in rows.items():
                split(key, y, xs_)
        for c, rows in singles.items():
            for y, xs_ in rows.items():
                split((c,), y, xs_)

        # оценка: суммарная ошибка исправляемых ячеек
        # отложенные ячейки дорожают с каждым кадром -> ничего не «застревает»
        err = (self.dist[self.top, top] + self.dist[self.bot, bot]) * (1.0 + self.age)
        for r in runs:
            r.score = float(err[r.y, r.x0:r.x1 + 1].sum())
        return runs

    # ---------------------------------------------------------------- кодирование

    def encode(self, pixels: np.ndarray) -> bytes:
        top, bot = pixels[0::2], pixels[1::2]
        changed = (top != self.top) | (bot != self.bot)
        if not changed.any():
            return b""

        runs = self._build_runs(top, bot, changed)
        if self.max_sets and len(runs) > self.max_sets:
            runs.sort(key=lambda r: -r.score)
            self.deferred = len(runs) - self.max_sets
            runs = runs[:self.max_sets]
        else:
            self.deferred = 0

        by_key: dict[tuple[int, ...], list[Run]] = defaultdict(list)
        for r in runs:
            by_key[r.key].append(r)

        out = bytearray()
        bg = fg = None
        tl, bl = top.tolist(), bot.tolist()

        while by_key:
            # следующая группа: та, что переиспользует текущие регистры
            key = max(by_key, key=lambda k: ((bg in k) + (fg in k), len(by_key[k])))
            group = by_key.pop(key)

            if len(key) == 1:
                c = key[0]
                if c != bg and c != fg:
                    out += bytes((OP_BG, c)); bg = c
            elif bg not in key and fg not in key:
                bg, fg = key
                out += bytes((OP_BOTH, bg, fg))
            elif bg in key and fg in key:
                pass
            elif bg in key:
                fg = key[1] if key[0] == bg else key[0]
                out += bytes((OP_FG, fg))
            else:
                bg = key[1] if key[0] == fg else key[0]
                out += bytes((OP_BG, bg))

            for r in sorted(group, key=lambda r: (r.y, r.x0)):
                row_t, row_b = tl[r.y], bl[r.y]
                n = r.x1 - r.x0 + 1
                packed = bytearray((n + 3) // 4)
                for i in range(n):
                    a, b = row_t[r.x0 + i], row_b[r.x0 + i]
                    code = (CODE_SPACE if b == bg else CODE_LOWER) if a == bg else (CODE_UPPER if b == bg else CODE_FULL)
                    packed[i >> 2] |= code << (6 - 2 * (i & 3))
                out += bytes((OP_TEXT, r.x0 + 1, r.y + 1, n))
                out += packed
                self.top[r.y, r.x0:r.x1 + 1] = top[r.y, r.x0:r.x1 + 1]
                self.bot[r.y, r.x0:r.x1 + 1] = bot[r.y, r.x0:r.x1 + 1]

        still = (top != self.top) | (bot != self.bot)
        self.age = np.where(still, self.age + 1.0, 0.0)
        return bytes(out)


# ================================================================= запись

class ChunkWriter:
    def __init__(self, out_dir: str, chunk_bytes: int):
        self.dir = out_dir
        self.limit = chunk_bytes
        self.index = 0
        self.size = 0
        self.file = None
        os.makedirs(out_dir, exist_ok=True)
        for name in os.listdir(out_dir):
            if name.endswith(".ocv"):
                os.remove(os.path.join(out_dir, name))

    def write(self, payload: bytes) -> None:
        record = struct.pack(">I", len(payload)) + payload
        if self.file is None or (self.size > 0 and self.size + len(record) > self.limit):
            self._next()
        self.file.write(record)
        self.size += len(record)

    def _next(self) -> None:
        if self.file:
            self.file.close()
        self.index += 1
        self.size = 0
        self.file = open(os.path.join(self.dir, f"part{self.index:04d}.ocv"), "wb")

    def close(self, geo: Geometry, fps: float, frames: int) -> None:
        if self.file:
            self.file.close()
        with open(os.path.join(self.dir, "index.ocv"), "wb") as f:
            f.write(b"OCV5")
            f.write(struct.pack(">HHHIH", geo.width, geo.height, round(fps * 100), frames, self.index))
            for rgb in GRAY_PALETTE:
                f.write(bytes(rgb))


# ================================================================= main

def resampled_frames(cap: cv2.VideoCapture, src_fps: float, dst_fps: float):
    """Выдаёт кадры с частотой dst_fps (ближайший исходный кадр по времени)."""
    k = 0
    i = 0
    while True:
        ok, frame = cap.read()
        if not ok:
            return
        while k * src_fps < (i + 1) * dst_fps:
            yield frame
            k += 1
        i += 1


def save_preview(enc: CommandEncoder, path: str, scale: int = 5) -> None:
    h, w = enc.top.shape
    img = np.empty((h * 2, w, 3), dtype=np.uint8)
    img[0::2], img[1::2] = FULL_PALETTE[enc.top], FULL_PALETTE[enc.bot]
    img = cv2.resize(img, (w * scale, h * 2 * scale), interpolation=cv2.INTER_NEAREST)
    cv2.imwrite(path, cv2.cvtColor(img, cv2.COLOR_RGB2BGR))


def main() -> None:
    p = argparse.ArgumentParser(description="Video -> OpenComputers OCV5 (Tier 3)")
    p.add_argument("input")
    p.add_argument("output", nargs="?", default="video")
    p.add_argument("--width", type=int, default=160, help="ширина в символах (max 160)")
    p.add_argument("--height", type=int, default=50, help="высота в символах (max 50)")
    p.add_argument("--fps", type=float, default=20.0, help="целевой FPS (OC рендерит максимум 20)")
    p.add_argument("--sharpen", type=float, default=0.5, help="сила резкости, 0 = выкл")
    p.add_argument("--smooth", type=float, default=25.0,
                   help="сглаживание с сохранением краёв, 0 = выкл. Больше -> меньше gpu.set, но меньше текстур")
    p.add_argument("--noise", type=float, default=0.6,
                   help="штраф за шумный дизеринг: больше -> чище и дешевле, меньше -> точнее цвет")
    p.add_argument("--stability", type=float, default=10.0, help="порог стабилизации шума (0..255), 0 = выкл")
    p.add_argument("--max-sets", type=int, default=0,
                   help="бюджет gpu.set на кадр, 0 = без лимита. Если плеер пишет late — ставь 600..1200")
    p.add_argument("--gray", action="store_true", help="чёрно-белое видео (18 уровней серого)")
    p.add_argument("--chunk-mb", type=float, default=1.0, help="макс. размер part-файла")
    p.add_argument("--max-frames", type=int, default=0, help="ограничить число кадров (для теста)")
    p.add_argument("--preview", type=int, nargs="*", default=[], metavar="N",
                   help="сохранить preview_N.png — ровно то, что покажет экран OC на кадре N")
    a = p.parse_args()

    if not (1 <= a.width <= 160 and 1 <= a.height <= 50):
        sys.exit("error: Tier 3 максимум 160x50")

    cap = cv2.VideoCapture(a.input)
    if not cap.isOpened():
        sys.exit(f"error: cannot open {a.input}")
    src_fps = cap.get(cv2.CAP_PROP_FPS) or 20.0
    fps = min(a.fps, src_fps, 20.0)

    geo = Geometry(a.width, a.height)
    pre = FramePreprocessor(geo, a.sharpen, a.smooth)
    stab = Stabilizer(a.stability)
    quant = Quantizer(geo, a.gray, a.noise)
    enc = CommandEncoder(geo, a.max_sets)
    writer = ChunkWriter(a.output, int(a.chunk_mb * 1024 * 1024))

    t0 = time.time()
    frames = 0
    total = 0
    try:
        for frame in resampled_frames(cap, src_fps, fps):
            payload = enc.encode(quant(stab(pre(frame))))
            writer.write(payload)
            if frames in a.preview:
                save_preview(enc, os.path.join(a.output, f"preview_{frames}.png"))
            frames += 1
            total += len(payload) + 4
            if frames % 100 == 0:
                el = time.time() - t0
                print(f"\r  {frames} frames  {total / frames / 1024:.1f} KB/frame  {frames / el:.1f} fps", end="", flush=True)
            if a.max_frames and frames >= a.max_frames:
                break
    finally:
        cap.release()
        writer.close(geo, fps, frames)

    mb = total / 1048576
    print(f"\n---- DONE ----\n"
          f"Screen   : {geo.width}x{geo.height} chars ({geo.width}x{geo.px_h} px){' gray' if a.gray else ''}\n"
          f"Frames   : {frames} @ {fps:g} fps  ({frames / fps:.1f} s)\n"
          f"Size     : {mb:.2f} MB in {writer.index} parts  ({mb * 1024 / max(frames / fps, 1e-9):.0f} KB/s)\n"
          f"Elapsed  : {time.time() - t0:.1f} s")


if __name__ == "__main__":
    main()
F 47817 /usr/share/doc/pictures/pic_converter.py
#!/usr/bin/env python3
"""
pic_converter.py — picture converter for OpenOS Yaru (OpenComputers, Minecraft).

Turns any picture (PNG, JPEG, GIF, WebP, BMP…) into a .pic file (OCIF-5, the
MineOS format the Yaru desktop, Image Viewer and Paint use) and shows BEFORE
saving exactly how it will look in the OS:
  * "Пиксели"            — the .pic itself, cell by cell
  * "Обои рабочего стола" — the 160x50 screen with the picture as wallpaper,
                            the top panel and the translucent dock
  * "В Image Viewer"      — the picture in the Image Viewer window (normal or
                            maximized), scaled the way the OS scales it
The colours in every preview are the colours the GPU will really show: the
picture is reduced to the 256-colour MineOS table stored in the file and then
snapped to the tier-3 GPU palette (240 fixed colours + 16 theme colours) the
same way the desktop does it.

Each character cell holds two square pixels (upper and lower half, "▀"),
so a 160x50 wallpaper is 160x100 pixels.

Requirements:  py -m pip install pillow numpy      (Tkinter comes with Python)
GUI:           py pic_converter.py [picture]
Command line:  py pic_converter.py photo.jpg photo.pic --size 160x50 --fit fill \\
                  --dither floyd --preview preview.png --view desktop
"""
from __future__ import annotations

import argparse
import binascii
import datetime
import os
import struct
import sys
import time

import numpy as np
from PIL import Image, ImageDraw, ImageEnhance, ImageFilter, ImageFont, ImageOps

CELL_W, CELL_H = 8, 16                 # screen pixels of one character cell
SCREEN_W, SCREEN_H = 160, 50           # tier-3 screen in cells
DOCK = 12                              # dock width in cells (yaru/core.lua)
LUMA = np.array([0.2126, 0.7152, 0.0722])

# ================================================================ palettes
def mineos_table() -> list[int]:
    """the 256-colour table stored in .pic files (yaru/image.lua, MineOS Color.lua):
    the 6x8x5 cube with 16 greys interleaved"""
    greys = [0x0F0F0F, 0x1E1E1E, 0x2D2D2D, 0x3C3C3C, 0x4B4B4B, 0x5A5A5A, 0x696969, 0x787878, 0x878787,
             0x969696, 0xA5A5A5, 0xB4B4B4, 0xC3C3C3, 0xD2D2D2, 0xE1E1E1, 0xF0F0F0]
    out, gi = [], 0
    for r in range(6):
        for g in range(8):
            for b in range(5):
                out.append((r * 51) << 16 | ((g * 255 + 3) // 7) << 8 | ((b * 255 + 2) // 4))
        if r < 5:
            for _ in range(4 if r == 2 else 3):
                if gi < 16:
                    out.append(greys[gi])
                    gi += 1
    return out


MINEOS = mineos_table()

ACCENTS = {"orange": 0xE95420, "bark": 0x787859, "sage": 0x657B69, "olive": 0x4B8501, "viridian": 0x03875B,
           "prussian": 0x308280, "blue": 0x0073E5, "purple": 0x7764D8, "magenta": 0xB34CB3, "red": 0xDA3450}


def darken(c: int, f: float) -> int:
    return (int((c >> 16) * f) << 16) | (int(((c >> 8) & 255) * f) << 8) | int((c & 255) * f)


def theme(dark: bool, accent: str) -> dict:
    """the colours of yaru/theme.lua that the previews need"""
    a = ACCENTS.get(accent, 0xE95420)
    t = {"accent": a, "panel": 0x000000, "panelFg": 0xFFFFFF, "dark": dark}
    if dark:
        t.update(header=0x303030, headerFg=0xFFFFFF, view=0x1E1E1E, dim=0x9A9996, button=0x454545)
    else:
        t.update(header=0xEBEBEB, headerFg=0x383838, view=0xEBEBEB, dim=0x77767B, button=0xDEDDDA)
    t["palette"] = [0x1E1E1E, 0x242424, 0x2E2E2E, 0x303030, 0x383838, 0x454545, 0x5E5C64, 0x77767B,
                    0x9A9996, 0xC0BFBC, 0xDEDDDA, 0xEBEBEB, 0xFAFAFA, a, darken(a, 0.78), 0x2C001E]
    return t


class Display:
    """the tier-3 GPU palette as the Yaru compositor uses it (yaru/gfx.lua):
    16 programmable entries + 240 fixed cube colours; snap() picks the colour
    the screen will show for any rgb, exactly like gfx.color()."""

    def __init__(self, custom16: list[int]):
        self.custom = list(custom16)
        cube = []
        for r in range(6):
            for g in range(8):
                for b in range(5):
                    cube.append((r * 51) << 16 | ((g * 255 + 3) // 7) << 8 | ((b * 255 + 2) // 4))
        self.cube = cube
        self.cache: dict[int, int] = {}

    @staticmethod
    def delta(a: int, b: int) -> float:
        dr, dg, db = (a >> 16) - (b >> 16), ((a >> 8) & 255) - ((b >> 8) & 255), (a & 255) - (b & 255)
        return 0.2126 * dr * dr + 0.7152 * dg * dg + 0.0722 * db * db

    def snap(self, rgb: int) -> int:
        c = self.cache.get(rgb)
        if c is not None:
            return c
        best, bd = self.custom[0], 1e18
        for p in self.custom:
            d = self.delta(p, rgb)
            if d < bd:
                best, bd = p, d
        r = ((rgb >> 16) * 5 + 127) // 255
        g = (((rgb >> 8) & 255) * 7 + 127) // 255
        b = ((rgb & 255) * 4 + 127) // 255
        ci = self.cube[r * 40 + g * 5 + b]
        if self.delta(ci, rgb) < bd:
            best = ci
        self.cache[rgb] = best
        return best

    def reachable(self) -> tuple[list[int], list[int]]:
        """colours a .pic can produce on this screen and the table index that gives each"""
        best: dict[int, tuple[float, int]] = {}
        for k, p in enumerate(MINEOS):
            d = self.snap(p)
            score = self.delta(p, d)
            if d not in best or score < best[d][0]:
                best[d] = (score, k)
        colours = sorted(best)
        return colours, [best[c][1] for c in colours]


# nearest-colour lookup table (64 levels per channel), cached per palette
_LUT_CACHE: dict[tuple, np.ndarray] = {}


def nearest_lut(colours: list[int]) -> np.ndarray:
    key = tuple(colours)
    lut = _LUT_CACHE.get(key)
    if lut is not None:
        return lut
    pal = np.array([[c >> 16, (c >> 8) & 255, c & 255] for c in colours], np.float32)
    g = np.linspace(0, 255, 64, dtype=np.float32)
    grid = np.stack(np.meshgrid(g, g, g, indexing="ij"), axis=-1).reshape(-1, 3)
    # weighted distance |x-p|^2 = |x|^2 - 2 x.p + |p|^2 (all weighted); |x|^2 does not
    # change the argmin, so one matrix product per chunk is enough
    w = LUMA.astype(np.float32)
    pw = pal * w
    pp = (pal * pw).sum(1)
    out = np.empty(len(grid), np.int32)
    for i in range(0, len(grid), 65536):
        out[i:i + 65536] = (pp[None, :] - 2 * grid[i:i + 65536] @ pw.T).argmin(1)
    lut = out.reshape(64, 64, 64)
    _LUT_CACHE[key] = lut
    return lut


# ================================================================ conversion
PRESETS = [
    ("Обои — монитор T3 (160×50)", 160, 50, "fill", False),
    ("Обои — монитор T2 (80×25)", 80, 25, "fill", False),
    ("Image Viewer — окно (70×24)", 70, 24, "fit", True),
    ("Image Viewer — весь экран (148×47)", 148, 47, "fit", True),
    ("Иконка приложения (8×4)", 8, 4, "fit", False),
    ("Свой размер", None, None, None, None),
]
DITHERS = [("Флойд–Стейнберг", "floyd"), ("Аткинсон (чётче)", "atkinson"), ("Байер 4×4 (узор)", "bayer4"),
           ("Байер 8×8 (узор)", "bayer8"), ("Без дизеринга", "none")]
FITS = [("Заполнить (обрезать края)", "fill"), ("Вписать целиком", "fit"), ("Растянуть", "stretch")]


class Params:
    def __init__(self, **kw):
        self.cols, self.rows = 160, 50
        self.fit = "fill"
        self.trim = False                 # fit: picture-sized file instead of padding to the full size
        self.pos_x, self.pos_y = 50, 50   # fill: crop position, %
        self.transparent = False          # padding / transparent pixels stay see-through
        self.bg = 0x000000
        self.brightness = 0               # -100..100
        self.contrast = 0
        self.saturation = 0
        self.gamma = 1.0
        self.sharpen = 30                 # %
        self.dither = "floyd"
        self.strength = 85                # %
        self.palette = "yaru"             # yaru | standard
        self.accent = "orange"
        self.dark = True
        self.__dict__.update(kw)


def prepare(src: Image.Image, p: Params) -> tuple[np.ndarray, np.ndarray]:
    """source picture -> pixel grid (rows*2 x cols) of rgb floats + opacity mask"""
    img = ImageOps.exif_transpose(src).convert("RGBA")
    tw, th = p.cols, p.rows * 2                   # target in square pixels
    sw, sh = img.size
    if p.fit == "stretch":
        box = (0, 0, sw, sh)
        dw, dh, ox, oy = tw, th, 0, 0
    elif p.fit == "fill":
        scale = max(tw / sw, th / sh)
        cw, ch = tw / scale, th / scale           # source area that is kept
        x0 = (sw - cw) * p.pos_x / 100
        y0 = (sh - ch) * p.pos_y / 100
        box = (x0, y0, x0 + cw, y0 + ch)
        dw, dh, ox, oy = tw, th, 0, 0
    else:                                          # fit
        scale = min(tw / sw, th / sh)
        dw, dh = max(1, round(sw * scale)), max(1, round(sh * scale))
        box = (0, 0, sw, sh)
        if p.trim:
            tw, th = dw, dh + (dh & 1)             # keep whole cells
            ox, oy = 0, (th - dh) // 2
        else:
            ox, oy = (tw - dw) // 2, (th - dh) // 2
    # colour adjustments on the source (before downscaling: smoother result)
    rgb, alpha = img.convert("RGB"), img.getchannel("A")
    if p.brightness:
        rgb = ImageEnhance.Brightness(rgb).enhance(1 + p.brightness / 100)
    if p.contrast:
        rgb = ImageEnhance.Contrast(rgb).enhance(1 + p.contrast / 100)
    if p.saturation:
        rgb = ImageEnhance.Color(rgb).enhance(1 + p.saturation / 100)
    if abs(p.gamma - 1) > 1e-3:
        inv = 1 / p.gamma
        rgb = rgb.point([round(255 * (i / 255) ** inv) for i in range(256)] * 3)
    small = rgb.resize((dw, dh), Image.LANCZOS, box=box, reducing_gap=3.0)
    a_small = alpha.resize((dw, dh), Image.BOX, box=box)
    if p.sharpen > 0:
        small = small.filter(ImageFilter.UnsharpMask(radius=1, percent=int(p.sharpen * 2), threshold=2))
    canvas = Image.new("RGB", (tw, th), ((p.bg >> 16) & 255, (p.bg >> 8) & 255, p.bg & 255))
    mask = Image.new("L", (tw, th), 0)
    canvas.paste(small, (ox, oy))
    mask.paste(a_small, (ox, oy))
    px = np.asarray(canvas, np.float32)
    opaque = np.asarray(mask) >= 128
    if not p.transparent:
        # composite semi-transparent pixels over the background colour
        a = np.asarray(mask, np.float32)[..., None] / 255
        bgv = np.array([(p.bg >> 16) & 255, (p.bg >> 8) & 255, p.bg & 255], np.float32)
        px = px * a + bgv * (1 - a)
        opaque[:] = True
    return px, opaque


BAYER4 = np.array([[0, 8, 2, 10], [12, 4, 14, 6], [3, 11, 1, 9], [15, 7, 13, 5]], np.float32) / 16 - 0.5
BAYER8 = np.array([[0, 32, 8, 40, 2, 34, 10, 42], [48, 16, 56, 24, 50, 18, 58, 26],
                   [12, 44, 4, 36, 14, 46, 6, 38], [60, 28, 52, 20, 62, 30, 54, 22],
                   [3, 35, 11, 43, 1, 33, 9, 41], [51, 19, 59, 27, 49, 17, 57, 25],
                   [15, 47, 7, 39, 13, 45, 5, 37], [63, 31, 55, 23, 61, 29, 53, 21]], np.float32) / 64 - 0.5


def quantize(px: np.ndarray, opaque: np.ndarray, colours: list[int], p: Params) -> np.ndarray:
    """rgb grid -> indices into `colours` (-1 = transparent)"""
    lut = nearest_lut(colours)
    pal = np.array([[c >> 16, (c >> 8) & 255, c & 255] for c in colours], np.float32)
    h, w, _ = px.shape
    s = p.strength / 100
    if p.dither in ("bayer4", "bayer8") and s > 0:
        m = BAYER4 if p.dither == "bayer4" else BAYER8
        n = m.shape[0]
        thr = np.tile(m, (h // n + 1, w // n + 1))[:h, :w]
        work = np.clip(px + thr[..., None] * 48 * s, 0, 255)
        q = (work * 63 / 255 + 0.5).astype(np.int32)
        idx = lut[q[..., 0], q[..., 1], q[..., 2]]
    elif p.dither in ("floyd", "atkinson") and s > 0:
        idx = np.zeros((h, w), np.int32)
        work = px.astype(np.float64).tolist()
        palL = pal.tolist()
        lutL = lut
        atk = p.dither == "atkinson"
        op = opaque.tolist()
        for y in range(h):
            rev = y & 1                              # serpentine scanning: no diagonal "worms"
            xs = range(w - 1, -1, -1) if rev else range(w)
            dx = -1 if rev else 1
            row, nxt = work[y], work[y + 1] if y + 1 < h else None
            nxt2 = work[y + 2] if atk and y + 2 < h else None
            orow = op[y]
            for x in xs:
                if not orow[x]:
                    idx[y, x] = -1
                    continue
                r, g, b = row[x]
                r = 0.0 if r < 0 else 255.0 if r > 255 else r
                g = 0.0 if g < 0 else 255.0 if g > 255 else g
                b = 0.0 if b < 0 else 255.0 if b > 255 else b
                i = int(lutL[int(r * 0.24705882 + 0.5), int(g * 0.24705882 + 0.5), int(b * 0.24705882 + 0.5)])
                idx[y, x] = i
                pr, pg, pb = palL[i]
                er, eg, eb = (r - pr) * s, (g - pg) * s, (b - pb) * s
                if atk:
                    er, eg, eb = er / 8, eg / 8, eb / 8
                    targets = [(row, x + dx), (row, x + 2 * dx), (nxt, x - dx), (nxt, x), (nxt, x + dx), (nxt2, x)]
                    for t, tx in targets:
                        if t is not None and 0 <= tx < w:
                            c = t[tx]
                            c[0] += er; c[1] += eg; c[2] += eb
                else:
                    if 0 <= x + dx < w:
                        c = row[x + dx]; c[0] += er * 0.4375; c[1] += eg * 0.4375; c[2] += eb * 0.4375
                    if nxt is not None:
                        if 0 <= x - dx < w:
                            c = nxt[x - dx]; c[0] += er * 0.1875; c[1] += eg * 0.1875; c[2] += eb * 0.1875
                        c = nxt[x]; c[0] += er * 0.3125; c[1] += eg * 0.3125; c[2] += eb * 0.3125
                        if 0 <= x + dx < w:
                            c = nxt[x + dx]; c[0] += er * 0.0625; c[1] += eg * 0.0625; c[2] += eb * 0.0625
        return idx
    else:
        q = (np.clip(px, 0, 255) * 63 / 255 + 0.5).astype(np.int32)
        idx = lut[q[..., 0], q[..., 1], q[..., 2]]
    idx = idx.astype(np.int32)
    idx[~opaque] = -1
    return idx


class Picture:
    """a converted picture: pixel colours as the screen shows them (-1 = transparent)"""

    def __init__(self, rgb: np.ndarray, table_index: np.ndarray):
        self.rgb = rgb               # (rows*2, cols) int rgb, -1 transparent
        self.k = table_index         # (rows*2, cols) MineOS table index, -1 transparent
        self.rows, self.cols = rgb.shape[0] // 2, rgb.shape[1]

    def ocif(self) -> bytes:
        """OCIF encoding 5: per cell background index, foreground index, alpha, UTF-8 char"""
        out = bytearray(b"OCIF\x05" + struct.pack(">HH", self.cols, self.rows))
        k = self.k
        up, lo = "▀".encode(), "▄".encode()
        for cy in range(self.rows):
            for cx in range(self.cols):
                t, b = int(k[cy * 2, cx]), int(k[cy * 2 + 1, cx])
                if t < 0 and b < 0:
                    out += bytes((0, 0, 255)) + b" "
                elif t < 0:
                    out += bytes((0, b, 255)) + lo
                elif b < 0:
                    out += bytes((0, t, 255)) + up
                elif t == b:
                    out += bytes((t, t, 0)) + b" "
                else:
                    out += bytes((b, t, 0)) + up
        return bytes(out)


def make_display(p: Params) -> tuple[Display, dict]:
    th = theme(p.dark, p.accent)
    custom = th["palette"] if p.palette == "yaru" else [(i + 1) * 0x0F0F0F for i in range(16)]
    return Display(custom), th


def convert(src: Image.Image, p: Params) -> tuple[Picture, Display, dict]:
    disp, th = make_display(p)
    colours, kidx = disp.reachable()
    px, opaque = prepare(src, p)
    idx = quantize(px, opaque, colours, p)
    col_arr = np.array(colours, np.int64)
    k_arr = np.array(kidx, np.int64)
    rgb = np.where(idx >= 0, col_arr[np.maximum(idx, 0)], -1)
    k = np.where(idx >= 0, k_arr[np.maximum(idx, 0)], -1)
    return Picture(rgb, k), disp, th


# ================================================================ previews
class Screen:
    """a cell screen as the user sees it: every cell is two pixels (upper/lower)
    plus, optionally, a text character drawn with the OC font"""

    def __init__(self, cols: int, rows: int, fill: int = 0):
        self.cols, self.rows = cols, rows
        self.px = np.full((rows * 2, cols), fill, np.int64)
        self.text: list[tuple[int, int, str, int, int]] = []

    def fill(self, x, y, w, h, rgb):
        self.px[y * 2:(y + h) * 2, x:x + w] = rgb
        self.text = [t for t in self.text if not (x <= t[0] < x + w and y <= t[1] < y + h)]

    def put_text(self, x, y, s, fg, bg):
        for i, ch in enumerate(s):
            if 0 <= x + i < self.cols and 0 <= y < self.rows:
                self.px[y * 2:y * 2 + 2, x + i] = bg
                self.text.append((x + i, y, ch, fg, bg))

    def image(self) -> Image.Image:
        arr = self.px
        rgb = np.stack([(arr >> 16) & 255, (arr >> 8) & 255, arr & 255], -1).astype(np.uint8)
        img = Image.fromarray(rgb).resize((self.cols * CELL_W, self.rows * CELL_H), Image.NEAREST)
        if self.text:
            draw_glyphs(img, self.text)
        return img


_FONT: dict[int, str] | None = None


def load_font() -> dict[int, str]:
    """OpenComputers' font.hex (next to this script) if present, for exact text"""
    global _FONT
    if _FONT is None:
        _FONT = {}
        for name in ("font.hex", os.path.join("fonts", "font.hex")):
            path = os.path.join(os.path.dirname(os.path.abspath(__file__)), name)
            if os.path.exists(path):
                with open(path, encoding="ascii", errors="ignore") as f:
                    for line in f:
                        cp, _, bits = line.strip().partition(":")
                        if bits:
                            try:
                                _FONT[int(cp, 16)] = bits
                            except ValueError:
                                pass
                break
    return _FONT


def draw_glyphs(img: Image.Image, items):
    font = load_font()
    draw = ImageDraw.Draw(img)
    fallback = None
    for x, y, ch, fg, bg in items:
        X, Y = x * CELL_W, y * CELL_H
        draw.rectangle([X, Y, X + CELL_W - 1, Y + CELL_H - 1], fill=_rgb(bg))
        bits = font.get(ord(ch))
        if bits:
            w = 16 if len(bits) == 64 else 8
            step = w // 4
            for row in range(16):
                v = int(bits[row * step:(row + 1) * step], 16)
                for col in range(w):
                    if v & (1 << (w - 1 - col)) and X + col < img.width:
                        img.putpixel((X + col, Y + row), _rgb(fg))
        else:
            if fallback is None:
                try:
                    fallback = ImageFont.load_default(size=13)
                except TypeError:
                    fallback = ImageFont.load_default()
            draw.text((X, Y + 1), ch, fill=_rgb(fg), font=fallback)


def _rgb(c: int) -> tuple[int, int, int]:
    return ((c >> 16) & 255, (c >> 8) & 255, c & 255)


def _mix(a: int, b: int, alpha: float) -> int:
    """b over a with opacity alpha (like gfx.blend), per channel"""
    r = round(((a >> 16) & 255) * (1 - alpha) + ((b >> 16) & 255) * alpha)
    g = round(((a >> 8) & 255) * (1 - alpha) + ((b >> 8) & 255) * alpha)
    bl = round((a & 255) * (1 - alpha) + (b & 255) * alpha)
    return (r << 16) | (g << 8) | bl


def _decode_icon(data: bytes) -> list[list[tuple]]:
    """tiny OCIF-5 reader for the embedded dock icons -> rows of (char, fg, bg|None)"""
    w, h = struct.unpack(">HH", data[5:9])
    pos, cells = 9, []
    for _ in range(h):
        row = []
        for _ in range(w):
            bg, fg, a = data[pos], data[pos + 1], data[pos + 2]
            pos += 3
            n = 1 if data[pos] < 0x80 else 2 if data[pos] < 0xE0 else 3 if data[pos] < 0xF0 else 4
            ch = data[pos:pos + n].decode("utf-8")
            pos += n
            row.append((ch, MINEOS[fg], None if a >= 128 else MINEOS[bg]))
        cells.append(row)
    return cells


def _draw_icon(scr: Screen, disp: Display, x: int, y: int, icon):
    for r, row in enumerate(icon):
        for c, (ch, fg, bg) in enumerate(row):
            X, Y = x + c, y + r
            under_t, under_b = scr.px[Y * 2, X], scr.px[Y * 2 + 1, X]
            if ch == "▀":
                top, bot = fg, bg if bg is not None else under_b
            elif ch == "▄":
                top, bot = bg if bg is not None else under_t, fg
            elif ch == "█":
                top = bot = fg
            else:
                top = bot = bg if bg is not None else None
                if top is None:
                    continue
            scr.px[Y * 2, X], scr.px[Y * 2 + 1, X] = disp.snap(top), disp.snap(bot)


def _panel(scr: Screen, disp: Display, th: dict, title: str | None):
    scr.fill(0, 0, scr.cols, 1, disp.snap(th["panel"]))
    # active workspace pill + one more workspace
    scr.px[0:2, 1:5] = disp.snap(0xFFFFFF)
    scr.put_text(6, 0, "●", disp.snap(0x77767B), disp.snap(th["panel"]))
    x = 9
    if title:
        scr.put_text(x, 0, title, disp.snap(th["panelFg"]), disp.snap(th["panel"]))
    now = datetime.datetime.now().strftime("%a %b %d  %H:%M")
    scr.put_text((scr.cols - len(now)) // 2, 0, now, disp.snap(th["panelFg"]), disp.snap(th["panel"]))
    tray = "100%  ♪  ↯ 100%  ⏻"
    scr.put_text(scr.cols - len(tray) - 1, 0, tray, disp.snap(th["panelFg"]), disp.snap(th["panel"]))


def _dock(scr: Screen, disp: Display, th: dict):
    # translucent black (gfx.blend 0.5) over whatever is behind, snapped
    for yy in range(2, scr.rows * 2):
        for xx in range(DOCK):
            scr.px[yy, xx] = disp.snap(_mix(int(scr.px[yy, xx]), 0x000000, 0.5))
    y = 2
    for hexdata in DOCK_ICONS:
        if y + 4 > scr.rows - 6:
            break
        _draw_icon(scr, disp, 2, y, _decode_icon(binascii.unhexlify(hexdata)))
        y += 5
    # "show applications" grid
    for gy in range(3):
        for gx in range(3):
            scr.put_text(3 + gx * 2, scr.rows - 5 + gy, "●", disp.snap(0xFFFFFF), int(scr.px[(scr.rows - 5 + gy) * 2, 3 + gx * 2]))


def preview_pixels(pic: Picture, view_bg: int = 0x2D2D2D) -> Image.Image:
    rgb = pic.rgb.copy()
    # transparency shown as a checker board
    yy, xx = np.indices(rgb.shape)
    checker = np.where(((xx + yy) & 1) == 0, 0x9A9A9A, 0x6A6A6A)
    rgb = np.where(rgb < 0, checker, rgb)
    scr = Screen(pic.cols, pic.rows)
    scr.px = rgb
    return scr.image()


def wallpaper_cells(pic: Picture, cols: int, rows: int) -> np.ndarray:
    """Y.setPictureWallpaper: nearest-cell resampling to the screen, transparent -> black"""
    out = np.zeros((rows * 2, cols), np.int64)
    for y in range(rows):
        sy = y * pic.rows // rows
        for x in range(cols):
            sx = x * pic.cols // cols
            t, b = pic.rgb[sy * 2, sx], pic.rgb[sy * 2 + 1, sx]
            out[y * 2, x] = t if t >= 0 else 0
            out[y * 2 + 1, x] = b if b >= 0 else 0
    return out


def preview_desktop(pic: Picture, disp: Display, th: dict, cols=SCREEN_W, rows=SCREEN_H) -> Image.Image:
    scr = Screen(cols, rows)
    scr.px = wallpaper_cells(pic, cols, rows)
    _panel(scr, disp, th, None)
    _dock(scr, disp, th)
    return scr.image()


def viewer_content(pic: Picture, disp: Display, th: dict, cw: int, ch: int) -> np.ndarray:
    """pixels of the Image Viewer content area (cw x ch cells), apps/viewer.lua"""
    view = disp.snap(th["view"])
    out = np.full((ch * 2, cw), view, np.int64)
    iw, ih = pic.cols, pic.rows
    content = pic.rgb
    if iw <= cw and ih <= ch - 1:
        # gfx.image: 1:1, transparent pixels show the window background
        x0, y0 = (cw - iw) // 2, (ch - 1 - ih) // 2
        out[y0 * 2:(y0 + ih) * 2, x0:x0 + iw] = np.where(content < 0, view, content)
    else:
        # gfx.imageScaled: nearest half-cell sampling (transparent -> black)
        s = min(cw / iw, (ch - 1) / ih)
        fw, fh = max(1, int(iw * s)), max(1, int(ih * s))
        x0, y0 = (cw - fw) // 2, (ch - 1 - fh) // 2
        ph, sh = fh * 2, ih * 2
        for yy in range(fh):
            for xx in range(fw):
                sx = xx * iw // fw
                for half in (0, 1):
                    spy = (yy * 2 + half) * sh // ph
                    v = int(content[spy, sx])
                    out[(y0 + yy) * 2 + half, x0 + xx] = disp.snap(v) if v >= 0 else 0
    return out


def preview_viewer(pic: Picture, disp: Display, th: dict, name: str, maximized: bool) -> Image.Image:
    cols, rows = SCREEN_W, SCREEN_H
    scr = Screen(cols, rows, disp.snap(0x2C001E))
    _panel(scr, disp, th, "Image Viewer")
    _dock(scr, disp, th)
    if maximized:
        wx, wy, cw, ch = DOCK, 1, cols - DOCK, rows - 2       # header on row 1, content below
    else:
        cw, ch = 70, 25
        wx, wy = DOCK + (cols - DOCK - cw) // 2, 1 + (rows - 1 - ch - 1) // 2
    # window shadow, header with title and buttons
    if not maximized:
        scr.px[(wy + 1) * 2:(wy + ch + 2) * 2, wx + cw] = disp.snap(_mix(disp.snap(0x2C001E), 0, 0.5))
    scr.fill(wx, wy, cw, 1, disp.snap(th["header"]))
    title = name if len(name) <= cw - 14 else name[:cw - 15] + "…"
    scr.put_text(wx + (cw - len(title)) // 2, wy, title, disp.snap(th["headerFg"]), disp.snap(th["header"]))
    for i, (ch_, col) in enumerate((("−", th["button"]), ("□", th["button"]), ("×", th["accent"]))):
        scr.put_text(wx + cw - 9 + i * 3, wy, ch_, disp.snap(0xFFFFFF if col == th["accent"] else th["headerFg"]), disp.snap(col))
    top = wy + 1
    view = disp.snap(th["view"])
    scr.fill(wx, top, cw, ch, view)
    scr.px[top * 2:(top + ch) * 2, wx:wx + cw] = viewer_content(pic, disp, th, cw, ch)
    iw, ih = pic.cols, pic.rows
    info = f"{iw}x{ih}  ·  1 of 1"
    scr.put_text(wx + (cw - len(info)) // 2, top + ch - 1, info, disp.snap(th["dim"]), view)
    return scr.image()


DOCK_ICONS = [
    "4f43494605000800040000ff20003dffe29684453d00e296803d3d00203d3d0020453d00e29680003dffe296840000ff203d3d00203d4500e296803d4500e29680453d00e296803d3d00203d4500e296803d4500e296803d3d00203d3d00203d4500e29680453d00e29680453d00e296803d3d0020454500203d3d00203d3d00200000ff20003dffe296803d3d00203d4500e296803d4500e296803d3d0020003dffe296800000ff20",  # web
    "4f43494605000800040000ff2000e2ffe29684e2e20020ffe200e29680e2e20020e2e2002000e2ffe296840000ff20e2e20020e2e20020e2e20020ffff0020ffff0020ffe200e29680e2e20020e2e20020e2e20020e2e20020e2e20020ffff0020ffff0020e2ff00e29680e2e20020e2e200200000ff2000e2ffe29680e2e20020e2ff00e29680e2e20020e2e2002000e2ffe296800000ff20",  # player
    "4f434946050008000481d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e296800d0d0020810d00e296800dd700e2968081d700e296800d0d00200d0d00200dd700e296800dd700e296800d0d002081d700e2968081d700e2968081d700e29680810d00e29680810d00e2968081d700e2968081d700e2968081d700e2968081d700e2968081d700e29680",  # composer
    "4f4349460500080004f7f70020f7f70020f7f70020f7f70020f7f70020f7f70020f7f700200000ff20f7f70020f79100e29680f79100e29680f79100e29680f79100e29680f79100e29680f7f700200000ff20f7f70020f79100e29680f79100e29680f79100e29680f79100e29680f79100e29680f7f700200000ff20f7f70020f79100e29680f79100e29680f79100e29680f7f70020f2f700e2968000f2ffe296800000ff20",  # notes
    "4f434946050008000400d6ffe296846ed600e296806ed600e296806ed600e296806ed600e2968000d6ffe296840000ff200000ff20d6d600206e6e00206e6e00206e6e00206e6e0020d6d600200000ff200000ff200000ff2000d6ffe2968000d6ffe2968000d6ffe29680d6d60020d6d600200000ff200000ff200000ff200000ff200000ff200000ff200000ff2000d6ffe29680d6d6002000d6ffe29684",  # search
    "4f43494605000800040000ff200068ffe29684ff6800e29680ff6800e29680ff6800e29680ff6800e296800068ffe296840000ff2068680020ffff0020ffff00202a2a0020ffff0020ffff0020ffff00206868002068680020ffff0020ffff0020ff2a00e29680ff2a00e29680ff2a00e29680ffff0020686800200000ff200068ffe2968068ff00e2968068ff00e2968068ff00e2968068ff00e296800068ffe296800000ff20",  # scheduler
    "4f43494605000800045b9200e296805b9200e296805b9200e296805b9200e296805b9200e296805b9200e296805b9200e296805b9200e29680929200209292002092920020ac9200e29680ac9200e296809292002092920020929200205b9200e296805b9200e296805b9200e296805bac00e296805bac00e296805b9200e296805b9200e296805b9200e296809292002092920020929200209292002092920020929200209292002092920020",  # storage
    "4f43494605000800040053ffe296844a5300e296804a5300e296804a5300e296804a5300e296804a5300e296804a5300e296800053ffe29684535300204a4a0020ff4a00e29680ffff0020ff4a00e296804a4a00204a4a002053530020535300204a4a00204a4a00204a4a00204aff00e29680ffff00204a4a0020535300200053ffe29680534a00e29680534a00e29680534a00e29680534a00e29680534a00e29680534a00e296800053ffe29680",  # energy
]


# ================================================================ GUI
def run_gui(initial: str | None):
    import threading
    import tkinter as tk
    from tkinter import colorchooser, filedialog, messagebox, ttk
    from PIL import ImageTk

    root = tk.Tk()
    root.title("Конвертер картинок для OpenOS Yaru")
    root.geometry("1360x820")
    root.minsize(1000, 700)
    # the same dark Yaru look as the other converters
    BG, CARD, FG, DIM, ACC = "#242424", "#303030", "#f2f2f2", "#9a9996", "#E95420"
    root.configure(bg=BG)
    sty = ttk.Style(root)
    sty.theme_use("clam")
    sty.configure(".", background=BG, foreground=FG, fieldbackground="#454545", bordercolor="#3a3a3a",
                  lightcolor=BG, darkcolor=BG, troughcolor=CARD, font=("Segoe UI", 10))
    for w in ("TFrame", "TLabel", "TCheckbutton", "TRadiobutton"):
        sty.configure(w, background=BG, foreground=FG)
    sty.map("TCheckbutton", background=[("active", BG)], indicatorcolor=[("selected", ACC), ("!selected", "#454545")])
    sty.map("TRadiobutton", background=[("active", BG)], indicatorcolor=[("selected", ACC), ("!selected", "#454545")])
    sty.configure("TLabelframe", background=BG, bordercolor="#3a3a3a")
    sty.configure("TLabelframe.Label", background=BG, foreground=DIM, font=("Segoe UI Semibold", 10))
    sty.configure("TButton", background="#454545", foreground=FG, borderwidth=0, padding=(12, 6))
    sty.map("TButton", background=[("active", "#5e5c64"), ("disabled", "#383838")], foreground=[("disabled", DIM)])
    sty.configure("Accent.TButton", background=ACC, foreground="#ffffff")
    sty.map("Accent.TButton", background=[("active", "#ff6a33")])
    for w in ("TCombobox", "TSpinbox", "TEntry"):
        sty.configure(w, fieldbackground="#454545", background="#454545", foreground=FG, arrowcolor=FG,
                      bordercolor="#454545", insertcolor=FG)
        sty.map(w, fieldbackground=[("readonly", "#454545")], foreground=[("readonly", FG)],
                selectbackground=[("readonly", "#454545")], selectforeground=[("readonly", FG)])
    root.option_add("*TCombobox*Listbox.background", CARD)
    root.option_add("*TCombobox*Listbox.foreground", FG)
    root.option_add("*TCombobox*Listbox.selectBackground", ACC)
    sty.configure("Horizontal.TScale", background="#5e5c64", troughcolor=CARD, bordercolor=BG, lightcolor="#5e5c64", darkcolor="#5e5c64")
    sty.configure("TNotebook", background=BG, bordercolor="#3a3a3a", tabmargins=(0, 0, 0, 0))
    sty.configure("TNotebook.Tab", background=CARD, foreground=DIM, padding=(12, 5), bordercolor=BG)
    sty.map("TNotebook.Tab", background=[("selected", "#454545")], foreground=[("selected", FG)])
    st = {"src": None, "path": None, "pic": None, "disp": None, "th": None, "job": 0, "photo": None,
          "thumb": None, "busy": False}
    p = Params()

    # ---------------------------------------------------------------- layout
    left = ttk.Frame(root, padding=8)
    left.pack(side="left", fill="y")
    right = ttk.Frame(root, padding=(0, 8, 8, 8))
    right.pack(side="left", fill="both", expand=True)

    def row(parent, text):
        f = ttk.Frame(parent)
        f.pack(fill="x", pady=1)
        ttk.Label(f, text=text, width=13).pack(side="left")
        return f

    def slider(parent, text, var, lo, hi, fmt="{:.0f}", length=190):
        f = row(parent, text)
        val = ttk.Label(f, width=5, anchor="e")
        ttk.Scale(f, variable=var, from_=lo, to=hi, orient="horizontal", length=length).pack(side="left")
        val.pack(side="left")
        def upd(*_):
            try:
                val.configure(text=fmt.format(float(var.get())))
            except tk.TclError:
                pass
        var.trace_add("write", upd)
        upd()
        return f

    top = ttk.Frame(left)
    top.pack(fill="x")
    ttk.Button(top, text="Открыть…", command=lambda: open_file(), style="Accent.TButton").pack(side="left")
    ttk.Button(top, text="Сохранить .pic…", command=lambda: save_pic()).pack(side="left", padx=4)
    file_lbl = ttk.Label(left, text="Картинка не выбрана", foreground=DIM, wraplength=330)
    file_lbl.pack(fill="x", pady=(6, 2))
    thumb = tk.Canvas(left, width=330, height=110, highlightthickness=0, background="#2b2b2b")
    thumb.pack(pady=(0, 6))

    # size
    g = ttk.LabelFrame(left, text="Размер и кадрирование", padding=6)
    g.pack(fill="x", pady=4)
    preset = tk.StringVar(value=PRESETS[0][0])
    f = row(g, "Назначение")
    ttk.Combobox(f, textvariable=preset, values=[x[0] for x in PRESETS], state="readonly", width=34).pack(side="left")
    cols = tk.IntVar(value=160)
    rows = tk.IntVar(value=50)
    f = row(g, "Клеток")
    ttk.Spinbox(f, from_=1, to=640, textvariable=cols, width=6).pack(side="left")
    ttk.Label(f, text=" × ").pack(side="left")
    ttk.Spinbox(f, from_=1, to=400, textvariable=rows, width=6).pack(side="left")
    px_lbl = ttk.Label(f, text="", foreground=DIM)
    px_lbl.pack(side="left", padx=6)
    fit = tk.StringVar(value=FITS[0][0])
    f = row(g, "Вписать")
    ttk.Combobox(f, textvariable=fit, values=[x[0] for x in FITS], state="readonly", width=34).pack(side="left")
    trim = tk.BooleanVar(value=False)
    ttk.Checkbutton(g, text="Без полей (размер файла по картинке)", variable=trim).pack(anchor="w")
    posx, posy = tk.DoubleVar(value=50), tk.DoubleVar(value=50)
    slider(g, "Кадр ← →", posx, 0, 100, "{:.0f}%")
    slider(g, "Кадр ↑ ↓", posy, 0, 100, "{:.0f}%")
    transparent = tk.BooleanVar(value=False)
    f = row(g, "Фон полей")
    bg_btn = tk.Button(f, width=4, background="#000000", command=lambda: pick_bg())
    bg_btn.pack(side="left")
    ttk.Checkbutton(f, text="прозрачный", variable=transparent).pack(side="left", padx=6)

    # colours
    c = ttk.LabelFrame(left, text="Цвет", padding=6)
    c.pack(fill="x", pady=4)
    sliders = {}
    for key, label, lo, hi, init, fmt in (("brightness", "Яркость", -100, 100, 0, "{:+.0f}"), ("contrast", "Контраст", -100, 100, 0, "{:+.0f}"),
                                          ("saturation", "Насыщенность", -100, 100, 0, "{:+.0f}"), ("gamma", "Гамма", 0.4, 2.5, 1.0, "{:.2f}"),
                                          ("sharpen", "Резкость", 0, 150, 30, "{:.0f}%")):
        var = tk.DoubleVar(value=init)
        slider(c, label, var, lo, hi, fmt)
        sliders[key] = var
    ttk.Button(c, text="Сбросить цвет", command=lambda: [v.set(d) for v, d in
               ((sliders["brightness"], 0), (sliders["contrast"], 0), (sliders["saturation"], 0), (sliders["gamma"], 1.0), (sliders["sharpen"], 30))]).pack(anchor="e", pady=(2, 0))

    d = ttk.LabelFrame(left, text="Дизеринг и палитра", padding=6)
    d.pack(fill="x", pady=4)
    dither = tk.StringVar(value=DITHERS[0][0])
    f = row(d, "Дизеринг")
    ttk.Combobox(f, textvariable=dither, values=[x[0] for x in DITHERS], state="readonly", width=26).pack(side="left")
    strength = tk.DoubleVar(value=85)
    slider(d, "Сила", strength, 0, 100, "{:.0f}%")
    palette = tk.StringVar(value="yaru")
    f = row(d, "Палитра")
    ttk.Radiobutton(f, text="Yaru", value="yaru", variable=palette).pack(side="left")
    ttk.Radiobutton(f, text="Стандартная OC", value="standard", variable=palette).pack(side="left")
    accent = tk.StringVar(value="orange")
    dark = tk.BooleanVar(value=True)
    f = row(d, "Тема Yaru")
    ttk.Combobox(f, textvariable=accent, values=list(ACCENTS), state="readonly", width=10).pack(side="left")
    ttk.Checkbutton(f, text="тёмная", variable=dark).pack(side="left", padx=6)

    # previews
    nb = ttk.Notebook(right)
    nb.pack(fill="both", expand=True)
    tabs = {}
    for key, title in (("desktop", "Обои рабочего стола"), ("viewer", "В Image Viewer"), ("pixels", "Пиксели")):
        frm = ttk.Frame(nb)
        nb.add(frm, text=title)
        cv = tk.Canvas(frm, background="#1b1b1b", highlightthickness=0)
        cv.pack(fill="both", expand=True)
        tabs[key] = cv
    viewer_max = tk.BooleanVar(value=False)
    bar = ttk.Frame(right)
    bar.pack(fill="x", pady=(4, 0))
    ttk.Checkbutton(bar, text="Image Viewer развёрнут на весь экран", variable=viewer_max).pack(side="left")
    ttk.Button(bar, text="Сохранить предпросмотр PNG…", command=lambda: save_png()).pack(side="right")
    status = ttk.Label(right, text="Откройте картинку: «Открыть…» или Ctrl+O.", anchor="w")
    status.pack(fill="x", pady=(4, 0))

    # ---------------------------------------------------------------- logic
    def pick_bg():
        r = colorchooser.askcolor(color="#%06x" % p.bg, title="Цвет фона полей")
        if r and r[1]:
            p.bg = int(r[1][1:], 16)
            bg_btn.configure(background=r[1])
            schedule()

    def read_params():
        try:
            p.cols, p.rows = max(1, int(cols.get())), max(1, int(rows.get()))
        except (tk.TclError, ValueError):
            return False
        p.fit = dict(FITS)[fit.get()]
        p.trim = trim.get()
        p.pos_x, p.pos_y = posx.get(), posy.get()
        p.transparent = transparent.get()
        for k, v in sliders.items():
            setattr(p, k, float(v.get()))
        p.dither = dict(DITHERS)[dither.get()]
        p.strength = strength.get()
        p.palette, p.accent, p.dark = palette.get(), accent.get(), dark.get()
        px_lbl.configure(text=f"= {p.cols}×{p.rows * 2} пикс.")
        return True

    def on_preset(*_):
        for name, w, h, ft, tr in PRESETS:
            if name == preset.get() and w:
                cols.set(w); rows.set(h)
                fit.set([x[0] for x in FITS if x[1] == ft][0])
                trim.set(tr)
                transparent.set(name.startswith("Иконка"))
                if name.startswith("Image Viewer"):
                    viewer_max.set("весь экран" in name)
                    nb.select(1)
                elif name.startswith("Обои"):
                    nb.select(0)
        schedule()

    preset.trace_add("write", on_preset)

    pending = {"id": None}

    def schedule(*_):
        if pending["id"]:
            root.after_cancel(pending["id"])
        pending["id"] = root.after(180, recompute)

    for v in (cols, rows, fit, trim, posx, posy, transparent, dither, strength, palette, accent, dark, *sliders.values()):
        v.trace_add("write", schedule)
    viewer_max.trace_add("write", lambda *_: show())
    nb.bind("<<NotebookTabChanged>>", lambda e: show())
    for cv in tabs.values():
        cv.bind("<Configure>", lambda e: show())

    def recompute():
        pending["id"] = None
        if st["src"] is None or not read_params():
            return
        st["job"] += 1
        job = st["job"]
        params = Params(**vars(p))
        status.configure(text="Конвертирую…")

        def work():
            t0 = time.time()
            try:
                pic, disp, th = convert(st["src"], params)
                err = None
            except Exception as e:  # noqa: BLE001
                pic = disp = th = None
                err = e
            dt = time.time() - t0
            root.after(0, lambda: done(job, pic, disp, th, dt, err))

        threading.Thread(target=work, daemon=True).start()

    def done(job, pic, disp, th, dt, err):
        if job != st["job"]:
            return
        if err:
            status.configure(text=f"Ошибка: {err}")
            return
        st["pic"], st["disp"], st["th"] = pic, disp, th
        data_len = len(pic.ocif())
        used = len(np.unique(pic.rgb[pic.rgb >= 0]))
        warn = ""
        if nb.index("current") == 1 and (pic.cols > 70 or pic.rows > 24) and not viewer_max.get():
            warn = "  ·  в окне Image Viewer уменьшится (грубо)"
        if pic.cols * pic.rows > 30000:
            warn += "  ·  большая: медленно грузится в OC"
        status.configure(text=f"{pic.cols}×{pic.rows} клеток ({pic.cols}×{pic.rows * 2} пикселей)  ·  {used} цветов  ·  "
                              f"файл {data_len / 1024:.1f} КБ  ·  {dt:.2f} с{warn}")
        show()

    def current_image():
        pic = st["pic"]
        if pic is None:
            return None
        tab = ("desktop", "viewer", "pixels")[nb.index("current")]
        if tab == "desktop":
            return preview_desktop(pic, st["disp"], st["th"])
        if tab == "viewer":
            name = os.path.splitext(os.path.basename(st["path"] or "picture"))[0] + ".pic"
            return preview_viewer(pic, st["disp"], st["th"], name, viewer_max.get())
        return preview_pixels(pic)

    def show():
        tab = ("desktop", "viewer", "pixels")[nb.index("current")]
        cv = tabs[tab]
        cv.delete("all")
        img = current_image()
        if img is None:
            return
        cw, ch = max(50, cv.winfo_width()), max(50, cv.winfo_height())
        s = min(cw / img.width, ch / img.height)
        if tab == "pixels" and s >= 1:
            s = int(s)                                    # whole pixels stay crisp
        w, h = max(1, int(img.width * s)), max(1, int(img.height * s))
        shown = img.resize((w, h), Image.NEAREST if s >= 1 or tab == "pixels" else Image.LANCZOS)
        st["photo"] = ImageTk.PhotoImage(shown)
        cv.create_image(cw // 2, ch // 2, image=st["photo"])

    def load(path):
        try:
            img = Image.open(path)
            img.load()
        except Exception as e:  # noqa: BLE001
            messagebox.showerror("Не открылось", f"{path}\n{e}")
            return
        st["src"], st["path"] = img, path
        file_lbl.configure(text=f"{os.path.basename(path)}  ·  {img.width}×{img.height}  ·  {img.mode}")
        t = img.copy()
        t.thumbnail((330, 150))
        st["thumb"] = ImageTk.PhotoImage(t)
        thumb.delete("all")
        thumb.create_image(165, 75, image=st["thumb"])
        schedule()

    def open_file():
        path = filedialog.askopenfilename(title="Картинка", filetypes=[
            ("Картинки", "*.png *.jpg *.jpeg *.gif *.webp *.bmp *.tif *.tiff *.ico"), ("Все файлы", "*.*")])
        if path:
            load(path)

    def save_pic():
        if st["pic"] is None:
            return
        base = os.path.splitext(os.path.basename(st["path"] or "picture"))[0]
        path = filedialog.asksaveasfilename(title="Сохранить .pic", defaultextension=".pic", initialfile=base + ".pic",
                                            filetypes=[("OCIF (MineOS / Yaru)", "*.pic")])
        if path:
            with open(path, "wb") as fh:
                fh.write(st["pic"].ocif())
            status.configure(text=f"Сохранено: {path}  —  скопируйте в /home/Pictures на компьютере OC")

    def save_png():
        img = current_image()
        if img is None:
            return
        path = filedialog.asksaveasfilename(title="Предпросмотр", defaultextension=".png", filetypes=[("PNG", "*.png")])
        if path:
            img.save(path)

    root.bind("<Control-o>", lambda e: open_file())
    root.bind("<Control-s>", lambda e: save_pic())
    if initial:
        root.after(100, lambda: load(initial))
    root.mainloop()


# ================================================================ command line
def main():
    ap = argparse.ArgumentParser(description="picture -> .pic (OCIF) for OpenOS Yaru, with an exact preview")
    ap.add_argument("input", nargs="?", help="picture to convert (opens the GUI when no output is given)")
    ap.add_argument("output", nargs="?", help=".pic to write (command-line mode)")
    ap.add_argument("--size", default="160x50", help="cells, WxH (default 160x50 = full T3 screen)")
    ap.add_argument("--fit", choices=("fill", "fit", "stretch"), default="fill")
    ap.add_argument("--trim", action="store_true", help="fit: file as big as the picture, no padding")
    ap.add_argument("--pos", default="50,50", help="fill: crop position x,y in percent")
    ap.add_argument("--bg", default="000000", help="padding colour, hex")
    ap.add_argument("--transparent", action="store_true", help="keep transparency (padding and alpha)")
    ap.add_argument("--brightness", type=float, default=0)
    ap.add_argument("--contrast", type=float, default=0)
    ap.add_argument("--saturation", type=float, default=0)
    ap.add_argument("--gamma", type=float, default=1.0)
    ap.add_argument("--sharpen", type=float, default=30)
    ap.add_argument("--dither", choices=[x[1] for x in DITHERS], default="floyd")
    ap.add_argument("--strength", type=float, default=85)
    ap.add_argument("--palette", choices=("yaru", "standard"), default="yaru")
    ap.add_argument("--accent", choices=list(ACCENTS), default="orange")
    ap.add_argument("--light", action="store_true", help="light Yaru theme")
    ap.add_argument("--preview", help="also write a PNG preview")
    ap.add_argument("--view", choices=("desktop", "viewer", "viewer-max", "pixels"), default="desktop")
    a = ap.parse_args()
    if not a.output:
        return run_gui(a.input)
    if not os.path.isfile(a.input):
        sys.exit(f"file not found: {a.input}")
    w, h = (int(v) for v in a.size.lower().split("x"))
    px, py = (float(v) for v in a.pos.split(","))
    p = Params(cols=w, rows=h, fit=a.fit, trim=a.trim, pos_x=px, pos_y=py, bg=int(a.bg.lstrip("#"), 16),
               transparent=a.transparent, brightness=a.brightness, contrast=a.contrast, saturation=a.saturation,
               gamma=a.gamma, sharpen=a.sharpen, dither=a.dither, strength=a.strength, palette=a.palette,
               accent=a.accent, dark=not a.light)
    t0 = time.time()
    pic, disp, th = convert(Image.open(a.input), p)
    data = pic.ocif()
    with open(a.output, "wb") as f:
        f.write(data)
    print(f"{a.output}: {pic.cols}x{pic.rows} cells, {len(data) / 1024:.1f} KB, "
          f"{len(np.unique(pic.rgb[pic.rgb >= 0]))} colours, {time.time() - t0:.2f} s")
    if a.preview:
        if a.view == "desktop":
            img = preview_desktop(pic, disp, th)
        elif a.view == "pixels":
            img = preview_pixels(pic)
        else:
            img = preview_viewer(pic, disp, th, os.path.basename(a.output), a.view == "viewer-max")
        img.save(a.preview)
        print(f"preview: {a.preview}")


if __name__ == "__main__":
    main()
F 628 /usr/share/optimize/manifest.lua
-- written by the optimisation package; read by /bin/optimize.lua
return {
  version = "1.0",
  -- semantically patched system files (originals kept in /usr/share/optimize/orig)
  patched = {"/init.lua", "/boot/00_base.lua", "/boot/04_component.lua", "/boot/89_rc.lua",
    "/etc/profile.lua", "/lib/event.lua", "/lib/package.lua", "/lib/process.lua", "/lib/tty.lua"},
  -- files/directories added by the desktop package
  added = {"/bin/desktop.lua", "/bin/notify-send.lua", "/lib/yaru", "/usr/share/yaru", "/usr/share/applications"},
  -- runtime state created by the desktop
  state = {"/etc/yaru.cfg", "/etc/yaru.crash"},
}
F 817 /usr/share/optimize/orig/init.lua
do
  local addr, invoke = computer.getBootAddress(), component.invoke
  local function loadfile(file)
    local handle = assert(invoke(addr, "open", file))
    local buffer = ""
    repeat
      local data = invoke(addr, "read", handle, math.maxinteger or math.huge)
      buffer = buffer .. (data or "")
    until not data
    invoke(addr, "close", handle)
    return load(buffer, "=" .. file, "bt", _G)
  end
  loadfile("/lib/core/boot.lua")(loadfile)
end

while true do
  local result, reason = xpcall(require("shell").getShell(), function(msg)
    return tostring(msg).."\n"..debug.traceback()
  end)
  if not result then
    io.stderr:write((reason ~= nil and tostring(reason) or "unknown error") .. "\n")
    io.write("Press any key to continue.\n")
    os.sleep(0.5)
    require("event").pull("key")
  end
end
F 1003 /usr/share/optimize/orig/boot/00_base.lua
function loadfile(filename, ...)
  if filename:sub(1,1) ~= "/" then
    filename = (os.getenv("PWD") or "/") .. "/" .. filename
  end
  local handle, open_reason = require("filesystem").open(filename)
  if not handle then
    return nil, open_reason
  end
  local buffer = {}
  while true do
    local data, reason = handle:read(1024)
    if not data then
      handle:close()
      if reason then
        return nil, reason
      end
      break
    end
    buffer[#buffer + 1] = data
  end
  return load(table.concat(buffer), "=" .. filename, ...)
end

function dofile(filename)
  local program, reason = loadfile(filename)
  if not program then
    return error(reason .. ':' .. filename, 0)
  end
  return program()
end

function print(...)
  local args = table.pack(...)
  local stdout = io.stdout
  local pre = ""
  for i = 1, args.n do
    stdout:write(pre, (assert(tostring(args[i]), "'tostring' must return a string to 'print'")))
    pre = "\t"
  end
  stdout:write("\n")
  stdout:flush()
end
F 7548 /usr/share/optimize/orig/boot/04_component.lua
local component = require("component")
local computer = require("computer")
local event = require("event")

local adding = {}
local primaries = {}

-------------------------------------------------------------------------------

-- This allows writing component.modem.open(123) instead of writing
-- component.getPrimary("modem").open(123), which may be nicer to read.
setmetatable(component, {
  __index = function(_, key)
    return component.getPrimary(key)
  end,
  __pairs = function(self)
    local parent = false
    return function(_, key)
      if parent then
        return next(primaries, key)
      else
        local k, v = next(self, key)
        if not k then
          parent = true
          return next(primaries)
        else
          return k, v
        end
      end
    end
  end
})

function component.get(address, componentType)
  checkArg(1, address, "string")
  checkArg(2, componentType, "string", "nil")
  for c in component.list(componentType, true) do
    if c:sub(1, address:len()) == address then
      return c
    end
  end
  return nil, "no such component"
end

function component.isAvailable(componentType)
  checkArg(1, componentType, "string")
  if not primaries[componentType] and not adding[componentType] then
    -- This is mostly to avoid out of memory errors preventing proxy
    -- creation cause confusion by trying to create the proxy again,
    -- causing the oom error to be thrown again.
    component.setPrimary(componentType, component.list(componentType, true)())
  end
  return primaries[componentType] ~= nil
end

function component.isPrimary(address)
  local componentType = component.type(address)
  if componentType then
    if component.isAvailable(componentType) then
      return primaries[componentType].address == address
    end
  end
  return false
end

function component.getPrimary(componentType)
  checkArg(1, componentType, "string")
  assert(component.isAvailable(componentType),
    "no primary '" .. componentType .. "' available")
  return primaries[componentType]
end

function component.setPrimary(componentType, address)
  checkArg(1, componentType, "string")
  checkArg(2, address, "string", "nil")
  if address ~= nil then
    address = component.get(address, componentType)
    assert(address, "no such component")
  end

  local wasAvailable = primaries[componentType]
  if wasAvailable and address == wasAvailable.address then
    return
  end
  local wasAdding = adding[componentType]
  if wasAdding and address == wasAdding.address then
    return
  end
  if wasAdding then
    event.cancel(wasAdding.timer)
  end
  primaries[componentType] = nil
  adding[componentType] = nil

  local primary = address and component.proxy(address) or nil
  if wasAvailable then
    computer.pushSignal("component_unavailable", componentType)
  end
  if primary then
    if wasAvailable or wasAdding then
      adding[componentType] = {
        address=address,
        proxy = primary,
        timer=event.timer(0.1, function()
          adding[componentType] = nil
          primaries[componentType] = primary
          computer.pushSignal("component_available", componentType)
        end)
      }
    else
      primaries[componentType] = primary
      computer.pushSignal("component_available", componentType)
    end
  end
end

-------------------------------------------------------------------------------

local function onComponentAdded(_, address, componentType)
  local prev = primaries[componentType] or (adding[componentType] and adding[componentType].proxy)

  if prev then
    -- special handlers -- some components are just better at being primary
    if componentType == "screen" then
      --the primary has no keyboards but we do
      if #prev.getKeyboards() == 0 then
        local first_kb = component.invoke(address, 'getKeyboards')[1]
        if first_kb then
          -- just in case our kb failed to achieve primary
          -- possible if existing primary keyboard became primary first without a screen
          -- then prev (a screen) was added without a keyboard
          -- and then we attached this screen+kb pair, and our kb fired first - failing to achieve primary
          -- also, our kb may fire right after this, which is fine
          component.setPrimary("keyboard", first_kb)
          prev = nil -- nil meaning we should take this new one over the previous
        end
      end
    elseif componentType == "keyboard" then
      -- to reduce signal noise, if this kb is also the prev, we do not need to reset primary
      if address ~= prev.address then
        --keyboards never replace primary keyboards unless the are the only keyboard on the primary screen
        local current_screen = primaries.screen or (adding.screen and adding.screen.proxy)
        --if there is not yet a screen, do not use this keyboard, it's not any better
        if current_screen then
          -- the next phase is complicated
          -- there is already a screen and there is already a keyboard
          -- this keyboard is only better if this is a keyboard of the primary screen AND the current keyboard is not
          -- i don't think we can trust kb order (1st vs 2nd), 2nd could fire first
          -- but if there are two kbs on a screen, we can give preferred treatment to the first
          -- thus, assume 2nd is not attached for the purposes of primary kb
          -- and THUS, whichever (if either) is the 1st kb of the current screen
          -- this is only possible if
          -- 1. the only kb on the system (current) has no screen
          -- 2. a screen is added without a kb
          -- 3. this kb is added later manually

          -- prev is true when addr is not equal to the primary keyboard of the current screen -- meaning
          -- when addr is different, and thus it is not the primary keyboard, then we ignore this
          -- keyboard, and keep the previous
          -- prev is false means we should take this new keyboard
          prev = address ~= current_screen.getKeyboards()[1]
        end
      end
    end
  end

  if not prev then
    component.setPrimary(componentType, address)
  end
end

local function onComponentRemoved(_, address, componentType)
  if primaries[componentType] and primaries[componentType].address == address or
     adding[componentType] and adding[componentType].address == address
  then
    local next = component.list(componentType, true)()
    component.setPrimary(componentType, next)

    if componentType == "screen" and next then
      -- setPrimary already set the proxy (if successful)
      local proxy = (primaries.screen or (adding.screen and adding.screen.proxy))
      if proxy then
        -- if a screen is removed, and the primary keyboard is actually attached to another, non-primary, screen
        -- then the `next` screen, if it has a keyboard, should TAKE priority
        local next_kb = proxy.getKeyboards()[1] -- costly, don't call this method often
        local old_kb = primaries.keyboard or adding.keyboard
        -- if the next screen doesn't have a kb, this operation is without purpose, leave things as they are
        -- if there was no previous kb, use the new one
        if next_kb and (not old_kb or old_kb.address ~= next_kb) then
          component.setPrimary("keyboard", next_kb)
        end
      end
    end
  end
end

event.listen("component_added", onComponentAdded)
event.listen("component_removed", onComponentRemoved)

if _G.boot_screen then
  component.setPrimary("screen", _G.boot_screen)
end
_G.boot_screen = nil
F 330 /usr/share/optimize/orig/boot/89_rc.lua
-- Run all enabled rc scripts.
-- /boot/*rc was moved before /boot/*filesystem because
-- 1. rc now loads in via the init signal
-- 2. rc used to load directly
-- Thus, for rc to load prior, it needs to register prior
require("event").listen("init", function()
  dofile(require("shell").resolve("rc", "lua"))
  return false
end)

F 1264 /usr/share/optimize/orig/etc/profile.lua
local shell = require("shell")
local tty = require("tty")
local fs = require("filesystem")

if tty.isAvailable() then
  if io.stdout.tty then
    io.write("\27[40m\27[37m")
    tty.clear()
  end
end
dofile("/etc/motd")

shell.setAlias("dir", "ls")
shell.setAlias("move", "mv")
shell.setAlias("rename", "mv")
shell.setAlias("copy", "cp")
shell.setAlias("del", "rm")
shell.setAlias("md", "mkdir")
shell.setAlias("cls", "clear")
shell.setAlias("rs", "redstone")
shell.setAlias("view", "edit -r")
shell.setAlias("help", "man")
shell.setAlias("l", "ls -lhp")
shell.setAlias("..", "cd ..")
shell.setAlias("df", "df -h")
shell.setAlias("grep", "grep --color")
shell.setAlias("more", "less --noback")
shell.setAlias("reset", "resolution `cat /dev/components/by-type/gpu/0/maxResolution`")

os.setenv("EDITOR", "/bin/edit")
os.setenv("HISTSIZE", "10")
os.setenv("HOME", "/home")
os.setenv("IFS", " ")
os.setenv("MANPATH", "/usr/man:.")
os.setenv("PAGER", "less")
os.setenv("PS1", "\27[40m\27[31m$HOSTNAME$HOSTNAME_SEPARATOR$PWD # \27[37m")
os.setenv("LS_COLORS", "di=0;36:fi=0:ln=0;33:*.lua=0;32")

shell.setWorkingDirectory(os.getenv("HOME"))

local home_shrc = shell.resolve(".shrc")
if fs.exists(home_shrc) then
  loadfile(shell.resolve("source", "lua"))(home_shrc)
end
F 4762 /usr/share/optimize/orig/lib/event.lua
local computer = require("computer")
local keyboard = require("keyboard")

local event = {}
local handlers = {}
local lastInterrupt = -math.huge

event.handlers = handlers

function event.register(key, callback, interval, times, opt_handlers)
  local handler =
  {
    key = key,
    times = times or 1,
    callback = callback,
    interval = interval or math.huge,
  }

  handler.timeout = computer.uptime() + handler.interval
  opt_handlers = opt_handlers or handlers

  local id = 0
  repeat
    id = id + 1
  until not opt_handlers[id]

  opt_handlers[id] = handler
  return id
end

local _pullSignal = computer.pullSignal
setmetatable(handlers, {__call=function(_,...)return _pullSignal(...)end})
computer.pullSignal = function(seconds) -- dispatch
  checkArg(1, seconds, "number", "nil")
  seconds = seconds or math.huge
  local uptime = computer.uptime
  local deadline = uptime() + seconds
  repeat
    local interrupting = uptime() - lastInterrupt > 1 and keyboard.isControlDown() and keyboard.isKeyDown(keyboard.keys.c)
    if interrupting then
      lastInterrupt = uptime()
      if keyboard.isAltDown() then
        require("process").info().data.signal("interrupted", 0)
        return
      end
      event.push("interrupted", lastInterrupt)
    end

    local closest = deadline
    for _,handler in pairs(handlers) do
      closest = math.min(handler.timeout, closest)
    end

    local event_data = table.pack(handlers(closest - uptime()))
    local signal = event_data[1]
    local copy = {}
    for id,handler in pairs(handlers) do
      copy[id] = handler
    end
    for id,handler in pairs(copy) do
      -- timers have false keys
      -- nil keys match anything
      if (handler.key == nil or handler.key == signal) or uptime() >= handler.timeout then
        handler.times = handler.times - 1
        handler.timeout = handler.timeout + handler.interval
        -- we have to remove handlers before making the callback in case of timers that pull
        -- and we have to check handlers[id] == handler because callbacks may have unregistered things
        if handler.times <= 0 and handlers[id] == handler then
          handlers[id] = nil
        end
        -- call
        local result, message = pcall(handler.callback, table.unpack(event_data, 1, event_data.n))
        if not result then
          pcall(event.onError, message)
        elseif message == false and handlers[id] == handler then
          handlers[id] = nil
        end
      end
    end
    if signal then
      return table.unpack(event_data, 1, event_data.n)
    end
  until uptime() >= deadline
end

local function createPlainFilter(name, ...)
  local filter = table.pack(...)
  if name == nil and filter.n == 0 then
    return nil
  end

  return function(...)
    local signal = table.pack(...)
    if name and not (type(signal[1]) == "string" and signal[1]:match(name)) then
      return false
    end
    for i = 1, filter.n do
      if filter[i] ~= nil and filter[i] ~= signal[i + 1] then
        return false
      end
    end
    return true
  end
end

-------------------------------------------------------------------------------

function event.listen(name, callback)
  checkArg(1, name, "string")
  checkArg(2, callback, "function")
  for _, handler in pairs(handlers) do
    if handler.key == name and handler.callback == callback then
      return false
    end
  end
  return event.register(name, callback, math.huge, math.huge)
end

function event.pull(...)
  local args = table.pack(...)
  if type(args[1]) == "string" then
    return event.pullFiltered(createPlainFilter(...))
  else
    checkArg(1, args[1], "number", "nil")
    checkArg(2, args[2], "string", "nil")
    return event.pullFiltered(args[1], createPlainFilter(select(2, ...)))
  end
end

function event.pullFiltered(...)
  local args = table.pack(...)
  local seconds, filter = math.huge

  if type(args[1]) == "function" then
    filter = args[1]
  else
    checkArg(1, args[1], "number", "nil")
    checkArg(2, args[2], "function", "nil")
    seconds = args[1]
    filter = args[2]
  end

  local deadline = computer.uptime() + (seconds or math.huge)
  repeat
    local waitTime = deadline - computer.uptime()
    if waitTime < 0 then
      break
    end
    local signal = table.pack(computer.pullSignal(waitTime))
    if signal.n > 0 then
      if not (seconds or filter) or filter == nil or filter(table.unpack(signal, 1, signal.n)) then
        return table.unpack(signal, 1, signal.n)
      end
    end
  until signal.n == 0
end

-- users may expect to find event.push to exist
event.push = computer.pushSignal

require("package").delay(event, "/lib/core/full_event.lua")

-------------------------------------------------------------------------------

return event
F 3132 /usr/share/optimize/orig/lib/package.lua
local package = {}

package.config = "/\n;\n?\n!\n-\n"

package.path = "/lib/?.lua;/usr/lib/?.lua;/home/lib/?.lua;./?.lua;/lib/?/init.lua;/usr/lib/?/init.lua;/home/lib/?/init.lua;./?/init.lua"

local loading = {}
local preload = {}
local searchers = {}

local loaded = {
  ["_G"] = _G,
  ["bit32"] = bit32,
  ["coroutine"] = coroutine,
  ["math"] = math,
  ["os"] = os,
  ["package"] = package,
  ["string"] = string,
  ["table"] = table
}
package.loaded = loaded
package.preload = preload
package.searchers = searchers

function package.searchpath(name, path, sep, rep)
  checkArg(1, name, "string")
  checkArg(2, path, "string")
  sep = sep or '.'
  rep = rep or '/'
  sep, rep = '%' .. sep, rep
  name = string.gsub(name, sep, rep)
  local fs = require("filesystem")
  local errorFiles = {}
  for subPath in string.gmatch(path, "([^;]+)") do
    subPath = string.gsub(subPath, "?", name)
    if subPath:sub(1, 1) ~= "/" and os.getenv then
      subPath = fs.concat(os.getenv("PWD") or "/", subPath)
    end
    if fs.exists(subPath) then
      local file = fs.open(subPath, "r")
      if file then
        file:close()
        return subPath
      end
    end
    table.insert(errorFiles, "no file '" .. subPath .. "'")
  end
  return nil, table.concat(errorFiles, "\n\t")
end

table.insert(searchers, function(module)
  if package.preload[module] then
    return package.preload[module]
  end

  return "no field package.preload['" .. module .. "']"
end)
table.insert(searchers, function(module)
  local library, path, status

  path, status = package.searchpath(module, package.path)
  if not path then
    return status
  end

  library, status = loadfile(path)
  if not library then
    error(string.format("error loading module '%s' from file '%s':\n\t%s", module, path, status))
  end

  return library, module
end)

function require(module)
  checkArg(1, module, "string")
  if loaded[module] ~= nil then
    return loaded[module]
  elseif loading[module] then
    error("already loading: " .. module .. "\n" .. debug.traceback(), 2)
  else
    local library, status, arg
    local errors = ""

    if type(searchers) ~= "table" then error("'package.searchers' must be a table") end
    for _, searcher in pairs(searchers) do
      library, arg = searcher(module)
      if type(library) == "function" then break end
      if type(library) ~= nil then
        errors = errors .. "\n\t" .. tostring(library)
        library = nil
      end
    end
    if not library then error(string.format("module '%s' not found:%s", module, errors)) end

    loading[module] = true
    library, status = pcall(library, arg or module)
    loading[module] = false
    assert(library, string.format("module '%s' load failed:\n%s", module, status))
    loaded[module] = status
    return status
  end
end

function package.delay(lib, file)
  local mt = {}
  function mt.__index(tbl, key)
    mt.__index = nil
    dofile(file)
    return tbl[key]
  end
  if lib.internal then
    setmetatable(lib.internal, mt)
  end
  setmetatable(lib, mt)
end

-------------------------------------------------------------------------------

return package
F 5342 /usr/share/optimize/orig/lib/process.lua
local process = {}

-------------------------------------------------------------------------------

--Initialize coroutine library--
process.list = setmetatable({}, {__mode="k"})

function process.findProcess(co)
  co = co or coroutine.running()
  for main, p in pairs(process.list) do
    if main == co then
      return p
    end
    for _, instance in pairs(p.instances) do
      if instance == co then
        return p
      end
    end
  end
end

-------------------------------------------------------------------------------
function process.load(path, env, init, name)
  checkArg(1, path, "string", "function")
  checkArg(2, env, "table", "nil")
  checkArg(3, init, "function", "nil")
  checkArg(4, name, "string", "nil")

  assert(type(path) == "string" or env == nil, "process cannot load function environments")

  local p = process.findProcess()
  env = env or p.env
  local code
  if type(path) == "string" then
    code = function(...)
      local fs, shell = require("filesystem"), require("shell")
      local program, reason = shell.resolve(path, "lua")
      if not program then
        return require("tools/programLocations").reportNotFound(path, reason)
      end
      os.setenv("_", program)
      local f = fs.open(program)
      if f then
        local shebang = (f:read(1024) or ""):match("^#!([^\n]+)")
        f:close()
        if shebang then
          path = shebang:gsub("%s","")
          return code(program, ...)
        end
      end
      -- local command
      return assert(loadfile(program, "bt", env))(...)
    end
  else -- path is code
    code = path
  end

  local thread = nil
  thread = coroutine.create(function(...)
    -- pcall code so that we can remove it from the process list on exit
    local result =
    {
      xpcall(function(...)
          init = init or function(...) return ... end
          return code(init(...))
        end,
        function(msg)
          if type(msg) == "table" and msg.reason == "terminated" then
            return msg.code or 0
          end
          return {msg, debug.traceback()}
        end, ...)
    }

    if not result[1] and type(result[2]) == "table" then
      -- run exception handler
      xpcall(function()
          local stack = result[2][2]:gsub("^([^\n]*\n)[^\n]*\n[^\n]*\n","%1")
          io.stderr:write(string.format("%s:\n%s", result[2][1] or "", stack))
        end,
        function(msg)
          io.stderr:write("process library exception handler crashed: ", tostring(msg))
        end)

      result[2] = 128
    end

    -- onError opens a file, you can't open a file without a process, we close the process last
    process.internal.close(thread, result)

    return select(2, table.unpack(result))
  end, true)
  local new_proc =
  {
    path = path,
    command = name or tostring(path),
    env = env,
    data =
    {
      handles = {},
      io = {},
    },
    parent = p,
    instances = setmetatable({}, {__mode="v"}),
  }
  for i,fd in pairs(p.data.io) do
    new_proc.data.io[i] = io.dup(fd)
  end
  setmetatable(new_proc.data, {__index=p.data})
  process.list[thread] = new_proc

  return thread
end

function process.info(levelOrThread)
  checkArg(1, levelOrThread, "thread", "number", "nil")
  local p
  if type(levelOrThread) == "thread" then
    p = process.findProcess(levelOrThread)
  else
    local level = levelOrThread or 1
    p = process.findProcess()
    while level > 1 and p do
      p = p.parent
      level = level - 1
    end
  end
  if p then
    return {path=p.path, env=p.env, command=p.command, data=p.data}
  end
end

--table of undocumented api subject to change and intended for internal use
process.internal = {}
--this is a future stub for a more complete method to kill a process
function process.internal.close(thread, result)
  checkArg(1,thread,"thread")
  local pdata = process.info(thread).data
  pdata.result = result
  while pdata.handles[1] do
    local h = table.remove(pdata.handles)
    if h.close then
      pcall(h.close, h)
    end
  end
  process.list[thread] = nil
end

function process.internal.continue(co, ...)
  local result = {}
  -- Emulate CC behavior by making yields a filtered event.pull()
  local args = table.pack(...)
  while coroutine.status(co) ~= "dead" do
    result = table.pack(coroutine.resume(co, table.unpack(args, 1, args.n)))
    if coroutine.status(co) ~= "dead" then
      args = table.pack(coroutine.yield(table.unpack(result, 2, result.n)))
    elseif not result[1] then
      io.stderr:write(result[2])
    end
  end
  return table.unpack(result, 2, result.n)
end

function process.removeHandle(handle, proc)
  local handles = (proc or process.info()).data.handles
  for pos, h in ipairs(handles) do
    if h == handle then
      return table.remove(handles, pos)
    end
  end
end

function process.addHandle(handle, proc)
  local _close = handle.close
  local handles = (proc or process.info()).data.handles
  table.insert(handles, handle)
  function handle:close(...)
    if _close then
      self.close = _close
      _close = nil
      process.removeHandle(self, proc)
      return self:close(...)
    end
  end
  return handle
end

function process.running(level) -- kept for backwards compat, prefer process.info
  local info = process.info(level)
  if info then
    return info.path, info.env, info.command
  end
end

return process
F 7889 /usr/share/optimize/orig/lib/tty.lua
local unicode = require("unicode")
local event = require("event")
local component = require("component")
local computer = require("computer")

local tty = {}
tty.window =
{
  fullscreen = true,
  blink = true,
  dx = 0,
  dy = 0,
  x = 1,
  y = 1,
  output_buffer = "",
}

tty.stream = {}

local screen_cache = {}
local function screen_reset(gpu, addr)
  screen_cache[addr or gpu.getScreen() or false] = nil
end

event.listen("screen_resized", screen_reset)

function tty.getViewport()
  local window = tty.window
  local screen = tty.screen()
  if window.fullscreen and screen and not screen_cache[screen] then
    screen_cache[screen] = true
    window.width, window.height = window.gpu.getViewport()
  end

  return window.width, window.height, window.dx, window.dy, window.x, window.y
end

function tty.setViewport(width, height, dx, dy, x, y)
  checkArg(1, width, "number")
  checkArg(2, height, "number")
  local window = tty.window
  dx, dy, x, y = dx or 0, dy or 0, x or 1, y or 1
  window.width, window.height, window.dx, window.dy, window.x, window.y = width, height, dx, dy, x, y
end

function tty.gpu()
  return tty.window.gpu
end

function tty.clear()
  tty.stream.scroll(math.huge)
  tty.setCursor(1, 1)
end

function tty.isAvailable()
  local gpu = tty.gpu()
  return not not (gpu and gpu.getScreen())
end

-- PLEASE do not use this method directly, use io.read or term.read
function tty.stream.read()
  local core = require("core/cursor")
  local cursor = core.new(tty.window.cursor)
  -- the window is given the cursor to allow sy updates [needed for wide char wrapping]
  -- even if the user didn't set a cursor, we need one to read
  tty.window.cursor = cursor

  local ok, result, reason = xpcall(core.read, debug.traceback, cursor)

  if not ok or not result then
    pcall(cursor.update, cursor)
  end

  return select(2, assert(ok, result, reason))
end

-- PLEASE do not use this method directly, use io.write or term.write
function tty.stream:write(value)
  local gpu = tty.gpu()
  if not gpu then
    return
  end
  local window = tty.window
  local cursor = window.cursor or {}
  cursor.sy = cursor.sy or 0
  cursor.tails = cursor.tails or {}
  local beeped
  local uptime = computer.uptime
  local last_sleep = uptime()
  window.output_buffer = window.output_buffer .. value
  while true do
    if uptime() - last_sleep > 3 then
      os.sleep(0)
      last_sleep = uptime()
    end

    local ansi_print = require("vt100").parse(window)

    -- scroll before parsing next line
    -- the value may only have been a newline
    cursor.sy = cursor.sy + self.scroll()
    -- we may have needed to scroll one last time [nowrap adjustments]
    -- or the vt100 parse is incomplete, print nothing else
    if #window.output_buffer == 0 or not ansi_print then
      break
    end

    local x, y = tty.getCursor()

    local _, ei, delim = unicode.sub(window.output_buffer, 1, window.width):find("([\27\t\r\n\a\b\v\15])")
    local segment = ansi_print .. (ei and window.output_buffer:sub(1, ei - 1) or window.output_buffer)

    if segment ~= "" then
      local gpu_x, gpu_y = x + window.dx, y + window.dy
      local tail = ""
      local wlen_needed = unicode.wlen(segment)
      local wlen_remaining = window.width - x + 1
      if wlen_remaining < wlen_needed then
        segment = unicode.wtrunc(segment, wlen_remaining + 1)
        wlen_needed = unicode.wlen(segment)
        tail = wlen_needed < wlen_remaining and " " or ""
        cursor.tails[gpu_y - cursor.sy] = tail
        if not window.nowrap then
          -- we have to reparse the delimeter
          ei = #segment
          -- fake a newline
          delim = "\n"
        end
      end
      gpu.set(gpu_x, gpu_y, segment..tail)
      x = x + wlen_needed
    end

    window.output_buffer = ei and window.output_buffer:sub(ei + 1) or
      unicode.sub(window.output_buffer, window.width + 1)

    if delim == "\t" then
      x = ((x-1) - ((x-1) % 8)) + 9
    elseif delim == "\r" then
      x = 1
    elseif delim == "\n" then
      x = 1
      y = y + 1
    elseif delim == "\b" then
      x = x - 1
    elseif delim == "\v" then
      y = y + 1
    elseif delim == "\a" and not beeped then
      computer.beep()
      beeped = true
    elseif delim == "\27" then
      window.output_buffer = delim .. window.output_buffer
    end

    tty.setCursor(x, y)
  end
  return cursor.sy
end

function tty.getCursor()
  local window = tty.window
  return window.x, window.y
end

function tty.setCursor(x, y)
  checkArg(1, x, "number")
  checkArg(2, y, "number")
  local window = tty.window
  window.x, window.y = x, y
end

local gpu_intercept = {}
function tty.bind(gpu)
  checkArg(1, gpu, "table")
  if not gpu_intercept[gpu] then
    gpu_intercept[gpu] = true -- only override a gpu once
    -- the gpu can change resolution before we get a chance to call events and handle screen_resized
    -- unfortunately, we have to handle viewport changes by intercept
    local setr, setv = gpu.setResolution, gpu.setViewport
    gpu.setResolution = function(...)
      screen_reset(gpu)
      return setr(...)
    end
    gpu.setViewport = function(...)
      screen_reset(gpu)
      return setv(...)
    end
  end
  local window = tty.window
  if window.gpu ~= gpu then
    window.gpu = gpu
    window.keyboard = nil -- without a keyboard bound, always use the screen's main keyboard (1st)
    tty.getViewport()
  end
  screen_reset(gpu)
end

function tty.keyboard()
  -- this method needs to be safe even if there is no terminal window (e.g. no gpu)
  local window = tty.window

  if window.keyboard then
    return window.keyboard
  end

  local system_keyboard = component.isAvailable("keyboard") and component.keyboard
  system_keyboard = system_keyboard and system_keyboard.address or "no_system_keyboard"

  local screen = tty.screen()

  if not screen then
    -- no screen, no known keyboard, use system primary keyboard if any
    return system_keyboard
  end

  -- if we are using a gpu bound to the primary screen, then use the primary keyboard
  if component.isAvailable("screen") and component.screen.address == screen then
    window.keyboard = system_keyboard
  else
    -- calling getKeyboards() on the screen is costly (time)
    -- changes to this design should avoid this on every key hit

    -- this is expensive (slow!)
    window.keyboard = component.invoke(screen, "getKeyboards")[1] or system_keyboard
  end

  return window.keyboard
end

function tty.screen()
  local gpu = tty.gpu()
  if not gpu then
    return nil
  end
  return gpu.getScreen()
end

function tty.stream.scroll(lines)
  local gpu = tty.gpu()
  if not gpu then
    return 0
  end
  local width, height, dx, dy, x, y = tty.getViewport()

  -- nil lines indicates a request to auto scroll
  -- auto scroll is when the cursor has gone below the bottom on the terminal
  -- and the text is scroll up, pulling the cursor back into view

  -- lines<0 scrolls up (text down)
  -- lines>0 scrolls down (text up)

  -- no lines count given, the user is asking to auto scroll y back into view
  if not lines then
    if y < 1 then
      lines = y - 1 -- y==0 scrolls back -1
    elseif y > height then
      lines = y - height -- y==height+1 scroll forward 1
    else
      return 0 -- do nothing
    end
  end

  lines = math.min(lines, height)
  lines = math.max(lines,-height)

  -- scroll request can be too large
  local abs_lines = math.abs(lines)
  local box_height = height - abs_lines
  local fill_top = dy + 1 + (lines < 0 and 0 or box_height)

  gpu.copy(dx + 1, dy + 1 + math.max(0, lines), width, box_height, 0, -lines)
  gpu.fill(dx + 1, fill_top, width, abs_lines, ' ')

  tty.setCursor(x, math.max(1, math.min(y, height)))
  return lines
end

-- stream methods
local function bfd() return nil, "tty: invalid operation" end
tty.stream.close = bfd
tty.stream.seek = bfd
tty.stream.handle = "tty"

return tty
F 4103 /usr/share/yaru/apps/backup.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local computer=require("computer")
local unicode=require("unicode")
local B=require("yaru.backuplib")
local M={}

local function targets()
local r={}
local boot=computer.getBootAddress()
for proxy,path in fs.mounts()do
if proxy.address~=boot and proxy.address~=computer.tmpAddress()and not proxy.isReadOnly()and path~="/"and not path:match("^/dev")then
r[#r+1]={path=path,label=proxy.getLabel()or proxy.address:sub(1,8),free=proxy.spaceTotal()-proxy.spaceUsed()}
end
end
table.sort(r,function(a,b)return a.path<b.path end)
return r
end

function M.open()
local st={cfg=B.config()}
local win=Y.newWindow{app="backup",title="Backups",w=84,h=28,minW=60,minH=16}
local function stamp()return Y.date("%Y-%m-%d_%H%M%S")end
local function job(kind,fn)
st.job={kind=kind,done=0,total=0,name=""}
require("thread").create(function()
local ok,a,b=pcall(fn,function(d,tot,name)
st.job.done,st.job.total,st.job.name=d,tot,name
Y.redraw(win);os.sleep(0)
end)
st.job=nil
if ok and a then Y.notify(kind.." finished",tostring(a).." files"..(b and(", "..ui.size(b))or""))
else Y.notify(kind.." failed",tostring(ok and b or a))end
Y.redraw(win)
end):detach()
end
function win.draw(w,cw,ch)
local t=Y.theme
local x,pw=3,cw-5
Y.drawIcon(x,1,"backup")
gfx.text(x+10,1,"Back up "..st.cfg.src,t.fg)
local snaps=B.snapshots(st.cfg.dst)
gfx.text(x+10,2,st.cfg.dst and(#snaps.." snapshot(s) on "..st.cfg.dst)or"Choose a destination drive below",t.dim)
if st.job then
gfx.text(x+10,3,ui.trunc(string.format("%s: %d / %d  %s",st.job.kind,st.job.done,st.job.total,st.job.name),pw-10),t.accent)
ui.progress(x+10,4,pw-10,st.job.total>0 and st.job.done/st.job.total or 0)
else
ui.button(w,x+10,3,"Back Up Now",function()
if not st.cfg.dst then return Y.notify("Backups","Choose a destination drive first")end
local s=stamp()
job("Backup",function(p)return B.run(st.cfg,p,s)end)
end,"suggested")
end
local y=6
gfx.text(x,y,"Folder to back up",t.fg)
ui.button(w,x+pw-16,y,st.cfg.src,function()
Y.dialog{title="Folder to Back Up",entry=st.cfg.src,buttons={{"Cancel"},{"Set",function(p)
if p and fs.isDirectory(p)then st.cfg.src=fs.canonical(p);B.save(st.cfg)end end,"suggested"}}}
end,nil,16)
y=y+2
gfx.text(x,y,"Destination drive",t.fg)
local tg=targets()
if#tg==0 then gfx.text(x+20,y,"insert a floppy or a second hard drive",t.dim)end
for i,d in ipairs(tg)do
local on=st.cfg.dst==d.path
ui.radio(w,x+20,y+i-1,on,ui.trunc(d.label.."  "..d.path.."  ("..ui.size(d.free).." free)",pw-24),function()
st.cfg.dst=d.path;B.save(st.cfg)
end)
end
y=y+math.max(1,#tg)+1
gfx.text(x,y,"Keep snapshots",t.fg)
for i,n in ipairs({1,3,5,10})do
ui.radio(w,x+20+(i-1)*7,y,st.cfg.keep==n,tostring(n),function()st.cfg.keep=n;B.save(st.cfg)end)
end
y=y+2
gfx.text(x,y,"Snapshots",t.fg)
y=y+1
for i,s in ipairs(snaps)do
if y>=ch then break end
local info=B.info(st.cfg.dst,s)
ui.round(x,y,pw,1,t.card)
gfx.text(x+1,y,(s:gsub("_","  ")),t.fg,t.card)
gfx.text(x+24,y,(info.files or"?").." files, "..ui.size(info.bytes or 0),t.dim,t.card)
ui.button(w,x+pw-22,y,"Restore…",function()
Y.dialog{title="Restore "..s.."?",text="Restore into the original folder (files are overwritten)\nor into a new folder next to it.",
buttons={{"Cancel"},{"New Folder",function()
local into=st.cfg.src.."/Restored "..s
job("Restore",function(p)return B.restore(st.cfg.dst,s,into,p)end)
end},{"Overwrite",function()
job("Restore",function(p)return B.restore(st.cfg.dst,s,info.src or st.cfg.src,p)end)
end,"destructive"}}}
end,"flat",10)
ui.button(w,x+pw-11,y,"Delete",function()
Y.dialog{title="Delete snapshot "..s.."?",buttons={{"Cancel"},{"Delete",function()
fs.remove(fs.concat(st.cfg.dst,"Backups",s))end,"destructive"}}}
end,"flat",9)
y=y+2
end
gfx.text(x,ch,"Tip: schedule `backup` in Scheduled Tasks for automatic backups.",t.dim)
end
function win.cleanup()if not st.job then package.loaded["yaru.backuplib"]=nil end end
function win.onSignal(name)if name=="component_added"or name=="component_removed"then Y.redraw(win)end end
return win
end

return M
F 28969 /usr/share/yaru/apps/battleship.lua










local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local serialization=require("serialization")
local M={}

local floor,min,max,abs,random=math.floor,math.min,math.max,math.abs,math.random
local N=10
local PORT=7790
local TAG="yaru-sea"
local STATS="/home/.config/battleship.cfg"
local RULES={
classic={name="Classic",fleet={4,3,3,2,2,2,1,1,1,1},touch=false,again=true},
intl={name="International",fleet={5,4,3,3,2},touch=true,again=false},
}
local SHIPNAMES={[5]="carrier",[4]="battleship",[3]="cruiser",[2]="destroyer",[1]="boat"}
local LETTERS="ABCDEFGHIJ"


local SEA,DOT,WAVE=0x002440,0x0A3A60,0x24609A
local HULL,DECK,WRECK=0x9AA1AA,0x6E747C,0x4A2A22
local MISS,HIT1,HIT2=0xD8ECFF,0xFF7A1A,0xFFE040


local function newBoard()
return{ships={},grid={},shots={}}
end
local function idx(x,y)return y*N+x+1 end
local function shipCells(x,y,len,horiz)
local c={}
for i=0,len-1 do c[#c+1]=horiz and{x+i,y}or{x,y+i}end
return c
end
local function canPlace(b,cells,touch,ignore)
for _,c in ipairs(cells)do
if c[1]<0 or c[2]<0 or c[1]>=N or c[2]>=N then return false end
for dy=touch and 0 or-1,touch and 0 or 1 do
for dx=touch and 0 or-1,touch and 0 or 1 do
local x,y=c[1]+dx,c[2]+dy
if x>=0 and y>=0 and x<N and y<N then
local s=b.grid[idx(x,y)]
if s and s~=ignore then return false end
end
end
end
end
return true
end
local function addShip(b,cells)
local ship={cells=cells,len=#cells,hits=0}
b.ships[#b.ships+1]=ship
for _,c in ipairs(cells)do b.grid[idx(c[1],c[2])]=ship end
return ship
end
local function removeShip(b,ship)
for i,s in ipairs(b.ships)do if s==ship then table.remove(b.ships,i)break end end
for _,c in ipairs(ship.cells)do b.grid[idx(c[1],c[2])]=nil end
end
local function randomFleet(rules)
for _=1,200 do
local b=newBoard()
local ok=true
for _,len in ipairs(rules.fleet)do
local placed=false
for _=1,300 do
local horiz=random()<0.5
local x,y=random(0,horiz and N-len or N-1),random(0,horiz and N-1 or N-len)
local cells=shipCells(x,y,len,horiz)
if canPlace(b,cells,rules.touch)then addShip(b,cells);placed=true;break end
end
if not placed then ok=false break end
end
if ok then return b end
end
return newBoard()
end

local function fire(b,x,y)
local k=idx(x,y)
if b.shots[k]then return nil end
local s=b.grid[k]
if not s then b.shots[k]="miss"return"miss"end
b.shots[k]="hit"
s.hits=s.hits+1
if s.hits>=s.len then
s.sunk=true
for _,c in ipairs(s.cells)do b.shots[idx(c[1],c[2])]="sunk"end
return"sunk",s
end
return"hit",s
end
local function allSunk(b)
for _,s in ipairs(b.ships)do if not s.sunk then return false end end
return#b.ships>0
end


local function newView()return{marks={},sunk={}}end
local function markSunk(v,cells,rules)
v.sunk[#v.sunk+1]=#cells
for _,c in ipairs(cells)do v.marks[idx(c[1],c[2])]="sunk"end
if not rules.touch then
for _,c in ipairs(cells)do
for dy=-1,1 do for dx=-1,1 do
local x,y=c[1]+dx,c[2]+dy
if x>=0 and y>=0 and x<N and y<N and not v.marks[idx(x,y)]then v.marks[idx(x,y)]="near"end
end end
end
end
end


local function aiShot(v,rules,level)
local free={}
for y=0,N-1 do for x=0,N-1 do if not v.marks[idx(x,y)]then free[#free+1]={x,y}end end end
if#free==0 then return 0,0 end
if level=="easy"then local c=free[random(#free)]return c[1],c[2]end

local hits={}
for y=0,N-1 do for x=0,N-1 do if v.marks[idx(x,y)]=="hit"then hits[#hits+1]={x,y}end end end
local function open(x,y)return x>=0 and y>=0 and x<N and y<N and not v.marks[idx(x,y)]end
if level=="normal"then
if#hits>0 then

local cands={}
if#hits>=2 then
local horiz=hits[1][2]==hits[2][2]
table.sort(hits,function(a,b)return horiz and a[1]<b[1]or(not horiz and a[2]<b[2])end)
local a,b=hits[1],hits[#hits]
if horiz then cands={{a[1]-1,a[2]},{b[1]+1,b[2]}}else cands={{a[1],a[2]-1},{b[1],b[2]+1}}end
else
local h=hits[1]
cands={{h[1]+1,h[2]},{h[1]-1,h[2]},{h[1],h[2]+1},{h[1],h[2]-1}}
end
local ok={}
for _,c in ipairs(cands)do if open(c[1],c[2])then ok[#ok+1]=c end end
if#ok>0 then local c=ok[random(#ok)]return c[1],c[2]end
end

local par={}
for _,c in ipairs(free)do if(c[1]+c[2])%2==0 then par[#par+1]=c end end
local c=(#par>0 and par or free)[random(#par>0 and#par or#free)]
return c[1],c[2]
end

local remaining={}
local sunkCount={}
for _,l in ipairs(v.sunk)do sunkCount[l]=(sunkCount[l]or 0)+1 end
for _,l in ipairs(rules.fleet)do
if(sunkCount[l]or 0)>0 then sunkCount[l]=sunkCount[l]-1 else remaining[#remaining+1]=l end
end
local score={}
for _,len in ipairs(remaining)do
for horiz=0,1 do
for y=0,N-1 do
for x=0,N-1 do
local fits,covers=true,0
for i=0,len-1 do
local cx,cy=horiz==1 and x+i or x,horiz==1 and y or y+i
if cx>=N or cy>=N then fits=false break end
local m=v.marks[idx(cx,cy)]
if m=="hit"then covers=covers+1 elseif m then fits=false break end
end
if fits then
local wgt=covers>0 and 30*covers or 1
for i=0,len-1 do
local cx,cy=horiz==1 and x+i or x,horiz==1 and y or y+i
local k=idx(cx,cy)
if not v.marks[k]then score[k]=(score[k]or 0)+wgt end
end
end
end
end
end
end
local best,bs={},-1
for _,c in ipairs(free)do
local s=score[idx(c[1],c[2])]or 0
if s>bs then best,bs={c},s elseif s==bs then best[#best+1]=c end
end
local c=best[random(#best)]
return c[1],c[2]
end


local function loadStats()
local f=io.open(STATS)
if not f then return{}end
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
return ok and type(t)=="table"and t or{}
end
local function saveStats(t)
fs.makeDirectory(fs.path(STATS))
local f=io.open(STATS,"w")
if f then f:write(serialization.serialize(t));f:close()end
end

function M.open()
local existing=Y.windowsOf("battleship")[1]
if existing then Y.focusWin(existing)return existing end
local win=Y.newWindow{app="battleship",title="Battleship",w=136,h=44,minW=64,minH=24}
local stats=loadStats()
local st={screen="menu",rules=stats.rules or"classic",level=stats.level or"normal",anims={},log={},
nick=stats.nick or os.getenv("HOSTNAME")or("pc-"..computer.address():sub(1,4)),hosts={}}
local modem=component.isAvailable("modem")and component.modem or nil
local tunnel=component.isAvailable("tunnel")and component.tunnel or nil
if modem then pcall(modem.open,PORT)end

local function R()return RULES[st.rules]end
local function say(s,kind)table.insert(st.log,1,{s,kind});if#st.log>6 then table.remove(st.log)end end
local function anim(board,x,y,kind)st.anims[#st.anims+1]={board=board,x=x,y=y,kind=kind,t0=computer.uptime()}end


local function send(addr,...)
if st.via=="tunnel"and tunnel then return pcall(tunnel.send,TAG,...)end
if modem and addr then return pcall(modem.send,addr,PORT,TAG,...)end
end
local function broadcast(...)
if modem then pcall(modem.broadcast,PORT,TAG,...)end
if tunnel then pcall(tunnel.send,TAG,...)end
end


local function newGame(mode,peer)
st.mode=mode
st.peer=peer
st.me=newBoard()
st.view=newView()
st.enemy=mode=="ai"and randomFleet(R())or nil
st.aiView=newView()
st.dock={}
for _,l in ipairs(R().fleet)do st.dock[#st.dock+1]=l end
st.horiz=true
st.drag=nil
st.ready,st.peerReady=false,false
st.turn=nil
st.shots,st.hitsMade=0,0
st.anims,st.log={},{}
st.over=nil
st.screen="place"
st.started=computer.uptime()
end
local function startBattle(first)
st.screen="battle"
st.turn=first
say(first=="me"and"You start — fire at the enemy sea!"or"The enemy starts…","info")
if first=="enemy"and st.mode=="ai"then st.aiAt=computer.uptime()+0.9 end
end
local function finish(win_)
st.over={win=win_,time=computer.uptime()-st.started}
st.turn=nil
local key=(st.mode=="ai"and("ai_"..st.level)or"net")
stats[key]=stats[key]or{0,0}
stats[key][win_ and 1 or 2]=stats[key][win_ and 1 or 2]+1
saveStats(stats)
if win_ then
st.confetti={}
for i=1,70 do st.confetti[i]={random(),-random()*0.6,(random()-0.5)*0.25,0.25+random()*0.45,random(1,6)}end
end
end
local function ready()
if#st.dock>0 then return end
st.ready=true
if st.mode=="ai"then startBattle(random()<0.5 and"me"or"enemy")
else
send(st.peer.addr,"ready")
if st.peerReady and st.peer.host==false then

local first=random()<0.5
send(st.peer.addr,"start",first and"you"or"me")
startBattle(first and"enemy"or"me")
end
end
end

local function shoot(x,y)
if st.turn~="me"or st.view.marks[idx(x,y)]or st.waiting then return end
st.shots=st.shots+1
if st.mode=="ai"then
local res,ship=fire(st.enemy,x,y)
st.view.marks[idx(x,y)]=res=="miss"and"miss"or"hit"
if res=="sunk"then markSunk(st.view,ship.cells,R())end
anim("enemy",x,y,res=="miss"and"splash"or"boom")
if res~="miss"then st.hitsMade=st.hitsMade+1 end
say(LETTERS:sub(x+1,x+1)..(y+1)..": "..(res=="miss"and"miss"or res=="hit"and"hit!"or("sunk a "..SHIPNAMES[ship.len].."!")),res)
if allSunk(st.enemy)then return finish(true)end
if res=="miss"or not R().again then st.turn="enemy";st.aiAt=computer.uptime()+0.9 end
else
st.waiting={x,y}
send(st.peer.addr,"shot",x,y)
end
end

local function incoming(x,y)
local res,ship=fire(st.me,x,y)
if not res then return"miss"end
anim("me",x,y,res=="miss"and"splash"or"boom")
say("Enemy "..LETTERS:sub(x+1,x+1)..(y+1)..": "..(res=="miss"and"missed"or res=="hit"and"hit your ship"or("sank your "..SHIPNAMES[ship.len])),res=="miss"and"info"or"bad")
return res,ship
end
local function aiTurn()
local x,y=aiShot(st.aiView,R(),st.level)
local res,ship=incoming(x,y)
st.aiView.marks[idx(x,y)]=res=="miss"and"miss"or"hit"
if res=="sunk"then markSunk(st.aiView,ship.cells,R())end
if allSunk(st.me)then

for _,s in ipairs(st.enemy.ships)do s.reveal=true end
return finish(false)
end
if res=="miss"or not R().again then st.turn="me"else st.aiAt=computer.uptime()+0.8 end
end


function win.onSignal(name,_,from,port,_,tag,kind,a,b,c,d,e)
if name~="modem_message"or tag~=TAG then return end
if kind=="find"and st.hosting then
send(from,"host",st.nick,st.rules)
elseif kind=="host"then
st.hosts[from]={addr=from,nick=tostring(a),rules=RULES[b]and b or"classic",t=computer.uptime()}
elseif kind=="join"and st.hosting then
st.hosting=false
st.rules=st.rules
send(from,"accept",st.nick,st.rules)
newGame("net",{addr=from,nick=tostring(a),host=false})
say(tostring(a).." joined your game","info")
Y.notify("Battleship",tostring(a).." joined — place your fleet")
elseif kind=="join"then
send(from,"busy")
elseif kind=="accept"and st.joining==from then
st.joining=nil
st.rules=RULES[b]and b or"classic"
newGame("net",{addr=from,nick=tostring(a),host=true})
elseif kind=="busy"and st.joining==from then
st.joining=nil
Y.notify("Battleship","That game has already started")
elseif not st.peer or from~=st.peer.addr then
return
elseif kind=="ready"then
st.peerReady=true
if st.ready and st.peer.host==false then
local first=random()<0.5
send(from,"start",first and"you"or"me")
startBattle(first and"enemy"or"me")
end
elseif kind=="start"then
startBattle(a=="you"and"me"or"enemy")
elseif kind=="shot"and st.screen=="battle"then
local x,y=tonumber(a),tonumber(b)
local res,ship=incoming(x,y)
local cells=""
if res=="sunk"then
local t={}
for _,cc in ipairs(ship.cells)do t[#t+1]=cc[1]..","..cc[2]end
cells=table.concat(t,";")
end
local lost=allSunk(st.me)
send(from,"result",x,y,res,cells,lost)
if lost then finish(false)
elseif res=="miss"or not R().again then st.turn="me"end
elseif kind=="result"and st.waiting then
local x,y,res=tonumber(a),tonumber(b),tostring(c)
st.waiting=nil
st.view.marks[idx(x,y)]=res=="miss"and"miss"or"hit"
if res=="sunk"then
local cells={}
for px,py in tostring(d):gmatch("(%d+),(%d+)")do cells[#cells+1]={tonumber(px),tonumber(py)}end
markSunk(st.view,cells,R())
st.view.wrecks=st.view.wrecks or{}
st.view.wrecks[#st.view.wrecks+1]=cells
end
anim("enemy",x,y,res=="miss"and"splash"or"boom")
if res~="miss"then st.hitsMade=st.hitsMade+1 end
say(LETTERS:sub(x+1,x+1)..(y+1)..": "..(res=="miss"and"miss"or res=="hit"and"hit!"or"sunk!"),res)
if e==true then return finish(true)end
if res=="miss"or not R().again then st.turn="enemy"end
elseif kind=="won"then
finish(true)
elseif kind=="bye"then
if st.screen~="menu"and not st.over then
Y.notify("Battleship",st.peer.nick.." left the game")
st.over={win=true,left=true,time=computer.uptime()-(st.started or computer.uptime())}
st.turn=nil
end
end
end


local geo={}
local function cellRect(b,x,y)
local s=b.k*2
return b.px+x*s,b.py+y*s,s
end
local function drawSea(b)
local phase=floor(computer.uptime()*1.5)
for y=0,N-1 do
for x=0,N-1 do
local px,py,s=cellRect(b,x,y)
gfx.prect(px,py,s,s,SEA)
if s>=4 then gfx.pset(px,py,DOT)end
if b.k>=2 and(x*3+y*5+phase)%9==0 then
gfx.text(px+1,(py+1)//2+(s>=6 and 1 or 0),"~",WAVE,SEA)
end
end
end

local t=Y.theme
for x=0,N-1 do
local px=b.px+x*b.k*2+b.k-1
gfx.text(px,b.cy-1,LETTERS:sub(x+1,x+1),t.dim,t.view)
end
for y=0,N-1 do
local cy=b.cy+y*b.k+(b.k-1)//2
local s=tostring(y+1)
gfx.text(b.cx-#s-1,cy,s,t.dim,t.view)
end
end
local function drawShip(b,cells,color,deck)
local x1,y1,x2,y2=N,N,-1,-1
for _,c in ipairs(cells)do x1,y1,x2,y2=min(x1,c[1]),min(y1,c[2]),max(x2,c[1]),max(y2,c[2])end
local px1,py1,s=cellRect(b,x1,y1)
local px2,py2=cellRect(b,x2,y2)
local inset=s>=4 and 1 or 0
local w,h=px2+s-px1-2*inset,py2+s-py1-2*inset
if s>=4 then gfx.prrect(px1+inset,py1+inset,w,h,color)else gfx.prect(px1,py1,w,h,color)end
if deck and s>=4 then
if w>h then gfx.prect(px1+inset+2,py1+inset+h//2,w-4,1,deck)
else gfx.prect(px1+inset+w//2,py1+inset+2,1,h-4,deck)end
end
end
local function drawMark(b,x,y,m)
local px,py,s=cellRect(b,x,y)
local c=s//2
if m=="miss"then
local d=s>=6 and 2 or 1
gfx.prect(px+c-d//2,py+c-d//2,d,d,MISS)
elseif m=="near"then
if s>=6 then gfx.pset(px+c,py+c,0x1E4A6A)end
elseif m=="hit"or m=="sunk"then
local flick=floor(computer.uptime()*6+x+y)%2==0
if s>=4 then
gfx.prect(px,py,s,s,m=="sunk"and 0x6A1A0A or 0xC03010)
local d=s>=6 and 2 or 2
gfx.prect(px+c-1,py+c-1,d,d,m=="sunk"and 0x2A0A04 or(flick and HIT2 or HIT1))
else
gfx.prect(px,py,s,s,m=="sunk"and 0x6A1A0A or(flick and HIT1 or HIT2))
end
end
end
local function drawAnims(which,b)
local now=computer.uptime()
for i=#st.anims,1,-1 do
local a=st.anims[i]
local age=now-a.t0
if age>0.7 then table.remove(st.anims,i)
elseif a.board==which then
local px,py,s=cellRect(b,a.x,a.y)
local cx,cy=px+s//2,py+s//2
local r=floor(age/0.7*(s+2))+1
local col=a.kind=="splash"and MISS or(floor(age*12)%2==0 and HIT2 or HIT1)
if a.kind=="boom"then
gfx.prect(cx-r//2-1,cy-r//2-1,r+2,r+2,col)
else
for _,d in ipairs({{-r,0},{r,0},{0,-r},{0,r},{-r+1,-r+1},{r-1,-r+1},{-r+1,r-1},{r-1,r-1}})do
gfx.pset(cx+d[1],cy+d[2],col)
end
end
end
end
end
local function boardGeo(cx,cy,k)
return{cx=cx,cy=cy,k=k,px=cx,py=2*cy-1,w=N*2*k,h=N*k}
end
local function cellAt(b,lx,ly)
if not b then return end
local x=(lx-b.cx)//(2*b.k)
local y=(ly-b.cy)//b.k
if x<0 or y<0 or x>=N or y>=N then return end
return x,y
end

local function drawFleet(x,y,sizes,sunk,color)
local t=Y.theme
local left={}
for _,l in ipairs(sunk or{})do left[l]=(left[l]or 0)+1 end
local px=x
for _,l in ipairs(sizes)do
local gone=(left[l]or 0)>0
if gone then left[l]=left[l]-1 end
if gone then gfx.prect(px,2*y,l*2,1,0x8A2A10)else gfx.prect(px,2*y-1,l*2,2,color)end
px=px+l*2+1
end
return px
end


local function pixText(x,y,text,color,scale)
local okP,pf=pcall(require,"yaru.pixfont")
if not okP then return end
scale=scale or 1
pf.draw(text,"normal",function(px,py)
gfx.prect(x+px*scale,2*y-1+py*scale,scale,scale,color)
end)
end
local function seaBackground(cw,ch)
for y=1,ch do
local f=y/ch
local c=floor(0x0B*(1-f)+0x04*f)<<16|floor(0x34*(1-f)+0x14*f)<<8|floor(0x5A*(1-f)+0x2A*f)
gfx.fill(1,y,cw,1,c)
end
local phase=floor(computer.uptime()*2)
for y=3,ch,3 do
for x=1,cw,7 do
if(x*13+y*7+phase)%5==0 then gfx.text(x+(y%2)*3,y,"~",0x2A6A94)end
end
end
end
local function shipArt(x,y)

local hull={"..####################..","...##################...","....################...."}
local top={"..........###.........",".........#####..##....","......###########....."}
for r,row in ipairs(top)do
for i=1,#row do if row:sub(i,i)=="#"then gfx.pset(x+i+1,y+r-1,0x8A9098)end end
end
for r,row in ipairs(hull)do
for i=1,#row do if row:sub(i,i)=="#"then gfx.pset(x+i-1,y+2+r,r==1 and 0xB0B6BE or 0x6E747C)end end
end
end


local function drawMenu(w,cw,ch)
local t=Y.theme
seaBackground(cw,ch)
local title="BATTLESHIP"
local okP,pf=pcall(require,"yaru.pixfont")
local tw=okP and pf.width(title,"normal")*2 or 20
local tx=(cw-tw)//2
pixText(tx+1,3,title,0x0A1A2A,2)
pixText(tx,3,title,0xFFFFFF,2)
shipArt((cw-24)//2,2*11)
local cwid,chh=56,15
local x,y=(cw-cwid)//2,16
ui.card(x,y,cwid,chh,t.card)
local yy=y+1
gfx.text(x+3,yy,"Rules",t.dim,t.card)
local px=x+14
for _,key in ipairs({"classic","intl"})do
local on=st.rules==key
local lbl=RULES[key].name
local wd=unicode.len(lbl)+2
if on then ui.pill(px,yy,wd,t.accent)end
gfx.text(px+1,yy,lbl,on and t.accentFg or t.fg,on and t.accent or t.card)
ui.hit(w,px,yy,wd,1,function()st.rules=key;stats.rules=key;saveStats(stats)end)
px=px+wd+1
end
yy=yy+1
local r=RULES[st.rules]
local desc=table.concat(r.fleet,"-")..(r.touch and" · ships may touch"or" · ships never touch")..(r.again and" · a hit shoots again"or"")
gfx.text(x+3,yy,ui.trunc(desc,cwid-6),t.dim,t.card)
yy=yy+2
gfx.text(x+3,yy,"Computer",t.dim,t.card)
px=x+14
for _,lv in ipairs({{"easy","Easy"},{"normal","Normal"},{"hard","Hard"}})do
local on=st.level==lv[1]
local wd=unicode.len(lv[2])+2
if on then ui.pill(px,yy,wd,t.accent)end
gfx.text(px+1,yy,lv[2],on and t.accentFg or t.fg,on and t.accent or t.card)
ui.hit(w,px,yy,wd,1,function()st.level=lv[1];stats.level=lv[1];saveStats(stats)end)
px=px+wd+1
end
yy=yy+2
ui.button(w,x+3,yy,"▶ Play vs Computer",function()newGame("ai")end,"suggested",cwid-6)
yy=yy+2
local net=modem or tunnel
ui.button(w,x+3,yy,net and"⇄ Play over Network"or"⇄ Network (no network card)",net and function()st.screen="lobby";st.findAt=0 end or nil,nil,cwid-6)
yy=yy+2
local s=stats["ai_"..st.level]or{0,0}
local sn=stats.net or{0,0}
gfx.text(x+3,yy,ui.trunc(string.format("vs %s computer: %d won · %d lost   network: %d · %d",st.level,s[1],s[2],sn[1],sn[2]),cwid-6),t.dim,t.card)
end

local function drawLobby(w,cw,ch)
local t=Y.theme
seaBackground(cw,ch)
local cwid,chh=60,ch-6
local x,y=(cw-cwid)//2,3
ui.card(x,y,cwid,chh,t.card)
gfx.text(x+3,y,"Network game",t.fg,t.card)
ui.button(w,x+cwid-11,y,"Back",function()st.screen="menu";st.hosting=false;st.joining=nil end,nil,8)
local yy=y+2
gfx.text(x+3,yy,"Your name",t.dim,t.card)
ui.button(w,x+15,yy,st.nick,function()
Y.dialog{title="Your Name",entry=st.nick,buttons={{"Cancel"},{"OK",function(s)if s and s~=""then st.nick=s:sub(1,16);stats.nick=st.nick;saveStats(stats)end end,"suggested"}}}
end,"flat")
yy=yy+1
gfx.text(x+3,yy,"Rules",t.dim,t.card)
gfx.text(x+15,yy,RULES[st.rules].name.." (change in the menu)",t.fg,t.card)
yy=yy+2
if st.hosting then
local dots=string.rep("•",floor(computer.uptime()*2)%4)
gfx.text(x+3,yy,"Waiting for a player"..dots,t.accent,t.card)
ui.button(w,x+cwid-15,yy,"Stop",function()st.hosting=false end,nil,12)
else
ui.button(w,x+3,yy,"Host a Game",function()st.hosting=true;st.hostAt=0 end,"suggested",20)
gfx.text(x+25,yy,"others will see it in their list",t.dim,t.card)
end
yy=yy+2
gfx.text(x+3,yy,"Games nearby",t.dim,t.card)
yy=yy+1
local list={}
for _,h in pairs(st.hosts)do list[#list+1]=h end
table.sort(list,function(a,b)return a.nick<b.nick end)
if#list==0 then
gfx.text(x+3,yy,"Looking for games"..string.rep(".",floor(computer.uptime()*2)%4),t.dim,t.card)
end
for _,h in ipairs(list)do
if yy>y+chh-3 then break end
gfx.text(x+3,yy,"⚑ "..ui.trunc(h.nick,18),t.fg,t.card)
gfx.text(x+24,yy,RULES[h.rules].name,t.dim,t.card)
local joining=st.joining==h.addr
ui.button(w,x+cwid-13,yy,joining and"…"or"Join",not joining and function()
st.joining=h.addr
send(h.addr,"join",st.nick)
end or nil,"suggested",10)
yy=yy+1
end
gfx.text(x+3,y+chh-1,ui.trunc((modem and"Network card · port "..PORT or"Linked card").." · both computers need Battleship open",cwid-6),t.dim,t.card)
end

local function drawPlace(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,ch,t.view)
local k=max(1,min(3,(cw-44)//20,(ch-6)//10))
local b=boardGeo(5,3,k)
geo.me,geo.enemy=b,nil
gfx.text(5,1,st.mode=="net"and("Place your fleet · playing "..st.peer.nick)or"Place your fleet",t.fg,t.view)
drawSea(b)
for _,s in ipairs(st.me.ships)do drawShip(b,s.cells,HULL,DECK)end

if st.drag and st.ghost then
local cells=shipCells(st.ghost[1],st.ghost[2],st.drag.len,st.horiz)
local ok=canPlace(st.me,cells,R().touch)
for _,c in ipairs(cells)do
if c[1]>=0 and c[2]>=0 and c[1]<N and c[2]<N then
local px,py,s=cellRect(b,c[1],c[2])
gfx.prect(px+1,py+1,s-2,s-2,ok and 0x40D070 or 0xE04040)
end
end
end

local dx=b.cx+b.w+4
local dw=cw-dx-1
gfx.text(dx,3,"Ships to place",t.dim,t.view)
local yy=5
st.dockHits={}
for i,len in ipairs(st.dock)do
local sel=st.drag and st.drag.dockIndex==i
local s=min(2*k,4)
local py=2*yy-1
if sel then gfx.fill(dx-1,yy,dw,max(1,s//2+1),t.dark and 0x303040 or 0xDDE4EE)end
gfx.prrect(dx,py,len*s*2,s,sel and t.accent or HULL)
gfx.text(dx+len*s*2+2,yy,SHIPNAMES[len],t.dim,sel and(t.dark and 0x303040 or 0xDDE4EE)or t.view)
st.dockHits[#st.dockHits+1]={dx-1,yy,dw,max(1,s//2+1),i}
yy=yy+max(1,s//2)+1
end
if#st.dock==0 then gfx.text(dx,yy,"All ships placed!",t.success,t.view);yy=yy+1 end
yy=yy+1
local bx=dx
bx=bx+ui.button(w,bx,yy,st.horiz and"⇆ Horizontal"or"⇵ Vertical",function()st.horiz=not st.horiz end)+1
yy=yy+2
bx=dx
bx=bx+ui.button(w,bx,yy,"Random",function()
st.me=randomFleet(R())
st.dock={}
st.drag=nil
end)+1
ui.button(w,bx,yy,"Clear",function()
st.me=newBoard()
st.dock={}
for _,l in ipairs(R().fleet)do st.dock[#st.dock+1]=l end
end)
yy=yy+2
if st.ready then
gfx.text(dx,yy,st.mode=="net"and("Waiting for "..st.peer.nick.."…")or"Ready",t.accent,t.view)
else
ui.button(w,dx,yy,"Ready ▶",#st.dock==0 and ready or nil,#st.dock==0 and"suggested"or nil,14)
end
yy=yy+2
local tips={"Drag a ship onto the sea,","or click it, then click the sea.","R or right click turns a ship.",
R().touch and"Ships may touch."or"Ships may not touch, not even corners."}
for _,s in ipairs(tips)do if yy<ch-1 then gfx.text(dx,yy,ui.trunc(s,dw),t.dim,t.view);yy=yy+1 end end
if st.mode=="net"and st.peerReady then gfx.text(dx,ch-1,ui.trunc(st.peer.nick.." is ready",dw),t.success,t.view)end
ui.button(w,cw-10,1,"Menu",function()if st.mode=="net"then send(st.peer.addr,"bye")end st.screen="menu"end,nil,8)
end

local function drawBattle(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,ch,t.view)
local k=max(1,min(3,(cw-14)//40,(ch-10)//10))
local bw=N*2*k
local gap=max(6,(cw-2*bw-8)//3)
local x1=4+(cw-2*bw-8-gap)//2
local x2=x1+bw+gap+4
local by=4
local mine,theirs=boardGeo(x1,by,k),boardGeo(x2,by,k)
geo.me,geo.enemy=mine,theirs

local banner,bc
if st.over then banner,bc=st.over.win and"Victory!"or"Defeat",st.over.win and t.success or t.danger
elseif st.turn=="me"then banner,bc=st.waiting and"Firing…"or"Your turn — fire!",t.accent
elseif st.mode=="net"then banner,bc=st.peer.nick.." is aiming…",t.dim
else banner,bc="The enemy is aiming…",t.dim end
ui.pill((cw-unicode.len(banner)-4)//2,1,unicode.len(banner)+4,bc)
gfx.text((cw-unicode.len(banner))//2,1,banner,0xFFFFFF,bc)
ui.button(w,cw-10,1,"Menu",function()
if st.mode=="net"and not st.over then send(st.peer.addr,"bye")end
st.screen="menu"
end,nil,8)
gfx.text(x1,by-2,"Your fleet",t.fg,t.view)
gfx.text(x2,by-2,st.mode=="net"and(st.peer.nick.."'s sea")or"Enemy sea",t.fg,t.view)

drawSea(mine)
for _,s in ipairs(st.me.ships)do drawShip(mine,s.cells,s.sunk and WRECK or HULL,not s.sunk and DECK)end
for kk,m in pairs(st.me.shots)do drawMark(mine,(kk-1)%N,(kk-1)//N,m)end
drawAnims("me",mine)

drawSea(theirs)
if st.mode=="ai"then
for _,s in ipairs(st.enemy.ships)do
if s.sunk then drawShip(theirs,s.cells,WRECK)elseif s.reveal then drawShip(theirs,s.cells,0x5E646C)end
end
else
for _,cells in ipairs(st.view.wrecks or{})do drawShip(theirs,cells,WRECK)end
end
for kk,m in pairs(st.view.marks)do drawMark(theirs,(kk-1)%N,(kk-1)//N,m)end
if st.waiting then
local px,py,s=cellRect(theirs,st.waiting[1],st.waiting[2])
gfx.prect(px+1,py+1,s-2,s-2,0xFFFFFF)
end
drawAnims("enemy",theirs)

local fy=by+N*k+1
local mySunk={}
for _,s in ipairs(st.me.ships)do if s.sunk then mySunk[#mySunk+1]=s.len end end
drawFleet(x1,fy,R().fleet,mySunk,HULL)
drawFleet(x2,fy,R().fleet,st.view.sunk,0xC0C6CE)

local ly=fy+2
for i,e in ipairs(st.log)do
if ly+i-1>=ch then break end
local c=e[2]=="sunk"and t.success or e[2]=="hit"and t.warning or e[2]=="bad"and t.danger or t.dim
gfx.text(x1,ly+i-1,ui.trunc(e[1],cw-x1-2),i==1 and c or t.dim,t.view)
end
local acc=st.shots>0 and floor(st.hitsMade*100/st.shots)or 0
local info=string.format("shots %d · hits %d · %d%%",st.shots,st.hitsMade,acc)
gfx.text(x2+bw-unicode.len(info),ly,info,t.dim,t.view)
end

local function drawOver(w,cw,ch)
local t=Y.theme
local o=st.over
local cwid,chh=40,9
local x,y=(cw-cwid)//2,(ch-chh)//2
ui.card(x,y,cwid,chh,t.card)
local title=o.left and"Your opponent left"or(o.win and"Victory!"or"Defeat")
gfx.text(x+(cwid-unicode.len(title))//2,y+1,title,o.win and t.success or t.danger,t.card)
local acc=st.shots>0 and floor(st.hitsMade*100/st.shots)or 0
local line=string.format("%d shots · %d hits · %d%% · %d:%02d",st.shots,st.hitsMade,acc,floor(o.time)//60,floor(o.time)%60)
gfx.text(x+(cwid-unicode.len(line))//2,y+3,line,t.dim,t.card)
ui.button(w,x+3,y+6,"Play Again",function()
if st.mode=="ai"then newGame("ai")else st.screen="lobby"end
st.over,st.confetti=nil,nil
end,"suggested",16)
ui.button(w,x+cwid-19,y+6,"Menu",function()st.screen="menu";st.over,st.confetti=nil,nil end,nil,16)

if st.confetti then
local cols={0xFF4040,0xFFD040,0x40E070,0x40A0FF,0xE060FF,0xFFFFFF}
local W,H=cw,ch*2
for _,p in ipairs(st.confetti)do
local px,py=floor(p[1]*W),floor(p[2]*H)
if py>=0 and py<H then gfx.pset(px+1,py+1,cols[p[5]])end
end
end
end

function win.draw(w,cw,ch)
if st.screen=="menu"then drawMenu(w,cw,ch)
elseif st.screen=="lobby"then drawLobby(w,cw,ch)
elseif st.screen=="place"then drawPlace(w,cw,ch)
else
drawBattle(w,cw,ch)
if st.over then drawOver(w,cw,ch)end
end
end


local function placeAt(x,y)
local d=st.drag
if not d then return false end
local cells=shipCells(x,y,d.len,st.horiz)
if not canPlace(st.me,cells,R().touch)then return false end
addShip(st.me,cells)
if d.dockIndex then table.remove(st.dock,d.dockIndex)end
st.drag,st.ghost=nil,nil
return true
end
function win.touch(w,lx,ly,btn,kind)
if st.screen=="place"then
local x,y=cellAt(geo.me,lx,ly)
if kind=="touch"then

for _,h in ipairs(st.dockHits or{})do
if lx>=h[1]and lx<h[1]+h[3]and ly>=h[2]and ly<h[2]+h[4]then
st.drag={len=st.dock[h[5]],dockIndex=h[5]}
st.ghost=nil
return
end
end
if not x then return end
local ship=st.me.grid[idx(x,y)]
if ship and btn==1 then

local horiz=ship.cells[2]and ship.cells[2][2]==ship.cells[1][2]
local cells=shipCells(ship.cells[1][1],ship.cells[1][2],ship.len,not horiz)
if ship.len>1 and canPlace(st.me,cells,R().touch,ship)then
removeShip(st.me,ship)
addShip(st.me,cells)
end
return
end
if ship then

local horiz=ship.len>1 and ship.cells[2][2]==ship.cells[1][2]
st.horiz=ship.len==1 and st.horiz or horiz
removeShip(st.me,ship)
st.dock[#st.dock+1]=ship.len
table.sort(st.dock,function(a,b)return a>b end)
local di
for i,l in ipairs(st.dock)do if l==ship.len then di=i break end end
local off=0
for i,c in ipairs(ship.cells)do if c[1]==x and c[2]==y then off=i-1 end end
st.drag={len=ship.len,dockIndex=di,off=off}
st.ghost={horiz and x-off or x,horiz and y or y-off}
return
end
if st.drag then
if placeAt(x,y)then return end
st.ghost={x,y}
end
elseif kind=="drag"and st.drag then
if x then
local off=st.drag.off or 0
st.ghost={st.horiz and x-off or x,st.horiz and y or y-off}
else st.ghost=nil end
elseif kind=="drop"and st.drag and st.ghost and x then
if placeAt(st.ghost[1],st.ghost[2])then st.drag=nil end
end
return
end
if st.screen=="battle"and kind=="touch"and not st.over then
local x,y=cellAt(geo.enemy,lx,ly)
if x then shoot(x,y)end
end
end
function win.key(w,char,code)
if st.screen=="place"and(char==114 or char==82)then st.horiz=not st.horiz end
if code==Y.K.esc and st.screen=="place"then st.drag,st.ghost=nil,nil end
end

win.tickInterval=0.1
function win.tick(w)
local now=computer.uptime()
if st.screen=="battle"and st.mode=="ai"and st.turn=="enemy"and not st.over and now>=(st.aiAt or 0)then aiTurn()end
if st.screen=="lobby"then
if st.hosting and now>=(st.hostAt or 0)then st.hostAt=now+3;broadcast("host",st.nick,st.rules)end
if not st.hosting and now>=(st.findAt or 0)then st.findAt=now+2;broadcast("find")end
for a,h in pairs(st.hosts)do if now-h.t>8 then st.hosts[a]=nil end end
end
if st.confetti then
for _,p in ipairs(st.confetti)do
p[2]=p[2]+p[4]*0.04
p[1]=(p[1]+p[3]*0.02)%1
if p[2]>1.05 then p[2]=-0.05 end
end
end
Y.redraw(w)
end
function win.cleanup()
if st.peer and st.screen~="menu"and not st.over then send(st.peer.addr,"bye")end
if modem then pcall(modem.close,PORT)end
end

win.api={state=st,newGame=newGame,shoot=shoot,ready=ready,randomFleet=randomFleet,aiShot=aiShot,
rules=RULES,fire=fire,allSunk=allSunk}
return win
end

return M
F 2738 /usr/share/yaru/apps/calc.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local unicode=require("unicode")

local M={}
local KEYS={
{"C","(",")","÷"},{"7","8","9","×"},{"4","5","6","−"},{"1","2","3","+"},{"0",".","⌫","="},
}
local ENV={sqrt=math.sqrt,pi=math.pi,abs=math.abs,floor=math.floor,sin=math.sin,cos=math.cos}

local function evaluate(expr)
local e=expr:gsub("÷","/"):gsub("×","*"):gsub("−","-"):gsub("√","sqrt"):gsub("π","pi")
if e:find("[^%d%.%+%-%*/%%%^%(%)%s%a]")then return nil,"invalid"end
for word in e:gmatch("%a+")do if not ENV[word]then return nil,"invalid"end end
local f=load("return "..e,"=calc","t",ENV)
if not f then return nil,"syntax error"end
local ok,v=pcall(f)
if not ok or type(v)~="number"then return nil,"error"end
if v~=v or v==math.huge or v==-math.huge then return nil,"undefined"end
if math.type(v)=="float"and v==math.floor(v)and math.abs(v)<1e15 then v=math.floor(v)end
local s=tostring(v)
if math.type(v)=="float"then s=string.format("%.10g",v)end
return s
end

function M.open()
local st={expr="",result=nil,history={}}
local win=Y.newWindow{app="calc",title="Calculator",w=34,h=20,fixed=true}
local function press(k)
if k=="C"then st.expr,st.result="",nil
elseif k=="⌫"then st.expr=unicode.sub(st.expr,1,-2)
elseif k=="="then
local r,err=evaluate(st.expr)
if r then
table.insert(st.history,1,st.expr.." = "..r)
st.history[4]=nil
st.expr,st.result=r,nil
else st.result=err end
else
st.expr=st.expr..k
st.result=nil
end
end
function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,5,t.view)
for i=1,2 do
local hline=st.history[3-i]
if hline then gfx.text(cw-1-unicode.len(hline),i,ui.trunc(hline,cw-2),t.dim,t.view)end
end
local e=st.expr==""and"0"or st.expr
gfx.text(math.max(2,cw-1-unicode.len(e)),4,unicode.sub(e,-(cw-3)),t.fg,t.view)
if st.result then gfx.text(2,3,st.result,t.danger,t.view)end
local bw=(cw-3)//4
for r,rowKeys in ipairs(KEYS)do
for c,k in ipairs(rowKeys)do
local x,y=2+(c-1)*(bw+0),6+(r-1)*3
local kind=k=="="and"suggested"or nil
local bg=kind and t.accent or(k:match("%d")or k==".")and t.button or(t.dark and 0x303030 or 0xEBEBEB)
ui.round(x,y,bw-1,2,bg)
gfx.text(x+(bw-1-unicode.len(k))//2,y,k,kind and 0xFFFFFF or t.fg,bg)
ui.hit(w,x,y,bw-1,2,function()press(k)end)
end
end
end
function win.key(w,char,code)
local K=Y.K
if code==K.enter or char==61 then press("=")
elseif code==K.back then press("⌫")
elseif code==K.esc or code==K.del then press("C")
elseif char and char>32 then
local c=unicode.char(char)
local map={["/"]="÷",["*"]="×",["-"]="−"}
c=map[c]or c
if c:match("^[%d%.%(%)%+%^%%a-z]$")or c=="÷"or c=="×"or c=="−"then press(c)end
end
end
function win.paste(w,s)st.expr=st.expr..s:gsub("%s","")end
return win
end

return M
F 32965 /usr/share/yaru/apps/camera.lua















local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local serialization=require("serialization")
local image=require("yaru.image")
local M={}

local floor,sqrt,max,min,abs=math.floor,math.sqrt,math.max,math.min,math.abs
local RANGE=32
local CFG="/etc/yaru-camera.cfg"
local RAYS_PER_TICK=40




local FACES={"N","E","S","W","U","D"}
local FACE_NAME={N="north",E="east",S="south",W="west",U="up",D="down"}
local FACE_V={N={0,0,-1},E={1,0,0},S={0,0,1},W={-1,0,0},U={0,1,0},D={0,-1,0}}
local function camDir(face,x,y)
if face=="E"then return 1,y,-x
elseif face=="N"then return x,y,-1
elseif face=="S"then return-x,y,1
elseif face=="W"then return-1,y,x
elseif face=="D"then return x,-1,y
else return x,1,y end
end

local function camOrigin(r)
local v=FACE_V[r.face]or FACE_V.S
return r.x+0.5+v[1]*0.5,r.y+0.5+v[2]*0.5,r.z+0.5+v[3]*0.5
end




local function demoRay(ox,oy,oz,dx,dy,dz)
local best=math.huge
local function hit(t)if t>0.02 and t<best then best=t end end
local function inRoom(x,z)return x>=-7 and x<=9.5 and z>=-1 and z<=24 end

if dy<0 then local t=(-1-oy)/dy;local x,z=ox+dx*t,oz+dz*t;if inRoom(x,z)then hit(t)end end

local function wallX(xw)if dx~=0 then local t=(xw-ox)/dx;local y,z=oy+dy*t,oz+dz*t
if y>=-1 and y<=6 and z>=-1 and z<=24 then hit(t)end end end
local function wallZ(zw)if dz~=0 then local t=(zw-oz)/dz;local y,x=oy+dy*t,ox+dx*t
if y>=-1 and y<=6 and x>=-7 and x<=9.5 then hit(t)end end end
wallX(-7);wallX(9.5);wallZ(-1);wallZ(24)

local boxes={{2,-1,15,6,0,17},{2,-1,17,6,1,19},{2,-1,19,6,2,21},{-6.5,-1,18,-3.5,3,21}}
if math.floor(computer.uptime()/6)%2==0 then boxes[#boxes+1]={-1,-1,22.5,1,2,23}end
local o,d={ox,oy,oz},{dx,dy,dz}
for _,b in ipairs(boxes)do
local t1,t2,ok=-math.huge,math.huge,true
for a=1,3 do
if abs(d[a])<1e-9 then
if o[a]<b[a]or o[a]>b[a+3]then ok=false end
else
local ta,tb=(b[a]-o[a])/d[a],(b[a+3]-o[a])/d[a]
if ta>tb then ta,tb=tb,ta end
if ta>t1 then t1=ta end
if tb<t2 then t2=tb end
end
end
if ok and t1<=t2 then hit(t1)end
end

do
local px,pz=ox-3,oz-9
local a=dx*dx+dz*dz
if a>0 then
local bq=2*(px*dx+pz*dz)
local c=px*px+pz*pz-1.44
local disc=bq*bq-4*a*c
if disc>=0 then
local t=(-bq-sqrt(disc))/(2*a)
local y=oy+dy*t
if y>=-1 and y<=3.5 then hit(t)end
end
end
end

do
local px,py,pz=ox+2,oy-0.2,oz-7
local a=dx*dx+dy*dy+dz*dz
local bq=2*(px*dx+py*dy+pz*dz)
local c=px*px+py*py+pz*pz-1.44
local disc=bq*bq-4*a*c
if disc>=0 then hit((-bq-sqrt(disc))/(2*a))end
end
if best==math.huge then return-1 end
local dist=best*sqrt(dx*dx+dy*dy+dz*dz)
return dist<=RANGE and dist or-1
end
local DEMO_CAMS={
{addr="demo-a",name="Demo A · room, looking south",rig={x=0,y=0,z=0,face="S",on=true}},
{addr="demo-b",name="Demo B · east wall, looking west",rig={x=8,y=1,z=12,face="W",on=true}},
{addr="demo-c",name="Demo C · ceiling, looking down",rig={x=0,y=5,z=12,face="D",on=true}},
}
local CAM_COLORS={0xFF9240,0x33DBFF,0x99FF40,0xFF49BF,0xFFDB40,0x9249FF,0xFF4940,0x49FFBF}

local function lerp(a,b,f)
return floor(((a>>16)*(1-f)+(b>>16)*f))<<16|floor((((a>>8)&255)*(1-f)+((b>>8)&255)*f))<<8
|floor(((a&255)*(1-f)+(b&255)*f))
end
local function ramp(stops,v)
v=max(0,min(1,v))
local n=#stops-1
local p=v*n
local i=min(n,floor(p))
return lerp(stops[i+1],stops[min(n+1,i+2)],p-i)
end
local function hsv(h,s,v)
local i=floor(h*6)%6
local f=h*6-floor(h*6)
local p,q,t=v*(1-s),v*(1-f*s),v*(1-(1-f)*s)
local r,g,b
if i==0 then r,g,b=v,t,p elseif i==1 then r,g,b=q,v,p elseif i==2 then r,g,b=p,v,t
elseif i==3 then r,g,b=p,q,v elseif i==4 then r,g,b=t,p,v else r,g,b=v,p,q end
return floor(r*255)<<16|floor(g*255)<<8|floor(b*255)
end

local PALETTES={
{"thermal","Thermal",function(l,n)return ramp({0x000000,0x24005A,0x8F0080,0xE0302A,0xFF8C00,0xFFE040,0xFFFFFF},l*0.45+n*0.55)end},
{"night","Night vision",function(l,n)return ramp({0x000800,0x004010,0x10A020,0x60FF60,0xE0FFE0},l*0.7+n*0.3)end},
{"sonar","Sonar",function(l,n)return ramp({0x000010,0x002050,0x0070B0,0x30C0FF,0xE0FFFF},l*0.75+n*0.25)end},
{"rainbow","Rainbow",function(l,n)return hsv((1-n)*0.75,0.85,0.25+0.75*l)end},
{"grey","Greyscale",function(l,n)local g=floor(max(0,min(1,l*0.8+n*0.2))*255)return g<<16|g<<8|g end},
}
local QUALITY={{"draft","Draft",4},{"normal","Normal",2},{"fine","Fine",1}}

local function loadCfg()
local c={palette="thermal",quality="normal",flip=false,watchRes=2,redstone=false,notify=true,
src3="all",color3="photo",view3="orbit"}
local f=io.open(CFG)
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then for k,v in pairs(t)do c[k]=v end end
end
return c
end
local function saveCfg(c)
local f=io.open(CFG,"w")
if f then f:write(serialization.serialize(c));f:close()end
end

function M.open()
local cfg=loadCfg()
cfg.rig=cfg.rig or{}
local win=Y.newWindow{app="camera",title="Depth Camera",w=124,h=40,minW=84,minH=26}
local st={mode="photo",cams={},cam=1,view={cx=0,cy=0,span=1},yaw=0.6,pitch=0.45,zoom3=1.4,
log={},pick=nil,shots={},queue={},test={}}
local SIDE=22
local area={x=SIDE+1,y=1,w=80,h=30}


local function scanCams()
local cur=st.cams[st.cam]and st.cams[st.cam].addr
st.cams={}
for addr in component.list("camera")do st.cams[#st.cams+1]={addr=addr,proxy=component.proxy(addr)}end
table.sort(st.cams,function(a,b)return a.addr<b.addr end)
for _,d in ipairs(DEMO_CAMS)do st.cams[#st.cams+1]={addr=d.addr,demo=true,name=d.name,rig=d.rig}end
st.cam=1
for i,c in ipairs(st.cams)do if c.addr==cur then st.cam=i end end
end
local function current()return st.cams[st.cam]end
local function rigOf(c)
if c.demo then return c.rig end
return cfg.rig[c.addr]
end

local function group()
local cur=current()
local list={}
for _,c in ipairs(st.cams)do
local r=rigOf(c)
if(c.demo==cur.demo)and r and r.on~=false then list[#list+1]=c end
end
return list
end
local function camIndex(c)for i,cc in ipairs(st.cams)do if cc==c then return i end end return 1 end
local function camColor(c)return CAM_COLORS[(camIndex(c)-1)%#CAM_COLORS+1]end
local function camName(c,i)
if c.demo then return c.name end
local r=cfg.rig[c.addr]
return"Camera "..(i or camIndex(c)).." · "..(r and r.name or c.addr:sub(1,8))
end
local function ray(c,x,y)
if cfg.flip then y=-y end
if c.demo then
local r=c.rig
local ox,oy,oz=camOrigin(r)
return demoRay(ox,oy,oz,camDir(r.face,x,y))
end
local ok,d=pcall(c.proxy.distance,x,y)
if not ok or type(d)~="number"then return-1 end
return d
end


local function palette()
for _,p in ipairs(PALETTES)do if p[1]==cfg.palette then return p[3]end end
return PALETTES[1][3]
end
local function qualityStep()
for _,q in ipairs(QUALITY)do if q[1]==cfg.quality then return q[3]end end
return 2
end

local function dirOf(img,i,j)
local m=max(img.w,img.h)
local u=((i+0.5)/img.w*2-1)*(img.w/m)
local v=(1-(j+0.5)/img.h*2)*(img.h/m)
local x=img.view.cx+u*img.view.span
local y=img.view.cy+v*img.view.span
return max(-1,min(1,x)),max(-1,min(1,y))
end
local SKY={}
local function skyColor(j,h)
local k=floor(j*8/max(1,h))
if not SKY[k]then SKY[k]=lerp(0x101820,0x000000,k/8)end
return SKY[k]
end
local function zAt(img,i,j)
if i<0 or j<0 or i>=img.w or j>=img.h then return nil end
local d=img.depth[j*img.w+i+1]
if not d or d<0 then return nil end
local x,y=dirOf(img,i,j)
return d/sqrt(1+x*x+y*y)
end
local function setPixel(img,i,j,rgb)
local k=j*img.w+i+1
if img.col[k]==rgb then return end
img.col[k]=rgb
local row=j//2
local top=img.col[row*2*img.w+i+1]or 0
local bot=img.col[(row*2+1)*img.w+i+1]or 0
local ti,bi=gfx.color(top),gfx.color(bot)
img.grid[row*img.w+i+1]=ti==bi and(32|ti<<21|ti<<29)or(0x2580|ti<<21|bi<<29)
end

local function shade(img,i,j,s)
local z=zAt(img,i,j)
if not z then return setPixel(img,i,j,skyColor(j,img.h))end
s=s or 1
local zl,zr,zu,zd=zAt(img,i-s,j)or z,zAt(img,i+s,j)or z,zAt(img,i,j-s)or z,zAt(img,i,j+s)or z
local m=max(img.w,img.h)
local px=2*img.view.span/m*z*s
local gx,gy=(zr-zl)/(2*px),(zd-zu)/(2*px)
local nx,ny,nz=-gx,gy,-1
local nl=sqrt(nx*nx+ny*ny+nz*nz)
local lam=max(0,(nx*-0.45+ny*0.55+nz*-0.7)/nl)
setPixel(img,i,j,palette()(0.25+0.75*lam,1-min(1,z/RANGE)))
end

local function newShot(c,view)
local q=qualityStep()
local w,h


local old=st.shots[c.addr]
st.shots[c.addr]=nil
if collectgarbage then collectgarbage()end
while true do
w=max(8,area.w//q)
h=max(8,(area.h*2)//q)
h=h-h%2
if w*h*40*1.5<computer.freeMemory()or q>=8 then break end
q=q*2
end
if q~=qualityStep()and not st.memWarned then
st.memWarned=true
Y.notify("Depth Camera","Not enough memory for this quality — using a coarser picture.")
end
old=nil
local img={cam=c,view={cx=view.cx,cy=view.cy,span=view.span},w=w,h=h,depth={},col={},grid={},
done=0,total=w*h,rays=0,passes={8,4,2,1},pass=1,pi=0,pj=0}
local bg=gfx.color(0)
for k=1,w*(h//2)do img.grid[k]=32|bg<<21|bg<<29 end
for k=#st.queue,1,-1 do if st.queue[k].cam==c then table.remove(st.queue,k)end end
st.queue[#st.queue+1]=img
st.shots[c.addr]=img
st.buf3,st.rigGrid=nil,nil
return img
end
local function newImage()
st.pick=nil

local img=newShot(current(),st.view)
for k=#st.queue,1,-1 do if st.queue[k]==img then table.remove(st.queue,k)end end
table.insert(st.queue,1,img)
end
local function scanAll()
for _,c in ipairs(group())do newShot(c,{cx=0,cy=0,span=1})end
if current().demo or cfg.rig[current().addr]then st.view={cx=0,cy=0,span=1}end
end
local function nextPixel(img)
while img.pass<=#img.passes do
local s=img.passes[img.pass]
local i,j=img.pi,img.pj
if j>=img.h then
img.pass,img.pi,img.pj=img.pass+1,0,0
else
img.pi=i+s
if img.pi>=img.w then img.pi=0;img.pj=j+s end
if img.pass==1 or i%(2*s)~=0 or j%(2*s)~=0 then return i,j,s end
end
end
end
local function stepScan()
local img=st.queue[1]
if not img then return false end
img.t0=img.t0 or computer.uptime()
for _=1,RAYS_PER_TICK do
local i,j,s=nextPixel(img)
if not i then
img.finished=true
img.t1=computer.uptime()
for jj=0,img.h-1 do
for ii=0,img.w-1 do shade(img,ii,jj,1)end
Y.breathe()
end
table.remove(st.queue,1)
st.buf3,st.rigGrid=nil,nil
return true
end
local x,y=dirOf(img,i,j)
local d=ray(img.cam,x,y)
img.rays=img.rays+1
img.done=img.done+1
for jj=j,min(img.h-1,j+s-1)do
for ii=i,min(img.w-1,i+s-1)do

img.depth[jj*img.w+ii+1]=d
end
end
for jj=j,min(img.h-1,j+s-1)do
for ii=i,min(img.w-1,i+s-1)do shade(img,ii,jj,s)end
end
end
return true
end
local function reshade()
for _,img in pairs(st.shots)do
img.col={}
for j=0,img.h-1 do
for i=0,img.w-1 do shade(img,i,j,1)end
Y.breathe()
end
end
end
local function savePic()
local img=st.shots[current().addr]
if not img then return end
Y.dialog{title="Save Depth Picture",text="File name (.pic, opens in Image Viewer)",entry="/home/Pictures/depth.pic",
buttons={{"Cancel"},{"Save",function(p)
if not p or p==""then return end
if not p:match("%.pic$")then p=p..".pic"end
fs.makeDirectory(fs.path(p))
local d,h2={},img.h//2
for r=0,h2-1 do
for i=0,img.w-1 do
local k=(r*img.w+i)*3
d[k+1],d[k+2],d[k+3]=0x2580,img.col[r*2*img.w+i+1]or 0,img.col[(r*2+1)*img.w+i+1]or 0
end
end
local ok,err=image.save(p,{img.w,h2,d})
if ok then Y.notify("Depth Camera","Saved "..p,{action=function()Y.launch("viewer",p)end,actionLabel="Open"})
else Y.notify("Depth Camera","Could not save: "..tostring(err))end
end,"suggested"}}}
end





local function gather()
local pts,cams={},{}
local useWorld=cfg.src3=="all"and#group()>0 and(current().demo or rigOf(current())~=nil)
local list=useWorld and group()or{current()}
local budget=6000
local total=0
for _,c in ipairs(list)do local img=st.shots[c.addr]if img then total=total+img.w*img.h end end
local step=max(1,floor(sqrt(total/budget)))
for _,c in ipairs(list)do
local img=st.shots[c.addr]
local r=rigOf(c)
if useWorld and r then
local ox,oy,oz=camOrigin(r)
local fv=FACE_V[r.face]or FACE_V.S
cams[#cams+1]={-ox,oy,oz,-fv[1],fv[2],fv[3],camColor(c)}
end
if img then
local ang=2*img.view.span/max(img.w,img.h)*step
for j=0,img.h-1,step do
Y.breathe()
for i=0,img.w-1,step do
local d=img.depth[j*img.w+i+1]
if d and d>=0 then
local x,y=dirOf(img,i,j)
local px,py,pz
if useWorld and r then
local yy=cfg.flip and-y or y
local dx,dy,dz=camDir(r.face,x,yy)
local l=sqrt(dx*dx+dy*dy+dz*dz)
local ox,oy,oz=camOrigin(r)
px,py,pz=-(ox+dx/l*d),oy+dy/l*d,oz+dz/l*d
else
local l=d/sqrt(1+x*x+y*y)
px,py,pz=x*l,y*l,l
end
pts[#pts+1]={px,py,pz,img.col[j*img.w+i+1]or 0xFFFFFF,d*ang,camColor(c)}
end
end
end
end
end
return pts,cams,useWorld
end
local function heightColor(t)return ramp({0x2040A0,0x20A0A0,0x40C040,0xE0D040,0xFF8040,0xFFFFFF},t)end

local function renderCloud(W,H,top)
local pts,cams,world=gather()
local zb,col={},{}
local function put(X,Yy,z,c)
if X>=0 and Yy>=0 and X<W and Yy<H then
local k=Yy*W+X+1
if not zb[k]or z<zb[k]then zb[k]=z;col[k]=c end
end
end
if#pts>0 then
local x1,y1,z1,x2,y2,z2=math.huge,math.huge,math.huge,-math.huge,-math.huge,-math.huge
for _,p in ipairs(pts)do
if p[1]<x1 then x1=p[1]end if p[1]>x2 then x2=p[1]end
if p[2]<y1 then y1=p[2]end if p[2]>y2 then y2=p[2]end
if p[3]<z1 then z1=p[3]end if p[3]>z2 then z2=p[3]end
end
local cx,cy,cz=(x1+x2)/2,(y1+y2)/2,(z1+z2)/2
local hy=max(0.01,y2-y1)
local function colorOf(p)
if cfg.color3=="camera"then
local f=0.45+0.55*(p[2]-y1)/hy
local c=p[6]
return floor((c>>16)*f)<<16|floor(((c>>8)&255)*f)<<8|floor((c&255)*f)
elseif cfg.color3=="height"then return heightColor((p[2]-y1)/hy)end
return p[4]
end
if top then

local sw,sh=x2-x1,z2-z1
local scale=min((W-4)/max(0.1,sw),(H-4)/max(0.1,sh))*st.zoom3
local sgn=world and-1 or 1
for _,p in ipairs(pts)do
local sx=floor(W/2+sgn*(p[1]-cx)*scale)
local sy=floor(H/2+(world and 1 or-1)*(p[3]-cz)*scale)
local big=max(1,min(4,floor(p[5]*scale+0.7)))
for oy=0,big-1 do for ox=0,big-1 do put(sx+ox,sy+oy,-p[2],colorOf(p))end end
end
for _,c in ipairs(cams)do
local sx=floor(W/2+sgn*(c[1]-cx)*scale)
local sy=floor(H/2+(world and 1 or-1)*(c[3]-cz)*scale)
for k=0,4 do put(sx+floor(sgn*c[4]*k+0.5),sy+floor((world and 1 or-1)*c[6]*k+0.5),-1e9,0xFFFFFF)end
for oy=-1,1 do for ox=-1,1 do put(sx+ox,sy+oy,-1e9,c[7])end end
end
else
local R=max(1,sqrt((x2-x1)^2+(y2-y1)^2+(z2-z1)^2)/2)
local dist=R*1.8+1
local f=min(W,H)/2*dist/R*0.8*st.zoom3
local cyw,syw=math.cos(st.yaw),math.sin(st.yaw)
local cp,sp=math.cos(st.pitch),math.sin(st.pitch)
local function project(x,y,z)
x,y,z=x-cx,y-cy,z-cz
local xr,zr=x*cyw-z*syw,x*syw+z*cyw
local yr,zr2=y*cp-zr*sp,y*sp+zr*cp
local zz=zr2+dist
return W/2+xr*f/zz,H/2-yr*f/zz,zz
end
for n,p in ipairs(pts)do
if n%500==0 then Y.breathe()end
local sx,sy,zz=project(p[1],p[2],p[3])
if zz>0.3 then
local big=max(1,min(4,floor(f*p[5]/zz+0.7)))
local bx,by=floor(sx-big/2),floor(sy-big/2)
local c=colorOf(p)
for oy=0,big-1 do for ox=0,big-1 do put(bx+ox,by+oy,zz,c)end end
end
end
for _,c in ipairs(cams)do
local sx,sy,zz=project(c[1],c[2],c[3])
if zz>0.3 then
local ex,ey=project(c[1]+c[4]*2,c[2]+c[5]*2,c[3]+c[6]*2)
local n=6
for k=0,n do put(floor(sx+(ex-sx)*k/n),floor(sy+(ey-sy)*k/n),0,0xFFFFFF)end
for oy=-1,1 do for ox=-1,1 do put(floor(sx)+ox,floor(sy)+oy,0,c[7])end end
end
end
end
end
local grid,bg={},0x080808
for r=0,H//2-1 do
for x=0,W-1 do
local t,b=col[r*2*W+x+1]or bg,col[(r*2+1)*W+x+1]or bg
local ti,bi=gfx.color(t),gfx.color(b)
grid[r*W+x+1]=ti==bi and(32|ti<<21|ti<<29)or(0x2580|ti<<21|bi<<29)
end
end
return grid,#pts,world
end

local function toHologram()
local pts=gather()
if#pts==0 then return Y.notify("Depth Camera","Nothing scanned yet")end
local p="/tmp/camera-scan.pts"
local f=io.open(p,"w")
if not f then return Y.notify("Depth Camera","Cannot write "..p)end
for i,q in ipairs(pts)do
f:write(string.format("%.2f %.2f %.2f %06x\n",-q[1],q[2],q[3],q[4]or 0xFFFFFF))
if i%500==0 then Y.breathe()end
end
f:close()
Y.launch("holo",p)
end
local function render3D()
local W,H=area.w,area.h*2
local grid,n,world=renderCloud(W,H,cfg.view3=="top")
st.buf3={w=W,h=H,grid=grid,n=n,world=world}
end


local function newWatch()
local res=({{16,10},{24,16},{32,20}})[cfg.watchRes]or{24,16}
st.watch={cam=current(),w=res[1],h=res[2],ref=nil,cur={},prev={},k=0,sweeps=0,changed={},nchanged=0,
t0=computer.uptime(),active=false,lastEvent=0}
end
local function watchDir(wt,i,j)
return((i+0.5)/wt.w*2-1),(1-(j+0.5)/wt.h*2)*(wt.h/wt.w)
end
local function logEvent(text)
table.insert(st.log,1,{t=Y.date("%H:%M:%S"),text=text})
if#st.log>60 then table.remove(st.log)end
end
local function redstonePulse(on)
if not cfg.redstone or not component.isAvailable("redstone")then return end
local rs=component.redstone
for side=0,5 do pcall(rs.setOutput,side,on and 15 or 0)end
end
local function stepWatch()
local wt=st.watch
if not wt then return end
local n=wt.w*wt.h
for _=1,RAYS_PER_TICK do
local i,j=wt.k%wt.w,wt.k//wt.w
wt.cur[wt.k+1]=ray(wt.cam,watchDir(wt,i,j))
wt.k=wt.k+1
if wt.k>=n then
wt.k=0
wt.sweeps=wt.sweeps+1
wt.sweepTime=computer.uptime()-(wt.sweepStart or wt.t0)
wt.sweepStart=computer.uptime()
if not wt.ref then
wt.ref={}
for k2=1,n do wt.ref[k2]=wt.cur[k2]end
logEvent("reference taken")
else
local cnt,nearest=0,math.huge
wt.changed={}
for k2=1,n do
local a,b=wt.ref[k2],wt.cur[k2]
if(a<0)~=(b<0)or(a>=0 and abs(a-b)>0.6)then
wt.changed[k2]=true
cnt=cnt+1
if b>=0 and b<nearest then nearest=b end
end
end
wt.nchanged=cnt
local now=computer.uptime()
if cnt>0 and not wt.active then
wt.active=true
local near=nearest<math.huge and string.format(", nearest %.1f m",nearest)or""
logEvent("● "..cnt.." changed"..(nearest<math.huge and string.format(" · %.1f m",nearest)or""))
if cfg.notify and now-wt.lastEvent>5 then
Y.notify("Depth Camera","Something changed in front of the camera: "..cnt.." points"..near,
{action=function()Y.launch("camera")end,actionLabel="Show"})
wt.lastEvent=now
end
redstonePulse(true)
computer.beep(1200,0.05)
elseif cnt==0 and wt.active then
wt.active=false
logEvent("○ quiet again")
redstonePulse(false)
end
end
wt.prev,wt.cur=wt.cur,{}
for k2=1,n do wt.cur[k2]=wt.prev[k2]end
end
end
end


local function editPosition(c)
local r=cfg.rig[c.addr]or{x=0,y=64,z=0,face="S",on=true}
Y.dialog{title="Where is "..camName(c).."?",
text="Block coordinates of the camera block: X Y Z\n(look at it and read \"Targeted Block\" on the F3 screen)",
entry=r.x.." "..r.y.." "..r.z,
buttons={{"Cancel"},{"Save",function(s)
local a,b,d=(s or""):match("(%-?%d+)[%s,;]+(%-?%d+)[%s,;]+(%-?%d+)")
if not a then return Y.notify("Depth Camera","Enter three numbers, e.g. 120 64 -35")end
r.x,r.y,r.z=tonumber(a),tonumber(b),tonumber(d)
cfg.rig[c.addr]=r
saveCfg(cfg)
st.buf3,st.rigGrid=nil,nil
end,"suggested"}}}
end
local function cycleFace(c)
local r=cfg.rig[c.addr]
if not r then return editPosition(c)end
local k=1
for i,f in ipairs(FACES)do if f==r.face then k=i end end
r.face=FACES[k%#FACES+1]
saveCfg(cfg)
st.buf3,st.rigGrid=nil,nil
end
local function testCam(c)
st.test[c.addr]=ray(c,0,0)

end


local function setMode(m)
st.mode=m
if m=="watch"then newWatch()
else
if not st.shots[current().addr]then newImage()end
st.buf3,st.rigGrid=nil,nil
end
Y.redraw(win)
end
local function selectCam(i)
st.cam=i
st.view={cx=0,cy=0,span=1}
if st.mode=="watch"then newWatch()
elseif not st.shots[current().addr]then newImage()end
st.buf3,st.rigGrid=nil,nil
end
function win.header(w,hw)
local x=2
for _,m in ipairs({{"photo","Photo"},{"3d","3D"},{"watch","Watch"},{"rig","Cameras"}})do
x=x+ui.button(w,x,1,m[2],function()setMode(m[1])end,st.mode==m[1]and"suggested"or nil)+1
end
x=x+1
local c=current()
x=x+ui.button(w,x,1,ui.trunc(camName(c,st.cam),30).." ▾",function(_,px)
local items={}
for i,cc in ipairs(st.cams)do items[#items+1]={camName(cc,i),function()selectCam(i)end,check=st.cam==i}end
Y.menu(win.x+px-1,win.y+1,items)
end,"flat")+1
ui.button(w,hw-4,1,"☰",function(_,px)
Y.menu(win.x+px-1,win.y+1,{
{"Rescan",function()newImage()end,key="R"},
{"Scan All Cameras",scanAll,disabled=#group()==0},
{"Reset Zoom",function()st.view={cx=0,cy=0,span=1};newImage()end,key="0"},
{"Save as Picture…",savePic,disabled=not st.shots[current().addr],key="Ctrl+S"},
{"Send 3D to Hologram Studio",toHologram,disabled=not Y.apps.holo},
"-",
{"Flip Vertically",function()cfg.flip=not cfg.flip;saveCfg(cfg);newImage()end,check=cfg.flip},
{"Watch: Notifications",function()cfg.notify=not cfg.notify;saveCfg(cfg)end,check=cfg.notify},
{"Watch: Redstone Output",function()cfg.redstone=not cfg.redstone;saveCfg(cfg)end,check=cfg.redstone,
disabled=not component.isAvailable("redstone")},
"-",
{"About",function()
Y.dialog{title="Depth Camera",text=table.concat({
"The Computronics camera measures distance along a ray (up to 32 blocks,",
"90° field of view, 20 rays per tick). This app turns that into pictures.",
"It sees blocks only — players and mobs are invisible to it.",
"",
"Several cameras: enter each one's block position and facing in Cameras,",
"then 3D → All cameras → Scan all: their scans merge into one model.",
"",
"Photo: click = distance · wheel = zoom · R = rescan · 3D: drag = rotate",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end},
})
end,nil,4)
end


local function pills(w,x,y,opts,value,set)
local t=Y.theme
for _,o in ipairs(opts)do
local on=value==o[1]
local wd=unicode.len(o[2])+2
if on then ui.pill(x,y,wd,t.accent)end
gfx.text(x+1,y,o[2],on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,x,y,wd,1,function()set(o[1])end)
x=x+wd
end
end
local function drawSidebar(w,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
local y=1
gfx.text(2,y,"Palette",t.dim);y=y+1
for _,p in ipairs(PALETTES)do
local on=cfg.palette==p[1]
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then ui.select(1,y,SIDE,bg)end
for k=0,3 do gfx.text(3+k,y,"█",p[3](0.3+k*0.23,0.2+k*0.25))end
gfx.text(8,y,ui.trunc(p[2],SIDE-9),t.fg,bg)
ui.hit(w,1,y,SIDE,1,function()cfg.palette=p[1];saveCfg(cfg);reshade();st.buf3,st.rigGrid=nil,nil end)
y=y+1
end
y=y+1
if st.mode=="photo"or st.mode=="rig"then
gfx.text(2,y,"Quality",t.dim);y=y+1
pills(w,2,y,{{"draft","Draft"},{"normal","Normal"},{"fine","Fine"}},cfg.quality,
function(v)cfg.quality=v;saveCfg(cfg);newImage()end)
y=y+2
ui.button(w,2,y,"⟳ Rescan",function()newImage()end,"suggested",SIDE-2)
y=y+2
ui.button(w,2,y,"Save picture",savePic,nil,SIDE-2)
y=y+2
elseif st.mode=="3d"then
gfx.text(2,y,"Points from",t.dim);y=y+1
pills(w,2,y,{{"one","This"},{"all","All cameras"}},cfg.src3,function(v)cfg.src3=v;saveCfg(cfg);st.buf3,st.rigGrid=nil,nil end)
y=y+2
gfx.text(2,y,"Colour",t.dim);y=y+1
pills(w,2,y,{{"photo","Photo"},{"camera","Camera"},{"height","Height"}},cfg.color3,
function(v)cfg.color3=v;saveCfg(cfg);st.buf3,st.rigGrid=nil,nil end)
y=y+2
gfx.text(2,y,"View",t.dim);y=y+1
pills(w,2,y,{{"orbit","Orbit"},{"top","Top map"}},cfg.view3,function(v)cfg.view3=v;saveCfg(cfg);st.buf3,st.rigGrid=nil,nil end)
y=y+2
ui.button(w,2,y,"⟳ Scan all cameras",scanAll,"suggested",SIDE-2)
y=y+2
ui.button(w,2,y,"Camera setup",function()setMode("rig")end,nil,SIDE-2)
y=y+2
if Y.apps.holo then ui.button(w,2,y,"◆ To Hologram",toHologram,nil,SIDE-2);y=y+2 end
else
gfx.text(2,y,"Detail",t.dim);y=y+1
pills(w,2,y,{{1,"Low"},{2,"Mid"},{3,"High"}},cfg.watchRes,function(v)cfg.watchRes=v;saveCfg(cfg);newWatch()end)
y=y+2
ui.button(w,2,y,"New reference",function()if st.watch then st.watch.ref=nil;st.watch.active=false;redstonePulse(false)end end,"suggested",SIDE-2)
y=y+2
ui.button(w,2,y,"Clear log",function()st.log={}end,nil,SIDE-2)
y=y+2
end
if y+3<=ch then
gfx.text(2,y,"Near",t.dim)
gfx.text(SIDE-4,y,"Far",t.dim)
for k=0,SIDE-4 do gfx.text(2+k,y+1,"█",palette()(0.85,1-k/(SIDE-4)))end
gfx.text(2,y+2,"0",t.dim)
gfx.text(SIDE-3,y+2,tostring(RANGE),t.dim)
end
end

local function drawCrosshair(img)
local p=st.pick
if not p then return end
local sx=area.x+floor((p.i+0.5)*area.w/img.w)
local sy=2*area.y-1+floor((p.j+0.5)*area.h*2/img.h)
local c=0xFFFFFF
gfx.pline(sx-3,sy,sx-1,sy,c);gfx.pline(sx+1,sy,sx+3,sy,c)
gfx.pline(sx,sy-3,sx,sy-1,c);gfx.pline(sx,sy+1,sx,sy+3,c)
end
local function queueStatus()
local img=st.queue[1]
if not img then return nil end
local rest=0
for k=2,#st.queue do rest=rest+st.queue[k].total end
local rate=img.rays/max(0.05,computer.uptime()-(img.t0 or computer.uptime()))
local left=(img.total-img.done+rest)/max(1,rate)
return string.format("Scanning %s %d%%%s · about %ds left",ui.trunc(camName(img.cam),24),floor(img.done/img.total*100),
#st.queue>1 and(" (+"..(#st.queue-1).." more)")or"",floor(left+0.5)),img.done/img.total
end

local function drawRig(w,cw,ch)
local t=Y.theme
local lw=min(64,area.w-24)
gfx.fill(area.x,1,lw,ch-1,t.view)
local x0=area.x+1
gfx.text(x0,1,"Camera rig — position and facing of every camera",t.fg,t.view)
local y=3
local list={}
for i,c in ipairs(st.cams)do if not c.demo or current().demo then list[#list+1]={i,c}end end
local real=0
for _,c in ipairs(st.cams)do if not c.demo then real=real+1 end end
if real==0 and not current().demo then
gfx.text(x0,y,"No cameras connected.",t.dim,t.view);y=y+2
end
for _,e in ipairs(list)do
local i,c=e[1],e[2]
local r=rigOf(c)
local bg=st.cam==i and(t.dark and 0x383838 or 0xEBEBEB)or t.view
gfx.fill(area.x,y,lw,3,bg)
gfx.text(x0,y,"██",camColor(c),bg)
gfx.text(x0+3,y,ui.trunc(camName(c,i),lw-16),t.fg,bg)
if not c.demo then
local on=r and r.on~=false
ui.button(w,area.x+lw-9,y,on and"On"or"Off",function()
r=cfg.rig[c.addr]or{x=0,y=64,z=0,face="S"}
r.on=not(r.on~=false)
cfg.rig[c.addr]=r;saveCfg(cfg);st.buf3,st.rigGrid=nil,nil
end,on and"suggested"or nil,7)
end
local pos=r and(r.x.."  "..r.y.."  "..r.z)or"set position…"
local bx=x0+3
gfx.text(bx,y+1,"XYZ",t.dim,bg)
local bw=ui.button(w,bx+4,y+1,pos,not c.demo and function()editPosition(c)end or nil,r and"flat"or"suggested")
local fx=bx+4+bw+1
gfx.text(fx,y+1,"faces",t.dim,bg)
ui.button(w,fx+6,y+1,r and(FACE_NAME[r.face]or"?")or"—",not c.demo and function()cycleFace(c)end or nil,nil,8)
local tx=fx+15
local tv=st.test[c.addr]
ui.button(w,tx,y+1,"Test",function()testCam(c)end,"flat",6)
if tv then gfx.text(tx+7,y+1,tv>=0 and string.format("%.1f m",tv)or"> 32 m",t.dim,bg)end
ui.hit(w,area.x,y,lw-10,1,function()selectCam(i)end)
y=y+3
end
local help={
"How to combine cameras:",
"1. Click XYZ and enter the camera block's coordinates",
"   (F3 → Targeted Block). Click the facing until it",
"   matches the side the lens looks at.",
"2. Test measures straight ahead: cover one lens with",
"   a block to tell the cameras apart.",
"3. 3D → All cameras → Scan all cameras: the scans merge",
"   into one model to orbit, or a top map.",
}
for k,l in ipairs(help)do
if y+k<=ch-2 then gfx.text(x0,y+k,ui.trunc(l,lw-2),t.dim,t.view)end
end

local mx,mw=area.x+lw,area.w-lw
local saveView=cfg.view3
cfg.view3="top"
local saveSrc=cfg.src3
cfg.src3="all"
if not st.rigGrid or st.rigGrid.w~=mw or st.rigGrid.h~=ch-1 then
st.rigGrid={w=mw,h=ch-1,grid=renderCloud(mw,(ch-1)*2,true)}
end
cfg.view3,cfg.src3=saveView,saveSrc
gfx.blit(st.rigGrid.grid,mw,ch-1,mx,1)
gfx.text(mx+1,1,"Top map (north is up)",0x9A9996,0x080808)
end

function win.draw(w,cw,ch)
local t=Y.theme
area.x,area.y,area.w,area.h=SIDE+1,1,cw-SIDE,ch-1
if st.mode=="watch"then area.w=cw-SIDE-30 end
if st.mode=="photo"and not st.shots[current().addr]then newImage()end
drawSidebar(w,ch-1)
gfx.fill(area.x,1,cw-SIDE,ch-1,0x080808)
local status
local qs,qf=queueStatus()
if st.mode=="photo"then
local img=st.shots[current().addr]
if img.w==area.w and img.h==area.h*2 then gfx.blit(img.grid,img.w,img.h//2,area.x,area.y)
else gfx.blitScaled(img.grid,img.w,img.h//2,area.x,area.y,area.w,area.h)end
drawCrosshair(img)
if not img.finished then
status=qs or"Waiting…"
ui.progress(area.x,ch-1,area.w,img.done/img.total)
else
status=string.format("%d×%d · %d rays in %.1f s · zoom %.1f× · click a point to measure, wheel to zoom",
img.w,img.h,img.rays,(img.t1 or computer.uptime())-(img.t0 or computer.uptime()),1/img.view.span)
if qs then status=qs.."   ·   "..status end
end
if st.pick then
local p=st.pick
local dtext=p.d and p.d>=0 and string.format("%.2f m",p.d)or"nothing within 32 m"
status="◎ "..dtext..string.format("  (x %.2f, y %.2f)",p.x,p.y).."   ·   "..status
end
elseif st.mode=="3d"then
if not st.buf3 or st.buf3.w~=area.w or st.buf3.h~=area.h*2 then render3D()end
gfx.blit(st.buf3.grid,area.w,area.h,area.x,area.y)
local what=st.buf3.world and(#group().." camera"..(#group()==1 and""or"s").." in world space")
or"this camera"
if cfg.src3=="all"and not st.buf3.world then what="this camera (set positions in Cameras to merge)"end
status=qs or((cfg.view3=="top"and"Top map · wheel to zoom · "or"Drag to rotate · wheel to zoom · ")..
st.buf3.n.." points from "..what)
if qf then ui.progress(area.x,ch-1,area.w,qf)end
elseif st.mode=="rig"then
drawRig(w,cw,ch)
status=qs or"Click a camera to select it · positions are saved in /etc/yaru-camera.cfg"
else
local wt=st.watch
if not wt then newWatch();wt=st.watch end
local cellW,cellH=area.w/wt.w,area.h*2/wt.h
local pal=palette()
for j=0,wt.h-1 do
for i=0,wt.w-1 do
local k=j*wt.w+i+1
local d=wt.prev[k]or wt.cur[k]
local px0,py0=area.x+floor(i*cellW),2*area.y-1+floor(j*cellH)
local pw,ph=floor((i+1)*cellW)-floor(i*cellW),floor((j+1)*cellH)-floor(j*cellH)
local c
if not d then c=0x080808 elseif d<0 then c=skyColor(j,wt.h)else c=pal(0.8,1-min(1,d/RANGE))end
if wt.changed[k]then c=(math.floor(computer.uptime()*4)%2==0)and 0xFF2400 or 0xFFDB40 end
gfx.prect(px0,py0,pw-(pw>2 and 1 or 0),ph-(ph>2 and 1 or 0),c)
end
end
gfx.prect(area.x,2*area.y-1+floor((wt.k//wt.w)*cellH),area.w,1,0x33DB40)
local lx=area.x+area.w+1
gfx.fill(lx-1,1,31,ch-1,t.view)
local stateTxt=not wt.ref and"Taking reference…"or wt.active and("● CHANGE: "..wt.nchanged.." points")or"○ All quiet"
gfx.text(lx,1,ui.trunc(stateTxt,29),wt.active and t.danger or(wt.ref and t.success or t.dim),t.view)
gfx.text(lx,2,string.format("sweep %d · %.1f s",wt.sweeps,wt.sweepTime or 0),t.dim,t.view)
for i,e in ipairs(st.log)do
local y=3+i
if y>ch-2 then break end
gfx.text(lx,y,e.t,t.dim,t.view)
gfx.text(lx+9,y,ui.trunc(e.text,20),t.fg,t.view)
end
status="Watching "..wt.w.."×"..wt.h.." points — the camera sees blocks (doors, pistons, placed/broken blocks), not players"
end
gfx.fill(1,ch,cw,1,t.header)
gfx.text(2,ch,ui.trunc(status or"",cw-3),t.fg,t.header)
end


local function pixelAt(lx,ly)
local img=st.shots[current().addr]
if not img then return end
local fy=Y.touchFrac or 0
local px=(lx-area.x+0.5)/area.w*img.w
local py=((ly-area.y)+(fy>=0.5 and 0.75 or 0.25))/area.h*img.h
local i,j=floor(px),floor(py)
if i<0 or j<0 or i>=img.w or j>=img.h then return end
return i,j,img
end
function win.touch(w,lx,ly,btn,kind)
if lx<=SIDE or ly>=area.y+area.h then return end
if st.mode=="photo"and kind=="touch"and btn==0 then
local i,j,img=pixelAt(lx,ly)
if not i then return end
local x,y=dirOf(img,i,j)
st.pick={i=i,j=j,x=x,y=y,d=ray(current(),x,y)}
elseif st.mode=="3d"then
if kind=="touch"then st.drag3={lx,ly,st.yaw,st.pitch}
elseif kind=="drag"and st.drag3 and cfg.view3~="top"then
st.yaw=st.drag3[3]+(lx-st.drag3[1])*0.02
st.pitch=max(-1.4,min(1.4,st.drag3[4]+(ly-st.drag3[2])*0.04))
render3D()
elseif kind=="drop"then st.drag3=nil end
end
end
function win.scroll(w,lx,ly,dir)
if lx<=SIDE then return end
if st.mode=="photo"then
local i,j,img=pixelAt(lx,ly)
if not i then return end
local x,y=dirOf(img,i,j)
local ns=max(0.05,min(1,st.view.span*(dir>0 and 0.6 or 1/0.6)))
local f=ns/st.view.span
st.view.cx=x-(x-st.view.cx)*f
st.view.cy=y-(y-st.view.cy)*f
st.view.span=ns
if ns>=1 then st.view.cx,st.view.cy=0,0 end
newImage()
elseif st.mode=="3d"then
st.zoom3=max(0.3,min(6,st.zoom3*(dir>0 and 1.25 or 0.8)))
render3D()
end
end
function win.key(w,char,code)
if Y.mods.ctrl()and code==Y.K.s then return savePic()end
if char==114 or char==82 then newImage()
elseif char==97 or char==65 then scanAll()
elseif char==48 then st.view={cx=0,cy=0,span=1};newImage()
elseif char==49 then setMode("photo")elseif char==50 then setMode("3d")elseif char==51 then setMode("watch")
elseif char==52 then setMode("rig")
elseif st.mode=="3d"and code==Y.K.left then st.yaw=st.yaw-0.15;render3D()
elseif st.mode=="3d"and code==Y.K.right then st.yaw=st.yaw+0.15;render3D()
elseif st.mode=="3d"and code==Y.K.up then st.pitch=max(-1.4,st.pitch-0.1);render3D()
elseif st.mode=="3d"and code==Y.K.down then st.pitch=min(1.4,st.pitch+0.1);render3D()end
end

win.tickInterval=0.05
function win.tick(w)
if st.mode=="watch"then
stepWatch()
Y.redraw(w)
return
end
local busy=stepScan()
if busy then
if(st.mode=="3d"or st.mode=="rig")then
st.tick3=(st.tick3 or 0)+1
if st.tick3%10==0 or not st.queue[1]then st.buf3,st.rigGrid=nil,nil end
end
Y.redraw(w)
end
end
function win.onSignal(name,_,ctype)
if(name=="component_added"or name=="component_removed")and ctype=="camera"then scanCams()end
end
function win.cleanup()redstonePulse(false)end

function win.lowMemory()
local keep=st.shots[current().addr]
st.shots={[current().addr]=keep}
st.buf3,st.rigGrid=nil,nil
end

win.api={state=st,cfg=cfg,setMode=setMode,newImage=newImage,render3D=render3D,scanAll=scanAll,toHologram=toHologram,
selectCam=selectCam}
scanCams()
return win
end

return M
F 2986 /usr/share/yaru/apps/chat.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local component=require("component")
local unicode=require("unicode")
local M={}
local PORT=7777

local function wrap(s,w)
local out={}
while unicode.len(s)>w do out[#out+1]=unicode.sub(s,1,w);s=unicode.sub(s,w+1)end
out[#out+1]=s
return out
end

function M.open()
local existing=Y.windowsOf("chat")[1]
if existing then Y.focusWin(existing)return existing end
local st={msgs={},input={text="",cur=0},nick=os.getenv("HOSTNAME")or("pc-"..require("computer").address():sub(1,4))}
local win=Y.newWindow{app="chat",title="Messages",w=70,h=26,minW=40,minH=10}
local modem=component.isAvailable("modem")and component.modem
local tunnel=component.isAvailable("tunnel")and component.tunnel
if modem then modem.open(PORT)end
local function add(from,text,mine)
st.msgs[#st.msgs+1]={from=from,text=text,mine=mine,time=Y.date("%H:%M")}
if#st.msgs>200 then table.remove(st.msgs,1)end
end
local function send()
local s=st.input.text
if s==""then return end
if s:sub(1,6)=="/nick "then st.nick=s:sub(7);st.input.text,st.input.cur="",0 return end
local ok=false
if modem then ok=modem.broadcast(PORT,"yaru-chat",st.nick,s)or ok end
if tunnel then ok=tunnel.send("yaru-chat",st.nick,s)or ok end
add(st.nick,s,true)
if not ok then add("system","not sent: no network card",false)end
st.input.text,st.input.cur="",0
end
function win.onSignal(name,_,remote,port,dist,tag,nick,text)
if name~="modem_message"or tag~="yaru-chat"then return end
add(tostring(nick),tostring(text),false)
if Y.focus~=win then Y.notify(tostring(nick),tostring(text),{action=function()Y.focusWin(win)end,actionLabel="Reply"})end
end
function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,ch-2,t.view)
if not modem and not tunnel then
local s="Install a network card (or linked card) to chat"
gfx.text((cw-unicode.len(s))//2,ch//2-1,s,t.dim)
end

local y=ch-3
for i=#st.msgs,1,-1 do
local m=st.msgs[i]
local bw=math.min(cw-10,math.max(unicode.len(m.text),unicode.len(m.from)+6)+2)
local lines=wrap(m.text,bw-2)
local h=#lines+1
y=y-h
if y<1 then break end
local x=m.mine and cw-bw-1 or 2
local bg=m.mine and t.accent or(t.dark and 0x383838 or 0xEBEBEB)
local fg=m.mine and 0xFFFFFF or t.fg
ui.round(x,y,bw,h,bg)
gfx.text(x+1,y,ui.trunc(m.from,bw-8),m.mine and 0xFFFFFF or t.accent,bg)
gfx.text(x+bw-6,y,m.time,m.mine and 0xFFFFFF or t.dim,bg)
for li,l in ipairs(lines)do gfx.text(x+1,y+li,l,fg,bg)end
y=y-1
end
gfx.fill(1,ch-1,cw,2,t.bg)
ui.entry(w,st.input,2,ch-1,cw-11,Y.focus==w,"Message as "..st.nick.."  (/nick NAME)")
ui.button(w,cw-8,ch-1,"Send",send,"suggested",7)
end
function win.key(w,char,code)
local r=ui.entryKey(st.input,char,code)
if r=="enter"then send()end
end
function win.paste(w,s)ui.entryPaste(st.input,s)end
function win.cleanup()if modem then pcall(modem.close,PORT)end end
add("system",modem and("listening on port "..PORT.." as "..st.nick)or tunnel and"linked card ready"or"offline",false)
return win
end

return M
F 4117 /usr/share/yaru/apps/clock.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local unicode=require("unicode")
local M={}
local TABS={{"clock","Clock"},{"stopwatch","Stopwatch"},{"timer","Timer"}}

local function hms(s,tenths)
s=math.max(0,s)
local h,m,sec=math.floor(s//3600),math.floor(s//60%60),math.floor(s%60)
local r=h>0 and string.format("%d:%02d:%02d",h,m,sec)or string.format("%02d:%02d",m,sec)
if tenths then r=r..string.format(".%d",math.floor(s*10%10))end
return r
end


function M.open()
local existing=Y.windowsOf("clock")[1]
if existing then Y.focusWin(existing)return existing end
local st={tab="clock",sw={acc=0,laps={}},tm={len=300,left=300}}
local win=Y.newWindow{app="clock",title="Clocks",w=64,h=22,fixed=true}
local function swTime()return st.sw.acc+(st.sw.start and computer.uptime()-st.sw.start or 0)end
local function tmLeft()return st.tm.endAt and st.tm.endAt-computer.uptime()or st.tm.left end
function win.header(w,hw)
local x=3
for _,tb in ipairs(TABS)do
x=x+ui.button(w,x,1,tb[2],function()st.tab=tb[1]end,st.tab==tb[1]and nil or"flat")+1
end
end
function win.draw(w,cw,ch)
local t=Y.theme
local running=st.sw.start or st.tm.endAt
w.tickInterval=(st.tab=="clock"or running)and 1 or nil
if st.tab=="clock"then
local hm=Y.date("%H:%M")
ui.big((cw-ui.bigWidth(hm))//2+1,3,hm,t.fg)
local d=Y.date("%A, %B %d %Y")
gfx.text((cw-unicode.len(d))//2+1,12,d,t.dim)
local mc=os.date("%H:%M",os.time())
local s="Minecraft time "..mc.."   ·   uptime "..hms(computer.uptime())
gfx.text((cw-unicode.len(s))//2+1,14,s,t.dim)
local z=string.format("UTC%+g",Y.cfg.tz or 0)
gfx.text((cw-unicode.len(z))//2+1,16,z,t.dim)
elseif st.tab=="stopwatch"then
local s=hms(swTime(),not st.sw.start)
ui.big((cw-ui.bigWidth((s:gsub("%.%d",""))))//2+1,2,(s:gsub("%.%d","")),t.fg)
if not st.sw.start then gfx.text(cw//2+ui.bigWidth((s:gsub("%.%d","")))//2+2,9,s:match("%.%d")or"",t.dim)end
local bx=(cw-30)//2
ui.button(w,bx,11,st.sw.start and"Pause"or(swTime()>0 and"Resume"or"Start"),function()
if st.sw.start then st.sw.acc=swTime();st.sw.start=nil else st.sw.start=computer.uptime()end
end,st.sw.start and nil or"suggested",14)
ui.button(w,bx+16,11,st.sw.start and"Lap"or"Reset",function()
if st.sw.start then table.insert(st.sw.laps,1,swTime())else st.sw={acc=0,laps={}}end
end,nil,14)
for i,l in ipairs(st.sw.laps)do
if 12+i>=ch then break end
local s2=string.format("Lap %d   %s",#st.sw.laps-i+1,hms(l,true))
gfx.text((cw-unicode.len(s2))//2,13+i,s2,t.dim)
end
else
local left=tmLeft()
local s=hms(left)
ui.big((cw-ui.bigWidth(s))//2+1,2,s,left<=0 and t.accent or t.fg)
if st.tm.len>0 then ui.progress((cw-40)//2,11,40,1-math.max(0,left)/st.tm.len)end
local bx=(cw-44)//2
if not st.tm.endAt then
for i,d in ipairs({{"−1m",-60},{"+1m",60},{"+5m",300},{"+15m",900}})do
ui.button(w,bx+(i-1)*8,13,d[1],function()
st.tm.len=math.max(0,math.min(99*3600,st.tm.left+d[2]));st.tm.left=st.tm.len
end,nil,7)
end
end
ui.button(w,bx+32,13,st.tm.endAt and"Pause"or"Start",function()
if st.tm.endAt then st.tm.left=tmLeft();st.tm.endAt=nil
elseif st.tm.left>0 then st.tm.endAt=computer.uptime()+st.tm.left end
end,st.tm.endAt and nil or"suggested",12)
ui.button(w,bx+16,15,"Reset",function()st.tm.endAt=nil;st.tm.left=st.tm.len end,"flat",12)
end
end
function win.tick(w)
if st.tm.endAt and tmLeft()<=0 then
st.tm.endAt,st.tm.left=nil,0
Y.notify("Timer is up",hms(st.tm.len).." timer finished",{urgent=true,timeout=10,
actionLabel="Restart",action=function()st.tm.left=st.tm.len;st.tm.endAt=computer.uptime()+st.tm.len end})
for _=1,3 do computer.beep(1320,0.15)computer.beep(990,0.15)end
end
Y.redraw(w)
end
function win.key(w,char,code)
if char==32 then
if st.tab=="stopwatch"then
if st.sw.start then st.sw.acc=swTime();st.sw.start=nil else st.sw.start=computer.uptime()end
elseif st.tab=="timer"then
if st.tm.endAt then st.tm.left=tmLeft();st.tm.endAt=nil elseif st.tm.left>0 then st.tm.endAt=computer.uptime()+st.tm.left end
end
elseif code==Y.K.tab then
for i,tb in ipairs(TABS)do if tb[1]==st.tab then st.tab=TABS[i%#TABS+1][1]break end end
end
end
return win
end

return M
F 17428 /usr/share/yaru/apps/composer.lua








local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local serialization=require("serialization")
local unicode=require("unicode")
local M={}

local DIR="/home/Music"
local INSTRUMENTS={"harp","basedrum","snare","hat","bass","flute","bell","guitar","chime","xylophone",
"iron_xylophone","cow_bell","didgeridoo","bit","banjo","pling"}
local COLORS={0x0049BF,0xE95420,0x26A269,0xC061CB,0xE5A50A,0x1C71D8,0xC01C28,0x865E3C}
local NAMES={"F#3","G3","G#3","A3","A#3","B3","C4","C#4","D4","D#4","E4","F4",
"F#4","G4","G#4","A4","A#4","B4","C5","C#5","D5","D#5","E5","F5","F#5"}

local POS,SHARP={},{}
do
local letters={{0,true},{1},{1,true},{2},{2,true},{3},{4},{4,true},{5},{5,true},{6},{7},
{7,true},{8},{8,true},{9},{9,true},{10},{11},{11,true},{12},{12,true},{13},{14},{14,true}}
for p=0,24 do POS[p],SHARP[p]=letters[p+1][1],letters[p+1][2]or false end
end
local function pitchAt(pos,sharp)
for p=0,24 do if POS[p]==pos and SHARP[p]==(sharp and true or false)then return p end end
if pos==0 then return 0 end
end


local function devices()
local r={}
for addr in component.list("note_block")do r[#r+1]={kind="note_block",addr=addr,name="Note block "..addr:sub(1,4)}end
for addr in component.list("iron_noteblock")do r[#r+1]={kind="iron",addr=addr,name="Iron note block "..addr:sub(1,4)}end
r[#r+1]={kind="beep",name="Computer speaker"}
return r
end

local function playOn(dev,pitch,inst)
if not dev then return end
if dev.kind=="note_block"then
if not pcall(component.invoke,dev.addr,"trigger",pitch+1)then pcall(component.invoke,dev.addr,"trigger")end
elseif dev.kind=="iron"then
pcall(component.invoke,dev.addr,"playNote",inst or"harp",pitch)
else

local oct=({bass=-24,didgeridoo=-24,guitar=-12,flute=12,cow_bell=12,bell=24,chime=24,xylophone=24})[inst or""]or 0
pcall(computer.beep,math.max(20,math.min(2000,440*2^((pitch+oct-15)/12))),0.08)
end
end









local WIRING_FILE="/etc/yaru-composer.cfg"
local SIDE_NAMES={[0]="bottom","top","back","front","right","left"}
local function loadWiring()
local f=io.open(WIRING_FILE)
if not f then return{}end
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
return ok and type(t)=="table"and t or{}
end
local function saveWiring(w)
local f=io.open(WIRING_FILE,"w")
if f then f:write(serialization.serialize(w));f:close()end
end



local function rsSet(addr,sides,bundled,on)
if next(sides)then
local t={}
for side in pairs(sides)do t[side]=on and 15 or 0 end
if not pcall(component.invoke,addr,"setOutput",t)then
for side in pairs(sides)do pcall(component.invoke,addr,"setOutput",side,on and 15 or 0)end
end
end
for side,colors in pairs(bundled)do
local t={}
for c in pairs(colors)do t[c]=on and 255 or 0 end
if not pcall(component.invoke,addr,"setBundledOutput",side,t)then
for c in pairs(colors)do pcall(component.invoke,addr,"setBundledOutput",side,c,on and 255 or 0)end
end
end
end

function M.open(path)
local st={step=1,scroll=0,track=1,playing=false,writeMode=true,dirty=false}
local song
local win=Y.newWindow{app="composer",title="Composer",w=124,h=36,minW=80,minH=30}
local devs=devices()

local function newSong()
song={bpm=120,spb=2,length=32,tracks={},notes={}}
for i,d in ipairs(devs)do song.tracks[i]={dev=d.addr or"beep",inst="harp",mute=false}end
st.path,st.dirty,st.step,st.scroll=nil,false,1,0
win.title="Untitled song"
end

local function devOf(ti)
local t=song.tracks[ti]
if not t then return devs[#devs]end
if t.dev then for _,d in ipairs(devs)do if(d.addr or"beep")==t.dev then return d end end end

local real=#devs-1
if real<=0 then return devs[#devs]end
return devs[(ti-1)%real+1]
end
local function noteAt(step,ti,pitch)
local list=song.notes[step]
if not list then return end
for i,n in ipairs(list)do if n[1]==ti and(not pitch or n[2]==pitch)then return i,n end end
end
local function toggle(step,ti,pitch)
song.notes[step]=song.notes[step]or{}
local i=noteAt(step,ti,pitch)
if i then table.remove(song.notes[step],i)else table.insert(song.notes[step],{ti,pitch});playOn(devOf(ti),pitch,song.tracks[ti].inst)end
if#song.notes[step]==0 then song.notes[step]=nil end
local last=0
for s in pairs(song.notes)do if s>last then last=s end end
local bar=song.spb*4
song.length=math.max(bar*2,(last//bar+1)*bar+bar)
st.dirty=true
end
local wiring=loadWiring()
local blockPitch={}
local function wired(dev)return dev and dev.kind=="note_block"and wiring[dev.addr]end


local function prefetch(s)
for _,n in ipairs(song.notes[s]or{})do
local t,dev=song.tracks[n[1]],devOf(n[1])
if t and not t.mute and wired(dev)and blockPitch[dev.addr]~=n[2]then
if pcall(component.invoke,dev.addr,"setPitch",n[2]+1)then blockPitch[dev.addr]=n[2]end
end
end
end

local function playStep(s)
local fire={}
local direct={}
for _,n in ipairs(song.notes[s]or{})do
local t,dev=song.tracks[n[1]],devOf(n[1])
if t and not t.mute then
local wire=wired(dev)
if wire and component.proxy(wire.rs)then
if blockPitch[dev.addr]~=n[2]then
if pcall(component.invoke,dev.addr,"setPitch",n[2]+1)then blockPitch[dev.addr]=n[2]end
end
local f=fire[wire.rs]or{sides={},bundled={}}
fire[wire.rs]=f
if wire.color then
f.bundled[wire.side]=f.bundled[wire.side]or{}
f.bundled[wire.side][wire.color]=true
else f.sides[wire.side]=true end
else
direct[#direct+1]={dev,n[2],t.inst}
end
end
end

for addr,f in pairs(fire)do rsSet(addr,f.sides,f.bundled,true)end
for _,d in ipairs(direct)do playOn(d[1],d[2],d[3])end

for addr,f in pairs(fire)do rsSet(addr,f.sides,f.bundled,false)end
prefetch(s+1>song.length and 1 or s+1)
end

local function save(p)
p=p or st.path
if not p then
Y.dialog{title="Save Song",text="File name",entry=DIR.."/song.yms",buttons={{"Cancel"},{"Save",function(txt)
if txt and txt~=""then if not txt:match("%.yms$")then txt=txt..".yms"end save(txt)end end,"suggested"}}}
return
end
fs.makeDirectory(fs.path(p))
local f,err=io.open(p,"w")
if not f then return Y.notify("Composer",tostring(err))end
f:write(serialization.serialize(song))
f:close()
st.path,st.dirty=p,false
win.title=fs.name(p)
end
local function load(p)
local f=io.open(p)
if not f then return Y.notify("Composer","Cannot open "..p)end
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if not ok or type(t)~="table"or type(t.notes)~="table"then return Y.notify("Composer","Not a song file")end
song=t
song.bpm,song.spb,song.length=song.bpm or 120,song.spb or 2,song.length or 32
song.tracks=song.tracks or{}
if#song.tracks==0 then song.tracks[1]={inst="harp"}end
for _,t in ipairs(song.tracks)do t.inst=t.inst or"harp"end
st.path,st.dirty,st.step,st.scroll,st.track,st.ttop=p,false,1,0,1,0
win.title=fs.name(p)
end

local function setPlaying(on)
st.playing=on
if on then
st.playStep=st.step
blockPitch={}
prefetch(st.step)
win.tickInterval=60/song.bpm/song.spb
st.nextAt=computer.uptime()
else
win.tickInterval=nil
st.playStep=nil
end
end


local SIDE,STEPW=28,4
local layout={}
local function drawClef(x,row0)

local art={"..##.",".#..#",".#.#.","..#..",".##..","#.#..","#.###","#.#.#",".###.","..#..","#.#..",".#..."}
local top=row0*2+1
for i,line in ipairs(art)do
for j=1,#line do if line:sub(j,j)=="#"then gfx.pset(x+j-1,top+i,Y.theme.fg)end end
end
end

function win.header(w,hw)
local x=2
x=x+ui.button(w,x,1,"New",function()newSong()end,"flat")+1
x=x+ui.button(w,x,1,"Open…",function()
Y.dialog{title="Open Song",entry=st.path or(DIR.."/"),buttons={{"Cancel"},{"Open",function(p)if p and p~=""then load(p)end end,"suggested"}}}
end,"flat")+1
x=x+ui.button(w,x,1,"Save",function()save()end,"flat")+1
x=x+2
x=x+ui.button(w,x,1,st.playing and"■ Stop"or"▶ Play",function()setPlaying(not st.playing)end,"suggested",9)+1
x=x+ui.button(w,x,1,"↻",function()st.loop=not st.loop end,st.loop and"suggested"or"flat",3)+2
gfx.text(x,1,"♩=",Y.theme.headerFg)
x=x+3
ui.button(w,x,1,"−",function()song.bpm=math.max(30,song.bpm-10);if st.playing then win.tickInterval=60/song.bpm/song.spb end end,nil,3)
gfx.text(x+4,1,tostring(song.bpm),Y.theme.headerFg)
ui.button(w,x+8,1,"+",function()song.bpm=math.min(300,song.bpm+10);if st.playing then win.tickInterval=60/song.bpm/song.spb end end,nil,3)
end

function win.draw(w,cw,ch)
local t=Y.theme

gfx.fill(1,1,SIDE,ch,t.sidebar)
gfx.text(2,1,"Tracks",t.dim)
local rows=(ch-3)//3
st.ttop=st.ttop or 0
if st.track<=st.ttop then st.ttop=st.track-1 end
if st.track>st.ttop+rows then st.ttop=st.track-rows end
for i=st.ttop+1,math.min(#song.tracks,st.ttop+rows)do
local tr=song.tracks[i]
local d=devOf(i)
local y=2+(i-st.ttop-1)*3
if i==st.track then ui.round(2,y,SIDE-2,2,t.dark and 0x454545 or 0xDEDDDA)end
gfx.pcircle(4,y*2,1,COLORS[(i-1)%#COLORS+1])
gfx.text(6,y,ui.trunc(tr.name or d.name,SIDE-13),t.fg)
ui.switch(w,SIDE-7,y,not tr.mute,function()tr.mute=not tr.mute end)
local wire=d.kind=="note_block"and wiring[d.addr]
local devName=d.kind=="beep"and"speaker"or d.addr:sub(1,4)
local sub=d.kind=="iron"and(devName.." ♪ "..tr.inst)or d.kind=="beep"and"speaker (beep)"
or wire and(devName.." ϟ "..SIDE_NAMES[wire.side]..(wire.color and(" c"..wire.color)or"").." sync")
or(devName.." · adapter")
gfx.text(6,y+1,ui.trunc(sub,SIDE-7),t.dim)
local idx=i
ui.hit(w,1,y,SIDE-8,2,function(_,px,py,btn)
st.track=idx
if btn~=1 then return end
local items={}

for _,dv in ipairs(devs)do
local key=dv.addr or"beep"
items[#items+1]={"▸ "..dv.name,function()tr.dev=key;st.dirty=true end,check=d==dv}
end
items[#items+1]="-"
if d.kind=="iron"then
for _,ins in ipairs(INSTRUMENTS)do items[#items+1]={"♪ "..ins,function()tr.inst=ins;st.dirty=true;playOn(d,12,ins)end,check=tr.inst==ins}end
items[#items+1]="-"
elseif d.kind=="note_block"then
local cur=wiring[d.addr]
items[#items+1]={"Play via adapter (one block per tick)",function()wiring[d.addr]=nil;saveWiring(wiring)end,check=cur==nil}
for rs in component.list("redstone")do
for side=0,5 do
items[#items+1]={"Redstone "..rs:sub(1,4).." · "..SIDE_NAMES[side],function()
wiring[d.addr]={rs=rs,side=side};saveWiring(wiring)
end,check=cur and cur.rs==rs and cur.side==side and not cur.color}
end
items[#items+1]={"Redstone "..rs:sub(1,4).." · bundled colour…",function()
Y.dialog{title="Bundled cable",text="side (0-5) and colour (0-15), e.g. 3 14",entry="3 0",
buttons={{"Cancel"},{"Set",function(v)
local sd,c=(v or""):match("(%d)%s+(%d+)")
sd,c=tonumber(sd),tonumber(c)
if sd and c and sd<=5 and c<=15 then wiring[d.addr]={rs=rs,side=sd,color=c};saveWiring(wiring)end
end,"suggested"}}}
end}
end
items[#items+1]={"Test (C4)",function()blockPitch[d.addr]=nil;local save=song.notes[0]
song.notes[0]={{idx,6}};playStep(0);song.notes[0]=save end}
items[#items+1]="-"
end
items[#items+1]={"Rename…",function()
Y.dialog{title="Track name",entry=tr.name or d.name,buttons={{"Cancel"},{"OK",function(v)
if v and v~=""then tr.name=v;st.dirty=true end end,"suggested"}}}
end}
items[#items+1]={"Delete track",function()
if#song.tracks<=1 then return end
table.remove(song.tracks,idx)
for stp,list in pairs(song.notes)do
for k=#list,1,-1 do
if list[k][1]==idx then table.remove(list,k)elseif list[k][1]>idx then list[k][1]=list[k][1]-1 end
end
if#list==0 then song.notes[stp]=nil end
end
st.track=math.min(st.track,#song.tracks);st.dirty=true
end,disabled=#song.tracks<=1}
Y.menu(w.x+px,w.y+py,items)
end)
end
if#song.tracks>rows then
gfx.text(SIDE-6,ch-1,string.format("%d/%d",st.track,#song.tracks),t.dim)
end
gfx.text(2,ch-1,ui.trunc("Sound devices: "..#devs,SIDE-8),t.dim)
ui.button(w,2,ch,"+ Track",function()
song.tracks[#song.tracks+1]={inst="harp"}
st.track=#song.tracks;st.dirty=true
end,"flat",9)
ui.button(w,12,ch,"Rescan",function()devs=devices()end,"flat",8)


local sx=SIDE+2
local sw=cw-sx
local row0=3
gfx.fill(sx-1,2,sw+1,17,t.view)
local visible=(sw-8)//STEPW
if st.step<=st.scroll then st.scroll=st.step-1 end
if st.step>st.scroll+visible then st.scroll=st.step-visible end
local x0=sx+7
layout.x0,layout.row0,layout.visible=x0,row0,visible
local lineC=t.dark and 0x9A9996 or 0x5E5C64
local function rowOf(pos)return row0+(14-pos)end
for pos=6,14,2 do gfx.prect(sx,rowOf(pos)*2-1,sw-1,1,lineC)end
drawClef(sx+1,row0)

local bar=song.spb*4
for i=1,visible do
local s=st.scroll+i
local cx=x0+(i-1)*STEPW
if s==st.step then gfx.blend(cx,row0-1,STEPW,17,t.accent,0.18)end
if st.playStep==s then gfx.blend(cx,row0-1,STEPW,17,0x26A269,0.35)end
if(s-1)%bar==0 then
gfx.prect(cx-1,rowOf(14)*2-1,1,17,lineC)
gfx.text(cx,2,tostring((s-1)//bar+1),t.dim)
elseif(s-1)%song.spb==0 then
gfx.pset(cx-1,rowOf(4)*2+1,lineC)
end
if s>song.length then gfx.blend(cx,row0-1,STEPW,17,t.view,0.6)end
end

local order={}
for i=1,#song.tracks do if i~=st.track then order[#order+1]=i end end
order[#order+1]=st.track
for i=1,visible do
local s=st.scroll+i
local cx=x0+(i-1)*STEPW
for _,ti in ipairs(order)do
for _,n in ipairs(song.notes[s]or{})do
if n[1]==ti then
local pos,sharp=POS[n[2]],SHARP[n[2]]
local py=rowOf(pos)*2-1
local col=COLORS[(ti-1)%#COLORS+1]
if song.tracks[ti]and song.tracks[ti].mute then col=t.dim end

for lp=4,pos,-2 do if lp<6 then gfx.prect(cx,rowOf(lp)*2-1,STEPW,1,lineC)end end

gfx.prect(cx+1,py-1,2,1,col);gfx.prect(cx,py,4,1,col);gfx.prect(cx+1,py+1,2,1,col)
if pos<10 then gfx.prect(cx+3,py-6,1,6,col)else gfx.prect(cx,py+1,1,6,col)end
if sharp then gfx.text(cx-1,rowOf(pos),"♯",col)end
end
end
end
local step=s
ui.hit(w,cx,row0,STEPW,15,function(_,px,py,btn)
local pos=14-(py-row0)
st.step=step
if pos>=0 and pos<=14 then
local p=pitchAt(pos,btn==1)
if p and st.writeMode then toggle(step,st.track,p)
elseif p then playOn(devOf(st.track),p,song.tracks[st.track].inst)end
end
end)
end

local ky=21
local kx=sx+4
local KW=4
local whites={1,3,5,6,8,10,11,13,15,17,18,20,22,23}
local hl=st.lastKey
for i,p in ipairs(whites)do
local x=kx+(i-1)*KW
gfx.fill(x,ky,KW-1,6,hl==p and t.accent or 0xFFFFFF)
gfx.text(x,ky+5,NAMES[p+1]:sub(1,1),0x5E5C64,hl==p and t.accent or 0xFFFFFF)
ui.hit(w,x,ky,KW-1,6,function()st.lastKey=p;st.keyAt=computer.uptime();playOn(devOf(st.track),p,song.tracks[st.track].inst)
if st.writeMode then toggle(st.step,st.track,p);st.step=st.step+1 end end)
end
local blacks={0,2,4,7,9,12,14,16,19,21,24}
for _,p in ipairs(blacks)do

local left
for i,wp in ipairs(whites)do if wp==p-1 then left=i end end
local x=left and(kx+left*KW-2)or(p==0 and kx-2 or kx+#whites*KW-2)
gfx.prect(x,ky*2-1,3,7,hl==p and t.accent or 0x1E1E1E)
ui.hit(w,x,ky,3,3,function()st.lastKey=p;st.keyAt=computer.uptime();playOn(devOf(st.track),p,song.tracks[st.track].inst)
if st.writeMode then toggle(st.step,st.track,p);st.step=st.step+1 end end)
end

local ix=kx+#whites*KW+3
ui.button(w,ix,ky,st.writeMode and"● Write: on"or"○ Write: off",function()st.writeMode=not st.writeMode end,st.writeMode and"suggested"or nil,14)
gfx.text(ix,ky+2,string.format("Step %d / %d  ·  bar %d",st.step,song.length,(st.step-1)//(song.spb*4)+1),t.dim)
local here={}
for _,n in ipairs(song.notes[st.step]or{})do if n[1]==st.track then here[#here+1]=NAMES[n[2]+1]end end
gfx.text(ix,ky+3,ui.trunc("Here: "..(#here>0 and table.concat(here," ")or"—"),cw-ix),t.dim)
gfx.text(ix,ky+4,ui.trunc("Steps per beat: "..song.spb,cw-ix),t.dim)
ui.button(w,ix+18,ky+4,"1/8",function()song.spb=2 end,song.spb==2 and"suggested"or"flat",5)
ui.button(w,ix+24,ky+4,"1/16",function()song.spb=4 end,song.spb==4 and"suggested"or"flat",6)
gfx.text(sx,ch,ui.trunc("Click staff: note · right click: ♯ · ←/→ step · Del clear · Space play · Ctrl+S save",sw),t.dim)
if hl and st.keyAt and computer.uptime()-st.keyAt>0.3 then st.lastKey=nil end
end

function win.tick(w)
if not st.playing then return end
playStep(st.playStep)
st.step=st.playStep
st.playStep=st.playStep+1
if st.playStep>song.length then
if st.loop then st.playStep=1 else setPlaying(false);st.step=1 end
end
Y.redraw(w)
end


local KEYMAP={}
local lowRow,highRow="zsxdcvgbhnjm,","q2w3er5t6y7ui"
for i=1,#lowRow do KEYMAP[lowRow:byte(i)]=i end
for i=1,#highRow do KEYMAP[highRow:byte(i)]=12+i end
function win.key(w,char,code)
local K=Y.K
if Y.mods.ctrl()then
if code==K.s then save()end
return
end
if char==32 then setPlaying(not st.playing)
elseif code==K.right then st.step=st.step+1
elseif code==K.left then st.step=math.max(1,st.step-1)
elseif code==K.home then st.step=1
elseif code==K.del or code==K.back then
local list=song.notes[st.step]
if list then for i=#list,1,-1 do if list[i][1]==st.track then table.remove(list,i)end end end
if code==K.back then st.step=math.max(1,st.step-1)end
st.dirty=true
elseif code==K.up then st.track=math.max(1,st.track-1)
elseif code==K.down then st.track=math.min(#song.tracks,st.track+1)
elseif char and KEYMAP[char]then
local p=KEYMAP[char]
if p<=24 then
st.lastKey,st.keyAt=p,computer.uptime()
playOn(devOf(st.track),p,song.tracks[st.track].inst)
if st.writeMode then toggle(st.step,st.track,p);st.step=st.step+1 end
end
end
end
function win.scroll(w,x,y,dir)st.scroll=math.max(0,st.scroll-dir*4);st.step=math.max(st.step,st.scroll+1)end
function win.onSignal(name)if name=="component_added"or name=="component_removed"then devs=devices()end end
function win.onclose(w)
setPlaying(false)
if not st.dirty then return true end
Y.dialog{title="Save the song before closing?",buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save();if not st.dirty then Y.closeWin(w,true)end end,"suggested"}}}
return false
end

newSong()
if path and fs.exists(path)then load(path)end
return win
end

return M
F 18376 /usr/share/yaru/apps/disks.lua





local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local D=require("diskpool")
local M={}

local SKIP={["/dev"]=true,["/mnt"]=true,["/tmp"]=true,["/proc"]=true,["/home/.local/share/Trash"]=true}

local function drives(pools)
local inPool={}
for _,pool in ipairs(pools)do for _,a in ipairs(pool.members)do inPool[a]=pool end end
local r={}
local boot=computer.getBootAddress()
for addr in component.list("filesystem")do
local p=component.proxy(addr)
local mounts={}
for proxy,path in fs.mounts()do if proxy.address==addr then mounts[#mounts+1]=path end end
table.sort(mounts)
local tmp=addr==computer.tmpAddress()
r[#r+1]={kind="drive",addr=addr,proxy=p,label=p.getLabel()or(tmp and"tmpfs"or addr:sub(1,8)),mounts=mounts,
total=p.spaceTotal(),used=p.spaceUsed(),ro=p.isReadOnly(),boot=addr==boot,tmp=tmp,pool=inPool[addr]}
end
table.sort(r,function(a,b)return(a.boot and 0 or a.tmp and 2 or 1)<(b.boot and 0 or b.tmp and 2 or 1)end)
return r
end
local function sortPools(r)
table.sort(r,function(a,b)if a.system~=b.system then return a.system and true or false end return a.label<b.label end)
return r
end

local function poolEntries(pools)
local r={}
for _,pool in ipairs(pools)do
local total,used,present=0,0,0
local members={}
for _,a in ipairs(pool.members)do
local ok=component.type(a)=="filesystem"
local p=ok and component.proxy(a)
local m={addr=a,ok=ok,label=p and(p.getLabel()or a:sub(1,8))or a:sub(1,8),
total=p and p.spaceTotal()or 0,used=p and p.spaceUsed()or 0}
members[#members+1]=m
if ok then present=present+1;total=total+m.total;used=used+m.used end
end
local mnt=D.mounted[pool.id]
r[#r+1]={kind="pool",pool=pool,system=pool.system,label=pool.system and"System Disk"or pool.name,total=total,used=used,members=members,
present=present,mount=mnt and mnt.path or nil}
end
return r
end

function M.open()
local st={sel=1,pools=D.load()}
local win=Y.newWindow{app="disks",title="Disks",w=92,h=28,minW=70,minH=16}
local function refresh()
st.pools=D.load()
st.list={}
for _,e in ipairs(sortPools(poolEntries(st.pools)))do st.list[#st.list+1]=e end
for _,e in ipairs(drives(st.pools))do st.list[#st.list+1]=e end
st.sel=math.max(1,math.min(st.sel,#st.list))
st.free={}

for _,c in ipairs(D.candidates(st.pools))do if not c.pool and c.total>1024*1024 then st.free[#st.free+1]=c end end
Y.scanDrives();Y.dockDirty()
end
local function applyPools(pools)
local ok,err=D.save(pools)
if not ok then return Y.notify("Disks",tostring(err))end
pcall(D.mountAll)
pcall(D.watch)
refresh()
end
refresh()

local function install(d)
local target=d.mounts[1]
if not target then return Y.notify("Disks","Mount the drive first")end
Y.dialog{title="Install the system on “"..d.label.."”?",text="Copies OpenOS, the optimisations and the desktop.\nExisting files with the same names are overwritten.",
buttons={{"Cancel"},{"Install",function()
st.job={done=0,name="counting…",label="Copying"}
require("thread").create(function()
local n=0
local function copy(src,dst)
if SKIP[src]then return end
if fs.isDirectory(src)then
if fs.get(src)and fs.get(src).address~=computer.getBootAddress()and src~="/"then return end
fs.makeDirectory(dst)
for name in fs.list(src)do copy(fs.concat(src,name),fs.concat(dst,name))end
else
fs.copy(src,dst)
n=n+1
st.job.done,st.job.name=n,src
if n%8==0 then Y.redraw(win);os.sleep(0)end
end
end
local ok,err=pcall(copy,"/",target)
pcall(d.proxy.setLabel,"OpenOS Yaru")
st.job=nil
refresh()
Y.redraw(win)
Y.notify(ok and"System installed"or"Install failed",ok and(n.." files copied to "..d.label)or tostring(err))
end):detach()
end,"suggested"}}}
end

local function erase(d)
if d.boot or d.ro or d.tmp then return end
Y.dialog{title="Erase “"..d.label.."”?",text="ALL files on this drive will be deleted. This cannot be undone."..
(d.pool and("\nIt is part of the pool “"..d.pool.name.."”: the pool's files on it are lost too.")or""),
buttons={{"Cancel"},{"Erase",function()
for name in d.proxy.list("/")do d.proxy.remove(name)end
refresh()
Y.notify("Disks",d.label.." erased")
end,"destructive"}}}
end


local function findPool(id)for i,p in ipairs(st.pools)do if p.id==id then return i,p end end end
local function startNewPool()
st.newPool={sel={}}
Y.redraw(win)
end
local function createPool()
local np=st.newPool
local members={}
for _,c in ipairs(D.candidates(st.pools))do if np.sel[c.addr]then members[#members+1]=c.addr end end
if#members==0 then return Y.notify("Disks","Select at least one drive")end
Y.dialog{title="New Pool",text=#members.." drive"..(#members==1 and""or"s").." — name of the pool (mounted at /mnt/<name>)",
entry="pool",buttons={{"Cancel"},{"Create",function(name)
name=(name or""):gsub("^%s+",""):gsub("%s+$","")
if name==""then name="pool"end
local pools=D.load()
local pool={id=D.newId(),name=name,members=members,hide=true}
pools[#pools+1]=pool
st.newPool=nil
applyPools(pools)
for i,e in ipairs(st.list)do if e.kind=="pool"and e.pool.id==pool.id then st.sel=i end end
Y.notify("Disks","Pool “"..name.."” created at "..D.mountPath(pool))
end,"suggested"}}}
end

local function startJob(label,first)
st.job={done=0,name=first or"…",label=label}
local last=os.clock()
return function(n,name)
st.job.done,st.job.name=n,name
if os.clock()-last>0.5 then last=os.clock();Y.redraw(win);os.sleep(0)end
end
end

local function mergeSystem()
if st.job then return end
refresh()
local free=st.free
if#free==0 then return Y.notify("Disks","No other writable drives to join")end
local boot=component.proxy(computer.getBootAddress())
local sys=D.systemPool(st.pools)
local add,now=0,0
for _,c in ipairs(free)do add=add+c.total end
for _,e in ipairs(st.list)do if e.kind=="pool"and e.system then now=e.total end end
if not sys then now=boot.spaceTotal()end

local reserve=D.reserve(boot.spaceTotal())
local over=boot.spaceUsed()+reserve-boot.spaceTotal()
Y.dialog{title=sys and"Add "..#free.." drive"..(#free==1 and""or"s").." to the system disk?"or"Make one system disk?",
text=(sys and""or"The boot drive and "..#free.." other drive"..(#free==1 and""or"s").." become one disk: ")..
"\"/\" grows from "..ui.size(now).." to "..ui.size(now+add)..".\n"..
"System files stay on the boot drive, so the computer still boots without the others.\n"..
"Files already on the added drives stay there, hidden, until the disk is separated."..
(not sys and over>0 and("\nThe boot drive is full: about "..ui.size(over).." of its files (biggest first, never\nthe system) move to the other drives - this takes a while.")or""),
buttons={{"Cancel"},{sys and"Add"or"Join",function()
local addrs={}
for _,c in ipairs(free)do addrs[#addrs+1]=c.addr end
local step=startJob("Moving","joining…")
st.newPool=nil
Y.redraw(win)
require("thread").create(function()
local okc,ok,err=pcall(D.joinSystem,addrs,step)
if not okc then ok,err=nil,ok end
st.job=nil
pcall(D.watch)
refresh()
for i,e in ipairs(st.list)do if e.kind=="pool"and e.system then st.sel=i end end
Y.redraw(win)
if ok then Y.notify("System disk","\"/\" is now "..ui.size(fs.get("/").spaceTotal()).." on "..#ok.members.." drives"..
(err and err>0 and(" · "..err.." files moved off the boot drive")or""))
else Y.notify("Disks",tostring(err))end
end):detach()
end,"suggested"}}}
end
local function splitSystem()
Y.dialog{title="Separate the system disk?",text="All files on the other drives are moved back to the boot drive,\nthen they are separate drives again (in /mnt).",
buttons={{"Cancel"},{"Separate",function()
local step=startJob("Moving","checking space…")
require("thread").create(function()
local ok,n,err=pcall(D.split,step)
st.job=nil
refresh()
Y.redraw(win)
if ok and n then Y.notify("Disks","System disk separated ("..n.." files moved back)")
else Y.notify("Disks","Could not separate: "..tostring(ok and err or n))end
end):detach()
end,"destructive"}}}
end
local function addDrive(e,sx,sy)
local items={}
for _,c in ipairs(D.candidates(st.pools))do
if not c.pool then
items[#items+1]={c.label.."  ·  "..ui.size(c.total).."  ·  "..c.addr:sub(1,8),function()
local pools=D.load()
local i=findPool(e.pool.id)
table.insert(pools[i].members,c.addr)
applyPools(pools)
Y.notify("Disks",c.label.." added to “"..e.pool.name.."”")
end}
end
end
if#items==0 then items[1]={"No free drives to add",nil,disabled=true}end
Y.menu(sx,sy,items)
end
local function removeDrive(e,m)
if not m.ok then

Y.dialog{title="Forget the missing drive?",text="The pool's files stored on "..m.label.." are not reachable and will be gone from the pool.",
buttons={{"Cancel"},{"Forget",function()
local pools=D.load()
local i,pool=findPool(e.pool.id)
for k,a in ipairs(pool.members)do if a==m.addr then table.remove(pool.members,k)break end end
pools[i]=pool
applyPools(pools)
end,"destructive"}}}
return
end
Y.dialog{title="Remove "..m.label.." from the pool?",text="Its files are moved to the other drives of the pool first.",
buttons={{"Cancel"},{"Remove",function()
local step=startJob("Moving","moving files…")
require("thread").create(function()
local ok,err=pcall(D.drain,e.pool,m.addr,step)
st.job=nil
if ok then
local pools=D.load()
local i,pool=findPool(e.pool.id)
for k,a in ipairs(pool.members)do if a==m.addr then table.remove(pool.members,k)break end end
pools[i]=pool
applyPools(pools)
Y.notify("Disks",m.label.." removed from “"..e.pool.name.."” ("..tostring(err).." files moved)")
else
refresh()
Y.notify("Disks","Could not remove the drive: "..tostring(err))
end
Y.redraw(win)
end):detach()
end,"destructive"}}}
end
local function deletePool(e)
local function drop(wipe)
local pools=D.load()
local i=findPool(e.pool.id)
table.remove(pools,i)
if wipe then
for _,m in ipairs(e.members)do
if m.ok then pcall(component.proxy(m.addr).remove,"/.pool-"..e.pool.id)end
end
end
applyPools(pools)

for _,m in ipairs(e.members)do
if m.ok then
local mounted=false
for p in fs.mounts()do if p.address==m.addr then mounted=true end end
if not mounted then fs.mount(component.proxy(m.addr),"/mnt/"..m.addr:sub(1,3))end
end
end
refresh()
end
Y.dialog{title="Delete the pool “"..e.pool.name.."”?",text="The drives become separate again.\nThe pool's files can stay on them (in a hidden folder .pool-"..e.pool.id..") or be deleted.",
buttons={{"Cancel"},{"Delete Files Too",function()drop(true)end,"destructive"},{"Keep Files",function()drop(false)end,"suggested"}}}
end
local function renamePool(e)
Y.dialog{title="Pool Name",entry=e.pool.name,buttons={{"Cancel"},{"Rename",function(s)
if not s or s==""then return end
local pools=D.load()
local i,pool=findPool(e.pool.id)
pool.name=s:sub(1,24)
pool.mount=nil
pools[i]=pool
applyPools(pools)
end,"suggested"}}}
end


local function drawNewPool(w,x,pw,ch)
local t=Y.theme
local np=st.newPool
gfx.text(x,2,"New pool",t.fg)
gfx.text(x,3,ui.trunc("Pick the drives to join into one big drive. Their own files stay where they are.",pw),t.dim)
local cands=D.candidates(st.pools)
local y=5
local total,n=0,0
for _,c in ipairs(cands)do
if y>ch-4 then break end
local on=np.sel[c.addr]
local busy=c.pool~=nil
gfx.text(x,y,busy and"·"or(on and"☑"or"☐"),busy and t.dim or(on and t.accent or t.fg))
gfx.text(x+2,y,ui.trunc(c.label,20),busy and t.dim or t.fg)
gfx.text(x+23,y,ui.size(c.total),t.dim)
gfx.text(x+33,y,busy and("in “"..c.pool.."”")or(ui.size(c.total-c.used).." free"),t.dim)
if not busy then
ui.hit(w,x,y,pw,1,function()np.sel[c.addr]=not np.sel[c.addr]or nil end)
if on then total=total+c.total;n=n+1 end
end
y=y+1
end
if#cands==0 then gfx.text(x,y,"No drives available (the boot drive cannot join a pool).",t.dim);y=y+1 end
y=y+1
gfx.text(x,y,n.." selected · "..ui.size(total).." together",t.fg)
y=y+2
local bx=x
bx=bx+ui.button(w,bx,y,"Create Pool…",createPool,"suggested")+1
ui.button(w,bx,y,"Cancel",function()st.newPool=nil end)
end

local function drawPool(w,e,x,pw,ch)
local t=Y.theme
Y.drawIcon(x,2,"disks")
gfx.text(x+10,2,e.label,t.fg)
gfx.text(x+10,3,e.system and("The whole \"/\" · boot drive + "..(#e.members-1).." more · "..ui.size(e.total))
or("Pool of "..#e.members.." drive"..(#e.members==1 and""or"s").." · "..ui.size(e.total)),t.dim)
local state=e.present==#e.members and"all drives connected"or(#e.members-e.present.." drive(s) missing — their files are hidden")
gfx.text(x+10,4,ui.trunc(state,pw-10),e.present==#e.members and t.success or t.warning)
local y=7
gfx.text(x,y,"Usage",t.fg)
local us=string.format("%s used of %s (%d%%)",ui.size(e.used),ui.size(e.total),e.total>0 and e.used*100//e.total or 0)
gfx.text(x+pw-unicode.len(us),y,us,t.dim)
ui.progress(x,y+1,pw,e.total>0 and e.used/e.total or 0,e.used/math.max(1,e.total)>.9 and t.danger or t.accent)
y=y+3
gfx.text(x,y,"Mounted at",t.fg)
gfx.text(x+12,y,e.mount or"not mounted",t.dim)
y=y+2
local bx=x
if e.mount then bx=bx+ui.button(w,bx,y,"Open",function()Y.launch("files",e.mount)end,"suggested")+1 end
bx=bx+ui.button(w,bx,y,"+ Add Drive",function(_,px)addDrive(e,win.x+px-1,win.y+y+1)end)+1
if e.system then
if#st.free>0 then bx=bx+ui.button(w,bx,y,"+ All Free Drives",mergeSystem)+1 end
ui.button(w,bx,y,"Separate…",not st.job and splitSystem or nil,"destructive")
else
bx=bx+ui.button(w,bx,y,"Rename…",function()renamePool(e)end)+1
ui.button(w,bx,y,"Delete Pool…",function()deletePool(e)end,"destructive")
end
y=y+2
gfx.text(x,y,"Drives",t.fg)
y=y+1
for _,m in ipairs(e.members)do
if y>ch-2 then break end
gfx.text(x,y,m.ok and"●"or"○",m.ok and t.success or t.warning)
gfx.text(x+2,y,ui.trunc(m.label,18),m.ok and t.fg or t.dim)
if m.ok then
local bw=math.max(6,pw-46)
ui.progress(x+21,y,bw,m.total>0 and m.used/m.total or 0)
gfx.text(x+22+bw,y,ui.size(m.total),t.dim)
else
gfx.text(x+21,y,"not connected",t.warning)
end
if e.system and m.addr==e.pool.root then
gfx.text(x+pw-9,y,"  boot",t.dim)
else
ui.button(w,x+pw-9,y,m.ok and"Remove"or"Forget",not st.job and function()removeDrive(e,m)end or nil,"flat",9)
end
y=y+1
end
if st.job then gfx.text(x,ch-1,ui.trunc((st.job.label or"Moving").." "..st.job.done.." files · "..st.job.name,pw),t.dim)end
end

local function drawDrive(w,d,x,pw)
local t=Y.theme
Y.drawIcon(x,2,d.total<=512*1024 and"floppy"or"hdd")
gfx.text(x+10,2,d.label,t.fg)
gfx.text(x+10,3,d.addr,t.dim)
gfx.text(x+10,4,(d.boot and"Boot drive · "or"")..(d.ro and"read-only"or"writable")..
(d.pool and(d.pool.system and" · part of the system disk"or(" · in the pool “"..d.pool.name.."”"))or""),d.pool and t.accent or t.dim)
if not d.tmp and not d.ro and d.total>0 and d.total-d.used<64*1024 then
gfx.text(x+10,5,ui.trunc(d.used>d.total and"Over capacity (files added from outside the game) — nothing can be written"
or"Full — new files cannot be written",pw-10),t.danger)
end
local y=7
gfx.text(x,y,"Usage",t.fg)
local us=string.format("%s used of %s (%d%%)",ui.size(d.used),ui.size(d.total),d.total>0 and d.used*100//d.total or 0)
gfx.text(x+pw-unicode.len(us),y,us,t.dim)
ui.progress(x,y+1,pw,d.total>0 and d.used/d.total or 0,d.used/math.max(1,d.total)>.9 and t.danger or t.accent)
y=y+3
gfx.text(x,y,"Mounted at",t.fg)
gfx.text(x+12,y,#d.mounts>0 and table.concat(d.mounts,", ")or(d.pool and(d.pool.system and"/ (part of the system disk)"or"hidden (part of a pool)")or"not mounted"),t.dim)
y=y+2
local bx=x
if#d.mounts>0 then
bx=bx+ui.button(w,bx,y,"Open",function()Y.launch("files",d.mounts[1])end)+1
if not d.boot and not d.tmp then
bx=bx+ui.button(w,bx,y,"Eject",function()for _,m in ipairs(d.mounts)do fs.umount(m)end refresh()end)+1
end
else
bx=bx+ui.button(w,bx,y,"Mount",function()
fs.mount(d.proxy,"/mnt/"..d.addr:sub(1,3))
refresh()
end,"suggested")+1
end
if not d.ro then
bx=bx+ui.button(w,bx,y,"Rename…",function()
Y.dialog{title="Drive Label",entry=d.label,buttons={{"Cancel"},{"Rename",function(s)
if s and s~=""then pcall(d.proxy.setLabel,s:sub(1,16));refresh()end end,"suggested"}}}
end)+1
end
y=y+2
if d.boot and not D.systemPool(st.pools)and#st.free>0 then
ui.button(w,x,y,"Join All Drives into One System Disk…",not st.job and mergeSystem or nil,"suggested")
elseif not d.boot and not d.ro and not d.tmp and not(d.pool and d.pool.system)then
ui.button(w,x,y,"Install System Here…",function()install(d)end,"suggested")
ui.button(w,x+26,y,"Erase…",function()erase(d)end,"destructive")
end
if st.job then gfx.text(x,y+2,ui.trunc((st.job.label or"Copying").." "..st.job.done.." files · "..st.job.name,pw),t.dim)end
end

function win.draw(w,cw,ch)
local t=Y.theme
local SIDE=28
gfx.fill(1,1,SIDE,ch,t.sidebar)
local y=1
local lastKind
local canMerge=#st.free>0
for i,e in ipairs(st.list)do
if e.kind~=lastKind then
if y>1 then y=y+1 end
gfx.text(2,y,e.kind=="pool"and"Pools"or"Drives",t.dim)
y=y+1
lastKind=e.kind
end
if y+2>ch-(canMerge and 4 or 2)then break end
if i==st.sel and not st.newPool then ui.round(2,y,SIDE-2,2,t.dark and 0x454545 or 0xDEDDDA)end
local kind
if e.kind=="pool"then
kind=(e.system and"/ · "or"Pool · ")..#e.members.." drives · "..ui.size(e.total)
gfx.text(4,y,ui.trunc("▤ "..e.label,SIDE-6),e.system and t.accent or t.fg)
else
kind=(e.boot and"System"or e.tmp and"RAM disk"or e.ro and"Read-only"or(e.total<=512*1024 and"Floppy"or"Drive"))..
" · "..ui.size(e.total)..(e.pool and(e.pool.system and" · in /"or" · in pool")or"")
gfx.text(4,y,ui.trunc(e.label,SIDE-6),e.pool and t.dim or t.fg)
end
gfx.text(4,y+1,ui.trunc(kind,SIDE-6),t.dim)
ui.hit(w,1,y,SIDE,2,function()st.sel=i;st.newPool=nil end)
y=y+3
end
if canMerge then
ui.button(w,2,ch-3,D.systemPool(st.pools)and"+ Add to System Disk…"or"Make One System Disk…",mergeSystem,"suggested",SIDE-2)
end
ui.button(w,2,ch-1,"+ New Pool…",startNewPool,st.newPool and"suggested"or nil,SIDE-2)
local x,pw=SIDE+3,cw-SIDE-4
if st.newPool then return drawNewPool(w,x,pw,ch)end
local e=st.list[st.sel]
if not e then return end
if e.kind=="pool"then drawPool(w,e,x,pw,ch)else drawDrive(w,e,x,pw)end
end
function win.key(w,char,code)
if code==Y.K.down then st.sel=math.min(#st.list,st.sel+1)elseif code==Y.K.up then st.sel=math.max(1,st.sel-1)
elseif code==Y.K.esc then st.newPool=nil
elseif code==0x3F then refresh()end
end
win.onSignal=function(name)if name=="component_added"or name=="component_removed"then refresh()end end
win.api={state=st,refresh=refresh,applyPools=applyPools,createPool=createPool,startNewPool=startNewPool,
mergeSystem=mergeSystem,splitSystem=splitSystem}
return win
end

return M
F 10706 /usr/share/yaru/apps/editor.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local unicode=require("unicode")
local usub,ulen=unicode.sub,unicode.len

local M={}

local KW={}
for w in("and break do else elseif end false for function goto if in local nil not or repeat return then true until while"):gmatch("%S+")do KW[w]=true end


local function lexLua(line,inComment)
local out,i,n={},1,#line
local function push(a,b,k)out[#out+1]={a,line:sub(a,b),k}end
if inComment then
local e=line:find("]]",1,true)
if not e then push(1,n,"com")return out,true end
push(1,e+1,"com");i=e+2
end
while i<=n do
local c=line:sub(i,i)
if line:sub(i,i+3)=="--[["then
local e=line:find("]]",i+4,true)
if not e then push(i,n,"com")return out,true end
push(i,e+1,"com");i=e+2
elseif line:sub(i,i+1)=="--"then push(i,n,"com")break
elseif c=='"'or c=="'"then
local j=i+1
while j<=n do
local d=line:sub(j,j)
if d=="\\"then j=j+1 elseif d==c then break end
j=j+1
end
push(i,math.min(j,n),"str");i=j+1
elseif line:sub(i,i+1)=="[["then
local e=line:find("]]",i+2,true)or n-1
push(i,e+1,"str");i=e+2
elseif c:match("%d")then
local e=select(2,line:find("^[%w%.]*",i))
push(i,e,"num");i=e+1
elseif c:match("[%a_]")then
local e=select(2,line:find("^[%w_]*",i))
local word=line:sub(i,e)
push(i,e,KW[word]and"kw"or"txt");i=e+1
else
local e=select(2,line:find("^[^%w_\"'%-%[]*",i))
if e<i then e=i end
push(i,e,"txt");i=e+1
end
end
return out,false
end

function M.open(path)
local ed={lines={""},cx=1,cy=1,top=1,left=0,path=path,dirty=false,lua=false,find=nil}
local win

local function setTitle()
local name=ed.path and fs.name(ed.path)or"Untitled Document"
win.title=(ed.dirty and"• "or"")..name
end

local function loadFile(p)
ed.lines={}
local f=io.open(p,"r")
if f then
local data=f:read("*a")or""
f:close()
data=data:gsub("\r\n","\n"):gsub("\t","  ")
for l in(data.."\n"):gmatch("(.-)\n")do ed.lines[#ed.lines+1]=l end
if#ed.lines>1 and ed.lines[#ed.lines]==""and data:sub(-1)=="\n"then ed.lines[#ed.lines]=nil end
end
if#ed.lines==0 then ed.lines[1]=""end
ed.path,ed.dirty,ed.cx,ed.cy,ed.top,ed.left=p,false,1,1,1,0
ed.lua=p:match("%.lua$")~=nil
ed.ro=fs.get(p)and fs.get(p).isReadOnly()
setTitle()
end

local function save(p,after)
p=p or ed.path
if not p then
Y.dialog{title="Save As",text="File name (full path)",entry="/home/untitled.txt",buttons={{"Cancel"},
{"Save",function(txt)if txt and txt~=""then save(txt,after)end end,"suggested"}}}
return
end
local f,err=io.open(p,"w")
if not f then return Y.notify("Could not save",tostring(err))end
f:write(table.concat(ed.lines,"\n"),"\n")
f:close()
ed.path,ed.dirty=p,false
ed.lua=p:match("%.lua$")~=nil
setTitle()
for _,w in ipairs(Y.windowsOf("files"))do if w.reload then w.reload()end end
if after then after()end
end

win=Y.newWindow{app="editor",title="Text Editor",w=84,h=28,minW=40,minH=8,showTitle=true}
if path then
if fs.exists(path)then loadFile(path)else ed.path=path;ed.lua=path:match("%.lua$")~=nil;setTitle()end
else setTitle()end

local function line()return ed.lines[ed.cy]end
local function clampX()ed.cx=math.max(1,math.min(ed.cx,ulen(line())+1))end
local function modified()if not ed.dirty then ed.dirty=true;setTitle()end end

local function insert(s)
local l=line()
local parts={}
for p in(s.."\n"):gmatch("(.-)\n")do parts[#parts+1]=p end
local before,after=usub(l,1,ed.cx-1),usub(l,ed.cx)
if#parts==1 then
ed.lines[ed.cy]=before..parts[1]..after
ed.cx=ed.cx+ulen(parts[1])
else
ed.lines[ed.cy]=before..parts[1]
for i=2,#parts do table.insert(ed.lines,ed.cy+i-1,parts[i])end
ed.cy=ed.cy+#parts-1
ed.cx=ulen(parts[#parts])+1
ed.lines[ed.cy]=ed.lines[ed.cy]..after
end
modified()
end

local function findNext(q,from)
if not q or q==""then return end
local n=#ed.lines
for k=0,n do
local y=(ed.cy-1+k)%n+1
local start=(k==0)and(from or ed.cx)or 1
local l=ed.lines[y]
local bytePos=utf8.offset(l,start)or#l+1
local p=unicode.lower(l):find(unicode.lower(q),bytePos,true)
if p then
ed.cy=y
ed.cx=ulen(l:sub(1,p-1))+1
return true
end
end
Y.notify("Text Editor","“"..q.."” not found")
end

local GUT=5
local colors
local function openDialog()
Y.dialog{title="Open File",text="Full path",entry=ed.path and fs.path(ed.path)or"/home/",buttons={{"Cancel"},
{"Open",function(p)if p and p~=""then
if not ed.dirty and#ed.lines==1 and ed.lines[1]==""then loadFile(p)else M.open(p)end
end end,"suggested"}}}
end
function win.header(w,hw)
ui.button(w,2,1,"Open ▾",openDialog,nil,8)
ui.button(w,11,1,"+",function()M.open()end,"flat",3)
ui.button(w,hw-7,1,"Save",function()save()end,nil,6)
end

function win.draw(w,cw,ch)
local t=Y.theme
colors=colors or{}
local dark=t.dark
local C={kw=dark and 0xF66151 or 0xA51D2D,str=dark and 0xE9AD0C or 0x986A44,com=dark and 0x77767B or 0x9A9996,
num=dark and 0xC061CB or 0x813D9C,txt=t.fg}
local rows=ch-1-(ed.find and 1 or 0)
local tw=cw-GUT
if ed.cy<ed.top then ed.top=ed.cy end
if ed.cy>=ed.top+rows then ed.top=ed.cy-rows+1 end
if ed.cx-1<ed.left then ed.left=ed.cx-1 end
if ed.cx-1>=ed.left+tw-1 then ed.left=ed.cx-tw+1 end
gfx.fill(1,1,GUT,rows,t.sidebar)
gfx.fill(GUT+1,1,tw,rows,t.view)

local inCom=false
if ed.lua then
for y=1,ed.top-1 do
local l=ed.lines[y]
if l:find("--[[",1,true)or inCom then
local _,c=lexLua(l,inCom);inCom=c
end
end
end
for r=1,rows do
local y=ed.top+r-1
local l=ed.lines[y]
if not l then break end
local cur=y==ed.cy
gfx.text(1,r,string.format("%4d",y),cur and t.fg or t.dim,cur and(dark and 0x383838 or 0xDEDDDA)or t.sidebar)
if cur then gfx.fill(GUT+1,r,tw,1,dark and 0x2A2A2A or 0xF6F5F4)end
local bg=cur and(dark and 0x2A2A2A or 0xF6F5F4)or t.view
if ed.lua then
local toks
toks,inCom=lexLua(l,inCom)
for _,tk in ipairs(toks)do
local col=ulen(l:sub(1,tk[1]-1))-ed.left
local s=tk[2]
local sl=ulen(s)
if col+sl>0 and col<tw then
if col<0 then s=usub(s,1-col);col=0 end
if col+ulen(s)>tw then s=usub(s,1,tw-col)end
gfx.text(GUT+1+col,r,s,C[tk[3]],bg)
end
end
else
gfx.text(GUT+1,r,usub(l,ed.left+1,ed.left+tw),t.fg,bg)
end
if Y.focus==w and cur then
local cc=usub(l,ed.cx,ed.cx)
gfx.cell(GUT+ed.cx-ed.left,r,cc~=""and cc or" ",t.view,t.accent)
end
local ln=y
ui.hit(w,GUT+1,r,tw,1,function(_,px)ed.cy=ln;ed.cx=px-GUT+ed.left;clampX()end)
end
ui.scrollbar(cw,1,rows,ed.top-1,rows,#ed.lines)

if ed.find then
local fy=ch-1
gfx.fill(1,fy,cw,1,t.sidebar)
gfx.text(2,fy,"Find:",t.dim,t.sidebar)
ui.entry(w,ed.find,8,fy,math.min(40,cw-20),true)
ui.button(w,math.min(48,cw-11),fy,"Next",function()findNext(ed.find.text,ed.cx+1)end,nil,6)
ui.button(w,cw-3,fy,"×",function()ed.find=nil end,"flat",3)
end

gfx.fill(1,ch,cw,1,t.sidebar)
local st=string.format("Ln %d, Col %d",ed.cy,ed.cx)
local mode=(ed.lua and"Lua"or"Plain Text")..(ed.ro and"  (read-only)"or"")
gfx.text(2,ch,ui.trunc(ed.path or"Untitled",cw-30),t.dim,t.sidebar)
gfx.text(cw-unicode.len(st)-unicode.len(mode)-5,ch,mode.."   "..st,t.dim,t.sidebar)
end

function win.scroll(w,x,y,dir)
ed.top=math.max(1,math.min(#ed.lines,ed.top-dir*3))
ed.cy=math.max(ed.top,math.min(ed.cy,ed.top+w.h-4))
clampX()
end

function win.paste(w,s)
if ed.find then ui.entryPaste(ed.find,s)return end
insert((s:gsub("\r\n","\n"):gsub("\t","  ")))
end

function win.key(w,char,code)
local K=Y.K
local c,sh=Y.mods.ctrl(),Y.mods.shift()
if ed.find and not c then
local r=ui.entryKey(ed.find,char,code)
if r=="enter"then findNext(ed.find.text,ed.cx+1)
elseif r=="esc"then ed.find=nil end
if r then return end
end
if c then
if code==K.s then if sh then local p=ed.path;ed.path=nil;save(nil);if not ed.path then ed.path=p end else save()end
elseif code==0x18 then
openDialog()
elseif code==0x31 then M.open()
elseif code==0x21 then ed.find=ed.find or{text="",cur=0};ed.find.cur=ulen(ed.find.text)
elseif code==0x22 then if ed.find then findNext(ed.find.text,ed.cx+1)end
elseif code==K.c then Y.clipboard=line().."\n"
elseif code==0x2D or code==0x25 then
Y.clipboard=line().."\n"
if#ed.lines>1 then table.remove(ed.lines,ed.cy)else ed.lines[1]=""end
ed.cy=math.min(ed.cy,#ed.lines);clampX();modified()
elseif code==K.v or code==0x16 then
local s=Y.clipboard or""
if s:sub(-1)=="\n"then
ed.cx=1;insert(s);ed.cx=1
else insert(s)end
elseif code==K.home then ed.cy,ed.cx=1,1
elseif code==K["end"]then ed.cy=#ed.lines;ed.cx=ulen(line())+1
elseif code==K.d then
table.insert(ed.lines,ed.cy+1,line());ed.cy=ed.cy+1;modified()
end
return
end
local l=line()
if code==K.left then
if ed.cx>1 then ed.cx=ed.cx-1 elseif ed.cy>1 then ed.cy=ed.cy-1;ed.cx=ulen(line())+1 end
elseif code==K.right then
if ed.cx<=ulen(l)then ed.cx=ed.cx+1 elseif ed.cy<#ed.lines then ed.cy=ed.cy+1;ed.cx=1 end
elseif code==K.up then ed.cy=math.max(1,ed.cy-1);clampX()
elseif code==K.down then ed.cy=math.min(#ed.lines,ed.cy+1);clampX()
elseif code==K.pgup then ed.cy=math.max(1,ed.cy-(w.h-3));clampX()
elseif code==K.pgdn then ed.cy=math.min(#ed.lines,ed.cy+(w.h-3));clampX()
elseif code==K.home then
local ind=ulen(l:match("^%s*"))
ed.cx=(ed.cx==ind+1)and 1 or ind+1
elseif code==K["end"]then ed.cx=ulen(l)+1
elseif code==K.enter or code==0x9C then
local ind=l:match("^%s*")
if ed.lua and usub(l,1,ed.cx-1):match("[%(%{]%s*$")or usub(l,1,ed.cx-1):match("%f[%w]then%s*$")or usub(l,1,ed.cx-1):match("%f[%w]do%s*$")
or usub(l,1,ed.cx-1):match("function[^%)]*%)%s*$")then ind=ind.."  "end
insert("\n"..ind)
elseif code==K.back then
if ed.cx>1 then
local before=usub(l,1,ed.cx-1)
local n=(before:match("^%s+$")and#before%2==0 and#before>=2)and 2 or 1
ed.lines[ed.cy]=usub(l,1,ed.cx-1-n)..usub(l,ed.cx)
ed.cx=ed.cx-n
modified()
elseif ed.cy>1 then
local prev=ed.lines[ed.cy-1]
ed.cx=ulen(prev)+1
ed.lines[ed.cy-1]=prev..l
table.remove(ed.lines,ed.cy)
ed.cy=ed.cy-1
modified()
end
elseif code==K.del then
if ed.cx<=ulen(l)then ed.lines[ed.cy]=usub(l,1,ed.cx-1)..usub(l,ed.cx+1);modified()
elseif ed.cy<#ed.lines then ed.lines[ed.cy]=l..table.remove(ed.lines,ed.cy+1);modified()end
elseif code==K.tab then insert("  ")
elseif char and char>=32 and char~=127 then
insert(unicode.char(char))

if ed.lua then
local cl=line()
local ind,word=cl:match("^(%s+)(%S+)$")
if ind and#ind>=2 and ed.cx==ulen(cl)+1 and(word=="end"or word=="else"or word=="until"or word=="}")then
local prev=ed.lines[ed.cy-1]
local pind=prev and#prev:match("^%s*")or 0
if#ind>pind-2 then ed.lines[ed.cy]=cl:sub(3);ed.cx=ed.cx-2 end
end
end
end
end

function win.onclose(w)
if not ed.dirty then return true end
Y.dialog{title="Save changes to “"..(ed.path and fs.name(ed.path)or"Untitled Document").."” before closing?",
text="If you don't save, changes will be permanently lost.",
buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save(nil,function()Y.closeWin(w,true)end)end,"suggested"}}}
return false
end
return win
end

return M
F 3434 /usr/share/yaru/apps/energy.lua



local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local component=require("component")
local unicode=require("unicode")
local M={}
local BARS={"▁","▂","▃","▄","▅","▆","▇","█"}

local function sources()
local r={{id="computer",name="This computer",get=function()return computer.energy(),computer.maxEnergy()end}}
for addr,typ in component.list()do
local ok,m=pcall(component.methods,addr)
if ok and m then
local cur,mx=m.getEnergyStored and"getEnergyStored"or m.getEnergy and"getEnergy"or m.getStored and"getStored",
m.getMaxEnergyStored and"getMaxEnergyStored"or m.getMaxEnergy and"getMaxEnergy"or m.getCapacity and"getCapacity"
if cur and mx and typ~="computer"then
local p=component.proxy(addr)
r[#r+1]={id=addr,name=typ.." "..addr:sub(1,5),get=function()return p[cur](),p[mx]()end}
end
end
end
return r
end

local function human(v)
local a=math.abs(v)
if a>=1e9 then return string.format("%.1fG",v/1e9)elseif a>=1e6 then return string.format("%.1fM",v/1e6)
elseif a>=1e4 then return string.format("%.1fk",v/1e3)end
return string.format("%.0f",v)
end

function M.open()
local st={src=sources(),hist={},sel=1}
local win=Y.newWindow{app="energy",title="Power Statistics",w=90,h=28,minW=60,minH=14}
win.tickInterval=2
local function sample()
local now=computer.uptime()
for _,s in ipairs(st.src)do
local ok,cur,mx=pcall(s.get)
local h=st.hist[s.id]or{}
st.hist[s.id]=h
if ok and cur then
h[#h+1]={now,cur,mx}
if#h>150 then table.remove(h,1)end
end
end
end
sample()
function win.tick(w)sample();Y.redraw(w)end
function win.draw(w,cw,ch)
local t=Y.theme
local SIDE=32
gfx.fill(1,1,SIDE,ch,t.sidebar)
for i,s in ipairs(st.src)do
local y=1+(i-1)*3
if y+2>ch then break end
if i==st.sel then ui.round(2,y,SIDE-2,2,t.dark and 0x454545 or 0xDEDDDA)end
local h=st.hist[s.id]or{}
local last=h[#h]
gfx.text(4,y,ui.trunc(s.name,SIDE-6),t.fg)
if last and last[3]>0 then
ui.progress(4,y+1,SIDE-12,last[2]/last[3],last[2]/last[3]<.2 and t.danger or t.success)
gfx.text(SIDE-6,y+1,string.format("%3d%%",math.floor(last[2]*100/last[3])),t.dim)
end
ui.hit(w,1,y,SIDE,2,function()st.sel=i end)
end
local s=st.src[st.sel]
if not s then return end
local h=st.hist[s.id]or{}
local last=h[#h]
local x,pw=SIDE+3,cw-SIDE-4
gfx.text(x,1,s.name,t.fg)
if not last then gfx.text(x,3,"no data",t.dim)return end
local first=h[math.max(1,#h-10)]
local rate=(#h>1 and last[1]>first[1])and(last[2]-first[2])/(last[1]-first[1])or 0
gfx.text(x,2,string.format("%s / %s   (%d%%)",human(last[2]),human(last[3]),last[3]>0 and math.floor(last[2]*100/last[3])or 0),t.dim)
local eta=""
if rate<-0.01 then eta=string.format("empty in %d min",math.floor(last[2]/-rate/60))
elseif rate>0.01 and last[3]>last[2]then eta=string.format("full in %d min",math.floor((last[3]-last[2])/rate/60))end
gfx.text(x,3,string.format("rate %s%s/s  %s",rate>=0 and"+"or"",human(rate),eta),rate<0 and t.danger or t.success)

local gy,gh=5,ch-6
local vals={}
for i=1,#h do vals[i]=h[i][2]end
ui.graph(x,gy,pw,gh,vals,last[3]>0 and last[3]or 1,t.accent)
gfx.text(x,ch,string.format("last %d samples, every 2 s",#h),t.dim)
end
function win.key(w,char,code)
if code==Y.K.down then st.sel=math.min(#st.src,st.sel+1)elseif code==Y.K.up then st.sel=math.max(1,st.sel-1)end
end
function win.onSignal(name)if name=="component_added"or name=="component_removed"then st.src=sources()end end
return win
end

return M
F 4884 /usr/share/yaru/apps/explorer.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local component=require("component")
local unicode=require("unicode")
local M={}
local RISKY={shutdown=true,set=true,setData=true,remove=true,makeReadonly=true,setLabel=true,format=true,
stop=true,crash=true}

local function fmt(v,depth)
depth=depth or 0
local t=type(v)
if t=="string"then return string.format("%q",#v>200 and v:sub(1,200).."…"or v)end
if t~="table"or depth>1 then return tostring(v)end
local parts,n={},0
for k,x in pairs(v)do
n=n+1
if n>12 then parts[#parts+1]="…"break end
parts[#parts+1]=(type(k)=="string"and k.."="or"")..fmt(x,depth+1)
end
return"{"..table.concat(parts,", ").."}"
end

local function wrap(s,w)
local out={}
for line in(s.."\n"):gmatch("(.-)\n")do
while unicode.len(line)>w do out[#out+1]=unicode.sub(line,1,w);line=unicode.sub(line,w+1)end
out[#out+1]=line
end
return out
end

function M.open()
local st={ci=1,mi=1,ctop=0,mtop=0,args={text="",cur=0},out=nil}
local win=Y.newWindow{app="explorer",title="Component Explorer",w=110,h=34,minW=80,minH=16}
local function comps()
local r={}
for addr,typ in component.list()do r[#r+1]={addr=addr,type=typ}end
table.sort(r,function(a,b)return a.type==b.type and a.addr<b.addr or a.type<b.type end)
return r
end
local function methods(addr)
local r={}
local ok,m=pcall(component.methods,addr)
if ok and m then for name,direct in pairs(m)do r[#r+1]={name=name,direct=direct}end end
table.sort(r,function(a,b)return a.name<b.name end)
return r
end
local function call(c,m)
local f,err=load("return "..(st.args.text==""and""or st.args.text),"=args","t",{math=math,string=string})
if not f then st.out={"argument error: "..err,true}return end
local ok,a=pcall(table.pack,f())
if not ok then st.out={"argument error: "..tostring(a),true}return end
local r=table.pack(pcall(component.invoke,c.addr,m.name,table.unpack(a,1,a.n)))
if r[1]then
local parts={}
for i=2,r.n do parts[#parts+1]=fmt(r[i])end
st.out={#parts>0 and table.concat(parts,", ")or"(no values)",false}
else st.out={tostring(r[2]),true}end
end
function win.draw(w,cw,ch)
local t=Y.theme
local list=comps()
st.ci=math.min(st.ci,#list)
local c=list[st.ci]
local CW1,CW2=30,26

gfx.fill(1,1,CW1,ch,t.sidebar)
gfx.text(2,1,#list.." components",t.dim)
for i=1,ch-2 do
local e=list[st.ctop+i]
if not e then break end
local y=i+1
if st.ctop+i==st.ci then ui.select(2,y,CW1-2,t.dark and 0x454545 or 0xDEDDDA)end
gfx.text(3,y,ui.trunc(e.type,16),t.fg)
gfx.text(20,y,e.addr:sub(1,8),t.dim)
local idx=st.ctop+i
ui.hit(w,1,y,CW1,1,function()st.ci,st.mi,st.mtop,st.out=idx,1,0,nil end)
end
if not c then return end

local ms=methods(c.addr)
st.mi=math.min(st.mi,math.max(1,#ms))
gfx.text(CW1+2,1,#ms.." methods",t.dim)
for i=1,ch-2 do
local m=ms[st.mtop+i]
if not m then break end
local y=i+1
if st.mtop+i==st.mi then ui.select(CW1+1,y,CW2-1,t.sel)end
gfx.text(CW1+2,y,ui.trunc(m.name,CW2-5),st.mtop+i==st.mi and t.selFg or t.fg)
if m.direct then gfx.text(CW1+CW2-3,y,"·",t.dim)end
local idx=st.mtop+i
ui.hit(w,CW1+1,y,CW2,1,function()st.mi,st.out=idx,nil end)
end

local m=ms[st.mi]
local x,pw=CW1+CW2+2,cw-CW1-CW2-3
gfx.text(x,1,c.type,t.fg)
gfx.text(x,2,c.addr,t.dim)
if not m then return end
local y=4
ui.round(x,y,pw,1,t.card)
gfx.text(x+1,y,ui.trunc(c.type.."."..m.name..(m.direct and"  (direct)"or"  (indirect, 1 call/tick)"),pw-2),t.accent,t.card)
y=y+2
local ok,doc=pcall(component.doc,c.addr,m.name)
for _,l in ipairs(wrap(ok and doc or"No documentation.",pw))do
if y>ch-9 then break end
gfx.text(x,y,l,t.fg);y=y+1
end
y=math.max(y+1,ch-7)
gfx.text(x,y,"Arguments (Lua, comma separated)",t.dim)
ui.entry(w,st.args,x,y+1,pw-10,Y.focus==w,"e.g. 1, \"text\", true")
ui.button(w,x+pw-8,y+1,"Call",function()
if RISKY[m.name]then
Y.dialog{title="Call "..m.name.."?",text="This method can change or erase data, or stop the computer.",
buttons={{"Cancel"},{"Call",function()call(c,m)end,"destructive"}}}
else call(c,m)end
end,"suggested",8)
if st.out then
local lines=wrap(st.out[1],pw)
for i=1,math.min(#lines,ch-y-2)do gfx.text(x,y+2+i,lines[i],st.out[2]and t.danger or t.success)end
end
end
function win.key(w,char,code)
local r=ui.entryKey(st.args,char,code)
if r=="enter"then
local list=comps()
local c=list[st.ci]
local ms=c and methods(c.addr)
if ms and ms[st.mi]and not RISKY[ms[st.mi].name]then call(c,ms[st.mi])end
elseif not r then
if code==Y.K.down then st.mi=st.mi+1 elseif code==Y.K.up then st.mi=math.max(1,st.mi-1)
elseif code==Y.K.pgdn then st.ci=st.ci+1;st.mi=1 elseif code==Y.K.pgup then st.ci=math.max(1,st.ci-1);st.mi=1 end
end
end
function win.paste(w,s)ui.entryPaste(st.args,s)end
function win.scroll(w,x,y,dir)
if x<=30 then st.ctop=math.max(0,st.ctop-dir*3)else st.mtop=math.max(0,st.mtop-dir*3)end
end
function win.onSignal(name)if name=="component_added"or name=="component_removed"then Y.redraw(win)end end
return win
end

return M
F 17286 /usr/share/yaru/apps/files.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local unicode=require("unicode")

local M={}
local TRASH="/home/.local/share/Trash"
local clip

local function trashFiles()return fs.concat(TRASH,"files")end


local function copyTree(src,dst)
if fs.isDirectory(src)then
local ok,err=fs.makeDirectory(dst)
if not ok and not fs.isDirectory(dst)then return nil,err end
for name in fs.list(src)do
local r,e=copyTree(fs.concat(src,name),fs.concat(dst,name))
if not r then return nil,e end
end
return true
end
return fs.copy(src,dst)
end
local function moveTree(src,dst)
local a,b=fs.get(src),fs.get(dst)
if a and b and a.address==b.address and not fs.isLink(src)then
local ok=fs.rename(src,dst)
if ok then return true end
end
local ok,err=copyTree(src,dst)
if not ok then return nil,err end
return fs.remove(src)
end
local function freeName(dir,name)
local p=fs.concat(dir,name)
if not fs.exists(p)then return p end
local base,ext=name:match("^(.-)(%.[^.]*)$")
if not base or base==""then base,ext=name,""end
for i=2,999 do
p=fs.concat(dir,base.." ("..i..")"..ext)
if not fs.exists(p)then return p end
end
end

local function kindOf(name,dir)
if dir then return"folder"end
local ext=name:match("%.([%w]+)$")
ext=ext and ext:lower()
if ext=="lua"then return"program"end
if ext=="pic"then return"image"end
if ext=="cfg"or ext=="txt"or ext=="md"or ext=="log"or ext=="json"or not ext then return"text"end
return"file"
end
local ICON={folder="▆",program="▶",text="≡",file="□",image="▣"}
local BIGICON={folder="folder",program="luafile",text="text",file="file",image="viewer"}

function M.open(path,action)
local st={path="/home",hist={},fwd={},sel=0,top=0,hidden=false,entries={},filter=nil,view="grid"}
local win
local trashMode=false

local function load()
st.entries={}
local dir=trashMode and trashFiles()or st.path
if fs.isDirectory(dir)then
for name in fs.list(dir)do
local isDir=name:sub(-1)=="/"
local n=isDir and name:sub(1,-2)or name
if st.hidden or n:sub(1,1)~="."then
local full=fs.concat(dir,n)
st.entries[#st.entries+1]={name=n,dir=isDir,full=full,size=(not isDir)and fs.size(full)or nil,
link=fs.isLink(full)}
end
end
end
table.sort(st.entries,function(a,b)
if a.dir~=b.dir then return a.dir end
return unicode.lower(a.name)<unicode.lower(b.name)
end)
st.sel=math.min(st.sel,#st.entries)
if st.sel==0 and#st.entries>0 then st.sel=1 end
st.top=0
win.title=trashMode and"Trash"or(st.path=="/home"and"Home"or fs.name(st.path)or"/")
local d=fs.get(dir)
st.free=d and d.spaceTotal and(d.spaceTotal()-d.spaceUsed())or nil
st.ro=d and d.isReadOnly and d.isReadOnly()
end

local function go(p,noHist)
if p=="trash://"then
if not noHist then st.hist[#st.hist+1]=trashMode and"trash://"or st.path;st.fwd={}end
trashMode=true
fs.makeDirectory(trashFiles())
else
p=fs.canonical(p)
if not fs.isDirectory(p)then return Y.notify("Files",p.." is not a folder")end
if not noHist then st.hist[#st.hist+1]=trashMode and"trash://"or st.path;st.fwd={}end
trashMode=false
st.path=p
end
st.sel=0
load()
end

local function selected()return st.entries[st.sel]end
local function curDir()return trashMode and trashFiles()or st.path end

local function refreshAll()
for _,w in ipairs(Y.windowsOf("files"))do if w.reload then w.reload()end end
end

local function trash(e)
if trashMode then
Y.dialog{title="Delete “"..e.name.."” permanently?",text="This cannot be undone.",
buttons={{"Cancel"},{"Delete",function()fs.remove(e.full);fs.remove(fs.concat(TRASH,"info",e.name..".trashinfo"));refreshAll()end,"destructive"}}}
return
end
fs.makeDirectory(trashFiles());fs.makeDirectory(fs.concat(TRASH,"info"))
local dst=freeName(trashFiles(),e.name)
local ok,err=moveTree(e.full,dst)
if not ok then return Y.notify("Cannot move to Trash",tostring(err))end
local f=io.open(fs.concat(TRASH,"info",fs.name(dst)..".trashinfo"),"w")
if f then f:write(e.full);f:close()end
Y.notify("“"..e.name.."” moved to trash",nil,{actionLabel="Undo",action=function()
moveTree(dst,e.full);fs.remove(fs.concat(TRASH,"info",fs.name(dst)..".trashinfo"));refreshAll()
end})
refreshAll()
end

local function restore(e)
local info=fs.concat(TRASH,"info",e.name..".trashinfo")
local f=io.open(info)
local orig=f and f:read("*a");if f then f:close()end
orig=orig and orig~=""and orig or fs.concat("/home",e.name)
local ok,err=moveTree(e.full,freeName(fs.path(orig),fs.name(orig)))
if not ok then return Y.notify("Cannot restore",tostring(err))end
fs.remove(info)
refreshAll()
end

local function paste()
if not clip or trashMode then return end
local n,errs=0,0
for _,p in ipairs(clip.paths)do
local dst=freeName(st.path,fs.name(p))
local ok
if(st.path.."/"):sub(1,#p+1)==p.."/"then ok=false
elseif clip.mode=="cut"then ok=moveTree(p,dst)else ok=copyTree(p,dst)end
if ok then n=n+1 else errs=errs+1 end
end
if clip.mode=="cut"then clip=nil end
if errs>0 then Y.notify("Paste",errs.." item(s) could not be pasted")end
refreshAll()
end

local function rename(e)
Y.dialog{title="Rename",entry=e.name,buttons={{"Cancel"},{"Rename",function(txt)
if not txt or txt==""or txt==e.name then return end
if txt:find("/")then return Y.notify("Rename","Names cannot contain “/”")end
local ok,err=moveTree(e.full,fs.concat(fs.path(e.full),txt))
if not ok then Y.notify("Cannot rename",tostring(err))end
refreshAll()
end,"suggested"}}}
end

local function newFolder()
Y.dialog{title="New Folder",text="Folder name",entry="Untitled Folder",buttons={{"Cancel"},{"Create",function(txt)
if not txt or txt==""then return end
local ok,err=fs.makeDirectory(fs.concat(st.path,txt))
if not ok then Y.notify("Cannot create folder",tostring(err))end
refreshAll()
end,"suggested"}}}
end
local function newFile()
Y.dialog{title="New Document",text="File name",entry="Untitled.txt",buttons={{"Cancel"},{"Create",function(txt)
if not txt or txt==""then return end
local p=fs.concat(st.path,txt)
if not fs.exists(p)then local f=io.open(p,"w")if f then f:close()end end
refreshAll()
Y.launch("editor",p)
end,"suggested"}}}
end

local function openEntry(e,how)
if not e then return end
if trashMode then return restore(e)end

if e.dir and how~="browse"and fs.exists(fs.concat(e.full,"index.ocv"))then return Y.launch("player",e.full)end
if e.dir then return go(e.full)end
if e.name=="index.ocv"then return Y.launch("player",fs.path(e.full))end
local k=kindOf(e.name)
if how=="paint"then return Y.launch("paint",e.full)end
if k=="image"and not how then return Y.launch("viewer",e.full)end
if e.name:match("%.yms$")and not how then return Y.launch("composer",e.full)end
if e.name:match("%.rsl$")and not how then return Y.launch("redlab",e.full)end
if e.name:lower():match("%.dfpwm$")and not how then return Y.launch("tapes",e.full)end
if e.name:lower():match("%.3dm$")and not how then return Y.launch("print3d",e.full)end
if e.name:lower():match("%.holo$")and not how then return Y.launch("holo",e.full)end
if how=="edit"or(k=="text"and how~="run")then return Y.launch("editor",e.full)end
if k=="program"or how=="run"then return Y.launch("terminal",e.full)end
Y.launch("editor",e.full)
end

local function properties(e)
local t={"Location: "..fs.path(e.full)}
if e.dir then
local n=0
for _ in fs.list(e.full)do n=n+1 end
t[#t+1]=n.." item(s)"
else t[#t+1]="Size: "..ui.size(e.size or 0)end
local lm=fs.lastModified(e.full)
if lm and lm>0 then t[#t+1]="Modified: "..os.date("!%Y-%m-%d %H:%M",lm//1000+math.floor((Y.cfg.tz or 0)*3600))end
local d=fs.get(e.full)
if d then t[#t+1]="Drive: "..(d.getLabel()or d.address:sub(1,8))..(d.isReadOnly()and" (read-only)"or"")end
Y.dialog{title=e.name,text=table.concat(t,"\n"),buttons={{"Close"}}}
end

local function entryMenu(e,x,y)
local items
if trashMode then
items={{"Restore From Trash",function()restore(e)end},{"Delete Permanently",function()trash(e)end}}
else
items={
{"Open",function()openEntry(e)end,key="Enter"},
}
if not e.dir then
items[#items+1]={"Open With Text Editor",function()openEntry(e,"edit")end}
if kindOf(e.name)=="image"then items[#items+1]={"Open With Paint",function()openEntry(e,"paint")end}end
items[#items+1]={"Run in Terminal",function()openEntry(e,"run")end}
else
if fs.exists(fs.concat(e.full,"index.ocv"))then
items[1]={"Play in Media Player",function()Y.launch("player",e.full)end,key="Enter"}
items[#items+1]={"Browse Folder",function()openEntry(e,"browse")end}
end
items[#items+1]={"Open in Terminal",function()Y.launch("terminal",nil,e.full)end}
end
items[#items+1]="-"
items[#items+1]={"Cut",function()clip={mode="cut",paths={e.full}}end,key="Ctrl+X"}
items[#items+1]={"Copy",function()clip={mode="copy",paths={e.full}}end,key="Ctrl+C"}
items[#items+1]={"Paste",paste,key="Ctrl+V",disabled=not clip}
items[#items+1]="-"
items[#items+1]={"Rename…",function()rename(e)end,key="F2"}
items[#items+1]={"Move to Trash",function()trash(e)end,key="Del"}
items[#items+1]="-"
items[#items+1]={"Properties",function()properties(e)end}
end
Y.menu(x,y,items)
end

local function bgMenu(x,y)
if trashMode then
return Y.menu(x,y,{{"Empty Trash",function()M.emptyTrash(refreshAll)end,disabled=#st.entries==0}})
end
Y.menu(x,y,{
{"New Folder…",newFolder},{"New Document…",newFile},"-",
{"Paste",paste,key="Ctrl+V",disabled=not clip},"-",
{"Show Hidden Files",function()st.hidden=not st.hidden;load()end,check=st.hidden,key="Ctrl+H"},
{st.view=="grid"and"View as List"or"View as Grid",function()st.view=st.view=="grid"and"list"or"grid";st.top=0 end,key="Ctrl+1"},
{"Open in Terminal",function()Y.launch("terminal",nil,st.path)end},
})
end

win=Y.newWindow{app="files",title="Files",w=92,h=28,minW=50,minH=10}
win.reload=function()local s=st.sel;load();st.sel=math.min(s,#st.entries);Y.redraw(win)end

local SIDE=18
function win.header(w,hw)
local t=Y.theme
ui.button(w,2,1,"‹",function()local p=table.remove(st.hist)if p then st.fwd[#st.fwd+1]=trashMode and"trash://"or st.path;go(p,true)end end,"flat",3)
ui.button(w,5,1,"›",function()local p=table.remove(st.fwd)if p then st.hist[#st.hist+1]=trashMode and"trash://"or st.path;go(p,true)end end,"flat",3)

local x=9
if trashMode then gfx.text(x,1,"Trash",t.headerFg)
else
local crumbs,acc,rest={},"",st.path
if st.path=="/home"or st.path:sub(1,6)=="/home/"then
crumbs[1]={"⌂ Home","/home"};acc="/home";rest=st.path:sub(6)
else crumbs[1]={"/","/"}end
for seg in rest:gmatch("[^/]+")do acc=acc.."/"..seg;crumbs[#crumbs+1]={seg,acc}end
for i,c in ipairs(crumbs)do
local label=c[1]
if x+unicode.len(label)+3>hw-12 then break end
local cur=i==#crumbs
local p=c[2]
x=x+ui.button(w,x,1,label,function()go(p)end,cur and nil or"flat")+1
if not cur then gfx.text(x-1,1,"›",t.dim)end
end
end
ui.button(w,hw-10,1,"☰",function(_,lx,ly)
bgMenu(win.x+hw-12,win.y+1)
end,"flat",3)
if trashMode then ui.button(w,hw-7,1,"Empty",function()M.emptyTrash(refreshAll)end,"destructive",7)end
end

function win.draw(w,cw,ch)
local t=Y.theme

gfx.fill(1,1,SIDE,ch,t.sidebar)
local places={{"⌂ Home","/home"},{"▆ Programs","/bin"},{"▆ Libraries","/lib"},{"▆ Temporary","/tmp"},
{"▭ Computer","/"}}
local y=2
local function place(label,p)
local cur=(p=="trash://"and trashMode)or(not trashMode and p==st.path)
if cur then ui.select(2,y,SIDE-2,t.dark and 0x454545 or 0xDEDDDA)end
gfx.text(3,y,ui.trunc(label,SIDE-4),t.fg)
ui.hit(w,1,y,SIDE,1,function()go(p)end)
y=y+1
end
for _,p in ipairs(places)do place(p[1],p[2])end
place("▯ Trash","trash://")
if Y.drives and#Y.drives>0 then
y=y+1
gfx.text(2,y,"Devices",t.dim);y=y+1
for _,d in ipairs(Y.drives)do
local path=d.path
place("▭ "..d.label,path)
gfx.text(SIDE-2,y-1,"⏏",t.dim)
ui.hit(w,SIDE-2,y-1,2,1,function()fs.umount(path);Y.scanDrives();Y.redraw();if st.path:sub(1,#path)==path then go("/home")end end)
end
end

local lx=SIDE+1
local lw=cw-SIDE
gfx.fill(lx,1,lw,ch,t.view)
local rows=ch-3
if st.view=="grid"then
local CW,CH=14,7
local cols=math.max(1,(lw-2)//CW)
local vis=math.max(1,(ch-2)//CH)
st.cols=cols
if st.sel>0 then
local r=(st.sel-1)//cols
if r<st.top then st.top=r end
if r>=st.top+vis then st.top=r-vis+1 end
end
if#st.entries==0 then
local s=trashMode and"Trash is Empty"or"Folder is Empty"
gfx.text(lx+(lw-unicode.len(s))//2,ch//2,s,t.dim,t.view)
end
for i=st.top*cols+1,math.min(#st.entries,(st.top+vis)*cols)do
local e=st.entries[i]
local k=i-st.top*cols-1
local gx,gy=lx+1+(k%cols)*CW,2+(k//cols)*CH
if i==st.sel then ui.round(gx,gy,CW-1,CH-1,t.dark and 0x454545 or 0xDEDDDA)end
local bi=BIGICON[kindOf(e.name,e.dir)]
if e.dir and e.video==nil then e.video=fs.exists(fs.concat(e.full,"index.ocv"))end
if e.video then bi="video"end
Y.drawIcon(gx+3,gy,bi)
local name=ui.trunc(e.name,CW-2)
local bg=i==st.sel and t.sel or nil
local nx=gx+(CW-1-unicode.len(name))//2
if bg then ui.pill(nx-1,gy+4,unicode.len(name)+2,bg)end
gfx.text(nx,gy+4,name,bg and t.selFg or t.fg)
if e.link then gfx.text(gx+10,gy+3,"↗",t.dim)end
local idx=i
ui.hit(w,gx,gy,CW,CH-1,function(_,px,py,btn,dbl)
st.sel=idx
if btn==1 then entryMenu(st.entries[idx],w.x+px-1,w.y+py+1)
elseif dbl then openEntry(st.entries[idx])end
end)
end
ui.scrollbar(cw,2,ch-2,st.top,vis,math.ceil(#st.entries/cols))
rows=0
end
local nameW=lw-16
if rows>0 then gfx.text(lx+2,1,"Name",t.dim,t.view)end
if rows>0 then gfx.text(lx+nameW+2,1,"Size",t.dim,t.view)end
if st.sel>0 then
if st.sel-1<st.top then st.top=st.sel-1 end
if st.sel-1>=st.top+rows then st.top=st.sel-rows end
end
if#st.entries==0 and st.view~="grid"then
local s=trashMode and"Trash is Empty"or"Folder is Empty"
gfx.text(lx+(lw-unicode.len(s))//2,ch//2,s,t.dim,t.view)
end
for i=1,rows do
local e=st.entries[st.top+i]
if not e then break end
local yy=1+i
local sel=st.top+i==st.sel
local bg=sel and t.sel or t.view
local fg=sel and t.selFg or t.fg
if sel then ui.select(lx+1,yy,lw-3,bg)end
local k=kindOf(e.name,e.dir)
gfx.text(lx+1,yy,ICON[k],sel and fg or(e.dir and 0xE9AD0C or k=="program"and t.success or t.dim),bg)
gfx.text(lx+3,yy,ui.trunc(e.name..(e.link and" ↗"or""),nameW-2),fg,bg)
local sz=e.dir and"—"or ui.size(e.size or 0)
gfx.text(lx+lw-2-unicode.len(sz),yy,sz,sel and fg or t.dim,bg)
local idx=st.top+i
ui.hit(w,lx,yy,lw,1,function(_,px,py,btn,dbl)
st.sel=idx
if btn==1 then entryMenu(st.entries[idx],w.x+px-1,w.y+py+1)
elseif dbl then openEntry(st.entries[idx])end
end)
end
if rows>0 then ui.scrollbar(cw,2,rows,st.top,rows,#st.entries)end

gfx.fill(lx,ch,lw,1,t.sidebar)
local status=#st.entries.." items"
if st.free then status=status..", free space "..ui.size(st.free)end
if st.ro then status=status.." (read-only)"end
if clip then status=status.."  •  "..#clip.paths.." item(s) on clipboard ("..clip.mode..")"end
gfx.text(lx+1,ch,ui.trunc(status,lw-2),t.dim,t.sidebar)

table.insert(w.hits,1,{lx,2,lw,ch-2,function(_,px,py,btn)if btn==1 then bgMenu(w.x+px-1,w.y+py+1)else st.sel=0 end end})
end

function win.scroll(w,x,y,dir)
if st.view=="grid"then st.top=math.max(0,math.min(math.ceil(#st.entries/(st.cols or 1))-1,st.top-dir))return end
st.top=math.max(0,math.min(#st.entries-1,st.top-dir*3))
if st.sel>0 and(st.sel<=st.top or st.sel>st.top+w.h-4)then st.sel=st.top+1 end
end

function win.key(w,char,code)
local K=Y.K
local c=Y.mods.ctrl()
local e=selected()
local step=st.view=="grid"and(st.cols or 1)or 1
if code==K.down then st.sel=math.min(#st.entries,st.sel+step)
elseif code==K.up then st.sel=math.max(1,st.sel-step)
elseif st.view=="grid"and code==K.right then st.sel=math.min(#st.entries,st.sel+1)
elseif st.view=="grid"and code==K.left and not Y.mods.alt()then st.sel=math.max(1,st.sel-1)
elseif c and code==0x02 then st.view=st.view=="grid"and"list"or"grid";st.top=0
elseif code==K.pgdn then st.sel=math.min(#st.entries,st.sel+w.h-4)
elseif code==K.pgup then st.sel=math.max(1,st.sel-(w.h-4))
elseif code==K.home then st.sel=math.min(1,#st.entries)
elseif code==K["end"]then st.sel=#st.entries
elseif code==K.enter then openEntry(e)
elseif code==K.back or(Y.mods.alt()and code==K.up)then if not trashMode and st.path~="/"then go(fs.path(st.path))end
elseif Y.mods.alt()and code==K.left then local p=table.remove(st.hist)if p then st.fwd[#st.fwd+1]=st.path;go(p,true)end
elseif code==K.f2 then if e and not trashMode then rename(e)end
elseif code==K.del then if e then trash(e)end
elseif code==0x3F then load()
elseif c and code==K.c then if e then clip={mode="copy",paths={e.full}}end
elseif c and code==0x2D then if e then clip={mode="cut",paths={e.full}}end
elseif c and code==K.v then paste()
elseif c and code==K.h then st.hidden=not st.hidden;load()
elseif c and code==K.l then
Y.dialog{title="Go to Location",entry=st.path,buttons={{"Cancel"},{"Go",function(p)if p and p~=""then go(p)end end,"suggested"}}}
elseif c and Y.mods.shift()and code==0x31 then newFolder()
elseif char and char>32 and not c then

local ch=unicode.lower(unicode.char(char))
for i=1,#st.entries do
local j=(st.sel+i-1)%#st.entries+1
if unicode.lower(unicode.sub(st.entries[j].name,1,1))==ch then st.sel=j break end
end
end
end

go(path or"/home",true)
if action=="newfolder"then newFolder()end
return win
end

function M.emptyTrash(done)
Y.dialog{title="Empty all items from Trash?",text="All items in the Trash will be permanently deleted.",
buttons={{"Cancel"},{"Empty Trash",function()
fs.remove(fs.concat(TRASH,"files"));fs.remove(fs.concat(TRASH,"info"))
fs.makeDirectory(fs.concat(TRASH,"files"))
if done then done()end
end,"destructive"}}}
end

return M
F 3486 /usr/share/yaru/apps/g2048.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local unicode=require("unicode")
local M={}
local BEST="/home/.local/share/2048.best"
local TILE={[2]={0xF0F0F0,0x5A5A5A},[4]={0xFFDBBF,0x5A5A5A},[8]={0xFFB680,0xFFFFFF},[16]={0xFF9240,0xFFFFFF},
[32]={0xFF6D40,0xFFFFFF},[64]={0xFF4900,0xFFFFFF},[128]={0xFFDB80,0xFFFFFF},[256]={0xFFDB40,0xFFFFFF},
[512]={0xFFB600,0xFFFFFF},[1024]={0xCCB600,0xFFFFFF},[2048]={0xE95420,0xFFFFFF}}

function M.open()
local st={}
local win=Y.newWindow{app="g2048",title="2048",w=52,h=26,fixed=true}
local function readBest()local f=io.open(BEST)local v=f and tonumber(f:read("*a"))if f then f:close()end return v or 0 end
local function spawn()
local free={}
for i=1,16 do if st.g[i]==0 then free[#free+1]=i end end
if#free>0 then st.g[free[math.random(#free)]]=math.random()<0.9 and 2 or 4 end
end
local function new()
st.g,st.score,st.over,st.won={},0,false,false
for i=1,16 do st.g[i]=0 end
spawn();spawn()
st.best=readBest()
end
local function line(i,k,dir)
if dir=="left"then return(i-1)*4+k elseif dir=="right"then return(i-1)*4+5-k
elseif dir=="up"then return(k-1)*4+i else return(4-k)*4+i end
end
local function move(dir)
if st.over then return end
local moved=false
for i=1,4 do
local vals={}
for k=1,4 do local v=st.g[line(i,k,dir)]if v>0 then vals[#vals+1]=v end end
local out,k={},1
while k<=#vals do
if vals[k]==vals[k+1]then
local v=vals[k]*2
out[#out+1]=v
st.score=st.score+v
if v==2048 and not st.won then st.won=true;Y.notify("2048!","You made the 2048 tile")end
k=k+2
else out[#out+1]=vals[k];k=k+1 end
end
for k2=1,4 do
local idx=line(i,k2,dir)
local v=out[k2]or 0
if st.g[idx]~=v then moved=true end
st.g[idx]=v
end
end
if moved then spawn()end

local any=false
for i=1,16 do
local v=st.g[i]
if v==0 or(i%4~=0 and st.g[i+1]==v)or(i<=12 and st.g[i+4]==v)then any=true break end
end
if not any then st.over=true end
if st.score>st.best then
st.best=st.score
require("filesystem").makeDirectory("/home/.local/share")
local f=io.open(BEST,"w")if f then f:write(tostring(st.best))f:close()end
end
end
function win.header(w,hw)ui.button(w,2,1,"New Game",new,"suggested")end
function win.draw(w,cw,ch)
local t=Y.theme
ui.round(3,1,20,2,t.dark and 0x383838 or 0xDEDDDA)
gfx.text(5,1,"SCORE",t.dim,t.dark and 0x383838 or 0xDEDDDA);gfx.text(5,2,tostring(st.score),t.fg,t.dark and 0x383838 or 0xDEDDDA)
ui.round(cw-21,1,20,2,t.dark and 0x383838 or 0xDEDDDA)
gfx.text(cw-19,1,"BEST",t.dim,t.dark and 0x383838 or 0xDEDDDA);gfx.text(cw-19,2,tostring(st.best),t.fg,t.dark and 0x383838 or 0xDEDDDA)

local TW,TH=11,8
local ox,oy=(cw-4*(TW+1))//2+1,9
gfx.prrect(ox-1,oy-1,4*(TW+1)+1,4*(TH+1)+1,0x969696)
for i=1,16 do
local x,y=ox+((i-1)%4)*(TW+1),oy+((i-1)//4)*(TH+1)
local v=st.g[i]
local c=TILE[v]or(v>0 and{0x2D2D2D,0xFFFFFF})or{0xB4B4B4,0}
gfx.prrect(x,y,TW,TH,c[1])
if v>0 then

local r=y+3
if r%2==0 then r=r+1 end
local s=tostring(v)
gfx.text(x+(TW-#s)//2,(r+1)//2,s,c[2],c[1])
end
end
if st.over then
local s=" Game over · press Enter "
ui.pill((cw-#s-2)//2,15,#s+2,t.danger)
gfx.text((cw-#s)//2,15,s,0xFFFFFF,t.danger)
end
end
function win.key(w,char,code)
local K=Y.K
local c=(char and char>0 and char<128)and string.char(char):lower()or""
if code==K.left or c=="a"then move("left")elseif code==K.right or c=="d"then move("right")
elseif code==K.up or c=="w"then move("up")elseif code==K.down or c=="s"then move("down")
elseif code==K.enter and st.over then new()end
end
new()
return win
end

return M
F 31514 /usr/share/yaru/apps/holo.lua











local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local serialization=require("serialization")
local V=require("yaru.vox")
local VE=require("yaru.voxedit")
local M={}

local floor,min,max,sqrt,abs=math.floor,math.min,math.max,math.sqrt,math.abs
local SX,SY,SZ=48,32,48
local DIR="/home/Holograms"
local TOOLS={{"pen","• Pen","P"},{"line","╱ Line","L"},{"rect","□ Rect","R"},{"box","■ Filled","B"},
{"circle","○ Ring","O"},{"disc","● Disc","D"},{"fill","▧ Bucket","F"},{"pick","◎ Pick","I"}}
local SWATCHES={0x00E5FF,0x33A1FF,0x3355FF,0x8C4BFF,0xE040FB,0xFF4081,0xFF3D3D,0xFF8A3D,0xFFD23D,0xB6FF3D,
0x3DFF6E,0x3DFFC8,0xFFFFFF,0xB0B0B0,0x606060,0xE95420}
local SCALES={0.33,0.5,0.75,1,1.5,2,3,4}
local SPINS={0,5,15,30,60,120}

local function dist2(a,b)
local dr,dg,db=(a>>16)-(b>>16),((a>>8)&255)-((b>>8)&255),(a&255)-(b&255)
return dr*dr*2+dg*dg*4+db*db*3
end

local function threeColors(hist)
local list={}
for c,n in pairs(hist)do list[#list+1]={c,n}end
table.sort(list,function(a,b)return a[2]>b[2]end)
if#list==0 then return{0x00E5FF,0x3355FF,0xFF4081}end
local centers={}
for i=1,min(3,#list)do centers[i]=list[i][1]end

if#list>3 then
centers={list[1][1]}
while#centers<3 do
local best,bd=nil,-1
for _,e in ipairs(list)do
local d=math.huge
for _,c in ipairs(centers)do d=min(d,dist2(e[1],c))end
d=d*sqrt(e[2])
if d>bd then best,bd=e[1],d end
end
centers[#centers+1]=best
end
end
for _=1,6 do
local acc={}
for i=1,#centers do acc[i]={0,0,0,0}end
for _,e in ipairs(list)do
local bi,bd=1,math.huge
for i,c in ipairs(centers)do local d=dist2(e[1],c)if d<bd then bi,bd=i,d end end
local a=acc[bi]
a[1]=a[1]+(e[1]>>16)*e[2];a[2]=a[2]+((e[1]>>8)&255)*e[2];a[3]=a[3]+(e[1]&255)*e[2];a[4]=a[4]+e[2]
end
for i,a in ipairs(acc)do
if a[4]>0 then centers[i]=floor(a[1]/a[4])<<16|floor(a[2]/a[4])<<8|floor(a[3]/a[4])end
end
end
while#centers<3 do centers[#centers+1]=centers[#centers]end
return centers
end
local function nearest(pal,c)
local bi,bd=1,math.huge
for i=1,3 do local d=dist2(pal[i],c)if d<bd then bi,bd=i,d end end
return bi
end

function M.open(path)
local win=Y.newWindow{app="holo",title="Hologram Studio",w=146,h=46,minW=110,minH=34,precise=true}
local st={tab="draw",view={yaw=math.pi+0.6,pitch=0.5,zoom=1},pal={0x00E5FF,0x3355FF,0xFF4081},
path=nil,dirty=false,live=false,scale=4,spin=1,lift=0,panel=nil,lastChange=0,
sent=nil,mesher=V.layerMesher(SX,SY,SZ)}
local SIDE=26
local ed=VE.new{sx=SX,sy=SY,sz=SZ,colorOf=function(v)return st.pal[v]or 0xFFFFFF end,maxUndo=30,
onChange=function()st.dirty=true;st.lastChange=computer.uptime()end}
ed.y=0


local function projector()
if st.proj and component.type(st.proj)=="hologram"then return component.proxy(st.proj)end
local a=component.list("hologram")()
st.proj=a
return a and component.proxy(a)
end
local function depth(p)
local ok,d=pcall(p.maxDepth)
return ok and d or 1
end
local function applySettings(p)
p=p or projector()
if not p then return end
local d=depth(p)
for i=1,(d>=2 and 3 or 1)do pcall(p.setPaletteColor,i,st.pal[i])end
pcall(p.setScale,SCALES[st.scale])
pcall(p.setTranslation,0,st.lift/4,0)
if p.setRotationSpeed then pcall(p.setRotationSpeed,SPINS[st.spin],0,1,0)end
end
local function project(quiet)
local p=projector()
if not p then if not quiet then Y.notify("Hologram Studio","No hologram projector connected")end return end
local mono=depth(p)<2
local L=ed.L
local ok,err
if p.setRaw then
local parts={}
for x=0,SX-1 do
local b={}
local n=0
for z=0,SZ-1 do
local k=z*SX+x+1
for y=1,SY do
local v=L[y]:byte(k)
if mono and v>1 then v=1 end
n=n+1
b[n]=v
end
end
parts[#parts+1]=string.char(table.unpack(b))
if x%8==7 then Y.breathe()end
end
ok,err=pcall(p.setRaw,table.concat(parts))
end
if not ok then

ok,err=pcall(function()
p.clear()
for z=0,SZ-1 do
for x=0,SX-1 do
local k=z*SX+x+1
local y=0
while y<SY do
local v=L[y+1]:byte(k)
if mono and v>1 then v=1 end
if v~=0 then
local y2=y
while y2+1<SY do
local w=L[y2+2]:byte(k)
if mono and w>1 then w=1 end
if w~=v then break end
y2=y2+1
end
p.fill(x+1,z+1,y+1,y2+1,v)
y=y2+1
else
y=y+1
end
end
end
Y.breathe()
end
end)
end
applySettings(p)
st.sent=ed.version
if not ok and not quiet then Y.notify("Hologram Studio","Projection failed: "..tostring(err))end
return ok
end
local function clearProjector()
local p=projector()
if p then pcall(p.clear)end
st.sent=nil
end



local function rle(s)
local out,i={},1
while i<=#s do
local c=s:sub(i,i)
local j=i
while j<#s and j-i<254 and s:sub(j+1,j+1)==c do j=j+1 end
out[#out+1]=string.char(j-i+1)..c
i=j+1
end
return table.concat(out)
end
local function unrle(s)
local out={}
for i=1,#s-1,2 do out[#out+1]=s:sub(i+1,i+1):rep(s:byte(i))end
return table.concat(out)
end
local function save(p,after)
if not p then
fs.makeDirectory(DIR)
return Y.dialog{title="Save Hologram",text="Path of the .holo file",entry=st.path or(DIR.."/hologram.holo"),
buttons={{"Cancel"},{"Save",function(q)if q and q~=""then save(q,after)end end,"suggested"}}}
end
if not p:match("%.holo$")then p=p..".holo"end
fs.makeDirectory(fs.path(p))
local layers={}
for y=1,SY do layers[y]=rle(ed.L[y])end
local f=io.open(p,"wb")
if not f then return Y.notify("Hologram Studio","Cannot write "..p)end
f:write(serialization.serialize({format="yaru-holo-1",size={SX,SY,SZ},palette=st.pal,layers=layers,
scale=st.scale,spin=st.spin,lift=st.lift}))
f:close()
st.path,st.dirty=p,false
win.title="Hologram Studio — "..fs.name(p)
Y.notify("Hologram saved",p,{action=function()Y.launch("files",fs.path(p))end,actionLabel="Show"})
if after then after()end
end
local function loadHolo(p)
local f=io.open(p,"rb")
if not f then return Y.notify("Hologram Studio","Cannot open "..p)end
local s=f:read("*a")
f:close()
local ok,t=pcall(serialization.unserialize,s)
if not ok or type(t)~="table"or type(t.layers)~="table"then return Y.notify("Hologram Studio",fs.name(p).." is not a hologram")end
ed:checkpoint()
for y=1,SY do
local l=t.layers[y]and unrle(t.layers[y])or""
ed.L[y]=#l==SX*SZ and l or ed:empty()
end
if type(t.palette)=="table"then for i=1,3 do st.pal[i]=tonumber(t.palette[i])or st.pal[i]end end
st.scale,st.spin,st.lift=tonumber(t.scale)or st.scale,tonumber(t.spin)or st.spin,tonumber(t.lift)or st.lift
ed:changed()
st.path,st.dirty=p,false
win.title="Hologram Studio — "..fs.name(p)
end



local function importPoints(pts,keep)
if#pts==0 then return Y.notify("Hologram Studio","Nothing to import")end
local x1,y1,z1,x2,y2,z2=math.huge,math.huge,math.huge,-math.huge,-math.huge,-math.huge
for _,p in ipairs(pts)do
x1,x2=min(x1,p[1]),max(x2,p[1]);y1,y2=min(y1,p[2]),max(y2,p[2]);z1,z2=min(z1,p[3]),max(z2,p[3])
end
local sc=min((SX-1)/max(1e-6,x2-x1),(SY-1)/max(1e-6,y2-y1),(SZ-1)/max(1e-6,z2-z1))
local ox=floor((SX-1-(x2-x1)*sc)/2)
local oz=floor((SZ-1-(z2-z1)*sc)/2)
local hist={}
for _,p in ipairs(pts)do local c=p[4]or 0xFFFFFF hist[c]=(hist[c]or 0)+1 end
if not keep then st.pal=threeColors(hist)end
local pal=st.pal
local cache={}
local layers={}

local thick=#pts<1500 and 2 or 1
for _,p in ipairs(pts)do
local x=floor((p[1]-x1)*sc+0.5)+ox
local y=floor((p[2]-y1)*sc+0.5)
local z=floor((p[3]-z1)*sc+0.5)+oz
if x>=0 and y>=0 and z>=0 and x<SX and y<SY and z<SZ then
local c=p[4]or 0xFFFFFF
local v=cache[c]
if not v then v=nearest(pal,c);cache[c]=v end
for yy=y,min(SY-1,y+thick-1)do
layers[yy]=layers[yy]or{}
local l=layers[yy]
l[v]=l[v]or{}
local c=l[v]
for dz=0,thick-1 do for dx=0,thick-1 do c[#c+1]=x+dx;c[#c+1]=z+dz end end
end
end
end
ed:checkpoint()
ed:clear(true)
for y,l in pairs(layers)do for v,cells in pairs(l)do ed:setCells(y,cells,v)end Y.breathe()end
ed:changed()
Y.notify("Hologram Studio","Imported "..#pts.." points")
end
local function importScan(p)
local f=io.open(p,"r")
if not f then return Y.notify("Hologram Studio","Cannot open "..p)end
local pts={}
for line in f:lines()do
local a,b,c,d=line:match("^(%S+)%s+(%S+)%s+(%S+)%s*(%S*)")
if a then pts[#pts+1]={tonumber(a),tonumber(b),tonumber(c),tonumber(d,16)or 0xFFFFFF}end
if#pts%500==0 then Y.breathe()end
end
f:close()
importPoints(pts)
end
local function importModel(p)
local f=io.open(p,"r")
if not f then return Y.notify("Hologram Studio","Cannot open "..p)end
local ok,m=pcall(serialization.unserialize,f:read("*a"))
f:close()
if not ok or type(m)~="table"or type(m.shapes)~="table"then return Y.notify("Hologram Studio","Not a .3dm model")end

local colors={}
if type(m.yaruMaterials)=="table"then for _,r in ipairs(m.yaruMaterials)do colors[tostring(r[2])..tostring(r[3])]=tonumber(r[4])end end
local hist={}
local function colorOf(sh)
local c=colors[tostring(sh.texture)..tostring(sh.tint)]
if not c then
local h=0
local s=tostring(sh.texture)
for i=1,#s do h=(h*31+s:byte(i))%0xFFFFFF end
c=0x404040|(h&0xBFBFBF)
end
if sh.tint then c=((c>>16)*(sh.tint>>16)//255)<<16|(((c>>8)&255)*((sh.tint>>8)&255)//255)<<8|((c&255)*(sh.tint&255)//255)end
return c
end
local k=2
local o=(SX-16*k)//2
for _,sh in ipairs(m.shapes)do if not sh.state then local c=colorOf(sh)hist[c]=(hist[c]or 0)+1 end end
st.pal=threeColors(hist)
ed:checkpoint()
ed:clear(true)
for _,sh in ipairs(m.shapes)do
if not sh.state and type(sh[1])=="number"then
local v=nearest(st.pal,colorOf(sh))
for y=floor(sh[2]*k),math.ceil(sh[5]*k)-1 do
local cells={}
for z=floor(sh[3]*k),math.ceil(sh[6]*k)-1 do
for x=floor(sh[1]*k),math.ceil(sh[4]*k)-1 do cells[#cells+1]=x+o;cells[#cells+1]=z+o end
end
ed:setCells(y,cells,v)
end
end
end
ed:changed()
end
local function importPicture(p,mode)
local okI,image=pcall(require,"yaru.image")
local img=okI and image.load(p,true)
if not img then return Y.notify("Hologram Studio","Cannot read the picture")end
local pw,ph,get=image.pixels(img)
local tw,th=SX,mode=="relief"and SZ or SY
local sc=min(tw/pw,th/ph)
local ww,hh=max(1,floor(pw*sc)),max(1,floor(ph*sc))
local hist,px={},{}
for j=0,hh-1 do
for i=0,ww-1 do
local c=get(floor(i/sc),floor(j/sc))
if c then hist[c]=(hist[c]or 0)+1;px[j*ww+i+1]=c end
end
end
st.pal=threeColors(hist)
ed:checkpoint()
ed:clear(true)
local ox,oz=(SX-ww)//2,(th-hh)//2
if mode=="relief"then

for j=0,hh-1 do
for i=0,ww-1 do
local c=px[j*ww+i+1]
if c then
local lum=((c>>16)*3+((c>>8)&255)*6+(c&255))/2550
local top=max(0,floor(lum*10))
local v=nearest(st.pal,c)
for y=0,top do ed:setCells(y,{i+ox,j+oz},v)end
end
end
Y.breathe()
end
else

for j=0,hh-1 do
local y=hh-1-j
local cells={}
local vals={}
for i=0,ww-1 do
local c=px[j*ww+i+1]
if c then
local v=nearest(st.pal,c)
vals[v]=vals[v]or{}
for dz=0,1 do vals[v][#vals[v]+1]=i+ox;vals[v][#vals[v]+1]=SZ//2-1+dz end
end
end
for v,c in pairs(vals)do ed:setCells(y,c,v)end
local _=cells
end
end
ed:changed()
end
local function openPath(p)
if p:match("%.holo$")then loadHolo(p)
elseif p:match("%.pts$")then importScan(p)
elseif p:match("%.3dm$")then importModel(p)
elseif p:match("%.pic$")then importPicture(p,"stand")end
Y.redraw(win)
end
local function ifSaved(fn)
if not st.dirty then return fn()end
Y.dialog{title="Save the hologram?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Discard",fn,"destructive"},{"Save",function()save(st.path,fn)end,"suggested"}}}
end
local function fileMenu(sx,sy,ext,dirs,fn,other)
local items,seen={},{}
for _,d in ipairs(dirs)do
if fs.isDirectory(d)then
for name in fs.list(d)do
local p=fs.concat(d,name)
if name:lower():match("%."..ext.."$")and not seen[p]then
seen[p]=true
items[#items+1]={name..(d==dirs[1]and""or"  · "..d),function()fn(p)end}
if#items>=20 then break end
end
end
end
end
if#items>0 then items[#items+1]="-"end
items[#items+1]={other or"Other File…",function()
Y.dialog{title="Open",text="Path to a ."..ext.." file",entry=dirs[1].."/",
buttons={{"Cancel"},{"Open",function(p)if p and p~=""then fn(p)end end,"suggested"}}}
end}
Y.menu(sx,sy,items)
end


local SHAPES={
{"sphere","◉ Sphere"},{"cylinder","▮ Cylinder"},{"cone","▲ Cone"},{"torus","○ Torus"},
{"cube","■ Box"},{"pyramid","◆ Pyramid"},{"text","A Text"},
}
local function shapeDefaults(kind)
local p={kind=kind,x=SX//2,y=kind=="sphere"and SY//2 or ed.y,z=SZ//2,r=10,h=16,t=3,hollow=false,
text="HELLO",size=2,depth=2,standing=true}
if kind=="torus"then p.r,p.t,p.y=14,4,SY//2 end
if kind=="cube"then p.r,p.h=10,20 end
return p
end
local function shapeFn(p)
local k=p.kind
local cx,cy,cz,r,h,t=p.x-0.5+0.5,p.y,p.z-0.5+0.5,p.r,p.h,p.t
if k=="text"then
local pf=require("yaru.pixfont")
local cols,fh=pf.columns(p.text,"normal")
local s=p.size
local tw=#cols*s
local set={}
for i,c in ipairs(cols)do
for row=0,fh-1 do
if c>>row&1==1 then
for a=0,s-1 do for b=0,s-1 do
set[#set+1]={(i-1)*s+a,(fh-1-row)*s+b}
end end
end
end
end
local lookup={}
local x0=floor(cx-tw/2)
for _,e in ipairs(set)do
if p.standing then
for d=0,p.depth-1 do lookup[(x0+e[1])..","..(p.y+e[2])..","..(floor(cz)+d)]=true end
else
lookup[(x0+e[1])..","..p.y..","..(floor(cz)+(fh*s)//2-e[2])]=true
for d=1,p.depth-1 do lookup[(x0+e[1])..","..(p.y+d)..","..(floor(cz)+(fh*s)//2-e[2])]=true end
end
end
return function(x,y,z)return lookup[x..","..y..","..z]end
end
return function(x,y,z)
local dx,dy,dz=x+0.5-cx,y+0.5-cy,z+0.5-cz
local inside,inner
if k=="sphere"then
local d=dx*dx+dy*dy+dz*dz
inside=d<=r*r
inner=d<=(r-t)*(r-t)
elseif k=="cylinder"then
local d=dx*dx+dz*dz
inside=d<=r*r and y>=cy and y<cy+h
inner=d<=(r-t)*(r-t)and y>=cy+t and y<cy+h-t
elseif k=="cone"then
local rr=r*(1-(y-cy)/h)
local d=dx*dx+dz*dz
inside=y>=cy and y<cy+h and d<=rr*rr
inner=y>=cy+t and d<=(rr-t)*(rr-t)
elseif k=="torus"then
local q=sqrt(dx*dx+dz*dz)-r
inside=q*q+dy*dy<=t*t
elseif k=="cube"then
inside=abs(dx)<=r and abs(dz)<=r and y>=cy and y<cy+h
inner=abs(dx)<=r-t and abs(dz)<=r-t and y>=cy+t and y<cy+h-t
elseif k=="pyramid"then
local rr=r*(1-(y-cy)/h)
inside=y>=cy and y<cy+h and abs(dx)<=rr and abs(dz)<=rr
inner=y>=cy+t and abs(dx)<=rr-t and abs(dz)<=rr-t
end
return inside and not(p.hollow and inner)
end
end
local function applyShape(p,erase)
local fn=shapeFn(p)
local v=erase and 0 or ed.value
ed:checkpoint()
ed:apply(function(x,y,z)if fn(x,y,z)then return v end end,Y.breathe)
ed:changed()
end


local function shift(dx,dy,dz)
ed:checkpoint()
ed:remap(function(x,y,z)return x-dx,y-dy,z-dz end)
ed:changed()
end
local function centerModel()
local x1,y1,z1,x2,_,z2=ed:bounds()
if not x1 then return end
shift((SX-1-x2-x1)//2,-y1,(SZ-1-z2-z1)//2)
end


function win.header(w,hw)
local x=2
x=x+ui.button(w,x,1,"New",function()ifSaved(function()ed:checkpoint();ed:clear();st.path=nil;st.dirty=false;win.title="Hologram Studio"end)end)+1
x=x+ui.button(w,x,1,"Open ▾",function(_,px)
fileMenu(win.x+px-1,win.y+1,"holo",{DIR,"/home"},function(p)ifSaved(function()openPath(p)end)end)
end)+1
x=x+ui.button(w,x,1,"Save",function()save(st.path)end)+2
x=x+ui.button(w,x,1,"↶",function()ed:undoStep()end,nil,4)+1
x=x+ui.button(w,x,1,"↷",function()ed:redoStep()end,nil,4)+2
local p=projector()
x=x+ui.button(w,x,1,"▶ Project",function()project()end,p and"suggested"or nil)+1
if p then
gfx.text(x,1,"Live",Y.theme.dim,Y.theme.header)
ui.switch(w,x+5,1,st.live,function()st.live=not st.live;if st.live then project(true)end end)
end
ui.button(w,hw-4,1,"☰",function(_,px)
Y.menu(win.x+px-1,win.y+1,{
{"Save As…",function()save(nil)end},
"-",
{"Clear Layer",function()ed:checkpoint();ed.L[ed.y+1]=ed:empty();ed:changed()end,key="Del"},
{"Copy Layer Up",function()if ed.y<SY-1 then ed:checkpoint();ed.L[ed.y+2]=ed.L[ed.y+1];ed:setLayer(ed.y+1);ed:changed()end end,key="C"},
{"Clear Everything",function()ed:checkpoint();ed:clear()end},
{"Clear the Projector",clearProjector,disabled=not projector()},
"-",
{"Onion Skin (layer below)",function()ed.onion=not ed.onion end,check=ed.onion},
{"Reset 3D View",function()st.view={yaw=math.pi+0.6,pitch=0.5,zoom=1}end,key="Home"},
"-",
{"About",function()
Y.dialog{title="Hologram Studio",text=table.concat({
"A voxel editor for the hologram projector: 48 × 32 × 48 voxels, 3 colours",
"(tier 1 projectors show one colour).",
"",
"Draw layer by layer, add shapes and 3D text, or import a Depth Camera scan,",
"a 3D Print Studio model or a picture. ▶ Project sends it to the projector,",
"Live keeps the projector in sync while you draw.",
"",
"Left click = draw · right click = erase · wheel = layer · Ctrl+wheel = zoom",
"PgUp/PgDn = layer · arrows = move the zoomed view · Ctrl+Z / Ctrl+Y = undo / redo",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end},
})
end,nil,4)
end


local function pills(w,x,y,opts,value,set)
local t=Y.theme
for _,o in ipairs(opts)do
local on=value==o[1]
local wd=unicode.len(o[2])+2
if on then ui.pill(x,y,wd,t.accent)end
gfx.text(x+1,y,o[2],on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,x,y,wd,1,function()set(o[1])end)
x=x+wd
end
return x
end
local function stepper(w,x,y,label,set,canDown,canUp)
local t=Y.theme
ui.button(w,x,y,"−",canDown~=false and function()set(-1)end or nil,nil,3)
gfx.text(x+4,y,ui.pad(label,6),t.fg,t.sidebar)
ui.button(w,x+10,y,"+",canUp~=false and function()set(1)end or nil,nil,3)
end
local function drawSidebar(w,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
pills(w,2,1,{{"draw","Draw"},{"shapes","Shapes"},{"proj","Projector"}},st.tab,function(v)st.tab=v end)
local y=3
if st.tab=="draw"then
gfx.text(2,y,"Tools",t.dim);y=y+1
for i,tl in ipairs(TOOLS)do
local cx=2+((i-1)%2)*12
ui.button(w,cx,y,tl[2],function()ed:setTool(tl[1])end,ed.tool==tl[1]and"suggested"or nil,11)
if i%2==0 then y=y+1 end
end
y=y+1
gfx.text(2,y,"Brush",t.dim)
pills(w,9,y,{{1,"1"},{2,"2"},{3,"3"}},ed.brush,function(v)ed.brush=v end)
y=y+1
gfx.text(2,y,"Mirror",t.dim)
local mx=9
for _,m in ipairs({{"mirrorX","⇆ X"},{"mirrorZ","⇵ Z"}})do
local on=ed[m[1]]
if on then ui.pill(mx,y,5,t.accent)end
gfx.text(mx+1,y,m[2],on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,mx,y,5,1,function()ed[m[1]]=not ed[m[1]]end)
mx=mx+6
end
y=y+2
gfx.text(2,y,"Colours",t.dim);y=y+1
local p=projector()
local mono=p and depth(p)<2
for i=1,3 do
local on=ed.value==i
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then ui.select(1,y,SIDE,bg)end
gfx.fill(2,y,4,1,st.pal[i])
gfx.text(7,y,string.format("Colour %d  #%06X",i,st.pal[i]),(mono and i>1)and t.dim or t.fg,bg)
ui.hit(w,1,y,SIDE,1,function()ed.value=i;if ed.tool=="pick"then ed:setTool(ed.lastTool or"pen")end end)
ui.hit(w,1,y,SIDE,1,function()st.panel={kind="color",i=i}end,1)
y=y+1
end
gfx.text(2,y,"right click: change",t.dim,t.sidebar);y=y+1
if mono then gfx.text(2,y,"tier 1 projector: 1 colour",t.warning,t.sidebar);y=y+1 end
y=y+1
gfx.text(2,y,"Voxels",t.dim)
gfx.text(10,y,tostring(st.count or 0),t.fg,t.sidebar)
elseif st.tab=="shapes"then
gfx.text(2,y,"Add a shape",t.dim);y=y+1
for i,s in ipairs(SHAPES)do
local cx=2+((i-1)%2)*12
ui.button(w,cx,y,s[2],function()st.panel={kind="shape",p=shapeDefaults(s[1])}end,nil,11)
if i%2==0 then y=y+1 end
end
y=y+2
gfx.text(2,y,"Import",t.dim);y=y+1
ui.button(w,2,y,"Camera scan",function(_,px,py)
fileMenu(win.x+px-1,win.y+py,"pts",{"/home/Holograms","/tmp","/home"},function(p)importScan(p)end,"Other Scan File…")
end,nil,SIDE-2);y=y+1
ui.button(w,2,y,"Print model",function(_,px,py)
fileMenu(win.x+px-1,win.y+py,"3dm",{"/home/Prints","/home"},function(p)importModel(p)end)
end,nil,SIDE-2);y=y+1
ui.button(w,2,y,"Picture ▾",function(_,px,py)
fileMenu(win.x+px-1,win.y+py,"pic",{"/home/Pictures","/home","/usr/share/yaru/wallpapers"},function(p)
Y.menu(win.x+px-1,win.y+py,{{"Standing (like a sign)",function()importPicture(p,"stand")end},
{"Relief (lying, bright = high)",function()importPicture(p,"relief")end}})
end)
end,nil,SIDE-2);y=y+2
gfx.text(2,y,"Move",t.dim);y=y+1
local mv={{"←",-1,0,0},{"→",1,0,0},{"↑",0,0,-1},{"↓",0,0,1},{"▲",0,1,0},{"▼",0,-1,0}}
local mx=2
for _,m in ipairs(mv)do
ui.button(w,mx,y,m[1],function()shift(m[2],m[3],m[4])end,nil,4)
mx=mx+4
end
y=y+1
gfx.text(2,y,"▲ ▼ move up / down",t.dim,t.sidebar);y=y+2
ui.button(w,2,y,"Center",centerModel,nil,12)
ui.button(w,14,y,"Rotate 90°",function()ed:checkpoint();ed:remap(function(x,yy,z)return z,yy,SX-1-x end);ed:changed()end,nil,12)
y=y+1
ui.button(w,2,y,"Mirror ⇆",function()ed:checkpoint();ed:remap(function(x,yy,z)return SX-1-x,yy,z end);ed:changed()end,nil,12)
ui.button(w,14,y,"Upside down",function()ed:checkpoint();ed:remap(function(x,yy,z)return x,SY-1-yy,z end);ed:changed()end,nil,12)
else
local p=projector()
if not p then
gfx.text(2,y,"No projector connected.",t.warning,t.sidebar);y=y+2
gfx.text(2,y,"You can still draw and",t.dim,t.sidebar);y=y+1
gfx.text(2,y,"save holograms.",t.dim,t.sidebar)
else
local d=depth(p)
gfx.text(2,y,"Projector",t.dim)
gfx.text(12,y,p.address:sub(1,8),t.fg,t.sidebar);y=y+1
gfx.text(2,y,d>=2 and"Tier 2 · 3 colours"or"Tier 1 · 1 colour",t.dim,t.sidebar);y=y+2
gfx.text(2,y,"Scale",t.dim)
stepper(w,11,y,string.format("%.2g×",SCALES[st.scale]),function(dd)st.scale=max(1,min(#SCALES,st.scale+dd));applySettings()end,
st.scale>1,st.scale<#SCALES)
y=y+1
gfx.text(2,y,"Height",t.dim)
stepper(w,11,y,"+"..st.lift,function(dd)st.lift=max(0,min(8,st.lift+dd));applySettings()end,st.lift>0,st.lift<8)
y=y+1
gfx.text(2,y,"Spin",t.dim)
stepper(w,11,y,SPINS[st.spin].."°/s",function(dd)st.spin=max(1,min(#SPINS,st.spin+dd));applySettings()end,
st.spin>1,st.spin<#SPINS)
y=y+2
gfx.text(2,y,"Live update",t.dim)
ui.switch(w,SIDE-7,y,st.live,function()st.live=not st.live;if st.live then project(true)end end)
y=y+2
ui.button(w,2,y,"▶ Project now",function()project()end,"suggested",SIDE-2);y=y+2
ui.button(w,2,y,"Clear projector",clearProjector,nil,SIDE-2);y=y+2
local fresh=st.sent==ed.version
gfx.text(2,y,fresh and"● showing this model"or(st.sent and"○ projector is behind"or"○ not projected yet"),
fresh and t.success or t.dim,t.sidebar)
end
end
end


local function drawPanel(w,x,y,pw,ph)
local t=Y.theme
local pn=st.panel
ui.card(x,y,pw,ph,t.menu)
if pn.kind=="color"then
gfx.text(x+2,y,"Colour "..pn.i,t.menuFg,t.menu)
ui.button(w,x+pw-12,y,"Close",function()st.panel=nil end,nil,10)
local cx,cy=x+2,y+2
for _,c in ipairs(SWATCHES)do
gfx.fill(cx,cy,4,2,c)
if st.pal[pn.i]==c then gfx.text(cx+1,cy,"✓",0x000000,c)end
ui.hit(w,cx,cy,4,2,function()st.pal[pn.i]=c;st.dirty=true;st.r3=nil;applySettings();st.panel=nil end)
cx=cx+5
if cx+4>x+pw-1 then cx=x+2;cy=cy+3 end
end
ui.button(w,x+2,y+ph-2,"Hex Colour…",function()
local i=pn.i
st.panel=nil
Y.dialog{title="Colour "..i,text="RGB colour, e.g. 00E5FF",entry=string.format("%06X",st.pal[i]),
buttons={{"Cancel"},{"OK",function(s)local v=tonumber((s or""):gsub("#",""),16)if v then st.pal[i]=v;st.dirty=true;st.r3=nil;applySettings()end end,"suggested"}}}
end)
return
end

local p=pn.p
local title=({sphere="Sphere",cylinder="Cylinder",cone="Cone",torus="Torus",cube="Box",pyramid="Pyramid",text="3D Text"})[p.kind]
gfx.text(x+2,y,title,t.menuFg,t.menu)
ui.button(w,x+pw-12,y,"Close",function()st.panel=nil end,nil,10)
local yy=y+2
local function row(label,key,lo,hi,step)
gfx.text(x+2,yy,label,t.dim,t.menu)
ui.button(w,x+16,yy,"−",function()p[key]=max(lo,p[key]-(step or 1))end,nil,3)
gfx.text(x+20,yy,ui.pad(tostring(p[key]),5),t.menuFg,t.menu)
ui.button(w,x+26,yy,"+",function()p[key]=min(hi,p[key]+(step or 1))end,nil,3)
yy=yy+1
end
if p.kind=="text"then
gfx.text(x+2,yy,"Text",t.dim,t.menu)
ui.button(w,x+16,yy,ui.trunc(p.text,pw-20),function()
Y.dialog{title="3D Text",entry=p.text,buttons={{"Cancel"},{"OK",function(s)if s and s~=""then p.text=s end end,"suggested"}}}
end)
yy=yy+1
row("Letter size","size",1,4)
row("Depth","depth",1,8)
gfx.text(x+2,yy,"Placement",t.dim,t.menu)
local px=x+16
for _,o in ipairs({{true,"Standing"},{false,"Lying"}})do
local on=p.standing==o[1]
local wd=unicode.len(o[2])+2
if on then ui.pill(px,yy,wd,t.accent)end
gfx.text(px+1,yy,o[2],on and t.accentFg or t.menuFg,on and t.accent or t.menu)
ui.hit(w,px,yy,wd,1,function()p.standing=o[1]end)
px=px+wd+1
end
yy=yy+1
row("Height (y)","y",0,SY-1)
row("Front (z)","z",0,SZ-1)
else
row("Centre x","x",0,SX-1)
row(p.kind=="sphere"and"Centre y"or(p.kind=="torus"and"Centre y"or"Bottom y"),"y",0,SY-1)
row("Centre z","z",0,SZ-1)
row(p.kind=="cube"and"Half width"or"Radius","r",1,30)
if p.kind~="sphere"and p.kind~="torus"then row("Height","h",1,SY)end
if p.kind=="torus"then row("Tube radius","t",1,12)
else
gfx.text(x+2,yy,"Hollow",t.dim,t.menu)
ui.switch(w,x+16,yy,p.hollow,function()p.hollow=not p.hollow end)
yy=yy+1
if p.hollow then row("Wall","t",1,10)end
end
end
gfx.text(x+2,yy+1,"Colour",t.dim,t.menu)
gfx.fill(x+16,yy+1,4,1,st.pal[ed.value])
gfx.text(x+21,yy+1,"the selected colour",t.dim,t.menu)
ui.button(w,x+2,y+ph-2,"Add",function()applyShape(p)end,"suggested",10)
ui.button(w,x+13,y+ph-2,"Cut Out",function()applyShape(p,true)end,nil,11)
end


local function render3D(pw,ph)
local W,H=pw,ph*2
local key=table.concat({ed.version or 0,W,H,ed.y,st.view.yaw,st.view.pitch,st.view.zoom,st.pal[1],st.pal[2],st.pal[3],
Y.theme.dark and 1 or 0},",")
if st.r3 and st.r3.key==key then return st.r3 end
local bg=Y.theme.dark and 0x101018 or 0xE4E4EC
local F=V.frame(W,H,bg)

if st.fitVersion~=ed.version then
local x1,y1,z1,x2,y2,z2=ed:bounds()
if x1 then
st.fit={(x1+x2+1)/2,(y1+y2+1)/2,(z1+z2+1)/2,
max(10,sqrt((x2-x1+1)^2+(y2-y1+1)^2+(z2-z1+1)^2)/2+2)}
else
st.fit={SX/2,SY/2-2,SZ/2,33}
end
st.fitVersion=ed.version
end
local fc=st.fit
V.camera(F,st.view,fc[1],fc[2],fc[3],fc[4])

local gc=Y.theme.dark and 0x2A2A38 or 0xC4C4D0
V.line(F,0,0,0,SX,0,0,gc);V.line(F,SX,0,0,SX,0,SZ,gc)
V.line(F,SX,0,SZ,0,0,SZ,gc);V.line(F,0,0,SZ,0,0,0,gc)
V.box(F,SX/2-3,-6,SZ/2-3,SX/2+3,0,SZ/2+3,0x5A5A66,0)
local quads=st.mesher.update(ed.L,Y.breathe)
local pal=st.pal
for i,q in ipairs(quads)do
V.face(F,q[1],q[2],q[3],q[4],q[5],q[6],q[7],pal[q[8]]or 0xFFFFFF,i)
if i%400==0 then Y.breathe()end
end
V.edges(F,0.72,1,3)

local yy=ed.y+0.5
local ac=V.mix(Y.theme.accent,bg,0.4)
V.line(F,0,yy,0,SX,yy,0,ac,0.3);V.line(F,SX,yy,0,SX,yy,SZ,ac,0.3)
V.line(F,SX,yy,SZ,0,yy,SZ,ac,0.3);V.line(F,0,yy,SZ,0,yy,0,ac,0.3)
local grid=V.toGrid(F,bg,bg)
F.zb,F.col=nil,nil
st.r3={key=key,grid=grid,F=F,quads=quads,bg=bg}
return st.r3
end


function win.draw(w,cw,ch)
local t=Y.theme
local body=ch-1
if st.countVersion~=ed.version then st.count=ed:count();st.countVersion=ed.version end
drawSidebar(w,body)
gfx.fill(SIDE+1,1,cw-SIDE,body,t.view)
local avail=cw-SIDE-2

local fit=max(1,min((body*2-2)//SZ,(avail-46)//SX))
local s=ed.zoom or fit
local gw=min(avail-46,SX*s)
local gh=min(body-1,(SZ*s+1)//2)
local ax=SIDE+2
local gy=max(1,(body-gh)//2+1)
ed:theme(t.dark)
ed:draw(ax,gy,gw,gh)
st.gridArea={ax,gy,gw,gh}
if ed.zoom then
local g=ed.geo
gfx.text(ax,gy+gh,string.format("zoom %d× · x %d–%d · z %d–%d · arrows move",s,ed.ox,ed.ox+g.vw-1,ed.oz,ed.oz+g.vh-1),t.dim,t.view)
else
gfx.text(ax,gy+gh,"front",t.dim,t.view)
end

local lx=ax+gw+1
local ly0=max(1,(body-SY)//2+1)
local rows=min(SY,body-1)
local step=SY/rows
for r=0,rows-1 do
local yy=SY-1-floor(r*step)
local row=ly0+r
local on=yy==ed.y
local used=ed.L[yy+1]:find("[^\0]")~=nil
if on then ui.pill(lx,row,5,t.accent)end
gfx.text(lx+1,row,string.format("%2d",yy+1),on and t.accentFg or(used and t.fg or t.dim),on and t.accent or t.view)
if used and not on then gfx.text(lx+3,row,"•",st.pal[1],t.view)end
ui.hit(w,lx,row,5,1,function()ed:setLayer(yy)end)
end

local px=lx+6
local pw=cw-px
st.preview=nil
if pw>=12 then
local r=render3D(pw,body)
gfx.blit(r.grid,pw,body,px,1)
gfx.text(px+1,1,"3D view",t.dim,r.bg)
st.preview={px,1,pw,body}
end
if st.panel then
local ppw,pph=min(cw-SIDE-4,st.panel.kind=="color"and 46 or 50),min(body-2,st.panel.kind=="color"and 12 or 18)
drawPanel(w,SIDE+2+(cw-SIDE-2-ppw)//2,2+(body-2-pph)//2,ppw,pph)
end
gfx.fill(1,ch,cw,1,t.header)
local tname=({pen="Pen",line="Line",rect="Rectangle",box="Filled rectangle",circle="Ring",disc="Disc",fill="Bucket",pick="Picker"})[ed.tool]or ed.tool
local status=string.format("Layer %d/%d · %s · colour %d · %d voxels%s%s",ed.y+1,SY,tname,ed.value,st.count or 0,
st.dirty and" · unsaved"or"",st.live and" · live"or"")
gfx.text(2,ch,ui.trunc(status,cw-3),t.fg,t.header)
end


local function inArea(a,lx,ly)return a and lx>=a[1]and ly>=a[2]and lx<a[1]+a[3]and ly<a[2]+a[4]end
function win.touch(w,lx,ly,btn,kind)
if st.panel then return end
if st.drag3 then
if kind=="drag"then
local d=st.drag3
st.view.yaw=d[3]+(lx-d[1])*0.06
st.view.pitch=max(-1.45,min(1.45,d[4]+(ly-d[2])*0.1))
d.moved=true
elseif kind=="drop"then
local d=st.drag3
st.drag3=nil
if not d.moved and st.r3 then
local p=st.preview
local id,face=V.pick(st.r3.F,lx-p[1],(ly-p[2])*2+((Y.touchFrac or 0)>=0.5 and 1 or 0))
local q=id and st.r3.quads[id]
if q then
if face==4 then ed:setLayer(min(SY-1,q[3]))else ed:setLayer(max(0,q[3]-(face==3 and 1 or 0)))end
ed.value=q[8]
end
end
end
return
end
if inArea(st.preview,lx,ly)and kind=="touch"then
st.drag3={lx,ly,st.view.yaw,st.view.pitch}
return
end
ed:touch(lx,ly,btn,kind,Y.touchFrac)
end
function win.scroll(w,lx,ly,dir)
if inArea(st.preview,lx,ly)then
st.view.zoom=max(0.4,min(5,st.view.zoom*(dir>0 and 1.2 or 1/1.2)))
return
end
if lx<=SIDE then return end
if Y.mods.ctrl()then
local a=st.gridArea
local vx,vz=ed:voxelAt(lx,ly,Y.touchFrac)
ed:zoomBy(dir>0 and 1 or-1,a[3],a[4])
if vx and ed.zoom then
local s=ed.zoom
ed.ox=vx-(a[3]//s)//2
ed.oz=vz-((a[4]*2)//s)//2
end
return
end
ed:setLayer(ed.y+(dir>0 and 1 or-1))
end
function win.key(w,char,code)
local K=Y.K
if st.panel then if code==K.esc then st.panel=nil end return end
if Y.mods.ctrl()then
if code==K.s then save(st.path)
elseif code==0x2C then ed:undoStep()
elseif code==0x15 then ed:redoStep()end
return
end
local zoomed=ed.zoom~=nil
if code==0xC9 or(code==K.up and not zoomed)then ed:setLayer(ed.y+1)
elseif code==0xD1 or(code==K.down and not zoomed)then ed:setLayer(ed.y-1)
elseif zoomed and code==K.up then ed.oz=ed.oz-4
elseif zoomed and code==K.down then ed.oz=ed.oz+4
elseif zoomed and code==K.left then ed.ox=ed.ox-4
elseif zoomed and code==K.right then ed.ox=ed.ox+4
elseif code==K.left then st.view.yaw=st.view.yaw-0.2
elseif code==K.right then st.view.yaw=st.view.yaw+0.2
elseif code==0xC7 then st.view={yaw=math.pi+0.6,pitch=0.5,zoom=1}
elseif code==0xD3 then ed:checkpoint();ed.L[ed.y+1]=ed:empty();ed:changed()
elseif char==91 then ed.brush=max(1,ed.brush-1)
elseif char==93 then ed.brush=min(3,ed.brush+1)
elseif char>=49 and char<=51 then ed.value=char-48
elseif char==99 or char==67 then
if ed.y<SY-1 then ed:checkpoint();ed.L[ed.y+2]=ed.L[ed.y+1];ed:setLayer(ed.y+1);ed:changed()end
else
local c=char>0 and char<128 and string.char(char):upper()or""
for _,tl in ipairs(TOOLS)do if tl[3]==c then ed:setTool(tl[1])end end
end
end

win.tickInterval=0.4
function win.tick(w)

if st.live and st.sent~=ed.version and not ed.stroke and computer.uptime()-st.lastChange>0.6 then
project(true)
Y.redraw(w)
end
end
function win.onclose(w)
if not st.dirty then return true end
Y.dialog{title="Save the hologram before closing?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save(st.path,function()Y.closeWin(w,true)end)end,"suggested"}}}
return false
end
function win.lowMemory()st.r3=nil;st.mesher.reset()end

win.api={state=st,ed=ed,project=project,save=save,load=loadHolo,importPoints=importPoints,
importScan=importScan,importModel=importModel,importPicture=importPicture,applyShape=applyShape,
shapeDefaults=shapeDefaults,openPath=openPath,centerModel=centerModel}
if path then openPath(path);st.dirty=path:match("%.holo$")==nil end
return win
end

return M
F 17666 /usr/share/yaru/apps/lights.lua












local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local L=require("yaru.lights")
local M={}

local floor,min,max=math.floor,math.min,math.max
local MODES={{"text","Text"},{"clock","Clock"},{"picture","Picture"},{"effect","Effects"},{"music","Music"},{"solid","Colour"}}
local SWATCHES={0xFF2020,0xFF8A00,0xFFD000,0x80FF20,0x20FF60,0x00E0FF,0x2060FF,0x8040FF,0xFF40C0,0xFFFFFF,0x808080,0xE95420}
local BGS={0x000000,0x000830,0x300000,0x002000,0x202020}

local function mix(a,b,f)
local ia=1-f
return floor((a>>16)*ia+(b>>16)*f)<<16|floor(((a>>8)&255)*ia+((b>>8)&255)*f)<<8
|floor((a&255)*ia+(b&255)*f)
end

local function disc(cx,cy,r,c)
for y=-r,r do
local w=math.floor(math.sqrt((r+0.45)^2-y*y))
gfx.prect(cx-w,cy+y,2*w+1,1,c)
end
end
local function lum(c)return((c>>16)*3+((c>>8)&255)*6+(c&255))/2550 end

function M.open()
local cfg=L.cfg or L.load()
local win=Y.newWindow{app="lights",title="Light Show",w=124,h=38,minW=92,minH=26,precise=true}
local st={setup=false,wiz=nil,tool="pen",paint=0xFF2020,dirtyAt=nil,ident=nil}
local SIDE=28
if cfg.on and not L.running()then L.start()end

local function changed()st.dirtyAt=computer.uptime()end
local function setMode(m)
cfg.mode=m
if not cfg.on then cfg.on=true;L.start()end
changed()
end
local function setPower(on)
cfg.on=on
if on then L.start()else L.step();L.stop(true)end
changed()
end


local function lampAt(idx)
for a,i in pairs(cfg.map)do if i==idx then return a end end
end
local function placed()
local n=0
local present={}
for _,a in ipairs(L.lamps())do present[a]=true end
for a in pairs(cfg.map)do if present[a]then n=n+1 end end
return n
end
local function stopWizard()
st.wiz=nil
L.override,L.priority=nil,nil
L.resend()
if not cfg.on then L.step();L.stop(true)end
end
local function nextWizardLamp()
local wz=st.wiz
while wz.i<=#wz.list and cfg.map[wz.list[wz.i]]do wz.i=wz.i+1 end
if wz.i>#wz.list then
stopWizard()
Y.notify("Light Show","All lamps placed ("..placed()..")")
return
end
local cur=wz.list[wz.i]
L.priority=cur
L.override=function(a)
if a==cur then return(floor(computer.uptime()*3)%2==0)and 0xFFFFFF or 0 end
return cfg.map[a]and 0x101010 or 0
end
L.resend()
end
local function startWizard(all)
local list={}
for _,a in ipairs(L.lamps())do if all or not cfg.map[a]then list[#list+1]=a end end
if all then cfg.map={}end
if#list==0 then return Y.notify("Light Show","No lamps to place (Computronics colourful lamps, connected with cables or adapters)")end
st.wiz={list=list,i=1}
if not L.running()then L.start()end
nextWizardLamp()
end
local function autoArrange()
local list=L.lamps()
if#list==0 then return Y.notify("Light Show","No lamps found")end
if cfg.w*cfg.h<#list then cfg.h=math.ceil(#list/cfg.w)end
cfg.map={}
for i,a in ipairs(list)do cfg.map[a]=i-1 end
L.resend()
changed()
end
local function identify(a)
local untilT=computer.uptime()+2
L.priority=a
L.override=function(b)
if computer.uptime()>untilT then L.override,L.priority=nil,nil;L.resend();return nil end
if b==a then return(floor(computer.uptime()*4)%2==0)and 0xFFFFFF or 0 end
end
st.ident={a=a,t=untilT}
if not L.running()then L.start()end
end


local function loadPicture(p)
local okI,image=pcall(require,"yaru.image")
local img=okI and image.load(p,true)
if not img then return Y.notify("Light Show","Cannot read "..p)end
local pw,ph,get=image.pixels(img)
local W,H=cfg.w,cfg.h
local sc=min(W/pw,H/ph)
local ox,oy=(W-pw*sc)/2,(H-ph*sc)/2
cfg.pic={}
for y=0,H-1 do
for x=0,W-1 do

local x1,x2=floor((x-ox)/sc),floor((x+1-ox)/sc)-1
local y1,y2=floor((y-oy)/sc),floor((y+1-oy)/sc)-1
local r,g,b,n=0,0,0,0
for py=max(0,y1),min(ph-1,max(y1,y2))do
for px=max(0,x1),min(pw-1,max(x1,x2))do
local c=get(px,py)
if c then r,g,b,n=r+(c>>16),g+((c>>8)&255),b+(c&255),n+1 end
end
end
cfg.pic[y*W+x+1]=n>0 and(floor(r/n)<<16|floor(g/n)<<8|floor(b/n))or 0
end
Y.breathe()
end
setMode("picture")
end
local function picMenu(sx,sy)
local items,seen={},{}
for _,d in ipairs({"/home/Pictures","/home","/usr/share/yaru/wallpapers"})do
if fs.isDirectory(d)then
for name in fs.list(d)do
local p=fs.concat(d,name)
if name:lower():match("%.pic$")and not seen[p]and#items<18 then
seen[p]=true
items[#items+1]={name..(d=="/home/Pictures"and""or"  · "..d),function()loadPicture(p)end}
end
end
end
end
if#items>0 then items[#items+1]="-"end
items[#items+1]={"Other File…",function()
Y.dialog{title="Load Picture",text="Path to a .pic file",entry="/home/Pictures/",
buttons={{"Cancel"},{"Load",function(p)if p and p~=""then loadPicture(p)end end,"suggested"}}}
end}
Y.menu(sx,sy,items)
end
local function flood(idx,col)
local W,H=cfg.w,cfg.h
local from=cfg.pic[idx+1]or 0
if from==col then return end
local stack={idx}
local seen={}
while#stack>0 do
local i=table.remove(stack)
if i>=0 and i<W*H and not seen[i]and(cfg.pic[i+1]or 0)==from then
seen[i]=true
cfg.pic[i+1]=col
local x=i%W
if x>0 then stack[#stack+1]=i-1 end
if x<W-1 then stack[#stack+1]=i+1 end
stack[#stack+1]=i-W
stack[#stack+1]=i+W
end
end
end


function win.header(w,hw)
local x=2
for _,m in ipairs(MODES)do
x=x+ui.button(w,x,1,m[2],function()st.setup=false;setMode(m[1])end,
(not st.setup and cfg.mode==m[1]and cfg.on)and"suggested"or nil)+1
end
x=x+1
x=x+ui.button(w,x,1,"▦ Wall",function()st.setup=not st.setup;if not st.setup and st.wiz then stopWizard()end end,
st.setup and"suggested"or nil)+2
gfx.text(x,1,cfg.on and"On"or"Off",Y.theme.fg,Y.theme.header)
ui.switch(w,x+4,1,cfg.on,function()setPower(not cfg.on)end)
ui.button(w,hw-4,1,"☰",function(_,px)
Y.menu(win.x+px-1,win.y+1,{
{"Send Everything Again",function()L.resend()end},
{"Frames per Second: 5",function()cfg.fps=5;if L.running()then L.start()end changed()end,check=cfg.fps==5},
{"Frames per Second: 10",function()cfg.fps=10;if L.running()then L.start()end changed()end,check=cfg.fps==10},
{"Frames per Second: 20",function()cfg.fps=20;if L.running()then L.start()end changed()end,check=cfg.fps==20},
"-",
{"Light Saver (less lag in Minecraft)",function()cfg.saver=not cfg.saver;changed()end,check=cfg.saver~=false},
{"Light Changes: 2 per second",function()cfg.relights=2;changed()end,check=cfg.relights==2,disabled=cfg.saver==false},
{"Light Changes: 4 per second",function()cfg.relights=4;changed()end,check=(cfg.relights or 4)==4,disabled=cfg.saver==false},
{"Light Changes: 8 per second",function()cfg.relights=8;changed()end,check=cfg.relights==8,disabled=cfg.saver==false},
"-",
{"Smooth Animation (whole frames)",function()cfg.smooth=not cfg.smooth;changed()end,check=cfg.smooth~=false},
{"Lamp Time: 30% (desktop first)",function()cfg.load=30;changed()end,check=cfg.load==30},
{"Lamp Time: 60%",function()cfg.load=60;changed()end,check=(cfg.load or 60)==60},
{"Lamp Time: 90% (lamps first)",function()cfg.load=90;changed()end,check=cfg.load==90},
"-",
{"Start at Boot",function()cfg.autostart=not cfg.autostart;changed()end,check=cfg.autostart==true},
{"Turn Off and Stop",function()setPower(false)end},
"-",
{"About",function()
Y.dialog{title="Light Show",text=table.concat({
"Turns Computronics colourful lamps into a screen: a ticker, a clock, pictures,",
"effects and an equalizer that follows the music in Tape Deck.",
"",
"▦ Wall: set the size of the wall, then Find lamps — each lamp blinks in turn,",
"click where it hangs. Lamps connect with cables (or adapters) like any component.",
"",
"The show keeps running after this window is closed. Settings: /etc/yaru-lights.cfg",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end},
})
end,nil,4)
end


local function swatches(w,x,y,list,value,set,per)
per=per or 6
for i,c in ipairs(list)do
local cx,cy=x+((i-1)%per)*4,y+(i-1)//per
gfx.fill(cx,cy,3,1,c)
if c==value then gfx.text(cx+1,cy,"✓",lum(c)>0.55 and 0x000000 or 0xFFFFFF,c)end
ui.hit(w,cx,cy,3,1,function()set(c)end)
end
return y+(#list-1)//per+1
end
local function pills(w,x,y,opts,value,set)
local t=Y.theme
for _,o in ipairs(opts)do
local on=value==o[1]
local wd=unicode.len(o[2])+2
if on then ui.pill(x,y,wd,t.accent)end
gfx.text(x+1,y,o[2],on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,x,y,wd,1,function()set(o[1])end)
x=x+wd
end
end
local function stepper(w,x,y,label,set,canDown,canUp)
local t=Y.theme
ui.button(w,x,y,"−",canDown~=false and function()set(-1)end or nil,nil,3)
gfx.text(x+4,y,ui.pad(label,6),t.fg,t.sidebar)
ui.button(w,x+10,y,"+",canUp~=false and function()set(1)end or nil,nil,3)
end
local function drawSidebar(w,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
local y=1
local function head(s)gfx.text(2,y,s,t.dim);y=y+1 end
if st.setup then
head("Wall size")
gfx.text(2,y,"Width",t.fg)
stepper(w,12,y,cfg.w.."",function(d)cfg.w=max(1,min(64,cfg.w+d));cfg.pic={};L.resend();changed()end)
y=y+1
gfx.text(2,y,"Height",t.fg)
stepper(w,12,y,cfg.h.."",function(d)cfg.h=max(1,min(32,cfg.h+d));cfg.pic={};L.resend();changed()end)
y=y+2
local n=#L.lamps()
head("Lamps")
gfx.text(2,y,n.." found · "..placed().." placed",n>0 and t.fg or t.warning,t.sidebar);y=y+2
if st.wiz then
local wz=st.wiz
gfx.text(2,y,ui.trunc("Lamp "..wz.i.." of "..#wz.list.." is blinking.",SIDE-2),t.accent,t.sidebar);y=y+1
gfx.text(2,y,"Click where it hangs",t.fg,t.sidebar);y=y+1
gfx.text(2,y,"on the wall →",t.fg,t.sidebar);y=y+2
ui.button(w,2,y,"Skip",function()wz.i=wz.i+1;nextWizardLamp()end,nil,12)
ui.button(w,15,y,"Stop",stopWizard,nil,12)
y=y+2
else
ui.button(w,2,y,"Find Lamps…",function()startWizard(false)end,"suggested",SIDE-2);y=y+1
ui.button(w,2,y,"Place All Again…",function()startWizard(true)end,nil,SIDE-2);y=y+1
ui.button(w,2,y,"Auto Arrange",autoArrange,nil,SIDE-2);y=y+1
ui.button(w,2,y,"Clear Places",function()cfg.map={};L.resend();changed()end,nil,SIDE-2);y=y+2
gfx.text(2,y,"Click a lamp on the wall",t.dim,t.sidebar);y=y+1
gfx.text(2,y,"to make it blink.",t.dim,t.sidebar);y=y+1
end
return
end
local m=cfg.mode
if m=="text"then
head("Text")
ui.button(w,2,y,ui.trunc(cfg.text,SIDE-6),function()
Y.dialog{title="Ticker Text",entry=cfg.text,buttons={{"Cancel"},{"OK",function(s)cfg.text=s or"";changed()end,"suggested"}}}
end,nil,SIDE-2)
y=y+2
head("Colour")
y=swatches(w,2,y,SWATCHES,not cfg.textRainbow and cfg.textColor,function(c)cfg.textColor=c;cfg.textRainbow=false;changed()end)
gfx.text(2,y,"Rainbow",t.fg)
ui.switch(w,SIDE-7,y,cfg.textRainbow,function()cfg.textRainbow=not cfg.textRainbow;changed()end)
y=y+2
head("Background")
y=swatches(w,2,y,BGS,cfg.bg,function(c)cfg.bg=c;changed()end)+1
gfx.text(2,y,"Speed",t.fg)
stepper(w,12,y,cfg.speed.."",function(d)cfg.speed=max(1,min(20,cfg.speed+d));changed()end);y=y+1
gfx.text(2,y,"Font",t.fg)
pills(w,8,y,{{"auto","Auto"},{"small","Small"},{"normal","Big"}},cfg.font,function(v)cfg.font=v;changed()end);y=y+1
gfx.text(2,y,"Always scroll",t.fg)
ui.switch(w,SIDE-7,y,cfg.scrollAlways,function()cfg.scrollAlways=not cfg.scrollAlways;changed()end)
y=y+1
elseif m=="clock"then
head("Colour")
y=swatches(w,2,y,SWATCHES,cfg.clockColor,function(c)cfg.clockColor=c;changed()end)+1
head("Background")
y=swatches(w,2,y,BGS,cfg.bg,function(c)cfg.bg=c;changed()end)+1
gfx.text(2,y,"24 hours",t.fg)
ui.switch(w,SIDE-7,y,cfg.clock24,function()cfg.clock24=not cfg.clock24;changed()end);y=y+1
gfx.text(2,y,"Font",t.fg)
pills(w,8,y,{{"auto","Auto"},{"small","Small"},{"normal","Big"}},cfg.font,function(v)cfg.font=v;changed()end);y=y+1
elseif m=="picture"then
head("Draw on the wall")
pills(w,2,y,{{"pen","Pen"},{"fill","Fill"},{"pick","Pick"}},st.tool,function(v)st.tool=v end);y=y+2
y=swatches(w,2,y,SWATCHES,st.paint,function(c)st.paint=c;if st.tool=="pick"then st.tool="pen"end end)
y=swatches(w,2,y,{0x000000,0x400000,0x004000,0x000040,0x404040,0xFFC0A0},st.paint,function(c)st.paint=c end)+1
gfx.text(2,y,"right click = off",t.dim,t.sidebar);y=y+2
ui.button(w,2,y,"Load Picture ▾",function(_,px,py)picMenu(win.x+px-1,win.y+py)end,nil,SIDE-2);y=y+1
ui.button(w,2,y,"Clear",function()cfg.pic={};changed()end,nil,SIDE-2);y=y+1
elseif m=="effect"then
head("Effect")
for _,e in ipairs(L.EFFECTS)do
local on=cfg.effect==e[1]
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then ui.select(1,y,SIDE,bg)end
gfx.text(3,y,(on and"◉ "or"○ ")..e[2],on and t.fg or t.fg,bg)
ui.hit(w,1,y,SIDE,1,function()cfg.effect=e[1];changed()end)
y=y+1
end
y=y+1
gfx.text(2,y,"Speed",t.fg)
stepper(w,12,y,cfg.speed.."",function(d)cfg.speed=max(1,min(20,cfg.speed+d));changed()end);y=y+2
head("Colour")
y=swatches(w,2,y,SWATCHES,cfg.color,function(c)cfg.color=c;changed()end)
elseif m=="music"then
head("Tape Deck")
local s=L.musicStatus or"…"
gfx.text(2,y,ui.trunc(s,SIDE-2),s:find("sync")and t.success or t.dim,t.sidebar);y=y+1
if#s>SIDE-2 then gfx.text(2,y,ui.trunc(s:sub(SIDE-2),SIDE-2),t.dim,t.sidebar);y=y+1 end
y=y+1
if not Y.windowsOf("tapes")[1]then ui.button(w,2,y,"Open Tape Deck",function()Y.launch("tapes")end,"suggested",SIDE-2);y=y+2 end
gfx.text(2,y,"Style",t.fg)
pills(w,9,y,{{"bars","Bars"},{"center","Centre"}},cfg.music,function(v)cfg.music=v;changed()end);y=y+1
gfx.text(2,y,"Colours",t.fg)
y=y+1
pills(w,2,y,{{"classic","Classic"},{"rainbow","Rainbow"},{"mono","Mono"}},cfg.musicColors,function(v)cfg.musicColors=v;changed()end);y=y+1
gfx.text(2,y,"Gain",t.fg)
stepper(w,12,y,cfg.gain.."%",function(d)cfg.gain=max(50,min(250,cfg.gain+d*10));changed()end);y=y+2
if cfg.musicColors=="mono"then y=swatches(w,2,y,SWATCHES,cfg.color,function(c)cfg.color=c;changed()end)end
elseif m=="solid"then
head("Colour")
y=swatches(w,2,y,SWATCHES,cfg.color,function(c)cfg.color=c;changed()end,6)+1
ui.button(w,2,y,"Hex Colour…",function()
Y.dialog{title="Colour",text="RGB, e.g. FF8040",entry=string.format("%06X",cfg.color),
buttons={{"Cancel"},{"OK",function(s)local v=tonumber((s or""):gsub("#",""),16)if v then cfg.color=v;changed()end end,"suggested"}}}
end,nil,SIDE-2)
y=y+2
end

local by=max(y+1,ch-2)
gfx.text(2,by,"Brightness",t.fg)
stepper(w,13,by,cfg.brightness.."%",function(d)cfg.brightness=max(10,min(100,cfg.brightness+d*10));changed()end)
end


local function geometry(ax,ay,aw,ah)
local W,H=cfg.w,cfg.h
local p=max(1,min(aw//W,(ah*2)//H))
local px0=ax+(aw-p*W)//2
local py0=2*ay-1+(ah*2-p*H)//2
st.geo={p=p,px0=px0,py0=py0}
return p,px0,py0
end
local function cellAt(lx,ly)
local g=st.geo
if not g then return end
local py=2*ly-1+((Y.touchFrac or 0)>=0.5 and 1 or 0)
local x,y=(lx-g.px0)//g.p,(py-g.py0)//g.p
if x<0 or y<0 or x>=cfg.w or y>=cfg.h then return end
return y*cfg.w+x
end
local function drawWall(ax,ay,aw,ah)
local BG=0x08080C
gfx.fill(ax,ay,aw,ah,BG)
local fb=L.fb
if not fb or not L.running()then fb=L.render(computer.uptime()-(L.t0 or 0))end
local W,H=cfg.w,cfg.h
local p,px0,py0=geometry(ax+1,ay+1,aw-2,ah-2)
local r=(p-1)//2
for y=0,H-1 do
for x=0,W-1 do
local idx=y*W+x
local c=fb[idx+1]or 0
local cx,cy=px0+x*p,py0+y*p
local body=c
if st.setup then
local a=lampAt(idx)
body=a and(st.ident and st.ident.a==a and computer.uptime()<st.ident.t and 0xFFFFFF or 0x8A8A96)or 0x1A1A22
elseif lum(c)<0.06 then body=0x1C1C24 end
if p>=5 then
if not st.setup and lum(c)>=0.06 and p>=7 then disc(cx+r,cy+r,r,mix(body,BG,0.65))end
disc(cx+r,cy+r,max(1,r-(p>=7 and 1 or 0)),body)
if p>=6 and lum(body)>0.1 then gfx.pset(cx+r-1,cy+r-1,mix(body,0xFFFFFF,0.55))end
elseif p>=3 then
gfx.prect(cx,cy,p-1,p-1,body)
else
gfx.prect(cx,cy,p,p,body)
end
end
end
end

function win.draw(w,cw,ch)
local t=Y.theme
local body=ch-1
drawSidebar(w,body)
drawWall(SIDE+1,1,cw-SIDE,body)
gfx.fill(1,ch,cw,1,t.header)
local n=#L.lamps()
local status
if st.setup then
status=string.format("Wall %d × %d · %d lamps found · %d placed · lamps take 15-bit colours",cfg.w,cfg.h,n,placed())
else
status=string.format("%s · %d × %d · %d lamps · %d fps · %d updates last frame%s",cfg.on and"▶ playing"or"■ off",cfg.w,cfg.h,n,
cfg.fps,L.lastSends or 0,cfg.on and" · keeps playing when closed"or"")
if n==0 then status="No colourful lamps found — connect Computronics colourful lamps with cables, then ▦ Wall → Find lamps"end
if L.lastError then status="Error: "..L.lastError end
if L.callTime and n>0 then
status=string.format("%s · %d × %d · %d lamps · %d ms per lamp · wall ~%.1f fps%s%s",cfg.on and"▶"or"■",cfg.w,cfg.h,n,
math.floor(L.callTime*1000+0.5),L.wallFps or 0,
cfg.saver~=false and string.format(" · light changes ≤ %d/s",cfg.relights or 4)or" · light saver off",
cfg.on and" · keeps playing when closed"or"")
end
end
gfx.text(2,ch,ui.trunc(status,cw-3),t.fg,t.header)
end


function win.touch(w,lx,ly,btn,kind)
if lx<=SIDE then return end
local idx=cellAt(lx,ly)
if not idx then return end
if st.setup then
if kind~="touch"then return end
if st.wiz then
local cur=st.wiz.list[st.wiz.i]
local other=lampAt(idx)
if other then cfg.map[other]=nil end
cfg.map[cur]=idx
st.wiz.i=st.wiz.i+1
changed()
nextWizardLamp()
else
local a=lampAt(idx)
if a then identify(a)end
end
return
end
if cfg.mode~="picture"then return end
if st.tool=="pick"and kind=="touch"then
st.paint=cfg.pic[idx+1]or 0
st.tool="pen"
elseif st.tool=="fill"and kind=="touch"then
flood(idx,btn==1 and 0 or st.paint)
elseif st.tool=="pen"then
cfg.pic[idx+1]=btn==1 and 0 or st.paint
end
changed()
end
function win.key(w,char,code)
if code==Y.K.esc and st.wiz then stopWizard()end
end

win.tickInterval=0.1
function win.tick(w)
if st.dirtyAt and computer.uptime()-st.dirtyAt>1 then st.dirtyAt=nil;L.save()end
Y.redraw(w)
end
function win.cleanup()
if st.wiz then stopWizard()end
if st.dirtyAt then L.save()end
end

win.api={state=st,cfg=cfg,setMode=setMode,setPower=setPower,startWizard=startWizard,autoArrange=autoArrange,
loadPicture=loadPicture,cellAt=cellAt}
return win
end

return M
F 3945 /usr/share/yaru/apps/mines.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local M={}
local LEVELS={{"Small",8,8,10},{"Medium",16,16,40},{"Large",30,16,99}}
local NUMC={0x0049BF,0x009200,0xCC0000,0x330080,0x992400,0x009280,0x000000,0x787878}

function M.open(level)
local st={}
local win=Y.newWindow{app="mines",title="Mines",w=40,h=14,fixed=true}
local function new(li)
local L=LEVELS[li or st.level or 1]
st.level=li or st.level or 1
st.w,st.h,st.n=L[2],L[3],L[4]
st.mine,st.open,st.flag={},{},{}
st.placed,st.over,st.won,st.t0,st.t1=false,false,false,nil,nil
st.opened,st.flags=0,0
win.w,win.h=math.max(40,st.w*2+4),st.h+4
gfx.damageAll()
end
local function idx(x,y)return(y-1)*st.w+x end
local function around(x,y,fn)
for dy=-1,1 do for dx=-1,1 do
local nx,ny=x+dx,y+dy
if(dx~=0 or dy~=0)and nx>=1 and ny>=1 and nx<=st.w and ny<=st.h then fn(nx,ny)end
end end
end
local function count(x,y)local n=0 around(x,y,function(a,b)if st.mine[idx(a,b)]then n=n+1 end end)return n end
local function place(sx,sy)
local free={}
for y=1,st.h do for x=1,st.w do
if math.abs(x-sx)>1 or math.abs(y-sy)>1 then free[#free+1]=idx(x,y)end
end end
for _=1,st.n do st.mine[table.remove(free,math.random(#free))]=true end
st.placed,st.t0=true,computer.uptime()
end
local function reveal(x,y)
local stack={{x,y}}
while#stack>0 do
local p=table.remove(stack)
local i=idx(p[1],p[2])
if not st.open[i]and not st.flag[i]then
st.open[i]=true
st.opened=st.opened+1
if count(p[1],p[2])==0 then around(p[1],p[2],function(a,b)stack[#stack+1]={a,b}end)end
end
end
end
local function finish(won)
st.over,st.won,st.t1=true,won,computer.uptime()
if Y.cfg.beeps then computer.beep(won and 1200 or 200,0.2)end
Y.notify(won and"You won!"or"Boom!",won and string.format("Cleared in %d s",math.floor(st.t1-st.t0))or"A mine exploded",
{actionLabel="Play again",action=function()new()end})
end
local function click(x,y,btn)
if st.over then return end
local i=idx(x,y)
if btn==1 then
if not st.open[i]then st.flag[i]=not st.flag[i];st.flags=st.flags+(st.flag[i]and 1 or-1)end
return
end
if st.flag[i]then return end
if not st.placed then place(x,y)end
if st.open[i]then
local f=0 around(x,y,function(a,b)if st.flag[idx(a,b)]then f=f+1 end end)
if f==count(x,y)then around(x,y,function(a,b)
local j=idx(a,b)
if not st.flag[j]and not st.open[j]then if st.mine[j]then st.open[j]=true;finish(false)else reveal(a,b)end end
end)end
elseif st.mine[i]then st.open[i]=true;finish(false)
else reveal(x,y)end
if not st.over and st.opened==st.w*st.h-st.n then finish(true)end
end
function win.header(w,hw)
local x=2
for i,L in ipairs(LEVELS)do x=x+ui.button(w,x,1,L[1],function()new(i)end,i==st.level and nil or"flat")+1 end
end
function win.draw(w,cw,ch)
local t=Y.theme
w.tickInterval=(st.placed and not st.over)and 1 or nil
local time=st.t0 and math.floor((st.t1 or computer.uptime())-st.t0)or 0
local info=string.format("● %d   ◷ %d s",st.n-st.flags,time)
gfx.text((cw-#info+4)//2,1,info,st.over and(st.won and t.success or t.danger)or t.fg)
local ox=(cw-st.w*2)//2+1
for y=1,st.h do for x=1,st.w do
local i=idx(x,y)
local px,py=ox+(x-1)*2,y+2
local shade=(x+y)%2==0
if st.open[i]then
local bg=shade and(t.dark and 0x2D2D2D or 0xE1E1E1)or(t.dark and 0x383838 or 0xF0F0F0)
if st.mine[i]then gfx.fill(px,py,2,1,st.won and bg or 0xCC0000);gfx.text(px,py,"●",0x000000)
else
local n=count(x,y)
gfx.fill(px,py,2,1,bg)
if n>0 then gfx.text(px,py,tostring(n),t.dark and(n==1 and 0x6D92FF or n==2 and 0x33DB40 or n==3 and 0xFF4940 or 0xFFB640)or NUMC[n])end
end
else

local bg=shade and 0x66DB40 or 0x33B640
if st.over and st.mine[i]and not st.flag[i]then bg=0x992400 end
gfx.fill(px,py,2,1,bg)

if st.flag[i]then gfx.pset(px,py*2-1,0xFF2400);gfx.pset(px+1,py*2-1,0xFF2400);gfx.pset(px,py*2,0x2D2D2D)end
end
ui.hit(w,px,py,2,1,function(_,_,_,btn)click(x,y,btn)end)
end end
end
function win.tick(w)Y.redraw(w)end
new(level)
return win
end

return M
F 5374 /usr/share/yaru/apps/monitor.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local component=require("component")
local fs=require("filesystem")
local unicode=require("unicode")

local M={}
local TABS={{"proc","Processes"},{"res","Resources"},{"fs","File Systems"},{"comp","Devices"}}
local BARS={" ","▁","▂","▃","▄","▅","▆","▇","█"}

local function graph(x,y,w,h,hist,maxv,fg,bg)
gfx.fill(x,y,w,h,bg)
local n=#hist
for i=1,math.min(w,n)do
local v=hist[n-i+1]/maxv
local cells=v*h
local col=x+w-i
for r=0,h-1 do
local fillAmt=cells-r
if fillAmt>=1 then gfx.cell(col,y+h-1-r,"█",fg,bg)
elseif fillAmt>0 then gfx.cell(col,y+h-1-r,BARS[1+math.floor(fillAmt*8)],fg,bg)end
end
end
end

local function processes()
local process=require("process")
local r={}
for co,p in pairs(process.list)do
local tid=tostring(co):gsub("^thread: 0x","")
local isThread=false
for _,q in pairs(process.list)do
for _,h in ipairs(q.data.handles or{})do
local mt=getmetatable(h)
if mt and mt.process==p then isThread=true end
end
end
local data=p.data
local term=rawget(data,"yaruTerm")
r[#r+1]={id=tid:sub(-6),cmd=p.command or tostring(p.path),thread=isThread,term=term,
status=coroutine.status(co),handles=#(data.handles or{})}
end
table.sort(r,function(a,b)return a.cmd<b.cmd end)
return r
end

function M.open()
local st={tab="res",mem={},energy={},top=0}
local win=Y.newWindow{app="monitor",title="System Monitor",w=86,h=26,minW=60,minH=14}
local function sample()
local tot,free=computer.totalMemory(),computer.freeMemory()
st.mem[#st.mem+1]=tot-free
st.energy[#st.energy+1]=computer.energy()
if#st.mem>120 then table.remove(st.mem,1);table.remove(st.energy,1)end
end
sample()
win.tickInterval=2
function win.tick(w)sample();Y.redraw(w)end

function win.header(w,hw)
local x=3
for _,tb in ipairs(TABS)do
local sel=st.tab==tb[1]
x=x+ui.button(w,x,1,tb[2],function()st.tab=tb[1];st.top=0 end,sel and nil or"flat")+1
end
end

function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,ch,t.view)
if st.tab=="res"then
local tot,free=computer.totalMemory(),computer.freeMemory()
local used=tot-free
gfx.text(2,1,"Memory",t.fg,t.view)
local ms=string.format("%s used of %s (%d%%)",ui.size(used),ui.size(tot),used*100//tot)
gfx.text(cw-1-unicode.len(ms),1,ms,t.dim,t.view)
local gh=math.max(3,(ch-8)//2)
ui.graph(2,2,cw-3,gh,st.mem,tot,t.accent)
local y=3+gh
local me=computer.maxEnergy()
gfx.text(2,y,"Energy",t.fg,t.view)
local es=me>0 and string.format("%.0f of %.0f (%d%%)",computer.energy(),me,computer.energy()*100//me)or"n/a"
gfx.text(cw-1-unicode.len(es),y,es,t.dim,t.view)
ui.graph(2,y+1,cw-3,gh,st.energy,math.max(1,me),t.success)
y=y+gh+2
local gs=gfx.stats
gfx.text(2,y,string.format("Desktop: last frame %.1f ms, %d GPU runs  •  total GPU set %d fill %d copy %d, colour changes %d",
Y.stats.lastFrameMs or 0,Y.stats.lastRuns or 0,gs.set,gs.fill,gs.copy,gs.fg+gs.bg),t.dim,t.view)
gfx.text(2,y+1,string.format("Uptime %d:%02d:%02d  •  windows %d  •  loaded app modules: %s",math.floor(computer.uptime()//3600),
math.floor(computer.uptime()//60%60),math.floor(computer.uptime()%60),#Y.windows,(function()
local l={}for k in pairs(Y.modules)do l[#l+1]=k end return table.concat(l,", ")end)()),t.dim,t.view)
elseif st.tab=="proc"then
local list=processes()
gfx.fill(1,1,cw,1,t.sidebar)
gfx.text(2,1,"ID",t.dim,t.sidebar);gfx.text(10,1,"Command",t.dim,t.sidebar)
gfx.text(cw-28,1,"Type",t.dim,t.sidebar);gfx.text(cw-16,1,"State",t.dim,t.sidebar)
for i=1,ch-1 do
local p=list[st.top+i]
if not p then break end
local y=i+1
gfx.text(2,y,p.id,t.dim,t.view)
gfx.text(10,y,ui.trunc(p.cmd,cw-40),t.fg,t.view)
gfx.text(cw-28,y,p.term and("terminal "..p.term)or(p.thread and"thread"or"process"),t.dim,t.view)
gfx.text(cw-16,y,p.status,p.status=="running"and t.success or t.dim,t.view)
end
ui.scrollbar(cw,2,ch-1,st.top,ch-1,#list)
elseif st.tab=="fs"then
local y=1
local seen={}
for proxy,path in fs.mounts()do
if not seen[proxy.address]and y+2<=ch then
seen[proxy.address]=true
local total,used=proxy.spaceTotal(),proxy.spaceUsed()
local label=proxy.getLabel()or proxy.address:sub(1,8)
gfx.text(2,y,ui.trunc(path.."  "..label..(proxy.isReadOnly()and"  (read-only)"or""),cw-30),t.fg,t.view)
local s=total==math.huge and ui.size(used).." used"or string.format("%s of %s",ui.size(used),ui.size(total))
gfx.text(cw-1-unicode.len(s),y,s,t.dim,t.view)
gfx.fill(2,y+1,cw-3,1,t.sep)
if total>0 and total~=math.huge then gfx.fill(2,y+1,math.max(1,math.floor((cw-3)*used/total)),1,t.accent)end
y=y+3
end
end
else
local list={}
for addr,typ in component.list()do list[#list+1]={typ,addr}end
table.sort(list,function(a,b)return a[1]<b[1]end)
for i=1,ch do
local c=list[st.top+i]
if not c then break end
gfx.text(2,i,ui.pad(c[1],20),t.fg,t.view)
gfx.text(24,i,c[2],t.dim,t.view)
local primary=component.isAvailable(c[1])and component.getPrimary(c[1]).address==c[2]
if primary then gfx.text(cw-10,i,"primary",t.accent,t.view)end
end
ui.scrollbar(cw,1,ch,st.top,ch,#list)
end
end
function win.scroll(w,x,y,dir)st.top=math.max(0,st.top-dir*3)end
function win.key(w,char,code)
local K=Y.K
if code==K.down then st.top=st.top+1 elseif code==K.up then st.top=math.max(0,st.top-1)
elseif code==K.tab or code==K.right then
for i,tb in ipairs(TABS)do if tb[1]==st.tab then st.tab=TABS[i%#TABS+1][1];break end end
st.top=0
end
end
return win
end

return M
F 3877 /usr/share/yaru/apps/notes.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local unicode=require("unicode")
local M={}
local DIR="/home/Notes"
local COLORS={0xFFDB80,0xB6DBFF,0xB6FFBF,0xFFB6BF,0xDBB6FF,0xF0F0F0}

local function wrap(s,w)
local out={}
for para in(s.."\n"):gmatch("(.-)\n")do
if para==""then out[#out+1]=""end
while unicode.len(para)>0 do
local line=unicode.sub(para,1,w)
if unicode.len(para)>w then
local cut=line:match("^.*()%s")
if cut and cut>w//2 then line=line:sub(1,cut-1)end
end
out[#out+1]=line
para=unicode.sub(para,unicode.len(line)+1):gsub("^%s+","")
end
end
return out
end

function M.open()
fs.makeDirectory(DIR)
local st={notes={},sel=nil}
local win=Y.newWindow{app="notes",title="Notes",w=92,h=30,minW=40,minH=12}
local function reload()
st.notes={}
for n in fs.list(DIR)do
if n:match("%.txt$")then
local f=io.open(fs.concat(DIR,n))
local text=f and f:read("*a")or""
if f then f:close()end
local color=tonumber(text:match("^#color (%x+)\n")or"",16)
text=text:gsub("^#color %x+\n","")
st.notes[#st.notes+1]={file=n,text=text,color=color or COLORS[1]}
end
end
table.sort(st.notes,function(a,b)return a.file>b.file end)
end
local function save(n)
local f=io.open(fs.concat(DIR,n.file),"w")
if f then f:write(string.format("#color %06X\n",n.color),n.text);f:close()end
end
local function newNote()
local name=string.format("%d.txt",math.floor(Y.now()))
while fs.exists(fs.concat(DIR,name))do name=name:gsub("%.txt$","_.txt")end
local n={file=name,text="",color=COLORS[(#st.notes%#COLORS)+1]}
save(n)
reload()
for i,m in ipairs(st.notes)do if m.file==name then st.sel=i end end
st.edit={text="",cur=0}
end
function win.header(w,hw)
ui.button(w,2,1,"+ New Note",newNote,"suggested")
end
function win.draw(w,cw,ch)
local t=Y.theme
local NW,NH=28,9
local cols=math.max(1,(cw-2)//(NW+2))
if#st.notes==0 then
local s="No notes yet. Press “+ New Note”."
gfx.text((cw-unicode.len(s))//2,ch//2,s,t.dim)
end
for i,n in ipairs(st.notes)do
local c,r=(i-1)%cols,(i-1)//cols
local x,y=2+c*(NW+2),2+r*(NH+2)
if y+NH>ch+1 then break end
local editing=st.sel==i
ui.card(x,y,NW,NH,n.color,true)
local text=editing and st.edit.text or n.text
local lines=wrap(text,NW-2)
for li=1,math.min(#lines,NH-1)do gfx.text(x+1,y+li-1,lines[li],0x2D2D2D,n.color)end
if editing then
local last=lines[#lines]or""
local ly=math.min(#lines,NH-1)
gfx.cell(x+1+unicode.len(last),y+math.max(ly,1)-1,"▏",0x2D2D2D,n.color)
end

for k,col in ipairs(COLORS)do
gfx.text(x+k*2-1,y+NH-1,"●",col==n.color and 0x2D2D2D or col,n.color)
ui.hit(w,x+k*2-1,y+NH-1,1,1,function()n.color=col;save(n)end)
end
gfx.text(x+NW-2,y+NH-1,"×",0x5A5A5A,n.color)
ui.hit(w,x+NW-3,y+NH-1,3,1,function()
Y.dialog{title="Delete this note?",buttons={{"Cancel"},{"Delete",function()
fs.remove(fs.concat(DIR,n.file));st.sel=nil;reload()end,"destructive"}}}
end)
local idx=i
ui.hit(w,x,y,NW,NH-1,function()
if st.sel and st.notes[st.sel]then st.notes[st.sel].text=st.edit.text;save(st.notes[st.sel])end
st.sel=idx
st.edit={text=n.text,cur=unicode.len(n.text)}
end)
end
end
function win.key(w,char,code)
if not st.sel or not st.notes[st.sel]then return end
local e=st.edit
local K=Y.K
if code==K.enter then e.text=e.text.."\n"
elseif code==K.back then e.text=unicode.sub(e.text,1,-2)
elseif code==K.esc then st.notes[st.sel].text=e.text;save(st.notes[st.sel]);st.sel=nil return
elseif char and char>=32 then e.text=e.text..unicode.char(char)end
st.notes[st.sel].text=e.text
st.dirty=true
end
function win.paste(w,s)if st.sel then st.edit.text=st.edit.text..s;st.notes[st.sel].text=st.edit.text;st.dirty=true end end

win.tickInterval=3
function win.tick()if st.dirty and st.sel and st.notes[st.sel]then save(st.notes[st.sel]);st.dirty=false end end
function win.cleanup()if st.sel and st.notes[st.sel]then save(st.notes[st.sel])end end
reload()
return win
end

return M
F 7780 /usr/share/yaru/apps/paint.lua



local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local image=require("yaru.image")
local fs=require("filesystem")
local unicode=require("unicode")
local M={}

local PALETTE={0x000000,0x3C3C3C,0x787878,0xB4B4B4,0xFFFFFF,0xCC0000,0xFF4940,0xFF9240,
0xFFDB40,0x99FF40,0x33B640,0x006D40,0x33DBBF,0x0092FF,0x0049BF,0x330080,
0x9949FF,0xCC49BF,0xFF92BF,0x996D40,0x663300,0x2C001E,0xE95420,0xFFDBBF}
local TOOLS={{"pen","▪ Pencil"},{"erase","▯ Eraser"},{"fill","◧ Fill"},{"pick","◉ Picker"}}

function M.open(path)


local st={tool="pen",c1=0x000000,c2=0xFFFFFF,undo={},dirty=false,size=1}
local win=Y.newWindow{app="paint",title="Paint",w=100,h=34,minW=50,minH=16,precise=true}
local function new(w,ph)
st.w,st.ph,st.px=w,ph+ph%2,{}
for i=1,st.w*st.ph do st.px[i]=0xFFFFFF end
st.path,st.dirty=nil,false
win.title="Untitled"
end

local function halves(cp,fg,bg)
if cp==0x2580 then return fg,bg elseif cp==0x2584 then return bg,fg elseif cp==0x2588 then return fg,fg end
return bg,bg
end
local function load(p)
local img,err=image.load(p,true)
if not img then return Y.notify("Paint",tostring(err))end
local w,h,d=img[1],img[2],img[3]
st.w,st.ph,st.px=w,h*2,{}
for y=1,h do for x=1,w do
local k=((y-1)*w+x)*3
local top,bot=halves(d[k-2],d[k-1],d[k])
if d[k]<0 then
if d[k-2]==0x2580 then bot=-1 elseif d[k-2]==0x2584 then top=-1 else top,bot=-1,-1 end
end
st.px[(2*y-2)*w+x],st.px[(2*y-1)*w+x]=top,bot
end end
st.path,st.dirty=p,false
win.title=fs.name(p)
end
local function snapshot()
local c={}
for i=1,#st.px do c[i]=st.px[i]end
st.undo[#st.undo+1]=c
if#st.undo>10 then table.remove(st.undo,1)end
end
local function toImage()
local d,h={},st.ph//2
for y=1,h do for x=1,st.w do
local k=((y-1)*st.w+x)*3
local top,bot=st.px[(2*y-2)*st.w+x],st.px[(2*y-1)*st.w+x]
if top<0 and bot<0 then d[k-2],d[k-1],d[k]=32,0,-1
elseif top<0 then d[k-2],d[k-1],d[k]=0x2584,bot,-1
elseif bot<0 then d[k-2],d[k-1],d[k]=0x2580,top,-1
elseif top==bot then d[k-2],d[k-1],d[k]=32,top,top
else d[k-2],d[k-1],d[k]=0x2580,top,bot end
end end
return{st.w,h,d}
end
local function save(p,after)
p=p or st.path
if not p then
Y.dialog{title="Save Picture",text="File name (full path)",entry="/home/Pictures/picture.pic",
buttons={{"Cancel"},{"Save",function(txt)if txt and txt~=""then
if not txt:match("%.pic$")then txt=txt..".pic"end
save(txt,after)end end,"suggested"}}}
return
end
local ok,err=image.save(p,toImage())
if not ok then return Y.notify("Could not save",tostring(err))end
st.path,st.dirty=p,false
win.title=fs.name(p)
for _,w in ipairs(Y.windowsOf("files"))do if w.reload then w.reload()end end
if after then after()end
end
local function setPx(x,y,c)
for dy=0,st.size-1 do for dx=0,st.size-1 do
local xx,yy=x+dx,y+dy
if xx>=1 and yy>=1 and xx<=st.w and yy<=st.ph then st.px[(yy-1)*st.w+xx]=c end
end end
st.dirty=true
end
local function fill(x,y,color)
local target=st.px[(y-1)*st.w+x]
if target==color then return end
local stack={x,y}
while#stack>0 do
local yy,xx=table.remove(stack),table.remove(stack)
local k=(yy-1)*st.w+xx
if xx>=1 and yy>=1 and xx<=st.w and yy<=st.ph and st.px[k]==target then
st.px[k]=color
stack[#stack+1]=xx+1;stack[#stack+1]=yy
stack[#stack+1]=xx-1;stack[#stack+1]=yy
stack[#stack+1]=xx;stack[#stack+1]=yy+1
stack[#stack+1]=xx;stack[#stack+1]=yy-1
end
end
st.dirty=true
end

local SIDE=20
local cx0,cy0
local lastPx
local function apply(px,py,btn,kind)
local color=btn==1 and st.c2 or st.c1
if st.tool=="pen"or st.tool=="erase"then
local c=st.tool=="erase"and-1 or color

if kind=="drag"and lastPx then
local x0,y0=lastPx[1],lastPx[2]
local dx,dy=math.abs(px-x0),-math.abs(py-y0)
local sx,sy=x0<px and 1 or-1,y0<py and 1 or-1
local err=dx+dy
while true do
setPx(x0,y0,c)
if x0==px and y0==py then break end
local e2=2*err
if e2>=dy then err=err+dy;x0=x0+sx end
if e2<=dx then err=err+dx;y0=y0+sy end
end
else setPx(px,py,c)end
lastPx={px,py}
elseif st.tool=="fill"then fill(px,py,color)
elseif st.tool=="pick"then
local c=st.px[(py-1)*st.w+px]
if c<0 then c=0xFFFFFF end
if btn==1 then st.c2=c else st.c1=c end
st.tool="pen"
end
end

function win.header(w,hw)
local x=2
x=x+ui.button(w,x,1,"New",function()
Y.dialog{title="New Picture",text="Size in pixels (a cell holds 1x2 pixels), e.g. 32x32",entry=st.w.."x"..st.ph,
buttons={{"Cancel"},{"Create",function(s)
local a,b=(s or""):match("(%d+)%s*[xX×]%s*(%d+)")
a,b=tonumber(a),tonumber(b)
if a and b and a>=1 and b>=1 and a<=160 and b<=100 then snapshot();new(a,b)end
end,"suggested"}}}
end)+1
x=x+ui.button(w,x,1,"Open…",function()
Y.dialog{title="Open Picture",text="Path to a .pic file",entry=st.path or"/home/Pictures/",
buttons={{"Cancel"},{"Open",function(p)if p and p~=""then load(p)end end,"suggested"}}}
end)+1
x=x+ui.button(w,x,1,"Undo",function()local u=table.remove(st.undo)if u then st.px=u end end,"flat")+1
ui.button(w,hw-7,1,"Save",function()save()end,"suggested",7)
end

function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
gfx.text(2,1,"Tools",t.dim)
for i,tl in ipairs(TOOLS)do
local y=1+i
if st.tool==tl[1]then ui.select(2,y,SIDE-2,t.dark and 0x454545 or 0xDEDDDA)end
gfx.text(4,y,tl[2],t.fg)
ui.hit(w,1,y,SIDE,1,function()st.tool=tl[1]end)
end
local py=#TOOLS+3
gfx.text(2,py,"Brush",t.dim)
for i=1,3 do
local bx=9+(i-1)*4
if st.size==i then ui.pill(bx-1,py,3,t.accent)end
gfx.prect(bx,py*2-(i>1 and 1 or 0),i,i,st.size==i and 0xFFFFFF or t.fg)
ui.hit(w,bx-1,py,3,1,function()st.size=i end)
end
py=py+2
gfx.text(2,py,"Colours",t.dim)
for i,c in ipairs(PALETTE)do
local x,y=2+((i-1)%4)*4,py+1+(i-1)//4
ui.pill(x,y,3,c)
ui.hit(w,x,y,3,1,function(_,_,_,btn)if btn==1 then st.c2=c else st.c1=c end end)
end
py=py+2+math.ceil(#PALETTE/4)
gfx.text(2,py,"Left",t.dim);ui.round(8,py,10,1,st.c1)
gfx.text(2,py+1,"Right",t.dim);ui.round(8,py+1,10,1,st.c2)
gfx.text(2,py+3,ui.trunc(st.w.."×"..st.ph.." px",SIDE-2),t.dim)
ui.hit(w,8,py,10,2,function()
Y.dialog{title="Custom Colour",text="Hex RGB, e.g. E95420",entry=string.format("%06X",st.c1),
buttons={{"Cancel"},{"Set",function(s)local v=tonumber((s or""):gsub("#",""),16)if v then st.c1=v&0xFFFFFF end end,"suggested"}}}
end)

local ax,aw=SIDE+1,cw-SIDE
gfx.fill(ax,1,aw,ch,t.dark and 0x1E1E1E or 0xDEDDDA)
local hc=st.ph//2
cx0=ax+math.max(1,(aw-st.w)//2)
cy0=1+math.max(1,(ch-hc)//2)
gfx.pushClip(ax,1,aw,ch)
ui.card(cx0,cy0,st.w,hc,0xFFFFFF)
for y=1,st.ph do
local base=(y-1)*st.w
local py0=(cy0-1)*2+y
for x=1,st.w do
local c=st.px[base+x]
if c<0 then c=((x+y)%2==0)and 0xF0F0F0 or 0xC3C3C3 end
gfx.pset(cx0+x-1,py0,c)
end
end
gfx.popClip()
end



function win.touch(w,lx,ly,btn,kind)
if not cx0 then return end
local px=lx-cx0+1
local cyl=ly-cy0+1
local lower=(Y.touchFrac and Y.touchFrac>=0.5)or(not Y.touchFrac and Y.mods.shift())
local py=cyl*2-(lower and 0 or 1)
if px<1 or py<1 or px>st.w or py>st.ph then lastPx=nil return end
if kind=="touch"then snapshot();lastPx=nil end
if kind=="drop"then lastPx=nil return end
if kind=="drag"and(st.tool~="pen"and st.tool~="erase")then return end
apply(px,py,btn,kind)
end

function win.key(w,char,code)
local K=Y.K
if Y.mods.ctrl()then
if code==K.s then save()elseif code==0x2C then local u=table.remove(st.undo)if u then st.px=u end end
return
end
if char==91 then st.size=math.max(1,st.size-1)elseif char==93 then st.size=math.min(3,st.size+1)end
end

function win.onclose(w)
if not st.dirty then return true end
Y.dialog{title="Save the picture before closing?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save(nil,function()Y.closeWin(w,true)end)end,"suggested"}}}
return false
end

if path and fs.exists(path)then load(path)else new(32,32);if path then st.path=path;win.title=fs.name(path)end end
return win
end

return M
F 14463 /usr/share/yaru/apps/player.lua




local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local computer=require("computer")
local event=require("event")
local serialization=require("serialization")
local unicode=require("unicode")
local L=require("ocvlib")
local M={}

local CFG="/etc/yaru-player.cfg"
local ROOTS={"/home/Videos","/home","/mnt"}
local DEFAULTS={loop=false,playlist=false,view="window",scale="fit",skip=true,ram=0.4,
speed=1,stats=true,extra={}}

local function loadCfg()
local c={}
for k,v in pairs(DEFAULTS)do c[k]=v end
local f=io.open(CFG)
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then for k,v in pairs(t)do c[k]=v end end
end
return c
end
local function saveCfg(c)
local f=io.open(CFG,"w")
if f then f:write(serialization.serialize(c));f:close()end
end
local function hms(s)
s=math.max(0,math.floor(s))
if s>=3600 then return string.format("%d:%02d:%02d",s//3600,s//60%60,s%60)end
return string.format("%d:%02d",s//60,s%60)
end

function M.open(path)
local cfg=loadCfg()
local st={view="library",list={},sel=1,top=0}
local win=Y.newWindow{app="player",title="Media Player",w=104,h=36,minW=60,minH=16}
local pb


local function scan()
local dirs=L.find(ROOTS,2)
for _,d in ipairs(cfg.extra or{})do
if L.isVideo(d)then local dup for _,x in ipairs(dirs)do if x==d then dup=true end end if not dup then dirs[#dirs+1]=d end end
end
st.list={}
for _,d in ipairs(dirs)do
local v,err=L.readIndex(d)
st.list[#st.list+1]=v or{dir=d,name=fs.name(d),err=err}
end
st.sel=math.max(1,math.min(st.sel,#st.list))
end
local function addFolder(p)
p=fs.canonical(p)
if not L.isVideo(p)then
local found=L.find({p},2)
if#found==0 then return Y.notify("Media Player","No OCV video (index.ocv) in "..p)end
for _,d in ipairs(found)do table.insert(cfg.extra,d)end
else table.insert(cfg.extra,p)end
saveCfg(cfg)
scan()
for i,v in ipairs(st.list)do if v.dir==p or v.dir:sub(1,#p)==p then st.sel=i break end end
end


local function stopPlayback(reason)
if not pb then return end
pb.stream.close()
local s=pb.stats
local video=pb.video
pb=nil
st.view="library"
win.tickInterval=nil
win.title="Media Player"
if win.maxState and st.autoMax then Y.maximize(win);st.autoMax=nil end
if cfg.stats and s.drawn>0 and reason~="silent"then
local el=math.max(computer.uptime()-s.started,1e-6)
local body=string.format("%d frames in %s (%.1f fps), late %d, %.1f ms CPU/frame",
s.drawn,hms(el),(s.drawn-s.late)/el,s.late,s.cpu/s.drawn*1000)
if s.late>s.drawn/10 then
local perSet=s.cpu/math.max(1,s.sets)
local budget=math.floor(0.7/video.fps/perSet/50)*50
body=body..string.format(" · too slow: re-encode with --max-sets %d or a smaller size",math.max(100,budget))
end
Y.notify("Played “"..video.name.."”",body)
end
end

local function startVideo(v,keepStats)
local stats=keepStats or{drawn=0,late=0,cpu=0,sets=0,started=computer.uptime()}
local colors=L.colors(v)
local idx={}
for i=0,255 do idx[i]=gfx.color(colors[i])end
local capacity=math.max(64*1024,math.floor(computer.freeMemory()*cfg.ram))
local stream=L.openStream(v,capacity)
stream.fill(16)
pb={video=v,colors=colors,idx=idx,stream=stream,grid=L.newGrid(v.width,v.height,idx[16]),
gst={},k=0,t0=computer.uptime(),paused=false,stats=stats}
win.title=v.name
win.tickInterval=math.max(0.05,1/(v.fps*cfg.speed))
end

local nativeFullscreen
local function play(v)
if not v or v.err then return end
st.view="playing"
st.current=st.sel
startVideo(v)
if cfg.view=="max"and not win.maxState then Y.maximize(win);st.autoMax=true end
if cfg.view=="full"then nativeFullscreen()end
end

local function nextOrEnd()
if cfg.loop then
local stats=pb.stats
pb.stream.close()
startVideo(pb.video,stats)
return true
end
if cfg.playlist and st.current and st.current<#st.list then
local stats=pb.stats
pb.stream.close()
st.current=st.current+1
st.sel=st.current
startVideo(st.list[st.current],stats)
return true
end
stopPlayback()
return false
end


local function advance()
local v=pb.video
local now=computer.uptime()
local due=math.floor((now-pb.t0)*v.fps*cfg.speed)
if due<pb.k then return true end
local maxCatch=cfg.skip and 5 or 1
local n=0
while pb.k<=due and n<maxCatch do
local data=pb.stream.next()
if not data or pb.k>=v.frames then return nextOrEnd()end
local c0=os.clock()
pb.stats.sets=pb.stats.sets+L.decodeToGrid(data,pb.grid,v.width,pb.idx,pb.gst)
pb.stats.cpu=pb.stats.cpu+(os.clock()-c0)
pb.stats.drawn=pb.stats.drawn+1
pb.k=pb.k+1
n=n+1
if n>1 then pb.stats.late=pb.stats.late+1 end
end
if pb.k<=due then
if cfg.skip then pb.stats.late=pb.stats.late+1
else pb.t0=now-pb.k/(v.fps*cfg.speed)end
end
pb.stream.fill(3)
return true
end


function nativeFullscreen()
if not pb then return end
local gpu,v=Y.gpu,pb.video
local mw,mh=gpu.maxResolution()
if gpu.maxDepth()<8 or mw<v.width or mh<v.height then
return Y.notify("Media Player","Full screen needs a tier-3 GPU and screen for this video")
end
Y.paused=true
local W0,H0=gpu.getResolution()
local okFs,err=pcall(function()
gpu.setResolution(v.width,v.height)
for i=0,15 do gpu.setPaletteColor(i,pb.colors[i])end
local buf
if gpu.allocateBuffer then
local ok,b=pcall(gpu.allocateBuffer,v.width,v.height)
if ok and b then buf=b;gpu.setActiveBuffer(buf)end
end

local back={}
for i=0,255 do back[pb.idx[i]]=back[pb.idx[i]]or pb.colors[i]end
L.paintGrid(gpu,pb.grid,v.width,v.height,function(i)return back[i]or gfx.rgb(i)end)
local render=L.gpuRenderer(gpu,pb.colors,pb.glyphs or L.glyphs())
local function present()if buf then gpu.bitblt(0,1,1,v.width,v.height,buf,1,1)end end
present()
local interval=1/(v.fps*cfg.speed)
local skipped=0
while pb do
local cmd
if not pb.paused then
local data=pb.stream.next()
if not data or pb.k>=v.frames then
local again=nextOrEnd()
if not again or not pb then break end
v=pb.video
gpu.setResolution(v.width,v.height)
for i=0,15 do gpu.setPaletteColor(i,pb.colors[i])end
gpu.setBackground(0);gpu.fill(1,1,v.width,v.height," ")
render=L.gpuRenderer(gpu,pb.colors,L.glyphs())
interval=1/(v.fps*cfg.speed)
data=pb.stream.next()
if not data then break end
end
local c0=os.clock()
render(data)

pb.stats.sets=pb.stats.sets+L.decodeToGrid(data,pb.grid,v.width,pb.idx,pb.gst)
pb.stats.cpu=pb.stats.cpu+(os.clock()-c0)
pb.stats.drawn=pb.stats.drawn+1
local k=pb.k
pb.k=k+1
local due=pb.t0+k*interval
local now=computer.uptime()
if buf and cfg.skip and now>due+interval and skipped<4 and pb.k<v.frames then
skipped=skipped+1
pb.stats.late=pb.stats.late+1
local name,_,char,code=event.pull(0)
if name=="key_down"then cmd=code==0x01 and"exit"or(char==32 and"pause")or((char==113)and"stop")or((code==0x57 or char==102)and"exit")end
if name=="interrupted"then cmd="stop"end
else
pb.stream.fill(3)
repeat
local name,_,char,code=event.pull(math.max(0,due-computer.uptime()))
if name=="key_down"then
if code==0x01 or code==0x57 or char==102 then cmd="exit"
elseif char==32 then cmd="pause"elseif char==113 then cmd="stop"end
elseif name=="interrupted"then cmd="stop"end
until cmd or computer.uptime()>=due
present()
skipped=0
if not cfg.skip and computer.uptime()>due+interval then pb.t0=computer.uptime()-pb.k*interval end
end
else
local name,_,char,code=event.pull(math.huge)
if name=="key_down"then
if code==0x01 or code==0x57 or char==102 then cmd="exit"
elseif char==32 then cmd="pause"elseif char==113 then cmd="stop"end
elseif name=="interrupted"then cmd="stop"end
end
if cmd=="pause"then
if pb.paused then pb.t0=pb.t0+(computer.uptime()-pb.pausedAt);pb.paused=false
else pb.paused,pb.pausedAt=true,computer.uptime()end
elseif cmd=="stop"then stopPlayback();break
elseif cmd=="exit"then break end
end
if buf then gpu.setActiveBuffer(0);gpu.freeBuffer(buf)end
end)
gpu.setResolution(W0,H0)
gfx.setCustomPalette(Y.theme.palette,true)
Y.paused=false
gfx.damageAll()
if not okFs then Y.notify("Media Player","Full screen failed: "..tostring(err))end
end


local function radioRow(w,x,y,label,options,key)
local t=Y.theme
gfx.text(x,y,label,t.fg)
local ox=x+20
for _,o in ipairs(options)do
ui.radio(w,ox,y,cfg[key]==o[1],o[2],function()cfg[key]=o[1];saveCfg(cfg)end)
ox=ox+unicode.len(o[2])+5
end
end
local function switchRow(w,x,y,label,sub,key)
local t=Y.theme
gfx.text(x,y,label,t.fg)
if sub then gfx.text(x+20,y,sub,t.dim)end
ui.switch(w,x+62,y,cfg[key],function()cfg[key]=not cfg[key];saveCfg(cfg)end)
end

local function drawLibrary(w,cw,ch)
local t=Y.theme
local SIDE=34
gfx.fill(1,1,SIDE,ch,t.sidebar)
gfx.text(2,1,#st.list.." video"..(#st.list==1 and""or"s"),t.dim)
if#st.list==0 then
gfx.text(2,3,"No videos found in",t.dim)
gfx.text(2,4,"/home/Videos, /home, /mnt",t.dim)
gfx.text(2,6,"Copy a folder made by",t.dim)
gfx.text(2,7,"ocv_encode.py, or use",t.dim)
gfx.text(2,8,"`ocv_get URL folder`.",t.dim)
end
local rows=(ch-2)//3
if st.sel-1<st.top then st.top=st.sel-1 end
if st.sel>st.top+rows then st.top=st.sel-rows end
for i=1,rows do
local v=st.list[st.top+i]
if not v then break end
local y=2+(i-1)*3
local sel=st.top+i==st.sel
if sel then ui.round(2,y,SIDE-2,2,t.sel)end
local fg=sel and t.selFg or t.fg
gfx.text(4,y,ui.trunc(v.name,SIDE-6),fg)
local sub=v.err and v.err or string.format("%dx%d · %g fps · %s",v.width,v.height,v.fps,hms(v.duration))
gfx.text(4,y+1,ui.trunc(sub,SIDE-6),sel and fg or(v.err and t.danger or t.dim))
local idx=st.top+i
ui.hit(w,1,y,SIDE,2,function(_,_,_,btn,dbl)st.sel=idx;if dbl then play(st.list[idx])end end)
end

local v=st.list[st.sel]
local x,pw=SIDE+3,cw-SIDE-4
local y=2
Y.drawIcon(x,y,"player")
if v and not v.err then
gfx.text(x+10,y,ui.trunc(v.name,pw-10),t.fg)
gfx.text(x+10,y+1,ui.trunc(v.dir,pw-10),t.dim)
gfx.text(x+10,y+2,string.format("%d×%d cells · %g fps · %d frames · %s · %s in %d part%s",
v.width,v.height,v.fps,v.frames,hms(v.duration),ui.size(v.bytes),v.parts,v.parts==1 and""or"s"),t.dim)
local mw,mh=Y.gpu.maxResolution()
if v.width>mw or v.height>mh then gfx.text(x+10,y+3,"Larger than this screen: full screen is not possible",t.danger)end
else
gfx.text(x+10,y,"Media Player",t.fg)
gfx.text(x+10,y+1,"OCV5 videos encoded with ocv_encode.py",t.dim)
end
y=y+6
gfx.text(x,y,"Playback",t.dim);y=y+1
ui.round(x,y,pw,1,t.sep);y=y+2
radioRow(w,x,y,"Show in",{{"window","Window"},{"max","Maximized"},{"full","Full screen"}},"view");y=y+2
radioRow(w,x,y,"Scale in window",{{"fit","Fit to window"},{"1:1","1:1 (sharp, may crop)"}},"scale");y=y+2
radioRow(w,x,y,"Speed",{{0.5,"0.5×"},{1,"1×"},{1.5,"1.5×"},{2,"2×"}},"speed");y=y+2
switchRow(w,x,y,"Loop","repeat the video","loop");y=y+2
switchRow(w,x,y,"Play folder","continue with the next video","playlist");y=y+2
switchRow(w,x,y,"Skip late frames","keep the pace on slow machines","skip");y=y+2
radioRow(w,x,y,"RAM buffer",{{0.2,"20%"},{0.4,"40%"},{0.6,"60%"}},"ram");y=y+2
switchRow(w,x,y,"Statistics","notification after playback","stats");y=y+2
ui.button(w,x,math.min(y+1,ch-1),"▶  Play",function()play(st.list[st.sel])end,"suggested",14)
gfx.text(x+16,math.min(y+1,ch-1),"Space pause · F full screen · M maximize · Esc stop",t.dim)
end

local function drawPlaying(w,cw,ch)
local t=Y.theme
local v=pb.video
local vh=ch-2
gfx.fill(1,1,cw,vh,0x000000)
local s0=math.min(cw/v.width,vh/v.height)
if cfg.scale=="1:1"or math.abs(s0-1)<0.05 then
gfx.blit(pb.grid,v.width,v.height,math.max(1,(cw-v.width)//2+1),math.max(1,(vh-v.height)//2+1))
else
local s=s0
local dw,dh=math.max(1,math.floor(v.width*s)),math.max(1,math.floor(v.height*s))
gfx.blitScaled(pb.grid,v.width,v.height,(cw-dw)//2+1,(vh-dh)//2+1,dw,dh)
end

gfx.fill(1,ch-1,cw,2,t.header)
local pos,dur=pb.k/v.fps,v.duration
local ts=hms(pos).." / "..hms(dur)
ui.progress(2,ch-1,cw-unicode.len(ts)-4,pb.k/v.frames)
gfx.text(cw-unicode.len(ts),ch-1,ts,t.dim,t.header)
local x=2
x=x+ui.button(w,x,ch,pb.paused and"▶"or"‖",function()
if pb.paused then pb.t0=pb.t0+(computer.uptime()-pb.pausedAt);pb.paused=false
else pb.paused,pb.pausedAt=true,computer.uptime()end
end,"suggested",5)+1
x=x+ui.button(w,x,ch,"■",function()stopPlayback()end,nil,5)+1
x=x+ui.button(w,x,ch,"↻ Loop",function()cfg.loop=not cfg.loop;saveCfg(cfg)end,cfg.loop and"suggested"or"flat")+1
gfx.text(x+1,ch,string.format("%g×  %d×%d  %g fps",cfg.speed,v.width,v.height,v.fps),t.dim,t.header)
local bx=cw-40
ui.button(w,bx,ch,w.maxState and"Restore"or"Maximize",function()Y.maximize(w)end,"flat",11)
ui.button(w,bx+12,ch,"Full Screen",function()nativeFullscreen()end,nil,13)
ui.button(w,bx+26,ch,"1:1 / Fit",function()cfg.scale=cfg.scale=="fit"and"1:1"or"fit";saveCfg(cfg)end,"flat",11)
end

function win.header(w,hw)
if st.view=="library"then
ui.button(w,2,1,"Add Folder…",function()
Y.dialog{title="Add Video Folder",text="A folder with index.ocv (or a folder containing such folders)",
entry="/home/Videos/",buttons={{"Cancel"},{"Add",function(p)if p and p~=""then addFolder(p)end end,"suggested"}}}
end,nil,14)
ui.button(w,17,1,"Refresh",function()scan()end,"flat",9)
else
ui.button(w,2,1,"‹ Library",function()stopPlayback("silent")end,"flat")
end
end

function win.draw(w,cw,ch)
if st.view=="playing"and pb then drawPlaying(w,cw,ch)else drawLibrary(w,cw,ch)end
end

function win.tick(w)
if not pb or pb.paused then return end
local ok,err=pcall(advance)
if not ok then Y.notify("Media Player",tostring(err));stopPlayback("silent")end
Y.redraw(w)
end

function win.key(w,char,code)
local K=Y.K
if st.view=="playing"and pb then
if char==32 then
if pb.paused then pb.t0=pb.t0+(computer.uptime()-pb.pausedAt);pb.paused=false
else pb.paused,pb.pausedAt=true,computer.uptime()end
elseif char==102 or code==0x57 then nativeFullscreen()
elseif char==109 then Y.maximize(w)
elseif char==108 then cfg.loop=not cfg.loop;saveCfg(cfg)
elseif code==K.esc or char==113 then stopPlayback()end
return
end
if code==K.down then st.sel=math.min(#st.list,st.sel+1)
elseif code==K.up then st.sel=math.max(1,st.sel-1)
elseif code==K.enter then play(st.list[st.sel])
elseif code==0x3F then scan()end
end
function win.scroll(w,x,y,dir)if st.view=="library"then st.top=math.max(0,st.top-dir)end end
function win.cleanup()
if pb then pb.stream.close();pb=nil end
package.loaded["ocvlib"]=nil
end

fs.makeDirectory("/home/Videos")
scan()
if path then
path=fs.canonical(path)
if fs.name(path)=="index.ocv"then path=fs.path(path)end
local found
for i,v in ipairs(st.list)do if v.dir==path then st.sel,found=i,true end end
if not found and L.isVideo(path)then table.insert(cfg.extra,path);saveCfg(cfg);scan()
for i,v in ipairs(st.list)do if v.dir==path then st.sel=i end end end
end
return win
end

return M
F 30087 /usr/share/yaru/apps/print3d.lua













local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local computer=require("computer")
local unicode=require("unicode")
local serialization=require("serialization")
local V=require("yaru.vox")
local VE=require("yaru.voxedit")
local M={}

local floor,min,max=math.floor,math.min,math.max
local SIZE=16
local DIR="/home/Prints"
local function bg3d()return Y.theme.dark and 0x1E1E1E or 0xEBEBEB end


local LIBRARY={
{"Oak planks","planks_oak",0xA2834F,"Wood"},{"Spruce planks","planks_spruce",0x725430,"Wood"},
{"Birch planks","planks_birch",0xC5B47B,"Wood"},{"Jungle planks","planks_jungle",0xA0734D,"Wood"},
{"Acacia planks","planks_acacia",0xA85A32,"Wood"},{"Dark oak planks","planks_big_oak",0x4B3218,"Wood"},
{"Oak log","log_oak",0x6B5530,"Wood"},{"Oak log top","log_oak_top",0xA5844F,"Wood"},
{"Bookshelf","bookshelf",0x6B5839,"Wood"},{"Crafting table","crafting_table_front",0x8C6B42,"Wood"},
{"Stone","stone",0x7D7D7D,"Stone"},{"Cobblestone","cobblestone",0x7A7A7A,"Stone"},
{"Stone bricks","stonebrick",0x7B7B7B,"Stone"},{"Smooth stone","stone_slab_top",0xA8A8A8,"Stone"},
{"Bricks","brick",0x976052,"Stone"},{"Sandstone","sandstone_normal",0xD8CB9B,"Stone"},
{"Sandstone top","sandstone_top",0xDCD09F,"Stone"},{"Obsidian","obsidian",0x14121E,"Stone"},
{"Quartz","quartz_block_side",0xEDE8DF,"Stone"},{"Quartz chiseled","quartz_block_chiseled",0xE6E1D7,"Stone"},
{"Netherrack","netherrack",0x6F3634,"Stone"},{"Nether bricks","nether_brick",0x2C1519,"Stone"},
{"Prismarine","prismarine_rough",0x63A28F,"Stone"},{"Hardened clay","hardened_clay",0x965D43,"Stone"},
{"Iron block","iron_block",0xDCDCDC,"Metal"},{"Gold block","gold_block",0xF9D84B,"Metal"},
{"Diamond block","diamond_block",0x62EDE4,"Metal"},{"Emerald block","emerald_block",0x2ACB57,"Metal"},
{"Redstone block","redstone_block",0xAB1B09,"Metal"},{"Lapis block","lapis_block",0x1E43A3,"Metal"},
{"Coal block","coal_block",0x161616,"Metal"},{"Anvil","anvil_base",0x444444,"Metal"},
{"Glass","glass",0xC0E0E8,"Other"},{"Glowstone","glowstone",0xF9D49C,"Other"},
{"Sea lantern","sea_lantern",0xACC7BE,"Other"},{"Snow","snow",0xF0FBFB,"Other"},
{"Ice","ice",0x91B8FC,"Other"},{"Wool white","wool_colored_white",0xE9ECEC,"Wool"},
{"Wool orange","wool_colored_orange",0xF07613,"Wool"},{"Wool magenta","wool_colored_magenta",0xBD44B3,"Wool"},
{"Wool light blue","wool_colored_light_blue",0x3AAFD9,"Wool"},{"Wool yellow","wool_colored_yellow",0xF8C527,"Wool"},
{"Wool lime","wool_colored_lime",0x70B919,"Wool"},{"Wool pink","wool_colored_pink",0xED8DAC,"Wool"},
{"Wool gray","wool_colored_gray",0x3E4447,"Wool"},{"Wool silver","wool_colored_silver",0x8E8E86,"Wool"},
{"Wool cyan","wool_colored_cyan",0x158991,"Wool"},{"Wool purple","wool_colored_purple",0x792AAC,"Wool"},
{"Wool blue","wool_colored_blue",0x35399D,"Wool"},{"Wool brown","wool_colored_brown",0x724728,"Wool"},
{"Wool green","wool_colored_green",0x546D1B,"Wool"},{"Wool red","wool_colored_red",0xA12722,"Wool"},
{"Wool black","wool_colored_black",0x141519,"Wool"},
}
local TINTS={0xFFFFFF,0xF9FFFE,0xF9801D,0xC74EBD,0x3AB3DA,0xFED83D,0x80C71F,0xF38BAA,0x474F52,0x9D9D97,
0x169C9C,0x8932B8,0x3C44AA,0x835432,0x5E7C16,0xB02E26,0x1D1D21,0xFF4040,0x40FF80,0x4080FF,0xFFE040,0xE95420}
local DEFAULT_MATS={"planks_oak","stone","quartz_block_side","glass","iron_block","wool_colored_red"}
local TOOLS={{"pen","• Pen","P"},{"line","╱ Line","L"},{"rect","□ Rect","R"},{"box","■ Filled","B"},
{"circle","○ Ring","O"},{"disc","● Disc","D"},{"fill","▧ Bucket","F"},{"pick","◎ Pick","I"}}

local function mul(a,b)
return((a>>16)*(b>>16)//255)<<16|(((a>>8)&255)*((b>>8)&255)//255)<<8|((a&255)*(b&255)//255)
end
local function guessColor(tex)
for _,l in ipairs(LIBRARY)do if l[2]==tex or"minecraft:blocks/"..l[2]==tex then return l[3]end end
local h=0
for i=1,#tex do h=(h*31+tex:byte(i))%0xFFFFFF end
return 0x404040|(h&0xBFBFBF)
end
local function pretty(tex)
local s=tex:gsub("^.*[:/]",""):gsub("_"," ")
return(s:gsub("^%l",string.upper))
end

function M.open(path)
local win=Y.newWindow{app="print3d",title="3D Print Studio",w=146,h=46,minW=110,minH=30,precise=true}
local doc
local st={state=1,tab="draw",view={yaw=math.pi+0.65,pitch=0.55,zoom=1},matScroll=0,
copies=1,panel=nil,mesh={},printer=nil}
local SIDE=26
local ed=VE.new{sx=SIZE,sy=SIZE,sz=SIZE,colorOf=function(v)return 0 end,
onChange=function()if doc then doc.dirty=true end end}


local function matColor(m)return m.tint and mul(m.color,m.tint)or m.color end
local function newDoc()
doc={label="Untitled",tooltip="",light=0,redstone=0,button=false,collide={true,true},
mats={},L={},undo={{},{}},redo={{},{}},path=nil,dirty=false}
for _,tex in ipairs(DEFAULT_MATS)do
for _,l in ipairs(LIBRARY)do
if l[2]==tex then doc.mats[#doc.mats+1]={name=l[1],tex=l[2],color=l[3]}end
end
end
ed:clear(true)
doc.L[1],doc.L[2]=ed:snapshot(),ed:snapshot()
ed.L=doc.L[1]
ed.undo,ed.redo=doc.undo[1],doc.redo[1]
st.state=1
ed.value=1
ed.y=0
st.mesh={}
end
ed.colorOf=function(v)local m=doc.mats[v]return m and matColor(m)or 0xFF00FF end
local function setState(s)
if s==st.state then return end
doc.L[st.state]=ed.L
st.state=s
ed.L=doc.L[s]
ed.undo,ed.redo=doc.undo[s],doc.redo[s]
ed.preview,ed.stroke=nil,nil
ed.version=(ed.version or 0)+1
end
local function layersOf(s)return s==st.state and ed.L or doc.L[s]end

local function eachState(fn)
doc.L[st.state]=ed.L
for s=1,2 do ed.L=doc.L[s];fn(s);doc.L[s]=ed.L end
ed.L=doc.L[st.state]
end


local function boxesOf(s)
local L=layersOf(s)
local key=table.concat(L)
local c=st.mesh[s]
if c and c.key==key then return c.boxes end
local get=function(x,y,z)return L[y+1]:byte(z*SIZE+x+1)end
local boxes=V.boxes(SIZE,SIZE,SIZE,get,Y.breathe)
st.mesh[s]={key=key,boxes=boxes}
return boxes
end
local function maxShapes()
local p=st.printer and component.proxy(st.printer)
if p and p.getMaxShapeCount then
local ok,n=pcall(p.getMaxShapeCount)
if ok and type(n)=="number"then return n end
end
return 24
end


local function toModel()
local m={label=doc.label,tooltip=doc.tooltip~=""and doc.tooltip or nil,lightLevel=doc.light>0 and doc.light or nil,
emitRedstone=doc.redstone>0 and doc.redstone or nil,buttonMode=doc.button or nil,
collidable={doc.collide[1],doc.collide[2]},shapes={},yaruMaterials={}}
for s=1,2 do
for _,b in ipairs(boxesOf(s))do
local mat=doc.mats[b[7]]
if mat then
m.shapes[#m.shapes+1]={b[1],b[2],b[3],b[4],b[5],b[6],texture=mat.tex,tint=mat.tint,state=s==2 or nil}
end
end
end
for _,mat in ipairs(doc.mats)do m.yaruMaterials[#m.yaruMaterials+1]={mat.name,mat.tex,mat.tint,mat.color}end
return m
end
local function fromModel(m)
newDoc()
doc.label=tostring(m.label or"Untitled")
doc.tooltip=tostring(m.tooltip or"")
doc.light=tonumber(m.lightLevel)or 0
doc.redstone=m.emitRedstone==true and 15 or tonumber(m.emitRedstone)or 0
doc.button=m.buttonMode and true or false
if type(m.collidable)=="table"then doc.collide={m.collidable[1]~=false,m.collidable[2]~=false}end
doc.mats={}
local function matFor(tex,tint)
for i,mt in ipairs(doc.mats)do if mt.tex==tex and mt.tint==tint then return i end end
if#doc.mats>=250 then return 1 end
doc.mats[#doc.mats+1]={name=pretty(tex),tex=tex,tint=tint,color=guessColor(tex)}
return#doc.mats
end
if type(m.yaruMaterials)=="table"then
for _,r in ipairs(m.yaruMaterials)do
doc.mats[#doc.mats+1]={name=tostring(r[1]),tex=tostring(r[2]),tint=tonumber(r[3]),color=tonumber(r[4])or guessColor(tostring(r[2]))}
end
end
local layers={ed:snapshot(),ed:snapshot()}
for s=1,2 do
ed.L=layers[s]
for _,sh in ipairs(m.shapes or{})do
if(s==2)==(sh.state==true)and type(sh[1])=="number"then
local v=matFor(tostring(sh.texture or"stone"),tonumber(sh.tint))
local x1,y1,z1=max(0,floor(sh[1])),max(0,floor(sh[2])),max(0,floor(sh[3]))
local x2,y2,z2=min(SIZE,math.ceil(sh[4])),min(SIZE,math.ceil(sh[5])),min(SIZE,math.ceil(sh[6]))
for y=y1,y2-1 do
local cells={}
for z=z1,z2-1 do for x=x1,x2-1 do cells[#cells+1]=x;cells[#cells+1]=z end end
ed:setCells(y,cells,v)
end
end
end
layers[s]=ed.L
end
if#doc.mats==0 then doc.mats[1]={name="Oak planks",tex="planks_oak",color=0xA2834F}end
doc.L=layers
ed.L=doc.L[1]
ed.value=1
st.mesh={}
end
local function load(p)
local f=io.open(p,"r")
if not f then return Y.notify("3D Print Studio","Cannot open "..p)end
local s=f:read("*a")
f:close()
local ok,m=pcall(serialization.unserialize,s)
if not ok or type(m)~="table"then return Y.notify("3D Print Studio",fs.name(p).." is not a .3dm model")end
fromModel(m)
doc.path=p
doc.dirty=false
win.title="3D Print Studio — "..fs.name(p)
Y.redraw(win)
end
local function save(p,after)
if not p then
fs.makeDirectory(DIR)
local name=(doc.label or"model"):gsub("[^%w%-_ ]",""):gsub(" ","_")
if name==""then name="model"end
return Y.dialog{title="Save Model",text="Path of the .3dm file",entry=doc.path or(DIR.."/"..name..".3dm"),
buttons={{"Cancel"},{"Save",function(q)if q and q~=""then save(q,after)end end,"suggested"}}}
end
if not p:match("%.3dm$")then p=p..".3dm"end
fs.makeDirectory(fs.path(p))
local f=io.open(p,"w")
if not f then return Y.notify("3D Print Studio","Cannot write "..p)end
f:write(serialization.serialize(toModel()))
f:close()
doc.path,doc.dirty=p,false
win.title="3D Print Studio — "..fs.name(p)
Y.notify("Model saved",p,{action=function()Y.launch("files",fs.path(p))end,actionLabel="Show"})
if after then after()end
end
local function ifSaved(fn)
if not doc.dirty then return fn()end
Y.dialog{title="Save changes to “"..doc.label.."”?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Discard",fn,"destructive"},{"Save",function()save(doc.path,fn)end,"suggested"}}}
end
local function openMenu(sx,sy)
local items={}
local seen={}
for _,d in ipairs({DIR,"/home","/usr/share/yaru/prints"})do
if fs.isDirectory(d)then
for name in fs.list(d)do
local p=fs.concat(d,name)
if name:match("%.3dm$")and not seen[p]then
seen[p]=true
items[#items+1]={name:gsub("%.3dm$","")..(d==DIR and""or"  · "..d),function()ifSaved(function()load(p)end)end}
end
end
end
end
if#items>0 then items[#items+1]="-"end
items[#items+1]={"Other File…",function()
Y.dialog{title="Open Model",text="Path to a .3dm file",entry=DIR.."/",
buttons={{"Cancel"},{"Open",function(p)if p and p~=""then ifSaved(function()load(p)end)end end,"suggested"}}}
end}
Y.menu(sx,sy,items)
end


local function printers()
local r={}
for a in component.list("printer3d")do r[#r+1]=a end
table.sort(r)
return r
end
local function printerInfo(p)
local info={}
local ok,s,prog=pcall(p.status)
if ok then info.status,info.progress=s,prog end
for _,f in ipairs({"getMaterialCount","getInkCount"})do
if p[f]then local ok2,n=pcall(p[f]);if ok2 then info[f]=n end end
end
return info
end
local function doPrint()
local list=printers()
if#list==0 then return Y.notify("3D Print Studio","No 3D printer connected")end
if not st.printer or not component.type(st.printer)then st.printer=list[1]end
local p=component.proxy(st.printer)
local lim=maxShapes()
local b1,b2=boxesOf(1),boxesOf(2)
if#b1==0 then return Y.notify("3D Print Studio","The model is empty")end
if#b1>lim or#b2>lim then return Y.notify("3D Print Studio","Too many shapes (limit "..lim.." per state): use fewer details or colours")end
local info=printerInfo(p)
if info.status=="busy"then return Y.notify("3D Print Studio","The printer is busy")end
local ok,err=pcall(function()
p.reset()
p.setLabel(doc.label)
if doc.tooltip~=""then p.setTooltip(doc.tooltip)end
if p.setLightLevel then pcall(p.setLightLevel,doc.light)end
if doc.redstone>0 then
if not pcall(p.setRedstoneEmitter,doc.redstone)then pcall(p.setRedstoneEmitter,true)end
end
if doc.button then p.setButtonMode(true)end
if p.setCollidable then pcall(p.setCollidable,doc.collide[1],doc.collide[2])end
for s=1,2 do
for _,b in ipairs(s==1 and b1 or b2)do
local mat=doc.mats[b[7]]
local r,reason=p.addShape(b[1],b[2],b[3],b[4],b[5],b[6],mat.tex,s==2,mat.tint)
if not r and reason then error(reason,0)end
end
end
local r,reason=p.commit(st.copies)
if not r then error(reason or"the printer refused the job",0)end
end)
if not ok then return Y.notify("Print failed",tostring(err))end
st.job={addr=st.printer,copies=st.copies,label=doc.label,seenBusy=false,t0=computer.uptime()}
Y.notify("Printing",st.copies.." × "..doc.label)
end



local function addMaterial(l)
if#doc.mats>=250 then return end
doc.mats[#doc.mats+1]={name=l[1],tex=l[2],color=l[3]}
ed.value=#doc.mats
doc.dirty=true
end
local function openLibrary(replace)
st.panel={kind="library",replace=replace}
end
local function openTint(i)st.panel={kind="tint",mat=i}end
local function editMaterial(i,sx,sy)
local m=doc.mats[i]
Y.menu(sx,sy,{
{"Change Texture…",function()openLibrary(i)end},
{"Texture Name…",function()
Y.dialog{title="Texture",text="Any block texture, e.g. planks_oak or opencomputers:blocks/case_top",entry=m.tex,
buttons={{"Cancel"},{"OK",function(s)if s and s~=""then m.tex=s;m.color=guessColor(s);doc.dirty=true end end,"suggested"}}}
end},
{"Tint…",function()openTint(i)end},
{"Remove Tint",function()m.tint=nil;doc.dirty=true end,disabled=not m.tint},
{"Rename…",function()
Y.dialog{title="Material Name",entry=m.name,buttons={{"Cancel"},{"Rename",function(s)if s and s~=""then m.name=s;doc.dirty=true end end,"suggested"}}}
end},
"-",
{"Replace Everywhere with Current",function()
if ed.value==i then return end
local cur=ed.value
ed:checkpoint()
eachState(function()ed:apply(function(x,y,z)if ed:get(x,y,z)==i then return cur end end,Y.breathe)end)
ed:changed()
end,disabled=ed.value==i},
{"Delete",function()
if#doc.mats<=1 then return end

eachState(function()
ed:apply(function(x,y,z)
local v=ed:get(x,y,z)
if v==i then return 0 elseif v>i then return v-1 end
end,Y.breathe)
end)
table.remove(doc.mats,i)
ed.value=max(1,min(ed.value>i and ed.value-1 or ed.value,#doc.mats))
doc.undo,doc.redo={{},{}},{{},{}}
ed.undo,ed.redo=doc.undo[st.state],doc.redo[st.state]
ed:changed()
end,disabled=#doc.mats<=1},
})
end

local function drawPanel(w,x,y,pw,ph)
local t=Y.theme
local p=st.panel
ui.card(x,y,pw,ph,t.menu)
if p.kind=="library"then
gfx.text(x+2,y,p.replace and"Change texture"or"Add a material",t.menuFg,t.menu)
ui.button(w,x+pw-12,y,"Close",function()st.panel=nil end,nil,10)
local cols=max(1,(pw-4)//22)
local groups={"Wood","Stone","Metal","Wool","Other"}
local yy=y+2
for _,g in ipairs(groups)do
if yy>y+ph-3 then break end
gfx.text(x+2,yy,g,t.dim,t.menu)
yy=yy+1
local col=0
for _,l in ipairs(LIBRARY)do
if l[4]==g then
local cx=x+2+col*22
if yy<=y+ph-3 then
gfx.fill(cx,yy,2,1,l[3])
gfx.text(cx+3,yy,ui.trunc(l[1],18),t.menuFg,t.menu)
ui.hit(w,cx,yy,21,1,function()
if p.replace then
local m=doc.mats[p.replace]
m.name,m.tex,m.color=l[1],l[2],l[3]
doc.dirty=true
else addMaterial(l)end
st.panel=nil
end)
end
col=col+1
if col>=cols then col=0;yy=yy+1 end
end
end
if col>0 then yy=yy+1 end
end
ui.button(w,x+2,y+ph-2,"Custom Texture…",function()
st.panel=nil
Y.dialog{title="Custom Texture",text="Block texture name, e.g. planks_oak, wool_colored_red,\nopencomputers:blocks/case_top",entry="",
buttons={{"Cancel"},{"Add",function(s)if s and s~=""then addMaterial({pretty(s),s,guessColor(s)})end end,"suggested"}}}
end)
else
local m=doc.mats[p.mat]
gfx.text(x+2,y,"Tint for "..ui.trunc(m and m.name or"",pw-24),t.menuFg,t.menu)
ui.button(w,x+pw-12,y,"Close",function()st.panel=nil end,nil,10)
gfx.text(x+2,y+2,"The texture is multiplied by the colour (white textures tint best).",t.dim,t.menu)
local cx,cy=x+2,y+4
for i,c in ipairs(TINTS)do
gfx.fill(cx,cy,4,2,c)
if m and m.tint==c then gfx.text(cx+1,cy,"✓",0x000000,c)end
ui.hit(w,cx,cy,4,2,function()if m then m.tint=c~=0xFFFFFF and c or nil;doc.dirty=true end st.panel=nil end)
cx=cx+5
if cx+4>x+pw-1 then cx=x+2;cy=cy+3 end
end
ui.button(w,x+2,y+ph-2,"Hex Colour…",function()
st.panel=nil
Y.dialog{title="Tint",text="RGB colour, e.g. FF8040",entry=m and m.tint and string.format("%06X",m.tint)or"",
buttons={{"Cancel"},{"OK",function(s)local v=tonumber((s or""):gsub("#",""),16)if v and m then m.tint=v;doc.dirty=true end end,"suggested"}}}
end)
ui.button(w,x+20,y+ph-2,"No Tint",function()if m then m.tint=nil;doc.dirty=true end st.panel=nil end)
end
end


function win.header(w,hw)
local x=2
x=x+ui.button(w,x,1,"New",function()ifSaved(function()newDoc();win.title="3D Print Studio";Y.redraw(win)end)end)+1
x=x+ui.button(w,x,1,"Open ▾",function(_,px)openMenu(win.x+px-1,win.y+1)end)+1
x=x+ui.button(w,x,1,"Save",function()save(doc.path)end)+2
x=x+ui.button(w,x,1,"↶",function()ed:undoStep()end,nil,4)+1
x=x+ui.button(w,x,1,"↷",function()ed:redoStep()end,nil,4)+2
gfx.text(x,1,"State",Y.theme.dim,Y.theme.header)
x=x+6
for s,name in ipairs({"Off","On"})do
x=x+ui.button(w,x,1,name,function()setState(s)end,st.state==s and"suggested"or nil,6)
end
ui.button(w,hw-4,1,"☰",function(_,px)
Y.menu(win.x+px-1,win.y+1,{
{"Copy Off → On",function()
doc.L[2]=st.state==1 and{table.unpack(ed.L)}or doc.L[1]
if st.state==2 then ed:checkpoint();ed.L={table.unpack(doc.L[1])};ed:changed()end
doc.dirty=true
end},
{"Clear This State",function()ed:checkpoint();ed:clear()end},
{"Clear Layer",function()ed:checkpoint();ed.L[ed.y+1]=ed:empty();ed:changed()end,key="Del"},
{"Copy Layer Up",function()if ed.y<SIZE-1 then ed:checkpoint();ed.L[ed.y+2]=ed.L[ed.y+1];ed:setLayer(ed.y+1);ed:changed()end end,key="C"},
"-",
{"Rotate 90°",function()ed:checkpoint();ed:remap(function(x,y,z)return z,y,SIZE-1-x end);ed:changed()end},
{"Mirror Left ↔ Right",function()ed:checkpoint();ed:remap(function(x,y,z)return SIZE-1-x,y,z end);ed:changed()end},
{"Mirror Front ↔ Back",function()ed:checkpoint();ed:remap(function(x,y,z)return x,y,SIZE-1-z end);ed:changed()end},
{"Flip Upside Down",function()ed:checkpoint();ed:remap(function(x,y,z)return x,SIZE-1-y,z end);ed:changed()end},
{"Move Down One Layer",function()ed:checkpoint();ed:remap(function(x,y,z)return x,y+1,z end);ed:changed()end},
{"Move Up One Layer",function()ed:checkpoint();ed:remap(function(x,y,z)return x,y-1,z end);ed:changed()end},
"-",
{"Save As…",function()save(nil)end},
{"Onion Skin (layer below)",function()ed.onion=not ed.onion end,check=ed.onion},
{"Reset 3D View",function()st.view={yaw=math.pi+0.65,pitch=0.55,zoom=1}end,key="Home"},
"-",
{"About",function()
Y.dialog{title="3D Print Studio",text=table.concat({
"Models for the OpenComputers 3D printer: 16×16×16 voxels.",
"Draw layer by layer; the 3D view shows the printed block.",
"Each state (Off / On) may use up to 24 boxes — the counter shows how many",
"your voxels need (neighbouring voxels of one material merge into one box).",
"",
"Files are .3dm, the format of the OpenComputers print3d program.",
"Left click = draw · right click = erase · wheel = layer · Ctrl+wheel = zoom",
"PgUp/PgDn or ↑/↓ = layer · ←/→ = turn the 3D view · Ctrl+Z / Ctrl+Y = undo / redo",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end},
})
end,nil,4)
end


local function pills(w,x,y,opts,value,set,bg)
local t=Y.theme
for _,o in ipairs(opts)do
local on=value==o[1]
local wd=unicode.len(o[2])+2
if on then ui.pill(x,y,wd,t.accent)end
gfx.text(x+1,y,o[2],on and t.accentFg or t.fg,on and t.accent or bg or t.sidebar)
ui.hit(w,x,y,wd,1,function()set(o[1])end)
x=x+wd
end
return x
end
local function stepper(w,x,y,value,lo,hi,set)
local t=Y.theme
ui.button(w,x,y,"−",function()set(max(lo,value-1))end,nil,3)
gfx.text(x+4,y,string.format("%2d",value),t.fg,t.sidebar)
ui.button(w,x+7,y,"+",function()set(min(hi,value+1))end,nil,3)
end
local function drawSidebar(w,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
pills(w,2,1,{{"draw","Draw"},{"object","Object & Print"}},st.tab,function(v)st.tab=v end)
local y=3
if st.tab=="draw"then
gfx.text(2,y,"Tools",t.dim);y=y+1
for i,tl in ipairs(TOOLS)do
local cx=2+((i-1)%2)*12
local on=ed.tool==tl[1]
ui.button(w,cx,y,tl[2],function()ed:setTool(tl[1])end,on and"suggested"or nil,11)
if i%2==0 then y=y+1 end
end
y=y+1
gfx.text(2,y,"Brush",t.dim)
pills(w,9,y,{{1,"1"},{2,"2"},{3,"3"}},ed.brush,function(v)ed.brush=v end)
y=y+1
gfx.text(2,y,"Mirror",t.dim)
local mx=9
for _,m in ipairs({{"mirrorX","⇆ X"},{"mirrorZ","⇵ Z"}})do
local on=ed[m[1]]
if on then ui.pill(mx,y,5,t.accent)end
gfx.text(mx+1,y,m[2],on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,mx,y,5,1,function()ed[m[1]]=not ed[m[1]]end)
mx=mx+6
end
y=y+2
gfx.text(2,y,"Materials",t.dim)
ui.button(w,SIDE-8,y,"+ Add",function()openLibrary()end,"flat",7)
y=y+1
local rows=ch-y-1
st.matRows=rows
st.matTop=y
st.matScroll=max(0,min(st.matScroll,#doc.mats-rows))
for i=st.matScroll+1,min(#doc.mats,st.matScroll+rows)do
local m=doc.mats[i]
local on=ed.value==i
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then ui.select(1,y,SIDE,bg)end
gfx.fill(2,y,2,1,matColor(m))
gfx.text(5,y,ui.trunc(m.name,SIDE-6),t.fg,bg)
if m.tint then gfx.text(SIDE-1,y,"◐",t.dim,bg)end
ui.hit(w,1,y,SIDE,1,function()ed.value=i;if ed.tool=="pick"then ed:setTool(ed.lastTool or"pen")end end)
ui.hit(w,1,y,SIDE,1,function(_,px,py)editMaterial(i,win.x+px-1,win.y+py)end,1)
y=y+1
end
ui.scrollbar(SIDE,st.matTop,rows,st.matScroll,rows,#doc.mats)
else
local function row(label,value,fn)
gfx.text(2,y,label,t.dim)
local wv=SIDE-12
gfx.text(12,y,ui.trunc(value,wv),t.fg,t.sidebar)
if fn then ui.hit(w,1,y,SIDE,1,fn)end
y=y+1
end
row("Label",doc.label,function()
Y.dialog{title="Label",text="Name of the printed block",entry=doc.label,
buttons={{"Cancel"},{"OK",function(s)if s and s~=""then doc.label=s:sub(1,24);doc.dirty=true end end,"suggested"}}}
end)
row("Tooltip",doc.tooltip~=""and doc.tooltip or"—",function()
Y.dialog{title="Tooltip",text="Shown when hovering the item",entry=doc.tooltip,
buttons={{"Cancel"},{"OK",function(s)doc.tooltip=(s or""):sub(1,128);doc.dirty=true end,"suggested"}}}
end)
y=y+1
gfx.text(2,y,"Light",t.dim)
stepper(w,SIDE-10,y,doc.light,0,15,function(v)doc.light=v;doc.dirty=true end)
y=y+1
gfx.text(2,y,"Redstone out",t.dim)
stepper(w,SIDE-10,y,doc.redstone,0,15,function(v)doc.redstone=v;doc.dirty=true end)
y=y+1
gfx.text(2,y,"Button",t.dim)
ui.switch(w,SIDE-7,y,doc.button,function()doc.button=not doc.button;doc.dirty=true end)
y=y+1
gfx.text(2,y,"Solid when off",t.dim)
ui.switch(w,SIDE-7,y,doc.collide[1],function()doc.collide[1]=not doc.collide[1];doc.dirty=true end)
y=y+1
gfx.text(2,y,"Solid when on",t.dim)
ui.switch(w,SIDE-7,y,doc.collide[2],function()doc.collide[2]=not doc.collide[2];doc.dirty=true end)
y=y+2
gfx.text(2,y,"Shapes",t.dim);y=y+1
local lim=maxShapes()
for s,name in ipairs({"Off","On"})do
local n=#boxesOf(s)
gfx.text(2,y,name,t.fg,t.sidebar)
local txt=n.."/"..lim
gfx.text(SIDE-unicode.len(txt),y,txt,n>lim and t.danger or t.dim,t.sidebar)
ui.progress(6,y,SIDE-7-unicode.len(txt),n/lim,n>lim and t.danger or t.accent)
y=y+1
end
y=y+1
local list=printers()
gfx.text(2,y,"Printer",t.dim)
if#list==0 then
gfx.text(10,y,"none connected",t.warning,t.sidebar);y=y+1
else
if not st.printer or not component.type(st.printer)then st.printer=list[1]end
local idx=1
for i,a in ipairs(list)do if a==st.printer then idx=i end end
gfx.text(10,y,st.printer:sub(1,8)..(#list>1 and(" ("..idx.."/"..#list..")")or""),t.fg,t.sidebar)
if#list>1 then ui.hit(w,1,y,SIDE,1,function()st.printer=list[idx%#list+1]end)end
y=y+1
local info=st.info or{}
if info.getMaterialCount then gfx.text(2,y,"Material "..tostring(info.getMaterialCount),t.dim,t.sidebar);y=y+1 end
if info.getInkCount then gfx.text(2,y,"Ink "..tostring(info.getInkCount),t.dim,t.sidebar);y=y+1 end
end
y=y+1
gfx.text(2,y,"Copies",t.dim)
stepper(w,SIDE-10,y,st.copies,1,64,function(v)st.copies=v end)
y=y+2
if st.job then
local info=st.info or{}
gfx.text(2,y,ui.trunc("Printing "..st.job.label.."…",SIDE-2),t.fg,t.sidebar)
ui.progress(2,y+1,SIDE-3,(tonumber(info.progress)or 0)/100)
else
ui.button(w,2,y,"▶ Print",doPrint,"suggested",SIDE-2)
end
end
end


local function render3D(pw,ph)
local W,H=pw,ph*2
local key=table.concat({ed.version or 0,st.state,W,H,ed.y,st.view.yaw,st.view.pitch,st.view.zoom,tostring(doc),#doc.mats,
Y.theme.dark and 1 or 0})
if st.r3 and st.r3.key==key then return st.r3 end
local F=V.frame(W,H)
V.camera(F,st.view,8,7,8,11.5)

local BG3D=bg3d()
local gc=Y.theme.dark and 0x3A3A44 or 0xC8C8D0
for i=0,SIZE,4 do
V.line(F,i,0,0,i,0,SIZE,gc)
V.line(F,0,0,i,SIZE,0,i,gc)
end
local boxes=boxesOf(st.state)
for i,b in ipairs(boxes)do
local m=doc.mats[b[7]]
V.box(F,b[1],b[2],b[3],b[4],b[5],b[6],m and matColor(m)or 0xFF00FF,i)
end

if#boxes==0 and st.state==2 then
for _,b in ipairs(boxesOf(1))do
local m=doc.mats[b[7]]
V.box(F,b[1],b[2],b[3],b[4],b[5],b[6],V.mix(m and matColor(m)or 0xFF00FF,BG3D,0.75),0)
end
end
V.edges(F,0.62)

local yy=ed.y+0.5
local ac=V.mix(Y.theme.accent,BG3D,0.4)
V.line(F,0,yy,0,SIZE,yy,0,ac,0.3);V.line(F,SIZE,yy,0,SIZE,yy,SIZE,ac,0.3)
V.line(F,SIZE,yy,SIZE,0,yy,SIZE,ac,0.3);V.line(F,0,yy,SIZE,0,yy,0,ac,0.3)
local grid=V.toGrid(F,BG3D,BG3D)
F.zb,F.col=nil,nil
st.r3={key=key,grid=grid,F=F,boxes=boxes,W=W,H=H}
return st.r3
end


function win.draw(w,cw,ch)
local t=Y.theme
local body=ch-1
drawSidebar(w,body)
local ax=SIDE+2
local avail=cw-SIDE-2

local s=max(1,min((body*2-2)//SIZE,(avail*55//100)//SIZE))
local gw,gh=SIZE*s,(SIZE*s+1)//2
gfx.fill(SIDE+1,1,cw-SIDE,body,t.view)
local gy=max(1,(body-gh)//2+1)
ed.zoom=s
ed:theme(t.dark)
ed:draw(ax,gy,gw,gh)
st.gridArea={ax,gy,gw,gh}

gfx.text(ax,gy+gh,"← west",t.dim,t.view)
gfx.text(ax+gw-7,gy+gh,"east →",t.dim,t.view)
gfx.text(ax+(gw-5)//2,gy+gh,"front",t.dim,t.view)
if gy>1 then gfx.text(ax+(gw-4)//2,gy-1,"back",t.dim,t.view)end

local lx=ax+gw+1
local ly0=max(1,(body-SIZE)//2+1)
for yy=SIZE-1,0,-1 do
local row=ly0+(SIZE-1-yy)
local on=yy==ed.y
local used=ed.L[yy+1]:find("[^\0]")~=nil
if on then ui.pill(lx,row,5,t.accent)end
gfx.text(lx+1,row,string.format("%2d",yy+1),on and t.accentFg or(used and t.fg or t.dim),on and t.accent or t.view)
if used and not on then gfx.text(lx+3,row,"•",t.accent,t.view)end
ui.hit(w,lx,row,5,1,function()ed:setLayer(yy)end)
end
gfx.text(lx,ly0-1,"Layer",t.dim,t.view)

local px=lx+6
local pw=cw-px
st.preview=nil
if pw>=12 then
local r=render3D(pw,body-1)
gfx.blit(r.grid,pw,body-1,px,1)
gfx.text(px+1,1,"3D view",t.dim,bg3d())
st.preview={px,1,pw,body-1}
end
if st.panel then
local ppw,pph=min(cw-SIDE-4,92),min(body-2,30)
drawPanel(w,SIDE+2+(cw-SIDE-2-ppw)//2,2+(body-2-pph)//2,ppw,pph)
end

gfx.fill(1,ch,cw,1,t.header)
local mat=doc.mats[ed.value]
local b=#boxesOf(st.state)
local status=string.format("Layer %d/%d · %s · %s · %s state: %d/%d shapes%s",ed.y+1,SIZE,
(TOOLS[1]and({pen="Pen",line="Line",rect="Rectangle",box="Filled rectangle",circle="Ring",disc="Disc",fill="Bucket",pick="Picker"})[ed.tool])or ed.tool,
mat and mat.name or"?",st.state==1 and"Off"or"On",b,maxShapes(),doc.dirty and" · unsaved"or"")
if b>maxShapes()then status=status.."  ⚑ too many — fewer details or colours"end
gfx.text(2,ch,ui.trunc(status,cw-3),b>maxShapes()and t.warning or t.fg,t.header)
end


local function inArea(a,lx,ly)return a and lx>=a[1]and ly>=a[2]and lx<a[1]+a[3]and ly<a[2]+a[4]end
function win.touch(w,lx,ly,btn,kind)
if st.panel then return end
if st.drag3 then
if kind=="drag"then
local d=st.drag3
st.view.yaw=d[3]+(lx-d[1])*0.06
st.view.pitch=max(-1.45,min(1.45,d[4]+(ly-d[2])*0.1))
d.moved=d.moved or math.abs(lx-d[1])+math.abs(ly-d[2])>0
elseif kind=="drop"then
local d=st.drag3
st.drag3=nil
if not d.moved and st.r3 then

local p=st.preview
local fx,fy=lx-p[1],(ly-p[2])*2+((Y.touchFrac or 0)>=0.5 and 1 or 0)
local id,face=V.pick(st.r3.F,fx,fy)
local b=id and st.r3.boxes[id]
if b then
if face==4 then ed:setLayer(min(SIZE-1,b[5]))else ed:setLayer(b[2])end
ed.value=b[7]
end
end
end
return
end
if inArea(st.preview,lx,ly)and kind=="touch"then
st.drag3={lx,ly,st.view.yaw,st.view.pitch}
return
end
ed:touch(lx,ly,btn,kind,Y.touchFrac)
end
function win.scroll(w,lx,ly,dir)
if lx<=SIDE then
st.matScroll=max(0,st.matScroll-dir)
return
end
if inArea(st.preview,lx,ly)then
st.view.zoom=max(0.4,min(4,st.view.zoom*(dir>0 and 1.2 or 1/1.2)))
return
end
ed:setLayer(ed.y+(dir>0 and 1 or-1))
end
function win.key(w,char,code)
local K=Y.K
if st.panel then if code==K.esc then st.panel=nil end return end
if Y.mods.ctrl()then
if code==K.s then save(doc.path)
elseif code==0x2C then ed:undoStep()
elseif code==0x15 then ed:redoStep()
elseif code==0x18 then openMenu(win.x+20,win.y+1)end
return
end
if code==K.up or code==0xC9 then ed:setLayer(ed.y+1)
elseif code==K.down or code==0xD1 then ed:setLayer(ed.y-1)
elseif code==K.left then st.view.yaw=st.view.yaw-0.2
elseif code==K.right then st.view.yaw=st.view.yaw+0.2
elseif code==0xC7 then st.view={yaw=math.pi+0.65,pitch=0.55,zoom=1}
elseif code==0xD3 then ed:checkpoint();ed.L[ed.y+1]=ed:empty();ed:changed()
elseif char==91 then ed.brush=max(1,ed.brush-1)
elseif char==93 then ed.brush=min(3,ed.brush+1)
elseif char==99 or char==67 then
if ed.y<SIZE-1 then ed:checkpoint();ed.L[ed.y+2]=ed.L[ed.y+1];ed:setLayer(ed.y+1);ed:changed()end
else
local c=char>0 and string.char(char):upper()or""
for _,tl in ipairs(TOOLS)do if tl[3]==c then ed:setTool(tl[1])end end
end
end

win.tickInterval=0.5
function win.tick(w)
if not st.job then return end
local p=component.type(st.job.addr)and component.proxy(st.job.addr)
if not p then st.job=nil;return end
st.info=printerInfo(p)
if st.info.status=="busy"then st.job.seenBusy=true
elseif st.job.seenBusy or computer.uptime()-st.job.t0>3 then
Y.notify("Print finished",st.job.copies.." × "..st.job.label,{action=function()end})
st.job=nil
end
Y.redraw(w)
end
function win.onclose(w)
if not doc.dirty then return true end
Y.dialog{title="Save “"..doc.label.."” before closing?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save(doc.path,function()Y.closeWin(w,true)end)end,"suggested"}}}
return false
end
function win.lowMemory()st.r3=nil;st.mesh={}end

newDoc()
win.api={state=st,ed=ed,doc=function()return doc end,load=load,save=save,print=doPrint,
setState=setState,boxes=boxesOf,toModel=toModel,fromModel=fromModel,newDoc=newDoc}
if path then load(path)end
return win
end

return M
F 29535 /usr/share/yaru/apps/redlab.lua





local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local unicode=require("unicode")
local serialization=require("serialization")
package.loaded.redsim=nil
local R=require("redsim")
local M={}

local floor=math.floor
local DIR="/home/Redstone"
local ZOOMS={2,4,6,8,12,16}
local SPEEDS={1,2,5,10,20,50}
local ARROW={[0]="↑","→","↓","←"}
local DNAME={[0]="north","east","south","west"}
local TOOLS={
{"dust","Dust","1"},{"block","Block","2"},{"lever","Lever","3"},{"button","Button","4"},
{"torch","Torch","5"},{"repeater","Repeater","6"},{"comparator","Comparator","7"},
{"lamp","Lamp","8"},{"observer","Observer","9"},{"erase","Eraser","0"},
{"select","Select","B"},{"hand","Hand","H"},
}
local HOTKEY={}
for _,t in ipairs(TOOLS)do HOTKEY[t[3]:lower():byte()]=t[1]end
HOTKEY[("x"):byte()]="erase";HOTKEY[("e"):byte()]="erase"
local PAINT={dust=true,block=true,erase=true}


local STONE_HI,STONE,STONE_LO,STONE_DK=0xC0BFBC,0x9A9996,0x5E5C64,0x454545
local WOOD=0x996D40
local function dustColor(p)
if p<=0 then return 0x660000 elseif p<=4 then return 0x990000 elseif p<=9 then return 0xCC0000 end
return 0xFF0000
end





local function art(c,s)
local P={}
local function rect(u0,v0,u1,v1,col)
local x0,x1=floor(u0*s+.5),floor(u1*s+.5)-1
local y0,y1=floor(v0*s+.5),floor(v1*s+.5)-1
if x1<x0 then x1=x0 end
if y1<y0 then y1=y0 end
if x0<0 then x0=0 end
if y0<0 then y0=0 end
if x1>s-1 then x1=s-1 end
if y1>s-1 then y1=s-1 end
for y=y0,y1 do for x=x0,x1 do P[y*s+x+1]=col end end
end
local function frame(u0,v0,u1,v1,hi,lo)
rect(u0,v0,u1,v0+1/s,hi);rect(u0,v0,u0+1/s,v1,hi)
rect(u0,v1-1/s,u1,v1,lo);rect(u1-1/s,v0,u1,v1,lo)
end
local t=c.t
if s==2 then
local function px(a,b,cc,d)P[1],P[2],P[3],P[4]=a,b,cc,d end
if t=="dust"then local d=dustColor(c.p)px(d,d,d,d)
elseif t=="block"then
local hi=(c.strong or 0)>0 and 0xCC0000 or STONE_HI
px(hi,STONE_HI,STONE,STONE_LO)
elseif t=="lever"then px(c.on and 0xFF0000 or WOOD,nil,STONE_LO,STONE_LO)
elseif t=="button"then local k=c.on and 0xFF0000 or STONE px(k,k,nil,nil)
elseif t=="torch"then local k=c.burnt and STONE_DK or c.on and 0xFFDB40 or 0x660000 px(k,k,WOOD,nil)
elseif t=="repeater"then local k=c.on and 0xFF0000 or 0x660000 px(k,k,STONE_HI,STONE_HI)
elseif t=="comparator"then local k=c.p>0 and 0xFF0000 or 0x660000 px(STONE_HI,k,k,STONE_HI)
elseif t=="lamp"then local k=c.on and 0xFFDB40 or 0x663300 px(k,k,k,k)
elseif t=="observer"then px(0x1E1E1E,0x1E1E1E,STONE_LO,c.on and 0xFF0000 or STONE_LO)
elseif t=="erase"then px(0xFF92BF,0xFF92BF,0xFFFFFF,0xFFFFFF)
elseif t=="select"then px(c.acc,nil,nil,c.acc)
elseif t=="hand"then px(0xFFDBBF,0xFFDBBF,0xFFDBBF,nil)end
return P
end
local q=1/s
if t=="dust"then
local col=dustColor(c.p)
local m,a,b=c.mask or 0,.36,.64
if s>=12 then a,b=.4,.6 end
local function arm(d)
if d==0 then rect(a,0,b,.5,col)elseif d==1 then rect(.5,a,1,b,col)
elseif d==2 then rect(a,.5,b,1,col)else rect(0,a,.5,b,col)end
end
local n=0
for d=0,3 do if m&(1<<d)~=0 then arm(d);n=n+1 end end
if n==0 then
rect(.2,a,.8,b,col);rect(a,.2,b,.8,col)
elseif n==1 then
for d=0,3 do if m&(1<<d)~=0 then arm((d+2)%4)end end
end
if n~=2 or(m~=5 and m~=10)then rect(a-q,a-q,b+q,b+q,col)else rect(a,a,b,b,col)end
elseif t=="block"then
rect(0,0,1,1,STONE)
frame(0,0,1,1,STONE_HI,STONE_LO)
if s>=8 then rect(.25,.3,.4,.4,STONE_HI);rect(.6,.62,.75,.72,STONE_LO)end
if(c.strong or 0)>0 then rect(.38,.38,.62,.62,0xFF0000)
elseif(c.weak or 0)>0 then rect(.42,.42,.58,.58,0xCC0000)end
elseif t=="lever"then
rect(.25,.3,.75,.7,STONE_LO)
frame(.25,.3,.75,.7,STONE,STONE_DK)
if c.on then rect(.45,.5,.55,.95,WOOD);rect(.4,.82,.6,1,0xFF0000)
else rect(.45,.05,.55,.5,WOOD);rect(.4,0,.6,.18,0x663300)end
elseif t=="button"then
if c.on then rect(.28,.33,.72,.67,0xCC0000);rect(.36,.41,.64,.59,STONE_LO)
else rect(.3,.35,.7,.65,STONE);frame(.3,.35,.7,.65,STONE_HI,STONE_LO)end
elseif t=="torch"then
rect(.42,.45,.58,1,WOOD)
local head=c.burnt and STONE_DK or c.on and 0xFF9240 or 0x660000
rect(.28,.1,.72,.5,head)
if c.on and not c.burnt then rect(.4,.2,.6,.4,0xFFFF80);if s>=8 then rect(.42,0,.58,.1,0xFFDB40)end end
elseif t=="repeater"or t=="comparator"then
rect(.04,.04,.96,.96,STONE_HI)
frame(.04,.04,.96,.96,0xDEDDDA,STONE)
local lit=(t=="repeater"and c.on)or(t=="comparator"and c.p>0)
rect(.46,.15,.54,.85,lit and 0xFF0000 or 0x990000)
local function torch(u,v,on)rect(u-.1,v-.08,u+.1,v+.08,on and 0xFF2400 or 0x660000)end
if t=="repeater"then
torch(.5,.22,c.on)
torch(.5,.4+(c.d-1)*.12,c.on)
if c.locked then rect(.14,.52,.86,.62,STONE_DK)end
else
torch(.5,.2,c.m=="sub")
torch(.24,.74,lit);torch(.76,.74,lit)
end
elseif t=="lamp"then
rect(0,0,1,1,c.on and 0xCC6D00 or 0x663300)
rect(.14,.14,.86,.86,c.on and 0xFFDB40 or 0x332400)
if c.on then rect(.3,.3,.45,.45,0xFFFFBF);rect(.55,.55,.7,.7,0xFFFFBF)
elseif s>=8 then rect(.3,.3,.45,.45,0x663300);rect(.55,.55,.7,.7,0x663300)end
elseif t=="observer"then
rect(.04,.04,.96,.96,STONE_LO)
frame(.04,.04,.96,.96,STONE,STONE_DK)
rect(.1,.08,.9,.34,0x1E1E1E)
rect(.22,.14,.4,.26,STONE);rect(.6,.14,.78,.26,STONE)
rect(.38,.7,.62,.9,c.on and 0xFF0000 or 0x330000)
elseif t=="erase"then
rect(.15,.3,.85,.7,0xFF92BF);rect(.55,.3,.85,.7,0xFFFFFF);frame(.15,.3,.85,.7,0xFFDBBF,0x996D80)
elseif t=="select"then
for i=0,s-1,2 do
rect(i*q,.1,(i+1)*q,.1+q,c.acc);rect(i*q,.9-q,(i+1)*q,.9,c.acc)
end
rect(.1,.1,.1+q,.9,c.acc);rect(.9-q,.1,.9,.9,c.acc)
elseif t=="hand"then
rect(.25,.35,.75,.9,0xFFDBBF);rect(.25,.1,.37,.4,0xFFDBBF);rect(.44,.05,.56,.4,0xFFDBBF)
rect(.63,.12,.75,.4,0xFFDBBF);rect(.75,.45,.9,.65,0xFFDBBF)
end
return P
end

local function rotate(P,s,f)
for _=1,f%4 do
local Q={}
for y=0,s-1 do for x=0,s-1 do Q[x*s+(s-1-y)+1]=P[y*s+x+1]end end
P=Q
end
return P
end

local cache,cacheN,cacheTheme={},0,nil
local function stateKey(c)
local t=c.t
if t=="dust"then return"d"..(c.p>9 and 3 or c.p>4 and 2 or c.p>0 and 1 or 0)..":"..(c.mask or 0)end
if t=="block"then return"b"..((c.strong or 0)>0 and 2 or(c.weak or 0)>0 and 1 or 0)end
if t=="repeater"then return"r"..c.f..c.d..(c.on and 1 or 0)..(c.locked and 1 or 0)end
if t=="comparator"then return"c"..c.f..c.m..(c.p>0 and 1 or 0)end
if t=="torch"then return"t"..c.f..(c.burnt and"x"or c.on and 1 or 0)end
return t..(c.f or 0)..(c.on and 1 or 0)
end
local function sprite(c,s,bg)
if cacheTheme~=Y.theme then cache,cacheN,cacheTheme={},0,Y.theme end
local key=s..":"..bg..":"..stateKey(c)
local g=cache[key]
if g then return g end
local P=art(c,s)
if R.DIRECTIONAL[c.t]and c.f~=0 then P=rotate(P,s,c.f)end
g={}
local bi=gfx.color(bg)
for row=0,s//2-1 do
for x=0,s-1 do
local top,bot=P[2*row*s+x+1],P[(2*row+1)*s+x+1]
local ti,bo=top and gfx.color(top)or bi,bot and gfx.color(bot)or bi
g[row*s+x+1]=ti==bo and(32|ti<<21|ti<<29)or(0x2580|ti<<21|bo<<29)
end
end
if cacheN>800 then cache,cacheN={},0 end
cache[key],cacheN=g,cacheN+1
return g
end


function M.open(path)
local win=Y.newWindow{app="redlab",title="Redstone Lab",w=124,h=40,minW=72,minH=22,precise=true}
local world=R.new()
local st={
tool="dust",facing=1,s=8,camX=0,camY=0,run=true,speed=4,
undo={},redo={},dirty=false,path=nil,
sel=nil,clip=nil,stamp=nil,cur=nil,gesture=nil,
}
local SIDE=22
local ax,aw,ah=SIDE+1,80,30

local function setTitle()
win.title=(st.path and fs.name(st.path)or"Untitled")..(st.dirty and" •"or"").." — Redstone Lab"
end
local function setSpeed(i)
st.speed=i
local tps=SPEEDS[i]
st.steps=math.max(1,tps//10)
win.tickInterval=st.run and math.max(0.1,1/tps)or nil
end
local function setRun(on)
st.run=on
setSpeed(st.speed)
end
local function center()
st.camX=-floor(aw/2)
st.camY=-ah;st.camY=st.camY-st.camY%2
end


local function pushUndo()
st.undo[#st.undo+1]=world:save()
if#st.undo>40 then table.remove(st.undo,1)end
st.redo={}
end
local function edited()st.dirty=true;setTitle()end
local function restore(snap)
local tick=world.tick
world=R.load(snap)
world.tick=tick
world:settle(1)
world.tick=tick
edited()
end
local function undo()
local u=table.remove(st.undo)
if not u then return end
st.redo[#st.redo+1]=world:save()
restore(u)
end
local function redo()
local r=table.remove(st.redo)
if not r then return end
st.undo[#st.undo+1]=world:save()
restore(r)
end


local function tileAt(lx,ly)
local px=lx-ax
local frac=Y.touchFrac
local py=(ly-1)*2+((frac and frac>=.5)and 1 or 0)
return floor((st.camX+px)/st.s),floor((st.camY+py)/st.s),px,py
end
local function zoomTo(i,px,py)
i=math.max(1,math.min(#ZOOMS,i))
local ns,s=ZOOMS[i],st.s
if ns==s then return end
px,py=px or aw//2,py or ah
local wx,wy=(st.camX+px)/s,(st.camY+py)/s
st.camX=floor(wx*ns-px+.5)
st.camY=floor(wy*ns-py+.5)
st.camY=st.camY-st.camY%2
st.s=ns
end
local function zoomIndex()
for i,z in ipairs(ZOOMS)do if z==st.s then return i end end
return 4
end
local function fit()
local x1,y1,x2,y2=world:bounds()
if not x1 then st.s=8;center();return end
local w,h=x2-x1+1,y2-y1+1
local pick=1
for i,z in ipairs(ZOOMS)do if w*z<=aw-2 and h*z<=2*ah-2 then pick=i end end
st.s=ZOOMS[pick]
local s=st.s
st.camX=floor(((x1+x2+1)*s-aw)/2)
st.camY=floor(((y1+y2+1)*s-2*ah)/2)
st.camY=st.camY-st.camY%2
end
local function pan(dxTiles,dyTiles)
st.camX=st.camX+dxTiles*st.s
st.camY=st.camY+dyTiles*st.s
end


local function serialize()
local t=world:save()
t.view={st.camX,st.camY,st.s}
return serialization.serialize(t)
end
local function save(p,after)
p=p or st.path
if not p then
Y.dialog{title="Save Circuit",text="File name (full path)",entry=DIR.."/circuit.rsl",
buttons={{"Cancel"},{"Save",function(s)if s and s~=""then
if not s:match("%.rsl$")then s=s..".rsl"end
save(s,after)end end,"suggested"}}}
return
end
fs.makeDirectory(fs.path(p))
local f,err=io.open(p,"w")
if not f then return Y.notify("Could not save",tostring(err))end
f:write(serialize());f:close()
st.path,st.dirty=p,false
setTitle()
for _,w in ipairs(Y.windowsOf("files"))do if w.reload then w.reload()end end
if after then after()end
end
local function load(p)
local f=io.open(p,"r")
if not f then return Y.notify("Redstone Lab","Cannot open "..p)end
local data=f:read("*a");f:close()
local ok,t=pcall(serialization.unserialize,data)
local w,err
if ok then w,err=R.load(t)else err="damaged file"end
if not w then return Y.notify("Redstone Lab",fs.name(p)..": "..tostring(err))end
world=w
world:settle(5)
world.tick=0
st.path,st.dirty,st.undo,st.redo,st.sel,st.stamp=p,false,{},{},nil,nil
if type(t.view)=="table"and tonumber(t.view[3])then
st.camX,st.camY,st.s=t.view[1],t.view[2]-t.view[2]%2,t.view[3]
st.viewSet=true
elseif st.centered then fit()
else st.fitOnOpen=true end
setTitle()
end
local function newSheet()
world=R.new()
st.path,st.dirty,st.undo,st.redo,st.sel,st.stamp=nil,false,{},{},nil,nil
st.s=8;center();setTitle()
end
local function confirmDiscard(fn)
if not st.dirty then return fn()end
Y.dialog{title="Discard unsaved changes?",text="The current circuit has not been saved.",
buttons={{"Cancel"},{"Discard",fn,"destructive"},{"Save",function()save(nil,fn)end,"suggested"}}}
end
local function openDialog()
confirmDiscard(function()
Y.dialog{title="Open Circuit",text="Path to a .rsl file",entry=st.path or(DIR.."/"),
buttons={{"Cancel"},{"Open",function(p)if p and p~=""then load(p)end end,"suggested"}}}
end)
end


local function interact(c)
if c.t=="repeater"or c.t=="comparator"then pushUndo()end
if world:interact(c.x,c.y)then
if c.t=="repeater"or c.t=="comparator"then edited()end
return true
end
end
local function rotatePart(c)
if not R.DIRECTIONAL[c.t]then return end
pushUndo()
c.f=(c.f+1)%4
c.sig=nil
world.dirty=true
edited()
end
local function editOnce()
if not st.gesture.pushed then pushUndo();st.gesture.pushed=true end
edited()
end

local function apply(tx,ty,drag)
local tool,c=st.tool,world:get(tx,ty)
if tool=="erase"then
if c then editOnce();world:set(tx,ty,nil)end
return
end
if not c then
if drag and not PAINT[tool]then return end
editOnce()
world:set(tx,ty,R.cell(tool,R.DIRECTIONAL[tool]and st.facing or 0))
st.gesture.placed=world:get(tx,ty)
return
end
if drag then return end
if c.t=="lever"or c.t=="button"then return interact(c)end
if c.t==tool then
if tool=="repeater"or tool=="comparator"then return interact(c)end
return rotatePart(c)
end
editOnce()
world:set(tx,ty,R.cell(tool,R.DIRECTIONAL[tool]and st.facing or 0))
st.gesture.placed=world:get(tx,ty)
end
local function stroke(x0,y0,x1,y1)
local dx,dy=math.abs(x1-x0),-math.abs(y1-y0)
local sx,sy=x0<x1 and 1 or-1,y0<y1 and 1 or-1
local err=dx+dy
while true do
apply(x0,y0,true)
if x0==x1 and y0==y1 then break end
local e2=2*err
if e2>=dy then err=err+dy;x0=x0+sx end
if e2<=dx then err=err+dx;y0=y0+sy end
end
end


local function selRect()
local s=st.sel
if not s then return end
return math.min(s[1],s[3]),math.min(s[2],s[4]),math.max(s[1],s[3]),math.max(s[2],s[4])
end
local function copySel()
local x1,y1,x2,y2=selRect()
if not x1 then return end
st.clip=world:copy(x1,y1,x2,y2)
return true
end
local function deleteSel()
local x1,y1,x2,y2=selRect()
if not x1 then return end
pushUndo();world:erase(x1,y1,x2,y2);edited()
end
local function startStamp(pat,name,info,tx,ty)
if not pat or#pat==0 then return end
local w,h=R.size(pat)
if not tx then
tx=floor((st.camX+aw/2)/st.s)-w//2
ty=floor((st.camY+ah)/st.s)-h//2
end
st.stamp={pat=pat,name=name,info=info,x=tx,y=ty}
st.sel=nil
end
local function placeStamp()
local sp=st.stamp
if not sp then return end
pushUndo()
world:paste(sp.pat,sp.x,sp.y)
edited()
local w,h=R.size(sp.pat)
st.sel={sp.x,sp.y,sp.x+w-1,sp.y+h-1}
st.stamp=nil
end
local function rotateStamp()
local sp=st.stamp
local w,h=R.size(sp.pat)
local cx,cy=sp.x+w/2,sp.y+h/2
sp.pat=R.rotate(sp.pat,1)
local nw,nh=R.size(sp.pat)
sp.x,sp.y=floor(cx-nw/2+.5),floor(cy-nh/2+.5)
end
local function rotateSel()
local x1,y1,x2,y2=selRect()
if not x1 then return end
pushUndo()
local pat=R.rotate(world:copy(x1,y1,x2,y2),1)
world:erase(x1,y1,x2,y2)
local nw,nh=(y2-y1+1),(x2-x1+1)
local cx,cy=(x1+x2+1)/2,(y1+y2+1)/2
local nx,ny=floor(cx-nw/2+.5),floor(cy-nh/2+.5)
world:paste(pat,nx,ny)
st.sel={nx,ny,nx+nw-1,ny+nh-1}
edited()
end
local function moveSel()
local x1,y1,x2,y2=selRect()
if not x1 then return end
local pat=world:copy(x1,y1,x2,y2)
if#pat==0 then return end
pushUndo();world:erase(x1,y1,x2,y2);edited()
startStamp(pat,"Selection",nil,x1,y1)
st.stamp.lifted=true
end
local function cancelStamp()
local sp=st.stamp
st.stamp=nil
if sp and sp.lifted then undo();st.redo={}end
end
local function rotateAny()
if st.stamp then rotateStamp()
elseif st.sel and st.tool=="select"then rotateSel()
else st.facing=(st.facing+1)%4 end
end


local function toScreen(lx,ly)return win.x+lx-1,win.y+ly end
local function templatesMenu(sx,sy)
local items={}
for _,tp in ipairs(R.TEMPLATES)do
items[#items+1]={tp.name,function()startStamp(tp.pattern,tp.name,tp.info);Y.redraw(win)end}
end
Y.menu(sx,sy,items)
end
local function speedMenu(sx,sy)
local items={}
for i,v in ipairs(SPEEDS)do
items[#items+1]={v.." ticks/s"..(v==10 and"  (real time)"or""),function()setSpeed(i);Y.redraw(win)end,check=st.speed==i}
end
Y.menu(sx,sy,items)
end
local showHelp
local function mainMenu(sx,sy)
Y.menu(sx,sy,{
{"New",function()confirmDiscard(newSheet)end,key="Ctrl+N"},
{"Open…",openDialog,key="Ctrl+O"},
{"Save",function()save()end,key="Ctrl+S"},
{"Save As…",function()local p=st.path st.path=nil save(nil)if not st.path then st.path=p end end},
"-",
{"Undo",undo,key="Ctrl+Z",disabled=#st.undo==0},
{"Redo",redo,key="Ctrl+Y",disabled=#st.redo==0},
{"Select All",function()local x1,y1,x2,y2=world:bounds()if x1 then st.tool="select";st.sel={x1,y1,x2,y2}end end,key="Ctrl+A"},
"-",
{"Fit Circuit",fit,key="Home"},
{"Back to Origin",center},
{"Reset Time",function()world.tick=0;world:settle(3);world.tick=0 end},
{"Clear Sheet",function()
if world.n==0 then return end
pushUndo();world:clear();st.sel=nil;edited()
end},
"-",
{"Help",function()showHelp()end,key="F1"},
})
end
local function contextMenu(lx,ly,tx,ty)
local c=world:get(tx,ty)
local items={}
if c then
if c.t=="lever"then items[#items+1]={c.on and"Switch Off"or"Switch On",function()interact(c)end}
elseif c.t=="button"then items[#items+1]={"Press",function()interact(c)end}end
if c.t=="repeater"then
for d=1,4 do items[#items+1]={"Delay "..d.." ("..(d/10).." s)",function()pushUndo();c.d=d;edited()end,check=c.d==d}end
elseif c.t=="comparator"then
items[#items+1]={"Compare Mode",function()pushUndo();c.m="cmp";edited()end,check=c.m=="cmp"}
items[#items+1]={"Subtract Mode",function()pushUndo();c.m="sub";edited()end,check=c.m=="sub"}
end
if R.DIRECTIONAL[c.t]then items[#items+1]={"Rotate",function()rotatePart(c)end,key="click"}end
items[#items+1]={"Pick This Part",function()st.tool=c.t;if R.DIRECTIONAL[c.t]then st.facing=c.f end end}
items[#items+1]={"Delete",function()pushUndo();world:set(tx,ty,nil);edited()end}
items[#items+1]="-"
end
local x1,y1,x2,y2=selRect()
if x1 then
items[#items+1]={"Copy Selection",copySel,key="Ctrl+C"}
items[#items+1]={"Cut Selection",function()if copySel()then deleteSel();st.sel=nil end end,key="Ctrl+X"}
items[#items+1]={"Move Selection",moveSel}
items[#items+1]={"Rotate Selection",rotateSel,key="R"}
items[#items+1]={"Delete Selection",function()deleteSel();st.sel=nil end,key="Del"}
items[#items+1]="-"
end
if st.clip then items[#items+1]={"Paste Here",function()startStamp(st.clip,"Clipboard",nil,tx,ty);placeStamp()end,key="Ctrl+V"}end
items[#items+1]={"Templates…",function()templatesMenu(toScreen(lx,ly))end}
local sx,sy=toScreen(lx,ly)
Y.menu(sx,sy+1,items)
end

showHelp=function()
Y.dialog{title="Redstone Lab — Help",text=table.concat({
"Pick a part on the left (keys 1-9) and click the grid to place it.",
"Dust, blocks and the eraser (0) paint while dragging.",
"Drag from a new torch, repeater, comparator or observer to aim it.",
"Click a lever or button to use it; a repeater/comparator with its",
"own tool to change delay/mode; a torch/observer to rotate it.",
"",
"Right-drag or Hand (H): move the sheet · wheel / + - : zoom",
"Right-click: part menu · R: rotate · Space: run/pause · . : one tick",
"Select (B): drag a box, then Ctrl+C / X / V, Del, R, Move",
"Templates: drag the ghost where you want it and release to place.",
"Ctrl+Z / Ctrl+Y undo/redo · Home: fit · Ctrl+S save (.rsl)",
"",
"1 tick = 0.1 s · torch 1 · repeater 1-4 · comparator 1 · button 10",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end


function win.header(w,hw)
local x=2
if st.run then x=x+ui.button(w,x,1,"▮▮ Pause",function()setRun(false)end,nil,10)+1
else x=x+ui.button(w,x,1,"▶ Run",function()setRun(true)end,"suggested",10)+1 end
x=x+ui.button(w,x,1,"Step",function()if st.run then setRun(false)end world:step()end)+1
x=x+ui.button(w,x,1,SPEEDS[st.speed].." t/s ▾",function(_,px)speedMenu(win.x+px-1,win.y+1)end,"flat")+1
x=x+ui.button(w,x,1,"Templates ▾",function(_,px)templatesMenu(win.x+px-1,win.y+1)end)+1
if x+14<hw-5 then
x=x+ui.button(w,x,1,"↶",undo,"flat",3)
x=x+ui.button(w,x,1,"↷",redo,"flat",3)+1
end
ui.button(w,hw-4,1,"☰",function(_,px)mainMenu(win.x+px-1,win.y+1)end,nil,4)
end


local function toolIcon(id,x,y,s,bg)
local t=Y.theme
local c
if id=="dust"then c={t="dust",p=15,mask=10}
elseif id=="block"then c={t="block"}
elseif id=="lever"then c={t="lever",on=true}
elseif id=="torch"then c={t="torch",f=st.facing,on=true}
elseif id=="repeater"then c={t="repeater",f=st.facing,d=2,on=true}
elseif id=="comparator"then c={t="comparator",f=st.facing,m="cmp",p=15}
elseif id=="lamp"then c={t="lamp",on=true}
elseif id=="observer"then c={t="observer",f=st.facing}
else c={t=id}end
if id=="select"then c.acc=t.accent end
gfx.blit(sprite(c,s,bg),s,s//2,x,y)
end

local function drawSidebar(w,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
local rowH=ch>=1+#TOOLS*2+9 and 2 or 1
local s=rowH==2 and 4 or 2
gfx.text(2,1,"Parts & tools",t.dim)
local y=2
for _,tl in ipairs(TOOLS)do
local on=st.tool==tl[1]and not st.stamp
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then
if rowH==2 then ui.round(1,y,SIDE,2,bg)else ui.pill(1,y,SIDE,bg)end
end
toolIcon(tl[1],3,y,s,bg)
local ty=y+(rowH==2 and 0 or 0)
gfx.text(4+s,ty,tl[2],on and t.fg or t.fg,bg)
gfx.text(SIDE-2,ty,tl[3],t.dim,bg)
if rowH==2 then
local sub=""
if R.DIRECTIONAL[tl[1]]then sub="faces "..ARROW[st.facing]
elseif tl[1]=="dust"or tl[1]=="block"or tl[1]=="erase"then sub="drag to paint"
elseif tl[1]=="select"then sub="box · copy · move"
elseif tl[1]=="hand"then sub="pan · use"end
gfx.text(4+s,y+1,sub,t.dim,bg)
end
ui.hit(w,1,y,SIDE,rowH,function()st.tool=tl[1];cancelStamp();if tl[1]~="select"then st.sel=nil end end)
y=y+rowH
end
y=y+1
if y+1<=ch then
gfx.text(2,y,"Facing",t.dim)
for f=0,3 do
local bx=9+f*3
if st.facing==f then ui.pill(bx,y,3,t.accent)end
gfx.text(bx+1,y,ARROW[f],st.facing==f and t.accentFg or t.fg,st.facing==f and t.accent or t.sidebar)
ui.hit(w,bx,y,3,1,function()st.facing=f end)
end
y=y+2
end
local hints={"R rotate · Space run","Right-drag: move","Wheel: zoom · F1 help"}
for _,h in ipairs(hints)do
if y<=ch then gfx.text(2,y,h,t.dim)end
y=y+1
end
end

local function drawCanvas(w,cw,ch)
local t=Y.theme
local s=st.s
local dark=t.dark
local BG,ALT,DOT,DOT8=0x242424,0x2E2E2E,0x454545,0x77767B
if not dark then BG,ALT,DOT,DOT8=0xFAFAFA,0xEBEBEB,0xC0BFBC,0x9A9996 end
gfx.pushClip(ax,1,aw,ah)
gfx.fill(ax,1,aw,ah,BG)
local camX,camY=st.camX,st.camY
local tx0,tx1=floor(camX/s),floor((camX+aw-1)/s)
local ty0,ty1=floor(camY/s),floor((camY+2*ah-1)/s)
local function cellX(tx)return ax+tx*s-camX end
local function cellY(ty)return 1+(ty*s-camY)//2 end
local function tileBg(tx,ty)return(s>=8 and(tx+ty)%2~=0)and ALT or BG end

if s>=8 then
for ty=ty0,ty1 do
for tx=tx0+((tx0+ty+1)%2),tx1,2 do gfx.fill(cellX(tx),cellY(ty),s,s//2,ALT)end
end
else
local step=s==2 and 4 or s==4 and 2 or 1
for ty=ty0-ty0%step,ty1,step do
for tx=tx0-tx0%step,tx1,step do
gfx.pset(ax+tx*s-camX,1+ty*s-camY,(tx%8==0 and ty%8==0)and DOT8 or DOT)
end
end
end

if tx0<=0 and tx1>=0 and ty0<=0 and ty1>=0 then
local ox,oy=ax-camX,1-camY
gfx.pline(ox-2,oy,ox+2,oy,DOT8);gfx.pline(ox,oy-2,ox,oy+2,DOT8)
end

local get=function(x,y)local r=world.rows[y]return r and r[x]end
local big=s>=12
for ty=ty0,ty1 do
local row=world.rows[ty]
if row then
for tx,c in pairs(row)do
if tx>=tx0 and tx<=tx1 then
if c.t=="dust"then
local m=0
for d=0,3 do if get(tx+R.DX[d],ty+R.DY[d])then m=m|(1<<d)end end
c.mask=m
end
local bg=tileBg(tx,ty)
local x,y=cellX(tx),cellY(ty)
gfx.blit(sprite(c,s,bg),s,s//2,x,y)
if big and c.t=="dust"and c.p>0 then
local txt=tostring(c.p)
gfx.text(x+s//2-1,y+s//4,txt,c.p>9 and 0xFFFFFF or 0xFFDBBF,dustColor(c.p))
elseif big and c.t=="repeater"and s>=16 then
gfx.text(x+s-3,y+s//2-1,tostring(c.d),0x383838,0xC0BFBC)
end
end
end
end
end

local x1,y1,x2,y2=selRect()
if x1 then
local cx,cy=cellX(x1),cellY(y1)
local wpx,hpx=(x2-x1+1)*s,(y2-y1+1)*s
gfx.blend(cx,cy,wpx,hpx//2,t.accent,0.22)
local px0,py0=ax+x1*s-camX,1+y1*s-camY
local px1,py1=px0+wpx-1,py0+hpx-1
gfx.pline(px0,py0,px1,py0,t.accent);gfx.pline(px0,py1,px1,py1,t.accent)
gfx.pline(px0,py0,px0,py1,t.accent);gfx.pline(px1,py0,px1,py1,t.accent)
end

local sp=st.stamp
if sp then
local pw,ph=R.size(sp.pat)
gfx.blend(cellX(sp.x),cellY(sp.y),pw*s,ph*s//2,t.accent,0.3)
for _,e in ipairs(sp.pat)do
local c=R.cell(e[3],e[4])
if e[5]then c.d=e[5]end
if e[6]then c.m=e[6]end
if c.t=="dust"then c.mask=15 end
local tx,ty=sp.x+e[1],sp.y+e[2]
gfx.blit(sprite(c,s,tileBg(tx,ty)),s,s//2,cellX(tx),cellY(ty))
end
local px0,py0=ax+sp.x*s-camX-1,1+sp.y*s-camY-1
local px1,py1=px0+pw*s+1,py0+ph*s+1
for i=px0,px1,2 do gfx.pset(i,py0,t.accent);gfx.pset(i,py1,t.accent)end
for i=py0,py1,2 do gfx.pset(px0,i,t.accent);gfx.pset(px1,i,t.accent)end
end

if st.cur and not sp then
local px0,py0=ax+st.cur[1]*s-camX-1,1+st.cur[2]*s-camY-1
local px1,py1=px0+s+1,py0+s+1
local col=0xFFDB40
gfx.pline(px0,py0,px1,py0,col);gfx.pline(px0,py1,px1,py1,col)
gfx.pline(px0,py0,px0,py1,col);gfx.pline(px1,py0,px1,py1,col)
end

if world.n==0 and not sp then
local l1="An empty sheet — it goes on forever."
local l2="Pick a part on the left and click here, or open Templates ▾"
local cy=1+ah//2
gfx.text(ax+(aw-unicode.len(l1))//2,cy-1,l1,dark and 0x9A9996 or 0x77767B)
gfx.text(ax+(aw-unicode.len(l2))//2,cy,l2,dark and 0x77767B or 0x9A9996)
end
gfx.popClip()
end

local function drawStatus(w,cw,ch)
local t=Y.theme
gfx.fill(1,ch,cw,1,t.header)
local left
if st.stamp then
left="▣ "..(st.stamp.name or"Stamp")..": drag it into place and release · R rotate · Esc cancel"
if st.stamp.info then left=left.." · "..st.stamp.info end
elseif st.cur then
left=st.cur[1]..", "..st.cur[2].."  "..R.describe(world:get(st.cur[1],st.cur[2]))
else left="Redstone Lab"end
local right=(st.run and"▶ "or"▮▮ ").."tick "..world.tick.." · "..SPEEDS[st.speed].." t/s · "..world.n.." parts · "
local zl=st.s.." px"
local rw=unicode.len(right)+unicode.len(zl)+8
gfx.text(2,ch,ui.trunc(left,cw-rw-3),t.fg)
local x=cw-rw+1
gfx.text(x,ch,right,st.run and t.success or t.dim)
x=x+unicode.len(right)
gfx.text(x,ch,"−",t.fg);ui.hit(w,x-1,ch,3,1,function()zoomTo(zoomIndex()-1)end)
gfx.text(x+2,ch,zl,t.dim)
x=x+3+unicode.len(zl)
gfx.text(x,ch,"+",t.fg);ui.hit(w,x-1,ch,3,1,function()zoomTo(zoomIndex()+1)end)
if st.stamp then
ui.hit(w,1,ch,2,1,function()cancelStamp()end)
end
end

function win.draw(w,cw,ch)
ax,aw,ah=SIDE+1,cw-SIDE,ch-1
if not st.centered then
st.centered=true
if not st.viewSet then center()end
if st.fitOnOpen then fit();st.fitOnOpen=nil end
end
drawSidebar(w,ch-1)
drawCanvas(w,cw,ch)
drawStatus(w,cw,ch)
end


function win.touch(w,lx,ly,btn,kind)
local g=st.gesture
if kind=="touch"then
if lx<=SIDE or ly>=ah+1 then st.gesture=nil return end
local tx,ty,px,py=tileAt(lx,ly)
g={btn=btn,lx=lx,ly=ly,tx=tx,ty=ty,camX=st.camX,camY=st.camY,moved=false}
st.gesture=g
if btn~=0 or st.tool=="hand"then return end
st.cur={tx,ty}
if st.stamp then
local pw,ph=R.size(st.stamp.pat)
st.stamp.x,st.stamp.y=tx-pw//2,ty-ph//2
g.stamp=true
elseif st.tool=="select"then
st.sel={tx,ty,tx,ty}
else
apply(tx,ty,false)
end
return
end
if not g then return end
local tx,ty=tileAt(lx,ly)
if kind=="drag"then
if lx~=g.lx or ly~=g.ly then g.moved=true end
if g.btn~=0 or st.tool=="hand"then
st.camX=g.camX-(lx-g.lx)
st.camY=g.camY-(ly-g.ly)*2
return
end
if g.stamp then
local pw,ph=R.size(st.stamp.pat)
st.stamp.x,st.stamp.y=tx-pw//2,ty-ph//2
elseif st.tool=="select"then
if st.sel then st.sel[3],st.sel[4]=tx,ty end
elseif PAINT[st.tool]then
stroke(g.tx,g.ty,tx,ty)
g.tx,g.ty=tx,ty
elseif g.placed and(tx~=g.tx or ty~=g.ty)and R.DIRECTIONAL[g.placed.t]then

local dx,dy=tx-g.tx,ty-g.ty
local f
if math.abs(dx)>=math.abs(dy)then f=dx>0 and 1 or 3 else f=dy>0 and 2 or 0 end
g.placed.f,g.placed.sig=f,nil
st.facing=f
world.dirty=true
end
st.cur={tx,ty}
return
end
if kind=="drop"then
st.gesture=nil
if g.btn~=0 or st.tool=="hand"then
if not g.moved then
if g.btn==0 then
local c=world:get(g.tx,g.ty)
st.cur={g.tx,g.ty}
if c then interact(c)end
else
st.cur={g.tx,g.ty}
contextMenu(g.lx,g.ly,g.tx,g.ty)
end
end
return
end
if g.stamp then placeStamp()end
end
end

function win.scroll(w,lx,ly,dir)
if lx<=SIDE then return end
if Y.mods.shift()then st.camX=st.camX-dir*st.s*2;return end
if Y.mods.ctrl()then st.camY=st.camY-dir*st.s*2;return end
local _,_,px,py=tileAt(lx,ly)
zoomTo(zoomIndex()+(dir>0 and 1 or-1),px,py)
end

function win.key(w,char,code)
local K=Y.K
if Y.mods.ctrl()then
if code==0x2C then undo()
elseif code==0x15 then redo()
elseif code==K.s then save()
elseif code==0x18 then openDialog()
elseif code==0x31 then confirmDiscard(newSheet)
elseif code==K.a then local x1,y1,x2,y2=world:bounds()if x1 then st.tool="select";st.sel={x1,y1,x2,y2}end
elseif code==K.c then copySel()
elseif code==0x2D then if copySel()then deleteSel();st.sel=nil end
elseif code==K.v then if st.clip then startStamp(st.clip,"Clipboard")end end
return
end
if code==K.esc then if st.stamp then cancelStamp()else st.sel=nil end
elseif code==K.enter and st.stamp then placeStamp()
elseif code==K.space then setRun(not st.run)
elseif code==K.f1 then showHelp()
elseif code==K.home then fit()
elseif code==K.del or code==K.back then if st.sel then deleteSel();st.sel=nil end
elseif code==K.left then pan(-4,0)elseif code==K.right then pan(4,0)
elseif code==K.up then pan(0,-4)elseif code==K.down then pan(0,4)
elseif char==46 or char==110 then if st.run then setRun(false)end world:step()
elseif char==43 or char==61 then zoomTo(zoomIndex()+1)
elseif char==45 then zoomTo(zoomIndex()-1)
elseif char==114 or char==82 then rotateAny()
elseif char==119 then pan(0,-4)elseif char==97 then pan(-4,0)
elseif char==115 then pan(0,4)elseif char==100 then pan(4,0)
elseif char==116 then templatesMenu(win.x+40,win.y+1)
elseif HOTKEY[char]then st.tool=HOTKEY[char];cancelStamp();if st.tool~="select"then st.sel=nil end
end
end

function win.tick(w)
if not st.run then return end
local changed=false
for _=1,st.steps or 1 do if world:step()then changed=true end end
if changed or world.tick%10<(st.steps or 1)then Y.redraw(w)end
end

function win.onclose(w)
if not st.dirty then return true end
Y.dialog{title="Save the circuit before closing?",text="Unsaved changes will be lost.",
buttons={{"Cancel"},{"Close without Saving",function()Y.closeWin(w,true)end,"destructive"},
{"Save",function()save(nil,function()Y.closeWin(w,true)end)end,"suggested"}}}
return false
end


win.api={state=st,world=function()return world end,stamp=startStamp,place=placeStamp,fit=fit,zoom=zoomTo}
setSpeed(st.speed)
if path and fs.exists(path)and not fs.isDirectory(path)then
load(path)
else
if path then st.path=path end
setTitle()
end
return win
end

return M
F 2864 /usr/share/yaru/apps/redstone.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local component=require("component")
local unicode=require("unicode")
local M={}
local SIDES={{0,"Bottom"},{1,"Top"},{2,"Back"},{3,"Front"},{4,"Right"},{5,"Left"}}
local COLORS={0xF0F0F0,0xEB8844,0xC354CD,0x6689D3,0xDECF2A,0x41CD34,0xD88198,0x434343,
0xABABAB,0x287697,0x7B2FBE,0x253192,0x51301A,0x3B511A,0xB3312C,0x1E1B1B}
local CNAMES={"white","orange","magenta","light blue","yellow","lime","pink","gray",
"silver","cyan","purple","blue","brown","green","red","black"}

function M.open()
local st={dev=1,side=1}
local win=Y.newWindow{app="redstone",title="Redstone",w=76,h=26,minW=60,minH=16}
local function devices()
local r={}
for addr in component.list("redstone")do r[#r+1]=component.proxy(addr)end
return r
end
function win.draw(w,cw,ch)
local t=Y.theme
local devs=devices()
local rs=devs[st.dev]or devs[1]
if not rs then
Y.drawIcon((cw-8)//2,ch//2-5,"redstone")
local s="No redstone card or redstone I/O block found"
gfx.text((cw-unicode.len(s))//2,ch//2,s,t.dim)
return
end

local x=2
for i,d in ipairs(devs)do
x=x+ui.button(w,x,1,d.address:sub(1,6),function()st.dev=i end,i==st.dev and"suggested"or nil)+1
end
gfx.text(2,3,"Side",t.dim);gfx.text(12,3,"Input",t.dim);gfx.text(36,3,"Output",t.dim)
for i,sd in ipairs(SIDES)do
local y=3+i*2
local ok,inp=pcall(rs.getInput,sd[1])
local _,out=pcall(rs.getOutput,sd[1])
inp,out=ok and inp or 0,out or 0
if st.side==i then ui.round(1,y,cw-2,1,t.dark and 0x383838 or 0xEBEBEB)end
gfx.text(2,y,sd[2],t.fg)
ui.progress(12,y,16,inp/15,0xFF2400)
gfx.text(29,y,string.format("%2d",inp),inp>0 and 0xFF4940 or t.dim)
ui.switch(w,36,y,out>0,function()pcall(rs.setOutput,sd[1],out>0 and 0 or 15)end)
ui.button(w,44,y,"−",function()pcall(rs.setOutput,sd[1],math.max(0,out-1))end,nil,3)
gfx.text(48,y,string.format("%2d",out),t.fg)
ui.button(w,51,y,"+",function()pcall(rs.setOutput,sd[1],math.min(15,out+1))end,nil,3)
ui.hit(w,1,y,34,1,function()st.side=i end)
end

if rs.getBundledOutput then
local sd=SIDES[st.side]
local y=18
gfx.text(2,y,"Bundled cable · "..sd[2],t.fg)
for c=0,15 do
local ok,v=pcall(rs.getBundledOutput,sd[1],c)
local _,vin=pcall(rs.getBundledInput,sd[1],c)
local bx,by=2+(c%8)*9,y+2+(c//8)*2
local on=ok and v and v>0
ui.pill(bx,by,7,on and COLORS[c+1]or(t.dark and 0x383838 or 0xDEDDDA))
gfx.text(bx+1,by,ui.trunc(CNAMES[c+1],5),on and(c==0 or c==4 or c==8)and 0x000000 or(on and 0xFFFFFF or t.dim))
if vin and vin>0 then gfx.text(bx+7,by,"•",COLORS[c+1])end
ui.hit(w,bx,by,7,1,function()pcall(rs.setBundledOutput,sd[1],c,on and 0 or 255)end)
end
end
end
function win.onSignal(name)if name=="redstone_changed"then Y.redraw(win)end end
function win.key(w,char,code)
if code==Y.K.down then st.side=math.min(6,st.side+1)elseif code==Y.K.up then st.side=math.max(1,st.side-1)end
end
return win
end

return M
F 3410 /usr/share/yaru/apps/scanner.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local component=require("component")
local unicode=require("unicode")
local M={}
local R=16

local function colorOf(h)
if h==nil then return 0x1E1E1E end
if h==0 then return 0x0F0F0F end
if h<0 then return 0x2D2D2D end
if h<0.4 then return 0x33B640 end
if h<1.0 then return 0x996D40 end
if h<2.2 then return 0x787878 end
if h<5.5 then return 0xFFDB40 end
if h<40 then return 0x6649BF end
return 0x330080
end

function M.open()
local st={layer=-1,map={},ore=nil,mode="layer"}
local win=Y.newWindow{app="scanner",title="Terrain Scanner",w=96,h=26,fixed=true}
local geo=component.isAvailable("geolyzer")and component.geolyzer
local function scanLayer(y,into)
for bz=0,3 do for bx=0,3 do
local ox,oz=-R+bx*8,-R+bz*8
local ok,data=pcall(geo.scan,ox,oz,y,8,8,1)
if ok and data then
for z=0,7 do for x=0,7 do into(ox+x,oz+z,data[1+x+z*8])end end
end
end end
end
local function run(mode)
if not geo or st.busy then return end
st.busy,st.mode,st.done=true,mode,0
require("thread").create(function()
if mode=="layer"then
st.map={}
scanLayer(st.layer,function(x,z,h)st.map[(z+R)*64+x+R+1]=h end)
else
st.ore={}
for y=-1,-24,-1 do
scanLayer(y,function(x,z,h)
if h and h>=2.5 and h<5.5 then
local k=(z+R)*64+x+R+1
st.ore[k]=(st.ore[k]or 0)+1
end
end)
st.done=-y
Y.redraw(win);os.sleep(0)
end
end
st.busy=false
Y.redraw(win)
end):detach()
end
function win.draw(w,cw,ch)
local t=Y.theme
if not geo then
Y.drawIcon((cw-8)//2,ch//2-5,"scanner")
local s="Needs a geolyzer (block next to the computer, or upgrade in a robot/tablet)"
gfx.text((cw-unicode.len(s))//2,ch//2,s,t.dim)
return
end

local mx,my=2,1
for zz=0,2*R-1,2 do
for x=0,2*R-1 do
local a,b
if st.mode=="ore"and st.ore then
local oa,ob=st.ore[zz*64+x+1],st.ore[(zz+1)*64+x+1]
a=oa and(oa>2 and 0xFFB600 or 0xFFDB80)or 0x2D2D2D
b=ob and(ob>2 and 0xFFB600 or 0xFFDB80)or 0x2D2D2D
else
a,b=colorOf(st.map[zz*64+x+1]),colorOf(st.map[(zz+1)*64+x+1])
end
gfx.fill(mx+x*2,my+zz//2,2,1,b,a,"▀")
end
end

gfx.text(mx+R*2,my+R//2,"◆",0xFF2400)
local x=mx+4*R+3
gfx.text(x,1,st.mode=="ore"and"Ore finder (24 layers below)"or("Layer "..st.layer.." (relative)"),t.fg)
if st.busy then gfx.text(x,2,st.mode=="ore"and("scanning layer "..(st.done or 0).." / 24…")or"scanning…",t.accent)end
ui.button(w,x,4,"▲",function()st.layer=math.min(32,st.layer+1);run("layer")end,nil,3)
ui.button(w,x+4,4,"▼",function()st.layer=math.max(-32,st.layer-1);run("layer")end,nil,3)
ui.button(w,x+8,4,"Scan Layer",function()run("layer")end,"suggested")
ui.button(w,x,6,"Find Ores Below",function()run("ore")end)
local legend=st.mode=="ore"and{{0xFFB600,"ore in 3+ layers"},{0xFFDB80,"ore in 1–2 layers"},{0x2D2D2D,"nothing found"}}
or{{0x0F0F0F,"air"},{0x33B640,"plants, leaves"},{0x996D40,"dirt, sand, wood"},{0x787878,"stone"},
{0xFFDB40,"ore (hardness ~3)"},{0x6649BF,"hard blocks"},{0x330080,"obsidian"},{0x2D2D2D,"bedrock"}}
for i,l in ipairs(legend)do
gfx.fill(x,8+i,2,1,l[1])
gfx.text(x+3,8+i,l[2],t.dim)
end
gfx.text(x,ch-2,"North is up, ◆ = geolyzer.",t.dim)
gfx.text(x,ch-1,"Far blocks are noisier",t.dim)
gfx.text(x,ch,"(geolyzer accuracy).",t.dim)
end
function win.key(w,char,code)
if code==Y.K.up then st.layer=math.min(32,st.layer+1);run("layer")
elseif code==Y.K.down then st.layer=math.max(-32,st.layer-1);run("layer")end
end
if geo then run("layer")end
return win
end

return M
F 2457 /usr/share/yaru/apps/scheduler.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local T=require("yaru.tasks")
local unicode=require("unicode")
local M={}
local PRESETS={{"every 5","Every 5 minutes"},{"every 30","Every 30 minutes"},{"every 60","Every hour"},
{"at 09:00","Daily at 09:00"},{"login","At login"}}

function M.open()
local st={list=T.load()}
local win=Y.newWindow{app="scheduler",title="Scheduled Tasks",w=92,h=26,minW=64,minH=12}
local function save()T.save(st.list)end
local function add()
Y.dialog{title="New Task",text="Command to run (as in Terminal)",entry="backup",buttons={{"Cancel"},{"Next",function(cmd)
if not cmd or cmd==""then return end
local items={}
for _,p in ipairs(PRESETS)do
items[#items+1]={p[2],function()
st.list[#st.list+1]={name=cmd:match("^%S+"),cmd=cmd,when=p[1],on=true,notify=true}
save()
end}
end
items[#items+1]={"Custom…",function()
Y.dialog{title="Schedule",text="“every N” (minutes), “at HH:MM” or “login”",entry="every 15",
buttons={{"Cancel"},{"Add",function(w2)
if w2 and(w2:match("^every %d+$")or w2:match("^at %d%d?:%d%d$")or w2=="login")then
st.list[#st.list+1]={name=cmd:match("^%S+"),cmd=cmd,when=w2,on=true,notify=true}
save()
else Y.notify("Scheduled Tasks","Unknown schedule: "..tostring(w2))end
end,"suggested"}}}
end}
Y.menu(win.x+20,win.y+4,items)
end,"suggested"}}}
end
function win.header(w,hw)ui.button(w,2,1,"+ Add Task",add,"suggested")end
function win.draw(w,cw,ch)
local t=Y.theme
st.list=T.load()
if#st.list==0 then
Y.drawIcon((cw-8)//2,ch//2-6,"scheduler")
local s="No tasks. Add one, e.g. `backup` every hour or a redstone script at 18:00."
gfx.text((cw-unicode.len(s))//2,ch//2,s,t.dim)
return
end
for i,task in ipairs(st.list)do
local y=1+(i-1)*3
if y+2>ch then break end
ui.round(2,y,cw-3,2,t.card)
gfx.text(4,y,ui.trunc(task.name.."  ·  "..T.describe(task),cw-40),t.fg,t.card)
gfx.text(4,y+1,ui.trunc("$ "..task.cmd,cw-40),t.dim,t.card)
local res=task.result or"never run"
gfx.text(cw-34,y+1,ui.trunc(res,14),res:match("^failed")and t.danger or t.dim,t.card)
ui.switch(w,cw-34,y,task.on,function()task.on=not task.on;save()end)
ui.button(w,cw-19,y,"Run",function()T.run(Y,task);save()end,nil,7)
ui.button(w,cw-11,y,"Delete",function()table.remove(st.list,i);save()end,"flat",8)
end
gfx.text(2,ch,"Runs while the desktop is running · output appended to /tmp/tasks.log",t.dim)
end
win.tickInterval=5
function win.tick(w)Y.redraw(w)end
return win
end

return M
F 3676 /usr/share/yaru/apps/search.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local unicode=require("unicode")
local M={}
local SKIP={["/dev"]=true,["/proc"]=true}

function M.open(root)
local st={q={text="",cur=0},root=root or"/",content=false,results={},sel=1,top=0}
local win=Y.newWindow{app="search",title="Search",w=90,h=28,minW=50,minH=12}
local gen=0
local function run()
local q=unicode.lower(st.q.text)
if q==""then return end
gen=gen+1
local my=gen
st.results,st.sel,st.top,st.busy,st.scanned={},1,0,true,0
require("thread").create(function()
local function visit(dir)
if my~=gen or SKIP[dir]then return end
for name in fs.list(dir)do
if my~=gen then return end
local isDir=name:sub(-1)=="/"
local n=isDir and name:sub(1,-2)or name
local p=fs.concat(dir,n)
st.scanned=st.scanned+1
if st.scanned%40==0 then Y.redraw(win);os.sleep(0)end
if unicode.lower(n):find(q,1,true)then st.results[#st.results+1]={path=p,dir=isDir}end
if isDir then
if not fs.isLink(p)then visit(p)end
elseif st.content and(fs.size(p)or 0)<65536 then
local f=io.open(p)
if f then
local ln=0
for line in f:lines()do
ln=ln+1
if unicode.lower(line):find(q,1,true)then
st.results[#st.results+1]={path=p,line=ln,text=line:gsub("^%s+","")}
break
end
end
f:close()
end
end
if#st.results>=300 then gen=gen+1 end
end
end
pcall(visit,fs.canonical(st.root))
if my==gen or#st.results>=300 then st.busy=false end
Y.redraw(win)
end):detach()
end
local function open(r)
if not r then return end
if r.dir then Y.launch("files",r.path)
elseif r.path:match("%.pic$")then Y.launch("viewer",r.path)
else Y.launch("editor",r.path)end
end
function win.draw(w,cw,ch)
local t=Y.theme
ui.entry(w,st.q,2,1,cw-36,Y.focus==w,"File name"..(st.content and" or text inside files"or""))
ui.button(w,cw-33,1,"in "..ui.trunc(st.root,10),function()
Y.dialog{title="Search In",entry=st.root,buttons={{"Cancel"},{"Set",function(p)
if p and fs.isDirectory(p)then st.root=p end end,"suggested"}}}
end,nil,15)
gfx.text(cw-16,1,"Contents",t.fg)
ui.switch(w,cw-7,1,st.content,function()st.content=not st.content end)
local status=st.busy and string.format("Searching… %d items checked, %d found",st.scanned,#st.results)
or(#st.results>0 and string.format("%d result%s",#st.results,#st.results==1 and""or"s")or(st.scanned and"Nothing found"or"Type and press Enter"))
gfx.text(2,3,status,t.dim)
local rows=ch-4
if st.sel-1<st.top then st.top=st.sel-1 end
if st.sel>st.top+rows then st.top=st.sel-rows end
for i=1,rows do
local r=st.results[st.top+i]
if not r then break end
local y=3+i
local sel=st.top+i==st.sel
if sel then ui.select(1,y,cw-1,t.sel)end
local fg=sel and t.selFg or t.fg
gfx.text(3,y,r.dir and"▆"or r.line and"≡"or"□",sel and fg or(r.dir and 0xE9AD0C or t.dim))
local name=fs.name(r.path)
gfx.text(5,y,ui.trunc(name,30),fg)
local rest=r.line and(r.line..": "..r.text)or fs.path(r.path)
gfx.text(37,y,ui.trunc(rest,cw-39),sel and fg or t.dim)
local idx=st.top+i
ui.hit(w,1,y,cw,1,function(_,_,_,btn,dbl)
st.sel=idx
if dbl then open(st.results[idx])end
if btn==1 then Y.menu(w.x+10,w.y+y+1,{{"Open",function()open(st.results[idx])end},
{"Open Folder",function()Y.launch("files",fs.path(st.results[idx].path))end}})end
end)
end
end
function win.key(w,char,code)
local K=Y.K
if code==K.down then st.sel=math.min(#st.results,st.sel+1)return end
if code==K.up then st.sel=math.max(1,st.sel-1)return end
local r=ui.entryKey(st.q,char,code)
if r=="enter"then
if st.results[st.sel]and st.lastQ==st.q.text then open(st.results[st.sel])else st.lastQ=st.q.text;run()end
end
end
function win.paste(w,s)ui.entryPaste(st.q,s)end
function win.cleanup()gen=gen+1 end
return win
end

return M
F 18709 /usr/share/yaru/apps/settings.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local T=require("yaru.theme")
local computer=require("computer")
local component=require("component")
local fs=require("filesystem")
local unicode=require("unicode")

local M={}
local PAGES={
{"appearance","◐ Appearance"},{"display","▭ Displays"},{"sound","♪ Sound"},
{"notifications","• Notifications"},{"power","ϟ Power"},{"privacy","◉ Privacy & Login"},
{"datetime","◷ Date & Time"},{"keyboard","⌨ Keyboard"},{"about","ℹ About"},
}

local function save()Y.saveConfig()end

local function row(w,x,y,width,label,sub)
local t=Y.theme
ui.round(x,y,width,sub and 2 or 1,t.card)
gfx.text(x+1,y,ui.trunc(label,width-12),t.fg,t.card)
if sub then gfx.text(x+1,y+1,ui.trunc(sub,width-12),t.dim,t.card)end
end

local function fitResolution()
local gpu=Y.gpu
local mw,mh=gpu.maxResolution()
local ok,aw,ah=pcall(component.invoke,gpu.getScreen(),"getAspectRatio")
if not ok or not aw then return mw,mh end
local ratio=(aw*2-0.5)/(ah-0.25)
local w,h
if mw/mh>ratio then h=mh;w=math.floor(mh*ratio+.5)else w=mw;h=math.floor(mw/ratio+.5)end
return math.max(50,math.min(mw,w)),math.max(16,math.min(mh,h))
end

local pages={}

function pages.appearance(w,x,y,pw)
local t=Y.theme
gfx.text(x,y,"Style",t.fg);y=y+1
for i,v in ipairs({{"Default",false},{"Dark",true}})do
local bx=x+(i-1)*21
local sel=Y.cfg.dark==v[2]
ui.round(bx,y,19,5,sel and t.accent or t.sep)
local pb=v[2]and 0x242424 or 0xFAFAFA
ui.round(bx+1,y,17,4,pb)
ui.round(bx+4,y+1,11,3,v[2]and 0x383838 or 0xFFFFFF)
gfx.fill(bx+4,y+1,11,1,v[2]and 0x303030 or 0xEBEBEB)
ui.pill(bx+11,y+1,3,Y.theme.accent)
gfx.text(bx+(19-#v[1])//2,y+4,v[1],sel and 0xFFFFFF or t.fg,sel and t.accent or t.sep)
ui.hit(w,bx,y,19,5,function()Y.cfg.dark=v[2];save();Y.applyTheme()end)
end
y=y+7
gfx.text(x,y,"Color",t.fg);y=y+1
for i,a in ipairs(T.accents)do
local bx=x+(i-1)*5
local sel=Y.cfg.accent==a[1]
ui.pill(bx,y,3,a[2])
if sel then gfx.text(bx+1,y,"✓",0xFFFFFF,a[2])end
ui.hit(w,bx,y,3,1,function()Y.cfg.accent=a[1];save();Y.applyTheme()end)
end
gfx.text(x,y+1,"Accent: "..Y.cfg.accent,t.dim)
y=y+3
gfx.text(x,y,"Background",t.fg);y=y+1
local wall=require("yaru.wall")
for i,id in ipairs(wall.order)do
local d=wall.designs[id]
local col,rw=(i-1)%4,(i-1)//4
local bx,by=x+col*17,y+rw*5
local sel=Y.cfg.wallpaper==id
if sel then ui.pill(bx-1,by+3,17,t.accent)end
local ramp=d.ramp
for k=0,14 do
local c1=ramp[math.min(#ramp,1+k*#ramp//15)]
local c2=ramp[math.min(#ramp,1+(k+3)*#ramp//15)]
gfx.fill(bx+k,by,1,1,c1,c2,"▄")
gfx.fill(bx+k,by+1,1,1,c2,ramp[math.min(#ramp,1+(k+6)*#ramp//15)],"▄")
gfx.fill(bx+k,by+2,1,1,ramp[math.min(#ramp,1+(k+6)*#ramp//15)],ramp[math.min(#ramp,1+(k+9)*#ramp//15)],"▄")
end
local label=(sel and"✓ "or"")..d.name
gfx.text(bx+(15-unicode.len(label))//2,by+3,label,sel and 0xFFFFFF or t.dim,sel and t.accent or nil)
ui.hit(w,bx,by,15,4,function()Y.cfg.wallpaper=id;save();Y.applyTheme()end)
end
y=y+11
local pic=type(Y.cfg.wallpaper)=="string"and Y.cfg.wallpaper:sub(1,1)=="/"
ui.button(w,x,y-1,pic and("Picture: "..require("filesystem").name(Y.cfg.wallpaper))or"Picture…",function()
Y.dialog{title="Picture Background",text="Path to a .pic image (e.g. /home/Pictures/Road.pic)",entry=pic and Y.cfg.wallpaper or"/home/Pictures/",
buttons={{"Cancel"},{"Set",function(p)if p and p~=""then Y.cfg.wallpaper=p;save();Y.applyTheme()end end,"suggested"}}}
end,pic and"suggested"or nil)
y=y+2
row(w,x,y,pw,"Desktop icons","Show Home and drives on the desktop")
ui.switch(w,x+pw-6,y,Y.cfg.desktopIcons,function()Y.cfg.desktopIcons=not Y.cfg.desktopIcons;save();Y.redraw()end)
y=y+3
row(w,x,y,pw,"Dock: click to minimize","Clicking a focused app's icon minimizes it")
ui.switch(w,x+pw-6,y,Y.cfg.dockClickMinimize,function()Y.cfg.dockClickMinimize=not Y.cfg.dockClickMinimize;save()end)
end


local function resOptions(mw,mh,fit)
local opts={}
if fit then opts[1]={fit[1],fit[2],"Fit to screen"}end
opts[#opts+1]={mw,mh,"Maximum"}
for _,r in ipairs({{120,40},{100,32},{80,25},{50,16}})do
if r[1]<mw and r[2]<=mh then opts[#opts+1]={r[1],r[2],""}end
end
return opts
end


local function at(w,lx,ly)return w.x-1+lx,w.y+ly end


local BOARD={"monitor","clock","energy","storage","lights","tapes","player","redstone","redlab",
"chat","scanner","camera","holo","terminal","web","notes","viewer","calc"}

local ROLES={{"off","Off"},{"extend","Extend"},{"mirror","Mirror"},{"app","App"}}

function pages.display(w,x,y,pw)
local t=Y.theme
local gpu=Y.gpu
local cw,ch=gpu.getResolution()
local mw,mh=gpu.maxResolution()
local fw,fh=fitResolution()
local infos=Y.displayInfo or{}
local disp=Y.displays or{}
local byAddr={}
for _,d in ipairs(disp)do byAddr[d.addr]=d end

gfx.text(x,y,"Arrangement",t.fg)
ui.button(w,x+pw-12,y,"Identify",function()Y.identify()end)
y=y+1
local CWc=select(1,Y.canvas())
local scale=(pw-2)/math.max(CWc,1)
local maxH=1
for _,d in ipairs(disp)do if d.h>maxH then maxH=d.h end end
local boxH=5
ui.round(x,y,pw,boxH+2,t.card)
local mirrors={}
for _,d in ipairs(disp)do if d.mirror then mirrors[#mirrors+1]=tostring(d.n)end end
for _,d in ipairs(disp)do
if not d.mirror then
local bx=x+1+math.floor(d.x0*scale+0.5)
local bw=math.max(6,math.floor(d.w*scale+0.5)-1)
local bh=math.max(2,math.floor(d.h/maxH*boxH+0.5))
local col=d.app and 0x3D6E9E or(d.n==1 and t.accent or 0x5E5C64)
ui.round(bx,y+1,bw,bh,col)
local name=d.n==1 and"1 Main"or d.app and(d.n.." "..((Y.apps[d.app]or{}).name or d.app))or tostring(d.n)
if d.n==1 and#mirrors>0 then name=name.." = "..table.concat(mirrors,",")end
gfx.text(bx+1,y+1,ui.trunc(name,bw-2),0xFFFFFF,col)
if bh>2 then gfx.text(bx+1,y+bh,ui.trunc(d.w.."x"..d.h,bw-2),0xFFFFFF,col)end
end
end
y=y+boxH+3

ui.round(x,y,pw,3,t.card)
gfx.text(x+1,y,"1",t.accent,t.card)
gfx.text(x+3,y,"Main display",t.fg,t.card)
local spec=string.format("%dx%d • %d-bit",cw,ch,gpu.getDepth())
gfx.text(x+pw-1-unicode.len(spec),y,spec,t.dim,t.card)
gfx.text(x+1,y+1,"Panel, dock and workspaces live here.",t.dim,t.card)
local lbl=string.format("%dx%d ▾",cw,ch)
local bwid=unicode.len(lbl)+4
ui.button(w,x+pw-bwid-1,y+1,lbl,function()
local items={}
for _,o in ipairs(resOptions(mw,mh,{fw,fh}))do
items[#items+1]={string.format("%dx%d  %s",o[1],o[2],o[3]),function()
Y.cfg.resolution={o[1],o[2]};save();Y.setResolution(o[1],o[2])
end,check=o[1]==cw and o[2]==ch}
end
items[#items+1]="-"
items[#items+1]={"Reset to Default",function()Y.cfg.resolution=nil;save();Y.setResolution(mw,mh)end}
local mx,my=at(w,x+pw-bwid-1,y+2)
Y.menu(mx,my,items)
end)
y=y+4

if#infos==0 then
gfx.text(x,y,"Connect another screen to this computer to extend the desktop,",t.dim)
gfx.text(x,y+1,"mirror it, or give an application a screen of its own.",t.dim)
y=y+3
end
for i,info in ipairs(infos)do
local d=byAddr[info.addr]
local c=Y.cfg.displays[info.addr]or{}
ui.round(x,y,pw,3,t.card)
gfx.text(x+1,y,tostring(info.n),t.accent,t.card)
gfx.text(x+3,y,"Screen "..info.addr:sub(1,8),t.fg,t.card)
local sp
if info.problem then sp="! "..info.problem
elseif info.role=="off"then sp="not used"
else sp=string.format("%dx%d • %s",info.w,info.h,info.shared and"shared GPU"or"own GPU")end
gfx.text(x+pw-1-unicode.len(sp),y,ui.trunc(sp,pw-22),info.problem and t.danger or t.dim,t.card)

local rx=x+1
for _,r in ipairs(ROLES)do
local on=info.role==r[1]
local rw=unicode.len(r[2])+4
ui.pill(rx,y+1,rw,on and t.accent or(t.dark and 0x454545 or 0xDEDDDA))
gfx.text(rx+2,y+1,r[2],on and 0xFFFFFF or t.fg)
ui.hit(w,rx,y+1,rw,1,function()
if r[1]=="app"then
local items={}
local seen,H={},select(2,Y.size())
local function add(id)
local a=Y.apps[id]
if a and not a.user and not seen[id]and#items<H-8 then
seen[id]=true
items[#items+1]={a.name,function()Y.setDisplayRole(info.addr,"app",id)end,check=c.app==id and info.role=="app"}
end
end
for _,id in ipairs(BOARD)do add(id)end
for _,id in ipairs(Y.appOrder)do add(id)end
local mx,my=at(w,rx,y+2)
Y.menu(mx,my,items)
elseif r[1]~=info.role then
Y.setDisplayRole(info.addr,r[1])
end
end)
rx=rx+rw+1
end

local right=x+pw-1
if d and not d.mirror and info.maxW then
local l=string.format("%dx%d ▾",info.w,info.h)
local lw=unicode.len(l)+4
right=right-lw
ui.button(w,right,y+1,l,function()
local items={}
for _,o in ipairs(resOptions(info.maxW,info.maxH))do
items[#items+1]={string.format("%dx%d  %s",o[1],o[2],o[3]),function()
c.res={o[1],o[2]};Y.cfg.displays[info.addr]=c;save();Y.setupDisplays()
end,check=o[1]==info.w and o[2]==info.h}
end
local mx,my=at(w,right,y+2)
Y.menu(mx,my,items)
end)
end
if info.role=="extend"or info.role=="app"then

right=right-8
local function move(dir)
local list=Y.screenList()
for k,a in ipairs(list)do if a==info.addr and list[k+dir]then list[k],list[k+dir]=list[k+dir],list[k]break end end
for k,a in ipairs(list)do Y.cfg.displays[a]=Y.cfg.displays[a]or{role="off"};Y.cfg.displays[a].order=k end
save();Y.setupDisplays()
end
ui.button(w,right,y+1,"◀",function()move(-1)end,nil,3)
ui.button(w,right+4,y+1,"▶",function()move(1)end,nil,3)
end
if info.role=="app"and c.app then
local a=Y.apps[c.app]
gfx.text(rx,y+1,"▸ "..ui.trunc(a and a.name or c.app,right-rx-3),t.fg,t.card)
end
local note
if info.shared and info.role~="off"then note="Shares the main GPU: updates slower. A GPU card per screen is faster."
elseif info.role=="mirror"and info.w and(info.w<cw or info.h<ch)then note="Smaller than the main screen: shows its top-left part."
elseif info.role=="app"then note="The app fills this screen; touches there go to it."
elseif info.role=="extend"then note="Move windows here: window menu › Move to Display, or Super+Shift+→."end
if note then gfx.text(x+1,y+2,ui.trunc(note,pw-2),t.dim,t.card)end
y=y+4
end
local frame=Y.stats.lastFrameMs
gfx.text(x,y,string.format("Last frame: %.1f ms Lua, %d GPU runs, %d binds",frame or 0,Y.stats.lastRuns or 0,gfx.stats.binds or 0),t.dim)
gfx.text(x,y+1,"Lower resolutions redraw faster: fewer cells per frame.",t.dim)
end

function pages.sound(w,x,y,pw)
local t=Y.theme
row(w,x,y,pw,"System sounds","Beeps for notifications and errors (computer speaker)")
ui.switch(w,x+pw-6,y,Y.cfg.beeps,function()Y.cfg.beeps=not Y.cfg.beeps;save()end)
y=y+3
ui.button(w,x,y,"Test Sound",function()computer.beep(880,0.1);computer.beep(1320,0.1)end)
y=y+2
local nb=component.isAvailable("note_block")or component.isAvailable("iron_noteblock")
local sound=component.isAvailable("sound")
gfx.text(x,y,"Output devices",t.fg);y=y+1
gfx.text(x,y,"• Computer speaker (beep)",t.dim);y=y+1
if nb then gfx.text(x,y,"• Note block / iron note block",t.dim);y=y+1 end
if sound then gfx.text(x,y,"• Sound card",t.dim);y=y+1 end
end

function pages.notifications(w,x,y,pw)
local t=Y.theme
row(w,x,y,pw,"Do Not Disturb","Only urgent notifications show banners")
ui.switch(w,x+pw-6,y,Y.cfg.dnd,function()Y.cfg.dnd=not Y.cfg.dnd;save();Y.redraw()end)
y=y+3
ui.button(w,x,y,"Send Test Notification",function()Y.notify("Test notification","Hello from Settings")end)
ui.button(w,x+26,y,"Clear History ("..#Y.notifs..")",function()Y.notifs={};Y.unread=false;Y.redraw()end)
y=y+2
gfx.text(x,y,"From a shell or program:  notify-send \"Title\" \"Body\"",t.dim)
gfx.text(x,y+1,"or  computer.pushSignal(\"yaru_notify\", title, body)",t.dim)
end

function pages.power(w,x,y,pw)
local t=Y.theme
local e,me=computer.energy(),computer.maxEnergy()
gfx.text(x,y,"Energy",t.fg)
gfx.text(x,y+1,string.format("%.0f / %.0f  (%d%%)",e,me,me>0 and math.floor(e*100/me)or 0),t.dim)
gfx.fill(x,y+2,pw,1,t.sep)
if me>0 then gfx.fill(x,y+2,math.floor(pw*e/me),1,t.success)end
y=y+4
gfx.text(x,y,"Screen Blank (locks the session)",t.fg);y=y+1
for i,m in ipairs({0,1,5,10,15})do
ui.radio(w,x+(i-1)*12,y,(Y.cfg.blank or 0)==m,m==0 and"Never"or(m.." min"),function()Y.cfg.blank=m;save()end)
end
y=y+2
gfx.text(x,y,"Power saving (always on):",t.fg);y=y+1
for _,s in ipairs({"• the desktop sleeps in event.pull until input, a timer, or the next clock minute",
"• only changed screen cells are sent to the GPU; unfocused terminals stop blinking",
"• app code is unloaded when its last window closes; shell popups are loaded on demand"})do
gfx.text(x,y,ui.trunc(s,pw),t.dim);y=y+1
end
y=y+1
ui.button(w,x,y,"Restart…",function()Y.lazy("quick").powerDialog()end)
end

function pages.privacy(w,x,y,pw)
local t=Y.theme
row(w,x,y,pw,"Start desktop at boot","Hold any key during boot for the text shell")
ui.switch(w,x+pw-6,y,Y.cfg.autostart,function()Y.cfg.autostart=not Y.cfg.autostart;save()end)
y=y+3
row(w,x,y,pw,"Automatic login","Skip the login screen when no password is set")
ui.switch(w,x+pw-6,y,Y.cfg.autologin,function()Y.cfg.autologin=not Y.cfg.autologin;save()end)
y=y+3
row(w,x,y,pw,"Password",Y.cfg.password and"Set (SHA-256, salted)"or"Not set: anyone can unlock")
y=y+3
ui.button(w,x,y,Y.cfg.password and"Change Password…"or"Set Password…",function()
Y.dialog{title="New Password",entry="",mask=true,buttons={{"Cancel"},{"Save",function(pw1)
if not pw1 or pw1==""then return end
Y.dialog{title="Confirm Password",entry="",mask=true,buttons={{"Cancel"},{"Save",function(pw2)
if pw1~=pw2 then return Y.notify("Password","Passwords do not match")end
Y.cfg.password=require("yaru.sha256").make(pw1);save()
Y.notify("Password","Password set")
end,"suggested"}}}
end,"suggested"}}}
end,"suggested")
if Y.cfg.password then
ui.button(w,x+22,y,"Remove Password",function()Y.cfg.password=nil;save()end,"destructive")
end
y=y+2
ui.button(w,x,y,"Lock Screen  (Super+L)",function()Y.lazy("lock").open(Y.cfg.password~=nil)end)
y=y+2
gfx.text(x,y,"Note: anyone with physical access can boot another disk; the password protects",t.dim)
gfx.text(x,y+1,"an unattended session, not the data on the drive.",t.dim)
end

function pages.datetime(w,x,y,pw)
local t=Y.theme
gfx.text(x,y,Y.date("%A, %B %d %Y   %H:%M:%S"),t.fg)
y=y+2
row(w,x,y,pw,"Real-world time","Use the host's clock (via file timestamps) instead of Minecraft time")
ui.switch(w,x+pw-6,y,Y.cfg.clockReal,function()Y.cfg.clockReal=not Y.cfg.clockReal;save();Y.redraw()end)
y=y+3
row(w,x,y,pw,"Time zone",string.format("UTC%+g",Y.cfg.tz or 0))
ui.button(w,x+pw-12,y,"−",function()Y.cfg.tz=math.max(-12,(Y.cfg.tz or 0)-0.5);save();Y.redraw()end,nil,4)
ui.button(w,x+pw-7,y,"+",function()Y.cfg.tz=math.min(14,(Y.cfg.tz or 0)+0.5);save();Y.redraw()end,nil,4)
y=y+3
row(w,x,y,pw,"Weekday in top bar")
ui.switch(w,x+pw-6,y,Y.cfg.clockWeekday,function()Y.cfg.clockWeekday=not Y.cfg.clockWeekday;save();Y.redraw()end)
y=y+2
row(w,x,y,pw,"Seconds in top bar","Wakes the desktop every second")
ui.switch(w,x+pw-6,y,Y.cfg.clockSeconds,function()Y.cfg.clockSeconds=not Y.cfg.clockSeconds;save();Y.redraw()end)
end

local SHORTCUTS={
{"Super","Activities overview"},{"Super+A","Show applications"},{"Alt+F2","Run a command"},
{"Alt+Tab / Super+Tab / Ctrl+Tab","Switch windows"},{"Alt+F4","Close window"},{"Alt+F10 / Super+↑","Maximize"},
{"Super+← / →","Tile left / right"},{"Super+↓ / Super+H","Restore / minimize"},{"Super+D / Ctrl+Alt+D","Show desktop"},
{"Ctrl+Alt+← / →, Super+PgUp/PgDn","Switch workspace (+Shift: move window)"},{"Ctrl+Alt+T / Super+T","Terminal"},
{"Super+E","Home folder"},{"Super+V","Notifications & calendar"},{"Super+S","Quick settings"},
{"Super+L","Lock screen"},{"Ctrl+Alt+Del","Log out / power off"},{"Print Screen","Screenshot (text) to ~/Pictures"},
{"Ctrl+Shift+V / Ctrl+Shift+T","Terminal: paste / new window"},
}
function pages.keyboard(w,x,y,pw,ph)
local t=Y.theme
gfx.text(x,y,"Keyboard Shortcuts",t.fg)
gfx.text(x,y+1,"Tip: the host OS may take Alt+Tab or Super; use Ctrl+Tab / Ctrl+Alt instead.",t.dim)
y=y+3
for i,s in ipairs(SHORTCUTS)do
if y>=ph then break end
gfx.fill(x,y,pw,1,i%2==0 and t.bg or t.card)
gfx.text(x+1,y,ui.trunc(s[2],pw//2-2),t.fg)
gfx.text(x+pw//2,y,ui.trunc(s[1],pw-pw//2-1),t.dim)
y=y+1
end
end

function pages.about(w,x,y,pw)
local t=Y.theme
local logo={"  ▄▄▄  "," █ ○ █ ","  ▀▀▀  "}
for i,l in ipairs(logo)do gfx.text(x+(pw-7)//2,y+i-1,l,t.accent)end
y=y+4
local host=os.getenv("HOSTNAME")or"openos"
local lines={}
local function add(k,v)lines[#lines+1]={k,v}end
add("Device Name",host)
add("OS",(_OSVERSION or"OpenOS").." + Yaru desktop")
add("Architecture",computer.getArchitecture and computer.getArchitecture()or"Lua")
local tot,free=computer.totalMemory(),computer.freeMemory()
add("Memory",string.format("%s total, %s free",ui.size(tot),ui.size(free)))
local gpu=Y.gpu
local mw,mh=gpu.maxResolution()
add("Graphics",string.format("GPU tier %d (%dx%d, %d-bit)",mw>=160 and 3 or mw>=80 and 2 or 1,mw,mh,gpu.getDepth()))
local root=fs.get("/")
if root then add("Disk",string.format("%s of %s used%s",ui.size(root.spaceUsed()),ui.size(root.spaceTotal()),root.isReadOnly()and" (read-only)"or""))end
local n=0
for _ in component.list()do n=n+1 end
add("Components",tostring(n))
add("Uptime",string.format("%d min",computer.uptime()//60))
add("Address",computer.address():sub(1,13).."…")
for _,l in ipairs(lines)do
gfx.fill(x,y,pw,1,t.card)
gfx.text(x+1,y,l[1],t.fg,t.card)
gfx.text(x+pw-1-unicode.len(l[2]),y,ui.trunc(l[2],pw-16),t.dim,t.card)
y=y+1
end
y=y+1
ui.button(w,x,y,"Rename Device…",function()
Y.dialog{title="Rename Device",entry=host,buttons={{"Cancel"},{"Rename",function(txt)
if not txt or txt==""or txt:find("[%s/]")then return end
local f=io.open("/etc/hostname","w")if f then f:write(txt);f:close()end
os.setenv("HOSTNAME",txt)
Y.notify("Device renamed","New terminals will show "..txt)
end,"suggested"}}}
end)
ui.button(w,x+18,y,"System Monitor",function()Y.launch("monitor")end)
end

function M.open(page)
local existing=Y.windowsOf("settings")[1]
local st
if existing then
st=existing.state
if page then st.page=page end
Y.focusWin(existing)
return existing
end
st={page=page or"appearance"}
local win=Y.newWindow{app="settings",title="Settings",w=100,h=36,minW=70,minH=18,state=st}
local SIDE=22
function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,SIDE,ch,t.sidebar)
for i,p in ipairs(PAGES)do
local sel=st.page==p[1]
local yy=i*2
if sel then ui.select(2,yy,SIDE-2,t.dark and 0x454545 or 0xDEDDDA)end
gfx.text(4,yy,p[2],t.fg)
ui.hit(w,1,yy,SIDE,1,function()st.page=p[1]end)
end
local x=SIDE+3
local pw=math.min(cw-SIDE-4,72)
for _,p in ipairs(PAGES)do if p[1]==st.page then w.title=p[2]:gsub("^%S+ ","")end end
w.tickInterval=(st.page=="datetime"or st.page=="power")and 1 or nil
local fn=pages[st.page]or pages.appearance
fn(w,x,2,pw,ch)
end
function win.key(w,char,code)
local K=Y.K
local idx=1
for i,p in ipairs(PAGES)do if p[1]==st.page then idx=i end end
if code==K.down then idx=math.min(#PAGES,idx+1)elseif code==K.up then idx=math.max(1,idx-1)end
st.page=PAGES[idx][1]
end

function win.tick(w)if st.page=="datetime"or st.page=="power"then Y.redraw(w)end end
return win
end

return M
F 4254 /usr/share/yaru/apps/storage.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local component=require("component")
local unicode=require("unicode")
local M={}
local SIDES={[0]="Bottom","Top","North","South","West","East"}

function M.open()
local st={side=nil,items={},sel=1,top=0,q={text="",cur=0},inv={}}
local win=Y.newWindow{app="storage",title="Storage",w=96,h=30,minW=64,minH=14}
local tp=component.isAvailable("transposer")and component.transposer
local function scanSides()
st.inv={}
if not tp then return end
for s=0,5 do
local ok,size=pcall(tp.getInventorySize,s)
if ok and size then
local _,name=pcall(tp.getInventoryName,s)
st.inv[#st.inv+1]={side=s,size=size,name=type(name)=="string"and name:gsub("^.-:","")or"inventory"}
end
end
if not st.side and st.inv[1]then st.side=st.inv[1].side end
end
local function scan()
if not tp or not st.side then return end
local side=st.side
st.busy,st.items=true,{}
require("thread").create(function()
local ok,size=pcall(tp.getInventorySize,side)
local byKey={}
for slot=1,ok and size or 0 do
local ok2,stack=pcall(tp.getStackInSlot,side,slot)
if ok2 and stack then
local key=stack.name..":"..(stack.damage or 0)
local it=byKey[key]
if not it then
it={label=stack.label or stack.name,name=stack.name,count=0,slots={}}
byKey[key]=it
st.items[#st.items+1]=it
end
it.count=it.count+stack.size
it.slots[#it.slots+1]={slot,stack.size}
end
st.progress={slot,size}
if slot%6==0 then Y.redraw(win)end
end
table.sort(st.items,function(a,b)return a.count>b.count end)
st.busy,st.progress=false,nil
Y.redraw(win)
end):detach()
end
local function move(it,count,to)
local left=count
require("thread").create(function()
for _,sl in ipairs(it.slots)do
if left<=0 then break end
local ok,n=pcall(tp.transferItem,st.side,to,math.min(left,sl[2]),sl[1])
if ok and n then left=left-n end
end
Y.notify("Storage",string.format("Moved %d × %s to %s",count-left,it.label,SIDES[to]))
scan()
end):detach()
end
scanSides();scan()
function win.draw(w,cw,ch)
local t=Y.theme
if not tp then
Y.drawIcon((cw-8)//2,ch//2-5,"storage")
local s="Place a transposer next to the computer (or an adapter-connected one)"
gfx.text((cw-unicode.len(s))//2,ch//2,s,t.dim)
return
end
local SIDE=24
gfx.fill(1,1,SIDE,ch,t.sidebar)
gfx.text(2,1,"Inventories",t.dim)
for i,inv in ipairs(st.inv)do
local y=i*2
if inv.side==st.side then ui.round(2,y,SIDE-2,1,t.dark and 0x454545 or 0xDEDDDA)end
gfx.text(3,y,ui.trunc(SIDES[inv.side].." · "..inv.name,SIDE-4),t.fg)
gfx.text(3,y+1,inv.size.." slots",t.dim)
ui.hit(w,1,y,SIDE,2,function()st.side=inv.side;st.sel=1;st.top=0;scan()end)
end
if#st.inv==0 then gfx.text(2,3,"no inventories found",t.dim)end
ui.button(w,2,ch,"Refresh",function()scanSides();scan()end,"flat",9)
local x=SIDE+2
ui.entry(w,st.q,x,1,cw-SIDE-3,Y.focus==w,"Filter items")
local list={}
local q=unicode.lower(st.q.text)
for _,it in ipairs(st.items)do if q==""or unicode.lower(it.label):find(q,1,true)then list[#list+1]=it end end
if st.busy and st.progress then gfx.text(x,3,string.format("Reading slots… %d / %d",st.progress[1],st.progress[2]),t.dim)
else gfx.text(x,3,#list.." item types",t.dim)end
local rows=ch-4
for i=1,rows do
local it=list[st.top+i]
if not it then break end
local y=3+i
local sel=st.top+i==st.sel
if sel then ui.select(x-1,y,cw-SIDE-1,t.sel)end
local fg=sel and t.selFg or t.fg
gfx.text(x+1,y,ui.trunc(it.label,cw-SIDE-22),fg)
local c=tostring(it.count)
gfx.text(cw-12-#c,y,c,fg)
gfx.text(cw-10,y,#it.slots.." slot"..(#it.slots>1 and"s"or""),sel and fg or t.dim)
local idx=st.top+i
ui.hit(w,x-1,y,cw-SIDE,1,function(_,px,py)
st.sel=idx
local items={}
for _,inv in ipairs(st.inv)do
if inv.side~=st.side then
items[#items+1]={"Move all to "..SIDES[inv.side].." ("..inv.name..")",function()move(it,it.count,inv.side)end}
items[#items+1]={"Move 1 stack to "..SIDES[inv.side],function()move(it,64,inv.side)end}
end
end
if#items==0 then items[1]={"Only one inventory attached",function()end,disabled=true}end
Y.menu(w.x+px,w.y+py+1,items)
end)
end
end
function win.key(w,char,code)
if code==Y.K.down then st.sel=st.sel+1 elseif code==Y.K.up then st.sel=math.max(1,st.sel-1)
else ui.entryKey(st.q,char,code)end
end
function win.scroll(w,x,y,dir)st.top=math.max(0,st.top-dir*3)end
return win
end

return M
F 3781 /usr/share/yaru/apps/sudoku.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local M={}
local LEVELS={{"Easy",36},{"Medium",46},{"Hard",53}}

local function solve(g,i)
i=i or 1
while i<=81 and g[i]~=0 do i=i+1 end
if i>81 then return true end
local r,c=(i-1)//9,(i-1)%9
local used={}
for k=0,8 do
used[g[r*9+k+1]]=true
used[g[k*9+c+1]]=true
used[g[((r//3)*3+k//3)*9+(c//3)*3+k%3+1]]=true
end
local digits={1,2,3,4,5,6,7,8,9}
for k=9,2,-1 do local j=math.random(k)digits[k],digits[j]=digits[j],digits[k]end
for _,d in ipairs(digits)do
if not used[d]then
g[i]=d
if solve(g,i+1)then return true end
end
end
g[i]=0
return false
end

function M.open()
local st={sel=41}
local win=Y.newWindow{app="sudoku",title="Sudoku",w=62,h=33,fixed=true}
local function new(li)
st.level=li or st.level or 1
local sol={}
for i=1,81 do sol[i]=0 end
solve(sol)
st.sol,st.g,st.given=sol,{},{}
for i=1,81 do st.g[i]=sol[i]end
local removed=0
while removed<LEVELS[st.level][2]do
local i=math.random(81)
if st.g[i]~=0 then st.g[i]=0;st.g[82-i]=0;removed=removed+(i==41 and 1 or 2)end
end
for i=1,81 do st.given[i]=st.g[i]~=0 end
st.t0,st.done=computer.uptime(),nil
end
local function conflict(i)
local v=st.g[i]
if v==0 then return false end
local r,c=(i-1)//9,(i-1)%9
for k=0,8 do
local a,b=r*9+k+1,k*9+c+1
local q=((r//3)*3+k//3)*9+(c//3)*3+k%3+1
if(a~=i and st.g[a]==v)or(b~=i and st.g[b]==v)or(q~=i and st.g[q]==v)then return true end
end
return false
end
local function set(v)
if st.done or st.given[st.sel]then return end
st.g[st.sel]=v
for i=1,81 do if st.g[i]==0 or conflict(i)then return end end
st.done=computer.uptime()-st.t0
Y.notify("Sudoku solved!",string.format("%s puzzle in %d:%02d",LEVELS[st.level][1],st.done//60,math.floor(st.done%60)))
end
function win.header(w,hw)
local x=2
for i,L in ipairs(LEVELS)do x=x+ui.button(w,x,1,L[1],function()new(i)end,i==st.level and nil or"flat")+1 end
end
function win.draw(w,cw,ch)
local t=Y.theme
w.tickInterval=st.done and nil or 1
local el=st.done or(computer.uptime()-st.t0)
local tm=string.format("◷ %d:%02d",el//60,math.floor(el%60))
gfx.text(cw-#tm-1,1,tm,st.done and t.success or t.dim)

local CW,CH=5,5
local function off(k)return k*(CW+1)+(k//3)end
local function offy(k)return k*(CH+1)+(k//3)end
local gw=off(9)+1
local ox,oy=(cw-gw)//2+1,5
local grid=t.dark and 0x5E5C64 or 0x969696
gfx.prrect(ox-1,oy-1,gw+1,offy(9)+2,grid)
local sr,sc=(st.sel-1)//9,(st.sel-1)%9
for i=1,81 do
local r,c=(i-1)//9,(i-1)%9
local x,y=ox+off(c),oy+offy(r)
local related=r==sr or c==sc or(r//3==sr//3 and c//3==sc//3)
local bg=t.dark and 0x1E1E1E or 0xFFFFFF
if related then bg=t.dark and 0x2D2D2D or 0xEBEBEB end
if selV~=0 and st.g[i]==selV then bg=t.dark and 0x454545 or 0xDEDDDA end
if i==st.sel then bg=t.accent end
gfx.prect(x,y,CW,CH,bg)
local v=st.g[i]
local tr=y+1
if tr%2==0 then tr=tr+1 end
if v~=0 then
local fg=st.given[i]and t.fg or(t.dark and 0x6D92FF or 0x0049BF)
if conflict(i)then fg=t.danger end
if i==st.sel then fg=0xFFFFFF end
gfx.text(x+2,(tr+1)//2,tostring(v),fg,bg)
end
local idx=i
ui.hit(w,x,(y+1)//2,CW,2,function()st.sel=idx end)
end
local py=(oy+offy(9)+3)//2+1

for d=1,9 do
ui.button(w,ox+(d-1)*6,py,tostring(d),function()set(d)end,nil,5)
end
ui.button(w,ox+54,py,"⌫",function()set(0)end,"flat",3)
end
function win.tick(w)Y.redraw(w)end
function win.key(w,char,code)
local K=Y.K
if code==K.left then st.sel=st.sel-1<1 and st.sel or st.sel-1
elseif code==K.right then st.sel=math.min(81,st.sel+1)
elseif code==K.up then st.sel=st.sel>9 and st.sel-9 or st.sel
elseif code==K.down then st.sel=st.sel<=72 and st.sel+9 or st.sel
elseif code==K.del or code==K.back or char==48 then set(0)
elseif char and char>=49 and char<=57 then set(char-48)end
end
new(1)
return win
end

return M
F 37197 /usr/share/yaru/apps/tapes.lua









local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local unicode=require("unicode")
local serialization=require("serialization")
package.loaded.tapelib=nil
local T=require("tapelib")
T.breathe=function()Y.breathe()end
local M={}

local floor=math.floor
local CFG="/etc/yaru-tapes.cfg"
local MODES={{"all","Play all"},{"loop","Repeat all"},{"one","Repeat one"},{"single","Single"}}
local CHUNK=8192


local DIGITS={["0"]={7,5,5,5,7},["1"]={2,6,2,2,7},["2"]={7,1,7,4,7},["3"]={7,1,7,1,7},
["4"]={5,5,7,1,1},["5"]={7,4,7,1,7},["6"]={7,4,7,5,7},["7"]={7,1,1,1,1},
["8"]={7,5,7,5,7},["9"]={7,5,7,1,7},["-"]={0,0,7,0,0}}

local function loadCfg()
local c={volume=1,speed=1,mode="all",rate=48000,vis="led"}
local f=io.open(CFG)
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then for k,v in pairs(t)do c[k]=v end end
end
return c
end
local function saveCfg(c)
local f=io.open(CFG,"w")
if f then f:write(serialization.serialize(c));f:close()end
end

function M.open(path)
local cfg=loadCfg()
T.setRate(cfg.rate==32768 and 32768 or 48000)
local win=Y.newWindow{app="tapes",title="Tape Deck",w=104,h=35,minW=86,minH=33}
local st={decks={},cur=1,sel=nil,top=0,anim=0,remain=false,drag=nil,job=nil}
local geo={}

local function deck()return st.decks[st.cur]end
local function scan()
local old={}
for _,d in ipairs(st.decks)do old[d.addr]=d end
local keep=deck()and deck().addr
st.decks={}
for addr in component.list("tape_drive")do
local d=old[addr]
if not d then
local ok,p=pcall(component.proxy,addr)
if ok and p then d=T.deck(p);d.speed,d.volume=cfg.speed,cfg.volume end
end
if d then st.decks[#st.decks+1]=d end
end
table.sort(st.decks,function(a,b)return a.addr<b.addr end)
st.cur=1
for i,d in ipairs(st.decks)do if d.addr==keep then st.cur=i end end
end

local VISDIR="/home/.cache/tapedeck"
local function visFile(d)return VISDIR.."/"..(d.label~=""and d.label or"tape"):gsub("[^%w%-_]","_").."-"..d.size..".vis"end
local function visKey(tr)return tr.start..":"..tr.len end
local function loadVis(d)
d.vis={}
if not d.ready then return end
local f=io.open(visFile(d))
if f then
local ok,t=pcall(serialization.unserialize,f:read("*a"))
f:close()
if ok and type(t)=="table"then d.vis=t end
end
end
local function saveVis(d)

local keep={}
for _,tr in ipairs(d.tracks)do keep[visKey(tr)]=d.vis[visKey(tr)]end
d.vis=keep
fs.makeDirectory(VISDIR)
local f=io.open(visFile(d),"w")
if f then f:write(serialization.serialize(keep));f:close()end
end
local function prepare(d)
pcall(d.refresh,d)
if d.ready then pcall(d.setVolume,d,d.volume);pcall(d.setSpeed,d,d.speed)end
pcall(loadVis,d)
st.sel,st.top,st.playing=nil,0,nil
st.eq=nil
end
local function setTick()
local d=deck()
win.tickInterval=(st.job and 0.05)or((d and(d.state~="STOPPED"))and 0.1)or 0.5
end


local function curTrack(d)
if st.playing and d.tracks[st.playing]then
local tr=d.tracks[st.playing]
if d.pos>=tr.start and d.pos<tr.start+tr.len+T.BPS then return st.playing,tr end
end
return d:trackAt(d.pos)
end
local function playTrack(i)
local d=deck()
local tr=d and d.tracks[i]
if not tr then return end
d.t.stop()
d:go(tr.start)
d:play()
st.playing,st.sel=i,i
setTick()
end
local function togglePlay()
local d=deck()
if not d or not d.ready or st.job then return end
if d.state=="PLAYING"then d:stop()
else
if#d.tracks>0 and d.pos>=d:nextFree()then d:go(d.tracks[1].start)end
st.playing=d:trackAt(d.pos)
d:play()
end
setTick()
end
local function stop()
local d=deck()
if not d or not d.ready or st.job then return end
d:stop()
local i,tr=curTrack(d)
d:go(tr and tr.start or 0)
st.playing=i
setTick()
end
local function skip(dir)
local d=deck()
if not d or not d.ready or st.job then return end
local i,tr=curTrack(d)
if#d.tracks==0 then return d:jump(dir<0 and 0 or d.size)end
if not i then
for k,t2 in ipairs(d.tracks)do if t2.start>d.pos then i=dir>0 and k-1 or k break end end
i=i or#d.tracks+(dir>0 and 0 or 1)
elseif dir<0 and d.pos-tr.start>3*T.BPS then i=i+1 end
local n=math.max(1,math.min(#d.tracks,i+dir))
st.playing,st.sel=n,n
d:jump(d.tracks[n].start)
end
local function nudge(sec)
local d=deck()
if not d or not d.ready or st.job then return end
d:jump(math.max(0,math.min(d.size,d.pos+sec*T.BPS)))
st.playing=d:trackAt(d.pos)
end


local function follow(d)
if d.state~="PLAYING"then return end
local mode=cfg.mode
if#d.tracks==0 then
if d.pos>=d.size-T.TOCSIZE and mode=="loop"then d:jump(0)end
return
end
local i,tr=curTrack(d)
if not i then

if d.pos>=d:nextFree()then
if mode=="loop"then st.playing=1;d:jump(d.tracks[1].start)
else d:stop();d:go(d.tracks[1].start);st.playing=1 end
end
return
end
st.playing=i
if d.pos>=tr.start+tr.len then
if mode=="one"then d:jump(tr.start)
elseif mode=="single"then d:stop();d:go(tr.start)
elseif i==#d.tracks then
if mode=="loop"then st.playing=1;d:jump(d.tracks[1].start)
else d:stop();d:go(d.tracks[1].start);st.playing=1 end
else st.playing=i+1 end
end
end



local function gapBytes(d)
local cur,g=0,0
for _,tr in ipairs(d.tracks)do
if tr.start>cur then g=g+tr.start-cur end
cur=math.max(cur,tr.start+tr.len)
end
return g
end

local function gapFor(d,size)
local cur=0
for _,tr in ipairs(d.tracks)do
if tr.start-cur>=size then return cur end
cur=math.max(cur,tr.start+tr.len)
end
end


local function finishJob(msg)
local j,d=st.job,deck()
st.job=nil
if j.src and j.src.close then pcall(j.src.close,j.src)end
if d and d.ready then
if j.kind=="scan"then
pcall(saveVis,d)
d:go(j.back or 0)
elseif j.kind=="compact"then
pcall(d.writeTOC,d)
pcall(saveVis,d)
d:go(0)
st.sel,st.playing=nil,nil
elseif j.kind=="erase"then
if j.done>0 then
for k,tr in ipairs(d.tracks)do if tr.start==j.start then table.remove(d.tracks,k)break end end
pcall(d.writeTOC,d)
pcall(saveVis,d)
end
d:go(j.start)
st.sel,st.playing=nil,nil
elseif j.kind=="wipe"then
if j.cancelled then
local keep={}
for _,tr in ipairs(d.tracks)do if tr.start>=j.done then keep[#keep+1]=tr end end
d.tracks=keep
else d.tracks={}end
pcall(d.writeTOC,d)
d:go(0)
else
if not j.cancelled and j.done>0 then
local tr={name=j.name,start=j.start,len=j.done}
d.tracks[#d.tracks+1]=tr
table.sort(d.tracks,function(a,b)return a.start<b.start end)
local ok,err=d:writeTOC()
if not ok then Y.notify("Tape Deck",tostring(err))end
if j.an then d.vis=d.vis or{};d.vis[visKey(tr)]=j.an.result();pcall(saveVis,d)end
end
d:go(j.start)
st.playing=d:trackAt(j.start)
st.sel=st.playing
end
end
if msg then Y.notify("Tape Deck",msg)end
setTick()
end
local function stepJob()
local j,d=st.job,deck()
if not d or not d.ready then st.job.cancelled=true;return finishJob("The tape was removed — recording stopped.")end
if j.kind=="scan"then

for _=1,4 do
local tr=j.list[j.li]
if not tr then
return finishJob(j.cancelled and nil or("Equalizer ready for "..#j.list.." track"..(#j.list==1 and""or"s").."."))
end
if not j.an then j.an=T.analyzer(T.BPS);j.off=0;d:go(tr.start)end
local n=math.min(CHUNK,tr.len-j.off)
local data=d.t.read(n)or""
j.an.feed(data)
j.off=j.off+n
j.done=j.done+n
d.pos=tr.start+j.off
if j.off>=tr.len or#data==0 then
d.vis[visKey(tr)]=j.an.result()
j.an=nil
j.li=j.li+1
if j.cancelled then j.list={}end
end
end
return
end
if j.kind=="compact"then



for _=1,4 do
local mv=j.moves[j.mi]
if not mv then
return finishJob(j.stopAfter and"Compacting stopped — the tracks moved so far are safe."
or("Tape compacted: "..T.fmt(T.secs(j.freed)).." of free space joined at the end."))
end
local n=math.min(CHUNK,mv.tr.len-mv.off)
d:go(mv.src+mv.off)
local data=d.t.read(n)
d:go(mv.dst+mv.off)
d.t.write(data)
mv.off=mv.off+n
j.done=j.done+n
d.pos=mv.dst+mv.off
if mv.off>=mv.tr.len then
local old=visKey(mv.tr)
mv.tr.start=mv.dst
if d.vis and d.vis[old]then d.vis[visKey(mv.tr)]=d.vis[old];d.vis[old]=nil end
pcall(d.writeTOC,d)
j.mi=j.mi+1
if j.stopAfter then j.moves={}end
end
end
return
end
for _=1,4 do
local room=j.limit-j.done
if room<=0 then
return finishJob(j.kind=="wipe"and"The tape is erased."or j.kind=="erase"and("“"..j.name.."” erased.")or
j.gap and("“"..j.name.."” recorded into a free gap ("..T.fmt(T.secs(j.done))..").")or
("“"..j.name.."” recorded — the tape is full, the end was cut."))
end
local chunk
if j.kind=="wipe"or j.kind=="erase"then chunk=string.rep("\x55",math.min(CHUNK*2,room))
elseif j.kind=="file"then
chunk=j.src:read(CHUNK)
if not chunk then return finishJob("“"..j.name.."” recorded ("..T.fmt(T.secs(j.done))..").")end
else
local h=j.src
if not j.connected then
local ok,err=h.finishConnect()
if ok==nil then j.cancelled=true;return finishJob("Download failed: "..tostring(err or"no connection"))end
if not ok then return end
j.connected=true
local code,_,hd=h.response()
if code and code>=400 then j.cancelled=true;return finishJob("Download failed: HTTP "..code)end
local len=hd and(hd["Content-Length"]or hd["content-length"])
if type(len)=="table"then len=len[1]end
j.total=tonumber(len)
end
local ok,c=pcall(h.read,CHUNK)
if not ok then j.cancelled=true;return finishJob("Download failed: "..tostring(c))end
if c==nil then return finishJob("“"..j.name.."” recorded ("..T.fmt(T.secs(j.done))..").")end
if c==""then return end
chunk=c
end
if#chunk>room then chunk=chunk:sub(1,room)end
d.t.write(chunk)
if j.an then j.an.feed(chunk)end
j.done=j.done+#chunk
d.pos=j.start+j.done
end
end
local function startJob(j)
local d=deck()
if j.kind=="file"or j.kind=="url"then j.an=T.analyzer(T.BPS)end
d.t.stop()
d.state="STOPPED"
j.done=0
d:go(j.start)
st.job=j
setTick()
end
local function recordFile(p)
local d=deck()
if not d or not d.ready then return Y.notify("Tape Deck","Insert a cassette into the tape drive first.")end
if not fs.exists(p)or fs.isDirectory(p)then return Y.notify("Tape Deck","No such file: "..p)end
local size=fs.size(p)
local start=d.formatted and(gapFor(d,size)or d:nextFree())or 0
local room=d:capacity()-start
if start<d:nextFree()then room=size end
local name=fs.name(p):gsub("%.[^.]+$","")
local function go()
local f=io.open(p,"rb")
if not f then return Y.notify("Tape Deck","Cannot read "..p)end
startJob({kind="file",name=name,src=f,total=math.min(size,room),start=start,limit=room,
gap=d.formatted and start<d:nextFree()})
end
local warn={}
if not d.formatted and d.size>0 then warn[#warn+1]="This tape has no track list yet: recording starts at the beginning\nand replaces whatever is on it."end
if size>room then warn[#warn+1]="Only "..T.fmt(T.secs(room)).." of "..T.fmt(T.secs(size)).." fits — the end will be cut."end
if room<=0 then return Y.notify("Tape Deck","The tape is full.")end
if#warn==0 then return go()end
Y.dialog{title="Record “"..name.."”?",text=table.concat(warn,"\n"),
buttons={{"Cancel"},{"Record",go,"suggested"}}}
end
local function recordUrl(url)
local d=deck()
if not d or not d.ready then return Y.notify("Tape Deck","Insert a cassette into the tape drive first.")end
if not component.isAvailable("internet")then return Y.notify("Tape Deck","Recording from the web needs an internet card.")end
local ok,h=pcall(component.internet.request,url)
if not ok or not h then return Y.notify("Tape Deck","Cannot open "..url..": "..tostring(h))end
local start=d.formatted and d:nextFree()or 0
local name=url:gsub("[?#].*$",""):match("([^/]+)$")or"Download"
name=name:gsub("%%20"," "):gsub("%.[^.]+$","")
if name==""then name="Download"end
startJob({kind="url",name=name,src=h,start=start,limit=d:capacity()-start})
end
local function wipe()
local d=deck()
if not d or not d.ready or st.job then return end
Y.dialog{title="Erase the whole cassette?",text="All "..T.fmt(T.secs(d.size)).." of tape are overwritten with silence.\nEvery recording and the track list are lost.",
buttons={{"Cancel"},{"Erase Tape",function()startJob({kind="wipe",name="Erasing",start=0,limit=d.size,total=d.size})end,"destructive"}}}
end
local function compact()
local d=deck()
if not d or not d.ready or st.job then return end
local g=gapBytes(d)
if g==0 then return Y.notify("Tape Deck","There are no gaps between the tracks.")end
local moves,cur,total={},0,0
for _,tr in ipairs(d.tracks)do
if tr.start>cur then moves[#moves+1]={tr=tr,src=tr.start,dst=cur,off=0};total=total+tr.len end
cur=(tr.start>cur and cur or tr.start)+tr.len
end
Y.dialog{title="Fill the gaps?",text="Tracks are moved towards the start so the "..T.fmt(T.secs(g))..
" of empty space\nbecomes one free block at the end. About "..T.fmt(T.secs(total)).." of audio will be copied.",
buttons={{"Cancel"},{"Compact",function()
d.t.stop()
d.state="STOPPED"
st.job={kind="compact",name="Compacting",moves=moves,mi=1,done=0,total=total,limit=total,freed=g,start=0}
setTick()
end,"suggested"}}}
end
local function missingVis(d)
local list={}
for _,tr in ipairs(d.tracks)do if not(d.vis and d.vis[visKey(tr)])then list[#list+1]=tr end end
return list
end
local function analyze(all)
local d=deck()
if not d or not d.ready or st.job then return end
local list=all and{table.unpack(d.tracks)}or missingVis(d)
if#list==0 then return Y.notify("Tape Deck",#d.tracks==0 and"There are no tracks to analyse."or"All tracks already have an equalizer.")end
local total=0
for _,tr in ipairs(list)do total=total+tr.len end
local back=d.pos
d.t.stop()
d.state="STOPPED"
d.vis=d.vis or{}
st.job={kind="scan",name="Analysing",list=list,li=1,done=0,total=total,limit=total,start=0,back=back}
setTick()
end
local function cancelJob()
local j=st.job
if not j then return end
if j.kind=="compact"then j.stopAfter=true;return end
if j.kind=="scan"then j.cancelled=true;j.list={table.unpack(j.list,1,j.li)};return end
j.cancelled=true
finishJob()
end
local function eraseTrack(i)
local d=deck()
local tr=d and d.ready and d.tracks[i]
if not tr or st.job then return end
local last=i==#d.tracks
Y.dialog{title="Erase “"..tr.name.."”?",text="Its "..T.fmt(T.secs(tr.len)).." of tape are overwritten with silence."..
(last and"\nThe space becomes free for new recordings."or"\nThe gap stays empty (only the last track's space is reused)."),
buttons={{"Cancel"},{"Erase",function()startJob({kind="erase",name=tr.name,start=tr.start,limit=tr.len,total=tr.len})end,"destructive"}}}
end
local function quickErase()
local d=deck()
if not d or not d.ready or st.job then return end
Y.dialog{title="Quick erase?",text="Only the track list is cleared (instant).\nThe old sound stays on the tape until it is recorded over.",
buttons={{"Cancel"},{"Clear List",function()d.tracks={};d:writeTOC();d:go(0);st.sel,st.playing=nil,nil end,"destructive"}}}
end
local function eraseMenu(sx,sy)
local d=deck()
local ok=d and d.ready and not st.job
Y.menu(sx,sy,{
{"Erase Selected Track…",function()eraseTrack(st.sel)end,disabled=not(ok and st.sel and d.tracks[st.sel])},
{"Erase Whole Tape…",wipe,disabled=not ok},
"-",
{"Quick Erase (track list only)…",quickErase,disabled=not ok},
"-",
{"Fill Gaps (move tracks together)…",compact,disabled=not(ok and gapBytes(d)>0)},
})
end


local function addFileDialog()
Y.dialog{title="Record an Audio File",text="Path to a DFPWM file ("..(T.RATE//1000).." kHz mono)",entry=st.lastDir or"/home/",
buttons={{"Cancel"},{"Record",function(p)if p and p~=""then st.lastDir=fs.path(p).."/";recordFile(p)end end,"suggested"}}}
end
local function addUrlDialog()
Y.dialog{title="Record from the Web",text="Address of a .dfpwm file — it is streamed straight onto the tape",entry="https://",
buttons={{"Cancel"},{"Record",function(u)if u and u:match("^https?://.")then recordUrl(u)end end,"suggested"}}}
end
local function renameTrack(i)
local d=deck()
local tr=d and d.tracks[i]
if not tr then return end
Y.dialog{title="Rename Track",entry=tr.name,buttons={{"Cancel"},{"Rename",function(s)
if s and s~=""then tr.name=unicode.sub(s,1,60);d:writeTOC()end end,"suggested"}}}
end
local function removeTrack(i)
local d=deck()
local tr=d and d.tracks[i]
if not tr then return end
local last=i==#d.tracks
Y.dialog{title="Remove “"..tr.name.."” from the list?",
text=last and"Its space becomes free for new recordings."or"The audio stays on the tape; only the last track's space can be reused.",
buttons={{"Cancel"},{"Remove",function()table.remove(d.tracks,i);d:writeTOC();st.sel=nil end,"destructive"}}}
end
local function renameTape()
local d=deck()
if not d or not d.ready then return end
Y.dialog{title="Cassette Label",entry=d.label,buttons={{"Cancel"},{"Save",function(s)if s then d:setLabel(s)end end,"suggested"}}}
end
local function trackMenu(i,sx,sy)
Y.menu(sx,sy,{
{"Play",function()playTrack(i)end},
{"Rename…",function()renameTrack(i)end},
{"Remove from List…",function()removeTrack(i)end},
"-",
{"Erase from Tape…",function()eraseTrack(i)end},
})
end

local function calibrate()
local d=deck()
if not d or not d.ready or st.job then return end
d.t.stop()
d.state="STOPPED"
local p0=d:exactPos()
if p0>d.size-8*48000 then d:go(0);p0=0 end
d.t.setSpeed(1)
d.t.play()
st.calib={p0=p0,t0=require("computer").uptime()}
win.tickInterval=0.1
end
local function setRate(r)
cfg.rate=r
T.setRate(r)
saveCfg(cfg)
end
local function mainMenu(sx,sy)
local d=deck()
local ok=d and d.ready and not st.job
Y.menu(sx,sy,{
{"Record Audio File…",addFileDialog,disabled=not ok},
{"Record from URL…",addUrlDialog,disabled=not ok},
"-",
{"Cassette Label…",renameTape,disabled=not ok},
{"Re-read Tape",function()prepare(d)end,disabled=not ok},
{"Use Whole Tape as One Track",function()
d.tracks={{name=d.label~=""and d.label or"Tape",start=0,len=d:capacity()}}
d:writeTOC()
end,disabled=not ok},
{"Erase Selected Track…",function()eraseTrack(st.sel)end,disabled=not(ok and st.sel and d.tracks[st.sel])},
{"Erase Whole Tape…",wipe,disabled=not ok},
{"Quick Erase (track list only)…",quickErase,disabled=not ok},
"-",
{"Fill Gaps (move tracks together)…",compact,disabled=not(ok and gapBytes(d)>0)},
"-",
{"Show Remaining Time",function()st.remain=not st.remain end,check=st.remain},
{"Equalizer: LED Bars",function()cfg.vis="led";saveCfg(cfg)end,check=cfg.vis=="led"},
{"Equalizer: Smooth Bars",function()cfg.vis="bars";saveCfg(cfg)end,check=cfg.vis=="bars"},
{"Equalizer: Mirror",function()cfg.vis="mirror";saveCfg(cfg)end,check=cfg.vis=="mirror"},
{"Equalizer: Off",function()cfg.vis="off";saveCfg(cfg)end,check=cfg.vis=="off"},
{"Analyse Tracks for Equalizer",function()analyze(false)end,disabled=not ok},
{"Sample Rate: 48 kHz (Computronics 1.12)",function()setRate(48000)end,check=cfg.rate==48000},
{"Sample Rate: 32 kHz (old Computronics)",function()setRate(32768)end,check=cfg.rate==32768},
{"Detect Sample Rate (plays 3 s)",calibrate,disabled=not ok},
{"About Tape Deck",function()
Y.dialog{title="Tape Deck",text=table.concat({
"Plays and records Computronics cassettes.",
"Audio: DFPWM1a mono, "..T.RATE.." Hz = "..T.BPS.." bytes per second.",
"Make files on a PC with mp3_to_dfpwm.py (or ffmpeg -ar "..T.RATE.." -ac 1 -f dfpwm)",
"or stream them from a URL straight onto the tape.",
"",
"Space play/pause · ←/→ 10 s · PgUp/PgDn track · S stop · Del erase",
},"\n"),buttons={{"Close",nil,"suggested"}}}
end},
})
end
local function driveMenu(sx,sy)
local items={}
for i,d in ipairs(st.decks)do
local name=(d.ready and d.label~=""and d.label or(d.ready and"Unlabelled tape"or"Empty")).."  ·  "..d.addr:sub(1,8)
items[#items+1]={"Drive "..i..": "..name,function()st.cur=i;prepare(d)end,check=st.cur==i}
end
if#items==0 then items[1]={"No tape drives",nil,disabled=true}end
Y.menu(sx,sy,items)
end


function win.header(w,hw)
local d=deck()
local x=2
local dl=d and("Drive "..st.cur..(#st.decks>1 and(" of "..#st.decks)or"").." ▾")or"No drive"
x=x+ui.button(w,x,1,dl,function(_,px)driveMenu(win.x+px-1,win.y+1)end,"flat")+1
if d and d.ready and not st.job then
x=x+ui.button(w,x,1,"+ File",addFileDialog)+1
x=x+ui.button(w,x,1,"+ URL",addUrlDialog)+1
x=x+ui.button(w,x,1,"Erase ▾",function(_,px)eraseMenu(win.x+px-1,win.y+1)end,"flat")+1
end
ui.button(w,hw-4,1,"☰",function(_,px)mainMenu(win.x+px-1,win.y+1)end,nil,4)
end


local function lcdDigits(px,py,s,col)
for i=1,#s do
local c=s:sub(i,i)
if c==":"then
gfx.prect(px,py+2,2,2,col);gfx.prect(px,py+6,2,2,col)
px=px+4
else
local g=DIGITS[c]
if g then
for r=1,5 do
local bits=g[r]
for b=0,2 do if bits&(4>>b)~=0 then gfx.prect(px+b*2,py+(r-1)*2,2,2,col)end end
end
end
px=px+8
end
end
end
local function lcdWidth(s)local n=0 for i=1,#s do n=n+(s:sub(i,i)==":"and 4 or 8)end return n end

local SHELL,SHELL_HI,SHELL_LO=0x2E2E2E,0x454545,0x1E1E1E
local function drawCassette(x0,y0,W,d)
local t=Y.theme
local py0=2*y0-1
local label=d.label~=""and d.label or"Untitled tape"
gfx.prrect(x0,py0,W,28,SHELL)

for _,p in ipairs({{x0+2,py0+1},{x0+W-3,py0+1},{x0+2,py0+26},{x0+W-3,py0+26}})do gfx.pset(p[1],p[2],0x77767B)end

local STK=0xF0F0F0
gfx.prect(x0+3,py0+2,W-6,18,STK)
gfx.text(x0+4+(W-8-unicode.len(ui.trunc(label,W-10)))//2,y0+1,ui.trunc(label,W-10),0x2D2D2D,STK)
gfx.prect(x0+3,py0+4,W-6,1,t.accent)
gfx.prect(x0+3,py0+5,W-6,1,0xFFB640)

local lx,rx=x0+floor(W*0.27),x0+W-1-floor(W*0.27)
local cy=py0+12
gfx.prrect(lx-8,py0+7,rx-lx+17,11,SHELL_LO)
local frac=d.size>0 and math.max(0,math.min(1,d.pos/d.size))or 0
local R0,RM=2,5
local rl=floor(R0+1+(RM-R0-1)*math.sqrt(1-frac)+.5)
local rr=floor(R0+1+(RM-R0-1)*math.sqrt(frac)+.5)
gfx.pline(lx,py0+17,rx,py0+17,0x663300)
gfx.pcircle(lx,cy,rl,0x663300);gfx.pcircle(rx,cy,rr,0x663300)
for _,c in ipairs({lx,rx})do
gfx.pcircle(c,cy,R0,0xDEDDDA)
gfx.pset(c,cy,SHELL_LO)
for k=0,2 do
local a=st.anim+k*2.0944
gfx.pset(c+floor(math.cos(a)*2+.5),cy+floor(math.sin(a)*2+.5),0x77767B)
end
end

gfx.text(x0+4,y0+9,"A",t.accent,STK)
local cap="C-"..T.nominalMinutes(d.size)
gfx.text(x0+W-4-#cap,y0+9,cap,0x77767B,STK)

for r=0,6 do
local inset=floor(W*0.14)+r
gfx.prect(x0+inset,py0+21+r,W-2*inset,1,SHELL_HI)
end
local m=floor(W/2)
for _,gx in ipairs({x0+floor(W*0.14)+6,m-3,m+2,x0+W-floor(W*0.14)-8})do gfx.prect(gx,py0+23,2,2,SHELL_LO)end
end

local function drawEmpty(x0,y0,W,title,sub)
local t=Y.theme
local py0=2*y0-1
gfx.prrect(x0,py0,W,28,t.dark and 0x303030 or 0xDEDDDA)
gfx.prrect(x0+4,py0+4,W-8,20,t.dark and 0x242424 or 0xEBEBEB)
gfx.text(x0+(W-unicode.len(title))//2,y0+5,title,t.fg,t.dark and 0x242424 or 0xEBEBEB)
gfx.text(x0+(W-unicode.len(sub))//2,y0+7,ui.trunc(sub,W-6),t.dim,t.dark and 0x242424 or 0xEBEBEB)
end


local STYLES={"led","bars","mirror"}

local function eqFrame(d)
local j=st.job
if j then
local a=j.an
if a and#a.frames>0 then return a.frames[#a.frames]end
return nil
end
if d.state~="PLAYING"then return nil end
local _,tr=curTrack(d)
if not tr then return nil end
local v=d.vis and d.vis[visKey(tr)]
if not v then return nil,true end
local fb=math.max(100,T.BPS//10)
local f=math.floor((d.pos-tr.start)/fb)
if f<0 or f*10>=#v then return nil end
return v:sub(f*10+1,f*10+10)
end
local function drawEq(w,x,y,wd,h,d)
local t=Y.theme
local BG=0x1E1E1E
ui.round(x,y,wd,h,BG)
local frame,missing=eqFrame(d)
local eq=st.eq
local nb=math.max(8,math.min(40,(wd-4)//3))
if not eq or eq.nb~=nb then eq={nb=nb,lv={},pk={},hold={},t=0};st.eq=eq;for i=1,nb do eq.lv[i],eq.pk[i],eq.hold[i]=0,0,0 end end
local now=require("computer").uptime()
local dt=math.min(0.5,math.max(0,now-eq.t))
eq.t=now
for i=1,nb do
local target=0
if frame then
local p=(i-1)/(nb-1)*(T.BANDS-1)+1
local a=math.floor(p)
local b=math.min(T.BANDS,a+1)
local fa,fbv=frame:byte(a)-48,frame:byte(b)-48
target=(fa+(fbv-fa)*(p-a))/15
target=target*(0.9+0.2*math.sin(i*1.7+now*9))
end
local lv=eq.lv[i]
if target>lv then lv=target else lv=math.max(target,lv-dt*2.2)end
eq.lv[i]=lv
if lv>=eq.pk[i]then eq.pk[i],eq.hold[i]=lv,0.6
else
eq.hold[i]=eq.hold[i]-dt
if eq.hold[i]<=0 then eq.pk[i]=math.max(lv,eq.pk[i]-dt*0.8)end
end
end
local style=cfg.vis
local H=2*h-2
local py0=2*y
local inner=wd-4
local bw=math.max(1,(inner+1)//nb-1)
local used=nb*(bw+1)-1
local px=x+2+(inner-used)//2
for i=1,nb do
local lv,pk=eq.lv[i],eq.pk[i]
local bx=px+(i-1)*(bw+1)
if style=="led"then
local segs=H//2
local lit=math.floor(lv*segs+0.5)
local pkSeg=math.floor(pk*segs+0.5)
for sgi=1,segs do
local fr=sgi/segs
local on=sgi<=lit
local col
if not on and sgi==pkSeg and pk>0.02 then col=0xC3C3C3
elseif fr<=0.6 then col=on and 0x33DB40 or 0x002400
elseif fr<=0.85 then col=on and 0xFFDB40 or 0x332400
else col=on and 0xFF2400 or 0x330000 end
gfx.prect(bx,py0+H-sgi*2+1,bw,1,col)
end
elseif style=="bars"then
local hh=math.floor(lv*H+0.5)
if hh>0 then
local top=math.floor(hh*0.4+.5)
gfx.prect(bx,py0+H-hh,bw,top,0xFFB640)
gfx.prect(bx,py0+H-hh+top,bw,hh-top,t.accent)
end
local ph=math.floor(pk*H+0.5)
if ph>0 then gfx.prect(bx,py0+H-ph-1,bw,1,0xFFFFFF)end
else
local half=H//2
local hh=math.floor(lv*half+0.5)
if hh>0 then
gfx.prect(bx,py0+half-hh,bw,hh,0x33DBFF)
gfx.prect(bx,py0+half,bw,math.max(1,hh*2//3),0x0049BF)
end
local ph=math.floor(pk*half+0.5)
if ph>0 then gfx.prect(bx,py0+half-ph-1,bw,1,0xFFFFFF)end
end
end
if missing then
local msg="No equalizer data for this track · click to analyse"
gfx.text(x+math.max(1,(wd-unicode.len(msg))//2),y+h//2,ui.trunc(msg,wd-2),0x9A9996,BG)
end
ui.hit(w,x,y,wd,h,function()
if missing then return analyze(false)end
for k,sname in ipairs(STYLES)do if sname==style then cfg.vis=STYLES[k%#STYLES+1];saveCfg(cfg)break end end
end)
end

local function slider(w,x,y,wd,label,frac,val,key)
local t=Y.theme
gfx.text(x,y,label,t.dim)
local bx=x+unicode.len(label)+1
local bw=wd-unicode.len(label)-1-unicode.len(val)-1
local k=floor(frac*(bw-1)+.5)
if k>0 then gfx.text(bx,y,string.rep("━",k),t.accent)end
if k<bw-1 then gfx.text(bx+k+1,y,string.rep("━",bw-1-k),t.sep)end
gfx.text(bx+k,y,"●",t.accent)
gfx.text(bx+bw+1,y,val,t.fg)
geo[key]={bx,bw}
ui.hit(w,bx-1,y,bw+2,1,function(_,px)st.drag=key;win.touch(w,px,y,0,"drag")end)
end

function win.draw(w,cw,ch)
local t=Y.theme
local d=deck()
local RW=math.max(30,math.min(44,floor(cw*0.36)))
local LW=cw-RW
local CWd=math.min(LW-6,60)
local x0=1+(LW-CWd)//2
local eqH=0
if cfg.vis~="off"and d and d.ready then
eqH=math.min(8,ch-2-28-2)
if eqH<3 then eqH=0 end
end
local top=math.max(1,(ch-2-28-(eqH>0 and eqH+1 or 0))//2)
geo.LW,geo.RW=LW,RW

gfx.fill(LW+1,1,RW,ch-2,t.sidebar)
local rx=LW+2
local tracks=d and d.ready and d.tracks or{}
gfx.text(rx,1,"Tracks",t.fg)
if#tracks>0 then gfx.text(rx+7,1,tostring(#tracks),t.dim)end
local listTop,listBot=3,ch-7
local rows=listBot-listTop+1
local playIdx=d and d.ready and d.state=="PLAYING"and curTrack(d)or nil
if d and d.ready then
if#tracks==0 then
local msg=d.formatted and{"Nothing recorded yet.","","Add audio with + File","or + URL above."}
or{"No track list on this tape.","","Play it as it is, record","over it (+ File / + URL),","or ☰ → Use Whole Tape","as One Track."}
for i,l in ipairs(msg)do gfx.text(rx,listTop+i,ui.trunc(l,RW-3),t.dim)end
end
st.top=math.max(0,math.min(st.top,#tracks-rows))
for r=1,math.min(rows,#tracks-st.top)do
local i=st.top+r
local tr=tracks[i]
local y=listTop+r-1
local on=st.sel==i
local bg=on and(t.dark and 0x454545 or 0xDEDDDA)or t.sidebar
if on then ui.select(LW+1,y,RW-1,bg)end
local dur=T.fmt(T.secs(tr.len))
local playing=playIdx==i
gfx.text(rx,y,playing and"▶"or tostring(i),playing and t.accent or t.dim,bg)
gfx.text(rx+3,y,ui.trunc(tr.name,RW-10-#dur),playing and t.accent or t.fg,bg)
gfx.text(cw-1-#dur,y,dur,t.dim,bg)
ui.hit(w,LW+1,y,RW,1,function(_,_,_,btn,dbl)
if btn==1 then st.sel=i;trackMenu(i,win.x+LW,win.y+y+1)return end
if dbl or st.sel==i then playTrack(i)else st.sel=i end
end)
end
ui.scrollbar(cw,listTop,rows,st.top,rows,#tracks)

local used=d:nextFree()
local cap=d:capacity()
local free=T.fmt(T.secs(math.max(0,cap-used))).." free of "..T.fmt(T.secs(cap))
gfx.text(rx,ch-5,ui.trunc(free,RW-3),t.dim)
local g=gapBytes(d)
if g>0 and not st.job then
local lbl="Fill gaps"
local bw=unicode.len(lbl)+4
gfx.text(rx,ch-6,ui.trunc(T.fmt(T.secs(g)).." in gaps",RW-bw-4),t.warning)
ui.button(w,cw-bw-1,ch-6,lbl,compact,"suggested",bw)
end
ui.progress(rx,ch-4,RW-3,cap>0 and used/cap or 0)
else
gfx.text(rx,listTop,ui.trunc(d and"Insert a cassette."or"Connect a tape drive.",RW-3),t.dim)
end

local mx=rx
for _,m in ipairs(MODES)do
local lbl=({all="→",loop="↻",one="↺1",single="1"})[m[1]]
local on=cfg.mode==m[1]
local wd=unicode.len(lbl)+2
if on then ui.pill(mx,ch-3,wd,t.accent)end
gfx.text(mx+1,ch-3,lbl,on and t.accentFg or t.fg,on and t.accent or t.sidebar)
ui.hit(w,mx,ch-3,wd,1,function()cfg.mode=m[1];saveCfg(cfg)end)
mx=mx+wd+1
end
local mname
for _,m in ipairs(MODES)do if m[1]==cfg.mode then mname=m[2]end end
gfx.text(mx,ch-3,ui.trunc(mname,cw-mx),t.dim,t.sidebar)


if not d then
drawEmpty(x0,top,CWd,"No tape drive","Connect a Computronics tape drive to this computer")
elseif not d.ready then
drawEmpty(x0,top,CWd,"No cassette","Put a cassette into the tape drive")
else
drawCassette(x0,top,CWd,d)

local ly=top+15
local LCD=0x1E1E1E
ui.round(x0,ly,CWd,6,LCD)
local i,tr=curTrack(d)
local base=tr and tr.start or 0
local len=tr and tr.len or d.size
local el=T.secs(d.pos-base)/1
local shown=st.remain and math.max(0,T.secs(len)-el)or el
local s=T.fmt(shown)
if#s<5 then s=string.rep("0",5-#s)..s end
if#s>5 then s=s:sub(-5)end
local dx=x0+3
local ghost=s:gsub("%d","8")
lcdDigits(dx,2*ly,ghost,0x332400)
lcdDigits(dx,2*ly,s,0xFFB640)
if st.remain then gfx.prect(dx-3,2*ly+4,2,2,0xFFB640)end
ui.hit(w,dx,ly,lcdWidth(s),5,function()st.remain=not st.remain end)
local tx=dx+lcdWidth(s)+2
local tw=x0+CWd-2-tx
local state=st.job and((st.job.kind=="wipe"or st.job.kind=="erase")and"● ERASE"or st.job.kind=="compact"and"● MOVE"or st.job.kind=="scan"and"● SCAN"or"● REC")or
(d.state=="PLAYING"and"▶ PLAY")or(d.state=="REWINDING"and"◀◀ REW")or(d.state=="FORWARDING"and"▶▶ FF")or"■ STOP"
gfx.text(tx,ly+1,state,st.job and 0xFF4940 or 0xFFB640,LCD)
local spd=string.format("%.2f×",d.speed)
gfx.text(x0+CWd-2-#spd,ly+1,spd,0x996D00,LCD)
local name=tr and(string.format("%02d ",i)..tr.name)or(#d.tracks>0 and"— between tracks —"or"Whole tape")
if st.job then name=st.job.name end
gfx.text(tx,ly+2,ui.trunc(name,tw),0xFFDB40,LCD)
gfx.text(tx,ly+3,ui.trunc((st.remain and"remaining of "or"of ")..T.fmt(T.secs(len)),tw),0x996D00,LCD)
gfx.text(tx,ly+4,ui.trunc("tape "..T.fmt(T.secs(d.pos)).." / "..T.fmt(T.secs(d.size)),tw),0x664900,LCD)

local by=ly+7
local btns={{"|◀",function()skip(-1)end},{"◀◀",function()nudge(-10)end},
{d.state=="PLAYING"and"▮▮"or"▶",togglePlay,"suggested",9},{"■",stop},
{"▶▶",function()nudge(10)end},{"▶|",function()skip(1)end}}
local total=0
for _,b in ipairs(btns)do total=total+(b[4]or 6)+1 end
local bx=x0+(CWd-total+1)//2
for _,b in ipairs(btns)do bx=bx+ui.button(w,bx,by,b[1],st.job and nil or b[2],b[3],b[4]or 6)+1 end

local half=(CWd-2)//2
slider(w,x0,by+2,half,"Volume",d.volume,string.format("%3d%%",floor(d.volume*100+.5)),"vol")
slider(w,x0+half+2,by+2,CWd-half-2,"Speed",(d.speed-0.25)/1.75,string.format("%.2f×",d.speed),"speed")
if eqH>0 then drawEq(w,x0,by+4,CWd,eqH,d)end

local j=st.job
if j then
local cwid=math.min(CWd-4,50)
local cx,cyy=x0+(CWd-cwid)//2,ly+1
ui.card(cx,cyy,cwid,5,t.card)
local head=(j.kind=="scan"and"Analysing for the equalizer"or j.kind=="compact"and(j.stopAfter and"Finishing the current track"or"Moving tracks together")or j.kind=="wipe"and"Erasing the tape"or j.kind=="erase"and"Erasing a track"or(j.kind=="url"and"Recording from the web"or"Recording")).."…"
gfx.text(cx+2,cyy,head,t.fg,t.card)
local sub=j.kind=="wipe"and""or j.kind=="scan"and(j.list[j.li]and(j.li.."/"..#j.list.."  "..j.list[j.li].name)or"")or j.kind=="compact"and(j.moves[j.mi]and(j.mi.."/"..#j.moves.."  "..j.moves[j.mi].tr.name)or"")or j.name
gfx.text(cx+2,cyy+1,ui.trunc(sub,cwid-4),t.dim,t.card)
local total2=j.total and math.min(j.total,j.limit)or j.limit
ui.progress(cx+2,cyy+2,cwid-4,total2>0 and j.done/total2 or 0)
local info=ui.size(j.done)..(j.total and(" of "..ui.size(math.min(j.total,j.limit)))or"").." · "..T.fmt(T.secs(j.done))
if j.kind=="url"and not j.connected then info="connecting…"end
gfx.text(cx+2,cyy+3,ui.trunc(info,cwid-14),t.dim,t.card)
ui.button(w,cx+cwid-11,cyy+3,"Cancel",cancelJob,"destructive",9)
end
end


local tlx,tlw,tly=2,cw-2,ch-1
geo.tl={tlx,tlw,tly}
gfx.fill(1,ch-2,cw,3,t.bg)
if d and d.ready and d.size>0 then
local size=d.size
local function colOf(b)return tlx+floor(b/size*(tlw-1)+.5)end
gfx.fill(tlx,tly,tlw,1,t.sep)
gfx.half(tlx,tly-1,tlw,t.sep,false)
for k,tr in ipairs(d.tracks)do
local a,b=colOf(tr.start),math.max(colOf(tr.start),colOf(tr.start+tr.len)-1)
local col=k%2==1 and t.accent or t.accentDark
gfx.fill(a,tly,b-a+1,1,col)
gfx.half(a,tly-1,b-a+1,col,false)
end
local tocA=colOf(d:capacity())
gfx.fill(tocA,tly,tlx+tlw-tocA,1,t.dark and 0x1E1E1E or 0x9A9996)
local ph=colOf(d.pos)
gfx.fill(ph,tly,1,1,t.fg)
gfx.half(ph,tly-1,1,t.fg,false)
gfx.text(tlx,ch,"0:00",t.dim)
local endl=T.fmt(T.secs(size))
gfx.text(tlx+tlw-#endl-1,ch,endl,t.dim)
local here=T.fmt(T.secs(d.pos))
local hx=math.max(tlx+5,math.min(tlx+tlw-#endl-#here-2,ph-#here//2))
gfx.text(hx,ch,here,t.fg)
ui.hit(w,tlx,tly-1,tlw,2,function(_,px)st.drag="seek";win.touch(w,px,tly,0,"drag")end)
end
end


function win.touch(w,lx,ly,btn,kind)
local d=deck()
if kind=="drop"then
if st.drag=="seek"and d and d.ready and not st.job then
local g=geo.tl
local f=math.max(0,math.min(1,(lx-g[1])/math.max(1,g[2]-1)))
d:jump(f*d.size)
st.playing=d:trackAt(d.pos)
end
if st.drag=="vol"or st.drag=="speed"then cfg.volume,cfg.speed=d.volume,d.speed;saveCfg(cfg)end
st.drag=nil
return
end
if kind~="drag"or not st.drag or not d or not d.ready then return end
if st.drag=="seek"then
if st.job then return end
local g=geo.tl
local f=math.max(0,math.min(1,(lx-g[1])/math.max(1,g[2]-1)))
d.pos=floor(f*d.size)
d.base,d.baseT=d.pos,require("computer").uptime()
else
local g=geo[st.drag]
if not g then return end
local f=math.max(0,math.min(1,(lx-g[1])/math.max(1,g[2]-1)))
if st.drag=="vol"then d:setVolume(floor(f*20+.5)/20)
else d:setSpeed(0.25+floor(f*7+.5)*0.25)end
end
end

function win.scroll(w,lx,ly,dir)
if lx>(geo.LW or 0)then st.top=math.max(0,st.top-dir*3)end
end

function win.key(w,char,code)
local K=Y.K
if code==K.space then togglePlay()
elseif code==K.left then nudge(-10)elseif code==K.right then nudge(10)
elseif code==K.pgup then skip(-1)elseif code==K.pgdn then skip(1)
elseif code==K.esc and st.job then cancelJob()
elseif char==115 or char==83 then stop()
elseif code==K.up then local d=deck()if d and#d.tracks>0 then st.sel=math.max(1,(st.sel or 2)-1)end
elseif code==K.down then local d=deck()if d and#d.tracks>0 then st.sel=math.min(#d.tracks,(st.sel or 0)+1)end
elseif code==K.enter and st.sel then playTrack(st.sel)
elseif code==K.del and st.sel then eraseTrack(st.sel)
elseif code==K.f2 and st.sel then renameTrack(st.sel)
end
end

function win.tick(w)
if st.calib then
local d,c=deck(),st.calib
local el=require("computer").uptime()-c.t0
if d and d.ready and el<3 then st.anim=st.anim+0.5;return Y.redraw(w)end
st.calib=nil
if d and d.ready then
d.t.stop()
local p1=d:exactPos()
d.t.setSpeed(d.speed)
d:go(c.p0)
local measured=(p1-c.p0)*8/el
local best=math.abs(measured-48000)<math.abs(measured-32768)and 48000 or 32768
setRate(best)
Y.notify("Tape Deck",string.format("Measured %d Hz → using %d Hz (%d bytes per second).",math.floor(measured+.5),best,best//8))
end
setTick()
return Y.redraw(w)
end
if st.job then
local ok,err=pcall(stepJob)
if not ok and st.job then st.job.cancelled=true;finishJob("Recording failed: "..tostring(err))end
st.anim=st.anim+0.6
Y.redraw(w)
return
end
local d=deck()
if not d then return end
local okR,ready=pcall(d.t.isReady)
ready=okR and ready
if ready~=d.ready then
prepare(d)
setTick()
return Y.redraw(w)
end
if not ready then return end
local was=d.state
local ok=pcall(d.poll,d)
if not ok then return end
pcall(follow,d)
if d.state=="PLAYING"or d.state=="FORWARDING"then st.anim=st.anim+0.5*d.speed
elseif d.state=="REWINDING"then st.anim=st.anim-1 end
local falling=false
if st.eq then for i=1,st.eq.nb do if st.eq.pk[i]>0.01 then falling=true break end end end
if d.state~="STOPPED"or was~=d.state or falling then Y.redraw(w)end
if falling and win.tickInterval and win.tickInterval>0.1 then win.tickInterval=0.1 elseif not falling and d.state=="STOPPED"and not st.job then setTick()end
if was~=d.state then setTick()end
end

function win.onSignal(name)
if name=="component_added"or name=="component_removed"then
local before=deck()
scan()
if deck()and deck()~=before then prepare(deck())end
setTick()
end
end

function win.onclose(w)
if st.job and st.job.kind=="compact"then
st.job.stopAfter=true
Y.notify("Tape Deck","Finishing the track being moved — close again in a moment.")
return false
end
if st.job then
Y.dialog{title="Stop recording?",text="The track being recorded will not be added.",
buttons={{"Keep Recording"},{"Stop and Close",function()st.job.cancelled=true;finishJob();Y.closeWin(w,true)end,"destructive"}}}
return false
end
return true
end

win.api={state=st,deck=deck,eqFrame=function()local d=deck()return d and eqFrame(d)end,analyze=analyze,compact=compact,gapBytes=gapBytes,eraseTrack=eraseTrack,wipe=wipe,recordFile=recordFile,recordUrl=recordUrl,play=playTrack,prepare=prepare,cfg=cfg}
scan()
if deck()then prepare(deck())end
setTick()
if path and fs.exists(path)and not fs.isDirectory(path)then recordFile(path)end
return win
end

return M
F 3661 /usr/share/yaru/apps/terminal.lua



local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local vgpu=require("yaru.vgpu")
local ui=require("yaru.ui")
local computer=require("computer")
local process=require("process")
local term=require("term")
local thread=require("thread")

local M={}
local INPUT={key_down=true,key_up=true,touch=true,drag=true,drop=true,scroll=true,clipboard=true}
local counter=0

function M.open(cmd,cwd)
counter=counter+1
local id=counter
local kb,scr="yaru-term-kb-"..id,"yaru-term-screen-"..id
local cw,ch=80,24
local vg=vgpu.new(cw,ch,{screen=scr,address="yaru-term-gpu-"..id})
local win
win=Y.newWindow{app="terminal",title="Terminal",w=cw,h=ch+1,minW=30,minH=6,termId=id}
vg.onChange=function()
Y.redraw(win)
computer.pushSignal("yaru_redraw")
end


local window=term.internal.open(0,0,cw,ch)
term.bind(vg.proxy,window)
window.keyboard=kb
window.fullscreen=false

local function resize(w,h)
w,h=math.max(10,w),math.max(3,h)
if w==vg.w and h==vg.h then return end
vg.resize(w,h)
window.width,window.height=w,h
if window.x>w then window.x=w end
if window.y>h then window.y=h end
computer.pushSignal("screen_resized",scr,w,h)
end
vg.onResize=function(w,h)
win.w,win.h=w,h+1
resize(w,h)
Y.redraw()
return true
end
function win.resized(w)resize(w.w,w.h-1)end

local t=thread.create(function()
local data=process.info().data
data.window=window
data.yaruTerm=id

data.componentOverride={gpu=vg.proxy}

local orig=data.pull
data.pull=function(tbl,timeout)
local sig=table.pack(orig(tbl,timeout))
local name=sig[1]
if INPUT[name]then
if sig[2]~=kb and sig[2]~=scr then return end
elseif name=="yaru_redraw"then
return
elseif name=="interrupted"then
if not(Y.focus==win)then return end
end
return table.unpack(sig,1,sig.n)
end
os.setenv("YARU_TERM",tostring(id))
os.setenv("TERM","term-256color")
if cwd then os.setenv("YARU_CWD",cwd)end
local shell=require("shell")
if cmd then
io.write("\27[32m$ \27[37m"..cmd.."\n")
local ok,err=shell.execute(cmd)
if not ok and err then io.stderr:write(tostring(err).."\n")end
io.write("\n\27[33m[process finished — press any key to close]\27[37m")
require("event").pull("key_down",kb)
else
local sh=shell.getShell()
sh()
end
end)
win.thread=t

function win.draw(w,cw2,ch2)
if vg.w~=cw2 or vg.h~=ch2 then resize(cw2,ch2)end

local SW,SH=Y.size()
if vg.scroll>0 and not vg.noscroll and Y.focus==w and not Y.overlay and w.x>=1 and w.x+w.w-1<=SW and w.y+w.h-1<=SH then
gfx.scrollHint(w.x,w.y+1,vg.w,vg.h,vg.scroll)
end
vg.scroll,vg.noscroll=0,false
vg.changed=false
gfx.blit(vg.grid,vg.w,vg.h,1,1)
end
function win.focusIn()window.blink=true end
function win.blur()window.blink=false end

local function fwd(name,...)computer.pushSignal(name,...)end
function win.key(w,char,code)
local K=Y.K
if Y.mods.ctrl()and Y.mods.shift()then
if code==K.v then fwd("clipboard",kb,Y.clipboard,"")return end
if code==0x2E then return end
if code==K.t then Y.launch("terminal")return end
end
fwd("key_down",kb,char,code,"")
end
function win.keyUp(w,char,code)fwd("key_up",kb,char,code,"")end
function win.paste(w,s)fwd("clipboard",kb,s,"")end
function win.touch(w,x,y,btn,kind)
if y<1 then return end
fwd(kind,scr,x,y,btn,"")
end
function win.scroll(w,x,y,dir)fwd("scroll",scr,x,y,dir,"")end
function win.cleanup(w)
if t:status()~="dead"then pcall(t.kill,t)end
end

win.tickInterval=1
local pdata=getmetatable(t).process.data
function win.tick(w)
if t:status()=="dead"then return Y.closeWin(w,true)end
local vars=rawget(pdata,"vars")or{}
local host=vars.HOSTNAME or"openos"
local pwd=(vars.PWD or"/home"):gsub("^/home","~")
local title=(vars.USER or"user").."@"..host..": "..pwd
if title~=w.title then w.title=title;Y.redraw(w)end
end
end

return M
F 5142 /usr/share/yaru/apps/tetris.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local M={}
local BW,BH=10,20
local SHAPES={
{{0,1},{1,1},{2,1},{3,1},c=0x33DBFF},
{{0,0},{1,0},{0,1},{1,1},c=0xFFDB40},
{{1,0},{0,1},{1,1},{2,1},c=0xCC49BF},
{{1,0},{2,0},{0,1},{1,1},c=0x33DB40},
{{0,0},{1,0},{1,1},{2,1},c=0xFF2440},
{{0,0},{0,1},{1,1},{2,1},c=0x0049FF},
{{2,0},{0,1},{1,1},{2,1},c=0xFF9240},
}
local BEST="/home/.local/share/quadrapassel.best"

function M.open()
local st={}
local win=Y.newWindow{app="tetris",title="Quadrapassel",w=58,h=34,fixed=true}
local function cells(p,rot,px,py)
local r={}
for _,b in ipairs(SHAPES[p])do
local x,y=b[1],b[2]
for _=1,rot%4 do if p~=2 then x,y=(p==1 and 3 or 2)-y,x end end
r[#r+1]={px+x,py+y}
end
return r
end
local function fits(p,rot,px,py)
for _,c in ipairs(cells(p,rot,px,py))do
if c[1]<1 or c[1]>BW or c[2]>BH then return false end
if c[2]>=1 and st.grid[(c[2]-1)*BW+c[1]]then return false end
end
return true
end
local function spawn()
st.p,st.rot,st.x,st.y=st.nextP or math.random(#SHAPES),0,4,0
st.nextP=math.random(#SHAPES)
if not fits(st.p,st.rot,st.x,st.y)then
st.over=true
if st.score>st.best then
st.best=st.score
require("filesystem").makeDirectory("/home/.local/share")
local f=io.open(BEST,"w")if f then f:write(tostring(st.best))f:close()end
end
Y.notify("Game over","Score "..st.score..", "..st.lines.." lines",{actionLabel="New Game",action=function()st.reset()end})
end
end
function st.reset()
st.grid,st.score,st.lines,st.level,st.over,st.paused={},0,0,1,false,false
local f=io.open(BEST)st.best=f and tonumber(f:read("*a"))or 0 if f then f:close()end
st.nextP=nil
spawn()
end
local function lock()
for _,c in ipairs(cells(st.p,st.rot,st.x,st.y))do
if c[2]>=1 then st.grid[(c[2]-1)*BW+c[1]]=SHAPES[st.p].c end
end
local cleared=0
for y=BH,1,-1 do
local full=true
for x=1,BW do if not st.grid[(y-1)*BW+x]then full=false break end end
if full then
cleared=cleared+1
for yy=y,2,-1 do for x=1,BW do st.grid[(yy-1)*BW+x]=st.grid[(yy-2)*BW+x]end end
for x=1,BW do st.grid[x]=nil end
end
end

if cleared>0 then
for y=BH,1,-1 do
local full=true
for x=1,BW do if not st.grid[(y-1)*BW+x]then full=false break end end
if full then return lock()end
end
end
st.lines=st.lines+cleared
st.score=st.score+({0,100,300,500,800})[cleared+1]*st.level
st.level=1+st.lines//10
spawn()
end
local function step()
if fits(st.p,st.rot,st.x,st.y+1)then st.y=st.y+1 else lock()end
end


local function shade(c,f)
local r,g,b=(c>>16)*f,((c>>8)&255)*f,(c&255)*f
return math.min(255,math.floor(r))<<16|math.min(255,math.floor(g))<<8|math.min(255,math.floor(b))
end
local PX=3
local function block(px,py,c,ghost)
if ghost then
gfx.prect(px,py,PX,1,c);gfx.prect(px,py+PX-1,PX,1,c)
gfx.prect(px,py,1,PX,c);gfx.prect(px+PX-1,py,1,PX,c)
return
end
gfx.prect(px,py,PX,PX,c)
gfx.prect(px,py,PX,1,shade(c,1.35));gfx.prect(px,py,1,PX,shade(c,1.35))
gfx.prect(px+1,py+PX-1,PX-1,1,shade(c,0.6));gfx.prect(px+PX-1,py+1,1,PX-1,shade(c,0.6))
end
function win.draw(w,cw,ch)
local t=Y.theme
w.tickInterval=(not st.over and not st.paused)and math.max(0.1,0.6-(st.level-1)*0.05)or nil
local ox,oy=3,3
gfx.prrect(ox-1,oy-1,BW*PX+2,BH*PX+2,0x1E1E1E)
gfx.prect(ox,oy,BW*PX,BH*PX,0x0F0F0F)
for y=1,BH do for x=1,BW do
local c=st.grid[(y-1)*BW+x]
if c then block(ox+(x-1)*PX,oy+(y-1)*PX,c)end
end end
if not st.over then
local gy=st.y
while fits(st.p,st.rot,st.x,gy+1)do gy=gy+1 end
for _,c in ipairs(cells(st.p,st.rot,st.x,gy))do
if c[2]>=1 then block(ox+(c[1]-1)*PX,oy+(c[2]-1)*PX,0x3C3C3C,true)end
end
for _,c in ipairs(cells(st.p,st.rot,st.x,st.y))do
if c[2]>=1 then block(ox+(c[1]-1)*PX,oy+(c[2]-1)*PX,SHAPES[st.p].c)end
end
end
local x=ox+BW*PX+4
gfx.text(x,2,"Next",t.dim)
for _,c in ipairs(cells(st.nextP,0,0,0))do block(x+c[1]*PX,6+c[2]*PX,SHAPES[st.nextP].c)end
local info={{"Score",st.score},{"Lines",st.lines},{"Level",st.level},{"Best",st.best}}
for i,kv in ipairs(info)do
gfx.text(x,7+i*2,kv[1],t.dim)
gfx.text(x+8,7+i*2,tostring(kv[2]),t.fg)
end
ui.button(w,x,19,st.over and"New Game"or(st.paused and"Resume"or"Pause"),function()
if st.over then st.reset()else st.paused=not st.paused end
end,st.over and"suggested"or nil,12)
gfx.text(x,22,"←→ move  ↑ rotate",t.dim)
gfx.text(x,23,"↓ drop  Space: slam",t.dim)
if st.paused then gfx.text(ox+BW*PX//2-3,(oy+BH*PX//2)//2,"Paused",0xFFFFFF,0x0F0F0F)end
end
function win.tick(w)if not st.over and not st.paused then step()end Y.redraw(w)end
function win.key(w,char,code)
local K=Y.K
if char==112 or char==80 then st.paused=not st.paused return end
if st.over or st.paused then if code==K.enter then st.reset()end return end
if code==K.left and fits(st.p,st.rot,st.x-1,st.y)then st.x=st.x-1
elseif code==K.right and fits(st.p,st.rot,st.x+1,st.y)then st.x=st.x+1
elseif code==K.up then
for _,kick in ipairs({0,-1,1,-2,2})do
if fits(st.p,st.rot+1,st.x+kick,st.y)then st.rot,st.x=st.rot+1,st.x+kick break end
end
elseif code==K.down then step();st.score=st.score+1
elseif char==32 then
while fits(st.p,st.rot,st.x,st.y+1)do st.y=st.y+1;st.score=st.score+2 end
lock()
end
end
function win.onclose()st.paused=true return true end
st.reset()
return win
end

return M
F 2357 /usr/share/yaru/apps/viewer.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local image=require("yaru.image")
local fs=require("filesystem")
local unicode=require("unicode")
local M={}

local function listPics(dir)
local r={}
if fs.isDirectory(dir)then
for n in fs.list(dir)do if n:lower():match("%.pic$")then r[#r+1]=fs.concat(dir,n)end end
end
table.sort(r)
return r
end

function M.open(path)
local st={}
local win=Y.newWindow{app="viewer",title="Image Viewer",w=70,h=26,minW=30,minH=8}
local function load(p)
st.path,st.err,st.img=p,nil,nil
if p then
local img,err=image.load(p,true)
st.img,st.err=img,err
st.list=listPics(fs.path(p))
for i,q in ipairs(st.list)do if q==p then st.idx=i end end
win.title=fs.name(p)
end
end
local function step(d)
if not st.list or#st.list==0 then return end
st.idx=((st.idx or 1)-1+d)%#st.list+1
load(st.list[st.idx])
end
function win.header(w,hw)
ui.button(w,2,1,"Open…",function()
Y.dialog{title="Open Image",text="Path to a .pic file",entry=st.path or"/home/Pictures/",
buttons={{"Cancel"},{"Open",function(p)if p and p~=""then load(p)end end,"suggested"}}}
end,nil,8)
ui.button(w,11,1,"‹",function()step(-1)end,"flat",3)
ui.button(w,14,1,"›",function()step(1)end,"flat",3)
if st.path then
ui.button(w,18,1,"Edit",function()Y.launch("paint",st.path)end,"flat",6)
ui.button(w,25,1,"Set as Background",function()
Y.cfg.wallpaper=st.path;Y.saveConfig();Y.applyTheme()
end,"flat")
end
end
function win.draw(w,cw,ch)
local t=Y.theme
gfx.fill(1,1,cw,ch,t.dark and 0x1E1E1E or 0xEBEBEB)
if st.img then
local iw,ih=st.img[1],st.img[2]
if iw<=cw and ih<=ch-1 then
gfx.image((cw-iw)//2+1,(ch-1-ih)//2+1,st.img)
else
local s=math.min(cw/iw,(ch-1)/ih)
local fw,fh=math.max(1,math.floor(iw*s)),math.max(1,math.floor(ih*s))
gfx.imageScaled((cw-fw)//2+1,(ch-1-fh)//2+1,fw,fh,st.img)
end
local info=string.format("%dx%d  ·  %d of %d",iw,ih,st.idx or 1,st.list and#st.list or 1)
gfx.text((cw-unicode.len(info))//2,ch,info,t.dim)
else
local s=st.err or"Open a picture (.pic, MineOS OCIF format)"
gfx.text(math.max(1,(cw-unicode.len(s))//2),ch//2,ui.trunc(s,cw-2),t.dim)
end
end
function win.key(w,char,code)
local K=Y.K
if code==K.left or code==K.pgup then step(-1)elseif code==K.right or code==K.pgdn or code==0x39 then step(1)end
end
function win.scroll(w,x,y,dir)step(-dir)end
load(path)
return win
end

return M
F 15261 /usr/share/yaru/apps/web.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local fs=require("filesystem")
local component=require("component")
local unicode=require("unicode")
local W=require("ocweb")
local M={}

local function colors(t)
return{text=t.fg,heading=t.dark and 0xC061CB or 0x813D9C,link=t.dark and 0x62A0EA or 0x1A5FB4,
dim=t.dim,accent=t.accent,code=t.dark and 0x8FF0A4 or 0x26A269,strong=t.dark and 0xFFFFFF or 0x000000,
em=t.dark and 0xF9F06B or 0x986A44}
end

function M.open(url)
local inet=component.isAvailable("internet")and component.internet or nil
local st={addr={text="",cur=0},editing=false,findBox=nil}
local win=Y.newWindow{app="web",title="Web Browser",w=110,h=36,minW=50,minH=12}
local S
S=W.session{inet=inet,width=win.w-3,colors=colors(Y.theme),
onChange=function()
win.title=S.title or"Web Browser"
if S.job or S.proc then win.tickInterval=0.05 end
Y.redraw(win)
end,
download=function(u,body,ct)
fs.makeDirectory("/home/Downloads")
local name=(u:match("([^/?#]+)[?#]?[^/]*$")or"download"):gsub("[^%w%._%-]","_")
if name==""then name="download"end
local path="/home/Downloads/"..name
local f=io.open(path,"wb")
if f then f:write(body or"");f:close()end
Y.notify("Download finished",path.." ("..W.size(#(body or""))..")",{actionLabel="Show",
action=function()Y.launch("files","/home/Downloads")end})
end}

local function follow(href)
if not href then return end
local target=W.resolve(S.url,href)
st.editing=false
S.navigate(target)
end
local function focusAddress()
st.editing=true
st.addr.text=S.url
st.addr.cur=unicode.len(st.addr.text)
end

function win.header(w,hw)
local x=2
x=x+ui.button(w,x,1,"‹",function()S.goBack()end,#S.back>0 and nil or"flat",3)+1
x=x+ui.button(w,x,1,"›",function()S.goForward()end,#S.fwd>0 and nil or"flat",3)+1
x=x+ui.button(w,x,1,S.job and"×"or"↻",function()if S.job then S.stop()else S.reload()end end,nil,3)+1
x=x+ui.button(w,x,1,"⌂",function()S.navigate("about:home")end,nil,3)+1
local aw=hw-x-9
ui.entry(w,st.editing and st.addr or{text=S.url,cur=0},x,1,aw,st.editing,"Search or enter address")
ui.hit(w,x,1,aw,1,function()if not st.editing then focusAddress()end end)
ui.button(w,x+aw+1,1,S.isBookmarked()and"◆"or"◇",function()
local on=S.toggleBookmark()
Y.notify("Bookmarks",(on and"Added "or"Removed ")..(S.title or S.url))
end,"flat",3)
ui.button(w,x+aw+4,1,"☰",function()
Y.menu(w.x+hw-22,w.y+2,{
{"Bookmarks",function()S.navigate("about:bookmarks")end,key="Ctrl+B"},
{"History",function()S.navigate("about:history")end,key="Ctrl+H"},
"-",
{"Find in Page…",function()st.findBox={text="",cur=0}end,key="Ctrl+F"},
{S.source and"View Page"or"View Source",function()S.toggleSource()end,key="Ctrl+U"},
{"Save Page As…",function()win.savePage()end,key="Ctrl+S"},
{"Copy Address",function()Y.clipboard=S.url;Y.notify("Web Browser","Address copied")end},
"-",
{"Text Only (no styles/pictures)",function()S.setTextOnly(not S.textOnly);S.layout()end,check=S.textOnly},
{"Full Rendering (server)",function()
if not S.server then return win.serverDialog()end
S.setServer(S.server,not S.renderMode)
S.navigate(S.url,false)
end,check=S.renderMode},
{"Render Server…",function()win.serverDialog()end},
})
end,"flat",3)
end

function win.serverDialog()
Y.dialog{title="Render server",text="Chromium on your PC renders pages with CSS, JavaScript and pictures\n(tools/ocweb_server.py). Address, e.g. http://192.168.1.103:8765",
entry=S.server or"http://",buttons={{"Cancel"},{"Off",function()S.setServer(S.server or"",false);S.navigate(S.url,false)end},
{"Use",function(v)if v and v:match("^https?://")then S.setServer(v,true);S.sid=nil;S.navigate(S.url,false)end end,"suggested"}}}
end

function win.savePage()
Y.dialog{title="Save Page",entry="/home/Downloads/"..((S.title or"page"):gsub("[^%w%-_]","_"):sub(1,24))..".html",
buttons={{"Cancel"},{"Save",function(p)
if not p or p==""then return end
fs.makeDirectory(fs.path(p))
local f=io.open(p,"w")
if f then f:write(S.body or"");f:close();Y.notify("Web Browser","Saved "..p)end
end,"suggested"}}}
end

function win.draw(w,cw,ch)
local t=Y.theme
S.colors=colors(t)
S.resize(cw-2)
if S.proc or S.job then w.tickInterval=0.05 end
local ph=ch-1-(st.findBox and 1 or 0)
st.ph=ph
gfx.fill(1,1,cw,ph,t.view)
S.cols,S.rows=cw-1,ph
local page=S.page
local fr=S.frame
if fr and S.renderMode and not S.job and(fr.cols~=S.cols or fr.rows~=S.rows)then
S.rScroll(fr.scroll)
end
if fr and S.renderMode then

if st.gridOf~=fr or st.gridTheme~=t then
local g,rgb={},W.cubeRGB
local cache={}
local function idx(i)local c=cache[i]if not c then c=gfx.color(rgb(i));cache[i]=c end return c end
for i,c in ipairs(fr.cells)do
if c[1]then g[i]=c[1]|(idx(c[2])<<21)|(idx(c[3])<<29)
elseif c[2]==c[3]then g[i]=32|(idx(c[2])<<21)|(idx(c[2])<<29)
else g[i]=0x2580|(idx(c[2])<<21)|(idx(c[3])<<29)end
end
st.grid,st.gridOf,st.gridTheme=g,fr,t
end
gfx.blit(st.grid,fr.cols,fr.rows,1,1)

if st.typing then
local inp=st.typing
local w2=math.max(inp.w,unicode.len(st.typed)+2)
ui.round(inp.x,inp.y,math.min(w2,cw-inp.x),1,0xFFFFFF)
local shown=inp.type=="password"and string.rep("•",unicode.len(st.typed))or st.typed
gfx.text(inp.x+1,inp.y,ui.trunc(shown,w2-2).."▏",0x000000,0xFFFFFF)
end
ui.hit(w,1,1,cw-1,ph,function(_,px,py,btn)
if btn==1 then
for _,l in ipairs(fr.links)do
if l.href~=""and px>=l.x and px<l.x+l.w and py>=l.y and py<l.y+l.h then
local href=l.href
return Y.menu(w.x+px,w.y+py+1,{{"Open Link",function()S.navigate(href)end},
{"Open in New Window",function()Y.launch("web",href)end},
{"Copy Link Address",function()Y.clipboard=href end}})
end
end
return
end
if S.job then return end
st.typing=nil
for _,inp in ipairs(fr.inputs)do
if px>=inp.x and px<inp.x+inp.w and py>=inp.y and py<inp.y+inp.h and inp.type~="submit"and inp.type~="button"
and inp.type~="checkbox"and inp.type~="radio"then
st.typing,st.typed=inp,""
end
end
S.rClick(px,py)
end)
local total=math.max(fr.total,fr.rows)
ui.scrollbar(cw,1,ph,fr.scroll,ph,total)
elseif S.styled and not S.source then
local sp=S.styled
local snapCache={}
local function C(c)
if not c then return nil end
local v=snapCache[c]
if v then return v end
local r,g,b=c>>16,(c>>8)&255,c&255
if math.max(r,g,b)-math.min(r,g,b)>18 then
v=W.cubeRGB(16+((r*5+127)//255)*40+((g*7+127)//255)*5+((b*4+127)//255))
else v=c end
snapCache[c]=v
return v
end
local maxScroll=math.max(0,sp.height-ph)
S.scroll=math.max(0,math.min(S.scroll or 0,maxScroll))
local top,bottom=S.scroll+1,S.scroll+ph
gfx.fill(1,1,cw-1,ph,C(sp.bg))
gfx.pushClip(1,1,cw-1,ph)
for _,op in ipairs(sp.ops)do
local y,h=op[3],op[1]=="text"and 1 or op[5]
if y+h-1>=top and y<=bottom then
local vy=y-S.scroll
if op[1]=="fill"then gfx.fill(op[2],vy,op[4],op[5],C(op[6]))
elseif op[1]=="text"then gfx.text(op[2],vy,op[4],C(op[5]),C(op[6]))
elseif op[1]=="img"then
local pic=S.picture(op[6],op[4],op[5])
if pic then

local g={}
local IM=require("ocimg")
for cy=0,op[5]-1 do
for cx=0,op[4]-1 do
local tpx,bpx=IM.pixel(pic,cx,cy*2),IM.pixel(pic,cx,cy*2+1)
if not tpx or not bpx then
local under=gfx.bgAt(op[2]+cx,vy+cy)
tpx,bpx=tpx or under,bpx or under
end
g[cy*op[4]+cx+1]=(tpx==bpx and 32 or 0x2580)|(gfx.color(C(tpx))<<21)|(gfx.color(C(bpx))<<29)
end
end
gfx.blit(g,op[4],op[5],op[2],vy)
elseif not op.cover then
gfx.fill(op[2],vy,op[4],op[5],t.dark and 0x2D2D2D or 0xDEDDDA)
if op[7]and op[7]~=""then gfx.text(op[2],vy,ui.trunc("▣ "..op[7],op[4]),t.dim)end
end
end
end
end
gfx.popClip()
for _,l in ipairs(sp.links)do
if l.y+l.h-1>=top and l.y<=bottom then
local href=l.href
ui.hit(w,l.x,l.y-S.scroll,l.w,l.h,function(_,_,_,btn)
if btn==1 then
Y.menu(w.x+l.x,w.y+l.y-S.scroll+1,{{"Open Link",function()follow(href)end},
{"Open in New Window",function()Y.launch("web",W.resolve(S.url,href))end},
{"Copy Link Address",function()Y.clipboard=W.resolve(S.url,href)end}})
else follow(href)end
end)
end
end
for _,inp in ipairs(sp.inputs)do
if inp.y>=top and inp.y<=bottom then
ui.hit(w,inp.x,inp.y-S.scroll,inp.w,1,function()
local el=inp.el
if inp.kind=="submit"then
if inp.form then S.submit(inp.form,el)end
elseif inp.kind=="checkbox"or inp.kind=="radio"then
el.attrs.checked=not el.attrs.checked and"checked"or nil
S.layout()
elseif inp.kind~="select"then
st.formEdit={inp=inp,text=el.attrs.value or""}
end
end)
end
end
if st.formEdit then
local fe=st.formEdit
local vy=fe.inp.y-S.scroll
if vy>=1 and vy<=ph then
local ww=math.max(fe.inp.w,10)
gfx.fill(fe.inp.x,vy,ww,1,0xFFFFFF)
local shown=fe.inp.kind=="password"and string.rep("•",unicode.len(fe.text))or fe.text
gfx.text(fe.inp.x,vy,unicode.sub(shown,-(ww-1)).."▏",0x000000,0xFFFFFF)
end
end
ui.scrollbar(cw,1,ph,S.scroll,ph,sp.height)
elseif page then
local maxScroll=math.max(0,#page.lines-ph)
S.scroll=math.max(0,math.min(S.scroll or 0,maxScroll))
local selLink=page.links[S.sel or 0]
for row=1,ph do
local li=S.scroll+row
local line=page.lines[li]
if not line then break end
if st.findLine==li then gfx.fill(1,row,cw-1,1,t.dark and 0x454545 or 0xF9F06B)end
local x=2+(line.indent or 0)
for _,seg in ipairs(line.segs)do
local fg=seg.fg or t.fg
local bg=nil
if seg.href and selLink and selLink.line==li and selLink.href==seg.href then bg=t.accent;fg=0xFFFFFF end
gfx.text(x,row,seg.text,fg,bg)
local len=unicode.len(seg.text)
if seg.href then
local href=seg.href
ui.hit(w,x,row,len,1,function(_,_,_,btn)
if btn==1 then
Y.menu(w.x+x,w.y+row+1,{{"Open Link",function()follow(href)end},
{"Open in New Window",function()Y.launch("web",W.resolve(S.url,href))end},
{"Copy Link Address",function()Y.clipboard=W.resolve(S.url,href)end}})
else follow(href)end
end)
end
x=x+len
end
end
ui.scrollbar(cw,1,ph,S.scroll,ph,#page.lines)
end
if st.findBox then
gfx.fill(1,ch-1,cw,1,t.sidebar)
gfx.text(2,ch-1,"Find:",t.dim,t.sidebar)
ui.entry(w,st.findBox,8,ch-1,40,true)
ui.button(w,50,ch-1,"Next",function()win.findNext()end,nil,6)
ui.button(w,cw-3,ch-1,"×",function()st.findBox,st.findLine=nil,nil end,"flat",3)
end

gfx.fill(1,ch,cw,1,t.sidebar)
local status=S.status or""
if selLink then status="→ "..W.resolve(S.url,selLink.href)end
if st.typing then status="Typing into "..st.typing.type.." · Enter: send · Tab: next field · Esc: cancel"end
gfx.text(2,ch,ui.trunc(status,cw-20),t.dim,t.sidebar)
if S.job then
local p=S.job.progress
ui.progress(cw-17,ch,16,p or((os.clock()*2)%1),t.accent)
end
end

function win.findNext()
if not st.findBox then return end
local i=S.find(st.findBox.text,st.findLine or S.scroll)
if i then st.findLine=i;S.scroll=math.max(0,i-3)
else Y.notify("Web Browser","“"..st.findBox.text.."” not found")end
end

function win.tick(w)
if S.job or S.proc then S.step()end
if not S.job and st.queue and#st.queue>0 then table.remove(st.queue,1)()end
win.tickInterval=(S.job or S.proc or(st.queue and#st.queue>0))and 0.05 or nil
Y.redraw(w)
end

local function scrollBy(n)
local total=S.styled and not S.source and S.styled.height or(S.page and#S.page.lines)
if not total then return end
S.scroll=math.max(0,math.min(math.max(0,total-(st.ph or 20)),(S.scroll or 0)+n))
end
local function selectLink(dir)
local links=S.page and S.page.links or{}
if#links==0 then return end
S.sel=((S.sel or 0)-1+dir)%#links+1
local li=links[S.sel].line
if li<=S.scroll then S.scroll=li-1 elseif li>S.scroll+(st.ph or 20)then S.scroll=li-(st.ph or 20)end
end

function win.key(w,char,code)
local K=Y.K
local ctrl,alt=Y.mods.ctrl(),Y.mods.alt()
if st.editing then
local r=ui.entryKey(st.addr,char,code)
if r=="enter"then st.editing=false;S.navigate(st.addr.text)
elseif r=="esc"then st.editing=false end
return
end
if st.formEdit then
local fe=st.formEdit
if code==K.enter or code==K.tab then
fe.inp.el.attrs.value=fe.text
st.formEdit=nil
if code==K.enter and fe.inp.form then S.submit(fe.inp.form)
else
if code==K.tab then
local found
for _,inp in ipairs(S.styled and S.styled.inputs or{})do
if found and inp.kind~="submit"and inp.kind~="checkbox"and inp.kind~="radio"and inp.kind~="select"then
st.formEdit={inp=inp,text=inp.el.attrs.value or""}
break
end
if inp==fe.inp then found=true end
end
end
S.layout()
end
elseif code==K.esc then st.formEdit=nil
elseif code==K.back then fe.text=unicode.sub(fe.text,1,-2)
elseif char and char>=32 then fe.text=fe.text..unicode.char(char)end
return
end
if st.typing then
if code==K.enter or code==K.tab then
local key=code==K.enter and"Enter"or"Tab"
local text=st.typed
st.typing=nil
st.queue=st.queue or{}
if text~=""then st.queue[#st.queue+1]=function()S.rType(text)end end
st.queue[#st.queue+1]=function()S.rKey(key)end
win.tickInterval=0.05
elseif code==K.esc then st.typing=nil
elseif code==K.back then st.typed=unicode.sub(st.typed,1,-2)
elseif char and char>=32 then st.typed=st.typed..unicode.char(char)end
return
end
if S.renderMode and S.frame and not st.findBox and not ctrl and not alt then
local fr=S.frame
if code==K.pgdn or char==32 then return S.rScroll(fr.scroll+fr.rows-2)
elseif code==K.pgup then return S.rScroll(fr.scroll-fr.rows+2)
elseif code==K.down then return S.rScroll(fr.scroll+3)
elseif code==K.up then return S.rScroll(fr.scroll-3)
elseif code==K.home then return S.rScroll(0)
elseif code==K["end"]then return S.rScroll(fr.total)
elseif code==K.back then return S.goBack()
elseif code==K.enter or code==K.tab or code==K.esc then return S.rKey(code==K.enter and"Enter"or code==K.tab and"Tab"or"Escape")end
end
if st.findBox and not ctrl then
local r=ui.entryKey(st.findBox,char,code)
if r=="enter"then win.findNext()elseif r=="esc"then st.findBox,st.findLine=nil,nil end
if r then return end
end
if ctrl then
if code==K.l then focusAddress()
elseif code==0x21 then st.findBox=st.findBox or{text="",cur=0}
elseif code==0x20 then S.toggleBookmark()
elseif code==0x16 then S.toggleSource()
elseif code==K.s then win.savePage()
elseif code==0x30 then S.navigate("about:bookmarks")
elseif code==K.h then S.navigate("about:history")end
return
end
if alt and code==K.left then S.goBack()return end
if alt and code==K.right then S.goForward()return end
if code==0x3F then S.reload()
elseif code==K.esc then S.stop()
elseif code==K.up then scrollBy(-1)elseif code==K.down then scrollBy(1)
elseif code==K.pgup then scrollBy(-(st.ph or 20)+1)
elseif code==K.pgdn or char==32 then scrollBy((st.ph or 20)-1)
elseif code==K.home then S.scroll=0 elseif code==K["end"]then scrollBy(1e9)
elseif code==K.tab then selectLink(Y.mods.shift()and-1 or 1)
elseif code==K.enter then local l=S.page and S.page.links[S.sel or 0]if l then follow(l.href)end
elseif code==K.back then S.goBack()end
end
function win.paste(w,s)
if st.formEdit then st.formEdit.text=st.formEdit.text..s return end
if st.typing then st.typed=st.typed..s return end
if st.editing then ui.entryPaste(st.addr,s)elseif st.findBox then ui.entryPaste(st.findBox,s)
else focusAddress();st.addr.text,st.addr.cur=s,unicode.len(s)end
end
function win.scroll(w,x,y,dir)
if S.renderMode and S.frame then
if not S.job then S.rScroll(S.frame.scroll-dir*math.max(3,S.frame.rows//3))end
return
end
scrollBy(-dir*3)
end
function win.cleanup()
S.stop()
S.styled,S.page,S.frame,S.imgCache,S.imgData=nil,nil,nil,nil,nil

if#Y.windowsOf("web")<=1 then
for _,m in ipairs({"ocweb","ocdom","occss","oclayout","ocimg"})do package.loaded[m]=nil end
end
end

win.session=S
S.cols,S.rows=win.w-1,win.h-2
S.navigate(url or"about:home",false)
win.tickInterval=0.05
return win
end

return M
F 173 /usr/share/yaru/icons/2048.pic
OCIF��▄��▀��▀��▖��▗��▀��▀��▄�� ��▀��▀��▘��▝��▀��▀�� �� �� �� ��▌��▌�� �� �� ��▀�� �� �� �� �� �� ��▀F 1179 /usr/share/yaru/icons/LICENSE
♂ Dungeon MIT ♂ License

Copyright (c) 2024

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software; The user gives his anus into 
the possession of the owner and contributors of the repository indefinitely.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
F 470 /usr/share/yaru/icons/README
Yaru icon set (second generation): original icons for OpenOS Yaru, drawn as
vector art and encoded into 8x4-cell OCIF (.pic) pictures by tools/mkicon.py.
The encoder uses the block and quadrant glyphs of the OpenComputers font, two
colours per cell, so tiles get rounded corners and finer detail than plain
half-cell pixels.

The .pic file format (OCIF) and its 8-bit colour table come from MineOS by
Igor Timofeev, https://github.com/IgorTimofeev/MineOS (see LICENSE).
F 177 /usr/share/yaru/icons/app.pic
OCIF��▄��▗��▀��▖��▗��▀��▖��▄�� ��▝��▀��▘��▝��▀��▘��  �▌�� �▌�▌�� �▌ U�▀UU UU UU UU UU UU U�▀F 173 /usr/share/yaru/icons/archive.pic
OCIF� ��▗��▄��▄��▄��▄��▖� � ��▀��▀�� �� ��▀��▀� � �� �� ��▀��▀�� �� � � ��▀��▀��▀��▀��▀��▀� F 177 /usr/share/yaru/icons/backup.pic
OCIFK�▄KK KK K�▗K�▖KK KK K�▄FF FF F�▝�F▖�F▗F�▘FF FF  �▀ �▝�▘ �▀ �▀�▀�▀�▀�▀�▀�▀�▀F 167 /usr/share/yaru/icons/battleship.pic
OCIF=�▄== == == =�▖== == =�▄77 77 7�▗�7▘�� 7�▖77 77  �▖�� �� �� �� �▗ �▀s▀ s▀s▘s▝s▘�▀F 181 /usr/share/yaru/icons/calc.pic
OCIFT�▄T�▗�T▀�T▀�T▀�T▀T�▖T�▄SS S�▗S�▖�S▀S�▗S�▖�S▀SS ** *�▗*�▖�*▀*�▗*�▖�*▀** )�▀)) )) )) )) )) )) )�▀F 165 /usr/share/yaru/icons/calendar.pic
OCIF�� �� �� �� �� �� �� �� �� �U▖�U▖�U▖�U▖�U▖�U▖�� �� �U▖�U▖�U▖ճ▖�U▖�U▖�� ��▀�� �� �� �� �� �� ��▀F 175 /usr/share/yaru/icons/camera.pic
OCIFS�▄SS S�▗�S▀SS SS SS S�▄11 �� �� 
�▀
�▀�� ��▘11 )) �� �
▝
x▝
x▘�
▘�� )) )�▀)�▀)�▀)�▀)�▀)�▀)�▀)�▀F 171 /usr/share/yaru/icons/chat.pic
OCIFK�▄K�▗�K▀�K▀�K▀�K▀K�▖K�▄FF �� �� �� �� �� �� FF FF �F▌�F▗F�▀F�▀F�▀F�▘FF �▀�▘     �▀F 177 /usr/share/yaru/icons/clock.pic
OCIF7�▄77 7�▗�7▀�7▀7�▖77 7�▄66 �6▘�� *�▌�� �� �6▝66 11 �1▖�� �*▝��▀��▘�1▗11 )�▀)) )�▝)�▀)�▀)�▘)) )�▀F 169 /usr/share/yaru/icons/composer.pic
OCIFn�▄nn nn n�▗�n▀�n▀�n▀n�▄CC CC CC �C▌CC CC �C▌CC == == �=▘�� == �=▘�� == 8�▀88 8�▝8�▘88 8�▝8�▘8�▀F 177 /usr/share/yaru/icons/disks.pic
OCIF��▄�� ��▗��▀��▀��▖�� ��▄ �▘�� �U▗�U▖�� �▝ ~~ �~▖�� �U▝�U▘�� �~▗~~ T�▀TT T�▝T�▀T�▀T�▘TT T�▀F 181 /usr/share/yaru/icons/editor.pic
OCIF��▄��▛�U▂�U▂�U▂�U▂��▜��▄�� ��▛�U▂�U▂�U▂�U▂��▜�� �� �U �U▂�U▂�U▂��▗��▗�� ��▀�� �� �� �� �S▘�� ��▀F 161 /usr/share/yaru/icons/energy.pic
OCIF��▄�� �� �� ��▀��▖�� ��▄�� �� ��▗�� ��▝��▀�� �� �� �� �� ��▘��▀�� �� �� ��▀�� ��▝�� �� �� �� ��▀F 177 /usr/share/yaru/icons/explorer.pic
OCIFs�▄ss s�▖s�▖s�▖s�▖ss s�▄CC �C▌�� 8�▀8�▀�� C�▌CC == �=▌�� �8▀�8▀�� =�▌== 8�▀88 8�▘8�▘8�▘8�▘88 8�▀F 155 /usr/share/yaru/icons/file.pic
OCIF� ��▐��▆��▆��▆��▆��▖� � ��▐�� �� �� �� �� � � ��▐�� �� �� �� �� � � ��▐�� �� �� �� �� � F 195 /usr/share/yaru/icons/files.pic
OCIF��▗��▄��▄��▃��▂��▂��▂�� ��▆��▆��▆��▆��▆��▆��▆��▌��▐�� ��█��▌��▆��▌�� ��▌��▝��▀��▀��▀��▀��▀��▀��▘F 179 /usr/share/yaru/icons/floppy.pic
OCIF8� 8�▆��▆��▆��▆�8▖8�▆8�▖8� 88 �8▅�8▅�8▅�8▅88 8�▌8� 8�▌ׁ ׁ ׁ ת =�▌8�▌8� 8�▌��▔��▔��▔�� =�▌8�▌F 187 /usr/share/yaru/icons/folder.pic
OCIF��▗��▄��▄��▃��▂��▂��▂�� ��▆��▆��▆��▆��▆��▆��▆��▌��▐�� �� �� �� �� �� ��▌��▝��▀��▀��▀��▀��▀��▀��▘F 169 /usr/share/yaru/icons/hdd.pic
OCIF� �� �� �� �� �� �� � ��▐�� �� �� �� �� �� ��▌U�▐�U▆�U▆�U▆�U▆�~▆~q▖U�▌U� U�▔U�▔U�▔U�▔U�▔U�▔U� F 177 /usr/share/yaru/icons/holo.pic
OCIF1�▄11 M1▀1M▀1M▀M1▀11 1�▄)) )M▝M)▀)M▝)M▘M)▀)M▘)) )) )) )) 6M▀6M▀)) )) )) (�▀(( (�▝(�▀(�▀(�▘(( (�▀F 189 /usr/share/yaru/icons/lights.pic
OCIF��▗1�▖�1▀1�▗1�▖J1▀1C▗C�▖*C▗*C▖�*▀*�▗*�▖�*▀*J▗*J▖)J▗)J▖C)▀)�▗)�▖�)▀)�▗)�▖(�▀(( (( (( (( (( (( (�▀F 179 /usr/share/yaru/icons/luafile.pic
OCIF� ��▐��▆��▆��▆��▆��▖� � ��▐�=▂�=▃�=▃�h▃�= � � ��▐88 �=▔�h▅8�▆�=▌� � ��▐8�▆8�▆8�▆8�▆�= � F 171 /usr/share/yaru/icons/mines.pic
OCIF��▄�� �� �)▗�)▖�� �� ��▄�� �)▗)�▝)�▖)) )�▘�)▖��  )▖)) )) )) )) )▗ U�▀UU U)▘)U▖)U▗U)▝UU U�▀F 171 /usr/share/yaru/icons/monitor.pic
OCIFK�▄KK KK KK KK KK KK K�▄FF FF F�▗F�▆�F█F�▂FF FF q█�▅�▅�▝F�▆�▅�▅�█�▀   �▔  �▀F 171 /usr/share/yaru/icons/notes.pic
OCIF��▄��▛��▂��▂��▂��▂��▂��▄�� �� ��▂��▂��▂��▂��▂�� �� � �▂�▂�� �� �� �� ��▀�� �� �� �� �� �� ��▀F 183 /usr/share/yaru/icons/paint.pic
OCIF��▄�� ��█��▂��▂��▂�� ��▄�� ��▗��▀��▝��▆J�▀׿▝�� �� ׏▌H�▅�� ��▗��▅��▗�� ��▀�� ��▔��▆��▅ʐ▆�� ��▀F 165 /usr/share/yaru/icons/player.pic
OCIF��▄�� ��▗��▖�� �� �� ��▄�� �� ��▌�� ��▝��▖�� �� �� �� ��▌�� ��▗��▘�� �� ��▀�� ��▝��▘�� �� �� ��▀F 181 /usr/share/yaru/icons/print3d.pic
OCIFg�▄�g▀�g▀�g▀�g▀�g▀�g▀g�▄<< <�▌<< *<▌<*▌<< �<▌<< 77 7�▌77 �� �� 77 �7▌77 1�▀1�▀1�▀1�▀1�▀1�▀1�▀1�▀F 159 /usr/share/yaru/icons/redlab.pic
OCIFT�▄TT TT TT TT TT TT T�▄SS �� �S▀�S▀�S▀S�▖SS SS ** ** ** ** ** �*▝�� *�▌)�▀)) )) )) )) )) )�▀��▘F 161 /usr/share/yaru/icons/redstone.pic
OCIF��▄�� �� �▀�▀�� �� ��▄�� �� �� ��▝��▘�� �� �� �� �� �� ��▌��▌�� �� �� V�▀VV VV V�▝V�▘VV VV V�▀F 185 /usr/share/yaru/icons/scanner.pic
OCIF6�▄66 6E▂6E▃6J▃6E▂66 6�▄ E▚E▖E▅J @�▟E▚ )) )E▚)E▘)E▂*E▂E)▚E)▚)) (�▀(( E(▆E(█E(█E(▆)(█(�▀F 173 /usr/share/yaru/icons/scheduler.pic
OCIF��▄�� �� �� �� �� �� ��▄cc c�▀cc c�▀c�▀c�▀c�▀cc cc c�▀cc c�▀c�▀c�▀c�▀cc 3�▀3�▀33 3�▀3�▀3�▘33 3�▀F 185 /usr/share/yaru/icons/script.pic
OCIF� ��▐��▆��▆��▆��▆��▖� � ��▐�*▂�*▂�*▂�*▂��▜� � ��▐E*▌6J▌*�▂*�▜�T▌� � ��▐S�▆*�▆*�▆*�▆��▆� F 167 /usr/share/yaru/icons/search.pic
OCIF��▄��▗��▀��▀��▖�� �� ��▄�� �� �� �� �� �� �� �� cc c�▝c�▀c�▀�c▝c�▖cc cc 3�▀33 33 33 3�▝3�▀33 3�▀F 177 /usr/share/yaru/icons/settings.pic
OCIF��▄�� �� ��▀��▀�� �� ��▄�▗�▘�� �▀�▀�� �▝�▖U�▝�U▖�� �U▀�U▀�� �U▗U�▘S�▀SS SS S�▀S�▀SS SS S�▀F 165 /usr/share/yaru/icons/storage.pic
OCIFg�▄gg gg gg gg gg gg g�▄gg �� �� �� �� �� �� gg 77 �[▀�[▀�� �� �[▀�[▀77 6�▀6�▀6�▀6�▀6�▀6�▀6�▀6�▀F 181 /usr/share/yaru/icons/sudoku.pic
OCIFn�▄n�▗n�▖n�▖n�▗nn nn n�▄== =�▛=�▂=�▌�=▌=�▂=�▜== 88 8�▛8�▂8�▌�8▌�8▀8�▖88 8�▀88 88 8�▘8�▝88 88 8�▀F 173 /usr/share/yaru/icons/tapes.pic
OCIFm�▄mm mm mm mm mm mm m�▄<< ��▀*�▀*�▀*�▀*�▀��▀<< << �� �*▘�*▝�*▘�*▝�� << 7�▀77 7�▀7�▀7�▀7�▀77 7�▀F 161 /usr/share/yaru/icons/terminal.pic
OCIF]�▄�]▀]] ]] ]] ]] ]] ]�▄\\ \�▝�� \�▖\\ \\ \\ \\ WW �W▘W�▀WW �W▀�W▀�W▀WW ,�▀,, ,, ,, ,, ,, ,, ,�▀F 161 /usr/share/yaru/icons/tetris.pic
OCIFS�▄SS SS SS SS SS SS S�▄11 11 1�▀�� 1�▀11 11 11 )) HH H)▀H)▀)) �)▀�)▀)) )�▀)) )) )) )) )�▀)�▀)�▀F 175 /usr/share/yaru/icons/text.pic
OCIF� ��▐��▆��▆��▆��▆��▖� � ��▐ׁ ׁ▆ׁ▆ׁ▆�� � � ��▐ׁ▔��▂��▂��▂�� � � ��▐�▆�▆�▆�� �� � F 161 /usr/share/yaru/icons/trash.pic
OCIF� ��▗��▅��▆��▆��▅��▖� � �� �� ��▖�▖� �� � � �� �� ��▌�▌� �� � � � �� ��▘�▘� � � F 185 /usr/share/yaru/icons/user.pic
OCIF� �▃�▆�▂�▂�▆�▃� �▐ �█� �� �▘ �▌�▐�█�▀��▆��▆�▅�█�▌� ��▝��▀�▀�▀��▀��▘� F 183 /usr/share/yaru/icons/video.pic
OCIF� ��▐��▆��▆��▆��▆��▖� � ��▐��▃��▃��▃��▃��▖� � ��▐�� ��▌��▃��█��▌� � ��▐��▅��▅��▅��▅��▔� F 181 /usr/share/yaru/icons/viewer.pic
OCIFs�▄ss ss ss ss s�▂�s█s�▄CC CC �C█�C█rC█C�▀C�▟CC == =�▛�=▘�m =�▃�=▀=�▖== 8�▀8�▀8�▀8�▀8�▀8�▀8�▀8�▀F 185 /usr/share/yaru/icons/web.pic
OCIFs�▄ss s�▗�s▀�s▀s�▖ss s�▄BB �B▘�B▝�B▘�B▝�B▘�B▝BB == =�▚=�▖�=▌=�▌=�▗�=▚== 
�▀

 
�▝
�▀
�▀
�▘

 
�▀F 3410 /usr/share/yaru/shell/calendar.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local unicode=require("unicode")
local M={}

local MONTHS={"January","February","March","April","May","June","July","August","September","October","November","December"}

local function daysIn(y,m)
local d={31,28,31,30,31,30,31,31,30,31,30,31}
if m==2 and(y%4==0 and(y%100~=0 or y%400==0))then return 29 end
return d[m]
end

local function weekday(y,m,d)
local tt={0,3,2,5,0,3,5,1,4,6,2,4}
if m<3 then y=y-1 end
local w=(y+y//4-y//100+y//400+tt[m]+d)%7
return(w+6)%7
end

local function ago(t)
local d=Y.now()-t
if d<60 then return"now"elseif d<3600 then return(d//60).." min"end
return Y.date("%H:%M",t)
end

function M.open()
local now=Y.now()
local o={kind="calendar",y=tonumber(Y.date("%Y",now)),m=tonumber(Y.date("%m",now)),off=0}
Y.unread=false
local pw,ph=74,20
local W=Y.size()
local x0,y0=(W-pw)//2,3

function o.draw()
local t=Y.theme
local mx,my=x0,y0
ui.card(mx,my,pw,ph,t.menu)

local nw=42
local list=Y.notifs
if#list==0 then
gfx.text(mx+(nw-16)//2,my+ph//2-1,"No Notifications",t.dim,t.menu)
else
local y=my+1
for i=1+o.off,#list do
local n=list[i]
if y+2>my+ph-3 then break end
ui.round(mx+1,y,nw-2,2,t.menuHi)
gfx.text(mx+2,y,ui.trunc(n.title,nw-12),t.menuFg,t.menuHi)
local a=ago(n.time)
gfx.text(mx+nw-3-unicode.len(a),y,a,t.dim,t.menuHi)
gfx.text(mx+2,y+1,ui.trunc(n.body:gsub("\n"," "),nw-5),t.dim,t.menuHi)
local idx=i
o.hits[#o.hits+1]={mx+1,y,nw-2,2,function()
local nn=table.remove(Y.notifs,idx)
if nn and nn.action then Y.closeOverlay();pcall(nn.action)end
end}
y=y+3
end
end

local fy=my+ph-2
gfx.text(mx+2,fy,"Do Not Disturb",t.menuFg,t.menu)
ui.switch(o,mx+17,fy,Y.cfg.dnd,function()Y.cfg.dnd=not Y.cfg.dnd;Y.saveConfig()end)
if#list>0 then ui.button(o,mx+nw-9,fy,"Clear",function()Y.notifs={};o.off=0 end)end
for yy=my+1,my+ph-2 do gfx.text(mx+nw,yy,"│",t.sep,t.menu)end

local cx=mx+nw+2
local today=Y.now()
gfx.text(cx,my+1,Y.date("%A",today),t.dim,t.menu)
gfx.text(cx,my+2,Y.date("%B %d %Y",today),t.menuFg,t.menu)
local title=MONTHS[o.m].." "..o.y
gfx.text(cx,my+4,"‹",t.menuFg,t.menu)
gfx.text(cx+3+(22-unicode.len(title))//2,my+4,title,t.menuFg,t.menu)
gfx.text(cx+27,my+4,"›",t.menuFg,t.menu)
o.hits[#o.hits+1]={cx-1,my+4,3,1,function()o.m=o.m-1;if o.m<1 then o.m,o.y=12,o.y-1 end end}
o.hits[#o.hits+1]={cx+26,my+4,3,1,function()o.m=o.m+1;if o.m>12 then o.m,o.y=1,o.y+1 end end}
local hdr={"M","T","W","T","F","S","S"}
for i,h in ipairs(hdr)do gfx.text(cx+(i-1)*4+1,my+6,h,t.dim,t.menu)end
local first=weekday(o.y,o.m,1)
local ty,tm,td=tonumber(Y.date("%Y",today)),tonumber(Y.date("%m",today)),tonumber(Y.date("%d",today))
for d=1,daysIn(o.y,o.m)do
local cell=first+d-1
local col,row=cell%7,cell//7
local x,y=cx+col*4,my+7+row*2
local isToday=o.y==ty and o.m==tm and d==td
local s=string.format("%2d",d)
if isToday then ui.pill(x-1,y,4,t.accent);gfx.text(x,y,s,0xFFFFFF,t.accent)
else gfx.text(x,y,s,col>=5 and t.dim or t.menuFg,t.menu)end
end
o.hits[#o.hits+1]={mx,my,pw,ph,function()end}
end
function o.touch()Y.closeOverlay()return true end
function o.scroll(_,x,y,dir)
if x<x0+42 then o.off=math.max(0,math.min(#Y.notifs-1,o.off-dir))
else o.m=o.m-dir;if o.m<1 then o.m,o.y=12,o.y-1 elseif o.m>12 then o.m,o.y=1,o.y+1 end end
gfx.damage(x0,y0-1,pw+1,ph+3)
end
function o.key(_,char,code)
if code==Y.K.esc then Y.closeOverlay()end
end
Y.openOverlay(o)
return o
end

return M
F 3595 /usr/share/yaru/shell/lock.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local unicode=require("unicode")
local M={}

function M.open(requirePassword,blank,login)
local o={kind="lock",blank=blank,login=login,pw={text="",cur=0},stage=login and"users"or"clock",
tickInterval=30}
if Y.overlay and Y.overlay.kind=="lock"then

Y.overlay.blank=blank
gfx.damageAll()
return Y.overlay
end
local function unlock()
Y.closeOverlay()
Y.lastInput=computer.uptime()
if login then Y.notify("Welcome","Super: Activities   Ctrl+Alt+T: Terminal   Super+A: Applications",{timeout=6})end
end
local function try()
if not requirePassword or require("yaru.sha256").check(Y.cfg.password,o.pw.text)then return unlock()end
o.pw.text,o.pw.cur="",0
o.err="Sorry, that didn't work. Please try again."
if Y.cfg.beeps then computer.beep(200,0.1)end
end
local function advance()
if o.stage=="users"or o.stage=="clock"then
if requirePassword then o.stage="password"else return unlock()end
else try()end
end

function o.tick()gfx.damageAll()end
function o.draw()
local W,H=Y.size()
local t=Y.theme
if o.blank then gfx.fill(1,1,W,H,0x000000)return end
Y.wallpaper()
gfx.blend(1,1,W,H,0,o.stage=="clock"and 0.35 or 0.6)

gfx.fill(1,1,W,1,0x000000)
local c=Y.date("%a %b %d  %H:%M")
gfx.text((W-unicode.len(c))//2,1,c,0xFFFFFF)
gfx.text(W-3,1,"⌽",0xFFFFFF)
o.hits[#o.hits+1]={W-5,1,5,1,function()o.power=not o.power end}
if o.power then
local mx=W-18
ui.card(mx,3,16,2,t.menu)
gfx.text(mx+2,3,"Restart",t.menuFg,t.menu)
gfx.text(mx+2,4,"Power Off",t.menuFg,t.menu)
o.hits[#o.hits+1]={mx,3,16,1,function()Y.quit("reboot")end}
o.hits[#o.hits+1]={mx,4,16,1,function()Y.quit("shutdown")end}
end
if o.stage=="clock"then
local hm=Y.date("%H:%M")
local cy=H//2-8
ui.big((W-ui.bigWidth(hm))//2,cy,hm,0xFFFFFF)
local d=Y.date("%A, %B %d")
Y.label((W-40)//2,cy+10,d,40)
local hint=requirePassword and"Click or press a key to unlock"or"Click or press a key to continue"
Y.label((W-50)//2,H-3,hint,50)
return
end
local name=os.getenv("USER")or"user"
local host=os.getenv("HOSTNAME")or"openos"
local cy=H//2-7
local ax=(W-14)//2
ui.card(ax,cy,14,6,t.accent,false)
Y.drawIcon(ax+3,cy+1,"user")
local nm=name
gfx.text((W-unicode.len(nm))//2,cy+8,nm,0xFFFFFF)
if o.stage=="users"then
local sub="on "..host
gfx.text((W-unicode.len(sub))//2,cy+9,sub,0xC0BFBC)
o.hits[#o.hits+1]={ax-4,cy-1,22,11,advance}
Y.label((W-50)//2,H-3,"Click your name or press Enter to log in",50)
else
local ew=32
local ex=(W-ew)//2
ui.entry(nil,o.pw,ex,cy+10,ew,true,"Password",true)
ui.pill(ex+ew+1,cy+10,3,t.accent)
gfx.text(ex+ew+2,cy+10,"→",0xFFFFFF,t.accent)
o.hits[#o.hits+1]={ex+ew+1,cy+10,3,1,try}
if o.err then gfx.text((W-unicode.len(o.err))//2,cy+12,o.err,0xF66151)end
if login then
gfx.text(ex,cy+14,"‹ Back",0xC0BFBC)
o.hits[#o.hits+1]={ex,cy+14,6,1,function()o.stage="users";o.err=nil end}
end
end
end
function o.touch()
o.power=false
Y.lastInput=computer.uptime()
if o.blank then o.blank=false
elseif o.stage=="clock"then advance()end
gfx.damageAll()
return true
end
function o.key(_,char,code)
Y.lastInput=computer.uptime()
if o.blank then o.blank=false;gfx.damageAll()return end
if o.stage~="password"then
if code==Y.K.esc and o.stage=="users"then return end
advance()
else
local r=ui.entryKey(o.pw,char,code)
if r=="enter"then try()
elseif r=="esc"then o.pw.text,o.pw.cur="",0;if not login then o.stage="clock"end
elseif r then o.err=nil end
end
gfx.damageAll()
end
function o.paste(_,s)if o.stage=="password"then ui.entryPaste(o.pw,s)gfx.damageAll()end end
Y.openOverlay(o)
return o
end

return M
F 6287 /usr/share/yaru/shell/overview.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local unicode=require("unicode")
local M={}

local function matches(q,s)return q==""or unicode.lower(s):find(unicode.lower(q),1,true)end

function M.open(mode)
local o={kind="overview",mode=mode or"windows",opaque=true,search={text="",cur=0},sel=1}
local W,H,D=Y.size()
local t=Y.theme
local items

local function runCmd(cmd)
cmd=cmd:gsub("^%s+",""):gsub("%s+$","")
if cmd==""then return end
if cmd=="r"or cmd=="restart"then Y.closeOverlay();Y.quit("restart-shell")return end
Y.closeOverlay()
Y.launch("terminal",cmd)
end

local function appList(q)
local r={}
for _,id in ipairs(Y.appOrder)do
local a=Y.apps[id]
if matches(q,a.name)or matches(q,id)then r[#r+1]=a end
end
return r
end

local CW,CH=16,7
local function gridCols()return math.max(1,(W-D-8)//CW)end
local function drawAppGrid(list,y0)
local cols=math.min(#list,gridCols())
local x0=D+1+(W-D-cols*CW)//2
for i,a in ipairs(list)do
local c,r=(i-1)%gridCols(),(i-1)//gridCols()
local x,y=x0+c*CW,y0+r*CH
if y+5>H then break end
if o.sel==#items+1 then
gfx.blend(x+1,y,CW-2,6,0xFFFFFF,0.15)
gfx.half(x+2,y-1,CW-4,0xFFFFFF,false,0.15)
gfx.half(x+2,y+6,CW-4,0xFFFFFF,true,0.15)
end
Y.drawIcon(x+4,y,a.icon or"generic")
local name=ui.trunc(a.name,CW-2)
gfx.text(x+(CW-unicode.len(name))//2,y+5,name,0xFFFFFF)
local fn=function()Y.closeOverlay();Y.launch(a.id)end
items[#items+1]={fn=fn}
o.hits[#o.hits+1]={x,y,CW,6,fn}
o.hits[#o.hits+1]={x,y,CW,6,function()
Y.closeOverlay()
local fav
for _,f in ipairs(Y.cfg.favorites)do if f==a.id then fav=true end end
Y.menu(x+4,y+4,{{"Open",function()Y.launch(a.id)end},
{fav and"Unpin"or"Pin to Dash",function()
if fav then for i2,f in ipairs(Y.cfg.favorites)do if f==a.id then table.remove(Y.cfg.favorites,i2)break end end
else table.insert(Y.cfg.favorites,a.id)end
Y.saveConfig();Y.dockDirty()
end}})
end,1}
end
return math.ceil(#list/gridCols())*CH
end


local function drawWorkspaces(y)
local tw,th=22,6
local total=Y.wsCount*(tw+3)-3
local x=D+1+(W-D-total)//2
for i=1,Y.wsCount do
local cur=i==Y.ws
if cur then ui.card(x-1,y,tw+2,th,t.accent,false)end
local bx,by=x,y
gfx.pushClip(bx,by,tw,th)
gfx.origin(0,0)
gfx.drawWallpaperScaled(bx,by,tw,th)
if not cur then gfx.blend(bx,by,tw,th,0,0.35)end
for _,w in ipairs(Y.windows)do
if w.ws==i and not w.minimized and not w.kiosk and Y.winScreen(w)==Y.displays[1]then
local sx=bx+(w.x-D-1)*tw//(W-D)
local sy=by+(w.y-2)*th//(H-1)
local sw=math.max(3,w.w*tw//(W-D))
local sh=math.max(1,w.h*th//(H-1))
gfx.fill(sx,sy,sw,sh,w==Y.focus and t.header or t.headerIn)
gfx.fill(sx,sy,sw,1,t.header)
end
end
gfx.popClip()
gfx.text(bx+1,by+th-1,tostring(i),0xFFFFFF)
local ws=i
o.hits[#o.hits+1]={bx,by,tw,th,function()Y.switchWs(ws);o.sel=1 end}
x=x+tw+3
end
end

local function drawWindows(y0)
local list={}
for i=#Y.windows,1,-1 do local w=Y.windows[i]if w.ws==Y.ws and not w.kiosk then list[#list+1]=w end end
if#list==0 then
local s="No open windows"
gfx.text(D+1+(W-D-#s)//2,y0+6,s,0xC0BFBC)
return
end
local cw,ch=34,10
local cols=math.max(1,math.min(#list,(W-D-4)//(cw+4)))
local x0=D+1+(W-D-cols*(cw+4)+4)//2
for i,w in ipairs(list)do
local c,r=(i-1)%cols,(i-1)//cols
local x,y=x0+c*(cw+4),y0+r*(ch+4)
if y+ch+2>H then break end
local selected=o.sel==#items+1
if selected then ui.card(x-1,y,cw+2,ch,t.accent,false)end
ui.card(x,y,cw,ch-1,t.bg,not selected)
gfx.fill(x,y,cw,1,t.header)
gfx.text(x+1,y,ui.trunc(w.title or"",cw-5),t.headerFg,t.header)
ui.pill(x+cw-4,y,3,t.dark and 0x454545 or 0xDEDDDA)
gfx.text(x+cw-3,y,"×",t.headerFg,t.dark and 0x454545 or 0xDEDDDA)
local a=Y.apps[w.app]
Y.drawIcon(x+(cw-8)//2,y+3,a and a.icon or"generic")
local name=ui.trunc(a and a.name or w.app or"",cw)
gfx.text(x+(cw-unicode.len(name))//2,y+ch+1,name,0xFFFFFF)
if w.minimized then gfx.text(x+2,y+ch-2,"minimized",t.dim,t.bg)end
local fn=function()Y.closeOverlay();Y.focusWin(w)end
items[#items+1]={fn=fn}
o.hits[#o.hits+1]={x,y,cw,ch,fn}
o.hits[#o.hits+1]={x+cw-4,y,3,1,function()Y.closeWin(w);o.sel=1 end}
o.hits[#o.hits+1]={x,y,cw,ch,function()
local its={}
for n=1,Y.wsCount do
if n~=w.ws then its[#its+1]={"Move to Workspace "..n,function()w.ws=n;Y.switchWs(n);Y.focusWin(w)end}end
end
its[#its+1]="-"
its[#its+1]={"Close",function()Y.closeWin(w)end}
Y.menu(x+2,y+2,its)
end,1}
end
end

function o.draw()
items={}
W,H,D=Y.size()
t=Y.theme
gfx.blend(D+1,2,W-D,H-1,0,0.55)
if o.mode=="run"then
local bw=56
local x,y=(W-bw)//2,H//3
ui.card(x,y,bw,6,t.menu)
gfx.text(x+(bw-15)//2,y+1,"Enter a Command",t.menuFg,t.menu)
ui.entry(nil,o.search,x+3,y+3,bw-6,true,"command")
gfx.text(x+3,y+5,ui.trunc("Runs in a new Terminal · 'r' restarts the shell",bw-6),t.dim,t.menu)
return
end
local sw=44
local sx=D+1+(W-D-sw)//2
ui.entry(nil,o.search,sx,3,sw,true,"Type to search")
local q=o.search.text
if q~=""then
local list=appList(q)
local y=6
if#list>0 then y=y+drawAppGrid(list,y)+1 end
if y<H-2 then
local label="Run “"..q.."” in Terminal"
local lw=unicode.len(label)+6
local lx=D+1+(W-D-lw)//2
local selected=o.sel==#items+1
ui.pill(lx,y,lw,selected and t.accent or 0x383838)
gfx.text(lx+3,y,label,0xFFFFFF)
local fn=function()runCmd(q)end
items[#items+1]={fn=fn}
o.hits[#o.hits+1]={lx,y,lw,1,fn}
end
elseif o.mode=="apps"then
drawWorkspaces(6)
drawAppGrid(appList(""),15)
else
drawWorkspaces(6)
drawWindows(16)
end
if o.sel>#items then o.sel=math.max(1,#items)end
end

function o.touch()Y.closeOverlay()return true end
function o.scroll(_,x,y,dir)Y.switchWs(Y.ws-dir);o.sel=1 end
function o.key(_,char,code)
local K=Y.K
if code==K.esc then
if o.search.text~=""and o.mode~="run"then o.search.text,o.search.cur="",0;gfx.damageAll()return end
return Y.closeOverlay()
end
if o.mode=="run"then
local r=ui.entryKey(o.search,char,code)
if r=="enter"then runCmd(o.search.text)end
gfx.damageAll()
return
end
if code==K.enter then
local it=items and items[o.sel]
if it then it.fn()elseif o.search.text~=""then runCmd(o.search.text)end
return
end
if code==K.tab or code==K.right or code==K.down then o.sel=o.sel+1
elseif code==K.left or code==K.up then o.sel=math.max(1,o.sel-1)
else
local r=ui.entryKey(o.search,char,code)
if r then o.sel=1 end
end
gfx.damageAll()
end
function o.paste(_,s)ui.entryPaste(o.search,s);gfx.damageAll()end
Y.openOverlay(o)
return o
end

return M
F 3483 /usr/share/yaru/shell/quick.lua

local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local computer=require("computer")
local component=require("component")
local fs=require("filesystem")
local unicode=require("unicode")
local M={}

local function bar(x,y,w,frac,fg,bg)
frac=math.max(0,math.min(1,frac))
local n=math.floor(w*frac+.5)
gfx.fill(x,y,w,1,bg)
if n>0 then gfx.fill(x,y,n,1,fg)end
end

function M.powerDialog()
Y.dialog{title="Power Off",text="Choose what the computer should do.",
buttons={{"Cancel"},{"Log Out",function()Y.quit("logout")end},
{"Restart",function()Y.quit("reboot")end,"suggested"},
{"Power Off",function()Y.quit("shutdown")end,"destructive"}}}
end

function M.open()
local W=Y.size()
local pw,ph=40,17
local x0,y0=W-pw-1,3
local o={kind="quick",tick=function()gfx.damage(x0,y0-1,pw+1,ph+3)end,tickInterval=2}
local boot=fs.get("/")
local dTotal=boot and boot.spaceTotal()or 0
local dUsed=boot and boot.spaceUsed()or 0

local function pill(x,y,label,on,fn)
local t=Y.theme
local bg=on and t.accent or t.menuHi
local fg=on and 0xFFFFFF or t.menuFg
ui.pill(x,y,18,bg)
gfx.text(x+2,y,ui.trunc(label,15),fg,bg)
o.hits[#o.hits+1]={x,y,18,1,fn}
end

function o.draw()
local t=Y.theme
local x,y=x0,y0
ui.card(x,y,pw,ph,t.menu)
o.hits[#o.hits+1]={x,y,pw,ph,function()end}

local maxE=computer.maxEnergy()
local e=maxE>0 and string.format("ϟ %d%%",math.floor(computer.energy()*100/maxE))or"ϟ —"
gfx.text(x+2,y+1,e,t.menuFg,t.menu)
ui.button(o,x+pw-22,y+1,"☼",function()Y.closeOverlay();Y.launch("settings")end,nil,3)
ui.button(o,x+pw-18,y+1,"Lock",function()Y.closeOverlay();Y.lazy("lock").open(Y.cfg.password~=nil)end,nil,6)
ui.button(o,x+pw-11,y+1,"⌽ Off…",function()Y.closeOverlay();M.powerDialog()end,nil,9)

local net=component.isAvailable("internet")and"Internet"or component.isAvailable("modem")and"Network"or"Offline"
pill(x+2,y+3,"⇅ "..net,net~="Offline",function()
Y.notify("Network",net=="Offline"and"No network card installed"or(net.." card is available"))
end)
pill(x+20,y+3,"♪ Sound",Y.cfg.beeps,function()Y.cfg.beeps=not Y.cfg.beeps;Y.saveConfig()end)
pill(x+2,y+5,"◐ Dark Style",Y.cfg.dark,function()Y.cfg.dark=not Y.cfg.dark;Y.saveConfig();Y.applyTheme()end)
pill(x+20,y+5,"☾ Do Not Disturb",Y.cfg.dnd,function()Y.cfg.dnd=not Y.cfg.dnd;Y.saveConfig()end)
pill(x+2,y+7,"▮ RAM in panel",Y.cfg.showMemory,function()Y.cfg.showMemory=not Y.cfg.showMemory;Y.saveConfig()end)
pill(x+20,y+7,"◉ Screen Lock",(Y.cfg.blank or 0)>0,function()
Y.cfg.blank=(Y.cfg.blank or 0)>0 and 0 or 5;Y.saveConfig()
end)

local total,free=computer.totalMemory(),computer.freeMemory()
gfx.text(x+2,y+9,"Memory",t.menuFg,t.menu)
local ms=string.format("%s / %s",ui.size(total-free),ui.size(total))
gfx.text(x+pw-2-unicode.len(ms),y+9,ms,t.dim,t.menu)
ui.progress(x+2,y+10,pw-4,(total-free)/total,(total-free)/total>.85 and t.danger or t.accent)
gfx.text(x+2,y+11,"Disk",t.menuFg,t.menu)
local ds=string.format("%s / %s",ui.size(dUsed),ui.size(dTotal))
gfx.text(x+pw-2-unicode.len(ds),y+11,ds,t.dim,t.menu)
ui.progress(x+2,y+12,pw-4,dTotal>0 and dUsed/dTotal or 0,t.accent)
gfx.text(x+2,y+14,"Uptime "..string.format("%d:%02d",computer.uptime()//3600,computer.uptime()//60%60),t.dim,t.menu)
ui.button(o,x+pw-11,y+14,"Log Out…",function()Y.closeOverlay();M.powerDialog()end,"flat",9)
end
function o.touch()Y.closeOverlay()return true end
function o.key(_,char,code)if code==Y.K.esc then Y.closeOverlay()end end
Y.openOverlay(o)
return o
end

return M
F 1934 /usr/share/yaru/shell/switcher.lua


local Y=require("yaru.core")
local gfx=require("yaru.gfx")
local ui=require("yaru.ui")
local unicode=require("unicode")
local M={}

function M.open(dir)
local o=Y.overlay
if o and o.kind=="switcher"then return o.step(dir)end
local list={}
for i=#Y.windows,1,-1 do
local w=Y.windows[i]
if w.ws==Y.ws and not w.kiosk then list[#list+1]=w end
end
if#list==0 then return end
o={kind="switcher",sel=#list>1 and(dir<0 and#list or 2)or 1}
local W,H=Y.size()
local cw=16
local n=math.min(#list,(W-8)//cw)
local bw=n*cw+2
local x0,y0=(W-bw)//2,H//2-3

local function activate()
local w=list[o.sel]
Y.closeOverlay()
if w then Y.focusWin(w)end
end
function o.step(d)
o.sel=(o.sel-1+d)%#list+1
gfx.damage(x0,y0-1,bw+1,12)
end
function o.draw()
local t=Y.theme
ui.card(x0,y0,bw,9,t.menu)
local first=math.max(1,math.min(o.sel-n+1,#list-n+1))
for i=first,math.min(#list,first+n-1)do
local w=list[i]
local x=x0+1+(i-first)*cw
local sel=i==o.sel
local bg=sel and t.menuHi or t.menu
if sel then ui.round(x,y0+1,cw-1,6,bg)end
local a=Y.apps[w.app]
Y.drawIcon(x+(cw-9)//2,y0+1,a and a.icon or"generic")
local name=ui.trunc(a and a.name or(w.title or""),cw-2)
gfx.text(x+(cw-1-unicode.len(name))//2,y0+5,name,t.menuFg,bg)
local idx=i
o.hits[#o.hits+1]={x,y0+1,cw-1,6,function()o.sel=idx;activate()end}
end
local title=ui.trunc(list[o.sel].title or"",bw-4)

gfx.text(x0+(bw-unicode.len(title))//2,y0+7,title,t.dim,t.menu)
end
function o.keyUp(_,char,code)
local K=Y.K
if code==K.lalt or code==K.ralt or code==K.lsuper or code==K.rsuper or code==K.lctrl or code==K.rctrl then
if not(Y.mods.alt()or Y.mods.super()or Y.mods.ctrl())then activate()end
end
end
function o.key(_,char,code)
local K=Y.K
if code==K.esc then Y.closeOverlay()
elseif code==K.enter then activate()
elseif code==K.left then o.step(-1)
elseif code==K.right or code==K.tab then o.step(1)end
end
function o.touch()Y.closeOverlay()return true end
Y.openOverlay(o)
return o
end

return M
E