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

added keywords to TSynPasSyn package, requires, contains

Browse Source 
git-svn-id: trunk@8976 -
This commit is contained in:
mattias 2006-03-22 00:31:19 +00:00
parent 0cb3ad4814
commit 44421a008a
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/synhighlighterpas.pp
View File

@ -182,6 +182,7 @@ type
function Func106: TtkTokenKind; function Func106: TtkTokenKind;
{$ifdef SYN_LAZARUS} {$ifdef SYN_LAZARUS}
function Func108: TtkTokenKind; // "operator" function Func108: TtkTokenKind; // "operator"
function Func112: TtkTokenKind; // "requires"
{$endif} {$endif}
function Func117: TtkTokenKind; function Func117: TtkTokenKind;
function Func126: TtkTokenKind; function Func126: TtkTokenKind;
@ -408,6 +409,7 @@ begin
fIdentFuncTable[106] := @Func106; fIdentFuncTable[106] := @Func106;
{$ifdef SYN_LAZARUS} {$ifdef SYN_LAZARUS}
fIdentFuncTable[108] := @Func108; // "operator" fIdentFuncTable[108] := @Func108; // "operator"
fIdentFuncTable[112] := @Func112; // "requires"
{$endif} {$endif}
fIdentFuncTable[117] := @Func117; fIdentFuncTable[117] := @Func117;
fIdentFuncTable[126] := @Func126; fIdentFuncTable[126] := @Func126;
@ -520,7 +522,7 @@ begin
end else begin end else begin
fStringLen := 0; fStringLen := 0;
end; end;
//if CompareText(copy(fLine,fToIdent,fStringLen),'widestring')=0 then debugln('TSynPasSyn.KeyHash '+copy(fLine,fToIdent,fStringLen)+'='+dbgs(Result)); //if CompareText(copy(fLine,fToIdent,fStringLen),'package')=0 then debugln('TSynPasSyn.KeyHash '+copy(fLine,fToIdent,fStringLen)+'='+dbgs(Result));
end; { KeyHash } end; { KeyHash }
{$ELSE} {$ELSE}
function TSynPasSyn.KeyHash(ToHash: PChar): Integer; function TSynPasSyn.KeyHash(ToHash: PChar): Integer;
@ -690,7 +692,12 @@ end;
function TSynPasSyn.Func44: TtkTokenKind; function TSynPasSyn.Func44: TtkTokenKind;
begin begin
if KeyComp('Set') then Result := tkKey else Result := tkIdentifier; if KeyComp('Set') then
Result := tkKey
else if KeyComp('Package') then
Result := tkKey
else
Result := tkIdentifier;
end; end;
function TSynPasSyn.Func45: TtkTokenKind; function TSynPasSyn.Func45: TtkTokenKind;
@ -878,7 +885,12 @@ end;
function TSynPasSyn.Func95: TtkTokenKind; function TSynPasSyn.Func95: TtkTokenKind;
begin begin
if KeyComp('Absolute') then Result := tkKey else Result := tkIdentifier; if KeyComp('Absolute') then
Result := tkKey
else if KeyComp('Contains') then
Result := tkKey
else
Result := tkIdentifier;
end; end;
function TSynPasSyn.Func96: TtkTokenKind; function TSynPasSyn.Func96: TtkTokenKind;
@ -945,6 +957,11 @@ function TSynPasSyn.Func108: TtkTokenKind;
begin begin
if KeyComp('Operator') then Result := tkKey else Result := tkIdentifier; if KeyComp('Operator') then Result := tkKey else Result := tkIdentifier;
end; end;
function TSynPasSyn.Func112: TtkTokenKind;
begin
if KeyComp('Requires') then Result := tkKey else Result := tkIdentifier;
end;
{$endif} {$endif}
function TSynPasSyn.Func117: TtkTokenKind; function TSynPasSyn.Func117: TtkTokenKind;