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

codetools: macro directive: started storing macro sources

Browse Source 
git-svn-id: trunk@23689 -
This commit is contained in:
mattias 2010-02-11 10:35:38 +00:00
parent 2f83b48d84
commit aa19597663
1 changed files with 63 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
components/codetools/linkscanner.pas
View File

@ -88,6 +88,13 @@ type
Next: PSourceLink;
end;
TSourceLinkMakro = record
Name: PChar;
Code: Pointer;
StartPos, EndPos: integer;
end;
PSourceLinkMakro = ^TSourceLinkMakro;
{ TSourceChangeStep is used to save the ChangeStep of every used file
A ChangeStep is switching to or from an include file }
PSourceChangeStep = ^TSourceChangeStep;
@ -275,6 +282,8 @@ type
FCompilerMode: TCompilerMode;
FCompilerModeSwitch: TCompilerModeSwitch;
FPascalCompiler: TPascalCompiler;
FMacros: PSourceLinkMakro;
FMacroCount: integer;
procedure SetCompilerMode(const AValue: TCompilerMode);
procedure SetCompilerModeSwitch(const AValue: TCompilerModeSwitch);
procedure SkipTillEndifElse(SkippingUntil: TLSSkippingDirective);
@ -316,6 +325,11 @@ type
function GetIncludeFileIsMissing: boolean;
function MissingIncludeFilesNeedsUpdate: boolean;
procedure ClearMissingIncludeFiles;
procedure AddMacroValue(MacroName: PChar;
ValueStart, ValueEnd: integer);
procedure ClearMacros;
function IndexOfMacro(MacroName: PChar; InsertPos: boolean): integer;
protected
// error: the error is in range Succ(ScannedRange)
LastErrorMessage: string;
@ -649,6 +663,7 @@ var i: integer;
PLink: PSourceLink;
PStamp: PSourceChangeStep;
begin
ClearMacros;
ClearLastError;
ClearMissingIncludeFiles;
for i:=0 to FIncludeStack.Count-1 do begin
@ -2614,14 +2629,17 @@ end;
function TLinkScanner.DefineDirective: boolean;
// {$define name} or {$define name:=value}
var VariableName, NewValue: string;
NamePos: LongInt;
begin
SkipSpace;
NamePos:=SrcPos;
VariableName:=ReadUpperIdentifier;
if (VariableName<>'') then begin
SkipSpace;
if FMacrosOn and (SrcPos<SrcLen)
and (Src[SrcPos]=':') and (Src[SrcPos+1]='=')
then begin
// makro => store the value
inc(SrcPos,2);
SkipSpace;
NewValue:=copy(Src,SrcPos,CommentInnerEndPos-SrcPos);
@ -2630,7 +2648,9 @@ begin
else if CompareIdentifiers(PChar(NewValue),'true')=0 then
NewValue:='1';
Values.Variables[VariableName]:=NewValue;
AddMacroValue(@Src[NamePos],SrcPos,CommentInnerEndPos);
end else begin
// flag
Values.Variables[VariableName]:='1';
end;
end;
@ -3019,6 +3039,49 @@ begin
FreeAndNil(FMissingIncludeFiles);
end;
procedure TLinkScanner.AddMacroValue(MacroName: PChar; ValueStart,
ValueEnd: integer);
begin
end;
procedure TLinkScanner.ClearMacros;
begin
ReAllocMem(FMacros,0);
FMacroCount:=0;
end;
function TLinkScanner.IndexOfMacro(MacroName: PChar; InsertPos: boolean): integer;
var
l: Integer;
r: Integer;
m: Integer;
cmp: LongInt;
begin
l:=0;
r:=FMacroCount-1;
m:=0;
cmp:=0;
while l<=r do begin
m:=(l+r) div 2;
cmp:=CompareIdentifierPtrs(MacroName,FMacros[m].Name);
if cmp<0 then
r:=m-1
else if cmp>0 then
l:=m+1
else begin
Result:=m;
exit;
end;
end;
if InsertPos then begin
if cmp>0 then inc(m);
Result:=m;
end else begin
Result:=-1;
end;
end;
function TLinkScanner.ReturnFromIncludeFile: boolean;
var OldPos: TSourceLink;
begin