OC-MultICE/modules/applications/skex2.lua

function skex(s)
 local c,cs,cT,lT,lP="","",{},{},1
 local function lf(s)
  local f=fopen(s,"rb")
  local nc=fread(f,2048)
  while nc ~= nil and nc ~= "" do
   c=c..nc
   nc=fread(f,2048)
  end
 end
 local function wf(s)
  local f,c=fopen(s,"wb"),""
  for k,v in ipairs(lT) do fwrite(f,v.."\n") end
  fclose(f)
 end
 if s then
  lf(s)
  for l in c:gmatch("(.-)\n") do lT[#lT+1]=l end
 end
 while true do
  cs=readln()
  cT={}
  for w in cs:gmatch("%S+") do cT[#cT+1]=w end
  if cT[1] == "q" then break
  elseif cT[1] == "l" then
   for i = (TN(cT[2]) or 1), (TN(cT[3]) or #lT) do
    print(TS(i).."\t"..(lT[i] or ""))
   end
  elseif cT[1] == "a" or cT[1] == "i" or cT[1] == "s" then
   if TN(cT[2]) then lP=TN(cT[2]) end
   if cT[1] == "s" then for i = 1,TN(cT[3]) do T.remove(lT,i+(TN(cT[2])-1)) end end
   if cT[1] == "a" then lP=lP+1 end
   while true do
    cs=readln()
    if cs~="." then
     T.insert(lT,lP,cs)
     lP=lP+1
    else break end
   end
  elseif cT[1] == "f" then
   s=cT[2] or s
   print(s)
  elseif cT[1] == "e" then
   c=""
   for k,v in ipairs(lT) do c=c..v.."\n" end
   print(pcall(load(c)))
  elseif cT[1] == "r" then
   s=cT[2] or s
   wf(s)
  elseif cT[1] == "w" then
   s=cT[2] or s
   wf(s)
  elseif cT[1] == "d" then
   for i = 1, TN(cT[3])-TN(cT[2]) do
    T.remove(lT,cT[2])
   end
  elseif cT[1] == "p" then
   lP=TN(cT[2]) or lP
   print(lP)
  elseif cs:sub(1,1) == "!" then
   c=""
   for k,v in ipairs(lT) do c=c..v.."\n" end
   print(pcall(load(cs:sub(2))))
  else
   print("?")
  end
 end
end