diff options
author | Erlang/OTP <otp@erlang.org> | 2009-11-20 14:54:40 +0000 |
---|---|---|
committer | Erlang/OTP <otp@erlang.org> | 2009-11-20 14:54:40 +0000 |
commit | 84adefa331c4159d432d22840663c38f155cd4c1 (patch) | |
tree | bff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/debugger/src/dbg_wx_trace.erl | |
download | otp-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.erl | 839 |
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). |