aboutsummaryrefslogtreecommitdiffstats
path: root/lib/debugger/src/dbg_ui_filedialog_win.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/debugger/src/dbg_ui_filedialog_win.erl')
-rw-r--r--lib/debugger/src/dbg_ui_filedialog_win.erl338
1 files changed, 338 insertions, 0 deletions
diff --git a/lib/debugger/src/dbg_ui_filedialog_win.erl b/lib/debugger/src/dbg_ui_filedialog_win.erl
new file mode 100644
index 0000000000..f7d76076a5
--- /dev/null
+++ b/lib/debugger/src/dbg_ui_filedialog_win.erl
@@ -0,0 +1,338 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2002-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_ui_filedialog_win).
+
+%% External exports
+-export([create_win/6, create_win/7, get_window/1,
+ tag/2,
+ handle_event/2]).
+
+-record(winInfo, {window, % gsobj()
+ extra, % fun()
+ cwd, % string()
+ pattern % string()
+ }).
+
+%%====================================================================
+%% External exports
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% create_win(GS, Title, Pos, Mode, Filter, Extra)
+%% create_win(GS, Title, Pos, Mode, Filter, Extra, FileName) -> #winInfo{}
+%% GS = term()
+%% Title = string()
+%% Pos = {X,Y}
+%% Mode = normal | multiselect
+%% Filter = string() File name that may include * symbols.
+%% Extra = fun(File) -> {true, tag} | true | {error, term()}
+%% FileName = string() Suggested file name when saving
+%%--------------------------------------------------------------------
+create_win(GS, Title, {X,Y}, Mode, Filter, Extra) ->
+ create_win(GS, Title, {X,Y}, Mode, Filter, Extra, null).
+create_win(GS, Title, {X,Y}, Mode, Filter, Extra, FileName) ->
+ Pad = 8,
+ Wlb = 480, Hlb = 130,
+
+ Font = dbg_ui_win:font(normal),
+
+ {Wlbl, Hlbl} = dbg_ui_win:min_size(["Directories"], 80, 20),
+ {Wbtn, Hbtn} = dbg_ui_win:min_size(["Filter","Cancel"], 70, 30),
+
+ %% Window
+ Win = gs:window(GS, [{title,Title}, {x, X}, {y,Y}, {destroy,true}]),
+
+ %% 'Filter' label and entry (for selecting directory)
+ gs:label(Win, [{label, {text,"Filter"}}, {font, Font}, {align, sw},
+ {x, Pad+2}, {y, Pad}, {width,Wlbl}, {height,Hlbl}]),
+ gs:entry('Filter', Win, [{x, Pad}, {y, Pad+Hlbl},
+ {width, Wlb}, {height, Hbtn},
+ {keypress, true}]),
+
+ %% Listboxes (showing directories and files)
+ Xmid = Pad + Wlb/2,
+ Y2 = Pad + Hlbl + Hbtn + Pad,
+ gs:label(Win, [{label, {text,"Directories"}},
+ {font, Font}, {align, sw},
+ {x, Pad+2}, {y, Y2},
+ {width, Wlbl}, {height, Hlbl}]),
+ gs:label(Win, [{label, {text,"Files"}},
+ {font, Font}, {align, sw},
+ {x, Xmid+Pad/2+2}, {y, Y2},
+ {width, Wlbl}, {height, Hlbl}]),
+ gs:listbox('Dirs', Win, [{x, Pad}, {y, Y2+Hlbl},
+ {width, Wlb/2-Pad/2}, {height, Hlb},
+ {vscroll, right},
+ {click, true}, {doubleclick, true}]),
+ gs:listbox('Files', Win, [{x, Xmid+Pad/2}, {y, Y2+Hlbl},
+ {width, Wlb/2-Pad/2}, {height, Hlb},
+ {vscroll, right},
+ {click, true}, {doubleclick, true}]),
+
+ %% 'Selection' label and entry (for selecting file)
+ Y3 = Y2 + Hlbl + Hlb,
+ gs:label(Win, [{label, {text,"Selection"}}, {font,Font}, {align,sw},
+ {x, Pad+2}, {y, Y3}, {width, Wlbl}, {height, Hlbl}]),
+ gs:entry('Selection', Win, [{x, Pad}, {y, Y3+Hlbl},
+ {width, Wlb}, {height, Hbtn},
+ {keypress, true}]),
+
+ %% Buttons
+ Y4 = Y3 + Hlbl + Hbtn + Pad,
+ Wb = Wlb - Wbtn,
+ Opts = [{y, Y4}, {width, Wbtn}, {height, Hbtn}, {font, Font}],
+ case Mode of
+ normal ->
+ gs:button(Win, [{label, {text,"Ok"}}, {x, Pad},
+ {data, select} | Opts]),
+ gs:button(Win, [{label, {text,"Filter"}}, {x, Wlb/2-Wbtn/2},
+ {data, filter} | Opts]),
+ gs:button(Win, [{label, {text,"Cancel"}}, {x, Pad+Wb},
+ {data, done} | Opts]);
+ multiselect ->
+ gs:button(Win, [{label, {text,"Choose"}}, {x, Pad},
+ {data, select} | Opts]),
+ gs:button(Win, [{label, {text,"All"}}, {x, Pad+Wb/3},
+ {data, multiselect} | Opts]),
+ gs:button(Win, [{label, {text,"Filter"}}, {x, Pad+2*Wb/3},
+ {data, filter} | Opts]),
+ gs:button(Win, [{label, {text,"Done"}}, {x, Pad+Wb},
+ {data, done} | Opts])
+ end,
+
+ %% Insert contents
+ {ok, Home} = file:get_cwd(),
+ {Cwd, Pattern} = update_win(Filter, Extra, Home),
+ if
+ is_list(FileName) ->
+ gs:config('Selection', {text, filename:join(Cwd,FileName)});
+ true -> ignore
+ end,
+
+ Wwin = Pad + Wlb + Pad,
+ Hwin = Y4 + Hbtn + Pad,
+ gs:config(Win, [{width, Wwin}, {height, Hwin}, {map, true}]),
+
+ #winInfo{window=Win, extra=Extra, cwd=Cwd, pattern=Pattern}.
+
+%%--------------------------------------------------------------------
+%% get_window(WinInfo) -> Window
+%% WinInfo = #winInfo{}
+%% Window = gsobj()
+%%--------------------------------------------------------------------
+get_window(WinInfo) ->
+ WinInfo#winInfo.window.
+
+%%--------------------------------------------------------------------
+%% tag(WinInfo, File)
+%% WinInfo = #winInfo{}
+%% File = string()
+%%--------------------------------------------------------------------
+tag(WinInfo, File0) ->
+ File = relfile(WinInfo#winInfo.cwd, File0),
+ case member(File, gs:read('Files', items)) of
+ {true, Index} -> gs:config('Files', {change, {Index, tag(File)}});
+ false -> ignore
+ end.
+
+tag(Str) -> [$*|Str].
+untag([$*|Str]) -> Str;
+untag([$(|Str]) -> [$)|Rts] = lists:reverse(Str),lists:reverse(Rts);
+untag(Str) -> Str.
+
+member(E, L) -> member(E, L, 0).
+member(E, [E|_], I) -> {true, I};
+member(E, [_|T], I) -> member(E, T, I+1);
+member(_E, [], _I) -> false.
+
+%%--------------------------------------------------------------------
+%% handle_event(GSEvent, WinInfo) -> Command
+%% GSEvent = {gs, Id, Event, Data, Arg}
+%% WinInfo = #winInfo{}
+%% Command = ignore
+%% | {stopped, Dir}
+%% | {win, WinInfo}
+%% | {select, File} | {multiselect, Dir, FileNames}
+%%--------------------------------------------------------------------
+handle_event({gs, _Id, destroy, _Data, _Args}, WinInfo) ->
+ {stopped, WinInfo#winInfo.cwd};
+
+handle_event({gs, 'Filter', keypress, _Data, ['Return'|_]}, WinInfo) ->
+ handle_event({gs, null, click, filter, null}, WinInfo);
+handle_event({gs, 'Selection', keypress, _Data, ['Return'|_]}, WinInfo) ->
+ handle_event({gs, null, click, select, null}, WinInfo);
+
+handle_event({gs, 'Dirs', click, _Data, [0,"..",true|_]}, WinInfo) ->
+ Filter = filename:join(filename:dirname(WinInfo#winInfo.cwd),
+ WinInfo#winInfo.pattern),
+ gs:config('Filter', {text, Filter}),
+ ignore;
+handle_event({gs, 'Dirs', click, _Data, [_Index,Str,true|_]}, WinInfo) ->
+ Filter = filename:join([WinInfo#winInfo.cwd, Str,
+ WinInfo#winInfo.pattern]),
+ gs:config('Filter', {text, Filter}),
+ ignore;
+handle_event({gs, 'Dirs', doubleclick, _Data, _Arg}, WinInfo) ->
+ handle_event({gs, null, click, filter, null}, WinInfo);
+
+handle_event({gs, 'Files', click, _Data, [_Index,Str,true|_]}, WinInfo) ->
+ Selection = filename:join(WinInfo#winInfo.cwd, untag(Str)),
+ gs:config('Selection', {text, Selection}),
+ ignore;
+handle_event({gs, 'Files', doubleclick, _Data, _Arg}, WinInfo) ->
+ handle_event({gs, null, click, select, null}, WinInfo);
+
+handle_event({gs, _Id, click, select, _Arg}, _WinInfo) ->
+ {select, gs:read('Selection', text)};
+handle_event({gs, _Id, click, multiselect, _Arg}, WinInfo) ->
+ Files = lists:map(fun(File) -> untag(File) end,
+ gs:read('Files', items)),
+ {multiselect, WinInfo#winInfo.cwd, Files};
+handle_event({gs, _Id, click, filter, _Arg}, WinInfo) ->
+ {Cwd, Pattern} = update_win(gs:read('Filter', text),
+ WinInfo#winInfo.extra,
+ WinInfo#winInfo.cwd),
+ {win, WinInfo#winInfo{cwd=Cwd, pattern=Pattern}};
+handle_event({gs, _Id, click, done, _Arg}, WinInfo) ->
+ {stopped, WinInfo#winInfo.cwd};
+
+handle_event(_GSEvent, _WinInfo) ->
+ ignore.
+
+%%====================================================================
+%% Internal functions
+%%====================================================================
+
+update_win(Filter, ExtraFilter, Prev) ->
+ {Res, {Filter2, Cwd, FilePattern}} = check_filter(Filter, Prev),
+
+ Dirs = [".." | get_subdirs(Cwd)],
+
+ gs:config('Filter', {text, Filter2}),
+ gs:config('Dirs', {items, Dirs}),
+ gs:config('Selection', {text, Cwd}),
+
+ case Res of
+ ok ->
+ Matching = lists:sort(filelib:wildcard(Filter2, erl_prim_loader)),
+ Files = extra_filter(Matching, Cwd, ExtraFilter),
+ gs:config('Files', {items, Files});
+ error ->
+ gs:config('Files', beep)
+ end,
+
+ {Cwd, FilePattern}.
+
+%% check_filter(Filter, Prev) -> {ok, Res} | {error, Res}
+%% Res = {Filter, Cwd, FilePattern}
+%% Filter = Prev = Cwd = FilePattern = string()
+check_filter(Filter0, Prev) ->
+ Filter = case filename:pathtype(Filter0) of
+ absolute -> Filter0;
+ _Relative -> filename:absname(Filter0, Prev)
+ end,
+ Comps = filename:split(Filter),
+ Last = lists:last(Comps),
+ FilePattern = case is_pattern(Last) of
+ true -> Last;
+ false -> "*"
+ end,
+ {Cwd, Rest} = max_existing(Comps),
+ case Rest of
+ [] ->
+ %% Filter = existing file or directory
+ Res = case filelib:is_dir(Filter, erl_prim_loader) of
+ true -> {filename:join(Filter, "*"), Filter, "*"};
+ false -> {Filter, filename:dirname(Filter),
+ filename:basename(Filter)}
+ end,
+ {ok, Res};
+ [FilePattern] ->
+ %% Filter = existing dir and valid pattern
+ {ok, {Filter, Cwd, FilePattern}};
+ Comps ->
+ %% Filter = garbage
+ {error, {Prev, Prev, "*"}};
+ [Name|_Names] ->
+ %% Filter = existing dir ++ pattern or non-existing file/dir
+ case is_pattern(Name) of
+ true -> {ok, {Filter, Cwd, FilePattern}};
+ false -> {error, {Cwd, Cwd, ""}}
+ end
+ end.
+
+max_existing([Name | Names]) ->
+ case filelib:is_file(Name, erl_prim_loader) of
+ true -> max_existing(Name, Names);
+ false -> {[], [Name | Names]}
+ end.
+max_existing(Dir, [Name | Names]) ->
+ Dir2 = filename:join(Dir, Name),
+ case filelib:is_file(Dir2, erl_prim_loader) of
+ true when Names==[] -> {Dir2, []};
+ true -> max_existing(Dir2, Names);
+ false -> {Dir, [Name | Names]}
+ end.
+
+is_pattern(Str) ->
+ lists:member($*, Str).
+
+extra_filter([File|Files], Dir, Fun) ->
+ case Fun(File) of
+ true ->
+ [relfile(Dir, File) | extra_filter(Files, Dir, Fun)];
+ {true,tag} ->
+ [[$*|relfile(Dir,File)] | extra_filter(Files, Dir, Fun)];
+ {true,disable} ->
+ [[$(|relfile(Dir,File)]++[$)] | extra_filter(Files, Dir, Fun)];
+ {error, _Reason} -> extra_filter(Files, Dir, Fun)
+ end;
+extra_filter([], _Dir, _Fun) -> [].
+
+get_subdirs(Dir) ->
+ case erl_prim_loader:list_dir(Dir) of
+ {ok, FileNames} ->
+ X = lists:filter(fun(FileName) ->
+ File = filename:join(Dir, FileName),
+ filelib:is_dir(File, erl_prim_loader)
+ end,
+ FileNames),
+ lists:sort(X);
+ _Error ->
+ []
+ end.
+
+%% Return the "remainder" of a file name relative a dir name, examples:
+%% relfile("/home/gunilla", "/home/gunilla/m.erl") -> "m.erl"
+%% relfile("/home/gunilla/dir", "/home/gunilla/dir/m.erl") -> "dir/m.erl"
+%% relfile("/home/gunilla", "/home/arne/m.erl") -> "/home/arne/m.erl"
+relfile(Dir, File) ->
+ case compare(Dir, File) of
+ error -> File;
+ RelFile -> RelFile
+ end.
+
+compare([_|Dir], [_|File]) ->
+ compare(Dir, File);
+compare([], [$/|File]) ->
+ File;
+compare(_, _) ->
+ error.
+