paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 20:40:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: support for objcprotocol, weakexternal

Browse Source 
git-svn-id: trunk@22770 -
This commit is contained in:
paul 2009-11-25 15:45:36 +00:00
parent 4173970827
commit c7a2f70a7a
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/synedit/synhighlighterpas.pp
View File

@ -353,9 +353,11 @@ type
function Func132: TtkTokenKind;
function Func133: TtkTokenKind;
function Func136: TtkTokenKind;
function Func139: TtkTokenKind;
function Func141: TtkTokenKind;
function Func142: TtkTokenKind; // "experimental"
function Func143: TtkTokenKind;
function Func144: TtkTokenKind;
function Func151: TtkTokenKind; // "unimplemented"
function Func166: TtkTokenKind;
function Func167: TtkTokenKind;
@ -686,9 +688,11 @@ begin
fIdentFuncTable[132] := @Func132;
fIdentFuncTable[133] := @Func133;
fIdentFuncTable[136] := @Func136;
fIdentFuncTable[139] := @Func139;
fIdentFuncTable[141] := @Func141;
fIdentFuncTable[142] := @Func142;
fIdentFuncTable[143] := @Func143;
fIdentFuncTable[144] := @Func144;
fIdentFuncTable[151] := @Func151;
fIdentFuncTable[166] := @Func166;
fIdentFuncTable[167] := @Func167;
@ -1741,6 +1745,18 @@ begin
else Result := tkIdentifier;
end;
function TSynPasSyn.Func139: TtkTokenKind;
begin
if KeyComp('WeakExternal') then
begin
Result := tkKey;
if TopPascalCodeFoldBlockType = cfbtProcedure then
EndPascalCodeFoldBlock(True);
end
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func141: TtkTokenKind;
begin
if KeyComp('Writeonly') then
@ -1780,6 +1796,21 @@ begin
Result := tkIdentifier;
end;
function TSynPasSyn.Func144: TtkTokenKind;
begin
if KeyComp('ObjcProtocol') then
begin
Result := tkKey;
if (rsAfterEqual in fRange) and (PasCodeFoldRange.BracketNestLevel = 0) then
begin
fRange := fRange + [rsAtClass];
StartPascalCodeFoldBlock(cfbtClass);
end;
end
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func151: TtkTokenKind;
begin
if KeyComp('Unimplemented') then