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

codetools: reading all references

Browse Source 
git-svn-id: trunk@19285 -
This commit is contained in:
mattias 2009-04-09 09:56:00 +00:00
parent e486ddaa54
commit f7b1dd2b77
1 changed files with 43 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
components/codetools/stdcodetools.pas
View File

@ -1356,37 +1356,58 @@ var
Result:=false;
end;
procedure GatherIdentifiersInRange(StartPos, EndPos: integer);
// gather all used identifiers from this unit in the range Startpos..EndPos
var
Identifier: PChar;
begin
if (StartPos<1) or (StartPos>=EndPos) then exit;
MoveCursorToCleanPos(StartPos);
repeat
ReadNextAtom;
if CurPos.StartPos>=EndPos then break;
if IsIdentStartChar[Src[CurPos.StartPos]] then begin
Identifier:=@Src[CurPos.StartPos];
if Identifiers.Find(Identifier)=nil then begin
DebugLn(['GatherIdentifiers ',GetIdentifier(Identifier)]);
Identifiers.Add(Identifier);
end;
end;
until false;
end;
procedure GatherIdentifiers;
// gather all used identifiers from this unit
var
StartPos: Integer;
procedure Gather;
begin
if StartPos<1 then exit;
GatherIdentifiersInRange(StartPos,CurPos.StartPos);
StartPos:=-1;
end;
var
Node: TCodeTreeNode;
Identifier: PChar;
begin
if Identifiers<>nil then exit;
Identifiers:=TAVLTree.Create(@CompareIdentifierPtrs);
StartPos:=-1;
Node:=Tree.Root;
while Node<>nil do begin
if (Node.Desc in [ctnBeginBlock,ctnAsmBlock])
or ((Node.FirstChild=nil)
and (Node.Desc in [ctnIdentifier,ctnRangedArrayType,ctnOpenArrayType,
ctnOfConstType,ctnRecordVariant,ctnProcedureType,ctnRangeType,
ctnTypeType,ctnFileType,ctnPointerType,ctnClassOfType,
ctnSpecializeParams,ctnGenericParameter,ctnConstant]))
then begin
MoveCursorToNodeStart(Node);
repeat
case Node.Desc of
ctnEnumIdentifier:
begin
Gather;
MoveCursorToCleanPos(Node.StartPos);
ReadNextAtom;
if CurPos.StartPos>=Node.EndPos then break;
if IsIdentStartChar[Src[CurPos.StartPos]] then begin
Identifier:=@Src[CurPos.StartPos];
if Identifiers.Find(Identifier)=nil then begin
DebugLn(['GatherIdentifiers ',GetIdentifier(Identifier)]);
Identifiers.Add(Identifier);
end;
end;
until false;
Node:=Node.NextSkipChilds;
end else
Node:=Node.Next;
StartPos:=CurPos.EndPos;
end;
ctnVarDefinition,ctnConstDefinition,ctnTypeDefinition:
Gather;
end;
Node:=Node.Next;
end;
end;