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

codetools: cleaned up

Browse Source 
git-svn-id: trunk@56261 -
This commit is contained in:
mattias 2017-11-03 19:03:52 +00:00
parent 18570daf7b
commit d4da6d7376
3 changed files with 0 additions and 185 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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/autoindent.lpi 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.lpr svneol=native#text/plain
components/codetools/examples/completeabstractmethods.lpi svneol=native#text/plain

53
components/codetools/examples/changeparamlist.lpi
View File

@ -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>

130
components/codetools/examples/changeparamlist.lpr
View File

@ -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.