sPhone/src/sPhone.lua
2016-11-24 22:18:24 +01:00

1417 lines
38 KiB
Lua

local function kernel(...)
_G.sPhone = {
version = "Beta 1",
user = "Guest",
devMode = false,
mainTerm = term.current(),
safeMode = false,
}
if safemode then
sPhone.safeMode = true
safemode = nil
end
sPhone.defaultApps = {
["home"] = "sphone.home",
}
sPhone.theme = { --Default colors
["header"] = colors.blue,
["headerText"] = colors.white,
["text"] = colors.black,
["background"] = "",
["backgroundColor"] = colors.white,
["window.background"] = colors.lightBlue,
["window.side"] = colors.blue,
["window.button"] = colors.lightBlue,
["window.text"] = colors.white,
["lock.background"] = colors.white,
["lock.text"] = colors.black,
["lock.inputBackground"] = colors.white,
["lock.inputText"] = colors.black,
["lock.inputSide"] = colors.lightBlue,
["lock.error"] = colors.red,
}
sPhone.defaultTheme = sPhone.theme
if not fs.exists("/.sPhone/apis") then
fs.makeDir("/.sPhone/apis")
end
for k, v in pairs(fs.list("/.sPhone/apis")) do
if not fs.isDir("/.sPhone/apis/"..v) then
os.loadAPI("/.sPhone/apis/"..v)
end
end
if not config.write("/.sPhone/config/sPhone","configVersion",1) then
config.convert("/.sPhone/config/sPhone")
config.write("/.sPhone/config/sPhone","configVersion",1)
end
if not fs.exists("/.sPhone/system") then
fs.makeDir("/.sPhone/system")
end
for k, v in pairs(fs.list("/.sPhone/system")) do
if not fs.isDir("/.sPhone/system/"..v) then
dofile("/.sPhone/system/"..v)
end
end
local sPath = shell.path()
sPath = sPath..":/bin"
shell.setPath(sPath)
if not fs.exists("/.sPhone/autorun") then
fs.makeDir("/.sPhone/autorun")
end
term.setBackgroundColor(colors.white)
term.clear()
term.setCursorPos(1,1)
for k, v in pairs(fs.list("/.sPhone/autorun")) do
term.setTextColor(colors.black)
if not fs.isDir("/.sPhone/autorun/"..v) then
if not sPhone.safeMode then
local f = fs.open("/.sPhone/autorun/"..v,"r")
local script = f.readAll()
f.close()
print("Loading script "..v)
local ok, err = pcall(function() setfenv(loadstring(script),getfenv())() end)
if not ok then
term.setTextColor(colors.red)
print("Script error: "..v..": "..err)
fs.move("/.sPhone/autorun/"..v, "/.sPhone/autorun/disabled/"..v)
term.setTextColor(colors.blue)
print(v.." disabled to prevent errors")
end
else
print("Script "..v.." not loaded because Safe Mode")
end
end
end
if config.read("/.sPhone/config/sPhone","username") then
sPhone.user = config.read("/.sPhone/config/sPhone","username")
end
if not fs.exists("/.sPhone/config/sPhone") then
config.write("/.sPhone/config/sPhone","devMode",false)
end
sPhone.devMode = config.read("/.sPhone/config/sPhone","devMode")
if sPhone.devMode then
sPhone.crash = crash
end
crash = nil
function os.version()
return "sPhone "..sPhone.version
end
function sPhone.getSize()
return term.getSize()
end
local fileTheme = "/.sPhone/config/theme"
if fs.exists(fileTheme) then
sPhone.theme["header"] = (config.read(fileTheme, "header") or sPhone.theme["header"])
sPhone.theme["headerText"] = (config.read(fileTheme, "headerText") or sPhone.theme["headerText"])
sPhone.theme["text"] = (config.read(fileTheme, "text") or sPhone.theme["text"])
sPhone.theme["background"] = (config.read(fileTheme, "background") or sPhone.theme["background"])
sPhone.theme["backgroundColor"] = (config.read(fileTheme, "backgroundColor") or sPhone.theme["backgroundColor"])
sPhone.theme["window.background"] = (config.read(fileTheme, "window.background") or sPhone.theme["window.background"])
sPhone.theme["window.side"] = (config.read(fileTheme, "window.side") or sPhone.theme["window.side"])
sPhone.theme["window.button"] = (config.read(fileTheme, "window.button") or sPhone.theme["window.button"])
sPhone.theme["window.text"] = (config.read(fileTheme, "window.text") or sPhone.theme["window.text"])
sPhone.theme["lock.background"] = (config.read(fileTheme, "lock.background") or sPhone.theme["lock.background"])
sPhone.theme["lock.text"] = (config.read(fileTheme, "lock.text") or sPhone.theme["lock.text"])
sPhone.theme["lock.inputBackground"] = (config.read(fileTheme, "lock.inputBackground") or sPhone.theme["lock.inputBackground"])
sPhone.theme["lock.inputText"] = (config.read(fileTheme, "lock.inputText") or sPhone.theme["lock.inputText"])
sPhone.theme["lock.inputSide"] = (config.read(fileTheme, "lock.inputSide") or sPhone.theme["lock.inputSide"])
sPhone.theme["lock.error"] = (config.read(fileTheme, "lock.error") or sPhone.theme["lock.error"])
else
for k, v in pairs(sPhone.theme) do
config.write(fileTheme, k, v)
end
end
function sPhone.applyTheme(id, value)
if not value or not id then
error("bad arguement: double expected, got nil",2)
end
sPhone.theme[id] = value
config.write(fileTheme, id, value)
end
function sPhone.getTheme(id)
if not id then
error("bad arguement: double expected, got nil",2)
end
local n = config.read(fileTheme, id)
if n then
return n
end
return sPhone.defaultTheme[id]
end
function sPhone.setDefaultApp(app, path)
if not path then
error("got nil",2)
end
sPhone.defaultApps[app] = path
config.write("/.sPhone/config/defaultApps",app,path)
end
function sPhone.getDefaultApp(app)
if not app then
error("got nil",2)
end
local n = config.read("/.sPhone/config/defaultApps",app)
return n
end
if not fs.exists("/.sPhone/config/defaultApps") then
sPhone.setDefaultApp("home","sphone.home")
end
function string.getExtension(name)
local ext = ""
local exten = false
name = string.reverse(name)
for i = 1, #name do
local s = string.sub(name,i,i)
if s == "." then
ch = i - 1
exten = true
break
end
end
if exten then
ext = string.sub(name, 1, ch)
return string.reverse(ext)
else
return nil
end
end
function sPhone.list(path, opt)
opt = opt or {}
opt.bg1 = opt.bg1 or sPhone.getTheme("backgroundColor")
opt.fg1 = opt.fg1 or sPhone.getTheme("text")
opt.fg1b = opt.fg1b or colors.lime
opt.bg2 = opt.bg2 or sPhone.getTheme("header")
opt.fg2 = opt.fg2 or sPhone.getTheme("headerText")
opt.bg3 = opt.bg3 or sPhone.getTheme("header")
opt.fg3 = opt.fg3 or sPhone.getTheme("headerText")
opt.output = opt.output or true
opt.list = opt.list or false
opt.pairs = opt.pairs or false
opt.title = opt.title or false
if not path then
path = ""
end
if not fs.isDir(path) and not opt.list then
error("Invalid path")
end
local scroll = 0
local items
local cho = {}
local w, h
local function rebuild()
local files, dirs = {}, {}
items = {}
local flist
if not opt.list then
flist = fs.list(path)
else
flist = opt.list
end
local function pair(tab)
if opt.pairs then
return pairs(tab)
end
return ipairs(tab)
end
for i, v in pair(flist) do
if fs.isDir(fs.combine(path, v)) then
table.insert(dirs, v)
else
table.insert(files, v)
end
end
table.sort(files)
table.sort(dirs)
for i, v in pair(dirs) do
table.insert(items, v)
end
for i, v in pair(files) do
table.insert(items, v)
end
if opt.pairs then
for k, v in pairs(flist) do
cho[v] = k
end
end
scroll = 0
end
rebuild()
local setVisible = term.current().setVisible
or function()end
local function redraw()
w, h = term.getSize()
setVisible(false)
term.setBackgroundColor(opt.bg1)
term.clear()
for i = scroll + 1, h + scroll - 1 do
local str = items[i]
if str then
term.setCursorPos(2, 1 + i - scroll)
local isDir
if not pairs then
isDir = fs.isDir(fs.combine(path, str))
else
isDir = false
end
term.setTextColor(isDir and opt.fg1b or opt.fg1)
local _w = w - (isDir and 2 or 1)
if #str > _w then
str = str:sub(1, _w - 2) .. ".."
end
if isDir then
str = str .. "/"
end
term.write(str)
end
end
term.setBackgroundColor(opt.bg2)
term.setTextColor(opt.fg2)
term.setCursorPos(1, 1)
term.clearLine()
local _path = path .. "/"
if #_path > w - 2 then
_path = ".." .. _path:sub(-w + 4)
end
if opt.title then
_path = opt.title
end
term.write(_path)
term.setBackgroundColor(opt.bg3)
term.setTextColor(opt.fg3)
term.setCursorPos(w, 1)
term.write("X")
term.setCursorPos(w, 2)
term.write("^")
term.setCursorPos(w, h)
term.write("v")
setVisible(true)
end
while true do
redraw()
local ev = {os.pullEventRaw()}
if ev[1] == "terminate" then
return nil
elseif ev[1] == "mouse_scroll" and ev[4] > 1 then
scroll = scroll + ev[2]
elseif ev[1] == "mouse_click" then
if ev[3] == w and ev[2] == 1 then
if ev[4] == 1 then
return nil
elseif ev[4] == 2 then
scroll = scroll - 1
elseif ev[4] == h then
scroll = scroll + 1
end
elseif ev[3] < w and ev[4] == 1 and ev[2] == 1 then
path = fs.getDir(path)
if path == ".." then
path = ""
end
rebuild()
elseif ev[3] < w and ev[4] > 1 then
local item = items[ev[4] + scroll - 1]
if item then
local fullPath = fs.combine(path, item)
if fs.isDir(fullPath) then
path = fullPath
rebuild()
else
if opt.output then
if opt.pairs then
return cho[fullPath], fullPath, ev[2]
end
return fullPath, ev[2]
end
end
end
end
end
scroll = math.min(math.max(0, scroll), math.max(0, #items - h + 1))
end
end
function sPhone.read( _sReplaceChar, _tHistory, _fnComplete, _MouseEvent, _presetInput )
term.setCursorBlink( true )
local sLine = _presetInput
if type(sLine) ~= "string" then
sLine = ""
end
local nPos = #sLine
local nHistoryPos
local _MouseX
local _MouseY
local param
local sEvent
local usedMouse = false
if _sReplaceChar then
_sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
end
local tCompletions
local nCompletion
local function recomplete()
if _fnComplete and nPos == string.len(sLine) then
tCompletions = _fnComplete( sLine )
if tCompletions and #tCompletions > 0 then
nCompletion = 1
else
nCompletion = nil
end
else
tCompletions = nil
nCompletion = nil
end
end
local function uncomplete()
tCompletions = nil
nCompletion = nil
end
local w = term.getSize()
local sx = term.getCursorPos()
local function redraw( _bClear )
local nScroll = 0
if sx + nPos >= w then
nScroll = (sx + nPos) - w
end
local cx,cy = term.getCursorPos()
term.setCursorPos( sx, cy )
local sReplace = (_bClear and " ") or _sReplaceChar
if sReplace then
term.write( string.rep( sReplace, math.max( string.len(sLine) - nScroll, 0 ) ) )
else
term.write( string.sub( sLine, nScroll + 1 ) )
end
if nCompletion then
local sCompletion = tCompletions[ nCompletion ]
local oldText, oldBg
if not _bClear then
oldText = term.getTextColor()
oldBg = term.getBackgroundColor()
term.setTextColor( colors.white )
term.setBackgroundColor( colors.gray )
end
if sReplace then
term.write( string.rep( sReplace, string.len( sCompletion ) ) )
else
term.write( sCompletion )
end
if not _bClear then
term.setTextColor( oldText )
term.setBackgroundColor( oldBg )
end
end
term.setCursorPos( sx + nPos - nScroll, cy )
end
local function clear()
redraw( true )
end
recomplete()
redraw()
local function acceptCompletion()
if nCompletion then
-- Clear
clear()
-- Find the common prefix of all the other suggestions which start with the same letter as the current one
local sCompletion = tCompletions[ nCompletion ]
sLine = sLine .. sCompletion
nPos = string.len( sLine )
-- Redraw
recomplete()
redraw()
end
end
while true do
sEvent, param,_MouseX,_MouseY = os.pullEvent()
if sEvent == "char" then
-- Typed key
clear()
sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
nPos = nPos + 1
recomplete()
redraw()
elseif sEvent == "paste" then
-- Pasted text
clear()
sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
nPos = nPos + string.len( param )
recomplete()
redraw()
elseif sEvent == "key" then
if param == keys.enter then
-- Enter
if nCompletion then
clear()
uncomplete()
redraw()
end
break
elseif param == keys.left then
-- Left
if nPos > 0 then
clear()
nPos = nPos - 1
recomplete()
redraw()
end
elseif param == keys.right then
-- Right
if nPos < string.len(sLine) then
-- Move right
clear()
nPos = nPos + 1
recomplete()
redraw()
else
-- Accept autocomplete
acceptCompletion()
end
elseif param == keys.up or param == keys.down then
-- Up or down
if nCompletion then
-- Cycle completions
clear()
if param == keys.up then
nCompletion = nCompletion - 1
if nCompletion < 1 then
nCompletion = #tCompletions
end
elseif param == keys.down then
nCompletion = nCompletion + 1
if nCompletion > #tCompletions then
nCompletion = 1
end
end
redraw()
elseif _tHistory then
-- Cycle history
clear()
if param == keys.up then
-- Up
if nHistoryPos == nil then
if #_tHistory > 0 then
nHistoryPos = #_tHistory
end
elseif nHistoryPos > 1 then
nHistoryPos = nHistoryPos - 1
end
else
-- Down
if nHistoryPos == #_tHistory then
nHistoryPos = nil
elseif nHistoryPos ~= nil then
nHistoryPos = nHistoryPos + 1
end
end
if nHistoryPos then
sLine = _tHistory[nHistoryPos]
nPos = string.len( sLine )
else
sLine = ""
nPos = 0
end
uncomplete()
redraw()
end
elseif param == keys.backspace then
-- Backspace
if nPos > 0 then
clear()
sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
nPos = nPos - 1
recomplete()
redraw()
end
elseif param == keys.home then
-- Home
if nPos > 0 then
clear()
nPos = 0
recomplete()
redraw()
end
elseif param == keys.delete then
-- Delete
if nPos < string.len(sLine) then
clear()
sLine = string.sub( sLine, 1, nPos ) .. string.sub( sLine, nPos + 2 )
recomplete()
redraw()
end
elseif param == keys["end"] then
-- End
if nPos < string.len(sLine ) then
clear()
nPos = string.len(sLine)
recomplete()
redraw()
end
elseif param == keys.tab then
-- Tab (accept autocomplete)
acceptCompletion()
end
elseif sEvent == "term_resize" then
-- Terminal resized
w = term.getSize()
redraw()
elseif sEvent == "mouse_click" and _MouseEvent then
if nCompletion then
clear()
uncomplete()
redraw()
end
usedMouse = true
break
end
end
local cx, cy = term.getCursorPos()
term.setCursorBlink( false )
term.setCursorPos( w + 1, cy )
print()
if sEvent == "mouse_click" then
return sLine, param, _MouseX, _MouseY
end
return sLine
end
local function clear()
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.clear()
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["text"])
end
sPhone.forceShutdown = os.shutdown
sPhone.forceReboot = os.reboot
function os.shutdown()
local w, h = term.getSize()
local text = "Shutting down"
local x = math.ceil(w/2)-math.ceil(#text/2)+1
local y = math.ceil(h/2)
sPhone.inHome = false
os.pullEvent = os.pullEventRaw
local function printMsg(color)
term.setBackgroundColor(color)
term.setTextColor(colors.white)
term.clear()
term.setCursorPos(x,y)
print(text)
sleep(0.1)
end
printMsg(colors.white)
printMsg(colors.lightGray)
printMsg(colors.gray)
printMsg(colors.black)
sleep(0.6)
sPhone.forceShutdown()
end
function os.reboot()
local w, h = term.getSize()
local text = "Rebooting"
local x = math.ceil(w/2)-math.ceil(#text/2)+1
local y = math.ceil(h/2)
sPhone.inHome = false
os.pullEvent = os.pullEventRaw
local function printMsg(color)
term.setBackgroundColor(color)
term.setTextColor(colors.white)
term.clear()
term.setCursorPos(x,y)
print(text)
sleep(0.1)
end
printMsg(colors.white)
printMsg(colors.lightGray)
printMsg(colors.gray)
printMsg(colors.black)
sleep(0.6)
sPhone.forceReboot()
end
function sPhone.header(title, butt)
if not title then
title = "sPhone"
end
local w, h = term.getSize()
paintutils.drawLine(1,1,w,1, sPhone.theme["header"])
term.setTextColor(sPhone.theme["headerText"])
term.setCursorPos(1,1)
write(" "..title)
term.setCursorPos(w,1)
if butt then
write(butt)
end
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
term.setCursorPos(1,3)
end
function sPhone.menu(items, title, closeButton)
local function cprint(text)
if type(text) ~= 'table' then
text = {text}
end
local w, h = term.getSize()
for i=1,#text do
local x, y = term.getCursorPos()
term.setCursorPos(math.floor(w/2)-math.floor(text[i]:len()/2), y)
print(text[i])
end
end
local function clear()
term.clear()
term.setCursorPos(1, 1)
end
local termWidth, termHeight = term.getSize()
local drawSize = termHeight - 2
local function maxPages()
local itemCount = #items
local pageCount = 0
while itemCount > 0 do
itemCount = itemCount - drawSize
pageCount = pageCount + 1
end
return pageCount
end
local function iif(cond, trueval, falseval)
if cond then
return trueval
else
return falseval
end
end
local function pagedItems()
local ret = {}
for i = 1, maxPages() do
local tmp = {}
local nElements = 0
for j = drawSize*(i-1)+1, iif(drawSize*(i+1) > #items, #items, drawSize*(i+1)) do
if nElements < drawSize then
table.insert(tmp, items[j])
nElements = nElements + 1
end
end
table.insert(ret, tmp)
end
return ret
end
local selected = 1
if start then
selected = start
end
local page = 1
local function redraw()
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
term.clear()
term.setCursorPos(1,1)
if not title then
title = ""
end
sPhone.header(title,closeButton)
term.setCursorPos(1,3)
if moreTitle then
head = moreTitle
else
head = {}
if not allowNil or allowNil == true then
--head[3] = 'Terminate to cancel.'
end
end
for i=1,#head do
print(head[i])
end
if maxPages() > 1 then
pages = "<- (page "..page.." of "..maxPages()..") ->"
print(pages)
end
for i = 1, #pagedItems()[page] do
if selected == drawSize*(page-1)+i then
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
else
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
end
term.clearLine()
cprint(iif(selected == drawSize*(page-1)+i,"","").." "..pagedItems()[page][i])
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
end
end
local function changePage(pW)
if pW == 1 and page < maxPages() then
page = page + 1
if selected + drawSize > #items then
selected = #items
else
selected = selected + drawSize
end
elseif pW == -1 and page > 1 then
page = page - 1
if selected - drawSize < 1 then
selected = 1
else
selected = selected - drawSize
end
end
end
while true do
redraw()
local eventData = {os.pullEventRaw()}
if eventData[1] == 'mouse_click' then
if eventData[4] == 1 and eventData[3] == termWidth then
return false, 0
elseif eventData[4] > 2 then
clear()
selected = (eventData[4]-3+((page-1)*drawSize))+1
if selected then
return items[selected], selected
end
end
end
end
end
function sPhone.yesNo(title, desc, hideUser)
term.setCursorBlink(false)
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.clear()
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["text"])
local w, h = term.getSize()
paintutils.drawLine(1,1,w,1, sPhone.theme["header"])
term.setTextColor(sPhone.theme["headerText"])
term.setCursorPos(1,1)
if not hideUser then
if not sPhone.user then
write(" sPhone")
else
write(" "..sPhone.user)
end
end
term.setCursorPos(1,3)
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.setTextColor(sPhone.theme["text"])
visum.align("center", " "..title, false, 3)
if desc then
term.setCursorPos(2,6)
print(desc)
end
paintutils.drawFilledBox(3, 16, 9, 18, colors.green)
paintutils.drawFilledBox(18, 16, 24, 18, colors.red)
term.setTextColor(colors.white)
term.setCursorPos(5,17)
term.setBackgroundColor(colors.green)
write("Yes")
term.setCursorPos(20,17)
term.setBackgroundColor(colors.red)
write("No")
while true do
local _,_,x,y = os.pullEvent("mouse_click")
if (x > 2 and y > 15) and (x < 10 and y < 19) then
return true
elseif (x > 17 and y > 15) and (x < 25 and y < 19) then
return false
end
end
end
function sPhone.winOk(fmessage, smessage, bg, side, text, button)
if not fmessage then
fmessage = ""
end
if not smessage then
smessage = ""
end
if not bg then
bg = sPhone.theme["window.background"]
end
if not text then
text = sPhone.theme["window.text"]
end
if not button then
button = sPhone.theme["window.button"]
end
if not side then
side = sPhone.theme["window.side"]
end
term.setCursorBlink(false)
if #fmessage >= #smessage then
local w, h = term.getSize
term.setBackgroundColor(side)
paintutils.drawBox(12 - math.ceil(#fmessage / 2), 5, 15 + math.ceil(#fmessage / 2), 10, side)
term.setBackgroundColor(bg)
paintutils.drawFilledBox(13 - math.ceil(#fmessage / 2), 6, 14 + math.ceil(#fmessage / 2), 9, bg)
term.setCursorPos(14 - math.ceil(#fmessage / 2), 7)
term.setTextColor(text)
write(fmessage)
term.setCursorPos(14 - math.ceil(#smessage / 2), 8)
write(smessage)
else
local w, h = term.getSize
term.setBackgroundColor(side)
paintutils.drawBox(12 - math.ceil(#smessage / 2), 5, 15 + math.ceil(#smessage / 2), 10, side)
term.setBackgroundColor(bg)
paintutils.drawFilledBox(13 - math.ceil(#smessage / 2), 6, 14 + math.ceil(#smessage / 2), 9, bg)
term.setCursorPos(14 - math.ceil(#fmessage / 2), 7)
term.setTextColor(text)
write(fmessage)
term.setCursorPos(14 - math.ceil(#smessage / 2), 8)
write(smessage)
end
term.setCursorPos(13,10)
term.setBackgroundColor(button)
write("Ok")
while true do
local e, k, x,y = os.pullEvent()
if e == "mouse_click" then
if y == 10 then
if x == 13 or x == 14 then
return
end
end
elseif e == "key" then
if k == 28 then
return
end
end
end
end
function sPhone.colorPicker(message, old) -- From Impulse
local current = math.log(old) / math.log(2)
-- first line is already code wizardry
local function redraw()
term.setBackgroundColour(sPhone.theme["backgroundColor"])
term.clear()
sPhone.header(message)
term.setCursorPos(2,5)
term.setTextColor(colors.white)
term.setBackgroundColor(colors.lime)
write(" Ok ")
term.setCursorPos(7,5)
term.setTextColor(colors.white)
term.setBackgroundColor(colors.red)
write(" Cancel ")
term.setTextColor(colors.black)
term.setCursorPos(2, 3)
for i = 0, 15 do
term.setBackgroundColour(2^i)
term.write(i == current and "#" or ":")
end
end
while true do
redraw()
local ev = {os.pullEvent()}
if ev[1] == "key" and ev[2] == keys.enter then
return 2^current
elseif ev[1] == "mouse_click" then
if ev[4] == 3 and ev[3] >= 2 and ev[3] <= 17 then
current = ev[3] - 2 % 16
elseif ev[4] == 5 and ev[3] >= 2 and ev[3] <= 6 then
return 2^current
elseif ev[4] == 5 and ev[3] >= 7 and ev[3] <= 14 then
return old
end
end
end
end
sPhone.colourPicker = sPhone.colorPicker -- For UK
function sPhone.install(spk)
if not fs.exists("/.sPhone/config/spklist") then
local f = fs.open("/.sPhone/config/spklist","w")
f.write("{}")
f.close()
end
if string.getExtension(spk) == "spk" then
if fs.exists(spk) and not fs.isDir(spk) then
local f = fs.open(spk,"r")
local script = f.readAll()
f.close()
script = textutils.unserialize(script)
if not script then
error("spk corrupted",2)
end
local function writeFile(patha,contenta)
local file = fs.open(patha,"w")
file.write(contenta)
file.close()
end
function writeDown(inputa,dira)
for i,v in pairs(inputa) do
if type(v) == "table" then
writeDown(v,dira.."/"..i)
elseif type(v) == "string" then
writeFile(dira.."/"..i,v)
end
end
end
local _config = textutils.unserialize(script.config)
if not _config.id then
error("SPK: id not found",2)
end
if not _config.main then
error("SPK: main not found",2)
end
writeDown(textutils.unserialize(script.files),"/.sPhone/apps/spk/".._config.id.."/files")
local f = fs.open("/.sPhone/apps/spk/".._config.id.."/.spk","w")
f.write(textutils.serialize(_config))
f.close()
local f = fs.open("/.sPhone/config/spklist","r")
local lists = f.readAll()
f.close()
lists = textutils.unserialize(lists)
if not lists then
error("Cannot open config",2)
end
if not _config.name then
_config.name = _config.id
end
lists[_config.id] = _config.name
local f = fs.open("/.sPhone/config/spklist","w")
f.write(textutils.serialize(lists))
f.close()
return true, _config.id
else
return false, "not a spk file"
end
else
return false, "not a spk file"
end
end
function sPhone.launch(spk)
if not fs.exists("/.sPhone/config/spklist") then
local f = fs.open("/.sPhone/config/spklist","w")
f.write("{}")
f.close()
end
local f = fs.open("/.sPhone/config/spklist","r")
local lists = f.readAll()
f.close()
lists = textutils.unserialize(lists)
if not lists then
error("Cannot open config",2)
end
if not lists[spk] then
return false, "not installed"
end
if not fs.exists("/.sPhone/apps/spk/"..spk.."/.spk") then
return false, "Invalid SPK, .spk not found"
end
local f = fs.open("/.sPhone/apps/spk/"..spk.."/.spk","r")
local script = f.readAll()
f.close()
_config = textutils.unserialize(script)
if not script then
return false, "config corrupted"
end
local ok, err = pcall(function()
setfenv(loadfile(fs.combine("/.sPhone/apps/spk",_config.id.."/files/".._config.main)), setmetatable({
spk = {
getName = function()
return (_config.name or nil)
end,
getID = function()
return (_config.id or nil)
end,
getPath = function()
return "/.sPhone/apps/spk/".._config.id
end,
getDataPath = function()
return "/.sPhone/apps/spk/".._config.id.."/data"
end,
getAuthor = function()
return (_config.author or nil)
end,
getVersion = function()
return (_config.version or nil)
end,
getType = function()
return (_config.type or nil)
end,
open = function(file, mode)
return fs.open("/.sPhone/apps/spk/".._config.id.."/data/"..file,mode)
end,
},
string = string,
sPhone = sPhone,
}, {__index = getfenv()}))()
end)
if not ok then
return false, err
end
return true
end
local function home()
sPhone.inHome = true
local errorCount = 0
local ok, err
local homeID
local homeSPKs = {
"sphone.home",
}
while true do
if not config.read("/.sPhone/config/spklist","sphone.home") then
sPhone.install("/.sPhone/apps/home.spk")
end
os.pullEvent = os.oldPullEvent
term.setBackgroundColor(colors.black)
term.setTextColor(colors.white)
term.clear()
term.setCursorPos(1,1)
if errorCount >= 5 and errorCount < 10 then
homeID = "sphone.home"
elseif errorCount >= 10 then
error("Cannot load home: "..err,0)
else
homeID = sPhone.getDefaultApp("home")
end
if not sPhone.safeMode then
if not config.list("/.sPhone/config/spklist")[homeID] then
homeID = "sphone.home"
end
else
homeID = "sphone.home"
end
temp.set("homePID",task.add(function()
ok,err = sPhone.launch(homeID)
end))
task.run()
if not ok then
errorCount = errorCount + 1
end
sleep(0)
end
sPhone.inHome = false
end
function login()
if config.read("/.sPhone/config/sPhone","lockEnabled") == nil then
config.write("/.sPhone/config/sPhone","lockEnabled",true)
end
local usingPW = config.read("/.sPhone/config/sPhone","lockEnabled")
if not usingPW then
local old = os.pullEvent
os.pullEvent = os.pullEventRaw
local fEvents = {
["mouse_drag"] = true,
["mouse_click"] = true,
["key"] = false,
}
while true do
local w,h = term.getSize()
local clockS = textutils.formatTime(os.time(), not config.read("/.sPhone/config/sPhone","format12time"))
term.setBackgroundColor(sPhone.theme["lock.background"])
term.clear()
term.setCursorPos(1,1)
sPhone.header(sPhone.user)
term.setBackgroundColor(sPhone.theme["lock.background"])
term.setTextColor(sPhone.theme["lock.text"])
term.setCursorPos(6,4)
bigfont.bigPrint(clockS)
visum.align("center"," Slide to unlock",false,h)
local clockUpdate = os.startTimer(1)
local e = {os.pullEvent()}
if fEvents[e[1]] then
os.pullEvent = old
break
end
end
return
end
local old = os.pullEvent
os.pullEvent = os.pullEventRaw
sPhone.locked = true
if config.read("/.sPhone/config/sPhone","password") then
while true do
term.setBackgroundColor(sPhone.theme["lock.background"])
term.clear()
term.setCursorPos(1,1)
sPhone.header(sPhone.user)
paintutils.drawBox(7,9,20,11,sPhone.theme["lock.inputSide"])
if sPhone.wrongPassword then
term.setTextColor(sPhone.theme["lock.error"])
term.setBackgroundColor(sPhone.theme["lock.background"])
visum.align("center"," Wrong Password",false,13)
end
term.setTextColor(sPhone.theme["lock.text"])
term.setBackgroundColor(sPhone.theme["lock.background"])
visum.align("center"," Insert Password",false,7)
local loginTerm = window.create(term.native(), 8,10,12,1, true)
term.redirect(loginTerm)
term.setBackgroundColor(sPhone.theme["lock.inputBackground"])
term.clear()
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["lock.inputText"])
local passwordLogin = read("*")
term.redirect(sPhone.mainTerm)
local fpw = config.read("/.sPhone/config/sPhone","password")
if sha256.sha256(passwordLogin) == fpw then
sPhone.wrongPassword = false
os.pullEvent = old
return
else
sPhone.wrongPassword = true
end
end
else
local name
local pw
local pwr
local rServer
local password1,mouse,x,y
local w, h = term.getSize()
local skipped = false
sPhone.firstBoot = true
for k,v in ipairs(fs.list("/.sPhone/apps/system")) do
sPhone.install("/.sPhone/apps/system/"..v)
end
while not skipped do
term.setBackgroundColor(sPhone.theme["lock.background"])
term.clear()
term.setCursorPos(1,1)
sPhone.header("Setup")
paintutils.drawBox(7,9,20,11,sPhone.theme["lock.inputSide"])
if sPhone.wrongPassword then
term.setTextColor(sPhone.theme["lock.error"])
term.setBackgroundColor(sPhone.theme["lock.background"])
visum.align("center"," Wrong Password",false,13)
end
term.setTextColor(sPhone.theme["lock.text"])
term.setBackgroundColor(sPhone.theme["lock.background"])
visum.align("center"," Insert Password",false,7)
local t = "Skip"
term.setCursorPos(w-#t+1,h)
write(t)
local loginTerm = window.create(term.native(), 8,10,12,1, true)
term.redirect(loginTerm)
term.setBackgroundColor(sPhone.theme["lock.inputBackground"])
term.clear()
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["lock.inputText"])
while true do
password1,mouse,x,y = sPhone.read("*",nil,nil,true)
if mouse then
if y == h and (x >= 23 and x <= w) then
skipped = true
config.write("/.sPhone/config/sPhone","lockEnabled",false)
break
end
else
break
end
end
term.redirect(sPhone.mainTerm)
if not skipped then
term.setBackgroundColor(sPhone.theme["lock.background"])
term.clear()
term.setCursorPos(1,1)
sPhone.header("Setup")
paintutils.drawBox(7,9,20,11,sPhone.theme["lock.inputSide"])
term.setTextColor(sPhone.theme["lock.text"])
term.setBackgroundColor(sPhone.theme["lock.background"])
visum.align("center"," Repeat",false,7)
local loginTerm = window.create(term.native(), 8,10,12,1, true)
term.redirect(loginTerm)
term.setBackgroundColor(sPhone.theme["lock.inputBackground"])
term.clear()
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["lock.inputText"])
local password2 = read("*")
term.redirect(sPhone.mainTerm)
if password1 == password2 then
config.write("/.sPhone/config/sPhone", "password",sha256.sha256(password1))
term.setTextColor(colors.lime)
visum.align("center"," Password set!",false,13)
sleep(2)
break
else
sPhone.wrongPassword = true
end
end
end
local name
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.clear()
sPhone.header("Setup")
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["text"])
term.setCursorPos(2,3)
visum.align("center","Username",false,3)
term.setCursorPos(2,5)
local newUsername = read()
config.write("/.sPhone/config/sPhone","username",newUsername)
if fs.exists("/.sPhone/config/sPhone") then
name = config.read("/.sPhone/config/sPhone","username")
else
name = "Guest"
end
config.write("/.sPhone/config/sPhone","showUpdate",true)
term.setBackgroundColor(sPhone.theme["backgroundColor"])
term.clear()
sPhone.header("Setup")
term.setCursorPos(1,1)
term.setTextColor(sPhone.theme["text"])
sPhone.user = name
os.setComputerLabel(sPhone.user.."'s sPhone")
visum.align("center"," All Set!",false,3)
visum.align("center"," Have fun with sPhone",false,5)
sleep(2)
sPhone.locked = false
sPhone.inHome = true
sPhone.firstBoot = false
os.pullEvent = old
return
end
end
sPhone.lock = login
sPhone.login = login
local showUpdate = config.read("/.sPhone/config/sPhone","showUpdate")
http.request("https://raw.githubusercontent.com/BeaconNet/sPhone/master/src/version")
local newVersion
local timeout = os.startTimer(2)
while true do
local event,url, sourceText = os.pullEvent()
if event == "http_success" then
newVersion = sourceText.readLine()
sourceText.close()
break
elseif event == "http_failure" then
newVersion = sPhone.version
break
end
end
if newVersion ~= sPhone.version and showUpdate then
sPhone.newUpdate = true
else
sPhone.newUpdate = false
end
if config.read("/.sPhone/config/sPhone","updated") then
for k,v in pairs(fs.list("/.sPhone/apps/system")) do
sPhone.install("/.sPhone/apps/system/"..v)
end
config.write("/.sPhone/config/sPhone","updated",false)
end
if config.read("/.sPhone/config/sPhone","showUpdate") == nil then
config.write("/.sPhone/config/sPhone","showUpdate", true)
end
login()
if sPhone.newUpdate then
sPhone.winOk("New Update!")
end
home()
end
if not sPhone then
kernel({...})
else
print("sPhone already started")
end