The R13B03 release.OTP_R13B03

1 files changed, 163 insertions, 0 deletions

diff --git a/lib/debugger/src/dbg_wx_code.erl b/lib/debugger/src/dbg_wx_code.erl
new file mode 100644
index 0000000000..99826d9bdb
--- /dev/null
+++ b/lib/debugger/src/dbg_wx_code.erl
@@ -0,0 +1,163 @@
+%%
+%% %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_code).
+
+-export([code_area/1, 
+	 load_code/2, unload_code/1, 
+	 add_break_to_code/3, del_break_from_code/2,
+	 find/4,
+	 goto_pos/2, current_pos/1,
+	 mark_line/3, get_no_lines/1, goto_line/2]).
+
+-include_lib("wx/include/wx.hrl").
+
+-define(stc, wxStyledTextCtrl).
+
+code_area(Parent) ->
+    FixedFont = wxFont:new(10, ?wxFONTFAMILY_TELETYPE, ?wxNORMAL, ?wxNORMAL,[]),
+    %%Ed = wxStyledTextCtrl:new(Parent, [{size, {700, 500}}]),
+    Ed = wxStyledTextCtrl:new(Parent),
+
+    ?stc:styleClearAll(Ed),
+    ?stc:styleSetFont(Ed, ?wxSTC_STYLE_DEFAULT, FixedFont),
+    ?stc:setLexer(Ed, ?wxSTC_LEX_ERLANG),
+    ?stc:setMarginType(Ed, 0, ?wxSTC_MARGIN_NUMBER),
+    LW = ?stc:textWidth(Ed, ?wxSTC_STYLE_LINENUMBER, "9"),
+    ?stc:setMarginWidth(Ed, 0, LW),
+
+    ?stc:setSelectionMode(Ed, ?wxSTC_SEL_LINES),
+    %%?stc:hideSelection(Ed, true),
+
+    Styles =  [{?wxSTC_ERLANG_DEFAULT,  {0,0,0}},
+	       {?wxSTC_ERLANG_COMMENT,  {160,53,35}},
+	       {?wxSTC_ERLANG_VARIABLE, {150,100,40}},
+	       {?wxSTC_ERLANG_NUMBER,   {5,5,100}},
+	       {?wxSTC_ERLANG_KEYWORD,  {130,40,172}},
+	       {?wxSTC_ERLANG_STRING,   {170,45,132}},
+	       {?wxSTC_ERLANG_OPERATOR, {30,0,0}},
+	       {?wxSTC_ERLANG_ATOM,     {0,0,0}},
+	       {?wxSTC_ERLANG_FUNCTION_NAME, {64,102,244}},
+	       {?wxSTC_ERLANG_CHARACTER,{236,155,172}},
+	       {?wxSTC_ERLANG_MACRO,    {40,144,170}},
+	       {?wxSTC_ERLANG_RECORD,   {40,100,20}},
+	       {?wxSTC_ERLANG_SEPARATOR,{0,0,0}},
+	       {?wxSTC_ERLANG_NODE_NAME,{0,0,0}}],
+    SetStyle = fun({Style, Color}) ->
+		       ?stc:styleSetFont(Ed, Style, FixedFont),
+		       ?stc:styleSetForeground(Ed, Style, Color)
+	       end,
+    [SetStyle(Style) || Style <- Styles],
+    ?stc:setKeyWords(Ed, 0, keyWords()),
+
+    %% Margins Markers
+    %% Breakpoint Should be a pixmap?
+    ?stc:markerDefine(Ed, 0, ?wxSTC_MARK_CIRCLE, [{foreground, {170,20,20}}]),    
+    ?stc:markerDefine(Ed, 0, ?wxSTC_MARK_CIRCLE, [{background, {200,120,120}}]),    
+    %% Disabled Breakpoint 
+    ?stc:markerDefine(Ed, 1, ?wxSTC_MARK_CIRCLE, [{foreground, {20,20,170}}]),
+    ?stc:markerDefine(Ed, 1, ?wxSTC_MARK_CIRCLE, [{background, {120,120,200}}]),
+    
+    %% Current Line
+    ?stc:markerDefine(Ed, 2, ?wxSTC_MARK_ARROW,  [{foreground, {20,170,20}}]),
+    ?stc:markerDefine(Ed, 2, ?wxSTC_MARK_ARROW,  [{background, {200,255,200}}]),
+    ?stc:markerDefine(Ed, 3, ?wxSTC_MARK_BACKGROUND, [{background, {200,255,200}}]),
+
+    %% Scrolling
+    Policy = ?wxSTC_CARET_SLOP bor ?wxSTC_CARET_JUMPS bor ?wxSTC_CARET_EVEN, 
+    ?stc:setYCaretPolicy(Ed, Policy, 3),
+    ?stc:setVisiblePolicy(Ed, Policy, 3),
+
+    ?stc:connect(Ed, stc_doubleclick),
+    ?stc:setReadOnly(Ed, true),
+    Ed.
+
+load_code(Ed, Code) ->
+    ?stc:setReadOnly(Ed, false),
+    ?stc:setTextRaw(Ed, Code),
+    Lines = ?stc:getLineCount(Ed),
+    Sz = trunc(math:log10(Lines))+1,
+    LW = ?stc:textWidth(Ed, ?wxSTC_STYLE_LINENUMBER, lists:duplicate(Sz, $9)),
+    %%io:format("~p ~p ~p~n", [Lines, Sz, LW]),
+    ?stc:setMarginWidth(Ed, 0, LW+5),
+    ?stc:setReadOnly(Ed, true),
+    Ed.
+
+unload_code(Ed) ->
+    ?stc:setReadOnly(Ed, false),
+    ?stc:setTextRaw(Ed, <<0:8>>),
+    ?stc:setReadOnly(Ed, true),
+    Ed.
+
+add_break_to_code(Ed, Line, active) ->
+    ?stc:markerDelete(Ed, Line-1, 1),
+    ?stc:markerAdd(Ed, Line-1, 0);
+add_break_to_code(Ed, Line, inactive) ->
+    ?stc:markerDelete(Ed, Line-1, 0),
+    ?stc:markerAdd(Ed, Line-1, 1).
+
+del_break_from_code(Ed,Line) ->
+    ?stc:markerDelete(Ed, Line-1, 0),
+    ?stc:markerDelete(Ed, Line-1, 1).
+
+mark_line(Ed,Prev,Line) ->
+    goto_line(Ed, Line),
+    ?stc:markerDelete(Ed, Prev-1, 2), 
+    ?stc:markerAdd(Ed, Line-1, 2),
+    ?stc:markerDelete(Ed, Prev-1, 3), 
+    ?stc:markerAdd(Ed, Line-1, 3).
+
+get_no_lines(Ed) ->
+    ?stc:getLineCount(Ed).
+    
+goto_line(_Ed,0) -> ignore;
+goto_line(Ed,Line) ->
+    ?stc:gotoLine(Ed, Line-1).
+
+current_pos(Ed) ->
+    ?stc:getCurrentPos(Ed).
+    
+goto_pos(Ed,Pos) ->
+    ?stc:gotoPos(Ed, Pos).
+
+find(Ed, Str, Case, Next) ->
+    ?stc:searchAnchor(Ed),
+    Flag = 
+	if  Case -> ?wxSTC_FIND_MATCHCASE;
+	    true -> 0
+	end,
+    Res = 
+	if 
+	    Next -> ?stc:searchNext(Ed, Flag, Str);
+	    true -> ?stc:searchPrev(Ed, Flag, Str)
+	end,
+    case Res >= 0 of	
+	true -> 
+	    %% io:format("Found ~p ~n",[Res]),
+	    ?stc:scrollToLine(Ed,?stc:lineFromPosition(Ed,Res) - 3),
+	    true;
+	false ->
+	    false
+    end.
+   
+keyWords() ->
+    L = ["after","begin","case","try","cond","catch","andalso","orelse",
+	 "end","fun","if","let","of","query","receive","when","bnot","not",
+	 "div","rem","band","and","bor","bxor","bsl","bsr","or","xor"],
+    lists:flatten([K ++ " " || K <- L] ++ [0]).