From 6183eb288d6093f382d36297936f051b9bd0fbf5 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 26 Jan 2022 13:30:42 +0100 Subject: [PATCH] codetools: clean up --- components/codetools/fpmake.pas | 126 -------------------------------- 1 file changed, 126 deletions(-) delete mode 100644 components/codetools/fpmake.pas diff --git a/components/codetools/fpmake.pas b/components/codetools/fpmake.pas deleted file mode 100644 index 9f3c865e89..0000000000 --- a/components/codetools/fpmake.pas +++ /dev/null @@ -1,126 +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 . You can also * - * obtain it by writing to the Free Software Foundation, * - * Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. * - * * - *************************************************************************** - - Author: Mattias Gaertner - - Usage: - fppkg build - - Abstract: - Compile codetools with fpmake - - Compile with: - fpc fpmake.pas -} -program fpmake; - -{$mode objfpc}{$H+} - -uses - SysUtils, fpmkunit; - -procedure AddUnitDependency(P: TPackage; T: TTarget; Filename: string); -var - FileUnitName: String; -begin - if Filename='' then exit; - FileUnitName:=copy(Filename,1,length(Filename)-length(ExtractFileExt(Filename))); - T.Dependencies.AddUnit(FileUnitName); - P.Targets.AddUnit(Filename); -end; - -procedure AddUnitDependencies(P: TPackage; T: TTarget; Filenames: array of const); -var - i: Integer; -begin - for i:=low(Filenames) to high(Filenames) do - AddUnitDependency(P,T,AnsiString(Filenames[i].VAnsiString)); -end; - -var - P: TPackage; - T: TTarget; -begin - with Installer do begin - P:=AddPackage('codetools'); - P.Version:='1.0-0'; - P.Author:='Mattias Gaertner'; - P.License:='GPL-2 or any later'; - P.Description:='CodeTools - ' - +'tools and functions to parse, browse and edit pascal sources'; - P.OSes:=AllOSes; - T:=P.Targets.AddUnit('allcodetoolunits.pp'); - T.Options.Add('-gl'); - T.Dependencies.AddInclude('codetools.inc'); - AddUnitDependencies(P,T,[ - 'basiccodetools.pas', - 'cachecodetools.pas', - 'ccodeparsertool.pas', - 'codeatom.pas', - 'codebeautifier.pas', - 'codecache.pas', - 'codecompletiontool.pas', - 'codegraph.pas', - 'codeindex.pas', - 'codetemplatestool.pas', - 'codetoolmanager.pas', - 'codetoolmemmanager.pas', - 'codetoolsconfig.pas', - 'codetoolsstrconsts.pas', - 'codetoolsstructs.pas', - 'codetree.pas', - 'customcodetool.pas', - 'definetemplates.pas', - 'directivestree.pas', - 'directorycacher.pas', - 'eventcodetool.pas', - 'expreval.pas', - 'extractproctool.pas', - 'fileprocs.pas', - 'finddeclarationcache.pas', - 'finddeclarationtool.pas', - 'findoverloads.pas', - 'h2pastool.pas', - 'identcompletiontool.pas', - 'keywordfunclists.pas', - 'laz_dom.pas', - 'laz_xmlcfg.pas', - 'laz_xmlread.pas', - 'laz_xmlstreaming.pas', - 'laz_xmlwrite.pas', - 'lfmtrees.pas', - 'linkscanner.pas', - 'methodjumptool.pas', - 'multikeywordlisttool.pas', - 'nonpascalcodetools.pas', - 'pascalparsertool.pas', - 'pascalreadertool.pas', - 'ppucodetools.pas', - 'ppugraph.pas', - 'ppuparser.pas', - 'resourcecodetool.pas', - 'sourcechanger.pas', - 'sourcelog.pas', - 'stdcodetools.pas', - '']); - Run; - end; -end. -