lewislovesgames

Boot -- a computercraft bootloader [Minified/Compressed]

Jan 31st, 2016
168
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dev=false;defaultPath=nil;WaitTime=15;local a=0;function LoadCFG()if fs.exists(".bcfg")then local f=fs.open(".bcfg",'r')local b=f.readAll()f.close()ion=textutils.unserialize(b)for c,d in pairs(ion)do if dev then print(tostring(c).." = "..tostring(d))end;ls=loadstring(c.." = "..tostring(d))setfenv(ls,getfenv())ls()end;if dev then sleep(.5)end end end;function ViewInsert()if fs.exists("/Views")~=true then fs.makeDir("/Views")end;if fs.exists("/Views/main.view")~=true then local f=fs.open("/Views/main.view",'w')local e=[[{
  2.     Children={
  3.       {
  4.         X=1,
  5.         Width="100%",
  6.         Y=2,
  7.         Name="HelloLabel",
  8.         Type="Label",
  9.         Text="Bootloader Setup",
  10.         Align="Center",
  11.       },
  12.       {
  13.         X=2,
  14.         Y=4,
  15.         Name="DebugMode",
  16.         Type="Button",
  17.         Text="Debug Mode: Disabled",
  18.       },
  19.       {
  20.         X="1",
  21.         Y="100%",
  22.     Align = "Right",
  23.         Name="Save",
  24.         Type="Button",
  25.         Text="Save",
  26.       },
  27.       {
  28.         X=2,
  29.         Y=6,
  30.         Width=22,
  31.     Type="TextBox",
  32.     Name="DPath",
  33.         Placeholder="Default Path",
  34.         Active=false
  35.       },
  36.       {
  37.         X=2,
  38.         Y=8,
  39.         Width=22,
  40.         Type="TextBox",
  41.         Name="WaitT",
  42.         Placeholder="Wait Time",
  43.         Active=false,
  44.       },
  45.       {
  46.         X="88%",
  47.         Y="100%",
  48.     Align = "Left",
  49.         Name="Reboot",
  50.         Type="Button",
  51.         Text="Reboot",
  52.       },
  53.     },
  54.     BackgroundColour='white'
  55. } ]]f.write(e)f.close()end end;function startup()if fs.exists('startup')then local f=fs.open('startup','r')local g=f.readLine()debug(g)if g~="--#--"then fs.move('startup','startup.boot')end end;local f=fs.open(shell.getRunningProgram(),'r')local g=f.readLine()f.close()local f=fs.open(shell.getRunningProgram(),'r')if g=="--#--"then debug('sgrp = --#--')local h=fs.open('startup','w')h.write(f.readAll())h.close()end;f.close()end;function debug(i)if dev then print(i)end end;function cfill(j)if term.isColor()~=true then j=colors.black end;term.setCursorPos(1,1)term.setBackgroundColor(j)term.setTextColor(j)for k=1,24 do print("=========================================================")end;term.setCursorPos(1,1)end;function kt()r=true;debug('Keypress Listener Started')x,y=term.getSize()x1,y1=term.getCursorPos()term.setCursorPos(x/2-11,y)print("DELETE for more options")if term.isColor()then term.setCursorPos(x/2-10,y-2)print("ESCAPE to enter setup")end;while true do os.startTimer(.1)term.setCursorPos(1,y1+1)print("Time Remaining: ")term.setCursorPos(17,y1+1)print("                  ")term.setCursorPos(17,y1+1)print(WaitTime-a)local d,c=os.pullEvent()r='Continue'if d=='key'then if c==keys.enter then r='Continue'debug('Enter Pressed')break end;if c==keys.delete then r="Menu"debug('Delete Pressed')break end;if c==1 then r="Setup"debug("Escape Pressed")break end end;sleep(.1)a=a+1;if a>=WaitTime then break end end;return r end;function find()local l={}if fs then local m={'boot','start','startup','load','bin'}for c,d in pairs(m)do debug('searching *.'..d)local n={}n=fs.find('*.'..d)for o,p in pairs(n)do table.insert(l,p)end end;debug('')else error("NO FS API")end;return l end;function select(q)debug(q[1].." Selected")return q[1]end;function exec(t)local f=fs.open(t,'r')local r=f.readAll()f.close()local j=loadstring(r)setfenv(j,getfenv())if term then term.clear()term.setCursorPos(1,1)term.setBackgroundColor(colors.black)cfill(colors.black)term.setTextColor(colors.white)else error("NO TERM API")end;j()end;function boot()local r="Continue"print('Searching...')local f=find()if#f<1 then term.setTextColor(colors.red)print('No Bootable Medium Found')term.setTextColor(colors.white)sleep(2)r=false else local u=''if#f>1 or#f<1 then u='s'end;print('found '..#f.." file"..u)for d,k in pairs(f)do print('    '..k)end;local v=select(f)if defaultPath~=nil and#defaultPath>=1 then v=defaultPath end;print('Selecting: '..v)debug('')local c=kt()if c=="Continue"then exec(v)elseif c=="Menu"then r="Menu"elseif c=="Setup"then r="Setup"end end;return r end;function setup()local w='/'if OneOS then OneOS.LoadAPI('/System/API/Bedrock.lua',false)elseif fs.exists(w..'/Bedrock')then os.loadAPI(w..'/Bedrock')else if http then print('Downloading Bedrock...')local p=http.get('http://pastebin.com/raw.php?i=0MgKNqpN')if p then local f=fs.open(w..'/Bedrock','w')f.write(p.readAll())f.close()p.close()os.loadAPI(w..'/Bedrock')else error('Failed to download Bedrock. Is your internet working?')end else error('This program needs to download Bedrock to work. Please enable HTTP.')end end;if Bedrock then Bedrock.BasePath=w;Bedrock.ProgramPath=shell.getRunningProgram()end;ViewInsert()local z=Bedrock:Initialise()z:Run(function()DevMode=dev;if DevMode==false then z:GetObject('DebugMode').Text="Debug Mode: Disabled"else z:GetObject('DebugMode').Text="Debug Mode:  Enabled"end;z:GetObject('DebugMode').OnClick=function(A,B,C,x,y)if DevMode==false then DevMode=true else DevMode=false end;dev=DevMode;if DevMode==false then z:GetObject('DebugMode').Text="Debug Mode: Disabled"else z:GetObject('DebugMode').Text="Debug Mode:  Enabled"end end;z:GetObject('Reboot').OnClick=function(A,B,C,x,y)os.reboot()end;function getpath()local path=z:GetObject('DPath').Text;local safe=false;if path~=nil and fs.exists(path)then safe=true elseif path~=nil and fs.exists(path)~=true then z:DisplayAlertWindow('Error','Invalid Path',{'OK'},function(value)end)safe=false;path=""elseif path==nil then safe=true;path=""end;msg={}msg.safe=safe;msg.path=tostring("'"..path.."'")return msg end;function getwait()local path=z:GetObject('WaitT').Text;local safe=false;if path~=nil and tonumber(path)then safe=true elseif path==""then safe=true;path="15"else z:DisplayAlertWindow('Error','Invalid Wait Time',{'OK'},function(value)end)safe=false;path=""end;msg={}msg.safe=safe;msg.value=path;return msg end;z:GetObject('Save').OnClick=function(A,B,C,x,y)local D=true;local u=getpath()local E=getwait()local path=""local F=""local G={}if u['safe']then path=u['path']else D=false end;if E['safe']then F=E['value']else D=false end;G.dev=DevMode;G.defaultPath=path;G.WaitTime=F;if D then local f=fs.open(".bcfg",'w')f.write(textutils.serialize(G))f.close()end;if D then z:DisplayAlertWindow('Success','Settings Saved',{'OK'},function(value)end)end end end)end;function menu()term.clear()cfill(colors.blue)if term.isColor then term.setBackgroundColor(colors.blue)end;term.setTextColor(colors.white)local x,y=term.getSize()term.setCursorPos(x/2-8,1)print('Select a boot file')local x,y=term.getSize()term.setCursorPos(1,4)dev=false;local f=find()dev=true;for k,d in pairs(f)do print(k..'. '..d)end;print('0. Other')print('')print('')write('#> ')local H=read()if tonumber(H)==0 then write('Path> ')local I=read()if fs.exists(I)then exec(I)else print('file does not exist')sleep(2)menu()end elseif tonumber(H)==nil or tonumber(H)>#f or tonumber(H)<1 then print('Invalid boot file')menu()else local s=f[tonumber(H)]print('Selecting '..s)sleep(1)exec(s)end end;argv={...}if#argv>0 then local J={}if fs.exists('.bcfg')then local K=fs.open('.bcfg','r')J=K.readAll()K.close()J=textutils.unserialise(J)end;for c,d in pairs(argv)do f,s=string.match(d,"(%w+)=(%w+)")debug(f.." "..s)J[f]=s;print("Inserted "..s.." into "..f)end;local K=fs.open('.bcfg','w')K.write(textutils.serialize(J))K.close()else if shell.getRunningProgram()~='startup'or fs.exists('startup')==false then startup()os.reboot()else LoadCFG()local L=boot()if L=="Continue"then elseif L=="Menu"then menu()elseif L=="Setup"then setup()end end end
RAW Paste Data