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

codetools: added modeswitch directive

Browse Source 
git-svn-id: trunk@21682 -
This commit is contained in:
mattias 2009-09-13 10:51:41 +00:00
parent 50b14ade3c
commit ebc85a88e5
2 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/codetoolsstrconsts.pas
View File

@ -42,6 +42,7 @@ ResourceString
// linkscanner
ctsInvalidFlagValueForDirective = 'invalid flag value "%s" for directive %s';
ctsInvalidMode = 'invalid mode "%s"';
ctsInvalidModeSwitch = 'invalid mode switch "%s"';
ctsAwithoutB = '%s without %s';
ctsIncludeFileNotFound = 'include file not found "%s"';
ctsErrorInDirectiveExpression = 'error in directive expression';

36
components/codetools/linkscanner.pas
View File

@ -116,6 +116,7 @@ type
TCommentStyle = (CommentNone, CommentTP, CommentOldTP, CommentDelphi);
TCompilerMode = (cmFPC, cmDELPHI, cmGPC, cmTP, cmOBJFPC, cmMacPas);
TCompilerModeSwitch = (cmsDefault, cmsObjectiveC1);
TPascalCompiler = (pcFPC, pcDelphi);
TLSSkippingDirective = (
@ -272,8 +273,10 @@ type
FSkippingDirectives: TLSSkippingDirective;
FSkipIfLevel: integer;
FCompilerMode: TCompilerMode;
FCompilerModeSwitch: TCompilerModeSwitch;
FPascalCompiler: TPascalCompiler;
procedure SetCompilerMode(const AValue: TCompilerMode);
procedure SetCompilerModeSwitch(const AValue: TCompilerModeSwitch);
procedure SkipTillEndifElse(SkippingUntil: TLSSkippingDirective);
function InternalIfDirective: boolean;
@ -298,6 +301,7 @@ type
function ReadNextSwitchDirective: boolean;
function LongSwitchDirective: boolean;
function ModeDirective: boolean;
function ModeSwitchDirective: boolean;
function ThreadingDirective: boolean;
function DoDirective(StartPos, DirLen: integer): boolean;
@ -429,6 +433,8 @@ type
property NestedComments: boolean read FNestedComments;
property CompilerMode: TCompilerMode
read FCompilerMode write SetCompilerMode;
property CompilerModeSwitch: TCompilerModeSwitch
read FCompilerModeSwitch write SetCompilerModeSwitch;
property PascalCompiler: TPascalCompiler
read FPascalCompiler write FPascalCompiler;
property ScanTill: TLinkScannerRange read FScanTill write SetScanTill;
@ -497,6 +503,9 @@ const
CompilerModeNames: array[TCompilerMode] of shortstring=(
'FPC', 'DELPHI', 'GPC', 'TP', 'OBJFPC', 'MACPAS'
);
CompilerModeSwitchNames: array[TCompilerModeSwitch] of shortstring=(
'Default', 'ObjectiveC1'
);
PascalCompilerNames: array[TPascalCompiler] of shortstring=(
'FPC', 'DELPHI'
);
@ -2205,7 +2214,8 @@ begin
if CompareIdentifiers(p,'LOCALSYMBOLS')=0 then Result:=true
else if CompareIdentifiers(p,'LONGSTRINGS')=0 then Result:=true;
'M':
if CompareIdentifiers(p,'MODE')=0 then Result:=ModeDirective;
if CompareIdentifiers(p,'MODE')=0 then Result:=ModeDirective
else if CompareIdentifiers(p,'MODESWITCH')=0 then Result:=ModeSwitchDirective;
'O':
if CompareIdentifiers(p,'OPENSTRINGS')=0 then Result:=true
else if CompareIdentifiers(p,'OVERFLOWCHECKS')=0 then Result:=true;
@ -2325,6 +2335,22 @@ begin
Result:=true;
end;
function TLinkScanner.ModeSwitchDirective: boolean;
// $MODESWITCH objectivec1
var
ValStart: LongInt;
begin
SkipSpace;
ValStart:=SrcPos;
while (SrcPos<=SrcLen) and (IsWordChar[Src[SrcPos]]) do
inc(SrcPos);
if CompareUpToken('OBJECTIVEC1',Src,ValStart,SrcPos) then begin
CompilerModeSwitch:=cmsObjectiveC1;
end else
RaiseExceptionFmt(ctsInvalidModeSwitch,[copy(Src,ValStart,SrcPos-ValStart)]);
Result:=true;
end;
function TLinkScanner.ThreadingDirective: boolean;
// example: {$threading on}
var
@ -3211,9 +3237,17 @@ begin
FCompilerMode:=AValue;
FNestedComments:=(PascalCompiler=pcFPC)
and (FCompilerMode in [cmFPC,cmOBJFPC]);
FCompilerModeSwitch:=cmsDefault;
//DebugLn(['TLinkScanner.SetCompilerMode ',MainFilename,' ',PascalCompilerNames[PascalCompiler],' Mode=',CompilerModeNames[CompilerMode],' FNestedComments=',FNestedComments]);
end;
procedure TLinkScanner.SetCompilerModeSwitch(const AValue: TCompilerModeSwitch
);
begin
if FCompilerModeSwitch=AValue then exit;
FCompilerModeSwitch:=AValue;
end;
function TLinkScanner.InternalIfDirective: boolean;
// {$if expression} or {$ifc expression} or indirectly called by {$elifc expression}
var Expr, ResultStr: string;