mlua

-- ANVI.COREPROG-MLUA
-- mlua rev 1.3 (C)2017 osirisgothra@hotmail.com
-- written by Gabriel T. Sharp, no distribution without written concent
--

local tArgs = { ... }
if #tArgs > 0 then
 print( "Modified Version of LUA Interpreter")
 print( "(C)2017 by Gabriel Sharp")
 print( "osirisgothra@hotmail.com")
    print( "This is an interactive Lua prompt." )
    print( "To run a lua program, just type its name." )
    return
end
function nocolor()
  if false then
    print('never happens')
  end
end

if term.isColor() then
--  old_setColor = term.setTextColor
--  old_setColorB = term.setBackgroundColor
   nocolor = nil
else
--  old_setColor = nocolor
--  old_setColorB = nocolor
   term.setTextColor = nocolor
   term.setBackgroundColor = nocolor
end



local bRunning = true
local tCommandHistory = {}

local tEnv = {
    ["exit"] = function()
bRunning = false
end,
 ["_echo"] = function( ... )
 return ...
 end,

}
setmetatable( tEnv, { __index = _ENV } )
fg=term.setTextColor
bg=term.setBackgroundColor
cp=term.setCursorPos
c=colors

if term.isColor() then
    term.setTextColor( colors.yellow )
end
fg(c.green)
print( "Interactive Lua prompt." )
print( "Call exit() to exit OR just type 'exit'." )
print( " " )
fg( colors.lime )
print( "Modified Version by Gabriel Sharp (C)2017-18" )
fg( c.magenta )
print( "osirisgothra@hotmail.com" )
print( " " )
bg( c.blue )
fg( c.cyan )
print ( "// 1.7 completion edition! //" )
bg (c.black)
print(" ")
fg( c.white )


while bRunning do
    --if term.isColour() then
    --  term.setTextColour( colours.yellow )
    --end
 if term.isColor() then
   term.setTextColor( colors.lime )
   write( shell.dir() )
   write( "mlua" )
   term.setTextColor( colors.gray )
   write( "> " )
   term.setTextColor( colors.white )
 else
   write("mlua: ")
 end
    --write( "lua> " )
    --term.setTextColour( colours.white )

    local s = read( nil, tCommandHistory, function( sLine )
 -- if true then
 -- settings.get( "lua.autocomplete" ) then
   local nStartPos = string.find( sLine, "[A-Za-z0-9_%.]+" )
   if nStartPos then
     sLine = string.sub( sLine, nStartPos )
   end
   if #sLine > 0 then
     return textutils.complete( sLine, tEnv )
   end
 -- end
 return nil
 end )

 if s == "exit" then
   print("automatically interpreted command exit as exit()")
   s = "exit()"
 elseif string.sub(s,1,1) == "!" then
   s = "shell.run('"..string.sub(s,2) .. "')"
 end

 -- print(s)

    table.insert( tCommandHistory, s )
 --print(s)

    local nForcePrint = 0

    local func, e = load( s, "lua", "t", tEnv )
    local func2, e2 = load( "return _echo("..s..");", "lua", "t", tEnv )
    if not func then
        if func2 then
            func = func2
            e = nil
            nForcePrint = 1
        end
    else
        if func2 then
            func = func2
        end
    end

    if func then
--- was removed for 7.1 final (set/getfenv inferior, using _ENV instead!)
--- updated from 7.1's beta compatability versions
---        setfenv( func, tEnv )
        local tResults = { pcall ( func ) }
        if tResults[1] then
            local n = 1
            while (tResults[n + 1] ~= nil) or (n <= nForcePrint) do
            if type(tResults[n+1]) == "nil" then
               print("nil (empty value)")
            elseif type(tResults[n+1]) == "table" then
              local i=0
              local _,max = term.getSize()
              for dim,val in pairs(tResults[n+1]) do
               term.setTextColor(colors.gray)
               write(dim)
               write("  ")
               term.setTextColor(colors.green)
               print(val)
               term.setTextColor(colors.white)
               i=i+1
               if i > (max-3) then
                 term.setTextColor(colors.cyan)
                 term.write("[")
                 term.setTextColor(colors.blue)
                 term.write("Press Any Key")
                 term.setTextColor(colors.cyan)
                 term.write("]")
                 term.setTextColor(colors.white)
                 while not os.pullEvent() == "key" do
                  sleep(0.25)
                 end

                 term.clearLine()
                 i=0
               end
              end
            else
               print( tostring( tResults[n+1] ) )
            end
            term.setTextColor(colors.blue)
            print("type ",type(tResults[n+1]))
            term.setTextColor(colors.white)
                n = n + 1
            end
        else
            printError( tResults[2] )
        end
    else
        printError( e )
    end
end