opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity
Files
HeidiSQL/components/synedit/Source/SynHighlighterCache.pas
Ansgar Becker 1e94af8374 Issue #136: update SynEdit sources
2021-03-16 20:12:46 +01:00

829 lines
31 KiB
ObjectPascal
Raw Permalink Blame History

{-------------------------------------------------------------------------------
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.
Unicode translation by Maël Hörz.
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.13.2.6 2008/09/14 16:24:59 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;
{$I SynEdit.inc}
interface
uses
Graphics,
SynEditTypes,
SynEditHighlighter,
SynUnicode,
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);
PIdentFuncTableFunc = ^TIdentFuncTableFunc;
TIdentFuncTableFunc = function (Index: Integer): TtkTokenKind of object;
type
TSynCacheSyn = class(TSynCustomHighlighter)
private
FBrace: LongInt;
FFirstBrace: Boolean;
FRange: TRangeState;
FTokenID: TtkTokenKind;
FIdentFuncTable: array[0..1996] 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 AltFunc(Index: Integer): TtkTokenKind;
function KeyWordFunc(Index: Integer): TtkTokenKind;
function Func38html(Index: Integer): TtkTokenKind;
function Func38sql(Index: Integer): TtkTokenKind;
function HashKey(Str: PWideChar): Cardinal;
function IdentKind(MayBe: PWideChar): TtkTokenKind;
procedure InitIdent;
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;
protected
function IsFilterStored: Boolean; override;
public
class function GetLanguageName: string; override;
class function GetFriendlyLanguageName: UnicodeString; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: Integer): TSynHighlighterAttributes;
override;
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
function GetTokenAttribute: TSynHighlighterAttributes; override;
function GetTokenKind: Integer; override;
function IsIdentChar(AChar: WideChar): Boolean; override;
procedure Next; override;
procedure SetRange(Value: Pointer); override;
procedure ResetRange; override;
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
SynEditStrConst;
const
KeyWords: array[0..274] of UnicodeString = (
'$a', '$ascii', '$c', '$char', '$d', '$data', '$device', '$e', '$ec',
'$ecode', '$es', '$estack', '$et', '$etrap', '$extract', '$f', '$find',
'$fn', '$fnumber', '$g', '$get', '$h', '$horolog', '$i', '$in',
'$increment', '$inumber', '$io', '$j', '$job', '$justify', '$k', '$key',
'$l', '$lb', '$ld', '$length', '$lf', '$lg', '$li', '$list', '$listbuild',
'$listdata', '$listfind', '$listget', '$listlength', '$ll', '$n', '$na',
'$name', '$next', '$o', '$order', '$p', '$piece', '$principal', '$q', '$ql',
'$qlength', '$qs', '$qsubscript', '$query', '$quit', '$r', '$random', '$re',
'$reverse', '$s', '$select', '$st', '$stack', '$storage', '$t', '$test',
'$text', '$tl', '$tlevel', '$tr', '$translate', '$vi', '$view', '$x', '$y',
'$za', '$zabs', '$zarccos', '$zarcsin', '$zarctan', '$zb', '$zbitand',
'$zbitcount', '$zbitfind', '$zbitget', '$zbitlen', '$zbitnot', '$zbitor',
'$zbitset', '$zbitstr', '$zbitxor', '$zboolean', '$zc', '$zchild',
'$zconvert', '$zcos', '$zcot', '$zcrc', '$zcsc', '$zcvt', '$zcyc', '$zdate',
'$zdateh', '$zdatetime', '$zdatetimeh', '$ze', '$zeof', '$zerr', '$zerror',
'$zexp', '$zf', '$zh', '$zhex', '$zhorolog', '$zi', '$zincr', '$zincrement',
'$zio', '$zis', '$ziswide', '$zjob', '$zla', '$zlascii', '$zlc', '$zlchar',
'$zln', '$zlog', '$zmode', '$zn', '$zname', '$znext', '$znspace', '$zo',
'$zorder', '$zp', '$zparent', '$zpi', '$zpos', '$zposition', '$zpower',
'$zprevious', '$zr', '$zreference', '$zs', '$zse', '$zsearch', '$zsec',
'$zseek', '$zsin', '$zsort', '$zsqr', '$zstorage', '$zstrip', '$zt',
'$ztan', '$zth', '$ztime', '$ztimeh', '$ztimestamp', '$ztrap', '$zts',
'$zu', '$zutil', '$zv', '$zversion', '$zw', '$zwa', '$zwascii', '$zwbp',
'$zwbpack', '$zwbunp', '$zwbunpack', '$zwc', '$zwchar', '$zwidth', '$zwp',
'$zwpack', '$zwunp', '$zwunpack', '$zz', '$zzdec', '$zzenkaku', '$zzhex',
'&html', '&sql', '^$g', '^$global', '^$j', '^$job', '^$l', '^$lock', '^$r',
'^$routine', 'b', 'break', 'c', 'close', 'd', 'do', 'e', 'else', 'f', 'for',
'g', 'goto', 'h', 'halt', 'hang', 'i', 'if', 'j', 'job', 'k', 'kill', 'l',
'lock', 'm', 'merge', 'n', 'new', 'o', 'open', 'p', 'print', 'q', 'quit',
'r', 'read', 's', 'set', 'tc', 'tcommint', 'tro', 'trollback', 'ts',
'tstart', 'u', 'use', 'vi', 'view', 'w', 'write', 'x', 'xecute', 'zb',
'zbreak', 'zi', 'zinsert', 'zk', 'zkill', 'zl', 'zload', 'zn', 'znspace',
'zp', 'zprint', 'zq', 'zquit', 'zr', 'zremove', 'zs', 'zsave', 'zsync',
'ztrap', 'zw', 'zwrite', 'zzdump'
);
KeyIndices: array[0..1996] of Integer = (
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 139, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 186, -1, -1, -1, -1, -1, -1, -1, 153, -1, 232, -1,
212, 74, -1, -1, -1, -1, -1, 178, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 265, -1, -1, -1, 19, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 77, -1, -1, -1, -1, -1, -1, 272,
259, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 234, -1, -1, -1,
187, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 198, 246, -1, -1, -1,
24, -1, -1, -1, -1, -1, -1, -1, -1, -1, 21, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 76, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 236, -1, 206, 210, -1, -1, 181,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 221, -1, -1, 27, -1, -1, -1,
9, -1, -1, -1, -1, -1, 23, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
25, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 116, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 58, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 28, -1, -1, 137, -1, -1, -1, -1, -1, -1, 183, -1, -1, -1, 18, 49, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 32, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 244, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 83, -1, -1,
-1, -1, 102, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 242, 108, 31, -1,
-1, 93, -1, -1, -1, -1, -1, -1, 274, -1, -1, -1, -1, -1, -1, 128, -1, -1,
-1, -1, -1, 8, -1, -1, -1, -1, 191, -1, -1, 5, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 17, -1, -1, -1, 88, -1, -1, -1, -1, 66,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 249, -1, 33, -1, -1, 185, 59,
-1, -1, -1, -1, -1, -1, 124, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, 193, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 248, -1, -1,
-1, 117, -1, -1, 84, -1, -1, -1, -1, -1, 100, -1, 133, -1, -1, 245, -1, -1,
-1, 257, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 255, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 250, -1, -1, -1, 152, -1, -1,
-1, -1, 239, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 47, -1, -1, 22, 114, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, 247, -1, 86, 68, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 252, -1, 80, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 6, -1, -1, -1,
-1, 113, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 51, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 195, -1, -1, -1, -1, -1, -1, 44, -1, -1, -1,
-1, 65, -1, 175, -1, -1, 99, -1, -1, -1, -1, -1, -1, -1, -1, 118, -1, -1,
-1, -1, -1, 95, 121, -1, 92, 188, -1, -1, -1, -1, -1, -1, -1, -1, 53, -1,
-1, -1, -1, -1, -1, -1, -1, 156, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, 164, 240, -1, -1, -1, -1, -1, 202, -1, 130, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, 179, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
157, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 168, -1, -1, 56, -1, -1, -1,
-1, 1, -1, -1, -1, -1, 223, -1, -1, -1, -1, -1, -1, -1, -1, -1, 225, -1, -1,
-1, -1, -1, 197, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
125, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 119, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, 64, -1, -1, -1, -1, -1, -1, 63, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 55, -1, -1,
-1, -1, -1, 145, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
106, -1, -1, -1, -1, -1, -1, -1, 122, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 67, -1, -1, -1, -1, 85, -1, -1, -1, 261,
-1, 182, -1, -1, -1, -1, -1, -1, -1, 41, -1, -1, -1, 158, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 26, 154, -1, -1, -1, -1,
-1, 201, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 91, 69, -1, -1,
-1, -1, -1, -1, -1, 72, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 34, -1,
-1, -1, -1, 123, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 251, -1,
-1, -1, 176, -1, -1, -1, -1, -1, 270, -1, -1, -1, -1, -1, -1, -1, 203, -1,
-1, -1, -1, -1, -1, 165, -1, -1, -1, 184, -1, -1, -1, -1, -1, -1, -1, 190,
103, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 120, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 20, -1, -1, -1, -1, -1, -1, -1, -1, 144, -1, -1,
254, -1, -1, -1, -1, -1, -1, -1, 126, -1, -1, -1, -1, -1, -1, 205, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 192, -1, -1, -1, 104,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 196, -1, -1, -1, -1, 35, -1, -1, -1, -1,
115, -1, -1, -1, -1, -1, -1, 134, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, 253, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 207, -1, -1, 166, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 231, -1,
-1, -1, -1, -1, 143, -1, 238, -1, -1, -1, -1, -1, 43, -1, -1, -1, -1, -1,
174, -1, -1, -1, -1, -1, 109, 199, -1, -1, -1, -1, -1, -1, 256, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 209, -1, -1, -1, 136, -1, -1,
-1, -1, -1, -1, 11, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 81, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 37, -1, -1, -1, -1, -1, -1, -1, -1, 267,
-1, 96, -1, -1, -1, -1, -1, -1, -1, 148, -1, 258, -1, -1, -1, -1, -1, 150,
-1, -1, -1, -1, 90, -1, -1, -1, 211, -1, -1, -1, 140, -1, -1, -1, -1, -1,
-1, -1, -1, 208, -1, -1, -1, -1, -1, -1, -1, -1, 13, 82, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 38, 45, -1, -1, -1, -1, -1, 180, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 213, -1, -1, -1, 142, -1, -1, -1, 189, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 48, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 273, 147, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 89, -1,
172, -1, 177, -1, -1, 260, 112, -1, -1, -1, -1, -1, 40, -1, -1, -1, -1, -1,
36, -1, 216, 61, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 241, -1, -1, -1, -1, -1, -1, -1, -1, 243, -1, -1, -1, -1, -1, -1, 110,
39, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 10, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 215, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 194, -1, -1, 218,
54, -1, -1, 149, -1, -1, -1, -1, -1, -1, -1, 167, -1, -1, 129, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 132,
-1, -1, -1, -1, -1, -1, -1, -1, 12, -1, 135, -1, -1, 30, -1, -1, -1, 70,
262, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 220, -1, -1,
-1, 151, -1, 170, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 101, -1, 14,
-1, -1, 42, -1, -1, -1, -1, -1, 263, -1, -1, 0, -1, -1, 94, -1, -1, -1, -1,
-1, -1, 105, -1, -1, -1, -1, -1, -1, 75, -1, -1, -1, -1, -1, -1, 264, -1,
-1, -1, -1, 98, -1, -1, -1, -1, -1, -1, -1, -1, -1, 222, -1, -1, -1, 161,
-1, -1, 200, -1, -1, -1, -1, -1, -1, 71, 131, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 237, -1, 46, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 204, -1, -1, -1, -1, -1, -1, -1, 266, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 224, -1, -1, 217, 169, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 229, 235, -1,
233, -1, -1, -1, -1, -1, -1, 2, -1, -1, -1, -1, -1, -1, 141, -1, -1, -1, -1,
-1, 62, -1, -1, 155, 97, -1, -1, -1, -1, -1, -1, 268, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 159, 226, -1, 73, -1, 171, -1, -1, 271, -1,
107, -1, 127, -1, -1, -1, -1, -1, -1, -1, -1, 227, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, 4, -1, 87, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 29, -1, -1, -1,
146, -1, 138, -1, -1, -1, 228, -1, -1, -1, 173, -1, -1, -1, 50, -1, -1, 78,
-1, -1, -1, 60, -1, 219, -1, -1, 269, -1, -1, -1, -1, -1, -1, -1, -1, -1,
52, -1, 7, -1, -1, -1, 57, 79, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 111, -1, -1, -1, -1, -1, -1, -1, 160, -1,
-1, -1, 214, -1, 230, -1, -1, -1, -1, 16, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 162, -1, -1, 163, -1, -1,
15, -1, -1, -1
);
{$Q-}
function TSynCacheSyn.HashKey(Str: PWideChar): Cardinal;
begin
Result := 0;
while IsIdentChar(Str^) do
begin
Result := Result * 355 + Ord(Str^) * 71;
Inc(Str);
end;
Result := Result mod 1997;
FStringLen := Str - FToIdent;
end;
{$Q+}
function TSynCacheSyn.IdentKind(MayBe: PWideChar): TtkTokenKind;
var
Key: Cardinal;
begin
FToIdent := MayBe;
Key := HashKey(MayBe);
if Key <= High(FIdentFuncTable) then
Result := FIdentFuncTable[Key](KeyIndices[Key])
else
Result := tkIdentifier;
end;
procedure TSynCacheSyn.InitIdent;
var
i: Integer;
begin
for i := Low(FIdentFuncTable) to High(FIdentFuncTable) do
if KeyIndices[i] = -1 then
FIdentFuncTable[i] := AltFunc;
FIdentFuncTable[379] := Func38html;
FIdentFuncTable[1125] := Func38sql;
for i := Low(FIdentFuncTable) to High(FIdentFuncTable) do
if @FIdentFuncTable[i] = nil then
FIdentFuncTable[i] := KeyWordFunc;
end;
function TSynCacheSyn.AltFunc(Index: Integer): TtkTokenKind;
begin
Result := tkIdentifier;
end;
function TSynCacheSyn.KeyWordFunc(Index: Integer): TtkTokenKind;
begin
if IsCurrentToken(KeyWords[Index]) then
Result := tkKey
else
Result := tkIdentifier
end;
function TSynCacheSyn.Func38html(Index: Integer): TtkTokenKind;
begin
if IsCurrentToken(KeyWords[Index]) then
begin
Result := tkEmbedSQL;
FRange := rsHTML;
end
else
Result := tkIdentifier;
end;
function TSynCacheSyn.Func38sql(Index: Integer): TtkTokenKind;
begin
if IsCurrentToken(KeyWords[Index]) then
begin
Result := tkEmbedSQL;
FRange := rsSQL;
end
else
Result := tkIdentifier;
end;
constructor TSynCacheSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCaseSensitive := False;
FClassAttri := TSynHighlighterAttributes.Create(SYNS_AttrClass, SYNS_FriendlyAttrClass);
AddAttribute(FClassAttri);
FCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_FriendlyAttrComment);
FCommentAttri.Style := [fsItalic];
AddAttribute(FCommentAttri);
FFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction, SYNS_FriendlyAttrFunction);
AddAttribute(FFunctionAttri);
FIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_FriendlyAttrIdentifier);
AddAttribute(FIdentifierAttri);
FKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_FriendlyAttrReservedWord);
FKeyAttri.Style := [fsBold];
AddAttribute(FKeyAttri);
FNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_FriendlyAttrNumber);
AddAttribute(FNumberAttri);
FDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDir, SYNS_FriendlyAttrDir);
AddAttribute(FDirectiveAttri);
FSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_FriendlyAttrSpace);
AddAttribute(FSpaceAttri);
FStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_FriendlyAttrString);
AddAttribute(FStringAttri);
FSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_FriendlyAttrSymbol);
AddAttribute(FSymbolAttri);
FIndirectAttri := TSynHighlighterAttributes.Create(SYNS_AttrIndirect, SYNS_FriendlyAttrIndirect);
AddAttribute(FIndirectAttri);
FLabelAttri := TSynHighlighterAttributes.Create(SYNS_AttrLabel, SYNS_FriendlyAttrLabel);
AddAttribute(FLabelAttri);
FMacroAttri := TSynHighlighterAttributes.Create(SYNS_AttrMacro, SYNS_FriendlyAttrMacro);
AddAttribute(FMacroAttri);
FUserFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrUserFunction, SYNS_FriendlyAttrUserFunction);
AddAttribute(FUserFunctionAttri);
FEmbedSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrEmbedSQL, SYNS_FriendlyAttrEmbedSQL);
AddAttribute(FEmbedSQLAttri);
FEmbedTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrEmbedText, SYNS_FriendlyAttrEmbedText);
AddAttribute(FEmbedTextAttri);
SetAttributesOnChange(DefHighlightChange);
InitIdent;
FDefaultFilter := SYNS_FilterCache;
FRange := rsUnknown;
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: WideChar;
begin
if FTokenPos=0 then FTokenID := tkLabel
else begin
fir := FLine[Run];
if fir = '^' then FCanKey := true;
FRange := rsUnknown;
if FCanKey then
FTokenID := IdentKind(FLine + Run)
else
begin
FTokenID := tkIdentifier;
while IsIdentChar(FLine[Run]) do Inc(Run);
Exit;
end;
FRange := rsCommand;
Inc(Run, FStringLen);
if not (IsLineEnd(Run) or CharInSet(FLine[Run], [#32, ':'])) and (fir <> '^') then
begin
FTokenID := tkIdentifier;
end
end;
while IsIdentChar(FLine[Run]) do Inc(Run);
end;
procedure TSynCacheSyn.LFProc;
begin
FTokenID := tkSpace;
FCanKey := true;
Inc(Run);
end;
procedure TSynCacheSyn.NullProc;
begin
FTokenID := tkNull;
Inc(Run);
end;
procedure TSynCacheSyn.NumberProc;
function IsNumberChar: Boolean;
begin
case FLine[Run] of
'0'..'9', '.', 'e', 'E':
Result := True;
else
Result := False;
end;
end;
begin
if (FTokenPos = 0) and CharInSet(FLine[Run], ['0'..'9']) then
begin
FTokenID := tkLabel;
while IsIdentChar(FLine[Run]) do Inc(Run);
FCanKey := False;
Exit;
end;
Inc(Run);
FTokenID := tkNumber;
while IsNumberChar 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] <= #32) and not IsLineEnd(Run) 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
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
case FLine[Run] of
#13: CRProc;
';': CommentProc;
'A'..'Z', 'a'..'z', '%', '^': IdentProc;
'$': FuncProc;
'@': IndirectProc;
#10: LFProc;
#0: NullProc;
'0'..'9': NumberProc;
#1..#9, #11, #12, #14..#32: SpaceProc;
#34: StringProc;
'(',')','+','-','[',']','.','<','>','''','=',',',':','/','\',
'?','!','_','*': SymbolProc;
'#': DirectiveProc;
'&': EmbeddedProc;
else UnknownProc;
end;
end;
inherited;
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 := Run = FLineLen + 1;
end;
function TSynCacheSyn.GetRange: Pointer;
begin
Result := Pointer(FRange);
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;
procedure TSynCacheSyn.ResetRange;
begin
FRange := rsUnknown;
end;
procedure TSynCacheSyn.SetRange(Value: Pointer);
begin
FRange := TRangeState(Value);
end;
function TSynCacheSyn.IsFilterStored: Boolean;
begin
Result := FDefaultFilter <> SYNS_FilterCache;
end;
function TSynCacheSyn.IsIdentChar(AChar: WideChar): Boolean;
begin
case AChar of
'0'..'9', 'a'..'z', 'A'..'Z', '%', '^', '$', '&':
Result := True;
else
Result := False;
end;
end;
class function TSynCacheSyn.GetLanguageName: string;
begin
Result := SYNS_LangCache;
end;
//------------------------------------------------------------------------------
// highlight indirection syntax: @ident
//------------------------------------------------------------------------------
procedure TSynCacheSyn.IndirectProc;
begin
FTokenID := tkIndirect;
Inc(Run);
while IsIdentChar(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 IsIdentChar(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 CharInSet(FLine[i], [#32, '#']) then
begin
FTokenID := tkSymbol;
Inc(Run);
Exit;
end;
FTokenID := tkDirective
end;
Inc(Run);
while IsIdentChar(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;
class function TSynCacheSyn.GetFriendlyLanguageName: UnicodeString;
begin
Result := SYNS_FriendlyLangCache;
end;
initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynCacheSyn);
{$ENDIF}
end.
Reference in New Issue View Git Blame Copy Permalink