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

synedit: added TSysPasSysn.IsKeword for some common keywords

Browse Source 
git-svn-id: trunk@16933 -
This commit is contained in:
mattias 2008-10-08 16:48:09 +00:00
parent 7f2d78f450
commit 34cab91d4a
1 changed files with 80 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
components/synedit/synhighlighterpas.pp
View File

@ -57,7 +57,7 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Registry, Controls, Graphics,
Classes, Registry, Controls,
SynEditTypes, SynEditHighlighter, SynEditTextBuffer;
type
@ -300,6 +300,7 @@ type
function GetTokenID: TtkTokenKind;
function GetTokenKind: integer; override;
function GetTokenPos: Integer; override;
function IsKeyword(const AKeyword: string): boolean; override;
procedure Next; override;
procedure ResetRange; override;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string;
@ -348,11 +349,54 @@ type
implementation
uses
SynEditStrConst;
Graphics, SynEditStrConst;
const
RESERVED_WORDS_TP: array [1..54] of String = (
'absolute', 'and', 'array', 'asm',
'begin',
'case', 'const', 'constructor',
'destructor', 'div', 'do', 'downto',
'else', 'end',
'file', 'for', 'function',
'goto',
'if', 'implementation', 'in', 'inherited', 'inline', 'interface',
'label',
'mod',
'nil', 'not',
'object', 'of', 'on', 'operator', 'or',
'packed', 'procedure', 'program',
'record', 'reintroduce', 'repeat',
'self', 'set', 'shl', 'shr', 'string',
'then', 'to', 'type',
'unit', 'until', 'uses',
'var',
'while', 'with',
'xor'
);
RESERVED_WORDS_DELPHI: array [1..15] of String = (
'as',
'class',
'except', 'exports',
'finalization', 'finally',
'initialization', 'is',
'library',
'on', 'out',
'property',
'raise',
'threadvar',
'try'
);
RESERVED_WORDS_FPC: array [1..5] of String = (
'dispose', 'exit', 'false', 'new', 'true'
);
var
Identifiers: array[#0..#255] of ByteBool;
mHashTable: array[#0..#255] of Integer;
KeywordsList: TStringList;
{$IFDEF SYN_LAZARUS}
IsIntegerChar: array[char] of Boolean;
IsNumberChar: array[char] of Boolean;
@ -2052,6 +2096,35 @@ function TSynPasSyn.IsFilterStored: boolean;
begin
Result := fDefaultFilter <> SYNS_FilterPascal;
end;
function TSynPasSyn.IsKeyword(const AKeyword: string): boolean;
// returns true for some common keywords
// Note: this words are not always keywords (e.g. end), and some keywords are
// not listed here at all (e.g. static)
var
i: integer;
m: TPascalCompilerMode;
begin
if KeywordsList = nil then begin
KeywordsList := TStringList.Create;
for i := 1 to High(RESERVED_WORDS_TP) do
KeywordsList.AddObject(RESERVED_WORDS_TP[i], TObject(pcmTP));
for i := 1 to High(RESERVED_WORDS_DELPHI) do
KeywordsList.AddObject(RESERVED_WORDS_DELPHI[i], TObject(pcmDelphi));
for i := 1 to High(RESERVED_WORDS_FPC) do
KeywordsList.AddObject(RESERVED_WORDS_FPC[i], TObject(pcmFPC));
KeywordsList.Sorted := true;
end;
Result := KeywordsList.Find(LowerCase(AKeyword), i);
if not Result then exit;
m := TPascalCompilerMode(KeywordsList.Objects[i]);
case FCompilerMode of
pcmFPC, pcmObjFPC: ;
pcmDelphi: Result := m in [pcmTP, pcmDelphi];
else Result := m = pcmTP;
end;
end;
{end} //mh 2000-10-08
procedure TSynPasSyn.SetD4syntax(const Value: boolean);
@ -2095,6 +2168,10 @@ initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynPasSyn);
{$ENDIF}
finalization
FreeAndNil(KeywordsList);
end.