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

fixed cached sourcenames

Browse Source 
git-svn-id: trunk@3922 -
This commit is contained in:
mattias 2003-03-13 22:08:21 +00:00
parent 82453a2914
commit f26626f85d
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/stdcodetools.pas
View File

@ -53,6 +53,7 @@ uses
type
TStandardCodeTool = class(TIdentCompletionTool)
private
CachedSourceName: string;
function ReadTilGuessedUnclosedBlock(MinCleanPos: integer;
ReadOnlyOneBlock: boolean): boolean;
function ReadForwardTilAnyBracketClose: boolean;
@ -235,7 +236,8 @@ var NamePos: TAtomPosition;
begin
Result:='';
if not GetSourceNamePos(NamePos) then exit;
Result:=copy(Src,NamePos.StartPos,NamePos.EndPos-NamePos.StartPos);
CachedSourceName:=copy(Src,NamePos.StartPos,NamePos.EndPos-NamePos.StartPos);
Result:=CachedSourceName;
end;
{-------------------------------------------------------------------------------
@ -250,13 +252,14 @@ end;
-------------------------------------------------------------------------------}
function TStandardCodeTool.GetCachedSourceName: string;
begin
Result:='';
if Tree.Root=nil then exit;
MoveCursorToNodeStart(Tree.Root);
ReadNextAtom; // read source type 'program', 'unit' ...
ReadNextAtom; // read name
if (CurPos.StartPos<=SrcLen) then
Result:=GetAtom;
if Tree.Root<>nil then begin
MoveCursorToNodeStart(Tree.Root);
ReadNextAtom; // read source type 'program', 'unit' ...
ReadNextAtom; // read name
if (CurPos.StartPos<=SrcLen) then
CachedSourceName:=GetAtom;
end;
Result:=CachedSourceName;
end;
function TStandardCodeTool.RenameSource(const NewName: string;
@ -270,6 +273,7 @@ begin
SourceChangeCache.Replace(gtNone,gtNone,NamePos.StartPos,NamePos.EndPos,
NewName);
if not SourceChangeCache.Apply then exit;
CachedSourceName:=NewName;
Result:=true;
end;