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

nothing

This commit is contained in:
Basile Burg 2016-04-16 21:35:47 +02:00
parent e3c655eca3
commit 264f1afbe4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_d2syn.pas
View File

@ -12,7 +12,7 @@ uses
type type
TTokenKind = (tkCommt, tkIdent, tkKeywd, tkStrng, tkBlank, tkSymbl, tkNumbr, TTokenKind = (tkCommt, tkIdent, tkKeywd, tkStrng, tkBlank, tkSymbl, tkNumbr,
tkDDocs, tkSpecK, tkError, tkAsmbl, tkAttri); tkDDocs, tkSpecK, tkError, tkAsmbl, tkAttri, tkLost);
TRangeKind = (rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, TRangeKind = (rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2,
rkBlockDoc1, rkBlockDoc2, rkAsm); rkBlockDoc1, rkBlockDoc2, rkAsm);
@ -55,6 +55,7 @@ type
fSpeckAttrib: TSynHighlighterAttributes; fSpeckAttrib: TSynHighlighterAttributes;
fErrorAttrib: TSynHighlighterAttributes; fErrorAttrib: TSynHighlighterAttributes;
fAttriAttrib: TSynHighlighterAttributes; fAttriAttrib: TSynHighlighterAttributes;
fLost_Attrib: TSynHighlighterAttributes;
fLineBuf: string; fLineBuf: string;
fTokStart, fTokStop: Integer; fTokStart, fTokStop: Integer;
fTokKind: TTokenKind; fTokKind: TTokenKind;
@ -194,6 +195,7 @@ begin
fSpeckAttrib := TSynHighlighterAttributes.Create('Speck','Speck'); fSpeckAttrib := TSynHighlighterAttributes.Create('Speck','Speck');
fErrorAttrib := TSynHighlighterAttributes.Create('Error','Error'); fErrorAttrib := TSynHighlighterAttributes.Create('Error','Error');
fAttriAttrib := TSynHighlighterAttributes.Create('Attri','Attri'); fAttriAttrib := TSynHighlighterAttributes.Create('Attri','Attri');
fLost_Attrib := TSynHighlighterAttributes.Create('Lost','Lost');
fNumbrAttrib.Foreground := $000079F2; fNumbrAttrib.Foreground := $000079F2;
fSymblAttrib.Foreground := clMaroon; fSymblAttrib.Foreground := clMaroon;
@ -204,14 +206,17 @@ begin
fAsblrAttrib.Foreground := clGray; fAsblrAttrib.Foreground := clGray;
fSpeckAttrib.Foreground := clNavy; fSpeckAttrib.Foreground := clNavy;
fAttriAttrib.Foreground := clNavy; fAttriAttrib.Foreground := clNavy;
fLost_Attrib.Foreground := clLime;
fDDocsAttrib.Foreground := clTeal; fDDocsAttrib.Foreground := clTeal;
fLost_Attrib.Background := clBlack;
fCommtAttrib.Style := [fsItalic]; fCommtAttrib.Style := [fsItalic];
fKeywdAttrib.Style := [fsBold]; fKeywdAttrib.Style := [fsBold];
fAsblrAttrib.Style := [fsBold]; fAsblrAttrib.Style := [fsBold];
fSpeckAttrib.Style := [fsBold]; fSpeckAttrib.Style := [fsBold];
fAttriAttrib.Style := [fsBold]; fAttriAttrib.Style := [fsBold];
fLost_Attrib.Style := [fsBold];
fErrorAttrib.Foreground:= fIdentAttrib.Foreground; fErrorAttrib.Foreground:= fIdentAttrib.Foreground;
fErrorAttrib.FrameStyle:= slsWaved; fErrorAttrib.FrameStyle:= slsWaved;
@ -243,6 +248,7 @@ begin
fAttribLut[TTokenKind.tkError] := fErrorAttrib; fAttribLut[TTokenKind.tkError] := fErrorAttrib;
fAttribLut[TTokenKind.tkAsmbl] := fAsblrAttrib; fAttribLut[TTokenKind.tkAsmbl] := fAsblrAttrib;
fAttribLut[TTokenKind.tkAttri] := fAttriAttrib; fAttribLut[TTokenKind.tkAttri] := fAttriAttrib;
fAttribLut[TTokenKind.tkLost] := fLost_Attrib;
SetAttributesOnChange(@doAttribChange); SetAttributesOnChange(@doAttribChange);
fTokStop := 1; fTokStop := 1;
@ -805,6 +811,8 @@ begin
fTokKind:= tkError; fTokKind:= tkError;
readUntilAmong(reader, fTokStop, [#0..#32] + symbChars - ['.']); readUntilAmong(reader, fTokStop, [#0..#32] + symbChars - ['.']);
end; end;
if (fTokStop - fTokStart = 10) and (fLineBuf[fTokStart..fTokStop-1] = '4815162342') then
fTokKind:=tkLost;
exit; exit;
end; end;
_notDotFloat: _notDotFloat: