ccphone/libs/containers.lua

local deflate = (function () local a;do local b="1.0.2-release"local c="LibDeflate"local d=3;local e="LibDeflate "..b.." Copyright (C) 2018-2021 Haoqian He.".." Licensed under the zlib License"if LibStub then local f,g=LibStub:GetLibrary(c,true)if f and g and g>=d then return f else a=LibStub:NewLibrary(c,d)end else a={}end;a._VERSION=b;a._MAJOR=c;a._MINOR=d;a._COPYRIGHT=e end;local assert=assert;local error=error;local pairs=pairs;local h=string.byte;local i=string.char;local j=string.find;local k=string.gsub;local l=string.sub;local m=table.concat;local n=table.sort;local tostring=tostring;local type=type;local o={}local p={}local q={}local r={}local s={}local t={}local u={}local v={}local w={}local x={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 y={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 z={[0]=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 A={[0]=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 B={16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15}local C;local D;local E;local F;local G;local H;local I;local J;for K=0,255 do p[K]=i(K)end;do local L=1;for K=0,32 do o[K]=L;L=L*2 end end;for K=1,9 do q[K]={}for M=0,o[K+1]-1 do local N=0;local O=M;for P=1,K do N=N-N%2+((N%2==1 or O%2==1)and 1 or 0)O=(O-O%2)/2;N=N*2 end;q[K][M]=(N-N%2)/2 end end;do local Q=18;local R=16;local S=265;local T=1;for U=3,258 do if U<=10 then r[U]=U+254;t[U]=0 elseif U==258 then r[U]=285;t[U]=0 else if U>Q then Q=Q+R;R=R*2;S=S+4;T=T+1 end;local V=U-Q-1+R/2;r[U]=(V-V%(R/8))/(R/8)+S;t[U]=T;s[U]=V%(R/8)end end end;do u[1]=0;u[2]=1;w[1]=0;w[2]=0;local Q=3;local R=4;local W=2;local T=0;for X=3,256 do if X>R then Q=Q*2;R=R*2;W=W+2;T=T+1 end;u[X]=X<=Q and W or W+1;w[X]=T<0 and 0 or T;if R>=8 then v[X]=(X-R/2-1)%(R/4)end end end;function a:Adler32(Y)if type(Y)~="string"then error(("Usage: LibDeflate:Adler32(str):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;local Z=#Y;local K=1;local Q=1;local R=0;while K<=Z-15 do local _,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,aa,ab,ac,ad,ae=h(Y,K,K+15)R=(R+16*Q+16*_+15*a0+14*a1+13*a2+12*a3+11*a4+10*a5+9*a6+8*a7+7*a8+6*a9+5*aa+4*ab+3*ac+2*ad+ae)%65521;Q=(Q+_+a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+aa+ab+ac+ad+ae)%65521;K=K+16 end;while K<=Z do local af=h(Y,K,K)Q=(Q+af)%65521;R=(R+Q)%65521;K=K+1 end;return(R*65536+Q)%4294967296 end;local function ag(ah,ai)return ah%4294967296==ai%4294967296 end;function a:CreateDictionary(Y,Z,aj)if type(Y)~="string"then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;if type(Z)~="number"then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'strlen\' - number expected got \'%s\'."):format(type(Z)),2)end;if type(aj)~="number"then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'adler32\' - number expected got \'%s\'."):format(type(aj)),2)end;if Z~=#Y then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'strlen\' does not match the actual length of \'str\'.".." \'strlen\': %u, \'#str\': %u .".." Please check if \'str\' is modified unintentionally."):format(Z,#Y))end;if Z==0 then error("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'str\' - Empty string is not allowed.",2)end;if Z>32768 then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'str\' - string longer than 32768 bytes is not allowed.".." Got %d bytes."):format(Z),2)end;local ak=self:Adler32(Y)if not ag(aj,ak)then error(("Usage: LibDeflate:CreateDictionary(str, strlen, adler32):".." \'adler32\' does not match the actual adler32 of \'str\'.".." \'adler32\': %u, \'Adler32(str)\': %u .".." Please check if \'str\' is modified unintentionally."):format(aj,ak))end;local al={}al.adler32=aj;al.hash_tables={}al.string_table={}al.strlen=Z;local am=al.string_table;local an=al.hash_tables;am[1]=h(Y,1,1)am[2]=h(Y,2,2)if Z>=3 then local K=1;local ao=am[1]*256+am[2]while K<=Z-2-3 do local _,a0,a1,a2=h(Y,K+2,K+5)am[K+2]=_;am[K+3]=a0;am[K+4]=a1;am[K+5]=a2;ao=(ao*256+_)%16777216;local V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=K-Z;K=K+1;ao=(ao*256+a0)%16777216;V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=K-Z;K=K+1;ao=(ao*256+a1)%16777216;V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=K-Z;K=K+1;ao=(ao*256+a2)%16777216;V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=K-Z;K=K+1 end;while K<=Z-2 do local af=h(Y,K+2)am[K+2]=af;ao=(ao*256+af)%16777216;local V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=K-Z;K=K+1 end end;return al end;local function ap(al)if type(al)~="table"then return false,("\'dictionary\' - table expected got \'%s\'."):format(type(al))end;if type(al.adler32)~="number"or type(al.string_table)~="table"or type(al.strlen)~="number"or al.strlen<=0 or al.strlen>32768 or al.strlen~=#al.string_table or type(al.hash_tables)~="table"then return false,("\'dictionary\' - corrupted dictionary."):format(type(al))end;return true,""end;local aq={[0]={false,nil,0,0,0},[1]={false,nil,4,8,4},[2]={false,nil,5,18,8},[3]={false,nil,6,32,32},[4]={true,4,4,16,16},[5]={true,8,16,32,32},[6]={true,8,16,128,128},[7]={true,8,32,128,256},[8]={true,32,128,258,1024},[9]={true,32,258,258,4096}}local function ar(Y,as,al,at,au)if type(Y)~="string"then return false,("\'str\' - string expected got \'%s\'."):format(type(Y))end;if as then local av,aw=ap(al)if not av then return false,aw end end;if at then local ax=type(au)if ax~="nil"and ax~="table"then return false,("\'configs\' - nil or table expected got \'%s\'."):format(type(au))end;if ax=="table"then for ay,az in pairs(au)do if ay~="level"and ay~="strategy"then return false,("\'configs\' - unsupported table key in the configs: \'%s\'."):format(ay)elseif ay=="level"and not aq[az]then return false,("\'configs\' - unsupported \'level\': %s."):format(tostring(az))elseif ay=="strategy"and az~="fixed"and az~="huffman_only"and az~="dynamic"then return false,("\'configs\' - unsupported \'strategy\': \'%s\'."):format(tostring(az))end end end end;return true,""end;local aA=0;local aB=1;local aC=2;local aD=3;local function aE()local aF=0;local aG=0;local aH=0;local aI=0;local aJ={}local aK={}local function aL(O,T)aG=aG+O*o[aH]aH=aH+T;aI=aI+T;if aH>=32 then aF=aF+1;aJ[aF]=p[aG%256]..p[(aG-aG%256)/256%256]..p[(aG-aG%65536)/65536%256]..p[(aG-aG%16777216)/16777216%256]local aM=o[32-aH+T]aG=(O-O%aM)/aM;aH=aH-32 end end;local function aN(Y)for P=1,aH,8 do aF=aF+1;aJ[aF]=i(aG%256)aG=(aG-aG%256)/256 end;aH=0;aF=aF+1;aJ[aF]=Y;aI=aI+#Y*8 end;local function aO(aP)if aP==aD then return aI end;if aP==aB or aP==aC then local aQ=(8-aH%8)%8;if aH>0 then aG=aG-o[aH]+o[aH+aQ]for P=1,aH,8 do aF=aF+1;aJ[aF]=p[aG%256]aG=(aG-aG%256)/256 end;aG=0;aH=0 end;if aP==aC then aI=aI+aQ;return aI end end;local aR=m(aJ)aJ={}aF=0;aK[#aK+1]=aR;if aP==aA then return aI else return aI,m(aK)end end;return aL,aN,aO end;local function aS(aT,aU,aV)aV=aV+1;aT[aV]=aU;local O=aU[1]local aW=aV;local aX=(aW-aW%2)/2;while aX>=1 and aT[aX][1]>O do local V=aT[aX]aT[aX]=aU;aT[aW]=V;aW=aX;aX=(aX-aX%2)/2 end end;local function aY(aT,aV)local aZ=aT[1]local aU=aT[aV]local O=aU[1]aT[1]=aU;aT[aV]=aZ;aV=aV-1;local aW=1;local a_=aW*2;local b0=a_+1;while a_<=aV do local b1=aT[a_]if b0<=aV and aT[b0][1]<b1[1]then local b2=aT[b0]if b2[1]<O then aT[b0]=aU;aT[aW]=b2;aW=b0;a_=aW*2;b0=a_+1 else break end else if b1[1]<O then aT[a_]=aU;aT[aW]=b1;aW=a_;a_=aW*2;b0=a_+1 else break end end end;return aZ end;local function b3(b4,b5,b6,b7)local b8=0;local b9={}local ba={}for T=1,b7 do b8=(b8+(b4[T-1]or 0))*2;b9[T]=b8 end;for bb=0,b6 do local T=b5[bb]if T then b8=b9[T]b9[T]=b8+1;if T<=9 then ba[bb]=q[T][b8]else local N=0;for P=1,T do N=N-N%2+((N%2==1 or b8%2==1)and 1 or 0)b8=(b8-b8%2)/2;N=N*2 end;ba[bb]=(N-N%2)/2 end end end;return ba end;local function bc(Q,R)return Q[1]<R[1]or Q[1]==R[1]and Q[2]<R[2]end;local function bd(be,b7,b6)local aV;local bf=-1;local bg={}local aT={}local b5={}local bh={}local b4={}local bi=0;for bb,bj in pairs(be)do bi=bi+1;bg[bi]={bj,bb}end;if bi==0 then return{},{},-1 elseif bi==1 then local bb=bg[1][2]b5[bb]=1;bh[bb]=0;return b5,bh,bb else n(bg,bc)aV=bi;for K=1,aV do aT[K]=bg[K]end;while aV>1 do local bk=aY(aT,aV)aV=aV-1;local bl=aY(aT,aV)aV=aV-1;local bm={bk[1]+bl[1],-1,bk,bl}aS(aT,bm,aV)aV=aV+1 end;local bn=0;local bo={aT[1],0,0,0}local bp=1;local bq=1;aT[1][1]=0;while bq<=bp do local aU=bo[bq]local T=aU[1]local bb=aU[2]local b1=aU[3]local b2=aU[4]if b1 then bp=bp+1;bo[bp]=b1;b1[1]=T+1 end;if b2 then bp=bp+1;bo[bp]=b2;b2[1]=T+1 end;bq=bq+1;if T>b7 then bn=bn+1;T=b7 end;if bb>=0 then b5[bb]=T;bf=bb>bf and bb or bf;b4[T]=(b4[T]or 0)+1 end end;if bn>0 then repeat local T=b7-1;while(b4[T]or 0)==0 do T=T-1 end;b4[T]=b4[T]-1;b4[T+1]=(b4[T+1]or 0)+2;b4[b7]=b4[b7]-1;bn=bn-2 until bn<=0;bq=1;for T=b7,1,-1 do local br=b4[T]or 0;while br>0 do local bb=bg[bq][2]b5[bb]=T;br=br-1;bq=bq+1 end end end;bh=b3(b4,b5,b6,b7)return b5,bh,bf end end;local function bs(bt,bu,bv,bw)local bx=0;local by={}local bz={}local bA=0;local bB={}local bC=nil;local bj=0;bw=bw<0 and 0 or bw;local bD=bu+bw+1;for W=0,bD+1 do local U=W<=bu and(bt[W]or 0)or(W<=bD and(bv[W-bu-1]or 0)or nil)if U==bC then bj=bj+1;if U~=0 and bj==6 then bx=bx+1;by[bx]=16;bA=bA+1;bB[bA]=3;bz[16]=(bz[16]or 0)+1;bj=0 elseif U==0 and bj==138 then bx=bx+1;by[bx]=18;bA=bA+1;bB[bA]=127;bz[18]=(bz[18]or 0)+1;bj=0 end else if bj==1 then bx=bx+1;by[bx]=bC;bz[bC]=(bz[bC]or 0)+1 elseif bj==2 then bx=bx+1;by[bx]=bC;bx=bx+1;by[bx]=bC;bz[bC]=(bz[bC]or 0)+2 elseif bj>=3 then bx=bx+1;local bE=bC~=0 and 16 or(bj<=10 and 17 or 18)by[bx]=bE;bz[bE]=(bz[bE]or 0)+1;bA=bA+1;bB[bA]=bj<=10 and bj-3 or bj-11 end;bC=U;if U and U~=0 then bx=bx+1;by[bx]=U;bz[U]=(bz[U]or 0)+1;bj=0 else bj=1 end end end;return by,bB,bz end;local function bF(Y,V,bG,bH,bI)local K=bG-bI;while K<=bH-15-bI do V[K],V[K+1],V[K+2],V[K+3],V[K+4],V[K+5],V[K+6],V[K+7],V[K+8],V[K+9],V[K+10],V[K+11],V[K+12],V[K+13],V[K+14],V[K+15]=h(Y,K+bI,K+15+bI)K=K+16 end;while K<=bH-bI do V[K]=h(Y,K+bI,K+bI)K=K+1 end;return V end;local function bJ(bK,am,an,bL,bM,bI,al)local bN=aq[bK]local bO,bP,bQ,bR,bS=bN[1],bN[2],bN[3],bN[4],bN[5]local bT=not bO and bQ or 2147483646;local bU=bS-bS%4/4;local ao;local bV;local bW;local bX=0;if al then bV=al.hash_tables;bW=al.string_table;bX=al.strlen;assert(bL==1)if bM>=bL and bX>=2 then ao=bW[bX-1]*65536+bW[bX]*256+am[1]local V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=-1 end;if bM>=bL+1 and bX>=1 then ao=bW[bX]*65536+am[1]*256+am[2]local V=an[ao]if not V then V={}an[ao]=V end;V[#V+1]=0 end end;local bY=bX+3;ao=(am[bL-bI]or 0)*256+(am[bL+1-bI]or 0)local bZ={}local b_=0;local c0={}local c1={}local c2=0;local c3={}local c4={}local c5=0;local c6={}local c7=0;local c8=false;local c9;local ca;local cb=0;local cc=0;local bq=bL;local cd=bM+(bO and 1 or 0)while bq<=cd do local ce=bq-bI;local cf=bI-3;c9=cb;ca=cc;cb=0;ao=(ao*256+(am[ce+2]or 0))%16777216;local cg;local ch;local ci=an[ao]local cj;if not ci then cj=0;ci={}an[ao]=ci;if bV then ch=bV[ao]cg=ch and#ch or 0 else cg=0 end else cj=#ci;ch=ci;cg=cj end;if bq<=bM then ci[cj+1]=bq end;if cg>0 and bq+2<=bM and(not bO or c9<bQ)then local ck=bO and c9>=bP and bU or bS;local cl=bM-bq;cl=cl>=257 and 257 or cl;cl=cl+ce;local cm=ce+3;while cg>=1 and ck>0 do local bC=ch[cg]if bq-bC>32768 then break end;if bC<bq then local cn=cm;if bC>=-257 then local co=bC-cf;while cn<=cl and am[co]==am[cn]do cn=cn+1;co=co+1 end else local co=bY+bC;while cn<=cl and bW[co]==am[cn]do cn=cn+1;co=co+1 end end;local M=cn-ce;if M>cb then cb=M;cc=bq-bC end;if cb>=bR then break end end;cg=cg-1;ck=ck-1;if cg==0 and bC>0 and bV then ch=bV[ao]cg=ch and#ch or 0 end end end;if not bO then c9,ca=cb,cc end;if(not bO or c8)and(c9>3 or c9==3 and ca<4096)and cb<=c9 then local W=r[c9]local cp=t[c9]local cq,cr,cs;if ca<=256 then cq=u[ca]cs=v[ca]cr=w[ca]else cq=16;cr=7;local Q=384;local R=512;while true do if ca<=Q then cs=(ca-R/2-1)%(R/4)break elseif ca<=R then cs=(ca-R/2-1)%(R/4)cq=cq+1;break else cq=cq+2;cr=cr+1;Q=Q*2;R=R*2 end end end;b_=b_+1;bZ[b_]=W;c0[W]=(c0[W]or 0)+1;c2=c2+1;c1[c2]=cq;c3[cq]=(c3[cq]or 0)+1;if cp>0 then local ct=s[c9]c5=c5+1;c4[c5]=ct end;if cr>0 then c7=c7+1;c6[c7]=cs end;for K=bq+1,bq+c9-(bO and 2 or 1)do ao=(ao*256+(am[K-bI+2]or 0))%16777216;if c9<=bT then ci=an[ao]if not ci then ci={}an[ao]=ci end;ci[#ci+1]=K end end;bq=bq+c9-(bO and 1 or 0)c8=false elseif not bO or c8 then local W=am[bO and ce-1 or ce]b_=b_+1;bZ[b_]=W;c0[W]=(c0[W]or 0)+1;bq=bq+1 else c8=true;bq=bq+1 end end;b_=b_+1;bZ[b_]=256;c0[256]=(c0[256]or 0)+1;return bZ,c4,c0,c1,c6,c3 end;local function cu(c0,c3)local cv,cw,bu=bd(c0,15,285)local cx,cy,bw=bd(c3,15,29)local cz,bB,cA=bs(cv,bu,cx,bw)local cB,cC=bd(cA,7,18)local cD=0;for K=1,19 do local bb=B[K]local cE=cB[bb]or 0;if cE~=0 then cD=K end end;cD=cD-4;local cF=bu+1-257;local cG=bw+1-1;if cG<0 then cG=0 end;return cF,cG,cD,cB,cC,cz,bB,cv,cw,cx,cy end;local function cH(bZ,c1,cD,cB,cz,cv,cx)local cI=17;cI=cI+(cD+4)*3;for K=1,#cz do local W=cz[K]cI=cI+cB[W]if W>=16 then cI=cI+(W==16 and 2 or(W==17 and 3 or 7))end end;local cJ=0;for K=1,#bZ do local W=bZ[K]local cK=cv[W]cI=cI+cK;if W>256 then cJ=cJ+1;if W>264 and W<285 then local cL=y[W-256]cI=cI+cL end;local cq=c1[cJ]local cM=cx[cq]cI=cI+cM;if cq>3 then local cr=(cq-cq%2)/2-1;cI=cI+cr end end end;return cI end;local function cN(aL,cO,bZ,c4,c1,c6,cF,cG,cD,cB,cC,cz,bB,cv,cw,cx,cy)aL(cO and 1 or 0,1)aL(2,2)aL(cF,5)aL(cG,5)aL(cD,4)for K=1,cD+4 do local bb=B[K]local cE=cB[bb]or 0;aL(cE,3)end;local cP=1;for K=1,#cz do local W=cz[K]aL(cC[W],cB[W])if W>=16 then local cQ=bB[cP]aL(cQ,W==16 and 2 or(W==17 and 3 or 7))cP=cP+1 end end;local cJ=0;local cR=0;local cS=0;for K=1,#bZ do local cT=bZ[K]local b8=cw[cT]local cK=cv[cT]aL(b8,cK)if cT>256 then cJ=cJ+1;if cT>264 and cT<285 then cR=cR+1;local cU=c4[cR]local cL=y[cT-256]aL(cU,cL)end;local cV=c1[cJ]local cW=cy[cV]local cM=cx[cV]aL(cW,cM)if cV>3 then cS=cS+1;local cs=c6[cS]local cr=(cV-cV%2)/2-1;aL(cs,cr)end end end end;local function cX(bZ,c1)local cI=3;local cJ=0;for K=1,#bZ do local W=bZ[K]local cK=E[W]cI=cI+cK;if W>256 then cJ=cJ+1;if W>264 and W<285 then local cL=y[W-256]cI=cI+cL end;local cq=c1[cJ]cI=cI+5;if cq>3 then local cr=(cq-cq%2)/2-1;cI=cI+cr end end end;return cI end;local function cY(aL,cO,bZ,c4,c1,c6)aL(cO and 1 or 0,1)aL(1,2)local cJ=0;local cR=0;local cS=0;for K=1,#bZ do local cZ=bZ[K]local b8=C[cZ]local cK=E[cZ]aL(b8,cK)if cZ>256 then cJ=cJ+1;if cZ>264 and cZ<285 then cR=cR+1;local cU=c4[cR]local cL=y[cZ-256]aL(cU,cL)end;local cq=c1[cJ]local cW=G[cq]aL(cW,5)if cq>3 then cS=cS+1;local cs=c6[cS]local cr=(cq-cq%2)/2-1;aL(cs,cr)end end end end;local function c_(bL,bM,aI)assert(bM-bL+1<=65535)local cI=3;aI=aI+3;local aQ=(8-aI%8)%8;cI=cI+aQ;cI=cI+32;cI=cI+(bM-bL+1)*8;return cI end;local function d0(aL,aN,cO,Y,bL,bM,aI)assert(bM-bL+1<=65535)aL(cO and 1 or 0,1)aL(0,2)aI=aI+3;local aQ=(8-aI%8)%8;if aQ>0 then aL(o[aQ]-1,aQ)end;local d1=bM-bL+1;aL(d1,16)local d2=255-d1%256+(255-(d1-d1%256)/256)*256;aL(d2,16)aN(Y:sub(bL,bM))end;local function d3(au,aL,aN,aO,Y,al)local am={}local an={}local cO=nil;local bL;local bM;local d4;local aI=aO(aD)local Z=#Y;local bI;local bK;local d5;if au then if au.level then bK=au.level end;if au.strategy then d5=au.strategy end end;if not bK then if Z<2048 then bK=7 elseif Z>65536 then bK=3 else bK=5 end end;while not cO do if not bL then bL=1;bM=64*1024-1;bI=0 else bL=bM+1;bM=bM+32*1024;bI=bL-32*1024-1 end;if bM>=Z then bM=Z;cO=true else cO=false end;local bZ,c4,c0,c1,c6,c3;local cF,cG,cD,cB,cC,cz,bB,cv,cw,cx,cy;local d6;local d7;local d8;if bK~=0 then bF(Y,am,bL,bM+3,bI)if bL==1 and al then local bW=al.string_table;local d9=al.strlen;for K=0,-d9+1<-257 and-257 or-d9+1,-1 do am[K]=bW[d9+K]end end;if d5=="huffman_only"then bZ={}bF(Y,bZ,bL,bM,bL-1)c4={}c0={}bZ[bM-bL+2]=256;for K=1,bM-bL+2 do local W=bZ[K]c0[W]=(c0[W]or 0)+1 end;c1={}c6={}c3={}else bZ,c4,c0,c1,c6,c3=bJ(bK,am,an,bL,bM,bI,al)end;cF,cG,cD,cB,cC,cz,bB,cv,cw,cx,cy=cu(c0,c3)d6=cH(bZ,c1,cD,cB,cz,cv,cx)d7=cX(bZ,c1)end;d8=c_(bL,bM,aI)local da=d8;da=d7 and d7<da and d7 or da;da=d6 and d6<da and d6 or da;if bK==0 or d5~="fixed"and d5~="dynamic"and d8==da then d0(aL,aN,cO,Y,bL,bM,aI)aI=aI+d8 elseif d5~="dynamic"and(d5=="fixed"or d7==da)then cY(aL,cO,bZ,c4,c1,c6)aI=aI+d7 elseif d5=="dynamic"or d6==da then cN(aL,cO,bZ,c4,c1,c6,cF,cG,cD,cB,cC,cz,bB,cv,cw,cx,cy)aI=aI+d6 end;if cO then d4=aO(aD)else d4=aO(aA)end;assert(d4==aI)if not cO then local M;if al and bL==1 then M=0;while am[M]do am[M]=nil;M=M-1 end end;al=nil;M=1;for K=bM-32767,bM do am[M]=am[K-bI]M=M+1 end;for ay,V in pairs(an)do local db=#V;if db>0 and bM+1-V[1]>32768 then if db==1 then an[ay]=nil else local dc={}local dd=0;for K=2,db do M=V[K]if bM+1-M<=32768 then dd=dd+1;dc[dd]=M end end;an[ay]=dc end end end end end end;local function de(Y,al,au)local aL,aN,aO=aE()d3(au,aL,aN,aO,Y,al)local aI,df=aO(aB)local aQ=(8-aI%8)%8;return df,aQ end;local function dg(Y,al,au)local aL,aN,aO=aE()local dh=8;local di=7;local dj=di*16+dh;aL(dj,8)local dk=al and 1 or 0;local dl=2;local dm=dl*64+dk*32;local dn=31-(dj*256+dm)%31;dm=dm+dn;aL(dm,8)if dk==1 then local aj=al.adler32;local dp=aj%256;aj=(aj-dp)/256;local dq=aj%256;aj=(aj-dq)/256;local dr=aj%256;aj=(aj-dr)/256;local ds=aj%256;aL(ds,8)aL(dr,8)aL(dq,8)aL(dp,8)end;d3(au,aL,aN,aO,Y,al)aO(aC)local aj=a:Adler32(Y)local ds=aj%256;aj=(aj-ds)/256;local dr=aj%256;aj=(aj-dr)/256;local dq=aj%256;aj=(aj-dq)/256;local dp=aj%256;aL(dp,8)aL(dq,8)aL(dr,8)aL(ds,8)local aI,df=aO(aB)local aQ=(8-aI%8)%8;return df,aQ end;function a:CompressDeflate(Y,au)local dt,du=ar(Y,false,nil,true,au)if not dt then error("Usage: LibDeflate:CompressDeflate(str, configs): "..du,2)end;return de(Y,nil,au)end;function a:CompressDeflateWithDict(Y,al,au)local dt,du=ar(Y,true,al,true,au)if not dt then error("Usage: LibDeflate:CompressDeflateWithDict".."(str, dictionary, configs): "..du,2)end;return de(Y,al,au)end;function a:CompressZlib(Y,au)local dt,du=ar(Y,false,nil,true,au)if not dt then error("Usage: LibDeflate:CompressZlib(str, configs): "..du,2)end;return dg(Y,nil,au)end;function a:CompressZlibWithDict(Y,al,au)local dt,du=ar(Y,true,al,true,au)if not dt then error("Usage: LibDeflate:CompressZlibWithDict".."(str, dictionary, configs): "..du,2)end;return dg(Y,al,au)end;local function dv(dw)local dx=dw;local dy=#dw;local dz=1;local aH=0;local aG=0;local function dA(T)local aM=o[T]local W;if T<=aH then W=aG%aM;aG=(aG-W)/aM;aH=aH-T else local dB=o[aH]local dq,dr,ds,dC=h(dx,dz,dz+3)aG=aG+((dq or 0)+(dr or 0)*256+(ds or 0)*65536+(dC or 0)*16777216)*dB;dz=dz+4;aH=aH+32-T;W=aG%aM;aG=(aG-W)/aM end;return W end;local function dD(dE,aJ,aF)assert(aH%8==0)local dF=aH/8<dE and aH/8 or dE;for P=1,dF do local dG=aG%256;aF=aF+1;aJ[aF]=i(dG)aG=(aG-dG)/256 end;aH=aH-dF*8;dE=dE-dF;if(dy-dz-dE+1)*8+aH<0 then return-1 end;for K=dz,dz+dE-1 do aF=aF+1;aJ[aF]=l(dx,K,K)end;dz=dz+dE;return aF end;local function dH(dI,dJ,da)local W=0;local dK=0;local bq=0;local bj;if da>0 then if aH<15 and dx then local dB=o[aH]local dq,dr,ds,dC=h(dx,dz,dz+3)aG=aG+((dq or 0)+(dr or 0)*256+(ds or 0)*65536+(dC or 0)*16777216)*dB;dz=dz+4;aH=aH+32 end;local aM=o[da]aH=aH-da;W=aG%aM;aG=(aG-W)/aM;W=q[da][W]bj=dI[da]if W<bj then return dJ[W]end;bq=bj;dK=bj*2;W=W*2 end;for T=da+1,15 do local dL;dL=aG%2;aG=(aG-dL)/2;aH=aH-1;W=dL==1 and W+1-W%2 or W;bj=dI[T]or 0;local dM=W-dK;if dM<bj then return dJ[bq+dM]end;bq=bq+bj;dK=dK+bj;dK=dK*2;W=W*2 end;return-10 end;local function dN()return(dy-dz+1)*8+aH end;local function dO()local dP=aH%8;local aM=o[dP]aH=aH-dP;aG=(aG-aG%aM)/aM end;return dA,dD,dH,dN,dO end;local function dQ(Y,al)local dA,dD,dH,dN,dO=dv(Y)local dR={ReadBits=dA,ReadBytes=dD,Decode=dH,ReaderBitlenLeft=dN,SkipToByteBoundary=dO,buffer_size=0,buffer={},result_buffer={},dictionary=al}return dR end;local function dS(dT,b6,b7)local dI={}local da=b7;for bb=0,b6 do local T=dT[bb]or 0;da=T>0 and T<da and T or da;dI[T]=(dI[T]or 0)+1 end;if dI[0]==b6+1 then return 0,dI,{},0 end;local dU=1;for U=1,b7 do dU=dU*2;dU=dU-(dI[U]or 0)if dU<0 then return dU end end;local dV={}dV[1]=0;for U=1,b7-1 do dV[U+1]=dV[U]+(dI[U]or 0)end;local dJ={}for bb=0,b6 do local T=dT[bb]or 0;if T~=0 then local bI=dV[T]dJ[bI]=bb;dV[T]=dV[T]+1 end end;return dU,dI,dJ,da end;local function dW(dR,cv,dX,dY,cx,dZ,d_)local aJ,aF,dA,dH,dN,aK=dR.buffer,dR.buffer_size,dR.ReadBits,dR.Decode,dR.ReaderBitlenLeft,dR.result_buffer;local al=dR.dictionary;local bW;local d9;local e0=1;if al and not aJ[0]then bW=al.string_table;d9=al.strlen;e0=-d9+1;for K=0,-d9+1<-257 and-257 or-d9+1,-1 do aJ[K]=p[bW[d9+K]]end end;repeat local bb=dH(cv,dX,dY)if bb<0 or bb>285 then return-10 elseif bb<256 then aF=aF+1;aJ[aF]=p[bb]elseif bb>256 then bb=bb-256;local T=x[bb]T=bb>=8 and T+dA(y[bb])or T;bb=dH(cx,dZ,d_)if bb<0 or bb>29 then return-10 end;local X=z[bb]X=X>4 and X+dA(A[bb])or X;local e1=aF-X+1;if e1<e0 then return-11 end;if e1>=-257 then for P=1,T do aF=aF+1;aJ[aF]=aJ[e1]e1=e1+1 end else e1=d9+e1;for P=1,T do aF=aF+1;aJ[aF]=p[bW[e1]]e1=e1+1 end end end;if dN()<0 then return 2 end;if aF>=65536 then aK[#aK+1]=m(aJ,"",1,32768)for K=32769,aF do aJ[K-32768]=aJ[K]end;aF=aF-32768;aJ[aF+1]=nil end until bb==256;dR.buffer_size=aF;return 0 end;local function e2(dR)local aJ,aF,dA,dD,dN,dO,aK=dR.buffer,dR.buffer_size,dR.ReadBits,dR.ReadBytes,dR.ReaderBitlenLeft,dR.SkipToByteBoundary,dR.result_buffer;dO()local dE=dA(16)if dN()<0 then return 2 end;local e3=dA(16)if dN()<0 then return 2 end;if dE%256+e3%256~=255 then return-2 end;if(dE-dE%256)/256+(e3-e3%256)/256~=255 then return-2 end;aF=dD(dE,aJ,aF)if aF<0 then return 2 end;if aF>=65536 then aK[#aK+1]=m(aJ,"",1,32768)for K=32769,aF do aJ[K-32768]=aJ[K]end;aF=aF-32768;aJ[aF+1]=nil end;dR.buffer_size=aF;return 0 end;local function e4(dR)return dW(dR,F,D,7,J,H,5)end;local function e5(dR)local dA,dH=dR.ReadBits,dR.Decode;local e6=dA(5)+257;local e7=dA(5)+1;local e8=dA(4)+4;if e6>286 or e7>30 then return-3 end;local cB={}for K=1,e8 do cB[B[K]]=dA(3)end;local e9,ea,eb,ec=dS(cB,18,7)if e9~=0 then return-4 end;local cv={}local cx={}local bq=0;while bq<e6+e7 do local bb;local T;bb=dH(ea,eb,ec)if bb<0 then return bb elseif bb<16 then if bq<e6 then cv[bq]=bb else cx[bq-e6]=bb end;bq=bq+1 else T=0;if bb==16 then if bq==0 then return-5 end;if bq-1<e6 then T=cv[bq-1]else T=cx[bq-e6-1]end;bb=3+dA(2)elseif bb==17 then bb=3+dA(3)else bb=11+dA(7)end;if bq+bb>e6+e7 then return-6 end;while bb>0 do bb=bb-1;if bq<e6 then cv[bq]=T else cx[bq-e6]=T end;bq=bq+1 end end end;if(cv[256]or 0)==0 then return-9 end;local ed,ee,dX,dY=dS(cv,e6-1,15)if ed~=0 and(ed<0 or e6~=(ee[0]or 0)+(ee[1]or 0))then return-7 end;local ef,eg,dZ,d_=dS(cx,e7-1,15)if ef~=0 and(ef<0 or e7~=(eg[0]or 0)+(eg[1]or 0))then return-8 end;return dW(dR,ee,dX,dY,eg,dZ,d_)end;local function eh(dR)local dA=dR.ReadBits;local cO;while not cO do cO=dA(1)==1;local ei=dA(2)local ej;if ei==0 then ej=e2(dR)elseif ei==1 then ej=e4(dR)elseif ei==2 then ej=e5(dR)else return nil,-1 end;if ej~=0 then return nil,ej end end;dR.result_buffer[#dR.result_buffer+1]=m(dR.buffer,"",1,dR.buffer_size)local df=m(dR.result_buffer)return df end;local function ek(Y,al)local dR=dQ(Y,al)local df,ej=eh(dR)if not df then return nil,ej end;local el=dR.ReaderBitlenLeft()local em=(el-el%8)/8;return df,em end;local function en(Y,al)local dR=dQ(Y,al)local dA=dR.ReadBits;local dj=dA(8)if dR.ReaderBitlenLeft()<0 then return nil,2 end;local dh=dj%16;local di=(dj-dh)/16;if dh~=8 then return nil,-12 end;if di>7 then return nil,-13 end;local dm=dA(8)if dR.ReaderBitlenLeft()<0 then return nil,2 end;if(dj*256+dm)%31~=0 then return nil,-14 end;local dk=(dm-dm%32)/32%2;local dl=(dm-dm%64)/64%4;if dk==1 then if not al then return nil,-16 end;local ds=dA(8)local dr=dA(8)local dq=dA(8)local dp=dA(8)local ak=ds*16777216+dr*65536+dq*256+dp;if dR.ReaderBitlenLeft()<0 then return nil,2 end;if not ag(ak,al.adler32)then return nil,-17 end end;local df,ej=eh(dR)if not df then return nil,ej end;dR.SkipToByteBoundary()local eo=dA(8)local ep=dA(8)local eq=dA(8)local er=dA(8)if dR.ReaderBitlenLeft()<0 then return nil,2 end;local es=eo*16777216+ep*65536+eq*256+er;local et=a:Adler32(df)if not ag(es,et)then return nil,-15 end;local el=dR.ReaderBitlenLeft()local em=(el-el%8)/8;return df,em end;function a:DecompressDeflate(Y)local dt,du=ar(Y)if not dt then error("Usage: LibDeflate:DecompressDeflate(str): "..du,2)end;return ek(Y)end;function a:DecompressDeflateWithDict(Y,al)local dt,du=ar(Y,true,al)if not dt then error("Usage: LibDeflate:DecompressDeflateWithDict(str, dictionary): "..du,2)end;return ek(Y,al)end;function a:DecompressZlib(Y)local dt,du=ar(Y)if not dt then error("Usage: LibDeflate:DecompressZlib(str): "..du,2)end;return en(Y)end;function a:DecompressZlibWithDict(Y,al)local dt,du=ar(Y,true,al)if not dt then error("Usage: LibDeflate:DecompressZlibWithDict(str, dictionary): "..du,2)end;return en(Y,al)end;do E={}for eu=0,143 do E[eu]=8 end;for eu=144,255 do E[eu]=9 end;for eu=256,279 do E[eu]=7 end;for eu=280,287 do E[eu]=8 end;I={}for X=0,31 do I[X]=5 end;local ej;ej,F,D=dS(E,287,9)assert(ej==0)ej,J,H=dS(I,31,5)assert(ej==0)C=b3(F,E,287,9)G=b3(J,I,31,5)end;local ev={["\000"]="%z",["("]="%(",[")"]="%)",["."]="%.",["%"]="%%",["+"]="%+",["-"]="%-",["*"]="%*",["?"]="%?",["["]="%[",["]"]="%]",["^"]="%^",["$"]="%$"}local function ew(Y)return Y:gsub("([%z%(%)%.%%%+%-%*%?%[%]%^%$])",ev)end;function a:CreateCodec(ex,ey,ez)if type(ex)~="string"or type(ey)~="string"or type(ez)~="string"then error("Usage: LibDeflate:CreateCodec(reserved_chars,".." escape_chars, map_chars):".." All arguments must be string.",2)end;if ey==""then return nil,"No escape characters supplied."end;if#ex<#ez then return nil,"The number of reserved characters must be".." at least as many as the number of mapped chars."end;if ex==""then return nil,"No characters to encode."end;local eA=ex..ey..ez;local eB={}for K=1,#eA do local dG=h(eA,K,K)if eB[dG]then return nil,"There must be no duplicate characters in the".." concatenation of reserved_chars, escape_chars and".." map_chars."end;eB[dG]=true end;local eC={}local eD={}local eE={}local eF={}if#ez>0 then local eG={}local eH={}for K=1,#ez do local eI=l(ex,K,K)local eJ=l(ez,K,K)eF[eI]=eJ;eE[#eE+1]=eI;eH[eJ]=eI;eG[#eG+1]=eJ end;eC[#eC+1]="(["..ew(m(eG)).."])"eD[#eD+1]=eH end;local eK=1;local eL=l(ey,eK,eK)local eM=0;local eG={}local eH={}for K=1,#eA do local S=l(eA,K,K)if not eF[S]then while eM>=256 or eB[eM]do eM=eM+1;if eM>255 then eC[#eC+1]=ew(eL).."(["..ew(m(eG)).."])"eD[#eD+1]=eH;eK=eK+1;eL=l(ey,eK,eK)eM=0;eG={}eH={}if not eL or eL==""then return nil,"Out of escape characters."end end end;local eN=p[eM]eF[S]=eL..eN;eE[#eE+1]=S;eH[eN]=S;eG[#eG+1]=eN;eM=eM+1 end;if K==#eA then eC[#eC+1]=ew(eL).."(["..ew(m(eG)).."])"eD[#eD+1]=eH end end;local eO={}local eP="(["..ew(m(eE)).."])"local eQ=eF;function eO:Encode(Y)if type(Y)~="string"then error(("Usage: codec:Encode(str):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;return k(Y,eP,eQ)end;local eR=#eC;local eS="(["..ew(ex).."])"function eO:Decode(Y)if type(Y)~="string"then error(("Usage: codec:Decode(str):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;if j(Y,eS)then return nil end;for K=1,eR do Y=k(Y,eC[K],eD[K])end;return Y end;return eO end;local eT={[0]="a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","9","(",")"}local eU={[97]=0,[98]=1,[99]=2,[100]=3,[101]=4,[102]=5,[103]=6,[104]=7,[105]=8,[106]=9,[107]=10,[108]=11,[109]=12,[110]=13,[111]=14,[112]=15,[113]=16,[114]=17,[115]=18,[116]=19,[117]=20,[118]=21,[119]=22,[120]=23,[121]=24,[122]=25,[65]=26,[66]=27,[67]=28,[68]=29,[69]=30,[70]=31,[71]=32,[72]=33,[73]=34,[74]=35,[75]=36,[76]=37,[77]=38,[78]=39,[79]=40,[80]=41,[81]=42,[82]=43,[83]=44,[84]=45,[85]=46,[86]=47,[87]=48,[88]=49,[89]=50,[90]=51,[48]=52,[49]=53,[50]=54,[51]=55,[52]=56,[53]=57,[54]=58,[55]=59,[56]=60,[57]=61,[40]=62,[41]=63}function a:EncodeForPrint(Y)if type(Y)~="string"then error(("Usage: LibDeflate:EncodeForPrint(str):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;local Z=#Y;local eV=Z-2;local K=1;local aJ={}local aF=0;while K<=eV do local _,a0,a1=h(Y,K,K+2)K=K+3;local aG=_+a0*256+a1*65536;local eW=aG%64;aG=(aG-eW)/64;local eX=aG%64;aG=(aG-eX)/64;local eY=aG%64;local eZ=(aG-eY)/64;aF=aF+1;aJ[aF]=eT[eW]..eT[eX]..eT[eY]..eT[eZ]end;local aG=0;local aH=0;while K<=Z do local af=h(Y,K,K)aG=aG+af*o[aH]aH=aH+8;K=K+1 end;while aH>0 do local e_=aG%64;aF=aF+1;aJ[aF]=eT[e_]aG=(aG-e_)/64;aH=aH-6 end;return m(aJ)end;function a:DecodeForPrint(Y)if type(Y)~="string"then error(("Usage: LibDeflate:DecodeForPrint(str):".." \'str\' - string expected got \'%s\'."):format(type(Y)),2)end;Y=Y:gsub("^[%c ]+","")Y=Y:gsub("[%c ]+$","")local Z=#Y;if Z==1 then return nil end;local f0=Z-3;local K=1;local aJ={}local aF=0;while K<=f0 do local _,a0,a1,a2=h(Y,K,K+3)_=eU[_]a0=eU[a0]a1=eU[a1]a2=eU[a2]if not(_ and a0 and a1 and a2)then return nil end;K=K+4;local aG=_+a0*64+a1*4096+a2*262144;local eW=aG%256;aG=(aG-eW)/256;local eX=aG%256;local eY=(aG-eX)/256;aF=aF+1;aJ[aF]=p[eW]..p[eX]..p[eY]end;local aG=0;local aH=0;while K<=Z do local af=h(Y,K,K)af=eU[af]if not af then return nil end;aG=aG+af*o[aH]aH=aH+6;K=K+1 end;while aH>=8 do local dG=aG%256;aF=aF+1;aJ[aF]=p[dG]aG=(aG-dG)/256;aH=aH-8 end;return m(aJ)end;local function f1()_chat_channel_codec=nil;_addon_channel_codec=nil end;a.internals={LoadStringToTable=bF,IsValidDictionary=ap,IsEqualAdler32=ag,_byte_to_6bit_char=eT,_6bit_to_byte=eU,InternalClearCache=f1}if io and os and debug and _G.arg then local io=io;local os=os;local debug=debug;local f2=_G.arg;local f3=debug.getinfo(1)if f3.source==f2[0]or f3.short_src==f2[0]then local dx;local f4;local K=1;local ej;local f5=false;local f6=false;local bK;local d5;local al;while f2[K]do local Q=f2[K]if Q=="-h"then print(a._COPYRIGHT.."\nUsage: lua LibDeflate.lua [OPTION] [INPUT] [OUTPUT]\n".."  -0    store only. no compression.\n".."  -1    fastest compression.\n".."  -9    slowest and best compression.\n".."  -d    do decompression instead of compression.\n".."  --dict <filename> specify the file that contains".." the entire preset dictionary.\n".."  -h    give this help.\n".."  --strategy <fixed/huffman_only/dynamic>".." specify a special compression strategy.\n".."  -v    print the version and copyright info.\n".."  --zlib  use zlib format instead of raw deflate.\n")os.exit(0)elseif Q=="-v"then print(a._COPYRIGHT)os.exit(0)elseif Q:find("^%-[0-9]$")then bK=tonumber(Q:sub(2,2))elseif Q=="-d"then f6=true elseif Q=="--dict"then K=K+1;local f7=f2[K]if not f7 then io.stderr:write("You must speicify the dict filename")os.exit(1)end;local f8,f9=io.open(f7,"rb")if not f8 then io.stderr:write(("LibDeflate: Cannot read the dictionary file \'%s\': %s"):format(f7,f9))os.exit(1)end;local fa=f8:read("*all")f8:close()al=a:CreateDictionary(fa,#fa,a:Adler32(fa))elseif Q=="--strategy"then K=K+1;d5=f2[K]elseif Q=="--zlib"then f5=true elseif Q:find("^%-")then io.stderr:write(("LibDeflate: Invalid argument: %s"):format(Q))os.exit(1)else if not dx then dx,ej=io.open(Q,"rb")if not dx then io.stderr:write(("LibDeflate: Cannot read the file \'%s\': %s"):format(Q,tostring(ej)))os.exit(1)end elseif not f4 then f4,ej=io.open(Q,"wb")if not f4 then io.stderr:write(("LibDeflate: Cannot write the file \'%s\': %s"):format(Q,tostring(ej)))os.exit(1)end end end;K=K+1 end;if not dx or not f4 then io.stderr:write("LibDeflate:".." You must specify both input and output files.")os.exit(1)end;local fb=dx:read("*all")local au={level=bK,strategy=d5}local fc;if not f6 then if not f5 then if not al then fc=a:CompressDeflate(fb,au)else fc=a:CompressDeflateWithDict(fb,al,au)end else if not al then fc=a:CompressZlib(fb,au)else fc=a:CompressZlibWithDict(fb,al,au)end end else if not f5 then if not al then fc=a:DecompressDeflate(fb)else fc=a:DecompressDeflateWithDict(fb,al)end else if not al then fc=a:DecompressZlib(fb)else fc=a:DecompressZlibWithDict(fb,al)end end end;if not fc then io.stderr:write("LibDeflate: Decompress fails.")os.exit(1)end;f4:write(fc)if dx and dx~=io.stdin then dx:close()end;if f4 and f4~=io.stdout then f4:close()end;io.stderr:write(("Successfully writes %d bytes"):format(fc:len()))os.exit(0)end end;return a end)()
local expect = dofile("rom/modules/main/cc/expect.lua")
local expect, field = expect.expect, expect.field
settings.define("containers.compression_level", {
    description = "The level of compression for the file systems on a scale of 1-8",
    default = 8,
    type = "number",
})
settings.save()
local compression_level = settings.get("containers.compression_level")

local lib = {}

local function deepcopy(o, seen)
  seen = seen or {}
  if o == nil then return nil end
  if seen[o] then return seen[o] end

  local no
  if type(o) == 'table' then
    no = {}
    seen[o] = no

    for k, v in next, o, nil do
      no[deepcopy(k, seen)] = deepcopy(v, seen)
    end
    setmetatable(no, deepcopy(getmetatable(o), seen))
  else -- number, string, boolean, etc
    no = o
  end
  return no
end


local function buildRom(path)
    local out = {}
    for _, file in ipairs(fs.list(path)) do
        local fullPath = fs.combine(path, file)
        if fs.isDir(fullPath) then
            out[file] = buildRom(fullPath)
        else
            local handle = fs.open(fullPath, "r")
            out[file] = handle.readAll()
            handle.close()
        end
    end
    return out
end

local function getRom()
    if not _G.rom_cache then
        _G.rom_cache = buildRom("/rom")
        _G.rom_cache.modules.main.globals = buildRom("/global-libraries")
    end
    return _G.rom_cache
end

function lib.getENV(fspath, term_override, perms)
    local filesystem = nil
    print(fspath)
    if not perms then perms = {} end
    local global = deepcopy(_G)
    global.require = nil

    local native = global.term.native and global.term.native() or global.term
    local redirectTarget = native

    local function wrap(_sFunction)
        return function(...)
            return redirectTarget[_sFunction](...)
        end
    end

    local term = {}

    --- Redirects terminal output to a monitor, a [`window`], or any other custom
    -- terminal object. Once the redirect is performed, any calls to a "term"
    -- function - or to a function that makes use of a term function, as [`print`] -
    -- will instead operate with the new terminal object.
    --
    -- A "terminal object" is simply a table that contains functions with the same
    -- names - and general features - as those found in the term table. For example,
    -- a wrapped monitor is suitable.
    --
    -- The redirect can be undone by pointing back to the previous terminal object
    -- (which this function returns whenever you switch).
    --
    -- @tparam Redirect target The terminal redirect the [`term`] API will draw to.
    -- @treturn Redirect The previous redirect object, as returned by
    -- [`term.current`].
    -- @since 1.31
    -- @usage
    -- Redirect to a monitor on the right of the computer.
    --
    --     term.redirect(peripheral.wrap("right"))
    term.redirect = function(target)
        expect(1, target, "table")
        if target == term or target == global.term then
            error("term is not a recommended redirect target, try term.current() instead", 2)
        end
        for k, v in pairs(native) do
            if type(k) == "string" and type(v) == "function" then
                if type(target[k]) ~= "function" then
                    target[k] = function()
                        error("Redirect object is missing method " .. k .. ".", 2)
                    end
                end
            end
        end
        redirectTarget = target
        return oldRedirectTarget
    end

    --- Returns the current terminal object of the computer.
    --
    -- @treturn Redirect The current terminal redirect
    -- @since 1.6
    -- @usage
    -- Create a new [`window`] which draws to the current redirect target.
    --
    --     window.create(term.current(), 1, 1, 10, 10)
    term.current = function()
        return redirectTarget
    end

    --- Get the native terminal object of the current computer.
    --
    -- It is recommended you do not use this function unless you absolutely have
    -- to. In a multitasked environment, [`term.native`] will _not_ be the current
    -- terminal object, and so drawing may interfere with other programs.
    --
    -- @treturn Redirect The native terminal redirect.
    -- @since 1.6
    term.native = function()
        return native
    end

    -- Some methods shouldn't go through redirects, so we move them to the main
    -- term API.
    for _, method in ipairs { "nativePaletteColor", "nativePaletteColour" } do
        term[method] = native[method]
        native[method] = nil
    end

    for k, v in pairs(native) do
        if type(k) == "string" and type(v) == "function" and rawget(term, k) == nil then
            term[k] = wrap(k)
        end
    end
    
    local function write(sText)
        expect(1, sText, "string", "number")

        local w, h = term.getSize()
        local x, y = term.getCursorPos()

        local nLinesPrinted = 0
        local function newLine()
            if y + 1 <= h then
                term.setCursorPos(1, y + 1)
            else
                term.setCursorPos(1, h)
                term.scroll(1)
            end
            x, y = term.getCursorPos()
            nLinesPrinted = nLinesPrinted + 1
        end

        -- Print the line with proper word wrapping
        sText = tostring(sText)
        while #sText > 0 do
            local whitespace = string.match(sText, "^[ \t]+")
            if whitespace then
                -- Print whitespace
                term.write(whitespace)
                x, y = term.getCursorPos()
                sText = string.sub(sText, #whitespace + 1)
            end

            local newline = string.match(sText, "^\n")
            if newline then
                -- Print newlines
                newLine()
                sText = string.sub(sText, 2)
            end

            local text = string.match(sText, "^[^ \t\n]+")
            if text then
                sText = string.sub(sText, #text + 1)
                if #text > w then
                    -- Print a multiline word
                    while #text > 0 do
                        if x > w then
                            newLine()
                        end
                        term.write(text)
                        text = string.sub(text, w - x + 2)
                        x, y = term.getCursorPos()
                    end
                else
                    -- Print a word normally
                    if x + #text - 1 > w then
                        newLine()
                    end
                    term.write(text)
                    x, y = term.getCursorPos()
                end
            end
        end

        return nLinesPrinted
    end

    local function print(...)
        local nLinesPrinted = 0
        local nLimit = select("#", ...)
        for n = 1, nLimit do
            local s = tostring(select(n, ...))
            if n < nLimit then
                s = s .. "\t"
            end
            nLinesPrinted = nLinesPrinted + write(s)
        end
        nLinesPrinted = nLinesPrinted + write("\n")
        return nLinesPrinted
    end

    local function printError(...)
        local oldColour
        if term.isColour() then
            oldColour = term.getTextColour()
            term.setTextColour(colors.red)
        end
        print(...)
        if term.isColour() then
            term.setTextColour(oldColour)
        end
    end

    local function read(_sReplaceChar, _tHistory, _fnComplete, _sDefault)
        expect(1, _sReplaceChar, "string", "nil")
        expect(2, _tHistory, "table", "nil")
        expect(3, _fnComplete, "function", "nil")
        expect(4, _sDefault, "string", "nil")

        term.setCursorBlink(true)

        local sLine
        if type(_sDefault) == "string" then
            sLine = _sDefault
        else
            sLine = ""
        end
        local nHistoryPos
        local nPos, nScroll = #sLine, 0
        if _sReplaceChar then
            _sReplaceChar = string.sub(_sReplaceChar, 1, 1)
        end

        local tCompletions
        local nCompletion
        local function recomplete()
            if _fnComplete and nPos == #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 cursor_pos = nPos - nScroll
            if sx + cursor_pos >= w then
                -- We've moved beyond the RHS, ensure we're on the edge.
                nScroll = sx + nPos - w
            elseif cursor_pos < 0 then
                -- We've moved beyond the LHS, ensure we're on the edge.
                nScroll = nPos
            end

            local _, cy = term.getCursorPos()
            term.setCursorPos(sx, cy)
            local sReplace = _bClear and " " or _sReplaceChar
            if sReplace then
                term.write(string.rep(sReplace, math.max(#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, #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 = #sLine

                -- Redraw
                recomplete()
                redraw()
            end
        end
        while true do
            local sEvent, param, param1, param2 = 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 + #param
                recomplete()
                redraw()

            elseif sEvent == "key" then
                if param == keys.enter or param == keys.numPadEnter then
                    -- Enter/Numpad 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 < #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, nScroll = #sLine, 0
                        else
                            sLine = ""
                            nPos, nScroll = 0, 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
                        if nScroll > 0 then nScroll = nScroll - 1 end
                        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 < #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 < #sLine then
                        clear()
                        nPos = #sLine
                        recomplete()
                        redraw()
                    end

                elseif param == keys.tab then
                    -- Tab (accept autocomplete)
                    acceptCompletion()

                end

            elseif sEvent == "mouse_click" or sEvent == "mouse_drag" and param == 1 then
                local _, cy = term.getCursorPos()
                if param1 >= sx and param1 <= w and param2 == cy then
                    -- Ensure we don't scroll beyond the current line
                    nPos = math.min(math.max(nScroll + param1 - sx, 0), #sLine)
                    redraw()
                end

            elseif sEvent == "term_resize" then
                -- Terminal resized
                w = term.getSize()
                redraw()

            end
        end

        local _, cy = term.getCursorPos()
        term.setCursorBlink(false)
        term.setCursorPos(w + 1, cy)
        print()

        return sLine
    end
    local function getFileSystem()
        if filesystem then filesystem.rom = getRom() return filesystem end
        if not fs.exists(fspath) then
            return {rom=getRom()}
        end
        local file = fs.open(fspath, "r")
        local compressedData = file.readAll()
        file.close()
        local decompressedData = deflate:DecompressDeflate(compressedData,{level=compression_level})
        local data = textutils.unserialize(decompressedData) or {}
        filesystem = data
        data.rom = getRom()
        return data
    end

    local function setFileSystem(data)
        filesystem = data
        data.rom = nil
        data = textutils.serialize(data)
        local file = fs.open(fspath, "w")
        file.write(deflate:CompressDeflate(data,{level=compression_level}))
        file.close()
    end

    local function normalizeParts(path)
    local parts = {}
    for part in string.gmatch(path, "[^/]+") do
        if part == "" or part == "." then
        -- skip
        elseif part == ".." then
        if #parts > 0 then table.remove(parts) end
        else
        parts[#parts + 1] = part
        end
    end
    return parts
    end

    local function getDataAt(path)
        expect(1, path, "string")
        local parts = normalizeParts(path)
        local current = getFileSystem()
        if #parts == 0 then return current end
        for i = 1, #parts do
            local part = parts[i]
            if type(current) ~= "table" then
                -- trying to index into a file
                return nil
            end
            current = current[part]
            if current == nil then return nil end
        end
        return current
    end

    local function setDataAt(path, data)
        expect(1, path, "string")
        local parts = normalizeParts(path)
        local filesys = getFileSystem()
        local current = filesys
        for i, part in ipairs(parts) do
            if i == #parts then
                current[part] = data
            elseif type(current[part]) == "table" then
                current = current[part]
            elseif type(current[part]) == "string" then
                return
            end
        end
        setFileSystem(filesys)
    end


    function global.fs.list(path)
        expect(1, path, "string")
        local out = {}
        local data = getDataAt(path)
        if data then
            for k, v in pairs(data) do
                table.insert(out, k)
            end
        end
        return out
    end

    function global.fs.isDir(path)
        expect(1, path, "string")
        local data = getDataAt(path)
        return type(data) == "table"
    end

    function global.fs.isReadOnly(path)
        if path == "" then return false end
        expect(1, path, "string")
        local offset = string.find(path, "rom")
        return offset ~= nil and offset < 3
    end

    function global.fs.exists(path)
        expect(1, path, "string")
        local data = getDataAt(path)
        return data ~= nil
    end

    function global.fs.complete(sPath, sLocation, bIncludeFiles, bIncludeDirs)
        expect(1, sPath, "string")
        expect(2, sLocation, "string")
        local bIncludeHidden = nil
        if type(bIncludeFiles) == "table" then
            bIncludeDirs = field(bIncludeFiles, "include_dirs", "boolean", "nil")
            bIncludeHidden = field(bIncludeFiles, "include_hidden", "boolean", "nil")
            bIncludeFiles = field(bIncludeFiles, "include_files", "boolean", "nil")
        else
            expect(3, bIncludeFiles, "boolean", "nil")
            expect(4, bIncludeDirs, "boolean", "nil")
        end

        bIncludeHidden = bIncludeHidden ~= false
        bIncludeFiles = bIncludeFiles ~= false
        bIncludeDirs = bIncludeDirs ~= false
        local sDir = sLocation
        local nStart = 1
        local nSlash = string.find(sPath, "[/\\]", nStart)
        if nSlash == 1 then
            sDir = ""
            nStart = 2
        end
        local sName
        while not sName do
            local nSlash = string.find(sPath, "[/\\]", nStart)
            if nSlash then
                local sPart = string.sub(sPath, nStart, nSlash - 1)
                sDir = global.fs.combine(sDir, sPart)
                nStart = nSlash + 1
            else
                sName = string.sub(sPath, nStart)
            end
        end

        if global.fs.isDir(sDir) then
            local tResults = {}
            if bIncludeDirs and sPath == "" then
                table.insert(tResults, ".")
            end
            if sDir ~= "" then
                if sPath == "" then
                    table.insert(tResults, bIncludeDirs and ".." or "../")
                elseif sPath == "." then
                    table.insert(tResults, bIncludeDirs and "." or "./")
                end
            end
            local tFiles = global.fs.list(sDir)
            for n = 1, #tFiles do
                local sFile = tFiles[n]
                if #sFile >= #sName and string.sub(sFile, 1, #sName) == sName and (
                    bIncludeHidden or sFile:sub(1, 1) ~= "." or sName:sub(1, 1) == "."
                ) then
                    local bIsDir = global.fs.isDir(fs.combine(sDir, sFile))
                    local sResult = string.sub(sFile, #sName + 1)
                    if bIsDir then
                        table.insert(tResults, sResult .. "/")
                        if bIncludeDirs and #sResult > 0 then
                            table.insert(tResults, sResult)
                        end
                    else
                        if bIncludeFiles and #sResult > 0 then
                            table.insert(tResults, sResult)
                        end
                    end
                end
            end
            return tResults
        end

        return {}
    end

    local function getReadHandle(path, isBinary)
        expect(1, path, "string")
        local data = getDataAt(path) or ""
        local len  = #data
        local seek = 1

        return {
            readAll = function()
                if data == nil then return nil end
                data = data:sub(seek)
                seek = len + 1
                return data
            end,

            readLine = function(includeTrailing)
                if data == nil then return nil end
                if seek > len then return nil end  -- EOF guard

                local start = seek
                local nl = data:find("\n", start, true)
                local line

                if nl then
                    if includeTrailing then
                        line = data:sub(start, nl)      -- include "\n"
                    else
                        line = data:sub(start, nl - 1) -- exclude "\n"
                    end
                    seek = nl + 1
                else
                    -- last line (no trailing newline)
                    line = data:sub(start)
                    seek = len + 1
                end

                -- NOTE: do NOT treat "" as EOF; blank lines are valid
                return line
            end,

            read = function(count)
                if type(count) == "table" then
                    count = 1
                end
                expect(1, count, "number", "nil")
                if data == nil then return nil end
                if not count then count = 1 end
                if seek > len then return nil end

                local toReturn = string.sub(data, seek, seek + count - 1)
                seek = seek + #toReturn
                if toReturn == "" then
                    return nil
                elseif isBinary and count == 1 then
                    return string.byte(toReturn)
                end
                return toReturn
            end,

            seek = function (offset, whence)
                if data == nil then return nil, "File is closed" end
                offset = offset or 0
                whence = whence or "cur"

                if whence == "set" then
                    seek = math.min(math.max(0, offset), len) + 1
                elseif whence == "cur" then
                    seek = math.min(math.max(1, seek + offset), len + 1)
                elseif whence == "end" then
                    seek = math.min(math.max(0, len + offset), len) + 1
                end

                return seek - 1
            end,

            close = function()
                data = nil
            end,
        }
    end


    local function getWriteHandle(path, isBinary, append_mode)
        local data = ""
        local seek = 1

        if append_mode then
            data = getDataAt(path) or ""
            seek = #data + 1
        end

        local handle -- forward declared so writeLine can see it

        local function hwrite(str)
            if data == nil then error("File is closed", 2) end
            if type(str) == "number" and isBinary then
                str = string.char(str)
            elseif type(str) ~= "string" then
                error("bad argument #1 (string or number expected, got " .. type(str) .. " )", 2)
            end

            data = string.sub(data, 1, seek - 1) .. str .. string.sub(data, seek + #str)
            seek = seek + #str
        end

        handle = {
            write = hwrite,
            writeLine = function (str)
                if data == nil then error("File is closed", 2) end
                expect(1, str, "string")
                hwrite(str .. "\n")   -- **no global write**
            end,
            flush = function()
                if data == nil then error("File is closed", 2) end
                setDataAt(path, data)
            end,
            close = function()
                if data == nil then error("File is already closed", 2) end
                setDataAt(path, data)
                data = nil
            end,
        }

        return handle
    end

    local function getReadWriteHandle(path, isBinary, erase_data)
        expect(1, path, "string")
        local data = erase_data and "" or (getDataAt(path) or "")
        local len  = #data
        local seek = 1

        local handle = {}

        handle.readAll = function()
            if data == nil then return nil end
                data = data:sub(seek)
                seek = len + 1
                return data
        end

        handle.readLine = function(includeTrailing)
            if data == nil then return nil end
            if seek > len then return nil end  -- EOF guard

            local start = seek
            local nl = data:find("\n", start, true)
            local line

            if nl then
                if includeTrailing then
                    line = data:sub(start, nl)
                else
                    line = data:sub(start, nl - 1)
                end
                seek = nl + 1
            else
                line = data:sub(start)
                seek = len + 1
            end

            return line
        end

        function handle.read(count)
            if type(count) == "table" then
                count = 1
            end
            expect(1, count, "number", "nil")
            if data == nil then error("File is closed", 2) end
            if not count then count = 1 end
            if seek > len then return nil end

            local toReturn = data:sub(seek, seek + count - 1)
            seek = seek + #toReturn

            if toReturn == "" then
                return nil
            elseif isBinary and count == 1 then
                return string.byte(toReturn)
            end
            return toReturn
        end

        function handle.seek(offset, whence)
            if data == nil then return nil, "File is closed" end

            offset = offset or 0
            whence = whence or "cur"

            if whence == "set" then
                seek = math.min(math.max(0, offset), len) + 1
            elseif whence == "cur" then
                seek = math.min(math.max(1, seek + offset), len + 1)
            elseif whence == "end" then
                seek = math.min(math.max(0, len + offset), len) + 1
            else
                error("bad argument #2 (invalid whence)", 2)
            end

            return seek - 1
        end

        function handle.write(str)
            if type(str) == "number" and isBinary then
                str = string.char(str)
            elseif type(str) ~= "string" then
                error("bad argument #1 (string or number expected, got " .. type(str) .. " )", 2)
            end
            if data == nil then error("File is closed", 2) end

            data = string.sub(data, 1, seek - 1) .. str .. string.sub(data, seek + #str)
            seek = seek + #str
            len  = #data
        end

        function handle.writeLine(str)
            expect(1, str, "string")
            handle.write(str .. "\n")
        end

        function handle.flush()
            if data == nil then error("File is closed", 2) end
            setDataAt(path, data)
        end

        function handle.close()
            if data == nil then error("File is already closed", 2) end
            setDataAt(path, data)
            data = nil
        end

        return handle
    end

    local function ioHandleWrapper(handle)
        local closed = false
        return {
            read = function (self, mode)
                if closed then error("File is closed", 2) end
                expect(2, mode, "string", "nil")
                if not mode then mode = "l" end
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end

                if string.find(mode, "%*") == 1 then
                    mode = mode:gsub("%*", "")
                end

                if mode == "l" then
                    return handle.readLine(false)
                elseif mode == "L" then
                    return handle.readLine(true)
                elseif mode == "a" then
                    return handle.readAll()
                else
                    error("Unsupported read mode", 2)
                end
            end,

            seek = function (self, whence, offset)
                if closed then error("File is closed", 2) end
                expect(2, whence, "string", "nil")
                expect(3, offset, "number", "nil")
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end
                return handle.seek(offset, whence)
            end,

            write = function (self, ...)
                if closed then error("File is closed", 2) end
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end

                local args = { ... }
                for i = 1, #args do
                    local arg = args[i]
                    if type(arg) ~= "string" and type(arg) ~= "number" then
                        error("bad argument #" .. (i + 1) ..
                            " (string or number expected, got " .. type(arg) .. " )", 2)
                    end
                    -- preserve your existing semantics: underlying handle decides what to do
                    handle.write(arg)
                end
            end,

            close = function (self)
                if closed then error("File is already closed", 2) end
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end
                handle.close()
                closed = true
            end,

            flush = function (self)
                if closed then error("File is closed", 2) end
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end
                handle.flush()
            end,

            lines = function (self)
                if closed then error("File is closed", 2) end
                if type(self) ~= "table" then
                    error("bad argument #1 (FILE expected, got " .. type(self) .. " )", 2)
                end
                return function()
                    if closed then error("file is already closed", 2) end
                    return handle.readLine(false)
                end
            end,
        }
    end


    function global.fs.open(path,mode)
        expect(1, path, "string")
        expect(2, mode, "string")
        if mode == "r" or mode == "rb" then
            if global.fs.exists(path) then
                return getReadHandle(path, mode == "rb")
            else
                 return nil, "File not found"
            end
        elseif mode == "w" or mode == "wb" then
            return getWriteHandle(path, mode == "wb", false)
        elseif mode == "a" or mode == "ab" then
            return getWriteHandle(path, mode == "ab", true)
        elseif mode == "r+" or mode == "rb+" or mode == "r+b" then
            if global.fs.exists(path) then
                return getReadWriteHandle(path, mode == "rb+" or mode == "r+b", false)
            else
                return nil, "File not found"
            end
        elseif mode == "w+" or mode == "wb+" or mode == "w+b" then
            return getReadWriteHandle(path, mode == "wb+" or mode == "w+b", true)
        elseif mode == "a+" or mode == "ab+" or mode == "a+b" then
            return getReadWriteHandle(path, mode == "ab+" or mode == "a+b", true)
        else
             return nil, "Invalid read mode"
        end
    end

    function global.fs.move(srcPath, dstPath)
        expect(1, srcPath, "string")
        expect(2, dstPath, "string")
        if not global.fs.exists(srcPath) then
            error("Source does not exist", 2)
        end
        if global.fs.exists(dstPath) then
            error("Destination already exists", 2)
        end
        local data = getDataAt(srcPath)
        setDataAt(dstPath, data)
        setDataAt(srcPath, nil)
    end

    function global.fs.copy(srcPath, dstPath)
        expect(1, srcPath, "string")
        expect(2, dstPath, "string")
        if not global.fs.exists(srcPath) then
            error("Source does not exist", 2)
        end
        if global.fs.exists(dstPath) then
            error("Destination already exists", 2)
        end
        local data = getDataAt(srcPath)
        setDataAt(dstPath, data)
    end

    local function find_aux(path, parts, i, out)
        local part = parts[i]
        if not part then
            -- If we're at the end of the pattern, ensure our path exists and append it.
            if global.fs.exists(path) then out[#out + 1] = path end
        elseif part.exact then
            -- If we're an exact match, just recurse into this directory.
            return find_aux(global.fs.combine(path, part.contents), parts, i + 1, out)
        else
            -- Otherwise we're a pattern. Check we're a directory, then recurse into each
            -- matching file.
            if not global.fs.isDir(path) then return end

            local files = global.fs.list(path)
            for j = 1, #files do
                local file = files[j]
                if file:find(part.contents) then find_aux(global.fs.combine(path, file), parts, i + 1, out) end
            end
        end
    end

    local find_escape = {
        -- Escape standard Lua pattern characters
        ["^"] = "%^", ["$"] = "%$", ["("] = "%(", [")"] = "%)", ["%"] = "%%",
        ["."] = "%.", ["["] = "%[", ["]"] = "%]", ["+"] = "%+", ["-"] = "%-",
        -- Aside from our wildcards.
        ["*"] = ".*",
        ["?"] = ".",
    }

    function global.fs.find(pattern)
        expect(1, pattern, "string")

        pattern = global.fs.combine(pattern) -- Normalise the path, removing ".."s.

        -- If the pattern is trying to search outside the computer root, just abort.
        -- This will fail later on anyway.
        if pattern == ".." or pattern:sub(1, 3) == "../" then
            error("/" .. pattern .. ": Invalid Path", 2)
        end

        -- If we've no wildcards, just check the file exists.
        if not pattern:find("[*?]") then
            if global.fs.exists(pattern) then return { pattern } else return {} end
        end

        local parts = {}
        for part in pattern:gmatch("[^/]+") do
            if part:find("[*?]") then
                parts[#parts + 1] = {
                    exact = false,
                    contents = "^" .. part:gsub(".", find_escape) .. "$",
                }
            else
                parts[#parts + 1] = { exact = true, contents = part }
            end
        end

        local out = {}
        find_aux("", parts, 1, out)
        return out
    end

    function global.io.open(path, mode)
        expect(1, path, "string")
        expect(2, mode, "string", "nil")
        if not mode then mode = "r" end
        local handle
        if mode == "r" or mode == "rb" then
            if global.fs.exists(path) and not global.fs.isDir(path) then
                handle = getReadHandle(path, mode == "rb")
            elseif global.fs.isDir(path) then
                return nil, "Attempt to open a directory"
            else
                return nil, "File not found"
            end
        elseif mode == "w" or mode == "wb" then
            handle = getWriteHandle(path, mode == "wb", false)
        elseif mode == "a" or mode == "ab" then
            handle = getWriteHandle(path, mode == "ab", true)
        elseif mode == "r+" or mode == "rb+" or mode == "r+b" then  
            if global.fs.exists(path) and not global.fs.isDir(path) then
                handle = getReadWriteHandle(path, mode == "rb+" or mode == "r+b", false)
            elseif global.fs.isDir(path) then
                return nil, "Attempt to open a directory"
            else
                return nil, "File not found"
            end
        elseif mode == "w+" or mode == "wb+" or mode == "w+b" then
            handle = getReadWriteHandle(path, mode == "wb+" or mode == "w+b", true)
        elseif mode == "a+" or mode == "ab+" or mode == "a+b" then
            handle = getReadWriteHandle(path, mode == "ab+" or mode == "a+b", true)
        else
            return nil, "Invalid mode"
        end
        return ioHandleWrapper(handle)
    end
    function global.io.lines(path,...)
        local args = {...}
        expect(1, path, "string")
        local handle = global.io.open(path, table.unpack(args))
        local count = 0
        return function ()
            count = count + 1
            local line = handle:read(args[count%#args + 1] or "l")
            if line == nil then
                handle:close()
            end
            return line
        end
    end
    function global.fs.delete(path)
        expect(1, path, "string")
        if global.fs.exists(path) then
            setDataAt(path, nil)
        end
    end
    function global.fs.getSize(path)
        expect(1, path, "string")
        if not global.fs.exists(path) then
            error("File not found", 2)
        end
        if global.fs.isDir(path) then
            return 0
        else
            return #getDataAt(path)
        end
    end

    function global.fs.makeDir(path)
        expect(1, path, "string")
        if global.fs.exists(path) then
            return
        end
        setDataAt(path, {})
    end

    local tAPIsLoading = {}

    local bAPIError = false

    function global.loadfile(filename, mode, env)
        -- Support the previous `loadfile(filename, env)` form instead.
        if type(mode) == "table" and env == nil then
            mode, env = nil, mode
        end

        expect(1, filename, "string")
        expect(2, mode, "string", "nil")
        expect(3, env, "table", "nil")

        local file = global.fs.open(filename, "r")
        if not file then return nil, "File not found" end

        local func, err = load(file.readAll(), "@/" .. fs.combine(filename), mode, env)
        file.close()
        return func, err
    end

    function global.dofile(_sFile)
        expect(1, _sFile, "string")

        local fnFile, e = global.loadfile(_sFile, nil, global)
        if fnFile then
            return fnFile()
        else
            error(e, 2)
        end
    end

    function global.loadAPI(_sPath)
        expect(1, _sPath, "string")
        local sName = fs.getName(_sPath)
        if sName:sub(-4) == ".lua" then
            sName = sName:sub(1, -5)
        end
        if sName == "term" then
            return true
        end
        if tAPIsLoading[sName] == true then
            printError("API " .. sName .. " is already being loaded")
            return false
        end
        tAPIsLoading[sName] = true

        local tEnv = {}
        setmetatable(tEnv, { __index = global })
        local fnAPI, err = global.loadfile(_sPath, nil, tEnv)
        if fnAPI then
            local ok, err = pcall(fnAPI)
            if not ok then
                tAPIsLoading[sName] = nil
                return error("Failed to load API " .. sName .. " due to " .. err, 1)
            end
        else
            tAPIsLoading[sName] = nil
            return error("Failed to load API " .. sName .. " due to " .. err, 1)
        end

        local tAPI = {}
        for k, v in pairs(tEnv) do
            if k ~= "_ENV" then
                tAPI[k] = v
            end
        end
        global[sName] = tAPI
        tAPIsLoading[sName] = nil
        return true
    end
    local function load_apis(dir)
        if not global.fs.isDir(dir) then return end

        for _, file in ipairs(global.fs.list(dir)) do
            if file:sub(1, 1) ~= "." then
                local path = fs.combine(dir, file)
                if not fs.isDir(path) then
                    if not global.loadAPI(path) then
                        bAPIError = true
                    end
                end
            end
        end
    end

    function global.os.run(_tEnv, _sPath, ...)
        expect(1, _tEnv, "table")
        expect(2, _sPath, "string")

        local tEnv = _tEnv
        setmetatable(tEnv, { __index = global })

        if settings.get("bios.strict_globals", false) then
            -- load will attempt to set _ENV on this environment, which
            -- throws an error with this protection enabled. Thus we set it here first.
            tEnv._ENV = tEnv
            getmetatable(tEnv).__newindex = function(_, name)
            error("Attempt to create global " .. tostring(name), 2)
            end
        end

        local fnFile, err = global.loadfile(_sPath, nil, tEnv)
        if fnFile then
            local ok, err = pcall(fnFile, ...)
            if not ok then
                if err and err ~= "" then
                    printError(err)
                end
                return false
            end
            return true
        end
        if err and err ~= "" then
            printError(err)
        end
        return false
    end
    if network and perms.network then
        global.network = network
    end
    if app and perms.app then
        global.app = deepcopy(app)
        global.app.launch = function(id,app_perms) app.launch(id,app_perms,perms) end
    end
    if global and not perms.peripheral then
        global.peripheral.wrap = function () end
        global.peripheral.find = function () end
        global.peripheral.getNames = function () return {} end
        global.peripheral.getType = function () end
        global.peripheral.isPresent = function () return false end
        global.peripheral.hasType = function () end
        global.peripheral.call = function () end
        global.peripheral.getMethods = function () end
    end
    if repo and perms.repo then
        global.repo = repo
    end
    global.settings = settings
    global._ENV = global
    global._G = global
    global.shell = nil
    global.multishell = nil
    global.term = term
    global.write = write
    global.read = read
    global.print = print
    global.printError = printError
    if type(term_override) == "table" then
        global.term.redirect(term_override)
    end
    load_apis("rom/apis")
    if http and perms.http then global.http = http load_apis("rom/apis/http") end
    return global
end

local exception = dofile("rom/modules/main/cc/internal/tiny_require.lua")("cc.internal.exception")

local function create(...)
    local barrier_ctx = { co = coroutine.running() }

    local functions = table.pack(...)
    local threads = {}
    for i = 1, functions.n, 1 do
        local fn = functions[i]
        if type(fn) ~= "function" then
            error("bad argument #" .. i .. " (function expected, got " .. type(fn) .. ")", 3)
        end

        threads[i] = { co = coroutine.create(function() return exception.try_barrier(barrier_ctx, fn) end), filter = nil }
    end

    return threads
end

local function runUntilLimit(threads, limit)
    local count = #threads
    if count < 1 then return 0 end
    local living = count

    local event = { n = 0 }
    while true do
        for i = 1, count do
            local thread = threads[i]
            if thread and (thread.filter == nil or thread.filter == event[1] or event[1] == "terminate") then
                local ok, param = coroutine.resume(thread.co, table.unpack(event, 1, event.n))
                if ok then
                    if param == "thread_shutdown" then
                        return {command=true,type="shutdown"}
                    elseif param == "thread_reboot" then
                        print("reboot")
                        return {command=true,type="reboot"}
                    else
                        thread.filter = param
                        
                    end
                elseif type(param) == "string" and exception.can_wrap_errors() then
                    printError(exception.make_exception(param, thread.co))
                else
                    printError(param)
                end

                if coroutine.status(thread.co) == "dead" then
                    threads[i] = false
                    living = living - 1
                    if living <= limit then
                        return i
                    end
                end
            end
        end

        event = table.pack(os.pullEventRaw())
    end
end

function lib.start(env)
    local command = nil
    env.os.reboot = function() command = "reboot" sleep() end
    env.os.shutdown = function() command = "shutdown" sleep() end
    local func = function ()
        command = nil
        settings.define("shell.allow_startup", {
            default = true,
            description = "Run startup files when the computer turns on.",
            type = "boolean",
        })
        settings.define("shell.allow_disk_startup", {
            default = commands == nil,
            description = "Run startup files from disk drives when the computer turns on.",
            type = "boolean",
        })

        settings.define("shell.autocomplete", {
            default = true,
            description = "Autocomplete program and arguments in the shell.",
            type = "boolean",
        })
        settings.define("edit.autocomplete", {
            default = true,
            description = "Autocomplete API and function names in the editor.",
                type = "boolean",
        })
        settings.define("lua.autocomplete", {
            default = true,
            description = "Autocomplete API and function names in the Lua REPL.",
                type = "boolean",
        })

        settings.define("edit.default_extension", {
            default = "lua",
            description = [[The file extension the editor will use if none is given. Set to "" to disable.]],
            type = "string",
        })
        settings.define("paint.default_extension", {
            default = "nfp",
            description = [[The file extension the paint program will use if none is given. Set to "" to disable.]],
            type = "string",
        })

        settings.define("list.show_hidden", {
            default = false,
            description = [[Whether the list program show  hidden files (those starting with ".").]],
            type = "boolean",
        })

        settings.define("motd.enable", {
            default = pocket == nil,
            description = "Display a random message when the computer starts up.",
            type = "boolean",
        })
        settings.define("motd.path", {
            default = "/rom/motd.txt:/motd.txt",
            description = [[The path to load random messages from. Should be a colon (":") separated string of file paths.]],
            type = "string",
        })

        settings.define("lua.warn_against_use_of_local", {
            default = true,
            description = [[Print a message when input in the Lua REPL starts with the word 'local'. Local variables defined in the Lua REPL are be inaccessible on the next input.]],
            type = "boolean",
        })
        settings.define("lua.function_args", {
            default = true,
            description = "Show function arguments when printing functions.",
            type = "boolean",
        })
        settings.define("lua.function_source", {
            default = false,
            description = "Show where a function was defined when printing functions.",
            type = "boolean",
        })
        settings.define("bios.strict_globals", {
            default = false,
            description = "Prevents assigning variables into a program's environment. Make sure you use the local keyword or assign to _G explicitly.",
            type = "boolean",
        })
        settings.define("bios.use_multishell", {
            default = true,
            description = "Allow running multiple program at once, through the use of the \"fg\" and \"bg\" programs..",
            type = "boolean",
        })
        settings.define("shell.autocomplete_hidden", {
            default = false,
            description = [[Autocomplete hidden files and folders (those starting with ".").]],
            type = "boolean",
        })
        print("running container!")
        
        return runUntilLimit(create(function()
            local sShell
            if term.isColour() and settings.get("bios.use_multishell") then
                sShell = "rom/programs/advanced/multishell.lua"
            else
                sShell = "rom/programs/shell.lua"
            end
            os.run({}, sShell)
            os.run({}, "rom/programs/shutdown.lua")

        end,function ()
            while true do
                sleep()
                if command == "shutdown" then
                    while true do coroutine.yield("thread_shutdown") end
                elseif command == "reboot" then
                    while true do coroutine.yield("thread_reboot") end
                end
            end
        end),0)
    end
    local command = "starting"
    while command == "starting" or (type(command) == "table" and command.command and command.type=="reboot") do
        command = setfenv(func,deepcopy(env))()
    end
end

return lib