![Luis Ontanon](/assets/img/avatar_default.png)
- try to avoid a warning in wslua_gui.c - make-doc.pl --> docbook (still broken I guess) svn path=/trunk/; revision=19593
93 lines
2.6 KiB
Lua
93 lines
2.6 KiB
Lua
-- console
|
|
-- A console and a window to execute commands in lua
|
|
--
|
|
-- (c) 2006 Luis E. Garcia Ontanon <luis.ontanon@gmail.com>
|
|
--
|
|
-- $Id$
|
|
--
|
|
-- Wireshark - Network traffic analyzer
|
|
-- By Gerald Combs <gerald@wireshark.org>
|
|
-- Copyright 1998 Gerald Combs
|
|
--
|
|
-- This program is free software; you can redistribute it and/or
|
|
-- modify it under the terms of the GNU General Public License
|
|
-- as published by the Free Software Foundation; either version 2
|
|
-- of the License, or (at your option) any later version.
|
|
--
|
|
-- This program is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU General Public License for more details.
|
|
--
|
|
-- You should have received a copy of the GNU General Public License
|
|
-- along with this program; if not, write to the Free Software
|
|
-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
|
|
if (gui_enabled()) then
|
|
local function evaluate_lua()
|
|
local w = TextWindow.new("Evaluate Lua")
|
|
w:set_editable()
|
|
|
|
function eval()
|
|
local text = string.gsub(w:get_text(),"%c*--%[%[.*--%]%]$","")
|
|
text = string.gsub(text,"^=","return ")
|
|
|
|
local result = assert(loadstring(text))()
|
|
|
|
if (result ~= nil) then
|
|
w:set(text .. '\n\n--[[ Result:\n' .. result .. '\n--]]')
|
|
else
|
|
w:set(text .. '\n\n--[[ Evaluated --]]')
|
|
end
|
|
end
|
|
|
|
w:add_button("Evaluate",eval)
|
|
end
|
|
|
|
local console_open = false
|
|
|
|
local date = rawget(os,"date") -- use rawget to avoid disabled's os.__index
|
|
|
|
if type(date) ~= "function" then
|
|
-- 'os' has been disabled use a dummy function for date
|
|
date = function() return "" end
|
|
end
|
|
|
|
local function run_console()
|
|
if console_open then return end
|
|
console_open = true
|
|
|
|
local w = TextWindow.new("Console")
|
|
|
|
local orig = {
|
|
critical = critical,
|
|
warn = warn,
|
|
message = message,
|
|
info = info,
|
|
debug = debug
|
|
}
|
|
|
|
function critical(x) w:append( date() .. " CRITICAL: " .. tostring(x) .. "\n") end
|
|
function warn(x) w:append( date() .. " WARN: " .. tostring(x) .. "\n") end
|
|
function message(x) w:append( date() .. " MESSAGE: " .. tostring(x) .. "\n") end
|
|
function info(x) w:append( date() .. " INFO: " .. tostring(x) .. "\n") end
|
|
function debug(x) w:append( date() .. " DEBUG: " .. tostring(x) .. "\n") end
|
|
|
|
function at_close()
|
|
critical = orig.critical
|
|
warn = orig.warn
|
|
message = orig.message
|
|
info = orig.info
|
|
debug = orig.debug
|
|
|
|
console_open = false
|
|
end
|
|
|
|
w:set_atclose(at_close)
|
|
info("Console opened")
|
|
end
|
|
|
|
register_menu("Lua/Evaluate",evaluate_lua,MENU_TOOLS)
|
|
register_menu("Lua/Console",run_console,MENU_TOOLS)
|
|
end |