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

SynEdit: remove the use of SYN_CPPB_1. It is not needed and was not used consistently.

Browse Source 
git-svn-id: trunk@34411 -
This commit is contained in:
juha 2011-12-25 19:00:46 +00:00
parent fd3e9d5fd9
commit 347ea32e4c
24 changed files with 71 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/synedit/synedithighlighter.pp
View File

@ -324,10 +324,8 @@ type
public public
procedure DefHighlightChange(Sender: TObject); procedure DefHighlightChange(Sender: TObject);
property AttributeChangeNeedScan: Boolean read FAttributeChangeNeedScan; property AttributeChangeNeedScan: Boolean read FAttributeChangeNeedScan;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetCapabilities: TSynHighlighterCapabilities; virtual;
function GetCapabilities: TSynHighlighterCapabilities; virtual; class function GetLanguageName: string; virtual;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; virtual;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -415,7 +413,6 @@ type
TSynCustomHighlighterClass = class of TSynCustomHighlighter; TSynCustomHighlighterClass = class of TSynCustomHighlighter;
{$IFNDEF SYN_CPPB_1}
TSynHighlighterList = class(TList) TSynHighlighterList = class(TList)
private private
hlList: TList; hlList: TList;
@ -430,10 +427,8 @@ type
read GetItem; default; read GetItem; default;
end; end;
procedure RegisterPlaceableHighlighter(highlighter: procedure RegisterPlaceableHighlighter(highlighter: TSynCustomHighlighterClass);
TSynCustomHighlighterClass);
function GetPlaceableHighlighters: TSynHighlighterList; function GetPlaceableHighlighters: TSynHighlighterList;
{$ENDIF}
implementation implementation
@ -467,7 +462,6 @@ const
end; { TBetterRegistry.OpenKeyReadOnly } end; { TBetterRegistry.OpenKeyReadOnly }
{$ENDIF _Gp_MustEnhanceRegistry} {$ENDIF _Gp_MustEnhanceRegistry}
{$IFNDEF SYN_CPPB_1}
{ THighlighterList } { THighlighterList }
function TSynHighlighterList.Count: integer; function TSynHighlighterList.Count: integer;
@ -531,7 +525,6 @@ begin
if G_PlaceableHighlighters.hlList.IndexOf(highlighter) < 0 then if G_PlaceableHighlighters.hlList.IndexOf(highlighter) < 0 then
G_PlaceableHighlighters.hlList.Add(highlighter); G_PlaceableHighlighters.hlList.Add(highlighter);
end; end;
{$ENDIF}
{ TLazSynCustomTextAttributes } { TLazSynCustomTextAttributes }
@ -1315,8 +1308,7 @@ begin
Result := TSynHighlighterAttributes(fAttributes.Objects[idx]); Result := TSynHighlighterAttributes(fAttributes.Objects[idx]);
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynCustomHighlighter.GetCapabilities: TSynHighlighterCapabilities;
function TSynCustomHighlighter.GetCapabilities: TSynHighlighterCapabilities;
begin begin
Result := [hcRegistry]; //registry save/load supported by default Result := [hcRegistry]; //registry save/load supported by default
end; end;
@ -1341,8 +1333,7 @@ begin
fWordBreakChars := AChars; fWordBreakChars := AChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynCustomHighlighter.GetLanguageName: string;
function TSynCustomHighlighter.GetLanguageName: string;
begin begin
{$IFDEF SYN_DEVELOPMENT_CHECKS} {$IFDEF SYN_DEVELOPMENT_CHECKS}
raise Exception.CreateFmt('%s.GetLanguageName not implemented', [ClassName]); raise Exception.CreateFmt('%s.GetLanguageName not implemented', [ClassName]);

8
components/synedit/synhighlighterany.pas
View File

@ -163,8 +163,7 @@ type
protected protected
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -903,8 +902,7 @@ begin
DefHighLightChange(nil); DefHighLightChange(nil);
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynAnySyn.GetLanguageName: string;
function TSynAnySyn.GetLanguageName: string;
begin begin
Result := SYNS_LangGeneral; Result := SYNS_LangGeneral;
end; end;
@ -1367,10 +1365,8 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
{$IFNDEF FPC} {$IFNDEF FPC}
RegisterPlaceableHighlighter(TSynAnySyn); RegisterPlaceableHighlighter(TSynAnySyn);
{$ENDIF} {$ENDIF}
{$ENDIF}
end. end.

9
components/synedit/synhighlighterbat.pas
View File

@ -129,8 +129,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: string; override; function GetSampleSource: string; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -599,8 +598,7 @@ begin
Result := TSynValidStringChars; Result := TSynValidStringChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynBatSyn.GetLanguageName: string;
function TSynBatSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangBatch; Result := SYNS_LangBatch;
end; end;
@ -621,8 +619,7 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynBatSyn); RegisterPlaceableHighlighter(TSynBatSyn);
{$ENDIF}
end. end.

15
components/synedit/synhighlightercpp.pp
View File

@ -227,10 +227,8 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetExtTokenID: TxtkTokenKind; function GetExtTokenID: TxtkTokenKind;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetCapabilities: TSynHighlighterCapabilities; override;
function GetCapabilities: TSynHighlighterCapabilities; override; class function GetLanguageName: string; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1684,22 +1682,19 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z']; Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynCppSyn.GetLanguageName: string;
function TSynCppSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangCPP; Result := SYNS_LangCPP;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynCppSyn.GetCapabilities: TSynHighlighterCapabilities;
function TSynCppSyn.GetCapabilities: TSynHighlighterCapabilities;
begin begin
Result := inherited GetCapabilities + [hcUserSettings]; Result := inherited GetCapabilities + [hcUserSettings];
end; end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynCppSyn); RegisterPlaceableHighlighter(TSynCppSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlightercss.pas
View File

@ -240,8 +240,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override; function GetSampleSource: String; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1721,8 +1720,7 @@ begin
Result := TSynValidStringChars + ['-']; Result := TSynValidStringChars + ['-'];
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynCssSyn.GetLanguageName: string;
function TSynCssSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangCSS; Result := SYNS_LangCSS;
end; end;
@ -1745,7 +1743,6 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynCssSyn); RegisterPlaceableHighlighter(TSynCssSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterdiff.pas
View File

@ -145,8 +145,7 @@ type
procedure ResetRange; override; procedure ResetRange; override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
protected protected
// folding // folding
procedure CreateRootCodeFoldBlock; override; procedure CreateRootCodeFoldBlock; override;
@ -689,8 +688,7 @@ begin
Result := nil; Result := nil;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynDiffSyn.GetLanguageName: string;
function TSynDiffSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangDiff; Result := SYNS_LangDiff;
end; end;
@ -799,8 +797,7 @@ begin
Result := 0; Result := 0;
end; end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
initialization initialization
RegisterPlaceableHighlighter(TSynDiffSyn); RegisterPlaceableHighlighter(TSynDiffSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterhtml.pp
View File

@ -432,8 +432,7 @@ type
function GetFoldConfigCount: Integer; override; function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override; function GetFoldConfigInternalCount: Integer; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -2436,16 +2435,14 @@ begin
Result := ord(high(THtmlCodeFoldBlockType)) - ord(low(THtmlCodeFoldBlockType)) + 1; Result := ord(high(THtmlCodeFoldBlockType)) - ord(low(THtmlCodeFoldBlockType)) + 1;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynHTMLSyn.GetLanguageName: string;
function TSynHTMLSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangHTML; Result := SYNS_LangHTML;
end; end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynHTMLSyn); RegisterPlaceableHighlighter(TSynHTMLSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterini.pas
View File

@ -101,8 +101,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override; function GetSampleSource: String; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -420,13 +419,11 @@ begin
Result := TSynValidStringChars; Result := TSynValidStringChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynIniSyn.GetLanguageName: string;
function TSynIniSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangINI; Result := SYNS_LangINI;
end; end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
function TSynIniSyn.GetSampleSource: String; function TSynIniSyn.GetSampleSource: String;
begin begin
Result := '; Syntax highlighting'#13#10+ Result := '; Syntax highlighting'#13#10+
@ -438,5 +435,5 @@ end;
initialization initialization
RegisterPlaceableHighlighter(TSynIniSyn); RegisterPlaceableHighlighter(TSynIniSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterjava.pas
View File

@ -198,8 +198,7 @@ type
function GetSampleSource: string; override; function GetSampleSource: string; override;
function GetExtTokenID: TxtkTokenKind; function GetExtTokenID: TxtkTokenKind;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1367,8 +1366,7 @@ begin
Result := ['_', '$', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars; Result := ['_', '$', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynJavaSyn.GetLanguageName: string;
function TSynJavaSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangJava; Result := SYNS_LangJava;
end; end;
@ -1390,8 +1388,7 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynJavaSyn); RegisterPlaceableHighlighter(TSynJavaSyn);
{$ENDIF}
end. end.

3
components/synedit/synhighlighterjscript.pas
View File

@ -1869,7 +1869,6 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynJScriptSyn); RegisterPlaceableHighlighter(TSynJScriptSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterlfm.pas
View File

@ -126,8 +126,7 @@ type
function GetFoldConfigCount: Integer; override; function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override; function GetFoldConfigInternalCount: Integer; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -668,8 +667,7 @@ begin
Result := TSynValidStringChars; Result := TSynValidStringChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynLFMSyn.GetLanguageName: string;
function TSynLFMSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangLFM; Result := SYNS_LangLFM;
end; end;
@ -732,8 +730,7 @@ begin
Result := ord(high(TLfmCodeFoldBlockType)) - ord(low(TLfmCodeFoldBlockType)) + 1; Result := ord(high(TLfmCodeFoldBlockType)) - ord(low(TLfmCodeFoldBlockType)) + 1;
end; end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
initialization initialization
RegisterPlaceableHighlighter(TSynLFMSyn); RegisterPlaceableHighlighter(TSynLFMSyn);
{$ENDIF}
end. end.

6
components/synedit/synhighlightermulti.pas
View File

@ -306,8 +306,7 @@ type
property CurrentRanges: TSynHighlighterMultiRangeList read GetCurrentRanges; property CurrentRanges: TSynHighlighterMultiRangeList read GetCurrentRanges;
property KnownRanges[Index: Integer]: TSynHighlighterMultiRangeList read GetKnownMultiRanges; property KnownRanges[Index: Integer]: TSynHighlighterMultiRangeList read GetKnownMultiRanges;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -1151,8 +1150,7 @@ begin
Result := inherited GetIdentChars; Result := inherited GetIdentChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynMultiSyn.GetLanguageName: string;
function TSynMultiSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangGeneralMulti; Result := SYNS_LangGeneralMulti;
end; end;

14
components/synedit/synhighlighterpas.pp
View File

@ -510,10 +510,8 @@ type
function GetFoldConfigInternalCount: Integer; override; function GetFoldConfigInternalCount: Integer; override;
procedure DoFoldConfigChanged(Sender: TObject); override; procedure DoFoldConfigChanged(Sender: TObject); override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetCapabilities: TSynHighlighterCapabilities; override;
function GetCapabilities: TSynHighlighterCapabilities; override; class function GetLanguageName: string; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -4169,14 +4167,12 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z']; Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynPasSyn.GetLanguageName: string;
function TSynPasSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangPascal; Result := SYNS_LangPascal;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynPasSyn.GetCapabilities: TSynHighlighterCapabilities;
function TSynPasSyn.GetCapabilities: TSynHighlighterCapabilities;
begin begin
Result := inherited GetCapabilities + [hcUserSettings]; Result := inherited GetCapabilities + [hcUserSettings];
end; end;
@ -4358,9 +4354,7 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynPasSyn); RegisterPlaceableHighlighter(TSynPasSyn);
{$ENDIF}
finalization finalization
FreeAndNil(KeywordsList); FreeAndNil(KeywordsList);

9
components/synedit/synhighlighterperl.pas
View File

@ -363,8 +363,7 @@ type
protected protected
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -2594,16 +2593,14 @@ begin
Result := ['%', '@', '$', '_', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars; Result := ['%', '@', '$', '_', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynPerlSyn.GetLanguageName: string;
function TSynPerlSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangPerl; Result := SYNS_LangPerl;
end; end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPerlSyn); RegisterPlaceableHighlighter(TSynPerlSyn);
{$ENDIF}
end. end.

11
components/synedit/synhighlighterphp.pas
View File

@ -198,8 +198,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: string; override; function GetSampleSource: string; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1435,10 +1434,7 @@ begin
end; end;
{$ENDIF} {$ENDIF}
class function TSynPHPSyn.GetLanguageName: string;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynPHPSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangPHP; Result := SYNS_LangPHP;
end; end;
@ -1463,8 +1459,7 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPHPSyn); RegisterPlaceableHighlighter(TSynPHPSyn);
{$ENDIF}
end. end.

15
components/synedit/synhighlighterpo.pp
View File

@ -82,8 +82,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override; function GetSampleSource: String; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function GetLanguageName: string; override;
function GetLanguageName: string; override;
function IsKeyword(const AKeyword: string): boolean; override; function IsKeyword(const AKeyword: string): boolean; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -91,7 +90,7 @@ type
override; override;
function GetEol: Boolean; override; function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind; function GetTokenID: TtkTokenKind;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override; procedure SetLine(const NewValue: String; LineNumber:Integer); override;
function GetToken: String; override; function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override; procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TSynHighlighterAttributes; override; function GetTokenAttribute: TSynHighlighterAttributes; override;
@ -180,14 +179,14 @@ begin
MakeMethodTables; MakeMethodTables;
end; { Create } end; { Create }
procedure TSynPoSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); procedure TSynPoSyn.SetLine(const NewValue: String; LineNumber:Integer);
begin begin
inherited; inherited;
fLine := PChar(NewValue); fLine := PChar(NewValue);
Run := 0; Run := 0;
fLineNumber := LineNumber; fLineNumber := LineNumber;
Next; Next;
end; { SetLine } end;
procedure TSynPoSyn.IdentProc; procedure TSynPoSyn.IdentProc;
@ -369,13 +368,11 @@ begin
Result := inherited GetIdentChars; //TSynValidStringChars; Result := inherited GetIdentChars; //TSynValidStringChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14 class function TSynPoSyn.GetLanguageName: string;
function TSynPoSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangPo; Result := SYNS_LangPo;
end; end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
function TSynPoSyn.GetSampleSource: String; function TSynPoSyn.GetSampleSource: String;
begin begin
Result := '"Project-Id-Version: \n"' + LineEnding + Result := '"Project-Id-Version: \n"' + LineEnding +
@ -415,5 +412,5 @@ end;
initialization initialization
RegisterPlaceableHighlighter(TSynPoSyn); RegisterPlaceableHighlighter(TSynPoSyn);
{$ENDIF}
end. end.

6
components/synedit/synhighlighterposition.pas
View File

@ -68,8 +68,7 @@ type
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
override; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -146,8 +145,7 @@ begin
Result:=nil; Result:=nil;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynPositionHighlighter.GetLanguageName: string;
function TSynPositionHighlighter.GetLanguageName: string;
begin begin
Result:='Position based highlighter'; Result:='Position based highlighter';
end; end;

3
components/synedit/synhighlighterpython.pas
View File

@ -1267,9 +1267,8 @@ begin
end; end;
initialization initialization
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPythonSyn); RegisterPlaceableHighlighter(TSynPythonSyn);
{$ENDIF}
finalization finalization
GlobalKeywords.Free; GlobalKeywords.Free;
end. end.

9
components/synedit/synhighlightersql.pas
View File

@ -162,8 +162,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource : String; override; function GetSampleSource : String; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -1532,8 +1531,7 @@ begin
{end} // DJLP 2000-08-11 {end} // DJLP 2000-08-11
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynSQLSyn.GetLanguageName: string;
function TSynSQLSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangSQL; Result := SYNS_LangSQL;
end; end;
@ -1786,7 +1784,6 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynSQLSyn); RegisterPlaceableHighlighter(TSynSQLSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlightertex.pas
View File

@ -106,8 +106,7 @@ type
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
function GetSampleSource : String; override; function GetSampleSource : String; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -383,8 +382,7 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z']; Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end; { GetIdentChars } end; { GetIdentChars }
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynTeXSyn.GetLanguageName: string;
function TSynTeXSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangTeX; Result := SYNS_LangTeX;
end; { GetLanguageName } end; { GetLanguageName }
@ -411,8 +409,7 @@ begin
'\end{document}'; '\end{document}';
end; end;
{$IFNDEF SYN_CPPB_1}
initialization initialization
RegisterPlaceableHighlighter(TSynTeXSyn); RegisterPlaceableHighlighter(TSynTeXSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterunixshellscript.pas
View File

@ -122,8 +122,7 @@ type
protected protected
function GetIdentChars: TSynIdentChars; override; function GetIdentChars: TSynIdentChars; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -791,8 +790,7 @@ end;
resourcestring resourcestring
LangName = 'UNIX Shell Script'; LangName = 'UNIX Shell Script';
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynUNIXShellScriptSyn.GetLanguageName: string;
function TSynUNIXShellScriptSyn.GetLanguageName: string;
/////TL 11-06-2003: FPC complained about local declaration... moved to the global scope /////TL 11-06-2003: FPC complained about local declaration... moved to the global scope
/////TL resourcestring /////TL resourcestring
/////TL LangName = 'UNIX Shell Script'; /////TL LangName = 'UNIX Shell Script';
@ -802,8 +800,7 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynUNIXShellScriptSyn); RegisterPlaceableHighlighter(TSynUNIXShellScriptSyn);
{$ENDIF}
end. end.

7
components/synedit/synhighlightervb.pas
View File

@ -202,7 +202,7 @@ type
function GetSampleSource: String; override; function GetSampleSource: String; override;
function IsFilterStored: Boolean; override; function IsFilterStored: Boolean; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} function GetLanguageName: string; override; class function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1251,7 +1251,7 @@ begin
Result := fDefaultFilter <> SYNS_FilterVisualBASIC; Result := fDefaultFilter <> SYNS_FilterVisualBASIC;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} function TSynVBSyn.GetLanguageName: string; class function TSynVBSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangVisualBASIC; Result := SYNS_LangVisualBASIC;
end; end;
@ -1278,7 +1278,6 @@ end;
initialization initialization
MakeIdentTable; MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynVBSyn); RegisterPlaceableHighlighter(TSynVBSyn);
{$ENDIF}
end. end.

9
components/synedit/synhighlighterxml.pas
View File

@ -180,8 +180,7 @@ type
function GetFoldConfigCount: Integer; override; function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override; function GetFoldConfigInternalCount: Integer; override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -954,8 +953,7 @@ begin
Result := ['0'..'9', 'a'..'z', 'A'..'Z', '_', '.', '-'] + TSynSpecialChars; Result := ['0'..'9', 'a'..'z', 'A'..'Z', '_', '.', '-'] + TSynSpecialChars;
end; end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function TSynXMLSyn.GetLanguageName: string;
function TSynXMLSyn.GetLanguageName: string;
begin begin
Result := SYNS_LangXML; Result := SYNS_LangXML;
end; end;
@ -1068,10 +1066,7 @@ begin
end; end;
initialization initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynXMLSyn); RegisterPlaceableHighlighter(TSynXMLSyn);
{$ENDIF}
end. end.

6
components/synunihighlighter/synunihighlighter.pas
View File

@ -331,8 +331,7 @@ type
function GetSampleSource: string; override; function GetSampleSource: string; override;
procedure SetSampleSource(Value: string); override; procedure SetSampleSource(Value: string); override;
public public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} class function GetLanguageName: string; override;
function GetLanguageName: string; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -2801,9 +2800,8 @@ begin
end; end;
initialization initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynUniSyn); RegisterPlaceableHighlighter(TSynUniSyn);
{$ENDIF}
end. end.