mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Issue #136: add missing new file, overseen in previous commit
This commit is contained in:
Ansgar Becker
889
components/synedit/Source/SynHighlighterECMAScript.pas
Normal file
889
components/synedit/Source/SynHighlighterECMAScript.pas
Normal file
@ -0,0 +1,889 @@
|
|||||||
|
{-------------------------------------------------------------------------------
|
||||||
|
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.
|
||||||
|
|
||||||
|
Code template generated with SynGen.
|
||||||
|
The original code is: C:\Users\Public\Code\SynEdit\SynGen\Test ECMAScript\SynHighlighterECMAScript.pas, released 2020-06-21.
|
||||||
|
Description: ECMA Script Syntax Highlighter
|
||||||
|
The initial author of this file is Christian-W. Budde.
|
||||||
|
Copyright (c) 2020, 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: $
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the SynEdit home page,
|
||||||
|
located at http://SynEdit.SourceForge.net
|
||||||
|
|
||||||
|
-------------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
unit SynHighlighterECMAScript;
|
||||||
|
|
||||||
|
{$I SynEdit.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Graphics,
|
||||||
|
SynEditTypes,
|
||||||
|
SynEditHighlighter,
|
||||||
|
SynUnicode,
|
||||||
|
SysUtils,
|
||||||
|
Classes;
|
||||||
|
|
||||||
|
type
|
||||||
|
TtkTokenKind = (
|
||||||
|
tkComment,
|
||||||
|
tkIdentifier,
|
||||||
|
tkKey,
|
||||||
|
tkReserved,
|
||||||
|
tkStrict,
|
||||||
|
tkNull,
|
||||||
|
tkNumber,
|
||||||
|
tkSpace,
|
||||||
|
tkString,
|
||||||
|
tkSymbol,
|
||||||
|
tkUnknown);
|
||||||
|
|
||||||
|
TRangeState = (rsUnknown, rsMultiLineComment, rsSingleLineComment,
|
||||||
|
rsDoubleQuotedString, rsSingleQuotedString);
|
||||||
|
|
||||||
|
TProcTableProc = procedure of object;
|
||||||
|
|
||||||
|
PIdentFuncTableFunc = ^TIdentFuncTableFunc;
|
||||||
|
TIdentFuncTableFunc = function (Index: Integer): TtkTokenKind of object;
|
||||||
|
|
||||||
|
type
|
||||||
|
TSynECMAScriptSyn = class(TSynCustomHighlighter)
|
||||||
|
private
|
||||||
|
FRange: TRangeState;
|
||||||
|
FTokenId: TtkTokenKind;
|
||||||
|
FIdentFuncTable: array[0..108] of TIdentFuncTableFunc;
|
||||||
|
FCommentAttri: TSynHighlighterAttributes;
|
||||||
|
FIdentifierAttri: TSynHighlighterAttributes;
|
||||||
|
FKeyAttri: TSynHighlighterAttributes;
|
||||||
|
FNumberAttri: TSynHighlighterAttributes;
|
||||||
|
FSpaceAttri: TSynHighlighterAttributes;
|
||||||
|
FStringAttri: TSynHighlighterAttributes;
|
||||||
|
FSymbolAttri: TSynHighlighterAttributes;
|
||||||
|
function AltFunc(Index: Integer): TtkTokenKind;
|
||||||
|
function FuncKeyWord(Index: Integer): TtkTokenKind;
|
||||||
|
function FuncReservedWord(Index: Integer): TtkTokenKind;
|
||||||
|
function FuncStrictMode(Index: Integer): TtkTokenKind;
|
||||||
|
function HashKey(Str: PWideChar): Cardinal;
|
||||||
|
function IdentKind(MayBe: PWideChar): TtkTokenKind;
|
||||||
|
procedure AndSymbolProc;
|
||||||
|
procedure BackslashProc;
|
||||||
|
procedure CRProc;
|
||||||
|
procedure CoalesceProc;
|
||||||
|
procedure EqualsProc;
|
||||||
|
procedure GreaterProc;
|
||||||
|
procedure Hex4DigitProc;
|
||||||
|
procedure InitIdent;
|
||||||
|
procedure IdentProc;
|
||||||
|
procedure LessProc;
|
||||||
|
procedure LFProc;
|
||||||
|
procedure MinusProc;
|
||||||
|
procedure ModSymbolProc;
|
||||||
|
procedure MultiLineCommentProc;
|
||||||
|
procedure NotProc;
|
||||||
|
procedure NullProc;
|
||||||
|
procedure NumberProc;
|
||||||
|
procedure OrSymbolProc;
|
||||||
|
procedure PlusProc;
|
||||||
|
procedure DotProc;
|
||||||
|
procedure SlashProc;
|
||||||
|
procedure SpaceProc;
|
||||||
|
procedure StarProc;
|
||||||
|
procedure StringProc;
|
||||||
|
procedure SymbolProc;
|
||||||
|
procedure UnknownProc;
|
||||||
|
procedure XorSymbolProc;
|
||||||
|
protected
|
||||||
|
function GetSampleSource: UnicodeString; override;
|
||||||
|
function IsFilterStored: Boolean; override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
class function GetFriendlyLanguageName: UnicodeString; override;
|
||||||
|
class function GetLanguageName: string; override;
|
||||||
|
function GetRange: Pointer; override;
|
||||||
|
procedure ResetRange; override;
|
||||||
|
procedure SetRange(Value: Pointer); override;
|
||||||
|
function GetDefaultAttribute(Index: Integer): TSynHighlighterAttributes; override;
|
||||||
|
function GetEol: Boolean; override;
|
||||||
|
function GetKeyWords(TokenKind: Integer): UnicodeString; override;
|
||||||
|
function GetTokenID: TtkTokenKind;
|
||||||
|
function GetTokenAttribute: TSynHighlighterAttributes; override;
|
||||||
|
function GetTokenKind: Integer; override;
|
||||||
|
function IsIdentChar(AChar: WideChar): Boolean; override;
|
||||||
|
procedure Next; override;
|
||||||
|
published
|
||||||
|
property CommentAttri: TSynHighlighterAttributes read FCommentAttri write FCommentAttri;
|
||||||
|
property IdentifierAttri: TSynHighlighterAttributes read FIdentifierAttri write FIdentifierAttri;
|
||||||
|
property KeyAttri: TSynHighlighterAttributes read FKeyAttri write FKeyAttri;
|
||||||
|
property NumberAttri: TSynHighlighterAttributes read FNumberAttri write FNumberAttri;
|
||||||
|
property SpaceAttri: TSynHighlighterAttributes read FSpaceAttri write FSpaceAttri;
|
||||||
|
property StringAttri: TSynHighlighterAttributes read FStringAttri write FStringAttri;
|
||||||
|
property SymbolAttri: TSynHighlighterAttributes read FSymbolAttri write FSymbolAttri;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
SynEditStrConst;
|
||||||
|
|
||||||
|
resourcestring
|
||||||
|
SYNS_FilterECMAScript = 'JavaScript files (*.js)|*.js';
|
||||||
|
SYNS_LangECMAScript = 'ECMA Script';
|
||||||
|
SYNS_FriendlyLangECMAScript = 'ECMA Script';
|
||||||
|
|
||||||
|
const
|
||||||
|
// as this language is case-insensitive keywords *must* be in lowercase
|
||||||
|
KeyWords: array[0..52] of UnicodeString = (
|
||||||
|
'as', 'async', 'await', 'break', 'case', 'catch', 'class', 'const',
|
||||||
|
'continue', 'debugger', 'default', 'delete', 'do', 'else', 'enum', 'export',
|
||||||
|
'extends', 'false', 'finally', 'for', 'from', 'function', 'get', 'if',
|
||||||
|
'implements', 'import', 'in', 'instance', 'interface', 'let', 'new', 'null',
|
||||||
|
'of', 'package', 'private', 'protected', 'public', 'return', 'set',
|
||||||
|
'static', 'super', 'switch', 'target', 'this', 'throw', 'true', 'try',
|
||||||
|
'typeof', 'var', 'void', 'while', 'with', 'yield'
|
||||||
|
);
|
||||||
|
|
||||||
|
KeyIndices: array[0..108] of Integer = (
|
||||||
|
-1, 25, -1, 42, -1, 52, 48, 10, -1, -1, -1, -1, 2, -1, -1, -1, -1, -1, -1,
|
||||||
|
4, 46, -1, 5, 30, -1, -1, 27, 20, -1, -1, 32, 51, -1, 38, 13, -1, 28, 12,
|
||||||
|
-1, -1, 19, 41, -1, 3, -1, -1, -1, 9, 6, -1, 24, 34, -1, -1, 36, 16, 49, -1,
|
||||||
|
22, 17, -1, -1, 35, -1, 21, 0, -1, -1, -1, -1, 50, 11, -1, 40, 18, -1, 7,
|
||||||
|
-1, -1, 39, 44, -1, -1, 47, 31, 43, 26, -1, -1, -1, -1, 33, 23, 29, 14, -1,
|
||||||
|
45, 37, -1, 8, -1, -1, -1, -1, -1, -1, 1, -1, 15
|
||||||
|
);
|
||||||
|
|
||||||
|
constructor TSynECMAScriptSyn.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FCaseSensitive := False;
|
||||||
|
|
||||||
|
FCommentAttri := TSynHighLighterAttributes.Create(SYNS_AttrComment, SYNS_FriendlyAttrComment);
|
||||||
|
FCommentAttri.Style := [fsItalic];
|
||||||
|
FCommentAttri.Foreground := clNavy;
|
||||||
|
AddAttribute(FCommentAttri);
|
||||||
|
|
||||||
|
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);
|
||||||
|
|
||||||
|
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);
|
||||||
|
|
||||||
|
SetAttributesOnChange(DefHighlightChange);
|
||||||
|
InitIdent;
|
||||||
|
FDefaultFilter := SYNS_FilterECMAScript;
|
||||||
|
FRange := rsUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.InitIdent;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
for i := Low(FIdentFuncTable) to High(FIdentFuncTable) do
|
||||||
|
if KeyIndices[i] = -1 then
|
||||||
|
FIdentFuncTable[i] := AltFunc;
|
||||||
|
|
||||||
|
FIdentFuncTable[12] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[65] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[106] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[43] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[19] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[22] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[48] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[76] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[99] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[47] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[7] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[71] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[37] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[34] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[94] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[108] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[55] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[59] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[74] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[40] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[27] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[64] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[58] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[92] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[50] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[1] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[86] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[26] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[36] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[93] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[23] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[84] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[30] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[91] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[51] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[62] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[54] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[97] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[33] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[79] := FuncStrictMode;
|
||||||
|
FIdentFuncTable[73] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[41] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[3] := FuncKeyWord;
|
||||||
|
FIdentFuncTable[85] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[80] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[96] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[20] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[83] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[6] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[56] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[70] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[31] := FuncReservedWord;
|
||||||
|
FIdentFuncTable[5] := FuncReservedWord;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$Q-}
|
||||||
|
function TSynECMAScriptSyn.HashKey(Str: PWideChar): Cardinal;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
while IsIdentChar(Str^) do
|
||||||
|
begin
|
||||||
|
Result := Result * 474 + Ord(Str^) * 408;
|
||||||
|
Inc(Str);
|
||||||
|
end;
|
||||||
|
Result := Result mod 109;
|
||||||
|
FStringLen := Str - FToIdent;
|
||||||
|
end;
|
||||||
|
{$Q+}
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.FuncReservedWord(Index: Integer): TtkTokenKind;
|
||||||
|
begin
|
||||||
|
if IsCurrentToken(KeyWords[Index]) then
|
||||||
|
Result := tkReserved
|
||||||
|
else
|
||||||
|
Result := tkIdentifier;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.FuncStrictMode(Index: Integer): TtkTokenKind;
|
||||||
|
begin
|
||||||
|
if IsCurrentToken(KeyWords[Index]) then
|
||||||
|
Result := tkStrict
|
||||||
|
else
|
||||||
|
Result := tkIdentifier;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.FuncKeyWord(Index: Integer): TtkTokenKind;
|
||||||
|
begin
|
||||||
|
if IsCurrentToken(KeyWords[Index]) then
|
||||||
|
Result := tkKey
|
||||||
|
else
|
||||||
|
Result := tkIdentifier;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.AltFunc(Index: Integer): TtkTokenKind;
|
||||||
|
begin
|
||||||
|
Result := tkIdentifier;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.AndSymbolProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if CharInSet(FLine[Run], ['=', '&']) then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.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 TSynECMAScriptSyn.SpaceProc;
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
FTokenId := tkSpace;
|
||||||
|
while (FLine[Run] <= #32) and not IsLineEnd(Run) do
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.CoalesceProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '?' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.NotProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.NullProc;
|
||||||
|
begin
|
||||||
|
FTokenId := tkNull;
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.CRProc;
|
||||||
|
begin
|
||||||
|
FTokenId := tkSpace;
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = #10 then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.LFProc;
|
||||||
|
begin
|
||||||
|
FTokenId := tkSpace;
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.NumberProc;
|
||||||
|
|
||||||
|
function IsNumberChar: Boolean;
|
||||||
|
begin
|
||||||
|
case FLine[Run] of
|
||||||
|
'0'..'9', '.', 'a'..'f', 'A'..'F', 'x', 'X':
|
||||||
|
Result := True;
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function IsHexChar(Run: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
case FLine[Run] of
|
||||||
|
'0'..'9', 'a'..'f', 'A'..'F':
|
||||||
|
Result := True;
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
idx1: Integer; // token[1]
|
||||||
|
isHex: Boolean;
|
||||||
|
begin
|
||||||
|
FTokenID := tkNumber;
|
||||||
|
isHex := False;
|
||||||
|
idx1 := Run;
|
||||||
|
Inc(Run);
|
||||||
|
while IsNumberChar do
|
||||||
|
begin
|
||||||
|
case FLine[Run] of
|
||||||
|
'.':
|
||||||
|
if FLine[Succ(Run)] = '.' then
|
||||||
|
Break;
|
||||||
|
'a'..'f', 'A'..'F':
|
||||||
|
if not isHex then
|
||||||
|
Break;
|
||||||
|
'x', 'X':
|
||||||
|
begin
|
||||||
|
if (FLine[idx1] <> '0') or (Run > Succ(idx1)) then
|
||||||
|
Break;
|
||||||
|
if not IsHexChar(Succ(Run)) then
|
||||||
|
Break;
|
||||||
|
isHex := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.OrSymbolProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if CharInSet(FLine[Run], ['=', '|']) then Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.EqualsProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'=':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
'>':
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.GreaterProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'=':
|
||||||
|
Inc(Run);
|
||||||
|
'>':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'=':
|
||||||
|
Inc(Run);
|
||||||
|
'>':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.LessProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'=':
|
||||||
|
Inc(Run);
|
||||||
|
'<':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.PlusProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if CharInSet(FLine[Run], ['=', '+']) then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.DotProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if (FLine[Run] = '.') and (FLine[Run + 1] = '.') then Inc(Run, 2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.SlashProc;
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'/':
|
||||||
|
begin
|
||||||
|
FTokenId := tkComment;
|
||||||
|
FRange := rsSingleLineComment;
|
||||||
|
repeat
|
||||||
|
Inc(Run);
|
||||||
|
until IsLineEnd(Run);
|
||||||
|
FTokenId := tkComment;
|
||||||
|
end;
|
||||||
|
'*':
|
||||||
|
begin
|
||||||
|
Inc(Run, 1);
|
||||||
|
FRange := rsMultiLineComment;
|
||||||
|
FTokenId := tkComment;
|
||||||
|
repeat
|
||||||
|
Inc(Run);
|
||||||
|
if (FLine[Run] = '*') and (FLine[Run + 1] = '/') then
|
||||||
|
begin
|
||||||
|
FRange := rsUnknown;
|
||||||
|
Inc(Run, 2);
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
until IsLineEnd(Run);
|
||||||
|
end;
|
||||||
|
'=':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.MultiLineCommentProc;
|
||||||
|
begin
|
||||||
|
case FLine[Run] of
|
||||||
|
#0: NullProc;
|
||||||
|
#10: LFProc;
|
||||||
|
#13: CRProc;
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FTokenId := tkComment;
|
||||||
|
repeat
|
||||||
|
if (FLine[Run] = '*') and
|
||||||
|
(FLine[Run + 1] = '/') then
|
||||||
|
begin
|
||||||
|
Inc(Run, 2);
|
||||||
|
FRange := rsUnknown;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
if not IsLineEnd(Run) then
|
||||||
|
Inc(Run);
|
||||||
|
until IsLineEnd(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.StarProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
case FLine[Run] of
|
||||||
|
'=':
|
||||||
|
Inc(Run);
|
||||||
|
'*':
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.StringProc;
|
||||||
|
var
|
||||||
|
QuoteChar: UnicodeString;
|
||||||
|
begin
|
||||||
|
FTokenID := tkString;
|
||||||
|
QuoteChar := FLine[Run]; // We could have '"' or #39
|
||||||
|
if (FLine[Run + 1] = QuoteChar) and (FLine[Run + 2] = QuoteChar) then Inc(Run, 2);
|
||||||
|
repeat
|
||||||
|
if IsLineEnd(Run) then
|
||||||
|
Break;
|
||||||
|
Inc(Run);
|
||||||
|
until (FLine[Run] = QuoteChar) and (FLine[Pred(Run)] <> '\');
|
||||||
|
if not IsLineEnd(Run) then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.IdentProc;
|
||||||
|
begin
|
||||||
|
FTokenID := IdentKind((FLine + Run));
|
||||||
|
Inc(Run, FStringLen);
|
||||||
|
while IsIdentChar(FLine[Run]) do
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.Hex4DigitProc;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
function IsHexDigit(AChar: WideChar): Boolean;
|
||||||
|
begin
|
||||||
|
case FLine[Run] of
|
||||||
|
'0'..'9', 'a'..'f', 'A'..'F':
|
||||||
|
Result := True;
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
for i := 0 to 3 do
|
||||||
|
begin
|
||||||
|
if not IsHexDigit(FLine[Run]) then
|
||||||
|
begin
|
||||||
|
FTokenId := tkUnknown;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.BackslashProc;
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = 'u' then
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
Hex4DigitProc;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
FTokenId := tkUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.MinusProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if CharInSet(FLine[Run], ['=', '-', '>']) then Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.ModSymbolProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.SymbolProc;
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.UnknownProc;
|
||||||
|
begin
|
||||||
|
Inc(Run);
|
||||||
|
FTokenId := tkUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.XorSymbolProc;
|
||||||
|
begin
|
||||||
|
FTokenID := tkSymbol;
|
||||||
|
Inc(Run);
|
||||||
|
if FLine[Run] = '=' then
|
||||||
|
Inc(Run);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.Next;
|
||||||
|
begin
|
||||||
|
FTokenPos := Run;
|
||||||
|
case FRange of
|
||||||
|
rsMultiLineComment: MultiLineCommentProc;
|
||||||
|
else
|
||||||
|
case FLine[Run] of
|
||||||
|
#0:
|
||||||
|
NullProc;
|
||||||
|
#10:
|
||||||
|
LFProc;
|
||||||
|
#13:
|
||||||
|
CRProc;
|
||||||
|
#1..#9, #11, #12, #14..#32:
|
||||||
|
SpaceProc;
|
||||||
|
'"', #39:
|
||||||
|
StringProc;
|
||||||
|
'%':
|
||||||
|
ModSymbolProc;
|
||||||
|
'&':
|
||||||
|
AndSymbolProc;
|
||||||
|
'.':
|
||||||
|
DotProc;
|
||||||
|
'/':
|
||||||
|
SlashProc;
|
||||||
|
'-':
|
||||||
|
MinusProc;
|
||||||
|
'\':
|
||||||
|
BackslashProc;
|
||||||
|
'|':
|
||||||
|
OrSymbolProc;
|
||||||
|
'(', ')':
|
||||||
|
SymbolProc;
|
||||||
|
'*':
|
||||||
|
StarProc;
|
||||||
|
'+':
|
||||||
|
PlusProc;
|
||||||
|
'=':
|
||||||
|
EqualsProc;
|
||||||
|
'>':
|
||||||
|
GreaterProc;
|
||||||
|
'<':
|
||||||
|
LessProc;
|
||||||
|
'!':
|
||||||
|
NotProc;
|
||||||
|
'?':
|
||||||
|
CoalesceProc;
|
||||||
|
'^':
|
||||||
|
XorSymbolProc;
|
||||||
|
'~', ',', '[', ']', ':', ';', '{', '}':
|
||||||
|
SymbolProc;
|
||||||
|
'0'..'9':
|
||||||
|
NumberProc;
|
||||||
|
'A'..'Z', 'a'..'z', '_', '$', #$AA, #$B5, #$BA, #$C0..#$D6, #$D8..#$F6,
|
||||||
|
#$0F8..#$2C1:
|
||||||
|
IdentProc;
|
||||||
|
else
|
||||||
|
UnknownProc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetDefaultAttribute(Index: Integer): TSynHighLighterAttributes;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
SYN_ATTR_COMMENT:
|
||||||
|
Result := FCommentAttri;
|
||||||
|
SYN_ATTR_IDENTIFIER:
|
||||||
|
Result := FIdentifierAttri;
|
||||||
|
SYN_ATTR_KEYWORD:
|
||||||
|
Result := FKeyAttri;
|
||||||
|
SYN_ATTR_STRING:
|
||||||
|
Result := FStringAttri;
|
||||||
|
SYN_ATTR_WHITESPACE:
|
||||||
|
Result := FSpaceAttri;
|
||||||
|
SYN_ATTR_SYMBOL:
|
||||||
|
Result := FSymbolAttri;
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetEol: Boolean;
|
||||||
|
begin
|
||||||
|
Result := Run = FLineLen + 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetKeyWords(TokenKind: Integer): UnicodeString;
|
||||||
|
begin
|
||||||
|
Result :=
|
||||||
|
'as,async,await,break,case,catch,class,const,continue,debugger,default,' +
|
||||||
|
'delete,do,else,enum,export,extends,false,finally,for,from,function,' +
|
||||||
|
'get,if,implements,import,in,instance,interface,let,new,null,of,package,' +
|
||||||
|
'private,protected,public,return,set,static,super,switch,target,this,' +
|
||||||
|
'throw,true,try,typeof,var,void,while,with,yield';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetTokenID: TtkTokenKind;
|
||||||
|
begin
|
||||||
|
Result := FTokenId;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetTokenAttribute: TSynHighLighterAttributes;
|
||||||
|
begin
|
||||||
|
case GetTokenID of
|
||||||
|
tkComment:
|
||||||
|
Result := FCommentAttri;
|
||||||
|
tkIdentifier:
|
||||||
|
Result := FIdentifierAttri;
|
||||||
|
tkKey:
|
||||||
|
Result := FKeyAttri;
|
||||||
|
tkReserved:
|
||||||
|
Result := FKeyAttri;
|
||||||
|
tkNumber:
|
||||||
|
Result := FNumberAttri;
|
||||||
|
tkStrict:
|
||||||
|
Result := FKeyAttri;
|
||||||
|
tkSpace:
|
||||||
|
Result := FSpaceAttri;
|
||||||
|
tkString:
|
||||||
|
Result := FStringAttri;
|
||||||
|
tkSymbol:
|
||||||
|
Result := FSymbolAttri;
|
||||||
|
tkUnknown:
|
||||||
|
Result := FIdentifierAttri;
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetTokenKind: Integer;
|
||||||
|
begin
|
||||||
|
Result := Ord(FTokenId);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.IsIdentChar(AChar: WideChar): Boolean;
|
||||||
|
begin
|
||||||
|
case AChar of
|
||||||
|
'A'..'Z', 'a'..'z', '_', '$', #$AA, #$B5, #$BA, #$C0..#$D6, #$D8..#$F6,
|
||||||
|
#$0F8..#$2C1:
|
||||||
|
Result := True;
|
||||||
|
else
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetSampleSource: UnicodeString;
|
||||||
|
begin
|
||||||
|
Result :=
|
||||||
|
'// Syntax highlighting'#13#10 +
|
||||||
|
'function printNumber()'#13#10 +
|
||||||
|
'{'#13#10 +
|
||||||
|
' var number = 1234;'#13#10 +
|
||||||
|
' var x;'#13#10 +
|
||||||
|
' document.write("The number is " + number);'#13#10 +
|
||||||
|
' for (var i = 0; i <= number; i++)'#13#10 +
|
||||||
|
' {'#13#10 +
|
||||||
|
' x++;'#13#10 +
|
||||||
|
' x--;'#13#10 +
|
||||||
|
' x += 1.0;'#13#10 +
|
||||||
|
' }'#13#10 +
|
||||||
|
' i += @; // illegal character'#13#10 +
|
||||||
|
'}'#13#10 +
|
||||||
|
'body.onLoad = printNumber;';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.IsFilterStored: Boolean;
|
||||||
|
begin
|
||||||
|
Result := FDefaultFilter <> SYNS_FilterECMAScript;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TSynECMAScriptSyn.GetFriendlyLanguageName: UnicodeString;
|
||||||
|
begin
|
||||||
|
Result := SYNS_FriendlyLangECMAScript;
|
||||||
|
end;
|
||||||
|
|
||||||
|
class function TSynECMAScriptSyn.GetLanguageName: string;
|
||||||
|
begin
|
||||||
|
Result := SYNS_LangECMAScript;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.ResetRange;
|
||||||
|
begin
|
||||||
|
FRange := rsUnknown;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TSynECMAScriptSyn.SetRange(Value: Pointer);
|
||||||
|
begin
|
||||||
|
FRange := TRangeState(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TSynECMAScriptSyn.GetRange: Pointer;
|
||||||
|
begin
|
||||||
|
Result := Pointer(FRange);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterPlaceableHighlighter(TSynECMAScriptSyn);
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user