{------------------------------------------------------------------------------- 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. The Original Code is: SynHighlighterCpp.pas, released 2000-04-10. The Original Code is based on the dcjCppSyn.pas file from the mwEdit component suite by Martin Waldenburg and other developers, the Initial Author of this file is Michael Trier. 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 Known Issues: - strings on multiple lines are not supported -------------------------------------------------------------------------------} { @abstract(Provides a C++ syntax highlighter for SynEdit) @author(Michael Trier) @created(1998) @lastmod(2000-05-05) The SynHighlighterCpp unit provides SynEdit with a C++ syntax highlighter. Thanks to Martin Waldenburg. } unit SynHighlighterCpp; {$I synedit.inc} interface uses SysUtils, LCLIntf, Classes, Registry, Controls, Graphics, SynEditTypes, SynEditHighlighter; type TtkTokenKind = (tkAsm, tkComment, tkDirective, tkIdentifier, tkKey, tkNull, tkNumber, tkSpace, tkString, tkSymbol, tkUnknown); TxtkTokenKind = ( xtkAdd, xtkAddAssign, xtkAnd, xtkAndAssign, xtkArrow, xtkAssign, xtkBitComplement, xtkBraceClose, xtkBraceOpen, xtkColon, xtkComma, xtkDecrement, xtkDivide, xtkDivideAssign, xtkEllipse, xtkGreaterThan, xtkGreaterThanEqual, xtkIncOr, xtkIncOrAssign, xtkIncrement, xtkLessThan, xtkLessThanEqual, xtkLogAnd, xtkLogComplement, xtkLogEqual, xtkLogOr, xtkMod, xtkModAssign, xtkMultiplyAssign, xtkNotEqual, xtkPoint, xtkQuestion, xtkRoundClose, xtkRoundOpen, xtkScopeResolution, xtkSemiColon, xtkShiftLeft, xtkShiftLeftAssign, xtkShiftRight, xtkShiftRightAssign, xtkSquareClose, xtkSquareOpen, xtkStar, xtkSubtract, xtkSubtractAssign, xtkXor, xtkXorAssign); TRangeState = (rsUnknown, rsAnsiC, rsAnsiCAsm, rsAnsiCAsmBlock, rsAsm, rsAsmBlock, rsDirective, rsDirectiveComment, {rsString34, rsString39,} rsAsmBlockString, rsAsmString, rsDirectiveString, rsString ); const // map the range into a stringtype range (comments are never mapped into string) // keep the range, if it already is a string-range SynCppRangeToStringRange: Array [TRangeState] of TRangeState = (rsString, rsString, rsString, rsString, rsAsmString, rsAsmBlockString, rsDirectiveString, rsString, rsAsmBlockString, rsAsmString, rsDirectiveString, rsString ); // map the string-range back into the correct range // non string ranges are kept as they were SynCppStringRangeToRange: Array [TRangeState] of TRangeState = (rsUnknown, rsAnsiC, rsAnsiCAsm, rsAnsiCAsmBlock, rsAsm, rsAsmBlock, rsDirective, rsDirectiveComment, rsAsmBlock, rsAsm, rsDirective, rsUnknown ); type TProcTableProc = procedure of object; PIdentFuncTableFunc = ^TIdentFuncTableFunc; TIdentFuncTableFunc = function: TtkTokenKind of object; TSynCppSyn = class(TSynCustomHighlighter) private fAsmStart: Boolean; fRange: TRangeState; fLine: PChar; fProcTable: array[#0..#255] of TProcTableProc; Run: LongInt; fStringLen: Integer; fToIdent: PChar; fTokenPos: Integer; FTokenID: TtkTokenKind; FExtTokenID: TxtkTokenKind; fLineNumber: Integer; fIdentFuncTable: array[0..206] of TIdentFuncTableFunc; fAsmAttri: TSynHighlighterAttributes; fCommentAttri: TSynHighlighterAttributes; fDirecAttri: TSynHighlighterAttributes; fIdentifierAttri: TSynHighlighterAttributes; fInvalidAttri: TSynHighlighterAttributes; fKeyAttri: TSynHighlighterAttributes; fNumberAttri: TSynHighlighterAttributes; fSpaceAttri: TSynHighlighterAttributes; fStringAttri: TSynHighlighterAttributes; fSymbolAttri: TSynHighlighterAttributes; function KeyHash(ToHash: PChar): Integer; function KeyComp(const aKey: String): Boolean; function Func17: TtkTokenKind; function Func21: TtkTokenKind; function Func32: TtkTokenKind; function Func34: TtkTokenKind; function Func36: TtkTokenKind; function Func40: TtkTokenKind; function Func42: TtkTokenKind; function Func45: TtkTokenKind; function Func46: TtkTokenKind; function Func48: TtkTokenKind; function Func52: TtkTokenKind; function Func54: TtkTokenKind; function Func57: TtkTokenKind; function Func58: TtkTokenKind; function Func59: TtkTokenKind; function Func60: TtkTokenKind; function Func61: TtkTokenKind; function Func62: TtkTokenKind; function Func64: TtkTokenKind; function Func65: TtkTokenKind; function Func66: TtkTokenKind; function Func67: TtkTokenKind; function Func68: TtkTokenKind; function Func69: TtkTokenKind; function Func71: TtkTokenKind; function Func74: TtkTokenKind; function Func75: TtkTokenKind; function Func76: TtkTokenKind; function Func78: TtkTokenKind; function Func79: TtkTokenKind; function Func81: TtkTokenKind; function Func82: TtkTokenKind; function Func85: TtkTokenKind; function Func86: TtkTokenKind; function Func88: TtkTokenKind; function Func89: TtkTokenKind; function Func92: TtkTokenKind; function Func97: TtkTokenKind; function Func98: TtkTokenKind; function Func100: TtkTokenKind; function Func101: TtkTokenKind; function Func102: TtkTokenKind; function Func104: TtkTokenKind; function Func105: TtkTokenKind; function Func106: TtkTokenKind; function Func107: TtkTokenKind; function Func109: TtkTokenKind; function Func110: TtkTokenKind; function Func115: TtkTokenKind; function Func116: TtkTokenKind; function Func123: TtkTokenKind; function Func125: TtkTokenKind; function Func141: TtkTokenKind; function Func206: TtkTokenKind; procedure AnsiCProc; procedure AndSymbolProc; procedure AsciiCharProc; procedure AtSymbolProc; procedure BraceCloseProc; procedure BraceOpenProc; procedure CRProc; procedure ColonProc; procedure CommaProc; procedure DirectiveProc; procedure EqualProc; procedure GreaterProc; procedure IdentProc; procedure LFProc; procedure LowerProc; procedure MinusProc; procedure ModSymbolProc; procedure NotSymbolProc; procedure NullProc; procedure NumberProc; procedure OrSymbolProc; procedure PlusProc; procedure PointProc; procedure QuestionProc; procedure RoundCloseProc; procedure RoundOpenProc; procedure SemiColonProc; procedure SlashProc; procedure SpaceProc; procedure SquareCloseProc; procedure SquareOpenProc; procedure StarProc; procedure StringProc; procedure TildeProc; procedure XOrSymbolProc; procedure UnknownProc; function AltFunc: TtkTokenKind; procedure InitIdent; function IdentKind(MayBe: PChar): TtkTokenKind; procedure MakeMethodTables; protected function GetIdentChars: TSynIdentChars; override; function GetExtTokenID: TxtkTokenKind; public class function GetCapabilities: TSynHighlighterCapabilities; override; class function GetLanguageName: string; override; public constructor Create(AOwner: TComponent); override; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override; function GetEol: Boolean; override; function GetRange: Pointer; override; function GetTokenID: TtkTokenKind; procedure SetLine(const NewValue: String; LineNumber:Integer); override; function GetToken: String; override; procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override; function GetTokenAttribute: TSynHighlighterAttributes; override; function GetTokenKind: integer; override; function GetTokenPos: Integer; override; procedure Next; override; procedure SetRange(Value: Pointer); override; procedure ResetRange; override; function UseUserSettings(settingIndex: integer): boolean; override; procedure EnumUserSettings(settings: TStrings); override; property ExtTokenID: TxtkTokenKind read GetExtTokenID; published property AsmAttri: TSynHighlighterAttributes read fAsmAttri write fAsmAttri; property CommentAttri: TSynHighlighterAttributes read fCommentAttri write fCommentAttri; property DirecAttri: TSynHighlighterAttributes read fDirecAttri write fDirecAttri; property IdentifierAttri: TSynHighlighterAttributes read fIdentifierAttri write fIdentifierAttri; property InvalidAttri: TSynHighlighterAttributes read fInvalidAttri write fInvalidAttri; 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; var Identifiers: array[#0..#255] of ByteBool; mHashTable: array[#0..#255] of Integer; procedure MakeIdentTable; var I: Char; begin for I := #0 to #255 do begin Case I of '_', '0'..'9', 'a'..'z', 'A'..'Z': Identifiers[I] := True; else Identifiers[I] := False; end; Case I in['_', 'a'..'z', 'A'..'Z'] of True: begin if (I > #64) and (I < #91) then mHashTable[I] := Ord(I) - 64 else if (I > #96) then mHashTable[I] := Ord(I) - 95; end; else mHashTable[I] := 0; end; end; end; procedure TSynCppSyn.InitIdent; var I: Integer; pF: PIdentFuncTableFunc; begin pF := PIdentFuncTableFunc(@fIdentFuncTable); for I := Low(fIdentFuncTable) to High(fIdentFuncTable) do begin pF^ := @AltFunc; Inc(pF); end; fIdentFuncTable[17] := @Func17; fIdentFuncTable[21] := @Func21; fIdentFuncTable[32] := @Func32; fIdentFuncTable[34] := @Func34; fIdentFuncTable[36] := @Func36; fIdentFuncTable[40] := @Func40; fIdentFuncTable[42] := @Func42; fIdentFuncTable[45] := @Func45; fIdentFuncTable[46] := @Func46; fIdentFuncTable[48] := @Func48; fIdentFuncTable[52] := @Func52; fIdentFuncTable[54] := @Func54; fIdentFuncTable[57] := @Func57; fIdentFuncTable[58] := @Func58; fIdentFuncTable[59] := @Func59; fIdentFuncTable[60] := @Func60; fIdentFuncTable[61] := @Func61; fIdentFuncTable[62] := @Func62; fIdentFuncTable[64] := @Func64; fIdentFuncTable[65] := @Func65; fIdentFuncTable[66] := @Func66; fIdentFuncTable[67] := @Func67; fIdentFuncTable[68] := @Func68; fIdentFuncTable[69] := @Func69; fIdentFuncTable[71] := @Func71; fIdentFuncTable[74] := @Func74; fIdentFuncTable[75] := @Func75; fIdentFuncTable[76] := @Func76; fIdentFuncTable[78] := @Func78; fIdentFuncTable[79] := @Func79; fIdentFuncTable[81] := @Func81; fIdentFuncTable[82] := @Func82; fIdentFuncTable[85] := @Func85; fIdentFuncTable[86] := @Func86; fIdentFuncTable[88] := @Func88; fIdentFuncTable[89] := @Func89; fIdentFuncTable[92] := @Func92; fIdentFuncTable[97] := @Func97; fIdentFuncTable[98] := @Func98; fIdentFuncTable[100] := @Func100; fIdentFuncTable[101] := @Func101; fIdentFuncTable[102] := @Func102; fIdentFuncTable[104] := @Func104; fIdentFuncTable[105] := @Func105; fIdentFuncTable[106] := @Func106; fIdentFuncTable[107] := @Func107; fIdentFuncTable[109] := @Func109; fIdentFuncTable[110] := @Func110; fIdentFuncTable[115] := @Func115; fIdentFuncTable[116] := @Func116; fIdentFuncTable[123] := @Func123; fIdentFuncTable[125] := @Func125; fIdentFuncTable[141] := @Func141; fIdentFuncTable[206] := @Func206; end; function TSynCppSyn.KeyHash(ToHash: PChar): Integer; begin Result := 0; while ToHash^ in ['_', '0'..'9', 'a'..'z', 'A'..'Z'] do begin inc(Result, mHashTable[ToHash^]); inc(ToHash); end; fStringLen := ToHash - fToIdent; end; { KeyHash } function TSynCppSyn.KeyComp(const aKey: String): Boolean; var I: Integer; Temp: PChar; begin Temp := fToIdent; if Length(aKey) = fStringLen then begin Result := True; for i := 1 to fStringLen do begin if Temp^ <> aKey[i] then begin Result := False; break; end; inc(Temp); end; end else Result := False; end; { KeyComp } function TSynCppSyn.Func17: TtkTokenKind; begin if KeyComp('if') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func21: TtkTokenKind; begin if KeyComp('do') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func32: TtkTokenKind; begin if KeyComp('cdecl') then Result := tkKey else if KeyComp('case') then Result := tkKey else if KeyComp('_cdecl') then Result := tkKey else if KeyComp('__cdecl') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func34: TtkTokenKind; begin if KeyComp('char') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func36: TtkTokenKind; begin if KeyComp('asm') or KeyComp('_asm') or KeyComp('__asm') then begin Result := tkKey; fRange := rsAsm; fAsmStart := True; end else Result := tkIdentifier; end; function TSynCppSyn.Func40: TtkTokenKind; begin if KeyComp('catch') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func42: TtkTokenKind; begin if KeyComp('for') then Result := tkKey else if KeyComp('break') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func45: TtkTokenKind; begin if KeyComp('else') then Result := tkKey else if KeyComp('new') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func46: TtkTokenKind; begin if KeyComp('__int8') then Result := tkKey else if KeyComp('__int16') then Result := tkKey else if KeyComp('int') then Result := tkKey else if KeyComp('__int32') then Result := tkKey else if KeyComp('__int64') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func48: TtkTokenKind; begin if KeyComp('false') then Result := tkKey else if KeyComp('bool') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func52: TtkTokenKind; begin if KeyComp('long') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func54: TtkTokenKind; begin if KeyComp('void') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func57: TtkTokenKind; begin if KeyComp('enum') then Result := tkKey else if KeyComp('delete') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func58: TtkTokenKind; begin if KeyComp('_pascal') then Result := tkKey else if KeyComp('__pascal') then Result := tkKey else if KeyComp('pascal') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func59: TtkTokenKind; begin if KeyComp('class') then Result := tkKey else if KeyComp('float') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func60: TtkTokenKind; begin if KeyComp('this') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func61: TtkTokenKind; begin if KeyComp('goto') then Result := tkKey else if KeyComp('auto') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func62: TtkTokenKind; begin if KeyComp('__thread') then Result := tkKey else if KeyComp('while') then Result := tkKey else if KeyComp('friend') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func64: TtkTokenKind; begin if KeyComp('signed') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func65: TtkTokenKind; begin if KeyComp('double') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func66: TtkTokenKind; begin if KeyComp('__try') then Result := tkKey else if KeyComp('try') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func67: TtkTokenKind; begin if KeyComp('__dispid') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func68: TtkTokenKind; begin if KeyComp('true') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func69: TtkTokenKind; begin if KeyComp('public') then Result := tkKey else if KeyComp('inline') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func71: TtkTokenKind; begin if KeyComp('__rtti') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func74: TtkTokenKind; begin if KeyComp('__classid') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func75: TtkTokenKind; begin if KeyComp('__declspec') then Result := tkKey else if KeyComp('using') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func76: TtkTokenKind; begin if KeyComp('const') then Result := tkKey else if KeyComp('default') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func78: TtkTokenKind; begin if KeyComp('_stdcall') then Result := tkKey else if KeyComp('union') then Result := tkKey else if KeyComp('__stdcall') then Result := tkKey else if KeyComp('static') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func79: TtkTokenKind; begin if KeyComp('__except') then Result := tkKey else if KeyComp('wchar_t') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func81: TtkTokenKind; begin if KeyComp('mutable') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func82: TtkTokenKind; begin if KeyComp('_fastcall') then Result := tkKey else if KeyComp('__fastcall') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func85: TtkTokenKind; begin if KeyComp('short') then Result := tkKey else if KeyComp('typeid') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func86: TtkTokenKind; begin if KeyComp('sizeof') then Result := tkKey else if KeyComp('__finally') then Result := tkKey else if KeyComp('namespace') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func88: TtkTokenKind; begin if KeyComp('switch') then Result := tkKey else if KeyComp('typedef') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func89: TtkTokenKind; begin if KeyComp('throw') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func92: TtkTokenKind; begin if KeyComp('extern') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func97: TtkTokenKind; begin if KeyComp('__import') then Result := tkKey else if KeyComp('_import') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func98: TtkTokenKind; begin if KeyComp('private') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func100: TtkTokenKind; begin if KeyComp('template') then Result := tkKey else if KeyComp('__closure') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func101: TtkTokenKind; begin if KeyComp('unsigned') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func102: TtkTokenKind; begin if KeyComp('return') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func104: TtkTokenKind; begin if KeyComp('volatile') then Result := tkKey else if KeyComp('_export') then Result := tkKey else if KeyComp('__export') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func105: TtkTokenKind; begin if KeyComp('__published') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func106: TtkTokenKind; begin if KeyComp('explicit') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func107: TtkTokenKind; begin if KeyComp('typename') then Result := tkKey else if KeyComp('struct') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func109: TtkTokenKind; begin if KeyComp('register') then Result := tkKey else if KeyComp('continue') then Result := tkKey else if KeyComp('__automated') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func110: TtkTokenKind; begin if KeyComp('virtual') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func115: TtkTokenKind; begin if KeyComp('protected') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func116: TtkTokenKind; begin if KeyComp('operator') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func123: TtkTokenKind; begin if KeyComp('dynamic_cast') then Result := tkKey else if KeyComp('const_cast') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func125: TtkTokenKind; begin if KeyComp('static_cast') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func141: TtkTokenKind; begin if KeyComp('__property') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.Func206: TtkTokenKind; begin if KeyComp('reinterpret_cast') then Result := tkKey else Result := tkIdentifier; end; function TSynCppSyn.AltFunc: TtkTokenKind; begin Result := tkIdentifier; end; function TSynCppSyn.IdentKind(MayBe: PChar): TtkTokenKind; var HashKey: Integer; begin fToIdent := MayBe; HashKey := KeyHash(MayBe); if HashKey < 207 then Result := fIdentFuncTable[HashKey]() else Result := tkIdentifier; end; procedure TSynCppSyn.MakeMethodTables; var I: Char; begin for I := #0 to #255 do case I of '&': fProcTable[I] := @AndSymbolProc; #39: fProcTable[I] := @AsciiCharProc; '@': fProcTable[I] := @AtSymbolProc; '}': fProcTable[I] := @BraceCloseProc; '{': fProcTable[I] := @BraceOpenProc; #13: fProcTable[I] := @CRProc; ':': fProcTable[I] := @ColonProc; ',': fProcTable[I] := @CommaProc; '#': fProcTable[I] := @DirectiveProc; '=': fProcTable[I] := @EqualProc; '>': fProcTable[I] := @GreaterProc; '?': fProcTable[I] := @QuestionProc; 'A'..'Z', 'a'..'z', '_': fProcTable[I] := @IdentProc; #10: fProcTable[I] := @LFProc; '<': fProcTable[I] := @LowerProc; '-': fProcTable[I] := @MinusProc; '%': fProcTable[I] := @ModSymbolProc; '!': fProcTable[I] := @NotSymbolProc; #0: fProcTable[I] := @NullProc; '0'..'9': fProcTable[I] := @NumberProc; '|': fProcTable[I] := @OrSymbolProc; '+': fProcTable[I] := @PlusProc; '.': fProcTable[I] := @PointProc; ')': fProcTable[I] := @RoundCloseProc; '(': fProcTable[I] := @RoundOpenProc; ';': fProcTable[I] := @SemiColonProc; '/': fProcTable[I] := @SlashProc; #1..#9, #11, #12, #14..#32: fProcTable[I] := @SpaceProc; ']': fProcTable[I] := @SquareCloseProc; '[': fProcTable[I] := @SquareOpenProc; '*': fProcTable[I] := @StarProc; #34: fProcTable[I] := @StringProc; '~': fProcTable[I] := @TildeProc; '^': fProcTable[I] := @XOrSymbolProc; else fProcTable[I] := @UnknownProc; end; end; constructor TSynCppSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); fAsmAttri := TSynHighlighterAttributes.Create(@SYNS_AttrAssembler, SYNS_XML_AttrAssembler); AddAttribute(fAsmAttri); fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style:= [fsItalic]; AddAttribute(fCommentAttri); fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); fInvalidAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar); AddAttribute(fInvalidAttri); fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style:= [fsBold]; AddAttribute(fKeyAttri); fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); fSpaceAttri.Foreground := clWindow; AddAttribute(fSpaceAttri); fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); fDirecAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor); AddAttribute(fDirecAttri); SetAttributesOnChange(@DefHighlightChange); InitIdent; MakeMethodTables; fRange := rsUnknown; fAsmStart := False; fDefaultFilter := SYNS_FilterCPP; end; { Create } procedure TSynCppSyn.SetLine(const NewValue: String; LineNumber:Integer); begin inherited; fLine := PChar(NewValue); Run := 0; fLineNumber := LineNumber; Next; end; { SetLine } procedure TSynCppSyn.AnsiCProc; begin fTokenID := tkComment; case FLine[Run] of #0: begin NullProc; exit; end; #10: begin LFProc; exit; end; #13: begin CRProc; exit; end; end; while FLine[Run] <> #0 do case FLine[Run] of '*': if fLine[Run + 1] = '/' then begin inc(Run, 2); if fRange = rsAnsiCAsm then fRange := rsAsm else if fRange = rsAnsiCAsmBlock then fRange := rsAsmBlock else if fRange = rsDirectiveComment then fRange := rsDirective else fRange := rsUnKnown; break; end else inc(Run); #10: break; #13: break; else inc(Run); end; end; procedure TSynCppSyn.AndSymbolProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {and assign} begin inc(Run, 2); FExtTokenID := xtkAndAssign; end; '&': {logical and} begin inc(Run, 2); FExtTokenID := xtkLogAnd; end; else {and} begin inc(Run); FExtTokenID := xtkAnd; end; end; end; procedure TSynCppSyn.AsciiCharProc; begin fTokenID := tkString; repeat if fLine[Run] = '\' then begin if fLine[Run + 1] in [#39, '\'] then //ek 2000-04-26 inc(Run); end; inc(Run); until fLine[Run] in [#0, #10, #13, #39]; if fLine[Run] = #39 then inc(Run); end; procedure TSynCppSyn.AtSymbolProc; begin fTokenID := tkUnknown; inc(Run); end; procedure TSynCppSyn.BraceCloseProc; begin inc(Run); fTokenId := tkSymbol; FExtTokenID := xtkBraceClose; if fRange = rsAsmBlock then fRange := rsUnknown; end; procedure TSynCppSyn.BraceOpenProc; begin inc(Run); fTokenId := tkSymbol; FExtTokenID := xtkBraceOpen; if fRange = rsAsm then begin fRange := rsAsmBlock; fAsmStart := True; end; end; procedure TSynCppSyn.CRProc; begin fTokenID := tkSpace; Inc(Run); if fLine[Run + 1] = #10 then Inc(Run); end; procedure TSynCppSyn.ColonProc; begin fTokenID := tkSymbol; Case FLine[Run + 1] of ':': {scope resolution operator} begin inc(Run, 2); FExtTokenID := xtkScopeResolution; end; else {colon} begin inc(Run); FExtTokenID := xtkColon; end; end; end; procedure TSynCppSyn.CommaProc; begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkComma; end; procedure TSynCppSyn.DirectiveProc; begin if fLine[Run] in [#0, #10, #13] then begin if (Run <= 0) or (fLine[Run - 1] <> '\') then fRange := rsUnknown; fProcTable[fLine[Run]]; end else begin fTokenID := tkDirective; while TRUE do case fLine[Run] of '/': // comment? begin if fLine[Run + 1] = '/' then begin // is end of directive as well fRange := rsUnknown; //ek 2000-04-25 break; end else if fLine[Run + 1] = '*' then begin // might be embedded only fRange := rsDirectiveComment; break; end else Inc(Run); end; '\': // directive continued on next line? begin Inc(Run); if fLine[Run] in [#0, #10, #13] then begin fRange := rsDirective; break; end; end; #0, #10, #13: begin fRange := rsUnknown; break; end; else Inc(Run); end; end; end; procedure TSynCppSyn.EqualProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {logical equal} begin inc(Run, 2); FExtTokenID := xtkLogEqual; end; else {assign} begin inc(Run); FExtTokenID := xtkAssign; end; end; end; procedure TSynCppSyn.GreaterProc; begin fTokenID := tkSymbol; Case FLine[Run + 1] of '=': {greater than or equal to} begin inc(Run, 2); FExtTokenID := xtkGreaterThanEqual; end; '>': begin if FLine[Run + 2] = '=' then {shift right assign} begin inc(Run, 3); FExtTokenID := xtkShiftRightAssign; end else {shift right} begin inc(Run, 2); FExtTokenID := xtkShiftRight; end; end; else {greater than} begin inc(Run); FExtTokenID := xtkGreaterThan; end; end; end; procedure TSynCppSyn.QuestionProc; begin fTokenID := tkSymbol; {conditional} FExtTokenID := xtkQuestion; inc(Run); end; procedure TSynCppSyn.IdentProc; begin fTokenID := IdentKind((fLine + Run)); inc(Run, fStringLen); while Identifiers[fLine[Run]] do inc(Run); end; procedure TSynCppSyn.LFProc; begin fTokenID := tkSpace; inc(Run); end; procedure TSynCppSyn.LowerProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {less than or equal to} begin inc(Run, 2); FExtTokenID := xtkLessThanEqual; end; '<': begin if FLine[Run + 2] = '=' then {shift left assign} begin inc(Run, 3); FExtTokenID := xtkShiftLeftAssign; end else {shift left} begin inc(Run, 2); FExtTokenID := xtkShiftLeft; end; end; else {less than} begin inc(Run); FExtTokenID := xtkLessThan; end; end; end; procedure TSynCppSyn.MinusProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {subtract assign} begin inc(Run, 2); FExtTokenID := xtkSubtractAssign; end; '-': {decrement} begin inc(Run, 2); FExtTokenID := xtkDecrement; end; '>': {arrow} begin inc(Run, 2); FExtTokenID := xtkArrow; end; else {subtract} begin inc(Run); FExtTokenID := xtkSubtract; end; end; end; procedure TSynCppSyn.ModSymbolProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {mod assign} begin inc(Run, 2); FExtTokenID := xtkModAssign; end; else {mod} begin inc(Run); FExtTokenID := xtkMod; end; end; end; procedure TSynCppSyn.NotSymbolProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {not equal} begin inc(Run, 2); FExtTokenID := xtkNotEqual; end; else {not} begin inc(Run); FExtTokenID := xtkLogComplement; end; end; end; procedure TSynCppSyn.NullProc; begin fTokenID := tkNull; end; procedure TSynCppSyn.NumberProc; begin inc(Run); fTokenID := tkNumber; while FLine[Run] in ['0'..'9', 'A'..'F', 'a'..'f', '.', 'u', 'U', 'l', 'L', 'x', 'X'] do begin case FLine[Run] of '.': if FLine[Run + 1] = '.' then break; end; inc(Run); end; end; procedure TSynCppSyn.OrSymbolProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {or assign} begin inc(Run, 2); FExtTokenID := xtkIncOrAssign; end; '|': {logical or} begin inc(Run, 2); FExtTokenID := xtkLogOr; end; else {or} begin inc(Run); FExtTokenID := xtkIncOr; end; end; end; procedure TSynCppSyn.PlusProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {add assign} begin inc(Run, 2); FExtTokenID := xtkAddAssign; end; '+': {increment} begin inc(Run, 2); FExtTokenID := xtkIncrement; end; else {add} begin inc(Run); FExtTokenID := xtkAdd; end; end; end; procedure TSynCppSyn.PointProc; begin fTokenID := tkSymbol; if (FLine[Run + 1] = '.') and (FLine[Run + 2] = '.') then begin {ellipse} inc(Run, 3); FExtTokenID := xtkEllipse; end else {point} begin inc(Run); FExtTokenID := xtkPoint; end; end; procedure TSynCppSyn.RoundCloseProc; begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkRoundClose; end; procedure TSynCppSyn.RoundOpenProc; begin inc(Run); FTokenID := tkSymbol; FExtTokenID := xtkRoundOpen; end; procedure TSynCppSyn.SemiColonProc; begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkSemiColon; if fRange = rsAsm then fRange := rsUnknown; end; procedure TSynCppSyn.SlashProc; begin case FLine[Run + 1] of '/': {c++ style comments} begin fTokenID := tkComment; inc(Run, 2); while not (fLine[Run] in [#0, #10, #13]) do Inc(Run); end; '*': {c style comments} begin fTokenID := tkComment; if fRange = rsAsm then fRange := rsAnsiCAsm else if fRange = rsAsmBlock then fRange := rsAnsiCAsmBlock else if fRange <> rsDirectiveComment then fRange := rsAnsiC; inc(Run, 2); while fLine[Run] <> #0 do case fLine[Run] of '*': if fLine[Run + 1] = '/' then begin inc(Run, 2); if fRange = rsDirectiveComment then fRange := rsDirective else if fRange = rsAnsiCAsm then fRange := rsAsm else begin if fRange = rsAnsiCAsmBlock then fRange := rsAsmBlock else fRange := rsUnKnown; end; break; end else inc(Run); #10, #13: begin if fRange = rsDirectiveComment then fRange := rsAnsiC; break; end; else inc(Run); end; end; '=': {divide assign} begin inc(Run, 2); fTokenID := tkSymbol; FExtTokenID := xtkDivideAssign; end; else {divide} begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkDivide; end; end; end; procedure TSynCppSyn.SpaceProc; begin inc(Run); fTokenID := tkSpace; while FLine[Run] in [#1..#9, #11, #12, #14..#32] do inc(Run); end; procedure TSynCppSyn.SquareCloseProc; begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkSquareClose; end; procedure TSynCppSyn.SquareOpenProc; begin inc(Run); fTokenID := tkSymbol; FExtTokenID := xtkSquareOpen; end; procedure TSynCppSyn.StarProc; begin fTokenID := tkSymbol; case FLine[Run + 1] of '=': {multiply assign} begin inc(Run, 2); FExtTokenID := xtkMultiplyAssign; end; else {star} begin inc(Run); FExtTokenID := xtkStar; end; end; end; procedure TSynCppSyn.StringProc; begin case FLine[Run] of #0: begin NullProc; exit; end; #10: begin LFProc; exit; end; #13: begin CRProc; exit; end; end; fTokenID := tkString; if not((fRange in [rsAsmBlockString,rsAsmString,rsDirectiveString,rsString]) and (Run = 0) and (FLine[Run] = #34 )) then repeat if fLine[Run] = '\' then begin if fLine[Run + 1] in [#34, '\'] then //ek 2000-04-26 Inc(Run); end; inc(Run); until fLine[Run] in [#0, #10, #13, #34]; if FLine[Run] = #34 then begin inc(Run); fRange := SynCppStringRangeToRange[fRange]; end else begin // string continues in next line fRange := SynCppRangeToStringRange[fRange]; end; end; procedure TSynCppSyn.TildeProc; begin inc(Run); {bitwise complement} fTokenId := tkSymbol; FExtTokenID := xtkBitComplement; end; procedure TSynCppSyn.XOrSymbolProc; begin fTokenID := tkSymbol; Case FLine[Run + 1] of '=': {xor assign} begin inc(Run, 2); FExtTokenID := xtkXorAssign; end; else {xor} begin inc(Run); FExtTokenID := xtkXor; end; end; end; procedure TSynCppSyn.UnknownProc; begin inc(Run); while (fLine[Run] in [#128..#191]) OR // continued utf8 subcode ((fLine[Run]<>#0) and (fProcTable[fLine[Run]] = @UnknownProc)) do inc(Run); fTokenID := tkUnknown; end; procedure TSynCppSyn.Next; begin fAsmStart := False; fTokenPos := Run; case fRange of rsAnsiC, rsAnsiCAsm, rsAnsiCAsmBlock, rsDirectiveComment: AnsiCProc; rsAsmBlockString,rsAsmString,rsDirectiveString,rsString: StringProc; rsDirective: DirectiveProc; else begin fRange := rsUnknown; fProcTable[fLine[Run]]; end; end; end; function TSynCppSyn.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_NUMBER: Result := fNumberAttri; SYN_ATTR_DIRECTIVE: Result := fDirecAttri; SYN_ATTR_ASM: Result := fAsmAttri; else Result := nil; end; end; function TSynCppSyn.GetEol: Boolean; begin Result := fTokenID = tkNull; end; function TSynCppSyn.GetRange: Pointer; begin Result := Pointer(PtrInt(fRange)); end; function TSynCppSyn.GetToken: String; var Len: LongInt; begin Result := ''; Len := Run - fTokenPos; SetString(Result, (FLine + fTokenPos), Len); end; procedure TSynCppSyn.GetTokenEx(out TokenStart: PChar; out TokenLength: integer); begin TokenLength:=Run-fTokenPos; TokenStart:=FLine + fTokenPos; end; function TSynCppSyn.GetTokenID: TtkTokenKind; begin Result := fTokenId; if ((fRange = rsAsm) or (fRange = rsAsmBlock)) and not fAsmStart and not (fTokenId in [tkComment, tkSpace, tkNull]) then Result := tkAsm; end; function TSynCppSyn.GetExtTokenID: TxtkTokenKind; begin Result := FExtTokenID; end; function TSynCppSyn.GetTokenAttribute: TSynHighlighterAttributes; begin case fTokenID of tkAsm: Result := fAsmAttri; tkComment: Result := fCommentAttri; tkDirective: Result := fDirecAttri; tkIdentifier: Result := fIdentifierAttri; tkKey: Result := fKeyAttri; tkNumber: Result := fNumberAttri; tkSpace: Result := fSpaceAttri; tkString: Result := fStringAttri; tkSymbol: Result := fSymbolAttri; tkUnknown: Result := fInvalidAttri; else Result := nil; end; end; function TSynCppSyn.GetTokenKind: integer; begin Result := Ord(GetTokenID); end; function TSynCppSyn.GetTokenPos: Integer; begin Result := fTokenPos; end; procedure TSynCppSyn.ReSetRange; begin fRange:= rsUnknown; end; procedure TSynCppSyn.SetRange(Value: Pointer); begin fRange := TRangeState(PtrUInt(Value)); end; procedure TSynCppSyn.EnumUserSettings(settings: TStrings); begin { returns the user settings that exist in the registry } with TRegistry.Create do begin try RootKey := HKEY_LOCAL_MACHINE; {$IFNDEF SYN_LAZARUS} if OpenKeyReadOnly('\SOFTWARE\Borland\C++Builder') then begin try GetKeyNames(settings); finally CloseKey; end; end; {$ENDIF} finally Free; end; end; end; function TSynCppSyn.UseUserSettings(settingIndex: integer): boolean; // Possible parameter values: // index into TStrings returned by EnumUserSettings // Possible return values: // true : settings were read and used // false: problem reading settings or invalid version specified - old settings // were preserved function ReadCPPBSettings(settingIndex: integer): boolean; function ReadCPPBSetting(settingTag: string; attri: TSynHighlighterAttributes; key: string): boolean; function ReadCPPB1(settingTag: string; attri: TSynHighlighterAttributes; name: string): boolean; var i: integer; begin for i := 1 to Length(name) do if name[i] = ' ' then name[i] := '_'; Result := attri.LoadFromBorlandRegistry(HKEY_CURRENT_USER, '\SOFTWARE\Borland\C++Builder\'+settingTag+'\Highlight',name,true); end; { ReadCPPB1 } function ReadCPPB3OrMore(settingTag: string; attri: TSynHighlighterAttributes; key: string): boolean; begin Result := attri.LoadFromBorlandRegistry(HKEY_CURRENT_USER, '\Software\Borland\C++Builder\'+settingTag+'\Editor\Highlight', key,false); end; { ReadCPPB3OrMore } begin { ReadCPPBSetting } try if (settingTag[1] = '1') then Result := ReadCPPB1(settingTag,attri,key) else Result := ReadCPPB3OrMore(settingTag,attri,key); except Result := false; end; end; { ReadCPPBSetting } var tmpStringAttri : TSynHighlighterAttributes; tmpNumberAttri : TSynHighlighterAttributes; tmpKeyAttri : TSynHighlighterAttributes; tmpSymbolAttri : TSynHighlighterAttributes; tmpAsmAttri : TSynHighlighterAttributes; tmpCommentAttri : TSynHighlighterAttributes; tmpIdentifierAttri: TSynHighlighterAttributes; tmpInvalidAttri : TSynHighlighterAttributes; tmpSpaceAttri : TSynHighlighterAttributes; tmpDirecAttri : TSynHighlighterAttributes; s : TStringList; begin { ReadCPPBSettings } s := TStringList.Create; try EnumUserSettings(s); if settingIndex >= s.Count then Result := false else begin tmpStringAttri := TSynHighlighterAttributes.Create(nil); tmpNumberAttri := TSynHighlighterAttributes.Create(nil); tmpKeyAttri := TSynHighlighterAttributes.Create(nil); tmpSymbolAttri := TSynHighlighterAttributes.Create(nil); tmpAsmAttri := TSynHighlighterAttributes.Create(nil); tmpCommentAttri := TSynHighlighterAttributes.Create(nil); tmpIdentifierAttri:= TSynHighlighterAttributes.Create(nil); tmpInvalidAttri := TSynHighlighterAttributes.Create(nil); tmpSpaceAttri := TSynHighlighterAttributes.Create(nil); tmpDirecAttri := TSynHighlighterAttributes.Create(nil); tmpStringAttri .Assign(fStringAttri); tmpNumberAttri .Assign(fNumberAttri); tmpKeyAttri .Assign(fKeyAttri); tmpSymbolAttri .Assign(fSymbolAttri); tmpAsmAttri .Assign(fAsmAttri); tmpCommentAttri .Assign(fCommentAttri); tmpIdentifierAttri.Assign(fIdentifierAttri); tmpInvalidAttri .Assign(fInvalidAttri); tmpSpaceAttri .Assign(fSpaceAttri); tmpDirecAttri .Assign(fDirecAttri); if s[settingIndex][1] = '1' then Result := ReadCPPBSetting(s[settingIndex],fAsmAttri,'Plain text') else Result := ReadCPPBSetting(s[settingIndex],fAsmAttri,'Assembler'); Result := Result and ReadCPPBSetting(s[settingIndex],fCommentAttri,'Comment') and ReadCPPBSetting(s[settingIndex],fIdentifierAttri,'Identifier') and ReadCPPBSetting(s[settingIndex],fInvalidAttri,'Illegal Char') and ReadCPPBSetting(s[settingIndex],fKeyAttri,'Reserved word') and ReadCPPBSetting(s[settingIndex],fNumberAttri,'Integer') and ReadCPPBSetting(s[settingIndex],fSpaceAttri,'Whitespace') and ReadCPPBSetting(s[settingIndex],fStringAttri,'String') and ReadCPPBSetting(s[settingIndex],fSymbolAttri,'Symbol') and ReadCPPBSetting(s[settingIndex],fDirecAttri,'Preprocessor'); if not Result then begin fStringAttri .Assign(tmpStringAttri); fNumberAttri .Assign(tmpNumberAttri); fKeyAttri .Assign(tmpKeyAttri); fSymbolAttri .Assign(tmpSymbolAttri); fAsmAttri .Assign(tmpAsmAttri); fCommentAttri .Assign(tmpCommentAttri); fIdentifierAttri.Assign(tmpIdentifierAttri); fInvalidAttri.Assign(tmpInvalidAttri); fSpaceAttri .Assign(tmpSpaceAttri); fDirecAttri .Assign(tmpDirecAttri); end; tmpStringAttri .Free; tmpNumberAttri .Free; tmpKeyAttri .Free; tmpSymbolAttri .Free; tmpAsmAttri .Free; tmpCommentAttri .Free; tmpIdentifierAttri.Free; tmpInvalidAttri .Free; tmpSpaceAttri .Free; tmpDirecAttri .Free; end; finally s.Free; end; end; { ReadCPPBSettings } begin Result := ReadCPPBSettings(settingIndex); end; { TSynCppSyn.UseUserSettings } function TSynCppSyn.GetIdentChars: TSynIdentChars; begin Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z']; end; class function TSynCppSyn.GetLanguageName: string; begin Result := SYNS_LangCPP; end; class function TSynCppSyn.GetCapabilities: TSynHighlighterCapabilities; begin Result := inherited GetCapabilities + [hcUserSettings]; end; initialization MakeIdentTable; RegisterPlaceableHighlighter(TSynCppSyn); end.