Remove dead file
This commit is contained in:
parent
dea44561ee
commit
020d3f554b
198
src/:
198
src/:
@ -1,198 +0,0 @@
|
|||||||
-module(gd_sophia_editor).
|
|
||||||
-export([new/1, update/2,
|
|
||||||
get_text/1, set_text/2]).
|
|
||||||
|
|
||||||
-include("$zx_include/zx_logger.hrl").
|
|
||||||
-include_lib("wx/include/wx.hrl").
|
|
||||||
|
|
||||||
|
|
||||||
%%% Formatting Constants
|
|
||||||
|
|
||||||
%% Style labels
|
|
||||||
-define(DEFAULT, 0).
|
|
||||||
-define(KEYWORD, 1).
|
|
||||||
-define(IDENTIFIER, 2).
|
|
||||||
-define(COMMENT, 3).
|
|
||||||
-define(STRING, 4).
|
|
||||||
-define(NUMBER, 5).
|
|
||||||
-define(OPERATOR, 6).
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
%% Color palette
|
|
||||||
|
|
||||||
% Intensities:
|
|
||||||
-define(H, 255). % High
|
|
||||||
-define(M, 192). % Medium
|
|
||||||
-define(L, 128). % Low
|
|
||||||
-define(X, 32). % X-Low
|
|
||||||
-define(Z, 0). % Zilch
|
|
||||||
|
|
||||||
|
|
||||||
% RGB values
|
|
||||||
% R G B
|
|
||||||
-define(black, {?Z, ?Z, ?Z}).
|
|
||||||
-define(light_red, {?H, ?Z, ?Z}).
|
|
||||||
-define(light_green, {?Z, ?H, ?Z}).
|
|
||||||
-define(light_blue, {?Z, ?Z, ?H}).
|
|
||||||
-define(yellow, {?H, ?H, ?Z}).
|
|
||||||
-define(light_magenta, {?H, ?Z, ?H}).
|
|
||||||
-define(light_cyan, {?Z, ?H, ?H}).
|
|
||||||
-define(high_white, {?H, ?H, ?H}).
|
|
||||||
-define(red, {?L, ?Z, ?Z}).
|
|
||||||
-define(green, {?Z, ?L, ?Z}).
|
|
||||||
-define(blue, {?Z, ?Z, ?L}).
|
|
||||||
-define(brown, {?L, ?L, ?Z}).
|
|
||||||
-define(magenta, {?L, ?Z, ?L}).
|
|
||||||
-define(cyan, {?Z, ?L, ?L}).
|
|
||||||
-define(not_black, {?X, ?X, ?X}).
|
|
||||||
-define(grey, {?L, ?L, ?L}).
|
|
||||||
-define(white, {?M, ?M, ?M}).
|
|
||||||
|
|
||||||
styles() ->
|
|
||||||
[?DEFAULT,
|
|
||||||
?KEYWORD,
|
|
||||||
?IDENTIFIER,
|
|
||||||
?COMMENT,
|
|
||||||
?STRING,
|
|
||||||
?NUMBER,
|
|
||||||
?OPERATOR].
|
|
||||||
|
|
||||||
palette(light) ->
|
|
||||||
#{?DEFAULT => ?black,
|
|
||||||
?KEYWORD => ?blue,
|
|
||||||
?IDENTIFIER => ?cyan,
|
|
||||||
?COMMENT => ?grey,
|
|
||||||
?STRING => ?red,
|
|
||||||
?NUMBER => ?magenta,
|
|
||||||
?OPERATOR => ?brown,
|
|
||||||
bg => ?high_white};
|
|
||||||
palette(dark) ->
|
|
||||||
#{?DEFAULT => ?white,
|
|
||||||
?KEYWORD => ?light_cyan,
|
|
||||||
?IDENTIFIER => ?green,
|
|
||||||
?COMMENT => ?grey,
|
|
||||||
?STRING => ?light_red,
|
|
||||||
?NUMBER => ?light_magenta,
|
|
||||||
?OPERATOR => ?yellow,
|
|
||||||
bg => ?not_black}.
|
|
||||||
|
|
||||||
color_mode() ->
|
|
||||||
{R, G, B, _} = wxSystemSettings:getColour(?wxSYS_COLOUR_WINDOW),
|
|
||||||
case (lists:sum([R, G, B]) div 3) > 128 of
|
|
||||||
true -> light;
|
|
||||||
false -> dark
|
|
||||||
end.
|
|
||||||
|
|
||||||
|
|
||||||
new(Parent) ->
|
|
||||||
STC = wxStyledTextCtrl:new(Parent),
|
|
||||||
ok = wxStyledTextCtrl:setLexer(STC, ?wxSTC_LEX_CONTAINER),
|
|
||||||
FontSize = 13,
|
|
||||||
Mono = wxFont:new(FontSize,
|
|
||||||
?wxFONTFAMILY_TELETYPE,
|
|
||||||
?wxFONTSTYLE_NORMAL,
|
|
||||||
?wxFONTWEIGHT_NORMAL,
|
|
||||||
[{face, "Monospace"}]),
|
|
||||||
SetMonospace = fun(Style) -> wxStyledTextCtrl:styleSetFont(STC, Style, Mono) end,
|
|
||||||
ok = lists:foreach(SetMonospace, styles()),
|
|
||||||
ok = wxStyledTextCtrl:styleSetFont(STC, ?wxSTC_STYLE_DEFAULT, Mono),
|
|
||||||
ok = set_colors(STC),
|
|
||||||
STC.
|
|
||||||
|
|
||||||
get_text(STC) ->
|
|
||||||
wxStyledTextCtrl:getText(STC).
|
|
||||||
|
|
||||||
set_text(STC, Text) ->
|
|
||||||
ok = wxStyledTextCtrl:setText(STC, Text),
|
|
||||||
%% Force Scintilla to request styling for the entire text
|
|
||||||
wxStyledTextCtrl:colourise(STC, 0, -1).
|
|
||||||
|
|
||||||
%% ======================================================================
|
|
||||||
|
|
||||||
set_colors(STC) ->
|
|
||||||
ok = wxStyledTextCtrl:styleClearAll(STC),
|
|
||||||
Palette = #{bg := BGC} = palette(color_mode()),
|
|
||||||
Colorize =
|
|
||||||
fun(Style) ->
|
|
||||||
Color = maps:get(Style, Palette),
|
|
||||||
ok = wxStyledTextCtrl:styleSetForeground(STC, Style, Color),
|
|
||||||
ok = wxStyledTextCtrl:styleSetBackground(STC, Style, BGC)
|
|
||||||
end,
|
|
||||||
ok = wxStyledTextCtrl:styleSetBackground(STC, ?wxSTC_STYLE_DEFAULT, BGC),
|
|
||||||
lists:foreach(Colorize, styles()).
|
|
||||||
|
|
||||||
|
|
||||||
update(_Event, STC) ->
|
|
||||||
try
|
|
||||||
StartPos = wxStyledTextCtrl:getEndStyled(STC),
|
|
||||||
EndPos = wxStyledTextCtrl:getLength(STC),
|
|
||||||
Text = wxStyledTextCtrl:getTextRange(STC, StartPos, EndPos),
|
|
||||||
case so_scan:scan(Text) of
|
|
||||||
{ok, Tokens} ->
|
|
||||||
wxStyledTextCtrl:startStyling(STC, StartPos),
|
|
||||||
apply_styles(STC, Tokens);
|
|
||||||
{error, _Reason} ->
|
|
||||||
wxStyledTextCtrl:startStyling(STC, StartPos),
|
|
||||||
wxStyledTextCtrl:setStyling(STC, EndPos - StartPos, 0)
|
|
||||||
end
|
|
||||||
catch
|
|
||||||
error:E:T ->
|
|
||||||
dbg("CAUGHT error:~p / ~p~n", [E, T])
|
|
||||||
end.
|
|
||||||
|
|
||||||
apply_styles(STC, Tokens) ->
|
|
||||||
lists:foreach(fun(Token) -> style_token(STC, Token) end, Tokens).
|
|
||||||
|
|
||||||
style_token(STC, Token) ->
|
|
||||||
{Type, Value} = type_and_value(Token),
|
|
||||||
{Line, Col} = element(2, Token),
|
|
||||||
Len = byte_size(to_binary(Value)),
|
|
||||||
Style = classify_style(Type, Value),
|
|
||||||
% Get exact position from Line and Column
|
|
||||||
Start = wxStyledTextCtrl:positionFromLine(STC, Line - 1) + (Col - 1),
|
|
||||||
wxStyledTextCtrl:startStyling(STC, Start),
|
|
||||||
wxStyledTextCtrl:setStyling(STC, Len, Style).
|
|
||||||
|
|
||||||
to_binary(S) when is_list(S) ->
|
|
||||||
unicode:characters_to_binary(S);
|
|
||||||
to_binary(S) when is_binary(S) ->
|
|
||||||
S;
|
|
||||||
to_binary(I) when is_integer(I) ->
|
|
||||||
integer_to_binary(I).
|
|
||||||
|
|
||||||
classify_style(Type, Value) ->
|
|
||||||
case Type of
|
|
||||||
symbol ->
|
|
||||||
case lists:member(Value, keywords()) of
|
|
||||||
true -> ?KEYWORD;
|
|
||||||
false -> ?OPERATOR
|
|
||||||
end;
|
|
||||||
id -> ?IDENTIFIER;
|
|
||||||
qid -> ?IDENTIFIER;
|
|
||||||
con -> ?IDENTIFIER;
|
|
||||||
qcon -> ?IDENTIFIER;
|
|
||||||
tvar -> ?IDENTIFIER;
|
|
||||||
string -> ?STRING;
|
|
||||||
char -> ?STRING;
|
|
||||||
int -> ?NUMBER;
|
|
||||||
hex -> ?NUMBER;
|
|
||||||
bytes -> ?NUMBER;
|
|
||||||
skip -> ?COMMENT;
|
|
||||||
_Other -> ?DEFAULT
|
|
||||||
end.
|
|
||||||
|
|
||||||
type_and_value({Type,_Line,Value}) -> {Type, Value};
|
|
||||||
type_and_value({Type, _}) -> {Type, atom_to_list(Type)}.
|
|
||||||
|
|
||||||
keywords() ->
|
|
||||||
["contract", "include", "let", "switch", "type", "record", "datatype", "if",
|
|
||||||
"elif", "else", "function", "stateful", "payable", "true", "false", "mod",
|
|
||||||
"public", "entrypoint", "private", "indexed", "namespace", "interface",
|
|
||||||
"main", "using", "as", "for", "hiding", "band", "bor", "bxor", "bnot"].
|
|
||||||
|
|
||||||
%% dbg(Fmt) ->
|
|
||||||
%% dbg(Fmt, []).
|
|
||||||
|
|
||||||
dbg(Fmt, Args) ->
|
|
||||||
io:format("~p: " ++ Fmt, [self()|Args]).
|
|
||||||
Loading…
x
Reference in New Issue
Block a user