|
|
@@ -1,7112 +1,8417 @@
|
|
|
{$ifdef Delphi}
|
|
|
-const fpmkunitsrc : array[0..809] of string[240]=(
|
|
|
+const fpmkunitsrc : array[0..970] of string[240]=(
|
|
|
{$else Delphi}
|
|
|
-const fpmkunitsrc : array[0..809,1..250] of char=(
|
|
|
+const fpmkunitsrc : array[0..970,1..240] of char=(
|
|
|
{$endif Delphi}
|
|
|
- '{'#013#010+
|
|
|
- ' This file is part of the Free Pascal Makefile Package'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Implementation of fpmake classes and functions'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Copyright (c) 2007 by the freepascal team'#013#010+
|
|
|
- #013#010+
|
|
|
- ' See the file COPYING.FPC, included in this distribution,'#013#010+
|
|
|
- ' for det','ails about the copyright.'#013#010+
|
|
|
- #013#010+
|
|
|
- ' This program is distributed in the hope that it will be useful,'#013+
|
|
|
- #010+
|
|
|
- ' but WITHOUT ANY WARRANTY; without even the implied warranty of'#013+
|
|
|
- #010+
|
|
|
- ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.'#013#010+
|
|
|
- #013#010+
|
|
|
- ' *************','******************************************************'+
|
|
|
- '***}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'unit fpmkunit;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$Mode objfpc}'#013#010+
|
|
|
- '{$H+}'#013#010+
|
|
|
- '{$inline on}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{ For target or cpu dependent dependencies add also an overload were y'+
|
|
|
- 'ou'#013#010+
|
|
|
- ' can pass only a set of cpus. This is disabled',' for now because it c'+
|
|
|
- 'reates'#013#010+
|
|
|
- ' an error in the compiler with overload choosing }'#013#010+
|
|
|
- '{ define cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Interface'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$IFDEF OS2}'#013#010+
|
|
|
- ' {$DEFINE NO_UNIT_PROCESS}'#013#010+
|
|
|
- '{$ENDIF OS2}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$IFDEF GO32V2}'#013#010+
|
|
|
- ' {$DEFINE NO_UNIT_PROCESS}'#013#010+
|
|
|
- '{$ENDIF GO','32V2}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_UNIT_PROCESS}'#013#010+
|
|
|
- ' {$define HAS_UNIT_PROCESS}'#013#010+
|
|
|
- '{$endif NO_UNIT_PROCESS}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_UNIT_ZIPPER}'#013#010+
|
|
|
- ' {$define HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- '{$endif NO_UNIT_ZIPPER}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'uses'#013#010+
|
|
|
- ' SysUtils, Classes, StrUtils'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010,
|
|
|
- ' ,process'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' ,zipper'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' ;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
+ '{'#010+
|
|
|
+ ' This file is part of the Free Pascal Makefile Package'#010+
|
|
|
+ #010+
|
|
|
+ ' Implementation of fpmake classes and functions'#010+
|
|
|
+ #010+
|
|
|
+ ' Copyright (c) 2007 by the freepascal team'#010+
|
|
|
+ #010+
|
|
|
+ ' See the file COPYING.FPC, included in this distribution,'#010+
|
|
|
+ ' for details abo','ut the copyright.'#010+
|
|
|
+ #010+
|
|
|
+ ' This program is distributed in the hope that it will be useful,'#010+
|
|
|
+ ' but WITHOUT ANY WARRANTY; without even the implied warranty of'#010+
|
|
|
+ ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.'#010+
|
|
|
+ #010+
|
|
|
+ ' ***************************','****************************************'+
|
|
|
+ '***}'#010+
|
|
|
+ #010+
|
|
|
+ 'unit fpmkunit;'#010+
|
|
|
+ #010+
|
|
|
+ '{$Mode objfpc}'#010+
|
|
|
+ '{$H+}'#010+
|
|
|
+ '{$inline on}'#010+
|
|
|
+ #010+
|
|
|
+ '{ For target or cpu dependent dependencies also add an overload where '+
|
|
|
+ 'you'#010+
|
|
|
+ ' can pass only a set of cpus. This is disabled for now because it cr',
|
|
|
+ 'eates'#010+
|
|
|
+ ' an error in the compiler with overload choosing }'#010+
|
|
|
+ '{ define cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ 'Interface'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF OS2}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ '{$ENDIF OS2}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF GO32V2}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ '{$ENDIF GO32V2}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF NETBSD}'#010+
|
|
|
+ ' { NetBSD p','threads are not yet working, try to use fpmake without th'+
|
|
|
+ 'reads }'#010+
|
|
|
+ ' {$DEFINE NO_THREADING}'#010+
|
|
|
+ '{$ENDIF NETBSD}'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_UNIT_PROCESS}'#010+
|
|
|
+ ' {$define HAS_UNIT_PROCESS}'#010+
|
|
|
+ '{$endif NO_UNIT_PROCESS}'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_UNIT_ZIPPER}'#010+
|
|
|
+ ' {$define HAS_UNIT_ZIPPER}',#010+
|
|
|
+ '{$endif NO_UNIT_ZIPPER}'#010+
|
|
|
+ #010+
|
|
|
+ 'uses'#010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ ' BaseUnix,'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ ' cthreads,'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' SysUtils, Classes, StrUtils'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' ,process'#010+
|
|
|
+ '{$endif HAS_UNIT_','PROCESS}'#010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' ,zipper'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' ;'#010+
|
|
|
+ #010+
|
|
|
+ 'Type'#010+
|
|
|
' TFileType = (ftSource,ftUnit,ftObject,ftResource,ftExecutable,ftStat'+
|
|
|
- 'icLibrary,'#013#010+
|
|
|
- ' ftSharedLibrary);'#013#010+
|
|
|
- ' TFileTy','pes = set of TFileType;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Please keep this order, see OSCPUSupported below'#013#010+
|
|
|
- ' TCpu=(cpuNone,'#013#010+
|
|
|
- ' i386,m68k,powerpc,sparc,x86_64,arm,powerpc64,avr,armeb'#013#010+
|
|
|
- ' );'#013#010+
|
|
|
- ' TCPUS = Set of TCPU;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Please keep this order, see OSCPUSupported ','below'#013#010+
|
|
|
- ' TOS=(osNone,'#013#010+
|
|
|
- ' linux,go32v2,win32,os2,freebsd,beos,netbsd,'#013#010+
|
|
|
- ' amiga,atari, solaris, qnx, netware, openbsd,wdosx,'#013#010+
|
|
|
- ' palmos,macos,darwin,emx,watcom,morphos,netwlibc,'#013#010+
|
|
|
- ' win64,wince,gba,nds,embedded,symbian,haiku,iphonesim'#013#010,
|
|
|
- ' );'#013#010+
|
|
|
- ' TOSes = Set of TOS;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCompilerMode = (cmFPC,cmTP,cmObjFPC,cmDelphi,cmMacPas);'#013#010+
|
|
|
- ' TCompilerModes = Set of TCompilerMode;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'icLibrary,'#010+
|
|
|
+ ' ftSharedLibrary);'#010+
|
|
|
+ ' TFileTypes = set of TFileType;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Please k','eep this order, see OSCPUSupported below'#010+
|
|
|
+ ' TCpu=(cpuNone,'#010+
|
|
|
+ ' i386,m68k,powerpc,sparc,x86_64,arm,powerpc64,avr,armeb,'#010+
|
|
|
+ ' mips,mipsel,jvm'#010+
|
|
|
+ ' );'#010+
|
|
|
+ ' TCPUS = Set of TCPU;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Please keep this order, see OSCPUSupported below'#010+
|
|
|
+ ' TOS=(osNone,'#010+
|
|
|
+ ' ','linux,go32v2,win32,os2,freebsd,beos,netbsd,'#010+
|
|
|
+ ' amiga,atari, solaris, qnx, netware, openbsd,wdosx,'#010+
|
|
|
+ ' palmos,macos,darwin,emx,watcom,morphos,netwlibc,'#010+
|
|
|
+ ' win64,wince,gba,nds,embedded,symbian,haiku,iphonesim,'#010+
|
|
|
+ ' aix,java,android,nativent'#010,
|
|
|
+ ' );'#010+
|
|
|
+ ' TOSes = Set of TOS;'#010+
|
|
|
+ #010+
|
|
|
+ ' TCompilerMode = (cmFPC,cmTP,cmObjFPC,cmDelphi,cmMacPas);'#010+
|
|
|
+ ' TCompilerModes = Set of TCompilerMode;'#010+
|
|
|
+ #010+
|
|
|
' TTargetType = (ttProgram,ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttExa'+
|
|
|
- 'mpleUnit,ttExampleProgram,ttFPDoc);',#013#010+
|
|
|
- ' TTargetTypes = set of TTargetType;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'mpleUnit,ttExampleProgram,ttFPDoc);'#010+
|
|
|
+ ' TTa','rgetTypes = set of TTargetType;'#010+
|
|
|
+ #010+
|
|
|
' TFPDocFormat = (ffHtml, ffHtm, ffXHtml, ffLaTex, ffXMLStruct, ffChm)'+
|
|
|
- ';'#013#010+
|
|
|
- ' TFPDocFormats = set of TFPDocFormat;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' TFPDocFormats = set of TFPDocFormat;'#010+
|
|
|
+ #010+
|
|
|
' TTargetState = (tsNeutral,tsConsidering,tsNoCompile,tsCompiled,tsIns'+
|
|
|
- 'talled,tsNotF','ound);'#013#010+
|
|
|
- ' TTargetStates = Set of TTargetState;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TSourceType = (stDoc,stSrc,stExample,stTest);'#013#010+
|
|
|
- ' TSourceTypes = set of TSourceType;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TVerboseLevel = (vlError,vlWarning,vlInfo,vldebug,vlCommand);'#013#010+
|
|
|
- ' TVerboseLevels = Set of TVerboseLe','vel;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCommandAt = (caBeforeCompile,caAfterCompile,'#013#010+
|
|
|
- ' caBeforeInstall,caAfterInstall,'#013#010+
|
|
|
- ' caBeforeArchive,caAfterArchive,'#013#010+
|
|
|
- ' caBeforeClean,caAfterClean,'#013#010+
|
|
|
- ' caBeforeDownload,caAfter','Download);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TDependencyType = (depPackage,depImplicitPackage,depUnit,depInclude)'+
|
|
|
- ';'#013#010+
|
|
|
- ' TDependencyTypes = set of TDependencyType;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'talled,tsNotFound);'#010+
|
|
|
+ ' TTa','rgetStates = Set of TTargetState;'#010+
|
|
|
+ #010+
|
|
|
+ ' TSourceType = (stDoc,stSrc,stExample,stTest);'#010+
|
|
|
+ ' TSourceTypes = set of TSourceType;'#010+
|
|
|
+ #010+
|
|
|
+ ' TVerboseLevel = (vlError,vlWarning,vlInfo,vldebug,vlCommand);'#010+
|
|
|
+ ' TVerboseLevels = Set of TVerboseLevel;'#010+
|
|
|
+ #010+
|
|
|
+ ' TCommandAt ','= (caBeforeCompile,caAfterCompile,'#010+
|
|
|
+ ' caBeforeInstall,caAfterInstall,'#010+
|
|
|
+ ' caBeforeArchive,caAfterArchive,'#010+
|
|
|
+ ' caBeforeClean,caAfterClean,'#010+
|
|
|
+ ' caBeforeDownload,caAfterDownload);'#010+
|
|
|
+ #010+
|
|
|
+ ' TDependency','Type = (depPackage,depImplicitPackage,depUnit,depInclud'+
|
|
|
+ 'e);'#010+
|
|
|
+ ' TDependencyTypes = set of TDependencyType;'#010+
|
|
|
+ #010+
|
|
|
' TLogEvent = Procedure (Level : TVerboseLevel; Const Msg : String) of'+
|
|
|
- ' Object;'#013#010+
|
|
|
- ' TNotifyProcEvent = proc','edure(Sender: TObject);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TRunMode = (rmCompile,rmBuild,rmInstall,rmArchive,rmClean,rmDistClea'+
|
|
|
- 'n,rmManifest);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TBuildMode = (bmOneByOne, bmBuildUnit{, bmSkipImplicitUnits});'#013#010+
|
|
|
- ' TBuildModes = set of TBuildMode;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Const'#013#010+
|
|
|
- ' // Aliases'#013#010,
|
|
|
- ' Amd64 = X86_64;'#013#010+
|
|
|
- ' PPC = PowerPC;'#013#010+
|
|
|
- ' PPC64 = PowerPC64;'#013#010+
|
|
|
- ' DOS = Go32v2;'#013#010+
|
|
|
- ' MacOSX = Darwin;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' AllOSes = [Low(TOS)..High(TOS)];'#013#010+
|
|
|
- ' AllCPUs = [Low(TCPU)..High(TCPU)];'#013#010+
|
|
|
- ' AllUnixOSes = [Linux,FreeBSD,NetBSD,OpenBSD,Darwin,QNX,BeOS,Sol','ar'+
|
|
|
- 'is,Haiku,iphonesim,Android];'#013#010+
|
|
|
- ' AllBSDOSes = [FreeBSD,NetBSD,OpenBSD,Darwin,iphonesim];'#013#010+
|
|
|
- ' AllWindowsOSes = [Win32,Win64,WinCE];'#013#010+
|
|
|
- ' AllLimit83fsOses= [go32v2,os2,emx,watcom];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' AllSmartLinkLibraryOSes = [Linux]; // OSes that use .a libra','ry fil'+
|
|
|
- 'es for smart-linking'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { This table is kept OS,Cpu because it is easier to maintain (PFV) }'+
|
|
|
- #013#010+
|
|
|
- ' OSCPUSupported : array[TOS,TCpu] of boolean = ('#013#010+
|
|
|
+ ' Object;'#010+
|
|
|
+ ' TNotifyProcEvent = procedure(Sender: TObject);'#010+
|
|
|
+ #010+
|
|
|
+ ' TRun','Mode = (rmCompile,rmBuild,rmInstall,rmArchive,rmClean,rmDistCl'+
|
|
|
+ 'ean,rmManifest,rmZipInstall);'#010+
|
|
|
+ #010+
|
|
|
+ ' TBuildMode = (bmOneByOne, bmBuildUnit{, bmSkipImplicitUnits});'#010+
|
|
|
+ ' TBuildModes = set of TBuildMode;'#010+
|
|
|
+ ' TProcessPackageResult = (ppHandled, ppDelayed',');'#010+
|
|
|
+ ' TCheckDependencyResult = (cdAvailable, cdNotAvailable, cdNotYetAvail'+
|
|
|
+ 'able);'#010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' // Aliases'#010+
|
|
|
+ ' Amd64 = X86_64;'#010+
|
|
|
+ ' PPC = PowerPC;'#010+
|
|
|
+ ' PPC64 = PowerPC64;'#010+
|
|
|
+ ' DOS = Go32v2;'#010+
|
|
|
+ ' MacOSX = Darwin;'#010+
|
|
|
+ #010+
|
|
|
+ ' AllOSes = [Low(TOS)..High(TOS)];'#010+
|
|
|
+ ' AllCPUs =',' [Low(TCPU)..High(TCPU)];'#010+
|
|
|
+ ' AllUnixOSes = [Linux,FreeBSD,NetBSD,OpenBSD,Darwin,QNX,BeOS,Solaris'+
|
|
|
+ ',Haiku,iphonesim,aix,Android];'#010+
|
|
|
+ ' AllBSDOSes = [FreeBSD,NetBSD,OpenBSD,Darwin,iphonesim];'#010+
|
|
|
+ ' AllWindowsOSes = [Win32,Win64,WinCE];'#010+
|
|
|
+ ' AllLimi','t83fsOses= [go32v2,os2,emx,watcom];'#010+
|
|
|
+ #010+
|
|
|
+ ' AllSmartLinkLibraryOSes = [Linux]; // OSes that use .a library files'+
|
|
|
+ ' for smart-linking'#010+
|
|
|
+ ' AllImportLibraryOSes = AllWindowsOSes + [os2,emx,netwlibc,netware,wa'+
|
|
|
+ 'tcom,go32v2,macos,nativent];'#010+
|
|
|
+ #010+
|
|
|
+ ' { This table',' is kept OS,Cpu because it is easier to maintain (PFV)'+
|
|
|
+ ' }'#010+
|
|
|
+ ' OSCPUSupported : array[TOS,TCpu] of boolean = ('#010+
|
|
|
' { os none i386 m68k ppc sparc x86_64 arm ppc'+
|
|
|
- '64 avr armeb}',#013#010+
|
|
|
- ' { none } ( false, false, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ '64 avr armeb mips mipsel jvm}'#010+
|
|
|
+ ' { none } ( false, f','alse, false, false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { linux } ( false, true, true, true, true, true, true, tru'+
|
|
|
- 'e, false, true ),'#013#010+
|
|
|
- ' { go32v2 } ( false, true, false, false, false, false',', false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
+ 'e, false, true , true , true , false),'#010+
|
|
|
+ ' { go32v2 } ( false, true, false, false, ','false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { win32 } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { os2 } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { freebsd } ( false, tru','e, true, false, false, true, false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { os2 } ( false, true, false, false, false, false, false,',' f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
+ ' { freebsd } ( false, true, true, false, false, true, false, fal'+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
' { beos } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false',', false, false, false),'#010+
|
|
|
' { netbsd } ( false, true, true, true, true, false, false, fal'+
|
|
|
- 'se, false, false),',#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
' { amiga } ( false, false, true, true, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, fals','e),'#010+
|
|
|
' { atari } ( false, false, true, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { solaris } ( false, true, false, false, true, false',', false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
- ' { qnx } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { solaris } ( false, true, false, false, true, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { qnx } ','( false, true, false, false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { netware } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { openbsd } ( false, tru','e, true, false, false, false, false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { openbsd } ( false, true, true',', false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { wdosx } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { palmos } ( false, false, true, false, false, false, true, fal'+
|
|
|
- 'se, false, false),',#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { palmos } ( false, false, true, false, false, fal','se, true, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { macos } ( false, false, false, true, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
' { darwin } ( false, true, false, true, false, true, true, tru'+
|
|
|
- 'e, false, false),'#013#010+
|
|
|
- ' { emx } ( false, true, false, false, false, false',', false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
+ 'e, fa','lse, false, false, false, false),'#010+
|
|
|
+ ' { emx } ( false, true, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
' { watcom } ( false, true, false, false, false ,false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, f','alse, false),'#010+
|
|
|
' { morphos } ( false, false, false, true, false ,false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { netwlibc }( false, tru','e, false, false, false, false, false, f'+
|
|
|
- 'alse, false, false),'#013#010+
|
|
|
- ' { win64 } ( false, false, false, false, false, true, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { netwlibc }( false, true, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { ','win64 } ( false, false, false, false, false, true, false, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { wince }( false, true, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false),',#013#010+
|
|
|
- ' { gba } ( false, false, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { gba } ( false, f','alse, false, false, false, false, true, f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
' { nds } ( false, false, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { embedded }( false, true, true, true, true, true,',' true, t'+
|
|
|
- 'rue, true, true ),'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { embedded }( false, true, true, true, ','true, true, true, t'+
|
|
|
+ 'rue, true, true , false, false, false),'#010+
|
|
|
' { symbian } ( false, true, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { haiku } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false),'#013#010+
|
|
|
- ' { iphonesim}( false, tru','e, false, false, false, false, false, f'+
|
|
|
- 'alse, false, false)'#013#010+
|
|
|
- ' );'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Useful'#013#010+
|
|
|
- ' UnitExt = '#039'.ppu'#039';'#013#010+
|
|
|
- ' PPUExt = UnitExt;'#013#010+
|
|
|
- ' PasExt = '#039'.pas'#039';'#013#010+
|
|
|
- ' PPExt = '#039'.pp'#039';'#013#010+
|
|
|
- ' IncExt = '#039'.inc'#039';'#013#010+
|
|
|
- ' ObjExt = '#039'.o'#039';'#013#010+
|
|
|
- ' RstExt = '#039'.rst'#039';'#013#010+
|
|
|
- ' LibExt = '#039,'.a'#039';'#013#010+
|
|
|
- ' SharedLibExt = '#039'.so'#039';'#013#010+
|
|
|
- ' DLLExt = '#039'.dll'#039';'#013#010+
|
|
|
- ' ExeExt = '#039'.exe'#039';'#013#010+
|
|
|
- ' ZipExt = '#039'.zip'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' FPMakePPFile = '#039'fpmake.pp'#039';'#013#010+
|
|
|
- ' ManifestFile = '#039'manifest.xml'#039';'#013#010+
|
|
|
- ' UnitConfigFile = '#039'fpunits.cfg'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DirNotFound = '#039'<dirnotfound>'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Unit','Targets = [ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttExampleUnit'+
|
|
|
- '];'#013#010+
|
|
|
- ' ProgramTargets = [ttProgram,ttExampleProgram];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DefaultMessages = [vlError,vlWarning,vlCommand];'#013#010+
|
|
|
- ' AllMessages = [vlError,vlWarning,vlCommand,vlInfo];'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
- ' { TNa','medItem }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TNamedItem = Class(TCollectionItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FName: String;'#013#010+
|
|
|
- ' procedure SetName(const AValue: String);virtual;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' property Name : String Read FName Write SetName;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TNamedCollection }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' T','NamedCollection = Class(TCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FUniqueNames: Boolean;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function IndexOfName(const AName : String) : Integer;'#013#010+
|
|
|
- ' Function ItemByName(const AName : String) : TNamedItem;'#013#010+
|
|
|
- ' Property UniqueNames : Boolea','n Read FUniqueNames;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TNamedItemList }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TNamedItemList = Class(TFPList)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function GetNamedItem(Index : Integer): TNamedItem;'#013#010+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { haiku } ( false, true, false, false, false, false, false,',' f'+
|
|
|
+ 'alse, false, false, false, false, false),'#010+
|
|
|
+ ' { iphonesim}( false, true, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false),'#010+
|
|
|
+ ' { aix } ( false, false, false, true, false, false, false, tru'+
|
|
|
+ 'e, false, false',', false, false, false),'#010+
|
|
|
+ ' { java } ( false, false, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, true ),'#010+
|
|
|
+ ' { android } ( false, true, false, false, false, false, true, fal'+
|
|
|
+ 'se, false, false, false, false, true',' ),'#010+
|
|
|
+ ' { nativent }( false, true, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false)'#010+
|
|
|
+ ' );'#010+
|
|
|
+ #010+
|
|
|
+ ' // Useful'#010+
|
|
|
+ ' UnitExt = '#039'.ppu'#039';'#010+
|
|
|
+ ' PPUExt = UnitExt;'#010+
|
|
|
+ ' PasExt = '#039'.pas'#039';'#010+
|
|
|
+ ' PPExt = '#039'.pp'#039';'#010+
|
|
|
+ ' IncExt = '#039'.inc'#039';'#010+
|
|
|
+ ' ObjExt ',' = '#039'.o'#039';'#010+
|
|
|
+ ' RstExt = '#039'.rst'#039';'#010+
|
|
|
+ ' LibExt = '#039'.a'#039';'#010+
|
|
|
+ ' SharedLibExt = '#039'.so'#039';'#010+
|
|
|
+ ' DLLExt = '#039'.dll'#039';'#010+
|
|
|
+ ' ExeExt = '#039'.exe'#039';'#010+
|
|
|
+ ' DbgExt = '#039'.dbg'#039';'#010+
|
|
|
+ ' ZipExt = '#039'.zip'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' FPMakePPFile = '#039'fpmake.pp'#039';'#010+
|
|
|
+ ' ManifestFile = '#039'manifest.xml'#039';'#010+
|
|
|
+ ' UnitConfigFile = '#039'fpuni','ts.cfg'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' DirNotFound = '#039'<dirnotfound>'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' UnitTargets = [ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttExampleUnit];'+
|
|
|
+ #010+
|
|
|
+ ' ProgramTargets = [ttProgram,ttExampleProgram];'#010+
|
|
|
+ #010+
|
|
|
+ ' DefaultMessages = [vlError,vlWarning,vlCommand];'#010+
|
|
|
+ ' AllMessages = [vlError',',vlWarning,vlCommand,vlInfo];'#010+
|
|
|
+ #010+
|
|
|
+ 'Type'#010+
|
|
|
+ ' TTargets = Class;'#010+
|
|
|
+ ' { TNamedItem }'#010+
|
|
|
+ #010+
|
|
|
+ ' TNamedItem = Class(TCollectionItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FName: String;'#010+
|
|
|
+ ' procedure SetName(const AValue: String);virtual;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' property Name : String Read FName',' Write SetName;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TNamedCollection }'#010+
|
|
|
+ #010+
|
|
|
+ ' TNamedCollection = Class(TCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FUniqueNames: Boolean;'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetItem(Index: Integer): TNamedItem;'#010+
|
|
|
+ ' procedure SetItem(Index: Integer; AValue: TNamedIte','m);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function IndexOfName(const AName : String) : Integer;'#010+
|
|
|
+ ' Function ItemByName(const AName : String) : TNamedItem;'#010+
|
|
|
+ ' Property UniqueNames : Boolean Read FUniqueNames;'#010+
|
|
|
+ ' property Items[Index: Integer]: TNamedItem read Get','Item write Se'+
|
|
|
+ 'tItem;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TNamedItemList }'#010+
|
|
|
+ #010+
|
|
|
+ ' TNamedItemList = Class(TFPList)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetNamedItem(Index : Integer): TNamedItem;'#010+
|
|
|
' procedure SetNamedItem(Index : Integer; const AValue: TNamedItem);'+
|
|
|
- #013#010+
|
|
|
- ' public'#013,#010+
|
|
|
- ' Function IndexOfName(const AName : String) : Integer;'#013#010+
|
|
|
- ' Function ItemByName(const ANAme : String) : TNamedItem;'#013#010+
|
|
|
+ #010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Functi','on IndexOfName(const AName : String) : Integer;'#010+
|
|
|
+ ' Function ItemByName(const ANAme : String) : TNamedItem;'#010+
|
|
|
' Property NamedItems[Index : Integer] : TNamedItem Read GetNamedIte'+
|
|
|
- 'm Write SetNamedItem; default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCo','mmand }'#013#010+
|
|
|
- ' TCommand = Class(TNamedItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FAfterCommand: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCommand: TNotifyEvent;'#013#010+
|
|
|
- ' FCommand: String;'#013#010+
|
|
|
- ' FCommandAt: TCommandAt;'#013#010+
|
|
|
- ' FDestFile: String;'#013#010+
|
|
|
- ' FIgnoreResult: Boolean;'#013#010+
|
|
|
- ' FOptions: ','TStrings;'#013#010+
|
|
|
- ' FSourceFile: String;'#013#010+
|
|
|
- ' Function GetOptions : TStrings;'#013#010+
|
|
|
- ' Procedure SetOptions(Const Value : TStrings);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Destructor Destroy; override;'#013#010+
|
|
|
- ' Function HaveOptions : Boolean;'#013#010+
|
|
|
- ' Function CmdLineOptions : Str','ing;'#013#010+
|
|
|
- ' Procedure ParseOptions(S : String);'#013#010+
|
|
|
- ' Property SourceFile : String Read FSourceFile Write FSourceFile;'#013+
|
|
|
- #010+
|
|
|
- ' Property DestFile : String Read FDestFile Write FDestFile;'#013#010+
|
|
|
- ' Property Command : String Read FCommand Write FCommand;',#013#010+
|
|
|
- ' Property Options : TStrings Read GetOptions Write SetOptions;'#013#010+
|
|
|
- ' Property At : TCommandAt Read FCommandAt Write FCommandAt;'#013#010+
|
|
|
+ 'm Write SetNamedItem; default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCommand }'#010+
|
|
|
+ ' TComma','nd = Class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FAfterCommand: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCommand: TNotifyEvent;'#010+
|
|
|
+ ' FCommand: String;'#010+
|
|
|
+ ' FCommandAt: TCommandAt;'#010+
|
|
|
+ ' FDestFile: String;'#010+
|
|
|
+ ' FIgnoreResult: Boolean;'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FSourceFile',': String;'#010+
|
|
|
+ ' Function GetOptions : TStrings;'#010+
|
|
|
+ ' Procedure SetOptions(Const Value : TStrings);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Destructor Destroy; override;'#010+
|
|
|
+ ' Function HaveOptions : Boolean;'#010+
|
|
|
+ ' Function CmdLineOptions : String;'#010+
|
|
|
+ ' Procedure ParseOptions(','S : String);'#010+
|
|
|
+ ' Property SourceFile : String Read FSourceFile Write FSourceFile;'#010+
|
|
|
+ ' Property DestFile : String Read FDestFile Write FDestFile;'#010+
|
|
|
+ ' Property Command : String Read FCommand Write FCommand;'#010+
|
|
|
+ ' Property Options : TStrings Rea','d GetOptions Write SetOptions;'#010+
|
|
|
+ ' Property At : TCommandAt Read FCommandAt Write FCommandAt;'#010+
|
|
|
' Property IgnoreResult : Boolean Read FIgnoreResult Write FIgnoreRe'+
|
|
|
- 'sult;'#013#010+
|
|
|
- ' Property BeforeCommand : T','NotifyEvent Read FBeforeCommand Write '+
|
|
|
- 'FBeforeCommand;'#013#010+
|
|
|
+ 'sult;'#010+
|
|
|
+ ' Property BeforeCommand : TNotifyEvent Read FBeforeCommand Write FB',
|
|
|
+ 'eforeCommand;'#010+
|
|
|
' Property AfterCommand : TNotifyEvent Read FAfterCommand Write FAft'+
|
|
|
- 'erCommand;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCommands }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCommands = Class(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FDefaultAt: TCommand','At;'#013#010+
|
|
|
- ' function GetCommand(const Dest : String): TCommand;'#013#010+
|
|
|
- ' function GetCommandItem(Index : Integer): TCommand;'#013#010+
|
|
|
+ 'erCommand;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCommands }'#010+
|
|
|
+ #010+
|
|
|
+ ' TCommands = Class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FDefaultAt: TCommandAt;'#010+
|
|
|
+ ' function GetCommand(const Dest : String)',': TCommand;'#010+
|
|
|
+ ' function GetCommandItem(Index : Integer): TCommand;'#010+
|
|
|
' procedure SetCommandItem(Index : Integer; const AValue: TCommand);'+
|
|
|
- #013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function AddCommand(Const Cmd : Str','ing) : TCommand;'#013#010+
|
|
|
- ' Function AddCommand(Const Cmd,Options : String) : TCommand;'#013#010+
|
|
|
+ #010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function AddCommand(Const Cmd : String) : TCommand;'#010+
|
|
|
+ ' Function AddCommand(Const Cmd,Op','tions : String) : TCommand;'#010+
|
|
|
' Function AddCommand(Const Cmd,Options,Dest,Source : String) : TCom'+
|
|
|
- 'mand;'#013#010+
|
|
|
+ 'mand;'#010+
|
|
|
' Function AddCommand(At : TCommandAt; Const Cmd : String) : TComman'+
|
|
|
- 'd;'#013#010+
|
|
|
- ' Fu','nction AddCommand(At : TCommandAt; Const Cmd,Options : String)'+
|
|
|
- ' : TCommand;'#013#010+
|
|
|
+ 'd;'#010+
|
|
|
+ ' Function AddCommand(At : TCommandAt; Const Cmd,Options : St','ring)'+
|
|
|
+ ' : TCommand;'#010+
|
|
|
' Function AddCommand(At : TCommandAt; Const Cmd,Options, Dest,Sourc'+
|
|
|
- 'e : String) : TCommand;'#013#010+
|
|
|
- ' Property CommandItems[Index : Integer] : TCommand Read GetCommand',
|
|
|
- 'Item Write SetCommandItem;'#013#010+
|
|
|
- ' Property Commands[Dest : String] : TCommand Read GetCommand; defau'+
|
|
|
- 'lt;'#013#010+
|
|
|
- ' Property DefaultAt : TCommandAt Read FDefaultAt Write FDefaultAt;'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TFPVersion }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TFPVersion = Class(TPersistent)'#013#010+
|
|
|
- ' ',' private'#013#010+
|
|
|
- ' FMajor,'#013#010+
|
|
|
- ' FMinor,'#013#010+
|
|
|
- ' FMicro,'#013#010+
|
|
|
- ' FBuild : Integer;'#013#010+
|
|
|
- ' function GetAsString: String;'#013#010+
|
|
|
- ' function GetEmpty: Boolean;'#013#010+
|
|
|
- ' procedure SetAsString(const AValue: String);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Procedure Clear;'#013#010+
|
|
|
- ' Procedure Ass','ign(Source : TPersistent); override;'#013#010+
|
|
|
- ' Function CompareVersion(AVersion : TFPVersion) : Integer;'#013#010+
|
|
|
- ' Function SameVersion(AVersion : TFPVersion) : Boolean;'#013#010+
|
|
|
- ' Property AsString : String Read GetAsString Write SetAsString;'#013#010+
|
|
|
- ' Property Em','pty : Boolean Read GetEmpty;'#013#010+
|
|
|
- ' Published'#013#010+
|
|
|
- ' Property Major : Integer Read FMajor Write FMajor;'#013#010+
|
|
|
- ' Property Minor : Integer Read FMinor Write FMinor;'#013#010+
|
|
|
- ' Property Micro : Integer Read FMicro Write FMicro;'#013#010+
|
|
|
- ' Property Build : Integer Read',' FBuild Write FBuild;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TConditionalString }'#013#010+
|
|
|
- ' TConditionalString = Class'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FOSes : TOSes;'#013#010+
|
|
|
- ' FCPUs : TCPUs;'#013#010+
|
|
|
- ' FValue : String;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create;virtual;'#013#010+
|
|
|
- ' Property Value : String Re','ad FValue Write FValue;'#013#010+
|
|
|
- ' Property OSes : TOSes Read FOSes Write FOSes;'#013#010+
|
|
|
- ' Property CPUs : TCPUs Read FCPUS Write FCPUs;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditionalStringClass = class of TConditionalString;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TConditionalStrings }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditiona','lStrings = Class(TFPList)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FCSClass : TConditionalStringClass;'#013#010+
|
|
|
- ' function GetConditionalString(Index : Integer): TConditionalString'+
|
|
|
- ';'#013#010+
|
|
|
- ' procedure SetConditionalString(Index : Integer; const AValue: TCon'+
|
|
|
- 'ditionalString);'#013#010,
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AClass:TConditionalStringClass);'#013#010+
|
|
|
- ' Function Add(Const Value : String) : TConditionalString;inline;'#013+
|
|
|
+ 'e : String) : TCommand;'#010+
|
|
|
+ ' Property CommandItems[Index : Integer] : TCommand Read GetCommandI'+
|
|
|
+ 'tem Write SetCommandItem;'#010+
|
|
|
+ ' Property Commands[Dest : Str','ing] : TCommand Read GetCommand; def'+
|
|
|
+ 'ault;'#010+
|
|
|
+ ' Property DefaultAt : TCommandAt Read FDefaultAt Write FDefaultAt;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFPVersion }'#010+
|
|
|
+ #010+
|
|
|
+ ' TFPVersion = Class(TPersistent)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FMajor,'#010+
|
|
|
+ ' FMinor,'#010+
|
|
|
+ ' FMicro,'#010+
|
|
|
+ ' FBuild : Intege','r;'#010+
|
|
|
+ ' function GetAsString: String;'#010+
|
|
|
+ ' function GetEmpty: Boolean;'#010+
|
|
|
+ ' procedure SetAsString(const AValue: String);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Procedure Clear;'#010+
|
|
|
+ ' Procedure Assign(Source : TPersistent); override;'#010+
|
|
|
+ ' Function CompareVersion(AVersion : TF','PVersion) : Integer;'#010+
|
|
|
+ ' Function SameVersion(AVersion : TFPVersion) : Boolean;'#010+
|
|
|
+ ' Property AsString : String Read GetAsString Write SetAsString;'#010+
|
|
|
+ ' Property Empty : Boolean Read GetEmpty;'#010+
|
|
|
+ ' Published'#010+
|
|
|
+ ' Property Major : Integer Read FMajor ','Write FMajor;'#010+
|
|
|
+ ' Property Minor : Integer Read FMinor Write FMinor;'#010+
|
|
|
+ ' Property Micro : Integer Read FMicro Write FMicro;'#010+
|
|
|
+ ' Property Build : Integer Read FBuild Write FBuild;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TConditionalString }'#010+
|
|
|
+ ' TConditionalString = Class'#010+
|
|
|
+ ' ','private'#010+
|
|
|
+ ' FOSes : TOSes;'#010+
|
|
|
+ ' FCPUs : TCPUs;'#010+
|
|
|
+ ' FValue : String;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create;virtual;'#010+
|
|
|
+ ' Property Value : String Read FValue Write FValue;'#010+
|
|
|
+ ' Property OSes : TOSes Read FOSes Write FOSes;'#010+
|
|
|
+ ' Property CPUs : TC','PUs Read FCPUS Write FCPUs;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' TConditionalStringClass = class of TConditionalString;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TConditionalStrings }'#010+
|
|
|
#010+
|
|
|
+ ' TConditionalStrings = Class(TFPList)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FCSClass : TConditionalStringClass;'#010+
|
|
|
+ ' function GetConditionalStr','ing(Index : Integer): TConditionalStri'+
|
|
|
+ 'ng;'#010+
|
|
|
+ ' procedure SetConditionalString(Index : Integer; const AValue: TCon'+
|
|
|
+ 'ditionalString);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AClass:TConditionalStringClass);'#010+
|
|
|
+ ' Function Add(Const Value : String) : TCond','itionalString;inline;'#010+
|
|
|
' Function Add(Const Value : String;const OSes:TOSes) : TConditional'+
|
|
|
- 'String;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_o','verloads}'#013#010+
|
|
|
+ 'String;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function Add(Const Value : String;const CPUs:TCPUs) : TConditional'+
|
|
|
- 'String;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'String;inline;'#010+
|
|
|
+ '{$endif cpu_only_ove','rloads}'#010+
|
|
|
' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
|
|
|
- 's) : TConditionalString;'#013#010+
|
|
|
- ' Property Condi','tionalStrings[Index : Integer] : TConditionalStrin'+
|
|
|
- 'g Read GetConditionalString Write SetConditionalString; default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TDependency }'#013#010+
|
|
|
- ' TDependency = Class(TConditionalString)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FDependencyType : TDependencyType;'#013#010+
|
|
|
- ' ',' // Package, Unit'#013#010+
|
|
|
- ' FTarget : TObject;'#013#010+
|
|
|
- ' FVersion : TFPVersion;'#013#010+
|
|
|
- ' FRequireChecksum : Cardinal;'#013#010+
|
|
|
- ' // Filenames, Includes'#013#010+
|
|
|
- ' FTargetFileName : String;'#013#010+
|
|
|
- ' Function GetVersion : string;'#013#010+
|
|
|
- ' Procedure SetVersion(const V : stri','ng);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create;override;'#013#010+
|
|
|
- ' Destructor Destroy;override;'#013#010+
|
|
|
- ' Property Target : TObject Read FTarget Write FTarget;'#013#010+
|
|
|
- ' Property DependencyType : TDependencyType Read FDependencyType;'#013+
|
|
|
- #010+
|
|
|
- ' Property TargetFileName ',': String Read FTargetFileName Write FTar'+
|
|
|
- 'getFileName;'#013#010+
|
|
|
- ' Property Version : String Read GetVersion Write SetVersion;'#013#010+
|
|
|
+ 's) : TConditionalString;'#010+
|
|
|
+ ' Property ConditionalStrings[Index : Integer] : TConditionalString '+
|
|
|
+ 'Read GetConditionalString Write SetConditionalString; default;'#010+
|
|
|
+ ' en','d;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TConditionalDestString }'#010+
|
|
|
+ #010+
|
|
|
+ ' TConditionalDestString = Class(TConditionalString)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FDestPath: string;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' property DestPath: string read FDestPath write FDestPath;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' TConditionalDestStringClass = class of ','TConditionalDestString;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TConditionalDestStrings }'#010+
|
|
|
+ #010+
|
|
|
+ ' TConditionalDestStrings = Class(TConditionalStrings)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetConditionalString(Index : Integer): TConditionalDestSt'+
|
|
|
+ 'ring;'#010+
|
|
|
+ ' procedure SetConditionalString(Index : ','Integer; AValue: TConditi'+
|
|
|
+ 'onalDestString);'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Constructor Create(AClass:TConditionalDestStringClass);'#010+
|
|
|
+ ' Function Add(Const Value : String; ADestPath: String) : TCondition'+
|
|
|
+ 'alDestString;inline;'#010+
|
|
|
+ ' Function Add(Const Value : String;','const OSes:TOSes; ADestPath: S'+
|
|
|
+ 'tring) : TConditionalDestString;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs; ADestPath: Str'+
|
|
|
+ 'ing) : TConditionalDestString;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Fu','nction Add(Const Value : String;const CPUs:TCPUs;const OSes:TO'+
|
|
|
+ 'Ses; ADestPath: String) : TConditionalDestString;'#010+
|
|
|
+ ' Property ConditionalStrings[Index : Integer] : TConditionalDestStr'+
|
|
|
+ 'ing Read GetConditionalString Write SetConditionalString; ','default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TDictionary }'#010+
|
|
|
+ #010+
|
|
|
+ ' TReplaceFunction = Function (Const AName,Args : String) : String of '+
|
|
|
+ 'Object;'#010+
|
|
|
+ #010+
|
|
|
+ ' TDictionary = Class(TComponent)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FList : TStringList;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); ov','erride;'#010+
|
|
|
+ ' Destructor Destroy;override;'#010+
|
|
|
+ ' Procedure AddVariable(const AName,Value : String);'#010+
|
|
|
+ ' Procedure AddFunction(const AName : String; FReplacement : TReplac'+
|
|
|
+ 'eFunction);'#010+
|
|
|
+ ' Procedure RemoveItem(const AName : String);'#010+
|
|
|
+ ' Function G','etValue(AName : String) : String;'#010+
|
|
|
+ ' Function GetValue(const AName,Args : String) : String; virtual;'#010+
|
|
|
+ ' Function ReplaceStrings(Const ASource : String) : String; virtual;'+
|
|
|
+ #010+
|
|
|
+ ' Function Substitute(Const Source : String; Macros : Array of st','r'+
|
|
|
+ 'ing) : String; virtual;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageDictionary }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackageDictionary = Class(TDictionary)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FMasterDictionary: TDictionary;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function GetValue(const AName,Args : String) : String; override;'#010+
|
|
|
+ ' property Ma','sterDictionary: TDictionary read FMasterDictionary wr'+
|
|
|
+ 'ite FMasterDictionary;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' { TDependency }'#010+
|
|
|
+ ' TDependency = Class(TConditionalString)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FDependencyType : TDependencyType;'#010+
|
|
|
+ ' // Package, Unit'#010+
|
|
|
+ ' FTarget : TObject;'#010+
|
|
|
+ ' ',' FVersion : TFPVersion;'#010+
|
|
|
+ ' FRequireChecksum : Cardinal;'#010+
|
|
|
+ ' // Filenames, Includes'#010+
|
|
|
+ ' FTargetFileName : String;'#010+
|
|
|
+ ' Function GetVersion : string;'#010+
|
|
|
+ ' Procedure SetVersion(const V : string);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create;override;'#010+
|
|
|
+ ' D','estructor Destroy;override;'#010+
|
|
|
+ ' Property Target : TObject Read FTarget Write FTarget;'#010+
|
|
|
+ ' Property DependencyType : TDependencyType Read FDependencyType;'#010+
|
|
|
+ ' Property TargetFileName : String Read FTargetFileName Write FTarge'+
|
|
|
+ 'tFileName;'#010+
|
|
|
+ ' P','roperty Version : String Read GetVersion Write SetVersion;'#010+
|
|
|
' Property RequireChecksum : Cardinal Read FRequireChecksum Write FR'+
|
|
|
- 'equireChecksum;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TDependencies = Class(','TConditionalStrings)'#013#010+
|
|
|
- ' function GetDependency(Index : Integer): TDependency;'#013#010+
|
|
|
+ 'equireChecksum;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageVariant }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackage = Class;'#010+
|
|
|
+ ' TPackageVariant = class(TNamedItem)'#010+
|
|
|
+ ' priv','ate'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FTargets: TTargets;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' constructor Create(ACollection: TCollection); override;'#010+
|
|
|
+ ' destructor Destroy; override;'#010+
|
|
|
+ ' property Options: TStrings read FOptions;'#010+
|
|
|
+ ' property Targets: TTargets read FTa','rgets;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageVariants }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackageVariants = class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FActivePackageVariantName: string;'#010+
|
|
|
+ ' FDefaultPackageVariantName: string;'#010+
|
|
|
+ ' FIsInheritable: boolean;'#010+
|
|
|
+ ' FMasterPackage: TPackage;'#010+
|
|
|
+ ' FNam','e: string;'#010+
|
|
|
+ ' function GetActivePackageVariant: TPackageVariant;'#010+
|
|
|
+ ' function GetDefaultPackageVariant: TPackageVariant;'#010+
|
|
|
+ ' procedure SetActivePackageVariantName(AValue: string);'#010+
|
|
|
+ ' procedure SetDefaultPackageVariantName(AValue: string);',#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' function Add(AName: String): TPackageVariant; overload; virtual;'#010+
|
|
|
+ ' property Name: string read FName write FName;'#010+
|
|
|
+ ' property MasterPackage: TPackage read FMasterPackage;'#010+
|
|
|
+ ' property DefaultPackageVariant: TPackageVariant r','ead GetDefaultP'+
|
|
|
+ 'ackageVariant;'#010+
|
|
|
+ ' property ActivePackageVariant: TPackageVariant read GetActivePacka'+
|
|
|
+ 'geVariant;'#010+
|
|
|
+ ' property DefaultPackageVariantName: string read FDefaultPackageVar'+
|
|
|
+ 'iantName write SetDefaultPackageVariantName;'#010+
|
|
|
+ ' property A','ctivePackageVariantName: string read FActivePackageVar'+
|
|
|
+ 'iantName write SetActivePackageVariantName;'#010+
|
|
|
+ ' property IsInheritable: boolean read FIsInheritable;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' TDependencies = Class(TConditionalStrings)'#010+
|
|
|
+ ' function GetDependency(Inde','x : Integer): TDependency;'#010+
|
|
|
' procedure SetDependency(Index : Integer; const AValue: TDependency'+
|
|
|
- ');'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function Add(Const Value : String) : TDependency;inline;'#013#010+
|
|
|
- ' Function ','Add(Const Value : String;const OSes:TOSes) : TDependenc'+
|
|
|
- 'y;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ');'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function Add(Const Value : String) : TDependency;inline;'#010+
|
|
|
+ ' Function Add(Const Value : String;const OSes:TOSes) : TDependency;',
|
|
|
+ 'inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function Add(Const Value : String;const CPUs:TCPUs) : TDependency;'+
|
|
|
- 'inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- ' Function Add(Const Value : String',';const CPUs:TCPUs;const OSes:TO'+
|
|
|
- 'Ses) : TDependency;'#013#010+
|
|
|
- ' Function AddUnit(Const Value : String) : TDependency;inline;'#013#010+
|
|
|
+ 'inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
|
|
|
+ 's) : TDependency;'#010+
|
|
|
+ ' Functi','on AddUnit(Const Value : String) : TDependency;inline;'#010+
|
|
|
' Function AddUnit(Const Value : String;const OSes:TOSes) : TDepende'+
|
|
|
- 'ncy;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- ' Functi','on AddUnit(Const Value : String;const CPUs:TCPUs) : TDepen'+
|
|
|
- 'dency;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'ncy;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function AddUnit(Const Value : String;const CPUs:TCPUs) : TDepende'+
|
|
|
+ 'ncy;i','nline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddUnit(Const Value : String;const CPUs:TCPUs;const OSes:'+
|
|
|
- 'TOSes) : TDependency;'#013#010+
|
|
|
- ' Function AddInclude(Const Value : String)',' : TDependency;inline;'#013+
|
|
|
- #010+
|
|
|
- ' Function AddInclude(Const Value : String;const OSes:TOSes) : TDepe'+
|
|
|
- 'ndency;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ 'TOSes) : TDependency;'#010+
|
|
|
+ ' Function AddInclude(Const Value : String) : TDependency;inline;'#010+
|
|
|
+ ' Function AddInclude(Const Value : String;','const OSes:TOSes) : TDe'+
|
|
|
+ 'pendency;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function AddInclude(Const Value : String;const CPUs:TCPUs) : TDepe'+
|
|
|
- 'ndency;inline;'#013#010+
|
|
|
- '{$endif cpu_onl','y_overloads}'#013#010+
|
|
|
- ' Function AddInclude(Const Value : String;const CPUs:TCPUs;const OS'+
|
|
|
- 'es:TOSes) : TDependency;'#013#010+
|
|
|
+ 'ndency;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function AddInclude(Const Value : String;const CPUs:TCP','Us;const '+
|
|
|
+ 'OSes:TOSes) : TDependency;'#010+
|
|
|
' Property Dependencies[Index : Integer] : TDependency Read GetDepen'+
|
|
|
- 'dency Write SetDependency; default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TTarget }',#013#010+
|
|
|
- #013#010+
|
|
|
- ' TTarget = Class(TNamedItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FInstall : Boolean;'#013#010+
|
|
|
- ' FAfterClean: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeClean: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FCPUs: TCPUs;'#013#010+
|
|
|
- ' FOSes: TOSes',';'#013#010+
|
|
|
- ' FMode: TCompilerMode;'#013#010+
|
|
|
- ' FResourceStrings: Boolean;'#013#010+
|
|
|
- ' FObjectPath,'#013#010+
|
|
|
- ' FUnitPath,'#013#010+
|
|
|
- ' FIncludePath : TConditionalStrings;'#013#010+
|
|
|
- ' FDependencies : TDependencies;'#013#010+
|
|
|
- ' FCommands : TCommands;'#013#010+
|
|
|
- ' FDirectory: String;'#013#010+
|
|
|
- ' FExtension',': String;'#013#010+
|
|
|
- ' FTargetSourceFileName : String;'#013#010+
|
|
|
- ' FFileType: TFileType;'#013#010+
|
|
|
- ' FOptions: TStrings;'#013#010+
|
|
|
- ' FFPCTarget: String;'#013#010+
|
|
|
- ' FTargetState: TTargetState;'#013#010+
|
|
|
- ' FTargetType: TTargetType;'#013#010+
|
|
|
- ' FXML: string;'#013#010+
|
|
|
- ' function GetOptions: TString','s;'#013#010+
|
|
|
- ' procedure SetOptions(const AValue: TStrings);'#013#010+
|
|
|
- ' Protected'#013#010+
|
|
|
- ' Function GetSourceFileName : String; virtual;'#013#010+
|
|
|
- ' Function GetUnitFileName : String; virtual;'#013#010+
|
|
|
- ' function GetUnitLibFileName: String; virtual;'#013#010+
|
|
|
- ' Function GetObjec','tFileName : String; virtual;'#013#010+
|
|
|
- ' Function GetRSTFileName : String; Virtual;'#013#010+
|
|
|
- ' Function GetProgramFileName(AOS : TOS) : String; Virtual;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(ACollection : TCollection); override;'#013#010+
|
|
|
- ' Destructor Destroy; ove','rride;'#013#010+
|
|
|
- ' Function GetOutputFileName (AOs : TOS) : String; Virtual;'#013#010+
|
|
|
- ' Function HaveOptions : Boolean;'#013#010+
|
|
|
- ' procedure SetName(const AValue: String);override;'#013#010+
|
|
|
- ' procedure SetXML(const AValue: string);'#013#010+
|
|
|
- ' Procedure GetCleanFiles(Lis','t : TStrings; const APrefixU, APrefix'+
|
|
|
- 'B : String; ACPU:TCPU; AOS : TOS); virtual;'#013#010+
|
|
|
- ' Procedure GetInstallFiles(List : TStrings; const APrefixU, APrefix'+
|
|
|
- 'B: String; ACPU:TCPU; AOS : TOS); virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveFiles(List : TString','s; ACPU:TCPU; AOS : TOS)'+
|
|
|
- '; virtual;'#013#010+
|
|
|
- ' Property Dependencies : TDependencies Read FDependencies;'#013#010+
|
|
|
- ' Property Commands : TCommands Read FCommands;'#013#010+
|
|
|
- ' Property State : TTargetState Read FTargetState;'#013#010+
|
|
|
- ' Property TargetType : TTargetTyp','e Read FTargetType Write FTarget'+
|
|
|
- 'Type;'#013#010+
|
|
|
- ' Property OSes : TOSes Read FOSes Write FOSes;'#013#010+
|
|
|
- ' Property CPUs : TCPUs Read FCPUs Write FCPUs;'#013#010+
|
|
|
- ' Property Mode : TCompilerMode Read FMode Write FMode;'#013#010+
|
|
|
- ' Property Options : TStrings Read Get','Options Write SetOptions;'#013+
|
|
|
- #010+
|
|
|
- ' Property SourceFileName: String Read GetSourceFileName ;'#013#010+
|
|
|
- ' Property UnitFileName : String Read GetUnitFileName;'#013#010+
|
|
|
- ' Property UnitLibFileName : String Read GetUnitLibFileName;'#013#010+
|
|
|
- ' Property ObjectFileName :',' String Read GetObjectFileName;'#013#010+
|
|
|
- ' Property RSTFileName : String Read GetRSTFileName;'#013#010+
|
|
|
- ' Property FPCTarget : String Read FFPCTarget Write FFPCTarget;'#013#010+
|
|
|
- ' Property Extension : String Read FExtension Write FExtension;'#013#010+
|
|
|
- ' Property File','Type : TFileType Read FFileType Write FFileType;'#013+
|
|
|
- #010+
|
|
|
- ' Property Directory : String Read FDirectory Write FDirectory;'#013#010+
|
|
|
- ' Property ResourceStrings : Boolean Read FResourceStrings Write FRe'+
|
|
|
- 'sourceStrings;'#013#010+
|
|
|
- ' Property Install : Boolean Read F','Install Write FInstall;'#013#010+
|
|
|
- ' Property TargetSourceFileName: String Read FTargetSourceFileName;'#013+
|
|
|
+ 'dency Write SetDependency; default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
#010+
|
|
|
- ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#013#010+
|
|
|
- ' Property UnitPath : TConditionalStrings Read FUnitPath;'#013#010+
|
|
|
- ' Property Inclu','dePath : TConditionalStrings Read FIncludePath;'#013+
|
|
|
+ ' { TTarget }'#010+
|
|
|
#010+
|
|
|
- ' Property XML: string Read FXML Write SetXML;'#013#010+
|
|
|
- ' // Events.'#013#010+
|
|
|
+ ' TTarget = Class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FInstall : Boolean;'#010+
|
|
|
+ ' FAfterC','lean: TNotifyEvent;'#010+
|
|
|
+ ' FAfterCompile: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeClean: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCompile: TNotifyEvent;'#010+
|
|
|
+ ' FCPUs: TCPUs;'#010+
|
|
|
+ ' FOSes: TOSes;'#010+
|
|
|
+ ' FMode: TCompilerMode;'#010+
|
|
|
+ ' FResourceStrings: Boolean;'#010+
|
|
|
+ ' FObjectPath,'#010+
|
|
|
+ ' FUnitPa','th,'#010+
|
|
|
+ ' FIncludePath : TConditionalStrings;'#010+
|
|
|
+ ' FDependencies : TDependencies;'#010+
|
|
|
+ ' FCommands : TCommands;'#010+
|
|
|
+ ' FDirectory: String;'#010+
|
|
|
+ ' FExtension: String;'#010+
|
|
|
+ ' FTargetSourceFileName : String;'#010+
|
|
|
+ ' FFileType: TFileType;'#010+
|
|
|
+ ' FOptions: TStrings;'#010,
|
|
|
+ ' FFPCTarget: String;'#010+
|
|
|
+ ' FTargetState: TTargetState;'#010+
|
|
|
+ ' FTargetType: TTargetType;'#010+
|
|
|
+ ' FXML: string;'#010+
|
|
|
+ ' function GetOptions: TStrings;'#010+
|
|
|
+ ' procedure SetOptions(const AValue: TStrings);'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' Function GetSourceFileName : String','; virtual;'#010+
|
|
|
+ ' Function GetUnitFileName : String; virtual;'#010+
|
|
|
+ ' function GetUnitLibFileName: String; virtual;'#010+
|
|
|
+ ' Function GetObjectFileName : String; virtual;'#010+
|
|
|
+ ' Function GetRSTFileName : String; Virtual;'#010+
|
|
|
+ ' function GetImportLibFileName(','AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function GetProgramFileName(AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function GetProgramDebugFileName(AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(ACollection : TCollection); override;'#010+
|
|
|
+ ' Destruc','tor Destroy; override;'#010+
|
|
|
+ ' procedure AssignTo(Dest: TPersistent); override;'#010+
|
|
|
+ ' Function GetOutputFileName (AOs : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function HaveOptions : Boolean;'#010+
|
|
|
+ ' procedure SetName(const AValue: String);override;'#010+
|
|
|
+ ' procedu','re SetXML(const AValue: string);'#010+
|
|
|
+ ' Procedure GetCleanFiles(List : TStrings; const APrefixU, APrefixB '+
|
|
|
+ ': String; ACPU:TCPU; AOS : TOS); virtual;'#010+
|
|
|
+ ' Procedure GetInstallFiles(List : TStrings; const APrefixU, APrefix'+
|
|
|
+ 'B: String; ACPU:TCPU; AOS',' : TOS); virtual;'#010+
|
|
|
+ ' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); '+
|
|
|
+ 'virtual;'#010+
|
|
|
+ ' Property Dependencies : TDependencies Read FDependencies;'#010+
|
|
|
+ ' Property Commands : TCommands Read FCommands;'#010+
|
|
|
+ ' Property State : TTargetSta','te Read FTargetState;'#010+
|
|
|
+ ' Property TargetType : TTargetType Read FTargetType Write FTargetTy'+
|
|
|
+ 'pe;'#010+
|
|
|
+ ' Property OSes : TOSes Read FOSes Write FOSes;'#010+
|
|
|
+ ' Property CPUs : TCPUs Read FCPUs Write FCPUs;'#010+
|
|
|
+ ' Property Mode : TCompilerMode Read FMode',' Write FMode;'#010+
|
|
|
+ ' Property Options : TStrings Read GetOptions Write SetOptions;'#010+
|
|
|
+ ' Property SourceFileName: String Read GetSourceFileName ;'#010+
|
|
|
+ ' Property UnitFileName : String Read GetUnitFileName;'#010+
|
|
|
+ ' Property UnitLibFileName : String Read',' GetUnitLibFileName;'#010+
|
|
|
+ ' Property ObjectFileName : String Read GetObjectFileName;'#010+
|
|
|
+ ' Property RSTFileName : String Read GetRSTFileName;'#010+
|
|
|
+ ' Property FPCTarget : String Read FFPCTarget Write FFPCTarget;'#010+
|
|
|
+ ' Property Extension : String Read ','FExtension Write FExtension;'#010+
|
|
|
+ ' Property FileType : TFileType Read FFileType Write FFileType;'#010+
|
|
|
+ ' Property Directory : String Read FDirectory Write FDirectory;'#010+
|
|
|
+ ' Property ResourceStrings : Boolean Read FResourceStrings Write FRe'+
|
|
|
+ 'sourceStr','ings;'#010+
|
|
|
+ ' Property Install : Boolean Read FInstall Write FInstall;'#010+
|
|
|
+ ' Property TargetSourceFileName: String Read FTargetSourceFileName;'#010+
|
|
|
+ ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#010+
|
|
|
+ ' Property UnitPath : TConditionalStr','ings Read FUnitPath;'#010+
|
|
|
+ ' Property IncludePath : TConditionalStrings Read FIncludePath;'#010+
|
|
|
+ ' Property XML: string Read FXML Write SetXML;'#010+
|
|
|
+ ' // Events.'#010+
|
|
|
' Property BeforeCompile : TNotifyEvent Read FBeforeCompile Write FB'+
|
|
|
- 'eforeCompile;'#013#010+
|
|
|
- ' Property AfterCompile : TNotifyEvent',' Read FAfterCompile Write FA'+
|
|
|
- 'fterCompile;'#013#010+
|
|
|
+ 'eforeCompile;'#010+
|
|
|
+ ' P','roperty AfterCompile : TNotifyEvent Read FAfterCompile Write FA'+
|
|
|
+ 'fterCompile;'#010+
|
|
|
' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
|
|
|
- 'eClean;'#013#010+
|
|
|
+ 'eClean;'#010+
|
|
|
' Property AfterClean : TNotifyEvent Read FAfterClean Write FAfterCl'+
|
|
|
- 'ean;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TTargets }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TTargets = Cl','ass(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function GetTargetItem(Index : Integer): TTarget;'#013#010+
|
|
|
- ' function GetTarget(const AName : String): TTarget;'#013#010+
|
|
|
- ' procedure SetTargetItem(Index : Integer; const AValue: TTarget);'#013+
|
|
|
- #010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function Ad','dFPDoc(Const AUnitName, AXMLName : String) : TTarget;'+
|
|
|
- 'inline;'#013#010+
|
|
|
- ' Function AddUnit(Const AUnitName : String) : TTarget;inline;'#013#010+
|
|
|
+ 'ean;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' {',' TTargets }'#010+
|
|
|
+ #010+
|
|
|
+ ' TTargets = Class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetTargetItem(Index : Integer): TTarget;'#010+
|
|
|
+ ' function GetTarget(const AName : String): TTarget;'#010+
|
|
|
+ ' procedure SetTargetItem(Index : Integer; const AValue: TTarget);'#010+
|
|
|
+ ' ','Public'#010+
|
|
|
+ ' Function AddFPDoc(Const AUnitName, AXMLName : String) : TTarget;in'+
|
|
|
+ 'line;'#010+
|
|
|
+ ' Function AddUnit(Const AUnitName : String) : TTarget;inline;'#010+
|
|
|
' Function AddUnit(Const AUnitName : String;const OSes:TOSes) : TTar'+
|
|
|
- 'get;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010,
|
|
|
+ 'get;inline;'#010+
|
|
|
+ '{$ifdef cp','u_only_overloads}'#010+
|
|
|
' Function AddUnit(Const AUnitName : String;const CPUs:TCPUs) : TTar'+
|
|
|
- 'get;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'get;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddUnit(Const AUnitName : String;const CPUs:TCPUs;const O'+
|
|
|
- 'Ses:TOSes) : TTarget;'#013#010+
|
|
|
- ' Function AddImplicitUnit(Const ','AUnitName : String;InstallUnit:bo'+
|
|
|
- 'olean=true) : TTarget;inline;'#013#010+
|
|
|
+ 'Ses:TOSes) : TTarget;'#010+
|
|
|
+ ' Function AddImpl','icitUnit(Const AUnitName : String;InstallUnit:bo'+
|
|
|
+ 'olean=true) : TTarget;inline;'#010+
|
|
|
' Function AddImplicitUnit(Const AUnitName : String;const OSes:TOSes'+
|
|
|
- ';InstallUnit:boolean=true) : TTarget;inline;'#013#010+
|
|
|
- ' Function AddImplicitUnit(Const AUnitName : String;const ','CPUs:TCP'+
|
|
|
- 'Us;InstallUnit:boolean=true) : TTarget;inline;'#013#010+
|
|
|
+ ';InstallUnit:boolean=true) : TTarget;inline;'#010+
|
|
|
+ ' Function AddImplicitUnit(Const AUnitName : ','String;const CPUs:TCP'+
|
|
|
+ 'Us;InstallUnit:boolean=true) : TTarget;inline;'#010+
|
|
|
' Function AddImplicitUnit(Const AUnitName : String;const CPUs:TCPUs'+
|
|
|
- ';const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#013#010+
|
|
|
- ' Function AddProgram(Const AProgramName : String) : TTa','rget;inlin'+
|
|
|
- 'e;'#013#010+
|
|
|
+ ';const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#010+
|
|
|
+ ' Function AddProgram(Const AProgramName : St','ring) : TTarget;inlin'+
|
|
|
+ 'e;'#010+
|
|
|
' Function AddProgram(Const AProgramName : String;const OSes:TOSes) '+
|
|
|
- ': TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ': TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function AddProgram(Const AProgramName : String;const CPUs:TCPUs) '+
|
|
|
- ': TTarget;inline;'#013#010+
|
|
|
- '{$endif cpu_only_ov','erloads}'#013#010+
|
|
|
+ ': TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_','only_overloads}'#010+
|
|
|
' Function AddProgram(Const AProgramName : String;const CPUs:TCPUs;c'+
|
|
|
- 'onst OSes:TOSes) : TTarget;'#013#010+
|
|
|
+ 'onst OSes:TOSes) : TTarget;'#010+
|
|
|
' Function AddExampleUnit(Const AUnitName : String) : TTarget;inline'+
|
|
|
- ';'#013#010+
|
|
|
- ' Function AddExampleUnit(Const AUnitName : String;const',' OSes:TOSe'+
|
|
|
- 's) : TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' Function AddExampleUnit(Const AUnitName : String;c','onst OSes:TOSe'+
|
|
|
+ 's) : TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function AddExampleUnit(Const AUnitName : String;const CPUs:TCPUs)'+
|
|
|
- ' : TTarget;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ ' : TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddExampleUnit(Const AUnitName : String;const C','PUs:TCPU'+
|
|
|
- 's;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
+ 's;const OSes:TOSes) : TTarget;'#010+
|
|
|
' Function AddExampleProgram(Const AProgramName : String) : TTarget;'+
|
|
|
- 'inline;'#013#010+
|
|
|
+ 'inline;'#010+
|
|
|
' Function AddExampleProgram(Const AProgramName : String;const OSes:'+
|
|
|
- 'TOSes) : TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overload','s}'#013#010+
|
|
|
+ 'TOSes) : TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010,
|
|
|
' Function AddExampleProgram(Const AProgramName : String;const CPUs:'+
|
|
|
- 'TCPUs) : TTarget;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'TCPUs) : TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddExampleProgram(Const AProgramName : String;const CPUs:'+
|
|
|
- 'TCPUs;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- ' P','roperty Targets[AName : String] : TTarget Read GetTarget; defau'+
|
|
|
- 'lt;'#013#010+
|
|
|
+ 'TCPUs;const OSes:TOSes) : TTarget;'#010+
|
|
|
+ ' Property',' Targets[AName : String] : TTarget Read GetTarget; defau'+
|
|
|
+ 'lt;'#010+
|
|
|
' Property TargetItems[Index : Integer] : TTarget Read GetTargetItem'+
|
|
|
- ' Write SetTargetItem;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TSource }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TSource = Class(TNamedItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FSourc','eType : TSourceType;'#013#010+
|
|
|
- ' FInstallSourcePath : string;'#013#010+
|
|
|
- ' function GetInstallSourcePath: string;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(ACollection : TCollection); override;'#013#010+
|
|
|
- ' Destructor Destroy; override;'#013#010+
|
|
|
- ' Procedure GetInstallFiles(Lis','t : TStrings); virtual;'#013#010+
|
|
|
- ' property SourceType : TSourceType read FSourceType;'#013#010+
|
|
|
- ' property InstallSourcePath : string read GetInstallSourcePath;'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TSources }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TSources = Class(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function ','GetSourceItem(Index : Integer): TSource;'#013#010+
|
|
|
- ' procedure SetSourceItem(Index : Integer; const AValue: TSource);'#013+
|
|
|
- #010+
|
|
|
- ' public'#013#010+
|
|
|
- ' Function AddDoc(const AFiles : String) : TSource;'#013#010+
|
|
|
- ' Function AddDoc(const AFiles : String; AInstallSourcePath :',' Stri'+
|
|
|
- 'ng) : TSource;'#013#010+
|
|
|
- ' Function AddSrc(const AFiles : String) : TSource;'#013#010+
|
|
|
- ' Function AddExample(const AFiles : String) : TSource;'#013#010+
|
|
|
+ ' Write SetTargetItem;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TSource }'#010+
|
|
|
+ #010+
|
|
|
+ ' TSource = Class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FSourceType : TSource','Type;'#010+
|
|
|
+ ' FInstallSourcePath : string;'#010+
|
|
|
+ ' function GetInstallSourcePath: string;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(ACollection : TCollection); override;'#010+
|
|
|
+ ' Destructor Destroy; override;'#010+
|
|
|
+ ' Procedure GetInstallFiles(List : TStrings); virtua','l;'#010+
|
|
|
+ ' property SourceType : TSourceType read FSourceType;'#010+
|
|
|
+ ' property InstallSourcePath : string read GetInstallSourcePath;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TSources }'#010+
|
|
|
+ #010+
|
|
|
+ ' TSources = Class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetSourceItem(Index : Integer)',': TSource;'#010+
|
|
|
+ ' procedure SetSourceItem(Index : Integer; const AValue: TSource);'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Function AddDoc(const AFiles : String) : TSource;'#010+
|
|
|
+ ' Function AddDoc(const AFiles : String; AInstallSourcePath : String'+
|
|
|
+ ') : TSource;'#010+
|
|
|
+ ' Function A','ddSrc(const AFiles : String) : TSource;'#010+
|
|
|
+ ' Function AddExample(const AFiles : String) : TSource;'#010+
|
|
|
' Function AddExample(const AFiles : String; AInstallSourcePath : St'+
|
|
|
- 'ring) : TSource;'#013#010+
|
|
|
- ' Function AddT','est(const AFiles : String) : TSource;'#013#010+
|
|
|
+ 'ring) : TSource;'#010+
|
|
|
+ ' Function AddTest(const AFiles : String) : TSource;'#010,
|
|
|
' procedure AddDocFiles(const AFileMask: string; Recursive: boolean '+
|
|
|
- '= False; AInstallSourcePath : String = '#039#039');'#013#010+
|
|
|
+ '= False; AInstallSourcePath : String = '#039#039');'#010+
|
|
|
' procedure AddSrcFiles(const AFileMask: string; Recursive: boolean '+
|
|
|
- '= False);'#013#010+
|
|
|
- ' p','rocedure AddExampleFiles(const AFileMask: string; Recursive: bo'+
|
|
|
- 'olean = False; AInstallSourcePath : String = '#039#039');'#013#010+
|
|
|
+ '= False);'#010+
|
|
|
+ ' procedure AddExampleFiles(const AFileMask:',' string; Recursive: bo'+
|
|
|
+ 'olean = False; AInstallSourcePath : String = '#039#039');'#010+
|
|
|
' procedure AddTestFiles(const AFileMask: string; Recursive: boolean'+
|
|
|
- ' = False);'#013#010+
|
|
|
- ' Property SourceItems[Index : Integer] : ','TSource Read GetSourceIt'+
|
|
|
- 'em Write SetSourceItem;default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackage }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackage = Class(TNamedItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FAfterArchive: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterArchiveProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FAfterClean: TNotifyEvent;'#013#010+
|
|
|
- ' ','FAfterCleanProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FAfterCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterCompileProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FAfterInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterInstallProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FAfterManifest: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterManifes','tProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeArchive: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeArchiveProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeClean: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCleanProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCompileProc: TNo','tifyProcEvent;'#013#010+
|
|
|
- ' FBeforeInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeInstallProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeManifest: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeManifestProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBuildMode: TBuildMode;'#013#010+
|
|
|
- ' FFPDocFormat: TFPDocFormats;'#013#010+
|
|
|
- ' ',' FIsFPMakeAddIn: boolean;'#013#010+
|
|
|
- ' FSupportBuildModes: TBuildModes;'#013#010+
|
|
|
- ' FUnitPath,'#013#010+
|
|
|
- ' FObjectPath,'#013#010+
|
|
|
- ' FIncludePath,'#013#010+
|
|
|
- ' FSourcePath,'#013#010+
|
|
|
- ' FExamplePath,'#013#010+
|
|
|
- ' FTestPath,'#013#010+
|
|
|
- ' FCleanFiles,'#013#010+
|
|
|
- ' FInstallFiles : TConditionalStrings;'#013#010+
|
|
|
- ' FDepe','ndencies : TDependencies;'#013#010+
|
|
|
- ' FCPUs: TCPUs;'#013#010+
|
|
|
- ' FOSes: TOSes;'#013#010+
|
|
|
- ' FTargetState: TTargetState;'#013#010+
|
|
|
- ' FTargets: TTargets;'#013#010+
|
|
|
- ' FSources: TSources;'#013#010+
|
|
|
- ' FDirectory: String;'#013#010+
|
|
|
- ' FOptions: TStrings;'#013#010+
|
|
|
- ' FFileName: String;'#013#010+
|
|
|
- ' FAuthor: Strin','g;'#013#010+
|
|
|
- ' FLicense: String;'#013#010+
|
|
|
- ' FHomepageURL: String;'#013#010+
|
|
|
- ' FDownloadURL: String;'#013#010+
|
|
|
- ' FVersion: TFPVersion;'#013#010+
|
|
|
- ' FEmail : String;'#013#010+
|
|
|
- ' FNeedLibC : Boolean;'#013#010+
|
|
|
- ' FCommands : TCommands;'#013#010+
|
|
|
- ' FDescriptionFile : String;'#013#010+
|
|
|
- ' FDescription : Strin','g;'#013#010+
|
|
|
- ' FInstalledChecksum : Cardinal;'#013#010+
|
|
|
- ' // Cached directory of installed packages'#013#010+
|
|
|
- ' FUnitDir : String;'#013#010+
|
|
|
- ' FBUTargets: TTargets;'#013#010+
|
|
|
- ' FBUTarget: TTarget;'#013#010+
|
|
|
- ' Function GetDescription : string;'#013#010+
|
|
|
- ' Function GetFileName : string;'#013#010+
|
|
|
- ' ',' function GetOptions: TStrings;'#013#010+
|
|
|
- ' Function GetVersion : string;'#013#010+
|
|
|
- ' procedure SetOptions(const AValue: TStrings);'#013#010+
|
|
|
- ' Procedure SetVersion(const V : string);'#013#010+
|
|
|
- ' Protected'#013#010+
|
|
|
- ' procedure SetName(const AValue: String);override;'#013#010+
|
|
|
- ' pro','cedure LoadUnitConfigFromFile(Const AFileName: String);'#013#010+
|
|
|
+ ' = False);'#010+
|
|
|
+ ' Property SourceItems[Index : Integer] : TSource Read GetSourceItem'+
|
|
|
+ ' Write SetSourceI','tem;default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackage }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackage = Class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FAfterArchive: TNotifyEvent;'#010+
|
|
|
+ ' FAfterArchiveProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FAfterClean: TNotifyEvent;'#010+
|
|
|
+ ' FAfterCleanProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FAfterCompile:',' TNotifyEvent;'#010+
|
|
|
+ ' FAfterCompileProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FAfterInstall: TNotifyEvent;'#010+
|
|
|
+ ' FAfterInstallProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FAfterManifest: TNotifyEvent;'#010+
|
|
|
+ ' FAfterManifestProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeArchive: TNotifyEvent;'#010,
|
|
|
+ ' FBeforeArchiveProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeClean: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCleanProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeCompile: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCompileProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeInstall: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeInsta','llProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeManifest: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeManifestProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBuildMode: TBuildMode;'#010+
|
|
|
+ ' FFlags: TStrings;'#010+
|
|
|
+ ' FFPDocFormat: TFPDocFormats;'#010+
|
|
|
+ ' FIsFPMakeAddIn: boolean;'#010+
|
|
|
+ ' FSupportBuildModes: ','TBuildModes;'#010+
|
|
|
+ ' FUnitPath,'#010+
|
|
|
+ ' FObjectPath,'#010+
|
|
|
+ ' FIncludePath,'#010+
|
|
|
+ ' FSourcePath,'#010+
|
|
|
+ ' FExamplePath,'#010+
|
|
|
+ ' FTestPath,'#010+
|
|
|
+ ' FCleanFiles : TConditionalStrings;'#010+
|
|
|
+ ' FInstallFiles : TConditionalDestStrings;'#010+
|
|
|
+ ' FDependencies : TDependencies;'#010+
|
|
|
+ ' FC','PUs: TCPUs;'#010+
|
|
|
+ ' FOSes: TOSes;'#010+
|
|
|
+ ' FTargetState: TTargetState;'#010+
|
|
|
+ ' FTargets: TTargets;'#010+
|
|
|
+ ' FSources: TSources;'#010+
|
|
|
+ ' FDirectory: String;'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FFileName: String;'#010+
|
|
|
+ ' FAuthor: String;'#010+
|
|
|
+ ' FLicense: String;'#010+
|
|
|
+ ' FHomepageURL',': String;'#010+
|
|
|
+ ' FDownloadURL: String;'#010+
|
|
|
+ ' FVersion: TFPVersion;'#010+
|
|
|
+ ' FEmail : String;'#010+
|
|
|
+ ' FNeedLibC : Boolean;'#010+
|
|
|
+ ' FCommands : TCommands;'#010+
|
|
|
+ ' FDescriptionFile : String;'#010+
|
|
|
+ ' FDescription : String;'#010+
|
|
|
+ ' FInstalledChecksum : Cardinal;'#010+
|
|
|
+ ' FUnitsOu','tputDir: String;'#010+
|
|
|
+ ' FPackageUnitInstallDir: String;'#010+
|
|
|
+ ' // Cached directory of installed packages'#010+
|
|
|
+ ' FUnitDir : String;'#010+
|
|
|
+ ' // Used by buildunits'#010+
|
|
|
+ ' FBUTargets: TTargets;'#010+
|
|
|
+ ' FBUTarget: TTarget;'#010+
|
|
|
+ ' // Used to identify if package is bein','g processed by a thread'#010+
|
|
|
+ ' FProcessing : boolean;'#010+
|
|
|
+ ' // Dictionary'#010+
|
|
|
+ ' FDictionary : TDictionary;'#010+
|
|
|
+ ' // Is set when all sourcefiles are found'#010+
|
|
|
+ ' FAllFilesResolved: boolean;'#010+
|
|
|
+ ' FPackageVariants: TFPList;'#010+
|
|
|
+ ' Function GetDescription : st','ring;'#010+
|
|
|
+ ' function GetDictionary: TDictionary;'#010+
|
|
|
+ ' Function GetFileName : string;'#010+
|
|
|
+ ' function GetOptions: TStrings;'#010+
|
|
|
+ ' Function GetVersion : string;'#010+
|
|
|
+ ' procedure SetOptions(const AValue: TStrings);'#010+
|
|
|
+ ' Procedure SetVersion(const V : stri','ng);'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' procedure SetName(const AValue: String);override;'#010+
|
|
|
' procedure SaveUnitConfigToStringList(Const AStringList: TStrings;A'+
|
|
|
- 'CPU:TCPU;AOS:TOS); virtual;'#013#010+
|
|
|
- ' procedure SaveUnitConfigToFile(Const AFileName: String;ACPU:TCPU;A'+
|
|
|
- 'OS:TOS);'#013#010+
|
|
|
- ' Pu','blic'#013#010+
|
|
|
- ' constructor Create(ACollection: TCollection); override;'#013#010+
|
|
|
- ' destructor destroy; override;'#013#010+
|
|
|
- ' Function HaveOptions : Boolean;'#013#010+
|
|
|
- ' Function GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#013#010+
|
|
|
- ' Function GetBinOutputDir(ACPU:TCP','U; AOS : TOS) : String;'#013#010+
|
|
|
+ 'CPU:TCPU;AOS:TOS); virtual;'#010+
|
|
|
+ ' property Dictionary: TDictionary read GetDictionary;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' c','onstructor Create(ACollection: TCollection); override;'#010+
|
|
|
+ ' destructor destroy; override;'#010+
|
|
|
+ ' Function HaveOptions : Boolean;'#010+
|
|
|
+ ' Function GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#010+
|
|
|
+ ' Function GetUnitConfigOutputDir(ACPU:TCPU; AOS :',' TOS):String;'#010+
|
|
|
+ ' Procedure InheritPackageVariantsFromDependency(ADependencyPackage:'+
|
|
|
+ ' TPackage);'#010+
|
|
|
+ ' Function GetPackageVariantsByName(AName: string): TPackageVariant'+
|
|
|
+ 's;'#010+
|
|
|
+ ' Procedure SetUnitsOutputDir(AValue: string);'#010+
|
|
|
+ ' Function GetPacka','geUnitInstallDir(ACPU:TCPU; AOS : TOS):String;'+
|
|
|
+ #010+
|
|
|
+ ' Procedure SetPackageUnitInstallDir(AValue: string);'#010+
|
|
|
+ ' Function GetBinOutputDir(ACPU:TCPU; AOS : TOS) : String;'#010+
|
|
|
' Procedure GetCleanFiles(List : TStrings; ACPU:TCPU; AOS : TOS); vi'+
|
|
|
- 'rtual;'#013#010+
|
|
|
+ 'rtual',';'#010+
|
|
|
' procedure GetInstallFiles(List: TStrings;Types : TTargetTypes;ACPU'+
|
|
|
- ':TCPU; AOS : TOS); virtual;'#013#010+
|
|
|
- ' procedure GetInstallSourceFiles(Li','st: TStrings; SourceTypes : TS'+
|
|
|
- 'ourceTypes; TargetTypes : TTargetTypes); virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); '+
|
|
|
- 'virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveSourceFiles(List : TStrings); virtual;'#013#010+
|
|
|
- ' Procedure G','etManifest(Manifest : TStrings);'#013#010+
|
|
|
- ' Property Version : String Read GetVersion Write SetVersion;'#013#010+
|
|
|
- ' Property FileName : String Read GetFileName Write FFileName;'#013#010+
|
|
|
+ ':TCPU; AOS : TOS); virtual;'#010+
|
|
|
+ ' procedure GetInstallSourceFiles(List: TStrings; SourceTypes : TSou'+
|
|
|
+ 'rceTypes; TargetTypes : TTargetTypes); virtual;'#010+
|
|
|
+ ' Procedure GetArchi','veFiles(List : TStrings; ACPU:TCPU; AOS : TOS)'+
|
|
|
+ '; virtual;'#010+
|
|
|
+ ' Procedure GetArchiveSourceFiles(List : TStrings); virtual;'#010+
|
|
|
+ ' Procedure GetManifest(Manifest : TStrings);'#010+
|
|
|
+ ' Procedure AddPackageVariant(APackageVariant: TPackageVariants);'#010+
|
|
|
+ ' ','procedure ApplyPackageVariantToCompilerOptions(ACompilerOptions:'+
|
|
|
+ ' tstrings);'#010+
|
|
|
+ ' procedure SetDefaultPackageVariant;'#010+
|
|
|
+ ' procedure LoadUnitConfigFromFile(Const AFileName: String);'#010+
|
|
|
+ ' procedure SaveUnitConfigToFile(Const AFileName: String;AC','PU:TCPU'+
|
|
|
+ ';AOS:TOS);'#010+
|
|
|
+ ' Property Version : String Read GetVersion Write SetVersion;'#010+
|
|
|
+ ' Property FileName : String Read GetFileName Write FFileName;'#010+
|
|
|
' Property HomepageURL : String Read FHomepageURL Write FHomepageURL'+
|
|
|
- ';'#013#010+
|
|
|
- ' ',' Property DownloadURL : String Read FDownloadURL Write FDownloadU'+
|
|
|
- 'RL;'#013#010+
|
|
|
- ' Property Email : String Read FEmail Write FEmail;'#013#010+
|
|
|
- ' Property Author : String Read FAuthor Write FAuthor;'#013#010+
|
|
|
- ' Property License : String Read FLicense Write FLicen','se;'#013#010+
|
|
|
- ' Property Directory : String Read FDirectory Write FDirectory;'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' Property Download','URL : String Read FDownloadURL Write FDownloadU'+
|
|
|
+ 'RL;'#010+
|
|
|
+ ' Property Email : String Read FEmail Write FEmail;'#010+
|
|
|
+ ' Property Author : String Read FAuthor Write FAuthor;'#010+
|
|
|
+ ' Property License : String Read FLicense Write FLicense;'#010+
|
|
|
+ ' Property Direc','tory : String Read FDirectory Write FDirectory;'#010+
|
|
|
' Property Description : String Read GetDescription Write FDescripti'+
|
|
|
- 'on;'#013#010+
|
|
|
+ 'on;'#010+
|
|
|
' Property DescriptionFile : String Read FDescriptionFile Write FDes'+
|
|
|
- 'criptionFile;'#013#010+
|
|
|
- ' Prop','erty InstalledChecksum : Cardinal Read FInstalledChecksum Wr'+
|
|
|
- 'ite FInstalledChecksum;'#013#010+
|
|
|
+ 'criptionFile;'#010+
|
|
|
+ ' Property InstalledChecksum : C','ardinal Read FInstalledChecksum Wr'+
|
|
|
+ 'ite FInstalledChecksum;'#010+
|
|
|
' Property IsFPMakeAddIn: boolean read FIsFPMakeAddIn write FIsFPMak'+
|
|
|
- 'eAddIn;'#013#010+
|
|
|
+ 'eAddIn;'#010+
|
|
|
' Property SupportBuildModes: TBuildModes read FSupportBuildModes wr'+
|
|
|
- 'ite FS','upportBuildModes;'#013#010+
|
|
|
- ' Property BuildMode: TBuildMode read FBuildMode;'#013#010+
|
|
|
- ' // Compiler options.'#013#010+
|
|
|
- ' Property OSes : TOSes Read FOSes Write FOSes;'#013#010+
|
|
|
- ' Property CPUs : TCPUs Read FCPUs Write FCPUs;'#013#010+
|
|
|
- ' Property NeedLibC : Boolean Read FNe','edLibC Write FNeedLibC;'#013#010+
|
|
|
- ' Property Options: TStrings Read GetOptions Write SetOptions;'#013#010+
|
|
|
- ' Property UnitPath : TConditionalStrings Read FUnitPath;'#013#010+
|
|
|
- ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#013#010+
|
|
|
- ' Property IncludePat','h : TConditionalStrings Read FIncludePath;'#013+
|
|
|
- #010+
|
|
|
- ' Property SourcePath : TConditionalStrings Read FSourcePath;'#013#010+
|
|
|
- ' Property ExamplePath : TConditionalStrings Read FExamplePath;'#013#010+
|
|
|
- ' Property TestPath : TConditionalStrings Read FTestPath;'#013#010+
|
|
|
- ' ',' Property FPDocFormat: TFPDocFormats read FFPDocFormat write FFPD'+
|
|
|
- 'ocFormat;'#013#010+
|
|
|
- ' // Targets and dependencies'#013#010+
|
|
|
- ' Property InstallFiles : TConditionalStrings Read FInstallFiles;'#013+
|
|
|
- #010+
|
|
|
- ' Property CleanFiles : TConditionalStrings Read FCleanFiles',';'#013#010+
|
|
|
- ' Property Dependencies : TDependencies Read FDependencies;'#013#010+
|
|
|
- ' Property Commands : TCommands Read FCommands;'#013#010+
|
|
|
- ' Property State : TTargetState Read FTargetState;'#013#010+
|
|
|
- ' Property Targets : TTargets Read FTargets;'#013#010+
|
|
|
- ' Property Sources ',': TSources Read FSources;'#013#010+
|
|
|
- ' Property UnitDir : String Read FUnitDir Write FUnitDir;'#013#010+
|
|
|
- ' // events'#013#010+
|
|
|
+ 'ite FSupportBuildModes;'#010+
|
|
|
+ ' Proper','ty BuildMode: TBuildMode read FBuildMode;'#010+
|
|
|
+ ' Property Flags: TStrings read FFlags;'#010+
|
|
|
+ ' // Compiler options.'#010+
|
|
|
+ ' Property OSes : TOSes Read FOSes Write FOSes;'#010+
|
|
|
+ ' Property CPUs : TCPUs Read FCPUs Write FCPUs;'#010+
|
|
|
+ ' Property NeedLibC : Boolean',' Read FNeedLibC Write FNeedLibC;'#010+
|
|
|
+ ' Property Options: TStrings Read GetOptions Write SetOptions;'#010+
|
|
|
+ ' Property UnitPath : TConditionalStrings Read FUnitPath;'#010+
|
|
|
+ ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#010+
|
|
|
+ ' Property Inclu','dePath : TConditionalStrings Read FIncludePath;'#010+
|
|
|
+ ' Property SourcePath : TConditionalStrings Read FSourcePath;'#010+
|
|
|
+ ' Property ExamplePath : TConditionalStrings Read FExamplePath;'#010+
|
|
|
+ ' Property TestPath : TConditionalStrings Read FTestPath;'#010+
|
|
|
+ ' ',' Property FPDocFormat: TFPDocFormats read FFPDocFormat write FFPD'+
|
|
|
+ 'ocFormat;'#010+
|
|
|
+ ' // Targets and dependencies'#010+
|
|
|
+ ' Property InstallFiles : TConditionalDestStrings Read FInstallFiles'+
|
|
|
+ ';'#010+
|
|
|
+ ' Property CleanFiles : TConditionalStrings Read FCleanFil','es;'#010+
|
|
|
+ ' Property Dependencies : TDependencies Read FDependencies;'#010+
|
|
|
+ ' Property Commands : TCommands Read FCommands;'#010+
|
|
|
+ ' Property State : TTargetState Read FTargetState;'#010+
|
|
|
+ ' Property Targets : TTargets Read FTargets;'#010+
|
|
|
+ ' Property Sources : T','Sources Read FSources;'#010+
|
|
|
+ ' Property UnitDir : String Read FUnitDir Write FUnitDir;'#010+
|
|
|
+ ' // events'#010+
|
|
|
' Property BeforeCompile : TNotifyEvent Read FBeforeCompile Write FB'+
|
|
|
- 'eforeCompile;'#013#010+
|
|
|
- ' Property BeforeCompileProc : TNotifyProcEvent Re','ad FBeforeCompil'+
|
|
|
- 'eProc write FBeforeCompileProc;'#013#010+
|
|
|
+ 'eforeCompile;'#010+
|
|
|
+ ' Property BeforeCompileProc : TNotifyProcEvent Read FBef','oreCompil'+
|
|
|
+ 'eProc write FBeforeCompileProc;'#010+
|
|
|
' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
|
|
|
- 'erCompile;'#013#010+
|
|
|
+ 'erCompile;'#010+
|
|
|
' Property AfterCompileProc : TNotifyProcEvent Read FAfterCompilePro'+
|
|
|
- 'c Write FAfterCompileProc;'#013#010+
|
|
|
- ' Propert','y BeforeInstall : TNotifyEvent Read FBeforeInstall Write '+
|
|
|
- 'FBeforeInstall;'#013#010+
|
|
|
+ 'c Write FAfterCompileProc;'#010+
|
|
|
+ ' Property BeforeIn','stall : TNotifyEvent Read FBeforeInstall Write '+
|
|
|
+ 'FBeforeInstall;'#010+
|
|
|
' Property BeforeInstallProc : TNotifyProcEvent Read FBeforeInstallP'+
|
|
|
- 'roc Write FBeforeInstallProc;'#013#010+
|
|
|
- ' Property AfterInstall : TNotifyEvent Read FAfterInstall Write',' FA'+
|
|
|
- 'fterInstall;'#013#010+
|
|
|
+ 'roc Write FBeforeInstallProc;'#010+
|
|
|
+ ' Property AfterInstall : TNotifyEvent Read FAfterInstall Write FAft'+
|
|
|
+ 'erInsta','ll;'#010+
|
|
|
' Property AfterInstallProc : TNotifyProcEvent Read FAfterInstallPro'+
|
|
|
- 'c Write FAfterInstallProc;'#013#010+
|
|
|
+ 'c Write FAfterInstallProc;'#010+
|
|
|
' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
|
|
|
- 'eClean;'#013#010+
|
|
|
- ' Property BeforeCleanProc : TNotifyProcEven','t Read FBeforeCleanPro'+
|
|
|
- 'c Write FBeforeCleanProc;'#013#010+
|
|
|
+ 'eClean;'#010+
|
|
|
+ ' Property BeforeCleanProc : TNotifyProcEvent Read FBeforeC','leanPro'+
|
|
|
+ 'c Write FBeforeCleanProc;'#010+
|
|
|
' Property AfterClean : TNotifyEvent Read FAfterClean Write FAfterCl'+
|
|
|
- 'ean;'#013#010+
|
|
|
+ 'ean;'#010+
|
|
|
' Property AfterCleanProc : TNotifyProcEvent Read FAfterCleanProc Wr'+
|
|
|
- 'ite FAfterCleanProc;'#013#010+
|
|
|
- ' Property BeforeArch','ive : TNotifyEvent Read FBeforeArchive Write '+
|
|
|
- 'FBeforeArchive;'#013#010+
|
|
|
+ 'ite FAfterCleanProc;'#010+
|
|
|
+ ' Property BeforeArchive : TNotifyEvent',' Read FBeforeArchive Write '+
|
|
|
+ 'FBeforeArchive;'#010+
|
|
|
' Property BeforeArchiveProc : TNotifyProcEvent Read FBeforeArchiveP'+
|
|
|
- 'roc Write FBeforeArchiveProc;'#013#010+
|
|
|
+ 'roc Write FBeforeArchiveProc;'#010+
|
|
|
' Property AfterArchive : TNotifyEvent Read FAfterArchive Write FAft'+
|
|
|
- 'erArchi','ve;'#013#010+
|
|
|
- ' Property AfterArchiveProc : TNotifyProcEvent Read FAfterArchivePro'+
|
|
|
- 'c Write FAfterArchiveProc;'#013#010+
|
|
|
+ 'erArchive;'#010+
|
|
|
+ ' Property Aft','erArchiveProc : TNotifyProcEvent Read FAfterArchiveP'+
|
|
|
+ 'roc Write FAfterArchiveProc;'#010+
|
|
|
' Property BeforeManifest : TNotifyEvent Read FBeforeManifest Write '+
|
|
|
- 'FBeforeManifest;'#013#010+
|
|
|
- ' Property BeforeManifestProc : TNotifyProcEven','t Read FBeforeManif'+
|
|
|
- 'estProc Write FBeforeManifestProc;'#013#010+
|
|
|
+ 'FBeforeManifest;'#010+
|
|
|
+ ' Property BeforeManifestProc : TNotifyProcEvent Read FBeforeManifes'+
|
|
|
+ 'tP','roc Write FBeforeManifestProc;'#010+
|
|
|
' Property AfterManifest : TNotifyEvent Read FAfterManifest Write FA'+
|
|
|
- 'fterManifest;'#013#010+
|
|
|
+ 'fterManifest;'#010+
|
|
|
' Property AfterManifestProc : TNotifyProcEvent Read FAfterManifestP'+
|
|
|
- 'roc Write FAfterManifestProc;'#013,#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackages }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackages = Class(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function GetPackage(const AName : String): TPackage;'#013#010+
|
|
|
- ' function GetPackageItem(AIndex : Integer): TPackage;'#013#010+
|
|
|
- ' procedure SetPackageItem(AIndex : Intege','r; const AValue: TPackag'+
|
|
|
- 'e);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function AddPackage(Const AName : String) : TPackage;'#013#010+
|
|
|
+ 'roc Write FAfterManifestProc;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackages }'#010+
|
|
|
+ #010,
|
|
|
+ ' TPackages = Class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' function GetPackage(const AName : String): TPackage;'#010+
|
|
|
+ ' function GetPackageItem(AIndex : Integer): TPackage;'#010+
|
|
|
+ ' procedure SetPackageItem(AIndex : Integer; const AValue: TPackage)'+
|
|
|
+ ';'#010+
|
|
|
+ ' Publ','ic'#010+
|
|
|
+ ' Function AddPackage(Const AName : String) : TPackage;'#010+
|
|
|
' Property Packages[AName : String] : TPackage Read GetPackage ; Def'+
|
|
|
- 'ault;'#013#010+
|
|
|
- ' Property PackageItems[AIndex : Integer] : TPackage Read GetPa','cka'+
|
|
|
- 'geItem Write SetPackageItem;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCustomDefaults }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCustomDefaults = Class(TPersistent)'#013#010+
|
|
|
- ' Private'#013#010+
|
|
|
- ' FArchive: String;'#013#010+
|
|
|
- ' FBuildMode: TBuildMode;'#013#010+
|
|
|
- ' FCompiler: String;'#013#010+
|
|
|
- ' FCopy: String;'#013#010+
|
|
|
- ' FFPDocOutputDir: Stri','ng;'#013#010+
|
|
|
- ' FIgnoreInvalidOptions: Boolean;'#013#010+
|
|
|
- ' FInstallExamples: Boolean;'#013#010+
|
|
|
- ' FMkDir: String;'#013#010+
|
|
|
- ' FMove: String;'#013#010+
|
|
|
- ' FOptions: TStrings;'#013#010+
|
|
|
- ' FCPU: TCPU;'#013#010+
|
|
|
- ' FOS: TOS;'#013#010+
|
|
|
- ' FMode : TCompilerMode;'#013#010+
|
|
|
- ' FCompilerVersion : String;'#013#010+
|
|
|
- ' FPre','fix: String;'#013#010+
|
|
|
- ' FLocalUnitDir,'#013#010+
|
|
|
- ' FGlobalUnitDir,'#013#010+
|
|
|
- ' FBaseInstallDir,'#013#010+
|
|
|
- ' FUnitInstallDir,'#013#010+
|
|
|
- ' FBinInstallDir,'#013#010+
|
|
|
- ' FDocInstallDir,'#013#010+
|
|
|
- ' FExamplesInstallDir : String;'#013#010+
|
|
|
- ' FRemoveTree: String;'#013#010+
|
|
|
- ' FRemoveDir: String;'#013#010+
|
|
|
- ' FRemove: ','String;'#013#010+
|
|
|
- ' FTarget: String;'#013#010+
|
|
|
- ' FUnixPaths: Boolean;'#013#010+
|
|
|
- ' FNoFPCCfg: Boolean;'#013#010+
|
|
|
- ' FUseEnvironment: Boolean;'#013#010+
|
|
|
- ' function GetFPDocOutputDir: String;'#013#010+
|
|
|
- ' function GetLocalUnitDir: String;'#013#010+
|
|
|
- ' function GetGlobalUnitDir: String;'#013#010+
|
|
|
- ' fun','ction GetBaseInstallDir: String;'#013#010+
|
|
|
- ' function GetBinInstallDir: String;'#013#010+
|
|
|
- ' function GetCompiler: String;'#013#010+
|
|
|
- ' function GetDocInstallDir: String;'#013#010+
|
|
|
- ' function GetExamplesInstallDir: String;'#013#010+
|
|
|
- ' function GetOptions: TStrings;'#013#010+
|
|
|
- ' functi','on GetUnitInstallDir: String;'#013#010+
|
|
|
- ' procedure SetLocalUnitDir(const AValue: String);'#013#010+
|
|
|
- ' procedure SetGlobalUnitDir(const AValue: String);'#013#010+
|
|
|
- ' procedure SetBaseInstallDir(const AValue: String);'#013#010+
|
|
|
- ' procedure SetCPU(const AValue: TCPU);'#013#010+
|
|
|
- ' ',' procedure SetOptions(const AValue: TStrings);'#013#010+
|
|
|
- ' procedure SetOS(const AValue: TOS);'#013#010+
|
|
|
- ' procedure SetPrefix(const AValue: String);'#013#010+
|
|
|
- ' procedure SetTarget(const AValue: String);'#013#010+
|
|
|
- ' procedure SetUnitInstallDir(const AValue: String)',';'#013#010+
|
|
|
- ' Protected'#013#010+
|
|
|
- ' procedure RecalcTarget;'#013#010+
|
|
|
- ' Function CmdLineOptions : String;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create;'#013#010+
|
|
|
- ' Procedure InitDefaults;'#013#010+
|
|
|
- ' Function HaveOptions: Boolean;'#013#010+
|
|
|
- ' procedure CompilerDefaults; virtual;'#013#010+
|
|
|
- ' Procedure ','LocalInit(Const AFileName : String);'#013#010+
|
|
|
- ' Procedure LoadFromFile(Const AFileName : String);'#013#010+
|
|
|
- ' Procedure SaveToFile(Const AFileName : String);'#013#010+
|
|
|
- ' procedure SaveToStream(S : TStream);virtual;'#013#010+
|
|
|
- ' procedure LoadFromStream(S : TStream);vi','rtual;'#013#010+
|
|
|
- ' // Compile Information'#013#010+
|
|
|
- ' Property Target : String Read FTarget Write SetTarget;'#013#010+
|
|
|
- ' Property OS : TOS Read FOS Write SetOS;'#013#010+
|
|
|
- ' Property CPU : TCPU Read FCPU Write SetCPU;'#013#010+
|
|
|
- ' Property Mode : TCompilerMode Read FMode Write',' FMode;'#013#010+
|
|
|
- ' Property UnixPaths : Boolean Read FUnixPaths Write FUnixPaths;'#013+
|
|
|
+ 'ault;'#010+
|
|
|
+ ' Property PackageItems[AIndex : Integer] : TPackage Read GetPackage'+
|
|
|
+ 'Item Write SetPackageItem;'#010+
|
|
|
+ ' end;',#010+
|
|
|
#010+
|
|
|
+ ' { TCustomDefaults }'#010+
|
|
|
+ #010+
|
|
|
+ ' TCustomDefaults = Class(TPersistent)'#010+
|
|
|
+ ' Private'#010+
|
|
|
+ ' FArchive: String;'#010+
|
|
|
+ ' FBuildMode: TBuildMode;'#010+
|
|
|
+ ' FCompiler: String;'#010+
|
|
|
+ ' FCopy: String;'#010+
|
|
|
+ ' FFPDocOutputDir: String;'#010+
|
|
|
+ ' FIgnoreInvalidOptions: Boolean;'#010+
|
|
|
+ ' FInst','allExamples: Boolean;'#010+
|
|
|
+ ' FMkDir: String;'#010+
|
|
|
+ ' FMove: String;'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FCPU: TCPU;'#010+
|
|
|
+ ' FOS: TOS;'#010+
|
|
|
+ ' FMode : TCompilerMode;'#010+
|
|
|
+ ' FCompilerVersion : String;'#010+
|
|
|
+ ' FPrefix: String;'#010+
|
|
|
+ ' FLocalUnitDir,'#010+
|
|
|
+ ' FGlobalUnitDir,'#010+
|
|
|
+ ' FBa','seInstallDir,'#010+
|
|
|
+ ' FUnitInstallDir,'#010+
|
|
|
+ ' FBinInstallDir,'#010+
|
|
|
+ ' FDocInstallDir,'#010+
|
|
|
+ ' FExamplesInstallDir : String;'#010+
|
|
|
+ ' FSkipCrossPrograms: boolean;'#010+
|
|
|
+ ' FThreadsAmount: integer;'#010+
|
|
|
+ ' FRemoveTree: String;'#010+
|
|
|
+ ' FRemoveDir: String;'#010+
|
|
|
+ ' FRemove: String;',#010+
|
|
|
+ ' FTarget: String;'#010+
|
|
|
+ ' FUnixPaths: Boolean;'#010+
|
|
|
+ ' FNoFPCCfg: Boolean;'#010+
|
|
|
+ ' FUseEnvironment: Boolean;'#010+
|
|
|
+ ' function GetBuildCPU: TCpu;'#010+
|
|
|
+ ' function GetBuildOS: TOS;'#010+
|
|
|
+ ' function GetBuildString: String;'#010+
|
|
|
+ ' function GetFPDocOutputDir: String;'#010,
|
|
|
+ ' function GetLocalUnitDir: String;'#010+
|
|
|
+ ' function GetGlobalUnitDir: String;'#010+
|
|
|
+ ' function GetBaseInstallDir: String;'#010+
|
|
|
+ ' function GetBinInstallDir: String;'#010+
|
|
|
+ ' function GetCompiler: String;'#010+
|
|
|
+ ' function GetDocInstallDir: String;'#010+
|
|
|
+ ' functio','n GetExamplesInstallDir: String;'#010+
|
|
|
+ ' function GetOptions: TStrings;'#010+
|
|
|
+ ' function GetUnitInstallDir: String;'#010+
|
|
|
+ ' procedure SetLocalUnitDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetGlobalUnitDir(const AValue: String);'#010+
|
|
|
+ ' procedure IntSetBaseI','nstallDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetBaseInstallDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetCPU(const AValue: TCPU);'#010+
|
|
|
+ ' procedure SetOptions(const AValue: TStrings);'#010+
|
|
|
+ ' procedure SetOS(const AValue: TOS);'#010+
|
|
|
+ ' procedure SetPre','fix(const AValue: String);'#010+
|
|
|
+ ' procedure SetTarget(const AValue: String);'#010+
|
|
|
+ ' procedure SetUnitInstallDir(const AValue: String);'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' procedure RecalcTarget;'#010+
|
|
|
+ ' Function CmdLineOptions : String;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create;'#010,
|
|
|
+ ' Procedure InitDefaults;'#010+
|
|
|
+ ' Function HaveOptions: Boolean;'#010+
|
|
|
+ ' function IsBuildDifferentFromTarget: boolean;'#010+
|
|
|
+ ' procedure CompilerDefaults; virtual;'#010+
|
|
|
+ ' Procedure LocalInit(Const AFileName : String);'#010+
|
|
|
+ ' Procedure LoadFromFile(Const AF','ileName : String);'#010+
|
|
|
+ ' Procedure SaveToFile(Const AFileName : String);'#010+
|
|
|
+ ' procedure SaveToStream(S : TStream);virtual;'#010+
|
|
|
+ ' procedure LoadFromStream(S : TStream);virtual;'#010+
|
|
|
+ ' // Compile Information'#010+
|
|
|
+ ' Property Target : String Read FTarget ','Write SetTarget;'#010+
|
|
|
+ ' Property OS : TOS Read FOS Write SetOS;'#010+
|
|
|
+ ' Property CPU : TCPU Read FCPU Write SetCPU;'#010+
|
|
|
+ ' Property BuildString : String read GetBuildString;'#010+
|
|
|
+ ' Property BuildOS : TOS read GetBuildOS;'#010+
|
|
|
+ ' Property BuildCPU : TCpu rea','d GetBuildCPU;'#010+
|
|
|
+ ' Property Mode : TCompilerMode Read FMode Write FMode;'#010+
|
|
|
+ ' Property UnixPaths : Boolean Read FUnixPaths Write FUnixPaths;'#010+
|
|
|
' Property Options : TStrings Read GetOptions Write SetOptions; /'+
|
|
|
- '/ Default compiler options.'#013#010+
|
|
|
- ' Property NoFPCCfg : Boolean Read FNoFPCCfg Write FNoFPCCfg;'#013,#010+
|
|
|
- ' // paths etc.'#013#010+
|
|
|
+ '/ Default compiler options.'#010+
|
|
|
+ ' ',' Property NoFPCCfg : Boolean Read FNoFPCCfg Write FNoFPCCfg;'#010+
|
|
|
+ ' // When ThreadsAmount is specified, #threadsamount# worker-threads'+
|
|
|
+ ' are'#010+
|
|
|
+ ' // created. When such a worker-thread is ready all worker-threads '+
|
|
|
+ 'are evaluated'#010+
|
|
|
+ ' // to see if th','ere are idle threads (there is always at least on'+
|
|
|
+ 'e such thread.)'#010+
|
|
|
+ ' // To each idle thread a package is assigned which has to be compi'+
|
|
|
+ 'led for the'#010+
|
|
|
+ ' // current target and for which all dependencies are compiled earl'+
|
|
|
+ 'ier.'#010+
|
|
|
+ ' // When no pac','kage is available the thread remains idle until an'+
|
|
|
+ 'other thread'#010+
|
|
|
+ ' // has finished it'#039's task. Compilation stops when all packages'+
|
|
|
+ ' are compiled'#010+
|
|
|
+ ' // or when an error occures.'#010+
|
|
|
+ ' //'#010+
|
|
|
+ ' // When ThreadsAmount is not specified (-1), all pack','ages are co'+
|
|
|
+ 'mpiled on by one.'#010+
|
|
|
+ ' // Dependencies are compiled recursively. When a package is alread'+
|
|
|
+ 'y compiled'#010+
|
|
|
+ ' // (because some other package was depending on it) the package is'+
|
|
|
+ ' skipped.'#010+
|
|
|
+ ' // When the last package in the list is compil','ed, the compilatio'+
|
|
|
+ 'n stops.'#010+
|
|
|
+ ' Property ThreadsAmount : integer Read FThreadsAmount Write FThread'+
|
|
|
+ 'sAmount;'#010+
|
|
|
+ ' // paths etc.'#010+
|
|
|
' Property LocalUnitDir : String Read GetLocalUnitDir Write SetLocal'+
|
|
|
- 'UnitDir;'#013#010+
|
|
|
- ' Property GlobalUnitDir : String Read GetGlobalUnitDir Write SetGlo'+
|
|
|
- 'balUnitDir;'#013#010+
|
|
|
- ' Property Prefix : String Read FPrefix Write SetPrefix',';'#013#010+
|
|
|
+ 'UnitDir;'#010+
|
|
|
+ ' Property GlobalUnitDir : String R','ead GetGlobalUnitDir Write SetG'+
|
|
|
+ 'lobalUnitDir;'#010+
|
|
|
+ ' Property Prefix : String Read FPrefix Write SetPrefix;'#010+
|
|
|
' Property BaseInstallDir : String Read GetBaseInstallDir Write SetB'+
|
|
|
- 'aseInstallDir;'#013#010+
|
|
|
- ' Property UnitInstallDir : String Read GetUnitInstallDir Write SetU'+
|
|
|
- 'nitInstallDir;'#013#010+
|
|
|
- ' Property BinInstallDir : String Read GetBinInstallDir Write F','Bin'+
|
|
|
- 'InstallDir;'#013#010+
|
|
|
+ 'aseInstallDir;'#010+
|
|
|
+ ' Property UnitInstallDir : String Read GetUnitIn','stallDir Write Se'+
|
|
|
+ 'tUnitInstallDir;'#010+
|
|
|
+ ' Property BinInstallDir : String Read GetBinInstallDir Write FBinIn'+
|
|
|
+ 'stallDir;'#010+
|
|
|
' Property DocInstallDir : String Read GetDocInstallDir Write FDocIn'+
|
|
|
- 'stallDir;'#013#010+
|
|
|
- ' Property ExamplesInstallDir : String Read GetExamplesInstallDir Wr'+
|
|
|
- 'ite FExamplesInstallDir;'#013#010+
|
|
|
- ' Property FPDocOutputDir : String Read GetFP','DocOutputDir Write FF'+
|
|
|
- 'PDocOutputDir;'#013#010+
|
|
|
- ' // Command tools. If not set, internal commands will be used.'#013+
|
|
|
- #010+
|
|
|
- ' Property Compiler : String Read GetCompiler Write FCompiler; // Co'+
|
|
|
- 'mpiler. Defaults to fpc'#013#010+
|
|
|
- ' Property Copy : String Read FCopy Wr','ite FCopy; // co'+
|
|
|
- 'py $(FILES) to $(DEST)'#013#010+
|
|
|
+ 'stallDir;'#010+
|
|
|
+ ' Property ExamplesInstallDir : String Read ','GetExamplesInstallDir '+
|
|
|
+ 'Write FExamplesInstallDir;'#010+
|
|
|
+ ' Property FPDocOutputDir : String Read GetFPDocOutputDir Write FFPD'+
|
|
|
+ 'ocOutputDir;'#010+
|
|
|
+ ' // Command tools. If not set, internal commands will be used.'#010+
|
|
|
+ ' Property Compiler : String Read GetCo','mpiler Write FCompiler; // '+
|
|
|
+ 'Compiler. Defaults to fpc'#010+
|
|
|
+ ' Property Copy : String Read FCopy Write FCopy; // copy'+
|
|
|
+ ' $(FILES) to $(DEST)'#010+
|
|
|
' Property Move : String Read FMove Write FMove; // Move'+
|
|
|
- ' $(FILES) to $(DEST)'#013#010+
|
|
|
- ' Property Remove : String Read FRemove Write FRemove; // Dele'+
|
|
|
- 'te $(FILES)'#013#010+
|
|
|
- ' Property ','RemoveDir : String Read FRemoveDir Write FRemoveDir; '+
|
|
|
- ' // Delete $(FILES)'#013#010+
|
|
|
+ ' $(FILES) to $(DEST)'#010+
|
|
|
+ ' P','roperty Remove : String Read FRemove Write FRemove; // De'+
|
|
|
+ 'lete $(FILES)'#010+
|
|
|
+ ' Property RemoveDir : String Read FRemoveDir Write FRemoveDir; '+
|
|
|
+ ' // Delete $(FILES)'#010+
|
|
|
' Property RemoveTree : String Read FRemoveTree Write FRemoveTree; '+
|
|
|
- ' // removes $(DIRECTORY)'#013#010+
|
|
|
- ' Property MkDir : String Read FMkDir write FMkDir; ',' // Ma'+
|
|
|
- 'ke $(DIRECTORY)'#013#010+
|
|
|
+ ' ',' // removes $(DIRECTORY)'#010+
|
|
|
+ ' Property MkDir : String Read FMkDir write FMkDir; // Make'+
|
|
|
+ ' $(DIRECTORY)'#010+
|
|
|
' Property Archive : String Read FArchive Write FArchive; // zip '+
|
|
|
- '$(ARCHIVE) $(FILESORDIRS)'#013#010+
|
|
|
- ' // Misc'#013#010+
|
|
|
- ' Property UseEnvironment : Boolean read FUseEnvironment write FUseE'+
|
|
|
- 'nvironment;'#013#010+
|
|
|
- ' Property IgnoreInva','lidOptions: Boolean read FIgnoreInvalidOption'+
|
|
|
- 's write FIgnoreInvalidOptions;'#013#010+
|
|
|
- ' Property BuildMode: TBuildMode read FBuildMode write FBuildMode;'#013+
|
|
|
- #010+
|
|
|
- ' // Installation optioms'#013#010+
|
|
|
- ' Property InstallExamples: Boolean read FInstallExamples writ','e FI'+
|
|
|
- 'nstallExamples;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TBasicDefaults }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TBasicDefaults = Class(TCustomDefaults)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TFPCDefaults }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TFPCDefaults = Class(TCustomDefaults)'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' procedure CompilerDefaults; override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TB','uildEngine }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TBuildEngine = Class(TComponent)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' // general variables'#013#010+
|
|
|
- ' FCompiler : String;'#013#010+
|
|
|
- ' FStartDir : String;'#013#010+
|
|
|
- ' FForceCompile : Boolean;'#013#010+
|
|
|
- ' FListMode : Boolean;'#013#010+
|
|
|
- ' FVerbose : boolean;'#013#010+
|
|
|
- ' FProgressMax : i','nteger;'#013#010+
|
|
|
- ' FProgressCount : integer;'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' FZipFile: TZipper;'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' FExternalPackages : TPackages;'#013#010+
|
|
|
- ' // Logging'#013#010+
|
|
|
- ' FLogPrefix : String;'#013#010+
|
|
|
- ' // Events'#013#010+
|
|
|
- ' FOnLog: TLogEvent;'#013#010+
|
|
|
- ' FAf','terArchive: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterClean: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FAfterManifest: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeArchive: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeClean: TNotifyEvent;'#013#010+
|
|
|
- ' FBefor','eCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeManifest: TNotifyEvent;'#013#010+
|
|
|
- ' Protected'#013#010+
|
|
|
- ' Procedure Error(const Msg : String);'#013#010+
|
|
|
- ' Procedure Error(const Fmt : String; const Args : Array of const);'#013+
|
|
|
- #010+
|
|
|
- ' // Internal co','py/delete/move/archive/mkdir files'#013#010+
|
|
|
- ' Function SysDirectoryExists(const ADir:string):Boolean;'#013#010+
|
|
|
- ' Function SysFileExists(const AFileName:string):Boolean;'#013#010+
|
|
|
- ' Procedure SysCopyFile(Const Src,Dest : String); virtual;'#013#010+
|
|
|
- ' Procedure SysM','oveFile(Const Src,Dest : String); virtual;'#013#010+
|
|
|
- ' Procedure SysDeleteFile(Const AFileName : String); virtual;'#013#010+
|
|
|
- ' Procedure SysDeleteDirectory(Const ADirectoryName : String); virtu'+
|
|
|
- 'al;'#013#010+
|
|
|
- ' Procedure SysDeleteTree(Const ADirectoryName : Strin','g); virtual;'+
|
|
|
- #013#010+
|
|
|
+ '$(ARCHIVE) $(FILESORDIRS)'#010+
|
|
|
+ ' // Misc'#010+
|
|
|
+ ' Property UseEnvir','onment : Boolean read FUseEnvironment write FUs'+
|
|
|
+ 'eEnvironment;'#010+
|
|
|
+ ' Property IgnoreInvalidOptions: Boolean read FIgnoreInvalidOptions '+
|
|
|
+ 'write FIgnoreInvalidOptions;'#010+
|
|
|
+ ' Property BuildMode: TBuildMode read FBuildMode write FBuildMode;'#010+
|
|
|
+ ' // Inst','allation optioms'#010+
|
|
|
+ ' Property InstallExamples: Boolean read FInstallExamples write FIns'+
|
|
|
+ 'tallExamples;'#010+
|
|
|
+ ' Property SkipCrossPrograms: boolean read FSkipCrossPrograms write '+
|
|
|
+ 'FSkipCrossPrograms;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TBasicDefaults }'#010+
|
|
|
+ #010+
|
|
|
+ ' TBasicDefaults = ','Class(TCustomDefaults)'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFPCDefaults }'#010+
|
|
|
+ #010+
|
|
|
+ ' TFPCDefaults = Class(TCustomDefaults)'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' procedure CompilerDefaults; override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TBuildEngine }'#010+
|
|
|
+ #010+
|
|
|
+ ' TBuildEngine = Class(TComponent)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' // general variables'#010,
|
|
|
+ ' FCompiler : String;'#010+
|
|
|
+ ' FStartDir : String;'#010+
|
|
|
+ ' FForceCompile : Boolean;'#010+
|
|
|
+ ' FListMode : Boolean;'#010+
|
|
|
+ ' FVerbose : boolean;'#010+
|
|
|
+ ' FProgressMax : integer;'#010+
|
|
|
+ ' FProgressCount : integer;'#010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' FZipFile: TZipper;'#010+
|
|
|
+ '{$endif ','HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' FExternalPackages : TPackages;'#010+
|
|
|
+ ' // Events'#010+
|
|
|
+ ' FOnLog: TLogEvent;'#010+
|
|
|
+ ' FAfterArchive: TNotifyEvent;'#010+
|
|
|
+ ' FAfterClean: TNotifyEvent;'#010+
|
|
|
+ ' FAfterCompile: TNotifyEvent;'#010+
|
|
|
+ ' FAfterInstall: TNotifyEvent;'#010+
|
|
|
+ ' FAfterManifest: T','NotifyEvent;'#010+
|
|
|
+ ' FBeforeArchive: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeClean: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCompile: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeInstall: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeManifest: TNotifyEvent;'#010+
|
|
|
+ ' FZipper: TZipper;'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' Procedure Error(cons','t Msg : String);'#010+
|
|
|
+ ' Procedure Error(const Fmt : String; const Args : Array of const);'#010+
|
|
|
+ ' // Internal copy/delete/move/archive/mkdir files'#010+
|
|
|
+ ' Function SysDirectoryExists(const ADir:string):Boolean;'#010+
|
|
|
+ ' Function SysFileExists(const AFile','Name:string):Boolean;'#010+
|
|
|
+ ' Procedure SysCopyFile(Const Src,Dest : String); virtual;'#010+
|
|
|
+ ' Procedure SysMoveFile(Const Src,Dest : String); virtual;'#010+
|
|
|
+ ' Procedure SysDeleteFile(Const AFileName : String); virtual;'#010+
|
|
|
+ ' Procedure SysDeleteDirectory','(Const ADirectoryName : String); vir'+
|
|
|
+ 'tual;'#010+
|
|
|
+ ' Procedure SysDeleteTree(Const ADirectoryName : String); virtual;'#010+
|
|
|
' Procedure SysArchiveFiles(List : TStrings; Const AFileName : Strin'+
|
|
|
- 'g); virtual;'#013#010+
|
|
|
- ' procedure LogIndent;'#013#010+
|
|
|
- ' procedure LogUnIndent;'#013#010+
|
|
|
- ' Procedure EnterDir(ADir : String);'#013#010+
|
|
|
- ' Function GetCompiler : String;'#013#010+
|
|
|
- ' Function',' InstallPackageFiles(APAckage : TPackage; tt : TTargetTy'+
|
|
|
- 'pe; Const Dest : String):Boolean;'#013#010+
|
|
|
- ' Procedure InstallUnitConfigFile(APAckage : TPackage; Const Dest : '+
|
|
|
- 'String);'#013#010+
|
|
|
- ' Function InstallPackageSourceFiles(APAckage : TPackage; stt : TSo',
|
|
|
- 'urceTypes; ttt : TTargetTypes; Const Dest : String):Boolean;'#013#010+
|
|
|
- ' Function FileNewer(const Src,Dest : String) : Boolean;'#013#010+
|
|
|
- ' Procedure LogSearchPath(const ASearchPathName:string;Path:TConditi'+
|
|
|
- 'onalStrings; ACPU:TCPU;AOS:TOS);'#013#010+
|
|
|
- ' Function F','indFileInPath(Path:TConditionalStrings; AFileName:Stri'+
|
|
|
- 'ng; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolean;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure GetDirectoriesFromFilelist(const AFileList, ADirectoryLi'+
|
|
|
- 'st: TStringList);'#013#010+
|
|
|
- ' //package commands'#013#010+
|
|
|
- ' function Get','UnitDir(APackage:TPackage):String;'#013#010+
|
|
|
+ 'g); virtual;'#010+
|
|
|
+ ' procedure LogIndent;'#010+
|
|
|
+ ' procedure LogUnIn','dent;'#010+
|
|
|
+ ' Procedure EnterDir(ADir : String);'#010+
|
|
|
+ ' Function GetCompiler : String;'#010+
|
|
|
+ ' Function InstallPackageFiles(APAckage : TPackage; tt : TTargetType'+
|
|
|
+ 's; Const Dest : String):Boolean;'#010+
|
|
|
+ ' Procedure InstallUnitConfigFile(APAckage : TPackage; ','Const Dest '+
|
|
|
+ ': String);'#010+
|
|
|
+ ' Function InstallPackageSourceFiles(APAckage : TPackage; stt : TSou'+
|
|
|
+ 'rceTypes; ttt : TTargetTypes; Const Dest : String):Boolean;'#010+
|
|
|
+ ' Function FileNewer(const Src,Dest : String) : Boolean;'#010+
|
|
|
+ ' Procedure LogSearchPath(A','Package: TPackage;const ASearchPathName'+
|
|
|
+ ':string;Path:TConditionalStrings; ACPU:TCPU;AOS:TOS);'#010+
|
|
|
+ ' Function FindFileInPath(APackage: TPackage; Path:TConditionalStrin'+
|
|
|
+ 'gs; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolean;'+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' p','rocedure GetDirectoriesFromFilelist(const AFileList, ADirectory'+
|
|
|
+ 'List: TStringList);'#010+
|
|
|
+ ' //package commands'#010+
|
|
|
+ ' function GetUnitDir(APackage:TPackage):String;'#010+
|
|
|
' procedure AddDependencyPaths(L: TStrings; DependencyType: TDepende'+
|
|
|
- 'ncyType; ATarget: TTarget);'#013#010+
|
|
|
- ' procedure AddDependencyUnitPaths(L:TStrings;APackage: TPackage);'#013+
|
|
|
- #010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AO','wner : TComponent); override;'#013#010+
|
|
|
- ' destructor Destroy;override;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' property Verbose : boolean read FVerbose write FVerbose;'#013#010+
|
|
|
- ' Procedure ResolveFileNames(APackage : TPackage; ACPU:TCPU;AOS:TOS;'+
|
|
|
- 'DoChangeDir:boolean=true);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Publ','ic Copy/delete/Move/Archive/Mkdir Commands.'#013#010+
|
|
|
- ' Procedure ExecuteCommand(const Cmd,Args : String; const Env: TStri'+
|
|
|
- 'ngs = nil; IgnoreError : Boolean = False); virtual;'#013#010+
|
|
|
- ' Procedure CmdCopyFiles(List : TStrings; Const DestDir : String);'#013+
|
|
|
+ 'ncyType; ATa','rget: TTarget);'#010+
|
|
|
+ ' procedure AddDependencyUnitPaths(L:TStrings;APackage: TPackage);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' destructor Destroy;override;'#010+
|
|
|
+ ' function AddPathPrefix(APackage: TPackage; APath: stri','ng): strin'+
|
|
|
+ 'g;'#010+
|
|
|
#010+
|
|
|
- ' ',' Procedure CmdCreateDir(const DestDir : String);'#013#010+
|
|
|
- ' Procedure CmdMoveFiles(List : TStrings; Const DestDir : String);'#013+
|
|
|
+ ' property Verbose : boolean read FVerbose write FVerbose;'#010+
|
|
|
+ ' Procedure ResolveFileNames(APackage : TPackage; ACPU:TCPU;AOS:TOS;'+
|
|
|
+ 'DoChangeDir:boolean=true; WarnIfNotFound:boolean=true);'#010+
|
|
|
#010+
|
|
|
- ' Procedure CmdDeleteFiles(List : TStrings);'#013#010+
|
|
|
+ ' // Public Copy/delete/Move/Archive','/Mkdir Commands.'#010+
|
|
|
+ ' Procedure ExecuteCommand(const Cmd,Args : String; const Env: TStri'+
|
|
|
+ 'ngs = nil; IgnoreError : Boolean = False); virtual;'#010+
|
|
|
+ ' Procedure CmdCopyFiles(List : TStrings; Const DestDir : String);'#010+
|
|
|
+ ' Procedure CmdCreateDir(const',' DestDir : String);'#010+
|
|
|
+ ' Procedure CmdMoveFiles(List : TStrings; Const DestDir : String);'#010+
|
|
|
+ ' Procedure CmdDeleteFiles(List : TStrings);'#010+
|
|
|
' Procedure CmdArchiveFiles(List : TStrings; Const ArchiveFile : Str'+
|
|
|
- 'i','ng);'#013#010+
|
|
|
- ' Procedure CmdRenameFile(SourceName, DestName : String);'#013#010+
|
|
|
- ' Procedure CmdRemoveDirs(List: TStrings);'#013#010+
|
|
|
- ' Procedure CmdRemoveTrees(List: TStrings);'#013#010+
|
|
|
- ' Procedure ExecuteCommands(Commands : TCommands; At : TCommandAt);'#013+
|
|
|
- #010+
|
|
|
- ' // De','pendency commands'#013#010+
|
|
|
- ' Function DependencyOK(ADependency : TDependency) : Boolean;'#013#010+
|
|
|
- ' // Target commands'#013#010+
|
|
|
+ 'ing);'#010+
|
|
|
+ ' Procedure CmdRenameFile(','SourceName, DestName : String);'#010+
|
|
|
+ ' Procedure CmdRemoveDirs(List: TStrings);'#010+
|
|
|
+ ' Procedure CmdRemoveTrees(List: TStrings);'#010+
|
|
|
+ ' Procedure ExecuteCommands(Commands : TCommands; At : TCommandAt; A'+
|
|
|
+ 'Package: TPackage = nil);'#010+
|
|
|
+ ' // Dependency com','mands'#010+
|
|
|
+ ' Function DependencyOK(ADependency : TDependency) : Boolean;'#010+
|
|
|
+ ' // Target commands'#010+
|
|
|
' Function GetCompilerCommand(APackage : TPackage; ATarget : TTarge'+
|
|
|
- 't; Env: TStrings) : String;'#013#010+
|
|
|
- ' Function TargetOK(ATarget :',' TTarget) : Boolean;'#013#010+
|
|
|
+ 't; Env: TStrings) : String;'#010+
|
|
|
+ ' Function TargetOK(ATarget : TTarget; ACPU: ','TCPU; AOS: TOS) : Bo'+
|
|
|
+ 'olean;'#010+
|
|
|
+ ' Function TargetInstallOK(ATarget : TTarget;ACPU:TCPU; AOS : TOS) '+
|
|
|
+ ': Boolean;'#010+
|
|
|
' Function NeedsCompile(APackage:TPackage; ATarget : TTarget) : Boo'+
|
|
|
- 'lean;'#013#010+
|
|
|
- ' Procedure Compile(APackage:TPackage; ATarget : TTarget); virtual;'+
|
|
|
- #013#010+
|
|
|
- ' Procedure MaybeCompile(APackage:TPackage; ATarget: TTarget);'#013#010+
|
|
|
- ' ',' Procedure CompileDependencies(APackage:TPackage; ATarget: TTarge'+
|
|
|
- 't);'#013#010+
|
|
|
- ' // Package commands'#013#010+
|
|
|
- '{ Function GetPackageDir(APackage : TPackage; AbsolutePath : Boole'+
|
|
|
- 'an = False) : String;'#013#010+
|
|
|
- ' Function GetUnitsOutputDir(APackage : TPackage;',' AbsolutePath : '+
|
|
|
- 'Boolean = False) : String;'#013#010+
|
|
|
+ 'lean;'#010+
|
|
|
+ ' Procedure Compile(APackage:TPackage; ATarget : TTarg','et); virtua'+
|
|
|
+ 'l;'#010+
|
|
|
+ ' Procedure MaybeCompile(APackage:TPackage; ATarget: TTarget);'#010+
|
|
|
+ ' Procedure CompileDependencies(APackage:TPackage; ATarget: TTarget)'+
|
|
|
+ ';'#010+
|
|
|
+ ' // Package commands'#010+
|
|
|
+ '{ Function GetPackageDir(APackage : TPackage; AbsolutePath :',' Boo'+
|
|
|
+ 'lean = False) : String;'#010+
|
|
|
+ ' Function GetUnitsOutputDir(APackage : TPackage; AbsolutePath : Bo'+
|
|
|
+ 'olean = False) : String;'#010+
|
|
|
' Function GetBinOutputDir(APackage : TPackage; AbsolutePath : Bool'+
|
|
|
- 'ean = False) : String; }'#013#010+
|
|
|
- ' Function PackageOK(APackage : TPackage) : Boolean; virtual;'#013#010+
|
|
|
- ' Procedure DoBeforeCompile(APa','ckage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoAfterCompile(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoBeforeInstall(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoAfterInstall(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoBeforeArchive(A','Package : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoAfterArchive(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoBeforeClean(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Procedure DoAfterClean(APackage : TPackage);virtual;'#013#010+
|
|
|
- ' Function NeedsCompile(APacka','ge : TPackage) : Boolean; virtual;'#013+
|
|
|
- #010+
|
|
|
- ' Procedure Compile(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure MaybeCompile(APackage:TPackage);'#013#010+
|
|
|
- ' Procedure Install(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure Archive(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure Manifes','t(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure Clean(APackage : TPackage; AllTargets: boolean);'#013#010+
|
|
|
- ' Procedure Clean(APackage : TPackage; ACPU:TCPU; AOS : TOS);'#013#010+
|
|
|
- ' Procedure CompileDependencies(APackage : TPackage);'#013#010+
|
|
|
- ' Function CheckExternalPa','ckage(Const APackageName : String):TPac'+
|
|
|
- 'kage;'#013#010+
|
|
|
- ' procedure CreateOutputDir(APackage: TPackage);'#013#010+
|
|
|
- ' // Packages commands'#013#010+
|
|
|
- ' Procedure Compile(Packages : TPackages);'#013#010+
|
|
|
- ' Procedure Install(Packages : TPackages);'#013#010+
|
|
|
- ' Procedure Archive(Pa','ckages : TPackages);'#013#010+
|
|
|
- ' procedure Manifest(Packages: TPackages);'#013#010+
|
|
|
- ' Procedure Clean(Packages : TPackages; AllTargets: boolean);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure Log(Level : TVerboseLevel; Const Msg : String);'#013#010+
|
|
|
- ' Procedure Log(Level : TVerboseLevel; C','onst Fmt : String; const A'+
|
|
|
- 'rgs : Array Of Const);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Property ListMode : Boolean Read FListMode Write FListMode;'#013#010+
|
|
|
- ' Property ForceCompile : Boolean Read FForceCompile Write FForceCom'+
|
|
|
- 'pile;'#013#010+
|
|
|
- ' Property ExternalPackages: TPackages Read ','FExternalPackages;'#013+
|
|
|
+ 'ean = False) : String; }'#010+
|
|
|
+ ' Function Package','OK(APackage : TPackage) : Boolean; virtual;'#010+
|
|
|
+ ' Procedure DoBeforeCompile(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterCompile(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoBeforeInstall(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoA','fterInstall(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoBeforeArchive(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterArchive(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoBeforeClean(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfter','Clean(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Function NeedsCompile(APackage : TPackage) : Boolean; virtual;'#010+
|
|
|
+ ' Procedure Compile(APackage : TPackage);'#010+
|
|
|
+ ' Procedure MaybeCompile(APackage:TPackage);'#010+
|
|
|
+ ' Function ReadyToCompile(APackage:TPackage',') : Boolean;'#010+
|
|
|
+ ' Procedure Install(APackage : TPackage);'#010+
|
|
|
+ ' Procedure Archive(APackage : TPackage);'#010+
|
|
|
+ ' Procedure Manifest(APackage : TPackage);'#010+
|
|
|
+ ' Procedure Clean(APackage : TPackage; AllTargets: boolean);'#010+
|
|
|
+ ' Procedure Clean(APackage : ','TPackage; ACPU:TCPU; AOS : TOS);'#010+
|
|
|
+ ' Procedure CompileDependencies(APackage : TPackage);'#010+
|
|
|
+ ' function CheckDependencies(APackage : TPackage): TCheckDependencyR'+
|
|
|
+ 'esult;'#010+
|
|
|
+ ' Function CheckExternalPackage(Const APackageName : String):TPacka'+
|
|
|
+ 'ge;'#010,
|
|
|
+ ' procedure CreateOutputDir(APackage: TPackage);'#010+
|
|
|
+ ' // Packages commands'#010+
|
|
|
+ ' Procedure Compile(Packages : TPackages);'#010+
|
|
|
+ ' Procedure Install(Packages : TPackages);'#010+
|
|
|
+ ' Procedure ZipInstall(Packages : TPackages);'#010+
|
|
|
+ ' Procedure Archive(Pack','ages : TPackages);'#010+
|
|
|
+ ' procedure Manifest(Packages: TPackages);'#010+
|
|
|
+ ' Procedure Clean(Packages : TPackages; AllTargets: boolean);'#010+
|
|
|
#010+
|
|
|
- ' Property StartDir: String Read FStartDir;'#013#010+
|
|
|
- ' // Events'#013#010+
|
|
|
+ ' Procedure Log(Level : TVerboseLevel; Msg : String);'#010+
|
|
|
+ ' Procedure Log(Level : TVerboseLevel; Fmt : String; ','const Args : '+
|
|
|
+ 'Array Of Const);'#010+
|
|
|
+ #010+
|
|
|
+ ' Property ListMode : Boolean Read FListMode Write FListMode;'#010+
|
|
|
+ ' Property ForceCompile : Boolean Read FForceCompile Write FForceCom'+
|
|
|
+ 'pile;'#010+
|
|
|
+ ' Property ExternalPackages: TPackages Read FExternalPackages;'#010+
|
|
|
+ ' ','Property StartDir: String Read FStartDir;'#010+
|
|
|
+ ' // Events'#010+
|
|
|
' Property BeforeCompile : TNotifyEvent Read FBeforeCompile Write FB'+
|
|
|
- 'eforeCompile;'#013#010+
|
|
|
+ 'eforeCompile;'#010+
|
|
|
' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
|
|
|
- 'erC','ompile;'#013#010+
|
|
|
- ' Property BeforeInstall : TNotifyEvent Read FBeforeInstall Write FB'+
|
|
|
- 'eforeInstall;'#013#010+
|
|
|
+ 'erCompile;'#010+
|
|
|
+ ' Property Before','Install : TNotifyEvent Read FBeforeInstall Write '+
|
|
|
+ 'FBeforeInstall;'#010+
|
|
|
' Property AfterInstall : TNotifyEvent Read FAfterInstall Write FAft'+
|
|
|
- 'erInstall;'#013#010+
|
|
|
- ' Property BeforeClean : TNotifyEvent Read FBeforeClean Write ','FBef'+
|
|
|
- 'oreClean;'#013#010+
|
|
|
- ' Property AfterClean : TNotifyEvent Read FAfterClean Write FAfterCl'+
|
|
|
- 'ean;'#013#010+
|
|
|
+ 'erInstall;'#010+
|
|
|
+ ' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
|
|
|
+ 'eClean;'#010+
|
|
|
+ ' Property Aft','erClean : TNotifyEvent Read FAfterClean Write FAfter'+
|
|
|
+ 'Clean;'#010+
|
|
|
' Property BeforeArchive : TNotifyEvent Read FBeforeArchive Write FB'+
|
|
|
- 'eforeArchive;'#013#010+
|
|
|
- ' Property AfterArchive : TNotifyEvent Read FAfterArchive Writ','e FA'+
|
|
|
- 'fterArchive;'#013#010+
|
|
|
- ' Property BeforeManifest : TNotifyEvent Read FBeforeManifest Write '+
|
|
|
- 'FBeforeManifest;'#013#010+
|
|
|
+ 'eforeArchive;'#010+
|
|
|
+ ' Property AfterArchive : TNotifyEvent Read FAfterArchive Write FAft'+
|
|
|
+ 'erArchive;'#010+
|
|
|
+ ' Property Bef','oreManifest : TNotifyEvent Read FBeforeManifest Writ'+
|
|
|
+ 'e FBeforeManifest;'#010+
|
|
|
' Property AfterManifest : TNotifyEvent Read FAfterManifest Write FA'+
|
|
|
- 'fterManifest;'#013#010+
|
|
|
- ' Property OnLog : TLogEvent Read FOnLog Write ','FOnlog;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCustomInstaller }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCustomInstaller = Class(TComponent)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FBuildEngine: TBuildEngine;'#013#010+
|
|
|
- ' FPackages: TPackages;'#013#010+
|
|
|
- ' FRunMode: TRunMode;'#013#010+
|
|
|
- ' FListMode : Boolean;'#013#010+
|
|
|
- ' FLogLevels : TVerboseLevels;'#013,#010+
|
|
|
- ' FFPMakeOptionsString: string;'#013#010+
|
|
|
- ' Protected'#013#010+
|
|
|
- ' Procedure Log(Level : TVerboseLevel; Const Msg : String);'#013#010+
|
|
|
- ' Procedure CreatePackages; virtual;'#013#010+
|
|
|
- ' Procedure FreePackages; virtual;'#013#010+
|
|
|
- ' function GetPackages: TPackages; virtual;'#013#010+
|
|
|
- ' ',' Procedure CheckPackages; virtual;'#013#010+
|
|
|
- ' Procedure CreateBuildEngine; virtual;'#013#010+
|
|
|
- ' Procedure Error(const Msg : String);'#013#010+
|
|
|
- ' Procedure Error(const Fmt : String; Args : Array of const);'#013#010+
|
|
|
- ' Procedure AnalyzeOptions;'#013#010+
|
|
|
- ' Procedure Usage(con','st FMT : String; Args : Array of const);'#013#010+
|
|
|
- ' Procedure Compile(Force : Boolean); virtual;'#013#010+
|
|
|
- ' Procedure Clean(AllTargets: boolean); virtual;'#013#010+
|
|
|
- ' Procedure Install; virtual;'#013#010+
|
|
|
- ' Procedure Archive; virtual;'#013#010+
|
|
|
- ' Procedure Manifest; virtua','l;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AOwner : TComponent); virtual;'#013#010+
|
|
|
- ' Destructor destroy; override;'#013#010+
|
|
|
- ' Function AddPackage(Const AName : String) : TPackage;'#013#010+
|
|
|
- ' Function Run : Boolean;'#013#010+
|
|
|
- ' Property FPMakeOptionsString: string read FF','PMakeOptionsString;'#013+
|
|
|
- #010+
|
|
|
- ' Property BuildEngine : TBuildEngine Read FBuildEngine;'#013#010+
|
|
|
- ' //files in package'#013#010+
|
|
|
- ' Property Packages : TPackages Read GetPackages;'#013#010+
|
|
|
- ' Property RunMode : TRunMode Read FRunMode;'#013#010+
|
|
|
- ' Property ListMode : Boolean Re','ad FListMode;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TFPCInstaller }'#013#010+
|
|
|
- ' TFPCInstaller = class(TCustomInstaller)'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' Constructor Create(AOwner : TComponent); override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TBasicInstaller }'#013#010+
|
|
|
- ' TBasicInstaller = class(TCustomInstaller)'#013#010+
|
|
|
- ' Con','structor Create(AOwner : TComponent); override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TReplaceFunction = Function (Const AName,Args : String) : String of '+
|
|
|
- 'Object;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TValueItem }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TValueItem = Class(TObject)'#013#010+
|
|
|
- ' FValue : String;'#013#010+
|
|
|
- ' Constructor Create(AVal','ue : String);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TFunctionItem }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TFunctionItem = Class(TObject)'#013#010+
|
|
|
- ' FFunc : TReplaceFunction;'#013#010+
|
|
|
- ' Constructor Create(AFunc : TReplaceFunction);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TDictionary }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TDictionary = Class(TComponent)'#013#010+
|
|
|
- ' FList ',': TStringList;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AOwner : TComponent); override;'#013#010+
|
|
|
- ' Destructor Destroy;override;'#013#010+
|
|
|
- ' Procedure AddVariable(Const AName,Value : String);'#013#010+
|
|
|
- ' Procedure AddFunction(Const AName : String; FReplacement : TRepl','a'+
|
|
|
- 'ceFunction);'#013#010+
|
|
|
- ' Procedure RemoveItem(Const AName : String);'#013#010+
|
|
|
- ' Function GetValue(Const AName : String) : String;'#013#010+
|
|
|
- ' Function GetValue(Const AName,Args : String) : String; virtual;'#013+
|
|
|
- #010+
|
|
|
- ' Function ReplaceStrings(Const ASource : String) ',': String; virtua'+
|
|
|
- 'l;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ECollectionError = Class(Exception);'#013#010+
|
|
|
- ' EDictionaryError = Class(Exception);'#013#010+
|
|
|
- ' EInstallerError = Class(Exception);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TInstallerClass = Class of TCustomInstaller;'#013#010+
|
|
|
- ' TDictionaryClass = Class of TDictionary',';'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
+ 'fterManifest;'#010+
|
|
|
+ ' Property OnLog : TLogEvent Read FOnLog Write FOnlog;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCustomInstaller',' }'#010+
|
|
|
+ #010+
|
|
|
+ ' TCustomInstaller = Class(TComponent)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FBuildEngine: TBuildEngine;'#010+
|
|
|
+ ' FPackages: TPackages;'#010+
|
|
|
+ ' FRunMode: TRunMode;'#010+
|
|
|
+ ' FListMode : Boolean;'#010+
|
|
|
+ ' FLogLevels : TVerboseLevels;'#010+
|
|
|
+ ' FFPMakeOptionsString: string;'#010+
|
|
|
+ ' FPackageV','ariantSettings: TStrings;'#010+
|
|
|
+ ' FPackageVariants: TFPList;'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' Procedure Log(Level : TVerboseLevel; Const Msg : String);'#010+
|
|
|
+ ' Procedure CreatePackages; virtual;'#010+
|
|
|
+ ' Procedure FreePackages; virtual;'#010+
|
|
|
+ ' function GetPackages: TPackag','es; virtual;'#010+
|
|
|
+ ' Procedure CheckPackages; virtual;'#010+
|
|
|
+ ' Procedure CreateBuildEngine; virtual;'#010+
|
|
|
+ ' Procedure Error(const Msg : String);'#010+
|
|
|
+ ' Procedure Error(const Fmt : String; Args : Array of const);'#010+
|
|
|
+ ' Procedure AnalyzeOptions;'#010+
|
|
|
+ ' Procedur','e Usage(const FMT : String; Args : Array of const);'#010+
|
|
|
+ ' Procedure Compile(Force : Boolean); virtual;'#010+
|
|
|
+ ' Procedure Clean(AllTargets: boolean); virtual;'#010+
|
|
|
+ ' Procedure Install; virtual;'#010+
|
|
|
+ ' Procedure ZipInstall; virtual;'#010+
|
|
|
+ ' Procedure Archive','; virtual;'#010+
|
|
|
+ ' Procedure Manifest; virtual;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); virtual;'#010+
|
|
|
+ ' Destructor destroy; override;'#010+
|
|
|
+ ' Function AddPackage(Const AName : String) : TPackage;'#010+
|
|
|
+ ' Function AddPackageVariant(AName: st','ring; AIsInheritable: boole'+
|
|
|
+ 'an): TPackageVariants;'#010+
|
|
|
+ ' Function Run : Boolean;'#010+
|
|
|
+ ' Property FPMakeOptionsString: string read FFPMakeOptionsString;'#010+
|
|
|
+ ' Property BuildEngine : TBuildEngine Read FBuildEngine;'#010+
|
|
|
+ ' //files in package'#010+
|
|
|
+ ' Property',' Packages : TPackages Read GetPackages;'#010+
|
|
|
+ ' Property RunMode : TRunMode Read FRunMode;'#010+
|
|
|
+ ' Property ListMode : Boolean Read FListMode;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFPCInstaller }'#010+
|
|
|
+ ' TFPCInstaller = class(TCustomInstaller)'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Constructor Create(AOw','ner : TComponent); override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TBasicInstaller }'#010+
|
|
|
+ ' TBasicInstaller = class(TCustomInstaller)'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TValueItem }'#010+
|
|
|
+ #010+
|
|
|
+ ' TValueItem = Class(TObject)'#010+
|
|
|
+ ' FValue : String;'#010+
|
|
|
+ ' C','onstructor Create(AValue : String);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFunctionItem }'#010+
|
|
|
+ #010+
|
|
|
+ ' TFunctionItem = Class(TObject)'#010+
|
|
|
+ ' FFunc : TReplaceFunction;'#010+
|
|
|
+ ' Constructor Create(AFunc : TReplaceFunction);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCompileWorkerThread }'#010+
|
|
|
+ #010+
|
|
|
+ ' ','TCompileWorkerThread = class(TThread)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FBuildEngine: TBuildEngine;'#010+
|
|
|
+ ' FCompilationOK: boolean;'#010+
|
|
|
+ ' FDone: boolean;'#010+
|
|
|
+ ' FErrorMessage: string;'#010+
|
|
|
+ ' FNotifyMainThreadEvent: PRTLEvent;'#010+
|
|
|
+ ' FNotifyStartTask: PRTLEvent;'#010+
|
|
|
+ ' FPackage',': TPackage;'#010+
|
|
|
+ ' protected'#010+
|
|
|
+ ' procedure execute; override;'#010+
|
|
|
+ ' property Done: boolean read FDone;'#010+
|
|
|
+ ' property APackage: TPackage read FPackage write FPackage;'#010+
|
|
|
+ ' property CompilationOK: boolean read FCompilationOK;'#010+
|
|
|
+ ' property NotifyStartT','ask: PRTLEvent read FNotifyStartTask;'#010+
|
|
|
+ ' property ErrorMessage: string read FErrorMessage;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' constructor Create(ABuildEngine: TBuildEngine; NotifyMainThreadEve'+
|
|
|
+ 'nt: PRTLEvent); virtual;'#010+
|
|
|
+ ' destructor Destroy; override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$','endif NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ ' ECollectionError = Class(Exception);'#010+
|
|
|
+ ' EDictionaryError = Class(Exception);'#010+
|
|
|
+ ' EInstallerError = Class(Exception);'#010+
|
|
|
+ #010+
|
|
|
+ ' TInstallerClass = Class of TCustomInstaller;'#010+
|
|
|
+ ' TDictionaryClass = Class of TDictionary;'#010+
|
|
|
+ ' TPackageDi','ctionaryClass = Class of TPackageDictionary;'#010+
|
|
|
+ #010+
|
|
|
+ 'Type'#010+
|
|
|
' TArchiveEvent = Procedure (Const AFileName : String; List : TStrings'+
|
|
|
- ') of Object;'#013#010+
|
|
|
+ ') of Object;'#010+
|
|
|
' TArchiveProc = Procedure (Const AFileName : String; List : TStrings)'+
|
|
|
- ';'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' DictionaryClass : TDictionaryClass = TDictionary;'#013#010+
|
|
|
- ' OnArchiveF','iles : TArchiveEvent = Nil;'#013#010+
|
|
|
- ' ArchiveFilesProc : TArchiveProc = Nil;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Defaults : TCustomDefaults; // Set by installer.'#013#010+
|
|
|
- ' Dictionary : TDictionary;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function CurrentOS : String;'#013#010+
|
|
|
- 'Function CurrentCPU : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function Installer(','InstallerClass: TInstallerClass) : TCustomInstall'+
|
|
|
- 'er; overload;'#013#010+
|
|
|
- 'Function Installer : TCustomInstaller; overload;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OSToString(OS: TOS) : String;'#013#010+
|
|
|
- 'Function OSesToString(OSes: TOSes) : String;'#013#010+
|
|
|
- 'Function CPUToString(CPU: TCPU) : Stri','ng;'#013#010+
|
|
|
- 'Function CPUSToString(CPUS: TCPUS) : String;'#013#010+
|
|
|
- 'Function StringToOS(const S : String) : TOS;'#013#010+
|
|
|
- 'Function OSesToString(const S : String) : TOSes;'#013#010+
|
|
|
- 'Function StringToCPU(const S : String) : TCPU;'#013#010+
|
|
|
- 'Function StringToCPUS(const S : String) : TCP','US;'#013#010+
|
|
|
- 'Function ModeToString(Mode: TCompilerMode) : String;'#013#010+
|
|
|
- 'Function StringToMode(const S : String) : TCompilerMode;'#013#010+
|
|
|
- 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#013#010+
|
|
|
- 'Procedure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: ','TO'+
|
|
|
- 'S);'#013#010+
|
|
|
- 'Function FixPath (const APath : String) : String;'#013#010+
|
|
|
- 'Function IsRelativePath(const APath : String) : boolean;'#013#010+
|
|
|
- 'Procedure ChangeDir(const APath : String);'#013#010+
|
|
|
- 'Function Substitute(Const Source : String; Macros : Array of string) :'+
|
|
|
- ' String;'#013#010,
|
|
|
- 'Procedure SplitCommand(Const Cmd : String; Var Exe,Options : String);'#013+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' DictionaryClass : TDictiona','ryClass = TDictionary;'#010+
|
|
|
+ ' PackageDictionaryClass : TPackageDictionaryClass = TPackageDictionar'+
|
|
|
+ 'y;'#010+
|
|
|
+ ' OnArchiveFiles : TArchiveEvent = Nil;'#010+
|
|
|
+ ' ArchiveFilesProc : TArchiveProc = Nil;'#010+
|
|
|
+ #010+
|
|
|
+ ' Defaults : TCustomDefaults; // Set by installer.'#010+
|
|
|
+ ' GlobalDic','tionary : TDictionary;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function CurrentOS : String;'#010+
|
|
|
+ 'Function CurrentCPU : String;'#010+
|
|
|
#010+
|
|
|
+ 'Function Installer(InstallerClass: TInstallerClass) : TCustomInstaller'+
|
|
|
+ '; overload;'#010+
|
|
|
+ 'Function Installer : TCustomInstaller; overload;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function OSToString(OS:',' TOS) : String;'#010+
|
|
|
+ 'Function OSesToString(OSes: TOSes) : String;'#010+
|
|
|
+ 'Function CPUToString(CPU: TCPU) : String;'#010+
|
|
|
+ 'Function CPUSToString(CPUS: TCPUS) : String;'#010+
|
|
|
+ 'Function StringToOS(const S : String) : TOS;'#010+
|
|
|
+ 'function IsDifferentFromBuild(ACpu: TCPU; AOs: ','TOs): boolean;'#010+
|
|
|
+ '//Function StringToOSes(const S : String) : TOSes;'#010+
|
|
|
+ 'Function StringToCPU(const S : String) : TCPU;'#010+
|
|
|
+ 'Function StringToCPUS(const S : String) : TCPUS;'#010+
|
|
|
+ 'Function ModeToString(Mode: TCompilerMode) : String;'#010+
|
|
|
+ 'Function StringToMode(con','st S : String) : TCompilerMode;'#010+
|
|
|
+ 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#010+
|
|
|
+ 'Procedure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: TOS)'+
|
|
|
+ ';'#010+
|
|
|
+ 'Function FixPath (const APath : String) : String; inline; deprecated '#039+
|
|
|
+ 'Use the ov','erload with AIsDir instead'#039';'#010+
|
|
|
+ 'Function FixPath (const APath : String; AIsDir : Boolean) : String;'#010+
|
|
|
+ 'Function IsRelativePath(const APath : String) : boolean;'#010+
|
|
|
+ 'Procedure ChangeDir(const APath : String);'#010+
|
|
|
+ 'Procedure SplitCommand(Const Cmd : String; ','Var Exe,Options : String)'+
|
|
|
+ ';'#010+
|
|
|
'Procedure AddCustomFpmakeCommandlineOption(const ACommandLineOption, H'+
|
|
|
- 'elpMessage : string);'#013#010+
|
|
|
+ 'elpMessage : string);'#010+
|
|
|
'Function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
|
|
|
- 'n : st','ring) : string;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'n : string) : string;'#010+
|
|
|
+ 'Function AddProgramExtension(','const ExecutableName: string; AOS : TOS'+
|
|
|
+ ') : string;'#010+
|
|
|
+ 'Function GetImportLibraryFilename(const UnitName: string; AOS : TOS) :'+
|
|
|
+ ' string;'#010+
|
|
|
+ #010+
|
|
|
'procedure SearchFiles(const AFileName: string; Recursive: boolean; var'+
|
|
|
- ' List: TStrings);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Implementation'#013#010+
|
|
|
- #013#010+
|
|
|
- 'uses typinfo, rtlconsts;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'type'#013#010+
|
|
|
- ' TUnsortedDuplicatesStringList = class(TStringList)'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' function A','dd(const S: string): Integer; override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' CustomFpmakeCommandlineOptions: TStrings;'#013#010+
|
|
|
- ' CustomFpMakeCommandlineValues: TStrings;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'ResourceString'#013#010+
|
|
|
- ' SErrInvalidCPU = '#039'Invalid CPU name "%s"'#039';'#013#010+
|
|
|
- ' SErrInvalidOS =',' '#039'Invalid OS name "%s"'#039';'#013#010+
|
|
|
- ' SErrInvalidMode = '#039'Invalid compiler mode "%s"'#039';'#013#010+
|
|
|
- ' SErrInvalidTarget = '#039'Invalid compiler target "%s"'#039';'#013#010+
|
|
|
+ ' List: TStrings);'#010+
|
|
|
+ #010+
|
|
|
+ 'Implementation'#010+
|
|
|
+ #010+
|
|
|
+ 'uses',' typinfo, rtlconsts;'#010+
|
|
|
+ #010+
|
|
|
+ 'type'#010+
|
|
|
+ ' TUnsortedDuplicatesStringList = class(TStringList)'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' function Add(const S: string): Integer; override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' CustomFpmakeCommandlineOptions: TStrings;'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues: TStrings',';'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef NO_THREADING}'#010+
|
|
|
+ 'var'#010+
|
|
|
+ '{$else NO_THREADING}'#010+
|
|
|
+ 'threadvar'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' GPathPrefix : string;'#010+
|
|
|
+ ' GLogPrefix : string;'#010+
|
|
|
+ #010+
|
|
|
+ 'ResourceString'#010+
|
|
|
+ ' SErrInvalidCPU = '#039'Invalid CPU name "%s"'#039';'#010+
|
|
|
+ ' SErrInvalidOS = '#039'Invalid OS name ','"%s"'#039';'#010+
|
|
|
+ ' SErrInvalidMode = '#039'Invalid compiler mode "%s"'#039';'#010+
|
|
|
+ ' SErrInvalidTarget = '#039'Invalid compiler target "%s"'#039';'#010+
|
|
|
' SErrNameExists = '#039'Name "%s" already exists in the collect'+
|
|
|
- 'ion.'#039';'#013#010+
|
|
|
- ' SErrNoSuchName ','= '#039'Could not find item with name "%s" in'+
|
|
|
- ' the collection.'#039';'#013#010+
|
|
|
+ 'ion.'#039';'#010+
|
|
|
+ ' SErrNoSuchName = '#039'Could not find item',' with name "%s" in'+
|
|
|
+ ' the collection.'#039';'#010+
|
|
|
' SErrInValidArgument = '#039'Invalid command-line argument at positi'+
|
|
|
- 'on %d: %s'#039';'#013#010+
|
|
|
+ 'on %d: %s'#039';'#010+
|
|
|
' SErrNeedArgument = '#039'Option at position %d (%s) needs an arg'+
|
|
|
- 'ument'#039';'#013#010+
|
|
|
- ' SErrNoPackagesDefined = ',#039'No action possible: No packages were de'+
|
|
|
- 'fined.'#039';'#013#010+
|
|
|
+ 'ument'#039';'#010+
|
|
|
+ ' SErrNoPackagesDefined = '#039'No action possible: No p','ackages were '+
|
|
|
+ 'defined.'#039';'#010+
|
|
|
' SErrInstaller = '#039'The installer encountered the following'+
|
|
|
- ' error:'#039';'#013#010+
|
|
|
+ ' error:'#039';'#010+
|
|
|
' SErrDepUnknownTarget = '#039'Unknown target for unit "%s" in depende'+
|
|
|
- 'ncies for %s in package %s'#039';'#013#010+
|
|
|
- ' SErrExternalCom','mandFailed = '#039'External command "%s" failed with'+
|
|
|
- ' exit code %d. Console output:'#039'+LineEnding+'#039'%s'#039';'#013#010+
|
|
|
- ' SErrCreatingDirectory = '#039'Failed to create directory "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrDeletingFile = '#039'Failed to delete file "%s"'#039';'#013#010+
|
|
|
- ' SErrRemovingDirectory ','= '#039'Failed to remove directory "%s"'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SErrMovingFile = '#039'Failed to move file "%s" to "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrCopyingFile = '#039'Failed to copy file "%s" to "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrChangeDirFailed = '#039'Failed to enter directory "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrInvalidAr','gumentToSubstitute = '#039'Invalid number of arguments'+
|
|
|
- ' to Substitute'#039';'#013#010+
|
|
|
+ 'ncies for %s in package %s'#039';'#010+
|
|
|
+ ' SErrExternalCommandFailed = '#039'External comma','nd "%s" failed with'+
|
|
|
+ ' exit code %d. Console output:'#039'+LineEnding+'#039'%s'#039';'#010+
|
|
|
+ ' SErrExtCommandNotFound= '#039'External command "%s" not found'#039';'#010+
|
|
|
+ ' SErrCreatingDirectory = '#039'Failed to create directory "%s"'#039';'#010+
|
|
|
+ ' SErrDeletingFile = '#039'Failed to delete file "','%s"'#039';'#010+
|
|
|
+ ' SErrRemovingDirectory = '#039'Failed to remove directory "%s"'#039';'#010+
|
|
|
+ ' SErrMovingFile = '#039'Failed to move file "%s" to "%s"'#039';'#010+
|
|
|
+ ' SErrCopyingFile = '#039'Failed to copy file "%s" to "%s"'#039';'#010+
|
|
|
+ ' SErrChangeDirFailed = '#039'Failed to enter direct','ory "%s"'#039';'#010+
|
|
|
+ ' SErrInvalidArgumentToSubstitute = '#039'Invalid number of arguments t'+
|
|
|
+ 'o Substitute'#039';'#010+
|
|
|
' SErrNoArchiveSupport = '#039'This binary contains no archive support'+
|
|
|
- '. Please recompile with archive support'#039';'#013#010+
|
|
|
- ' SErrNoDictionaryItem = '#039'No item called "%s" in the dictionary',#039+
|
|
|
- ';'#013#010+
|
|
|
+ '. Please recompile with archive support'#039';'#010+
|
|
|
+ ' SErrNoDictionaryItem = '#039'No item calle','d "%s" in the dictionary'+
|
|
|
+ #039';'#010+
|
|
|
' SErrNoDictionaryValue = '#039'The item "%s" in the dictionary is not '+
|
|
|
- 'a value'#039';'#013#010+
|
|
|
+ 'a value'#039';'#010+
|
|
|
' SErrNoDictionaryFunc = '#039'The item "%s" in the dictionary is not '+
|
|
|
- 'a function'#039';'#013#010+
|
|
|
- ' SErrInvalidFPCInfo = '#039'Compiler returns invalid information, c'+
|
|
|
- 'heck if fpc -','iV works'#039';'#013#010+
|
|
|
+ 'a function'#039';'#010+
|
|
|
+ ' SErrInvalidFPCInfo = '#039'Compiler returns invalid inform','ation,'+
|
|
|
+ ' check if fpc -iV works'#039';'#010+
|
|
|
' SErrDependencyNotFound = '#039'Could not find unit directory for depe'+
|
|
|
- 'ndency package "%s"'#039';'#013#010+
|
|
|
+ 'ndency package "%s"'#039';'#010+
|
|
|
' SErrAlreadyInitialized = '#039'Installer can only be initialized once'+
|
|
|
- #039';'#013#010+
|
|
|
- ' SErrInvalidState = '#039'Invalid state for target %s'#039';'#013#010+
|
|
|
- ' SErrCould','NotCompile = '#039'Could not compile target %s from pack'+
|
|
|
- 'age %s'#039';'#013#010+
|
|
|
+ #039';'#010+
|
|
|
+ ' SErrInvalidState = '#039'Invalid state for target',' %s'#039';'#010+
|
|
|
+ ' SErrCouldNotCompile = '#039'Could not compile target %s from packag'+
|
|
|
+ 'e %s'#039';'#010+
|
|
|
' SErrUnsupportedBuildmode = '#039'Package does not support this buildm'+
|
|
|
- 'ode'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' SWarnCircularTargetDependency = '#039'Warning: Circular dependency de'+
|
|
|
- 'tected when compiling target %s with',' target %s'#039';'#013#010+
|
|
|
+ 'ode'#039';'#010+
|
|
|
+ ' SErrPackVarNotExist = '#039'There is no package variant with the na'+
|
|
|
+ 'me "%s"'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' SWarnCircu','larTargetDependency = '#039'Warning: Circular dependency '+
|
|
|
+ 'detected when compiling target %s with target %s'#039';'#010+
|
|
|
' SWarnCircularPackageDependency = '#039'Warning: Circular dependency d'+
|
|
|
- 'etected when compiling package %s with package %s'#039';'#013#010+
|
|
|
- ' SWarnFailedToSetTime = '#039'Warning: Failed to set timestamp on f'+
|
|
|
- 'ile "%s"'#039';'#013#010+
|
|
|
- ' SWarnFailedToGetTime = '#039,'Warning: Failed to get timestamp fro'+
|
|
|
- 'm file "%s"'#039';'#013#010+
|
|
|
+ 'etected when compiling package %s with package %s'#039';'#010+
|
|
|
+ ' SWarnFailedToSetT','ime = '#039'Warning: Failed to set timestamp on'+
|
|
|
+ ' file "%s"'#039';'#010+
|
|
|
+ ' SWarnFailedToGetTime = '#039'Warning: Failed to get timestamp from'+
|
|
|
+ ' file "%s"'#039';'#010+
|
|
|
' SWarnAttemptingToCompileNonNeutralTarget = '#039'Warning: Attempting '+
|
|
|
- 'to compile non-neutral target %s'#039';'#013#010+
|
|
|
- ' SWarnSourceFileNotFound = '#039'Warning: Source file "%s" from packa'+
|
|
|
- 'ge %s not found for %','s'#039';'#013#010+
|
|
|
+ 'to compile non-neutral target %s'#039';'#010+
|
|
|
+ ' ','SWarnSourceFileNotFound = '#039'Warning: Source file "%s" from pac'+
|
|
|
+ 'kage %s not found for %s'#039';'#010+
|
|
|
' SWarnIncludeFileNotFound = '#039'Warning: Include file "%s" from pack'+
|
|
|
- 'age %s not found for %s'#039';'#013#010+
|
|
|
- ' SWarnDepUnitNotFound = '#039'Warning: Dependency on unit %s is no'+
|
|
|
- 't supported for %s'#039';'#013#010+
|
|
|
- ' SWarnTargetDependsOnPackage = '#039'Warning: Target %s of',' package %'+
|
|
|
- 's depends on another package (%s). These kind of dependencies are not '+
|
|
|
- 'processed'#039';'#013#010+
|
|
|
- ' SWarnDependOnOtherPlatformPackage = '#039'Warning: Package %s depends'+
|
|
|
- ' on package %s which is not available for the %s platform'#039';'#013#010+
|
|
|
- ' SWarnStartCompilin','gPackage = '#039'Start compiling package %s for t'+
|
|
|
- 'arget %s.'#039';'#013#010+
|
|
|
+ 'age %s not found for %s'#039';'#010+
|
|
|
+ ' SWarnDepUnitNotFound = '#039'Warning: Dependency on unit %','s is '+
|
|
|
+ 'not supported for %s'#039';'#010+
|
|
|
+ ' SWarnTargetDependsOnPackage = '#039'Warning: Target %s of package %s '+
|
|
|
+ 'depends on another package (%s). These kind of dependencies are not pr'+
|
|
|
+ 'ocessed'#039';'#010+
|
|
|
+ ' SWarnDependOnOtherPlatformPackage = '#039'Warning: Package %s depends',
|
|
|
+ ' on package %s which is not available for the %s platform'#039';'#010+
|
|
|
+ ' SWarnStartCompilingPackage = '#039'Start compiling package %s for tar'+
|
|
|
+ 'get %s.'#039';'#010+
|
|
|
' SWarnCompilingPackagecompleteProgress = '#039'[%3.0f%%] Compiled pack'+
|
|
|
- 'age %s'#039';'#013#010+
|
|
|
- ' SWarnCompilingPackagecomplete = '#039'Compiled package %s'#039';'#013#010+
|
|
|
- ' SWarnSkipPackageTargetProgress = '#039'[%3.0f%%] Ski','pped package %s'+
|
|
|
- ' which has been disabled for target %s'#039';'#013#010+
|
|
|
+ 'age %s'#039';'#010+
|
|
|
+ ' SWarnCompilingPackagecomple','te = '#039'Compiled package %s'#039';'#010+
|
|
|
+ ' SWarnSkipPackageTargetProgress = '#039'[%3.0f%%] Skipped package %s w'+
|
|
|
+ 'hich has been disabled for target %s'#039';'#010+
|
|
|
' SWarnSkipPackageTarget = '#039'Skipped package %s which has been disa'+
|
|
|
- 'bled for target %s'#039';'#013#010+
|
|
|
- ' SWarnInstallationPackagecomplete = '#039'Installation package %s for '+
|
|
|
- 'target %s succeeded'#039';'#013#010+
|
|
|
- ' SWar','nCleanPackagecomplete = '#039'Clean of package %s completed'#039+
|
|
|
- ';'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'bled for target %s'#039';'#010+
|
|
|
+ ' SWarnInstallationP','ackagecomplete = '#039'Installation package %s fo'+
|
|
|
+ 'r target %s succeeded'#039';'#010+
|
|
|
+ ' SWarnCleanPackagecomplete = '#039'Clean of package %s completed'#039';'+
|
|
|
+ #010+
|
|
|
+ ' SWarnCanNotGetAccessRights = '#039'Warning: Failed to copy access-rig'+
|
|
|
+ 'hts from file %s'#039';'#010+
|
|
|
+ ' SWarnCanNotSetAccessRi','ghts = '#039'Warning: Failed to copy access-r'+
|
|
|
+ 'ights to file %s'#039';'#010+
|
|
|
+ ' SWarnCanNotGetFileAge = '#039'Warning: Failed to get FileAge for %s'#039+
|
|
|
+ ';'#010+
|
|
|
+ ' SWarnExtCommandNotFound = '#039'Warning: External command "%s" not fo'+
|
|
|
+ 'und but "%s" is older then "%s"'#039';'#010+
|
|
|
+ ' SWarnDuplica','tePackage = '#039'Warning: Package %s is already added.'+
|
|
|
+ ' Using the existing package'#039';'#010+
|
|
|
+ #010+
|
|
|
' SInfoPackageAlreadyProcessed = '#039'Package %s is already processed'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SInfoCompilingTarget = '#039'Compiling target %s'#039';'#013#010+
|
|
|
- ' SInfoExecutingCommand = '#039'Executing command "%s %s"'#039';'#013#010+
|
|
|
- ' ',' SInfoCreatingOutputDir = '#039'Creating output dir "%s"'#039';'#013#010+
|
|
|
- ' SInfoInstallingPackage = '#039'Installing package %s'#039';'#013#010+
|
|
|
- ' SInfoArchivingPackage = '#039'Archiving package %s in "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SInfoCleaningPackage = '#039'Cleaning package %s'#039';'#013#010+
|
|
|
- ' SInfoManifestPa','ckage = '#039'Creating manifest for package %s'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SInfoCopyingFile = '#039'Copying file "%s" to "%s"'#039';'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' SInfoCompilingTarget = '#039'Compiling target %s'#039';'#010+
|
|
|
+ ' SInfoExecutingCommand = '#039'Executing c','ommand "%s %s"'#039';'#010+
|
|
|
+ ' SInfoCreatingOutputDir = '#039'Creating output dir "%s"'#039';'#010+
|
|
|
+ ' SInfoInstallingPackage = '#039'Installing package %s'#039';'#010+
|
|
|
+ ' SInfoArchivingPackage = '#039'Archiving package %s in "%s"'#039';'#010+
|
|
|
+ ' SInfoCleaningPackage = '#039'Cleaning package %s'#039';'#010+
|
|
|
+ ' S','InfoManifestPackage = '#039'Creating manifest for package %s'#039+
|
|
|
+ ';'#010+
|
|
|
+ ' SInfoCopyingFile = '#039'Copying file "%s" to "%s"'#039';'#010+
|
|
|
+ ' SInfoDeletingFile = '#039'Deleting file "%s"'#039';'#010+
|
|
|
' SInfoSourceNewerDest = '#039'Source file "%s" (%s) is newer than d'+
|
|
|
- 'estination "%s" (%s).'#039';'#013#010+
|
|
|
- ' SInfoFallbackBuildmode = '#039'Buildmode not ','spported by package, '+
|
|
|
- 'falling back to one by one unit compilation'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'estina','tion "%s" (%s).'#039';'#010+
|
|
|
+ ' SInfoDestDoesNotExist = '#039'Destination file "%s" does not exist.'+
|
|
|
+ #039';'#010+
|
|
|
+ ' SInfoFallbackBuildmode = '#039'Buildmode not supported by package, f'+
|
|
|
+ 'alling back to one by one unit compilation'#039';'#010+
|
|
|
+ ' SInfoFallbackBuildmodeBU= '#039'Buildmode not',' supported by package,'+
|
|
|
+ ' falling back to compilation using a buildunit'#039';'#010+
|
|
|
+ #010+
|
|
|
' SDbgComparingFileTimes = '#039'Comparing file "%s" time "%s" to "%'+
|
|
|
- 's" time "%s".'#039';'#013#010+
|
|
|
+ 's" time "%s".'#039';'#010+
|
|
|
' SDbgCompilingDependenciesOfTarget = '#039'Compiling dependencies of t'+
|
|
|
- 'arget %s'#039';'#013#010+
|
|
|
+ 'arget %s'#039';'#010+
|
|
|
' SDbgRes','olvingSourcesOfTarget = '#039'Resolving filenames of target '+
|
|
|
- '%s for %s'#039';'#013#010+
|
|
|
+ '%s for %s'#039';'#010+
|
|
|
' SDbgResolvedSourceFile = '#039'Resolved source file %s to "%s"'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SDbgResolvedIncludeFile = '#039'Resolved include file %s to "%s"'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SDbgOutputNotYetAvailable = '#039'Output f','ile %s not available'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SDbgDependencyOnUnit = '#039'Dependency of %s on unit %s'#039';'#013+
|
|
|
- #010+
|
|
|
+ ';'#010+
|
|
|
+ ' SDbgSourceAlreadyResolved = '#039'Source file of %s has been resolved'+
|
|
|
+ ' earlier'#039';'#010+
|
|
|
+ ' SDbgResolvedIncludeFile = '#039,'Resolved include file %s to "%s"'#039+
|
|
|
+ ';'#010+
|
|
|
+ ' SDbgOutputNotYetAvailable = '#039'Output file %s not available'#039';'#010+
|
|
|
+ ' SDbgDependencyOnUnit = '#039'Dependency of %s on unit %s'#039';'#010+
|
|
|
' SDbgDependencyUnitRecompiled = '#039'Dependent unit %s is being recom'+
|
|
|
- 'piled'#039';'#013#010+
|
|
|
- ' SDbgMustCompile = '#039'Must compile %s'#039';'#013#010+
|
|
|
- ' SDbgSkippingTargetWrongCPU ','= '#039'Skipping target %s, different CP'+
|
|
|
- 'U (%s)'#039';'#013#010+
|
|
|
+ 'piled'#039';'#010+
|
|
|
+ ' SDbgMu','stCompile = '#039'Must compile %s. (%s)'#039';'#010+
|
|
|
+ ' SDbgSkippingTargetWrongCPU = '#039'Skipping target %s, different CPU '+
|
|
|
+ '(%s)'#039';'#010+
|
|
|
' SDbgSkippingTargetWrongOS = '#039'Skipping target %s, different OS ('+
|
|
|
- '%s)'#039';'#013#010+
|
|
|
- ' SDbgTargetIsNotAUnitOrProgram = '#039'Skipping Target %s, not an unit'+
|
|
|
- ' or program'#039';'#013#010+
|
|
|
- ' SDbgConsideringTarget = '#039'Considerin','g target %s'#039';'#013#010+
|
|
|
- ' SDbgConsideringPackage = '#039'Considering package %s'#039';'#013#010+
|
|
|
+ '%s)'#039';'#010+
|
|
|
+ ' SDbgTargetIsNotAUnitOrProgram = '#039'Skipping Targ','et %s, not an un'+
|
|
|
+ 'it or program'#039';'#010+
|
|
|
+ ' SDbgConsideringTarget = '#039'Considering target %s'#039';'#010+
|
|
|
+ ' SDbgConsideringPackage = '#039'Considering package %s'#039';'#010+
|
|
|
' SDbgExternalDependency = '#039'External dependency %s found in "%s'+
|
|
|
- '"'#039';'#013#010+
|
|
|
- ' SDbgBuildEngineArchiving = '#039'Build engine archiving'#039';'#013#010+
|
|
|
- ' SDbgBuildEngineGenerateManifests = '#039'Bu','ild engine generating ma'+
|
|
|
- 'nifests'#039';'#013#010+
|
|
|
- ' SDbgBuildEngineCleaning = '#039'Build engine cleaning'#039';'#013#010+
|
|
|
- ' SDbgGenerating = '#039'Generating "%s"'#039';'#013#010+
|
|
|
- ' SDbgLoading = '#039'Loading "%s"'#039';'#013#010+
|
|
|
- ' SDbgFound = '#039'Found'#039';'#013#010+
|
|
|
- ' SDbgNotFou','nd = '#039'Not Found'#039';'#013#010+
|
|
|
- ' SDbgDirectoryExists = '#039'Directory "%s" %s'#039';'#013#010+
|
|
|
- ' SDbgFileExists = '#039'File "%s" %s'#039';'#013#010+
|
|
|
- ' SDbgArchivingFile = '#039'Archiving "%s"'#039';'#013#010+
|
|
|
- ' SDbgSearchPath = '#039'Using %s path "%s"'#039';'#013#010+
|
|
|
- ' SDbgE','nterDir = '#039'Entering directory "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
+ '"'#039';'#010+
|
|
|
+ ' SDbgBuildEngineArchiving ',' = '#039'Build engine archiving'#039';'#010+
|
|
|
+ ' SDbgBuildEngineGenerateManifests = '#039'Build engine generating mani'+
|
|
|
+ 'fests'#039';'#010+
|
|
|
+ ' SDbgBuildEngineCleaning = '#039'Build engine cleaning'#039';'#010+
|
|
|
+ ' SDbgGenerating = '#039'Generating "%s"'#039';'#010+
|
|
|
+ ' SDbgLoading = '#039'Lo','ading "%s"'#039';'#010+
|
|
|
+ ' SDbgFound = '#039'Found'#039';'#010+
|
|
|
+ ' SDbgNotFound = '#039'Not Found'#039';'#010+
|
|
|
+ ' SDbgDirectoryExists = '#039'Directory "%s" %s'#039';'#010+
|
|
|
+ ' SDbgFileExists = '#039'File "%s" %s'#039';'#010+
|
|
|
+ ' SDbgArchivingFile = '#039'Archiving "%s"'#039';'#010,
|
|
|
+ ' SDbgSearchPath = '#039'Using %s path "%s"'#039';'#010+
|
|
|
+ ' SDbgEnterDir = '#039'Entering directory "%s"'#039';'#010+
|
|
|
' SDbgPackageChecksumChanged = '#039'Dependent package %s is modified'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SDbgFileDoesNotExist = '#039'File "%s" does not exist'#039';'#013#010+
|
|
|
- ' SDbgDirectoryDoesNotExist = '#039'Directory "%s" does not exist'#039';',
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' SDbgFileDoesNotExist = '#039'File "%s" does not exist'#039';'#010+
|
|
|
+ ' SDbg','DirectoryDoesNotExist = '#039'Directory "%s" does not exist'#039+
|
|
|
+ ';'#010+
|
|
|
' SDbgDirectoryNotEmpty = '#039'Directory "%s" is not empty. Will n'+
|
|
|
- 'ot remove'#039';'#013#010+
|
|
|
- ' SDbgGenerateBuildUnit = '#039'Generate build-unit %s'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Help messages for usage'#013#010+
|
|
|
- ' SValue = '#039'Value'#039';'#013#010+
|
|
|
- ' SHelpUsage = '#039'Usage: %s c','ommand [options]'#039';'#013#010+
|
|
|
+ 'ot remove'#039';'#010+
|
|
|
+ ' SDbgGenerateBuildUnit = '#039'Generate build-unit %s'#039';'#010+
|
|
|
+ ' SDbgForcedCompile = '#039'Forced compile'#039';'#010+
|
|
|
+ ' ',' SDbgOutputDoesNotExist = '#039'Output file does not exist'#039';'#010+
|
|
|
+ ' SDbgNewerSource = '#039'Source file is newer then output fi'+
|
|
|
+ 'le'#039';'#010+
|
|
|
+ ' SDbgNewerInclude = '#039'The include file %s is newer then o'+
|
|
|
+ 'utput file'#039';'#010+
|
|
|
+ ' SDbgDependencyRecompiled = '#039,'The unit %s where this unit depend'+
|
|
|
+ 's on is recompiled'#039';'#010+
|
|
|
+ ' SDbgPackageDepRecompiled = '#039'The package %s where this package d'+
|
|
|
+ 'epends on is recompiled'#039';'#010+
|
|
|
+ ' SDbgTargetHasToBeCompiled = '#039'At least one of the targets in the '+
|
|
|
+ 'package has to be compiled.',#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' // Help messages for usage'#010+
|
|
|
+ ' SValue = '#039'Value'#039';'#010+
|
|
|
+ ' SHelpUsage = '#039'Usage: %s command [options]'#039';'#010+
|
|
|
' SHelpCommand = '#039'Where command is one of the following:'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SHelpCompile = '#039'Compile all units in the package(s).'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SHelpBuild = '#039'Build all units in the package(s).'#039';'#013+
|
|
|
+ ';'#010+
|
|
|
+ ' SHelpCompile = '#039'Compile all units in the pac','kage(s).'#039+
|
|
|
+ ';'#010+
|
|
|
+ ' SHelpBuild = '#039'Build all units in the package(s).'#039';'#010+
|
|
|
+ ' SHelpInstall = '#039'Install all units in the package(s).'#039';'+
|
|
|
#010+
|
|
|
- ' SHelpInstall = '#039,'Install all units in the package(s).'#039+
|
|
|
- ';'#013#010+
|
|
|
' SHelpClean = '#039'Clean (remove) all units in the package(s'+
|
|
|
- ').'#039';'#013#010+
|
|
|
- ' SHelpArchive = '#039'Create archive (zip) with all units in th'+
|
|
|
- 'e package(s).'#039';'#013#010+
|
|
|
- ' SHelpHelp = '#039'This message.'#039';'#013#010+
|
|
|
- ' S','HelpManifest = '#039'Create a manifest suitable for import i'+
|
|
|
- 'n repository.'#039';'#013#010+
|
|
|
+ ').'#039';'#010+
|
|
|
+ ' SHelpArchive = '#039'Create ','archive (zip) with all units in '+
|
|
|
+ 'the package(s).'#039';'#010+
|
|
|
+ ' SHelpHelp = '#039'This message.'#039';'#010+
|
|
|
+ ' SHelpManifest = '#039'Create a manifest suitable for import in '+
|
|
|
+ 'repository.'#039';'#010+
|
|
|
' SHelpCmdOptions = '#039'Where options is one or more of the follo'+
|
|
|
- 'wing:'#039';'#013#010+
|
|
|
- ' SHelpCPU = '#039'Compile for indicated CPU.'#039';'#013#010+
|
|
|
- ' SHelpOS = '#039'Compile',' for indicated OS'#039';'#013#010+
|
|
|
- ' SHelpTarget = '#039'Compile for indicated target'#039';'#013#010+
|
|
|
+ 'win','g:'#039';'#010+
|
|
|
+ ' SHelpCPU = '#039'Compile for indicated CPU.'#039';'#010+
|
|
|
+ ' SHelpOS = '#039'Compile for indicated OS'#039';'#010+
|
|
|
+ ' SHelpTarget = '#039'Compile for indicated target'#039';'#010+
|
|
|
' SHelpList = '#039'list commands instead of actually executi'+
|
|
|
- 'ng them.'#039';'#013#010+
|
|
|
+ 'ng them','.'#039';'#010+
|
|
|
' SHelpPrefix = '#039'Use indicated prefix directory for all co'+
|
|
|
- 'mmands.'#039';'#013#010+
|
|
|
- ' SHelp','NoFPCCfg = '#039'Compiler will not use fpc.cfg'#039';'#013+
|
|
|
- #010+
|
|
|
+ 'mmands.'#039';'#010+
|
|
|
+ ' SHelpNoFPCCfg = '#039'Compiler will not use fpc.cfg'#039';'#010+
|
|
|
' SHelpBaseInstallDir = '#039'Use indicated directory as base install d'+
|
|
|
- 'ir.'#039';'#013#010+
|
|
|
- ' SHelpLocalUnitDir = '#039'Use indicated directory as local (user) u'+
|
|
|
- 'nit dir.'#039';'#013#010+
|
|
|
- ' SHelpGlobalUnitDir = '#039'Use indicated',' directory as global unit '+
|
|
|
- 'dir.'#039';'#013#010+
|
|
|
+ 'ir.'#039';'#010+
|
|
|
+ ' SHelpLocalUnitDir = '#039'Use in','dicated directory as local (user)'+
|
|
|
+ ' unit dir.'#039';'#010+
|
|
|
+ ' SHelpGlobalUnitDir = '#039'Use indicated directory as global unit di'+
|
|
|
+ 'r.'#039';'#010+
|
|
|
' SHelpUnitInstallDir = '#039'Use indicated directory to install units '+
|
|
|
- 'into.'#039';'#013#010+
|
|
|
- ' SHelpCompiler = '#039'Use indicated binary as compiler'#039';'#013+
|
|
|
- #010+
|
|
|
+ 'into.'#039';'#010+
|
|
|
+ ' SHelpCompiler = '#039'Use indicated binary as ','compiler'#039';'#010+
|
|
|
' SHelpConfig = '#039'Use indicated config file when compiling.'+
|
|
|
- #039';'#013#010,
|
|
|
+ #039';'#010+
|
|
|
' SHelpOptions = '#039'Pass extra options to the compiler.'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SHelpVerbose = '#039'Be verbose when working.'#039';'#013#010+
|
|
|
- ' SHelpInstExamples = '#039'Install the example-sources.'#039';'#013#010+
|
|
|
- ' SHelpIgnoreInvOpt = '#039'Ignore further invalid options.'#039';'#013+
|
|
|
#010+
|
|
|
- ' sHel','pFpdocOutputDir = '#039'Use indicated directory as fpdoc output'+
|
|
|
- ' folder.'#039';'#013#010+
|
|
|
+ ' SHelpVerbose = '#039'Be verbose when working.'#039';'#010+
|
|
|
+ ' SHelpInstExamples = '#039'Install the example-','sources.'#039';'#010+
|
|
|
+ ' SHelpSkipCrossProgs = '#039'Skip programs when cross-compiling/instal'+
|
|
|
+ 'ling'#039';'#010+
|
|
|
+ ' SHelpIgnoreInvOpt = '#039'Ignore further invalid options.'#039';'#010+
|
|
|
+ ' sHelpFpdocOutputDir = '#039'Use indicated directory as fpdoc output f'+
|
|
|
+ 'older.'#039';'#010+
|
|
|
+ ' sHelpThreads ','= '#039'Enable the indicated amount of worker t'+
|
|
|
+ 'hreads.'#039';'#010+
|
|
|
' sHelpUseEnvironment = '#039'Use environment to pass options to compil'+
|
|
|
- 'er.'#039';'#013#010+
|
|
|
+ 'er.'#039';'#010+
|
|
|
' SHelpUseBuildUnit = '#039'Compile package in Build-unit mode.'#039';'+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Const'#013#010+
|
|
|
- ' // Keys for Defaults',' file. Do not localize.'#013#010+
|
|
|
- ' KeyCompiler = '#039'Compiler'#039';'#013#010+
|
|
|
- ' KeyArchive = '#039'Archive'#039';'#013#010+
|
|
|
- ' KeyCopy = '#039'Copy'#039';'#013#010+
|
|
|
- ' KeyMkDir = '#039'MkDir'#039';'#013#010+
|
|
|
- ' KeyMove = '#039'Move'#039';'#013#010+
|
|
|
- ' KeyRemove = '#039'Remove'#039';'#013#010+
|
|
|
- ' KeyRemoveDir= '#039'RemoveDir'#039';'#013#010+
|
|
|
- ' KeyRemoveTree= '#039'RemoveT','ree'#039';'#013#010+
|
|
|
- ' KeyOptions = '#039'Options'#039';'#013#010+
|
|
|
- ' KeyCPU = '#039'CPU'#039';'#013#010+
|
|
|
- ' KeyOS = '#039'OS'#039';'#013#010+
|
|
|
- ' KeyMode = '#039'Mode'#039';'#013#010+
|
|
|
- ' KeyPrefix = '#039'Prefix'#039';'#013#010+
|
|
|
- ' KeyTarget = '#039'Target'#039';'#013#010+
|
|
|
- ' KeyNoFPCCfg = '#039'NoFPCCfg'#039';'#013#010+
|
|
|
- ' KeyUseEnv = '#039'UseEnv'#039';'#013#010+
|
|
|
- ' KeyLocalUnitDir ',' = '#039'LocalUnitDir'#039';'#013#010+
|
|
|
- ' KeyGlobalUnitDir = '#039'GlobalUnitDir'#039';'#013#010+
|
|
|
- ' KeyBaseInstallDir = '#039'BaseInstallDir'#039';'#013#010+
|
|
|
- ' KeyUnitInstallDir = '#039'UnitInstallDir'#039';'#013#010+
|
|
|
- ' KeyBinInstallDir = '#039'BinInstallDir'#039';'#013#010+
|
|
|
- ' KeyDocInstallDir = '#039'DocInstallDir'#039';',#013#010+
|
|
|
- ' KeyExamplesInstallDir = '#039'ExamplesInstallDir'#039';'#013#010+
|
|
|
- ' KeyInstallExamples = '#039'InstallExamples'#039';'#013#010+
|
|
|
- ' // Keys for unit config'#013#010+
|
|
|
- ' KeyName = '#039'Name'#039';'#013#010+
|
|
|
- ' KeyVersion = '#039'Version'#039';'#013#010+
|
|
|
- ' KeyChecksum = '#039'Checksum'#039';'#013#010+
|
|
|
- ' KeyNeedLibC = '#039'NeedLibC'#039';'#013#010+
|
|
|
- ' Key','Depends = '#039'Depends'#039';'#013#010+
|
|
|
- ' KeyAddIn = '#039'FPMakeAddIn'#039';'#013#010+
|
|
|
- ' KeySourcePath = '#039'SourcePath'#039';'#013#010+
|
|
|
- ' KeyFPMakeOptions = '#039'FPMakeOptions'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ','Helpers'#013#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' // Keys for Defaults file. Do not localize.',#010+
|
|
|
+ ' KeyCompiler = '#039'Compiler'#039';'#010+
|
|
|
+ ' KeyArchive = '#039'Archive'#039';'#010+
|
|
|
+ ' KeyCopy = '#039'Copy'#039';'#010+
|
|
|
+ ' KeyMkDir = '#039'MkDir'#039';'#010+
|
|
|
+ ' KeyMove = '#039'Move'#039';'#010+
|
|
|
+ ' KeyRemove = '#039'Remove'#039';'#010+
|
|
|
+ ' KeyRemoveDir= '#039'RemoveDir'#039';'#010+
|
|
|
+ ' KeyRemoveTree= '#039'RemoveTree'#039';'#010+
|
|
|
+ ' KeyOptions = '#039'Options'#039,';'#010+
|
|
|
+ ' KeyCPU = '#039'CPU'#039';'#010+
|
|
|
+ ' KeyOS = '#039'OS'#039';'#010+
|
|
|
+ ' KeyMode = '#039'Mode'#039';'#010+
|
|
|
+ ' KeyPrefix = '#039'Prefix'#039';'#010+
|
|
|
+ ' KeyTarget = '#039'Target'#039';'#010+
|
|
|
+ ' KeyNoFPCCfg = '#039'NoFPCCfg'#039';'#010+
|
|
|
+ ' KeyUseEnv = '#039'UseEnv'#039';'#010+
|
|
|
+ ' KeyLocalUnitDir = '#039'LocalUnitDir'#039';'#010+
|
|
|
+ ' KeyGlobalUnitDir ',' = '#039'GlobalUnitDir'#039';'#010+
|
|
|
+ ' KeyBaseInstallDir = '#039'BaseInstallDir'#039';'#010+
|
|
|
+ ' KeyUnitInstallDir = '#039'UnitInstallDir'#039';'#010+
|
|
|
+ ' KeyBinInstallDir = '#039'BinInstallDir'#039';'#010+
|
|
|
+ ' KeyDocInstallDir = '#039'DocInstallDir'#039';'#010+
|
|
|
+ ' KeyExamplesInstallDir = '#039'ExamplesInstallDi','r'#039';'#010+
|
|
|
+ ' KeyInstallExamples = '#039'InstallExamples'#039';'#010+
|
|
|
+ ' KeySkipCrossProdrams = '#039'SkipCrossPrograms'#039';'#010+
|
|
|
+ ' // Keys for unit config'#010+
|
|
|
+ ' KeyName = '#039'Name'#039';'#010+
|
|
|
+ ' KeyVersion = '#039'Version'#039';'#010+
|
|
|
+ ' KeyChecksum = '#039'Checksum'#039';'#010+
|
|
|
+ ' KeyNeedLibC = '#039'NeedLibC'#039';'#010+
|
|
|
+ ' KeyDepend','s = '#039'Depends'#039';'#010+
|
|
|
+ ' KeyFlags = '#039'Flags'#039';'#010+
|
|
|
+ ' KeyAddIn = '#039'FPMakeAddIn'#039';'#010+
|
|
|
+ ' KeySourcePath = '#039'SourcePath'#039';'#010+
|
|
|
+ ' KeyFPMakeOptions = '#039'FPMakeOptions'#039';'#010+
|
|
|
+ ' KeyPackageVar = '#039'PackageVariant_'#039';'#010+
|
|
|
+ #010+
|
|
|
+ '{***********************************************************','********'+
|
|
|
+ '*********'#010+
|
|
|
+ ' Helpers'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
'function ExecuteFPC(Verbose: boolean; const Path: string; const ComLin'+
|
|
|
- 'e: string; const Env: TStrings; ConsoleOutput: TMemor','yStream): integ'+
|
|
|
- 'er;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' P: TProcess;'#013#010+
|
|
|
- ' BytesRead: longint;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' function ReadFromStream: longint;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' const'#013#010+
|
|
|
- ' READ_BYTES = 2048;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' type'#013#010+
|
|
|
- ' TMessages = (mCompiling, mLinking);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' //ifdef the MsgNum so it contains the ','correct message numbers fo'+
|
|
|
- 'r each compiler version.'#013#010+
|
|
|
- ' MsgNum : array [TMessages] of integer = (3104, 9015);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' n: longint;'#013#010+
|
|
|
- ' BuffPos: longint;'#013#010+
|
|
|
- ' sLine: string;'#013#010+
|
|
|
- ' ch: char;'#013#010+
|
|
|
- ' msg: TMessages;'#013#010+
|
|
|
- ' ipos: integer;'#013#010+
|
|
|
- ' snum: s','tring;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // make sure we have room'#013#010+
|
|
|
- ' ConsoleOutput.SetSize(BytesRead + READ_BYTES);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // try reading it'#013#010+
|
|
|
+ 'e: stri','ng; const Env: TStrings; ConsoleOutput: TMemoryStream): integ'+
|
|
|
+ 'er;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' P: TProcess;'#010+
|
|
|
+ ' BytesRead: longint;'#010+
|
|
|
+ #010+
|
|
|
+ ' function ReadFromStream: longint;'#010+
|
|
|
+ #010+
|
|
|
+ ' const'#010+
|
|
|
+ ' READ_BYTES = 2048;'#010+
|
|
|
+ #010+
|
|
|
+ ' type'#010+
|
|
|
+ ' TMessages = (mCompiling, mLinking);'#010+
|
|
|
+ #010+
|
|
|
+ ' var'#010+
|
|
|
+ ' //ifde','f the MsgNum so it contains the correct message numbers fo'+
|
|
|
+ 'r each compiler version.'#010+
|
|
|
+ ' MsgNum : array [TMessages] of integer = (3104, 9015);'#010+
|
|
|
+ #010+
|
|
|
+ ' n: longint;'#010+
|
|
|
+ ' BuffPos: longint;'#010+
|
|
|
+ ' sLine: string;'#010+
|
|
|
+ ' ch: char;'#010+
|
|
|
+ ' msg: TMessages;'#010+
|
|
|
+ ' ipo','s: integer;'#010+
|
|
|
+ ' snum: string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // make sure we have room'#010+
|
|
|
+ ' ConsoleOutput.SetSize(BytesRead + READ_BYTES);'#010+
|
|
|
+ #010+
|
|
|
+ ' // try reading it'#010+
|
|
|
' n := P.Output.Read((ConsoleOutput.Memory + BytesRead)^, READ_BYTES'+
|
|
|
- ');'#013#010+
|
|
|
- ' if n > 0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Inc(B','ytesRead, n);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' sLine := '#039#039';'#013#010+
|
|
|
- ' BuffPos := ConsoleOutput.Position;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //read lines from the stream'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' ConsoleOutput.Read(ch,1);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if ch in [#10, #13] then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Verbose th','en'#013#010+
|
|
|
- ' writeln(sLine)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' for msg := Low(TMessages) to High(TMessages) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' snum := Format('#039'(%d)'#039', [MsgNum[msg]]);'#013#010+
|
|
|
- ' ipos := Pos(snum,',' sLine);'#013#010+
|
|
|
- ' if ipos = 1 then'#013#010+
|
|
|
- ' writeln('#039' '#039', Copy(sLine, ipos + Length('+
|
|
|
- 'snum), Length(sLine) - ipos - Length(snum) + 1));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' sLine := '#039#039';'#013#010+
|
|
|
- ' BuffPos :','= ConsoleOutput.Position;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' sLine := sLine + ch;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' until ConsoleOutput.Position >= BytesRead;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ConsoleOutput.Position := BuffPos;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // no data, wait 100 m','s'#013#010+
|
|
|
- ' Sleep(100);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Result := n;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := -1;'#013#010+
|
|
|
- ' BytesRead := 0;'#013#010+
|
|
|
- ' P := TProcess.Create(nil);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' P.CommandLine := Path + '#039' '#039' + ComLine;'#013#010+
|
|
|
- ' if assigned(Env) then'#013#010+
|
|
|
- ' P.Environment.Assign(','Env);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' P.Options := [poUsePipes];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' P.Execute;'#013#010+
|
|
|
- ' while P.Running do'#013#010+
|
|
|
- ' ReadFromStream;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // read last part'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' until ReadFromStream = 0;'#013#010+
|
|
|
- ' ConsoleOutput.SetSize(BytesRead);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' result := P.ExitStatu','s;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' P.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function IsDirectoryEmpty(const directory : string) : boolean;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' searchRec: TSearchRec;'#013#010+
|
|
|
- ' SearchResult: longint;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := true;'#013#010+
|
|
|
- ' SearchResult := Find','First(IncludeTrailingPathDelimiter(directory)+'+
|
|
|
- 'AllFilesMask, faAnyFile+faSymLink, searchRec);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' while SearchResult=0 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ ');'#010+
|
|
|
+ ' if n > 0 then'#010+
|
|
|
+ ' beg','in'#010+
|
|
|
+ ' Inc(BytesRead, n);'#010+
|
|
|
+ #010+
|
|
|
+ ' sLine := '#039#039';'#010+
|
|
|
+ ' BuffPos := ConsoleOutput.Position;'#010+
|
|
|
+ #010+
|
|
|
+ ' //read lines from the stream'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' ConsoleOutput.Read(ch,1);'#010+
|
|
|
+ #010+
|
|
|
+ ' if ch in [#10, #13] then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Verbose',' then'#010+
|
|
|
+ ' installer.log(vlInfo,sLine)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' for msg := Low(TMessages) to High(TMessages) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' snum := Format('#039'(%d)'#039', [MsgNum[msg]]);'#010+
|
|
|
+ ' ipos := ','Pos(snum, sLine);'#010+
|
|
|
+ ' if ipos = 1 then'#010+
|
|
|
+ ' installer.log(vlCommand,'#039' '#039'+ Copy(sLine'+
|
|
|
+ ', ipos + Length(snum), Length(sLine) - ipos - Length(snum) + 1));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (LineEnding=','#13#10) and (ch=#13) and'#010+
|
|
|
+ ' (ConsoleOutput.Position<BytesRead) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ConsoleOutput.Read(ch,1);'#010+
|
|
|
+ ' if ch=#10 then'#010+
|
|
|
+ ' sLine:='#039#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' sLine:=ch;'#010+
|
|
|
+ ' ',' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' sLine := '#039#039';'#010+
|
|
|
+ ' BuffPos := ConsoleOutput.Position;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' sLine := sLine + ch;'#010+
|
|
|
+ #010+
|
|
|
+ ' until ConsoleOutput.Position >= BytesRead;'#010+
|
|
|
+ #010+
|
|
|
+ ' ConsoleOutput.Position := Buf','fPos;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // no data, wait 100 ms'#010+
|
|
|
+ ' Sleep(100);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' Result := n;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := -1;'#010+
|
|
|
+ ' BytesRead := 0;'#010+
|
|
|
+ ' P := TProcess.Create(nil);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' P.CommandLine := Path + '#039' '#039' + ComLine;'#010+
|
|
|
+ ' if',' assigned(Env) then'#010+
|
|
|
+ ' P.Environment.Assign(Env);'#010+
|
|
|
+ #010+
|
|
|
+ ' P.Options := [poUsePipes];'#010+
|
|
|
+ #010+
|
|
|
+ ' P.Execute;'#010+
|
|
|
+ ' while P.Running do'#010+
|
|
|
+ ' ReadFromStream;'#010+
|
|
|
+ #010+
|
|
|
+ ' // read last part'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' until ReadFromStream = 0;'#010+
|
|
|
+ ' ConsoleOutput.SetSize(Byte','sRead);'#010+
|
|
|
+ #010+
|
|
|
+ ' result := P.ExitStatus;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' P.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif HAS_UNIT_PROCESS}'#010+
|
|
|
+ #010+
|
|
|
+ 'function IsDirectoryEmpty(const directory : string) : boolean;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' searchRec: TSearchRec;'#010+
|
|
|
+ ' SearchResult: longint;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := true;'#010+
|
|
|
+ ' ',' SearchResult := FindFirst(IncludeTrailingPathDelimiter(directory)+'+
|
|
|
+ 'AllFilesMask, faAnyFile+faSymLink, searchRec);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' while SearchResult=0 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
' if (searchRec.Name<>'#039'.'#039') and (searchRec.Name<>'#039'..'#039+
|
|
|
- ') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ','result := false;'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' SearchResult := FindNext(searchRec);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' FindClose(searchRec);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function ParsecompilerOutput(M: TMemoryStream; Verbose: boolean): stri'+
|
|
|
- 'ng',';'#013#010+
|
|
|
- 'type'#013#010+
|
|
|
+ ') then'#010+
|
|
|
+ ' begi','n'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' SearchResult := FindNext(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FindClose(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function ParsecompilerOutput(M: TMemoryStream; Verbose: boolean): s','t'+
|
|
|
+ 'ring;'#010+
|
|
|
+ 'type'#010+
|
|
|
' TParseCompilerOutputState = (cosBeginOfLine, cosSearchColon, cosPars'+
|
|
|
- 'eNumber, cosOther);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' presult: pchar;'#013#010+
|
|
|
- ' state: TParseCompilerOutputState;'#013#010+
|
|
|
- ' ch: char;'#013#010+
|
|
|
- ' eolchar: char;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' m.Seek(0, soBeginning);'#013#010+
|
|
|
- ' setlength(','Result,M.Size);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if verbose then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' m.Read(Result[1],M.Size);'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' presult := @Result[1];'#013#010+
|
|
|
- ' eolchar := RightStr(LineEnding,1)[1];'#013#010+
|
|
|
- ' m.Seek(0,soBeginning);'#013#010+
|
|
|
- ' state := cosBeginOfLine;'#013#010+
|
|
|
- ' while m.Po','sition<m.Size do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ch := char(m.ReadByte);'#013#010+
|
|
|
- ' case state of'#013#010+
|
|
|
- ' cosBeginOfLine:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if ch='#039'('#039' then'#013#010+
|
|
|
- ' state := cosParseNumber'#013#010+
|
|
|
- ' else if ch='#039' '#039' then'#013#010+
|
|
|
- ' beg','in'#013#010+
|
|
|
- ' presult^ := ch;'#013#010+
|
|
|
- ' inc(presult);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' presult^ := ch;'#013#010+
|
|
|
- ' inc(presult);'#013#010+
|
|
|
- ' state := cosSearchColon;'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' cosParseNumber:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if ch='#039')'#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' state := cosOther;'#013#010+
|
|
|
- ' // Omit the space behind the number'#013#010+
|
|
|
- ' ch := char(m.ReadByte)',';'#013#010+
|
|
|
- ' assert(ch='#039' '#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' cosOther:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' presult^ := ch;'#013#010+
|
|
|
- ' inc(presult);'#013#010+
|
|
|
- ' if ch=eolchar then'#013#010+
|
|
|
- ' state := cosBeginOfLine;'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' cosSearchColon:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' presult^ := ch;'#013#010+
|
|
|
- ' inc(presult);'#013#010+
|
|
|
- ' if (ch='#039':'#039') or (ch=eolchar) then'#013#010+
|
|
|
- ' state := cosBeginOfLine;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' setlen','gth(Result,presult-@result[1]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function QuoteXML(S : String) : string;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure W(Var J : Integer; Var R : String; T : String);'#013#010+
|
|
|
- ' Var'#013#010+
|
|
|
- ' I: integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If J+Length(T)>Length(R) then'#013#010+
|
|
|
- ' SetLength(R,J+Length(','T));'#013#010+
|
|
|
- ' For I:=1 to Length(t) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' R[J]:=T[i];'#013#010+
|
|
|
- ' If I<Length(T) then'#013#010+
|
|
|
- ' Inc(J);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'const'#013#010+
|
|
|
- ' QuotStr = '#039'"'#039';'#013#010+
|
|
|
- ' AmpStr = '#039'&'#039';'#013#010+
|
|
|
- ' ltStr = '#039'<'#039';'#013#010+
|
|
|
- ' gtStr = '#039'>'#039';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I,J : Inte','ger;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' SetLength(Result,Length(S));'#013#010+
|
|
|
- ' J:=0;'#013#010+
|
|
|
- ' For I:=1 to Length(S) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Inc(J);'#013#010+
|
|
|
- ' case S[i] of'#013#010+
|
|
|
- ' '#039'"'#039': W(j,Result,QuotStr);'#013#010+
|
|
|
- ' '#039'&'#039': W(J,Result,AmpStr);'#013#010+
|
|
|
- ' '#039'<'#039': W(J,Result,ltStr);'#013#010+
|
|
|
- ' '#039'>'#039': W(J,Resul','t,gtStr);'#013#010+
|
|
|
+ 'eNumber, cosOther);'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' presult: pchar;'#010+
|
|
|
+ ' state: TParseCompilerOutputState;'#010+
|
|
|
+ ' ch: char;'#010+
|
|
|
+ ' eolchar: char;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' m.Seek(0, soBeginning);'#010+
|
|
|
+ ' setlength(Result',',M.Size);'#010+
|
|
|
+ #010+
|
|
|
+ ' if verbose then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' m.Read(Result[1],M.Size);'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' presult := @Result[1];'#010+
|
|
|
+ ' eolchar := RightStr(LineEnding,1)[1];'#010+
|
|
|
+ ' m.Seek(0,soBeginning);'#010+
|
|
|
+ ' state := cosBeginOfLine;'#010+
|
|
|
+ ' while m.Position<m.Size do'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' ch := char(m.ReadByte);'#010+
|
|
|
+ ' case state of'#010+
|
|
|
+ ' cosBeginOfLine:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if ch='#039'('#039' then'#010+
|
|
|
+ ' state := cosParseNumber'#010+
|
|
|
+ ' else if ch='#039' '#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' presult^',' := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' presult^ := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' state := cosSearchColon;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' co','sParseNumber:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if ch='#039')'#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' state := cosOther;'#010+
|
|
|
+ ' // Omit the space behind the number'#010+
|
|
|
+ ' ch := char(m.ReadByte);'#010+
|
|
|
+ ' assert(ch='#039' '#039');'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' cosOther:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' presult^ := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' if ch=eolchar then'#010+
|
|
|
+ ' state := cosBeginOfLine;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' cosSearchColon:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' presult^ := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' if (ch='#039':'#039') or (ch=eolchar) then'#010+
|
|
|
+ ' state := cosBeginOfLine;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' setlength(Result,presult-@result[1]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function QuoteXML(S : Stri','ng) : string;'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure W(Var J : Integer; Var R : String; T : String);'#010+
|
|
|
+ ' Var'#010+
|
|
|
+ ' I: integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If J+Length(T)>Length(R) then'#010+
|
|
|
+ ' SetLength(R,J+Length(T));'#010+
|
|
|
+ ' For I:=1 to Length(t) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' R[J]:=T[i];'#010+
|
|
|
+ ' If I','<Length(T) then'#010+
|
|
|
+ ' Inc(J);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'const'#010+
|
|
|
+ ' QuotStr = '#039'"'#039';'#010+
|
|
|
+ ' AmpStr = '#039'&'#039';'#010+
|
|
|
+ ' ltStr = '#039'<'#039';'#010+
|
|
|
+ ' gtStr = '#039'>'#039';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I,J : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' SetLength(Result,Length(S));'#010+
|
|
|
+ ' J:=0;'#010+
|
|
|
+ ' For I:=1 to Length(S) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' Inc(J);'#010+
|
|
|
+ ' case S[i] of'#010+
|
|
|
+ ' '#039'"'#039': W(j,Result,QuotStr);'#010+
|
|
|
+ ' '#039'&'#039': W(J,Result,AmpStr);'#010+
|
|
|
+ ' '#039'<'#039': W(J,Result,ltStr);'#010+
|
|
|
+ ' '#039'>'#039': W(J,Result,gtStr);'#010+
|
|
|
' // Escape whitespace using CharRefs to be consistent with W3 spe'+
|
|
|
- 'c X 3.3.3'#013#010+
|
|
|
- ' #9: w(J,Result,'#039'	'#039');'#013#010+
|
|
|
- '{ #10: wrtStr('#039'
'#039');'#013#010+
|
|
|
- ' #13: wrtStr('#039'
'#039');}'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result[J]:=S[i];'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If (J=','Length(Result)) and (I<Length(S)) then'#013#010+
|
|
|
- ' SetLength(Result,J+Length(S)-I);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If J<>Length(Result) then'#013#010+
|
|
|
- ' SetLength(Result,J);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function maybequoted(const s:string):string;'#013#010+
|
|
|
- 'const'#013#010+
|
|
|
- ' {$IFDEF MSWINDOWS}'#013#010+
|
|
|
- ' FORBID','DEN_CHARS = ['#039'!'#039', '#039'@'#039', '#039'#'#039', '#039'$'+
|
|
|
- #039', '#039'%'#039', '#039'^'#039', '#039'&'#039', '#039'*'#039', '#039'('#039', '+
|
|
|
- #039')'#039','#013#010+
|
|
|
+ 'c X 3.3.3'#010+
|
|
|
+ ' #9:',' w(J,Result,'#039'	'#039');'#010+
|
|
|
+ '{ #10: wrtStr('#039'
'#039');'#010+
|
|
|
+ ' #13: wrtStr('#039'
'#039');}'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result[J]:=S[i];'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If (J=Length(Result)) and (I<Length(S)) then'#010+
|
|
|
+ ' SetLength(Result,J+Length(S)-I);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If J<>Length(Result',') then'#010+
|
|
|
+ ' SetLength(Result,J);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function maybequoted(const s:string):string;'#010+
|
|
|
+ 'const'#010+
|
|
|
+ ' {$IFDEF MSWINDOWS}'#010+
|
|
|
+ ' FORBIDDEN_CHARS = ['#039'!'#039', '#039'@'#039', '#039'#'#039', '#039'$'#039+
|
|
|
+ ', '#039'%'#039', '#039'^'#039', '#039'&'#039', '#039'*'#039', '#039'('#039', '#039+
|
|
|
+ ')'#039','#010+
|
|
|
' '#039'{'#039', '#039'}'#039', '#039#039#039#039', '#039'`'+
|
|
|
- #039', '#039'~'#039'];'#013#010+
|
|
|
- ' {$ELSE}'#013#010+
|
|
|
+ #039', '#039'~'#039'];'#010+
|
|
|
+ ' {$EL','SE}'#010+
|
|
|
' FORBIDDEN_CHARS = ['#039'!'#039', '#039'@'#039', '#039'#'#039', '#039'$'#039+
|
|
|
', '#039'%'#039', '#039'^'#039', '#039'&'#039', '#039'*'#039', '#039'('#039', '#039+
|
|
|
- ')'#039','#013#010+
|
|
|
- ' '#039'{'#039', '#039'}'#039', '#039#039#039#039', '#039,
|
|
|
- ':'#039', '#039'\'#039', '#039'`'#039', '#039'~'#039'];'#013#010+
|
|
|
- ' {$ENDIF}'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' s1 : string;'#013#010+
|
|
|
- ' i : integer;'#013#010+
|
|
|
- ' quoted : boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' quoted:=false;'#013#010+
|
|
|
- ' s1:='#039'"'#039';'#013#010+
|
|
|
- ' for i:=1 to length(s) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' case s[i] of'#013#010+
|
|
|
- ' '#039'"'#039' :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' quoted:=true;',#013#010+
|
|
|
- ' s1:=s1+'#039'\"'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' '#039' '#039','#013#010+
|
|
|
- ' #128..#255 :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' quoted:=true;'#013#010+
|
|
|
- ' s1:=s1+s[i];'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' else begin'#013#010+
|
|
|
- ' if s[i] in FORBIDDEN_CHARS then'#013#010+
|
|
|
- ' quoted:=Tr','ue;'#013#010+
|
|
|
- ' s1:=s1+s[i];'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if quoted then'#013#010+
|
|
|
- ' maybequoted:=s1+'#039'"'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' maybequoted:=s;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure ReadIniFile(Const AFileName: String;L:TStrings);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- ' Line : Str','ing;'#013#010+
|
|
|
- ' I,P,PC : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmOpenRead);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' L.LoadFromStream(F);'#013#010+
|
|
|
- ' // Fix lines.'#013#010+
|
|
|
- ' For I:=L.Count-1 downto 0 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Line:=L[I];'#013#010+
|
|
|
- ' P:=Pos('#039'='#039',Line);'#013#010+
|
|
|
- ' PC:','=Pos('#039';'#039',Line); // Comment line.'#013#010+
|
|
|
- ' If (P=0) or ((PC<>0) and (PC<P)) then'#013#010+
|
|
|
- ' L.Delete(I)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ ')'#039','#010+
|
|
|
+ ' '#039'{'#039', '#039'}'#039', '#039#039#039#039', '#039':'+
|
|
|
+ #039', '#039'\'#039', '#039'`'#039', '#039'~'#039'];'#010+
|
|
|
+ ' {$ENDIF}'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' s1 : string;'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ ' quoted : boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' quoted:=false;'#010+
|
|
|
+ ' s1:='#039'"'#039';'#010+
|
|
|
+ ' f','or i:=1 to length(s) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' case s[i] of'#010+
|
|
|
+ ' '#039'"'#039' :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' quoted:=true;'#010+
|
|
|
+ ' s1:=s1+'#039'\"'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' '#039' '#039','#010+
|
|
|
+ ' #128..#255 :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' quoted:=true;'#010+
|
|
|
+ ' s1:=s1+s[i];'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' else begin'#010+
|
|
|
+ ' if s[i] in FORBIDDEN_CHARS then'#010+
|
|
|
+ ' quoted:=True;'#010+
|
|
|
+ ' s1:=s1+s[i];'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if quoted then'#010+
|
|
|
+ ' maybequoted:=s1+'#039'"'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' maybequoted:=s;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure ReadIni','File(Const AFileName: String;L:TStrings);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ ' Line : String;'#010+
|
|
|
+ ' I,P,PC : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // On some file systems and when using a large number of parallel ma'+
|
|
|
+ 'ke'#010+
|
|
|
+ ' // processes, the lock from the creation of the ini file ','may not y'+
|
|
|
+ 'et'#010+
|
|
|
+ ' // have been released even though the file has been closed already'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' L.LoadFromStream(F);'#010+
|
|
|
+ ' // Fix lines.'#010+
|
|
|
+ ' For I:=L.Count-1 downto 0 do'#010+
|
|
|
+ ' begin',#010+
|
|
|
+ ' Line:=L[I];'#010+
|
|
|
+ ' P:=Pos('#039'='#039',Line);'#010+
|
|
|
+ ' PC:=Pos('#039';'#039',Line); // Comment line.'#010+
|
|
|
+ ' If (P=0) or ((PC<>0) and (PC<P)) then'#010+
|
|
|
+ ' L.Delete(I)'#010+
|
|
|
+ ' else'#010+
|
|
|
' L[i]:=Trim(System.Copy(Line,1,P-1)+'#039'='#039'+Trim(System.C'+
|
|
|
- 'opy(Line,P+1,Length(Line)-P)));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' ',' F.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '// Callback for Sysutils getapplicationname.'#013#010+
|
|
|
- 'Function GetFPMakeName : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039'fpmake'#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function CurrentOS : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=OSToString(Defaults.OS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function ','CurrentCPU : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=CPUToString(Defaults.CPU);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OSToString(OS: TOS) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=LowerCase(GetenumName(TypeInfo(TOS),Ord(OS)));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OSesToString(OSes: TOSes) : String;'#013#010+
|
|
|
- #013#010,
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=LowerCase(SetToString(PtypeInfo(TypeInfo(TOSes)),Integer(OSe'+
|
|
|
- 's),False));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function CPUToString(CPU: TCPU) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=LowerCase(GetenumName(TypeInfo(TCPU),Ord(CPU)));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function CPUSToString(','CPUS: TCPUS) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'opy(L','ine,P+1,Length(Line)-P)));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' F.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '// Callback for Sysutils getapplicationname.'#010+
|
|
|
+ 'Function GetFPMakeName : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039'fpmake'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function CurrentOS : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=OSToStri','ng(Defaults.OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function CurrentCPU : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=CPUToString(Defaults.CPU);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function OSToString(OS: TOS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=LowerCase(GetenumName(TypeInfo(TOS),Ord(OS)));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function OSesToString(OSes: ','TOSes) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: TOS;'#010+
|
|
|
+ ' Tmp: String;'#010+
|
|
|
+ ' First: boolean;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' { can'#039't use SetToString, there are more than 32 OSes }'#010+
|
|
|
+ ' First:=true;'#010+
|
|
|
+ ' for i in OSes do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not First then'#010+
|
|
|
+ ' Result:=Result+'#039','#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ',' First:=false;'#010+
|
|
|
+ ' Str(i,Tmp);'#010+
|
|
|
+ ' Result:=Result+Tmp;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=LowerCase(Tmp);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function CPUToString(CPU: TCPU) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=LowerCase(GetenumName(TypeInfo(TCPU),Ord(CPU)));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function CPUSToString(CP','US: TCPUS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
' Result:=LowerCase(SetToString(PTypeInfo(TypeInfo(TCPUS)),Integer(CPU'+
|
|
|
- 'S),False));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function StringToOS(const S : String) : TOS;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=GetEnumValue(TypeInfo(TOS),S);'#013#010+
|
|
|
- ' ',' if (I=-1) then'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(SErrInvalidOS,[S]);'#013#010+
|
|
|
- ' Result:=TOS(I);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OSesToString(const S : String) : TOSes;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TOSes(StringToSet(PTypeInfo(TypeInfo(TOSes)),S));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function ','StringToCPU(const S : String) : TCPU;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=GetEnumValue(TypeInfo(TCPU),S);'#013#010+
|
|
|
- ' if (I=-1) then'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(SErrInvalidCPU,[S]);'#013#010+
|
|
|
- ' Result:=TCPU(I);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function StringToCPUS(const',' S : String) : TCPUS;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TCPUS(StringToSet(PTypeInfo(TypeInfo(TCPUS)),S));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function ModeToString(Mode: TCompilerMode) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=LowerCase(GetenumName(TypeInfo(TCompilerMode),Ord(Mode)));'#013+
|
|
|
- #010+
|
|
|
- ' Dele','te(Result,1,2);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function StringToMode(const S : String) : TCompilerMode;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=GetEnumValue(TypeInfo(TCompilerMode),S);'#013#010+
|
|
|
- ' if (I=-1) then'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(SErrInvalidMode,[S]);'#013#010+
|
|
|
- ' ',' Result:=TCompilerMode(I);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if OS in AllLimit83fsOses then'#013#010+
|
|
|
- ' Result := OSToString(OS)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=CPUToString(CPU)+'#039'-'#039'+OSToString(OS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Proced','ure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: TO'+
|
|
|
- 'S);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' P : integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' P:=Pos('#039'-'#039',S);'#013#010+
|
|
|
- ' If (P=0) then'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(SErrInvalidTarget,[S]);'#013#010+
|
|
|
- ' CPU:=StringToCPU(Copy(S,1,P-1));'#013#010+
|
|
|
- ' OS:=Str','ingToOs(Copy(S,P+1,Length(S)-P));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'S),False));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function StringToOS(const S : String) : TOS;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=GetEnumValue(TypeInfo(TOS),S);'#010+
|
|
|
+ ' if (I=-1) then',#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrInvalidOS,[S]);'#010+
|
|
|
+ ' Result:=TOS(I);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '(*'#010+
|
|
|
+ 'Function StringToOSes(const S : String) : TOSes;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TOSes(StringToSet(PTypeInfo(TypeInfo(TOSes)),S));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '*)'#010+
|
|
|
+ #010+
|
|
|
+ 'function IsDifferentFromBuild(A','Cpu: TCPU; AOs: TOs): boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := (AOs<>Defaults.BuildOS) or (ACpu<>Defaults.BuildCPU);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function StringToCPU(const S : String) : TCPU;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=GetEnumValue(TypeInfo(TCPU),S);'#010+
|
|
|
+ ' if (I=-1) then'#010+
|
|
|
+ ' ',' Raise EInstallerError.CreateFmt(SErrInvalidCPU,[S]);'#010+
|
|
|
+ ' Result:=TCPU(I);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function StringToCPUS(const S : String) : TCPUS;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TCPUS(StringToSet(PTypeInfo(TypeInfo(TCPUS)),S));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function ModeToString(Mode: TCompilerMo','de) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=LowerCase(GetenumName(TypeInfo(TCompilerMode),Ord(Mode)));'#010+
|
|
|
+ ' Delete(Result,1,2);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function StringToMode(const S : String) : TCompilerMode;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=GetEnumValue(TypeInfo(TCompilerMo','de),S);'#010+
|
|
|
+ ' if (I=-1) then'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrInvalidMode,[S]);'#010+
|
|
|
+ ' Result:=TCompilerMode(I);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if OS in AllLimit83fsOses then'#010+
|
|
|
+ ' Result := OSToString(O','S)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=CPUToString(CPU)+'#039'-'#039'+OSToString(OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Procedure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: TOS)'+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' P : integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' P:=Pos('#039'-'#039',S);'#010+
|
|
|
+ ' If (P=0) then'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrInv','alidTarget,[S]);'#010+
|
|
|
+ ' CPU:=StringToCPU(Copy(S,1,P-1));'#010+
|
|
|
+ ' OS:=StringToOs(Copy(S,P+1,Length(S)-P));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Procedure ResolveDependencies(L : TDependencies; P : TNamedCollection)'+
|
|
|
- ';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I,J : Integer;'#013#010+
|
|
|
- ' C : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(L) then'#013#010+
|
|
|
- ' For I:=0 to L.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' C:=L[i];'#013#010+
|
|
|
- ' if C.DependencyType in [depPackage,depUnit] then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' J:=P.IndexOfName(C.Value);'#013#010+
|
|
|
- ' If J<>-1 then'#013#010+
|
|
|
- ' C.Target:=P.Items[J];'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function Ad','dConditionalStrings(Dest : TStrings; Src : TConditionalSt'+
|
|
|
- 'rings;ACPU:TCPU;AOS:TOS; Const APrefix : String='#039#039') : Integer ;'#013+
|
|
|
- #010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' C : TConditionalString;'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=0;'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'CPU'#039',CPU','ToString(ACPU));'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'OS'#039',OSToString(AOS));'#013#010+
|
|
|
- ' For I:=0 to Src.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' C:=Src[I];'#013#010+
|
|
|
- ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If (APrefix<>'#039#039') then'#013#010+
|
|
|
- ' S:','=APrefix+C.Value'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' S:=C.Value;'#013#010+
|
|
|
- ' Dest.Add(Dictionary.ReplaceStrings(S));'#013#010+
|
|
|
- ' Inc(Result);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function FileListToString(List : TStrings; const APrefix : String) : S'+
|
|
|
- 'tr','ing;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : integer;'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039#039';'#013#010+
|
|
|
- ' For I:=0 to List.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If (I>0) then'#013#010+
|
|
|
- ' Result:=Result+'#039' '#039';'#013#010+
|
|
|
- ' S:=APrefix+List[i];'#013#010+
|
|
|
- ' If (Pos('#039' '#039',S)<>0) then'#013#010+
|
|
|
- ' S:='#039'"'#039'+S+'#039'"'#039';'#013#010+
|
|
|
- ' ',' Result:=Result+S;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function FixPath (const APath : String) : String;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' P : PChar;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=APath;'#013#010+
|
|
|
- ' If (result<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' UniqueString(Result);'#013#010+
|
|
|
- ' P:=PChar(Result);'#013#010+
|
|
|
- ' While (P','^<>#0) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If P^ in ['#039'/'#039','#039'\'#039'] then'#013#010+
|
|
|
- ' P^:=PathDelim;'#013#010+
|
|
|
- ' Inc(P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function IsRelativePath(const APath: String): boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if APath='#039#039' then'#013#010+
|
|
|
- ' result := tru','e'#013#010+
|
|
|
- '{$ifdef unix}'#013#010+
|
|
|
- ' else if APath[1] in AllowDirectorySeparators then'#013#010+
|
|
|
- ' result := false'#013#010+
|
|
|
- '{$else}'#013#010+
|
|
|
- ' else if ExtractFileDrive(APath)<>'#039#039' then'#013#010+
|
|
|
- ' result := false'#013#010+
|
|
|
- '{$endif}'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' result := true;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure ChangeDir(const A','Path : String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if Not SetCurrentDir(APath) then'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(SErrChangeDirFailed,[APath]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I,J : Integer;'#010+
|
|
|
+ ' C : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(L) the','n'#010+
|
|
|
+ ' For I:=0 to L.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=L[i];'#010+
|
|
|
+ ' if C.DependencyType in [depPackage,depUnit] then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' J:=P.IndexOfName(C.Value);'#010+
|
|
|
+ ' If J<>-1 then'#010+
|
|
|
+ ' C.Target:=P.Items[J];'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function AddConditionalStrings(APackage: TPackage; Dest : TStrings; Sr'+
|
|
|
+ 'c : TConditionalStrings;ACPU:TCPU;AOS:TOS; Const APrefix : String='#039+
|
|
|
+ #039') : Integer ;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' C : TConditionalString;'#010+
|
|
|
+ ' D : TPackageDi','ctionary;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=0;'#010+
|
|
|
+ ' D := PackageDictionaryClass.Create(nil);'#010+
|
|
|
+ ' D.MasterDictionary := APackage.Dictionary;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' D.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#010+
|
|
|
+ ' D.AddVariable('#039'OS'#039',OSToString(AOS));'#010+
|
|
|
+ ' For I:=0 to Sr','c.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=Src[I];'#010+
|
|
|
+ ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If (APrefix<>'#039#039') then'#010+
|
|
|
+ ' S:=APrefix+C.Value'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' S:=C.Value;'#010+
|
|
|
+ ' S := ','D.ReplaceStrings(s);'#010+
|
|
|
+ ' if C is TConditionalDestString then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // If a destination path is given, omit the path of th'+
|
|
|
+ 'e sourcefile'#010+
|
|
|
+ ' if TConditionalDestString(c).DestPath='#039#039' then'#010+
|
|
|
+ ' ',' Dest.values[S] := D.ReplaceStrings(IncludeTrailin'+
|
|
|
+ 'gPathDelimiter(TConditionalDestString(c).DestPath))+S'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Dest.values[S] := D.ReplaceStrings(IncludeTrailingP'+
|
|
|
+ 'athDelimiter(TConditionalDestStri','ng(c).DestPath)+APrefix+ExtractFile'+
|
|
|
+ 'Name(C.Value));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Dest.Add(S);'#010+
|
|
|
+ ' Inc(Result);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' D.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function FileListToString(List : TString','s; const APrefix : String) :'+
|
|
|
+ ' String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : integer;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If (I>0) then'#010+
|
|
|
+ ' Result:=Result+'#039' '#039';'#010+
|
|
|
+ ' S:=APrefix+List[i];'#010+
|
|
|
+ ' If (Pos('#039' '#039',S)<>0) then'#010+
|
|
|
+ ' ',' S:='#039'"'#039'+S+'#039'"'#039';'#010+
|
|
|
+ ' Result:=Result+S;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function FixPath (const APath : String) : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result := FixPath(APath, False);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function FixPath (const APath : String; AIsDir : Boolean) : String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' P : PChar;'#010+
|
|
|
+ 'be','gin'#010+
|
|
|
+ ' Result:=APath;'#010+
|
|
|
+ ' If (result<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' UniqueString(Result);'#010+
|
|
|
+ ' P:=PChar(Result);'#010+
|
|
|
+ ' While (P^<>#0) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If P^ in ['#039'/'#039','#039'\'#039'] then'#010+
|
|
|
+ ' P^:=PathDelim;'#010+
|
|
|
+ ' Inc(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ','end;'#010+
|
|
|
+ ' if AIsDir and (Result <> '#039#039') then'#010+
|
|
|
+ ' Result := IncludeTrailingPathDelimiter(Result);;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function IsRelativePath(const APath: String): boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if APath='#039#039' then'#010+
|
|
|
+ ' result := true'#010+
|
|
|
+ '{$ifdef unix}'#010+
|
|
|
+ ' else if APath[1] in Allow','DirectorySeparators then'#010+
|
|
|
+ ' result := false'#010+
|
|
|
+ '{$else}'#010+
|
|
|
+ ' else if ExtractFileDrive(APath)<>'#039#039' then'#010+
|
|
|
+ ' result := false'#010+
|
|
|
+ '{$endif}'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := true;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure ChangeDir(const APath : String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Not SetCurrentDir(APath) the','n'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrChangeDirFailed,[APath]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure SearchFiles(const AFileName: string; Recursive: boolean; var'+
|
|
|
- ' List: TStrings);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure ','AddRecursiveFiles(const SearchDir, FileMask: string; Rec'+
|
|
|
- 'ursive: boolean);'#013#010+
|
|
|
- ' const'#013#010+
|
|
|
- ' IgnoreCase = {$ifdef UNIX}False{$else}True{$endif};'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' Info : TSearchRec;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if FindFirst(SearchDir+'#039'*'#039',faAnyFile and faDirectory,In','f'+
|
|
|
- 'o)=0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
+ ' List: TStrings);'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure AddRecursiveFiles(const SearchDir, FileMask: string; Recur'+
|
|
|
+ 'sive: ','boolean);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' Info : TSearchRec;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if FindFirst(SearchDir+AllFilesMask,faAnyFile and faDirectory,Info'+
|
|
|
+ ')=0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' repeat'#010+
|
|
|
' if ((Info.Attr and faDirectory) = faDirectory) and (Info.Nam'+
|
|
|
- 'e <> '#039'.'#039') and (Info.Name <> '#039'..'#039') and (Recursive) then'+
|
|
|
- #013#010+
|
|
|
+ 'e <> '#039'.'#039') and (Info.N','ame <> '#039'..'#039') and (Recursive) th'+
|
|
|
+ 'en'#010+
|
|
|
' AddRecursiveFiles(SearchDir + Info.Name + PathDelim, FileM'+
|
|
|
- 'ask, Re','cursive);'#013#010+
|
|
|
+ 'ask, Recursive);'#010+
|
|
|
' if ((Info.Attr and faDirectory) <> faDirectory) and IsWild(I'+
|
|
|
- 'nfo.Name, FileMask, IgnoreCase) then'#013#010+
|
|
|
- ' List.Add(SearchDir + Info.Name);'#013#010+
|
|
|
- ' until FindNext(Info)<>0;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' FindClose(Info);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'v','ar'#013#010+
|
|
|
- ' CurrDir,'#013#010+
|
|
|
- ' BasePath: string;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' BasePath := ExtractFilePath(ExpandFileName(AFileName));'#013#010+
|
|
|
- ' AddRecursiveFiles(BasePath, ExtractFileName(AFileName), Recursive);'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- ' CurrDir:=GetCurrentDir;'#013#010+
|
|
|
- ' for i := 0 to Pred(L','ist.Count) do'#013#010+
|
|
|
+ 'nfo.Name, FileMask, FileNameCaseSensitive) then'#010+
|
|
|
+ ' ',' List.Add(SearchDir + Info.Name);'#010+
|
|
|
+ ' until FindNext(Info)<>0;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' FindClose(Info);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' CurrDir,'#010+
|
|
|
+ ' BasePath: string;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BasePath := ExtractFilePath(ExpandFileName(AFileName));'#010+
|
|
|
+ ' AddRecursive','Files(BasePath, ExtractFileName(AFileName), Recursive)'+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ ' CurrDir:=GetCurrentDir;'#010+
|
|
|
+ ' for i := 0 to Pred(List.Count) do'#010+
|
|
|
' List[i] := ExtractRelativepath(IncludeTrailingPathDelimiter(CurrDi'+
|
|
|
- 'r), List[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Const'#013#010+
|
|
|
- ' WhiteSpace = [#9,#10,#13,'#039' '#039'];'#013#010+
|
|
|
- ' QuoteChars = ['#039#039#039#039','#039'"'#039'];'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure SplitCommand(const Cmd : String; var Exe, Options :',' String'+
|
|
|
- ');'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' InQuote : Boolean;'#013#010+
|
|
|
- ' LastQuote : Char;'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' S:=Trim(Cmd);'#013#010+
|
|
|
- ' InQuote:=False;'#013#010+
|
|
|
- ' LastQuote:=#0;'#013#010+
|
|
|
- ' I:=1;'#013#010+
|
|
|
- ' While (I<=Length(S)) and (Inquote or not (S[I] in whiteSpace)) do'#013+
|
|
|
- #010+
|
|
|
- ' beg','in'#013#010+
|
|
|
- ' If S[i] in QuoteChars then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' InQuote:=Not (S[i]=LastQuote);'#013#010+
|
|
|
- ' If InQuote then'#013#010+
|
|
|
- ' LastQuote:=S[i]'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' LastQuote:=#0;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Inc(I);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Exe:=Copy(S,1,I-1);'#013#010+
|
|
|
- ' Delete','(S,1,I);'#013#010+
|
|
|
- ' Options:=Trim(S);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'r), List[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' WhiteSpace = [#9,#10,#1','3,'#039' '#039'];'#010+
|
|
|
+ ' QuoteChars = ['#039#039#039#039','#039'"'#039'];'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure SplitCommand(const Cmd : String; var Exe, Options : String);'+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' InQuote : Boolean;'#010+
|
|
|
+ ' LastQuote : Char;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' S:=Trim(Cmd);'#010+
|
|
|
+ ' InQuote:=False;'#010+
|
|
|
+ ' LastQuote:=#0;'#010,
|
|
|
+ ' I:=1;'#010+
|
|
|
+ ' While (I<=Length(S)) and (Inquote or not (S[I] in whiteSpace)) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If S[i] in QuoteChars then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' InQuote:=Not (S[i]=LastQuote);'#010+
|
|
|
+ ' If InQuote then'#010+
|
|
|
+ ' LastQuote:=S[i]'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' LastQu','ote:=#0;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Inc(I);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Exe:=Copy(S,1,I-1);'#010+
|
|
|
+ ' Delete(S,1,I);'#010+
|
|
|
+ ' Options:=Trim(S);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure AddCustomFpmakeCommandlineOption(const ACommandLineOption, H'+
|
|
|
- 'elpMessage : string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not assigned(CustomFpmakeCommandlineOptions) then'#013#010+
|
|
|
- ' CustomFpmakeCommandlineOptions := TString','List.Create;'#013#010+
|
|
|
+ 'elpMessage : string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(CustomFpmakeComman','dlineOptions) then'#010+
|
|
|
+ ' CustomFpmakeCommandlineOptions := TStringList.Create;'#010+
|
|
|
' CustomFpmakeCommandlineOptions.Values[ACommandLineOption]:=HelpMessa'+
|
|
|
- 'ge;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ge;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
|
|
|
- 'n: string): string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not assigned(CustomFpMakeCommandlineValu','es) then'#013#010+
|
|
|
- ' result := '#039#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'n: string): s','tring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(CustomFpMakeCommandlineValues) then'#010+
|
|
|
+ ' result := '#039#039#010+
|
|
|
+ ' else'#010+
|
|
|
' result := CustomFpMakeCommandlineValues.Values[ACommandLineOption]'+
|
|
|
- ';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OptionListToString(L : TStrings) : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039#039';'#013#010+
|
|
|
- ' For I:','=0 to L.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If (Result<>'#039#039') then'#013#010+
|
|
|
- ' Result:=Result+'#039' '#039';'#013#010+
|
|
|
- ' S:=L[I];'#013#010+
|
|
|
- ' If (Pos('#039' '#039',S)<>0) or (S='#039#039') then'#013#010+
|
|
|
- ' Result:='#039'"'#039'+S+'#039'"'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OptionsToStringList(S : String) : TStrings;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013,#010+
|
|
|
- ' P : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Nil;'#013#010+
|
|
|
- ' If (S='#039#039') then'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' Result:=TStringList.Create;'#013#010+
|
|
|
- ' Repeat'#013#010+
|
|
|
- ' P:=Pos('#039' '#039',S);'#013#010+
|
|
|
- ' If P=0 then'#013#010+
|
|
|
- ' P:=Length(S)+1;'#013#010+
|
|
|
- ' Result.Add(Copy(S,1,P-1));'#013#010+
|
|
|
- ' Delete(S,1,P);'#013#010+
|
|
|
- ' S:=Trim(S);'#013,#010+
|
|
|
- ' Until Length(S)=0;'#013#010+
|
|
|
- ' If Result.Count=0 then'#013#010+
|
|
|
- ' FreeAndNil(Result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- 'function GetCompilerInfo(const ACompiler,AOptions:string):string;'#013#010+
|
|
|
- 'const'#013#010+
|
|
|
- ' BufSize = 1024;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' S: TProcess;'#013#010+
|
|
|
- ' Buf: array [0','..BufSize - 1] of char;'#013#010+
|
|
|
- ' Count: longint;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' S:=TProcess.Create(Nil);'#013#010+
|
|
|
- ' S.Commandline:=ACompiler+'#039' '#039'+AOptions;'#013#010+
|
|
|
- ' S.Options:=[poUsePipes];'#013#010+
|
|
|
- ' S.execute;'#013#010+
|
|
|
- ' Count:=s.output.read(buf,BufSize);'#013#010+
|
|
|
- ' S.Free;'#013#010+
|
|
|
- ' SetLength(Result,Count);'#013#010,
|
|
|
- ' Move(Buf,Result[1],Count);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TUnsortedDuplicatesStringList'#013#010+
|
|
|
- '************************************','********************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TUnsortedDuplicatesStringList.Add(const S: string): Integer;'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := IndexOf(S);'#013#010+
|
|
|
- ' If result > -1 then'#013#010+
|
|
|
- ' Case DUplicates of'#013#010+
|
|
|
- ' DupIgnore : Exit;'#013#010+
|
|
|
- ' DupError : E','rror(SDuplicateString,0)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inherited Add(S);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TNamedItem'#013#010+
|
|
|
- '****************************************************','****************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TNamedItem.SetName(const AValue: String);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FName=AValue then exit;'#013#010+
|
|
|
- ' With TNamedCollection(Collection) do'#013#010+
|
|
|
- ' If UniqueNames then'#013#010+
|
|
|
- ' If (IndexOfName(AVAlue)<>-1) then'#013#010+
|
|
|
- ' Raise',' ECollectionError.CreateFmt(SErrNameExists,[AValue]);'#013+
|
|
|
- #010+
|
|
|
- ' FName:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TNamedCollection'#013#010+
|
|
|
- '****************************','****************************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedCollection.IndexOfName(const AName: String): Integer;'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Count-1;'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function AddProgramExtension(const ExecutableName: string; AOS : TOS):'+
|
|
|
+ ' ','string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AOS in [Go32v2,Win32,Win64,Wince,OS2,EMX,Watcom] then'#010+
|
|
|
+ ' Result:=ExecutableName+ExeExt'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=ExecutableName;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function GetImportLibraryFilename(const UnitName: string; AOS: TOS): s'+
|
|
|
+ 'tring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AOS ','in [go32v2,watcom,os2,emx] then'#010+
|
|
|
+ ' Result := '#039'libimp'#039'+UnitName'#010+
|
|
|
+ ' else if AOS in [netware,netwlibc,macos] then'#010+
|
|
|
+ ' Result := '#039'lib'#039'+UnitName'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result := '#039'libimp'#039'+UnitName;'#010+
|
|
|
+ ' Result := Result + LibExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function OptionListToStri','ng(L : TStrings) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' For I:=0 to L.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If (Result<>'#039#039') then'#010+
|
|
|
+ ' Result:=Result+'#039' '#039';'#010+
|
|
|
+ ' S:=L[I];'#010+
|
|
|
+ ' If (Pos('#039' '#039',S)<>0) or (S='#039#039') then'#010+
|
|
|
+ ' Result:= Resu','lt + '#039'"'#039'+S+'#039'"'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:= Result + S;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function OptionsToStringList(S : String) : TStrings;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' P : Integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Nil;'#010+
|
|
|
+ ' If (S='#039#039') then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' Result:=TStringList.Create;'#010+
|
|
|
+ ' Repeat'#010+
|
|
|
+ ' P:=Pos('#039' ',#039',S);'#010+
|
|
|
+ ' If P=0 then'#010+
|
|
|
+ ' P:=Length(S)+1;'#010+
|
|
|
+ ' Result.Add(Copy(S,1,P-1));'#010+
|
|
|
+ ' Delete(S,1,P);'#010+
|
|
|
+ ' S:=Trim(S);'#010+
|
|
|
+ ' Until Length(S)=0;'#010+
|
|
|
+ ' If Result.Count=0 then'#010+
|
|
|
+ ' FreeAndNil(Result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ 'function GetCompilerInfo(co','nst ACompiler,AOptions:string):string;'#010+
|
|
|
+ 'const'#010+
|
|
|
+ ' BufSize = 1024;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' S: TProcess;'#010+
|
|
|
+ ' Buf: array [0..BufSize - 1] of char;'#010+
|
|
|
+ ' Count: longint;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' S:=TProcess.Create(Nil);'#010+
|
|
|
+ ' S.Commandline:=ACompiler+'#039' '#039'+AOptions;'#010+
|
|
|
+ ' S.Options:=[poUsePipes];'#010,
|
|
|
+ ' S.execute;'#010+
|
|
|
+ ' Count:=s.output.read(buf,BufSize);'#010+
|
|
|
+ ' S.Free;'#010+
|
|
|
+ ' SetLength(Result,Count);'#010+
|
|
|
+ ' Move(Buf,Result[1],Count);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif HAS_UNIT_PROCESS}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TPackageVariant.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AColl','ection);'#010+
|
|
|
+ ' FTargets := TTargets.Create(TTarget);'#010+
|
|
|
+ ' FOptions := TStringList.Create;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'destructor TPackageVariant.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FOptions.Free;'#010+
|
|
|
+ ' FTargets.Free;'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{ TPackageVariants }'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackageVariants','.SetDefaultPackageVariantName(AValue: stri'+
|
|
|
+ 'ng);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FDefaultPackageVariantName=AValue then Exit;'#010+
|
|
|
+ ' if not assigned(ItemByName(avalue)) then'#010+
|
|
|
+ ' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#010+
|
|
|
+ ' FDefaultPackageVariantName:=AVa','lue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackageVariants.GetActivePackageVariant: TPackageVariant;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := ItemByName(ActivePackageVariantName) as TPackageVariant;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackageVariants.GetDefaultPackageVariant: TPackageVariant;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' res','ult := ItemByName(DefaultPackageVariantName) as TPackageVariant'+
|
|
|
+ ';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackageVariants.SetActivePackageVariantName(AValue: string)'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FActivePackageVariantName=AValue then Exit;'#010+
|
|
|
+ ' if not assigned(ItemByName(avalue)) then',#010+
|
|
|
+ ' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#010+
|
|
|
+ ' FActivePackageVariantName:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackageVariants.Add(AName: String): TPackageVariant;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := self.add as TPackageVariant;'#010+
|
|
|
+ ' result.Name := AName;'#010+
|
|
|
+ ' ',' if FDefaultPackageVariantName='#039#039' then'#010+
|
|
|
+ ' FDefaultPackageVariantName:=AName;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{ TConditionalDestStrings }'#010+
|
|
|
+ #010+
|
|
|
+ 'function TConditionalDestStrings.GetConditionalString(Index : Integer)'+
|
|
|
+ ': TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TConditionalDe','stString(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TConditionalDestStrings.SetConditionalString(Index : Integer'+
|
|
|
+ '; AValue: TConditionalDestString);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TConditionalDestStrings.Create(AClass: TConditionalDestSt',
|
|
|
+ 'ringClass);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AClass);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TConditionalDestStrings.Add(const Value: String; ADestPath: S'+
|
|
|
+ 'tring): TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Add(Value, AllCPUs, AllOSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TConditionalDestString','s.Add(const Value: String; const OSes'+
|
|
|
+ ': TOSes; ADestPath: String): TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Add(Value, AllCPUs, OSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ 'Function TConditionalDestStrings.Add(Const Value : String;const CPUs:T',
|
|
|
+ 'CPUs; ADestPath: String) : TConditionalDestString;inline;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Add(Value, CPUs, AllOSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TConditionalDestStrings.Add(const Value: String; const CPUs: '+
|
|
|
+ 'TCPUs; const OSes: TOSes; ADest','Path: String): TConditionalDestString'+
|
|
|
+ ';'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' ACondString: TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ACondString := inherited Add(Value,CPUs,OSes) as TConditionalDestStr'+
|
|
|
+ 'ing;'#010+
|
|
|
+ ' ACondString.DestPath:=ADestPath;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{ TPackageDictionary }'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPa','ckageDictionary.GetValue(const AName, Args: String): Str'+
|
|
|
+ 'ing;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' O : TObject;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=Flist.IndexOf(AName);'#010+
|
|
|
+ ' If (I=-1) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if assigned(MasterDictionary) then'#010+
|
|
|
+ ' result := MasterDictionary.GetValue(','AName,Args)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := GlobalDictionary.GetValue(AName,Args);'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' O:=Flist.Objects[I];'#010+
|
|
|
+ ' If O is TValueItem then'#010+
|
|
|
+ ' Result:=TValueItem(O).FValue'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=TFunctionItem(O).FFunc(AName,Args);'#010+
|
|
|
+ 'en','d;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ '{ TCompileWorkerThread }'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TCompileWorkerThread.Create(ABuildEngine: TBuildEngine; No'+
|
|
|
+ 'tifyMainThreadEvent: PRTLEvent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(false);'#010+
|
|
|
+ ' FNotifyStartTask := RTLEventCreate;'#010+
|
|
|
+ ' FBuildEngi','ne := ABuildEngine;'#010+
|
|
|
+ ' FNotifyMainThreadEvent:=NotifyMainThreadEvent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'destructor TCompileWorkerThread.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' RTLeventdestroy(FNotifyStartTask);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCompileWorkerThread.execute;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' while ','not Terminated do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FDone:=true;'#010+
|
|
|
+ ' RTLeventSetEvent(FNotifyMainThreadEvent);'#010+
|
|
|
+ ' RTLeventWaitFor(FNotifyStartTask,500);'#010+
|
|
|
+ ' if not FDone then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FBuildEngine.log(vlInfo,'#039'Compiling: '#039'+APackage.Name);'#010+
|
|
|
+ ' FCompi','lationOK:=false;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' FBuildEngine.Compile(APackage);'#010+
|
|
|
+ ' FCompilationOK:=true;'#010+
|
|
|
+ ' except'#010+
|
|
|
+ ' on E: Exception do'#010+
|
|
|
+ ' FErrorMessage := E.Message;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ '{****','***************************************************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TUnsortedDuplicatesStringList'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TUnsortedDuplicatesStr','ingList.Add(const S: string): Integer'+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := IndexOf(S);'#010+
|
|
|
+ ' If result > -1 then'#010+
|
|
|
+ ' Case DUplicates of'#010+
|
|
|
+ ' DupIgnore : Exit;'#010+
|
|
|
+ ' DupError : Error(SDuplicateString,0)'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' inherited Add(S);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{**********************','*********************************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TNamedItem'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNamedItem.SetName(const AValue: String);'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if',' FName=AValue then exit;'#010+
|
|
|
+ ' With TNamedCollection(Collection) do'#010+
|
|
|
+ ' If UniqueNames then'#010+
|
|
|
+ ' If (IndexOfName(AVAlue)<>-1) then'#010+
|
|
|
+ ' Raise ECollectionError.CreateFmt(SErrNameExists,[AValue]);'#010+
|
|
|
+ ' FName:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{********************','***********************************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TNamedCollection'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedCollection.GetItem(Index: Integer): TNam','edItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := TNamedItem(inherited getItem(index));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNamedCollection.SetItem(Index: Integer; AValue: TNamedItem)'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited SetItem(Index, AValue);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedCollection.IndexOfName(const AName:',' String): Integer;'+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Count-1;'#010+
|
|
|
' While (Result>=0) and (CompareText(TNamedItem(Items[Result]).FName,A'+
|
|
|
- 'Name)<>0) do'#013#010+
|
|
|
- ' ','Dec(Result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'Name)<>0) do'#010+
|
|
|
+ ' Dec(Result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TNamedCollection.ItemByName(const AName: String): TNamedItem;'+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=IndexOfName(AName);'#013#010+
|
|
|
- ' If (I=-1) Then'#013#010+
|
|
|
- ' Raise ECollectionError.CreateFmt(SErrNoSuchName,[AName]);'#013#010+
|
|
|
- ' Resul','t:=TNamedItem(Items[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer',';'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=IndexOfName(AName);'#010+
|
|
|
+ ' If (I=-1) Then'#010+
|
|
|
+ ' Raise ECollectionError.CreateFmt(SErrNoSuchName,[AName]);'#010+
|
|
|
+ ' Result:=TNamedItem(Items[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TNamedItemList'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013,#010+
|
|
|
- 'function TNamedItemList.GetNamedItem(Index : Integer): TNamedItem;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TNamedItem(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TNamedItemList.SetNamedItem(Index : Integer; const AValue: T'+
|
|
|
- 'NamedItem);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'en','d;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedItemList.IndexOfName(const AName: String): Integer;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Count-1;'#013#010+
|
|
|
- ' While (Result>=0) and (CompareText(GetNamedItem(Result).Name,AName)<'+
|
|
|
- '>0) do'#013#010+
|
|
|
- ' Dec(Result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedItemList.ItemByN','ame(const ANAme: String): TNamedItem;'+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=IndexOfName(AName);'#013#010+
|
|
|
- ' If (I=-1) Then'#013#010+
|
|
|
- ' Raise ECollectionError.CreateFmt(SErrNoSuchName,[AName]);'#013#010+
|
|
|
- ' Result:=TNamedItem(Items[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{**********************','*********************************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TTargets'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' ',' TNamedItemList'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTargets.GetTargetItem(Index : Integer): TTarget;'#013#010+
|
|
|
- 'b','egin'#013#010+
|
|
|
- ' Result:=TTarget(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTargets.GetTarget(const AName : String): TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TTarget(ItemByName(AName));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTargets.SetTargetItem(Index : Integer; const AValue: TTarge'+
|
|
|
- 't);',#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedItemList.GetNamedItem(Index : Integer): TNamedItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TNamedItem(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure T','NamedItemList.SetNamedItem(Index : Integer; const AValue:'+
|
|
|
+ ' TNamedItem);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedItemList.IndexOfName(const AName: String): Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Count-1;'#010+
|
|
|
+ ' While (Result>=0) and (CompareText(Get','NamedItem(Result).Name,AName'+
|
|
|
+ ')<>0) do'#010+
|
|
|
+ ' Dec(Result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedItemList.ItemByName(const ANAme: String): TNamedItem;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=IndexOfName(AName);'#010+
|
|
|
+ ' If (I=-1) Then'#010+
|
|
|
+ ' Raise ECollectionError.CreateFmt(SErrNo','SuchName,[AName]);'#010+
|
|
|
+ ' Result:=TNamedItem(Items[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TTargets'#010+
|
|
|
+ '***************************************************************','*****'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTargets.GetTargetItem(Index : Integer): TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TTarget(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTargets.GetTarget(const AName : String): TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TTarget(ItemByName(AName));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedur','e TTargets.SetTargetItem(Index : Integer; const AValue: TTar'+
|
|
|
+ 'get);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TTargets.AddFPDoc(const AUnitName, AXMLName: String): TTarget'+
|
|
|
- ';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AUnitName;'#013#010+
|
|
|
- ' Result.XML:=AXMLName;'#013#010+
|
|
|
- ' Result.TargetType:=ttFPDoc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010,
|
|
|
- 'Function TTargets.AddUnit(Const AUnitName : String) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddUnit(AUnitName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddUnit(Const AUnitName : String;const OSes:TOSes) :'+
|
|
|
- ' TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddUnit(AUnitN','ame,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AUnitName;'#010+
|
|
|
+ ' Result','.XML:=AXMLName;'#010+
|
|
|
+ ' Result.TargetType:=ttFPDoc;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddUnit(Const AUnitName : String) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddUnit(AUnitName,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddUnit(Const AUnitName : String;const OSes:TOSe','s)'+
|
|
|
+ ' : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddUnit(AUnitName,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
'Function TTargets.AddUnit(Const AUnitName : String;const CPUs:TCPUs) :'+
|
|
|
- ' TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddUnit(AUnitName,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function T','Targets.AddUnit(Const AUnitName : String;const CPUs:TCPUs;'+
|
|
|
- 'const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AUnitName;'#013#010+
|
|
|
- ' Result.TargetType:=TTUnit;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Functio','n TTargets.AddImplicitUnit(Const AUnitName : String;InstallUn'+
|
|
|
- 'it:boolean=true) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddImplicitUnit(AUnitName,AllCPUs,AllOSes,InstallUnit);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddImplicitUnit(Const AUnitName : String;const O','Se'+
|
|
|
- 's:TOSes;InstallUnit:boolean=true) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddImplicitUnit(AUnitName,AllCPUs,OSes,InstallUnit);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ' TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddUnit(AUnitName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif ','cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddUnit(Const AUnitName : String;const CPUs:TCPUs;co'+
|
|
|
+ 'nst OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AUnitName;'#010+
|
|
|
+ ' Result.TargetType:=TTUnit;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes',':=OSes;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddImplicitUnit(Const AUnitName : String;InstallUnit'+
|
|
|
+ ':boolean=true) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddImplicitUnit(AUnitName,AllCPUs,AllOSes,InstallUnit);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddImplicitUnit(Const AUnitName ',': String;const OSe'+
|
|
|
+ 's:TOSes;InstallUnit:boolean=true) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddImplicitUnit(AUnitName,AllCPUs,OSes,InstallUnit);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const CPUs:'+
|
|
|
- 'TCPUs;InstallUnit:boolean=true) : TTarget',';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddImplicitUnit(AUnitName,CPUs,AllOSes,InstallUnit);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'TCPUs;InstallUnit:boolean=true)',' : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddImplicitUnit(AUnitName,CPUs,AllOSes,InstallUnit);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const CPUs:'+
|
|
|
- 'TCPUs;const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as T','Target;'#013#010+
|
|
|
- ' Result.Name:=AUnitName;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- ' if InstallUnit then'#013#010+
|
|
|
- ' Result.TargetType:=TTImplicitUnit'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result.TargetType:=TTCleanOnlyUnit;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddProgram(Const APro','gramName : String) : TTarget;'+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddProgram(AProgramName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'TCPUs;const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as',' TTarget;'#010+
|
|
|
+ ' Result.Name:=AUnitName;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes:=OSes;'#010+
|
|
|
+ ' if InstallUnit then'#010+
|
|
|
+ ' Result.TargetType:=TTImplicitUnit'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result.TargetType:=TTCleanOnlyUnit;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddProgram(Const AProgramName ',': String) : TTarget;'+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddProgram(AProgramName,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddProgram(Const AProgramName : String;const OSes:TO'+
|
|
|
- 'Ses) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddProgram(AProgramName,AllCPUs,OSe','s);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ 'Ses) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddProgram(AProgramName,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifde','f cpu_only_overloads}'#010+
|
|
|
'Function TTargets.AddProgram(Const AProgramName : String;const CPUs:TC'+
|
|
|
- 'PUs) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddProgram(AProgramName,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTar','gets.AddProgram(Const AProgramName : String;const CPUs:'+
|
|
|
- 'TCPUs;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AProgramName;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- ' Result.TargetType:=ttProgram;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010,
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddExampleUnit(Const AUnitName : String) : TTarget;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleUnit(AUnitName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'PUs) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddProgram(AProgramName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddProgram(Const AProgra','mName : String;const CPUs:'+
|
|
|
+ 'TCPUs;const OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AProgramName;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes:=OSes;'#010+
|
|
|
+ ' Result.TargetType:=ttProgram;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddExampleUnit(Cons','t AUnitName : String) : TTarget'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleUnit(AUnitName,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddExampleUnit(Const AUnitName : String;const OSes:T'+
|
|
|
- 'OSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ',' Result:=AddExampleUnit(AUnitName,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- 'Function TTargets.AddExampleUnit(Const AUnitName : String;const CPUs:T'+
|
|
|
- 'CPUs) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleUnit(AUnitName,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013,#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'OSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleUnit(AUnitName,AllCPUs,OSes)',';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
'Function TTargets.AddExampleUnit(Const AUnitName : String;const CPUs:T'+
|
|
|
- 'CPUs;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AUnitName;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSe','s;'#013#010+
|
|
|
- ' Result.TargetType:=ttExampleUnit;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddExampleProgram(Const AProgramName : String) : TTa'+
|
|
|
- 'rget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleProgram(AProgramName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddExampleProgram','(Const AProgramName : String;cons'+
|
|
|
- 't OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleProgram(AProgramName,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ 'CPUs) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleUnit(AUnitName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddExam','pleUnit(Const AUnitName : String;const CPUs'+
|
|
|
+ ':TCPUs;const OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AUnitName;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes:=OSes;'#010+
|
|
|
+ ' Result.TargetType:=ttExampleUnit;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.','AddExampleProgram(Const AProgramName : String) : T'+
|
|
|
+ 'Target;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleProgram(AProgramName,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
|
|
|
- 'CPUs:TCP','Us) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleProgram(AProgramName,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=A','ddExampleProgram(AProgramName,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
|
|
|
- 'CPUs:TCPUs;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' R','esult:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AProgramName;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- ' Result.TargetType:=ttExampleProgram;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'CPUs:TCPUs) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleProgram(AProgramName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010,
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
|
|
|
+ 'CPUs:TCPUs;const OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AProgramName;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes:=OSe','s;'#010+
|
|
|
+ ' Result.TargetType:=ttExampleProgram;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TSources'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TSources'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.GetSourceItem(Index : Integer): TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TSource(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TSources.','SetSourceItem(Index : Integer; const AValue: TSou'+
|
|
|
- 'rce);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.AddDoc (const AFiles : String) : TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FSourceType:=s','tDoc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '**','****}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TSources.GetSourceItem(Index : Integer): TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TSource(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TSources.SetSourceItem(Index : Integer; const AValue: TSourc'+
|
|
|
+ 'e);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TSources','.AddDoc (const AFiles : String) : TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.FSourceType:=stDoc;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'function TSources.AddDoc(const AFiles: String; AInstallSourcePath: Str'+
|
|
|
- 'ing): TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FInstallSourcePath:=AInstallSourcePath;'#013#010+
|
|
|
- ' Result.FSourceType:=stDoc;'#013,#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.AddSrc(const AFiles : String) : TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FSourceType:=stSrc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.AddExample(const AFiles : String) : TSource;'#013#010+
|
|
|
- 'begin'#013#010,
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FSourceType:=stExample;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.AddExample(const AFiles: String; AInstallSourcePath:'+
|
|
|
- ' String): TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013,#010+
|
|
|
- ' Result.FInstallSourcePath:=AInstallSourcePath;'#013#010+
|
|
|
- ' Result.FSourceType:=stExample;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.AddTest(const AFiles : String) : TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FSourceType:=stTe','st;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'ing): TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add a','s TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.FInstallSourcePath:=AInstallSourcePath;'#010+
|
|
|
+ ' Result.FSourceType:=stDoc;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TSources.AddSrc(const AFiles : String) : TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Resul','t.FSourceType:=stSrc;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TSources.AddExample(const AFiles : String) : TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.FSourceType:=stExample;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TSources.AddExample(const AFiles: String; AIn','stallSourcePat'+
|
|
|
+ 'h: String): TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.FInstallSourcePath:=AInstallSourcePath;'#010+
|
|
|
+ ' Result.FSourceType:=stExample;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TSources.AddTest(const AFiles : String) : TSource;'#010+
|
|
|
+ 'b','egin'#010+
|
|
|
+ ' Result:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.FSourceType:=stTest;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TSources.AddDocFiles(const AFileMask: string; Recursive: boo'+
|
|
|
- 'lean; AInstallSourcePath : String = '#039#039');'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' List : TStrings;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' List := TStringList.Create;'#013#010+
|
|
|
- ' SearchFiles(AFileMask, Recursive,',' List);'#013#010+
|
|
|
- ' for i:= 0 to Pred(List.Count) do'#013#010+
|
|
|
- ' AddDoc(List[i], AInstallSourcePath);'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TSources.AddSrcFiles(const AFileMask: string; Recursive: boo'+
|
|
|
- 'lean);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' List : TStrings;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Li','st := TStringList.Create;'#013#010+
|
|
|
- ' SearchFiles(AFileMask, Recursive, List);'#013#010+
|
|
|
- ' for i:= 0 to Pred(List.Count) do'#013#010+
|
|
|
- ' AddSrc(List[i]);'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TSources.AddExampleFiles(const AFileMask: string; Recursive:'+
|
|
|
- ' boolean; AInstal','lSourcePath : String = '#039#039');'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' List : TStrings;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' List := TStringList.Create;'#013#010+
|
|
|
- ' SearchFiles(AFileMask, Recursive, List);'#013#010+
|
|
|
- ' for i:= 0 to Pred(List.Count) do'#013#010+
|
|
|
- ' AddExample(List[i], AInstallSourcePath);'#013#010+
|
|
|
- ' List.','Free;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'lean; AInstallSourcePath : String = '#039#039');'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' List : TStrings;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'b','egin'#010+
|
|
|
+ ' List := TStringList.Create;'#010+
|
|
|
+ ' SearchFiles(AFileMask, Recursive, List);'#010+
|
|
|
+ ' for i:= 0 to Pred(List.Count) do'#010+
|
|
|
+ ' AddDoc(List[i], AInstallSourcePath);'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TSources.AddSrcFiles(const AFileMask: string; Recursive:',' b'+
|
|
|
+ 'oolean);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' List : TStrings;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List := TStringList.Create;'#010+
|
|
|
+ ' SearchFiles(AFileMask, Recursive, List);'#010+
|
|
|
+ ' for i:= 0 to Pred(List.Count) do'#010+
|
|
|
+ ' AddSrc(List[i]);'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TSources.AddExampleFiles(co','nst AFileMask: string; Recursiv'+
|
|
|
+ 'e: boolean; AInstallSourcePath : String = '#039#039');'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' List : TStrings;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List := TStringList.Create;'#010+
|
|
|
+ ' SearchFiles(AFileMask, Recursive, List);'#010+
|
|
|
+ ' for i:= 0 to Pred(List.Count) do'#010+
|
|
|
+ ' AddExam','ple(List[i], AInstallSourcePath);'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TSources.AddTestFiles(const AFileMask: string; Recursive: bo'+
|
|
|
- 'olean);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' List : TStrings;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' List := TStringList.Create;'#013#010+
|
|
|
- ' SearchFiles(AFileMask, Recursive, List);'#013#010+
|
|
|
- ' for i:= 0 to Pred(Li','st.Count) do'#013#010+
|
|
|
- ' AddTest(List[i]);'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'olean);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' List : TStrings;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List := TStringList.Create;'#010+
|
|
|
+ ' SearchFiles(AFileMask, Recursive,',' List);'#010+
|
|
|
+ ' for i:= 0 to Pred(List.Count) do'#010+
|
|
|
+ ' AddTest(List[i]);'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TPackage'#013#010+
|
|
|
- '*************************************************************','*******'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TPackage.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACollection);'#013#010+
|
|
|
- ' FVersion:=TFPVersion.Create;'#013#010+
|
|
|
- ' FTargets:=TTargets.Create(TTarget);'#013#010+
|
|
|
- ' FSources:=TSources.Create(TSource);'#013#010+
|
|
|
- ' FDependenci','es:=TDependencies.Create(TDependency);'#013#010+
|
|
|
- ' FInstallFiles:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FCleanFiles:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FObjec','tPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FSourcePath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FExamplePath:=TConditionalStrings.Create(TConditional','String);'#013#010+
|
|
|
- ' FTestPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FCommands:=TCommands.Create(TCommand);'#013#010+
|
|
|
- ' FCPUs:=AllCPUs;'#013#010+
|
|
|
- ' FOSes:=AllOSes;'#013#010+
|
|
|
- ' FInstalledChecksum:=$ffffffff;'#013#010+
|
|
|
- ' // Implicit dependency on RTL'#013#010+
|
|
|
- ' FDependencies.Add('#039,'rtl'#039');'#013#010+
|
|
|
- ' FSupportBuildModes:=[bmBuildUnit, bmOneByOne];'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TPackage.destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FDependencies);'#013#010+
|
|
|
- ' FreeAndNil(FInstallFiles);'#013#010+
|
|
|
- ' FreeAndNil(FCleanFiles);'#013#010+
|
|
|
- ' FreeAndNil(FIncludePath);'#013#010+
|
|
|
- ' FreeAndNil(FSour','cePath);'#013#010+
|
|
|
- ' FreeAndNil(FExamplePath);'#013#010+
|
|
|
- ' FreeAndNil(FTestPath);'#013#010+
|
|
|
- ' FreeAndNil(FObjectPath);'#013#010+
|
|
|
- ' FreeAndNil(FUnitPath);'#013#010+
|
|
|
- ' FreeAndNil(FSources);'#013#010+
|
|
|
- ' FreeAndNil(FTargets);'#013#010+
|
|
|
- ' FreeAndNil(FVersion);'#013#010+
|
|
|
- ' FreeAndNil(FOptions);'#013#010+
|
|
|
- ' inherited destroy;'#013,#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackage.HaveOptions: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(FOptions<>Nil);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SetName(const AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited SetName(AValue);'#013#010+
|
|
|
- ' // RTL should not have any dependencies'#013#010+
|
|
|
- ' if AValue='#039'r','tl'#039' then'#013#010+
|
|
|
- ' FDependencies.Clear;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039'units'#039'+PathDelim+MakeTargetString(ACPU,AOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetBinOutputDir(ACPU:TCPU; AOS : TO','S) : String;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039'bin'#039'+PathDelim+MakeTargetString(ACPU,AOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.GetCleanFiles(List: TStrings; ACPU:TCPU; AOS : TOS)'+
|
|
|
- ';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' OB,OU : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' OB:=IncludeTrailingPathDelimiter','(GetBinOutputDir(ACPU,AOS));'#013#010+
|
|
|
- ' OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(ACPU,AOS));'#013#010+
|
|
|
- ' AddConditionalStrings(List,CleanFiles,ACPU,AOS);'#013#010+
|
|
|
- ' For I:=0 to FTargets.Count-1 do'#013#010+
|
|
|
- ' FTargets.TargetItems[I].GetCleanFiles(List, OU, OB, A','CPU, AOS);'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TPackage'#010+
|
|
|
+ '***************************************','*****************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TPackage.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(ACollection);'#010+
|
|
|
+ ' FVersion:=TFPVersion.Create;'#010+
|
|
|
+ ' FTargets:=TTargets.Create(TTarget);'#010+
|
|
|
+ ' FSources:=TSources.Create(TSource);',#010+
|
|
|
+ ' FDependencies:=TDependencies.Create(TDependency);'#010+
|
|
|
+ ' FInstallFiles:=TConditionalDestStrings.Create(TConditionalDestString'+
|
|
|
+ ');'#010+
|
|
|
+ ' FCleanFiles:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FUnitPath:=TConditionalStrings.Create(TConditiona','lString);'#010+
|
|
|
+ ' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FSourcePath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FExamplePath:=TConditionalStrings.Crea','te(TConditionalString);'#010+
|
|
|
+ ' FTestPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FCommands:=TCommands.Create(TCommand);'#010+
|
|
|
+ ' FUnitsOutputDir:='#039'units'#039'+PathDelim+'#039'$(target)'#039'+PathD'+
|
|
|
+ 'elim;'#010+
|
|
|
+ ' FPackageVariants:=TFPList.Create;'#010+
|
|
|
+ ' FCPUs:=AllCPUs;'#010,
|
|
|
+ ' FOSes:=AllOSes;'#010+
|
|
|
+ ' FInstalledChecksum:=$ffffffff;'#010+
|
|
|
+ ' FFlags := TStringList.Create;'#010+
|
|
|
+ ' // Implicit dependency on RTL'#010+
|
|
|
+ ' FDependencies.Add('#039'rtl'#039');'#010+
|
|
|
+ ' FSupportBuildModes:=[bmBuildUnit, bmOneByOne];'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TPackage.destroy;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: int','eger;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FDictionary);'#010+
|
|
|
+ ' FreeAndNil(FDependencies);'#010+
|
|
|
+ ' FreeAndNil(FInstallFiles);'#010+
|
|
|
+ ' FreeAndNil(FCleanFiles);'#010+
|
|
|
+ ' FreeAndNil(FIncludePath);'#010+
|
|
|
+ ' FreeAndNil(FSourcePath);'#010+
|
|
|
+ ' FreeAndNil(FExamplePath);'#010+
|
|
|
+ ' FreeAndNil(FTestPath);'#010+
|
|
|
+ ' FreeAn','dNil(FCommands);'#010+
|
|
|
+ ' FreeAndNil(FObjectPath);'#010+
|
|
|
+ ' FreeAndNil(FUnitPath);'#010+
|
|
|
+ ' FreeAndNil(FSources);'#010+
|
|
|
+ ' FreeAndNil(FTargets);'#010+
|
|
|
+ ' FreeAndNil(FVersion);'#010+
|
|
|
+ ' FreeAndNil(FOptions);'#010+
|
|
|
+ ' FreeAndNil(FFlags);'#010+
|
|
|
+ ' FreeAndNil(FPackageVariants);'#010+
|
|
|
+ ' inherited destroy;'#010,
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.HaveOptions: Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=(FOptions<>Nil);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetName(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited SetName(AValue);'#010+
|
|
|
+ ' // RTL should not have any dependencies'#010+
|
|
|
+ ' if AValue='#039'rtl'#039' then'#010+
|
|
|
+ ' ','FDependencies.Clear;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FixPath(Dictionary.Substitute(FUnitsOutputDir,['#039'CPU'#039','+
|
|
|
+ 'CPUToString(ACPU),'#039'OS'#039',OSToString(AOS),'#039'target'#039',MakeTa'+
|
|
|
+ 'rgetString(ACPU,AOS)]),',' True);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetUnitConfigOutputDir(ACPU: TCPU; AOS: TOS): String'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FixPath(Dictionary.Substitute('#039'units'#039'+PathDelim+'#039+
|
|
|
+ '$(target)'#039'+PathDelim,['#039'CPU'#039',CPUToString(ACPU),'#039'OS'#039','+
|
|
|
+ 'OSToString(AOS),'#039'target'#039',MakeTargetStr','ing(ACPU,AOS)]), True)'+
|
|
|
+ ';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.InheritPackageVariantsFromDependency(ADependencyPac'+
|
|
|
+ 'kage: TPackage);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' APackageVariants: TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' for i := 0 to ADependencyPackage.FPackageVariants.Count-1 d','o'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackageVariants := TPackageVariants(ADependencyPackage.FPackage'+
|
|
|
+ 'Variants[i]);'#010+
|
|
|
+ ' if APackageVariants.IsInheritable then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not assigned(GetPackageVariantsByName(APackageVariants.Name'+
|
|
|
+ ')) then'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' FPackageVariants.Add(APackageVariants);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetPackageVariantsByName(AName: string): TPackageVar'+
|
|
|
+ 'iants;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := nil;'#010+
|
|
|
+ ' for i := 0 to FPac','kageVariants.Count-1 do'#010+
|
|
|
+ ' if SameText(TPackageVariants(FPackageVariants.Items[i]).Name, ANam'+
|
|
|
+ 'e) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := TPackageVariants(FPackageVariants.Items[i]);'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetUnitsOutputDi','r(AValue: string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FUnitsOutputDir:=IncludeTrailingPathDelimiter(AValue)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FUnitsOutputDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetPackageUnitInstallDir(ACPU: TCPU; AOS: TOS): Stri'+
|
|
|
+ 'ng;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FixPath(','Dictionary.Substitute(FPackageUnitInstallDir,['#039+
|
|
|
+ 'CPU'#039',CPUToString(ACPU),'#039'OS'#039',OSToString(AOS),'#039'target'#039+
|
|
|
+ ',MakeTargetString(ACPU,AOS)]), True);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetPackageUnitInstallDir(AValue: string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FPack','ageUnitInstallDir:=IncludeTrailingPathDelimiter(AValue)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FPackageUnitInstallDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetBinOutputDir(ACPU:TCPU; AOS : TOS) : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039'bin'#039'+PathDelim+MakeTargetString(ACPU,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'proce','dure TPackage.GetCleanFiles(List: TStrings; ACPU:TCPU; AOS : TO'+
|
|
|
+ 'S);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' OB,OU : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' ','AddConditionalStrings(Self, List,CleanFiles,ACPU,AOS);'#010+
|
|
|
+ ' For I:=0 to FTargets.Count-1 do'#010+
|
|
|
+ ' FTargets.TargetItems[I].GetCleanFiles(List, OU, OB, ACPU, AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TPackage.GetInstallFiles(List: TStrings;Types : TTargetTypes'+
|
|
|
- ';ACPU:TCPU; AOS : TOS);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' OB,OU : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(Defaults.','CPU,Defa'+
|
|
|
- 'ults.OS));'#013#010+
|
|
|
- ' OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(Defaults.CPU,Defa'+
|
|
|
- 'ults.OS));'#013#010+
|
|
|
- ' AddConditionalStrings(List,InstallFiles,ACPU,AOS);'#013#010+
|
|
|
- ' For I:=0 to FTargets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=FTargets.TargetItems[I];'#013#010+
|
|
|
- ' ',' if (T.TargetType in Types) and (T.Install) then'#013#010+
|
|
|
- ' T.GetInstallFiles(List, OU, OB, ACPU, AOS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ';ACPU:','TCPU; AOS : TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' OB,OU : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Types=[] then'#010+
|
|
|
+ ' AddConditionalStrings(Self, List,InstallFiles,ACPU,AOS)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(Defaults.CPU,','D'+
|
|
|
+ 'efaults.OS));'#010+
|
|
|
+ ' OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(Defaults.CPU,'+
|
|
|
+ 'Defaults.OS));'#010+
|
|
|
+ ' For I:=0 to FTargets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=FTargets.TargetItems[I];'#010+
|
|
|
+ ' if (T.TargetType in Types) and Installer','.BuildEngine.Targe'+
|
|
|
+ 'tInstallOK(T, ACPU, AOS) then'#010+
|
|
|
+ ' T.GetInstallFiles(List, OU, OB, ACPU, AOS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TPackage.GetInstallSourceFiles(List: TStrings; SourceTypes :'+
|
|
|
- ' TSourceTypes; TargetTypes : TTargetTypes);'#013#010,
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' S : TSource;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to FSources.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' S:=FSources.SourceItems[I];'#013#010+
|
|
|
- ' if (S.SourceType in SourceTypes) then'#013#010+
|
|
|
- ' S.GetInstallFiles(List);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' For I:=0',' to FTargets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=FTargets.TargetItems[I];'#013#010+
|
|
|
- ' if (T.TargetType in TargetTypes) then'#013#010+
|
|
|
- ' T.GetArchiveFiles(List,Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.GetArchiveFiles(List: TStr','ings; ACPU:TCPU; AOS : '+
|
|
|
- 'TOS);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Targets only'#013#010+
|
|
|
- ' For I:=0 to FTargets.Count-1 do'#013#010+
|
|
|
- ' FTargets.TargetItems[I].GetArchiveFiles(List,ACPU,AOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.GetArchiveSourceFiles(List: TStrings);'#013#010,
|
|
|
- 'var'#013#010+
|
|
|
- ' i : integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' for i := 0 to Sources.Count-1 do'#013#010+
|
|
|
- ' List.Add(Sources[i].Name);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetDescription : string;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' FN : String;'#013#010+
|
|
|
- ' L : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FDescription<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FD','escription'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' If (FDescriptionFile<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Always relative to binary name.'#013#010+
|
|
|
- ' FN:=ExtractFilePath(ParamStr(0));'#013#010+
|
|
|
- ' FN:=FN+FDescriptionFile;'#013#010+
|
|
|
- ' If FileExists(FN) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' L:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' L.LoadFromFile(FN);'#013#010+
|
|
|
- ' Result:=L.Text;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetV','ersion : string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=FVersion.AsString;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SetOptions(const AValue: TStrings);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (AValue=Nil) or (AValue.Count=0) then'#013#010+
|
|
|
- ' FreeAndNil(Foptions)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Options.Assign(AValue);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013,#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TPackage.SetVersion(const V : string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FVersion.AsString:=V;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetFileName : string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FFileName<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FFileName'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' if not FVersion.Empty then'#013#010+
|
|
|
- ' R','esult := Name + '#039'-'#039' + FVersion.AsString'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result := Name;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackage.GetOptions: TStrings;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FOptions=Nil) then'#013#010+
|
|
|
- ' FOptions:=TStringList.Create;'#013#010+
|
|
|
- ' Result:=FOptions;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TPackage','.GetManifest(Manifest : TStrings);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure AddOSes(const AIndent:string;AOSes:TOSes);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' IOS : TOS;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if (AOSes=AllOSes) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' Manifest.Add(AIndent+'#039'<oses>'#039');'#013#010+
|
|
|
- ' for IOS:=low(TOSes) to high(TOS','es) do'#013#010+
|
|
|
- ' if IOS in AOSes then'#013#010+
|
|
|
+ ' TSourceTypes; TargetTypes : TTargetT','ypes);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' S : TSource;'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' For I:=0 to FSources.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' S:=FSources.SourceItems[I];'#010+
|
|
|
+ ' if (S.SourceType in SourceTypes) then'#010+
|
|
|
+ ' S.GetInstallFiles(List);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' For I:=0 to ','FTargets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=FTargets.TargetItems[I];'#010+
|
|
|
+ ' if (T.TargetType in TargetTypes) then'#010+
|
|
|
+ ' T.GetArchiveFiles(List,Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.GetArchiveFiles(List: TStrings; ACPU:TC','PU; AOS : '+
|
|
|
+ 'TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Targets only'#010+
|
|
|
+ ' For I:=0 to FTargets.Count-1 do'#010+
|
|
|
+ ' FTargets.TargetItems[I].GetArchiveFiles(List,ACPU,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.GetArchiveSourceFiles(List: TStrings);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ 'begi','n'#010+
|
|
|
+ ' for i := 0 to Sources.Count-1 do'#010+
|
|
|
+ ' List.Add(Sources[i].Name);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetDescription : string;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' FN : String;'#010+
|
|
|
+ ' L : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FDescription<>'#039#039') then'#010+
|
|
|
+ ' Result:=FDescription'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' If (FDescripti','onFile<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Always relative to binary name.'#010+
|
|
|
+ ' FN:=ExtractFilePath(ParamStr(0));'#010+
|
|
|
+ ' FN:=FN+FDescriptionFile;'#010+
|
|
|
+ ' If FileExists(FN) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' ',' Try'#010+
|
|
|
+ ' L.LoadFromFile(FN);'#010+
|
|
|
+ ' Result:=L.Text;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetDictionary: TDictionary;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(FDictionar','y) then'#010+
|
|
|
+ ' FDictionary:=PackageDictionaryClass.Create(Nil);'#010+
|
|
|
+ ' result := FDictionary;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetVersion : string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FVersion.AsString;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetOptions(const AValue: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (','AValue=Nil) or (AValue.Count=0) then'#010+
|
|
|
+ ' FreeAndNil(Foptions)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Options.Assign(AValue);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TPackage.SetVersion(const V : string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FVersion.AsString:=V;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetFileName : string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If',' (FFileName<>'#039#039') then'#010+
|
|
|
+ ' Result:=FFileName'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' if not FVersion.Empty then'#010+
|
|
|
+ ' Result := Name + '#039'-'#039' + FVersion.AsString'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result := Name;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetOptions: TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FOptions=Nil) then'#010+
|
|
|
+ ' ',' FOptions:=TStringList.Create;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TPackage.GetManifest(Manifest : TStrings);'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure AddOSes(const AIndent:string;AOSes:TOSes);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' IOS : TOS;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (AOSes=AllOSes) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' ','Manifest.Add(AIndent+'#039'<oses>'#039');'#010+
|
|
|
+ ' for IOS:=low(TOSes) to high(TOSes) do'#010+
|
|
|
+ ' if IOS in AOSes then'#010+
|
|
|
' Manifest.Add(Format(AIndent+'#039' <os name="%s"/>'#039',[OSToSt'+
|
|
|
- 'ring(IOS)]));'#013#010+
|
|
|
- ' Manifest.Add(AIndent+'#039'</oses>'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure AddCPUs(const AIndent:string;ACPUs:TCPUs);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' ICPU : TCPU;',#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if (ACPUs=AllCPUs) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' Manifest.Add(AIndent+'#039'<cpus>'#039');'#013#010+
|
|
|
- ' for ICPU:=low(TCPUs) to high(TCPUs) do'#013#010+
|
|
|
- ' if ICPU in ACPUs then'#013#010+
|
|
|
- ' Manifest.Add(Format(AIndent+'#039' <cpu name="%s"/>'#039',[CPUTo'+
|
|
|
- 'String(ICPU)]))',';'#013#010+
|
|
|
- ' Manifest.Add(AIndent+'#039'</cpus>'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ring(IOS)]));'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'</oses>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure AddCPU','s(const AIndent:string;ACPUs:TCPUs);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' ICPU : TCPU;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (ACPUs=AllCPUs) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'<cpus>'#039');'#010+
|
|
|
+ ' for ICPU:=low(TCPUs) to high(TCPUs) do'#010+
|
|
|
+ ' if ICPU in ACPUs then'#010+
|
|
|
+ ' Manifest.Add(Form','at(AIndent+'#039' <cpu name="%s"/>'#039',[CPU'+
|
|
|
+ 'ToString(ICPU)]));'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'</cpus>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
' function GetXMLVersionString(sMajor, sMinor, sMicro, sBuild: integer'+
|
|
|
- '): string;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result := '#039'<version'#039';'#013#010+
|
|
|
- ' if sMajor <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039' major="'#039' + IntToSt','r(sMajor) + '#039+
|
|
|
- '"'#039';'#013#010+
|
|
|
- ' if sMinor <> -1 then'#013#010+
|
|
|
+ '): string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result := '#039'<version'#039';'#010+
|
|
|
+ ' if sMajor <> -1 then'#010+
|
|
|
+ ' ',' Result := Result + '#039' major="'#039' + IntToStr(sMajor) + '#039+
|
|
|
+ '"'#039';'#010+
|
|
|
+ ' if sMinor <> -1 then'#010+
|
|
|
' Result := Result + '#039' minor="'#039' + IntToStr(sMinor) + '#039'"'+
|
|
|
- #039';'#013#010+
|
|
|
- ' if sMicro <> -1 then'#013#010+
|
|
|
+ #039';'#010+
|
|
|
+ ' if sMicro <> -1 then'#010+
|
|
|
' Result := Result + '#039' micro="'#039' + IntToStr(sMicro) + '#039'"'+
|
|
|
- #039';'#013#010+
|
|
|
- ' if sBuild <> -1 then'#013#010+
|
|
|
- ' Result := Re','sult + '#039' build="'#039' + IntToStr(sBuild) + '#039+
|
|
|
- '"'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Result := Result + '#039'/>'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- ' i : Integer;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' With Manifest do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Add(Format('#039'<package name="%s">'#039',[QuoteXml(Name)]));'#013#010+
|
|
|
- #013,#010+
|
|
|
+ #039';'#010+
|
|
|
+ ' i','f sBuild <> -1 then'#010+
|
|
|
+ ' Result := Result + '#039' build="'#039' + IntToStr(sBuild) + '#039'"'+
|
|
|
+ #039';'#010+
|
|
|
+ #010+
|
|
|
+ ' Result := Result + '#039'/>'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ ' i : Integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' With Manifest do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Add(Format('#039'<package name="%s','">'#039',[QuoteXml(Name)]));'#010+
|
|
|
+ #010+
|
|
|
' Add('#039' '#039' + GetXMLVersionString(FVersion.Major,FVersion.Mino'+
|
|
|
- 'r,FVersion.Micro,FVersion.Build));'#013#010+
|
|
|
- ' AddOSes('#039' '#039',OSes);'#013#010+
|
|
|
- ' AddCPUs('#039' '#039',CPUs);'#013#010+
|
|
|
+ 'r,FVersion.Micro,FVersion.Build));'#010+
|
|
|
+ ' AddOSes('#039' '#039',OSes);'#010+
|
|
|
+ ' AddCPUs('#039' '#039',CPUs);'#010+
|
|
|
' Add(Format('#039' <filename>%s</filename>'#039',[QuoteXml(FileName +'+
|
|
|
- ' ZipExt)]));'#013#010+
|
|
|
- ' Add(Format('#039' ','<author>%s</author>'#039',[QuoteXml(Author)]));'#013+
|
|
|
- #010+
|
|
|
+ ' ZipExt)])',');'#010+
|
|
|
+ ' Add(Format('#039' <author>%s</author>'#039',[QuoteXml(Author)]));'#010+
|
|
|
' Add(Format('#039' <license>%s</license>'#039',[QuoteXml(License)]));'+
|
|
|
- #013#010+
|
|
|
- ' if HomepageURL<>'#039#039' then'#013#010+
|
|
|
+ #010+
|
|
|
+ ' if HomepageURL<>'#039#039' then'#010+
|
|
|
' Add(Format('#039' <homepageurl>%s</homepageurl>'#039',[QuoteXml(Ho'+
|
|
|
- 'mepageURL)]));'#013#010+
|
|
|
- ' if DownloadURL<>'#039#039' th','en'#013#010+
|
|
|
+ 'mepageURL)]));'#010+
|
|
|
+ ' if Do','wnloadURL<>'#039#039' then'#010+
|
|
|
' Add(Format('#039' <downloadurl>%s</downloadurl>'#039',[QuoteXml(Do'+
|
|
|
- 'wnloadURL)]));'#013#010+
|
|
|
- ' Add(Format('#039' <email>%s</email>'#039',[QuoteXMl(Email)]));'#013#010+
|
|
|
- ' S:=Description;'#013#010+
|
|
|
- ' If (S<>'#039#039') then'#013#010+
|
|
|
- ' Add(Format('#039' <description>%s</description>'#039',[QuoteXM','L('+
|
|
|
- 'S)]));'#013#010+
|
|
|
- ' If (Dependencies.Count>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Add('#039' <dependencies>'#039');'#013#010+
|
|
|
- ' for I:=0 to Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=Dependencies[i];'#013#010+
|
|
|
- ' Add('#039' <dependency>'#039');'#013#010+
|
|
|
- ' Add(F','ormat('#039' <package packagename="%s"/>'#039',[Quo'+
|
|
|
- 'teXML(D.Value)]));'#013#010+
|
|
|
- ' if not D.FVersion.Empty then'#013#010+
|
|
|
+ 'wnloadURL)]));'#010+
|
|
|
+ ' Add(Format('#039' <email>%s</email>'#039',[QuoteXMl(Email)]));'#010+
|
|
|
+ ' S:=Description;'#010+
|
|
|
+ ' If (S<>'#039#039') then'#010+
|
|
|
+ ' Add(Format('#039' <description>%s</description','>'#039',[QuoteXML('+
|
|
|
+ 'S)]));'#010+
|
|
|
+ ' If (Dependencies.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Add('#039' <dependencies>'#039');'#010+
|
|
|
+ ' for I:=0 to Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=Dependencies[i];'#010+
|
|
|
+ ' Add('#039' <dependency>'#039');'#010+
|
|
|
+ ' Ad','d(Format('#039' <package packagename="%s"/>'#039',[Quo'+
|
|
|
+ 'teXML(D.Value)]));'#010+
|
|
|
+ ' if not D.FVersion.Empty then'#010+
|
|
|
' Add('#039' '#039' + GetXMLVersionString(D.FVersion.Major'+
|
|
|
- ',D.FVersion.Minor,D.FVersion.Micro,D.FVersion.Build));'#013#010+
|
|
|
- ' AddOS','es('#039' '#039',D.OSes);'#013#010+
|
|
|
- ' AddCPUs('#039' '#039',D.CPUs);'#013#010+
|
|
|
- ' Add('#039' </dependency>'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Add('#039' </dependencies>'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Add('#039'</package>'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.LoadUnitConfigFromFile(','Const AFileName: String);'#013+
|
|
|
- #010+
|
|
|
- 'var'#013#010+
|
|
|
- ' L,L2 : TStrings;'#013#010+
|
|
|
- ' VOS : TOS;'#013#010+
|
|
|
- ' VCPU : TCPU;'#013#010+
|
|
|
- ' i,k : Integer;'#013#010+
|
|
|
- ' DepChecksum : Cardinal;'#013#010+
|
|
|
- ' DepName : String;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' L:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' ReadIniFile(AFileName,L);'#013#010+
|
|
|
- ' ',' With L do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Version:=Values[KeyVersion];'#013#010+
|
|
|
+ ',D.FVersion.Minor,D.FVersion.Micro,D.FVersion.Build));'#010+
|
|
|
+ ' AddOS','es('#039' '#039',D.OSes);'#010+
|
|
|
+ ' AddCPUs('#039' '#039',D.CPUs);'#010+
|
|
|
+ ' Add('#039' </dependency>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Add('#039' </dependencies>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Add('#039'</package>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.AddPackageVariant(APackageVariant: ','TPackageVarian'+
|
|
|
+ 'ts);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(APackageVariant.FMasterPackage) then'#010+
|
|
|
+ ' APackageVariant.FMasterPackage := Self;'#010+
|
|
|
+ ' FPackageVariants.Add(APackageVariant);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.ApplyPackageVariantToCompilerOptions(ACompilerOpti',
|
|
|
+ 'ons: tstrings);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' PackageVariants: TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVariants := TPackageVariants(FPackageVariants.Items[i]);'#010+
|
|
|
+ ' ACompilerOptions.AddStrings(PackageVa','riants.ActivePackageVariant'+
|
|
|
+ '.Options);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetDefaultPackageVariant;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i,j: integer;'#010+
|
|
|
+ ' PackageVariants: TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVariants := TP','ackageVariants(FPackageVariants.Items[i]);'#010+
|
|
|
+ ' if Installer.FPackageVariantSettings.Values[PackageVariants.Name]<'+
|
|
|
+ '>'#039#039' then'#010+
|
|
|
+ ' PackageVariants.ActivePackageVariantName:= Installer.FPackageVar'+
|
|
|
+ 'iantSettings.Values[PackageVariants.Name]'#010+
|
|
|
+ ' el','se'#010+
|
|
|
+ ' PackageVariants.ActivePackageVariantName:= PackageVariants.Defau'+
|
|
|
+ 'ltPackageVariantName;'#010+
|
|
|
+ ' Dictionary.AddVariable(PackageVariants.Name,PackageVariants.Active'+
|
|
|
+ 'PackageVariantName);'#010+
|
|
|
+ ' SetUnitsOutputDir(FUnitsOutputDir+'#039'$('#039'+PackageVari','ants.n'+
|
|
|
+ 'ame+'#039')'#039');'#010+
|
|
|
+ ' SetPackageUnitInstallDir(FPackageUnitInstallDir+'#039'$('#039'+Packa'+
|
|
|
+ 'geVariants.Name+'#039')'#039');'#010+
|
|
|
+ ' // Do not add targets f the package is inherited'#010+
|
|
|
+ ' if PackageVariants.MasterPackage=Self then'#010+
|
|
|
+ ' for j := 0 to PackageVariants.Acti','vePackageVariant.Targets.cou'+
|
|
|
+ 'nt -1 do'#010+
|
|
|
+ ' targets.add.assign(PackageVariants.ActivePackageVariant.Target'+
|
|
|
+ 's.items[j]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.LoadUnitConfigFromFile(Const AFileName: String);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' L,L2 : TStrings;'#010+
|
|
|
+ ' VOS : TOS;'#010,
|
|
|
+ ' VCPU : TCPU;'#010+
|
|
|
+ ' i,k : Integer;'#010+
|
|
|
+ ' DepChecksum : Cardinal;'#010+
|
|
|
+ ' DepName : String;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' PackageVariantsStr: string;'#010+
|
|
|
+ ' PackageVarName: string;'#010+
|
|
|
+ ' pv: TPackageVariants;'#010+
|
|
|
+ ' AnIsInheritable: boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' Tr','y'#010+
|
|
|
+ ' ReadIniFile(AFileName,L);'#010+
|
|
|
+ ' With L do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Version:=Values[KeyVersion];'#010+
|
|
|
' InstalledChecksum:=Cardinal(StrToInt64Def(Values[KeyChecksum],'+
|
|
|
- '$ffffffff));'#013#010+
|
|
|
- ' VCPU:=StringToCPU(Values[KeyCPU]);'#013#010+
|
|
|
- ' VOS:=StringToOS(Values[KeyOS]);'#013#010+
|
|
|
- ' ',' OSes:=[VOS];'#013#010+
|
|
|
- ' CPUs:=[VCPU];'#013#010+
|
|
|
- ' L2:=TStringList.Create;'#013#010+
|
|
|
- ' L2.CommaText:=Values[KeyDepends];'#013#010+
|
|
|
- ' for i:=0 to L2.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' DepName:=L2[i];'#013#010+
|
|
|
- ' k:=Pos('#039'|'#039',DepName);'#013#010+
|
|
|
- ' ',' if k>0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ '$ffffffff));'#010+
|
|
|
+ ' VCPU:=StringToCPU(Values[KeyCPU]);'#010+
|
|
|
+ ' VOS:=String','ToOS(Values[KeyOS]);'#010+
|
|
|
+ ' OSes:=[VOS];'#010+
|
|
|
+ ' CPUs:=[VCPU];'#010+
|
|
|
+ ' L2:=TStringList.Create;'#010+
|
|
|
+ ' L2.CommaText:=Values[KeyDepends];'#010+
|
|
|
+ ' for i:=0 to L2.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' DepName:=L2[i];'#010+
|
|
|
+ ' k:=Pos('#039'|'#039',D','epName);'#010+
|
|
|
+ ' if k>0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' DepChecksum:=StrToInt(Copy(DepName,k+1,Length(DepName)'+
|
|
|
- '-k));'#013#010+
|
|
|
- ' DepName:=Copy(DepName,1,k-1);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' DepChecksum:=$ffffffff;'#013#010+
|
|
|
- ' ',' D:=Dependencies.Add(DepName,CPUs,OSes);'#013#010+
|
|
|
- ' D.RequireChecksum:=DepChecksum;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' FreeAndNil(L2);'#013#010+
|
|
|
- ' NeedLibC:=Upcase(Values[KeyNeedLibC])='#039'Y'#039';'#013#010+
|
|
|
- ' IsFPMakeAddIn:=Upcase(Values[KeyAddIn])='#039'Y'#039';'#013,#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SaveUnitConfigToStringList(const AStringList: TStri'+
|
|
|
- 'ngs; ACPU: TCPU; AOS: TOS);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Deps : String;'#013#010+
|
|
|
- ' i : integer;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' p : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' wit','h AStringList do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Values[KeyName]:=Name;'#013#010+
|
|
|
- ' Values[KeyVersion]:=Version;'#013#010+
|
|
|
- ' // TODO Generate checksum based on PPUs'#013#010+
|
|
|
- ' Values[KeyChecksum]:=IntToStr(DateTimeToFileDate(Now));'#013#010+
|
|
|
- ' Values[KeyCPU]:=CPUToString(A','CPU);'#013#010+
|
|
|
- ' Values[KeyOS]:=OSToString(AOS);'#013#010+
|
|
|
- ' //Installer;'#013#010+
|
|
|
+ '-k));'#010+
|
|
|
+ ' DepName:=Copy(DepName,1,k-1);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' DepChecksum:=$ff','ffffff;'#010+
|
|
|
+ ' D:=Dependencies.Add(DepName,CPUs,OSes);'#010+
|
|
|
+ ' D.RequireChecksum:=DepChecksum;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' FreeAndNil(L2);'#010+
|
|
|
+ ' NeedLibC:=Upcase(Values[KeyNeedLibC])='#039'Y'#039';'#010+
|
|
|
+ ' IsFPMakeAddIn:=Upcase(Values[KeyAddIn]',')='#039'Y'#039';'#010+
|
|
|
+ ' Flags.DelimitedText:=Values[KeyFlags];'#010+
|
|
|
+ #010+
|
|
|
+ ' i := 1;'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' PackageVariantsStr:=Values[KeyPackageVar+inttostr(i)];'#010+
|
|
|
+ ' if PackageVariantsStr<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' k := pos('#039':'#039',PackageVari','antsStr);'#010+
|
|
|
+ ' if k > 0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#010+
|
|
|
+ ' if PackageVarName[Length(PackageVarName)]='#039'*'#039' '+
|
|
|
+ 'then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' SetLength(P','ackageVarName,Length(PackageVarName)-1)'+
|
|
|
+ ';'#010+
|
|
|
+ ' AnIsInheritable:=true;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' AnIsInheritable:=false;'#010+
|
|
|
+ ' PackageVariantsStr:=copy(PackageVariantsStr,k+1,length'+
|
|
|
+ '(Pa','ckageVariantsStr)-k);'#010+
|
|
|
+ ' pv := Installer.AddPackageVariant(PackageVarName, AnIs'+
|
|
|
+ 'Inheritable);'#010+
|
|
|
+ ' AddPackageVariant(pv);'#010+
|
|
|
+ #010+
|
|
|
+ ' k := pos('#039','#039',PackageVariantsStr);'#010+
|
|
|
+ ' while k>0 do'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#010+
|
|
|
+ ' PackageVariantsStr:=copy(PackageVariantsStr,k+1,le'+
|
|
|
+ 'ngth(PackageVariantsStr)-k);'#010+
|
|
|
+ ' pv.Add(PackageVarName);'#010+
|
|
|
+ ' ','k := pos('#039','#039',PackageVariantsStr);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' pv.Add(PackageVariantsStr);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' inc(i);'#010+
|
|
|
+ ' until PackageVariantsStr='#039#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'proce','dure TPackage.SaveUnitConfigToStringList(const AStringList: TSt'+
|
|
|
+ 'rings; ACPU: TCPU; AOS: TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Deps : String;'#010+
|
|
|
+ ' i,j : integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' p : TPackage;'#010+
|
|
|
+ ' PackageVariants : TPackageVariants;'#010+
|
|
|
+ ' PackageVariantsStr: string;'#010+
|
|
|
+ 'begin'#010,
|
|
|
+ ' with AStringList do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Values[KeyName]:=Name;'#010+
|
|
|
+ ' Values[KeyVersion]:=Version;'#010+
|
|
|
+ ' // TODO Generate checksum based on PPUs'#010+
|
|
|
+ ' Values[KeyChecksum]:=IntToStr(DateTimeToFileDate(Now));'#010+
|
|
|
+ ' Values[KeyCPU]:=CPUToString(AC','PU);'#010+
|
|
|
+ ' Values[KeyOS]:=OSToString(AOS);'#010+
|
|
|
+ ' //Installer;'#010+
|
|
|
' Values[KeySourcePath]:=IncludeTrailingPathDelimiter(IncludeTrail'+
|
|
|
- 'ingPathDelimiter(Installer.BuildEngine.FStartDir)+Directory);'#013#010+
|
|
|
- ' Values[KeyFPMakeOptions]:=trim(Inst','aller.FPMakeOptionsString);'+
|
|
|
- #013#010+
|
|
|
- ' Deps:='#039#039';'#013#010+
|
|
|
- ' for i:=0 to Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=Dependencies[i];'#013#010+
|
|
|
- ' if (ACPU in D.CPUs) and (AOS in D.OSes) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Deps<>'#039#039' then',#013#010+
|
|
|
- ' Deps:=Deps+'#039','#039';'#013#010+
|
|
|
- ' Deps:=Deps+D.Value;'#013#010+
|
|
|
- ' P:=TPackage(D.Target);'#013#010+
|
|
|
+ 'ingPathDelimiter(Installer.BuildEngine.FStartDir)+Directory);'#010+
|
|
|
+ ' Values[KeyFPMakeOptions]:=trim(Installer','.FPMakeOptionsString);'+
|
|
|
+ #010+
|
|
|
+ ' Deps:='#039#039';'#010+
|
|
|
+ ' for i:=0 to Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=Dependencies[i];'#010+
|
|
|
+ ' if (ACPU in D.CPUs) and (AOS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Deps<>'#039#039' then'#010+
|
|
|
+ ' ',' Deps:=Deps+'#039','#039';'#010+
|
|
|
+ ' Deps:=Deps+D.Value;'#010+
|
|
|
+ ' P:=TPackage(D.Target);'#010+
|
|
|
' if assigned(P) and (P.InstalledChecksum<>$ffffffff) then'+
|
|
|
- #013#010+
|
|
|
- ' Deps:=Deps+'#039'|'#039'+IntToStr(P.InstalledChecksum)',';'+
|
|
|
- #013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Values[KeyDepends]:=Deps;'#013#010+
|
|
|
- ' if NeedLibC then'#013#010+
|
|
|
- ' Values[KeyNeedLibC]:='#039'Y'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Values[KeyNeedLibC]:='#039'N'#039';'#013#010+
|
|
|
- ' if IsFPMakeAddIn then'#013#010+
|
|
|
- ' Values[KeyAddIn]:='#039'Y'#039#013#010+
|
|
|
- ' e','lse'#013#010+
|
|
|
- ' Values[KeyAddIn]:='#039'N'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
+ ' Deps:=Deps+'#039'|'#039'+IntToStr(P.InstalledChecksum);'#010+
|
|
|
+ ' end',';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Values[KeyDepends]:=Deps;'#010+
|
|
|
+ ' if Flags.Count>0 then'#010+
|
|
|
+ ' Values[KeyFlags]:=Flags.DelimitedText;'#010+
|
|
|
+ ' if NeedLibC then'#010+
|
|
|
+ ' Values[KeyNeedLibC]:='#039'Y'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Values[KeyNeedLibC]:='#039'N'#039';'#010+
|
|
|
+ ' if IsFPMake','AddIn then'#010+
|
|
|
+ ' Values[KeyAddIn]:='#039'Y'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Values[KeyAddIn]:='#039'N'#039';'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVariants := TPackageVariants(FPackageVariants.Items[i'+
|
|
|
+ ']);'#010+
|
|
|
+ ' PackageVari','antsStr:=PackageVariants.Name;'#010+
|
|
|
+ ' if PackageVariants.IsInheritable then'#010+
|
|
|
+ ' PackageVariantsStr:=PackageVariantsStr+'#039'*'#039';'#010+
|
|
|
+ ' PackageVariantsStr := PackageVariantsStr +'#039':'#039'+Packag'+
|
|
|
+ 'eVariants.DefaultPackageVariantName;'#010+
|
|
|
+ ' ',' for j := 0 to PackageVariants.Count-1 do'#010+
|
|
|
+ ' if not sametext(PackageVariants.Items[j].Name, PackageVari'+
|
|
|
+ 'ants.DefaultPackageVariantName) then'#010+
|
|
|
+ ' PackageVariantsStr:=PackageVariantsStr+'#039','#039'+Packa'+
|
|
|
+ 'geVariants.Items[j].Name;'#010,
|
|
|
+ ' values[KeyPackageVar+inttostr(i+1)] := PackageVariantsStr;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TPackage.SaveUnitConfigToFile(Const AFileName: String;ACPU:T'+
|
|
|
- 'CPU;AOS:TOS);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- ' L : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmCreate);'#013#010+
|
|
|
- ' ','L:=TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' SaveUnitConfigToStringList(L,ACPU,AOS);'#013#010+
|
|
|
- ' L.SaveToStream(F);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' F.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TPackages'#013#010+
|
|
|
+ 'CPU;AOS:TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ ' L : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileS','tream.Create(AFileName,fmCreate);'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' SaveUnitConfigToStringList(L,ACPU,AOS);'#010+
|
|
|
+ ' L.SaveToStream(F);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' F.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{**********************************************************','*********'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TPackages'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackages.GetPackage(const AName : String): TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TPackage(ItemByName(AName))'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'func','tion TPackages.GetPackageItem(AIndex : Integer): TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TPackage(Items[AIndex]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackages.GetPackage(const AName : String): TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TPackage(ItemByName(ANa','me))'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackages.GetPackageItem(AIndex : Integer): TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TPackage(Items[AIndex]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TPackages.SetPackageItem(AIndex : Integer; const AValue: TPa'+
|
|
|
- 'ckage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[AIndex]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'funct','ion TPackages.AddPackage(const AName: String): TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TPackage;'#013#010+
|
|
|
- ' Result.Name:=AName;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'ckage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[AIndex]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'fu','nction TPackages.AddPackage(const AName: String): TPackage;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' i := IndexOfName(AName);'#010+
|
|
|
+ ' if i > -1 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := PackageItems[i];'#010+
|
|
|
+ ' Installer.Log(vlWarning,Format(SWarnDuplicatePackage,[AName]))'#010+
|
|
|
+ ' ','end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Add as TPackage;'#010+
|
|
|
+ ' Result.Name:=AName;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TCusto','mDefaults'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetCPU(const AValue: TCPU);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FCPU:=AValue;'#013#010+
|
|
|
- ' RecalcTarget;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetOptions(const A','Value: TStrings);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (AValue=Nil) or (AValue.Count=0) then'#013#010+
|
|
|
- ' FreeAndNil(Foptions)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Options.Assign(AValue)'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetBaseInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FBaseInstallDir<>'#039#039') then'#013#010+
|
|
|
- ' R','esult:=FBaseInstallDir'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' if UnixPaths then'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TCustomDefaults'#010+
|
|
|
+ '***************************','*****************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetCPU(const AValue: TCPU);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FCPU:=AValue;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'CPU'#039',CPUToString(FCPU));'#010+
|
|
|
+ ' RecalcTarget;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetOpti','ons(const AValue: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (AValue=Nil) or (AValue.Count=0) then'#010+
|
|
|
+ ' FreeAndNil(Foptions)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Options.Assign(AValue)'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetBaseInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FBaseInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Re','sult:=FBaseInstallDir'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' if UnixPaths then'#010+
|
|
|
' Result:=Prefix +'#039'lib'#039' + PathDelim + '#039'fpc'#039' + Path'+
|
|
|
- 'Delim + FCompilerVersion + PathDelim'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=Prefix;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetBinInstallDir: String;',#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FBinInstallDir<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FBinInstallDir'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' If UnixPaths then'#013#010+
|
|
|
- ' Result:=Prefix+'#039'bin'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=BaseInstallDir+'#039'bin'#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetCompiler: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ',' If (FCompiler<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FCompiler'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:='#039'fpc'#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetDocInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FDocInstallDir<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FDocInstallDir'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' If UnixPaths then'#013#010+
|
|
|
- ' ',' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=BaseInstallDir+'#039'docs'#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetExamplesInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FExamplesInstallDir<>'#039#039') then'#013#010+
|
|
|
- ' Result:=FExamplesInstallDir'#013#010+
|
|
|
- ' els','e'#013#010+
|
|
|
- ' If UnixPaths then'#013#010+
|
|
|
- ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=BaseInstallDir+'#039'examples'#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetOptions: TStrings;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FOptions=Nil) then'#013#010+
|
|
|
- ' FOptions:=TStringList.C','reate;'#013#010+
|
|
|
- ' Result:=FOptions;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetUnitInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'target'#039',Target);'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'BaseInstallDir'#039',BaseInstallDir);'#013+
|
|
|
- #010+
|
|
|
- ' result := FixPath(Dictionary.Replac','eStrings(FUnitInstallDir));'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetLocalUnitDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=FLocalUnitDir;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetFPDocOutputDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FFPDocOutputDir<>'#039#039') then'#013#010+
|
|
|
- ' Result:=Incl','udeTrailingPathDelimiter(FixPath(FFPDocOutputDir))'#013+
|
|
|
- #010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=IncludeTrailingPathDelimiter(FixPath('#039'.'#039'+PathDelim'+
|
|
|
- '+'#039'docs'#039'));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetGlobalUnitDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FGlobalUnitDir<>'#039#039') then'#013#010+
|
|
|
- ' R','esult:=FGlobalUnitDir'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=UnitInstallDir;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetLocalUnitDir(const AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Use ExpandFileName to support ~/ expansion'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FLocalUnitDir:=Include','TrailingPathDelimiter(ExpandFileName(AValu'+
|
|
|
- 'e))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FLocalUnitDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetGlobalUnitDir(const AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Use ExpandFileName to support ~/ expansion'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FG','lobalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AVal'+
|
|
|
- 'ue))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FGlobalUnitDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetBaseInstallDir(const AValue: String);'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Use ExpandFileName to support ~/ expansion'#013#010+
|
|
|
- ' if ','AValue<>'#039#039' then'#013#010+
|
|
|
- ' FBaseInstallDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValu'+
|
|
|
- 'e))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FBaseInstallDir:='#039#039';'#013#010+
|
|
|
- ' BinInstallDir:='#039#039';'#013#010+
|
|
|
- ' ExamplesInstallDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetOS(const AValue: TOS);'#013#010+
|
|
|
- 'be','gin'#013#010+
|
|
|
- ' FOS:=AValue;'#013#010+
|
|
|
- ' Recalctarget;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetPrefix(const AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FPrefix=AValue then exit;'#013#010+
|
|
|
- ' FPrefix:=IncludeTrailingPathDelimiter(AValue);'#013#010+
|
|
|
- ' BaseInstallDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure ','TCustomDefaults.SetTarget(const AValue: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' P : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FTarget<>AValue then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Pos('#039'-'#039',AValue);'#013#010+
|
|
|
- ' If (P<>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FOS:=StringToOS(System.Copy(Avalue,P+1,Length(AVal','ue)-P));'+
|
|
|
- #013#010+
|
|
|
- ' FCPU:=StringToCPU(System.Copy(Avalue,1,P-1));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FOS:=StringToOS(AValue);'#013#010+
|
|
|
- ' FTarget:=AValue;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetUnitInstallDir(const AValue: String);'#013+
|
|
|
- #010+
|
|
|
- 'begi','n'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FUnitInstallDir:=IncludeTrailingPathDelimiter(AValue)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FUnitInstallDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.RecalcTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Ftarget:=CPUToString(FCPU)+'#039'-'#039'+OStoString(FOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'funct','ion TCustomDefaults.CmdLineOptions: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Haveoptions then'#013#010+
|
|
|
- ' Result:=OptionListToString(FOptions);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TCustomDefaults.Create;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' InitDefaults;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.InitDefaults;'#013#010,
|
|
|
- 'begin'#013#010+
|
|
|
- '{$ifdef unix}'#013#010+
|
|
|
- ' UnixPaths:=True;'#013#010+
|
|
|
- '{$else}'#013#010+
|
|
|
- ' UnixPaths:=False;'#013#010+
|
|
|
- '{$endif}'#013#010+
|
|
|
- ' FNoFPCCfg:=False;'#013#010+
|
|
|
- ' FCPU:=cpuNone;'#013#010+
|
|
|
- ' FOS:=osNone;'#013#010+
|
|
|
+ 'Delim + FCompilerVersion + PathDelim'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=Prefix;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetBinInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I','f (FBinInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FBinInstallDir'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' If UnixPaths then'#010+
|
|
|
+ ' Result:=Prefix+'#039'bin'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=BaseInstallDir+'#039'bin'#039'+pathdelim+MakeTargetString('+
|
|
|
+ 'Defaults.cpu, Defaults.OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefault','s.GetCompiler: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FCompiler<>'#039#039') then'#010+
|
|
|
+ ' Result:=FCompiler'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:='#039'fpc'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetDocInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FDocInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FDocInstallDir'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' If U','nixPaths then'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=BaseInstallDir+'#039'docs'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetExamplesInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FExamplesInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FExamplesInstallDi','r'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' If UnixPaths then'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=BaseInstallDir+'#039'examples'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetOptions: TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FOptions=Nil) then'#010+
|
|
|
+ ' FOptions:=TStringList.Crea','te;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetUnitInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := FixPath(GlobalDictionary.ReplaceStrings(FUnitInstallDir), '+
|
|
|
+ 'True);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetLocalUnitDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=F','LocalUnitDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetFPDocOutputDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FFPDocOutputDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FixPath(FFPDocOutputDir, True)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=FixPath('#039'.'#039'+PathDelim+'#039'docs'#039', True);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.','GetBuildCPU: TCpu;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := StringToCPU({$I %FPCTARGETCPU%});'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetBuildOS: TOS;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := StringToOS({$I %FPCTARGETOS%});'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetBuildString: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result :','= MakeTargetString(BuildCPU, BuildOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetGlobalUnitDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FGlobalUnitDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FGlobalUnitDir'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=UnitInstallDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetLocalUnit','Dir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Use ExpandFileName to support ~/ expansion'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FLocalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue)'+
|
|
|
+ ')'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FLocalUnitDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.Set','GlobalUnitDir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Use ExpandFileName to support ~/ expansion'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FGlobalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue'+
|
|
|
+ '))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FGlobalUnitDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomD','efaults.IntSetBaseInstallDir(const AValue: String)'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FBaseInstallDir:=IncludeTrailingPathDelimiter(AValue)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FBaseInstallDir:='#039#039';'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstallDir'+
|
|
|
+ ');'#010+
|
|
|
+ ' Glob','alDictionary.AddVariable('#039'bininstalldir'#039',BinInstallDir'+
|
|
|
+ ');'#010+
|
|
|
+ ' BinInstallDir:='#039#039';'#010+
|
|
|
+ ' ExamplesInstallDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetBaseInstallDir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // There must be a possibility to skip ExpandFileName.',' So that the'+
|
|
|
+ ' files'#010+
|
|
|
+ ' // can be written into an archive with a relative path.'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' // Use ExpandFileName to support ~/ expansion'#010+
|
|
|
+ ' IntSetBaseInstallDir(ExpandFileName(AValue))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' IntSetBaseInstallDir(AValue);'#010+
|
|
|
+ 'en','d;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetOS(const AValue: TOS);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FOS:=AValue;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS));'#010+
|
|
|
+ ' Recalctarget;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetPrefix(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FPrefix=AValue ','then exit;'#010+
|
|
|
+ ' // Use ExpandFileName to support ~/ expansion'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FPrefix:=IncludeTrailingPathDelimiter(ExpandFileName(AValue))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FPrefix:='#039#039';'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#010+
|
|
|
+ ' GlobalDictionary.Ad','dVariable('#039'bininstalldir'#039',BinInstallDir'+
|
|
|
+ ');'#010+
|
|
|
+ ' BaseInstallDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetTarget(const AValue: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' P : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FTarget<>AValue then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Pos('#039'-'#039',AValue);'#010+
|
|
|
+ ' If (P<>0) then'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' FOS:=StringToOS(System.Copy(Avalue,P+1,Length(AValue)-P));'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS));'#010+
|
|
|
+ ' FCPU:=StringToCPU(System.Copy(Avalue,1,P-1));'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'C','PU'#039',CPUToString(FCP'+
|
|
|
+ 'U));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FOS:=StringToOS(AValue);'#010+
|
|
|
+ ' FTarget:=AValue;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'target'#039',Target);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetUnitInstallDir(const AValue: String);'#010+
|
|
|
+ 'be','gin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FUnitInstallDir:=IncludeTrailingPathDelimiter(AValue)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FUnitInstallDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.RecalcTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Ftarget:=MakeTargetString(FCPU,FOS);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039't','arget'#039',Target);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.CmdLineOptions: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Haveoptions then'#010+
|
|
|
+ ' Result:=OptionListToString(FOptions);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'constructor TCustomDefaults.Create;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' InitDefaults;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.I','nitDefaults;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ '{$ifdef unix}'#010+
|
|
|
+ ' UnixPaths:=True;'#010+
|
|
|
+ '{$else}'#010+
|
|
|
+ ' UnixPaths:=False;'#010+
|
|
|
+ '{$endif}'#010+
|
|
|
+ ' FNoFPCCfg:=False;'#010+
|
|
|
+ ' FCPU:=cpuNone;'#010+
|
|
|
+ ' FOS:=osNone;'#010+
|
|
|
' FUnitInstallDir:='#039'$(BaseInstallDir)units/$(target)/$(packagename'+
|
|
|
- ')'#039';'#013#010+
|
|
|
- ' FBuildMode:=bmOneByOne;'#013#010+
|
|
|
- 'end;'#013,#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.HaveOptions: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Assigned(FOptions);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.LocalInit(Const AFileName : String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' FN : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FN:=AFileName;'#013#010+
|
|
|
- ' If (FN='#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' // Environment variable.'#013#010+
|
|
|
- ' FN:=GetEnvironmentVariable('#039'FPMAKECFG'#039');'#013#010+
|
|
|
- ' If (FN<>'#039#039') then'#013#010+
|
|
|
- ' If not FileExists(FN) then'#013#010+
|
|
|
- ' FN:='#039#039';'#013#010+
|
|
|
- ' // User config file fpmake.cfg'#013#010+
|
|
|
- ' If (FN='#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FN:=GetAppConfig','File(False);'#013#010+
|
|
|
- ' If Not FileExists(FN) then'#013#010+
|
|
|
- ' FN:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Global config file fpmake.cfg'#013#010+
|
|
|
- ' If (FN='#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FN:=GetAppConfigFile(True);'#013#010+
|
|
|
- ' If Not FileExists(FN) then'#013#010+
|
|
|
- ' FN:='#039#039';'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If (FN<>'#039#039') and FileExists(FN) then'#013#010+
|
|
|
- ' LoadFromFile(FN);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.CompilerDefaults;'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' infoSL : TStringList;'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if (CPU=cpuNo','ne) or (OS=osNone) or (FCompilerVersion='#039#039') the'+
|
|
|
- 'n'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' // Detect compiler version/target from -i option'#013#010+
|
|
|
- ' infosl:=TStringList.Create;'#013#010+
|
|
|
- ' infosl.Delimiter:='#039' '#039';'#013#010+
|
|
|
- ' infosl.DelimitedText:=Get','CompilerInfo(GetCompiler,'#039'-iVTPTO'+
|
|
|
- #039');'#013#010+
|
|
|
- ' if infosl.Count<>3 then'#013#010+
|
|
|
- ' Raise EInstallerError.Create(SErrInvalidFPCInfo);'#013#010+
|
|
|
- ' if FCompilerVersion='#039#039' then'#013#010+
|
|
|
- ' FCompilerVersion:=infosl[0];'#013#010+
|
|
|
- ' if CPU=cpuNone then'#013#010+
|
|
|
- ' CPU:','=StringToCPU(infosl[1]);'#013#010+
|
|
|
- ' if OS=osNone then'#013#010+
|
|
|
- ' OS:=StringToOS(infosl[2]);'#013#010+
|
|
|
- '{$else HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' // Defaults taken from compiler used to build fpmake'#013#010+
|
|
|
- ' if CPU=cpuNone then'#013#010+
|
|
|
- ' CPU:=StringToCPU({$I %FPCTARGETC','PU%});'#013#010+
|
|
|
- ' if OS=osNone then'#013#010+
|
|
|
- ' OS:=StringToOS({$I %FPCTARGETOS%});'#013#010+
|
|
|
- ' if FCompilerVersion='#039#039' then'#013#010+
|
|
|
- ' FCompilerVersion:={$I %FPCVERSION%};'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.LoadFrom','File(Const AFileName: String);'#013+
|
|
|
- #010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmOpenRead);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' LoadFromStream(F);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' F.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SaveToFile(Const AFileName: S','tring);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmCreate);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' SaveToStream(F);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' F.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SaveToStream(S : TStream);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' L : TStringList;'#013#010+
|
|
|
- 'beg','in'#013#010+
|
|
|
- ' L:=TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' With L do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Values[KeyArchive]:=FArchive;'#013#010+
|
|
|
- ' Values[KeyCompiler]:=FCompiler;'#013#010+
|
|
|
- ' Values[KeyCopy]:=FCopy;'#013#010+
|
|
|
- ' Values[KeyMkDir]:=FMkDir;'#013#010+
|
|
|
- ' Values[KeyMove]:=FMove;'#013#010+
|
|
|
- ' ',' Values[KeyOptions]:=CmdLineOptions;'#013#010+
|
|
|
- ' Values[KeyCPU]:=CPUToString(FCPU);'#013#010+
|
|
|
- ' Values[KeyOS]:=OSToString(FOS);'#013#010+
|
|
|
- ' Values[KeyMode]:=ModeToString(FMode);'#013#010+
|
|
|
- ' Values[KeyLocalUnitDir]:=FLocalUnitDir;'#013#010+
|
|
|
- ' Values[KeyGlobalUnitDi','r]:=FGlobalUnitDir;'#013#010+
|
|
|
- ' Values[KeyPrefix]:=FPrefix;'#013#010+
|
|
|
- ' Values[KeyBaseInstallDir]:=FBaseInstallDir;'#013#010+
|
|
|
- ' Values[KeyUnitInstallDir]:=FUnitInstallDir;'#013#010+
|
|
|
- ' Values[KeyBinInstallDir]:=FBinInstallDir;'#013#010+
|
|
|
- ' Values[KeyDocInstallDir]:=F','DocInstallDir;'#013#010+
|
|
|
- ' Values[KeyExamplesInstallDir]:=FExamplesInstallDir;'#013#010+
|
|
|
- ' Values[KeyRemove]:=FRemove;'#013#010+
|
|
|
- ' Values[KeyRemoveDir]:=FRemoveDir;'#013#010+
|
|
|
- ' Values[KeyRemoveTree]:=FRemoveTree;'#013#010+
|
|
|
- ' Values[KeyTarget]:=FTarget;'#013#010+
|
|
|
- ' if FN','oFPCCfg then'#013#010+
|
|
|
- ' Values[KeyNoFPCCfg]:='#039'Y'#039';'#013#010+
|
|
|
- ' if FUseEnvironment then'#013#010+
|
|
|
- ' Values[KeyUseEnv]:='#039'Y'#039';'#013#010+
|
|
|
- ' if FInstallExamples then'#013#010+
|
|
|
- ' Values[KeyInstallExamples]:='#039'Y'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' L.SaveToStream(S);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' ','L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.LoadFromStream(S: TStream);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' L : TStrings;'#013#010+
|
|
|
- ' Line : String;'#013#010+
|
|
|
- ' I,P,PC : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' L:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' L.LoadFromStream(S);'#013#010+
|
|
|
- ' // Fix lines.'#013#010+
|
|
|
- ' For I:=L','.Count-1 downto 0 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Line:=L[I];'#013#010+
|
|
|
- ' P:=Pos('#039'='#039',Line);'#013#010+
|
|
|
- ' PC:=Pos('#039';'#039',Line); // Comment line.'#013#010+
|
|
|
- ' If (P=0) or ((PC<>0) and (PC<P)) then'#013#010+
|
|
|
- ' L.Delete(I)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' L[i]:=Trim(System.Copy(Line,1,P','-1)+'#039'='#039'+Trim(System.C'+
|
|
|
- 'opy(Line,P+1,Length(Line)-P)));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' With L do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FArchive:=Values[KeyArchive];'#013#010+
|
|
|
- ' FCompiler:=Values[KeyCompiler];'#013#010+
|
|
|
- ' FCopy:=Values[KeyCopy];'#013#010+
|
|
|
- ' FMkDir:=Values[KeyMkDir];'#013#010+
|
|
|
- ' ','FMove:=Values[KeyMove];'#013#010+
|
|
|
- ' FRemove:=Values[KeyRemove];'#013#010+
|
|
|
- ' FRemoveDir:=Values[KeyRemoveDir];'#013#010+
|
|
|
- ' FRemoveTree:=Values[KeyRemoveTree];'#013#010+
|
|
|
- ' Options:=OptionsToStringList(Values[KeyOptions]);'#013#010+
|
|
|
- ' Line:=Values[KeyCPU];'#013#010+
|
|
|
- ' If (','Line<>'#039#039') then'#013#010+
|
|
|
- ' FCPU:=StringToCPU(Line);'#013#010+
|
|
|
- ' Line:=Values[KeyOS];'#013#010+
|
|
|
- ' If (Line<>'#039#039') then'#013#010+
|
|
|
- ' FOS:=StringToOS(Line);'#013#010+
|
|
|
- ' Line:=Values[KeyMode];'#013#010+
|
|
|
- ' If (Line<>'#039#039') then'#013#010+
|
|
|
- ' FMode:=StringToMode(Line);'#013#010+
|
|
|
- ' FTarge','t:=Values[KeyTarget];'#013#010+
|
|
|
- ' FLocalUnitDir:=Values[KeyLocalUnitDir];'#013#010+
|
|
|
- ' FGlobalUnitDir:=Values[KeyGlobalUnitDir];'#013#010+
|
|
|
- ' FPrefix:=Values[KeyPrefix];'#013#010+
|
|
|
- ' FBaseInstallDir:=Values[KeyBaseInstallDir];'#013#010+
|
|
|
- ' FUnitInstallDir:=Values[KeyUn','itInstallDir];'#013#010+
|
|
|
- ' FBinInstallDir:=Values[KeyBinInstallDir];'#013#010+
|
|
|
- ' FDocInstallDir:=Values[KeyDocInstallDir];'#013#010+
|
|
|
- ' FExamplesInstallDir:=Values[KeyExamplesInstallDir];'#013#010+
|
|
|
- ' FInstallExamples:=(Upcase(Values[KeyInstallExamples])='#039'Y'#039+
|
|
|
- ');'#013#010,
|
|
|
- ' FNoFPCCfg:=(Upcase(Values[KeyNoFPCCfg])='#039'Y'#039');'#013#010+
|
|
|
- ' FUseEnvironment:=(Upcase(Values[KeyUseEnv])='#039'Y'#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ')'#039';'#010+
|
|
|
+ ' FBuildMode:=bmOneByOne;'#010+
|
|
|
+ ' F','ThreadsAmount:=-1;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.HaveOptions: Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Assigned(FOptions);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.IsBuildDifferentFromTarget: boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := IsDifferentFromBuild(CPU,OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure',' TCustomDefaults.LocalInit(Const AFileName : String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' FN : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FN:=AFileName;'#010+
|
|
|
+ ' If (FN='#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Environment variable.'#010+
|
|
|
+ ' FN:=GetEnvironmentVariable('#039'FPMAKECFG'#039');'#010+
|
|
|
+ ' If (FN<>'#039#039') then'#010+
|
|
|
+ ' If not FileExis','ts(FN) then'#010+
|
|
|
+ ' FN:='#039#039';'#010+
|
|
|
+ ' // User config file fpmake.cfg'#010+
|
|
|
+ ' If (FN='#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FN:=GetAppConfigFile(False);'#010+
|
|
|
+ ' If Not FileExists(FN) then'#010+
|
|
|
+ ' FN:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Global config file fpmake.cfg'#010+
|
|
|
+ ' If (FN='#039#039,') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FN:=GetAppConfigFile(True);'#010+
|
|
|
+ ' If Not FileExists(FN) then'#010+
|
|
|
+ ' FN:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If (FN<>'#039#039') and FileExists(FN) then'#010+
|
|
|
+ ' LoadFromFile(FN);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.CompilerDefaults;'#010+
|
|
|
+ '{$ifdef',' HAS_UNIT_PROCESS}'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' infoSL : TStringList;'#010+
|
|
|
+ '{$endif HAS_UNIT_PROCESS}'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if (CPU=cpuNone) or (OS=osNone) or (FCompilerVersion='#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' // Detect compiler version/target from -i option'#010+
|
|
|
+ ' ','infosl:=TStringList.Create;'#010+
|
|
|
+ ' infosl.Delimiter:='#039' '#039';'#010+
|
|
|
+ ' infosl.DelimitedText:=GetCompilerInfo(GetCompiler,'#039'-iVTPTO'#039+
|
|
|
+ ');'#010+
|
|
|
+ ' if infosl.Count<>3 then'#010+
|
|
|
+ ' Raise EInstallerError.Create(SErrInvalidFPCInfo);'#010+
|
|
|
+ ' if FCompilerVersion='#039,#039' then'#010+
|
|
|
+ ' FCompilerVersion:=infosl[0];'#010+
|
|
|
+ ' if CPU=cpuNone then'#010+
|
|
|
+ ' CPU:=StringToCPU(infosl[1]);'#010+
|
|
|
+ ' if OS=osNone then'#010+
|
|
|
+ ' OS:=StringToOS(infosl[2]);'#010+
|
|
|
+ '{$else HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' // Defaults taken from compiler used to bui','ld fpmake'#010+
|
|
|
+ ' if CPU=cpuNone then'#010+
|
|
|
+ ' CPU:=StringToCPU({$I %FPCTARGETCPU%});'#010+
|
|
|
+ ' if OS=osNone then'#010+
|
|
|
+ ' OS:=StringToOS({$I %FPCTARGETOS%});'#010+
|
|
|
+ ' if FCompilerVersion='#039#039' then'#010+
|
|
|
+ ' FCompilerVersion:={$I %FPCVERSION%};'#010+
|
|
|
+ '{$endif HA','S_UNIT_PROCESS}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.LoadFromFile(Const AFileName: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmOpenRead);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' LoadFromStream(F);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' F.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'pr','ocedure TCustomDefaults.SaveToFile(Const AFileName: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmCreate);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' SaveToStream(F);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' F.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SaveToStream(S :',' TStream);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' With L do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Values[KeyArchive]:=FArchive;'#010+
|
|
|
+ ' Values[KeyCompiler]:=FCompiler;'#010+
|
|
|
+ ' Values[KeyCopy]:=FCopy;'#010+
|
|
|
+ ' Values[KeyMkDir]:=FMkDir;'#010+
|
|
|
+ ' V','alues[KeyMove]:=FMove;'#010+
|
|
|
+ ' Values[KeyOptions]:=CmdLineOptions;'#010+
|
|
|
+ ' Values[KeyCPU]:=CPUToString(FCPU);'#010+
|
|
|
+ ' Values[KeyOS]:=OSToString(FOS);'#010+
|
|
|
+ ' Values[KeyMode]:=ModeToString(FMode);'#010+
|
|
|
+ ' Values[KeyLocalUnitDir]:=FLocalUnitDir;'#010+
|
|
|
+ ' ','Values[KeyGlobalUnitDir]:=FGlobalUnitDir;'#010+
|
|
|
+ ' Values[KeyPrefix]:=FPrefix;'#010+
|
|
|
+ ' Values[KeyBaseInstallDir]:=FBaseInstallDir;'#010+
|
|
|
+ ' Values[KeyUnitInstallDir]:=FUnitInstallDir;'#010+
|
|
|
+ ' Values[KeyBinInstallDir]:=FBinInstallDir;'#010+
|
|
|
+ ' Values[Key','DocInstallDir]:=FDocInstallDir;'#010+
|
|
|
+ ' Values[KeyExamplesInstallDir]:=FExamplesInstallDir;'#010+
|
|
|
+ ' Values[KeyRemove]:=FRemove;'#010+
|
|
|
+ ' Values[KeyRemoveDir]:=FRemoveDir;'#010+
|
|
|
+ ' Values[KeyRemoveTree]:=FRemoveTree;'#010+
|
|
|
+ ' Values[KeyTarget]:=FTarget;'#010,
|
|
|
+ ' if FNoFPCCfg then'#010+
|
|
|
+ ' Values[KeyNoFPCCfg]:='#039'Y'#039';'#010+
|
|
|
+ ' if FUseEnvironment then'#010+
|
|
|
+ ' Values[KeyUseEnv]:='#039'Y'#039';'#010+
|
|
|
+ ' if FInstallExamples then'#010+
|
|
|
+ ' Values[KeyInstallExamples]:='#039'Y'#039';'#010+
|
|
|
+ ' if FSkipCrossPrograms then'#010+
|
|
|
+ ' Value','s[KeySkipCrossProdrams]:='#039'Y'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' L.SaveToStream(S);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.LoadFromStream(S: TStream);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TStrings;'#010+
|
|
|
+ ' Line : String;'#010+
|
|
|
+ ' I,P,PC : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create',';'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' L.LoadFromStream(S);'#010+
|
|
|
+ ' // Fix lines.'#010+
|
|
|
+ ' For I:=L.Count-1 downto 0 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Line:=L[I];'#010+
|
|
|
+ ' P:=Pos('#039'='#039',Line);'#010+
|
|
|
+ ' PC:=Pos('#039';'#039',Line); // Comment line.'#010+
|
|
|
+ ' If (P=0) or ((PC<>0) and (PC<P)) then'#010+
|
|
|
+ ' L.Delet','e(I)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' L[i]:=Trim(System.Copy(Line,1,P-1)+'#039'='#039'+Trim(System.Cop'+
|
|
|
+ 'y(Line,P+1,Length(Line)-P)));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' With L do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FArchive:=Values[KeyArchive];'#010+
|
|
|
+ ' FCompiler:=Values[KeyCompiler];'#010+
|
|
|
+ ' FCopy:=Values[K','eyCopy];'#010+
|
|
|
+ ' FMkDir:=Values[KeyMkDir];'#010+
|
|
|
+ ' FMove:=Values[KeyMove];'#010+
|
|
|
+ ' FRemove:=Values[KeyRemove];'#010+
|
|
|
+ ' FRemoveDir:=Values[KeyRemoveDir];'#010+
|
|
|
+ ' FRemoveTree:=Values[KeyRemoveTree];'#010+
|
|
|
+ ' Options:=OptionsToStringList(Values[KeyOptions]',');'#010+
|
|
|
+ ' Line:=Values[KeyCPU];'#010+
|
|
|
+ ' If (Line<>'#039#039') then'#010+
|
|
|
+ ' FCPU:=StringToCPU(Line);'#010+
|
|
|
+ ' Line:=Values[KeyOS];'#010+
|
|
|
+ ' If (Line<>'#039#039') then'#010+
|
|
|
+ ' FOS:=StringToOS(Line);'#010+
|
|
|
+ ' Line:=Values[KeyMode];'#010+
|
|
|
+ ' If (Line<>'#039#039') then'#010+
|
|
|
+ ' FMode:','=StringToMode(Line);'#010+
|
|
|
+ ' FTarget:=Values[KeyTarget];'#010+
|
|
|
+ ' FLocalUnitDir:=Values[KeyLocalUnitDir];'#010+
|
|
|
+ ' FGlobalUnitDir:=Values[KeyGlobalUnitDir];'#010+
|
|
|
+ ' FPrefix:=Values[KeyPrefix];'#010+
|
|
|
+ ' FBaseInstallDir:=Values[KeyBaseInstallDir];'#010+
|
|
|
+ ' F','UnitInstallDir:=Values[KeyUnitInstallDir];'#010+
|
|
|
+ ' FBinInstallDir:=Values[KeyBinInstallDir];'#010+
|
|
|
+ ' FDocInstallDir:=Values[KeyDocInstallDir];'#010+
|
|
|
+ ' FExamplesInstallDir:=Values[KeyExamplesInstallDir];'#010+
|
|
|
+ ' FInstallExamples:=(Upcase(Values[KeyI','nstallExamples])='#039'Y'#039+
|
|
|
+ ');'#010+
|
|
|
+ ' FSkipCrossPrograms:=(Upcase(Values[KeySkipCrossProdrams])='#039'Y'+
|
|
|
+ #039');'#010+
|
|
|
+ ' FNoFPCCfg:=(Upcase(Values[KeyNoFPCCfg])='#039'Y'#039');'#010+
|
|
|
+ ' FUseEnvironment:=(Upcase(Values[KeyUseEnv])='#039'Y'#039');'#010+
|
|
|
+ #010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'ta','rget'#039',Target);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstal'+
|
|
|
+ 'lDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'bininstalldir'#039',BinInstallD'+
|
|
|
+ 'ir);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '******','*'#013#010+
|
|
|
- ' TFPCDefaults'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TFPCDefaults'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TFPCDefaults.CompilerDefaults;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' BD : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited CompilerDefaults;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Use t','he same algorithm as the compiler, see options.pas'#013#010+
|
|
|
- '{$ifdef Unix}'#013#010+
|
|
|
- ' BD:=FixPath(GetEnvironmentVariable('#039'FPCDIR'#039'));'#013#010+
|
|
|
- ' if BD='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' BD:='#039'/usr/local/lib/fpc/'#039'+FCompilerVersion;'#013#010+
|
|
|
- ' if not DirectoryExists(BD) and'#013#010+
|
|
|
- ' ',' DirectoryExists('#039'/usr/lib/fpc/'#039'+FCompilerVersion) t'+
|
|
|
- 'hen'#013#010+
|
|
|
- ' BD:='#039'/usr/lib/fpc/'#039'+FCompilerVersion;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- '{$else unix}'#013#010+
|
|
|
- ' BD:=FixPath(GetEnvironmentVariable('#039'FPCDIR'#039'));'#013#010+
|
|
|
- ' if BD='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' BD:=ExtractFilePath(FCompi','ler)+'#039'..'#039';'#013#010+
|
|
|
- ' if not(DirectoryExists(BD+'#039'/units'#039')) and'#013#010+
|
|
|
- ' not(DirectoryExists(BD+'#039'/rtl'#039')) then'#013#010+
|
|
|
- ' BD:=FBaseInstallDir+'#039'..'#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- '{$endif unix}'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Where to install by default'#013#010+
|
|
|
- ' if (FBaseInstallDir='#039#039') and (FPrefi','x='#039#039') then'#013#010+
|
|
|
- ' BaseInstallDir:=BD;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Where to find the units by default'#013#010+
|
|
|
- ' if (FGlobalUnitDir='#039#039') then'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TFPCDefaults.Compile','rDefaults;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' BD : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited CompilerDefaults;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Use the same algorithm as the compiler, see options.pas'#010+
|
|
|
+ '{$ifdef Unix}'#010+
|
|
|
+ ' BD:=FixPath(GetEnvironmentVariable('#039'FPCDIR'#039'), True);'#010+
|
|
|
+ ' if BD='#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' BD:='#039'/usr/l','ocal/lib/fpc/'#039'+FCompilerVersion;'#010+
|
|
|
+ ' if not DirectoryExists(BD) and'#010+
|
|
|
+ ' DirectoryExists('#039'/usr/lib/fpc/'#039'+FCompilerVersion) the'+
|
|
|
+ 'n'#010+
|
|
|
+ ' BD:='#039'/usr/lib/fpc/'#039'+FCompilerVersion;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$else unix}'#010+
|
|
|
+ ' BD:=FixPath(GetEnvironmentVariable('#039,'FPCDIR'#039'), True);'#010+
|
|
|
+ ' if BD='#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' BD:=ExtractFilePath(FCompiler)+'#039'..'#039';'#010+
|
|
|
+ ' if not(DirectoryExists(BD+'#039'/units'#039')) and'#010+
|
|
|
+ ' not(DirectoryExists(BD+'#039'/rtl'#039')) then'#010+
|
|
|
+ ' BD:=FBaseInstallDir+'#039'..'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$endif unix}'#010+
|
|
|
+ #010+
|
|
|
+ ' /','/ Where to install by default'#010+
|
|
|
+ ' if (FBaseInstallDir='#039#039') and (FPrefix='#039#039') then'#010+
|
|
|
+ ' BaseInstallDir:=BD;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Where to find the units by default'#010+
|
|
|
+ ' if (FGlobalUnitDir='#039#039') then'#010+
|
|
|
' GlobalUnitDir:=IncludeTrailingPathDelimiter(BD)+'#039'units'#039'+Pa'+
|
|
|
- 'thDelim+Target;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{***************************************','****************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TCustomInstaller'#013#010+
|
|
|
+ 'thDel','im+Target;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TCustomInstaller'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TCustomInstaller.Create(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Diction','ary:=DictionaryClass.Create(Nil);'#013#010+
|
|
|
- ' AnalyzeOptions;'#013#010+
|
|
|
- ' CreatePackages;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TCustomInstaller.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreePackages;'#013#010+
|
|
|
- ' FreeAndNil(Defaults);'#013#010+
|
|
|
- ' FreeAndNil(Dictionary);'#013#010+
|
|
|
- ' inherited destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCus','tomInstaller.GetPackages: TPackages;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := FPackages;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Log(Level: TVerboseLevel; const Msg: String'+
|
|
|
- ');'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Level in FLogLevels then'#013#010+
|
|
|
- ' Writeln(StdOut,Msg);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCust','omInstaller.CreatePackages;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FPackages:=TPackages.Create(TPackage);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.FreePackages;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FPackages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.CreateBuildEngine;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FBuildEngine:','=TBuildEngine.Create(Self);'#013#010+
|
|
|
- '// FBuildEngine.Defaults:=Defaults;'#013#010+
|
|
|
- ' FBuildEngine.ListMode:=FListMode;'#013#010+
|
|
|
- ' FBuildEngine.Verbose := (FLogLevels = AllMessages);'#013#010+
|
|
|
- ' FBuildEngine.OnLog:[email protected];'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Error(cons','t Msg: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.Create(Msg);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TCustomI','nstaller.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FPackageVariantSettings := TStringList.Create;'#010+
|
|
|
+ ' FPackageVariants := TFPList.Create;'#010+
|
|
|
+ ' GlobalDictionary:=DictionaryClass.Create(Nil);'#010+
|
|
|
+ ' AnalyzeOptions;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'BaseInstall','Dir'#039',Defaults.Bas'+
|
|
|
+ 'eInstallDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'bininstalldir'#039',Defaults.BinIns'+
|
|
|
+ 'tallDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'Target'#039',Defaults.Target);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'BuildString'#039',Defaults.BuildStr'+
|
|
|
+ 'ing);'#010+
|
|
|
+ ' GlobalDic','tionary.AddVariable('#039'Prefix'#039',Defaults.Prefix);'#010+
|
|
|
+ ' CreatePackages;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TCustomInstaller.Destroy;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreePackages;'#010+
|
|
|
+ ' FreeAndNil(Defaults);'#010+
|
|
|
+ ' FreeAndNil(GlobalDictionary);'#010+
|
|
|
+ ' FreeAndNil(FPackageVariantSetting','s);'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if TPackageVariants(FPackageVariants.Items[i]).Owner=Self then'#010+
|
|
|
+ ' TPackageVariants(FPackageVariants.Items[i]).Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' FreeAndNil(FPackageVariants);'#010+
|
|
|
+ ' inherited destro','y;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomInstaller.GetPackages: TPackages;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := FPackages;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Log(Level: TVerboseLevel; Const Msg: String'+
|
|
|
+ ');'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Level in FLogLevels then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Writeln(StdOut, Msg);'#010+
|
|
|
+ ' ',' Flush(StdOut);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.CreatePackages;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FPackages:=TPackages.Create(TPackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.FreePackages;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FPackages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Crea','teBuildEngine;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FBuildEngine:=TBuildEngine.Create(Self);'#010+
|
|
|
+ '// FBuildEngine.Defaults:=Defaults;'#010+
|
|
|
+ ' FBuildEngine.ListMode:=FListMode;'#010+
|
|
|
+ ' FBuildEngine.Verbose := (FLogLevels = AllMessages);'#010+
|
|
|
+ ' FBuildEngine.OnLog:[email protected];'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure',' TCustomInstaller.Error(const Msg: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.Create(Msg);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TCustomInstaller.Error(const Fmt: String; Args: array of con'+
|
|
|
- 'st);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(Fmt,Args);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TCustomInstaller.Add','Package(const AName: String) : TPackage'+
|
|
|
- ';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Packages.AddPackage(AName);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.AnalyzeOptions;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Function CheckOption(Index : Integer;const Short,Long : String; AddT'+
|
|
|
- 'oOptionString: boolean = t','rue): Boolean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' O : String;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' O:=Paramstr(Index);'#013#010+
|
|
|
+ 'st);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(Fmt,Args);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TCus','tomInstaller.AddPackage(const AName: String) : TPackage'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Packages.AddPackage(AName);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomInstaller.AddPackageVariant(AName: string; AIsInherita'+
|
|
|
+ 'ble: boolean): TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := TPackageVari','ants.Create(TPackageVariant);'#010+
|
|
|
+ ' result.Name:=AName;'#010+
|
|
|
+ ' result.FIsInheritable:=AIsInheritable;'#010+
|
|
|
+ ' FPackageVariants.Add(result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.AnalyzeOptions;'#010+
|
|
|
+ #010+
|
|
|
+ ' Function CheckOption(Index : Integer;const Short,Long : String;',' Ad'+
|
|
|
+ 'dToOptionString: boolean = true): Boolean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' O : String;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' O:=Paramstr(Index);'#010+
|
|
|
' Result:=(O='#039'-'#039'+short) or (O='#039'--'#039'+long) or (copy(O,'+
|
|
|
- '1,Length(Long)+3)=('#039'--'#039'+long+'#039'='#039'));'#013#010+
|
|
|
- ' if AddToOptionString and Result then FFPMakeOptionsString := FFPMa'+
|
|
|
- 'keOpt','ionsString+'#039' '#039'+O;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '1,Length(Long)+3)=('#039'--'#039'+long+'#039'='#039'));'#010+
|
|
|
+ ' if AddToOptionString and Result then FFPMakeOp','tionsString := FFP'+
|
|
|
+ 'MakeOptionsString+'#039' '#039'+O;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' Function CheckBuildOptionSetValue(Index: Integer): boolean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' O : String;'#010+
|
|
|
+ ' BuildModeName: string;'#010+
|
|
|
+ ' P: integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' O:=Paramstr(Index);'#010+
|
|
|
+ ' result := O[1]='#039'+'#039';'#010+
|
|
|
+ ' if',' result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Pos('#039'='#039',Paramstr(Index));'#010+
|
|
|
+ ' If (P=0) then'#010+
|
|
|
+ ' Error(SErrNeedArgument,[Index,O])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' BuildModeName:=copy(o,2,P-2);'#010+
|
|
|
+ ' Delete(O,1,P);'#010+
|
|
|
+ ' FPackageVariantSettings.','Values[BuildModeName] := O;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
' Function CheckCustomOption(Index : Integer; out CustOptName: string)'+
|
|
|
- ': Boolean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' O : String;'#013#010+
|
|
|
- ' i : integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := false;'#013#010+
|
|
|
- ' CustOptName:='#039#039';'#013#010+
|
|
|
- ' O:=Paramstr(Index);'#013#010+
|
|
|
- ' if co','py(O,1,2)<>'#039'--'#039' then'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' i := pos('#039'='#039',O);'#013#010+
|
|
|
- ' if i=0 then'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' O:=copy(O,3,i-3);'#013#010+
|
|
|
- ' CustOptName:=O;'#013#010+
|
|
|
- ' Result:=CustomFpmakeCommandlineOptions.IndexOfName(O)>-1;'#013#010+
|
|
|
- ' if Result then FFPMakeOptionsString := FFP','MakeOptionsString+'#039+
|
|
|
- ' '#039'+Paramstr(Index);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' O : String;'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' CustOptName:='#039#039';'#010+
|
|
|
+ ' O:=Par','amstr(Index);'#010+
|
|
|
+ ' if copy(O,1,2)<>'#039'--'#039' then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' i := pos('#039'='#039',O);'#010+
|
|
|
+ ' if i=0 then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' O:=copy(O,3,i-3);'#010+
|
|
|
+ ' CustOptName:=O;'#010+
|
|
|
+ ' Result:=CustomFpmakeCommandlineOptions.IndexOfName(O)>-1;'#010+
|
|
|
+ ' if Result then FFPMakeOptio','nsString := FFPMakeOptionsString+'#039+
|
|
|
+ ' '#039'+Paramstr(Index);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
' Function CheckCommand(Index : Integer;const Short,Long : String): Bo'+
|
|
|
- 'olean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' O : String;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' O:=Paramstr(Index);'#013#010+
|
|
|
- ' Result:=(O='#039'-'#039'+short) or (O=long);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ','Function OptionArg(Var Index : Integer) : String;'#013#010+
|
|
|
- ' Var'#013#010+
|
|
|
- ' P : Integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'olean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' O : String;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' O:=Paramstr(Index);'#010+
|
|
|
+ ' Result:=(O='#039'-'#039'+short) or (O=long);'#010+
|
|
|
+ ' end;'#010,
|
|
|
+ #010+
|
|
|
+ ' Function OptionArg(Var Index : Integer) : String;'#010+
|
|
|
+ ' Var'#010+
|
|
|
+ ' P : Integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
' if (Length(ParamStr(Index))>1) and (Paramstr(Index)[2]<>'#039'-'#039+
|
|
|
- ') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If Index<ParamCount then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Inc(Index);'#013#010+
|
|
|
- ' ',' Result:=Paramstr(Index);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Error(SErrNeedArgument,[Index,ParamStr(Index)]);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else If length(ParamStr(Index))>2 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Pos('#039'='#039',Paramstr(Index));'#013#010+
|
|
|
- ' If (P=0) then'#013#010+
|
|
|
- ' ',' Error(SErrNeedArgument,[Index,ParamStr(Index)])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=Paramstr(Index);'#013#010+
|
|
|
- ' Delete(Result,1,P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' function SplitSpaces(var SplitString: string) : string;'#013,#010+
|
|
|
- ' var i : integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' i := pos('#039' '#039',SplitString);'#013#010+
|
|
|
- ' if i > 0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := copy(SplitString,1,i-1);'#013#010+
|
|
|
- ' delete(SplitString,1,i);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := SplitString;'#013#010+
|
|
|
- ' ',' SplitString:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' DefaultsFileName : string;'#013#010+
|
|
|
- ' OptString : string;'#013#010+
|
|
|
- ' CustOptName : string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=0;'#013#010+
|
|
|
- ' FListMode:=False;'#013#010+
|
|
|
- ' FLogLevels:=DefaultMessages;'#013#010+
|
|
|
- ' While (I<ParamCount) do'#013,#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Inc(I);'#013#010+
|
|
|
- ' if CheckOption(I,'#039'v'#039','#039'verbose'#039',false) then'#013#010+
|
|
|
- ' FLogLevels:=AllMessages'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'd'#039','#039'debug'#039',false) then'#013#010+
|
|
|
- ' FLogLevels:=AllMessages+[vlDebug]'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'm'#039','#039'compile'#039') th','en'#013#010+
|
|
|
- ' FRunMode:=rmCompile'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'b'#039','#039'build'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmBuild'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'i'#039','#039'install'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmInstall'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'c'#039','#039'clean'#039') then'#013#010+
|
|
|
- ' FRunMode:=r','mClean'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'dc'#039','#039'distclean'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmDistClean'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'a'#039','#039'archive'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmarchive'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'M'#039','#039'manifest'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmManifest'#013#010,
|
|
|
- ' else if CheckOption(I,'#039'h'#039','#039'help'#039') then'#013#010+
|
|
|
- ' Usage('#039#039',[])'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'C'#039','#039'cpu'#039') then'#013#010+
|
|
|
- ' Defaults.CPU:=StringToCPU(OptionArg(I))'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'O'#039','#039'os'#039') then'#013#010+
|
|
|
- ' Defaults.OS:=StringToOS(OptionArg(I))'#013,#010+
|
|
|
- ' else if Checkoption(I,'#039't'#039','#039'target'#039') then'#013#010+
|
|
|
- ' Defaults.Target:=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'l'#039','#039'list-commands'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' FListMode:=True'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'P'#039','#039'prefix'#039') then'#013#010+
|
|
|
- ' Defaults.Prefix:=OptionArg(I',')'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'n'#039','#039'nofpccfg'#039') then'#013#010+
|
|
|
- ' Defaults.NoFPCCfg:=true'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'e'#039','#039'useenv'#039') then'#013#010+
|
|
|
- ' Defaults.UseEnvironment:=true'#013#010+
|
|
|
- '{$endif}'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'B'#039','#039'baseins','talldir'#039') then'+
|
|
|
- #013#010+
|
|
|
- ' Defaults.BaseInstallDir:=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'U'#039','#039'unitinstalldir'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' Defaults.UnitInstallDir:=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'UL'#039','#039'localunitdir'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' Defaults.LocalUnitDir',':=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'UG'#039','#039'globalunitdir'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' Defaults.GlobalUnitDir:=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'o'#039','#039'options'#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' OptString := OptionArg(I);'#013#010+
|
|
|
- ' while OptString <> '#039#039' ','do'#013#010+
|
|
|
- ' Defaults.Options.Add(SplitSpaces(OptString));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'r'#039','#039'compiler'#039') then'#013#010+
|
|
|
- ' Defaults.Compiler:=OptionArg(I)'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'f'#039','#039'config'#039') then'#013#010+
|
|
|
- ' DefaultsFileName:=OptionArg(I',')'#013#010+
|
|
|
+ ') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If Index<ParamCount then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Inc(Index);'#010+
|
|
|
+ ' R','esult:=Paramstr(Index);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Error(SErrNeedArgument,[Index,ParamStr(Index)]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else If length(ParamStr(Index))>2 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Pos('#039'='#039',Paramstr(Index));'#010+
|
|
|
+ ' If (P=0) then'#010+
|
|
|
+ ' Error(SE','rrNeedArgument,[Index,ParamStr(Index)])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Paramstr(Index);'#010+
|
|
|
+ ' Delete(Result,1,P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' function SplitSpaces(var SplitString: string) : string;'#010+
|
|
|
+ ' var i : integer;'#010+
|
|
|
+ ' beg','in'#010+
|
|
|
+ ' i := pos('#039' '#039',SplitString);'#010+
|
|
|
+ ' if i > 0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := copy(SplitString,1,i-1);'#010+
|
|
|
+ ' delete(SplitString,1,i);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := SplitString;'#010+
|
|
|
+ ' SplitString:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ','end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' DefaultsFileName : string;'#010+
|
|
|
+ ' OptString : string;'#010+
|
|
|
+ ' CustOptName : string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=0;'#010+
|
|
|
+ ' FListMode:=False;'#010+
|
|
|
+ ' FLogLevels:=DefaultMessages;'#010+
|
|
|
+ ' While (I<ParamCount) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Inc(I);'#010+
|
|
|
+ ' if CheckOption(I,'#039'v'#039','#039'v','erbose'#039',false) then'#010+
|
|
|
+ ' FLogLevels:=AllMessages'#010+
|
|
|
+ ' else if CheckOption(I,'#039'd'#039','#039'debug'#039',false) then'#010+
|
|
|
+ ' FLogLevels:=AllMessages+[vlDebug]'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'm'#039','#039'compile'#039') then'#010+
|
|
|
+ ' FRunMode:=rmCompile'#010+
|
|
|
+ ' else if CheckCommand(I,',#039'b'#039','#039'build'#039') then'#010+
|
|
|
+ ' FRunMode:=rmBuild'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'i'#039','#039'install'#039') then'#010+
|
|
|
+ ' FRunMode:=rmInstall'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'zi'#039','#039'zipinstall'#039') then'#010+
|
|
|
+ ' FRunMode:=rmZipInstall'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'c'#039','#039'clean'#039') then'#010,
|
|
|
+ ' FRunMode:=rmClean'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'dc'#039','#039'distclean'#039') then'#010+
|
|
|
+ ' FRunMode:=rmDistClean'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'a'#039','#039'archive'#039') then'#010+
|
|
|
+ ' FRunMode:=rmarchive'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'M'#039','#039'manifest'#039') then'#010+
|
|
|
+ ' FRunMode:=r','mManifest'#010+
|
|
|
+ ' else if CheckOption(I,'#039'h'#039','#039'help'#039') then'#010+
|
|
|
+ ' Usage('#039#039',[])'#010+
|
|
|
+ ' else if Checkoption(I,'#039'C'#039','#039'cpu'#039') then'#010+
|
|
|
+ ' Defaults.CPU:=StringToCPU(OptionArg(I))'#010+
|
|
|
+ ' else if Checkoption(I,'#039'O'#039','#039'os'#039') then'#010+
|
|
|
+ ' Defaults.OS:=StringToOS(OptionArg','(I))'#010+
|
|
|
+ ' else if Checkoption(I,'#039't'#039','#039'target'#039') then'#010+
|
|
|
+ ' Defaults.Target:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'l'#039','#039'list-commands'#039') then'#010+
|
|
|
+ ' FListMode:=True'#010+
|
|
|
+ ' else if Checkoption(I,'#039'P'#039','#039'prefix'#039') then'#010+
|
|
|
+ ' Defaults.Prefix:=OptionArg(I)',#010+
|
|
|
+ ' else if Checkoption(I,'#039'n'#039','#039'nofpccfg'#039') then'#010+
|
|
|
+ ' Defaults.NoFPCCfg:=true'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' else if Checkoption(I,'#039'e'#039','#039'useenv'#039') then'#010+
|
|
|
+ ' Defaults.UseEnvironment:=true'#010+
|
|
|
+ '{$endif}'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' else if CheckOption','(I,'#039'T'#039','#039'threads'#039') then'#010+
|
|
|
+ ' Defaults.ThreadsAmount:=StrToIntDef(OptionArg(I),-1)'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' else if CheckOption(I,'#039'B'#039','#039'baseinstalldir'#039') then'#010+
|
|
|
+ ' Defaults.BaseInstallDir:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'U'#039','#039'unitinst','alldir'#039') then'+
|
|
|
+ #010+
|
|
|
+ ' Defaults.UnitInstallDir:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'UL'#039','#039'localunitdir'#039') then'#010+
|
|
|
+ ' Defaults.LocalUnitDir:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'UG'#039','#039'globalunitdir'#039') then'#010+
|
|
|
+ ' Defaults.GlobalUnitDir:=Optio','nArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'o'#039','#039'options'#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' OptString := OptionArg(I);'#010+
|
|
|
+ ' while OptString <> '#039#039' do'#010+
|
|
|
+ ' Defaults.Options.Add(SplitSpaces(OptString));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else if CheckOption(I,'#039'r'#039','#039'compiler'#039,') then'#010+
|
|
|
+ ' Defaults.Compiler:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'f'#039','#039'config'#039') then'#010+
|
|
|
+ ' DefaultsFileName:=OptionArg(I)'#010+
|
|
|
' else if CheckOption(I,'#039'ie'#039','#039'installexamples'#039') then'+
|
|
|
- #013#010+
|
|
|
- ' Defaults.InstallExamples:=true'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'bu'#039','#039'buildunit'#039') then'#013#010+
|
|
|
- ' Defaults.BuildMode:=bmBuildUnit'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'io'#039','#039'ignoreinvalidoption'#039') ',
|
|
|
- 'then'#013#010+
|
|
|
- ' Defaults.IgnoreInvalidOptions:=true'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'd'#039','#039'doc-folder'#039') then'#013#010+
|
|
|
- ' Defaults.FPDocOutputDir:=OptionArg(I)'#013#010+
|
|
|
+ #010+
|
|
|
+ ' Defaults.InstallExamples:=true'#010+
|
|
|
+ ' else if CheckOpti','on(I,'#039'sp'#039','#039'skipcrossprograms'#039') '+
|
|
|
+ 'then'#010+
|
|
|
+ ' Defaults.SkipCrossPrograms:=true'#010+
|
|
|
+ ' else if CheckOption(I,'#039'bu'#039','#039'buildunit'#039') then'#010+
|
|
|
+ ' Defaults.BuildMode:=bmBuildUnit'#010+
|
|
|
+ ' else if CheckOption(I,'#039'io'#039','#039'ignoreinvalidoption'#039') '+
|
|
|
+ 'then'#010+
|
|
|
+ ' Defaults.Igno','reInvalidOptions:=true'#010+
|
|
|
+ ' else if CheckOption(I,'#039'd'#039','#039'doc-folder'#039') then'#010+
|
|
|
+ ' Defaults.FPDocOutputDir:=OptionArg(I)'#010+
|
|
|
' else if assigned(CustomFpmakeCommandlineOptions) and CheckCustomOp'+
|
|
|
- 'tion(I,CustOptName) then'#013#010,
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not assigned(CustomFpMakeCommandlineValues) then'#013#010+
|
|
|
- ' CustomFpMakeCommandlineValues := TStringList.Create;'#013#010+
|
|
|
- ' CustomFpMakeCommandlineValues.Values[CustOptName]:=OptionArg(I)'#013+
|
|
|
- #010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else if not Defaults','.IgnoreInvalidOptions then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Usage(SErrInValidArgument,[I,ParamStr(I)]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If DefaultsFileName<>'#039#039' then'#013#010+
|
|
|
- ' Defaults.LocalInit(DefaultsFileName);'#013#010+
|
|
|
- ' Defaults.CompilerDefaults;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure T','CustomInstaller.Usage(const FMT: String; Args: array of c'+
|
|
|
- 'onst);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure LogCmd(const LC,Msg : String);'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlInfo,Format('#039' %-12s %s'#039',[LC,MSG]));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure LogOption(const C,LC,Msg : String);'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' L','og(vlInfo,Format('#039' -%s --%-16s %s'#039',[C,LC,MSG]));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure LogArgOption(const C,LC,Msg : String);'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlInfo,Format('#039' -%s --%-20s %s'#039',[C,LC+'#039'='#039'+SVal'+
|
|
|
- 'ue,MSG]));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Force the U','sage to be displayed'#013#010+
|
|
|
- ' Include(FLogLevels,vlInfo);'#013#010+
|
|
|
- ' If (FMT<>'#039#039') then'#013#010+
|
|
|
- ' Log(vlInfo,Format(Fmt,Args));'#013#010+
|
|
|
- ' Log(vlInfo,Format(SHelpUsage,[Paramstr(0)]));'#013#010+
|
|
|
- ' Log(vlInfo,SHelpCommand);'#013#010+
|
|
|
- ' LogCmd('#039'compile'#039',SHelpCompile);'#013#010+
|
|
|
- ' LogCmd('#039'build'#039',S','HelpBuild);'#013#010+
|
|
|
- ' LogCmd('#039'install'#039',SHelpInstall);'#013#010+
|
|
|
- ' LogCmd('#039'clean'#039',SHelpClean);'#013#010+
|
|
|
- ' LogCmd('#039'archive'#039',SHelpArchive);'#013#010+
|
|
|
- ' LogCmd('#039'manifest'#039',SHelpManifest);'#013#010+
|
|
|
- ' Log(vlInfo,SHelpCmdOptions);'#013#010+
|
|
|
- ' LogOption('#039'h'#039','#039'help'#039',SHelpHelp);'#013#010+
|
|
|
- ' LogOption('#039'l'#039','#039'list','-commands'#039',SHelpList);'#013#010+
|
|
|
- ' LogOption('#039'n'#039','#039'nofpccfg'#039',SHelpNoFPCCfg);'#013#010+
|
|
|
- ' LogOption('#039'v'#039','#039'verbose'#039',SHelpVerbose);'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' LogOption('#039'e'#039', '#039'useenv'#039', sHelpUseEnvironment);'#013#010+
|
|
|
- '{$endif}'#013#010+
|
|
|
- ' LogOption('#039'ie'#039','#039'installexamples'#039',SHelpIns','tExamples'+
|
|
|
- ');'#013#010+
|
|
|
- ' LogOption('#039'bu'#039','#039'buildunit'#039',SHelpUseBuildUnit);'#013#010+
|
|
|
- ' LogArgOption('#039'C'#039','#039'cpu'#039',SHelpCPU);'#013#010+
|
|
|
- ' LogArgOption('#039'O'#039','#039'os'#039',SHelpOS);'#013#010+
|
|
|
- ' LogArgOption('#039't'#039','#039'target'#039',SHelpTarget);'#013#010+
|
|
|
- ' LogArgOption('#039'P'#039','#039'prefix'#039',SHelpPrefix);'#013#010+
|
|
|
- ' LogArgOption('#039'B'#039',',#039'baseinstalldir'#039',SHelpBaseInstalldi'+
|
|
|
- 'r);'#013#010+
|
|
|
+ 'tion(I,CustOptName) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not assi','gned(CustomFpMakeCommandlineValues) then'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues := TStringList.Create;'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues.Values[CustOptName]:=OptionArg(I)'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else if (not CheckBuildOptionSetValue(I)) and (not Def','aults.Igno'+
|
|
|
+ 'reInvalidOptions) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Usage(SErrInValidArgument,[I,ParamStr(I)]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If DefaultsFileName<>'#039#039' then'#010+
|
|
|
+ ' Defaults.LocalInit(DefaultsFileName);'#010+
|
|
|
+ ' Defaults.CompilerDefaults;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCusto','mInstaller.Usage(const FMT: String; Args: array of c'+
|
|
|
+ 'onst);'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure LogCmd(const LC,Msg : String);'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,Format('#039' %-12s %s'#039',[LC,MSG]));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure LogOption(const C,LC,Msg : String);'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,Form','at('#039' -%s --%-16s %s'#039',[C,LC,MSG]));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure LogArgOption(const C,LC,Msg : String);'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if trim(c)='#039#039' then'#010+
|
|
|
+ ' Log(vlInfo,Format('#039' --%-20s %s'#039',[LC+'#039'='#039'+SValu'+
|
|
|
+ 'e,MSG]))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlInfo,Format('#039' -%s --%-20s %s'#039',[','C,LC+'#039'='#039'+'+
|
|
|
+ 'SValue,MSG]));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Force the Usage to be displayed'#010+
|
|
|
+ ' Include(FLogLevels,vlInfo);'#010+
|
|
|
+ ' If (FMT<>'#039#039') then'#010+
|
|
|
+ ' Log(vlInfo,Format(Fmt,Args));'#010+
|
|
|
+ ' Log(vlInfo,Format(SHelpUsage,[Paramstr(0)]));'#010+
|
|
|
+ ' Log(vlInfo,SH','elpCommand);'#010+
|
|
|
+ ' LogCmd('#039'compile'#039',SHelpCompile);'#010+
|
|
|
+ ' LogCmd('#039'build'#039',SHelpBuild);'#010+
|
|
|
+ ' LogCmd('#039'install'#039',SHelpInstall);'#010+
|
|
|
+ ' LogCmd('#039'clean'#039',SHelpClean);'#010+
|
|
|
+ ' LogCmd('#039'archive'#039',SHelpArchive);'#010+
|
|
|
+ ' LogCmd('#039'manifest'#039',SHelpManifest);'#010+
|
|
|
+ ' Log(vlInfo,SHelpCmdOptions)',';'#010+
|
|
|
+ ' LogOption('#039'h'#039','#039'help'#039',SHelpHelp);'#010+
|
|
|
+ ' LogOption('#039'l'#039','#039'list-commands'#039',SHelpList);'#010+
|
|
|
+ ' LogOption('#039'n'#039','#039'nofpccfg'#039',SHelpNoFPCCfg);'#010+
|
|
|
+ ' LogOption('#039'v'#039','#039'verbose'#039',SHelpVerbose);'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' LogOption('#039'e'#039', '#039'useenv'#039', sHelpUseEnvironment);'#010,
|
|
|
+ '{$endif}'#010+
|
|
|
+ ' LogOption('#039'ie'#039','#039'installexamples'#039',SHelpInstExamples);'+
|
|
|
+ #010+
|
|
|
+ ' LogOption('#039'bu'#039','#039'buildunit'#039',SHelpUseBuildUnit);'#010+
|
|
|
+ ' LogOption('#039'sp'#039','#039'skipcrossprograms'#039',SHelpSkipCrossPro'+
|
|
|
+ 'gs);'#010+
|
|
|
+ ' LogArgOption('#039'C'#039','#039'cpu'#039',SHelpCPU);'#010+
|
|
|
+ ' LogArgOption('#039'O'#039','#039'os'#039',SHelpOS)',';'#010+
|
|
|
+ ' LogArgOption('#039't'#039','#039'target'#039',SHelpTarget);'#010+
|
|
|
+ ' LogArgOption('#039'P'#039','#039'prefix'#039',SHelpPrefix);'#010+
|
|
|
+ ' LogArgOption('#039'B'#039','#039'baseinstalldir'#039',SHelpBaseInstalldi'+
|
|
|
+ 'r);'#010+
|
|
|
' LogArgOption('#039'UL'#039','#039'localunitdir'#039',SHelpLocalUnitdir);'+
|
|
|
- #013#010+
|
|
|
- ' LogArgOption('#039'UG'#039','#039'globalunitdir'#039',SHelpGlobalUnitdir'+
|
|
|
- ');'#013#010+
|
|
|
+ #010+
|
|
|
+ ' LogArgOption('#039'UG'#039','#039'globalunitdir'#039',SHelp','GlobalUnitd'+
|
|
|
+ 'ir);'#010+
|
|
|
' LogArgOption('#039'U'#039','#039'unitinstalldir'#039',SHelpUnitInstallDi'+
|
|
|
- 'r);'#013#010+
|
|
|
- ' LogArgOption('#039'r'#039','#039'compile','r'#039',SHelpCompiler);'#013#010+
|
|
|
- ' LogArgOption('#039'f'#039','#039'config'#039',SHelpConfig);'#013#010+
|
|
|
- ' LogArgOption('#039'o'#039','#039'options'#039',SHelpOptions);'#013#010+
|
|
|
- ' LogArgOption('#039'io'#039','#039'ignoreinvalidoption'#039',SHelpIgnoreI'+
|
|
|
- 'nvOpt);'#013#010+
|
|
|
+ 'r);'#010+
|
|
|
+ ' LogArgOption('#039'r'#039','#039'compiler'#039',SHelpCompiler);'#010+
|
|
|
+ ' LogArgOption('#039'f'#039','#039'config'#039',SHelpConfig);'#010+
|
|
|
+ ' LogArgOption('#039'o'#039','#039'options'#039',SHelpOptions);'#010+
|
|
|
+ ' LogArgOption('#039'io'#039','#039'ignoreinvalid','option'#039',SHelpIgnor'+
|
|
|
+ 'eInvOpt);'#010+
|
|
|
' LogArgOption('#039'd'#039', '#039'doc-folder'#039', sHelpFpdocOutputDir)'+
|
|
|
- ';'#013#010+
|
|
|
- ' if assigne','d(CustomFpmakeCommandlineOptions) then for i := 0 to Cu'+
|
|
|
- 'stomFpmakeCommandlineOptions.Count-1 do'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' LogArgOption('#039'T'#039', '#039'threads'#039', sHelpThreads);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' if assigned(CustomFpmakeCommandlineOptions) then for i := 0 to',' Cu'+
|
|
|
+ 'stomFpmakeCommandlineOptions.Count-1 do'#010+
|
|
|
' LogArgOption('#039' '#039',CustomFpmakeCommandlineOptions.Names[i],C'+
|
|
|
- 'ustomFpmakeCommandlineOptions.ValueFromIndex[i]);'#013#010+
|
|
|
- ' Log(vlInfo,'#039#039');'#013#010+
|
|
|
- ' If (FMT<>',#039#039') then'#013#010+
|
|
|
- ' halt(1)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' halt(0);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Compile(Force: Boolean);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FBuildEngine.ForceCompile:=Force;'#013#010+
|
|
|
- ' FBuildEngine.Compile(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Clean(AllTargets',': boolean);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' BuildEngine.Clean(Packages, AllTargets);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Install;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' BuildEngine.Install(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Archive;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Force generation of manifest.','xml, this is required for the repo'+
|
|
|
- 'sitory'#013#010+
|
|
|
- ' BuildEngine.Manifest(Packages);'#013#010+
|
|
|
- ' BuildEngine.Archive(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Manifest;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' BuildEngine.Manifest(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.Ch','eckPackages;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Packages.Count=0) then'#013#010+
|
|
|
- ' Error(SErrNoPackagesDefined);'#013#010+
|
|
|
- ' // Check for other obvious errors ?'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TCustomInstaller.Run : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=True;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' CheckPackages;'#013#010+
|
|
|
- ' CreateBu','ildEngine;'#013#010+
|
|
|
- ' Case RunMode of'#013#010+
|
|
|
- ' rmCompile : Compile(False);'#013#010+
|
|
|
- ' rmBuild : Compile(True);'#013#010+
|
|
|
- ' rmInstall : Install;'#013#010+
|
|
|
- ' rmArchive : Archive;'#013#010+
|
|
|
- ' rmClean : Clean(False);'#013#010+
|
|
|
- ' rmDistClean: Clean(True);'#013#010+
|
|
|
- ' rmManifes','t : Manifest;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' except'#013#010+
|
|
|
- ' On E : Exception do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlError,SErrInstaller);'#013#010+
|
|
|
- ' Log(vlError,E.Message);'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Force returning an exitcode to the shell'#013#010+
|
|
|
- ' if not Res','ult then'#013#010+
|
|
|
- ' ExitCode:=1;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'ustomFpmakeCommandlineOptions.ValueFromIndex[i]);'#010+
|
|
|
+ ' Log(vlInfo,'#039#039');'#010+
|
|
|
+ ' If (FMT<>'#039#039') then'#010+
|
|
|
+ ' halt(1)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' halt(0);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedur','e TCustomInstaller.Compile(Force: Boolean);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FBuildEngine.ForceCompile:=Force;'#010+
|
|
|
+ ' FBuildEngine.Compile(Packages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Clean(AllTargets: boolean);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BuildEngine.Clean(Packages, AllTargets);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'pr','ocedure TCustomInstaller.Install;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BuildEngine.Install(Packages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.ZipInstall;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BuildEngine.ZipInstall(Packages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Archive;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Force generation of manife','st.xml, this is required for the repo'+
|
|
|
+ 'sitory'#010+
|
|
|
+ ' BuildEngine.Manifest(Packages);'#010+
|
|
|
+ ' BuildEngine.Archive(Packages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Manifest;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BuildEngine.Manifest(Packages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.CheckPackag','es;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Packages.Count=0) then'#010+
|
|
|
+ ' Error(SErrNoPackagesDefined);'#010+
|
|
|
+ ' // Check for other obvious errors ?'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TCustomInstaller.Run : Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' CheckPackages;'#010+
|
|
|
+ ' CreateBuildEngine;'#010+
|
|
|
+ ' Case Ru','nMode of'#010+
|
|
|
+ ' rmCompile : Compile(False);'#010+
|
|
|
+ ' rmBuild : Compile(True);'#010+
|
|
|
+ ' rmInstall : Install;'#010+
|
|
|
+ ' rmZipInstall : ZipInstall;'#010+
|
|
|
+ ' rmArchive : Archive;'#010+
|
|
|
+ ' rmClean : Clean(False);'#010+
|
|
|
+ ' rmDistClean: Clean(True);'#010+
|
|
|
+ ' rmMani','fest : Manifest;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' except'#010+
|
|
|
+ ' On E : Exception do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlError,SErrInstaller);'#010+
|
|
|
+ ' Log(vlError,E.Message);'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Force returning an exitcode to the shell'#010+
|
|
|
+ ' if not Result then',#010+
|
|
|
+ ' ExitCode:=1;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TFPCInstaller'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TFPCInstaller'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******','}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TFPCInstaller.Create(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if assigned(Defaults) then'#013#010+
|
|
|
- ' Error(SErrAlreadyInitialized);'#013#010+
|
|
|
- ' Defaults:=TFPCDefaults.Create;'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************','**********************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TBasicInstaller'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor ','TFPCInstaller.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if assigned(Defaults) then'#010+
|
|
|
+ ' Error(SErrAlreadyInitialized);'#010+
|
|
|
+ ' Defaults:=TFPCDefaults.Create;'#010+
|
|
|
+ ' inherited Create(AOwner);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{***********************************************************','********'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TBasicInstaller'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TBasicInstaller.Create(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010,
|
|
|
- ' if assigned(Defaults) then'#013#010+
|
|
|
- ' Error(SErrAlreadyInitialized);'#013#010+
|
|
|
- ' Defaults:=TBasicDefaults.Create;'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TBasicInstaller.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if assigned(Defaults) then'#010+
|
|
|
+ ' ',' Error(SErrAlreadyInitialized);'#010+
|
|
|
+ ' Defaults:=TBasicDefaults.Create;'#010+
|
|
|
+ ' inherited Create(AOwner);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TBuildEngine'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TBuildEngine.Create(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- ' // Maybe this should be the current dire','ctory ?'#013#010+
|
|
|
- ' // Or have it as a command-line option.'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TBuildEngine'#010+
|
|
|
+ '**************','******************************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TBuildEngine.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AOwner);'#010+
|
|
|
+ ' // Maybe this should be the current directory ?'#010+
|
|
|
+ ' // Or have it as a command-line opti','on.'#010+
|
|
|
' // Would allow to put all '#039'installers'#039' in one dir and call t'+
|
|
|
- 'hem'#013#010+
|
|
|
- ' // With --start-dir=/path/to/sources.'#013#010+
|
|
|
- ' FStartDir:=includeTrailingPathDelimiter(GetCurrentDir);'#013#010+
|
|
|
- ' FExternalPackages:=','TPackages.Create(TPackage);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TBuildEngine.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FExternalPackages);'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Error(const Msg: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.Create(Msg);'#013,#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Error(const Fmt: String; const Args: array of c'+
|
|
|
- 'onst);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.CreateFmt(Fmt,Args);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'hem'#010+
|
|
|
+ ' // With --start-dir=/path/to/sources.'#010+
|
|
|
+ ' FStartDir:=includeTrailingPathDelimiter(GetCurrentDir);'#010+
|
|
|
+ ' FExternalPackages:=TPackages.Create(TPackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TBuil','dEngine.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FExternalPackages);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Error(const Msg: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.Create(Msg);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Error(const Fmt: String; const Arg','s: array of'+
|
|
|
+ ' const);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(Fmt,Args);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.ExecuteCommand(const Cmd,Args : String; const E'+
|
|
|
- 'nv: TStrings = nil','; IgnoreError : Boolean = False);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' E : Integer;'#013#010+
|
|
|
- ' cmdLine: string;'#013#010+
|
|
|
- ' ConsoleOutput: TMemoryStream;'#013#010+
|
|
|
- ' s: string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(vlInfo,SInfoExecutingCommand,[Cmd,Args]);'#013#010+
|
|
|
- ' if ListMode then'#013#010+
|
|
|
- ' Log(vlCommand,'#039'%s %s'#039',[Cmd,Args])'#013#010+
|
|
|
- ' ','else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // We should check cmd for spaces, and move all after first spac'+
|
|
|
- 'e to args.'#013#010+
|
|
|
- ' ConsoleOutput := TMemoryStream.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' {$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' E:=ExecuteFPC(Verbose, cmd, args, env, Co','nsoleOutput);'#013#010+
|
|
|
- ' {$else}'#013#010+
|
|
|
- ' E:=ExecuteProcess(cmd,args);'#013#010+
|
|
|
- ' {$endif}'#013#010+
|
|
|
- ' If (E<>0) and (not IgnoreError) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if trim(Args)<>'#039#039' then'#013#010+
|
|
|
- ' cmdLine := cmd + '#039' '#039' + trim(args)'#013#010+
|
|
|
- ' ',' else'#013#010+
|
|
|
- ' cmdline := cmd;'#013#010+
|
|
|
- ' s := ParsecompilerOutput(ConsoleOutput,Verbose);'#013#010+
|
|
|
- ' Error(SErrExternalCommandFailed,[cmdLine,E,s]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' ConsoleOutput.Free;'#013#010+
|
|
|
- ' end;'#013#010,
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.SysDirectoryExists(const ADir:string):Boolean;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=SysUtils.DirectoryExists(ADir);'#013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgFound])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlDebug,SDb','gDirectoryExists,[ADir,SDbgNotFound]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.SysFileExists(const AFileName:string):Boolean;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=SysUtils.FileExists(AFileName);'#013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgFileExists,[AFileName,SDbgFound]',')'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlDebug,SDbgFileExists,[AFileName,SDbgNotFound]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysCopyFile(Const Src,Dest : String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' D,S : String;'#013#010+
|
|
|
- ' Fin,FOut : TFileStream;'#013#010+
|
|
|
- ' Count : Int64;'#013#010+
|
|
|
- ' A : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(vl','Info,SInfoCopyingFile,[Src,Dest]);'#013#010+
|
|
|
- ' FIn:=TFileStream.Create(Src,fmopenRead);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Dest);'#013#010+
|
|
|
- ' If DirectoryExists(D) then'#013#010+
|
|
|
- ' S:=D+ExtractFileName(Src)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' S:=Dest;'#013#010+
|
|
|
- ' FOut:=TFileStr','eam.Create(S,fmCreate);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' Count:=Fout.CopyFrom(FIn,0);'#013#010+
|
|
|
- ' If (Count<>Fin.Size) then'#013#010+
|
|
|
- ' Error(SErrCopyingFile,[Src,S]);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' FreeAndNil(Fout);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' A:=FileGetDate(FIn.Handle);'#013#010+
|
|
|
- ' If (A=-1) t','hen'#013#010+
|
|
|
- ' log(vlWarning,SWarnFailedToGetTime,[Src])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' if FileSetDate(S,A)<>0 then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnFailedToSetTime,[S]);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' FreeAndNil(Fin);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysMoveFile(Const',' Src,Dest : String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If DirectoryExists(IncludeTrailingPathDelimiter(Dest)) then'#013#010+
|
|
|
- ' S:=IncludeTrailingPathDelimiter(Dest)+ExtractFileName(Src)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' S:=Dest;'#013#010+
|
|
|
- ' If Not RenameFile(Src,S) then'#013#010+
|
|
|
- ' begin',#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' SysCopyFile(Src,S);'#013#010+
|
|
|
- ' SysDeleteFile(Src);'#013#010+
|
|
|
- ' Except'#013#010+
|
|
|
- ' On E : Exception Do'#013#010+
|
|
|
- ' Error(SErrMovingFile,[Src,S]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysDeleteFile(Const AFileName',' : String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not FileExists(AFileName) then'#013#010+
|
|
|
- ' Log(vldebug,SDbgFileDoesNotExist,[AFileName])'#013#010+
|
|
|
- ' else If Not DeleteFile(AFileName) then'#013#010+
|
|
|
- ' Error(SErrDeletingFile,[AFileName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysDeleteDirector','y(const ADirectoryName: Stri'+
|
|
|
- 'ng);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not DirectoryExists(ADirectoryName) then'#013#010+
|
|
|
- ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#013#010+
|
|
|
- ' else if not IsDirectoryEmpty(ADirectoryName) then'#013#010+
|
|
|
- ' Log(vldebug,SDbgDirectoryNotEmpty,','[ADirectoryName])'#013#010+
|
|
|
- ' else If Not RemoveDir(ADirectoryName) then'#013#010+
|
|
|
- ' Error(SErrRemovingDirectory,[ADirectoryName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysDeleteTree(const ADirectoryName: String);'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- ' function IntRemoveTree(const ADirectoryN','ame: String) : boolean;'#013+
|
|
|
- #010+
|
|
|
- ' var'#013#010+
|
|
|
- ' searchRec: TSearchRec;'#013#010+
|
|
|
- ' SearchResult: longint;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := true;'#013#010+
|
|
|
+ 'nv: TStrings = nil; IgnoreError : Boolean = False);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' E : Integer;'#010+
|
|
|
+ ' cmdLine: string;'#010+
|
|
|
+ ' ','ConsoleOutput: TMemoryStream;'#010+
|
|
|
+ ' s: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoExecutingCommand,[Cmd,Args]);'#010+
|
|
|
+ ' if ListMode then'#010+
|
|
|
+ ' Log(vlCommand,'#039'%s %s'#039',[Cmd,Args])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // We should check cmd for spaces, and move all after first spa',
|
|
|
+ 'ce to args.'#010+
|
|
|
+ ' ConsoleOutput := TMemoryStream.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' {$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' E:=ExecuteFPC(Verbose, cmd, args, env, ConsoleOutput);'#010+
|
|
|
+ ' {$else}'#010+
|
|
|
+ ' E:=ExecuteProcess(cmd,args);'#010+
|
|
|
+ ' {$endif}'#010+
|
|
|
+ ' ',' If (E<>0) and (not IgnoreError) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if trim(Args)<>'#039#039' then'#010+
|
|
|
+ ' cmdLine := cmd + '#039' '#039' + trim(args)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' cmdline := cmd;'#010+
|
|
|
+ ' s := ParsecompilerOutput(ConsoleOutput,Verb','ose);'#010+
|
|
|
+ ' Error(SErrExternalCommandFailed,[cmdLine,E,s]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' ConsoleOutput.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.SysDirectoryExists(const ADir:string):Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=SysUt','ils.DirectoryExists(ADir);'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgFound])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgNotFound]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.SysFileExists(const AFileName:string):Boolean;'#010+
|
|
|
+ 'b','egin'#010+
|
|
|
+ ' result:=SysUtils.FileExists(AFileName);'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgFileExists,[AFileName,SDbgFound])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlDebug,SDbgFileExists,[AFileName,SDbgNotFound]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysCopyFile(Const Src,Dest ',': String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' D,S : String;'#010+
|
|
|
+ ' Fin,FOut : TFileStream;'#010+
|
|
|
+ ' Count : Int64;'#010+
|
|
|
+ ' A : Integer;'#010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ ' FileStat: stat;'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCopyingFile,[Src,Dest]);'#010+
|
|
|
+ ' FIn:=TFileStream.Create(Src,fmopenRead);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' D:=','IncludeTrailingPathDelimiter(Dest);'#010+
|
|
|
+ ' If DirectoryExists(D) then'#010+
|
|
|
+ ' S:=D+ExtractFileName(Src)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' S:=Dest;'#010+
|
|
|
+ ' FOut:=TFileStream.Create(S,fmCreate);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Count:=Fout.CopyFrom(FIn,0);'#010+
|
|
|
+ ' If (Count<>Fin.Size) then'#010,
|
|
|
+ ' Error(SErrCopyingFile,[Src,S]);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' FreeAndNil(Fout);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' A:=FileGetDate(FIn.Handle);'#010+
|
|
|
+ ' If (A=-1) then'#010+
|
|
|
+ ' log(vlWarning,SWarnFailedToGetTime,[Src])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' if FileSetDate(S,A)<>0 then'#010+
|
|
|
+ ' Log(v','lWarning,SWarnFailedToSetTime,[S]);'#010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ ' // Copy the file-access rights on Unix, especially the executable-'+
|
|
|
+ 'bit'#010+
|
|
|
+ ' if FpStat(Src,FileStat) <> 0 then'#010+
|
|
|
+ ' Log(vlWarning,SWarnCanNotGetAccessRights,[Src])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' if FpChmo','d(s,FileStat.st_mode) <> 0 then'#010+
|
|
|
+ ' Log(vlWarning,SWarnCanNotSetAccessRights,[S]);'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FreeAndNil(Fin);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysMoveFile(Const Src,Dest : String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Dire','ctoryExists(IncludeTrailingPathDelimiter(Dest)) then'#010+
|
|
|
+ ' S:=IncludeTrailingPathDelimiter(Dest)+ExtractFileName(Src)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' S:=Dest;'#010+
|
|
|
+ ' If Not RenameFile(Src,S) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' SysCopyFile(Src,S);'#010+
|
|
|
+ ' SysDeleteFile(Sr','c);'#010+
|
|
|
+ ' Except'#010+
|
|
|
+ ' On E : Exception Do'#010+
|
|
|
+ ' Error(SErrMovingFile,[Src,S]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysDeleteFile(Const AFileName : String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoDeletingFile,[AFileName]);'#010+
|
|
|
+ ' if not Fil','eExists(AFileName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgFileDoesNotExist,[AFileName])'#010+
|
|
|
+ ' else If Not DeleteFile(AFileName) then'#010+
|
|
|
+ ' Error(SErrDeletingFile,[AFileName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysDeleteDirectory(Const ADirectoryName: String'+
|
|
|
+ ');'#010+
|
|
|
+ 'begin',#010+
|
|
|
+ ' if not DirectoryExists(ADirectoryName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
|
|
|
+ ' else if not IsDirectoryEmpty(ADirectoryName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryNotEmpty,[ADirectoryName])'#010+
|
|
|
+ ' else If Not RemoveDir(A','DirectoryName) then'#010+
|
|
|
+ ' Error(SErrRemovingDirectory,[ADirectoryName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);'#010+
|
|
|
+ #010+
|
|
|
+ ' function IntRemoveTree(const ADirectoryName: String) : boolean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' searchRec: TSearc','hRec;'#010+
|
|
|
+ ' SearchResult: longint;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := true;'#010+
|
|
|
' SearchResult := FindFirst(IncludeTrailingPathDelimiter(ADirectoryN'+
|
|
|
- 'ame)+AllFilesMask, faAnyFile+faSymLink, searchRec);'#013,#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' while SearchResult=0 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if (searchRec.Name<>'#039'.'#039') and (searchRec.Name<>'#039'.'+
|
|
|
- '.'#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if (searchRec.Attr and faDirectory)=faDirectory then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' if not IntRemoveTree(IncludeTrailingPathDelimiter'+
|
|
|
- '(ADirectoryName)+searchRec.Name) then'#013#010+
|
|
|
- ' result := false;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
+ 'ame)+AllFilesMask, faAnyFile+faSymLink, searchRec);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' while SearchResult=0 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' if (searchRec.Name<>'#039'.'#039') and (searchRec.Name<>'#039+
|
|
|
+ '..'#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (searchRec.Attr and faDirectory)=faDirectory then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not IntRemoveTree(IncludeTrailingPathDelimiter','('+
|
|
|
+ 'ADirectoryName)+searchRec.Name) then'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' end'#010+
|
|
|
' else if not DeleteFile(IncludeTrailingPathDelimiter(ADi'+
|
|
|
- 'recto','ryName)+searchRec.Name) then'#013#010+
|
|
|
- ' result := False;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' SearchResult := FindNext(searchRec);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' FindClose(searchRec);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if not RemoveDir(ADirectoryName) then'#013,#010+
|
|
|
- ' result := false;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not DirectoryExists(ADirectoryName) then'#013#010+
|
|
|
- ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#013#010+
|
|
|
- ' else If Not IntRemoveTree(ADirectoryName) then'#013#010+
|
|
|
- ' Error(SErrRemovingDirectory,[ADirect','oryName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysArchiveFiles(List: TStrings;Const AFileName:'+
|
|
|
- ' String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'rectoryName)+searchRec.Name) then'#010+
|
|
|
+ ' result := False;'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' SearchResult := FindNext(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FindClose(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if not RemoveDir(ADirectoryName) then'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not DirectoryExists(ADirectoryName',') then'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
|
|
|
+ ' else If Not IntRemoveTree(ADirectoryName) then'#010+
|
|
|
+ ' Error(SErrRemovingDirectory,[ADirectoryName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysArchiveFiles(List: TStrings;Const AFileN','am'+
|
|
|
+ 'e: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
' If Not (Assigned(OnArchivefiles) or Assigned(ArchiveFilesProc)) then'+
|
|
|
- #013#010+
|
|
|
- ' Raise EInstallerError.Create(SErrNoArchiveSupport);'#013#010+
|
|
|
- ' ',' If Assigned(ArchiveFilesProc) then'#013#010+
|
|
|
- ' ArchiveFilesProc(AFileName,List)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' OnArchiveFiles(AFileName,List);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.LogIndent;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FLogPrefix:=FLogPrefix+'#039' '#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Log','UnIndent;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Delete(FLogPrefix,1,2);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Log(Level: TVerboseLevel; const Msg: String);'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(FOnLog) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Level in [vlInfo,vlDebug] then'#013#010+
|
|
|
- ' FOnLog(Level,FLogPre','fix+Msg)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FOnLog(Level,Msg);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Log(Level: TVerboseLevel; const Fmt: String;con'+
|
|
|
- 'st Args: array of const);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(Level,Format(Fmt,Args));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.E','nterDir(ADir: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' D : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' D:=FStartDir;'#013#010+
|
|
|
- ' D:=D+ADir;'#013#010+
|
|
|
- ' Log(vlDebug,SDbgEnterDir,[D]);'#013#010+
|
|
|
- ' If Not SetCurrentDir(D) then'#013#010+
|
|
|
- ' Error(SErrChangeDirFailed,[D]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdCopyFiles(List: TSt','rings; Const DestDir: S'+
|
|
|
- 'tring);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' DestFileName : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' CmdCreateDir(DestDir);'#013#010+
|
|
|
- ' If (Defaults.Copy<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Args:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' Args:=Args+'#039' '#039'+Des','tDir;'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.Copy,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' For I:=0 to List.Count-1 do'#013#010+
|
|
|
- ' if List.Names[i]<>'#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if IsRelativePath(list.ValueFromIndex[i]) then'#013#010+
|
|
|
- ' DestFileName:=DestDir+','list.ValueFromIndex[i]'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' DestFileName:=list.ValueFromIndex[i];'#013#010+
|
|
|
- ' CmdCreateDir(ExtractFilePath(DestFileName));'#013#010+
|
|
|
- ' SysCopyFile(List.names[i],DestFileName)'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' SysCopyFi','le(List[i],DestDir);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdCreateDir(const DestDir: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.MkDir<>'#039#039') then'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.MkDir,DestDir)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' If not ForceDirectories(DestDir) then'#013#010+
|
|
|
- ' Error(S','ErrCreatingDirectory,[DestDir]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdMoveFiles(List: TStrings; Const DestDir: Str'+
|
|
|
- 'ing);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' CmdCreateDir(DestDir);'#013#010+
|
|
|
- ' If (Defaults.Move<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' Args:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' Args:=Args+'#039' '#039'+DestDir;'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.Move,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' For I:=0 to List.Count-1 do'#013#010+
|
|
|
- ' SysMoveFile(List[i],DestDir);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdDeleteFi','les(List: TStrings);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.Remove<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Args:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.Remove,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' For I:=0 to List.Count','-1 do'#013#010+
|
|
|
- ' SysDeleteFile(List[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdArchiveFiles(List: TStrings; Const ArchiveFi'+
|
|
|
- 'le: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S,C,O : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.Archive='#039#039') then'#013#010+
|
|
|
- ' SysArchiveFiles(List,ArchiveFile)'#013#010+
|
|
|
- ' els','e'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' S:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' SplitCommand(Defaults.Archive,C,O);'#013#010+
|
|
|
- ' If (O='#039#039') then'#013#010+
|
|
|
- ' O:=ArchiveFile+'#039' '#039'+S'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' O:=Substitute(O,['#039'ARCHIVE'#039',ArchiveFile,'#039'FILESORDIR'+
|
|
|
- 'S'#039']);'#013#010+
|
|
|
- ' ExecuteComm','and(C,O);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdRenameFile(SourceName, DestName: String);'#013+
|
|
|
- #010+
|
|
|
- 'var'#013#010+
|
|
|
- ' Args: string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.Move<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Args:=SourceName;'#013#010+
|
|
|
- ' Args:=Args+'#039' '#039'+DestName;'#013#010+
|
|
|
- ' ExecuteC','ommand(Defaults.Move,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' SysMoveFile(SourceName,DestName);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdRemoveDirs(List: TStrings);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.RemoveDir<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013,#010+
|
|
|
- ' Args:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.RemoveDir,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' For I:=0 to List.Count-1 do'#013#010+
|
|
|
- ' SysDeleteDirectory(List[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdRemoveTrees(List: TStrings);'#013#010+
|
|
|
- 'V','ar'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Defaults.RemoveTree<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Args:=FileListToString(List,'#039#039');'#013#010+
|
|
|
- ' ExecuteCommand(Defaults.RemoveTree,Args);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' For I:=0 to List.Count-1 do'#013#010+
|
|
|
- ' Sy','sDeleteTree(List[i]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.FileNewer(const Src,Dest : String) : Boolean;'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' DS,DD : Longint;'#013#010+
|
|
|
- ' D1,D2 : TDateTime;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' DS:=FileAge(Src);'#013#010+
|
|
|
- ' DD:=FileAge(Dest);'#013#010+
|
|
|
- ' D1:=FileDateToDateTime(DS);'#013#010+
|
|
|
- ' D2:=Fi','leDateToDateTime(DD);'#013#010+
|
|
|
+ #010+
|
|
|
+ ' Raise EInstallerError.Create(SErrNoArchiveSupport);'#010+
|
|
|
+ ' If Assigned(ArchiveFilesProc) then'#010+
|
|
|
+ ' ArchiveFilesProc(AFileName,List)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' OnArchiv','eFiles(AFileName,List);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.LogIndent;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' GLogPrefix:=GLogPrefix+'#039' '#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.LogUnIndent;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Delete(GLogPrefix,1,2);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Log(Level: TVerboseLevel; Msg: St','ring);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(FOnLog) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Level in [vlInfo,vlDebug] then'#010+
|
|
|
+ ' FOnLog(Level,GLogPrefix+Msg)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FOnLog(Level,Msg);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Log(Level: TVerboseLevel; Fmt: Strin','g;const A'+
|
|
|
+ 'rgs: array of const);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(Level,Format(Fmt,Args));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.EnterDir(ADir: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' D : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' D:=FStartDir;'#010+
|
|
|
+ ' D:=D+ADir;'#010+
|
|
|
+ ' Log(vlDebug,SDbgEnterDir,[D]);'#010+
|
|
|
+ ' If Not SetCurrentDir(D) then'#010+
|
|
|
+ ' ',' Error(SErrChangeDirFailed,[D]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdCopyFiles(List: TStrings; Const DestDir: Str'+
|
|
|
+ 'ing);'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' DestFileName : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // When the files should be written to an archive, a','dd them'#010+
|
|
|
+ ' if assigned(FZipper) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' if List.Names[i]<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if IsRelativePath(list.ValueFromIndex[i]) then'#010+
|
|
|
+ ' DestFileName:=DestDir+list.ValueFromI','ndex[i]'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' DestFileName:=list.ValueFromIndex[i];'#010+
|
|
|
+ ' FZipper.Entries.AddFileEntry(List.names[i], DestFileName);'+
|
|
|
+ #010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FZipper.Entries.AddFileEntry(List[i], DestDir+ExtractFi','leN'+
|
|
|
+ 'ame(List[i]));'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Copy the files to their new location on disk'#010+
|
|
|
+ ' CmdCreateDir(DestDir);'#010+
|
|
|
+ ' If (Defaults.Copy<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=FileListToString(List,'#039#039');'#010+
|
|
|
+ ' Args:=Args+'#039' '#039'+DestDir;'#010+
|
|
|
+ ' ExecuteCom','mand(Defaults.Copy,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' if List.Names[i]<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if IsRelativePath(list.ValueFromIndex[i]) then'#010+
|
|
|
+ ' DestFileName:=DestDir+list.ValueFromIndex[i]'#010+
|
|
|
+ ' ',' else'#010+
|
|
|
+ ' DestFileName:=list.ValueFromIndex[i];'#010+
|
|
|
+ ' CmdCreateDir(ExtractFilePath(DestFileName));'#010+
|
|
|
+ ' SysCopyFile(List.names[i],DestFileName)'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' SysCopyFile(List[i],DestDir);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure',' TBuildEngine.CmdCreateDir(const DestDir: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Defaults.MkDir<>'#039#039') then'#010+
|
|
|
+ ' ExecuteCommand(Defaults.MkDir,DestDir)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' If not ForceDirectories(DestDir) then'#010+
|
|
|
+ ' Error(SErrCreatingDirectory,[DestDir]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedu','re TBuildEngine.CmdMoveFiles(List: TStrings; Const DestDir: S'+
|
|
|
+ 'tring);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' CmdCreateDir(DestDir);'#010+
|
|
|
+ ' If (Defaults.Move<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=FileListToString(List,'#039#039');'#010+
|
|
|
+ ' Args:=Args+'#039' '#039'+Dest','Dir;'#010+
|
|
|
+ ' ExecuteCommand(Defaults.Move,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' SysMoveFile(List[i],DestDir);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdDeleteFiles(List: TStrings);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (','Defaults.Remove<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=FileListToString(List,'#039#039');'#010+
|
|
|
+ ' ExecuteCommand(Defaults.Remove,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' SysDeleteFile(List[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdArchiveFile','s(List: TStrings; Const Archive'+
|
|
|
+ 'File: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S,C,O : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Defaults.Archive='#039#039') then'#010+
|
|
|
+ ' SysArchiveFiles(List,ArchiveFile)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' S:=FileListToString(List,'#039#039');'#010+
|
|
|
+ ' SplitCommand(Defaults.Archive,C,O);'#010+
|
|
|
+ ' ',' If (O='#039#039') then'#010+
|
|
|
+ ' O:=ArchiveFile+'#039' '#039'+S'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' O:=GlobalDictionary.Substitute(O,['#039'ARCHIVE'#039',ArchiveFil'+
|
|
|
+ 'e,'#039'FILESORDIRS'#039']);'#010+
|
|
|
+ ' ExecuteCommand(C,O);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdRenameFile(SourceName, DestName',': String);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' Args: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Defaults.Move<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=SourceName;'#010+
|
|
|
+ ' Args:=Args+'#039' '#039'+DestName;'#010+
|
|
|
+ ' ExecuteCommand(Defaults.Move,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' SysMoveFile(SourceName,DestName);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedu','re TBuildEngine.CmdRemoveDirs(List: TStrings);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Defaults.RemoveDir<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=FileListToString(List,'#039#039');'#010+
|
|
|
+ ' ExecuteCommand(Defaults.RemoveDir,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' F','or I:=0 to List.Count-1 do'#010+
|
|
|
+ ' SysDeleteDirectory(List[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdRemoveTrees(List: TStrings);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Defaults.RemoveTree<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Args:=FileListToString(','List,'#039#039');'#010+
|
|
|
+ ' ExecuteCommand(Defaults.RemoveTree,Args);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' SysDeleteTree(List[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.FileNewer(const Src,Dest : String) : Boolean;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' DS,DD : Longint;'#010+
|
|
|
+ ' D1,D2',' : TDateTime;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' DS:=FileAge(Src);'#010+
|
|
|
+ ' { Return false if file not found or not accessible }'#010+
|
|
|
+ ' if DS=-1 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlWarning,SWarnCanNotGetFileAge,[Src]);'#010+
|
|
|
+ ' Result:=false;'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' DD:=FileAge(Dest);'#010+
|
|
|
+ ' D1:','=FileDateToDateTime(DS);'#010+
|
|
|
+ ' D2:=FileDateToDateTime(DD);'#010+
|
|
|
' Log(vlDebug,SDbgComparingFileTimes,[Src,DateTimeToStr(D1),Dest,DateT'+
|
|
|
- 'imeToStr(D2)]);'#013#010+
|
|
|
- ' Result:=D1>=D2;'#013#010+
|
|
|
- ' If Result then'#013#010+
|
|
|
- ' Log(vlInfo,SInfoSourceNewerDest,[Src,DateTimeToStr(D1),Dest,DateTi'+
|
|
|
- 'meToStr(D2)]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013,#010+
|
|
|
- #013#010+
|
|
|
+ 'imeToStr(D2)]);'#010+
|
|
|
+ ' Result:=D1>=D2;'#010+
|
|
|
+ ' If Result then'#010+
|
|
|
+ ' Log(vlInfo,SInfoSourceNewerDest,[Src,DateTimeToStr(D1),Dest,','Date'+
|
|
|
+ 'TimeToStr(D2)]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.ExecuteCommands(Commands: TCommands; At: TComma'+
|
|
|
- 'ndAt);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' C : TCommand;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' Cmd,O : String;'#013#010+
|
|
|
- ' E : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to Commands.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' C:=Commands.CommandItems[i]',';'#013#010+
|
|
|
- ' if (C.At=At) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' E:=True;'#013#010+
|
|
|
- ' If (C.SourceFile<>'#039#039') and (C.DestFile<>'#039#039') then'+
|
|
|
- #013#010+
|
|
|
- ' E:=FileNewer(C.SourceFile,IncludeTrailingPathDelimiter(Dic'+
|
|
|
- 'tionary.GetValue('#039'OUTPUTDIR'#039'))+C.DestFile);'#013#010+
|
|
|
- ' ',' If E then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If Assigned(C.BeforeCommand) then'#013#010+
|
|
|
- ' C.BeforeCommand(C);'#013#010+
|
|
|
- ' O:=Substitute(C.CmdLineOptions,['#039'SOURCE'#039',C.SourceF'+
|
|
|
- 'ile,'#039'DEST'#039',C.DestFile]);'#013#010+
|
|
|
- ' Cmd:=C.Command;'#013#010+
|
|
|
- ' ',' If (ExtractFilePath(Cmd)='#039#039') then'#013#010+
|
|
|
- ' Cmd:=ExeSearch(Cmd,GetEnvironmentvariable('#039'PATH'#039')'+
|
|
|
- ');'#013#010+
|
|
|
- ' ExecuteCommand(Cmd,O,nil,C.IgnoreResult);'#013#010+
|
|
|
- ' If Assigned(C.AfterCommand) then'#013#010+
|
|
|
- ' C.AfterCommand','(C);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TBuildEngine.LogSearchPath(const ASearchPathName:string;Path'+
|
|
|
- ':TConditionalStrings; ACPU:TCPU;AOS:TOS);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' C : TConditionalString;'#013#010+
|
|
|
- 'begin'#013,#010+
|
|
|
- ' S:='#039#039';'#013#010+
|
|
|
- ' for i:=0 to Path.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' C:=Path[I];'#013#010+
|
|
|
- ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if S<>'#039#039' then'#013#010+
|
|
|
- ' S:=S+PathSeparator;'#013#010+
|
|
|
- ' S:=S+Dictionary.ReplaceStrings(C.','Value)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if S<>'#039#039' then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgSearchPath,[ASearchPathName,S]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.FindFileInPath(Path:TConditionalStrings; AFileNa'+
|
|
|
- 'me:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolea','n;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' C : TConditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=false;'#013#010+
|
|
|
- ' for i:=0 to Path.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' C:=Path[I];'#013#010+
|
|
|
- ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FoundPath:=IncludeTrailin','gPathDelimiter(Dictionary.Replace'+
|
|
|
- 'Strings(C.Value));'#013#010+
|
|
|
- ' if FileExists(FoundPath+AFileName) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result:=true;'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' FoundPath:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013,#010+
|
|
|
+ 'ndAt; APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' C : TCommand;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' Cmd,O : String;'#010+
|
|
|
+ ' E : Boolean;'#010+
|
|
|
+ ' ADictionary: TDictionary;'#010+
|
|
|
+ ' SourceFile, DestF','ile: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' For I:=0 to Commands.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=Commands.CommandItems[i];'#010+
|
|
|
+ ' if (C.At=At) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' E:=True;'#010+
|
|
|
+ #010+
|
|
|
+ ' if assigned(APackage) then'#010+
|
|
|
+ ' ADictionary := APackage.Dictionary'#010,
|
|
|
+ ' else'#010+
|
|
|
+ ' ADictionary := GlobalDictionary;'#010+
|
|
|
+ ' SourceFile := ADictionary.ReplaceStrings(C.SourceFile);'#010+
|
|
|
+ ' DestFile := ADictionary.ReplaceStrings(C.DestFile);'#010+
|
|
|
+ ' if IsRelativePath(SourceFile) then'#010+
|
|
|
+ ' ',' SourceFile := AddPathPrefix(APackage,SourceFile);'#010+
|
|
|
+ ' if IsRelativePath(DestFile) then'#010+
|
|
|
+ ' DestFile := AddPathPrefix(APackage,DestFile);'#010+
|
|
|
+ #010+
|
|
|
+ ' Cmd:=C.Command;'#010+
|
|
|
+ ' If (ExtractFilePath(Cmd)='#039#039') then'#010+
|
|
|
+ ' C','md:=ExeSearch(Cmd,GetEnvironmentvariable('#039'PATH'#039')'+
|
|
|
+ ');'#010+
|
|
|
+ #010+
|
|
|
+ ' If (SourceFile<>'#039#039') and (DestFile<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not FileExists(DestFile) then'#010+
|
|
|
+ ' Log(vlInfo,SInfoDestDoesNotExist,[DestFile])'#010+
|
|
|
+ ' ',' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' E:=FileNewer(SourceFile, DestFile);'#010+
|
|
|
+ ' if E and (cmd = '#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlWarning,SWarnExtCommandNotFound,[C.Command,Des'+
|
|
|
+ 'tFile,SourceFile]);',#010+
|
|
|
+ ' E := False;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If E then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Cmd = '#039#039' then'#010+
|
|
|
+ ' error(SErrExtCommandNotFound,[C.Command]);'#010+
|
|
|
+ #010+
|
|
|
+ ' If Assigned','(C.BeforeCommand) then'#010+
|
|
|
+ ' C.BeforeCommand(C);'#010+
|
|
|
+ ' O:=ADictionary.Substitute(C.CmdLineOptions,['#039'SOURCE'#039+
|
|
|
+ ',SourceFile,'#039'DEST'#039',DestFile]);'#010+
|
|
|
+ #010+
|
|
|
+ ' Log(vlCommand,SInfoExecutingCommand,[Cmd,O]);'#010+
|
|
|
+ ' ExecuteCommand(Cm','d,O,nil,C.IgnoreResult);'#010+
|
|
|
+ ' If Assigned(C.AfterCommand) then'#010+
|
|
|
+ ' C.AfterCommand(C);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.LogSearchPath(APackage: TPackage; const ASearch'+
|
|
|
+ 'PathName: string; Pat','h: TConditionalStrings; ACPU: TCPU; AOS: TOS);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' C : TConditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' S:='#039#039';'#010+
|
|
|
+ ' for i:=0 to Path.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=Path[I];'#010+
|
|
|
+ ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#010+
|
|
|
+ ' be','gin'#010+
|
|
|
+ ' if S<>'#039#039' then'#010+
|
|
|
+ ' S:=S+PathSeparator;'#010+
|
|
|
+ ' S:=S+APackage.Dictionary.ReplaceStrings(C.Value)'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if S<>'#039#039' then'#010+
|
|
|
+ ' Log(vlDebug,SDbgSearchPath,[ASearchPathName,S]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.F','indFileInPath(APackage: TPackage; Path:TCondi'+
|
|
|
+ 'tionalStrings; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TO'+
|
|
|
+ 'S):Boolean;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' C : TConditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=false;'#010+
|
|
|
+ ' for i:=0 to Path.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' C:=Path[I];'#010+
|
|
|
+ ' if (ACPU in C.CPUs) and (AOS in C.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FoundPath:=IncludeTrailingPathDelimiter(APackage.Dictionary.'+
|
|
|
+ 'ReplaceStrings(C.Value));'#010+
|
|
|
+ ' if FileExists(AddPathPrefix(APackage,FoundPath+AFileName','))'+
|
|
|
+ ' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result:=true;'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' FoundPath:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.GetDirectoriesFromFilelist(const AFileList, ADi'+
|
|
|
- 'rectoryList: TStringList);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ADirectoryList.Sorted:=true;'#013#010+
|
|
|
- ' ADirectoryList.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' for i := 0 to AFileList.Count-1 do'#013#010+
|
|
|
- ' ',' ADirectoryList.Add(ExtractFileDir(AFileList.Strings[i]));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TBuildEngine.ResolveFileNames(APackage : TPackage; ACPU:TCPU'+
|
|
|
- ';AOS:TOS;DoChangeDir:boolean=true);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure FindMainSource(T:TTarget);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' SD,SF : S','tring;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' LogSearchPath('#039'package source'#039',APackage.SourcePath,ACPU,AO'+
|
|
|
- 'S);'#013#010+
|
|
|
- ' SD:=Dictionary.ReplaceStrings(T.Directory);'#013#010+
|
|
|
- ' SF:=Dictionary.ReplaceStrings(T.SourceFileName);'#013#010+
|
|
|
- ' if SD='#039#039' then'#013#010+
|
|
|
- ' FindFileInPath(APackage.Sour','cePath,SF,SD,ACPU,AOS);'#013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=IncludeTrailingPathDelimiter(SD);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:=SD+SF;'#013#010+
|
|
|
- ' if FileExists(T.TargetSourceFileName) then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.Targ','etS'+
|
|
|
- 'ourceFileName])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName,APacka'+
|
|
|
- 'ge.Name,MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure FindIncludeSourc','es(T:TTarget);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' SD,SF : String;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' j : integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' LogSearchPath('#039'target include'#039',T.IncludePath,ACPU,AOS);'#013+
|
|
|
- #010+
|
|
|
- ' LogSearchPath('#039'package include'#039',APackage.IncludePath,ACPU,'+
|
|
|
- 'AOS);'#013#010+
|
|
|
- ' for j:=0 to ','T.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=T.Dependencies[j];'#013#010+
|
|
|
- ' if (D.DependencyType=depInclude) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D.TargetFileName:='#039#039';'#013#010+
|
|
|
- ' if (ACPU in D.CPUs) and (AOS in D.OSes) then'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
- ' if ExtractFilePath(D.Value)='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' SF:=Dictionary.ReplaceStrings(D.Value);'#013#010+
|
|
|
- ' SD:='#039#039';'#013#010+
|
|
|
- ' // first check the target specific path'#013#010+
|
|
|
- ' ',' if not FindFileInPath(T.IncludePath,SF,SD,ACPU,A'+
|
|
|
- 'OS) then'#013#010+
|
|
|
- ' FindFileInPath(APackage.IncludePath,SF,SD,ACPU,A'+
|
|
|
- 'OS);'#013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=IncludeTrailingPathDelim','iter(SD);'#013#010+
|
|
|
- ' D.TargetFileName:=SD+SF;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' D.TargetFileName:=D.Value;'#013#010+
|
|
|
- ' if FileExists(D.TargetFileName) then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgRes','olvedIncludeFile,[D.Value,D.Tar'+
|
|
|
- 'getFileName])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlWarning,SWarnIncludeFileNotFound,[D.Value, A'+
|
|
|
- 'Package.Name, MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' D.TargetFile','Name:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure FindExampleSource(T:TTarget);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' SD,SF : String;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' LogSearchPath('#039'package example'#039',APackage.ExamplePath,ACPU,'+
|
|
|
- 'AOS)',';'#013#010+
|
|
|
- ' SD:=Dictionary.ReplaceStrings(T.Directory);'#013#010+
|
|
|
- ' SF:=Dictionary.ReplaceStrings(T.SourceFileName);'#013#010+
|
|
|
- ' if SD='#039#039' then'#013#010+
|
|
|
- ' FindFileInPath(APackage.ExamplePath,SF,SD,ACPU,AOS);'#013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=IncludeTrailingPathDelimi','ter(SD);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:=SD+SF;'#013#010+
|
|
|
- ' if FileExists(T.TargetSourceFileName) then'#013#010+
|
|
|
+ 'rectoryList: TStringList);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i',': integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ADirectoryList.Sorted:=true;'#010+
|
|
|
+ ' ADirectoryList.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' for i := 0 to AFileList.Count-1 do'#010+
|
|
|
+ ' ADirectoryList.Add(ExtractFileDir(AFileList.Strings[i]));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TBuildEngine.ResolveFileNames(APacka','ge : TPackage; ACPU:TC'+
|
|
|
+ 'PU;AOS:TOS;DoChangeDir:boolean=true; WarnIfNotFound:boolean=true);'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure FindMainSource(T:TTarget);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' SD,SF : String;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' LogSearchPath(APackage,'#039'package source'#039',APackage.SourcePat'+
|
|
|
+ 'h,ACPU,AOS);'#010+
|
|
|
+ ' ',' SD:=APackage.Dictionary.ReplaceStrings(T.Directory);'#010+
|
|
|
+ ' SF:=APackage.Dictionary.ReplaceStrings(T.SourceFileName);'#010+
|
|
|
+ ' if SD='#039#039' then'#010+
|
|
|
+ ' FindFileInPath(APackage,APackage.SourcePath,SF,SD,ACPU,AOS);'#010+
|
|
|
+ ' if SD<>'#039#039' then'#010+
|
|
|
+ ' SD:=IncludeT','railingPathDelimiter(SD);'#010+
|
|
|
+ ' T.FTargetSourceFileName:=SD+SF;'#010+
|
|
|
+ ' if FileExists(AddPathPrefix(APackage,T.TargetSourceFileName)) then'+
|
|
|
+ #010+
|
|
|
' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.TargetSou'+
|
|
|
- 'rceFileName])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlWarning,SWarnSourceFile','NotFound,[T.SourceFileName, APa'+
|
|
|
- 'ckage.Name, MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' i : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not((ACPU in APackage.CPUs) and (AOS in APackage.OSes)) t','hen'#013+
|
|
|
- #010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' if DoChangeDir and (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'OS'#039',OSToString(AOS));'#013#010+
|
|
|
- ' For I:=0 to APack','age.Targets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=APackage.FTargets.TargetItems[I];'#013#010+
|
|
|
- ' if (ACPU in T.CPUs) and (AOS in T.OSes) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Debug information'#013#010+
|
|
|
- ' Log(vlDebug,SDbgResolvingSourcesOfTarget',',[T.Name,MakeTar'+
|
|
|
- 'getString(ACPU,AOS)]);'#013#010+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' case T.TargetType of'#013#010+
|
|
|
- ' ttProgram,'#013#010+
|
|
|
- ' ttUnit,'#013#010+
|
|
|
- ' ttImplicitUnit :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FindMainSource(T);',#013#010+
|
|
|
- ' if T.Dependencies.Count>0 then'#013#010+
|
|
|
- ' FindIncludeSources(T);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ttExampleUnit,'#013#010+
|
|
|
- ' ttExampleProgram :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FindExampleSource','(T);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' If DoChangeDir and (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.GetUnitDir(A','Package:TPackage):String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if APackage.UnitDir='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Retrieve Full directory name where to find the units.'#013#010+
|
|
|
- ' // The search order is:'#013#010+
|
|
|
- ' // - Package in this fpmake.pp'#013#010+
|
|
|
- ' // - LocalUnitDir'#013#010+
|
|
|
- ' ',' // - GlobalUnitDir'#013#010+
|
|
|
+ 'rceFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' if WarnIfNotFound then'#010+
|
|
|
+ ' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName,APac'+
|
|
|
+ 'kage.Name,MakeTargetString(ACPU,AOS)]);'#010+
|
|
|
+ ' APackage.FAllFilesResolved:=false;'#010+
|
|
|
+ ' T.FTargetSourceFileName:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' ','procedure FindIncludeSources(T:TTarget);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' SD,SF : String;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' j : integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' LogSearchPath(APackage,'#039'target include'#039',T.IncludePath,ACPU'+
|
|
|
+ ',AOS);'#010+
|
|
|
+ ' LogSearchPath(APackage,'#039'package include'#039',APackage.Inc','lud'+
|
|
|
+ 'ePath,ACPU,AOS);'#010+
|
|
|
+ ' for j:=0 to T.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=T.Dependencies[j];'#010+
|
|
|
+ ' if (D.DependencyType=depInclude) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if D.TargetFileName<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' Exit;'#010+
|
|
|
+ ' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (ACPU in D.CPUs) and (AOS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if ExtractFilePath(D.Value)='#039#039' then'#010+
|
|
|
+ ' begi','n'#010+
|
|
|
+ ' SF:=APAckage.Dictionary.ReplaceStrings(D.Value);'#010+
|
|
|
+ ' SD:='#039#039';'#010+
|
|
|
+ ' // first check the target specific path'#010+
|
|
|
+ ' if not FindFileInPath(APackage, T.IncludePath,SF,S'+
|
|
|
+ 'D,ACPU,AOS)',' then'#010+
|
|
|
+ ' FindFileInPath(APackage, APackage.IncludePath,SF'+
|
|
|
+ ',SD,ACPU,AOS);'#010+
|
|
|
+ ' if SD<>'#039#039' then'#010+
|
|
|
+ ' SD:=IncludeTrailingPathDelimiter(SD);'#010+
|
|
|
+ ' D.TargetFileName:=SD+SF;'#010+
|
|
|
+ ' ',' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' D.TargetFileName:=D.Value;'#010+
|
|
|
+ ' if FileExists(AddPathPrefix(APackage,D.TargetFileName)'+
|
|
|
+ ') then'#010+
|
|
|
+ ' Log(vlDebug,SDbgResolvedIncludeFile,[D.Value,D.Targe'+
|
|
|
+ 'tFileName])',#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if WarnIfNotFound then'#010+
|
|
|
+ ' Log(vlWarning,SWarnIncludeFileNotFound,[D.Value,'+
|
|
|
+ ' APackage.Name, MakeTargetString(ACPU,AOS)]);'#010+
|
|
|
+ ' APackage.FAllFi','lesResolved:=false;'#010+
|
|
|
+ ' D.TargetFileName:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure FindExampleSource(T:TTarget);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' SD,SF : String;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' LogSearchPath(APackag','e,'#039'package example'#039',APackage.Exampl'+
|
|
|
+ 'ePath,ACPU,AOS);'#010+
|
|
|
+ ' SD:=APackage.Dictionary.ReplaceStrings(T.Directory);'#010+
|
|
|
+ ' SF:=APackage.Dictionary.ReplaceStrings(T.SourceFileName);'#010+
|
|
|
+ ' if SD='#039#039' then'#010+
|
|
|
+ ' FindFileInPath(APackage, APackage.ExamplePath',',SF,SD,ACPU,AOS);'+
|
|
|
+ #010+
|
|
|
+ ' if SD<>'#039#039' then'#010+
|
|
|
+ ' SD:=IncludeTrailingPathDelimiter(SD);'#010+
|
|
|
+ ' T.FTargetSourceFileName:=SD+SF;'#010+
|
|
|
+ ' if FileExists(AddPathPrefix(APackage,T.TargetSourceFileName)) then'+
|
|
|
+ #010+
|
|
|
+ ' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFi','leName,T.TargetS'+
|
|
|
+ 'ourceFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if WarnIfNotFound then'#010+
|
|
|
+ ' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName, APa'+
|
|
|
+ 'ckage.Name, MakeTargetString(ACPU,AOS)]);'#010+
|
|
|
+ ' T.FTargetSourceFileName:='#039#039';'#010+
|
|
|
+ ' ',' APackage.FAllFilesResolved:=false;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ ' i : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not((ACPU in APackage.CPUs) and (AOS in APackage.OSes)) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' if APackage.FAllFilesResolved then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' APackage.FAllFilesRe','solved:=true;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' if DoChangeDir and (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := APackage.Directory;'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'OS'#039',OSToString(AOS));'#010+
|
|
|
+ ' F','or I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.FTargets.TargetItems[I];'#010+
|
|
|
+ ' if (ACPU in T.CPUs) and (AOS in T.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Debug information'#010+
|
|
|
+ ' Log(vlDebug,SDbgResolvingSourc','esOfTarget,[T.Name,MakeTar'+
|
|
|
+ 'getString(ACPU,AOS)]);'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ #010+
|
|
|
+ ' case T.TargetType of'#010+
|
|
|
+ ' ttProgram,'#010+
|
|
|
+ ' ttUnit,'#010+
|
|
|
+ ' ttImplicitUnit :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if T.FTargetSour','ceFileName<>'#039#039' then'#010+
|
|
|
+ ' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FindMainSource(T);'#010+
|
|
|
+ ' if T.Dependencies.Count>0 then'#010+
|
|
|
+ ' FindIncludeSources(T)',';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ttExampleUnit,'#010+
|
|
|
+ ' ttExampleProgram :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if T.FTargetSourceFileName<>'#039#039' then'#010+
|
|
|
+ ' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name])'#010+
|
|
|
+ ' ',' else'#010+
|
|
|
+ ' FindExampleSource(T);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' If DoChangeDir and (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := '#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'e','nd;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.GetUnitDir(APackage:TPackage):String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if APackage.UnitDir='#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Retrieve Full directory name where to find the units.'#010+
|
|
|
+ ' // The search order is:'#010+
|
|
|
+ ' // - Package in this fpmake.','pp'#010+
|
|
|
+ ' // - LocalUnitDir'#010+
|
|
|
+ ' // - GlobalUnitDir'#010+
|
|
|
' if (APackage.State in [tsCompiled, tsNoCompile, tsInstalled]) th'+
|
|
|
- 'en'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'en'#010+
|
|
|
+ ' begin'#010+
|
|
|
' APackage.UnitDir:=IncludeTrailingPathDelimiter(FStartDir)+In'+
|
|
|
- 'cludeTrailingPathDelimiter(APackage.Directory)+APackage.Ge','tUnitsOutp'+
|
|
|
- 'utDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if (APackage.UnitDir='#039#039') and'#013#010+
|
|
|
- ' (Defaults.LocalUnitDir<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.UnitDir:=IncludeTrailingPathDelimiter(Defaults.Loca'+
|
|
|
- 'lUnitDir)+APackage','.Name;'#013#010+
|
|
|
- ' if not SysDirectoryExists(APackage.UnitDir) then'#013#010+
|
|
|
- ' APackage.UnitDir:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if APackage.UnitDir='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'cludeTrailingPathDelimiter(AP','ackage.Directory)+APackage.GetUnitsOutp'+
|
|
|
+ 'utDir(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (APackage.UnitDir='#039#039') and'#010+
|
|
|
+ ' (Defaults.LocalUnitDir<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.UnitDir:=IncludeTrailingPathDelimiter(Default','s.Lo'+
|
|
|
+ 'calUnitDir)+APackage.Name+PathDelim+APackage.GetPackageUnitInstallDir('+
|
|
|
+ 'defaults.CPU, Defaults.OS);'#010+
|
|
|
+ ' if not SysDirectoryExists(APackage.UnitDir) then'#010+
|
|
|
+ ' APackage.UnitDir:='#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if APackage.UnitDir='#039#039' the','n'#010+
|
|
|
+ ' begin'#010+
|
|
|
' APackage.UnitDir:=IncludeTrailingPathDelimiter(Defaults.Glob'+
|
|
|
- 'alU','nitDir)+APackage.Name;'#013#010+
|
|
|
- ' if not SysDirectoryExists(APackage.UnitDir) then'#013#010+
|
|
|
- ' APackage.UnitDir:=DirNotFound;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if (APackage.UnitDir<>DirNotFound) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if FileExists(IncludeTra','ilingPathDelimiter(APackage.UnitDi'+
|
|
|
- 'r)+FPMakePPFile) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // The package is not installed, but the source-path is '+
|
|
|
- 'detected.'#013#010+
|
|
|
+ 'alUnitDir)+APackage.Name+PathDelim+APackage.GetPackageUnitInstallDir(d'+
|
|
|
+ 'efaults.CPU, Defaults.OS);'#010+
|
|
|
+ ' if not SysDirectoryExists(APackage.UnitDir) the','n'#010+
|
|
|
+ ' APackage.UnitDir:=DirNotFound;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if (APackage.UnitDir<>DirNotFound) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if FileExists(IncludeTrailingPathDelimiter(APackage.UnitDir)'+
|
|
|
+ '+FPMakePPFile) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' // The package is not installed, but the source-path i'+
|
|
|
+ 's detected.'#010+
|
|
|
' // It is an external package so it is impossible to comp'+
|
|
|
- 'ile it, so'#013#010+
|
|
|
- ' ',' // assume that it has been compiled earlier.'#013#010+
|
|
|
- ' APackage.UnitDir := IncludeTrailingPathDelimiter(APackag'+
|
|
|
- 'e.UnitDir) + APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#013+
|
|
|
- #010+
|
|
|
- ' // If the unit-directory does',' not exist, you know for '+
|
|
|
- 'sure that'#013#010+
|
|
|
- ' // the package is not compiled'#013#010+
|
|
|
- ' if not SysDirectoryExists(APackage.UnitDir) then'#013#010+
|
|
|
- ' APackage.UnitDir:=DirNotFound'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' // Set the ','state to tsNoCompile and not tsCompiled. '+
|
|
|
- 'Because packages'#013#010+
|
|
|
- ' // in the tsCompiled state trigger a rebuild of packag'+
|
|
|
- 'es that depend'#013#010+
|
|
|
- ' // on it.'#013#010+
|
|
|
- ' APackage.FTargetState:=tsNoCompile;'#013#010+
|
|
|
- ' end',#013#010+
|
|
|
+ 'ile it, so'#010+
|
|
|
+ ' // assume that it has been compiled earlier.'#010+
|
|
|
+ ' APackage.UnitDir :=',' IncludeTrailingPathDelimiter(APack'+
|
|
|
+ 'age.UnitDir) + APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' // If the unit-directory does not exist, you know for su'+
|
|
|
+ 're that'#010+
|
|
|
+ ' // the package is not compiled'#010+
|
|
|
+ ' ',' if not SysDirectoryExists(APackage.UnitDir) then'#010+
|
|
|
+ ' APackage.UnitDir:=DirNotFound'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' // Set the state to tsNoCompile and not tsCompiled. Be'+
|
|
|
+ 'cause packages'#010+
|
|
|
+ ' // in the tsCompiled sta','te trigger a rebuild of pack'+
|
|
|
+ 'ages that depend'#010+
|
|
|
+ ' // on it.'#010+
|
|
|
+ ' APackage.FTargetState:=tsNoCompile;'#010+
|
|
|
+ ' end'#010+
|
|
|
' else if not (APackage.FTargetState in [tsCompiled, tsNoCompi'+
|
|
|
- 'le]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FTargetState:=tsInstalled;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Special error marker to prevent search','es in case of error'#013#010+
|
|
|
- ' if APackage.UnitDir=DirNotFound then'#013#010+
|
|
|
- ' Result:='#039#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=APackage.UnitDir;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'le]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' APackage.FTargetState:=tsInstalled;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Special error marker to prevent searches in case of error'#010+
|
|
|
+ ' if APackage.UnitDir=DirNotFound then'#010+
|
|
|
+ ' Result:='#039#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=APackage.UnitDir;',#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.AddDependencyPaths(L: TStrings; DependencyType:'+
|
|
|
- ' TDependencyType; ATarget: TTarget);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' ',' I : Integer;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' SD : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to ATarget.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=ATarget.Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=DependencyType) and'#013#010+
|
|
|
- ' (Defaults.CPU in D.CPUs) and (De','faults.OS in D.OSes) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
+ ' TDependencyType; ATarget: TTarget);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' SD : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' For I:=0 to ATarget.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=A','Target.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=DependencyType) and'#010+
|
|
|
+ ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' SD:=ExcludeTrailingPathDelimiter(ExtractFilePath(D.TargetFil'+
|
|
|
- 'eName));'#013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' L.Add(SD);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.AddDependen','cyUnitPaths(L:TStrings;APackage: T'+
|
|
|
- 'Package);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to APackage.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=APackage.Dependencies[i];'#013#010+
|
|
|
- ' if (D.Dependen','cyType=depPackage) and'#013#010+
|
|
|
- ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=TPackage(D.Target);'#013#010+
|
|
|
- ' If Assigned(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Already processed?'#013#010+
|
|
|
- ' ',' S:=GetUnitDir(P);'#013#010+
|
|
|
- ' if L.IndexOf(S)=-1 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Add this package and then dependencies'#013#010+
|
|
|
- ' L.Add(S);'#013#010+
|
|
|
- ' AddDependencyUnitPaths(L,P);'#013#010+
|
|
|
- ' end',';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'eName));'#010+
|
|
|
+ ' ',' if SD<>'#039#039' then'#010+
|
|
|
+ ' L.Add(SD);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.AddDependencyUnitPaths(L:TStrings;APackage: TPa'+
|
|
|
+ 'ckage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' For I:=0 to APacka','ge.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=APackage.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) and'#010+
|
|
|
+ ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=TPackage(D.Target);'#010+
|
|
|
+ ' I','f Assigned(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Already processed?'#010+
|
|
|
+ ' S:=GetUnitDir(P);'#010+
|
|
|
+ ' if L.IndexOf(S)=-1 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Add this package and then dependencies'#010+
|
|
|
+ ' ',' L.Add(S);'#010+
|
|
|
+ ' AddDependencyUnitPaths(L,P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.AddPathPrefix(APackage: TPackage; APath: string)'+
|
|
|
+ ': string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if IsRelativePath(APath) a','nd (GPathPrefix<>'#039#039') then'#010+
|
|
|
+ ' result := IncludeTrailingPathDelimiter(GPathPrefix) + APath'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := APath;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuildEngine.GetCompilerCommand(APackage : TPackage; ATarget '+
|
|
|
- ': TTarget; Env: TStrings) : String;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' L : TUnsortedDuplicatesStringList;'#013#010+
|
|
|
- ' Args : TStringList;'#013#010+
|
|
|
- ' s : string',';'#013#010+
|
|
|
- ' i : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if ATarget.TargetSourceFileName = '#039#039' then'#013#010+
|
|
|
- ' Error(SErrCouldNotCompile,[ATarget.Name, APackage.Name]);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Args:=TStringList.Create;'#013#010+
|
|
|
- ' Args.Duplicates:=dupIgnore;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Result := '#039#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //compiler configurat','ion'#013#010+
|
|
|
- ' if Defaults.NoFPCCfg then'#013#010+
|
|
|
- ' Args.Add('#039'-n'#039');'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Target OS'#013#010+
|
|
|
- ' Args.Add('#039'-T'#039'+OSToString(Defaults.OS));'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Compile mode'#013#010+
|
|
|
- ' If ATarget.Mode<>cmFPC then'#013#010+
|
|
|
- ' Args.Add('#039'-M'#039'+ModeToString(ATarget.Mode))'#013#010+
|
|
|
- ' else If Defaults.Mode<>','cmFPC then'#013#010+
|
|
|
- ' Args.Add('#039'-M'#039'+ModeToString(Defaults.Mode));'#013#010+
|
|
|
- ' // Output file paths'#013#010+
|
|
|
- ' If ATarget.TargetType in ProgramTargets then'#013#010+
|
|
|
- ' Args.Add('#039'-FE'#039'+APackage.GetBinOutputDir(Defaults.CPU,Defau'+
|
|
|
- 'lts.OS));'#013#010+
|
|
|
- ' Args.Add('#039'-FU'#039'+APackage.GetUnits','OutputDir(Defaults.CPU,Def'+
|
|
|
- 'aults.OS));'#013#010+
|
|
|
- ' // Object Path'#013#010+
|
|
|
- ' L:=TUnsortedDuplicatesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' AddConditionalStrings(L,APackage.ObjectPath,Defaults.CPU,Defaults.OS'+
|
|
|
- ');'#013#010+
|
|
|
- ' AddConditionalStrings(L,ATarget.Obj','ectPath,Defaults.CPU,Defaults.O'+
|
|
|
- 'S);'#013#010+
|
|
|
- ' for i:=0 to L.Count-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fo'#039'+L[i]);'#013#010+
|
|
|
- ' FreeAndNil(L);'#013#010+
|
|
|
- ' // Unit Dirs'#013#010+
|
|
|
- ' L:=TUnsortedDuplicatesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' AddDependencyUnitPaths(L,APackage);'#013#010+
|
|
|
- ' Ad','dDependencyPaths(L,depUnit,ATarget);'#013#010+
|
|
|
- ' AddConditionalStrings(L,APackage.UnitPath,Defaults.CPU,Defaults.OS);'+
|
|
|
- #013#010+
|
|
|
- ' AddConditionalStrings(L,ATarget.UnitPath,Defaults.CPU,Defaults.OS);'#013+
|
|
|
- #010+
|
|
|
- ' for i:=0 to L.Count-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fu'#039'+L[i]);'#013#010+
|
|
|
- ' Fr','eeAndNil(L);'#013#010+
|
|
|
- ' // Include Path'#013#010+
|
|
|
- ' L:=TUnsortedDuplicatesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' AddDependencyPaths(L,depInclude,ATarget);'#013#010+
|
|
|
- ' AddConditionalStrings(L,APackage.IncludePath,Defaults.CPU,Defaults.O'+
|
|
|
- 'S);'#013#010+
|
|
|
- ' AddConditiona','lStrings(L,ATarget.IncludePath,Defaults.CPU,Defaults.'+
|
|
|
- 'OS);'#013#010+
|
|
|
- ' for i:=0 to L.Count-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fi'#039'+L[i]);'#013#010+
|
|
|
- ' FreeAndNil(L);'#013#010+
|
|
|
- ' // Custom Options'#013#010+
|
|
|
- ' If (Defaults.HaveOptions) then'#013#010+
|
|
|
- ' Args.AddStrings(Defaults.Options);'#013#010+
|
|
|
- ' If (APackag','e.HaveOptions) then'#013#010+
|
|
|
- ' Args.AddStrings(APackage.Options);'#013#010+
|
|
|
- ' If (ATarget.HaveOptions) then'#013#010+
|
|
|
- ' Args.AddStrings(ATarget.Options);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' {$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' // Force the compiler-output to be easy parseable'#013#010+
|
|
|
- ' if not Verbose then'#013#010,
|
|
|
- ' args.Add('#039'-viq'#039');'#013#010+
|
|
|
- ' {$endif}'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Convert to string'#013#010+
|
|
|
- ' Result:='#039#039';'#013#010+
|
|
|
- ' for i:=0 to Args.Count-1 do'#013#010+
|
|
|
- ' Result:=Result+'#039' '#039'+maybequoted(Args[i]);'#013#010+
|
|
|
- ' Delete(result,1,1);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if Defaults.UseEnvironment and assigned(Env) then'#013#010+
|
|
|
- ' begin',#013#010+
|
|
|
- ' env.Values['#039'FPCEXTCMD'#039'] := Result;'#013#010+
|
|
|
- ' result := '#039'!FPCEXTCMD'#039';'#013#010+
|
|
|
+ ': TTarget; Env: TStrings) : String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L :',' TUnsortedDuplicatesStringList;'#010+
|
|
|
+ ' Args : TStringList;'#010+
|
|
|
+ ' s : string;'#010+
|
|
|
+ ' i : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if ATarget.TargetSourceFileName = '#039#039' then'#010+
|
|
|
+ ' Error(SErrCouldNotCompile,[ATarget.Name, APackage.Name]);'#010+
|
|
|
+ #010+
|
|
|
+ ' Args:=TStringList.Create;'#010+
|
|
|
+ ' Args.Duplicate','s:=dupIgnore;'#010+
|
|
|
+ #010+
|
|
|
+ ' Result := '#039#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' //compiler configuration'#010+
|
|
|
+ ' if Defaults.NoFPCCfg then'#010+
|
|
|
+ ' Args.Add('#039'-n'#039');'#010+
|
|
|
+ #010+
|
|
|
+ ' // Target OS'#010+
|
|
|
+ ' Args.Add('#039'-T'#039'+OSToString(Defaults.OS));'#010+
|
|
|
+ #010+
|
|
|
+ ' // Target CPU.'#010+
|
|
|
+ ' // This setting is only applicable when '#039'fpc'#039' is used a','s c'+
|
|
|
+ 'ompiler-executable.'#010+
|
|
|
+ ' if ExtractFileName(GetCompiler) = '#039'fpc'#039' then'#010+
|
|
|
+ ' Args.Add('#039'-P'#039'+CPUToString(Defaults.CPU));'#010+
|
|
|
+ #010+
|
|
|
+ ' // Compile mode'#010+
|
|
|
+ ' If ATarget.Mode<>cmFPC then'#010+
|
|
|
+ ' Args.Add('#039'-M'#039'+ModeToString(ATarget.Mode))'#010+
|
|
|
+ ' else If Defaults.Mode<>cmFP','C then'#010+
|
|
|
+ ' Args.Add('#039'-M'#039'+ModeToString(Defaults.Mode));'#010+
|
|
|
+ ' // Output file paths'#010+
|
|
|
+ ' If ATarget.TargetType in ProgramTargets then'#010+
|
|
|
+ ' Args.Add('#039'-FE'#039'+AddPathPrefix(APackage,APackage.GetBinOutpu'+
|
|
|
+ 'tDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' Args.Add('#039'-FU'#039'+Ad','dPathPrefix(APackage,APackage.GetUnitsOut'+
|
|
|
+ 'putDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' // Object Path'#010+
|
|
|
+ ' L:=TUnsortedDuplicatesStringList.Create;'#010+
|
|
|
+ ' L.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,APackage.ObjectPath,Defaults.CPU,D'+
|
|
|
+ 'efault','s.OS);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,ATarget.ObjectPath,Defaults.CPU,De'+
|
|
|
+ 'faults.OS);'#010+
|
|
|
+ ' for i:=0 to L.Count-1 do'#010+
|
|
|
+ ' Args.Add('#039'-Fo'#039'+AddPathPrefix(APackage,L[i]));'#010+
|
|
|
+ ' FreeAndNil(L);'#010+
|
|
|
+ ' // Unit Dirs'#010+
|
|
|
+ ' L:=TUnsortedDuplicatesStringList.Create;',#010+
|
|
|
+ ' L.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' AddDependencyUnitPaths(L,APackage);'#010+
|
|
|
+ ' AddDependencyPaths(L,depUnit,ATarget);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,APackage.UnitPath,Defaults.CPU,Def'+
|
|
|
+ 'aults.OS);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,ATarget.UnitPath',',Defaults.CPU,De'+
|
|
|
+ 'faults.OS);'#010+
|
|
|
+ ' for i:=0 to L.Count-1 do'#010+
|
|
|
+ ' Args.Add('#039'-Fu'#039'+AddPathPrefix(APackage,L[i]));'#010+
|
|
|
+ ' FreeAndNil(L);'#010+
|
|
|
+ ' // Include Path'#010+
|
|
|
+ ' L:=TUnsortedDuplicatesStringList.Create;'#010+
|
|
|
+ ' L.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' AddDependencyPaths(L,depIncl','ude,ATarget);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,APackage.IncludePath,Defaults.CPU,'+
|
|
|
+ 'Defaults.OS);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,ATarget.IncludePath,Defaults.CPU,D'+
|
|
|
+ 'efaults.OS);'#010+
|
|
|
+ ' for i:=0 to L.Count-1 do'#010+
|
|
|
+ ' Args.Add('#039'-Fi'#039'+AddPathPrefix','(APackage,L[i]));'#010+
|
|
|
+ ' FreeAndNil(L);'#010+
|
|
|
+ ' // Custom Options'#010+
|
|
|
+ ' If (Defaults.HaveOptions) then'#010+
|
|
|
+ ' Args.AddStrings(Defaults.Options);'#010+
|
|
|
+ #010+
|
|
|
+ ' APackage.ApplyPackageVariantToCompilerOptions(Args);'#010+
|
|
|
+ #010+
|
|
|
+ ' If (APackage.HaveOptions) then'#010+
|
|
|
+ ' Args.AddStrings(APa','ckage.Options);'#010+
|
|
|
+ ' If (ATarget.HaveOptions) then'#010+
|
|
|
+ ' Args.AddStrings(ATarget.Options);'#010+
|
|
|
+ #010+
|
|
|
+ ' {$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' // Force the compiler-output to be easy parseable'#010+
|
|
|
+ ' if not Verbose then'#010+
|
|
|
+ ' args.Add('#039'-viq'#039');'#010+
|
|
|
+ ' {$endif}'#010+
|
|
|
+ #010+
|
|
|
+ ' // Convert to s','tring'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' for i:=0 to Args.Count-1 do'#010+
|
|
|
+ ' Result:=Result+'#039' '#039'+maybequoted(Args[i]);'#010+
|
|
|
+ ' Delete(result,1,1);'#010+
|
|
|
+ #010+
|
|
|
+ ' if Defaults.UseEnvironment and assigned(Env) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' env.Values['#039'FPCEXTCMD'#039'] := Result;'#010+
|
|
|
+ ' result := '#039'!F','PCEXTCMD'#039';'#010+
|
|
|
' // Make sure that this process'#039' environment variables are pa'+
|
|
|
- 'ssed to the'#013#010+
|
|
|
- ' // compiler'#039's environment'#013#010+
|
|
|
- ' for i := 0 to GetEnvironmentVariableCount-1 do'#013,#010+
|
|
|
- ' env.Add(GetEnvironmentString(i));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Add Filename to compile'#013#010+
|
|
|
- ' result := result + '#039' '#039' + ATarget.TargetSourceFileName;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Args.Free;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.GetCompiler : String;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin',#013#010+
|
|
|
- ' // Cache in FCompiler for speed.'#013#010+
|
|
|
- ' If (FCompiler='#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FCompiler:=Defaults.Compiler;'#013#010+
|
|
|
- ' If (ExtractFilePath(FCompiler)='#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' S:=ExeSearch(FCompiler,GetEnvironmentVariable('#039'PATH'#039'));'#013+
|
|
|
- #010+
|
|
|
- ' If ','(S<>'#039#039') then'#013#010+
|
|
|
- ' FCompiler:=S;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Result:=FCompiler;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CreateOutputDir(APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' D : String;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' //create a units directory'#013#010+
|
|
|
- ' D:=APackage.G','etUnitsOutputDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' If not SysDirectoryExists(D) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#013#010+
|
|
|
- ' CmdCreateDir(D);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //also create a bin directory for programtargets'#013#010+
|
|
|
- ' For i := 0',' to Pred(APackage.Targets.Count) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if APackage.Targets.TargetItems[i].TargetType in (ProgramTargets'+
|
|
|
- '-[ttExampleProgram]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' If n','ot SysDirectoryExists(D) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#013#010+
|
|
|
- ' CmdCreateDir(D);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' //do not continue loop, directory is made anyway'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.DependencyOK(ADependency : TDependency) : Boolea'+
|
|
|
- 'n;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'ssed to the'#010+
|
|
|
+ ' // compiler'#039's environment'#010+
|
|
|
+ ' for i := 0 to GetEnvironmentVariableCount-1 do'#010+
|
|
|
+ ' env.Add(GetEnvironmentString(i));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Add Filen','ame to compile'#010+
|
|
|
+ ' result := result + '#039' '#039' + AddPathPrefix(APackage,ATarget.Targ'+
|
|
|
+ 'etSourceFileName);'#010+
|
|
|
+ #010+
|
|
|
+ ' Args.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.GetCompiler : String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Cache in FCompiler for speed.'#010+
|
|
|
+ ' If (FCompiler='#039#039') ','then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FCompiler:=Defaults.Compiler;'#010+
|
|
|
+ ' If (ExtractFilePath(FCompiler)='#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' S:=ExeSearch(FCompiler,GetEnvironmentVariable('#039'PATH'#039'));'#010+
|
|
|
+ ' If (S<>'#039#039') then'#010+
|
|
|
+ ' FCompiler:=S;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result',':=FCompiler;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CreateOutputDir(APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' D : String;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' //create a units directory'#010+
|
|
|
+ ' D:=AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,De'+
|
|
|
+ 'faults.OS));'#010+
|
|
|
+ ' If not S','ysDirectoryExists(D) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#010+
|
|
|
+ ' CmdCreateDir(D);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' //also create a bin directory for programtargets'#010+
|
|
|
+ ' For i := 0 to Pred(APackage.Targets.Count) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if APackag','e.Targets.TargetItems[i].TargetType in (ProgramTarge'+
|
|
|
+ 'ts-[ttExampleProgram]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=AddPathPrefix(APackage,APackage.GetBinOutputDir(Defaults.'+
|
|
|
+ 'CPU,Defaults.OS));'#010+
|
|
|
+ ' If not SysDirectoryExists(D) then'#010+
|
|
|
+ ' b','egin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#010+
|
|
|
+ ' CmdCreateDir(D);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' //do not continue loop, directory is made anyway'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.Depend','encyOK(ADependency : TDependency) : Bool'+
|
|
|
+ 'ean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
' Result:=(Defaults.CPU in ADependency.CPUs) and (Defaults.OS in ADepe'+
|
|
|
- 'ndency.OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.TargetOK(ATarge','t : TTarget) : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(Defaults.CPU in ATarget.CPUs) and (Defaults.OS in ATarget.O'+
|
|
|
- 'Ses);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.PackageOK(APackage : TPackage) : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(Defaults.CPU in APackage.CPUs) and (De','faults.OS in APacka'+
|
|
|
- 'ge.OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoBeforeCompile(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caBeforeCompile);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeCompile) then'#013#010+
|
|
|
- ' APackage.BeforeCompile(APacka','ge);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeCompileProc) then'#013#010+
|
|
|
- ' APackage.BeforeCompileProc(APackage);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoAfterCompile(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(APackage.AfterCompile) then'#013#010+
|
|
|
- ' APackage.AfterCompi','le(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.AfterCompileProc) then'#013#010+
|
|
|
- ' APackage.AfterCompileProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterCompile);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'ndency.OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.TargetOK(ATarget: TTarget; ACPU: TCPU; AOS: TOS)'+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Default','s.SkipCrossPrograms and'#010+
|
|
|
+ ' (ATarget.TargetType in ProgramTargets) and'#010+
|
|
|
+ ' IsDifferentFromBuild(ACPU, AOS) then'#010+
|
|
|
+ ' result := False'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=(ACPU in ATarget.CPUs) and (AOS in ATarget.OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.TargetIns','tallOK(ATarget: TTarget; ACPU: TCPU; '+
|
|
|
+ 'AOS: TOS): Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := TargetOK(ATarget, ACPU, AOS) and ATarget.Install;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.PackageOK(APackage : TPackage) : Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=(Defaults.CPU in APackage.CP','Us) and (Defaults.OS in APacka'+
|
|
|
+ 'ge.OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoBeforeCompile(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caBeforeCompile);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeCompile) then'#010+
|
|
|
+ ' APackage.BeforeCompile(APa','ckage);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeCompileProc) then'#010+
|
|
|
+ ' APackage.BeforeCompileProc(APackage);'#010+
|
|
|
+ ' // It could be that files that weren'#039't found before are availabl'+
|
|
|
+ 'e now.'#010+
|
|
|
+ ' ResolveFileNames(APackage,Defaults.CPU,Defaults.OS,false,true);'#010+
|
|
|
+ 'end;',#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoAfterCompile(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(APackage.AfterCompile) then'#010+
|
|
|
+ ' APackage.AfterCompile(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.AfterCompileProc) then'#010+
|
|
|
+ ' APackage.AfterCompileProc(APackage);'#010+
|
|
|
+ ' Exec','uteCommands(APackage.Commands,caAfterCompile);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuildEngine.NeedsCompile(APackage:TPackage;ATarget: TTarget)'+
|
|
|
- ': ','Boolean;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' OD,OFN : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Forced recompile?'#013#010+
|
|
|
- ' if FForceCompile then'#013#010+
|
|
|
- ' Result:=true;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // For now examples are not compiled at all'#013#010+
|
|
|
- ' if ATar','get.TargetType in [ttExampleUnit, ttExampleProgram] then'#013+
|
|
|
- #010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check output file'#013#010+
|
|
|
- ' if not result and TargetOK(ATarget) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if ATarget.TargetType in ProgramTargets then'#013#010+
|
|
|
- ' OD:=APackage.GetBinOutputDir(D','efaults.CPU,Defaults.OS)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' OD:=APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' If (OD<>'#039#039') then'#013#010+
|
|
|
- ' OD:=IncludeTrailingPathDelimiter(OD);'#013#010+
|
|
|
- ' OFN:=OD+ATarget.GetOutPutFileName(Defaults.OS);'#013#010+
|
|
|
- ' Res','ult:=Not FileExists(OFN);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgOutputNotYetAvailable,[OFN]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check main source'#013#010+
|
|
|
- ' If not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if FileExists(ATarget.TargetSourceFileName) then'#013#010+
|
|
|
- ' Res','ult:=FileNewer(ATarget.TargetSourceFileName,OFN)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check unit and include dependencies'#013#010+
|
|
|
- ' If not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ ' OD,OFN,TFN : String;'#010+
|
|
|
+ ' CompileReason: String;'#010+
|
|
|
+ 'begi','n'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Forced recompile?'#010+
|
|
|
+ ' if FForceCompile then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=true;'#010+
|
|
|
+ ' CompileReason:=SDbgForcedCompile;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // For now examples are not compiled at all'#010+
|
|
|
+ ' if ATarget.TargetType in [ttExampleUnit, ttExampl','eProgram] then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Files which should not be compiled on this target can not trigger'+
|
|
|
+ ' a compile.'#010+
|
|
|
+ ' if not TargetOK(ATarget, Defaults.CPU, Defaults.OS) then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Check output file'#010+
|
|
|
+ ' if not result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if',' ATarget.TargetType in ProgramTargets then'#010+
|
|
|
+ ' OD:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' OD:=APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' If (OD<>'#039#039') then'#010+
|
|
|
+ ' OD:=IncludeTrailingPathDel','imiter(OD);'#010+
|
|
|
+ ' OFN:=AddPathPrefix(APackage, OD+ATarget.GetOutPutFileName(Defaul'+
|
|
|
+ 'ts.OS));'#010+
|
|
|
+ ' Result:=Not FileExists(OFN);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' CompileReason:=SDbgOutputDoesNotExist;'#010+
|
|
|
+ ' Log(vlDebug,SDbgOutputNo','tYetAvailable,[OFN]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Check main source'#010+
|
|
|
+ ' If not Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' TFN := AddPathPrefix(APackage,ATarget.TargetSourceFileName);'#010+
|
|
|
+ ' if FileExists(TFN) then'#010+
|
|
|
+ ' Result:=FileNewer(TFN,OFN);'#010+
|
|
|
+ ' if',' Result then'#010+
|
|
|
+ ' CompileReason:=SDbgNewerSource;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Check unit and include dependencies'#010+
|
|
|
+ ' If not Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' ResolveDependencies(ATarget.Dependencies,ATarget.Collection as T'+
|
|
|
- 'Targets);'#013#010+
|
|
|
- ' I:=0;'#013#010+
|
|
|
- ' for',' i:=0 to ATarget.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=ATarget.Dependencies[i];'#013#010+
|
|
|
+ 'Targets);'#010+
|
|
|
+ ' I:=0;'#010+
|
|
|
+ ' for i:=','0 to ATarget.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=ATarget.Dependencies[i];'#010+
|
|
|
' if (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'+
|
|
|
- #013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' case D.DependencyType of'#013#010+
|
|
|
- ' ',' depUnit :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=TTarget(D.Target);'#013#010+
|
|
|
- ' If (T=Nil) then'#013#010+
|
|
|
+ #010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' case D.DependencyType of'#010+
|
|
|
+ ' depUnit',' :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=TTarget(D.Target);'#010+
|
|
|
+ ' If (T=Nil) then'#010+
|
|
|
' Error(SErrDepUnknownTarget,[D.Value, ATarget.Nam'+
|
|
|
- 'e, APackage.Name]);'#013#010+
|
|
|
- ' // If a de','pendent package is compiled we always '+
|
|
|
- 'need to recompile'#013#010+
|
|
|
+ 'e, APackage.Name]);'#010+
|
|
|
+ ' // If a dependent package',' is compiled we always '+
|
|
|
+ 'need to recompile'#010+
|
|
|
' Log(vldebug, SDbgDependencyOnUnit, [ATarget.Name,T'+
|
|
|
- '.Name]);'#013#010+
|
|
|
- ' Result:=(T.State=tsCompiled);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' ',' Log(vldebug, SDbgDependencyUnitRecompiled, [T.'+
|
|
|
- 'Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' depInclude :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if D.TargetFileName<>'#039#039' then'#013#010+
|
|
|
- ' Result:=FileNewer(D.TargetFi','leName,OFN)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' depPackage :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' log(vlWarning,SWarnTargetDependsOnPackage,[ATarget'+
|
|
|
- '.Name, APackage.Name, d.Value]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010,
|
|
|
- ' if result then'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgMustCompile,[ATarget.Name]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Compile(APackage: TPackage; ATarget: TTar','get)'+
|
|
|
- ';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- ' Env : TStrings;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(vlInfo,SInfoCompilingTarget,[ATarget.Name]);'#013#010+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- ' ExecuteCommands(ATarget.Commands,caBeforeCompile);'#013#010+
|
|
|
- ' If Assigned(ATarget.BeforeCompile) then'#013#010+
|
|
|
- ' ATarget.BeforeCompil','e(ATarget);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if APackage.BuildMode=bmBuildUnit then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FBUTarget.Dependencies.AddUnit(ATarget.Name).FTargetFil'+
|
|
|
- 'eName:=ATarget.TargetSourceFileName;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Defaults.UseEnvironment the','n'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Env := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' S:=GetCompilerCommand(APackage,ATarget,Env);'#013#010+
|
|
|
- ' ExecuteCommand(GetCompiler,S,Env);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' Env.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ',' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' S:=GetCompilerCommand(APackage,ATarget,Env);'#013#010+
|
|
|
- ' ExecuteCommand(GetCompiler,S,nil);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(ATarget.AfterCompile) then'#013#010+
|
|
|
- ' ATarget.AfterCompile(ATarget);'#013#010+
|
|
|
- ' ',' ExecuteCommands(ATarget.Commands,caAfterCompile);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CompileDependencies(APackage:TPackage; ATarget:'+
|
|
|
- ' TTarget);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Lo','g(vlDebug, Format(SDbgCompilingDependenciesOfTarget, [ATarget.Na'+
|
|
|
- 'me]));'#013#010+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- ' For I:=0 to ATarget.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=ATarget.Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=depPackage) then'#013#010+
|
|
|
- ' log(vlWa','rning,SWarnTargetDependsOnPackage,[ATarget.Name, APa'+
|
|
|
- 'ckage.Name, d.Value])'#013#010+
|
|
|
- ' else if (D.DependencyType=depUnit) and'#013#010+
|
|
|
- ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=TTarget(D.Target);'#013#010+
|
|
|
- ' ',' if Assigned(T) and (T<>ATarget) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if TargetOK(T) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ '.Name]);'#010+
|
|
|
+ ' Result:=(T.State=tsCompiled);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' Log(vldebug, SDbgDependencyUnitRecompiled, [T.'+
|
|
|
+ 'Name]);'#010+
|
|
|
+ ' CompileReason:=Format(SDbgDependencyRecompiled,['+
|
|
|
+ 'T.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' depInclude :'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' if D.TargetFileName<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' TFN:=AddPathPrefix(APackage,D.TargetFileName);'+
|
|
|
+ #010+
|
|
|
+ ' Result:=FileNewer(TFN,OFN);'#010+
|
|
|
+ ' if r','esult then'#010+
|
|
|
+ ' CompileReason:=Format(SDbgNewerInclude,[D.Ta'+
|
|
|
+ 'rgetFileName]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' depPackage :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlWarning,SWarnT','argetDependsOnPackage,[ATarg'+
|
|
|
+ 'et.Name, APackage.Name, d.Value]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgMustCo','mpile,[ATarget.Name, CompileReason]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Compile(APackage: TPackage; ATarget: TTarget);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ ' Env : TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCompilingTarget,[ATarget.Name]);'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' ExecuteCommands(A','Target.Commands,caBeforeCompile);'#010+
|
|
|
+ ' If Assigned(ATarget.BeforeCompile) then'#010+
|
|
|
+ ' ATarget.BeforeCompile(ATarget);'#010+
|
|
|
+ #010+
|
|
|
+ ' if (APackage.BuildMode=bmBuildUnit) and not (ATarget.TargetType in ['+
|
|
|
+ 'ttProgram,ttExampleProgram]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackag','e.FBUTarget.Dependencies.AddUnit(ATarget.Name).FTargetF'+
|
|
|
+ 'ileName:=ATarget.TargetSourceFileName;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Defaults.UseEnvironment then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Env := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' S:=Get','CompilerCommand(APackage,ATarget,Env);'#010+
|
|
|
+ ' ExecuteCommand(GetCompiler,S,Env);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' Env.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' S:=GetCompilerCommand(APackage,ATarget,Env);'#010+
|
|
|
+ ' ',' ExecuteCommand(GetCompiler,S,nil);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Assigned(ATarget.AfterCompile) then'#010+
|
|
|
+ ' ATarget.AfterCompile(ATarget);'#010+
|
|
|
+ ' ExecuteCommands(ATarget.Commands,caAfterCompile);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEn','gine.CompileDependencies(APackage:TPackage; ATarge'+
|
|
|
+ 't: TTarget);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgCompilingDependenciesOfTarget, [ATarget.Name'+
|
|
|
+ ']));'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' For I:=0 to ATarget.Dependen','cies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=ATarget.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) then'#010+
|
|
|
+ ' log(vlWarning,SWarnTargetDependsOnPackage,[ATarget.Name, APack'+
|
|
|
+ 'age.Name, d.Value])'#010+
|
|
|
+ ' else if (D.DependencyType=depUnit) and'#010+
|
|
|
+ ' ',' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=TTarget(D.Target);'#010+
|
|
|
+ ' if Assigned(T) and (T<>ATarget) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if TargetOK(T, Defaults.CPU, Defaults.OS) then'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
' // We don'#039't need to compile implicit units, they'+
|
|
|
- ' are only'#013#010+
|
|
|
- ' // used for dependency ','checking'#013#010+
|
|
|
- ' if (T.TargetType<>ttImplicitUnit) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' case T.State of'#013#010+
|
|
|
- ' tsNeutral :'#013#010+
|
|
|
- ' MaybeCompile(APackage,T);'#013#010+
|
|
|
- ' ',' tsConsidering :'#013#010+
|
|
|
+ ' are only'#010+
|
|
|
+ ' // used for dependency checking'#010+
|
|
|
+ ' if (T.TargetType<>ttImplicitUnit) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' case T.State of'#010+
|
|
|
+ ' tsNeutral :'#010+
|
|
|
+ ' MaybeCompile(APackage,T);'#010+
|
|
|
+ ' tsConsidering :'#010+
|
|
|
' Log(vlWarning,SWarnCircularTargetDependency,'+
|
|
|
- '[ATarget.Name,T.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlWar','ning, Format(SWarnDepUnitNotFound, [T.Name,'+
|
|
|
- ' MakeTargetString(Defaults.CPU,Defaults.OS)]));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ '[ATarget.Name,T','.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlWarning, Format(SWarnDepUnitNotFound, [T.Name, M'+
|
|
|
+ 'akeTargetString(Defaults.CPU,Defaults.OS)]));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' ',' else'#010+
|
|
|
' Error(SErrDepUnknownTarget,[D.Value, ATarget.Name, APackag'+
|
|
|
- 'e.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' LogUnInd','ent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'e.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.MaybeCompile(APackage: TPackage; ATarget: TTarg'+
|
|
|
- 'et);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if ATarget.State<>tsNeutral then'#013#010+
|
|
|
- ' Error(SErrInvalidState,[ATarget.Name]);'#013#010+
|
|
|
- ' Log(vlDebug, Format(SDbgConsideringTarget, [ATarget.Name])',');'#013#010+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- ' ATarget.FTargetState:=tsConsidering;'#013#010+
|
|
|
+ 'et);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if ATarget.State<>tsNeutra','l then'#010+
|
|
|
+ ' Error(SErrInvalidState,[ATarget.Name]);'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgConsideringTarget, [ATarget.Name]));'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' ATarget.FTargetState:=tsConsidering;'#010+
|
|
|
' ResolveDependencies(ATarget.Dependencies,ATarget.Collection as TTarg'+
|
|
|
- 'ets);'#013#010+
|
|
|
- ' CompileDependencies(APackage, ATarget);'#013#010+
|
|
|
- ' if NeedsCompile(APackage, ATarget) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Co','mpile(APackage,ATarget);'#013#010+
|
|
|
- ' ATarget.FTargetState:=tsCompiled;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' ATarget.FTargetState:=tsNoCompile;'#013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.NeedsCompile(APackage: TPackage): Boolean;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P',' : TPackage;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Forced recompile?'#013#010+
|
|
|
- ' if FForceCompile then'#013#010+
|
|
|
- ' Result:=true;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Recompile because of Package Dependencies?'#013#010+
|
|
|
- ' if not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' I:=0;'#013#010+
|
|
|
- ' For I:','=0 to APackage.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=APackage.Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=depPackage) and'#013#010+
|
|
|
+ 'ets)',';'#010+
|
|
|
+ ' CompileDependencies(APackage, ATarget);'#010+
|
|
|
+ ' if NeedsCompile(APackage, ATarget) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Compile(APackage,ATarget);'#010+
|
|
|
+ ' ATarget.FTargetState:=tsCompiled;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ATarget.FTargetState:=tsNoCompile;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'en','d;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.NeedsCompile(APackage: TPackage): Boolean;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' CompileReason: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Forced recompile?'#010+
|
|
|
+ ' if FForceCompile then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result',':=true;'#010+
|
|
|
+ ' CompileReason:=SDbgForcedCompile;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Recompile because of Package Dependencies?'#010+
|
|
|
+ ' if not Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' I:=0;'#010+
|
|
|
+ ' For I:=0 to APackage.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=APackage.De','pendencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) and'#010+
|
|
|
' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) the'+
|
|
|
- 'n'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' P:=TPackage(D.Target);'#013#010+
|
|
|
- ' if Assigned(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=(P.State=tsCompiled);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Recompile a Target of this package?'#013#010+
|
|
|
- ' If Not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' for i:=0 to APackage.T','argets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'n'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=TPackage(D.Target);'#010+
|
|
|
+ ' if Assigned(P) then'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' Result:=(P.State=tsCompiled);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' CompileReason:=Format(SDbgPackageDepRecompiled,[P'+
|
|
|
+ '.Name]);'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Recompile a Target of this package?'#010+
|
|
|
+ ' If Not Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' GPathPrefix := APackage.Directory;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' for i:=0 to APackage.Targets.Cou','nt-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
' Result:=NeedsCompile(APackage,APackage.Targets.TargetItems'+
|
|
|
- '[i]);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' ',' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgMustCompile,[APackage.Name]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.CheckExternalPackage(Const APackageName : String'+
|
|
|
- '):TPackage;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' S : String;'#013#010+
|
|
|
- ' F : String;',#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Already checked?'#013#010+
|
|
|
- ' I:=ExternalPackages.IndexOfName(APackageName);'#013#010+
|
|
|
- ' if I<>-1 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result:=ExternalPackages.PackageItems[I];'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Create new external package'#013#010+
|
|
|
- ' Result',':=ExternalPackages.AddPackage(APackageName);'#013#010+
|
|
|
- ' Result.FTargetState:=tsNotFound;'#013#010+
|
|
|
- ' // Load unit config'#013#010+
|
|
|
- ' S:=GetUnitDir(Result);'#013#010+
|
|
|
- ' if S<>'#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vldebug, SDbgExternalDependency, [APackageName,S]);'#013#010+
|
|
|
- ' // Load unit',' config if it exists'#013#010+
|
|
|
- ' F:=IncludeTrailingPathDelimiter(S)+UnitConfigFile;'#013#010+
|
|
|
- ' if FileExists(F) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlDebug, Format(SDbgLoading, [F]));'#013#010+
|
|
|
- ' Result.LoadUnitConfigFromFile(F);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ','// Check recursive implicit dependencies'#013#010+
|
|
|
- ' CompileDependencies(Result);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Error(SErrDependencyNotFound,[APackageName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CompileDependencies(APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;',#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to APackage.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=APackage.Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=depPackage) and'#013#010+
|
|
|
- ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D','.OSes) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=TPackage(D.Target);'#013#010+
|
|
|
- ' If Assigned(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ '[i]);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' CompileReason:=Format(SDbgTargetHasToBeCompiled,[APackag'+
|
|
|
+ 'e.','Targets.TargetItems[i].Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' GPathPrefix := '#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgMustCompile,[APackage.Name, CompileReason]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.Ch','eckExternalPackage(Const APackageName : Stri'+
|
|
|
+ 'ng):TPackage;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ ' F : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Already checked?'#010+
|
|
|
+ ' I:=ExternalPackages.IndexOfName(APackageName);'#010+
|
|
|
+ ' if I<>-1 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result:=ExternalPackages.P','ackageItems[I];'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Create new external package'#010+
|
|
|
+ ' Result:=ExternalPackages.AddPackage(APackageName);'#010+
|
|
|
+ ' Result.FTargetState:=tsNotFound;'#010+
|
|
|
+ ' // Load unit config'#010+
|
|
|
+ ' S:=GetUnitDir(Result);'#010+
|
|
|
+ ' if S<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log','(vldebug, SDbgExternalDependency, [APackageName,S]);'#010+
|
|
|
+ ' // Load unit config if it exists'#010+
|
|
|
+ ' F:=IncludeTrailingPathDelimiter(S)+UnitConfigFile;'#010+
|
|
|
+ ' if FileExists(F) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgLoading, [F]));',#010+
|
|
|
+ ' Result.LoadUnitConfigFromFile(F);'#010+
|
|
|
+ ' result.SetDefaultPackageVariant;'#010+
|
|
|
+ ' result.UnitDir:=result.UnitDir+Result.GetPackageUnitInstallD'+
|
|
|
+ 'ir(Defaults.CPU, Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Check recursive implicit depe','ndencies'#010+
|
|
|
+ ' CompileDependencies(Result);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Error(SErrDependencyNotFound,[APackageName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CompileDependencies(APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ 'begin'#010,
|
|
|
+ ' For I:=0 to APackage.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=APackage.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) and'#010+
|
|
|
+ ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=TPackage(D.','Target);'#010+
|
|
|
+ ' If Assigned(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' if (Defaults.CPU in P.CPUs) and (Defaults.OS in P.OSes) '+
|
|
|
- 'then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' case P.Stat','e of'#013#010+
|
|
|
- ' tsNeutral :'#013#010+
|
|
|
- ' MaybeCompile(P);'#013#010+
|
|
|
- ' tsConsidering :'#013#010+
|
|
|
+ 'then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' case P.State of'#010+
|
|
|
+ ' tsNeutral :'#010+
|
|
|
+ ' ',' MaybeCompile(P);'#010+
|
|
|
+ ' tsConsidering :'#010+
|
|
|
' Log(vlWarning,SWarnCircularPackageDependency,[AP'+
|
|
|
- 'ackage.Name,P.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ',' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'ackage.Name,P.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlWarning,S','WarnDependOnOtherPlatformPackage,[APa'+
|
|
|
+ 'ckage.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D.Target:=CheckExternalPackage(D.Value);'#010+
|
|
|
+ ' P:=TPackage(D.Tar','get);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (D.RequireChecksum<>$ffffffff) and'#010+
|
|
|
+ ' (P.InstalledChecksum<>$ffffffff) and'#010+
|
|
|
+ ' (P.InstalledChecksum<>D.RequireChecksum) then'#010+
|
|
|
+ ' Log(vlDebug,SDbgPackageChecksumChanged,[P.Name])',';'#010+
|
|
|
+ ' APackage.InheritPackageVariantsFromDependency(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.CheckDependencies(APackage: TPackage): TCheckDep'+
|
|
|
+ 'endencyResult;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' res','ult := cdAvailable;'#010+
|
|
|
+ ' For I:=0 to APackage.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=APackage.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) and'#010+
|
|
|
+ ' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' P:=TPackage(D.Target);'#010+
|
|
|
+ ' If Assigned(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (Defaults.CPU in P.CPUs) and (Defaults.OS in P.OSes) '+
|
|
|
+ 'then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' case P.State of'#010+
|
|
|
+ ' tsNeutral :'#010,
|
|
|
+ ' result := cdNotYetAvailable;'#010+
|
|
|
+ ' tsConsidering :'#010+
|
|
|
+ ' Log(vlWarning,SWarnCircularPackageDependency,[AP'+
|
|
|
+ 'ackage.Name,P.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else',#010+
|
|
|
' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APack'+
|
|
|
- 'age.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D.T','arget:=CheckExternalPackage(D.Value);'#013#010+
|
|
|
- ' P:=TPackage(D.Target);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if (D.RequireChecksum<>$ffffffff) and'#013#010+
|
|
|
- ' (P.InstalledChecksum<>$ffffffff) and'#013#010+
|
|
|
- ' (P.InstalledChecksum<>D.RequireC','hecksum) then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgPackageChecksumChanged,[P.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Compile(APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' Cmd: string;'#013#010+
|
|
|
- ' cmdOpts: string;'#013#010+
|
|
|
- ' ','sFPDocFormat: string;'#013#010+
|
|
|
- ' IFPDocFormat: TFPDocFormat;'#013#010+
|
|
|
- ' d: integer;'#013#010+
|
|
|
- ' UC: string;'#013#010+
|
|
|
- ' dep: TDependency;'#013#010+
|
|
|
- ' RegenerateUnitconfigFile: boolean;'#013#010+
|
|
|
- ' BUName: string;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure CompileBuildUnit;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' I: Integer;'#013#010+
|
|
|
- ' T: TTarget;'#013#010+
|
|
|
- ' ','L: TStrings;'#013#010+
|
|
|
- ' F: Text;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if (APackage.FBUTarget.Dependencies.Count>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'age.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D.Target:=CheckExternalPackage(D.Value);',#010+
|
|
|
+ ' P:=TPackage(D.Target);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (D.RequireChecksum<>$ffffffff) and'#010+
|
|
|
+ ' (P.InstalledChecksum<>$ffffffff) and'#010+
|
|
|
+ ' (P.InstalledChecksum<>D.RequireChecksum) then'#010+
|
|
|
+ ' Log(vlDebug,SDbg','PackageChecksumChanged,[P.Name]);'#010+
|
|
|
+ ' APackage.InheritPackageVariantsFromDependency(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Compile(APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' Cmd: string;'#010+
|
|
|
+ ' cmdOpts: strin','g;'#010+
|
|
|
+ ' sFPDocFormat: string;'#010+
|
|
|
+ ' IFPDocFormat: TFPDocFormat;'#010+
|
|
|
+ ' d: integer;'#010+
|
|
|
+ ' UC: string;'#010+
|
|
|
+ ' dep: TDependency;'#010+
|
|
|
+ ' RegenerateUnitconfigFile: boolean;'#010+
|
|
|
+ ' BUName: string;'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure CompileBuildUnit;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' I: Integer;'#010+
|
|
|
+ ' T: TTarget;'#010+
|
|
|
+ ' L: TStr','ings;'#010+
|
|
|
+ ' F: Text;'#010+
|
|
|
+ #010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (APackage.FBUTarget.Dependencies.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' Log(vldebug, Format(SDbgGenerateBuildUnit, [APackage.FBUTarget'+
|
|
|
- '.Name]));'#013#010+
|
|
|
- ' system.Assign(F,APackage.FBUTarget.FTargetSo','urceFileName);'#013+
|
|
|
+ '.Name]));'#010+
|
|
|
+ ' system.Assign(F,AddPathPrefix(APackage,APackage.FBUTarget.','FT'+
|
|
|
+ 'argetSourceFileName));'#010+
|
|
|
+ ' Rewrite(F);'#010+
|
|
|
+ ' writeln(F,'#039'unit '#039' + APackage.FBUTarget.Name +'#039';'#039+
|
|
|
+ ');'#010+
|
|
|
+ ' writeln(F,'#039'interface'#039');'#010+
|
|
|
+ ' writeln(F,'#039'uses'#039');'#010+
|
|
|
+ ' for i := 0 to APackage.FBUTarget.Dependencies.Count-1 do'#010+
|
|
|
+ ' be','gin'#010+
|
|
|
+ ' if i<>0 then'#010+
|
|
|
+ ' write(F,'#039','#039');'#010+
|
|
|
+ ' writeln(F,APackage.FBUTarget.Dependencies.Dependencies[i].'+
|
|
|
+ 'Value);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' writeln(F,'#039';'#039');'#010+
|
|
|
+ ' writeln(F,'#039'implementation'#039');'#010+
|
|
|
+ ' writeln(F,'#039'end.'#039');'#010+
|
|
|
+ #010+
|
|
|
+ ' ',' system.close(F);'#010+
|
|
|
+ #010+
|
|
|
+ ' APackage.FBuildMode:=bmOneByOne;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' Compile(APackage,APackage.FBUTarget);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' // Delete temporary build-unit files'#010+
|
|
|
+ ' L := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' ',' APackage.FBUTarget.GetCleanFiles(L,IncludeTrailingPathDe'+
|
|
|
+ 'limiter(AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU'+
|
|
|
+ ',Defaults.OS))),'#039#039',Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' L.Add(AddPathPrefix(APackage,APackage.FBUTarge','t.SourceFi'+
|
|
|
+ 'leName));'#010+
|
|
|
+ ' CmdDeleteFiles(L);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
#010+
|
|
|
- ' Rewrite(F);'#013#010+
|
|
|
- ' writeln(F,'#039'unit '#039' + APackage.FBUTarget.Name +'#039';'#039+
|
|
|
- ');'#013#010+
|
|
|
- ' writeln(F,'#039'interface'#039');'#013#010+
|
|
|
- ' writeln(F,'#039'uses'#039');'#013#010+
|
|
|
- ' for i := 0 to APackage.FBUTarget.Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013,#010+
|
|
|
- ' if i<>0 then'#013#010+
|
|
|
- ' write(F,'#039','#039');'#013#010+
|
|
|
- ' writeln(F,APackage.FBUTarget.Dependencies.Dependencies[i].'+
|
|
|
- 'Value);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' writeln(F,'#039';'#039');'#013#010+
|
|
|
- ' writeln(F,'#039'implementation'#039');'#013#010+
|
|
|
- ' writeln(F,'#039'end.'#039');',#013#010+
|
|
|
- #013#010+
|
|
|
- ' system.close(F);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' APackage.FBuildMode:=bmOneByOne;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' Compile(APackage,APackage.FBUTarget);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' // Delete temporary build-unit files'#013#010+
|
|
|
- ' L := TStringList.Create;'#013#010+
|
|
|
- ' ',' try'#013#010+
|
|
|
- ' APackage.FBUTarget.GetCleanFiles(L,IncludeTrailingPathDeli'+
|
|
|
- 'miter(APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS)),'#039#039',D'+
|
|
|
- 'efaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' L.Add(APackage.FBUTarget.SourceFileName);'#013#010+
|
|
|
- ' ','CmdDeleteFiles(L);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' For I:=0 to APackage.Targets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=APackage.Targets.TargetItems[i];'#013#010+
|
|
|
- ' if (T.TargetType = ttUnit',') and (TargetOK(T)) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' If Assigned(T.AfterCompile) then'#013#010+
|
|
|
- ' T.AfterCompile(T);'#013#010+
|
|
|
- ' ExecuteCommands(T.Commands,caAfterCompile);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure ProcessComp','ileTarget;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if TargetOK(T) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if T.State=tsNeutral then'#013#010+
|
|
|
- ' MaybeCompile(APackage,T);'#013#010+
|
|
|
- ' // If a target is compiled, re-generate the UnitConfigFile'#013+
|
|
|
- #010+
|
|
|
- ' if T.FTargetState<>tsNoCompile th','en'#013#010+
|
|
|
- ' RegenerateUnitconfigFile:= True;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not(Defaults.CPU in T.CPUs) then'#013#010+
|
|
|
- ' Log(vldebug, Format(SDbgSkippingTargetWrongCPU, [T.Name, CPU'+
|
|
|
- 'sToString(T.CPUs)]));'#013#010+
|
|
|
- ' if not(Defau','lts.OS in T.OSes) then'#013#010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.Targets.TargetItems[i];'#010+
|
|
|
+ ' if ','(T.TargetType = ttUnit) and (TargetOK(T, Defaults.CPU, De'+
|
|
|
+ 'faults.OS)) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If Assigned(T.AfterCompile) then'#010+
|
|
|
+ ' T.AfterCompile(T);'#010+
|
|
|
+ ' ExecuteCommands(T.Commands,caAfterCompile);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure ProcessCompileTarget;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if TargetOK(T, Defaults.CPU, Defaults.OS) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if T.State=tsNeutral then'#010+
|
|
|
+ ' MaybeCompile(APackage,T);'#010+
|
|
|
+ ' // If a target is compiled, re-generate ','the UnitConfigFile'#010+
|
|
|
+ ' if T.FTargetState<>tsNoCompile then'#010+
|
|
|
+ ' RegenerateUnitconfigFile:= True;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not(Defaults.CPU in T.CPUs) then'#010+
|
|
|
+ ' Log(vldebug, Format(SDbgSkippingTargetWrongCPU, [','T.Name, C'+
|
|
|
+ 'PUsToString(T.CPUs)]));'#010+
|
|
|
+ ' if not(Defaults.OS in T.OSes) then'#010+
|
|
|
' Log(vldebug, Format(SDbgSkippingTargetWrongOS, [T.Name, OSes'+
|
|
|
- 'ToString(T.OSes)]));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' cmdOpts := '#039#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' log(vlWarning,SWarnStartCompilingPackage,[APackage.Name, Defaults.Ta'+
|
|
|
- 'rget]',');'#013#010+
|
|
|
- #013#010+
|
|
|
- ' case Defaults.BuildMode of'#013#010+
|
|
|
- ' bmOneByOne: begin'#013#010+
|
|
|
- ' if bmOneByOne in APackage.SupportBuildModes then'#013+
|
|
|
- #010+
|
|
|
- ' APackage.FBuildMode:=bmOneByOne'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' raise excep','tion.create(SErrUnsupportedBuildmode'+
|
|
|
- ');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' bmBuildUnit: begin'#013#010+
|
|
|
- ' // When bmBuildUnit is supported by the package use'+
|
|
|
- ' a buildunit.'#013#010+
|
|
|
- ' // Unless there is only one target and bmOneByOne',' '+
|
|
|
- 'is also supported'#013#010+
|
|
|
- ' if (bmBuildUnit in APackage.SupportBuildModes) and'#013+
|
|
|
+ 'ToString(T.OSes)]));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' cmdOpts := '#039#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' log(vlWarning,SWarnStartComp','ilingPackage,[APackage.Name, Defaults.'+
|
|
|
+ 'Target]);'#010+
|
|
|
+ #010+
|
|
|
+ ' case Defaults.BuildMode of'#010+
|
|
|
+ ' bmOneByOne: begin'#010+
|
|
|
+ ' if (bmOneByOne in APackage.SupportBuildModes) then'#010+
|
|
|
+ ' APackage.FBuildMode:=bmBuildUnit'#010+
|
|
|
+ ' ',' else if bmBuildUnit in APackage.SupportBuildModes'+
|
|
|
+ ' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlInfo,SInfoFallbackBuildmodeBU);'#010+
|
|
|
+ ' APackage.FBuildMode:=bmBuildUnit;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' ',' else'#010+
|
|
|
+ ' raise exception.create(SErrUnsupportedBuildmode);'+
|
|
|
#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' bmBuildUnit: begin'#010+
|
|
|
+ ' // When bmBuildUnit is supported by the package use'+
|
|
|
+ ' a buildunit.'#010+
|
|
|
+ ' // Unles','s there is only one target and bmOneByOne'+
|
|
|
+ ' is also supported'#010+
|
|
|
+ ' if (bmBuildUnit in APackage.SupportBuildModes) and'#010+
|
|
|
' not ((APackage.Targets.Count=1) and (bmOneByOne '+
|
|
|
- 'in APackage.SupportBuildModes)) then'#013#010+
|
|
|
- ' APackage.FBuildMode:','=bmBuildUnit'#013#010+
|
|
|
+ 'in APackage.SupportBuildModes)) then'#010+
|
|
|
+ ' ',' APackage.FBuildMode:=bmBuildUnit'#010+
|
|
|
' else if bmOneByOne in APackage.SupportBuildModes th'+
|
|
|
- 'en'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' log(vlInfo,SInfoFallbackBuildmode);'#013#010+
|
|
|
- ' APackage.FBuildMode:=bmOneByOne'#013#010+
|
|
|
- ' ',' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'en'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlInfo,SInfoFallbackBuildmode);'#010+
|
|
|
+ ' APackag','e.FBuildMode:=bmOneByOne'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
' raise exception.create(SErrUnsupportedBuildmode);'+
|
|
|
- #013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' Create','OutputDir(APackage);'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'UNITSOUTPUTDIR'#039',APackage.GetUnitsO'+
|
|
|
- 'utputDir(Defaults.CPU,Defaults.OS));'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'BINOUTPUTDIR'#039',APackage.GetBinOutpu'+
|
|
|
- 'tDir(Defaults.CPU,Defaults.OS));'#013#010+
|
|
|
- ' DoBeforeCompile(AP','ackage);'#013#010+
|
|
|
- ' RegenerateUnitconfigFile:=False;'#013#010+
|
|
|
- ' if APackage.BuildMode=bmBuildUnit then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FBUTargets := TTargets.Create(TTarget);'#013#010+
|
|
|
- ' if Defaults.OS in AllLimit83fsOses then'#013#010+
|
|
|
- ' BUName := '#039'BUnit.p','p'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ #010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' GPathPrefix:=APackage.Directory;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' CreateOutputDir(APac','kage);'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'UNITSOUTPUTDIR'#039',AddPathPr'+
|
|
|
+ 'efix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'BINOUTPUTDIR'#039',AddPathPref'+
|
|
|
+ 'ix(APackage,APackage.GetBinOutputDir(De','faults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' DoBeforeCompile(APackage);'#010+
|
|
|
+ ' RegenerateUnitconfigFile:=False;'#010+
|
|
|
+ ' if APackage.BuildMode=bmBuildUnit then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.FBUTargets := TTargets.Create(TTarget);'#010+
|
|
|
+ ' if Defaults.OS in AllLimi','t83fsOses then'#010+
|
|
|
+ ' BUName := '#039'BUnit.pp'#039#010+
|
|
|
+ ' else'#010+
|
|
|
' BUName := '#039'BuildUnit_'#039'+StringReplace(APackage.Name,'#039+
|
|
|
- '-'#039','#039'_'#039',[rfReplaceAll])+'#039'.pp'#039';'#013#010+
|
|
|
- ' APackage.FBUTarget := APackage.FBUTargets.AddUnit(BUName);'#013+
|
|
|
- #010+
|
|
|
- ' APackage.FBUTarget.FTargetSourceFileName := APackage.','FBUTarg'+
|
|
|
- 'et.SourceFileName;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' For I:=0 to APackage.Targets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=APackage.Targets.TargetItems[i];'#013#010+
|
|
|
- ' case T.TargetType of'#013#010+
|
|
|
- ' ttUnit:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ProcessCompileTarget;'#013,#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ttProgram:'#013#010+
|
|
|
- ' begin // do nothing, are compiled later'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ttFPDoc:'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' for d := 0 to T.Dependencies.Count - 1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' dep := TDepen','dency(T.Dependencies[d]);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //add unit dependencies'#013#010+
|
|
|
- ' if dep.DependencyType = depUnit then'#013#010+
|
|
|
- ' cmdOpts := cmdOpts + '#039' --input='#039' + dep.Value;'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //check if a documentatio','n target is given'#013#010+
|
|
|
- ' cmdOpts := cmdOpts + '#039' --input='#039' + T.Directory + T'+
|
|
|
- '.Name + T.Extension + '#039' --descr='#039'+ T.XML;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vldebug, SDbgTargetIsNotAUnitOrProgram,[T.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' en','d;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if APackage.BuildMode=bmBuildUnit then'#013#010+
|
|
|
- ' CompileBuildUnit;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' FreeAndNil(APackage.FBUTarget);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' For I:=0 to APackage.Targets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' T:=APackage.Targets.TargetItems[i];'#013#010+
|
|
|
- ' if T.TargetTy','pe=ttProgram then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ProcessCompileTarget;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if RegenerateUnitconfigFile then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' UC:=IncludeTrailingPathDelimiter(APackage.GetUnitsOutputDir(De'+
|
|
|
- 'faults.CPU,Default','s.OS))+UnitConfigFile;'#013#010+
|
|
|
- ' Log(vlInfo, Format(SDbgGenerating, [UC]));'#013#010+
|
|
|
- ' APackage.SaveUnitConfigToFile(UC,Defaults.CPU,Defaults.OS);'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //compile documentation, because options were found'#013#010+
|
|
|
- ' if cmdOpts <> '#039#039' the','n'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' //append package name'#013#010+
|
|
|
- ' cmdOpts := cmdOpts + '#039' --package='#039' + APackage.Name;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' for IFPDocFormat:=Low(TFPDocFormat) to High(TFPDocFormat) do'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if IFPDocFormat in APackage.FPDocFormat then'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
- ' //prepend output format'#013#010+
|
|
|
- ' case IFPDocFormat of'#013#010+
|
|
|
+ '-'#039','#039'_'#039',[rfReplaceAll])+'#039'.pp'#039';'#010+
|
|
|
+ ' APackage.FBUTarget := APackage.FBUTargets.AddUnit(BUName);'#010+
|
|
|
+ ' APackage.FBUTa','rget.FTargetSourceFileName := APackage.FBUTarg'+
|
|
|
+ 'et.SourceFileName;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.Targets.TargetItems[i];'#010+
|
|
|
+ ' case T.TargetType of'#010+
|
|
|
+ ' ttUnit:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' ProcessCompileTarget;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ttProgram:'#010+
|
|
|
+ ' begin // do nothing, are compiled later'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ttFPDoc:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' for d := 0 to T.Dependencies.Count - 1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' dep := TDependency(T.Dependencies[d]);'#010+
|
|
|
+ #010+
|
|
|
+ ' //add unit dependencies'#010+
|
|
|
+ ' if dep.DependencyType = depUnit then'#010+
|
|
|
+ ' cmdOpts := cmdOpts + '#039' --input='#039' + AddPathPref'+
|
|
|
+ 'ix(APackage,dep.Value);'#010+
|
|
|
+ ' end;',#010+
|
|
|
+ #010+
|
|
|
+ ' //check if a documentation target is given'#010+
|
|
|
+ ' cmdOpts := cmdOpts + '#039' --input='#039' + AddPathPrefix(A'+
|
|
|
+ 'Package,T.Directory + T.Name + T.Extension) + '#039' --descr='#039'+ T.X'+
|
|
|
+ 'ML;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vldebug, SDbgT','argetIsNotAUnitOrProgram,[T.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if APackage.BuildMode=bmBuildUnit then'#010+
|
|
|
+ ' CompileBuildUnit;'#010+
|
|
|
+ #010+
|
|
|
+ ' FreeAndNil(APackage.FBUTarget);'#010+
|
|
|
+ #010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackag','e.Targets.TargetItems[i];'#010+
|
|
|
+ ' if T.TargetType=ttProgram then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ProcessCompileTarget;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if RegenerateUnitconfigFile then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' UC:=IncludeTrailingPathDelimiter(AddPathP','refix(APackage,APac'+
|
|
|
+ 'kage.GetUnitConfigOutputDir(Defaults.CPU,Defaults.OS)))+UnitConfigFile'+
|
|
|
+ ';'#010+
|
|
|
+ ' Log(vlInfo, Format(SDbgGenerating, [UC]));'#010+
|
|
|
+ ' APackage.SaveUnitConfigToFile(UC,Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' //compile docu','mentation, because options were found'#010+
|
|
|
+ ' if cmdOpts <> '#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' //append package name'#010+
|
|
|
+ ' cmdOpts := cmdOpts + '#039' --package='#039' + APackage.Name;'#010+
|
|
|
+ #010+
|
|
|
+ ' for IFPDocFormat:=Low(TFPDocFormat) to High(TFPDocFormat) do'#010+
|
|
|
+ ' begin'#010,
|
|
|
+ ' if IFPDocFormat in APackage.FPDocFormat then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' //prepend output format'#010+
|
|
|
+ ' case IFPDocFormat of'#010+
|
|
|
' ffHtml: sFPDocFormat := '#039'--format=html --output='#039+
|
|
|
- ' + Defaults.FPDocOutputDir;'#013#010+
|
|
|
- ' ffHtm: sFPDocFormat := '#039'--format=htm --output=',#039+
|
|
|
- ' + Defaults.FPDocOutputDir;'#013#010+
|
|
|
+ ' + AddPathPrefix(APackage,Defaults.FPDocOu','tputDir);'#010+
|
|
|
+ ' ffHtm: sFPDocFormat := '#039'--format=htm --output='#039+
|
|
|
+ ' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
|
|
|
' ffXHtml: sFPDocFormat := '#039'--format=xhtml --output='+
|
|
|
- #039' + Defaults.FPDocOutputDir;'#013#010+
|
|
|
+ #039' + AddPathPrefix(APackage,Defaults.FPDocOutput','Dir);'#010+
|
|
|
' ffLaTex: sFPDocFormat := '#039'--format=latex --output='+
|
|
|
- #039' + Defaults.FPDocOutputDir + APackage.Name + '#039'.','tex'#039';'#013#010+
|
|
|
+ #039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.Name '+
|
|
|
+ '+ '#039'.tex'#039';'#010+
|
|
|
' ffXMLStruct: sFPDocFormat := '#039'--format=xml-struct --ou'+
|
|
|
- 'tput='#039' + Defaults.FPDocOutputDir;'#013#010+
|
|
|
+ 'tput='#039' + AddPathPrefix(A','Package,Defaults.FPDocOutputDir);'#010+
|
|
|
' ffChm: sFPDocFormat := '#039'--format=chm --output='#039+
|
|
|
- ' + Defaults.FPDocOutputDir + APackage.Name + '#039'.chm'#039';'#013#010+
|
|
|
- ' end',';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //execute fpdoc'#013#010+
|
|
|
- ' Cmd:=ExeSearch('#039'fpdoc'#039',GetEnvironmentvariable('#039'P'+
|
|
|
- 'ATH'#039'));'#013#010+
|
|
|
- ' if Cmd = '#039#039' then Cmd := '#039'fpdoc'#039';'#013#010+
|
|
|
- ' ExecuteProcess(Cmd, sFPDocFormat + cmdOpts);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ',' DoAfterCompile(APackage);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
- ' if FProgressMax>0 then'#013#010+
|
|
|
+ ' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.Name + '#039+
|
|
|
+ '.chm'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' //execute fpdoc'#010+
|
|
|
+ ' Cmd:=ExeSear','ch('#039'fpdoc'#039',GetEnvironmentvariable('#039+
|
|
|
+ 'PATH'#039'));'#010+
|
|
|
+ ' if Cmd = '#039#039' then Cmd := '#039'fpdoc'#039';'#010+
|
|
|
+ ' ExecuteProcess(Cmd, sFPDocFormat + cmdOpts);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' DoAfterCompile(APackage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' GPathPrefix:='#039#039';'#010+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
+ ' if FProgressMax>0 then'#010+
|
|
|
' log(vlWarning,SWarnCompilingPackagecompleteProgress,[(FProgressCou'+
|
|
|
- 'nt)/FProgressM','ax * 100, APackage.Name])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vlWarning,SWarnCompilingPackagecomplete,[APackage.Name]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.MaybeCompile(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if APackage.State in [tsCompiled, tsNoCompile] then'#013#010+
|
|
|
- ' begi','n'#013#010+
|
|
|
- ' Log(vlInfo,SInfoPackageAlreadyProcessed,[APackage.Name]);'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if APackage.State<>tsNeutral then'#013#010+
|
|
|
- ' Error(SErrInvalidState,[APackage.Name]);'#013#010+
|
|
|
- ' Log(vlDebug,SDbgConsideringPackage,[APackage.Name]);'#013#010+
|
|
|
- ' LogInden','t;'#013#010+
|
|
|
- ' APackage.FTargetState:=tsConsidering;'#013#010+
|
|
|
- ' ResolveDependencies(APackage.Dependencies,(APackage.Collection as TP'+
|
|
|
- 'ackages));'#013#010+
|
|
|
- ' CompileDependencies(APackage);'#013#010+
|
|
|
- ' ResolveFileNames(APackage,Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' If NeedsCompile(APack','age) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Compile(APackage);'#013#010+
|
|
|
- ' APackage.FTargetState:=tsCompiled;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FTargetState:=tsNoCompile;'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'nt)/FProgressMax * 100, APackage.Name])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vlWarning,SWarnCompilingPackagecomplete,[APackage.Name]);'#010+
|
|
|
+ 'end;'#010,
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.MaybeCompile(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if ReadyToCompile(APackage) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Compile(APackage);'#010+
|
|
|
+ ' APackage.FTargetState:=tsCompiled;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.ReadyToCompile(APackage: TPa','ckage) : Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := False;'#010+
|
|
|
+ ' if APackage.State in [tsCompiled, tsNoCompile] then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoPackageAlreadyProcessed,[APackage.Name]);'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if APackage.State<>tsNeutral then'#010+
|
|
|
+ ' Error(SE','rrInvalidState,[APackage.Name]);'#010+
|
|
|
+ ' Log(vlDebug,SDbgConsideringPackage,[APackage.Name]);'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' if Defaults.ThreadsAmount=-1 then'#010+
|
|
|
+ ' APackage.FTargetState:=tsConsidering;'#010+
|
|
|
+ ' ResolveDependencies(APackage.Dependencies,(APackage.Collect','ion as '+
|
|
|
+ 'TPackages));'#010+
|
|
|
+ ' // When multiple threads are used, delay the compilation of the pack'+
|
|
|
+ 'age when'#010+
|
|
|
+ ' // there are unsolved dependencies. When no threads are used, compil'+
|
|
|
+ 'e all'#010+
|
|
|
+ ' // dependencies.'#010+
|
|
|
+ ' if Defaults.ThreadsAmount=-1 then'#010+
|
|
|
+ ' Compil','eDependencies(APackage)'#010+
|
|
|
+ ' else if CheckDependencies(APackage)=cdNotYetAvailable then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlInfo,'#039'Delaying package '#039'+apackage.name);'#010+
|
|
|
+ ' result := False;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' APackage.SetDefaultPackageVariant;'#010+
|
|
|
+ #010+
|
|
|
+ ' ResolveF','ileNames(APackage,Defaults.CPU,Defaults.OS,True,False);'#010+
|
|
|
+ ' If NeedsCompile(APackage) then'#010+
|
|
|
+ ' result := True'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.FTargetState:=tsNoCompile;'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuild','Engine.InstallPackageFiles(APAckage : TPackage; tt : '+
|
|
|
- 'TTargetType; Const Dest : String):Boolean;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' List : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- ' List:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' APackage.GetInstallFiles(List,[tt],Defaults.CPU, D','efaults.OS);'#013+
|
|
|
- #010+
|
|
|
- ' if (List.Count>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=True;'#013#010+
|
|
|
- ' CmdCopyFiles(List,Dest);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'TTargetTypes; Const Dest : String):Boolean;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' List : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' APackage.GetInstallFiles(List,tt,Defaults.CPU, Defaults.','OS);'#010+
|
|
|
+ ' if (List.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' CmdCopyFiles(List,Dest);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.InstallUnitConfigFile(APAckage: TPackage; const'+
|
|
|
- ' De','st: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' List : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' List:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' List.add(IncludeTrailingPathDelimiter(APackage.GetUnitsOutputDir(D'+
|
|
|
- 'efaults.CPU,Defaults.OS))+UnitConfigFile);'#013#010+
|
|
|
- ' CmdCopyFiles(List,Dest);'#013#010+
|
|
|
- ' Finally'#013#010,
|
|
|
- ' List.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ' Dest: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' ','List : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' List.add(IncludeTrailingPathDelimiter(APackage.GetUnitConfigOutput'+
|
|
|
+ 'Dir(Defaults.CPU,Defaults.OS))+UnitConfigFile);'#010+
|
|
|
+ ' CmdCopyFiles(List,Dest);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'e','nd;'#010+
|
|
|
+ #010+
|
|
|
'function TBuildEngine.InstallPackageSourceFiles(APAckage : TPackage; s'+
|
|
|
- 'tt : TSourceTypes; ttt : TTargetTypes; Const Dest : String): Boolean;'#013+
|
|
|
- #010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' List : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- ' List:=TStrin','gList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' APackage.GetInstallSourceFiles(List,stt,ttt);'#013#010+
|
|
|
- ' if (List.Count>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=True;'#013#010+
|
|
|
- ' CmdCopyFiles(List,Dest);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TB','uildEngine.DoBeforeInstall(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caBeforeInstall);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeInstall) then'#013#010+
|
|
|
- ' APackage.BeforeInstall(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeInstallProc) then',#013#010+
|
|
|
- ' APackage.BeforeInstallProc(APackage);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoAfterInstall(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(APackage.AfterInstall) then'#013#010+
|
|
|
- ' APackage.AfterInstall(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.AfterInstallPr','oc) then'#013#010+
|
|
|
- ' APackage.AfterInstallProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterInstall);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Install(APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' UC,D : String;'#013#010+
|
|
|
- ' B : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Apackage.State<>tsC','ompiled) then'#013#010+
|
|
|
- ' MaybeCompile(APackage);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' Log(vlInfo,SInfoInstallingPackage,[APackage.Name]);'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' DoBeforeInstall(APackage);'#013#010+
|
|
|
- ' // units'#013#010+
|
|
|
- ' B:=fals','e;'#013#010+
|
|
|
- ' Dictionary.AddVariable('#039'PackageName'#039',APackage.Name);'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.UnitInstallDir);'#013#010+
|
|
|
- ' if InstallPackageFiles(APAckage,ttUnit,D) then'#013#010+
|
|
|
- ' B:=true;'#013#010+
|
|
|
- ' if InstallPackageFiles(APAckage,ttImplicitU','nit,D) then'#013#010+
|
|
|
- ' B:=true;'#013#010+
|
|
|
- ' // By default do not install the examples. Maybe add an option for'+
|
|
|
- ' this later'#013#010+
|
|
|
- ' //if InstallPackageFiles(APAckage,ttExampleUnit,D) then'#013#010+
|
|
|
- ' // B:=true;'#013#010+
|
|
|
- ' // Unit (dependency) configuration if there w','ere units installed'+
|
|
|
- #013#010+
|
|
|
- ' if B then'#013#010+
|
|
|
- ' InstallUnitConfigFile(APackage,D);'#013#010+
|
|
|
- ' // Programs'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.BinInstallDir);'#013#010+
|
|
|
- ' InstallPackageFiles(APAckage,ttProgram,D);'#013#010+
|
|
|
- ' //InstallPackageFiles(APAckage,','ttExampleProgram,D);'#013#010+
|
|
|
- ' // Documentation'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.DocInstallDir)+'#039'fpc-'#039+
|
|
|
- '+APackage.FileName+PathDelim;'#013#010+
|
|
|
- ' InstallPackageSourceFiles(APackage,[stDoc],[],D);'#013#010+
|
|
|
- ' // Examples'#013#010+
|
|
|
- ' if Defaults.InstallExam','ples then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.ExamplesInstallDir)+'#039+
|
|
|
- 'fpc-'#039'+APackage.FileName+PathDelim+'#039'examples'#039'+PathDelim;'#013+
|
|
|
+ 'tt : TSourceTypes; ttt : TTargetTypes; Const Dest : String): Boolean;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' List : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' APackage','.GetInstallSourceFiles(List,stt,ttt);'#010+
|
|
|
+ ' if (List.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' CmdCopyFiles(List,Dest);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoBeforeInstall(APackage: TPackage)',';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caBeforeInstall);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeInstall) then'#010+
|
|
|
+ ' APackage.BeforeInstall(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeInstallProc) then'#010+
|
|
|
+ ' APackage.BeforeInstallProc(APackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
#010+
|
|
|
+ 'p','rocedure TBuildEngine.DoAfterInstall(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(APackage.AfterInstall) then'#010+
|
|
|
+ ' APackage.AfterInstall(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.AfterInstallProc) then'#010+
|
|
|
+ ' APackage.AfterInstallProc(APackage);'#010+
|
|
|
+ ' ExecuteC','ommands(APackage.Commands,caAfterInstall);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Install(APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' UC,D : String;'#010+
|
|
|
+ ' B : Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Apackage.State<>tsCompiled) then'#010+
|
|
|
+ ' MaybeCompile(APackage);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' Log(vlCommand,SInfo','InstallingPackage,[APackage.Name]);'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' EnterDir(APackage.Directory);'#010+
|
|
|
+ ' DoBeforeInstall(APackage);'#010+
|
|
|
+ ' // units'#010+
|
|
|
+ ' B:=false;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'PackageName'#039',APackage.Name);'+
|
|
|
+ #010+
|
|
|
+ ' Global','Dictionary.AddVariable('#039'unitinstalldir'#039',Defaults.U'+
|
|
|
+ 'nitInstallDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'packageunitinstalldir'#039',APack'+
|
|
|
+ 'age.GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS));'#010+
|
|
|
+ #010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.BaseInsta','llDir);'#010+
|
|
|
+ ' // This is to install the TPackage.Installfiles, which are not rel'+
|
|
|
+ 'ated to any'#010+
|
|
|
+ ' // target'#010+
|
|
|
+ ' if InstallPackageFiles(APackage,[],D) then'#010+
|
|
|
+ ' B:=true;'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.UnitInstallDir)+APackage.'+
|
|
|
+ 'GetP','ackageUnitInstallDir(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' if InstallPackageFiles(APackage,[ttUnit, ttImplicitUnit],D) then'#010+
|
|
|
+ ' B:=true;'#010+
|
|
|
+ ' // By default do not install the examples. Maybe add an option for'+
|
|
|
+ ' this later'#010+
|
|
|
+ ' //if InstallPackageFil','es(APAckage,ttExampleUnit,D) then'#010+
|
|
|
+ ' // B:=true;'#010+
|
|
|
+ ' // Unit (dependency) configuration if there were units installed'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.UnitInstallDir);'#010+
|
|
|
+ ' if B then'#010+
|
|
|
+ ' InstallUnitConfigFile(APackage,D);'#010+
|
|
|
+ ' ',' // Programs'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.BinInstallDir);'#010+
|
|
|
+ ' InstallPackageFiles(APAckage,[ttProgram],D);'#010+
|
|
|
+ ' //InstallPackageFiles(APAckage,ttExampleProgram,D);'#010+
|
|
|
+ ' // Documentation'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defa','ults.DocInstallDir)+'#039'fpc'+
|
|
|
+ '-'#039'+APackage.FileName+PathDelim;'#010+
|
|
|
+ ' InstallPackageSourceFiles(APackage,[stDoc],[],D);'#010+
|
|
|
+ ' // Examples'#010+
|
|
|
+ ' if Defaults.InstallExamples then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.ExamplesInstallD','ir)'+
|
|
|
+ '+'#039'fpc-'#039'+APackage.FileName+PathDelim+'#039'examples'#039'+PathDel'+
|
|
|
+ 'im;'#010+
|
|
|
' InstallPackageSourceFiles(APackage,[stExample],[ttExampleProgr'+
|
|
|
- 'am,ttExampleUnit],D',');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Done.'#013#010+
|
|
|
- ' APackage.FTargetState:=tsInstalled;'#013#010+
|
|
|
- ' DoAfterInstall(APackage);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoBeforeArchive(APackage: T','Package);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caBeforeArchive);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeArchive) then'#013#010+
|
|
|
- ' APackage.BeforeArchive(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeArchiveProc) then'#013#010+
|
|
|
- ' APackage.BeforeArchiveProc(APack','age);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoAfterArchive(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(APackage.AfterArchive) then'#013#010+
|
|
|
- ' APackage.AfterArchive(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.AfterArchiveProc) then'#013#010+
|
|
|
- ' APackage.AfterArchivePro','c(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterArchive);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Archive(APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' L : TStringList;'#013#010+
|
|
|
- ' A : String;'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- ' ICPU : TCPU;'#013#010+
|
|
|
- ' IOS : TOS;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' A:=FStartDir+ ','APackage.FileName + ZipExt;'#013#010+
|
|
|
- ' Log(vlInfo,SInfoArchivingPackage,[APackage.Name,A]);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' DoBeforeArchive(Apackage);'#013#010+
|
|
|
- ' L:=TStringList.Create;'#013#010+
|
|
|
- ' L.Sorted:','=true;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' // Add fpmake.pp & manifest.xml always'#013#010+
|
|
|
- ' L.Add(FPMakePPFile);'#013#010+
|
|
|
- ' L.Add(ManifestFile);'#013#010+
|
|
|
- ' //get all files from all targets'#013#010+
|
|
|
- ' for ICPU:=Low(TCPU) to high(TCPU) do'#013#010+
|
|
|
- ' ',' for IOS:=Low(TOS) to high(TOS) do'#013#010+
|
|
|
- ' if OSCPUSupported[IOS,ICPU] then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ResolveFileNames(APackage,ICPU,IOS,false);'#013#010+
|
|
|
- ' APackage.GetArchiveFiles(L, ICPU, IOS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' //fr','om sources'#013#010+
|
|
|
- ' APackage.GetArchiveSourceFiles(L);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //show all files'#013#010+
|
|
|
- ' for i := 0 to L.Count-1 do'#013#010+
|
|
|
- ' Log(vlDebug, Format(SDbgArchivingFile, [L[i]]));'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' if not Assigned(ArchiveFilesProc) ','then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FZipFile := TZipper.Create;'#013#010+
|
|
|
- ' FZipFile.ZipFiles(A, L);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' CmdArchiveFiles(L,A);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' ','if not Assigned(ArchiveFilesProc) then'#013#010+
|
|
|
- ' FreeAndNil(FZipFile);'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' DoAfterArchive(Apackage);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBui','ldEngine.DoBeforeClean(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caBeforeClean);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeClean) then'#013#010+
|
|
|
- ' APackage.BeforeClean(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeCleanProc) then'#013#010+
|
|
|
- ' APacka','ge.BeforeCleanProc(APackage);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.DoAfterClean(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(APackage.AfterClean) then'#013#010+
|
|
|
- ' APackage.AfterClean(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.AfterInstallProc) then'#013#010+
|
|
|
- ' APacka','ge.AfterCleanProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterClean);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'am,ttExampleUnit],D);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Done.'#010+
|
|
|
+ ' APackage.FTargetState:=tsInstalled;'#010+
|
|
|
+ ' DoAfterInstall(APac','kage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' EnterDir('#039#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoBeforeArchive(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caBeforeArchive);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeArc','hive) then'#010+
|
|
|
+ ' APackage.BeforeArchive(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeArchiveProc) then'#010+
|
|
|
+ ' APackage.BeforeArchiveProc(APackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoAfterArchive(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(APackage.AfterAr','chive) then'#010+
|
|
|
+ ' APackage.AfterArchive(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.AfterArchiveProc) then'#010+
|
|
|
+ ' APackage.AfterArchiveProc(APackage);'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caAfterArchive);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Archive(APackage: TPa','ckage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TStringList;'#010+
|
|
|
+ ' A : String;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' ICPU : TCPU;'#010+
|
|
|
+ ' IOS : TOS;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' A:=FStartDir+ APackage.FileName + ZipExt;'#010+
|
|
|
+ ' Log(vlInfo,SInfoArchivingPackage,[APackage.Name,A]);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' ',' EnterDir(APackage.Directory);'#010+
|
|
|
+ ' DoBeforeArchive(Apackage);'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' L.Sorted:=true;'#010+
|
|
|
+ ' L.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' // Add fpmake.pp & manifest.xml always'#010+
|
|
|
+ ' L.Add(FPMakePPFile);'#010+
|
|
|
+ ' L.Add(ManifestF','ile);'#010+
|
|
|
+ ' //get all files from all targets'#010+
|
|
|
+ ' for ICPU:=Low(TCPU) to high(TCPU) do'#010+
|
|
|
+ ' for IOS:=Low(TOS) to high(TOS) do'#010+
|
|
|
+ ' if OSCPUSupported[IOS,ICPU] then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ResolveFileNames(APackage,ICPU,IOS,','false);'#010+
|
|
|
+ ' APackage.GetArchiveFiles(L, ICPU, IOS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' //from sources'#010+
|
|
|
+ ' APackage.GetArchiveSourceFiles(L);'#010+
|
|
|
+ #010+
|
|
|
+ ' //show all files'#010+
|
|
|
+ ' for i := 0 to L.Count-1 do'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgArchivingF','ile, [L[i]]));'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' if not Assigned(ArchiveFilesProc) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FZipFile := TZipper.Create;'#010+
|
|
|
+ ' FZipFile.ZipFiles(A, L);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' CmdArchiveF','iles(L,A);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' if not Assigned(ArchiveFilesProc) then'#010+
|
|
|
+ ' FreeAndNil(FZipFile);'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' DoAfterArchive(Apackage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' If (APackage.Directory<>',#039#039') then'#010+
|
|
|
+ ' EnterDir('#039#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoBeforeClean(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caBeforeClean);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeClean) then'#010+
|
|
|
+ ' APackage.BeforeClean(APackage);'#010+
|
|
|
+ ' If',' Assigned(APackage.BeforeCleanProc) then'#010+
|
|
|
+ ' APackage.BeforeCleanProc(APackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoAfterClean(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(APackage.AfterClean) then'#010+
|
|
|
+ ' APackage.AfterClean(APackage);'#010+
|
|
|
+ ' If Assigned(','APackage.AfterInstallProc) then'#010+
|
|
|
+ ' APackage.AfterCleanProc(APackage);'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caAfterClean);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.Clean(APackage: TPackage; AllTargets: boolean);'+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- '// ACPU: TCpu;'#013#010+
|
|
|
- '// AOS: TOS;'#013#010+
|
|
|
- ' DirectoryList : TStringList;'#013#010+
|
|
|
- 'begin'#013#010,
|
|
|
- ' Log(vlInfo,SInfoCleaningPackage,[APackage.Name]);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir(APackage.Directory);'#013#010+
|
|
|
- ' DoBeforeClean(Apackage);'#013#010+
|
|
|
- ' if AllTargets then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Remove the unit-directory c','ompletely. This is safer in ca'+
|
|
|
- 'se of files'#013#010+
|
|
|
- ' // being renamed and such. See also bug 19655'#013#010+
|
|
|
- ' DirectoryList := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' DirectoryList.Add(ExtractFileDir(APackage.GetUnitsOutputDir('+
|
|
|
- 'Defaults.CPU,','Defaults.OS)));'#013#010+
|
|
|
- ' CmdRemoveTrees(DirectoryList);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' DirectoryList.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- '{ for ACPU:=low(TCpu) to high(TCpu) do'#013#010+
|
|
|
- ' for AOS:=low(TOS) to high(TOS) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' if FileExists(APackage.GetUnitsOutputDir(ACPU,AOS)) or'+
|
|
|
- #013#010+
|
|
|
- ' FileExists(APackage.GetBinOutputDir(ACPU,AOS)) then'#013+
|
|
|
- #010+
|
|
|
- ' Clean(APackage,ACPU,AOS);'#013#010+
|
|
|
- ' end;}'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Clean(APackage, Def','aults.CPU, Defaults.OS);'#013#010+
|
|
|
- ' DoAfterClean(Apackage);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' If (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' EnterDir('#039#039');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' ACPU: TCpu;'#010+
|
|
|
+ ' AOS: TOS;'#010+
|
|
|
+ ' Director','yList : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCleaningPackage,[APackage.Name]);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' EnterDir(APackage.Directory);'#010+
|
|
|
+ ' DoBeforeClean(Apackage);'#010+
|
|
|
+ ' if AllTargets then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Remove ','the unit-and bin-directories completely. This is s'+
|
|
|
+ 'afer in case of files'#010+
|
|
|
+ ' // being renamed and such. See also bug 19655'#010+
|
|
|
+ ' DirectoryList := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' for ACPU:=low(TCpu) to high(TCpu) do'#010+
|
|
|
+ ' ',' for AOS:=low(TOS) to high(TOS) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' DirectoryList.Add(ExtractFileDir(APackage.GetUnitsOutp'+
|
|
|
+ 'utDir(ACPU,AOS)));'#010+
|
|
|
+ ' DirectoryList.Add(ExtractFileDir(APackage.GetBinOutput'+
|
|
|
+ 'Dir(ACPU,AOS)));'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' CmdRemoveTrees(DirectoryList);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' DirectoryList.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{ for ACPU:=low(TCpu) to high(TCpu) do'#010+
|
|
|
+ ' for AOS:=low(TOS) to high(TOS) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if File','Exists(APackage.GetUnitsOutputDir(ACPU,AOS)) or'+
|
|
|
+ #010+
|
|
|
+ ' FileExists(APackage.GetBinOutputDir(ACPU,AOS)) then'#010+
|
|
|
+ ' Clean(APackage,ACPU,AOS);'#010+
|
|
|
+ ' end;}'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Clean(APackage, Defaults.CPU, Defaults','.OS);'#010+
|
|
|
+ ' DoAfterClean(Apackage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' EnterDir('#039#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.Clean(APackage: TPackage; ACPU: TCPU; AOS: TOS)'+
|
|
|
- ';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' List : TStringList;',#013#010+
|
|
|
- ' DirectoryList : TStringList;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' List:=TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' List : TStringList;'#010+
|
|
|
+ ' DirectoryList : TStringLis','t;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
' List.Add(APackage.GetUnitsOutputDir(ACPU,AOS) + PathDelim + UnitCo'+
|
|
|
- 'nfigFile);'#013#010+
|
|
|
- ' APackage.GetCleanFiles(List,ACPU,AOS);'#013#010+
|
|
|
- ' if (List.Count>0) then'#013#010+
|
|
|
- ' beg','in'#013#010+
|
|
|
- ' CmdDeleteFiles(List);'#013#010+
|
|
|
- ' DirectoryList := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' GetDirectoriesFromFilelist(List,DirectoryList);'#013#010+
|
|
|
- ' CmdRemoveDirs(DirectoryList);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DirectoryList.Clear;'#013#010+
|
|
|
- ' if DirectoryExis','ts(APackage.GetBinOutputDir(ACPU,AOS)) then'#013+
|
|
|
- #010+
|
|
|
- ' DirectoryList.Add(APackage.GetBinOutputDir(ACPU,AOS));'#013#010+
|
|
|
- ' if DirectoryExists(APackage.GetUnitsOutputDir(ACPU,AOS)) then'#013+
|
|
|
- #010+
|
|
|
- ' DirectoryList.Add(APackage.GetUnitsOutputDir(ACP','U,AOS));'#013+
|
|
|
- #010+
|
|
|
- ' CmdRemoveDirs(DirectoryList);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DirectoryList.Clear;'#013#010+
|
|
|
+ 'nfigFile);'#010+
|
|
|
+ ' APackage.GetCleanFiles(List,ACPU,AOS);'#010+
|
|
|
+ ' if (List.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' CmdDeleteFiles(List);'#010+
|
|
|
+ ' ','DirectoryList := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' GetDirectoriesFromFilelist(List,DirectoryList);'#010+
|
|
|
+ ' CmdRemoveDirs(DirectoryList);'#010+
|
|
|
+ #010+
|
|
|
+ ' DirectoryList.Clear;'#010+
|
|
|
+ ' if DirectoryExists(APackage.GetBinOutputDir(ACPU,AOS)) then'#010+
|
|
|
+ ' ',' DirectoryList.Add(APackage.GetBinOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' if DirectoryExists(APackage.GetUnitsOutputDir(ACPU,AOS)) then'#010+
|
|
|
+ ' DirectoryList.Add(APackage.GetUnitsOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' CmdRemoveDirs(DirectoryList);'#010+
|
|
|
+ #010,
|
|
|
+ ' DirectoryList.Clear;'#010+
|
|
|
' if DirectoryExists(ExtractFileDir(APackage.GetBinOutputDir(ACP'+
|
|
|
- 'U,AOS))) then'#013#010+
|
|
|
+ 'U,AOS))) then'#010+
|
|
|
' DirectoryList.Add(ExtractFileDir(APackage.GetBinOutputDir(AC'+
|
|
|
- 'PU,A','OS)));'#013#010+
|
|
|
- ' if DirectoryExists(ExtractFileDir(APackage.GetUnitsOutputDir(A'+
|
|
|
- 'CPU,AOS))) then'#013#010+
|
|
|
+ 'PU,AOS)));'#010+
|
|
|
+ ' if DirectoryExists(ExtractFileDir(APac','kage.GetUnitsOutputDir'+
|
|
|
+ '(ACPU,AOS))) then'#010+
|
|
|
' DirectoryList.Add(ExtractFileDir(APackage.GetUnitsOutputDir('+
|
|
|
- 'ACPU,AOS)));'#013#010+
|
|
|
- ' CmdRemoveDirs(DirectoryList);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' ',' DirectoryList.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' List.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TBuildEngine.Manifest(APackage : TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' L : TStrings;'#013#010+
|
|
|
- ' PD,'#013#010+
|
|
|
- ' MF : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' L:=TStringList.Create;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' Log(v','lInfo, Format(SInfoManifestPackage,[APackage.Name]));'#013#010+
|
|
|
- ' PD:=APackage.Directory;'#013#010+
|
|
|
- ' if PD<>'#039#039' then'#013#010+
|
|
|
- ' PD:=IncludeTrailingPathDelimiter(PD);'#013#010+
|
|
|
- ' MF:=PD+ManifestFile;'#013#010+
|
|
|
- ' Log(vlDebug, Format(SDbgGenerating, [MF]));'#013#010+
|
|
|
- ' L.Add('#039'<?xml',' version="1.0"?>'#039');'#013#010+
|
|
|
- ' L.Add('#039'<packages>'#039');'#013#010+
|
|
|
- ' APackage.GetManifest(L);'#013#010+
|
|
|
- ' L.Add('#039'</packages>'#039');'#013#010+
|
|
|
- ' L.SaveToFile(MF);'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Compile(Packages: TPackages);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Intege','r;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeCompile) then'#013#010+
|
|
|
- ' BeforeCompile(Self);'#013#010+
|
|
|
- ' FProgressMax:=Packages.Count;'#013#010+
|
|
|
- ' FProgressCount:=0;'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If Packa','geOK(P) then'#013#010+
|
|
|
- ' MaybeCompile(P)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
- ' log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCount)'+
|
|
|
- '/FProgressMax * 100, P.Name, Defaults.Target]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ',' If Assigned(AfterCompile) then'#013#010+
|
|
|
- ' AfterCompile(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Install(Packages: TPackages);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeInstall) then'#013#010+
|
|
|
- ' BeforeInstall(Self);'#013#010+
|
|
|
- ' For I:=0 t','o Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If PackageOK(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Install(P);'#013#010+
|
|
|
+ 'ACPU,AOS)));'#010+
|
|
|
+ ' CmdRemoveDirs(DirectoryList);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' DirectoryList.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L','ist.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TBuildEngine.Manifest(APackage : TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TStrings;'#010+
|
|
|
+ ' PD,'#010+
|
|
|
+ ' MF : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Log(vlInfo, Format(SInfoManifestPackage,[APackage.Name]));'#010+
|
|
|
+ ' PD:=APackage.Dire','ctory;'#010+
|
|
|
+ ' if PD<>'#039#039' then'#010+
|
|
|
+ ' PD:=IncludeTrailingPathDelimiter(PD);'#010+
|
|
|
+ ' MF:=PD+ManifestFile;'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgGenerating, [MF]));'#010+
|
|
|
+ ' L.Add('#039'<?xml version="1.0"?>'#039');'#010+
|
|
|
+ ' L.Add('#039'<packages>'#039');'#010+
|
|
|
+ ' APackage.GetManifest(L);'#010+
|
|
|
+ ' L.A','dd('#039'</packages>'#039');'#010+
|
|
|
+ ' L.SaveToFile(MF);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Compile(Packages: TPackages);'#010+
|
|
|
+ #010+
|
|
|
+ ' function IsReadyToCompile(APackage:TPackage): boolean;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := False;'#010+
|
|
|
+ ' if not APackage.FPr','ocessing and (APackage.State=tsNeutral) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if PackageOK(APackage) then'#010+
|
|
|
+ ' result := ReadyToCompile(APackage)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
+ ' log(vlWarning,SWarnSkipPacka','geTargetProgress,[(FProgress'+
|
|
|
+ 'Count)/FProgressMax * 100, APackage.Name, Defaults.Target]);'#010+
|
|
|
+ ' APackage.FTargetState:=tsNoCompile;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : integer;'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' Thr : Integer;'#010+
|
|
|
+ ' Finished',' : boolean;'#010+
|
|
|
+ ' ErrorState: boolean;'#010+
|
|
|
+ ' ErrorMessage: string;'#010+
|
|
|
+ ' NotifyThreadWaiting : PRTLEvent;'#010+
|
|
|
+ ' Threads : array of TCompileWorkerThread;'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' procedure ProcessThreadResult(ATHread: ','TCompileWorkerThread);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' StartI: integer;'#010+
|
|
|
+ ' CompilePackage: TPackage;'#010+
|
|
|
+ ' PackageAvailable: boolean;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if AThread.Done then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if assigned(AThread.APackage) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // The thread',' has completed compiling the package'#010+
|
|
|
+ ' if AThread.CompilationOK then'#010+
|
|
|
+ ' AThread.APackage.FTargetState:=tsCompiled'#010+
|
|
|
+ ' else // A problem occured, stop the compilation'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ErrorState:','=true;'#010+
|
|
|
+ ' ErrorMessage:=AThread.ErrorMessage;'#010+
|
|
|
+ ' Finished:=true;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' AThread.APackage := nil;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' StartI := I;'#010+
|
|
|
+ #010+
|
|
|
+ ' CompilePackage := nil;'#010+
|
|
|
+ ' PackageAvailable:=fal','se;'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' if IsReadyToCompile(Packages.PackageItems[i]) then'#010+
|
|
|
+ ' CompilePackage := Packages.PackageItems[i];'#010+
|
|
|
+ ' if not (Packages.PackageItems[i].State in [tsCompiled, tsNoCom'+
|
|
|
+ 'pile]) then'#010+
|
|
|
+ ' PackageAvailable',':=true;'#010+
|
|
|
+ ' inc(I);'#010+
|
|
|
+ ' if I=packages.Count then'#010+
|
|
|
+ ' i := 0;'#010+
|
|
|
+ ' until Assigned(CompilePackage) or (I=StartI);'#010+
|
|
|
+ ' if Assigned(CompilePackage) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Instruct thread to compile package'#010+
|
|
|
+ ' ',' AThread.APackage := CompilePackage;'#010+
|
|
|
+ ' AThread.APackage.FProcessing := true;'#010+
|
|
|
+ ' AThread.FDone:=False;'#010+
|
|
|
+ ' RTLeventSetEvent(AThread.NotifyStartTask);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if not PackageAvailable then'#010+
|
|
|
+ ' Finis','hed := True;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(BeforeCompile) then'#010+
|
|
|
+ ' BeforeCompile(Self);'#010+
|
|
|
+ ' FProgressMax:=Packages.Count;'#010+
|
|
|
+ ' FProgressCount:=0;'#010+
|
|
|
+ #010+
|
|
|
+ ' if Defaults.ThreadsAmount<0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Do not use a','ny threading to compile the packages'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' If PackageOK(P) then'#010+
|
|
|
+ ' MaybeCompile(P)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' inc(FPro','gressCount);'#010+
|
|
|
+ ' log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCo'+
|
|
|
+ 'unt)/FProgressMax * 100, P.Name, Defaults.Target]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' // Use worker-threads',' to compile the packages'#010+
|
|
|
+ ' ErrorState := False;'#010+
|
|
|
+ ' Finished := False;'#010+
|
|
|
+ ' I := 0;'#010+
|
|
|
+ ' // This event is set by the worker-threads to notify the main/th'+
|
|
|
+ 'is thread'#010+
|
|
|
+ ' // that a package finished it'#039's task.'#010+
|
|
|
+ ' NotifyThreadWaiting',' := RTLEventCreate;'#010+
|
|
|
+ ' SetLength(Threads,Defaults.ThreadsAmount);'#010+
|
|
|
+ ' // Create all worker-threads'#010+
|
|
|
+ ' for Thr:=0 to Defaults.ThreadsAmount-1 do'#010+
|
|
|
+ ' Threads[Thr] := TCompileWorkerThread.Create(self,NotifyThreadW'+
|
|
|
+ 'aiting);'#010+
|
|
|
+ ' try',#010+
|
|
|
+ ' // When a thread notifies this thread that it is ready, loop o'+
|
|
|
+ 'n all'#010+
|
|
|
+ ' // threads to check their state and if possible assign a new p'+
|
|
|
+ 'ackage'#010+
|
|
|
+ ' // to them to compile.'#010+
|
|
|
+ ' while not Finished do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' RTLeventWaitFor(NotifyThreadWaiting);'#010+
|
|
|
+ ' for Thr:=0 to Defaults.ThreadsAmount-1 do if not Finished '+
|
|
|
+ 'then'#010+
|
|
|
+ ' ProcessThreadResult(Threads[Thr]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Compilation finished or aborted. Wait for all thr','eads to '+
|
|
|
+ 'end.'#010+
|
|
|
+ ' for thr:=0 to Defaults.ThreadsAmount-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Threads[Thr].Terminate;'#010+
|
|
|
+ ' RTLeventSetEvent(Threads[Thr].NotifyStartTask);'#010+
|
|
|
+ ' Threads[Thr].WaitFor;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' ',' RTLeventdestroy(NotifyThreadWaiting);'#010+
|
|
|
+ ' for thr:=0 to Defaults.ThreadsAmount-1 do'#010+
|
|
|
+ ' Threads[Thr].Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if ErrorState then'#010+
|
|
|
+ ' raise Exception.Create(ErrorMessage);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Ass','igned(AfterCompile) then'#010+
|
|
|
+ ' AfterCompile(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Install(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(BeforeInstall) then'#010+
|
|
|
+ ' BeforeInstall(Self);'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 ','do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' If PackageOK(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Install(P);'#010+
|
|
|
' log(vlWarning, SWarnInstallationPackagecomplete, [P.Name, De'+
|
|
|
- 'faults.Target]);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' ',' else'#013#010+
|
|
|
- ' log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Target]'+
|
|
|
- ');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterInstall) then'#013#010+
|
|
|
- ' AfterInstall(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Archive(Packages: TPackages);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P',' : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeArchive) then'#013#010+
|
|
|
- ' BeforeArchive(Self);'#013#010+
|
|
|
- ' Log(vlDebug, SDbgBuildEngineArchiving);'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' Archive(P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If',' Assigned(AfterArchive) then'#013#010+
|
|
|
- ' AfterArchive(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Manifest(Packages: TPackages);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeManifest) then'#013#010+
|
|
|
- ' BeforeManifest(Self);'#013#010+
|
|
|
- ' Log(vlDebu','g, SDbgBuildEngineGenerateManifests);'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' Manifest(P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterManifest) then'#013#010+
|
|
|
- ' AfterManifest(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEn','gine.Clean(Packages: TPackages; AllTargets: boolea'+
|
|
|
- 'n);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeClean) then'#013#010+
|
|
|
- ' BeforeClean(Self);'#013#010+
|
|
|
- ' Log(vldebug, SDbgBuildEngineCleaning);'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' be','gin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If AllTargets or PackageOK(P) then'#013#010+
|
|
|
- ' Clean(P, AllTargets);'#013#010+
|
|
|
- ' log(vlWarning, SWarnCleanPackagecomplete, [P.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterClean) then'#013#010+
|
|
|
- ' AfterClean(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013,#010+
|
|
|
+ 'faults.Target]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vlWarni','ng,SWarnSkipPackageTarget,[P.Name, Defaults.Targe'+
|
|
|
+ 't]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Assigned(AfterInstall) then'#010+
|
|
|
+ ' AfterInstall(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.ZipInstall(Packages: TPackages);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(Bef','oreInstall) then'#010+
|
|
|
+ ' BeforeInstall(Self);'#010+
|
|
|
+ #010+
|
|
|
+ ' FZipper := TZipper.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' Defaults.IntSetBaseInstallDir('#039'lib/fpc/'#039' + Defaults.FCompi'+
|
|
|
+ 'lerVersion+ '#039'/'#039');'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i','];'#010+
|
|
|
+ ' If PackageOK(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FZipper.FileName := P.Name + '#039'.'#039' + MakeTargetStrin'+
|
|
|
+ 'g(Defaults.CPU,Defaults.OS) +'#039'.zip'#039';'#010+
|
|
|
+ ' Install(P);'#010+
|
|
|
+ ' FZipper.ZipAllFiles;'#010+
|
|
|
+ ' FZipper.Clear;'#010+
|
|
|
+ ' ',' log(vlWarning, SWarnInstallationPackagecomplete, [P.Name'+
|
|
|
+ ', Defaults.Target]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Targe'+
|
|
|
+ 't]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FZipper.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' If Assign','ed(AfterInstall) then'#010+
|
|
|
+ ' AfterInstall(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Archive(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(BeforeArchive) then'#010+
|
|
|
+ ' BeforeArchive(Self);'#010+
|
|
|
+ ' Log(vlDebug, SDbgBuildEngineArch','iving);'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' Archive(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Assigned(AfterArchive) then'#010+
|
|
|
+ ' AfterArchive(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Manifest(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I ',': Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(BeforeManifest) then'#010+
|
|
|
+ ' BeforeManifest(Self);'#010+
|
|
|
+ ' Log(vlDebug, SDbgBuildEngineGenerateManifests);'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' Manifest(P)',';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Assigned(AfterManifest) then'#010+
|
|
|
+ ' AfterManifest(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Clean(Packages: TPackages; AllTargets: boolean)'+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(BeforeClean) then'#010+
|
|
|
+ ' BeforeClean(Se','lf);'#010+
|
|
|
+ ' Log(vldebug, SDbgBuildEngineCleaning);'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' If AllTargets or PackageOK(P) then'#010+
|
|
|
+ ' Clean(P, AllTargets);'#010+
|
|
|
+ ' log(vlWarning, SWarnCleanPackagecomplete, [P.N','ame]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If Assigned(AfterClean) then'#010+
|
|
|
+ ' AfterClean(Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TFPVersion'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.GetAsString: Str','ing;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if Empty then'#013#010+
|
|
|
- ' Result:='#039'<none>'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result := '#039#039';'#013#010+
|
|
|
- ' if Major <> -1 then'#013#010+
|
|
|
- ' Result := Result + IntToStr(Major);'#013#010+
|
|
|
- ' if Minor <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'.'#039' + IntToStr(Minor);'#013#010+
|
|
|
- ' if Mic','ro <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'.'#039' + IntToStr(Micro);'#013#010+
|
|
|
- ' if Build <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'-'#039' + IntToStr(Build);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.GetEmpty: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(Major=0) and (Minor=0) and ','(Micro=0) and (Build=0);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TFPVersion.SetAsString(const AValue: String);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Function NextDigit(sep : Char; var V : string) : integer;'#013#010+
|
|
|
- ' Var'#013#010+
|
|
|
- ' P : Integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Pos(Sep,V);'#013#010+
|
|
|
- ' If (P=0) then'#013#010+
|
|
|
- ' P:=Leng','th(V)+1;'#013#010+
|
|
|
- ' Result:=StrToIntDef(Copy(V,1,P-1),-1);'#013#010+
|
|
|
- ' If Result<>-1 then'#013#010+
|
|
|
- ' Delete(V,1,P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' V : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Clear;'#013#010+
|
|
|
- ' // Special support for empty version string'#013#010+
|
|
|
- ' if (AValue='#039#039') or (AValue='#039'<none>'#039') then'#013#010+
|
|
|
- ' ',' exit;'#013#010+
|
|
|
- ' V:=AValue;'#013#010+
|
|
|
- ' Major:=NextDigit('#039'.'#039',V);'#013#010+
|
|
|
- ' Minor:=NextDigit('#039'.'#039',V);'#013#010+
|
|
|
- ' Micro:=NextDigit('#039'-'#039',V);'#013#010+
|
|
|
- ' Build:=NextDigit(#0,V);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TFPVersion.Clear;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Micro:=-1;'#013#010+
|
|
|
- ' Major:=-1;'#013#010+
|
|
|
- ' Minor:=-1;'#013#010+
|
|
|
- ' Build:=-1;'#013#010+
|
|
|
- 'end;'#013#010,
|
|
|
- #013#010+
|
|
|
- 'procedure TFPVersion.Assign(Source: TPersistent);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' V : TFPVersion;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if Source is TFPVersion then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' V:=Source as TFPVersion;'#013#010+
|
|
|
- ' Major:=V.Major;'#013#010+
|
|
|
- ' Minor:=V.Minor;'#013#010+
|
|
|
- ' Micro:=V.Micro;'#013#010+
|
|
|
- ' Build:=V.Build;'#013,#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' inherited Assign(Source);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.CompareVersion(AVersion: TFPVersion): Integer;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Major-AVersion.Major;'#013#010+
|
|
|
- ' If (Result=0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=Minor-AVersion.Minor;'#013#010+
|
|
|
- ' ',' if (Result=0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=Micro-AVersion.Micro;'#013#010+
|
|
|
- ' If (Result=0) then'#013#010+
|
|
|
- ' Result:=Build-AVersion.Build;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.SameVersion(AVersion: TFPVersion): Boo','lean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=CompareVersion(AVersion)=0;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TFPVersion'#010+
|
|
|
+ '*********************************************','***********************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TFPVersion.GetAsString: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Empty then'#010+
|
|
|
+ ' Result:='#039'<none>'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result := '#039#039';'#010+
|
|
|
+ ' if Major <> -1 then'#010+
|
|
|
+ ' Result := Result + IntToStr(Major);'#010+
|
|
|
+ ' if Minor <> -1 then',#010+
|
|
|
+ ' Result := Result + '#039'.'#039' + IntToStr(Minor);'#010+
|
|
|
+ ' if Micro <> -1 then'#010+
|
|
|
+ ' Result := Result + '#039'.'#039' + IntToStr(Micro);'#010+
|
|
|
+ ' if Build <> -1 then'#010+
|
|
|
+ ' Result := Result + '#039'-'#039' + IntToStr(Build);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TFPVersion.GetEmpty: Boo','lean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=(Major=0) and (Minor=0) and (Micro=0) and (Build=0);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TFPVersion.SetAsString(const AValue: String);'#010+
|
|
|
+ #010+
|
|
|
+ ' Function NextDigit(sep : Char; var V : string) : integer;'#010+
|
|
|
+ ' Var'#010+
|
|
|
+ ' P : Integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Pos(','Sep,V);'#010+
|
|
|
+ ' If (P=0) then'#010+
|
|
|
+ ' P:=Length(V)+1;'#010+
|
|
|
+ ' Result:=StrToIntDef(Copy(V,1,P-1),-1);'#010+
|
|
|
+ ' If Result<>-1 then'#010+
|
|
|
+ ' Delete(V,1,P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' V : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Clear;'#010+
|
|
|
+ ' // Special support for empty version string'#010+
|
|
|
+ ' if (AValue='#039#039') o','r (AValue='#039'<none>'#039') then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' V:=AValue;'#010+
|
|
|
+ ' Major:=NextDigit('#039'.'#039',V);'#010+
|
|
|
+ ' Minor:=NextDigit('#039'.'#039',V);'#010+
|
|
|
+ ' Micro:=NextDigit('#039'-'#039',V);'#010+
|
|
|
+ ' Build:=NextDigit(#0,V);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TFPVersion.Clear;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Micro:=-1;'#010+
|
|
|
+ ' Major:=-1;'#010+
|
|
|
+ ' Minor:=-1;'#010+
|
|
|
+ ' Buil','d:=-1;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TFPVersion.Assign(Source: TPersistent);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' V : TFPVersion;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Source is TFPVersion then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' V:=Source as TFPVersion;'#010+
|
|
|
+ ' Major:=V.Major;'#010+
|
|
|
+ ' Minor:=V.Minor;'#010+
|
|
|
+ ' Micro:=V.Micro;'#010+
|
|
|
+ ' Build:=V.Build;',#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' inherited Assign(Source);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TFPVersion.CompareVersion(AVersion: TFPVersion): Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Major-AVersion.Major;'#010+
|
|
|
+ ' If (Result=0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Minor-AVersion.Minor;'#010+
|
|
|
+ ' if (Result','=0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Micro-AVersion.Micro;'#010+
|
|
|
+ ' If (Result=0) then'#010+
|
|
|
+ ' Result:=Build-AVersion.Build;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TFPVersion.SameVersion(AVersion: TFPVersion): Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result',':=CompareVersion(AVersion)=0;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TTarget'#013#010+
|
|
|
- '********************************************************','************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TTarget.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACollection);'#013#010+
|
|
|
- ' FInstall:=True;'#013#010+
|
|
|
- ' FCPUs:=AllCPUs;'#013#010+
|
|
|
- ' FOSes:=AllOSes;'#013#010+
|
|
|
- ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#013#010,
|
|
|
- ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FDependencies:=TDependencies.Create(TDependency);'#013#010+
|
|
|
- ' FCommands:=TCOmmands.Create(TCommand);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destru','ctor TTarget.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FUnitPath);'#013#010+
|
|
|
- ' FreeAndNil(FObjectPath);'#013#010+
|
|
|
- ' FreeAndNil(FIncludePath);'#013#010+
|
|
|
- ' FreeAndNil(FDependencies);'#013#010+
|
|
|
- ' FreeAndNil(FCommands);'#013#010+
|
|
|
- ' FreeAndNil(Foptions);'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget','.GetOptions: TStrings;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Foptions=Nil then'#013#010+
|
|
|
- ' FOptions:=TStringList.Create;'#013#010+
|
|
|
- ' Result:=FOptions;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetUnitLibFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039'libp'#039'+Name+LibExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.SetOptions(','const AValue: TStrings);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (AValue=Nil) or (AValue.Count=0) then'#013#010+
|
|
|
- ' FreeAndNil(FOptions)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Options.Assign(AValue);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetSourceFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Name+FExtension;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'fu','nction TTarget.GetUnitFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Name+UnitExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetObjectFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Name+ObjExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetRSTFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Name+RSText;',#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetProgramFileName(AOS : TOS): String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AOS in [Go32v2,Win32,Win64,OS2] then'#013#010+
|
|
|
- ' Result:=Name+ExeExt'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=Name;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetOutputFileName(AOs: TOS): String;'#013#010+
|
|
|
- 'begi','n'#013#010+
|
|
|
- ' if TargetType in UnitTargets then'#013#010+
|
|
|
- ' Result:=GetUnitFileName'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=GetProgramFileName(AOs);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.HaveOptions: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(FOptions<>Nil);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.SetName(const ','AValue: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' D,N,E : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' N:=FixPath(AValue);'#013#010+
|
|
|
- ' D:=ExtractFilePath(N);'#013#010+
|
|
|
- ' E:=ExtractFileExt(N);'#013#010+
|
|
|
- ' N:=ExtractFileName(N);'#013#010+
|
|
|
- ' inherited SetName(Copy(N,1,Length(N)-Length(E)));'#013#010+
|
|
|
- ' FExtension:=E;'#013#010+
|
|
|
- ' FDirectory:=D;'#013#010+
|
|
|
- 'en','d;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.SetXML(const AValue: string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FXML:=FixPath(AValue);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TTarget'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'const','ructor TTarget.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(ACollection);'#010+
|
|
|
+ ' FInstall:=True;'#010+
|
|
|
+ ' FCPUs:=AllCPUs;'#010+
|
|
|
+ ' FOSes:=AllOSes;'#010+
|
|
|
+ ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FIncludePath:=TConditionalStrings.C','reate(TConditionalString);'#010+
|
|
|
+ ' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FDependencies:=TDependencies.Create(TDependency);'#010+
|
|
|
+ ' FCommands:=TCommands.Create(TCommand);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TTarget.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FUn','itPath);'#010+
|
|
|
+ ' FreeAndNil(FObjectPath);'#010+
|
|
|
+ ' FreeAndNil(FIncludePath);'#010+
|
|
|
+ ' FreeAndNil(FDependencies);'#010+
|
|
|
+ ' FreeAndNil(FCommands);'#010+
|
|
|
+ ' FreeAndNil(Foptions);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.AssignTo(Dest: TPersistent);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' DestTarget: TTarge','t;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Dest is TTarget then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' DestTarget := TTarget(Dest);'#010+
|
|
|
+ ' DestTarget.Dependencies.Assign(Dependencies);'#010+
|
|
|
+ ' DestTarget.Commands.Assign(Commands);'#010+
|
|
|
+ ' DestTarget.FTargetState := FTargetState;'#010+
|
|
|
+ ' DestTarget.TargetType',' := TargetType;'#010+
|
|
|
+ ' DestTarget.CPUs := CPUs;'#010+
|
|
|
+ ' DestTarget.OSes := OSes;'#010+
|
|
|
+ ' DestTarget.Mode := Mode;'#010+
|
|
|
+ ' DestTarget.Options := Options;'#010+
|
|
|
+ ' DestTarget.Name := Name;'#010+
|
|
|
+ ' DestTarget.Extension:= Extension;'#010+
|
|
|
+ ' DestTarget.FPCTarget := FPCTar','get;'#010+
|
|
|
+ ' DestTarget.FileType := FileType;'#010+
|
|
|
+ ' DestTarget.Directory := Directory;'#010+
|
|
|
+ ' DestTarget.ResourceStrings := ResourceStrings;'#010+
|
|
|
+ ' DestTarget.Install := Install;'#010+
|
|
|
+ ' DestTarget.FTargetSourceFileName := fTargetSourceFileName;'#010+
|
|
|
+ ' DestTa','rget.ObjectPath.Assign(ObjectPath);'#010+
|
|
|
+ ' DestTarget.UnitPath.Assign(UnitPath);'#010+
|
|
|
+ ' DestTarget.IncludePath.Assign(IncludePath);'#010+
|
|
|
+ ' DestTarget.FXML := FXML;'#010+
|
|
|
+ ' DestTarget.AfterCompile := AfterCompile;'#010+
|
|
|
+ ' DestTarget.BeforeCompile := BeforeCo','mpile;'#010+
|
|
|
+ ' DestTarget.BeforeClean := BeforeCompile;'#010+
|
|
|
+ ' DestTarget.AfterClean := AfterClean;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' inherited AssignTo(Dest);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetOptions: TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Foptions=Nil then'#010+
|
|
|
+ ' FOptions:=TStringList.Cr','eate;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetImportLibFileName(AOS : TOS) : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := GetImportLibraryFilename(Name,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetUnitLibFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039'libp'#039'+Name+LibExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'pr','ocedure TTarget.SetOptions(const AValue: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (AValue=Nil) or (AValue.Count=0) then'#010+
|
|
|
+ ' FreeAndNil(FOptions)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Options.Assign(AValue);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetSourceFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+FExtensi','on;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetUnitFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+UnitExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetObjectFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+ObjExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetRSTFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+RSText;'#010,
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetProgramFileName(AOS : TOS): String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := AddProgramExtension(Name, AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetProgramDebugFileName(AOS: TOS): String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := Name + DbgExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.Get','OutputFileName(AOs: TOS): String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if TargetType in UnitTargets then'#010+
|
|
|
+ ' Result:=GetUnitFileName'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=GetProgramFileName(AOs);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.HaveOptions: Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=(FOptions<>Nil);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedu','re TTarget.SetName(const AValue: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' D,N,E : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' N:=FixPath(AValue, False);'#010+
|
|
|
+ ' D:=ExtractFilePath(N);'#010+
|
|
|
+ ' E:=ExtractFileExt(N);'#010+
|
|
|
+ ' N:=ExtractFileName(N);'#010+
|
|
|
+ ' inherited SetName(Copy(N,1,Length(N)-Length(E)));'#010+
|
|
|
+ ' FExtension:=E',';'#010+
|
|
|
+ ' FDirectory:=D;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.SetXML(const AValue: string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FXML:=FixPath(AValue, False);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TTarget.GetCleanFiles(List: TStrings; const APrefixU, APrefi'+
|
|
|
- 'xB : String; ACPU: TCPU; AOS : TOS);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If not(ACPU in CPUs) or not','(AOS in OSes) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' List.Add(APrefixU + ObjectFileName);'#013#010+
|
|
|
+ 'xB : String; ACPU: TCPU; AOS : TOS);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If not(A','CPU in CPUs) or not(AOS in OSes) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' List.Add(APrefixU + ObjectFileName);'#010+
|
|
|
' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit, ttCleanOnlyU'+
|
|
|
- 'nit]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' List.Add(APrefixU + UnitFileName);'#013#010+
|
|
|
- ' if (AOS in AllSmartLinkLibra','ryOSes) and FileExists(APrefixU + '+
|
|
|
- 'UnitLibFileName) then'#013#010+
|
|
|
- ' List.Add(APrefixU + UnitLibFileName);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else If (TargetType in [ttProgram,ttExampleProgram]) then'#013#010+
|
|
|
- ' List.Add(APrefixB + GetProgramFileName(AOS));'#013#010+
|
|
|
- ' If ResourceSt','rings then'#013#010+
|
|
|
- ' List.Add(APrefixU + RSTFileName);'#013#010+
|
|
|
- ' // Maybe add later ? AddConditionalStrings(List,CleanFiles);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.GetInstallFiles(List: TStrings; const APrefixU, APre'+
|
|
|
- 'fixB: String; ACPU: TCPU; AOS : TOS);'#013#010+
|
|
|
- 'begin',#013#010+
|
|
|
- ' If not(ACPU in CPUs) or not(AOS in OSes) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' If Not (TargetType in [ttProgram,ttExampleProgram]) then'#013#010+
|
|
|
- ' List.Add(APrefixU + ObjectFileName);'#013#010+
|
|
|
- ' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then'#013#010+
|
|
|
- ' begin'#013#010,
|
|
|
- ' List.Add(APrefixU + UnitFileName);'#013#010+
|
|
|
+ 'nit]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(APrefixU + UnitFileName);'#010+
|
|
|
+ ' if (AOS in AllS','martLinkLibraryOSes) and FileExists(APrefixU + '+
|
|
|
+ 'UnitLibFileName) then'#010+
|
|
|
+ ' List.Add(APrefixU + UnitLibFileName);'#010+
|
|
|
+ ' if (AOS in AllImportLibraryOSes) and FileExists(APrefixU + GetIm'+
|
|
|
+ 'portLibFilename(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + ','GetImportLibFilename(AOS));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else If (TargetType in [ttProgram,ttExampleProgram]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(APrefixB + GetProgramFileName(AOS));'#010+
|
|
|
+ ' if FileExists(APrefixB + GetProgramDebugFileName(AOS)) then'#010+
|
|
|
+ ' List.Add(APref','ixB + GetProgramDebugFileName(AOS));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If ResourceStrings then'#010+
|
|
|
+ ' List.Add(APrefixU + RSTFileName);'#010+
|
|
|
+ ' // Maybe add later ? AddConditionalStrings(List,CleanFiles);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.GetInstallFiles(List: TStrings; const APr','efixU, AP'+
|
|
|
+ 'refixB: String; ACPU: TCPU; AOS : TOS);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Not (TargetType in [ttProgram,ttExampleProgram]) and FileExists(A'+
|
|
|
+ 'PrefixU + ObjectFileName) then'#010+
|
|
|
+ ' // The compiler does not create an objectfile for all programs.'#010+
|
|
|
+ ' List.Add(APr','efixU + ObjectFileName);'#010+
|
|
|
+ ' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(APrefixU + UnitFileName);'#010+
|
|
|
' if (AOS in AllSmartLinkLibraryOSes) and FileExists(APrefixU + Unit'+
|
|
|
- 'LibFileName) then'#013#010+
|
|
|
- ' List.Add(APrefixU + UnitLibFileName);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else If (TargetType in [ttProgram,ttExampleProgram]) th','en'#013#010+
|
|
|
- ' List.Add(APrefixB + GetProgramFileName(AOS));'#013#010+
|
|
|
- ' If ResourceStrings then'#013#010+
|
|
|
- ' List.Add(APrefixU + RSTFileName);'#013#010+
|
|
|
- ' // Maybe add later ? AddConditionalStrings(List,InstallFiles);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.GetArchiveFiles(List: TS','trings; ACPU: TCPU; AOS : '+
|
|
|
- 'TOS);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i : integer;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If not(ACPU in CPUs) or not(AOS in OSes) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' // Main source'#013#010+
|
|
|
- ' if TargetSourceFileName<>'#039#039' then'#013#010+
|
|
|
- ' List.Add(TargetSourceFileName);'#013#010+
|
|
|
- ' // Inc','ludes'#013#010+
|
|
|
- ' for i:=0 to Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=depInclude) and'#013#010+
|
|
|
- ' (D.TargetFileName<>'#039#039') then'#013#010+
|
|
|
- ' List.Add(D.TargetFileName);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // FPDoc files'#013#010+
|
|
|
- ' if XML ','<> '#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' List.Add(Directory + Name + Extension);'#013#010+
|
|
|
- ' List.Add(XML);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'LibFileName) then'#010+
|
|
|
+ ' List.Add','(APrefixU + UnitLibFileName);'#010+
|
|
|
+ ' if (AOS in AllImportLibraryOSes) and FileExists(APrefixU + GetImpo'+
|
|
|
+ 'rtLibFilename(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + GetImportLibFilename(AOS));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else If (TargetType in [ttProgram,ttExampleProgram]',') then'#010+
|
|
|
+ ' List.Add(APrefixB + GetProgramFileName(AOS));'#010+
|
|
|
+ ' If ResourceStrings then'#010+
|
|
|
+ ' List.Add(APrefixU + RSTFileName);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.GetArchiveFiles(List: TStrings; ACPU: TCPU; AOS : TO'+
|
|
|
+ 'S);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ ' D : TDependency;'#010,
|
|
|
+ 'begin'#010+
|
|
|
+ ' If not(ACPU in CPUs) or not(AOS in OSes) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' // Main source'#010+
|
|
|
+ ' if TargetSourceFileName<>'#039#039' then'#010+
|
|
|
+ ' List.Add(TargetSourceFileName);'#010+
|
|
|
+ ' // Includes'#010+
|
|
|
+ ' for i:=0 to Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=Dependencies[i];'#010,
|
|
|
+ ' if (D.DependencyType=depInclude) and'#010+
|
|
|
+ ' (D.TargetFileName<>'#039#039') then'#010+
|
|
|
+ ' List.Add(D.TargetFileName);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // FPDoc files'#010+
|
|
|
+ ' if XML <> '#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(Directory + Name + Extension);'#010+
|
|
|
+ ' List.Add(XML);'#010+
|
|
|
+ ' end;'#010,
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TSource'#013#010+
|
|
|
- '***************','*****************************************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSource.GetInstallSourcePath: string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FInstallSourcePath<>'#039#039' then'#013#010+
|
|
|
- ' result := FInstallSourcePath'#013#010+
|
|
|
- ' else if SourceType=stExample then'#013#010+
|
|
|
- ' result := ',#039'examples'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' result := '#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TSource.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACollection);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TSource.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TSource.Get','InstallFiles(List: TStrings);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if InstallSourcePath<>'#039#039' then'#013#010+
|
|
|
- ' list.Values[name] := (IncludeTrailingPathDelimiter(InstallSourcePa'+
|
|
|
- 'th)+ExtractFileName(Name))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' list.add(Name);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*******************************','************************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TCommands'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TSource'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommands.GetCommand(const Dest : String): TCommand;'#013#010+
|
|
|
- 'begin',#013#010+
|
|
|
- ' Result:=TCommand(ItemByName(Dest));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommands.GetCommandItem(Index : Integer): TCommand;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TCommand(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TSource.GetInstallSourcePa','th: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FInstallSourcePath<>'#039#039' then'#010+
|
|
|
+ ' result := FInstallSourcePath'#010+
|
|
|
+ ' else if SourceType=stExample then'#010+
|
|
|
+ ' result := '#039'examples'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := '#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TSource.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' in','herited Create(ACollection);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TSource.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TSource.GetInstallFiles(List: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if InstallSourcePath<>'#039#039' then'#010+
|
|
|
+ ' list.Values[name] := (IncludeTrailingPathDelimiter','(InstallSource'+
|
|
|
+ 'Path)+ExtractFileName(Name))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' list.add(Name);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TCommands'#010+
|
|
|
+ '******************************************','**************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCommands.GetCommand(const Dest : String): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TCommand(ItemByName(Dest));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCommands.GetCommandItem(Index : Integer): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TCommand(Item','s[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TCommands.SetCommandItem(Index : Integer; const AValue: TCom'+
|
|
|
- 'mand);',#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TCommands.AddCommand(const Cmd: String) : TCommand;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddCommand(fdefaultAt,Cmd,'#039#039','#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommands.AddCommand(const Cmd, Options: String): TCommand;'#013,
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddCommand(fdefaultAt,Cmd,Options,'#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'mand);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TCommands.AddCommand(const Cmd: String) : TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(fdefaultAt,Cmd,'#039#039','#039#039,','#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCommands.AddCommand(const Cmd, Options: String): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(fdefaultAt,Cmd,Options,'#039#039','#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'function TCommands.AddCommand(const Cmd, Options, Dest, Source: String'+
|
|
|
- ' ): TCommand;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddCommand(fdefaultAt,Cmd,options,Dest,Source);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function',' TCommands.AddCommand(At: TCommandAt; const Cmd: String) : T'+
|
|
|
- 'Command;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddCommand(At,Cmd,'#039#039','#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommands.AddCommand(At: TCommandAt; const Cmd, Options: Stri'+
|
|
|
- 'ng ): TCommand;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddComma','nd(At,Cmd,Options,'#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ' ): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' R','esult:=AddCommand(fdefaultAt,Cmd,options,Dest,Source);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TCommands.AddCommand(At: TCommandAt; const Cmd: String) : TCo'+
|
|
|
+ 'mmand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(At,Cmd,'#039#039','#039#039','#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCommands.AddCommand(At: TCommandAt; con','st Cmd, Options: St'+
|
|
|
+ 'ring ): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(At,Cmd,Options,'#039#039','#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'function TCommands.AddCommand(At: TCommandAt; const Cmd, Options, Dest'+
|
|
|
- ', Source: String): TCommand;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TCommand;'#013#010+
|
|
|
- ' Result.Command:=Cmd;'#013#010+
|
|
|
- ' If (Options<>'#039#039') then'#013#010+
|
|
|
- ' Result.ParseOpt','ions(Options);'#013#010+
|
|
|
- ' Result.At:=At;'#013#010+
|
|
|
- ' Result.SourceFile:=Source;'#013#010+
|
|
|
- ' Result.DestFile:=Dest;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TConditionalString'#013#010+
|
|
|
- '**************','******************************************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Constructor TConditionalString.Create;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ', Source: String): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TCommand;'#010+
|
|
|
+ ' Result.Comm','and:=Cmd;'#010+
|
|
|
+ ' If (Options<>'#039#039') then'#010+
|
|
|
+ ' Result.ParseOptions(Options);'#010+
|
|
|
+ ' Result.At:=At;'#010+
|
|
|
+ ' Result.SourceFile:=Source;'#010+
|
|
|
+ ' Result.DestFile:=Dest;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TConditionalStrings'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' ',' TConditionalString'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'Constructor TConditionalString.Create;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{**********************************************************','*********'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TConditionalStrings'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
'Constructor TConditionalStrings.Create(AClass:TConditionalStringClass)'+
|
|
|
- ';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create;'#013#010+
|
|
|
- ' FCSClass:=AClass;'#013#010+
|
|
|
- 'end;'#013,#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Creat','e;'#010+
|
|
|
+ ' FCSClass:=AClass;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'function TConditionalStrings.GetConditionalString(Index : Integer): TC'+
|
|
|
- 'onditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TConditionalString(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TConditionalStrings.SetConditionalString(Index : Integer; co'+
|
|
|
- 'nst AValue: TC','onditionalString);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'onditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TConditionalString(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TConditionalStrings.SetConditionalString(Index : Intege','r; '+
|
|
|
+ 'const AValue: TConditionalString);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TConditionalStrings.Add(Const Value : String) : TConditionalS'+
|
|
|
- 'tring;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- 'Function TCondi','tionalStrings.Add(Const Value : String;const CPUs:TCP'+
|
|
|
- 'Us) : TConditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'tring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Add(Value,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ 'Function ','TConditionalStrings.Add(Const Value : String;const CPUs:TCP'+
|
|
|
+ 'Us) : TConditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Add(Value,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TConditionalStrings.Add(Const Value : String;const OSes:TOSes'+
|
|
|
- ') : TCon','ditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ') : TCond','itionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Add(Value,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TConditionalStrings.Add(Const Value : String;const CPUs:TCPUs'+
|
|
|
- ';const OSes:TOSes) : TConditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=FCSClass.Create;'#013#010+
|
|
|
- ' Result.Value:=Value;'#013,#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' inherited Add(Result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ';const OSes:TOSes) : TConditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=FCSClass.Create;'#010+
|
|
|
+ ' Result.Value:=Value;'#010+
|
|
|
+ ' Result.O','Ses:=OSes;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' inherited Add(Result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TDependency'#013#010+
|
|
|
- '***********************************','*********************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Constructor TDependency.Create;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create;'#013#010+
|
|
|
- ' FVersion:=TFPVersion.Create;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Destructor TDependency.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FVersion);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDepend','ency.GetVersion : string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=FVersion.AsString;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TDependency.SetVersion(const V : string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FVersion.AsString:=V;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TDependency'#010+
|
|
|
+ '******************************************************','**************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'Constructor TDependency.Create;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create;'#010+
|
|
|
+ ' FVersion:=TFPVersion.Create;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Destructor TDependency.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FVersion);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependency.GetVersion : string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ','result:=FVersion.AsString;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TDependency.SetVersion(const V : string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FVersion.AsString:=V;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*','******'#013#010+
|
|
|
- ' TDependencies'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TDepend','encies'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TDependencies.GetDependency(Index : Integer): TDependency;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TDependency(Items[','Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TDependencies.SetDependency(Index : Integer; const AValue: T'+
|
|
|
- 'Dependency);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.Add(Const Value : String) : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,Al','lCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- 'Function TDependencies.Add(Const Value : String;const CPUs:TCPUs) : TD'+
|
|
|
- 'ependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependenci','es.Add(Const Value : String;const OSes:TOSes) : '+
|
|
|
- 'TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TDependencies.GetDependency(Index : Integer): TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TDependency(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TDependencies.SetDependenc','y(Index : Integer; const AValue:'+
|
|
|
+ ' TDependency);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.Add(Const Value : String) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Add(Value,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ 'Function TDep','endencies.Add(Const Value : String;const CPUs:TCPUs) : '+
|
|
|
+ 'TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Add(Value,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.Add(Const Value : String;const OSes:TOSes) : TD'+
|
|
|
+ 'ependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:','=Add(Value,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TDependencies.Add(Const Value : String;const CPUs:TCPUs;const'+
|
|
|
- ' OSes:TOSes) : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=inherited',' Add(Value,CPUs,OSes) as TDependency;'#013#010+
|
|
|
- ' Result.Target:=nil;'#013#010+
|
|
|
- ' Result.FDependencyType:=depPackage;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.AddUnit(Const Value : String) : TDependency;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddUnit(Value,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010,
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- 'Function TDependencies.AddUnit(Const Value : String;const CPUs:TCPUs) '+
|
|
|
- ': TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddUnit(Value,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.AddUnit(Const Va','lue : String;const OSes:TOSes'+
|
|
|
- ') : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddUnit(Value,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.AddUnit(Const Value : String;const CPUs:TCPUs;c'+
|
|
|
- 'onst OSes:TOSes) : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=inherited Add(Va','lue,CPUs,OSes) as TDependency;'#013#010+
|
|
|
- ' Result.Target:=nil;'#013#010+
|
|
|
- ' Result.FDependencyType:=depUnit;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.AddInclude(Const Value : String) : TDependency;'+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddInclude(Value,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$if','def cpu_only_overloads}'#013#010+
|
|
|
- 'Function TDependencies.AddInclude(Const Value : String;const CPUs:TCPU'+
|
|
|
- 's) : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddInclude(Value,CPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TDependencies.AddInclude(Con','st Value : String;const OSes:TO'+
|
|
|
- 'Ses) : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=AddInclude(Value,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ' OSes:TOSes) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=inherited Add(Value,CPUs,OSes) as TDependency;'#010+
|
|
|
+ ' Result.Target:=nil;'#010+
|
|
|
+ ' Result.FDependencyType',':=depPackage;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.AddUnit(Const Value : String) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=AddUnit(Value,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ 'Function TDependencies.AddUnit(Const Value : String;const CPUs:TCPUs',')'+
|
|
|
+ ' : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=AddUnit(Value,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.AddUnit(Const Value : String;const OSes:TOSes) '+
|
|
|
+ ': TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=AddUnit(Value,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Functi','on TDependencies.AddUnit(Const Value : String;const CPUs:TCPUs'+
|
|
|
+ ';const OSes:TOSes) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=inherited Add(Value,CPUs,OSes) as TDependency;'#010+
|
|
|
+ ' Result.Target:=nil;'#010+
|
|
|
+ ' Result.FDependencyType:=depUnit;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDepende','ncies.AddInclude(Const Value : String) : TDependenc'+
|
|
|
+ 'y;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=AddInclude(Value,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
'Function TDependencies.AddInclude(Const Value : String;const CPUs:TCPU'+
|
|
|
- 's;const OSes:TOSes) : TDependency;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' N : String;'#013#010+
|
|
|
- 'be','gin'#013#010+
|
|
|
- ' N:=FixPath(Value);'#013#010+
|
|
|
- ' if ExtractFileExt(N)='#039#039' then'#013#010+
|
|
|
- ' ChangeFileExt(N,IncExt);'#013#010+
|
|
|
- ' Result:=inherited Add(N,CPUs,OSes) as TDependency;'#013#010+
|
|
|
- ' Result.FDependencyType:=depInclude;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{***********************************************','********************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TValueItem'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TValueItem.Create(AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FValue:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{','*******************************************************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TFunctionItem'#013#010+
|
|
|
+ 's) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' resu','lt:=AddInclude(Value,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.AddInclude(Const Value : String;const OSes:TOSe'+
|
|
|
+ 's) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=AddInclude(Value,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDependencies.Add','Include(Const Value : String;const CPUs:TC'+
|
|
|
+ 'PUs;const OSes:TOSes) : TDependency;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' N : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' N:=FixPath(Value, False);'#010+
|
|
|
+ ' if ExtractFileExt(N)='#039#039' then'#010+
|
|
|
+ ' ChangeFileExt(N,IncExt);'#010+
|
|
|
+ ' Result:=inherited Add(N,CPUs,OSes) as TDependen','cy;'#010+
|
|
|
+ ' Result.FDependencyType:=depInclude;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TValueItem'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TFunctionItem.Create(AFu','nc: TReplaceFunction);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FFunc:=AFunc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '*','*****}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TValueItem.Create(AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FValue:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TDictionary'#013#010+
|
|
|
- '*********************************************************','***********'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TDictionary.Create(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- ' FList:=TStringList.Create;'#013#010+
|
|
|
- ' FList.Sorted:=True;'#013#010+
|
|
|
- ' FList.Duplicates:=dupError;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TDictionary.Destroy;'#013#010,
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' For I:=0 to Flist.Count-1 do'#013#010+
|
|
|
- ' FList.Objects[i].Free;'#013#010+
|
|
|
- ' FreeAndNil(FList);'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TDictionary.AddVariable(const AName, Value: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=F','list.IndexOf(AName);'#013#010+
|
|
|
- ' If I=-1 then'#013#010+
|
|
|
- ' I:=FList.Add(Aname)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Flist.Objects[i].Free;'#013#010+
|
|
|
- ' Flist.Objects[i]:=TValueItem.Create(Value);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TDictionary.AddFunction(const AName: String; FReplacement: T'+
|
|
|
- 'ReplaceFunctio','n);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=Flist.IndexOf(AName);'#013#010+
|
|
|
- ' If I=-1 then'#013#010+
|
|
|
- ' I:=Flist.Add(AName)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Flist.Objects[i].Free;'#013#010+
|
|
|
- ' Flist.Objects[i]:=TFunctionItem.Create(FReplacement);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TDictionary.RemoveItem(co','nst AName: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=Flist.IndexOf(AName);'#013#010+
|
|
|
- ' If (I<>-1) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FList.Objects[i].Free;'#013#010+
|
|
|
- ' FList.Delete(I);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TDictionary.GetValue(const AName: String): String;'#013#010+
|
|
|
- 'be','gin'#013#010+
|
|
|
- ' Result:=GetValue(AName,'#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TDictionary.GetValue(const AName,Args: String): String;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' O : TObject;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=Flist.IndexOf(AName);'#013#010+
|
|
|
- ' If (I=-1) then'#013#010+
|
|
|
- ' Raise EDictionaryError.CreateFmt(S','ErrNoDictionaryItem,[AName]);'#013+
|
|
|
- #010+
|
|
|
- ' O:=Flist.Objects[I];'#013#010+
|
|
|
- ' If O is TValueItem then'#013#010+
|
|
|
- ' Result:=TValueItem(O).FValue'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=TFunctionItem(O).FFunc(AName,Args);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TDictionary.ReplaceStrings(Const ASource: String','): String;'#013+
|
|
|
- #010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' S,FN,FV : String;'#013#010+
|
|
|
- ' P: Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:='#039#039';'#013#010+
|
|
|
- ' S:=ASource;'#013#010+
|
|
|
- ' P:=Pos('#039'$('#039',S);'#013#010+
|
|
|
- ' While (P<>0) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=Result+Copy(S,1,P-1);'#013#010+
|
|
|
- ' Delete(S,1,P+1);'#013#010+
|
|
|
- ' P:=Pos('#039')'#039',S);'#013#010+
|
|
|
- ' FN:=Copy(S,1',',P-1);'#013#010+
|
|
|
- ' Delete(S,1,P);'#013#010+
|
|
|
- ' P:=Pos('#039' '#039',FN);'#013#010+
|
|
|
- ' If (P<>0) then // function arguments ?'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FV:=FN;'#013#010+
|
|
|
- ' FN:=Copy(FN,1,P);'#013#010+
|
|
|
- ' System.Delete(FV,1,P);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FV:='#039#039';'#013#010+
|
|
|
- ' Re','sult:=Result+GetValue(FN,FV);'#013#010+
|
|
|
- ' P:=Pos('#039'$('#039',S);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Result:=Result+S;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function Substitute(Const Source : String; Macros : Array of string) :'+
|
|
|
- ' String;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=0;'#013#010+
|
|
|
- ' While I<High(Macros) do'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
- ' Dictionary.AddVariable(Macros[i],Macros[I+1]);'#013#010+
|
|
|
- ' Inc(I,2);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Result:=Dictionary.ReplaceStrings(Source);'#013#010+
|
|
|
- ' While I<High(Macros) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Dictionary.RemoveItem(Macros[i]);'#013#010+
|
|
|
- ' Inc(I,2);'#013#010+
|
|
|
- ' end',';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TFunctionItem'#010+
|
|
|
+ '********************************','************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TFunctionItem.Create(AFunc: TReplaceFunction);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FFunc:=AFunc;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' ',' TDictionary'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TDictionary.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AOwner);'#010+
|
|
|
+ ' FList:=TStringList.Create;'#010+
|
|
|
+ ' FList.Sorted:=True;'#010+
|
|
|
+ ' FLis','t.Duplicates:=dupError;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TDictionary.Destroy;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' For I:=0 to Flist.Count-1 do'#010+
|
|
|
+ ' FList.Objects[i].Free;'#010+
|
|
|
+ ' FreeAndNil(FList);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TDictionary.AddVariable(const AName',', Value: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=Flist.IndexOf(AName);'#010+
|
|
|
+ ' If I=-1 then'#010+
|
|
|
+ ' I:=FList.Add(Aname)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Flist.Objects[i].Free;'#010+
|
|
|
+ ' Flist.Objects[i]:=TValueItem.Create(Value);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TDictionary.AddFunction(const ANam','e: String; FReplacement:'+
|
|
|
+ ' TReplaceFunction);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=Flist.IndexOf(AName);'#010+
|
|
|
+ ' If I=-1 then'#010+
|
|
|
+ ' I:=Flist.Add(AName)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Flist.Objects[i].Free;'#010+
|
|
|
+ ' Flist.Objects[i]:=TFunctionItem.Create(FReplacement);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedur','e TDictionary.RemoveItem(const AName: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=Flist.IndexOf(AName);'#010+
|
|
|
+ ' If (I<>-1) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FList.Objects[i].Free;'#010+
|
|
|
+ ' FList.Delete(I);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TDictionary.GetValue(AName: String): Str','ing;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=GetValue(AName,'#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TDictionary.GetValue(const AName,Args: String): String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' O : TObject;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=Flist.IndexOf(AName);'#010+
|
|
|
+ ' If (I=-1) then'#010+
|
|
|
+ ' Raise EDictionaryError.CreateFmt(SErrNo','DictionaryItem,[AName]);'#010+
|
|
|
+ ' O:=Flist.Objects[I];'#010+
|
|
|
+ ' If O is TValueItem then'#010+
|
|
|
+ ' Result:=TValueItem(O).FValue'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=TFunctionItem(O).FFunc(AName,Args);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TDictionary.ReplaceStrings(Const ASource: String): String;'#010+
|
|
|
+ 'Var',#010+
|
|
|
+ ' S,FN,FV : String;'#010+
|
|
|
+ ' P: Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' S:=ASource;'#010+
|
|
|
+ ' P:=Pos('#039'$('#039',S);'#010+
|
|
|
+ ' While (P<>0) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Result+Copy(S,1,P-1);'#010+
|
|
|
+ ' Delete(S,1,P+1);'#010+
|
|
|
+ ' P:=Pos('#039')'#039',S);'#010+
|
|
|
+ ' FN:=Copy(S,1,P-1);'#010+
|
|
|
+ ' Delete(S,1,P);',#010+
|
|
|
+ ' P:=Pos('#039' '#039',FN);'#010+
|
|
|
+ ' If (P<>0) then // function arguments ?'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FV:=FN;'#010+
|
|
|
+ ' FN:=Copy(FN,1,P);'#010+
|
|
|
+ ' System.Delete(FV,1,P);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FV:='#039#039';'#010+
|
|
|
+ ' Result:=Result+GetValue(FN,FV);'#010+
|
|
|
+ ' P:','=Pos('#039'$('#039',S);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=Result+S;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDictionary.Substitute(Const Source : String; Macros : Array '+
|
|
|
+ 'of string) : String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' I:=0;'#010+
|
|
|
+ ' While I<High(Macros) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' AddVariable(Macros[i],Ma','cros[I+1]);'#010+
|
|
|
+ ' Inc(I,2);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=ReplaceStrings(Source);'#010+
|
|
|
+ ' While I<High(Macros) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' RemoveItem(Macros[i]);'#010+
|
|
|
+ ' Inc(I,2);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' Default Instances'#013#010+
|
|
|
+ '***','****'#010+
|
|
|
+ ' Default Instances'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' DefInstall','er : TCustomInstaller;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function Installer(InstallerClass: TInstallerClass): TCustomInstaller;'+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Not Assigned(DefInstaller) then'#013#010+
|
|
|
- ' DefInstaller:=InstallerClass.Create(Nil);'#013#010+
|
|
|
- ' Result:=DefInstaller;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function Instal','ler: TCustomInstaller;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result := Installer(TFPCInstaller);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{ TCommand }'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommand.GetOptions: TStrings;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FOptions=Nil) then'#013#010+
|
|
|
- ' FOptions:=TStringList.Create;'#013#010+
|
|
|
- ' Result:=FOptions;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'proc','edure TCommand.SetOptions(const Value: TStrings);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Value=Nil) or (Value.Count=0) then'#013#010+
|
|
|
- ' FreeAndNil(FOptions)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Options.Assign(Value);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TCommand.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FOptions);'#013#010+
|
|
|
- ' inheri','ted Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommand.HaveOptions: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=(FOptions<>Nil);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommand.CmdLineOptions: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If HaveOptions then'#013#010+
|
|
|
- ' Result:=OptionListToString(Options);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure',' TCommand.ParseOptions(S: String);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Options:=OptionsToStringList(S);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Initialization'#013#010+
|
|
|
- ' OnGetApplicationName:=@GetFPMakeName;'#013#010+
|
|
|
- ' CustomFpmakeCommandlineOptions:=nil;'#013#010+
|
|
|
- ' CustomFpMakeCommandlineValues:=nil;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Finalization'#013,#010+
|
|
|
- ' FreeAndNil(CustomFpMakeCommandlineValues);'#013#010+
|
|
|
- ' FreeAndNil(CustomFpmakeCommandlineOptions);'#013#010+
|
|
|
- ' FreeAndNil(DefInstaller);'#013#010+
|
|
|
- ' FreeAndNil(Dictionary);'#013#010+
|
|
|
- ' FreeAndNil(Defaults);'#013#010+
|
|
|
- 'end.'#013#010
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' DefInstaller : TCustomInstaller;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function Installer(InstallerClass: TInstallerClass): TCustomInsta','lle'+
|
|
|
+ 'r;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Not Assigned(DefInstaller) then'#010+
|
|
|
+ ' DefInstaller:=InstallerClass.Create(Nil);'#010+
|
|
|
+ ' Result:=DefInstaller;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function Installer: TCustomInstaller;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result := Installer(TFPCInstaller);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{ TCommand }'#010+
|
|
|
+ #010+
|
|
|
+ 'function T','Command.GetOptions: TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FOptions=Nil) then'#010+
|
|
|
+ ' FOptions:=TStringList.Create;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCommand.SetOptions(const Value: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Value=Nil) or (Value.Count=0) then'#010+
|
|
|
+ ' FreeAndNil(FOp','tions)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Options.Assign(Value);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'destructor TCommand.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FOptions);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCommand.HaveOptions: Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=(FOptions<>Nil);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCommand.CmdLineOp','tions: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If HaveOptions then'#010+
|
|
|
+ ' Result:=OptionListToString(Options);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCommand.ParseOptions(S: String);'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Options:=OptionsToStringList(S);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Initialization'#010+
|
|
|
+ ' OnGetApplicationName:=@GetFPMakeName;'#010+
|
|
|
+ ' C','ustomFpmakeCommandlineOptions:=nil;'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues:=nil;'#010+
|
|
|
+ #010+
|
|
|
+ 'Finalization'#010+
|
|
|
+ ' FreeAndNil(CustomFpMakeCommandlineValues);'#010+
|
|
|
+ ' FreeAndNil(CustomFpmakeCommandlineOptions);'#010+
|
|
|
+ ' FreeAndNil(DefInstaller);'#010+
|
|
|
+ ' FreeAndNil(GlobalDictionary);'#010+
|
|
|
+ ' ',' FreeAndNil(Defaults);'#010+
|
|
|
+ 'end.'#010
|
|
|
);
|
svenbarth