optimisation

modules/applications/evproxy-client.lua

@@ -1,8 +1,7 @@
 function nshc(evPP,nid)
  while true do
   if ev[1] == "net_msg" then
-   local V=false
-   local msg = tostring(ev[4])
+   local V,msg=false,tostring(ev[4])
    if ev[3] == evPP and ev[2] == nid then
     if msg:sub(1,3) == "dis" then
      h("display",msg:sub(4))

modules/applications/evproxy-srv.lua

@@ -1,10 +1,8 @@
 evPP,tEPs=4,{}
 s("netsh daemon",function()
- print("netsh daemon started")
  while true do
   if ev[1] == "net_msg" then
-   local V=false
-   local msg = tostring(ev[4])
+   local V,msg=false,tostring(ev[4])
    for k,v in ipairs(tEPs) do if ev[2] == v then V=true end end
    if ev[3] == evPP and V then
     if msg:sub(1,3) == "key" then

modules/base/footer.lua

@@ -1,8 +1,5 @@
 while #tT > 0 do
  ev={computer.pullSignal(p)}
- for k,v in ipairs(ev) do
---  wl(tostring(v))
- end
  for k,v in ipairs(tT) do
   _G.cT=k
   if C.status(v[2])~="dead" then

modules/library/fs-ext-gen.lua

@@ -0,0 +1,3 @@
+for k,v in ipairs({{"rm","remove"},"exists",{"isdir","isDirectory"},"list",{"mkdir","makeDirectory"}}) do
+ load("function f"..v[1] or v.."(s)\nlocal d,p = fres(s)\nreturn d."..v[2] or v.."(p)\nend")()
+end

modules/library/fs-min.lua

@@ -1,6 +1,6 @@
 fT = {}
 function fres(p)
- local fid = (p:match("(%a-):") or p:match("/?(%a-)/"))
- local pt = (p:match("%a-:(.+)") or p:match("/?%a-/(.+)"))
- if fT[fid] ~= nil then return fT[fid],pt else return false end
+ local F = (p:match("(%a-):") or p:match("/?(%a-)/"))
+ local P = (p:match("%a-:(.+)") or p:match("/?%a-/(.+)"))
+ if fT[F] ~= nil then return fT[fid],P else return false end
 end

modules/library/fs-std.lua

@@ -1,11 +1,11 @@
 hT = {["_c"]=0}
 function fopen(p,m)
  local d,p = fres(p)
- local f=d.open(p,m)
+ local f,C=d.open(p,m),hT._c
  if f then
-  hT._c = hT._c + 1
-  hT[hT._c] = {d,f}
-  return hT._c
+  hT._c = C + 1
+  hT[C] = {d,f}
+  return C
  end
  return false
 end