mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
codetools: cleaned up
git-svn-id: trunk@56261 -
This commit is contained in:
mattias
parent
18570daf7b
commit
d4da6d7376
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -761,8 +761,6 @@ components/codetools/examples/addwith.lpi svneol=native#text/plain
|
|||||||
components/codetools/examples/addwith.lpr svneol=native#text/plain
|
components/codetools/examples/addwith.lpr svneol=native#text/plain
|
||||||
components/codetools/examples/autoindent.lpi svneol=native#text/plain
|
components/codetools/examples/autoindent.lpi svneol=native#text/plain
|
||||||
components/codetools/examples/autoindent.pas svneol=native#text/plain
|
components/codetools/examples/autoindent.pas svneol=native#text/plain
|
||||||
components/codetools/examples/changeparamlist.lpi svneol=native#text/plain
|
|
||||||
components/codetools/examples/changeparamlist.lpr svneol=native#text/plain
|
|
||||||
components/codetools/examples/codecompletion.lpi svneol=native#text/plain
|
components/codetools/examples/codecompletion.lpi svneol=native#text/plain
|
||||||
components/codetools/examples/codecompletion.lpr svneol=native#text/plain
|
components/codetools/examples/codecompletion.lpr svneol=native#text/plain
|
||||||
components/codetools/examples/completeabstractmethods.lpi svneol=native#text/plain
|
components/codetools/examples/completeabstractmethods.lpi svneol=native#text/plain
|
||||||
|
|||||||
@ -1,53 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="UTF-8"?>
|
|
||||||
<CONFIG>
|
|
||||||
<ProjectOptions>
|
|
||||||
<Version Value="10"/>
|
|
||||||
<General>
|
|
||||||
<Flags>
|
|
||||||
<MainUnitHasCreateFormStatements Value="False"/>
|
|
||||||
<MainUnitHasTitleStatement Value="False"/>
|
|
||||||
<LRSInOutputDirectory Value="False"/>
|
|
||||||
</Flags>
|
|
||||||
<SessionStorage Value="InProjectDir"/>
|
|
||||||
<MainUnit Value="0"/>
|
|
||||||
<Title Value="changeparamlist"/>
|
|
||||||
<UseAppBundle Value="False"/>
|
|
||||||
</General>
|
|
||||||
<BuildModes Count="1">
|
|
||||||
<Item1 Name="default" Default="True"/>
|
|
||||||
</BuildModes>
|
|
||||||
<PublishOptions>
|
|
||||||
<Version Value="2"/>
|
|
||||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
|
||||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
|
||||||
</PublishOptions>
|
|
||||||
<RunParams>
|
|
||||||
<local>
|
|
||||||
<FormatVersion Value="1"/>
|
|
||||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
|
||||||
</local>
|
|
||||||
</RunParams>
|
|
||||||
<RequiredPackages Count="1">
|
|
||||||
<Item1>
|
|
||||||
<PackageName Value="CodeTools"/>
|
|
||||||
</Item1>
|
|
||||||
</RequiredPackages>
|
|
||||||
<Units Count="2">
|
|
||||||
<Unit0>
|
|
||||||
<Filename Value="changeparamlist.lpr"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
</Unit0>
|
|
||||||
<Unit1>
|
|
||||||
<Filename Value="scanexamples/changeparamlist1.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="ChangeParamList1"/>
|
|
||||||
</Unit1>
|
|
||||||
</Units>
|
|
||||||
</ProjectOptions>
|
|
||||||
<CompilerOptions>
|
|
||||||
<Version Value="11"/>
|
|
||||||
<SearchPaths>
|
|
||||||
<OtherUnitFiles Value="scanexamples"/>
|
|
||||||
</SearchPaths>
|
|
||||||
</CompilerOptions>
|
|
||||||
</CONFIG>
|
|
||||||
@ -1,130 +0,0 @@
|
|||||||
{
|
|
||||||
***************************************************************************
|
|
||||||
* *
|
|
||||||
* This source is free software; you can redistribute it and/or modify *
|
|
||||||
* it under the terms of the GNU General Public License as published by *
|
|
||||||
* the Free Software Foundation; either version 2 of the License, or *
|
|
||||||
* (at your option) any later version. *
|
|
||||||
* *
|
|
||||||
* This code is distributed in the hope that it will be useful, but *
|
|
||||||
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
||||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
|
||||||
* General Public License for more details. *
|
|
||||||
* *
|
|
||||||
* A copy of the GNU General Public License is available on the World *
|
|
||||||
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
||||||
* obtain it by writing to the Free Software Foundation, *
|
|
||||||
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
|
||||||
* *
|
|
||||||
***************************************************************************
|
|
||||||
|
|
||||||
Author: Mattias Gaertner
|
|
||||||
|
|
||||||
Abstract:
|
|
||||||
Demonstration how to change the parameter list of a procedure and
|
|
||||||
adapt all references.
|
|
||||||
}
|
|
||||||
program changeparamlist;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, contnrs, Laz_AVL_Tree,
|
|
||||||
// CodeTools
|
|
||||||
CodeCache, CodeToolManager, FileProcs, CodeAtom, CodeTree, SourceChanger,
|
|
||||||
FindDeclarationTool, CTUnitGraph, ChangeDeclarationTool,
|
|
||||||
ChangeParamList1;
|
|
||||||
|
|
||||||
const
|
|
||||||
ConfigFilename = 'codetools.config';
|
|
||||||
|
|
||||||
var
|
|
||||||
Filename: string;
|
|
||||||
Code: TCodeBuffer;
|
|
||||||
Tool: TCodeTool;
|
|
||||||
|
|
||||||
procedure ChangeProc(ProcName: string; var Changes: TObjectList);
|
|
||||||
var
|
|
||||||
ProcNode: TCodeTreeNode;
|
|
||||||
ProcPos: TCodeXYPosition;
|
|
||||||
RefCache: TFindIdentifierReferenceCache;
|
|
||||||
ListOfPCodeXYPosition: TFPList;
|
|
||||||
TreeOfPCodeXYPosition: TAVLTree;
|
|
||||||
begin
|
|
||||||
RefCache:=nil;
|
|
||||||
ListOfPCodeXYPosition:=nil;
|
|
||||||
TreeOfPCodeXYPosition:=CodeToolBoss.CreateTreeOfPCodeXYPosition;
|
|
||||||
try
|
|
||||||
if not CodeToolBoss.FindProcDeclaration(Code,ProcName,Tool,ProcNode) then
|
|
||||||
raise Exception.Create('procedure '+ProcName+' not found in '+Filename);
|
|
||||||
if not Tool.CleanPosToCaret(ProcNode.FirstChild.StartPos,ProcPos) then
|
|
||||||
raise Exception.Create('Tool.CleanPosToCaret for ProcNode failed');
|
|
||||||
debugln(['Proc at ',dbgs(ProcPos)]);
|
|
||||||
|
|
||||||
if not CodeToolBoss.FindReferences(ProcPos.Code,ProcPos.X,ProcPos.Y,Code,
|
|
||||||
true,ListOfPCodeXYPosition,RefCache)
|
|
||||||
then
|
|
||||||
raise Exception.Create('FindReferences failed for '+Code.Filename);
|
|
||||||
|
|
||||||
CodeToolBoss.AddListToTreeOfPCodeXYPosition(ListOfPCodeXYPosition,
|
|
||||||
TreeOfPCodeXYPosition,true,false);
|
|
||||||
|
|
||||||
if not CodeToolBoss.ChangeParamList(ProcPos.Code,Changes,ProcPos,
|
|
||||||
TreeOfPCodeXYPosition)
|
|
||||||
then
|
|
||||||
raise Exception.Create('ChangeParamList failed for '+Code.Filename);
|
|
||||||
|
|
||||||
finally
|
|
||||||
CodeToolBoss.FreeListOfPCodeXYPosition(ListOfPCodeXYPosition);
|
|
||||||
CodeToolBoss.FreeTreeOfPCodeXYPosition(TreeOfPCodeXYPosition);
|
|
||||||
RefCache.Free;
|
|
||||||
Changes.Clear;
|
|
||||||
end;
|
|
||||||
// write the new source:
|
|
||||||
writeln('-----------------------------------');
|
|
||||||
writeln('New source:');
|
|
||||||
writeln(Code.Source);
|
|
||||||
writeln('-----------------------------------');
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
Changes: TObjectList;
|
|
||||||
begin
|
|
||||||
CodeToolBoss.SimpleInit(ConfigFilename);
|
|
||||||
|
|
||||||
// load the file
|
|
||||||
Filename:='scanexamples/changeparamlist1.pas';
|
|
||||||
Filename:=ExpandFileName(SetDirSeparators(Filename));
|
|
||||||
Code:=CodeToolBoss.LoadFile(Filename,false,false);
|
|
||||||
if Code=nil then
|
|
||||||
raise Exception.Create('loading failed: '+Filename);
|
|
||||||
|
|
||||||
Changes:=TObjectList.create(true);
|
|
||||||
try
|
|
||||||
// Test: add the first parameter to a procedure
|
|
||||||
//Changes.Add(TChangeParamListItem.CreateInsertNewParam(0,'','p1','integer'));
|
|
||||||
//ChangeProc('DoNoParams',Changes);
|
|
||||||
|
|
||||||
// Test: add another parameter as first to a procedure
|
|
||||||
//Changes.Add(TChangeParamListItem.CreateInsertNewParam(0,'','p2','integer'));
|
|
||||||
//ChangeProc('DoOneParam(char)',Changes);
|
|
||||||
|
|
||||||
// Test: add another parameter as last to a procedure
|
|
||||||
//Changes.Add(TChangeParamListItem.CreateInsertNewParam(1,'','p3','integer'));
|
|
||||||
//ChangeProc('DoOneParam(char)',Changes);
|
|
||||||
|
|
||||||
// Test: insert another parameter between two procedure parameters
|
|
||||||
Changes.Add(TChangeParamListItem.CreateInsertNewParam(1,'','p3','integer'));
|
|
||||||
ChangeProc('DoTwoParams1(,word)',Changes);
|
|
||||||
finally
|
|
||||||
Changes.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
// write the new source:
|
|
||||||
writeln('-----------------------------------');
|
|
||||||
writeln('New source:');
|
|
||||||
writeln(Code.Source);
|
|
||||||
writeln('-----------------------------------');
|
|
||||||
end.
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user