paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 17:01:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added keyword "operator"

Browse Source 
git-svn-id: trunk@290 -
This commit is contained in:
lazarus 2001-06-15 08:02:43 +00:00
parent 1e8f005ddf
commit be565cb5d9
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synhighlighterpas.pp
View File

@ -153,6 +153,9 @@ type
function Func103: TtkTokenKind;
function Func105: TtkTokenKind;
function Func106: TtkTokenKind;
{$ifdef SYN_LAZARUS}
function Func108: TtkTokenKind; // "operator"
{$endif}
function Func117: TtkTokenKind;
function Func126: TtkTokenKind;
function Func129: TtkTokenKind;
@ -333,6 +336,9 @@ begin
fIdentFuncTable[103] := @Func103;
fIdentFuncTable[105] := @Func105;
fIdentFuncTable[106] := @Func106;
{$ifdef SYN_LAZARUS}
fIdentFuncTable[108] := @Func108; // "operator"
{$endif}
fIdentFuncTable[117] := @Func117;
fIdentFuncTable[126] := @Func126;
fIdentFuncTable[129] := @Func129;
@ -791,6 +797,13 @@ begin
if KeyComp('Protected') then Result := tkKey else Result := tkIdentifier;
end;
{$ifdef SYN_LAZARUS}
function TSynPasSyn.Func108: TtkTokenKind;
begin
if KeyComp('Operator') then Result := tkKey else Result := tkIdentifier;
end;
{$endif}
function TSynPasSyn.Func117: TtkTokenKind;
begin
if KeyComp('Exports') then Result := tkKey else Result := tkIdentifier;
@ -975,6 +988,10 @@ begin
fRange := rsUnknown;
fAsmStart := False;
fDefaultFilter := SYNS_FilterPascal;
writeln('SYNPASSYN ---------------- operator=',KeyHash('operator'));
writeln('SYNPASSYN ---------------- as=',KeyHash('as'));
end; { Create }
procedure TSynPasSyn.SetLine(NewValue: string; LineNumber:Integer);