75fd4af778
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6321 8e941d3f-bd1b-0410-a28a-d453659cc2b4
1714 lines
56 KiB
ObjectPascal
1714 lines
56 KiB
ObjectPascal
{-------------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/
|
|
|
|
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.
|
|
|
|
The Original Code is: SynHighlighterCache.pas, released 2000-04-21.
|
|
The Original Code is based on the mwCacheSyn.pas file from the
|
|
mwEdit component suite by Martin Waldenburg and other developers, the Initial
|
|
Author of this file is Pavel Krehula.
|
|
All Rights Reserved.
|
|
|
|
Contributors to the SynEdit and mwEdit projects are listed in the
|
|
Contributors.txt file.
|
|
|
|
Alternatively, the contents of this file may be used under the terms of the
|
|
GNU General Public License Version 2 or later (the "GPL"), in which case
|
|
the provisions of the GPL are applicable instead of those above.
|
|
If you wish to allow use of your version of this file only under the terms
|
|
of the GPL and not to allow others to use your version of this file
|
|
under the MPL, indicate your decision by deleting the provisions above and
|
|
replace them with the notice and other provisions required by the GPL.
|
|
If you do not delete the provisions above, a recipient may use your version
|
|
of this file under either the MPL or the GPL.
|
|
|
|
$Id: SynHighlighterCache.pas,v 1.14 2005/01/28 16:53:21 maelh Exp $
|
|
|
|
You may retrieve the latest version of this file at the SynEdit home page,
|
|
located at http://SynEdit.SourceForge.net
|
|
|
|
Known Issues:
|
|
-------------------------------------------------------------------------------}
|
|
{
|
|
@abstract(Provides a Cache object script files highlighter for SynEdit)
|
|
@author(Pavel Krehula <pavel@mas.cz>, converted to SynEdit by Bruno Mikkelsen <btm@scientist.com>)
|
|
@created(1999-12-17, converted to SynEdit 2000-04-21)
|
|
@lastmod(2000-06-23)
|
|
The SynHighlighterCache unit provides SynEdit with a Cache object script files highlighter.
|
|
Thanks to Martin Waldenburg.
|
|
}
|
|
|
|
unit SynHighlighterCache;
|
|
|
|
// extrasyn.inc is the synedit.inc from laz 1.2.0 synedit package source,
|
|
// If it has changed in newer version you might need to copy it again.
|
|
// Remember to redclare the syn_lazarus define.
|
|
{$I extrasyn.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF SYN_CLX}
|
|
QGraphics,
|
|
QSynEditTypes,
|
|
QSynEditHighlighter,
|
|
{$ELSE}
|
|
Graphics,
|
|
SynEditTypes,
|
|
SynEditHighlighter,
|
|
{$ENDIF}
|
|
SysUtils,
|
|
Classes;
|
|
|
|
type
|
|
TtkTokenKind = (tkClass, tkComment, tkFunction, tkIdentifier, tkKey, tkNull,
|
|
tkNumber, tkDirective, tkSpace, tkString, tkSymbol, tkIndirect, tkLabel,
|
|
tkMacro, tkUserFunction, tkEmbedSQL, tkEmbedText, tkUnknown);
|
|
|
|
TRangeState = (rsUnKnown, rsSQL, rsHTML, rsCommand);
|
|
|
|
TProcTableProc = procedure of object;
|
|
|
|
PIdentFuncTableFunc = ^TIdentFuncTableFunc;
|
|
TIdentFuncTableFunc = function: TtkTokenKind of object;
|
|
|
|
type
|
|
TSynCacheSyn = class(TSynCustomHighlighter)
|
|
private
|
|
fBrace: LongInt;
|
|
fFirstBrace: Boolean;
|
|
fRange: TRangeState;
|
|
fLine: PChar;
|
|
fLineNumber: Integer;
|
|
fProcTable: array[#0..#255] of TProcTableProc;
|
|
Run: LongInt;
|
|
fStringLen: Integer;
|
|
fToIdent: PChar;
|
|
fTokenPos: Integer;
|
|
FTokenID: TtkTokenKind;
|
|
fIdentFuncTable: array[0..151] of TIdentFuncTableFunc;
|
|
fClassAttri: TSynHighlighterAttributes;
|
|
fCommentAttri: TSynHighlighterAttributes;
|
|
fFunctionAttri: TSynHighlighterAttributes;
|
|
fIdentifierAttri: TSynHighlighterAttributes;
|
|
fKeyAttri: TSynHighlighterAttributes;
|
|
fNumberAttri: TSynHighlighterAttributes;
|
|
fDirectiveAttri: TSynHighlighterAttributes;
|
|
fSpaceAttri: TSynHighlighterAttributes;
|
|
fStringAttri: TSynHighlighterAttributes;
|
|
fSymbolAttri: TSynHighlighterAttributes;
|
|
fIndirectAttri: TSynHighlighterAttributes;
|
|
fLabelAttri: TSynHighlighterAttributes;
|
|
fMacroAttri: TSynHighlighterAttributes;
|
|
fUserFunctionAttri: TSynHighlighterAttributes;
|
|
fEmbedSQLAttri: TSynHighlighterAttributes;
|
|
fEmbedTextAttri: TSynHighlighterAttributes;
|
|
|
|
FCanKey: boolean; // if true, the next token can be a keyword
|
|
|
|
function KeyHash(ToHash: PChar): Integer;
|
|
function KeyComp(const aKey: String): Boolean;
|
|
function Func1: TtkTokenKind;
|
|
function Func2: TtkTokenKind;
|
|
function Func3: TtkTokenKind;
|
|
function Func4: TtkTokenKind;
|
|
function Func5: TtkTokenKind;
|
|
function Func6: TtkTokenKind;
|
|
function Func7: TtkTokenKind;
|
|
function Func8: TtkTokenKind;
|
|
function Func9: TtkTokenKind;
|
|
function Func10: TtkTokenKind;
|
|
function Func11: TtkTokenKind;
|
|
function Func12: TtkTokenKind;
|
|
function Func13: TtkTokenKind;
|
|
function Func14: TtkTokenKind;
|
|
function Func15: TtkTokenKind;
|
|
function Func16: TtkTokenKind;
|
|
function Func17: TtkTokenKind;
|
|
function Func18: TtkTokenKind;
|
|
function Func19: TtkTokenKind;
|
|
function Func20: TtkTokenKind;
|
|
function Func21: TtkTokenKind;
|
|
function Func23: TtkTokenKind;
|
|
function Func24: TtkTokenKind;
|
|
function Func25: TtkTokenKind;
|
|
function Func26: TtkTokenKind;
|
|
function Func27: TtkTokenKind;
|
|
function Func28: TtkTokenKind;
|
|
function Func29: TtkTokenKind;
|
|
function Func30: TtkTokenKind;
|
|
function Func31: TtkTokenKind;
|
|
function Func32: TtkTokenKind;
|
|
function Func33: TtkTokenKind;
|
|
function Func34: TtkTokenKind;
|
|
function Func35: TtkTokenKind;
|
|
function Func36: TtkTokenKind;
|
|
function Func37: TtkTokenKind;
|
|
function Func38: TtkTokenKind;
|
|
function Func39: TtkTokenKind;
|
|
function Func40: TtkTokenKind;
|
|
function Func41: TtkTokenKind;
|
|
function Func42: TtkTokenKind;
|
|
function Func43: TtkTokenKind;
|
|
function Func44: TtkTokenKind;
|
|
function Func45: TtkTokenKind;
|
|
function Func46: TtkTokenKind;
|
|
function Func47: TtkTokenKind;
|
|
function Func48: TtkTokenKind;
|
|
function Func49: TtkTokenKind;
|
|
function Func50: TtkTokenKind;
|
|
function Func51: TtkTokenKind;
|
|
function Func52: TtkTokenKind;
|
|
function Func53: TtkTokenKind;
|
|
function Func54: TtkTokenKind;
|
|
function Func56: TtkTokenKind;
|
|
function Func57: TtkTokenKind;
|
|
function Func58: TtkTokenKind;
|
|
function Func59: TtkTokenKind;
|
|
function Func60: TtkTokenKind;
|
|
function Func61: TtkTokenKind;
|
|
function Func62: TtkTokenKind;
|
|
function Func63: TtkTokenKind;
|
|
function Func64: TtkTokenKind;
|
|
function Func65: TtkTokenKind;
|
|
function Func66: TtkTokenKind;
|
|
function Func67: TtkTokenKind;
|
|
function Func68: TtkTokenKind;
|
|
function Func69: TtkTokenKind;
|
|
function Func70: TtkTokenKind;
|
|
function Func71: TtkTokenKind;
|
|
function Func73: TtkTokenKind;
|
|
function Func75: TtkTokenKind;
|
|
function Func76: TtkTokenKind;
|
|
function Func77: TtkTokenKind;
|
|
function Func78: TtkTokenKind;
|
|
function Func79: TtkTokenKind;
|
|
function Func80: TtkTokenKind;
|
|
function Func81: TtkTokenKind;
|
|
function Func82: TtkTokenKind;
|
|
function Func83: TtkTokenKind;
|
|
function Func84: TtkTokenKind;
|
|
function Func85: TtkTokenKind;
|
|
function Func86: TtkTokenKind;
|
|
function Func87: TtkTokenKind;
|
|
function Func88: TtkTokenKind;
|
|
function Func89: TtkTokenKind;
|
|
function Func90: TtkTokenKind;
|
|
function Func91: TtkTokenKind;
|
|
function Func92: TtkTokenKind;
|
|
function Func93: TtkTokenKind;
|
|
function Func94: TtkTokenKind;
|
|
function Func95: TtkTokenKind;
|
|
function Func98: TtkTokenKind;
|
|
function Func100: TtkTokenKind;
|
|
function Func101: TtkTokenKind;
|
|
function Func102: TtkTokenKind;
|
|
function Func103: TtkTokenKind;
|
|
function Func104: TtkTokenKind;
|
|
function Func105: TtkTokenKind;
|
|
function Func106: TtkTokenKind;
|
|
function Func107: TtkTokenKind;
|
|
function Func108: TtkTokenKind;
|
|
function Func110: TtkTokenKind;
|
|
function Func111: TtkTokenKind;
|
|
function Func114: TtkTokenKind;
|
|
function Func115: TtkTokenKind;
|
|
function Func116: TtkTokenKind;
|
|
function Func117: TtkTokenKind;
|
|
function Func123: TtkTokenKind;
|
|
function Func126: TtkTokenKind;
|
|
function Func127: TtkTokenKind;
|
|
function Func128: TtkTokenKind;
|
|
function Func130: TtkTokenKind;
|
|
function Func142: TtkTokenKind;
|
|
function Func143: TtkTokenKind;
|
|
function Func144: TtkTokenKind;
|
|
function Func151: TtkTokenKind;
|
|
procedure CRProc;
|
|
procedure CommentProc;
|
|
procedure IdentProc;
|
|
procedure LFProc;
|
|
procedure NullProc;
|
|
procedure NumberProc;
|
|
procedure SpaceProc;
|
|
procedure StringProc;
|
|
procedure UnknownProc;
|
|
procedure IndirectProc;
|
|
procedure SymbolProc;
|
|
procedure FuncProc;
|
|
procedure DirectiveProc;
|
|
procedure EmbeddedProc;
|
|
|
|
function AltFunc: TtkTokenKind;
|
|
procedure InitIdent;
|
|
function IdentKind(MayBe: PChar): TtkTokenKind;
|
|
procedure MakeMethodTables;
|
|
protected
|
|
function GetIdentChars: TSynIdentChars; override;
|
|
function IsFilterStored: Boolean; override;
|
|
public
|
|
class function GetLanguageName: string; override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
|
|
override;
|
|
function GetEol: Boolean; override;
|
|
function GetRange: Pointer; override;
|
|
function GetTokenID: TtkTokenKind;
|
|
{$IFDEF SYN_LAZARUS}
|
|
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
|
|
{$ENDIF}
|
|
procedure SetLine(const NewValue: String; LineNumber: Integer); override;
|
|
//procedure SetLine(NewValue: String; LineNumber: Integer); override;
|
|
function GetToken: String; override;
|
|
function GetTokenAttribute: TSynHighlighterAttributes; override;
|
|
function GetTokenKind: integer; override;
|
|
function GetTokenPos: Integer; override;
|
|
procedure Next; override;
|
|
procedure SetRange(Value: Pointer); override;
|
|
procedure ResetRange; override;
|
|
property IdentChars;
|
|
published
|
|
property ClassAttri: TSynHighlighterAttributes read fClassAttri
|
|
write fClassAttri;
|
|
property CommentAttri: TSynHighlighterAttributes read fCommentAttri
|
|
write fCommentAttri;
|
|
property FunctionAttri: TSynHighlighterAttributes read fFunctionAttri
|
|
write fFunctionAttri;
|
|
property IdentifierAttri: TSynHighlighterAttributes read fIdentifierAttri
|
|
write fIdentifierAttri;
|
|
property KeyAttri: TSynHighlighterAttributes read fKeyAttri write fKeyAttri;
|
|
property NumberAttri: TSynHighlighterAttributes read fNumberAttri
|
|
write fNumberAttri;
|
|
property PreprocesorAttri: TSynHighlighterAttributes read fDirectiveAttri
|
|
write fDirectiveAttri;
|
|
property SpaceAttri: TSynHighlighterAttributes read fSpaceAttri
|
|
write fSpaceAttri;
|
|
property StringAttri: TSynHighlighterAttributes read fStringAttri
|
|
write fStringAttri;
|
|
property SymbolAttri: TSynHighlighterAttributes read fSymbolAttri
|
|
write fSymbolAttri;
|
|
property IndirectAttri: TSynHighlighterAttributes read fIndirectAttri
|
|
write fIndirectAttri;
|
|
property LabelAttri: TSynHighlighterAttributes read fLabelAttri
|
|
write fLabelAttri;
|
|
property MacroAttri: TSynHighlighterAttributes read fMacroAttri
|
|
write fMacroAttri;
|
|
property UserFunctionAttri: TSynHighlighterAttributes
|
|
read fUserFunctionAttri write fUserFunctionAttri;
|
|
property EmbededSQLandHTMLAttri: TSynHighlighterAttributes
|
|
read fEmbedSQLAttri write fEmbedSQLAttri;
|
|
property EmbededTextAttri: TSynHighlighterAttributes read fEmbedTextAttri
|
|
write fEmbedTextAttri;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF SYN_CLX}
|
|
QSynEditStrConst;
|
|
{$ELSE}
|
|
SynEditStrConst;
|
|
{$ENDIF}
|
|
|
|
var
|
|
Identifiers: array[#0..#255] of ByteBool;
|
|
mHashTable: array[#0..#255] of Integer;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure MakeIdentTable;
|
|
var
|
|
I, J: Char;
|
|
begin
|
|
for I := #0 to #255 do begin
|
|
Case I of
|
|
'0'..'9', 'a'..'z', 'A'..'Z', '%', '^': Identifiers[I] := True;
|
|
else Identifiers[I] := False;
|
|
end;
|
|
J := UpperCase(I)[1];
|
|
Case I in ['A'..'Z', 'a'..'z'] of
|
|
True: mHashTable[I] := Ord(J) - 64
|
|
else mHashTable[I] := 0;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.InitIdent;
|
|
var
|
|
I: Integer;
|
|
pF: PIdentFuncTableFunc;
|
|
begin
|
|
pF := PIdentFuncTableFunc(@fIdentFuncTable);
|
|
for I := Low(fIdentFuncTable) to High(fIdentFuncTable) do begin
|
|
pF^ := {$IFDEF FPC}@{$ENDIF}AltFunc;
|
|
Inc(pF);
|
|
end;
|
|
fIdentFuncTable[1] := {$IFDEF FPC}@{$ENDIF} Func1;
|
|
fIdentFuncTable[2] := {$IFDEF FPC}@{$ENDIF} Func2;
|
|
fIdentFuncTable[3] := {$IFDEF FPC}@{$ENDIF} Func3;
|
|
fIdentFuncTable[4] := {$IFDEF FPC}@{$ENDIF} Func4;
|
|
fIdentFuncTable[5] := {$IFDEF FPC}@{$ENDIF} Func5;
|
|
fIdentFuncTable[6] := {$IFDEF FPC}@{$ENDIF} Func6;
|
|
fIdentFuncTable[7] := {$IFDEF FPC}@{$ENDIF} Func7;
|
|
fIdentFuncTable[8] := {$IFDEF FPC}@{$ENDIF} Func8;
|
|
fIdentFuncTable[9] := {$IFDEF FPC}@{$ENDIF} Func9;
|
|
fIdentFuncTable[10] := {$IFDEF FPC}@{$ENDIF} Func10;
|
|
fIdentFuncTable[11] := {$IFDEF FPC}@{$ENDIF} Func11;
|
|
fIdentFuncTable[12] := {$IFDEF FPC}@{$ENDIF} Func12;
|
|
fIdentFuncTable[13] := {$IFDEF FPC}@{$ENDIF} Func13;
|
|
fIdentFuncTable[14] := {$IFDEF FPC}@{$ENDIF} Func14;
|
|
fIdentFuncTable[15] := {$IFDEF FPC}@{$ENDIF} Func15;
|
|
fIdentFuncTable[16] := {$IFDEF FPC}@{$ENDIF} Func16;
|
|
fIdentFuncTable[17] := {$IFDEF FPC}@{$ENDIF} Func17;
|
|
fIdentFuncTable[18] := {$IFDEF FPC}@{$ENDIF} Func18;
|
|
fIdentFuncTable[19] := {$IFDEF FPC}@{$ENDIF} Func19;
|
|
fIdentFuncTable[20] := {$IFDEF FPC}@{$ENDIF} Func20;
|
|
fIdentFuncTable[21] := {$IFDEF FPC}@{$ENDIF} Func21;
|
|
fIdentFuncTable[23] := {$IFDEF FPC}@{$ENDIF} Func23;
|
|
fIdentFuncTable[24] := {$IFDEF FPC}@{$ENDIF} Func24;
|
|
fIdentFuncTable[25] := {$IFDEF FPC}@{$ENDIF} Func25;
|
|
fIdentFuncTable[26] := {$IFDEF FPC}@{$ENDIF} Func26;
|
|
fIdentFuncTable[27] := {$IFDEF FPC}@{$ENDIF} Func27;
|
|
fIdentFuncTable[28] := {$IFDEF FPC}@{$ENDIF} Func28;
|
|
fIdentFuncTable[29] := {$IFDEF FPC}@{$ENDIF} Func29;
|
|
fIdentFuncTable[30] := {$IFDEF FPC}@{$ENDIF} Func30;
|
|
fIdentFuncTable[31] := {$IFDEF FPC}@{$ENDIF} Func31;
|
|
fIdentFuncTable[32] := {$IFDEF FPC}@{$ENDIF} Func32;
|
|
fIdentFuncTable[33] := {$IFDEF FPC}@{$ENDIF} Func33;
|
|
fIdentFuncTable[34] := {$IFDEF FPC}@{$ENDIF} Func34;
|
|
fIdentFuncTable[35] := {$IFDEF FPC}@{$ENDIF} Func35;
|
|
fIdentFuncTable[36] := {$IFDEF FPC}@{$ENDIF} Func36;
|
|
fIdentFuncTable[37] := {$IFDEF FPC}@{$ENDIF} Func37;
|
|
fIdentFuncTable[38] := {$IFDEF FPC}@{$ENDIF} Func38;
|
|
fIdentFuncTable[39] := {$IFDEF FPC}@{$ENDIF} Func39;
|
|
fIdentFuncTable[40] := {$IFDEF FPC}@{$ENDIF} Func40;
|
|
fIdentFuncTable[41] := {$IFDEF FPC}@{$ENDIF} Func41;
|
|
fIdentFuncTable[42] := {$IFDEF FPC}@{$ENDIF} Func42;
|
|
fIdentFuncTable[43] := {$IFDEF FPC}@{$ENDIF} Func43;
|
|
fIdentFuncTable[44] := {$IFDEF FPC}@{$ENDIF} Func44;
|
|
fIdentFuncTable[45] := {$IFDEF FPC}@{$ENDIF} Func45;
|
|
fIdentFuncTable[46] := {$IFDEF FPC}@{$ENDIF} Func46;
|
|
fIdentFuncTable[47] := {$IFDEF FPC}@{$ENDIF} Func47;
|
|
fIdentFuncTable[48] := {$IFDEF FPC}@{$ENDIF} Func48;
|
|
fIdentFuncTable[49] := {$IFDEF FPC}@{$ENDIF} Func49;
|
|
fIdentFuncTable[50] := {$IFDEF FPC}@{$ENDIF} Func50;
|
|
fIdentFuncTable[51] := {$IFDEF FPC}@{$ENDIF} Func51;
|
|
fIdentFuncTable[52] := {$IFDEF FPC}@{$ENDIF} Func52;
|
|
fIdentFuncTable[53] := {$IFDEF FPC}@{$ENDIF} Func53;
|
|
fIdentFuncTable[54] := {$IFDEF FPC}@{$ENDIF} Func54;
|
|
fIdentFuncTable[56] := {$IFDEF FPC}@{$ENDIF} Func56;
|
|
fIdentFuncTable[57] := {$IFDEF FPC}@{$ENDIF} Func57;
|
|
fIdentFuncTable[58] := {$IFDEF FPC}@{$ENDIF} Func58;
|
|
fIdentFuncTable[59] := {$IFDEF FPC}@{$ENDIF} Func59;
|
|
fIdentFuncTable[60] := {$IFDEF FPC}@{$ENDIF} Func60;
|
|
fIdentFuncTable[61] := {$IFDEF FPC}@{$ENDIF} Func61;
|
|
fIdentFuncTable[62] := {$IFDEF FPC}@{$ENDIF} Func62;
|
|
fIdentFuncTable[63] := {$IFDEF FPC}@{$ENDIF} Func63;
|
|
fIdentFuncTable[64] := {$IFDEF FPC}@{$ENDIF} Func64;
|
|
fIdentFuncTable[65] := {$IFDEF FPC}@{$ENDIF} Func65;
|
|
fIdentFuncTable[66] := {$IFDEF FPC}@{$ENDIF} Func66;
|
|
fIdentFuncTable[67] := {$IFDEF FPC}@{$ENDIF} Func67;
|
|
fIdentFuncTable[68] := {$IFDEF FPC}@{$ENDIF} Func68;
|
|
fIdentFuncTable[69] := {$IFDEF FPC}@{$ENDIF} Func69;
|
|
fIdentFuncTable[70] := {$IFDEF FPC}@{$ENDIF} Func70;
|
|
fIdentFuncTable[71] := {$IFDEF FPC}@{$ENDIF} Func71;
|
|
fIdentFuncTable[73] := {$IFDEF FPC}@{$ENDIF} Func73;
|
|
fIdentFuncTable[75] := {$IFDEF FPC}@{$ENDIF} Func75;
|
|
fIdentFuncTable[76] := {$IFDEF FPC}@{$ENDIF} Func76;
|
|
fIdentFuncTable[77] := {$IFDEF FPC}@{$ENDIF} Func77;
|
|
fIdentFuncTable[78] := {$IFDEF FPC}@{$ENDIF} Func78;
|
|
fIdentFuncTable[79] := {$IFDEF FPC}@{$ENDIF} Func79;
|
|
fIdentFuncTable[80] := {$IFDEF FPC}@{$ENDIF} Func80;
|
|
fIdentFuncTable[81] := {$IFDEF FPC}@{$ENDIF} Func81;
|
|
fIdentFuncTable[82] := {$IFDEF FPC}@{$ENDIF} Func82;
|
|
fIdentFuncTable[83] := {$IFDEF FPC}@{$ENDIF} Func83;
|
|
fIdentFuncTable[84] := {$IFDEF FPC}@{$ENDIF} Func84;
|
|
fIdentFuncTable[85] := {$IFDEF FPC}@{$ENDIF} Func85;
|
|
fIdentFuncTable[86] := {$IFDEF FPC}@{$ENDIF} Func86;
|
|
fIdentFuncTable[87] := {$IFDEF FPC}@{$ENDIF} Func87;
|
|
fIdentFuncTable[88] := {$IFDEF FPC}@{$ENDIF} Func88;
|
|
fIdentFuncTable[89] := {$IFDEF FPC}@{$ENDIF} Func89;
|
|
fIdentFuncTable[90] := {$IFDEF FPC}@{$ENDIF} Func90;
|
|
fIdentFuncTable[91] := {$IFDEF FPC}@{$ENDIF} Func91;
|
|
fIdentFuncTable[92] := {$IFDEF FPC}@{$ENDIF} Func92;
|
|
fIdentFuncTable[93] := {$IFDEF FPC}@{$ENDIF} Func93;
|
|
fIdentFuncTable[94] := {$IFDEF FPC}@{$ENDIF} Func94;
|
|
fIdentFuncTable[95] := {$IFDEF FPC}@{$ENDIF} Func95;
|
|
fIdentFuncTable[98] := {$IFDEF FPC}@{$ENDIF} Func98;
|
|
fIdentFuncTable[100] := {$IFDEF FPC}@{$ENDIF} Func100;
|
|
fIdentFuncTable[101] := {$IFDEF FPC}@{$ENDIF} Func101;
|
|
fIdentFuncTable[102] := {$IFDEF FPC}@{$ENDIF} Func102;
|
|
fIdentFuncTable[103] := {$IFDEF FPC}@{$ENDIF} Func103;
|
|
fIdentFuncTable[104] := {$IFDEF FPC}@{$ENDIF} Func104;
|
|
fIdentFuncTable[105] := {$IFDEF FPC}@{$ENDIF} Func105;
|
|
fIdentFuncTable[106] := {$IFDEF FPC}@{$ENDIF} Func106;
|
|
fIdentFuncTable[107] := {$IFDEF FPC}@{$ENDIF} Func107;
|
|
fIdentFuncTable[108] := {$IFDEF FPC}@{$ENDIF} Func108;
|
|
fIdentFuncTable[110] := {$IFDEF FPC}@{$ENDIF} Func110;
|
|
fIdentFuncTable[111] := {$IFDEF FPC}@{$ENDIF} Func111;
|
|
fIdentFuncTable[114] := {$IFDEF FPC}@{$ENDIF} Func114;
|
|
fIdentFuncTable[115] := {$IFDEF FPC}@{$ENDIF} Func115;
|
|
fIdentFuncTable[116] := {$IFDEF FPC}@{$ENDIF} Func116;
|
|
fIdentFuncTable[117] := {$IFDEF FPC}@{$ENDIF} Func117;
|
|
fIdentFuncTable[123] := {$IFDEF FPC}@{$ENDIF} Func123;
|
|
fIdentFuncTable[126] := {$IFDEF FPC}@{$ENDIF} Func126;
|
|
fIdentFuncTable[127] := {$IFDEF FPC}@{$ENDIF} Func127;
|
|
fIdentFuncTable[128] := {$IFDEF FPC}@{$ENDIF} Func128;
|
|
fIdentFuncTable[130] := {$IFDEF FPC}@{$ENDIF} Func130;
|
|
fIdentFuncTable[142] := {$IFDEF FPC}@{$ENDIF} Func142;
|
|
fIdentFuncTable[143] := {$IFDEF FPC}@{$ENDIF} Func143;
|
|
fIdentFuncTable[144] := {$IFDEF FPC}@{$ENDIF} Func144;
|
|
fIdentFuncTable[151] := {$IFDEF FPC}@{$ENDIF} Func151;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
function TSynCacheSyn.KeyHash(ToHash: PChar): Integer;
|
|
begin
|
|
Result := 0;
|
|
while ToHash^ in ['0'..'9', 'a'..'z', 'A'..'Z', '^', '$', '&'] do
|
|
begin
|
|
inc(Result, mHashTable[ToHash^]);
|
|
inc(ToHash);
|
|
end;
|
|
fStringLen := ToHash - fToIdent;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
function TSynCacheSyn.KeyComp(const aKey: String): Boolean;
|
|
var
|
|
I: Integer;
|
|
Temp: PChar;
|
|
begin
|
|
Temp := fToIdent;
|
|
if Length(aKey) = fStringLen then begin
|
|
Result := True;
|
|
for i := 1 to fStringLen do begin
|
|
if mHashTable[Temp^] <> mHashTable[aKey[i]] then begin
|
|
Result := False;
|
|
break;
|
|
end;
|
|
inc(Temp);
|
|
end;
|
|
end else Result := False;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
function TSynCacheSyn.Func1: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$a') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func2: TtkTokenKind;
|
|
begin
|
|
if KeyComp('b') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func3: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$c') then Result := tkKey else
|
|
if KeyComp('c') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func4: TtkTokenKind;
|
|
begin
|
|
if KeyComp('d') then Result := tkKey else
|
|
if KeyComp('$d') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func5: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$e') then Result := tkKey else
|
|
if KeyComp('e') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func6: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$f') then Result := tkKey else
|
|
if KeyComp('f') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func7: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$g') then Result := tkKey else
|
|
if KeyComp('^$g') then Result := tkKey else
|
|
if KeyComp('g') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func8: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$ec') then Result := tkKey else
|
|
if KeyComp('h') then Result := tkKey else
|
|
if KeyComp('$h') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func9: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$i') then Result := tkKey else
|
|
if KeyComp('$i') then Result := tkKey else
|
|
if KeyComp('i') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func10: TtkTokenKind;
|
|
begin
|
|
if KeyComp('^$j') then Result := tkKey else
|
|
if KeyComp('$j') then Result := tkKey else
|
|
if KeyComp('j') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func11: TtkTokenKind;
|
|
begin
|
|
if KeyComp('k') then Result := tkKey else
|
|
if KeyComp('$k') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func12: TtkTokenKind;
|
|
begin
|
|
if KeyComp('^$l') then Result := tkKey else
|
|
if KeyComp('l') then Result := tkKey else
|
|
if KeyComp('$l') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func13: TtkTokenKind;
|
|
begin
|
|
if KeyComp('m') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func14: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$lb') then Result := tkKey else
|
|
if KeyComp('$n') then Result := tkKey else
|
|
if KeyComp('n') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func15: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$na') then Result := tkKey else
|
|
if KeyComp('if') then Result := tkKey else
|
|
if KeyComp('$o') then Result := tkKey else
|
|
if KeyComp('o') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func16: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$p') then Result := tkKey else
|
|
if KeyComp('p') then Result := tkKey else
|
|
if KeyComp('$ld') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func17: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$q') then Result := tkKey else
|
|
if KeyComp('q') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func18: TtkTokenKind;
|
|
begin
|
|
if KeyComp('r') then Result := tkKey else
|
|
if KeyComp('^$r') then Result := tkKey else
|
|
if KeyComp('$r') then Result := tkKey else
|
|
if KeyComp('$lf') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func19: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$lg') then Result := tkKey else
|
|
if KeyComp('$s') then Result := tkKey else
|
|
if KeyComp('s') then Result := tkKey else
|
|
if KeyComp('do') then Result := tkKey else
|
|
if KeyComp('$s') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func20: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$fn') then Result := tkKey else
|
|
if KeyComp('$t') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func21: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$li') then Result := tkKey else
|
|
if KeyComp('u') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func23: TtkTokenKind;
|
|
begin
|
|
if KeyComp('w') then Result := tkKey else
|
|
if KeyComp('tc') then Result := tkKey else
|
|
if KeyComp('$in') then Result := tkKey else
|
|
if KeyComp('$re') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func24: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$es') then Result := tkKey else
|
|
if KeyComp('$ll') then Result := tkKey else
|
|
if KeyComp('$io') then Result := tkKey else
|
|
if KeyComp('x') then Result := tkKey else
|
|
if KeyComp('$x') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func25: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$et') then Result := tkKey else
|
|
if KeyComp('$y') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func26: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$data') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func27: TtkTokenKind;
|
|
begin
|
|
if KeyComp('job') then Result := tkKey else
|
|
if KeyComp('$za') then Result := tkKey else
|
|
if KeyComp('$job') then Result := tkKey else
|
|
if KeyComp('^$job') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func28: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zb') then Result := tkKey else
|
|
if KeyComp('zb') then Result := tkKey else
|
|
if KeyComp('read') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func29: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$ql') then Result := tkKey else
|
|
if KeyComp('$zc') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func30: TtkTokenKind;
|
|
begin
|
|
if KeyComp('hang') then Result := tkKey else
|
|
if KeyComp('$char') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func31: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$vi') then Result := tkKey else
|
|
if KeyComp('$ze') then Result := tkKey else
|
|
if KeyComp('vi') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func32: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$get') then Result := tkKey else
|
|
if KeyComp('$tl') then Result := tkKey else
|
|
if KeyComp('$ecode') then Result := tkKey else
|
|
if KeyComp('$zf') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func33: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$find') then Result := tkKey else
|
|
if KeyComp('$name') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func34: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zh') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func35: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zi') then Result := tkKey else
|
|
if KeyComp('zi') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func36: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$qs') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func37: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zk') then Result := tkKey else
|
|
if KeyComp('break') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func38: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$piece') then Result := tkKey else
|
|
if KeyComp('zl') then Result := tkKey else
|
|
if KeyComp('$tr') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func39: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$st') then Result := tkKey else
|
|
if KeyComp('$st') then Result := tkKey else
|
|
if KeyComp('$zla') then Result := tkKey else
|
|
if KeyComp('for') then Result := tkKey else
|
|
if KeyComp('ts') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func40: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zn') then Result := tkKey else
|
|
if KeyComp('$zn') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func41: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$key') then Result := tkKey else
|
|
if KeyComp('else') then Result := tkKey else
|
|
if KeyComp('halt') then Result := tkKey else
|
|
if KeyComp('$zo') then Result := tkKey else
|
|
if KeyComp('^$lock') then Result := tkKey else
|
|
if KeyComp('lock') then Result := tkKey else
|
|
if KeyComp('$zlc') then Result := tkKey else
|
|
if KeyComp('$ascii') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func42: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zp') then Result := tkKey else
|
|
if KeyComp('$zp') then Result := tkKey else
|
|
if KeyComp('new') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func43: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zq') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func44: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zr') then Result := tkKey else
|
|
if KeyComp('kill') then Result := tkKey else
|
|
if KeyComp('set') then Result := tkKey else
|
|
if KeyComp('zr') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func45: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zs') then Result := tkKey else
|
|
if KeyComp('use') then Result := tkKey else
|
|
if KeyComp('$zs') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func46: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zt') then Result := tkKey else
|
|
if KeyComp('$zt') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func47: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zu') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func48: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zabs') then Result := tkKey else
|
|
if KeyComp('merge') then Result := tkKey else
|
|
if KeyComp('$zv') then Result := tkKey else
|
|
if KeyComp('&sql') then begin
|
|
Result := tkEmbedSQL;
|
|
fRange := rsSQL;
|
|
end else
|
|
if KeyComp('$device') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func49: TtkTokenKind;
|
|
begin
|
|
if KeyComp('^$global') then Result := tkKey else
|
|
if KeyComp('$zw') then Result := tkKey else
|
|
if KeyComp('zw') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func50: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zcrc') then Result := tkKey else
|
|
if KeyComp('$zio') then Result := tkKey else
|
|
if KeyComp('$zwa') then Result := tkKey else
|
|
if KeyComp('$zse') then Result := tkKey else
|
|
if KeyComp('open') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func51: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zcsc') then Result := tkKey else
|
|
if KeyComp('$zpi') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func52: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zz') then Result := tkKey else
|
|
if KeyComp('$zeof') then Result := tkKey else
|
|
if KeyComp('$zwc') then Result := tkKey else
|
|
if KeyComp('$zln') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func53: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zjob') then Result := tkKey else
|
|
if KeyComp('tro') then Result := tkKey else
|
|
if KeyComp('&html') then begin
|
|
Result := tkEmbedSQL;
|
|
fRange := rsHTML;
|
|
end else
|
|
if KeyComp('$zsec') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func54: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$stack') then Result := tkKey else
|
|
if KeyComp('$zis') then Result := tkKey else
|
|
if KeyComp('$zth') then Result := tkKey else
|
|
if KeyComp('$stack') then Result := tkKey else
|
|
if KeyComp('close') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func56: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zdate') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func57: TtkTokenKind;
|
|
begin
|
|
if KeyComp('goto') then Result := tkKey else
|
|
if KeyComp('$zcyc') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func58: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zload') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func59: TtkTokenKind;
|
|
begin
|
|
if KeyComp('view') then Result := tkKey else
|
|
if KeyComp('$estack') then Result := tkKey else
|
|
if KeyComp('$zname') then Result := tkKey else
|
|
if KeyComp('$view') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func60: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$list') then Result := tkKey else
|
|
if KeyComp('$etrap') then Result := tkKey else
|
|
if KeyComp('$zlog') then Result := tkKey else
|
|
if KeyComp('$order') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func61: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$ztan') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func62: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zchild') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func63: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$next') then Result := tkKey else
|
|
if KeyComp('zbreak') then Result := tkKey else
|
|
if KeyComp('$zcos') then Result := tkKey else
|
|
if KeyComp('$zhex') then Result := tkKey else
|
|
if KeyComp('$zmode') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func64: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zzdec') then Result := tkKey else
|
|
if KeyComp('$test') then Result := tkKey else
|
|
if KeyComp('$select') then Result := tkKey else
|
|
if KeyComp('$zcot') then Result := tkKey else
|
|
if KeyComp('$zdateh') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func65: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zts') then Result := tkKey else
|
|
if KeyComp('$zwp') then Result := tkKey else
|
|
if KeyComp('$random') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func66: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$length') then Result := tkKey else
|
|
if KeyComp('$zseek') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func67: TtkTokenKind;
|
|
begin
|
|
if KeyComp('quit') then Result := tkKey else
|
|
if KeyComp('$zerr') then Result := tkKey else
|
|
if KeyComp('$quit') then Result := tkKey else
|
|
if KeyComp('$zwbp') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func68: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zsin') then Result := tkKey else
|
|
if KeyComp('$zlchar') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func69: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$text') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func70: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zkill') then Result := tkKey else
|
|
if KeyComp('$zincr') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func71: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zexp') then Result := tkKey else
|
|
if KeyComp('$zcvt') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func73: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zsave') then Result := tkKey else
|
|
if KeyComp('$ztime') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func75: TtkTokenKind;
|
|
begin
|
|
if KeyComp('write') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func76: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitand') then Result := tkKey else
|
|
if KeyComp('$tlevel') then Result := tkKey else
|
|
if KeyComp('$zpos') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func77: TtkTokenKind;
|
|
begin
|
|
if KeyComp('print') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func78: TtkTokenKind;
|
|
begin
|
|
if KeyComp('xecute') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func79: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zlascii') then Result := tkKey else
|
|
if KeyComp('$zwchar') then Result := tkKey else
|
|
if KeyComp('$fnumber') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func80: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zsqr') then Result := tkKey else
|
|
if KeyComp('$zsearch') then Result := tkKey else
|
|
if KeyComp('$zwpack') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func81: TtkTokenKind;
|
|
begin
|
|
if KeyComp('ztrap') then Result := tkKey else
|
|
if KeyComp('$ztimeh') then Result := tkKey else
|
|
if KeyComp('$ztrap') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func82: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$inumber') then Result := tkKey else
|
|
if KeyComp('$zwbpack') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func83: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zarctan') then Result := tkKey else
|
|
if KeyComp('$qlength') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func84: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$znspace') then Result := tkKey else
|
|
if KeyComp('znspace') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func85: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$storage') then Result := tkKey else
|
|
if KeyComp('$zarccos') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func86: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zorder') then Result := tkKey else
|
|
if KeyComp('$zorder') then Result := tkKey else
|
|
if KeyComp('$query') then Result := tkKey else
|
|
if KeyComp('$listdata') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func87: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zsync') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func88: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zutil') then Result := tkKey else
|
|
if KeyComp('$zbitlen') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func89: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitget') then Result := tkKey else
|
|
if KeyComp('$znext') then Result := tkKey else
|
|
if KeyComp('$zzhex') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func90: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zboolean') then Result := tkKey else
|
|
if KeyComp('$zbitor') then Result := tkKey else
|
|
if KeyComp('$zarcsin') then Result := tkKey else
|
|
if KeyComp('$zbitfind') then Result := tkKey else
|
|
if KeyComp('$zwidth') then Result := tkKey else
|
|
if KeyComp('$zwascii') then Result := tkKey else
|
|
if KeyComp('$horolog') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func91: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$extract') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func92: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$reverse') then Result := tkKey else
|
|
if KeyComp('$listget') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func93: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zquit') then Result := tkKey else
|
|
if KeyComp('$listfind') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func94: TtkTokenKind;
|
|
begin
|
|
if KeyComp('trollback') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func95: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$ziswide') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func98: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zsort') then Result := tkKey else
|
|
if KeyComp('tstart') then Result := tkKey else
|
|
if KeyComp('$principal') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func100: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zparent') then Result := tkKey else
|
|
if KeyComp('$zerror') then Result := tkKey else
|
|
if KeyComp('$zwunp') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func101: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitset') then Result := tkKey else
|
|
if KeyComp('zwrite') then Result := tkKey else
|
|
if KeyComp('$increment') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func102: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zwbunp') then Result := tkKey else
|
|
if KeyComp('^$routine') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func103: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zdatetime') then Result := tkKey else
|
|
if KeyComp('$zpower') then Result := tkKey else
|
|
if KeyComp('zprint') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func104: TtkTokenKind;
|
|
begin
|
|
if KeyComp('zremove') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func105: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zreference') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func106: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitnot') then Result := tkKey else
|
|
if KeyComp('zzdump') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func107: TtkTokenKind;
|
|
begin
|
|
if KeyComp('tcommint') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func108: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zstrip') then Result := tkKey else
|
|
if KeyComp('$listbuild') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func110: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$translate') then Result := tkKey else
|
|
if KeyComp('$justify') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func111: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zstorage') then Result := tkKey else
|
|
if KeyComp('zinsert') then Result := tkKey else
|
|
if KeyComp('$zdatetimeh') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func114: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitxor') then Result := tkKey else
|
|
if KeyComp('$zbitstr') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func115: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zwunpack') then Result := tkKey else
|
|
if KeyComp('$zzenkaku') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func116: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zhorolog') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func117: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zwbunpack') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func123: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zconvert') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func126: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$listlength') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func127: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zincrement') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func128: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zversion') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func130: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zbitcount') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func142: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$ztimestamp') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func143: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zposition') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func144: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$qsubscript') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.Func151: TtkTokenKind;
|
|
begin
|
|
if KeyComp('$zprevious') then Result := tkKey else Result := tkIdentifier;
|
|
end;
|
|
|
|
function TSynCacheSyn.AltFunc: TtkTokenKind;
|
|
begin
|
|
Result := tkIdentifier;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
function TSynCacheSyn.IdentKind(MayBe: PChar): TtkTokenKind;
|
|
var
|
|
HashKey: Integer;
|
|
begin
|
|
fToIdent := MayBe;
|
|
HashKey := KeyHash(MayBe);
|
|
if (HashKey < 152) and (HashKey>-1) then
|
|
Result := fIdentFuncTable[HashKey] {$IFDEF FPC}(){$ENDIF}
|
|
else Result := tkIdentifier;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.MakeMethodTables;
|
|
var
|
|
I: Char;
|
|
begin
|
|
for I := #0 to #255 do
|
|
case I of
|
|
#13: fProcTable[I] := {$IFDEF FPC}@{$ENDIF} CRProc;
|
|
';': fProcTable[I] := {$IFDEF FPC}@{$ENDIF} CommentProc;
|
|
'A'..'Z', 'a'..'z', '%', '^': fProcTable[I] := {$IFDEF FPC}@{$ENDIF} IdentProc;
|
|
'$': fProcTable[i] := {$IFDEF FPC}@{$ENDIF} FuncProc;
|
|
'@': fProcTable[i] := {$IFDEF FPC}@{$ENDIF} IndirectProc;
|
|
#10: fProcTable[I] := {$IFDEF FPC}@{$ENDIF} LFProc;
|
|
#0: fProcTable[I] := {$IFDEF FPC}@{$ENDIF} NullProc;
|
|
'0'..'9': fProcTable[I] := {$IFDEF FPC}@{$ENDIF} NumberProc;
|
|
#1..#9, #11, #12, #14..#32: fProcTable[I] := {$IFDEF FPC}@{$ENDIF} SpaceProc;
|
|
#34: fProcTable[I] := {$IFDEF FPC}@{$ENDIF} StringProc;
|
|
'(',')','+','-','[',']','.','<','>','''','=',',',':','/','\',
|
|
'?','!','_','*': fProcTable[i] := {$IFDEF FPC}@{$ENDIF} SymbolProc;
|
|
'#': fProcTable[i] := {$IFDEF FPC}@{$ENDIF} DirectiveProc;
|
|
'&': fProcTable[i] := {$IFDEF FPC}@{$ENDIF} EmbeddedProc;
|
|
|
|
else fProcTable[I] := {$IFDEF FPC}@{$ENDIF} UnknownProc;
|
|
end;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
constructor TSynCacheSyn.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
fClassAttri := TSynHighlighterAttributes.Create(SYNS_AttrClass);
|
|
AddAttribute(fClassAttri);
|
|
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
|
|
fCommentAttri.Style := [fsItalic];
|
|
AddAttribute(fCommentAttri);
|
|
fFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction);
|
|
AddAttribute(fFunctionAttri);
|
|
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
|
|
AddAttribute(fIdentifierAttri);
|
|
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
|
|
fKeyAttri.Style := [fsBold];
|
|
AddAttribute(fKeyAttri);
|
|
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
|
|
AddAttribute(fNumberAttri);
|
|
fDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDir);
|
|
AddAttribute(fDirectiveAttri);
|
|
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
|
|
AddAttribute(fSpaceAttri);
|
|
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
|
|
AddAttribute(fStringAttri);
|
|
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
|
|
AddAttribute(fSymbolAttri);
|
|
fIndirectAttri := TSynHighlighterAttributes.Create(SYNS_AttrIndirect);
|
|
AddAttribute(fIndirectAttri);
|
|
fLabelAttri := TSynHighlighterAttributes.Create(SYNS_AttrLabel);
|
|
AddAttribute(fLabelAttri);
|
|
fMacroAttri := TSynHighlighterAttributes.Create(SYNS_AttrMacro);
|
|
AddAttribute(fMacroAttri);
|
|
fUserFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrUserFunction);
|
|
AddAttribute(fUserFunctionAttri);
|
|
fEmbedSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrEmbedSQL);
|
|
AddAttribute(fEmbedSQLAttri);
|
|
fEmbedTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrEmbedText);
|
|
AddAttribute(fEmbedTextAttri);
|
|
|
|
SetAttributesOnChange({$ifdef FPC} @ {$endif}DefHighlightChange);
|
|
InitIdent;
|
|
MakeMethodTables;
|
|
fDefaultFilter := SYNS_FilterCache;
|
|
fRange := rsUnknown;
|
|
end;
|
|
|
|
{$IFDEF SYN_LAZARUS}
|
|
procedure TSynCacheSyn.GetTokenEx(out TokenStart: PChar; out TokenLength: integer);
|
|
begin
|
|
TokenLength := Run - fTokenPos;
|
|
TokenStart := FLine + fTokenPos;
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure TSynCacheSyn.SetLine(const NewValue: string; LineNumber: Integer);
|
|
begin
|
|
fLine := PChar(NewValue);
|
|
Run := 0;
|
|
fLineNumber := LineNumber;
|
|
Next;
|
|
end;
|
|
|
|
procedure TSynCacheSyn.CRProc;
|
|
begin
|
|
fTokenID := tkSpace;
|
|
inc(Run);
|
|
if fLine[Run] = #10 then inc(Run);
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.CommentProc;
|
|
begin
|
|
fTokenID := tkComment;
|
|
if FLine[Run+1]=';' then fTokenID := tkEmbedText;
|
|
|
|
while FLine[Run] <> #0 do begin
|
|
case FLine[Run] of
|
|
#10, #13: break;
|
|
end;
|
|
inc(Run);
|
|
end;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// higlight keywords and identifiers
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.IdentProc;
|
|
var
|
|
fir: char;
|
|
begin
|
|
if FTokenPos=0 then fTokenID := tkLabel
|
|
else begin
|
|
fir := FLine[ Run ];
|
|
if fir in [ '^' ] then FCanKey := true;
|
|
|
|
FRange := rsUnknown;
|
|
if FCanKey then fTokenID := IdentKind((fLine + Run))
|
|
else begin
|
|
fTokenID := tkIdentifier;
|
|
while ( Identifiers[fLine[Run]] ) or ( FLine[Run] in ['0'..'9']) do inc(Run);
|
|
exit;
|
|
end;
|
|
FRange := rsCommand;
|
|
inc(Run, fStringLen);
|
|
if (not ( FLine[Run] in [ #32, ':', #0, #10, #13 ] )) and ( fir <> '^' ) then
|
|
fTokenID := tkIdentifier;
|
|
end;
|
|
while ( Identifiers[fLine[Run]] ) or ( FLine[Run] in ['0'..'9']) do inc(Run);
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.LFProc;
|
|
begin
|
|
fTokenID := tkSpace;
|
|
FCanKey := true;
|
|
inc(Run);
|
|
end;
|
|
|
|
procedure TSynCacheSyn.NullProc;
|
|
begin
|
|
fTokenID := tkNull;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.NumberProc;
|
|
begin
|
|
if (fTokenPos = 0) and (FLine[Run] in ['0'..'9']) then begin
|
|
fTokenID := tkLabel;
|
|
while Identifiers[fLine[Run]] do inc(Run);
|
|
FCanKey := false;
|
|
exit;
|
|
end;
|
|
|
|
inc(Run);
|
|
fTokenID := tkNumber;
|
|
while FLine[Run] in ['0'..'9', '.', 'e', 'E'] do begin
|
|
case FLine[Run] of
|
|
'.': if FLine[Run + 1] = '.' then break;
|
|
end;
|
|
inc(Run);
|
|
end;
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.SpaceProc;
|
|
var
|
|
x: integer;
|
|
begin
|
|
x := Run;
|
|
inc(Run);
|
|
fTokenID := tkSpace;
|
|
while FLine[Run] in [#1..#9, #11, #12, #14..#32] do inc(Run);
|
|
FCanKey := true;
|
|
if FRange = rsCommand then
|
|
FCanKey := (Run - x > 1);
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.StringProc;
|
|
begin
|
|
fTokenID := tkString;
|
|
if (FLine[Run + 1] = #34) and (FLine[Run + 2] = #34) then inc(Run, 2);
|
|
repeat
|
|
case FLine[Run] of
|
|
#0, #10, #13: break;
|
|
end;
|
|
inc(Run);
|
|
until FLine[Run] = #34;
|
|
if FLine[Run] <> #0 then inc(Run);
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.UnknownProc;
|
|
begin
|
|
{$IFDEF SYN_MBCSSUPPORT}
|
|
if FLine[Run] in LeadBytes then
|
|
Inc(Run, 2)
|
|
else
|
|
{$ENDIF}
|
|
inc(Run);
|
|
fTokenID := tkUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.Next;
|
|
begin
|
|
fTokenPos := Run;
|
|
if FLine[Run] = #0 then NullProc
|
|
else
|
|
Case fRange of
|
|
rsSQL,
|
|
rsHTML: EmbeddedProc;
|
|
else fProcTable[fLine[Run]];
|
|
end;
|
|
end;
|
|
|
|
function TSynCacheSyn.GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
|
|
begin
|
|
case Index of
|
|
SYN_ATTR_COMMENT: Result := fCommentAttri;
|
|
SYN_ATTR_KEYWORD: Result := fKeyAttri;
|
|
SYN_ATTR_WHITESPACE: Result := fSpaceAttri;
|
|
SYN_ATTR_SYMBOL: Result := fSymbolAttri;
|
|
else
|
|
Result := nil;
|
|
end;
|
|
end;
|
|
|
|
function TSynCacheSyn.GetEol: Boolean;
|
|
begin
|
|
Result := fTokenID = tkNull;
|
|
end;
|
|
|
|
function TSynCacheSyn.GetRange: Pointer;
|
|
begin
|
|
Result := Pointer(PtrInt(fRange));
|
|
end;
|
|
|
|
function TSynCacheSyn.GetToken: String;
|
|
var
|
|
Len: LongInt;
|
|
begin
|
|
Len := Run - fTokenPos;
|
|
SetString(Result, (FLine + fTokenPos), Len);
|
|
end;
|
|
|
|
function TSynCacheSyn.GetTokenID: TtkTokenKind;
|
|
begin
|
|
Result := fTokenId;
|
|
end;
|
|
|
|
function TSynCacheSyn.GetTokenAttribute: TSynHighlighterAttributes;
|
|
begin
|
|
case GetTokenID of
|
|
tkClass: Result := fClassAttri;
|
|
tkComment: Result := fCommentAttri;
|
|
tkFunction: Result := fFunctionAttri;
|
|
tkIdentifier: Result := fIdentifierAttri;
|
|
tkKey: Result := fKeyAttri;
|
|
tkNumber: Result := fNumberAttri;
|
|
tkDirective: Result := fDirectiveAttri;
|
|
tkSpace: Result := fSpaceAttri;
|
|
tkString: Result := fStringAttri;
|
|
tkSymbol: Result := fSymbolAttri;
|
|
tkIndirect: Result := fIndirectAttri;
|
|
tkUnknown: Result := fIdentifierAttri;
|
|
tkLabel: Result := fLabelAttri;
|
|
tkMacro: Result := fMacroAttri;
|
|
tkUserFunction: Result := fUserFunctionAttri;
|
|
tkEmbedSQL: Result := fEmbedSQLAttri;
|
|
tkEmbedText: Result := fEmbedTextAttri;
|
|
else Result := nil;
|
|
end;
|
|
end;
|
|
|
|
function TSynCacheSyn.GetTokenKind: integer;
|
|
begin
|
|
Result := Ord(fTokenId);
|
|
end;
|
|
|
|
function TSynCacheSyn.GetTokenPos: Integer;
|
|
begin
|
|
Result := fTokenPos;
|
|
end;
|
|
|
|
procedure TSynCacheSyn.ResetRange;
|
|
begin
|
|
fRange := rsUnknown;
|
|
end;
|
|
|
|
procedure TSynCacheSyn.SetRange(Value: Pointer);
|
|
begin
|
|
fRange := TRangeState(PtrUInt(Value));
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
function TSynCacheSyn.GetIdentChars: TSynIdentChars;
|
|
begin
|
|
Result := ['0'..'9', 'a'..'z', 'A'..'Z', '^', '%'] + TSynSpecialChars;
|
|
end;
|
|
|
|
function TSynCacheSyn.IsFilterStored: Boolean;
|
|
begin
|
|
Result := fDefaultFilter <> SYNS_FilterCache;
|
|
end;
|
|
|
|
class function TSynCacheSyn.GetLanguageName: string;
|
|
begin
|
|
Result := SYNS_LangCache;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// highlight indirection syntax: @ident
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.IndirectProc;
|
|
begin
|
|
fTokenID := tkIndirect;
|
|
inc( Run );
|
|
while Identifiers[ FLine[Run] ] do inc( Run );
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// highlight symbols
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.SymbolProc;
|
|
begin
|
|
fTokenID := tkSymbol;
|
|
inc( Run );
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// highlight user defined functions and macros
|
|
// function: $$ident
|
|
// macro : $$$ident
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.FuncProc;
|
|
begin
|
|
case FLine[Run] of
|
|
'$': case FLine[ Run+1 ] of
|
|
'$': case Fline[ Run+2 ] of
|
|
'$': fTokenID := tkMacro;
|
|
else fTokenID := tkUserFunction;
|
|
end;
|
|
else begin
|
|
fTokenID := IdentKind((fLine + Run));
|
|
inc(Run, fStringLen);
|
|
if fTokenID = tkKey then fTokenID := tkFunction;
|
|
end;
|
|
end;
|
|
else fTokenID := tkIdentifier;
|
|
end;
|
|
while Identifiers[fLine[Run]] or (FLine[Run]='$' ) do inc(Run);
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// highlight preprocesor directives and class syntax
|
|
// preprocesor: #identifier
|
|
// class : ##class
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.DirectiveProc;
|
|
var
|
|
i: integer;
|
|
begin
|
|
if FLine[Run+1]='#' then fTokenID := tkClass
|
|
else begin
|
|
for i:=fTokenPos downto 0 do
|
|
if not(FLine[i] in [ #32, '#' ]) then begin
|
|
fTokenID := tkSymbol;
|
|
inc( Run );
|
|
exit;
|
|
end;
|
|
|
|
fTokenID := tkDirective
|
|
end;
|
|
|
|
inc( Run );
|
|
while Identifiers[fLine[Run]] or (FLine[Run]='#') do inc(Run);
|
|
FRange := rsUnknown;
|
|
end;
|
|
|
|
//------------------------------------------------------------------------------
|
|
// highlight embeded SQL and HTML
|
|
// SQL : &sql( .... )
|
|
// HTML : &html< ..... >
|
|
//------------------------------------------------------------------------------
|
|
procedure TSynCacheSyn.EmbeddedProc;
|
|
begin
|
|
case fRange of
|
|
rsUnknown, rsCommand: begin
|
|
fTokenID := IdentKind( (fLine + Run) );
|
|
if fTokenID <> tkEmbedSQL then begin
|
|
fTokenID := tkSymbol;
|
|
inc( Run );
|
|
end else begin
|
|
fBrace := 1;
|
|
fFirstBrace := true;
|
|
inc( Run, fStringLen );
|
|
end;
|
|
end;
|
|
rsSQL: begin
|
|
fTokenID := tkEmbedSQL;
|
|
while (FLine[Run] <> #0) and (fBrace<>0) do begin
|
|
case FLine[Run] of
|
|
'(': if not fFirstBrace then inc(fBrace)
|
|
else fFirstBrace := false;
|
|
')': dec(fBrace);
|
|
end;
|
|
inc(Run);
|
|
end;
|
|
if fBrace=0 then fRange := rsUnknown;
|
|
end;
|
|
rsHTML: begin
|
|
fTokenID := tkEmbedSQL;
|
|
while (FLine[Run] <> #0) and (fBrace<>0) do begin
|
|
case FLine[Run] of
|
|
'<': if not fFirstBrace then inc(fBrace)
|
|
else fFirstBrace := false;
|
|
'>': dec(fBrace);
|
|
end;
|
|
inc(Run);
|
|
end;
|
|
if fBrace=0 then fRange := rsUnknown;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
MakeIdentTable;
|
|
{$IFNDEF SYN_CPPB_1}
|
|
RegisterPlaceableHighlighter(TSynCacheSyn);
|
|
{$ENDIF}
|
|
end.
|