372 lines
8.2 KiB
Lua
Executable File
372 lines
8.2 KiB
Lua
Executable File
|
|
local console = {
|
|
cmdList = {},
|
|
currentListInd = 0,
|
|
|
|
txtCmdLine = nil,
|
|
mtlOutput = nil,
|
|
|
|
hold_caret = false,
|
|
}
|
|
|
|
if (not loadstring) then
|
|
loadstring = load
|
|
end
|
|
|
|
|
|
--------------------- Command History ---------------------
|
|
|
|
|
|
function iup.ConsoleKeyUpCommand()
|
|
if #console.cmdList > 0 then
|
|
if console.currentListInd >= 1 then
|
|
console.txtCmdLine.value = console.cmdList[console.currentListInd]
|
|
if console.currentListInd > 1 then
|
|
console.currentListInd = console.currentListInd - 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function iup.ConsoleKeyDownCommand()
|
|
if #console.cmdList > 0 then
|
|
if console.currentListInd <= #console.cmdList then
|
|
console.txtCmdLine.value = console.cmdList[console.currentListInd]
|
|
if console.currentListInd < #console.cmdList then
|
|
console.currentListInd = console.currentListInd + 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
function iup.ConsoleEnterCommandStr(text)
|
|
table.insert(console.cmdList, text)
|
|
console.currentListInd = #console.cmdList
|
|
iup.ConsolePrint("> " .. text)
|
|
end
|
|
|
|
function iup.ConsoleEnterCommand()
|
|
|
|
local command = console.txtCmdLine.value
|
|
if command == nil or command == "" then
|
|
return
|
|
end
|
|
|
|
iup.ConsoleEnterCommandStr(command)
|
|
|
|
local cmd, msg = loadstring(command)
|
|
if (not cmd) then
|
|
cmd = loadstring("return " .. command)
|
|
end
|
|
if (not cmd) then
|
|
iup.ConsolePrint("Error: ".. msg) -- the original error message
|
|
else
|
|
local result = {pcall(cmd)}
|
|
if result[1] then
|
|
for i = 2, #result do
|
|
iup.ConsolePrintValue(result[i])
|
|
end
|
|
else
|
|
iup.ConsolePrint("Error: ".. result[2])
|
|
end
|
|
end
|
|
|
|
console.txtCmdLine.value = ""
|
|
end
|
|
|
|
|
|
--------------------- Print Replacement ---------------------
|
|
|
|
function iup.ConsolePrint(...)
|
|
local param = {...}
|
|
local str = ""
|
|
if (#param == 0) then
|
|
str = "nil"
|
|
else
|
|
for i, k in ipairs(param) do
|
|
if (i > 1) then str = str .."\t" end
|
|
str = str .. tostring(k)
|
|
end
|
|
end
|
|
console.mtlOutput.append = str
|
|
if (not console.hold_caret) then
|
|
console.mtlOutput.scrollto = "99999999:1"
|
|
end
|
|
end
|
|
|
|
print_old = print
|
|
print = iup.ConsolePrint
|
|
|
|
write_old = io.write
|
|
io.write = function(...)
|
|
console.mtlOutput.appendnewline="No"
|
|
iup.ConsolePrint(...)
|
|
console.mtlOutput.appendnewline="Yes"
|
|
end
|
|
|
|
function iup.ConsoleValueToString(v)
|
|
if (type(v) == "string") then
|
|
return "\"" .. v .. "\""
|
|
else
|
|
return tostring(v)
|
|
end
|
|
end
|
|
|
|
function iup.ConsolePrintTable(t)
|
|
local str = "{\n"
|
|
local tmp = {}
|
|
for i, k in ipairs(t) do
|
|
str = str .. " ["..tostring(i).. "] = " .. iup.ConsoleValueToString(k) .. ",\n"
|
|
tmp[i] = true
|
|
end
|
|
for i, k in pairs(t) do
|
|
if (not tmp[i]) then
|
|
str = str .. " ["..tostring(i).. "] = ".. iup.ConsoleValueToString(k) .. ",\n"
|
|
end
|
|
end
|
|
str = str .. "}"
|
|
|
|
iup.ConsolePrint(str)
|
|
end
|
|
|
|
function iup.ConsolePrintFunction(f)
|
|
local info = debug.getinfo(f, "S")
|
|
|
|
local defined
|
|
if info.what == "C" then
|
|
defined = " [Defined in C"
|
|
else
|
|
local s = string.sub(info.source, 1, 1)
|
|
if s == "@" then
|
|
local filename = string.sub(info.source, 2)
|
|
defined = " [Defined in the file: \"" .. filename .. "\""
|
|
else
|
|
local short_src = string.sub(info.short_src, 2, -2)
|
|
defined = " [Defined in a " .. short_src
|
|
end
|
|
end
|
|
if info.linedefined > 0 then
|
|
defined = defined .. ", line " .. info.linedefined .. "]"
|
|
else
|
|
defined = defined .. "]"
|
|
end
|
|
|
|
iup.ConsolePrint(defined)
|
|
end
|
|
|
|
function iup.ConsolePrintValue(v)
|
|
if (type(v) == "table") then
|
|
iup.ConsolePrintTable(v)
|
|
elseif (type(v) == "function") then
|
|
iup.ConsolePrintFunction(v)
|
|
else
|
|
iup.ConsolePrint(iup.ConsoleValueToString(v))
|
|
end
|
|
end
|
|
|
|
|
|
--------------------- Utilities ---------------------
|
|
|
|
|
|
function iup.ConsoleListFuncs()
|
|
|
|
iup.ConsoleEnterCommandStr("iup.ConsoleListFuncs()")
|
|
|
|
console.hold_caret = true
|
|
|
|
local global = _G
|
|
local n,v = next(global, nil)
|
|
while n ~= nil do
|
|
if type(v) == "function" then
|
|
iup.ConsolePrint(n)
|
|
end
|
|
n,v = next(global, n)
|
|
end
|
|
|
|
console.hold_caret = false
|
|
console.mtlOutput.scrollto = "99999999:1"
|
|
end
|
|
|
|
function iup.ConsoleListVars()
|
|
|
|
iup.ConsoleEnterCommandStr("iup.ConsoleListVars()")
|
|
|
|
console.hold_caret = true
|
|
|
|
local global = _G
|
|
local n,v = next(global, nil)
|
|
while n ~= nil do
|
|
if type(v) ~= "function" and n ~= "_G" then
|
|
iup.ConsolePrint(n)
|
|
end
|
|
n,v = next(global, n)
|
|
end
|
|
|
|
console.hold_caret = false
|
|
console.mtlOutput.scrollto = "99999999:1"
|
|
end
|
|
|
|
function iup.ConsolePrintStack()
|
|
local info, desc, defined
|
|
|
|
iup.ConsoleEnterCommandStr("iup.ConsolePrintStack()")
|
|
|
|
local level = 2 -- skip level 0, getinfo
|
|
-- skip level 1, ConsolePrintStack
|
|
|
|
info = debug.getinfo(level, "Snl") -- source, name, namewhat, what, currentline, linedefined
|
|
while info ~= nil do
|
|
if info.what == "main" then
|
|
desc = "<main>"
|
|
elseif info.name and info.name ~= "" then
|
|
desc = info.name
|
|
else
|
|
desc = "<noname>"
|
|
end
|
|
if info.namewhat ~= "" then
|
|
desc = desc .. " <".. info.namewhat .. ">"
|
|
end
|
|
if info.currentline > 0 then
|
|
desc = desc .. " at line " .. info.currentline
|
|
end
|
|
|
|
if info.what == "C" then
|
|
defined = " [Defined in C"
|
|
else
|
|
local s = string.sub(info.source, 1, 1)
|
|
if s == "@" then
|
|
local filename = string.sub(info.source, 2)
|
|
defined = " [Defined in the file: \"" .. filename .. "\""
|
|
else
|
|
local short_src = string.sub(info.short_src, 2, -2)
|
|
defined = " [Defined in a " .. short_src
|
|
end
|
|
end
|
|
if info.linedefined > 0 then
|
|
defined = defined .. ", line " .. info.linedefined .. "]"
|
|
else
|
|
defined = defined .. "]"
|
|
end
|
|
|
|
iup.ConsolePrint(level - 1 .. " - " .. desc .. defined)
|
|
|
|
level = level + 1
|
|
info = debug.getinfo(level, "Snl") -- source, name, namewhat, what, currentline, linedefined
|
|
end
|
|
|
|
end
|
|
|
|
|
|
--------------------- Construction ---------------------
|
|
|
|
|
|
local function txt_cmdline_kany_cb(txt_cmdLine, c)
|
|
if c == iup.K_CR then
|
|
iup.ConsoleEnterCommand()
|
|
return IUP_IGNORE
|
|
elseif c == iup.K_ESC then
|
|
txt_cmdLine.value = ""
|
|
return IUP_IGNORE
|
|
elseif c == iup.K_UP then
|
|
iup.ConsoleKeyUpCommand()
|
|
return IUP_IGNORE
|
|
elseif c == iup.K_DOWN then
|
|
iup.ConsoleKeyDownCommand()
|
|
return IUP_IGNORE
|
|
end
|
|
return IUP_CONTINUE
|
|
end
|
|
|
|
local function btn_tools_action_cb(btn_tools)
|
|
local item_listfuncs = iup.item{
|
|
title = "List Global Functions",
|
|
action = iup.ConsoleListFuncs,
|
|
}
|
|
|
|
local item_listvars = iup.item{
|
|
title = "List Global Variables",
|
|
action = iup.ConsoleListVars,
|
|
}
|
|
|
|
local item_printstack = iup.item{
|
|
title = "Print Stack",
|
|
action = iup.ConsolePrintStack,
|
|
}
|
|
|
|
local item_clear = iup.item{
|
|
title = "Clear Output",
|
|
action = function() console.mtlOutput.value = "" end
|
|
}
|
|
|
|
local tools_menu = iup.menu{
|
|
item_listfuncs,
|
|
item_listvars,
|
|
item_printstack,
|
|
iup.separator{},
|
|
item_clear,
|
|
}
|
|
|
|
local x = btn_tools.x
|
|
local y = btn_tools.y
|
|
local elem_width, elem_height = string.match(btn_tools.rastersize, "(%d*)x(%d*)")
|
|
y = tonumber(y) + tonumber(elem_height)
|
|
|
|
iup.Popup(tools_menu, x, y)
|
|
|
|
iup.Destroy(tools_menu)
|
|
end
|
|
|
|
function iup.ConsoleCreate(parent)
|
|
local txt_cmdLine = iup.text{
|
|
expand = "HORIZONTAL",
|
|
k_any = txt_cmdline_kany_cb,
|
|
}
|
|
|
|
local mtl_output = iup.multiline{
|
|
expand = "YES",
|
|
readonly = "YES",
|
|
bgcolor = "224 224 2254",
|
|
}
|
|
|
|
local btn_tools = iup.button{
|
|
action = btn_tools_action_cb,
|
|
image = "IUP_ToolsSettings",
|
|
flat = "Yes",
|
|
tip = "Console Tools",
|
|
canfocus = "No",
|
|
}
|
|
|
|
local console_bts = iup.hbox{
|
|
txt_cmdLine,
|
|
btn_tools;
|
|
margin = "5x5",
|
|
gap = "5",
|
|
alignment = "ACENTER",
|
|
}
|
|
|
|
local frm_consolebts = iup.frame{
|
|
console_bts;
|
|
title = "Command Line:",
|
|
}
|
|
|
|
local console_box = iup.vbox{
|
|
frm_consolebts,
|
|
mtl_output;
|
|
margin = "5x5",
|
|
gap = "5",
|
|
tabtitle = "Console",
|
|
}
|
|
|
|
iup.Append(parent, console_box)
|
|
|
|
iup.ConsoleInit(txt_cmdLine, mtl_output)
|
|
end
|
|
|
|
function iup.ConsoleInit(txt_cmdLine, mtl_output)
|
|
console.txtCmdLine = txt_cmdLine
|
|
console.mtlOutput = mtl_output
|
|
|
|
console.mtlOutput.value = _COPYRIGHT .. "\n" ..
|
|
"IUP " .. iup._VERSION .. " " .. iup._COPYRIGHT
|
|
end
|