aboutsummaryrefslogtreecommitdiffstats
path: root/lib/reltool/src/reltool_sys_win.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/reltool/src/reltool_sys_win.erl')
-rw-r--r--lib/reltool/src/reltool_sys_win.erl1292
1 files changed, 1292 insertions, 0 deletions
diff --git a/lib/reltool/src/reltool_sys_win.erl b/lib/reltool/src/reltool_sys_win.erl
new file mode 100644
index 0000000000..ea80ab7e85
--- /dev/null
+++ b/lib/reltool/src/reltool_sys_win.erl
@@ -0,0 +1,1292 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 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(reltool_sys_win).
+
+%% Public
+-export([start_link/1, get_server/1, set_app/2, open_app/2]).
+
+%% Internal
+-export([init/1, loop/1]).
+
+%% sys callback functions
+-export([
+ system_continue/3,
+ system_terminate/4,
+ system_code_change/4
+ ]).
+
+-include_lib("wx/include/wx.hrl").
+-include("reltool.hrl").
+
+-record(state,
+ {parent_pid,
+ server_pid,
+ app_wins,
+ sys,
+ common,
+ config_file,
+ target_dir,
+ boot_dir,
+ frame,
+ panel,
+ book,
+ rel_book,
+ lib_tree,
+ status_bar,
+ popup_menu,
+ source,
+ whitelist,
+ blacklist,
+ derived,
+ fgraph_wins
+ }).
+
+-define(WIN_WIDTH, 800).
+-define(WIN_HEIGHT, 600).
+
+-define(CLOSE_ITEM, ?wxID_EXIT). %% Use OS specific version if available
+-define(ABOUT_ITEM, ?wxID_ABOUT). %% Use OS specific
+-define(CONTENTS_ITEM, 300).
+-define(APP_GRAPH_ITEM, 301).
+-define(MOD_GRAPH_ITEM, 302).
+-define(LOAD_CONFIG_ITEM, 303).
+-define(SAVE_CONFIG_NODEF_NODER_ITEM, 304).
+-define(SAVE_CONFIG_NODEF_DER_ITEM, 305).
+-define(SAVE_CONFIG_DEF_NODER_ITEM, 306).
+-define(SAVE_CONFIG_DEF_DER_ITEM, 307).
+-define(UNDO_CONFIG_ITEM, 308).
+-define(RESET_CONFIG_ITEM, 309).
+-define(GEN_REL_FILES_ITEM, 310).
+-define(GEN_TARGET_ITEM, 311).
+
+-define(APP_PAGE, "Applications").
+-define(LIB_PAGE, "Libraries").
+-define(SYS_PAGE, "System settings").
+-define(REL_PAGE, "Releases").
+
+-define(APPS_APP_COL, 0).
+-define(source, "Available").
+-define(whitelist, "Included").
+-define(blacklist, "Excluded").
+-define(derived, "Derived").
+
+-record(root_data, {dir}).
+-record(lib_data, {dir, tree, item}).
+-record(escript_data, {file, tree, item}).
+-record(app_data, {name, dir}).
+-record(app_win, {name, pid}).
+-record(fgraph_win, {frame, pid}).
+-record(root_popup, {dir, choices, tree, item}).
+-record(lib_popup, {dir, choices, tree, item}).
+-record(escript_popup, {file, choices, tree, item}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Client
+
+start_link(Opts) ->
+ proc_lib:start_link(?MODULE, init, [[{parent, self()} | Opts]], infinity, []).
+
+get_server(Pid) ->
+ reltool_utils:call(Pid, get_server).
+
+set_app(Pid, App) ->
+ reltool_utils:call(Pid, {set_app, App}).
+
+open_app(Pid, AppName) ->
+ reltool_utils:call(Pid, {open_app, AppName}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Server
+
+init(Options) ->
+ try
+ do_init(Options)
+ catch
+ error:Reason ->
+ exit({Reason, erlang:get_stacktrace()})
+ end.
+
+do_init([{parent, Parent} | Options]) ->
+ case reltool_server:start_link(Options) of
+ {ok, ServerPid, C, Sys} ->
+ process_flag(trap_exit, C#common.trap_exit),
+ S = #state{parent_pid = Parent,
+ server_pid = ServerPid,
+ common = C,
+ config_file = filename:absname("config.reltool"),
+ target_dir = filename:absname("reltool_target_dir"),
+ app_wins = [],
+ sys = Sys,
+ fgraph_wins = []},
+ wx:new(),
+ wx:debug(C#common.wx_debug),
+ S2 = create_window(S),
+
+ %% wx_misc:beginBusyCursor(),
+ case reltool_server:get_status(ServerPid) of
+ {ok, Warnings} ->
+ exit_dialog(Warnings),
+ {ok, Sys2} = reltool_server:get_sys(ServerPid),
+ S3 = S2#state{sys = Sys2},
+ S5 = wx:batch(fun() ->
+ Title = atom_to_list(?APPLICATION),
+ wxFrame:setTitle(S3#state.frame, Title),
+ %% wxFrame:setMinSize(Frame, {?WIN_WIDTH, ?WIN_HEIGHT}),
+ wxStatusBar:setStatusText(S3#state.status_bar, "Done."),
+ S4 = redraw_apps(S3),
+ redraw_libs(S4)
+ end),
+ %% wx_misc:endBusyCursor(),
+ %% wxFrame:destroy(Frame),
+ proc_lib:init_ack(S#state.parent_pid, {ok, self()}),
+ loop(S5);
+ {error, Reason} ->
+ io:format("~p(~p): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
+ exit(Reason)
+ end;
+ {error, Reason} ->
+ io:format("~p(~p): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
+ exit(Reason)
+ end.
+
+exit_dialog([]) ->
+ ok;
+exit_dialog(Warnings) ->
+ Question = "Do you want to continue despite these warnings?",
+ Details = lists:flatten([[W, $\n] || W <- Warnings]),
+ case question_dialog(Question, Details) of
+ ?wxID_OK ->
+ ok;
+ ?wxID_CANCEL ->
+ io:format("~p(~p): <ERROR> ~s\n", [?MODULE, ?LINE, Details]),
+ exit(Details)
+ end.
+
+loop(S) ->
+ receive
+ {system, From, Msg} ->
+ Common = S#state.common,
+ sys:handle_system_msg(Msg, From, S#state.parent_pid, ?MODULE, Common#common.sys_debug, S);
+ #wx{obj = ObjRef,
+ event = #wxClose{type = close_window}} = Msg ->
+ if
+ ObjRef =:= S#state.frame ->
+ wxFrame:destroy(ObjRef),
+ exit(shutdown);
+ true ->
+ FWs = S#state.fgraph_wins,
+ case lists:keysearch(ObjRef, #fgraph_win.frame, FWs) of
+ {value, FW} ->
+ reltool_fgraph_win:stop(FW#fgraph_win.pid, shutdown),
+ wxFrame:destroy(ObjRef),
+ FWs2 = lists:keydelete(ObjRef, #fgraph_win.frame, FWs),
+ ?MODULE:loop(S#state{fgraph_wins = FWs2});
+ false ->
+ error_logger:format("~p~p got unexpected message:\n\t~p\n",
+ [?MODULE, self(), Msg]),
+ ?MODULE:loop(S)
+ end
+ end;
+ #wx{id = ?CLOSE_ITEM, event = #wxCommand{type = command_menu_selected}, userData = main_window} ->
+ wxFrame:destroy(S#state.frame),
+ exit(shutdown);
+ #wx{event = #wxSize{}} = Wx ->
+ Wx2 = reltool_utils:get_latest_resize(Wx),
+ S2 = handle_event(S, Wx2),
+ ?MODULE:loop(S2);
+ #wx{} = Wx ->
+ S2 = handle_event(S, Wx),
+ ?MODULE:loop(S2);
+ {call, ReplyTo, Ref, get_server} ->
+ reltool_utils:reply(ReplyTo, Ref, {ok, S#state.server_pid}),
+ ?MODULE:loop(S);
+ {call, ReplyTo, Ref, {set_app, NewApp}} ->
+ {ok, AnalysedApp, S2} = do_set_app(S, NewApp),
+ reltool_utils:reply(ReplyTo, Ref, {ok, AnalysedApp}),
+ ?MODULE:loop(S2);
+ {call, ReplyTo, Ref, {open_app, AppName}} ->
+ S2 = do_open_app(S, AppName),
+ {value, #app_win{pid = AppPid}} = lists:keysearch(AppName, #app_win.name, S2#state.app_wins),
+ reltool_utils:reply(ReplyTo, Ref, {ok, AppPid}),
+ ?MODULE:loop(S2);
+ {'EXIT', Pid, Reason} when Pid =:= S#state.parent_pid ->
+ [reltool_fgraph_win:stop(FW#fgraph_win.pid, Reason) || FW <- S#state.fgraph_wins],
+ exit(Reason);
+ {'EXIT', _Pid, _Reason} = Exit ->
+ {FWs, AWs} = handle_child_exit(Exit, S#state.fgraph_wins, S#state.app_wins),
+ ?MODULE:loop(S#state{fgraph_wins = FWs, app_wins = AWs});
+ Msg ->
+ error_logger:format("~p~p got unexpected message:\n\t~p\n",
+ [?MODULE, self(), Msg]),
+ ?MODULE:loop(S)
+ end.
+
+handle_child_exit({'EXIT', Pid, _Reason} = Exit, FWs, AWs) ->
+ case lists:keymember(Pid, #fgraph_win.pid, FWs) of
+ true ->
+ msg_warning(Exit, forcegraph_window),
+ {lists:keydelete(Pid, #fgraph_win.pid, FWs), AWs};
+ false ->
+ case lists:keymember(Pid, #app_win.pid, AWs) of
+ true ->
+ msg_warning(Exit, application_window),
+ {FWs, lists:keydelete(Pid, #app_win.pid, AWs)};
+ false ->
+ msg_warning(Exit, unknown),
+ {FWs, AWs}
+ end
+ end.
+
+msg_warning({'EXIT', _Pid, shutdown}, Type) when Type =/= unknown ->
+ ok;
+msg_warning(Exit, Type) ->
+ error_logger:format("~p~p got unexpected message (~p):\n\t~p\n",
+ [?MODULE, self(), Type, Exit]).
+
+create_window(S) ->
+ Title = lists:concat([?APPLICATION, " - starting up"]),
+ Frame = wxFrame:new(wx:null(), ?wxID_ANY, Title, [{size, {?WIN_WIDTH, ?WIN_HEIGHT}}]),
+ %%wxFrame:setSize(Frame, {?WIN_WIDTH, ?WIN_HEIGHT}),
+ %% wxFrame:setMinSize(Frame, {?WIN_WIDTH, ?WIN_HEIGHT}),
+ Bar = wxFrame:createStatusBar(Frame,[]),
+ wxStatusBar:setStatusText(Bar, "Processing libraries..."),
+ %% Label = wxStaticText:new(Panel, ?wxID_ANY, Text, [{style, ?wxTE_READONLY}]),
+ %% Sizer = wxBoxSizer:new(?wxVERTICAL),
+ %% wxSizer:add(Sizer, Label, [{flag, ?wxEXPAND}, {proportion, 1}]),
+ %% wxPanel:setSizer(Panel, Sizer),
+ %% wxSizer:fit(Sizer, Frame),
+ %% wxSizer:setSizeHints(Sizer, Frame),
+
+ %% Frame = wxFrame:new(wx:null(), ?wxID_ANY, Title, []),
+ %% Frame = S#state.frame,
+ wxToolTip:setDelay(3000),
+ Panel = wxPanel:new(Frame, []),
+ %% Bar = wxFrame:createStatusBar(Frame,[]),
+ create_menubar(Frame),
+
+ Book = wxNotebook:new(Panel, ?wxID_ANY, []),
+ S2 = S#state{frame = Frame, panel = Panel, book = Book, status_bar = Bar},
+ S3 = lists:foldl(fun(Fun, Acc) -> Fun(Acc) end,
+ S2,
+ [
+ fun create_app_page/1,
+ fun create_lib_page/1,
+ fun create_main_release_page/1,
+ fun create_config_page/1
+ ]),
+ Sizer = wxBoxSizer:new(?wxVERTICAL),
+ wxSizer:add(Sizer, Book, [{flag, ?wxEXPAND}, {proportion, 1}]),
+
+ wxPanel:setSizer(Panel, Sizer),
+ wxSizer:fit(Sizer, Frame),
+ wxSizer:setSizeHints(Sizer, Frame),
+ wxFrame:connect(Frame, close_window),
+
+ wxFrame:show(Frame),
+ S3.
+
+create_menubar(Frame) ->
+ MenuBar = wxMenuBar:new(),
+ File = wxMenu:new([]),
+ Help = wxMenu:new([]),
+ wxMenuBar:append(MenuBar, File, "File" ),
+ wxMenu:append(File, ?APP_GRAPH_ITEM, "Display application dependency graph" ),
+ wxMenu:append(File, ?MOD_GRAPH_ITEM, "Display module dependency graph" ),
+ wxMenu:appendSeparator(File),
+ wxMenu:append(File, ?RESET_CONFIG_ITEM, "Reset configuration to default" ),
+ wxMenu:append(File, ?UNDO_CONFIG_ITEM, "Undo configuration (toggle)" ),
+ wxMenu:append(File, ?LOAD_CONFIG_ITEM, "Load configuration" ),
+ Save = wxMenu:new(),
+ wxMenu:append(Save, ?SAVE_CONFIG_NODEF_NODER_ITEM, "Save explicit configuration (neither defaults nor derivates)"),
+ wxMenu:append(Save, ?SAVE_CONFIG_DEF_NODER_ITEM , "Save configuration defaults (defaults only)"),
+ wxMenu:append(Save, ?SAVE_CONFIG_NODEF_DER_ITEM, "Save configuration derivates (derivates only))"),
+ wxMenu:append(Save, ?SAVE_CONFIG_DEF_DER_ITEM, "Save extended configuration (both defaults and derivates)"),
+
+ wxMenu:append(File, ?wxID_ANY, "Save configuration", Save),
+ wxMenu:appendSeparator(File),
+ wxMenu:append(File, ?GEN_REL_FILES_ITEM, "Generate rel, script and boot files" ),
+ wxMenu:append(File, ?GEN_TARGET_ITEM, "Generate target system" ),
+ wxMenu:appendSeparator(File),
+ wxMenu:append(File, ?CLOSE_ITEM, "Close" ),
+ wxMenuBar:append(MenuBar, Help, "Help" ),
+ wxMenu:append(Help, ?CONTENTS_ITEM, "Contents" ),
+ wxMenu:append(Help, ?ABOUT_ITEM, "About" ),
+ wxFrame:setMenuBar(Frame, MenuBar),
+ wxEvtHandler:connect(Frame,
+ command_menu_selected,
+ [{userData, main_window}]),
+ wxEvtHandler:connect(File, menu_close),
+ wxEvtHandler:connect(Help, menu_close),
+ MenuBar.
+
+create_app_page(#state{book = Book} = S) ->
+ Panel = wxPanel:new(Book, []),
+ Sizer = wxBoxSizer:new(?wxHORIZONTAL),
+
+ SourceCtrl = create_app_list_ctrl(Panel, Sizer, ?source,
+ whitelist_add, blacklist_add),
+ wxSizer:add(Sizer,
+ wxStaticLine:new(Panel, [{style, ?wxLI_VERTICAL}]),
+ [{border, 2}, {flag, ?wxALL bor ?wxEXPAND}]),
+ WhiteCtrl = create_app_list_ctrl(Panel, Sizer, ?whitelist,
+ whitelist_del, blacklist_add),
+ wxSizer:add(Sizer,
+ wxStaticLine:new(Panel, [{style, ?wxLI_VERTICAL}]),
+ [{border, 2}, {flag, ?wxALL bor ?wxEXPAND}]),
+ BlackCtrl = create_app_list_ctrl(Panel, Sizer, ?blacklist,
+ whitelist_add, blacklist_del),
+ wxSizer:add(Sizer,
+ wxStaticLine:new(Panel, [{style, ?wxLI_VERTICAL}]),
+ [{border, 2}, {flag, ?wxALL bor ?wxEXPAND}]),
+ DerivedCtrl = create_app_list_ctrl(Panel, Sizer, ?derived,
+ whitelist_add, blacklist_add),
+ %% S3 = redraw_apps(S2),
+ wxPanel:setSizer(Panel, Sizer),
+ wxNotebook:addPage(Book, Panel, ?APP_PAGE, []),
+ S#state{source = SourceCtrl,
+ whitelist = WhiteCtrl,
+ blacklist = BlackCtrl,
+ derived = DerivedCtrl}.
+
+create_app_list_ctrl(Panel, OuterSz, Title, Tick, Cross) ->
+ %% Create list control
+ Width = lists:max([100, ?WIN_WIDTH - 40]) div 4,
+ Height = lists:max([100, ?WIN_HEIGHT - 100]),
+ ListCtrl = wxListCtrl:new(Panel,
+ [{style,
+ ?wxLC_REPORT bor
+ %% ?wxLC_SORT_ASCENDING bor
+ %% ?wxLC_SINGLE_SEL bor
+ ?wxVSCROLL},
+ {size, {Width, Height}}]),
+ ToolTip = "Select application(s) or open separate application window with a double click.",
+ wxListCtrl:setToolTip(ListCtrl, ToolTip),
+
+ %% Prep images
+ reltool_utils:assign_image_list(ListCtrl),
+
+ %% Prep column label
+ ListItem = wxListItem:new(),
+ wxListItem:setAlign(ListItem, ?wxLIST_FORMAT_LEFT),
+ wxListItem:setText(ListItem, Title),
+ wxListCtrl:insertColumn(ListCtrl, ?APPS_APP_COL, ListItem),
+ wxListItem:destroy(ListItem),
+
+ %% Create button
+ ButtonSz = wxBoxSizer:new(?wxHORIZONTAL),
+ create_button(Panel, ButtonSz, ListCtrl, Title, "wxART_TICK_MARK", Tick),
+ create_button(Panel, ButtonSz, ListCtrl, Title, "wxART_CROSS_MARK", Cross),
+
+
+ InnerSz = wxBoxSizer:new(?wxVERTICAL),
+ wxSizer:add(InnerSz,
+ ListCtrl,
+ [{border, 2},
+ {flag, ?wxALL bor ?wxEXPAND},
+ {proportion, 1}]),
+ wxSizer:add(InnerSz,
+ ButtonSz,
+ [{flag, ?wxEXPAND}]),
+ wxSizer:add(OuterSz,
+ InnerSz,
+ [{flag, ?wxEXPAND}, {proportion, 1}]),
+
+ %% Subscribe on events
+ wxEvtHandler:connect(ListCtrl, size, [{skip, true}, {userData, app_list_ctrl}]),
+ wxEvtHandler:connect(ListCtrl, command_list_item_activated),
+ wxWindow:connect(ListCtrl, enter_window),
+
+ ListCtrl.
+
+%% create_button(_Panel, Sizer, _ListCtrl, _BitMapName, _Tag, undefined) ->
+%% wxSizer:addStretchSpacer(Sizer);
+create_button(Panel, Sizer, ListCtrl, Title, BitMapName, Action) ->
+ BitMap = wxArtProvider:getBitmap(BitMapName),
+ Button = wxBitmapButton:new(Panel, ?wxID_ANY, BitMap, []),
+ ToolTip = action_to_tool_tip(Title, Action),
+ wxBitmapButton:setToolTip(Button, ToolTip),
+ Options = [{userData, {app_button, Action, ListCtrl}}],
+ wxEvtHandler:connect(Button, command_button_clicked, Options),
+ wxSizer:add(Sizer,
+ Button,
+ [{border, 2},
+ {flag, ?wxALL},
+ {proportion, 1}]).
+
+action_to_tool_tip(Label, Action) ->
+ case Action of
+ whitelist_add when Label =:= ?whitelist ->
+ "Remove selected application(s) from whitelist.";
+ whitelist_add ->
+ "Add selected application(s) to whitelist.";
+ whitelist_del ->
+ "Remove selected application(s)from whitelist.";
+ blacklist_add when Label =:= ?blacklist ->
+ "Remove selected application(s) from blacklist.";
+ blacklist_add ->
+ "Add selected application(s) to blacklist.";
+ blacklist_del ->
+ "Remove selected application(s) from blacklist."
+ end.
+
+create_lib_page(#state{book = Book} = S) ->
+ Panel = wxPanel:new(Book, []),
+ Sizer = wxBoxSizer:new(?wxHORIZONTAL),
+
+ Tree = wxTreeCtrl:new(Panel, [{style , ?wxTR_HAS_BUTTONS bor ?wxTR_HIDE_ROOT}]),
+ ToolTip = "Edit application sources.",
+ wxBitmapButton:setToolTip(Tree, ToolTip),
+
+ wxFrame:connect(Tree, command_tree_item_activated),
+ wxFrame:connect(Tree, command_tree_item_right_click),
+
+ wxSizer:add(Sizer,
+ Tree,
+ [{border, 2},
+ {flag, ?wxALL bor ?wxEXPAND},
+ {proportion, 1}]),
+ wxPanel:setSizer(Panel, Sizer),
+ wxNotebook:addPage(Book, Panel, ?LIB_PAGE, []),
+ S#state{lib_tree = Tree}.
+
+redraw_libs(#state{lib_tree = Tree, sys = Sys} = S) ->
+ wxTreeCtrl:deleteAllItems(Tree),
+
+ Top = wxTreeCtrl:addRoot(Tree, "Sources", []),
+ {ok, Erts} = reltool_server:get_app(S#state.server_pid, erts),
+ append_root(Tree, Top, Sys#sys.root_dir, Erts),
+
+ LibItem = wxTreeCtrl:appendItem(Tree, Top, "Library directories", []),
+ LibData = #lib_data{dir = undefined, tree = Tree, item = LibItem},
+ wxTreeCtrl:setItemData(Tree, LibItem, LibData),
+ [append_lib(Tree, LibItem, Dir) || Dir <- Sys#sys.lib_dirs],
+
+ EscriptItem = append_item(Tree, Top, "Escript files", undefined),
+ EscriptData = #escript_data{file = undefined, tree = Tree, item = EscriptItem},
+ wxTreeCtrl:setItemData(Tree,EscriptItem, EscriptData),
+ [append_escript(Tree, EscriptItem, File) || File <- Sys#sys.escripts],
+ wxTreeCtrl:expand(Tree, LibItem),
+ wxTreeCtrl:expand(Tree, EscriptItem),
+ S.
+
+append_root(Tree, Parent, Dir, Erts) ->
+ Top = append_item(Tree, Parent, "Root directory", undefined),
+ Data = #root_data{dir = Dir},
+ RootItem = append_item(Tree, Top, Dir, Data),
+ ErtsItem = append_item(Tree, RootItem, "erts", undefined),
+ [append_app(Tree, ErtsItem, filename:basename(filename:dirname(D)), D)
+ || D <- Erts#app.sorted_dirs],
+ LibItem = append_item(Tree, RootItem, "lib", undefined),
+ LibDir = filename:join([Dir, "lib"]),
+ LibDirs = reltool_utils:lib_dirs(LibDir),
+ AppDirs = lists:sort(fun reltool_utils:app_dir_test/2, LibDirs),
+ [append_app(Tree, LibItem, D, LibDir) || D <- AppDirs],
+ wxTreeCtrl:expand(Tree, Top),
+ RootItem.
+
+append_lib(Tree, Parent, Dir) ->
+ Item = wxTreeCtrl:appendItem(Tree, Parent, Dir, []),
+ Data = #lib_data{dir = Dir, tree = Tree, item = Item},
+ wxTreeCtrl:setItemData(Tree, Item, Data),
+ append_apps(Tree, Item, Dir).
+
+append_apps(Tree, Item, Dir) ->
+ AppDirs = lists:sort(fun reltool_utils:app_dir_test/2,
+ reltool_utils:lib_dirs(Dir)),
+ [append_app(Tree, Item, D, Dir) || D <- AppDirs],
+ Item.
+
+append_app(Tree, Parent, Base, Dir) ->
+ Data = #app_data{name = Base, dir = Dir},
+ append_item(Tree, Parent, Base, Data).
+
+append_escript(Tree, Parent, File) ->
+ Data = #escript_data{file = File},
+ append_item(Tree, Parent, File, Data).
+
+append_item(Tree, Parent, Label, Data) ->
+ Item = wxTreeCtrl:appendItem(Tree, Parent, Label, []),
+ wxTreeCtrl:setItemData(Tree, Item, Data),
+ Item.
+
+create_config_page(#state{sys = Sys, book = Book} = S) ->
+ Panel = wxPanel:new(Book, []),
+ Sizer = wxBoxSizer:new(?wxHORIZONTAL),
+ AppConds = reltool_utils:incl_conds(),
+ AppBox = wxRadioBox:new(Panel,
+ ?wxID_ANY,
+ "Application inclusion policy",
+ ?wxDefaultPosition,
+ ?wxDefaultSize,
+ AppConds,
+ []),
+ AppToolTip = "Choose default policy for inclusion of applications. ",
+ wxBitmapButton:setToolTip(AppBox, AppToolTip),
+ AppChoice = reltool_utils:incl_cond_to_index(Sys#sys.incl_cond),
+ wxRadioBox:setSelection(AppBox, AppChoice),
+ wxEvtHandler:connect(AppBox, command_radiobox_selected,
+ [{userData, config_incl_cond}]),
+ ModConds = reltool_utils:mod_conds(),
+ ModBox = wxRadioBox:new(Panel,
+ ?wxID_ANY,
+ "Module inclusion policy",
+ ?wxDefaultPosition,
+ ?wxDefaultSize,
+ ModConds,
+ []),
+ ModToolTip = "Choose default policy for module inclusion.",
+ wxBitmapButton:setToolTip(ModBox, ModToolTip),
+
+ ModChoice = reltool_utils:mod_cond_to_index(Sys#sys.mod_cond),
+ wxRadioBox:setSelection(ModBox, ModChoice),
+ wxEvtHandler:connect(ModBox, command_radiobox_selected,
+ [{userData, config_mod_cond}]),
+
+ wxSizer:add(Sizer,
+ AppBox,
+ [{border, 2},
+ {flag, ?wxALL bor ?wxEXPAND},
+ {proportion, 1}]),
+ wxSizer:add(Sizer,
+ ModBox,
+ [{border, 2},
+ {flag, ?wxALL bor ?wxEXPAND},
+ {proportion, 1}]),
+ wxPanel:setSizer(Panel, Sizer),
+ wxNotebook:addPage(Book, Panel, ?SYS_PAGE, []),
+ S.
+
+create_main_release_page(#state{book = Book} = S) ->
+ Panel = wxPanel:new(Book, []),
+ RelBook = wxNotebook:new(Panel, ?wxID_ANY, []),
+ Sizer = wxBoxSizer:new(?wxVERTICAL),
+ ButtonSizer = wxBoxSizer:new(?wxHORIZONTAL),
+
+ Create = wxButton:new(Panel, ?wxID_ANY, [{label, "Create"}]),
+ wxButton:setToolTip(Create, "Create a new release."),
+ wxButton:connect(Create, command_button_clicked, [{userData, create_rel}]),
+ wxSizer:add(ButtonSizer, Create),
+
+ Delete = wxButton:new(Panel, ?wxID_ANY, [{label, "Delete"}]),
+ wxButton:setToolTip(Delete, "Delete a release."),
+ wxButton:connect(Delete, command_button_clicked, [{userData, delete_rel}]),
+ wxSizer:add(ButtonSizer, Delete),
+
+ View = wxButton:new(Panel, ?wxID_ANY, [{label, "View script"}]),
+ wxButton:setToolTip(View, "View generated script file."),
+ wxButton:connect(View, command_button_clicked, [{userData, view_script}]),
+ wxSizer:add(ButtonSizer, View),
+
+ [add_release_page(RelBook, Rel) || Rel <- (S#state.sys)#sys.rels],
+
+ wxSizer:add(Sizer, RelBook, [{flag, ?wxEXPAND}, {proportion, 1}]),
+ wxSizer:add(Sizer, ButtonSizer, [{flag, ?wxEXPAND}]),
+ wxPanel:setSizer(Panel, Sizer),
+ wxNotebook:addPage(Book, Panel, ?REL_PAGE, []),
+ S#state{rel_book = RelBook}.
+
+add_release_page(Book, #rel{name = RelName, rel_apps = RelApps}) ->
+ Panel = wxPanel:new(Book, []),
+ Sizer = wxBoxSizer:new(?wxHORIZONTAL),
+ RelBox = wxRadioBox:new(Panel,
+ ?wxID_ANY,
+ "Applications included in the release " ++ RelName,
+ ?wxDefaultPosition,
+ ?wxDefaultSize,
+ [atom_to_list(RA#rel_app.name) || RA <- RelApps],
+ []),
+ %% wxRadioBox:setSelection(RelBox, 2), % mandatory
+ wxEvtHandler:connect(RelBox, command_radiobox_selected, [{userData, {config_rel_cond, RelName}}]),
+ RelToolTip = "Choose which applications that shall be included in the release resource file.",
+ wxBitmapButton:setToolTip(RelBox, RelToolTip),
+
+ wxSizer:add(Sizer,
+ RelBox,
+ [{border, 2},
+ {flag, ?wxALL bor ?wxEXPAND},
+ {proportion, 1}]),
+ wxPanel:setSizer(Panel, Sizer),
+ wxNotebook:addPage(Book, Panel, RelName, []).
+
+do_open_app(S, AppBase) when is_list(AppBase) ->
+ {AppName, _AppVsn} = reltool_utils:split_app_name(AppBase),
+ do_open_app(S, AppName);
+do_open_app(S, '') ->
+ S;
+do_open_app(#state{server_pid = ServerPid, common = C, app_wins = AppWins} = S, AppName) when is_atom(AppName) ->
+ case lists:keysearch(AppName, #app_win.name, AppWins) of
+ false ->
+ WxEnv = wx:get_env(),
+ {ok, Pid} = reltool_app_win:start_link(WxEnv, ServerPid, C, AppName),
+ AW = #app_win{name = AppName, pid = Pid},
+ S#state{app_wins = [AW | AppWins]};
+ {value, AW} ->
+ reltool_app_win:raise(AW#app_win.pid),
+ S
+ end.
+
+root_popup(S, Root, Tree, Item) ->
+ PopupMenu = wxMenu:new(),
+ wxMenu:append(PopupMenu, 0, "Root dir"),
+ wxMenu:appendSeparator(PopupMenu),
+ wxMenu:append(PopupMenu, 1, "Edit"),
+ Choices = [edit],
+ wxEvtHandler:connect(PopupMenu, command_menu_selected),
+ wxEvtHandler:connect(PopupMenu, menu_close),
+ wxWindow:popupMenu(S#state.frame, PopupMenu),
+
+ Popup = #root_popup{dir = Root, choices = Choices, tree = Tree, item = Item},
+ S#state{popup_menu = Popup}.
+
+lib_popup(S, Lib, Tree, Item) ->
+ PopupMenu = wxMenu:new(),
+ wxMenu:append(PopupMenu, 0, "Library dir"),
+ wxMenu:appendSeparator(PopupMenu),
+ wxMenu:append(PopupMenu, 1, "Add"),
+ Choices =
+ case wxTreeCtrl:getItemData(Tree, Item) of
+ #lib_data{dir = undefined} ->
+ [add];
+ #lib_data{} ->
+ wxMenu:append(PopupMenu, 2, "Edit"),
+ wxMenu:append(PopupMenu, 3, "Delete"),
+ [add, edit, delete]
+ end,
+ wxEvtHandler:connect(PopupMenu, command_menu_selected),
+ wxEvtHandler:connect(PopupMenu, menu_close),
+ wxWindow:popupMenu(S#state.frame, PopupMenu),
+
+ Popup = #lib_popup{dir = Lib, choices = Choices, tree = Tree, item = Item},
+ S#state{popup_menu = Popup}.
+
+escript_popup(S, File, Tree, Item) ->
+ PopupMenu = wxMenu:new(),
+ wxMenu:append(PopupMenu, 0, "Escript file"),
+ wxMenu:appendSeparator(PopupMenu),
+ wxMenu:append(PopupMenu, 1, "Add"),
+ Choices =
+ case wxTreeCtrl:getItemData(Tree, Item) of
+ #escript_data{file = undefined} ->
+ [add];
+ #escript_data{} ->
+ wxMenu:append(PopupMenu, 2, "Edit"),
+ wxMenu:append(PopupMenu, 3, "Delete"),
+ [add, edit, delete]
+ end,
+ wxEvtHandler:connect(PopupMenu, command_menu_selected),
+ wxEvtHandler:connect(PopupMenu, menu_close),
+ wxWindow:popupMenu(S#state.frame, PopupMenu),
+
+ Popup = #escript_popup{file = File, choices = Choices, tree = Tree, item = Item},
+ S#state{popup_menu = Popup}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+handle_event(S, #wx{id = Id, obj= ObjRef, userData = UserData, event = Event} = _Wx) ->
+ %% io:format("wx: ~p\n", [Wx]),
+ case Event of
+ #wxSize{type = size, size = {W, _H}} when UserData =:= app_list_ctrl ->
+ wxListCtrl:setColumnWidth(ObjRef, ?APPS_APP_COL, W),
+ S;
+ #wxCommand{type = command_menu_selected} when Id =:= ?APP_GRAPH_ITEM ->
+ update_app_graph(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?MOD_GRAPH_ITEM ->
+ update_mod_graph(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?RESET_CONFIG_ITEM ->
+ reset_config(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?UNDO_CONFIG_ITEM ->
+ undo_config(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?LOAD_CONFIG_ITEM ->
+ load_config(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?SAVE_CONFIG_NODEF_NODER_ITEM ->
+ save_config(S, false, false);
+ #wxCommand{type = command_menu_selected} when Id =:= ?SAVE_CONFIG_NODEF_DER_ITEM ->
+ save_config(S, false, true);
+ #wxCommand{type = command_menu_selected} when Id =:= ?SAVE_CONFIG_DEF_NODER_ITEM ->
+ save_config(S, true, false);
+ #wxCommand{type = command_menu_selected} when Id =:= ?SAVE_CONFIG_DEF_DER_ITEM ->
+ save_config(S, true, true);
+ #wxCommand{type = command_menu_selected} when Id =:= ?GEN_REL_FILES_ITEM ->
+ gen_rel_files(S);
+ #wxCommand{type = command_menu_selected} when Id =:= ?GEN_TARGET_ITEM ->
+ gen_target(S);
+ #wxCommand{type = command_menu_selected} when UserData =:= main_window, Id =:= ?CONTENTS_ITEM ->
+ {file, BeamFile} = code:is_loaded(?MODULE),
+ EbinDir = filename:dirname(BeamFile),
+ AppDir = filename:dirname(EbinDir),
+ HelpFile = filename:join([AppDir, "doc", "html", "index.html"]),
+ Url = "file://" ++ filename:absname(HelpFile),
+ wx_misc:launchDefaultBrowser(Url),
+ S;
+ #wxCommand{type = command_menu_selected} when UserData =:= main_window, Id =:= ?ABOUT_ITEM ->
+ AboutStr = "Reltool is a release management tool. It analyses a given"
+ " Erlang/OTP installation and determines various dependencies"
+ " between applications. The graphical frontend depicts the"
+ " dependencies and enables interactive customization of a"
+ " target system. The backend provides a batch interface"
+ " for generation of customized target systems.",
+ MD = wxMessageDialog:new(S#state.frame,
+ AboutStr,
+ [{style, ?wxOK bor ?wxICON_INFORMATION},
+ {caption, "About Reltool"}]),
+ wxMessageDialog:showModal(MD),
+ wxMessageDialog:destroy(MD),
+ S;
+ #wxMenu{type = menu_close} ->
+ S#state{popup_menu = undefined};
+ #wxCommand{type = command_menu_selected = Type, cmdString = Str}
+ when S#state.popup_menu =/= undefined ->
+ handle_popup_event(S, Type, Id, ObjRef, UserData, Str);
+ #wxMouse{type = enter_window} ->
+ wxWindow:setFocus(ObjRef),
+ S;
+ _ ->
+ case wxNotebook:getPageText(S#state.book, wxNotebook:getSelection(S#state.book)) of
+ ?APP_PAGE -> handle_app_event(S, Event, ObjRef, UserData);
+ ?LIB_PAGE -> handle_source_event(S, Event, ObjRef, UserData);
+ ?SYS_PAGE -> handle_system_event(S, Event, ObjRef, UserData);
+ ?REL_PAGE -> handle_release_event(S, Event, ObjRef, UserData)
+ end
+ end.
+
+handle_popup_event(S, _Type, 0, _ObjRef, _UserData, _Str) ->
+ S#state{popup_menu = undefined};
+handle_popup_event(#state{popup_menu = #root_popup{dir = OldDir, choices = Choices},
+ sys = Sys} = S,
+ _Type, Pos, _ObjRef, _UserData, _Str) ->
+ case lists:nth(Pos, Choices) of
+ edit ->
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_dir(S#state.frame, "Change root directory", OldDir, Style) of
+ {ok, NewDir} when NewDir =:= OldDir ->
+ %% Same dir.Ignore.
+ S#state{popup_menu = undefined};
+ {ok, NewDir} ->
+ Sys2 = Sys#sys{root_dir = NewDir},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2});
+ cancel ->
+ S#state{popup_menu = undefined}
+ end
+ end;
+handle_popup_event(#state{popup_menu = #lib_popup{dir = OldDir, choices = Choices},
+ sys = Sys} = S,
+ _Type, Pos, _ObjRef, _UserData, _Str) ->
+ case lists:nth(Pos, Choices) of
+ add ->
+ {ok, Cwd} = file:get_cwd(),
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_dir(S#state.frame, "Select a library directory to add", Cwd, Style) of
+ {ok, NewDir} ->
+ case lists:member(NewDir, Sys#sys.lib_dirs) of
+ true ->
+ %% Ignore duplicate. Keep old.
+ S#state{popup_menu = undefined};
+ false ->
+ LibDirs = Sys#sys.lib_dirs ++ [NewDir],
+ Sys2 = Sys#sys{lib_dirs = LibDirs},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end;
+ cancel ->
+ S#state{popup_menu = undefined}
+ end;
+ edit ->
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_dir(S#state.frame, "Change library directory", OldDir, Style) of
+ {ok, NewDir} ->
+ case lists:member(NewDir, Sys#sys.lib_dirs) of
+ true ->
+ %% Ignore duplicate. Keep old.
+ S#state{popup_menu = undefined};
+ false ->
+ Pred = fun(E) -> E =/= OldDir end,
+ {Before, [_| After]} =
+ lists:splitwith(Pred, Sys#sys.lib_dirs),
+ LibDirs2 = Before ++ [NewDir | After],
+ Sys2 = Sys#sys{lib_dirs = LibDirs2},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end;
+ cancel ->
+ S#state{popup_menu = undefined}
+ end;
+ delete ->
+ LibDirs = Sys#sys.lib_dirs -- [OldDir],
+ Sys2 = Sys#sys{lib_dirs = LibDirs},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end;
+handle_popup_event(#state{popup_menu = #escript_popup{file = OldFile, choices = Choices},
+ sys = Sys} = S,
+ _Type, Pos, _ObjRef, _UserData, _Str) ->
+ case lists:nth(Pos, Choices) of
+ add ->
+ OldFile2 =
+ case OldFile of
+ undefined ->
+ {ok, Cwd} = file:get_cwd(),
+ filename:join([Cwd, "myEscript"]);
+ _ ->
+ OldFile
+ end,
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_file(S#state.frame, "Select an escript file to add", OldFile2, Style) of
+ {ok, NewFile} ->
+ case lists:member(NewFile, Sys#sys.escripts) of
+ true ->
+ %% Ignore duplicate. Keep old.
+ S#state{popup_menu = undefined};
+ false ->
+ Escripts = Sys#sys.escripts ++ [NewFile],
+ Sys2 = Sys#sys{escripts = Escripts},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end;
+ cancel ->
+ S#state{popup_menu = undefined}
+ end;
+ edit ->
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_file(S#state.frame, "Change escript file name", OldFile, Style) of
+ {ok, NewFile} ->
+ case lists:member(NewFile, Sys#sys.escripts) of
+ true ->
+ %% Ignore duplicate. Keep old.
+ S#state{popup_menu = undefined};
+ false ->
+ Pred = fun(E) -> E =/= OldFile end,
+ {Before, [_| After]} = lists:splitwith(Pred, Sys#sys.escripts),
+ Escripts2 = Before ++ [NewFile | After],
+ Sys2 = Sys#sys{escripts = Escripts2},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end;
+ cancel ->
+ S#state{popup_menu = undefined}
+ end;
+ delete ->
+ Escripts = Sys#sys.escripts -- [OldFile],
+ Sys2 = Sys#sys{escripts = Escripts},
+ do_set_sys(S#state{popup_menu = undefined, sys = Sys2})
+ end.
+
+handle_system_event(#state{sys = Sys} = S,
+ #wxCommand{type = command_radiobox_selected, cmdString = Choice},
+ _ObjRef,
+ config_mod_cond) ->
+ ModCond = reltool_utils:list_to_mod_cond(Choice),
+ Sys2 = Sys#sys{mod_cond = ModCond},
+ do_set_sys(S#state{sys = Sys2});
+handle_system_event(#state{sys = Sys} = S,
+ #wxCommand{type = command_radiobox_selected, cmdString = Choice},
+ _ObjRef,
+ config_incl_cond) ->
+ AppCond = reltool_utils:list_to_incl_cond(Choice),
+ Sys2 = Sys#sys{incl_cond = AppCond},
+ do_set_sys(S#state{sys = Sys2});
+handle_system_event(S, Event, ObjRef, UserData) ->
+ error_logger:format("~p~p got unexpected wx sys event to ~p with user data: ~p\n\t ~p\n",
+ [?MODULE, self(), ObjRef, UserData, Event]),
+ S.
+
+handle_release_event(S, _Event, _ObjRef, UserData) ->
+ io:format("Release data: ~p\n", [UserData]),
+ S.
+
+handle_source_event(S, #wxTree{type = command_tree_item_activated, item = Item}, ObjRef, _UserData) ->
+ case wxTreeCtrl:getItemData(ObjRef, Item) of
+ #root_data{dir = _Dir} ->
+ %% io:format("Root dialog: ~p\n", [Dir]),
+ S;
+ #lib_data{dir = _Dir} ->
+ %% io:format("Lib dialog: ~p\n", [Dir]),
+ S;
+ #escript_data{file = _File} ->
+ %% io:format("Escript dialog: ~p\n", [File]),
+ S;
+ #app_data{name = Name} ->
+ do_open_app(S, Name);
+ undefined ->
+ S
+ end;
+handle_source_event(S, #wxTree{type = command_tree_item_right_click, item = Item}, Tree, _UserData) ->
+ case wxTreeCtrl:getItemData(Tree, Item) of
+ #root_data{dir = Dir} ->
+ wx:batch(fun() -> root_popup(S, Dir, Tree, Item) end);
+ #lib_data{dir = Dir} ->
+ wx:batch(fun() -> lib_popup(S, Dir, Tree, Item) end);
+ #escript_data{file = File} ->
+ wx:batch(fun() -> escript_popup(S, File, Tree, Item) end);
+ #app_data{name = Name} ->
+ io:format("App menu: ~p\n", [Name]),
+ S;
+ undefined ->
+ S
+ end.
+
+handle_app_event(S, #wxList{type = command_list_item_activated, itemIndex = Pos}, ListCtrl, _UserData) ->
+ AppName = wxListCtrl:getItemText(ListCtrl, Pos),
+ do_open_app(S, AppName);
+handle_app_event(S, #wxCommand{type = command_button_clicked}, _ObjRef, {app_button, Action, ListCtrl}) ->
+ Items = reltool_utils:get_items(ListCtrl),
+ handle_app_button(S, Items, Action);
+handle_app_event(S, Event, ObjRef, UserData) ->
+ error_logger:format("~p~p got unexpected wx app event to ~p with user data: ~p\n\t ~p\n",
+ [?MODULE, self(), ObjRef, UserData, Event]),
+ S.
+
+handle_app_button(#state{server_pid = ServerPid, app_wins = AppWins} = S, Items, Action) ->
+ NewApps = [move_app(S, Item, Action) || Item <- Items],
+ case reltool_server:set_apps(ServerPid, NewApps) of
+ {ok, []} ->
+ ok;
+ {ok, Warnings} ->
+ Msg = lists:flatten([[W, $\n] || W <- Warnings]),
+ display_message(Msg, ?wxICON_WARNING);
+ {error, Reason} ->
+ display_message(Reason, ?wxICON_ERROR)
+ end,
+ [ok = reltool_app_win:refresh(AW#app_win.pid) || AW <- AppWins],
+ redraw_apps(S).
+
+do_set_sys(#state{sys = Sys, server_pid = ServerPid, status_bar = Bar} = S) ->
+ wxStatusBar:setStatusText(Bar, "Processing libraries..."),
+ Status = reltool_server:set_sys(ServerPid, Sys),
+ check_and_refresh(S, Status).
+
+move_app(S, {_ItemNo, AppBase}, Action) ->
+ {AppName, _Vsn} = reltool_utils:split_app_name(AppBase),
+ {ok, OldApp} = reltool_server:get_app(S#state.server_pid, AppName),
+ AppCond =
+ case Action of
+ whitelist_add ->
+ case OldApp#app.incl_cond of
+ include -> undefined;
+ exclude -> include;
+ undefined -> include
+ end;
+ whitelist_del ->
+ undefined;
+ blacklist_add ->
+ exclude;
+ blacklist_del ->
+ undefined;
+ _ ->
+ error_logger:format("~p~p got unexpected app button event: ~p ~p\n",
+ [?MODULE, self(), Action, AppBase]),
+ OldApp#app.incl_cond
+ end,
+ OldApp#app{incl_cond = AppCond}.
+
+do_set_app(#state{server_pid = ServerPid, app_wins = AppWins} = S, NewApp) ->
+ {ok, AnalysedApp, Warnings} = reltool_server:set_app(ServerPid, NewApp),
+ [ok = reltool_app_win:refresh(AW#app_win.pid) || AW <- AppWins],
+ S2 = redraw_apps(S),
+ case Warnings of
+ [] ->
+ ignore;
+ _ ->
+ Msg = lists:flatten([[W, $\n] || W <- Warnings]),
+ display_message(Msg, ?wxICON_WARNING)
+ end,
+ {ok, AnalysedApp, S2}.
+
+redraw_apps(#state{server_pid = ServerPid,
+ source = SourceCtrl,
+ whitelist = WhiteCtrl,
+ blacklist = BlackCtrl,
+ derived = DerivedCtrl} = S) ->
+ {ok, SourceApps} = reltool_server:get_apps(ServerPid, source),
+ {ok, WhiteApps} = reltool_server:get_apps(ServerPid, whitelist),
+ {ok, BlackApps} = reltool_server:get_apps(ServerPid, blacklist),
+ {ok, DerivedApps} = reltool_server:get_apps(ServerPid, derived),
+
+ BadApps = fun(#app{used_by_apps = UsedBy} = A) when UsedBy =/= [] ->
+ A#app{status = missing};
+ (A) ->
+ A
+ end,
+ BlackApps2 = lists:map(BadApps, BlackApps),
+ redraw_apps(SourceApps, SourceCtrl, ?CROSS_IMAGE, ?WARN_IMAGE),
+ WhiteN = redraw_apps(WhiteApps, WhiteCtrl, ?TICK_IMAGE, ?ERR_IMAGE),
+ redraw_apps(BlackApps2, BlackCtrl, ?CROSS_IMAGE, ?WARN_IMAGE),
+ DerivedN = redraw_apps(DerivedApps, DerivedCtrl, ?TICK_IMAGE, ?ERR_IMAGE),
+ Status = lists:concat([WhiteN, " whitelisted modules and ",
+ DerivedN, " derived modules."]),
+ wxStatusBar:setStatusText(S#state.status_bar, Status),
+ S.
+
+redraw_apps(Apps, ListCtrl, OkImage, ErrImage) ->
+ do_redraw_apps(ListCtrl, Apps, OkImage, ErrImage).
+
+do_redraw_apps(ListCtrl, [], _OkImage, _ErrImage) ->
+ wxListCtrl:deleteAllItems(ListCtrl),
+ 0;
+do_redraw_apps(ListCtrl, Apps, OkImage, ErrImage) ->
+ OldItems = reltool_utils:get_items(ListCtrl),
+ wxListCtrl:deleteAllItems(ListCtrl),
+ AddImage =
+ fun(App) ->
+ case App#app.status of
+ ok -> {OkImage, App#app.label, App};
+ missing -> {ErrImage, App#app.label, App}
+ end
+ end,
+ ImageApps = lists:map(AddImage, Apps),
+ Show =
+ fun({ImageId, Text, App}, {Row, ModCount, Items}) ->
+ wxListCtrl:insertItem(ListCtrl, Row, ""),
+ if (Row rem 2) =:= 0 ->
+ wxListCtrl:setItemBackgroundColour(ListCtrl, Row, {240,240,255});
+ true ->
+ ignore
+ end,
+ wxListCtrl:setItem(ListCtrl, Row, ?APPS_APP_COL, Text, [{imageId, ImageId}]),
+ N = length([M || M <- App#app.mods, M#mod.is_included =:= true]),
+ {Row + 1, ModCount + N, [{Row, Text} | Items]}
+ end,
+ {_, N, NewItems} = wx:foldl(Show, {0, 0, []}, lists:sort(ImageApps)),
+ reltool_utils:select_items(ListCtrl, OldItems, lists:reverse(NewItems)),
+ N.
+
+update_app_graph(S) ->
+ {ok, WhiteApps} = reltool_server:get_apps(S#state.server_pid, whitelist),
+ {ok, DerivedApps} = reltool_server:get_apps(S#state.server_pid, derived),
+
+ WhiteNames = [A#app.name || A <- WhiteApps],
+ DerivedNames = [A#app.name || A <- DerivedApps],
+ Nodes = WhiteNames ++ DerivedNames,
+ %% WhiteUses = [N || A <- WhiteApps, N <- A#app.uses_apps, lists:member(N, Nodes)],
+ %% DerivedUses = [N || A <- DerivedApps, N <- A#app.uses_apps, lists:member(N, Nodes)],
+
+ WhiteLinks = [[A#app.name, U] || A <- WhiteApps,
+ U <- A#app.uses_apps,
+ U =/= A#app.name,
+ lists:member(U, Nodes)],
+ DerivedLinks = [[A#app.name, U] || A <- DerivedApps,
+ U <- A#app.uses_apps,
+ U =/= A#app.name,
+ lists:member(U, Nodes)],
+ Links = lists:usort(WhiteLinks ++ DerivedLinks),
+ %% io:format("Links: ~p\n", [Links]),
+ Title = lists:concat([?APPLICATION, " - application graph"]),
+ create_fgraph_window(S, Title, Nodes, Links).
+
+update_mod_graph(S) ->
+ {ok, WhiteApps} = reltool_server:get_apps(S#state.server_pid, whitelist),
+ {ok, DerivedApps} = reltool_server:get_apps(S#state.server_pid, derived),
+ WhiteMods = lists:usort([M || A <- WhiteApps, M <- A#app.mods, M#mod.is_included =:= true]),
+ DerivedMods = lists:usort([M || A <- DerivedApps, M <- A#app.mods, M#mod.is_included =:= true]),
+
+ WhiteNames = [M#mod.name || M <- WhiteMods],
+ DerivedNames = [M#mod.name || M <- DerivedMods],
+ Nodes = WhiteNames ++ DerivedNames,
+
+ WhiteLinks = [[M#mod.name, U] || M <- WhiteMods,
+ U <- M#mod.uses_mods,
+ U =/= M#mod.name,
+ lists:member(U, Nodes)],
+ DerivedLinks = [[M#mod.name, U] || M <- DerivedMods,
+ U <- M#mod.uses_mods,
+ U =/= M#mod.name,
+ lists:member(U, Nodes)],
+ Links = lists:usort(WhiteLinks ++ DerivedLinks),
+ %% io:format("Links: ~p\n", [Links]),
+ Title = lists:concat([?APPLICATION, " - module graph"]),
+ create_fgraph_window(S, Title, Nodes, Links).
+
+create_fgraph_window(S, Title, Nodes, Links) ->
+ Frame = wxFrame:new(wx:null(), ?wxID_ANY, Title, []),
+ wxFrame:setSize(Frame, {?WIN_WIDTH, ?WIN_HEIGHT}),
+ Panel = wxPanel:new(Frame, []),
+ Options = [{size, {lists:max([100, ?WIN_WIDTH - 100]), ?WIN_HEIGHT}}],
+ {Server, Fgraph} = reltool_fgraph_win:new(Panel, Options),
+ Choose = fun(?MISSING_APP) -> alternate;
+ (_) -> default
+ end,
+ [reltool_fgraph_win:add_node(Server, N, Choose(N)) || N <- Nodes],
+ [reltool_fgraph_win:add_link(Server, {From, To}) || [From, To] <- Links],
+
+ Sizer = wxBoxSizer:new(?wxVERTICAL),
+ wxSizer:add(Sizer, Fgraph, [{flag, ?wxEXPAND}, {proportion, 1}]),
+ wxPanel:setSizer(Panel, Sizer),
+ %% wxSizer:fit(Sizer, Frame),
+ %% wxSizer:setSizeHints(Sizer, Frame),
+ wxFrame:connect(Frame, close_window),
+ wxFrame:show(Frame),
+ FW = #fgraph_win{frame = Frame, pid = Server},
+ S#state{fgraph_wins = [FW | S#state.fgraph_wins]}.
+
+reset_config(#state{status_bar = Bar} = S) ->
+ wxStatusBar:setStatusText(Bar, "Processing libraries..."),
+ Status = reltool_server:reset_config(S#state.server_pid),
+ check_and_refresh(S, Status).
+
+undo_config(#state{status_bar = Bar} = S) ->
+ wxStatusBar:setStatusText(Bar, "Processing libraries..."),
+ ok = reltool_server:undo_config(S#state.server_pid),
+ refresh(S).
+
+load_config(#state{status_bar = Bar, config_file = OldFile} = S) ->
+ Style = ?wxFD_OPEN bor ?wxFD_FILE_MUST_EXIST,
+ case select_file(S#state.frame, "Select a file to load the configuration from", OldFile, Style) of
+ {ok, NewFile} ->
+ wxStatusBar:setStatusText(Bar, "Processing libraries..."),
+ Status = reltool_server:load_config(S#state.server_pid, NewFile),
+ check_and_refresh(S#state{config_file = NewFile}, Status);
+ cancel ->
+ S
+ end.
+
+save_config(#state{config_file = OldFile} = S, InclDefaults, InclDerivates) ->
+ Style = ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT,
+ case select_file(S#state.frame, "Select a file to save the configuration to", OldFile, Style) of
+ {ok, NewFile} ->
+ Status = reltool_server:save_config(S#state.server_pid, NewFile, InclDefaults, InclDerivates),
+ check_and_refresh(S#state{config_file = NewFile}, Status);
+ cancel ->
+ S
+ end.
+
+gen_rel_files(#state{target_dir = OldDir} = S) ->
+ Style = ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT,
+ case select_dir(S#state.frame, "Select a directory to generate rel, script and boot files to", OldDir, Style) of
+ {ok, NewDir} ->
+ Status = reltool_server:gen_rel_files(S#state.server_pid, NewDir),
+ check_and_refresh(S, Status);
+ cancel ->
+ S
+ end.
+
+gen_target(#state{target_dir = OldDir} = S) ->
+ Style = ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT,
+ case select_dir(S#state.frame, "Select a directory to generate a target system to", OldDir, Style) of
+ {ok, NewDir} ->
+ Status = reltool_server:gen_target(S#state.server_pid, NewDir),
+ check_and_refresh(S#state{target_dir = NewDir}, Status);
+ cancel ->
+ S
+ end.
+
+select_file(Frame, Message, DefaultFile, Style) ->
+ Dialog = wxFileDialog:new(Frame,
+ [{message, Message},
+ {defaultDir, filename:dirname(DefaultFile)},
+ {defaultFile, filename:basename(DefaultFile)},
+ {style, Style}]),
+ Choice =
+ case wxMessageDialog:showModal(Dialog) of
+ ?wxID_CANCEL -> cancel;
+ ?wxID_OK -> {ok, wxFileDialog:getPath(Dialog)}
+ end,
+ wxFileDialog:destroy(Dialog),
+ Choice.
+
+select_dir(Frame, Message, DefaultDir, Style) ->
+ Dialog = wxDirDialog:new(Frame,
+ [{title, Message},
+ {defaultPath, DefaultDir},
+ {style, Style}]),
+ Choice =
+ case wxMessageDialog:showModal(Dialog) of
+ ?wxID_CANCEL -> cancel;
+ ?wxID_OK -> {ok, wxDirDialog:getPath(Dialog)}
+ end,
+ wxDirDialog:destroy(Dialog),
+ Choice.
+
+check_and_refresh(S, Status) ->
+ case Status of
+ ok ->
+ true;
+ {ok, Warnings} ->
+ undo_dialog(S, Warnings);
+ {error, Reason} when is_list(Reason) ->
+ display_message(Reason, ?wxICON_ERROR),
+ false;
+ {error, Reason} ->
+ Msg = lists:flatten(io_lib:format("Error:\n\n~p\n", [Reason])),
+ display_message(Msg, ?wxICON_ERROR),
+ false
+ end,
+ refresh(S).
+
+refresh(S) ->
+ {ok, Sys} = reltool_server:get_sys(S#state.server_pid),
+ [ok = reltool_app_win:refresh(AW#app_win.pid) || AW <- S#state.app_wins],
+ S2 = S#state{sys = Sys},
+ S3 = redraw_libs(S2),
+ redraw_apps(S3).
+
+question_dialog(Question, Details) ->
+ %% Parent = S#state.frame,
+ Parent = wx:typeCast(wx:null(), wxWindow),
+ %% [{style, ?wxYES_NO bor ?wxICON_ERROR bor ?wx}]),
+ DialogStyle = ?wxRESIZE_BORDER bor ?wxCAPTION bor ?wxSYSTEM_MENU bor
+ ?wxMINIMIZE_BOX bor ?wxMAXIMIZE_BOX bor ?wxCLOSE_BOX,
+ Dialog = wxDialog:new(Parent, ?wxID_ANY, "Undo dialog", [{style, DialogStyle}]),
+ Color = wxWindow:getBackgroundColour(Dialog),
+ TextStyle = ?wxTE_READONLY bor ?wxTE_MULTILINE bor ?wxHSCROLL,
+ Text1 = wxTextCtrl:new(Dialog, ?wxID_ANY, [{style, ?wxTE_READONLY bor ?wxBORDER_NONE}]),
+ wxWindow:setBackgroundColour(Text1, Color),
+ wxTextCtrl:appendText(Text1, Question),
+ Text2 = wxTextCtrl:new(Dialog, ?wxID_ANY, [{size, {600, 400}}, {style, TextStyle}]),
+ wxWindow:setBackgroundColour(Text2, Color),
+ wxTextCtrl:appendText(Text2, Details),
+ %% wxDialog:setAffirmativeId(Dialog, ?wxID_YES),
+ %% wxDialog:setEscapeId(Dialog, ?wxID_NO),
+ Sizer = wxBoxSizer:new(?wxVERTICAL),
+ wxSizer:add(Sizer, Text1, [{border, 2}, {flag, ?wxEXPAND}]),
+ wxSizer:add(Sizer, Text2, [{border, 2}, {flag, ?wxEXPAND}, {proportion, 1}]),
+ ButtSizer = wxDialog:createStdDialogButtonSizer(Dialog, ?wxOK bor ?wxCANCEL),
+ wxSizer:add(Sizer, ButtSizer, [{border, 2}, {flag, ?wxEXPAND}]),
+ wxPanel:setSizer(Dialog, Sizer),
+ wxSizer:fit(Sizer, Dialog),
+ wxSizer:setSizeHints(Sizer, Dialog),
+ Answer = wxDialog:showModal(Dialog),
+ wxDialog:destroy(Dialog),
+ Answer.
+
+undo_dialog(_S, []) ->
+ true;
+undo_dialog(S, Warnings) ->
+ Question = "Do you want to perform the update despite these warnings?",
+ Details = lists:flatten([[W, $\n] || W <- Warnings]),
+ case question_dialog(Question, Details) of
+ ?wxID_OK ->
+ true;
+ ?wxID_CANCEL ->
+ reltool_server:undo_config(S#state.server_pid),
+ false
+ end.
+
+display_message(Message, Icon) ->
+ Dialog = wxMessageDialog:new(wx:null(),
+ Message,
+ [{style, ?wxOK bor Icon}]),
+ wxMessageDialog:showModal(Dialog),
+ wxMessageDialog:destroy(Dialog).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% sys callbacks
+
+system_continue(_Parent, _Debug, S) ->
+ ?MODULE:loop(S).
+
+system_terminate(Reason, _Parent, _Debug, _S) ->
+ exit(Reason).
+
+system_code_change(S,_Module,_OldVsn,_Extra) ->
+ {ok, S}.