%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 1997-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(debugger).

%% External exports
-export([start/0, start/1, start/2, stop/0, quick/3, auto_attach/1]).

%%==Erlang Debugger===================================================
%%
%% Graphical user interface to the Erlang Interpreter.
%% The code for each process is divided into two modules, Name.erl
%% and Name_win.erl, where Name.erl contains the logic and
%% Name_win.erl the GS specific functionality.
%%
%% debugger
%% --------
%% Interface module.
%%
%% dbg_ui_winman
%% -------------
%% Window manager, keeping track of open windows and Debugger
%% processes.
%%
%% dbg_ui_mon, dbg_ui_mon_win
%% --------------------------
%% Monitor window, main window of Debugger, displaying information
%% about interpreted modules and debugged processes.
%%
%% dbg_ui_trace, dbg_ui_trace_win
%% ------------------------------
%% Attach process window, showing the code executed by a debugged
%% process and providing a GUI for stepping, inspecting variables etc.
%%
%% dbg_ui_break, dbg_ui_break_win
%% ------------------------------
%% Help window for creating new breakpoints.
%%
%% dbg_ui_edit, dbg_ui_edit_win
%% --------------------------------------
%% Help window for editing terms, used for setting backtrace size
%% (i.e. how many stack frames to display in the attach process window)
%% and changing variable values.
%%
%% dbg_ui_interpret, dbg_ui_filedialog_win
%% --------------------------------------
%% Help window for selecting modules to interpret.
%%
%% dbg_ui_settings, dbg_ui_filedialog_win
%% --------------------------------------
%% Help window for saving and loading Debugger settings.
%%
%% dbg_ui_view
%% -----------
%% Help window for viewing interpreted modules (uses dbg_ui_trace_win).
%%
%% dbg_ui_win
%% ----------
%% GUI specific functionality used by more than one window type.
%%
%%====================================================================
start() ->
    start(global, default, default).
start(Mode) when Mode==local; Mode==global ->
    start(Mode, default, default);
start(Gui) when Gui==gs; Gui==wx ->
    start(global, default, Gui);
start(SFile) when is_list(SFile), is_integer(hd(SFile)) ->
    start(global, SFile, default).

start(Mode, SFile) ->
    start(Mode, SFile, default).

start(Mode, SFile, gs) ->
    dbg_ui_mon:start(Mode, SFile);
start(Mode, SFile, wx) ->
    dbg_wx_mon:start(Mode, SFile);
start(Mode, SFile, default) ->
    Gui = which_gui(),
    start(Mode, SFile, Gui).

stop() ->
    dbg_ui_mon:stop().

quick(M, F, A) ->
    int:i(M),
    auto_attach([init]),
    apply(M, F, A).

auto_attach(Flags) ->    
    case which_gui() of
	gs -> int:auto_attach(Flags, {dbg_ui_trace, start, []});
	wx -> int:auto_attach(Flags, {dbg_wx_trace, start, []})
    end.

which_gui() ->
    try
	wx:new(),
	wx:destroy(),
	wx
    catch _:_ ->
	    gs
    end.