forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

highlighter, added user-defined keyword + user-defined attributes for these KW

This commit is contained in:
Basile Burg 2015-12-10 07:13:55 +01:00
parent 1226c3bed0
commit f39aaf5e36
1 changed files with 68 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
src/ce_d2syn.pas
View File

@ -61,7 +61,7 @@ type
function find(const aValue: string): boolean; {$IFNDEF DEBUG}inline;{$ENDIF} function find(const aValue: string): boolean; {$IFNDEF DEBUG}inline;{$ENDIF}
end; end;
TTokenKind = (tkCommt, tkIdent, tkKeywd, tkStrng, tkBlank, tkSymbl, tkNumbr, tkCurrI, tkDDocs, tkSpecK); TTokenKind = (tkCommt, tkIdent, tkKeywd, tkStrng, tkBlank, tkSymbl, tkNumbr, tkCurrI, tkDDocs, tkSpecK, tkUsers);
TRangeKind = (rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm); TRangeKind = (rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm);
@ -112,6 +112,8 @@ type
fDDocsAttrib: TSynHighlighterAttributes; fDDocsAttrib: TSynHighlighterAttributes;
fAsblrAttrib: TSynHighlighterAttributes; fAsblrAttrib: TSynHighlighterAttributes;
fSpeckAttrib: TSynHighlighterAttributes; fSpeckAttrib: TSynHighlighterAttributes;
fUsersAttrib: TSynHighlighterAttributes;
fUserWords: TStringList;
fKeyWords: TD2Dictionary; fKeyWords: TD2Dictionary;
fSpecKw: TD2Dictionary; fSpecKw: TD2Dictionary;
fCurrIdent: string; fCurrIdent: string;
@ -121,24 +123,27 @@ type
fCurrRange: TSynD2SynRange; fCurrRange: TSynD2SynRange;
fFoldKinds: TFoldKinds; fFoldKinds: TFoldKinds;
fAttribLut: array[TTokenKind] of TSynHighlighterAttributes; fAttribLut: array[TTokenKind] of TSynHighlighterAttributes;
procedure setFoldKinds(aValue: TFoldKinds); procedure setFoldKinds(value: TFoldKinds);
procedure setWhiteAttrib(aValue: TSynHighlighterAttributes); procedure setWhiteAttrib(value: TSynHighlighterAttributes);
procedure setNumbrAttrib(aValue: TSynHighlighterAttributes); procedure setNumbrAttrib(value: TSynHighlighterAttributes);
procedure setSymblAttrib(aValue: TSynHighlighterAttributes); procedure setSymblAttrib(value: TSynHighlighterAttributes);
procedure setIdentAttrib(aValue: TSynHighlighterAttributes); procedure setIdentAttrib(value: TSynHighlighterAttributes);
procedure setCommtAttrib(aValue: TSynHighlighterAttributes); procedure setCommtAttrib(value: TSynHighlighterAttributes);
procedure setStrngAttrib(aValue: TSynHighlighterAttributes); procedure setStrngAttrib(value: TSynHighlighterAttributes);
procedure setKeywdAttrib(aValue: TSynHighlighterAttributes); procedure setKeywdAttrib(value: TSynHighlighterAttributes);
procedure setCurrIAttrib(aValue: TSynHighlighterAttributes); procedure setCurrIAttrib(value: TSynHighlighterAttributes);
procedure setDDocsAttrib(aValue: TSynHighlighterAttributes); procedure setDDocsAttrib(value: TSynHighlighterAttributes);
procedure setAsblrAttrib(aValue: TSynHighlighterAttributes); procedure setAsblrAttrib(value: TSynHighlighterAttributes);
procedure setSpeckAttrib(aValue: TSynHighlighterAttributes); procedure setSpeckAttrib(value: TSynHighlighterAttributes);
procedure setUsersAttrib(value: TSynHighlighterAttributes);
procedure setUsersWords(value: TStringList);
procedure doAttribChange(sender: TObject); procedure doAttribChange(sender: TObject);
procedure setCurrIdent(const aValue: string); procedure setCurrIdent(const value: string);
procedure doChanged; procedure doChanged;
protected protected
function GetRangeClass: TSynCustomHighlighterRangeClass; override; function GetRangeClass: TSynCustomHighlighterRangeClass; override;
published published
property UsersKeyWords: TStringList read fUserWords write setUsersWords;
property FoldKinds: TFoldKinds read fFoldKinds write setFoldKinds; property FoldKinds: TFoldKinds read fFoldKinds write setFoldKinds;
property WhiteAttrib: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib; property WhiteAttrib: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib;
property NumbrAttrib: TSynHighlighterAttributes read fNumbrAttrib write setNumbrAttrib; property NumbrAttrib: TSynHighlighterAttributes read fNumbrAttrib write setNumbrAttrib;
@ -151,6 +156,7 @@ type
property DDocsAttrib: TSynHighlighterAttributes read fDDocsAttrib write setDDocsAttrib; property DDocsAttrib: TSynHighlighterAttributes read fDDocsAttrib write setDDocsAttrib;
property AsblrAttrib: TSynHighlighterAttributes read fAsblrAttrib write setAsblrAttrib; property AsblrAttrib: TSynHighlighterAttributes read fAsblrAttrib write setAsblrAttrib;
property SpeckAttrib: TSynHighlighterAttributes read fSpeckAttrib write setSpeckAttrib; property SpeckAttrib: TSynHighlighterAttributes read fSpeckAttrib write setSpeckAttrib;
property UsersAttrib: TSynHighlighterAttributes read fUsersAttrib write setUsersAttrib;
public public
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
@ -298,6 +304,8 @@ begin
WordBreakChars := WordBreakChars - ['@']; WordBreakChars := WordBreakChars - ['@'];
fUserWords := TStringList.Create;
fWhiteAttrib := TSynHighlighterAttributes.Create('White','White'); fWhiteAttrib := TSynHighlighterAttributes.Create('White','White');
fNumbrAttrib := TSynHighlighterAttributes.Create('Number','Number'); fNumbrAttrib := TSynHighlighterAttributes.Create('Number','Number');
fSymblAttrib := TSynHighlighterAttributes.Create('Symbol','Symbol'); fSymblAttrib := TSynHighlighterAttributes.Create('Symbol','Symbol');
@ -309,6 +317,7 @@ begin
fDDocsAttrib := TSynHighlighterAttributes.Create('DDoc','DDoc'); fDDocsAttrib := TSynHighlighterAttributes.Create('DDoc','DDoc');
fAsblrAttrib := TSynHighlighterAttributes.Create('Asm','Asm'); fAsblrAttrib := TSynHighlighterAttributes.Create('Asm','Asm');
fSpeckAttrib := TSynHighlighterAttributes.Create('SpecialKeywords','SpecialKeywords'); fSpeckAttrib := TSynHighlighterAttributes.Create('SpecialKeywords','SpecialKeywords');
fUsersAttrib := TSynHighlighterAttributes.Create('UsersWords','UsersWords');
fNumbrAttrib.Foreground := $000079F2; fNumbrAttrib.Foreground := $000079F2;
fSymblAttrib.Foreground := clMaroon; fSymblAttrib.Foreground := clMaroon;
@ -318,6 +327,7 @@ begin
fKeywdAttrib.Foreground := clNavy; fKeywdAttrib.Foreground := clNavy;
fAsblrAttrib.Foreground := clGray; fAsblrAttrib.Foreground := clGray;
fSpeckAttrib.Foreground := clNavy; fSpeckAttrib.Foreground := clNavy;
fUsersAttrib.Foreground := clSilver;
fCurrIAttrib.Foreground := clBlack; fCurrIAttrib.Foreground := clBlack;
fCurrIAttrib.FrameEdges := sfeAround; fCurrIAttrib.FrameEdges := sfeAround;
@ -342,6 +352,7 @@ begin
AddAttribute(fDDocsAttrib); AddAttribute(fDDocsAttrib);
AddAttribute(fAsblrAttrib); AddAttribute(fAsblrAttrib);
AddAttribute(fSpeckAttrib); AddAttribute(fSpeckAttrib);
AddAttribute(fUsersAttrib);
fAttribLut[TTokenKind.tkident] := fIdentAttrib; fAttribLut[TTokenKind.tkident] := fIdentAttrib;
fAttribLut[TTokenKind.tkBlank] := fWhiteAttrib; fAttribLut[TTokenKind.tkBlank] := fWhiteAttrib;
@ -353,6 +364,7 @@ begin
fAttribLut[TTokenKind.tkCurrI] := fCurrIAttrib; fAttribLut[TTokenKind.tkCurrI] := fCurrIAttrib;
fAttribLut[TTokenKind.tkDDocs] := fDDocsAttrib; fAttribLut[TTokenKind.tkDDocs] := fDDocsAttrib;
fAttribLut[TTokenKind.tkSpecK] := fSpeckAttrib; fAttribLut[TTokenKind.tkSpecK] := fSpeckAttrib;
fAttribLut[TTokenKind.tkUsers] := fUsersAttrib;
SetAttributesOnChange(@doAttribChange); SetAttributesOnChange(@doAttribChange);
fTokStop := 1; fTokStop := 1;
@ -361,6 +373,7 @@ end;
destructor TSynD2Syn.destroy; destructor TSynD2Syn.destroy;
begin begin
fUserWords.Free;
fCurrRange.Free; fCurrRange.Free;
inherited; inherited;
end; end;
@ -374,6 +387,7 @@ begin
begin begin
srcsyn := TSynD2Syn(Source); srcsyn := TSynD2Syn(Source);
FoldKinds := srcsyn.FoldKinds; FoldKinds := srcsyn.FoldKinds;
fUserWords.Assign(srcsyn.UsersKeyWords);
end; end;
end; end;
@ -396,72 +410,82 @@ begin
end; end;
{$HINTS ON} {$HINTS ON}
procedure TSynD2Syn.setFoldKinds(aValue: TFoldKinds); procedure TSynD2Syn.setFoldKinds(value: TFoldKinds);
begin begin
fFoldKinds := aValue; fFoldKinds := value;
DoFoldConfigChanged(Self); DoFoldConfigChanged(Self);
doChanged; doChanged;
end; end;
procedure TSynD2Syn.setWhiteAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setWhiteAttrib(value: TSynHighlighterAttributes);
begin begin
fWhiteAttrib.Assign(aValue); fWhiteAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setNumbrAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setNumbrAttrib(value: TSynHighlighterAttributes);
begin begin
fNumbrAttrib.Assign(aValue); fNumbrAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setSymblAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setSymblAttrib(value: TSynHighlighterAttributes);
begin begin
fSymblAttrib.Assign(aValue); fSymblAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setIdentAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setIdentAttrib(value: TSynHighlighterAttributes);
begin begin
fIdentAttrib.Assign(aValue); fIdentAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setCommtAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setCommtAttrib(value: TSynHighlighterAttributes);
begin begin
fCommtAttrib.Assign(aValue); fCommtAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setStrngAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setStrngAttrib(value: TSynHighlighterAttributes);
begin begin
fStrngAttrib.Assign(aValue); fStrngAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setKeywdAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setKeywdAttrib(value: TSynHighlighterAttributes);
begin begin
fKeywdAttrib.Assign(aValue); fKeywdAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setCurrIAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setCurrIAttrib(value: TSynHighlighterAttributes);
begin begin
fCurrIAttrib.Assign(aValue); fCurrIAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setDDocsAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setDDocsAttrib(value: TSynHighlighterAttributes);
begin begin
fDDocsAttrib.Assign(aValue); fDDocsAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setAsblrAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setAsblrAttrib(value: TSynHighlighterAttributes);
begin begin
fAsblrAttrib.Assign(aValue); fAsblrAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setSpeckAttrib(aValue: TSynHighlighterAttributes); procedure TSynD2Syn.setSpeckAttrib(value: TSynHighlighterAttributes);
begin begin
fSpeckAttrib.Assign(aValue); fSpeckAttrib.Assign(value);
end; end;
procedure TSynD2Syn.setCurrIdent(const aValue: string); procedure TSynD2Syn.setUsersAttrib(value: TSynHighlighterAttributes);
begin begin
if fCurrIdent = aValue then Exit; fUsersAttrib.Assign(value);
fCurrIdent := aValue; end;
procedure TSynD2Syn.setUsersWords(value: TStringList);
begin
fUserWords.Assign(value);
end;
procedure TSynD2Syn.setCurrIdent(const value: string);
begin
if fCurrIdent = value then Exit;
fCurrIdent := value;
doChanged; doChanged;
end; end;
@ -856,6 +880,9 @@ begin
fTokKind := tkKeywd fTokKind := tkKeywd
else if fSpecKw.find(fLineBuf[FTokStart..fTokStop-1]) then else if fSpecKw.find(fLineBuf[FTokStart..fTokStop-1]) then
fTokKind := tkSpecK fTokKind := tkSpecK
else if (fUserWords.Count > 0) and
(fUserWords.IndexOf(fLineBuf[FTokStart..fTokStop-1]) <> -1) then
fTokKind := tkUsers
else if fLineBuf[FTokStart..fTokStop-1] = fCurrIdent then else if fLineBuf[FTokStart..fTokStop-1] = fCurrIdent then
fTokKind := tkCurrI; fTokKind := tkCurrI;
//check asm range //check asm range