aboutsummaryrefslogtreecommitdiffstats
path: root/lib/debugger/src/dbg_wx_trace.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/debugger/src/dbg_wx_trace.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/debugger/src/dbg_wx_trace.erl')
-rw-r--r--lib/debugger/src/dbg_wx_trace.erl839
1 files changed, 839 insertions, 0 deletions
diff --git a/lib/debugger/src/dbg_wx_trace.erl b/lib/debugger/src/dbg_wx_trace.erl
new file mode 100644
index 0000000000..f9fdf593c4
--- /dev/null
+++ b/lib/debugger/src/dbg_wx_trace.erl
@@ -0,0 +1,839 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
+%%
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+%%
+-module(dbg_wx_trace).
+
+%% External exports
+-export([start/1, start/3]).
+-export([title/1]).
+
+-define(TRACEWIN, ['Button Area', 'Evaluator Area', 'Bindings Area']).
+-define(BACKTRACE, 100).
+
+-record(state, {win, % term() Attach process window data
+ coords, % {X,Y} Mouse point position
+
+ pid, % pid() Debugged process
+ meta, % pid() Meta process
+ status, % {Status,Mod,Line} � {exit,Where,Reason}
+ % Status = init � idle | break
+ % | wait_break � wait_running
+ % � running
+ % Where={Mod,Line} | null
+
+ cm, % atom() | undefined Current module
+ cm_obsolete=false, % boolean() Curr mod needs reloading
+
+ stack, % {Cur,Max}
+
+ trace, % boolean()
+ stack_trace, % all | no_tail | false
+ backtrace % integer() #call frames to fetch
+ }).
+
+%%====================================================================
+%% External exports
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% start(Pid)
+%% start(Parent, Pid, TraceWin, BackTrace)
+%% Parent = #wxObj{}
+%% Pid = pid()
+%% TraceWin = [WinArea]
+%% WinArea = 'Button|Evaluator|Bindings|Trace Area'
+%% Backtrace = integer()
+%%--------------------------------------------------------------------
+start(Pid) -> % Used by debugger:quick/3 (no monitor)
+ start(Pid, ?TRACEWIN, ?BACKTRACE).
+start(Pid, TraceWin, BackTrace) ->
+ case {whereis(dbg_wx_mon), whereis(dbg_ui_mon)} of
+ {undefined, undefined} ->
+ case which_gui() of
+ gs ->
+ dbg_ui_trace:start(Pid, TraceWin, BackTrace);
+ wx ->
+ Parent = wx:new(),
+ Env = wx:get_env(),
+ start(Pid, Env, Parent, TraceWin, BackTrace)
+ end;
+ {undefined, Monitor} when is_pid(Monitor) ->
+ dbg_ui_trace:start(Pid, TraceWin, BackTrace);
+ {Monitor, _} when is_pid(Monitor) ->
+ Monitor ! {?MODULE, self(), get_env},
+ receive
+ {env, Monitor, Env, Parent} ->
+ start(Pid, Env, Parent, TraceWin, BackTrace)
+ end
+ end.
+
+start(Pid, Env, Parent, TraceWin, BackTrace) ->
+ %% Inform int about my existence and get the meta pid back
+ case int:attached(Pid) of
+ {ok, Meta} ->
+ try
+ wx:set_env(Env),
+ init(Pid, Parent, Meta, TraceWin, BackTrace)
+ catch
+ _:stop ->
+ exit(stop);
+ E:R ->
+ io:format("TraceWin Crashed ~p~n",[E]),
+ io:format(" ~p in ~p~n",[R, erlang:get_stacktrace()]),
+ exit(R)
+ end;
+ error ->
+ ignore
+ end.
+
+which_gui() ->
+ try
+ wx:new(),
+ wx:destroy(),
+ wx
+ catch _:_ ->
+ gs
+ end.
+
+%%--------------------------------------------------------------------
+%% title(Pid) -> string()
+%% By exporting this function, dbg_wx_mon may check with dbg_wx_winman
+%% if there already is an attach window for a given pid and thus avoid
+%% spawning processes unnecessarily.
+%%--------------------------------------------------------------------
+title(Pid) ->
+ "Attach Process " ++ pid_to_list(Pid).
+
+
+%%====================================================================
+%% Main loop and message handling
+%%====================================================================
+
+init(Pid, Parent, Meta, TraceWin, BackTrace) ->
+
+ %% Start necessary stuff
+ dbg_wx_trace_win:init(), % Graphics system
+
+ %% Create attach process window
+ Title = title(Pid),
+ Win = dbg_wx_trace_win:create_win(Parent, Title, TraceWin, menus()),
+ Window = dbg_wx_trace_win:get_window(Win),
+ dbg_wx_winman:insert(Title, Window),
+
+ %% Initial process state
+ State1 = #state{win=Win, coords={0,0}, pid=Pid, meta=Meta,
+ status={idle,null,null},
+ stack={1,1}},
+
+ State2 = init_options(TraceWin,
+ int:stack_trace(), % Stack Trace
+ BackTrace, % Back trace size
+ State1),
+
+ State3 = init_contents(int:all_breaks(), % Breakpoints
+ State2),
+
+ int:meta(Meta, trace, State3#state.trace),
+
+ gui_enable_updown(stack_trace, {1,1}),
+ gui_enable_btrace(false, false),
+ dbg_wx_trace_win:display(Win,idle),
+
+ loop(State3).
+
+init_options(TraceWin, StackTrace, BackTrace, State) ->
+ lists:foreach(fun(Area) -> dbg_wx_trace_win:select(Area, true) end,
+ TraceWin),
+
+ Trace = lists:member('Trace Area', TraceWin),
+
+ dbg_wx_trace_win:select(map(StackTrace), true),
+
+ %% Backtrace size is (currently) not shown in window
+
+ State#state{trace=Trace,stack_trace=StackTrace,backtrace=BackTrace}.
+
+init_contents(Breaks, State) ->
+ Win =
+ lists:foldl(fun(Break, Win) ->
+ dbg_wx_trace_win:add_break(Win,'Break',Break)
+ end,
+ State#state.win,
+ Breaks),
+
+ State#state{win=Win}.
+
+loop(#state{meta=Meta} = State) ->
+ receive
+ %% From the GUI main window
+ GuiEvent when element(1, GuiEvent)==wx ->
+ Cmd = wx:batch(fun() ->
+ dbg_wx_trace_win:handle_event(GuiEvent,State#state.win)
+ end),
+ State2 = gui_cmd(Cmd, State),
+ loop(State2);
+
+ %% From the GUI help windows
+ {gui, Cmd} ->
+ State2 = gui_cmd(Cmd, State),
+ loop(State2);
+
+ %% From the interpreter
+ {int, Cmd} ->
+ State2 = int_cmd(Cmd, State),
+ loop(State2);
+
+ %% From the meta process
+ {Meta, Cmd} ->
+ State2 = meta_cmd(Cmd, State),
+ loop(State2);
+ {NewMeta, {exit_at, Where, Reason, Cur}} ->
+ State2 = meta_cmd({exit_at, Where, Reason, Cur},
+ State#state{meta=NewMeta}),
+ loop(State2);
+
+ %% From the dbg_wx_winman process (Debugger window manager)
+ {dbg_ui_winman, update_windows_menu, Data} ->
+ Window = dbg_wx_trace_win:get_window(State#state.win),
+ dbg_wx_winman:update_windows_menu(Window,Data),
+ loop(State);
+ {dbg_ui_winman, destroy} ->
+ dbg_wx_trace_win:stop(State#state.win),
+ exit(stop)
+ end.
+
+%%--Commands from the GUI---------------------------------------------
+
+gui_cmd(ignore, State) ->
+ State;
+gui_cmd({win, Win}, State) ->
+ State#state{win=Win};
+gui_cmd(stopped, State) ->
+ dbg_wx_trace_win:stop(State#state.win),
+ exit(stop);
+gui_cmd({coords, Coords}, State) ->
+ State#state{coords=Coords};
+
+gui_cmd({shortcut, Key}, State) ->
+ case shortcut(Key) of
+ {always, Cmd} -> gui_cmd(Cmd, State);
+ {if_enabled, Cmd} ->
+ case dbg_wx_trace_win:is_enabled(Cmd) of
+ true -> gui_cmd(Cmd, State);
+ false -> State
+ end;
+ false -> State
+ end;
+
+%% File menu
+gui_cmd('Close', State) ->
+ gui_cmd(stopped, State);
+
+%% Edit menu
+gui_cmd('Go To Line', State) ->
+ %% Will result in message handled below: {gui, {gotoline, Line}}
+ Win = dbg_wx_trace_win:helpwin(gotoline, State#state.win),
+ State#state{win=Win};
+gui_cmd('Search', State) ->
+ Win = dbg_wx_trace_win:helpwin(search, State#state.win),
+ State#state{win=Win};
+gui_cmd({gotoline, Line}, State) ->
+ Win = dbg_wx_trace_win:select_line(State#state.win, Line),
+ State#state{win=Win};
+
+%% Process menu
+gui_cmd('Step', State) ->
+ int:meta(State#state.meta, step),
+ State;
+gui_cmd('Next', State) ->
+ int:meta(State#state.meta, next),
+ State;
+gui_cmd('Continue', State) ->
+ int:meta(State#state.meta, continue),
+ {Status, Mod, Line} = State#state.status,
+ if
+ Status==wait_break ->
+ Win = dbg_wx_trace_win:unmark_line(State#state.win),
+ gui_enable_functions(wait_running),
+ State#state{win=Win, status={wait_running,Mod,Line}};
+ true ->
+ dbg_wx_trace_win:enable(['Stop'], true),
+ dbg_wx_trace_win:enable(['Continue'], false),
+ State
+ end;
+gui_cmd('Finish', State) ->
+ int:meta(State#state.meta, finish),
+ State;
+gui_cmd('Skip', State) ->
+ int:meta(State#state.meta, skip),
+ State;
+gui_cmd('Time Out', State) ->
+ int:meta(State#state.meta, timeout),
+ State;
+gui_cmd('Stop', State) ->
+ int:meta(State#state.meta, stop),
+ {Status, Mod, Line} = State#state.status,
+ if
+ Status==wait_running ->
+ Win = dbg_wx_trace_win:mark_line(State#state.win, Line,
+ break),
+ gui_enable_functions(wait_break),
+ gui_enable_updown(State#state.stack_trace,
+ State#state.stack),
+ gui_enable_btrace(State#state.trace,
+ State#state.stack_trace),
+ dbg_wx_trace_win:display(State#state.win,{wait, Mod, Line}),
+ State#state{win=Win, status={wait_break,Mod,Line}};
+ true ->
+ dbg_wx_trace_win:enable(['Stop'], false),
+ dbg_wx_trace_win:enable(['Continue'], true),
+ State
+ end;
+gui_cmd('Where', State) ->
+ {_Cur, Max} = State#state.stack,
+ Stack = {Max, Max},
+ {_Status, Mod, Line} = State#state.status,
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid, break),
+ gui_update_bindings(State#state.win, State#state.meta),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ dbg_wx_trace_win:display(State#state.win,State#state.status),
+ State#state{win=Win, cm=Mod, stack=Stack};
+
+gui_cmd('Kill', State) ->
+ exit(State#state.pid, kill),
+ State;
+gui_cmd('Messages', State) ->
+ case int:meta(State#state.meta, messages) of
+ [] ->
+ dbg_wx_trace_win:eval_output(State#state.win,"< No Messages!\n", bold);
+ Messages ->
+ dbg_wx_trace_win:eval_output(State#state.win,"< --- Current Messages ---\n",
+ bold),
+ lists:foldl(
+ fun(Msg, N) ->
+ Str1 = io_lib:format(" ~w:", [N]),
+ dbg_wx_trace_win:eval_output(State#state.win,Str1, bold),
+ Str2 = io_lib:format(" ~s~n",[io_lib:print(Msg)]),
+ dbg_wx_trace_win:eval_output(State#state.win,Str2, normal),
+ N+1
+ end,
+ 1,
+ Messages)
+ end,
+ State;
+gui_cmd('Back Trace', State) ->
+ dbg_wx_trace_win:trace_output(State#state.win,"\nBACK TRACE\n----------\n"),
+ lists:foreach(
+ fun({Le, {Mod,Func,Args}}) ->
+ Str = io_lib:format("~p > ~p:~p~p~n",
+ [Le, Mod, Func, Args]),
+ dbg_wx_trace_win:trace_output(State#state.win,Str);
+ ({Le, {Fun,Args}}) ->
+ Str = io_lib:format("~p > ~p~p~n", [Le, Fun, Args]),
+ dbg_wx_trace_win:trace_output(State#state.win,Str);
+ (_) -> ignore
+ end,
+ int:meta(State#state.meta, backtrace, State#state.backtrace)),
+ dbg_wx_trace_win:trace_output(State#state.win,"\n"),
+ State;
+gui_cmd('Up', State) ->
+ {Cur, Max} = State#state.stack,
+ case int:meta(State#state.meta, stack_frame, {up, Cur}) of
+ {New, {undefined,-1}, _Bs} -> % call from non-interpreted code
+ Stack = {New, Max},
+ Win = dbg_wx_trace_win:show_no_code(State#state.win),
+ dbg_wx_trace_win:update_bindings(State#state.win,[]),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ dbg_wx_trace_win:display(State#state.win,{New,null,null}),
+ State#state{win=Win, cm=null, stack=Stack};
+
+ {New, {Mod,Line}, Bs} ->
+ Stack = {New, Max},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid,
+ where),
+ dbg_wx_trace_win:update_bindings(State#state.win,Bs),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ dbg_wx_trace_win:display(State#state.win,{New,Mod,Line}),
+ State#state{win=Win, cm=Mod, stack=Stack};
+ top ->
+ dbg_wx_trace_win:enable(['Up'], false),
+ State
+ end;
+gui_cmd('Down', State) ->
+ {Cur, Max} = State#state.stack,
+ case int:meta(State#state.meta, stack_frame, {down, Cur}) of
+ {New, {undefined,-1}, _Bs} -> % call from non-interpreted code
+ Stack = {New, Max},
+ Win = dbg_wx_trace_win:show_no_code(State#state.win),
+ dbg_wx_trace_win:update_bindings(State#state.win, []),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ dbg_wx_trace_win:display(State#state.win, {New,null,null}),
+ State#state{win=Win, cm=null, stack=Stack};
+
+ {New, {Mod,Line}, Bs} ->
+ Stack = {New, Max},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid,
+ where),
+ dbg_wx_trace_win:update_bindings(State#state.win, Bs),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ dbg_wx_trace_win:display(State#state.win, {New,Mod,Line}),
+ State#state{win=Win, cm=Mod, stack=Stack};
+
+ bottom ->
+ gui_cmd('Where', State)
+ end;
+
+%% Break menu
+gui_cmd('Line Break...', State) ->
+ add_break(State#state.win, State#state.coords, line,
+ State#state.cm,
+ dbg_wx_trace_win:selected_line(State#state.win)),
+ State;
+gui_cmd('Conditional Break...', State) ->
+ add_break(State#state.win, State#state.coords, conditional,
+ State#state.cm,
+ dbg_wx_trace_win:selected_line(State#state.win)),
+ State;
+gui_cmd('Function Break...', State) ->
+ add_break(State#state.win, State#state.coords, function,
+ State#state.cm, undefined),
+ State;
+gui_cmd('Enable All', State) ->
+ Breaks = int:all_breaks(),
+ ThisMod = State#state.cm,
+ lists:foreach(fun ({{Mod, Line}, _Options}) when Mod==ThisMod ->
+ int:enable_break(Mod, Line);
+ (_Break) ->
+ ignore
+ end,
+ Breaks),
+ State;
+gui_cmd('Disable All', State) ->
+ Breaks = int:all_breaks(),
+ ThisMod = State#state.cm,
+ lists:foreach(fun ({{Mod, Line}, _Options}) when Mod==ThisMod ->
+ int:disable_break(Mod, Line);
+ (_Break) ->
+ ignore
+ end,
+ Breaks),
+ State;
+gui_cmd('Delete All', State) ->
+ int:no_break(State#state.cm),
+ State;
+gui_cmd({break, {Mod, Line}, What}, State) ->
+ case What of
+ add -> int:break(Mod, Line);
+ delete -> int:delete_break(Mod, Line);
+ {status, inactive} -> int:disable_break(Mod, Line);
+ {status, active} -> int:enable_break(Mod, Line);
+ {trigger, Action} -> int:action_at_break(Mod, Line, Action)
+ end,
+ State;
+
+%% Options menu
+gui_cmd({'Trace Window', TraceWin}, State) ->
+ Trace = lists:member('Trace Area', TraceWin),
+ int:meta(State#state.meta, trace, Trace),
+ Win = dbg_wx_trace_win:configure(State#state.win, TraceWin),
+ {Status,_,_} = State#state.status,
+ if
+ Status==break; Status==wait_break ->
+ gui_enable_btrace(Trace, State#state.stack_trace);
+ true -> ignore
+ end,
+ State#state{win=Win, trace=Trace};
+gui_cmd({'Stack Trace', [Name]}, State) ->
+ int:meta(State#state.meta, stack_trace, map(Name)),
+ {Status,_,_} = State#state.status,
+ if
+ Status==break; Status==wait_break ->
+ gui_enable_btrace(State#state.trace, map(Name));
+ true -> ignore
+ end,
+ State;
+gui_cmd('Back Trace Size...', State) ->
+ Win = dbg_wx_trace_win:get_window(State#state.win),
+ case dbg_wx_win:entry(Win, "Backtrace",'Backtrace:', {integer, State#state.backtrace}) of
+ cancel -> State;
+ {_, BackTrace} -> State#state{backtrace=BackTrace}
+ end;
+
+%% Help menu
+gui_cmd('Debugger', State) ->
+ Window = dbg_wx_trace_win:get_window(State#state.win),
+ HelpFile = filename:join([code:lib_dir(debugger),
+ "doc", "html", "part_frame.html"]),
+ dbg_wx_win:open_help(Window, HelpFile),
+ State;
+
+gui_cmd({user_command, Cmd}, State) ->
+ {Status, _Mod, _Line} = State#state.status,
+ if
+ Status==break;
+ Status==wait_break;
+ Status==wait_running ->
+ Cm = State#state.cm,
+ Arg = case State#state.stack of
+ {Cur, Max} when Cur<Max -> {Cm, Cmd, Cur};
+ _Stack -> {Cm, Cmd}
+ end,
+
+ %% Reply will be received as {Meta, {eval_rsp, Res}}
+ int:meta(State#state.meta, eval, Arg);
+ true ->
+ Str = "Commands not allowed",
+ dbg_wx_trace_win:eval_output(State#state.win, [$<,Str,10], normal)
+ end,
+ State;
+
+gui_cmd({edit, {Var, Val}}, State) ->
+ Window = dbg_wx_trace_win:get_window(State#state.win),
+ case dbg_wx_win:entry(Window, "Edit variable", Var, {term, Val}) of
+ cancel ->
+ State;
+ {Var, Term} ->
+ Cmd = atom_to_list(Var)++"="++io_lib:format("~p", [Term]),
+ gui_cmd({user_command, lists:flatten(Cmd)}, State)
+ end.
+
+add_break(WI, Coords, Type, undefined, _Line) ->
+ Win = dbg_wx_trace_win:get_window(WI),
+ dbg_wx_break:start(Win, Coords, Type);
+add_break(WI, Coords, Type, Mod, undefined) ->
+ Win = dbg_wx_trace_win:get_window(WI),
+ dbg_wx_break:start(Win, Coords, Type, Mod);
+add_break(WI, Coords, Type, Mod, Line) ->
+ Win = dbg_wx_trace_win:get_window(WI),
+ dbg_wx_break:start(Win, Coords, Type, Mod, Line).
+
+%%--Commands from the interpreter-------------------------------------
+
+int_cmd({interpret, Mod}, State) ->
+ if
+ Mod==State#state.cm ->
+ State#state{cm_obsolete=true};
+ true ->
+ State
+ end;
+int_cmd({no_interpret, Mod}, State) ->
+ if
+ Mod==State#state.cm ->
+ State#state{cm_obsolete=true};
+ true ->
+ Win = dbg_wx_trace_win:remove_code(State#state.win, Mod),
+ State#state{win=Win}
+ end;
+
+int_cmd({new_break, Break}, State) ->
+ Win = dbg_wx_trace_win:add_break(State#state.win, 'Break', Break),
+ State#state{win=Win};
+int_cmd({delete_break, Point}, State) ->
+ Win = dbg_wx_trace_win:delete_break(State#state.win, Point),
+ State#state{win=Win};
+int_cmd({break_options, Break}, State) ->
+ Win = dbg_wx_trace_win:update_break(State#state.win, Break),
+ State#state{win=Win};
+int_cmd(no_break, State) ->
+ Win = dbg_wx_trace_win:clear_breaks(State#state.win),
+ State#state{win=Win};
+int_cmd({no_break, Mod}, State) ->
+ Win = dbg_wx_trace_win:clear_breaks(State#state.win, Mod),
+ State#state{win=Win}.
+
+%%--Commands from the meta process------------------------------------
+
+%% Message received when first attached to a living process
+%% '_Trace' is a boolean indicating if the process is traced or not --
+%% ignore this as we already have ordered tracing or not depending on if
+%% the Trace Area is shown or not.
+meta_cmd({attached, Mod, Line, _Trace}, State) ->
+ Win = if
+ Mod/=undefined ->
+ gui_enable_functions(init),
+ gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid,
+ break);
+ true -> State#state.win
+ end,
+ State#state{win=Win, status={init,Mod,Line}, cm=Mod};
+
+%% Message received when returning to interpreted code
+meta_cmd({re_entry, dbg_ieval, eval_fun}, State) ->
+ State;
+meta_cmd({re_entry, Mod, _Func}, State) ->
+ Obs = State#state.cm_obsolete,
+ case State#state.cm of
+ Mod when Obs==true ->
+ Win = gui_load_module(State#state.win, Mod,State#state.pid),
+ State#state{win=Win, cm_obsolete=false};
+ Mod -> State;
+ Cm ->
+ Win = gui_show_module(State#state.win, Mod, 0,
+ Cm, State#state.pid, break),
+ State#state{win=Win, cm=Mod}
+ end;
+
+%% Message received when attached to a terminated process
+meta_cmd({exit_at, null, Reason, Cur}, State) ->
+ Stack = {Cur, Cur},
+ gui_enable_functions(exit),
+ gui_enable_updown(false, Stack),
+ dbg_wx_trace_win:display(State#state.win, {exit, null, Reason}),
+ State#state{status={exit,null,Reason}, stack=Stack};
+meta_cmd({exit_at, {Mod,Line}, Reason, Cur}, State) ->
+ Stack = {Cur+1, Cur+1},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid, break),
+ gui_enable_functions(exit),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ gui_enable_btrace(State#state.trace, State#state.stack_trace),
+ gui_update_bindings(State#state.win, State#state.meta),
+ dbg_wx_trace_win:display(State#state.win, {exit, {Mod,Line}, Reason}),
+ State#state{win=Win, cm=Mod,status={exit,{Mod,Line},Reason},
+ stack=Stack};
+
+meta_cmd({break_at, Mod, Line, Cur}, State) ->
+ Stack = {Cur,Cur},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid, break),
+ gui_enable_functions(break),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ gui_enable_btrace(State#state.trace, State#state.stack_trace),
+ gui_update_bindings(State#state.win, State#state.meta),
+ dbg_wx_trace_win:display(State#state.win, {break, Mod, Line}),
+ State#state{win=Win, cm=Mod, status={break,Mod,Line}, stack=Stack};
+meta_cmd({func_at, Mod, Line, Cur}, State) ->
+ Stack = {Cur,Cur},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid, where),
+ gui_enable_functions(idle),
+ dbg_wx_trace_win:display(State#state.win, idle),
+ State#state{win=Win, cm=Mod, status={idle,Mod,Line}, stack=Stack};
+meta_cmd({wait_at, Mod, Line, Cur}, #state{status={Status,_,_}}=State)
+ when Status/=init, Status/=break ->
+ Stack = {Cur,Cur},
+ gui_enable_functions(wait_running),
+ dbg_wx_trace_win:display(State#state.win, {wait,Mod,Line}),
+ State#state{status={wait_running,Mod,Line}, stack=Stack};
+meta_cmd({wait_at, Mod, Line, Cur}, State) ->
+ Stack = {Cur,Cur},
+ Win = gui_show_module(State#state.win, Mod, Line,
+ State#state.cm, State#state.pid, break),
+ gui_enable_functions(wait_break),
+ gui_enable_updown(State#state.stack_trace, Stack),
+ gui_enable_btrace(State#state.trace, State#state.stack_trace),
+ gui_update_bindings(State#state.win, State#state.meta),
+ dbg_wx_trace_win:display(State#state.win, {wait, Mod, Line}),
+ State#state{win=Win, cm=Mod, status={wait_break,Mod,Line},
+ stack=Stack};
+meta_cmd({wait_after_at, Mod, Line, Sp}, State) ->
+ meta_cmd({wait_at, Mod, Line, Sp}, State);
+meta_cmd(running, State) ->
+ Win = dbg_wx_trace_win:unmark_line(State#state.win),
+ gui_enable_functions(running),
+ dbg_wx_trace_win:update_bindings(State#state.win, []),
+ dbg_wx_trace_win:display(State#state.win, {running, State#state.cm}),
+ State#state{win=Win, status={running,null,null}};
+
+meta_cmd(idle, State) ->
+ Win = dbg_wx_trace_win:show_no_code(State#state.win),
+ gui_enable_functions(idle),
+ dbg_wx_trace_win:update_bindings(State#state.win, []),
+ dbg_wx_trace_win:display(State#state.win, idle),
+ State#state{win=Win, status={idle,null,null}, cm=undefined};
+
+%% Message about changed trace option can be ignored, the change must
+%% have been ordered by this process. (In theory, the change could have
+%% been ordered by another attached process. The Debugger, though,
+%% allows max one attached process per debugged process).
+meta_cmd({trace, _Bool}, State) ->
+ State;
+
+meta_cmd({stack_trace, Flag}, State) ->
+ dbg_wx_trace_win:select(map(Flag), true),
+ gui_enable_updown(Flag, State#state.stack),
+ {Status,_,_} = State#state.status,
+ if
+ Status==break; Status==wait_break ->
+ gui_enable_btrace(State#state.trace, Flag);
+ true -> ignore
+ end,
+ State#state{stack_trace=Flag};
+
+meta_cmd({trace_output, Str}, State) ->
+ dbg_wx_trace_win:trace_output(State#state.win, Str),
+ State;
+
+%% Reply on a user command
+meta_cmd({eval_rsp, Res}, State) ->
+ Str = io_lib:print(Res),
+ dbg_wx_trace_win:eval_output(State#state.win, [$<,Str,10], normal),
+ State.
+
+
+%%====================================================================
+%% GUI auxiliary functions
+%%====================================================================
+
+menus() ->
+ [{'File', [{'Close', no}]},
+ {'Edit', [{'Go To Line', 0},
+ {'Search', 1}]},
+ {'Process', [{'Step', 0},
+ {'Next', 0},
+ {'Continue', 0},
+ {'Finish', 0},
+ {'Skip', no},
+ {'Time Out', no},
+ {'Stop', no},
+ separator,
+ {'Kill', no},
+ separator,
+ {'Messages', 0},
+ {'Back Trace', no},
+ separator,
+ {'Where', 0},
+ {'Up', no},
+ {'Down', no}]},
+ {'Break', [{'Line Break...', 5},
+ {'Conditional Break...', no},
+ {'Function Break...', no},
+ separator,
+ {'Enable All', no},
+ {'Disable All', no},
+ {'Delete All', 0},
+ separator]},
+ {'Options', [{'Trace Window', no, cascade,
+ [{'Search Area', no, check},
+ {'Button Area', no, check},
+ {'Evaluator Area', no, check},
+ {'Bindings Area', no, check},
+ {'Trace Area', no, check}]},
+ {'Stack Trace', no, cascade,
+ [{'Stack On, Tail', no, radio},
+ {'Stack On, No Tail', no, radio},
+ {'Stack Off', no, radio}]},
+ {'Back Trace Size...', no}]},
+ {'Windows', []},
+ {'Help', [{'Debugger', no}]}].
+
+%% enable(Status) -> [MenuItem]
+%% Status = init % when first message from Meta has arrived
+%% | idle | break | exit | wait_break � wait_running | running
+enable(init) -> [];
+enable(idle) -> ['Stop','Kill'];
+enable(break) -> ['Step','Next','Continue','Finish','Skip',
+ 'Kill','Messages'];
+enable(exit) -> [];
+enable(wait_break) -> ['Continue','Time Out','Kill'];
+enable(wait_running) -> ['Stop','Kill'];
+enable(running) -> ['Stop','Kill'].
+
+all_buttons() ->
+ ['Step','Next','Continue','Finish','Skip','Time Out','Stop',
+ 'Kill','Messages','Back Trace','Where','Up','Down'].
+
+shortcut(e) -> {if_enabled, 'Search'};
+shortcut(g) -> {if_enabled, 'Go To Line'};
+shortcut(s) -> {if_enabled, 'Step'};
+shortcut(n) -> {if_enabled, 'Next'};
+shortcut(c) -> {if_enabled, 'Continue'};
+shortcut(f) -> {if_enabled, 'Finish'};
+shortcut(m) -> {if_enabled, 'Messages'};
+shortcut(w) -> {if_enabled, 'Where'};
+
+shortcut(b) -> {always, 'Line Break...'};
+shortcut(d) -> {always, 'Delete All'};
+
+shortcut(_) -> false.
+
+map('Stack On, Tail') -> all; % Stack trace
+map('Stack On, No Tail') -> no_tail;
+map('Stack Off') -> false;
+map(all) -> 'Stack On, Tail';
+map(true) -> 'Stack On, Tail';
+map(no_tail) -> 'Stack On, No Tail';
+map(false) -> 'Stack Off'.
+
+
+%% gui_show_module(Win, Mod, Line, Cm, Pid, How) -> Win
+%% gui_show_module(Win, {Mod,Line}, _Reason, Cm, Pid, How) -> Win
+%% How = where | break
+%% Show contents of a module in code area
+gui_show_module(Win, {Mod,Line}, _Reason, Cm, Pid, How) ->
+ gui_show_module(Win, Mod, Line, Cm, Pid, How);
+gui_show_module(Win, Mod, Line, Mod, _Pid, How) ->
+ dbg_wx_trace_win:mark_line(Win, Line, How);
+gui_show_module(Win, Mod, Line, _Cm, Pid, How) ->
+ Win2 = case dbg_wx_trace_win:is_shown(Win, Mod) of
+ {true, Win3} -> Win3;
+ false -> gui_load_module(Win, Mod, Pid)
+ end,
+ dbg_wx_trace_win:mark_line(Win2, Line, How).
+
+gui_load_module(Win, Mod, _Pid) ->
+ dbg_wx_trace_win:display(Win,{text, "Loading module..."}),
+ %% Contents = int:contents(Mod, Pid),
+ {ok, Contents} = dbg_iserver:call({raw_contents, Mod, any}),
+ Win2 = dbg_wx_trace_win:show_code(Win, Mod, Contents),
+ dbg_wx_trace_win:display(Win,{text, ""}),
+ Win2.
+
+gui_update_bindings(Win,Meta) ->
+ Bs = int:meta(Meta, bindings, nostack),
+ dbg_wx_trace_win:update_bindings(Win,Bs).
+
+gui_enable_functions(Status) ->
+ Enable = enable(Status),
+ Disable = all_buttons() -- Enable,
+ dbg_wx_trace_win:enable(Disable, false),
+ dbg_wx_trace_win:enable(Enable, true).
+
+gui_enable_updown(Flag, Stack) ->
+ {Enable, Disable} =
+ if
+ Flag==false -> {[], ['Up', 'Down']};
+ true ->
+ case Stack of
+ {1,1} -> {[], ['Up', 'Down']};
+ {2,2} -> {[], ['Up', 'Down']};
+ {Max,Max} -> {['Up'], ['Down']};
+ {2,_Max} -> {['Down'], ['Up']};
+ {_Cur,_Max} -> {['Up', 'Down'], []}
+ end
+ end,
+ dbg_wx_trace_win:enable(Enable, true),
+ dbg_wx_trace_win:enable(Disable, false),
+ if
+ Enable==[] -> dbg_wx_trace_win:enable(['Where'], false);
+ true -> dbg_wx_trace_win:enable(['Where'], true)
+ end.
+
+gui_enable_btrace(Trace, StackTrace) ->
+ Bool = if
+ Trace==false -> false;
+ StackTrace==false -> false;
+ true -> true
+ end,
+ dbg_wx_trace_win:enable(['Back Trace'], Bool).