|
|
@@ -1,8886 +1,9481 @@
|
|
|
{$ifdef Delphi}
|
|
|
-const fpmkunitsrc : array[0..1041] of string[240]=(
|
|
|
+const fpmkunitsrc : array[0..1106] of string[240]=(
|
|
|
{$else Delphi}
|
|
|
-const fpmkunitsrc : array[0..1041,1..240] of char=(
|
|
|
+const fpmkunitsrc : array[0..1106,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+
|
|
|
+ '{'#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'#013#010+
|
|
|
- ' can pass only a set of cpus. This is disable','d 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 MORPHOS}'#013#010+
|
|
|
- ' {$DEFINE NO_UNIT_PROCESS}'#013#010+
|
|
|
- ' {$DEFINE NO_THREADING}'#013#010+
|
|
|
- '{$ENDIF}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$IFDEF OS2}'#013#010+
|
|
|
- ' {$DEFINE NO_UN','IT_PROCESS}'#013#010+
|
|
|
- '{$ENDIF OS2}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$IFDEF GO32V2}'#013#010+
|
|
|
- ' {$DEFINE NO_UNIT_PROCESS}'#013#010+
|
|
|
- '{$ENDIF GO32V2}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$IFDEF NETBSD}'#013#010+
|
|
|
+ '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 MORPHOS}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ ' {$DEFINE NO_THREADING}'#010+
|
|
|
+ '{$ENDIF}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF AMIGA}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ ' {$DEFINE NO_THREADIN','G}'#010+
|
|
|
+ '{$ENDIF}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF AROS}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ ' {$DEFINE NO_THREADING}'#010+
|
|
|
+ '{$ENDIF}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF OS2}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ '{$ENDIF OS2}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF GO32V2}'#010+
|
|
|
+ ' {$DEFINE NO_UNIT_PROCESS}'#010+
|
|
|
+ ' {$DEFINE NO_THREADING}'#010+
|
|
|
+ '{$ENDIF GO32V2}'#010+
|
|
|
+ #010+
|
|
|
+ '{$IFDEF NETBSD','}'#010+
|
|
|
' { NetBSD pthreads are not yet working, try to use fpmake without thre'+
|
|
|
- 'ads }'#013#010+
|
|
|
- ' {$DEFINE NO_THREADING}'#013#010+
|
|
|
- '{$ENDIF NETBSD}'#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+
|
|
|
- '{$ifndef NO_TAR_SUPPORT}'#013#010+
|
|
|
- ' {$define HAS_TAR_SUPPORT}'#013#010+
|
|
|
- '{$endif NO_TAR_SUPPORT}'#013#010+
|
|
|
- #013,#010+
|
|
|
- 'uses'#013#010+
|
|
|
- '{$ifdef UNIX}'#013#010+
|
|
|
- ' BaseUnix,'#013#010+
|
|
|
- '{$endif UNIX}'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- '{$ifdef UNIX}'#013#010+
|
|
|
- ' cthreads,'#013#010+
|
|
|
- '{$endif UNIX}'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' SysUtils, Classes, StrUtils'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' ,process'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- '{$i','fdef HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' ,libtar'#013#010+
|
|
|
- '{$endif HAS_TAR_SUPPORT}'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' ,zipper, zstream'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' ;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
+ 'ads }'#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+
|
|
|
+ '{$ifndef NO_TAR_SUPPORT}'#010+
|
|
|
+ ' {$define HAS_TAR_SUPPORT}'#010+
|
|
|
+ '{$endif NO_TAR_SUPPORT}'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef unix}'#010+
|
|
|
+ ' {$ifdef HAS_TAR_SUPPORT}'#010+
|
|
|
+ ' {$define CREATE_TAR_FILE}'#010+
|
|
|
+ ' {$endif HAS_TAR_SUPPORT}'#010+
|
|
|
+ '{$endif unix}'#010+
|
|
|
+ #010+
|
|
|
+ 'uses'#010+
|
|
|
+ '{$ifd','ef UNIX}'#010+
|
|
|
+ ' BaseUnix,'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ ' cthreads,'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ '{$ifdef WINDOWS}'#010+
|
|
|
+ ' windows,'#010+
|
|
|
+ '{$endif WINDOWS}'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' SysUtils, Classes'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' ,process'#010+
|
|
|
+ '{$endif HAS_UNIT_P','ROCESS}'#010+
|
|
|
+ '{$ifdef HAS_TAR_SUPPORT}'#010+
|
|
|
+ ' ,libtar'#010+
|
|
|
+ '{$endif HAS_TAR_SUPPORT}'#010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' ,zipper, zstream'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' ;'#010+
|
|
|
+ #010+
|
|
|
+ 'Type'#010+
|
|
|
' TFileType = (ftSource,ftUnit,ftObject,ftResource,ftExecutable,ftStat'+
|
|
|
- 'icLibrary,'#013#010+
|
|
|
- ' ',' ftSharedLibrary);'#013#010+
|
|
|
- ' TFileTypes = 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+
|
|
|
- ' mips,mipsel,jvm,i8086'#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+
|
|
|
- ' aix,java,android,nativent,msdos,wii'#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+
|
|
|
- ' TTa','rgetType = (ttProgram,ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttE'+
|
|
|
- 'xampleUnit,ttExampleProgram,ttFPDoc);'#013#010+
|
|
|
- ' TTargetTypes = set of TTargetType;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'icLibrary,'#010+
|
|
|
+ ' ',' ftSharedLibrary);'#010+
|
|
|
+ ' TFileTypes = set of TFileType;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Please keep this order, see OSCPUSupported below'#010+
|
|
|
+ ' TCpu=(cpuNone,'#010+
|
|
|
+ ' i386,m68k,powerpc,sparc,x86_64,arm,powerpc64,avr,armeb,'#010+
|
|
|
+ ' mips,mipsel,jvm,i8086'#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,winc','e,gba,nds,embedded,symbian,haiku,iphonesim,'#010+
|
|
|
+ ' aix,java,android,nativent,msdos,wii,aros,dragonfly'#010+
|
|
|
+ ' );'#010+
|
|
|
+ ' TOSes = Set of TOS;'#010+
|
|
|
+ #010+
|
|
|
+ ' TCompilerMode = (cmFPC,cmTP,cmObjFPC,cmDelphi,cmMacPas);'#010+
|
|
|
+ ' TCompilerModes = Set of TCompilerMode;'#010+
|
|
|
+ #010+
|
|
|
+ ' TTargetTyp','e = (ttProgram,ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttE'+
|
|
|
+ 'xampleUnit,ttExampleProgram,ttFPDoc);'#010+
|
|
|
+ ' TTargetTypes = 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 TFPDocForma','t;'#010+
|
|
|
+ #010+
|
|
|
' TTargetState = (tsNeutral,tsConsidering,tsNoCompile,tsCompiled,tsIns'+
|
|
|
- 'talled,tsNotFound);'#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 TVerboseLevel;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCommandAt = (caBeforeCompile,caAfterCompile,'#013#010+
|
|
|
- ' caBeforeInstall,caAfterInstall,'#013#010+
|
|
|
- ' caBeforeArchive,ca','AfterArchive,'#013#010+
|
|
|
- ' caBeforeClean,caAfterClean,'#013#010+
|
|
|
- ' caBeforeDownload,caAfterDownload);'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'talled,tsNotFound);'#010+
|
|
|
+ ' TTargetStates = Set of TTargetState;'#010+
|
|
|
+ #010+
|
|
|
+ ' TSourceType = (stDoc,stSrc,stExample,stTest);'#010+
|
|
|
+ ' TSourceTypes = set of TSourceType;'#010+
|
|
|
+ #010+
|
|
|
+ ' TVerboseLevel = (v','lError,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+
|
|
|
' TDependencyType = (depPackage,depImplicitPackage,depUnit,depInclude)'+
|
|
|
- ';'#013#010+
|
|
|
- ' TDependencyTypes = set of TDependencyType;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TLo','gEvent = Procedure (Level : TVerboseLevel; Const Msg : String) '+
|
|
|
- 'of Object;'#013#010+
|
|
|
- ' TNotifyProcEvent = procedure(Sender: TObject);'#013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' TDependencyTypes = set of TDependencyType;'#010+
|
|
|
+ #010+
|
|
|
+ ' TLogEvent = Procedure (Level : TVe','rboseLevel; Const Msg : String) '+
|
|
|
+ 'of Object;'#010+
|
|
|
+ ' TNotifyProcEvent = procedure(Sender: TObject);'#010+
|
|
|
+ #010+
|
|
|
' TRunMode = (rmCompile,rmBuild,rmInstall,rmArchive,rmClean,rmDistClea'+
|
|
|
- 'n,rmManifest,rmZipInstall);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TBuildMode',' = (bmOneByOne, bmBuildUnit{, bmSkipImplicitUnits});'#013+
|
|
|
+ 'n,rmManifest,rmZipInstall,rmPkgList);'#010+
|
|
|
#010+
|
|
|
- ' TBuildModes = set of TBuildMode;'#013#010+
|
|
|
- ' TProcessPackageResult = (ppHandled, ppDelayed);'#013#010+
|
|
|
+ ' TBuildMode = (bmOneByOne, bmBuildUni','t{, bmSkipImplicitUnits});'#010+
|
|
|
+ ' TBuildModes = set of TBuildMode;'#010+
|
|
|
+ ' TProcessPackageResult = (ppHandled, ppDelayed);'#010+
|
|
|
' TCheckDependencyResult = (cdAvailable, cdNotAvailable, cdNotYetAvail'+
|
|
|
- 'able);'#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,S','olar'+
|
|
|
- 'is,Haiku,iphonesim,aix,Android];'#013#010+
|
|
|
- ' AllBSDOSes = [FreeBSD,NetBSD,OpenBSD,Darwin,iphonesim];'#013#010+
|
|
|
- ' AllWindowsOSes = [Win32,Win64,WinCE];'#013#010+
|
|
|
- ' AllLimit83fsOses= [go32v2,os2,emx,watcom,msdos];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' AllSmartLinkLibraryOSes = [Linux,msdos,a','miga,morphos]; // OSes tha'+
|
|
|
- 't use .a library files for smart-linking'#013#010+
|
|
|
+ 'able);'#010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' // Aliases'#010+
|
|
|
+ ' Amd64 = X86_64;'#010+
|
|
|
+ ' PPC = Pow','erPC;'#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,dragon','fly];'#010+
|
|
|
+ ' AllBSDOSes = [FreeBSD,NetBSD,OpenBSD,Darwin,iphonesim,dragonfly'+
|
|
|
+ '];'#010+
|
|
|
+ ' AllWindowsOSes = [Win32,Win64,WinCE];'#010+
|
|
|
+ ' AllAmigaLikeOSes = [Amiga,MorphOS,AROS];'#010+
|
|
|
+ ' AllLimit83fsOses = [go32v2,os2,emx,watcom,msdos];'#010+
|
|
|
+ #010+
|
|
|
+ ' AllSmartLinkLibraryOSe','s = [Linux,msdos,amiga,morphos,aros]; // OSe'+
|
|
|
+ 's that use .a library files for smart-linking'#010+
|
|
|
' AllImportLibraryOSes = AllWindowsOSes + [os2,emx,netwlibc,netware,wa'+
|
|
|
- 'tcom,go32v2,macos,nativent,msdos];'#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+
|
|
|
+ 'tcom,go32v2,macos,nativent,msdos];'#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 mips mipsel jvm i8086}'#013#010+
|
|
|
- ' { none } ( false, false, false, false, false, false, fals','e, f'+
|
|
|
- 'alse, false, false, false, false, false, false),'#013#010+
|
|
|
+ '64 avr armeb mips mipsel jvm i8086}'#010+
|
|
|
+ ' { none } ( false, false, false, false, f','alse, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { linux } ( false, true, true, true, true, true, true, tru'+
|
|
|
- 'e, false, true , true , true , false, false),'#013#010+
|
|
|
- ' { go32v2 } ( false, true, false, false, false, false, false, f','a'+
|
|
|
- 'lse, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'e, false, true , true , true , false, false),'#010+
|
|
|
+ ' { go32v2 } ( false, true, false, false, false, ','false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { win32 } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
- ' { os2 } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se',', false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
+ ' { os2 } ( false, true, false, false, false, false,',' false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { freebsd } ( false, true, true, false, false, true, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
- ' { beos } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, fa','lse, false, false, false, false, false),'#013#010+
|
|
|
- ' { netbsd } ( false, true, true, true, true, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
+ ' { beos } ( false, true, false, false, false, false, false',', f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
+ ' { netbsd } ( false, true, true, true, true, true, false, fal'+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { amiga } ( false, false, true, true, false, false, false, fal'+
|
|
|
- 'se, false,',' false, false, false, false, false),'#013#010+
|
|
|
+ 's','e, false, false, false, false, false, false),'#010+
|
|
|
' { atari } ( false, false, true, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { solaris } ( false, true, false, false, true, false, false, fal'+
|
|
|
- 'se, false, fal','se, false, false, false, false),'#013#010+
|
|
|
+ 'se, fal','se, false, false, false, false, false),'#010+
|
|
|
' { qnx } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { netware } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, ','false, false, false, false),'#013#010+
|
|
|
- ' { openbsd } ( false, true, true, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, fa','lse, false, false, false, false),'#010+
|
|
|
+ ' { openbsd } ( false, true, true, false, false, true, false, fal'+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { wdosx } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, fals','e, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, f','alse, false, false, false),'#010+
|
|
|
' { palmos } ( false, false, true, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { macos } ( false, false, false, true, false, false, false, fal'+
|
|
|
- 'se, false, false, false, f','alse, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, ','false, false, false),'#010+
|
|
|
' { darwin } ( false, true, false, true, false, true, true, tru'+
|
|
|
- 'e, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'e, false, false, false, false, false, false),'#010+
|
|
|
' { emx } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false',', false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false,',' false, false),'#010+
|
|
|
' { watcom } ( false, true, false, false, false ,false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { morphos } ( false, false, false, true, false ,false, false, fal'+
|
|
|
- 'se, false, false, false, false, fa','lse, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false',', false),'#010+
|
|
|
' { netwlibc }( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { win64 } ( false, false, false, false, false, true, false, fal'+
|
|
|
- 'se, false, false, false, false, false,',' false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, fals','e),'#010+
|
|
|
' { wince }( false, true, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
' { gba } ( false, false, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, false, false, fal','se),'#013#010+
|
|
|
- ' { nds } ( false, false, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
+ ' ',' { nds } ( false, false, false, false, false, false, true, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { embedded }( false, true, true, true, true, true, true, tru'+
|
|
|
- 'e, true, true , false, false, false, false),',#013#010+
|
|
|
- ' { symbian } ( false, true, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'e, true, true , false, false, false, false),'#010+
|
|
|
+ ' { sy','mbian } ( false, true, false, false, false, false, true, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { haiku } ( false, true, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, false),'#013#010+
|
|
|
- ' ',' { iphonesim}( false, true, false, false, false, false, false, f'+
|
|
|
- 'alse, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
+ ' { iphonesi','m}( false, true, false, false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { aix } ( false, false, false, true, false, false, false, tru'+
|
|
|
- 'e, false, false, false, false, false, false),'#013#010+
|
|
|
- ' { ','java } ( false, false, false, false, false, false, false, f'+
|
|
|
- 'alse, false, false, false, false, true , false),'#013#010+
|
|
|
+ 'e, false, false, false, false, false, false),'#010+
|
|
|
+ ' { java } ( fa','lse, false, false, false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, true , false),'#010+
|
|
|
' { android } ( false, true, false, false, false, false, true, fal'+
|
|
|
- 'se, false, false, false, true, true , false),'#013#010+
|
|
|
- ' { nati','vent }( false, true, false, false, false, false, false, f'+
|
|
|
- 'alse, false, false, false, false, false, false),'#013#010+
|
|
|
+ 'se, false, false, false, true, true , false),'#010+
|
|
|
+ ' { nativent }( false, t','rue, false, false, false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
' { msdos } ( false, false, false, false, false, false, false, fal'+
|
|
|
- 'se, false, false, false, false, false, true ),'#013#010+
|
|
|
- ' { wii } ',' ( false, false, false, true , false, false, false, f'+
|
|
|
- 'alse, false, false, false, false, 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+
|
|
|
- ' RsjExt = '#039'.rsj'#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+
|
|
|
- ' DbgExt = '#039'.dbg'#039';'#013#010+
|
|
|
- ' ZipExt = '#039'.zip'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' FPMakePPFile = '#039'fpmake.pp'#039';'#013#010+
|
|
|
- ' ManifestFile = '#039'manifest.x','ml'#039';'#013#010+
|
|
|
- ' UnitConfigFile = '#039'fpunits.cfg'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DirNotFound = '#039'<dirnotfound>'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'se, false, false, false, false, false, true ),'#010+
|
|
|
+ ' { wii } ( false, false, ','false, true , false, false, false, f'+
|
|
|
+ 'alse, false, false, false, false, false, false),'#010+
|
|
|
+ ' { aros } ( true, false, false, false, false, false, false, fal'+
|
|
|
+ 'se, false, false, false, false, false, false),'#010+
|
|
|
+ ' { dragonfly}( false, false, false,',' false, false, true, false, fa'+
|
|
|
+ 'lse, false, 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+
|
|
|
+ ' RsjE','xt = '#039'.rsj'#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+
|
|
|
+ ' FpmkExt = '#039'.fpm'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' FPMakePPFile = '#039'fpmake.pp'#039';'#010+
|
|
|
+ ' ManifestFile = '#039'manifest.xml'#039';'#010+
|
|
|
+ ' PkgListFileBase = ',#039'pkg-'#039';'#010+
|
|
|
+ ' PkgListFileExt = '#039'.lst'#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' DirNotFound = '#039'<dirnotfound>'#039';'#010+
|
|
|
+ #010+
|
|
|
' UnitTargets = [ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttExampleUnit];'+
|
|
|
- #013#010+
|
|
|
- ' ProgramTargets = [ttProgram,ttExampleProgram];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DefaultMessages = [vlError,vlWarnin','g,vlCommand];'#013#010+
|
|
|
- ' AllMessages = [vlError,vlWarning,vlCommand,vlInfo];'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
- ' TTargets = Class;'#013#010+
|
|
|
- ' { TNamedItem }'#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+
|
|
|
- ' TNamedCollection = Class(TCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FUniqueNames: Boolean;'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function GetItem(Index: Integer): TNamedIt','em;'#013#010+
|
|
|
- ' procedure SetItem(Index: Integer; AValue: TNamedItem);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function IndexOfName(const AName : String) : Integer;'#013#010+
|
|
|
- ' Function ItemByName(const AName : String) : TNamedItem;'#013#010+
|
|
|
- ' Property UniqueNames : Boolean Read FUniq','ueNames;'#013#010+
|
|
|
- ' property Items[Index: Integer]: TNamedItem read GetItem write SetI'+
|
|
|
- 'tem;'#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+
|
|
|
- ' procedure Set','NamedItem(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+
|
|
|
- ' Property NamedItems[Index : Integer] : TNamedItem R','ead GetNamedI'+
|
|
|
- 'tem Write SetNamedItem; default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCommand }'#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+
|
|
|
- ' Fu','nction HaveOptions : Boolean;'#013#010+
|
|
|
- ' Function CmdLineOptions : String;'#013#010+
|
|
|
- ' Procedure ParseOptions(S : String);'#013#010+
|
|
|
- ' Property SourceFile : String Read FSourceFile Write FSourceFile;'#013+
|
|
|
- #010+
|
|
|
- ' Property DestFile : String Read FDestFile Write FDestFi','le;'#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+
|
|
|
- ' Property IgnoreResult : Boolean Read FI','gnoreResult Write FIgnore'+
|
|
|
- 'Result;'#013#010+
|
|
|
- ' Property BeforeCommand : TNotifyEvent Read FBeforeCommand Write FB'+
|
|
|
- 'eforeCommand;'#013#010+
|
|
|
+ #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+
|
|
|
+ ' propert','y 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: TNamedItem);'#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: Int','eger]: TNamedItem read GetItem 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: TNamed','Item'+
|
|
|
+ ');'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Function IndexOfName(const AName : String) : Integer;'#010+
|
|
|
+ ' Function ItemByName(const ANAme : String) : TNamedItem;'#010+
|
|
|
+ ' Property NamedItems[Index : Integer] : TNamedItem Read GetNamedIte'+
|
|
|
+ 'm Write SetNamedItem; default;'#010+
|
|
|
+ ' end',';'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCommand }'#010+
|
|
|
+ ' TCommand = 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+
|
|
|
+ ' Prope','rty Options : TStrings Read GetOptions Write SetOptions;'#010+
|
|
|
+ ' Property At : TCommandAt Read FCommandAt Write FCommandAt;'#010+
|
|
|
+ ' Property IgnoreResult : Boolean Read FIgnoreResult Write FIgnoreRe'+
|
|
|
+ 'sult;'#010+
|
|
|
+ ' Property BeforeCommand : TNotifyEvent Re','ad FBeforeCommand Write '+
|
|
|
+ 'FBeforeCommand;'#010+
|
|
|
' Property AfterCommand : TNotifyEvent Read FAfterCommand Write FAft'+
|
|
|
- 'erCommand;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCommands }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCommand','s = Class(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FDefaultAt: TCommandAt;'#013#010+
|
|
|
- ' function GetCommand(const Dest : String): TCommand;'#013#010+
|
|
|
- ' function GetCommandItem(Index : Integer): TCommand;'#013#010+
|
|
|
- ' procedure SetCommandItem(Index : Integer; const AValu','e: TCommand'+
|
|
|
- ');'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function AddCommand(Const Cmd : String) : TCommand;'#013#010+
|
|
|
- ' Function AddCommand(Const Cmd,Options : String) : TCommand;'#013#010+
|
|
|
+ 'erCommand;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCommands }'#010+
|
|
|
+ #010+
|
|
|
+ ' TCommands = Class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FDefaultAt: TCommandAt;'#010+
|
|
|
+ ' function GetCo','mmand(const Dest : String): TCommand;'#010+
|
|
|
+ ' function GetCommandItem(Index : Integer): TCommand;'#010+
|
|
|
+ ' procedure SetCommandItem(Index : Integer; const AValue: TCommand);'+
|
|
|
+ #010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function AddCommand(Const Cmd : String) : TCommand;'#010+
|
|
|
+ ' Functi','on AddCommand(Const Cmd,Options : String) : TCommand;'#010+
|
|
|
' Function AddCommand(Const Cmd,Options,Dest,Source : String) : TCom'+
|
|
|
- 'mand;'#013#010+
|
|
|
- ' Function Add','Command(At : TCommandAt; Const Cmd : String) : TComm'+
|
|
|
- 'and;'#013#010+
|
|
|
- ' Function AddCommand(At : TCommandAt; Const Cmd,Options : String) :'+
|
|
|
- ' TCommand;'#013#010+
|
|
|
+ 'mand;'#010+
|
|
|
+ ' Function AddCommand(At : TCommandAt; Const Cmd : String) : TComman'+
|
|
|
+ 'd;'#010+
|
|
|
+ ' Function AddCommand(At : TCommand','At; Const Cmd,Options : String)'+
|
|
|
+ ' : TCommand;'#010+
|
|
|
' Function AddCommand(At : TCommandAt; Const Cmd,Options, Dest,Sourc'+
|
|
|
- 'e : String) : TCommand;'#013#010+
|
|
|
- ' P','roperty CommandItems[Index : Integer] : TCommand Read GetComman'+
|
|
|
- 'dItem 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 A','Value: String);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Procedure Clear;'#013#010+
|
|
|
- ' Procedure Assign(Source : TPersistent); override;'#013#010+
|
|
|
- ' Function CompareVersion(AVersion : TFPVersion) : Integer;'#013#010+
|
|
|
- ' Function SameVersion(AVersion : TFPVersion) : Boolean;'#013#010+
|
|
|
- ' Property AsStr','ing : String Read GetAsString Write SetAsString;'#013+
|
|
|
- #010+
|
|
|
- ' Property Empty : 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 : Int','eger 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 Read 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 T','ConditionalString;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TConditionalStrings }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditionalStrings = Class(TFPList)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FCSClass : TConditionalStringClass;'#013#010+
|
|
|
- ' function GetConditionalString(Index : Integer): TConditionalString'+
|
|
|
- ';'#013#010+
|
|
|
- ' procedure SetConditi','onalString(Index : Integer; const AValue: TC'+
|
|
|
- 'onditionalString);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AClass:TConditionalStringClass);'#013#010+
|
|
|
- ' Function Add(Const Value : String) : TConditionalString;inline;'#013+
|
|
|
- #010+
|
|
|
- ' Function Add(Const Value : String;co','nst OSes:TOSes) : TCondition'+
|
|
|
- 'alString;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ 'e : String) : TCommand;'#010+
|
|
|
+ ' Property CommandItems[Index : Integer] : TCommand Read GetCommandI'+
|
|
|
+ 'tem Write SetCommandItem;'#010+
|
|
|
+ ' Pr','operty Commands[Dest : String] : 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+
|
|
|
+ ' FMic','ro,'#010+
|
|
|
+ ' FBuild : Integer;'#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 Co','mpareVersion(AVersion : TFPVersion) : 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 Ma','jor : 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+
|
|
|
+ ' TCo','nditionalString = 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 FOS','es;'#010+
|
|
|
+ ' Property CPUs : TCPUs 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 GetConditionalString(Index : Integer): TConditionalStri'+
|
|
|
+ 'ng;'#010+
|
|
|
+ ' procedure SetConditionalString(Index : Integer; const AValue: TCon'+
|
|
|
+ 'ditionalString);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AClass:TConditionalStringClass);'#010+
|
|
|
+ ' Function Add(Con','st Value : String) : TConditionalString;inline;'#010+
|
|
|
+ ' Function Add(Const Value : String;const OSes:TOSes) : TConditional'+
|
|
|
+ '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+
|
|
|
- ' Function Add(Const Value : String;const CPUs:T','CPUs;const OSes:TO'+
|
|
|
- 'Ses) : TConditionalString;'#013#010+
|
|
|
+ 'String;in','line;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
|
|
|
+ 's) : TConditionalString;'#010+
|
|
|
' Property ConditionalStrings[Index : Integer] : TConditionalString '+
|
|
|
- 'Read GetConditionalString Write SetConditionalString; default;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TConditionalDestString }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditionalDest','String = Class(TConditionalString)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FDestPath: string;'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' property DestPath: string read FDestPath write FDestPath;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditionalDestStringClass = class of TConditionalDestString;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TConditionalDe','stStrings }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TConditionalDestStrings = Class(TConditionalStrings)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
+ 'Read GetConditionalString Write SetCondit','ionalString; default;'#010+
|
|
|
+ ' end;'#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+
|
|
|
+ ' TConditionalD','estStringClass = class of TConditionalDestString;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TConditionalDestStrings }'#010+
|
|
|
+ #010+
|
|
|
+ ' TConditionalDestStrings = Class(TConditionalStrings)'#010+
|
|
|
+ ' private'#010+
|
|
|
' function GetConditionalString(Index : Integer): TConditionalDestSt'+
|
|
|
- 'ring;'#013#010+
|
|
|
- ' procedure SetConditionalString(Index : Integer; AValue: TCondition'+
|
|
|
- 'alDestStrin','g);'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' Constructor Create(AClass:TConditionalDestStringClass);'#013#010+
|
|
|
+ 'ring;'#010+
|
|
|
+ ' procedure Set','ConditionalString(Index : Integer; AValue: TConditi'+
|
|
|
+ 'onalDestString);'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Constructor Create(AClass:TConditionalDestStringClass);'#010+
|
|
|
' Function Add(Const Value : String; ADestPath: String) : TCondition'+
|
|
|
- 'alDestString;inline;'#013#010+
|
|
|
- ' Function Add(Const Value : String;const OSes:TOSes; ADestPath: Str'+
|
|
|
- 'in','g) : TConditionalDestString;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ '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;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- ' Function Add(Const Value : Strin','g;const CPUs:TCPUs;const OSes:TO'+
|
|
|
- 'Ses; ADestPath: String) : TConditionalDestString;'#013#010+
|
|
|
+ 'ing) : TConditionalDestString;inline;'#010+
|
|
|
+ '{$endif ','cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
|
|
|
+ 's; ADestPath: String) : TConditionalDestString;'#010+
|
|
|
' Property ConditionalStrings[Index : Integer] : TConditionalDestStr'+
|
|
|
- 'ing Read GetConditionalString Write SetConditionalString; default;'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TDict','ionary }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TReplaceFunction = Function (Const AName,Args : String) : String of '+
|
|
|
- 'Object;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TDictionary = Class(TComponent)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FList : TStringList;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(AOwner : TComponent); override;'#013#010+
|
|
|
- ' Destr','uctor Destroy;override;'#013#010+
|
|
|
- ' Procedure AddVariable(const AName,Value : String);'#013#010+
|
|
|
- ' Procedure AddFunction(const AName : String; FReplacement : TReplac'+
|
|
|
- 'eFunction);'#013#010+
|
|
|
- ' Procedure RemoveItem(const AName : String);'#013#010+
|
|
|
- ' Function GetValue(AName',' : String) : String;'#013#010+
|
|
|
- ' Function GetValue(const AName,Args : String) : String; virtual;'#013+
|
|
|
- #010+
|
|
|
- ' Function ReplaceStrings(Const ASource : String) : String; virtual;'+
|
|
|
- #013#010+
|
|
|
+ 'ing Read GetConditionalString Wr','ite SetConditionalString; default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TNotifyEventCollection }'#010+
|
|
|
+ #010+
|
|
|
+ ' TNotifyEventAction = (neaBeforeCompile, neaAfterCompile, neaBeforeIn'+
|
|
|
+ 'stall, neaAfterInstall,'#010+
|
|
|
+ ' neaBeforeClean, neaAfterClean, neaBeforeArchiv'+
|
|
|
+ 'e, ','neaAfterArchive,'#010+
|
|
|
+ ' neaBeforeManifest, neaAfterManifest, neaBefore'+
|
|
|
+ 'PkgList, neaAfterPkgList,'#010+
|
|
|
+ ' neaBeforeCreateBuildEngine, neaAfterCreateBuil'+
|
|
|
+ 'dengine);'#010+
|
|
|
+ #010+
|
|
|
+ ' TNotifyEventActionSet = set of TNotifyEventA','ction;'#010+
|
|
|
+ #010+
|
|
|
+ ' TNotifyEventItem = class(TCollectionItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FOnAction: TNotifyEventAction;'#010+
|
|
|
+ ' FOnEvent: TNotifyEvent;'#010+
|
|
|
+ ' FOnProcEvent: TNotifyProcEvent;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' property OnAction: TNotifyEventAction read FOnAction write FOnActi',
|
|
|
+ 'on;'#010+
|
|
|
+ ' property OnEvent: TNotifyEvent read FOnEvent write FOnEvent;'#010+
|
|
|
+ ' property OnProcEvent: TNotifyProcEvent read FOnProcEvent write FOn'+
|
|
|
+ 'ProcEvent;'#010+
|
|
|
+ ' procedure CallEvent(Sender: TObject);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' TNotifyEventCollection = class(TCollec','tion)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FSupportedActionSet: TNotifyEventActionSet;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' constructor create(ASupportedActionSet: TNotifyEventActionSet);'#010+
|
|
|
+ ' procedure AppendEvent(AnAction: TNotifyEventAction; AnEvent: TNoti'+
|
|
|
+ 'fyEvent);'#010+
|
|
|
+ ' procedure Appen','dProcEvent(AnACtion: TNotifyEventAction; AnProcEv'+
|
|
|
+ 'ent: TNotifyProcEvent);'#010+
|
|
|
+ ' procedure CallEvents(AnAction: TNotifyEventAction; Sender: TObject'+
|
|
|
+ ');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TDictionary }'#010+
|
|
|
+ #010+
|
|
|
+ ' TReplaceFunction = Function (Const AName,Args : String) : String ','o'+
|
|
|
+ 'f Object;'#010+
|
|
|
+ #010+
|
|
|
+ ' TDictionary = Class(TComponent)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FList : TStringList;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' Destructor Destroy;override;'#010+
|
|
|
+ ' Procedure AddVariable(const AName,Value : String);'#010+
|
|
|
+ ' Pro','cedure AddFunction(const AName : String; FReplacement : TRepl'+
|
|
|
+ 'aceFunction);'#010+
|
|
|
+ ' Procedure RemoveItem(const AName : String);'#010+
|
|
|
+ ' Function GetValue(AName : String) : String;'#010+
|
|
|
+ ' Function GetValue(const AName,Args : String) : String; virtual;'#010+
|
|
|
+ ' ',' Function ReplaceStrings(Const ASource : String; Const MaxDepth: '+
|
|
|
+ 'Integer = 10) : String; virtual;'#010+
|
|
|
' Function Substitute(Const Source : String; Macros : Array of strin'+
|
|
|
- 'g) : St','ring; virtual;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackageDictionary }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackageDictionary = Class(TDictionary)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FMasterDictionary: TDictionary;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function GetValue(const AName,Args : String) : String; override;'#013+
|
|
|
- #010+
|
|
|
- ' property Ma','sterDictionary: TDictionary read FMasterDictionary wr'+
|
|
|
- 'ite FMasterDictionary;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- ' { TDependency }'#013#010+
|
|
|
- ' TDependency = Class(TConditionalString)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FDependencyType : TDependencyType;'#013#010+
|
|
|
- ' // Package, Unit'#013#010+
|
|
|
- ' FTarget : TO','bject;'#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 : string);'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Creat','e;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 F','Tar'+
|
|
|
- 'getFileName;'#013#010+
|
|
|
- ' Property Version : String Read GetVersion Write SetVersion;'#013#010+
|
|
|
- ' Property RequireChecksum : Cardinal Read FRequireChecksum Write FR'+
|
|
|
- 'equireChecksum;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackageVariant }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackage = Class;'#013#010+
|
|
|
- ' TPackageVaria','nt = class(TNamedItem)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FOptions: TStrings;'#013#010+
|
|
|
- ' FTargets: TTargets;'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' constructor Create(ACollection: TCollection); override;'#013#010+
|
|
|
- ' destructor Destroy; override;'#013#010+
|
|
|
- ' property Options: TStrings read FOptions;'#013#010+
|
|
|
- ' ',' property Targets: TTargets read FTargets;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackageVariants }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackageVariants = class(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FActivePackageVariantName: string;'#013#010+
|
|
|
- ' FDefaultPackageVariantName: string;'#013#010+
|
|
|
- ' FIsInheritable: b','oolean;'#013#010+
|
|
|
- ' FMasterPackage: TPackage;'#013#010+
|
|
|
- ' FName: string;'#013#010+
|
|
|
- ' function GetActivePackageVariant: TPackageVariant;'#013#010+
|
|
|
- ' function GetDefaultPackageVariant: TPackageVariant;'#013#010+
|
|
|
- ' procedure SetActivePackageVariantName(AValue: string);'#013#010+
|
|
|
- ' pro','cedure SetDefaultPackageVariantName(AValue: string);'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' function Add(AName: String): TPackageVariant; overload; virtual;'#013+
|
|
|
- #010+
|
|
|
- ' property Name: string read FName write FName;'#013#010+
|
|
|
- ' property MasterPackage: TPackage read FMasterPackag','e;'#013#010+
|
|
|
+ 'g) : String; virtual;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageDictionary }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackageDict','ionary = Class(TDictionary)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FMasterDictionary: TDictionary;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Function GetValue(const AName,Args : String) : String; override;'#010+
|
|
|
+ ' property MasterDictionary: TDictionary read FMasterDictionary writ'+
|
|
|
+ 'e FMasterDictionar','y;'#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+
|
|
|
+ ' // Filename','s, Includes'#010+
|
|
|
+ ' FTargetFileName : String;'#010+
|
|
|
+ ' Function GetVersion : string;'#010+
|
|
|
+ ' Procedure SetVersion(const V : string);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create;override;'#010+
|
|
|
+ ' Destructor Destroy;override;'#010+
|
|
|
+ ' Property Target : TObject Read FTarget Wr','ite FTarget;'#010+
|
|
|
+ ' Property DependencyType : TDependencyType Read FDependencyType;'#010+
|
|
|
+ ' Property TargetFileName : String Read FTargetFileName Write FTarge'+
|
|
|
+ 'tFileName;'#010+
|
|
|
+ ' Property Version : String Read GetVersion Write SetVersion;'#010+
|
|
|
+ ' Property R','equireChecksum : Cardinal Read FRequireChecksum Write '+
|
|
|
+ 'FRequireChecksum;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageVariant }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackage = Class;'#010+
|
|
|
+ ' TPackageVariant = class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FTargets: TTargets;'#010+
|
|
|
+ ' FIncludePath: TCo','nditionalStrings;'#010+
|
|
|
+ ' FSourcePath: TConditionalStrings;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' constructor Create(ACollection: TCollection); override;'#010+
|
|
|
+ ' destructor Destroy; override;'#010+
|
|
|
+ ' property Options: TStrings read FOptions;'#010+
|
|
|
+ ' Property IncludePath : TConditi','onalStrings Read FIncludePath;'#010+
|
|
|
+ ' Property SourcePath : TConditionalStrings Read FSourcePath;'#010+
|
|
|
+ ' property Targets: TTargets read FTargets;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackageVariants }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackageVariants = class(TNamedCollection)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FActiveP','ackageVariantName: string;'#010+
|
|
|
+ ' FDefaultPackageVariantName: string;'#010+
|
|
|
+ ' FIsInheritable: boolean;'#010+
|
|
|
+ ' FMasterPackage: TPackage;'#010+
|
|
|
+ ' FName: string;'#010+
|
|
|
+ ' function GetActivePackageVariant: TPackageVariant;'#010+
|
|
|
+ ' function GetDefaultPackageVariant: T','PackageVariant;'#010+
|
|
|
+ ' procedure SetActivePackageVariantName(AValue: string);'#010+
|
|
|
+ ' procedure SetDefaultPackageVariantName(AValue: string);'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' function Add(AName: String): TPackageVariant; overload; virtual;'#010+
|
|
|
+ ' property Name: string r','ead FName write FName;'#010+
|
|
|
+ ' property MasterPackage: TPackage read FMasterPackage;'#010+
|
|
|
' property DefaultPackageVariant: TPackageVariant read GetDefaultPac'+
|
|
|
- 'kageVariant;'#013#010+
|
|
|
+ 'kageVariant;'#010+
|
|
|
' property ActivePackageVariant: TPackageVariant read GetActivePacka'+
|
|
|
- 'geVariant;'#013#010+
|
|
|
- ' property DefaultPackageVariantName: string read FDefaultPackageVar',
|
|
|
- 'iantName write SetDefaultPackageVariantName;'#013#010+
|
|
|
+ 'geVari','ant;'#010+
|
|
|
+ ' property DefaultPackageVariantName: string read FDefaultPackageVar'+
|
|
|
+ 'iantName write SetDefaultPackageVariantName;'#010+
|
|
|
' property ActivePackageVariantName: string read FActivePackageVaria'+
|
|
|
- 'ntName write SetActivePackageVariantName;'#013#010+
|
|
|
- ' property IsInheritable: boolean read FIsInheritable;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- ' TDependen','cies = Class(TConditionalStrings)'#013#010+
|
|
|
- ' function GetDependency(Index : Integer): TDependency;'#013#010+
|
|
|
+ 'ntName write SetActivePackageVariantName;'#010+
|
|
|
+ ' prop','erty IsInheritable: boolean read FIsInheritable;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' TDependencies = Class(TConditionalStrings)'#010+
|
|
|
+ ' function GetDependency(Index : Integer): TDependency;'#010+
|
|
|
' procedure SetDependency(Index : Integer; const AValue: TDependency'+
|
|
|
- ');'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Function Add(Const Value : String) : TDependency;inline;'#013#010,
|
|
|
+ ');'#010+
|
|
|
+ ' Publ','ic'#010+
|
|
|
+ ' Function Add(Const Value : String) : TDependency;inline;'#010+
|
|
|
' Function Add(Const Value : String;const OSes:TOSes) : TDependency;'+
|
|
|
- 'inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- ' Function Add(Const Value : String;const CPUs:TCPUs) : TDependency;'+
|
|
|
- 'inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- ' Function Add(Const V','alue : String;const CPUs:TCPUs;const OSes:TO'+
|
|
|
- 'Ses) : TDependency;'#013#010+
|
|
|
- ' Function AddUnit(Const Value : String) : TDependency;inline;'#013#010+
|
|
|
- ' Function AddUnit(Const Value : String;const OSes:TOSes) : TDepende'+
|
|
|
- 'ncy;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads','}'#013#010+
|
|
|
+ 'inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs) : TDependency;',
|
|
|
+ 'inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
|
|
|
+ 's) : TDependency;'#010+
|
|
|
+ ' Function AddUnit(Const Value : String) : TDependency;inline;'#010+
|
|
|
+ ' Function AddUnit(Const Value : String;const OSe','s:TOSes) : TDepen'+
|
|
|
+ 'dency;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function AddUnit(Const Value : String;const CPUs:TCPUs) : TDepende'+
|
|
|
- 'ncy;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'ncy;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddUnit(Const Value : String;const CPUs:TCPUs;const OSes:'+
|
|
|
- 'TOSes) : TDependency;'#013#010+
|
|
|
- ' Function AddInclude(Const Va','lue : String) : TDependency;inline;'#013+
|
|
|
- #010+
|
|
|
+ 'T','OSes) : TDependency;'#010+
|
|
|
+ ' Function AddInclude(Const Value : String) : TDependency;inline;'#010+
|
|
|
' Function AddInclude(Const Value : String;const OSes:TOSes) : TDepe'+
|
|
|
- 'ndency;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
- ' Function AddInclude(Const Value : String;const CPUs:TCPUs) : TDepe'+
|
|
|
- 'ndency;inline;'#013#010+
|
|
|
- '{$','endif cpu_only_overloads}'#013#010+
|
|
|
+ 'ndency;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function AddInclude(Const Value : ','String;const CPUs:TCPUs) : TDe'+
|
|
|
+ 'pendency;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddInclude(Const Value : String;const CPUs:TCPUs;const OS'+
|
|
|
- 'es:TOSes) : TDependency;'#013#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 GetOpt','ions: TStrings;'#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(AOS: TOS): String; virtual;',#013#010+
|
|
|
- ' Function GetObjectFileName : String; virtual;'#013#010+
|
|
|
- ' function GetRSTFileName : String; Virtual;'#013#010+
|
|
|
- ' function GetRSJFileName : String; Virtual;'#013#010+
|
|
|
- ' function GetImportLibFileName(AOS : TOS) : String; Virtual;'#013#010+
|
|
|
- ' Function GetProgramFil','eName(AOS : TOS) : String; Virtual;'#013#010+
|
|
|
- ' Function GetProgramDebugFileName(AOS : TOS) : String; Virtual;'#013+
|
|
|
- #010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Constructor Create(ACollection : TCollection); override;'#013#010+
|
|
|
- ' Destructor Destroy; override;'#013#010+
|
|
|
- ' procedure AssignTo(Dest:',' TPersistent); override;'#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(List : TStrings; const APrefixU, APrefix'+
|
|
|
- 'B : String; ACPU:TCPU; AOS : TOS); virtual;'#013#010+
|
|
|
+ 'es:TOSes) : TDependency;'#010+
|
|
|
+ ' Property Dependencies[Index : Integer] : TDependency Read GetDepen',
|
|
|
+ 'dency Write SetDependency; default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TTarget }'#010+
|
|
|
+ #010+
|
|
|
+ ' TTarget = Class(TNamedItem)'#010+
|
|
|
+ ' private'#010+
|
|
|
+ ' FInstall : Boolean;'#010+
|
|
|
+ ' FAfterClean: TNotifyEvent;'#010+
|
|
|
+ ' FAfterCompile: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeClean: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCompile: T','NotifyEvent;'#010+
|
|
|
+ ' FCPUs: TCPUs;'#010+
|
|
|
+ ' FOSes: TOSes;'#010+
|
|
|
+ ' FMode: TCompilerMode;'#010+
|
|
|
+ ' FResourceStrings: Boolean;'#010+
|
|
|
+ ' FObjectPath,'#010+
|
|
|
+ ' FUnitPath,'#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(AOS: TOS): Stri','ng; virtual;'#010+
|
|
|
+ ' Function GetObjectFileName : String; virtual;'#010+
|
|
|
+ ' function GetRSTFileName : String; Virtual;'#010+
|
|
|
+ ' function GetRSJFileName : String; Virtual;'#010+
|
|
|
+ ' function GetImportLibFileName(AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function GetPro','gramFileName(AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function GetProgramDebugFileName(AOS : TOS) : String; Virtual;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(ACollection : TCollection); override;'#010+
|
|
|
+ ' Destructor Destroy; override;'#010+
|
|
|
+ ' procedure AssignTo(Des','t: TPersistent); override;'#010+
|
|
|
+ ' Function GetOutputFileName (AOs : TOS) : String; Virtual;'#010+
|
|
|
+ ' Function HaveOptions : Boolean;'#010+
|
|
|
+ ' procedure SetName(const AValue: String);override;'#010+
|
|
|
+ ' procedure SetXML(const AValue: string);'#010+
|
|
|
+ ' Procedure Ge','tCleanFiles(List : TStrings; const APrefixU, APrefix'+
|
|
|
+ 'B : String; ACPU:TCPU; AOS : TOS); virtual;'#010+
|
|
|
' Procedure GetInstallFiles(List : TStrings; const APrefixU, APrefix'+
|
|
|
- 'B: String; ACPU:TCPU; AOS : TOS); virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveFi','les(List : TStrings; 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 Targe','tType : TTargetType 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 GetOptions Write SetOptions;'#013+
|
|
|
- #010+
|
|
|
- ' Property SourceFileName: String Read GetSourceFileName ;'#013#010+
|
|
|
- ' Property UnitFileName : String Read GetUnitFileName;'#013#010+
|
|
|
- ' Property ObjectFileName : String Read GetObjectFileName;'#013#010+
|
|
|
- ' Property ','RSTFileName : String Read GetRSTFileName;'#013#010+
|
|
|
- ' Property RSJFileName : String Read GetRSJFileName;'#013#010+
|
|
|
- ' Property FPCTarget : String Read FFPCTarget Write FFPCTarget;'#013#010+
|
|
|
- ' Property Extension : String Read FExtension Write FExtension;'#013#010+
|
|
|
- ' Pro','perty FileType : TFileType Read FFileType Write FFileType;'#013+
|
|
|
- #010+
|
|
|
- ' Property Directory : String Read FDirectory Write FDirectory;'#013#010+
|
|
|
+ 'B: String; ACPU:TCPU; AOS : TOS); virtual;'#010+
|
|
|
+ ' Procedure GetArchiveFiles(L','ist : TStrings; ACPU:TCPU; AOS : TOS)'+
|
|
|
+ '; virtual;'#010+
|
|
|
+ ' Property Dependencies : TDependencies Read FDependencies;'#010+
|
|
|
+ ' Property Commands : TCommands Read FCommands;'#010+
|
|
|
+ ' Property State : TTargetState Read FTargetState;'#010+
|
|
|
+ ' Property TargetType : T','TargetType Read FTargetType Write FTarget'+
|
|
|
+ 'Type;'#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 Rea','d GetOptions Write SetOptions;'#010+
|
|
|
+ ' Property SourceFileName: String Read GetSourceFileName ;'#010+
|
|
|
+ ' Property UnitFileName : String Read GetUnitFileName;'#010+
|
|
|
+ ' Property ObjectFileName : String Read GetObjectFileName;'#010+
|
|
|
+ ' Property RSTFileName : Str','ing Read GetRSTFileName;'#010+
|
|
|
+ ' Property RSJFileName : String Read GetRSJFileName;'#010+
|
|
|
+ ' Property FPCTarget : String Read FFPCTarget Write FFPCTarget;'#010+
|
|
|
+ ' Property Extension : String Read FExtension Write FExtension;'#010+
|
|
|
+ ' Property FileType : TFil','eType Read FFileType Write FFileType;'#010+
|
|
|
+ ' Property Directory : String Read FDirectory Write FDirectory;'#010+
|
|
|
' Property ResourceStrings : Boolean Read FResourceStrings Write FRe'+
|
|
|
- 'sourceStrings;'#013#010+
|
|
|
- ' Property Install : Bool','ean Read FInstall Write FInstall;'#013#010+
|
|
|
- ' Property TargetSourceFileName: String Read FTargetSourceFileName;'#013+
|
|
|
- #010+
|
|
|
- ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#013#010+
|
|
|
- ' Property UnitPath : TConditionalStrings Read FUnitPath;'#013#010+
|
|
|
- ' Prop','erty IncludePath : TConditionalStrings Read FIncludePath;'#013+
|
|
|
- #010+
|
|
|
- ' Property XML: string Read FXML Write SetXML;'#013#010+
|
|
|
- ' // Events.'#013#010+
|
|
|
+ 'sourceStrings;'#010+
|
|
|
+ ' Property Install : Boolean Read FInstall Write ','FInstall;'#010+
|
|
|
+ ' Property TargetSourceFileName: String Read FTargetSourceFileName;'#010+
|
|
|
+ ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#010+
|
|
|
+ ' Property UnitPath : TConditionalStrings Read FUnitPath;'#010+
|
|
|
+ ' Property IncludePath : TConditio','nalStrings 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 : TN','otifyEvent Read FAfterCompile Write FA'+
|
|
|
- 'fterCompile;'#013#010+
|
|
|
+ 'eforeCompile;'#010+
|
|
|
+ ' Property AfterCompile : TNotifyEvent Read FAfterCompile Wr','ite 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+
|
|
|
- ' TTa','rgets = Class(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+
|
|
|
- ' F','unction AddFPDoc(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+
|
|
|
+ ' priva','te'#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;'+
|
|
|
+ 'inline;'#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_ov','erloads}'#013#010+
|
|
|
- ' Function AddUnit(Const AUnitName : String;const CPUs:TCPUs) : TTar'+
|
|
|
- 'get;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'get;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function AddUnit(Const AUnitName : ','String;const CPUs:TCPUs) : TT'+
|
|
|
+ 'arget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddUnit(Const AUnitName : String;const CPUs:TCPUs;const O'+
|
|
|
- 'Ses:TOSes) : TTarget;'#013#010+
|
|
|
- ' Function AddImplicitU','nit(Const AUnitName : String;InstallUnit:bo'+
|
|
|
- 'olean=true) : TTarget;inline;'#013#010+
|
|
|
+ 'Ses:TOSes) : TTarget;'#010+
|
|
|
+ ' Function AddImplicitUnit(Const AUnitName : String;InstallUnit:bool'+
|
|
|
+ 'ean=tru','e) : TTarget;inline;'#010+
|
|
|
' Function AddImplicitUnit(Const AUnitName : String;const OSes:TOSes'+
|
|
|
- ';InstallUnit:boolean=true) : TTarget;inline;'#013#010+
|
|
|
- ' Function AddImplicitUnit(Const AUnitName : Str','ing;const CPUs:TCP'+
|
|
|
- 'Us;InstallUnit:boolean=true) : TTarget;inline;'#013#010+
|
|
|
+ ';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 : Str','ing) : TTarget;inlin'+
|
|
|
- 'e;'#013#010+
|
|
|
- ' Function AddProgram(Const AProgramName : String;const OSes:TOSes) '+
|
|
|
- ': TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ';InstallUnit:boolean=true) : TTarg','et;inline;'#010+
|
|
|
+ ' Function AddImplicitUnit(Const AUnitName : String;const CPUs:TCPUs'+
|
|
|
+ ';const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#010+
|
|
|
+ ' Function AddProgram(Const AProgramName : String) : TTarget;inline;'+
|
|
|
+ #010+
|
|
|
+ ' Function AddProgram(Const APr','ogramName : String;const OSes:TOSes'+
|
|
|
+ ') : TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
' Function AddProgram(Const AProgramName : String;const CPUs:TCPUs) '+
|
|
|
- ': TTarget;inline;'#013#010+
|
|
|
- '{$endif c','pu_only_overloads}'#013#010+
|
|
|
- ' Function AddProgram(Const AProgramName : String;const CPUs:TCPUs;c'+
|
|
|
- 'onst OSes:TOSes) : TTarget;'#013#010+
|
|
|
+ ': TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function AddProgram(Const AProgramNam','e : String;const CPUs:TCPUs'+
|
|
|
+ ';const OSes:TOSes) : TTarget;'#010+
|
|
|
' Function AddExampleUnit(Const AUnitName : String) : TTarget;inline'+
|
|
|
- ';'#013#010+
|
|
|
- ' Function AddExampleUnit(Const AUnitName : St','ring;const OSes:TOSe'+
|
|
|
- 's) : TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' Function AddExampleUnit(Const AUnitName : String;const OSes:TOSes)'+
|
|
|
+ ' : TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overl','oads}'#010+
|
|
|
' Function AddExampleUnit(Const AUnitName : String;const CPUs:TCPUs)'+
|
|
|
- ' : TTarget;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- ' Function AddExampleUnit(Const AUnitName : Stri','ng;const CPUs:TCPU'+
|
|
|
- 's;const OSes:TOSes) : TTarget;'#013#010+
|
|
|
- ' Function AddExampleProgram(Const AProgramName : String) : TTarget;'+
|
|
|
- 'inline;'#013#010+
|
|
|
+ ' : TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ ' Function AddExampleUnit(Const AUnitName : String;const CPUs:TCPUs;'+
|
|
|
+ 'const OSes:TOSes) : TTarget;'#010+
|
|
|
+ ' Function AddEx','ampleProgram(Const AProgramName : String) : TTarge'+
|
|
|
+ 't;inline;'#010+
|
|
|
' Function AddExampleProgram(Const AProgramName : String;const OSes:'+
|
|
|
- 'TOSes) : TTarget;inline;'#013#010+
|
|
|
- '{$ifdef cpu_onl','y_overloads}'#013#010+
|
|
|
- ' Function AddExampleProgram(Const AProgramName : String;const CPUs:'+
|
|
|
- 'TCPUs) : TTarget;inline;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
+ 'TOSes) : TTarget;inline;'#010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ ' Function AddExampleProgram(Const AProgramName : Strin','g;const CPU'+
|
|
|
+ 's:TCPUs) : TTarget;inline;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
' Function AddExampleProgram(Const AProgramName : String;const CPUs:'+
|
|
|
- 'TCPUs;const OSes:TOSes) : TTarg','et;'#013#010+
|
|
|
- ' Property Targets[AName : String] : TTarget Read GetTarget; default'+
|
|
|
- ';'#013#010+
|
|
|
+ 'TCPUs;const OSes:TOSes) : TTarget;'#010+
|
|
|
+ ' Property Targets[AName : String] : TTarget Read GetTarget; defaul',
|
|
|
+ 't;'#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,
|
|
|
- ' FSourceType : 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 GetInstal','lFiles(List : 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; AInstallSo','urcePath : 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 : TSourceType;'#010+
|
|
|
+ ' FInstallSourcePath : string;'#010+
|
|
|
+ ' function GetIn','stallSourcePath: string;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(ACollection : TCollection); override;'#010+
|
|
|
+ ' Destructor Destroy; override;'#010+
|
|
|
+ ' Procedure GetInstallFiles(List : TStrings); virtual;'#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; c','onst AValue: TSource);'+
|
|
|
+ #010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Function AddDoc(const AFiles : String) : TSource;'#010+
|
|
|
+ ' Function AddDoc(const AFiles : String; AInstallSourcePath : String'+
|
|
|
+ ') : TSource;'#010+
|
|
|
+ ' Function AddSrc(const AFiles : String) : TSource;'#010+
|
|
|
+ ' Function AddE','xample(const AFiles : String) : TSource;'#010+
|
|
|
' Function AddExample(const AFiles : String; AInstallSourcePath : St'+
|
|
|
- 'ring) : TSource;'#013#010+
|
|
|
- ' Fun','ction AddTest(const AFiles : String) : TSource;'#013#010+
|
|
|
- ' procedure AddDocFiles(const AFileMask: string; Recursive: boolean '+
|
|
|
- '= False; AInstallSourcePath : String = '#039#039');'#013#010+
|
|
|
+ 'ring) : TSource;'#010+
|
|
|
+ ' Function AddTest(const AFiles : String) : TSource;'#010+
|
|
|
+ ' procedure AddDocFiles(const AFileMask: string; Recurs','ive: boolea'+
|
|
|
+ 'n = False; AInstallSourcePath : String = '#039#039');'#010+
|
|
|
' procedure AddSrcFiles(const AFileMask: string; Recursive: boolean '+
|
|
|
- '= Fals','e);'#013#010+
|
|
|
+ '= False);'#010+
|
|
|
' procedure AddExampleFiles(const AFileMask: string; Recursive: bool'+
|
|
|
- 'ean = False; AInstallSourcePath : String = '#039#039');'#013#010+
|
|
|
+ 'ean = False; AInstallSourcePath :',' String = '#039#039');'#010+
|
|
|
' procedure AddTestFiles(const AFileMask: string; Recursive: boolean'+
|
|
|
- ' = False);'#013#010+
|
|
|
- ' Property SourceItems[Index : I','nteger] : 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: TNotifyEv','ent;'#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+
|
|
|
- ' FAf','terManifestProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeArchive: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeArchiveProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeClean: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCleanProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeCompil','eProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeInstallProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBeforeManifest: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeManifestProc: TNotifyProcEvent;'#013#010+
|
|
|
- ' FBuildMode: TBuildMode;'#013#010+
|
|
|
- ' FFlags: TStrings;'#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 : TConditionalStri','ngs;'#013#010+
|
|
|
- ' FInstallFiles : TConditionalDestStrings;'#013#010+
|
|
|
- ' FDependencies : 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+
|
|
|
- ' FO','ptions: TStrings;'#013#010+
|
|
|
- ' FFileName: String;'#013#010+
|
|
|
- ' FAuthor: String;'#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 : TComman','ds;'#013#010+
|
|
|
- ' FDescriptionFile : String;'#013#010+
|
|
|
- ' FDescription : String;'#013#010+
|
|
|
- ' FInstalledChecksum : Cardinal;'#013#010+
|
|
|
- ' FUnitsOutputDir: String;'#013#010+
|
|
|
- ' FPackageUnitInstallDir: String;'#013#010+
|
|
|
- ' // Cached directory of installed packages'#013#010+
|
|
|
- ' FUnitDir : String;'#013#010+
|
|
|
- ' ',' // Used by buildunits'#013#010+
|
|
|
- ' FBUTargets: TTargets;'#013#010+
|
|
|
- ' FBUTarget: TTarget;'#013#010+
|
|
|
- ' // Used to identify if package is being processed by a thread'#013#010+
|
|
|
- ' FProcessing : boolean;'#013#010+
|
|
|
- ' // Dictionary'#013#010+
|
|
|
- ' FDictionary : TDictionary;'#013#010+
|
|
|
- ' // Is set wh','en all sourcefiles are found'#013#010+
|
|
|
- ' FAllFilesResolved: boolean;'#013#010+
|
|
|
- ' FPackageVariants: TFPList;'#013#010+
|
|
|
- ' Function GetDescription : string;'#013#010+
|
|
|
- ' function GetDictionary: TDictionary;'#013#010+
|
|
|
- ' Function GetFileName : string;'#013#010+
|
|
|
- ' function GetOptions: TSt','rings;'#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+
|
|
|
- ' procedure SaveUnitConfigToStr','ingList(Const AStringList: TStrings'+
|
|
|
- ';ACPU:TCPU;AOS:TOS); virtual;'#013#010+
|
|
|
- ' property Dictionary: TDictionary read GetDictionary;'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' constructor Create(ACollection: TCollection); override;'#013#010+
|
|
|
- ' destructor destroy; override;'#013#010+
|
|
|
- ' Functi','on HaveOptions : Boolean;'#013#010+
|
|
|
- ' Function GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#013#010+
|
|
|
- ' Function GetUnitConfigOutputDir(ACPU:TCPU; AOS : TOS):String;'#013+
|
|
|
- #010+
|
|
|
- ' Procedure InheritPackageVariantsFromDependency(ADependencyPackage:'+
|
|
|
- ' TPackage);'#013,#010+
|
|
|
+ ' = False);'#010+
|
|
|
+ ' Property SourceItems[Index : Integer] : TSource Read GetSourceItem'+
|
|
|
+ ' Write SetSourceItem;default;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TPackage }'#010+
|
|
|
+ #010+
|
|
|
+ ' TPackage = Class(T','NamedItem)'#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+
|
|
|
+ ' FAfterPkgList: TNotifyEvent;'#010+
|
|
|
+ ' FAfterPkgListProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeArchiv','e: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeArchiveProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeClean: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCleanProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeCompile: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeCompileProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeInstall: TNotifyEvent;',#010+
|
|
|
+ ' FBeforeInstallProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforeManifest: TNotifyEvent;'#010+
|
|
|
+ ' FBeforeManifestProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBeforePkgList: TNotifyEvent;'#010+
|
|
|
+ ' FBeforePkgListProc: TNotifyProcEvent;'#010+
|
|
|
+ ' FBuildMode: TBuildMode;'#010+
|
|
|
+ ' FFlags: TSt','rings;'#010+
|
|
|
+ ' FFPDocFormat: TFPDocFormats;'#010+
|
|
|
+ ' FIsFPMakeAddIn: boolean;'#010+
|
|
|
+ ' FSupportBuildModes: TBuildModes;'#010+
|
|
|
+ ' FUnitPath,'#010+
|
|
|
+ ' FObjectPath,'#010+
|
|
|
+ ' FIncludePath,'#010+
|
|
|
+ ' FSourcePath,'#010+
|
|
|
+ ' FExamplePath,'#010+
|
|
|
+ ' FTestPath,'#010+
|
|
|
+ ' FCleanFiles : TConditionalSt','rings;'#010+
|
|
|
+ ' FInstallFiles : TConditionalDestStrings;'#010+
|
|
|
+ ' FDependencies : TDependencies;'#010+
|
|
|
+ ' FCPUs: TCPUs;'#010+
|
|
|
+ ' FOSes: TOSes;'#010+
|
|
|
+ ' FTargetState: TTargetState;'#010+
|
|
|
+ ' FTargets: TTargets;'#010+
|
|
|
+ ' FSources: TSources;'#010+
|
|
|
+ ' FDirectory: String;'#010+
|
|
|
+ ' FOptions:',' TStrings;'#010+
|
|
|
+ ' FFileName: String;'#010+
|
|
|
+ ' FShortName: 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+
|
|
|
+ ' FUnitsOutputDir: String;'#010+
|
|
|
+ ' FPackageUnitInstallDir: String;'#010+
|
|
|
+ ' // Cached directory of installed packages'#010+
|
|
|
+ ' FUnitDir : String;'#010+
|
|
|
+ ' ',' FUnitConfigFileName : String;'#010+
|
|
|
+ ' // Used by buildunits'#010+
|
|
|
+ ' FBUTargets: TTargets;'#010+
|
|
|
+ ' FBUTarget: TTarget;'#010+
|
|
|
+ ' // Used to identify if package is being processed by a thread'#010+
|
|
|
+ ' FProcessing : boolean;'#010+
|
|
|
+ ' // Dictionary'#010+
|
|
|
+ ' FDictionary : TD','ictionary;'#010+
|
|
|
+ ' // Is set when all sourcefiles are found'#010+
|
|
|
+ ' FAllFilesResolved: boolean;'#010+
|
|
|
+ ' FPackageVariants: TFPList;'#010+
|
|
|
+ ' Function GetDescription : string;'#010+
|
|
|
+ ' function GetDictionary: TDictionary;'#010+
|
|
|
+ ' Function GetFileName : string;'#010+
|
|
|
+ ' Fun','ction GetShortName : string;'#010+
|
|
|
+ ' function GetOptions: TStrings;'#010+
|
|
|
+ ' Function GetVersion : string;'#010+
|
|
|
+ ' procedure SetOptions(const AValue: TStrings);'#010+
|
|
|
+ ' Procedure SetVersion(const V : string);'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' procedure SetName(const AValue: ','String);override;'#010+
|
|
|
+ ' procedure SaveUnitConfigToStringList(Const AStringList: TStrings;A'+
|
|
|
+ 'CPU:TCPU;AOS:TOS); virtual;'#010+
|
|
|
+ ' property Dictionary: TDictionary read GetDictionary;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' constructor Create(ACollection: TCollection); override',';'#010+
|
|
|
+ ' destructor destroy; override;'#010+
|
|
|
+ ' Function HaveOptions : Boolean;'#010+
|
|
|
+ ' Function GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):String;'#010+
|
|
|
+ ' Function GetUnitConfigOutputFilename(ACPU:TCPU; AOS : TOS):String'+
|
|
|
+ ';'#010+
|
|
|
+ ' Procedure InheritPackageVarian','tsFromDependency(ADependencyPackag'+
|
|
|
+ 'e: TPackage);'#010+
|
|
|
' Function GetPackageVariantsByName(AName: string): TPackageVariant'+
|
|
|
- 's;'#013#010+
|
|
|
- ' Procedure SetUnitsOutputDir(AValue: string);'#013#010+
|
|
|
- ' Function GetPackageUnitInstallDir(ACPU:TCPU; AOS : TOS):String;'#013+
|
|
|
- #010+
|
|
|
- ' Procedure SetPackageUnitInstallDir(AValue',': string);'#013#010+
|
|
|
- ' Function GetBinOutputDir(ACPU:TCPU; AOS : TOS) : String;'#013#010+
|
|
|
+ 's;'#010+
|
|
|
+ ' Procedure SetUnitsOutputDir(AValue: string);'#010+
|
|
|
+ ' Function GetPackageUnitInstallDir(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+
|
|
|
- ' procedure GetInstallFiles(List: TStrings;Types : TTargetTypes;ACPU'+
|
|
|
- ':TCPU; AOS : TOS)','; virtual;'#013#010+
|
|
|
+ 'rtual;'#010+
|
|
|
+ ' procedure GetInstallFiles(List: TStrings;T','ypes : TTargetTypes;AC'+
|
|
|
+ 'PU:TCPU; AOS : TOS); virtual;'#010+
|
|
|
' procedure GetInstallSourceFiles(List: TStrings; SourceTypes : TSou'+
|
|
|
- 'rceTypes; TargetTypes : TTargetTypes); virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); '+
|
|
|
- 'virtual;'#013#010+
|
|
|
- ' Procedure GetArchiveSourc','eFiles(List : TStrings); virtual;'#013#010+
|
|
|
- ' Procedure GetManifest(Manifest : TStrings);'#013#010+
|
|
|
- ' Procedure AddPackageVariant(APackageVariant: TPackageVariants);'#013+
|
|
|
- #010+
|
|
|
- ' procedure ApplyPackageVariantToCompilerOptions(ACompilerOptions: t'+
|
|
|
- 'strings);'#013#010+
|
|
|
- ' pr','ocedure SetDefaultPackageVariant;'#013#010+
|
|
|
- ' procedure LoadUnitConfigFromFile(Const AFileName: String);'#013#010+
|
|
|
- ' procedure SaveUnitConfigToFile(Const AFileName: String;ACPU:TCPU;A'+
|
|
|
- 'OS:TOS);'#013#010+
|
|
|
- ' Property Version : String Read GetVersion Write SetVersio','n;'#013#010+
|
|
|
- ' Property FileName : String Read GetFileName Write FFileName;'#013#010+
|
|
|
- ' Property HomepageURL : String Read FHomepageURL Write FHomepageURL'+
|
|
|
- ';'#013#010+
|
|
|
+ 'rceTypes; TargetTypes : TTargetTypes); virtual;'#010+
|
|
|
+ ' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); ',
|
|
|
+ 'virtual;'#010+
|
|
|
+ ' Procedure GetArchiveSourceFiles(List : TStrings); virtual;'#010+
|
|
|
+ ' Procedure GetManifest(Manifest : TStrings);'#010+
|
|
|
+ ' Procedure ListPackage(PkgList : TStrings);'#010+
|
|
|
+ ' Procedure AddPackageVariant(APackageVariant: TPackageVariants);'#010+
|
|
|
+ ' p','rocedure ApplyPackageVariantToCompilerOptions(ACompilerOptions:'+
|
|
|
+ ' tstrings);'#010+
|
|
|
+ ' procedure SetDefaultPackageVariant;'#010+
|
|
|
+ ' procedure LoadUnitConfigFromFile(Const AFileName: String);'#010+
|
|
|
+ ' procedure SaveUnitConfigToFile(Const AFileName: String;ACP','U:TCPU'+
|
|
|
+ ';AOS:TOS);'#010+
|
|
|
+ ' Property Version : String Read GetVersion Write SetVersion;'#010+
|
|
|
+ ' Property FileName : String Read GetFileName Write FFileName;'#010+
|
|
|
+ ' Property ShortName : String Read GetShortName Write FShortName;'#010+
|
|
|
+ ' Property HomepageURL :',' String Read FHomepageURL Write FHomepageU'+
|
|
|
+ 'RL;'#010+
|
|
|
' Property DownloadURL : String Read FDownloadURL Write FDownloadURL'+
|
|
|
- ';'#013#010+
|
|
|
- ' Property Email : Str','ing Read FEmail Write FEmail;'#013#010+
|
|
|
- ' Property Author : String Read FAuthor Write FAuthor;'#013#010+
|
|
|
- ' Property License : String Read FLicense Write FLicense;'#013#010+
|
|
|
- ' Property Directory : String Read FDirectory Write FDirectory;'#013#010+
|
|
|
- ' Property Descriptio','n : String Read GetDescription Write FDescrip'+
|
|
|
- 'tion;'#013#010+
|
|
|
- ' Property DescriptionFile : String Read FDescriptionFile Write FDes'+
|
|
|
- 'criptionFile;'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' Property Email : String Read FEmail Write FEmail;'#010+
|
|
|
+ ' Property Author : String Read FAuthor Write FAuthor;'#010+
|
|
|
+ ' Propert','y License : String Read FLicense Write FLicense;'#010+
|
|
|
+ ' Property Directory : String Read FDirectory Write FDirectory;'#010+
|
|
|
+ ' Property Description : String Read GetDescription Write FDescripti'+
|
|
|
+ 'on;'#010+
|
|
|
+ ' Property DescriptionFile : String Read FDescrip','tionFile Write FD'+
|
|
|
+ 'escriptionFile;'#010+
|
|
|
' Property InstalledChecksum : Cardinal Read FInstalledChecksum Writ'+
|
|
|
- 'e FInstalledChecksum;'#013#010+
|
|
|
- ' Proper','ty IsFPMakeAddIn: boolean read FIsFPMakeAddIn write FIsFPM'+
|
|
|
- 'akeAddIn;'#013#010+
|
|
|
- ' Property SupportBuildModes: TBuildModes read FSupportBuildModes wr'+
|
|
|
- 'ite FSupportBuildModes;'#013#010+
|
|
|
- ' Property BuildMode: TBuildMode read FBuildMode;'#013#010+
|
|
|
- ' Property Flags: TSt','rings read FFlags;'#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 FNeedLibC Write FNeedLibC;'#013#010+
|
|
|
- ' Property Options: TStri','ngs Read GetOptions Write SetOptions;'#013+
|
|
|
- #010+
|
|
|
- ' Property UnitPath : TConditionalStrings Read FUnitPath;'#013#010+
|
|
|
- ' Property ObjectPath : TConditionalStrings Read FObjectPath;'#013#010+
|
|
|
- ' Property IncludePath : TConditionalStrings Read FIncludePath;'#013#010+
|
|
|
- ' Prop','erty SourcePath : TConditionalStrings Read FSourcePath;'#013#010+
|
|
|
- ' Property ExamplePath : TConditionalStrings Read FExamplePath;'#013#010+
|
|
|
- ' Property TestPath : TConditionalStrings Read FTestPath;'#013#010+
|
|
|
- ' Property FPDocFormat: TFPDocFormats read FFPDocForm','at write FFPD'+
|
|
|
- 'ocFormat;'#013#010+
|
|
|
- ' // Targets and dependencies'#013#010+
|
|
|
- ' Property InstallFiles : TConditionalDestStrings Read FInstallFiles'+
|
|
|
- ';'#013#010+
|
|
|
- ' Property CleanFiles : TConditionalStrings Read FCleanFiles;'#013#010+
|
|
|
- ' Property Dependencies : TDependencies Rea','d 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+
|
|
|
+ 'e FInstalledChecksum;'#010+
|
|
|
+ ' Property IsFPMakeAddIn: boolean read FIsFPMakeAddIn write FIsFPMak'+
|
|
|
+ 'eAddIn;'#010+
|
|
|
+ ' Property SupportBuildModes: TBuil','dModes read FSupportBuildModes '+
|
|
|
+ 'write FSupportBuildModes;'#010+
|
|
|
+ ' Property BuildMode: TBuildMode read FBuildMode;'#010+
|
|
|
+ ' Property Flags: TStrings read FFlags;'#010+
|
|
|
+ ' // Compiler options.'#010+
|
|
|
+ ' Property OSes : TOSes Read FOSes Write FOSes;'#010+
|
|
|
+ ' Property C','PUs : 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 Ob','jectPath : TConditionalStrings Read FObjectPath;'#010+
|
|
|
+ ' Property IncludePath : TConditionalStrings Read FIncludePath;'#010+
|
|
|
+ ' Property SourcePath : TConditionalStrings Read FSourcePath;'#010+
|
|
|
+ ' Property ExamplePath : TConditionalStrings Read FExampleP','ath;'#010+
|
|
|
+ ' Property TestPath : TConditionalStrings Read FTestPath;'#010+
|
|
|
+ ' Property FPDocFormat: TFPDocFormats read FFPDocFormat write FFPDoc'+
|
|
|
+ 'Format;'#010+
|
|
|
+ ' // Targets and dependencies'#010+
|
|
|
+ ' Property InstallFiles : TConditionalDestStrings Read FInstall','Fil'+
|
|
|
+ 'es;'#010+
|
|
|
+ ' Property CleanFiles : TConditionalStrings Read FCleanFiles;'#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 : TSources Read FSources;'#010+
|
|
|
+ ' Property UnitDir : String Read FUnitDir Write FUnitDir;'#010+
|
|
|
+ ' Property UnitConfigFileName: String read FUnitConfigFileName write'+
|
|
|
+ ' FUnitConfigFileName',';'#010+
|
|
|
+ ' // events'#010+
|
|
|
' Property BeforeCompile : TNotifyEvent Read FBeforeCompile Write FB'+
|
|
|
- 'eforeCompile;'#013#010+
|
|
|
+ 'eforeCompile;'#010+
|
|
|
' Property BeforeCompileProc : TNotifyProcEvent Read FBeforeCompileP'+
|
|
|
- 'roc write FBeforeCompileProc;'#013,#010+
|
|
|
- ' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
|
|
|
- 'erCompile;'#013#010+
|
|
|
+ 'roc write FBeforeCompileProc;'#010+
|
|
|
+ ' Property AfterCompile : TNotifyEvent',' Read FAfterCompile Write FA'+
|
|
|
+ 'fterCompile;'#010+
|
|
|
' Property AfterCompileProc : TNotifyProcEvent Read FAfterCompilePro'+
|
|
|
- 'c Write FAfterCompileProc;'#013#010+
|
|
|
- ' Property BeforeInstall : TNotifyEvent Read FBeforeInsta','ll Write '+
|
|
|
- 'FBeforeInstall;'#013#010+
|
|
|
- ' Property BeforeInstallProc : TNotifyProcEvent Read FBeforeInstallP'+
|
|
|
- 'roc Write FBeforeInstallProc;'#013#010+
|
|
|
+ 'c Write FAfterCompileProc;'#010+
|
|
|
+ ' Property BeforeInstall : TNotifyEvent Read FBeforeInstall Write FB'+
|
|
|
+ 'eforeInstall;'#010+
|
|
|
+ ' Property Befor','eInstallProc : TNotifyProcEvent Read FBeforeInstal'+
|
|
|
+ 'lProc Write FBeforeInstallProc;'#010+
|
|
|
' Property AfterInstall : TNotifyEvent Read FAfterInstall Write FAft'+
|
|
|
- 'erInstall;'#013#010+
|
|
|
- ' Property AfterInstallProc :',' TNotifyProcEvent Read FAfterInstallP'+
|
|
|
- 'roc Write FAfterInstallProc;'#013#010+
|
|
|
+ 'erInstall;'#010+
|
|
|
+ ' Property AfterInstallProc : TNotifyProcEvent Read FAfterInstallPro'+
|
|
|
+ 'c Write',' FAfterInstallProc;'#010+
|
|
|
' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
|
|
|
- 'eClean;'#013#010+
|
|
|
+ 'eClean;'#010+
|
|
|
' Property BeforeCleanProc : TNotifyProcEvent Read FBeforeCleanProc '+
|
|
|
- 'Write FBeforeCleanProc;'#013,#010+
|
|
|
- ' Property AfterClean : TNotifyEvent Read FAfterClean Write FAfterCl'+
|
|
|
- 'ean;'#013#010+
|
|
|
+ 'Write FBeforeCleanProc;'#010+
|
|
|
+ ' Property AfterClean : TNotifyEvent Read FAft','erClean Write FAfter'+
|
|
|
+ 'Clean;'#010+
|
|
|
' Property AfterCleanProc : TNotifyProcEvent Read FAfterCleanProc Wr'+
|
|
|
- 'ite FAfterCleanProc;'#013#010+
|
|
|
+ 'ite FAfterCleanProc;'#010+
|
|
|
' Property BeforeArchive : TNotifyEvent Read FBeforeArchive Write FB'+
|
|
|
- 'e','foreArchive;'#013#010+
|
|
|
- ' Property BeforeArchiveProc : TNotifyProcEvent Read FBeforeArchiveP'+
|
|
|
- 'roc Write FBeforeArchiveProc;'#013#010+
|
|
|
+ 'eforeArchive;'#010+
|
|
|
+ ' Property BeforeArchiveProc : TNoti','fyProcEvent Read FBeforeArchiv'+
|
|
|
+ 'eProc Write FBeforeArchiveProc;'#010+
|
|
|
' Property AfterArchive : TNotifyEvent Read FAfterArchive Write FAft'+
|
|
|
- 'erArchive;'#013#010+
|
|
|
- ' Property AfterArchiveProc : TNotifyProc','Event Read FAfterArchiveP'+
|
|
|
- 'roc Write FAfterArchiveProc;'#013#010+
|
|
|
+ 'erArchive;'#010+
|
|
|
+ ' Property AfterArchiveProc : TNotifyProcEvent Read FAfterArchivePro'+
|
|
|
+ 'c Write FAfterArchiveProc;'#010,
|
|
|
' Property BeforeManifest : TNotifyEvent Read FBeforeManifest Write '+
|
|
|
- 'FBeforeManifest;'#013#010+
|
|
|
+ 'FBeforeManifest;'#010+
|
|
|
' Property BeforeManifestProc : TNotifyProcEvent Read FBeforeManifes'+
|
|
|
- 'tProc Write FBeforeManifest','Proc;'#013#010+
|
|
|
- ' Property AfterManifest : TNotifyEvent Read FAfterManifest Write FA'+
|
|
|
- 'fterManifest;'#013#010+
|
|
|
+ 'tProc Write FBeforeManifestProc;'#010+
|
|
|
+ ' Property AfterManifest : TNotifyEvent Read FAf','terManifest Write '+
|
|
|
+ 'FAfterManifest;'#010+
|
|
|
' Property AfterManifestProc : TNotifyProcEvent Read FAfterManifestP'+
|
|
|
- 'roc Write FAfterManifestProc;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TPackages }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TPackages = Clas','s(TNamedCollection)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' function GetPackage(const AName : String): TPackage;'#013#010+
|
|
|
- ' function GetPackageItem(AIndex : Integer): TPackage;'#013#010+
|
|
|
- ' procedure SetPackageItem(AIndex : Integer; const AValue: TPackage)'+
|
|
|
- ';'#013#010+
|
|
|
- ' Public'#013#010+
|
|
|
- ' Funct','ion AddPackage(Const AName : String) : TPackage;'#013#010+
|
|
|
+ 'roc Write FAfterManifestProc;'#010+
|
|
|
+ ' Property BeforePkgList : TNotifyEvent Read FBeforePkgList Write FB'+
|
|
|
+ 'eforePkgList;'#010+
|
|
|
+ ' Property BeforePkg','ListProc : TNotifyProcEvent Read FBeforePkgLis'+
|
|
|
+ 'tProc Write FBeforePkgListProc;'#010+
|
|
|
+ ' Property AfterPkgList : TNotifyEvent Read FAfterPkgList Write FAft'+
|
|
|
+ 'erPkgList;'#010+
|
|
|
+ ' Property AfterPkgListProc : TNotifyProcEvent Read FAfterPkgListPro'+
|
|
|
+ 'c Write FAf','terPkgListProc;'#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: TPackag'+
|
|
|
+ 'e);'#010+
|
|
|
+ ' Public'#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 GetPackage'+
|
|
|
- 'Item Write SetPackageItem;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { T','CustomDefaults }'#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: String;'#013#010+
|
|
|
- ' FIgnoreInvalidOptions: Boolean;'#013#010+
|
|
|
- ' FI','nstallExamples: 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+
|
|
|
- ' FPrefix: String;'#013#010+
|
|
|
- ' FLocalUnitDir,'#013#010+
|
|
|
- ' FGlobalUni','tDir,'#013#010+
|
|
|
- ' FBaseInstallDir,'#013#010+
|
|
|
- ' FUnitInstallDir,'#013#010+
|
|
|
- ' FBinInstallDir,'#013#010+
|
|
|
- ' FDocInstallDir,'#013#010+
|
|
|
- ' FExamplesInstallDir : String;'#013#010+
|
|
|
- ' FSkipCrossPrograms: boolean;'#013#010+
|
|
|
- ' FThreadsAmount: integer;'#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+
|
|
|
- ' FZipPrefix: String;'#013#010+
|
|
|
- ' function GetBuildCPU: TCpu;'#013#010+
|
|
|
- ' function GetBuildOS: TOS;'#013#010+
|
|
|
- ' function GetBuildS','tring: String;'#013#010+
|
|
|
- ' function GetFPDocOutputDir: String;'#013#010+
|
|
|
- ' function GetLocalUnitDir: String;'#013#010+
|
|
|
- ' function GetGlobalUnitDir: String;'#013#010+
|
|
|
- ' function GetBaseInstallDir: String;'#013#010+
|
|
|
- ' function GetBinInstallDir: String;'#013#010+
|
|
|
- ' function GetCompile','r: String;'#013#010+
|
|
|
- ' function GetDocInstallDir: String;'#013#010+
|
|
|
- ' function GetExamplesInstallDir: String;'#013#010+
|
|
|
- ' function GetOptions: TStrings;'#013#010+
|
|
|
- ' function GetUnitInstallDir: String;'#013#010+
|
|
|
- ' procedure SetLocalUnitDir(const AValue: String);'#013#010+
|
|
|
- ' procedur','e SetGlobalUnitDir(const AValue: String);'#013#010+
|
|
|
- ' procedure IntSetBaseInstallDir(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+
|
|
|
- ' procedure SetZipPrefix(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+
|
|
|
- ' function IsBuildDifferentFromTarget: 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 : TStre','am);virtual;'#013#010+
|
|
|
- ' procedure LoadFromStream(S : TStream);virtual;'#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 S','etCPU;'#013#010+
|
|
|
- ' Property BuildString : String read GetBuildString;'#013#010+
|
|
|
- ' Property BuildOS : TOS read GetBuildOS;'#013#010+
|
|
|
- ' Property BuildCPU : TCpu read GetBuildCPU;'#013#010+
|
|
|
- ' Property Mode : TCompilerMode Read FMode Write FMode;'#013#010+
|
|
|
- ' Property UnixPaths :',' Boolean Read FUnixPaths Write FUnixPaths;'#013+
|
|
|
- #010+
|
|
|
- ' Property Options : TStrings Read GetOptions Write SetOptions; /'+
|
|
|
- '/ Default compiler options.'#013#010+
|
|
|
- ' Property NoFPCCfg : Boolean Read FNoFPCCfg Write FNoFPCCfg;'#013#010+
|
|
|
- ' // When ThreadsAmount is spe','cified, #threadsamount# worker-threa'+
|
|
|
- 'ds are'#013#010+
|
|
|
- ' // created. When such a worker-thread is ready all worker-threads '+
|
|
|
- 'are evaluated'#013#010+
|
|
|
+ 'ault;'#010+
|
|
|
+ ' Property PackageItems[AIndex : Integer] : TPackage Read Ge','tPacka'+
|
|
|
+ 'geItem 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+
|
|
|
+ ' ','FFPUnitSourcePath: String;'#010+
|
|
|
+ ' FIgnoreInvalidOptions: Boolean;'#010+
|
|
|
+ ' FInstallExamples: Boolean;'#010+
|
|
|
+ ' FMkDir: String;'#010+
|
|
|
+ ' FMove: String;'#010+
|
|
|
+ ' FOptions: TStrings;'#010+
|
|
|
+ ' FCPU: TCPU;'#010+
|
|
|
+ ' FOS: TOS;'#010+
|
|
|
+ ' FMode : TCompilerMode;'#010+
|
|
|
+ ' FCompilerVersion : Str','ing;'#010+
|
|
|
+ ' FPrefix: String;'#010+
|
|
|
+ ' FLocalUnitDir,'#010+
|
|
|
+ ' FGlobalUnitDir,'#010+
|
|
|
+ ' FBaseInstallDir,'#010+
|
|
|
+ ' FUnitInstallDir,'#010+
|
|
|
+ ' FUnitConfigFilesInstallDir,'#010+
|
|
|
+ ' FBinInstallDir,'#010+
|
|
|
+ ' FDocInstallDir,'#010+
|
|
|
+ ' FExamplesInstallDir : String;'#010+
|
|
|
+ ' FSkipCrossPrograms: boo','lean;'#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+
|
|
|
+ ' FZipPrefix: String;'#010+
|
|
|
+ ' FExplic','itOSNone: Boolean;'#010+
|
|
|
+ ' function GetBuildCPU: TCpu;'#010+
|
|
|
+ ' function GetBuildOS: TOS;'#010+
|
|
|
+ ' function GetBuildString: String;'#010+
|
|
|
+ ' function GetFPDocOutputDir: String;'#010+
|
|
|
+ ' function GetFPUnitSourcePath: 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+
|
|
|
+ ' function GetExamplesInstallDir: String;'#010+
|
|
|
+ ' fun','ction GetOptions: TStrings;'#010+
|
|
|
+ ' function GetPrefix: String;'#010+
|
|
|
+ ' function GetUnitInstallDir: String;'#010+
|
|
|
+ ' function GetUnitConfigFilesInstallDir: String;'#010+
|
|
|
+ ' procedure SetLocalUnitDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetGlobalUnitDir(const',' AValue: String);'#010+
|
|
|
+ ' procedure IntSetBaseInstallDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetBaseInstallDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetCPU(const AValue: TCPU);'#010+
|
|
|
+ ' procedure SetOptions(const AValue: TStrings);'#010+
|
|
|
+ ' procedure Set','OS(const AValue: TOS);'#010+
|
|
|
+ ' procedure SetPrefix(const AValue: String);'#010+
|
|
|
+ ' procedure SetTarget(const AValue: String);'#010+
|
|
|
+ ' procedure SetUnitInstallDir(const AValue: String);'#010+
|
|
|
+ ' procedure SetUnitConfigFilesInstallDir(const AValue: String);'#010+
|
|
|
+ ' ',' procedure SetZipPrefix(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 IsBuildDiff','erentFromTarget: boolean;'#010+
|
|
|
+ ' procedure CompilerDefaults; virtual;'#010+
|
|
|
+ ' Procedure LocalInit(Const AFileName : String);'#010+
|
|
|
+ ' Procedure LoadFromFile(Const AFileName : String);'#010+
|
|
|
+ ' Procedure SaveToFile(Const AFileName : String);'#010+
|
|
|
+ ' procedure Sa','veToStream(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 Re','ad FCPU Write SetCPU;'#010+
|
|
|
+ ' Property CompilerVersion : String read FCompilerVersion;'#010+
|
|
|
+ ' Property ExplicitOSNone: Boolean read FExplicitOSNone Write FExpli'+
|
|
|
+ 'citOSNone;'#010+
|
|
|
+ ' Property BuildString : String read GetBuildString;'#010+
|
|
|
+ ' Property BuildOS ',': TOS read GetBuildOS;'#010+
|
|
|
+ ' Property BuildCPU : TCpu read GetBuildCPU;'#010+
|
|
|
+ ' Property Mode : TCompilerMode Read FMode Write FMode;'#010+
|
|
|
+ ' Property UnixPaths : Boolean Read FUnixPaths Write FUnixPaths;'#010+
|
|
|
+ ' Property Options : TStrings Read GetOptio','ns Write SetOptions; '+
|
|
|
+ ' // 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 rea','dy all worker-thread'+
|
|
|
+ 's are evaluated'#010+
|
|
|
' // to see if there are idle threads (there is always at least one '+
|
|
|
- 'such thread.)'#013#010+
|
|
|
- ' // To each idle thread',' a package is assigned which has to be com'+
|
|
|
- 'piled for the'#013#010+
|
|
|
- ' // current target and for which all dependencies are compiled earl'+
|
|
|
- 'ier.'#013#010+
|
|
|
+ '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 al','l dependencies are compiled ea'+
|
|
|
+ 'rlier.'#010+
|
|
|
' // When no package is available the thread remains idle until anot'+
|
|
|
- 'her thread'#013#010+
|
|
|
- ' // has finished it'#039's ','task. Compilation stops when all packag'+
|
|
|
- 'es are compiled'#013#010+
|
|
|
- ' // or when an error occures.'#013#010+
|
|
|
- ' //'#013#010+
|
|
|
- ' // When ThreadsAmount is not specified (-1), all packages are comp'+
|
|
|
- 'iled on by one.'#013#010+
|
|
|
- ' // Dependencies are compiled recursively. When a pa','ckage is alre'+
|
|
|
- 'ady compiled'#013#010+
|
|
|
+ 'her 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 packages 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.'#013#010+
|
|
|
+ ' skip','ped.'#010+
|
|
|
' // When the last package in the list is compiled, the compilation '+
|
|
|
- 'stops.'#013#010+
|
|
|
- ' Property ThreadsAmount : integer Read FThreadsAmou','nt Write FThre'+
|
|
|
- 'adsAmount;'#013#010+
|
|
|
- ' // paths etc.'#013#010+
|
|
|
- ' Property LocalUnitDir : String Read GetLocalUnitDir Write SetLocal'+
|
|
|
- 'UnitDir;'#013#010+
|
|
|
+ 'stops.'#010+
|
|
|
+ ' Property ThreadsAmount : integer Read FThreadsAmount Write FThread'+
|
|
|
+ 'sAmount;'#010+
|
|
|
+ ' // paths etc.'#010+
|
|
|
+ ' Property LocalUnitDir : String Read GetLocalUnitDir Write',' SetLoc'+
|
|
|
+ 'alUnitDir;'#010+
|
|
|
' Property GlobalUnitDir : String Read GetGlobalUnitDir Write SetGlo'+
|
|
|
- 'balUnitDir;'#013#010+
|
|
|
- ' Property Prefix : String Rea','d FPrefix Write SetPrefix;'#013#010+
|
|
|
- ' Property ZipPrefix : String Read FZipPrefix Write SetZipPrefix;'#013+
|
|
|
- #010+
|
|
|
- ' Property BaseInstallDir : String Read GetBaseInstallDir Write SetB'+
|
|
|
- 'aseInstallDir;'#013#010+
|
|
|
- ' Property UnitInstallDir : String Read GetUnitInstallD','ir Write Se'+
|
|
|
- 'tUnitInstallDir;'#013#010+
|
|
|
+ 'balUnitDir;'#010+
|
|
|
+ ' Property Prefix : String Read GetPrefix Write SetPrefix;'#010+
|
|
|
+ ' Property ZipPrefix : String Read FZipPrefix Write SetZipPrefix;'#010+
|
|
|
+ ' Propert','y BaseInstallDir : String Read GetBaseInstallDir Write Se'+
|
|
|
+ 'tBaseInstallDir;'#010+
|
|
|
+ ' Property UnitInstallDir : String Read GetUnitInstallDir Write SetU'+
|
|
|
+ 'nitInstallDir;'#010+
|
|
|
+ ' Property UnitConfigFilesInstallDir : String Read GetUnitConfigFile'+
|
|
|
+ 'sInstallDir',' Write SetUnitConfigFilesInstallDir;'#010+
|
|
|
' Property BinInstallDir : String Read GetBinInstallDir Write FBinIn'+
|
|
|
- 'stallDir;'#013#010+
|
|
|
+ 'stallDir;'#010+
|
|
|
' Property DocInstallDir : String Read GetDocInstallDir Write FDocIn'+
|
|
|
- 'stallDir;'#013#010+
|
|
|
- ' Property ExamplesInstallDir : String Read Get','ExamplesInstallDir '+
|
|
|
- 'Write FExamplesInstallDir;'#013#010+
|
|
|
+ 'stallDir;'#010+
|
|
|
+ ' Property ExamplesInstallDir : String Re','ad GetExamplesInstallDir '+
|
|
|
+ 'Write FExamplesInstallDir;'#010+
|
|
|
' Property FPDocOutputDir : String Read GetFPDocOutputDir Write FFPD'+
|
|
|
- 'ocOutputDir;'#013#010+
|
|
|
- ' // Command tools. If not set, internal commands will be used.'#013+
|
|
|
- #010+
|
|
|
- ' Property Compiler : String Read GetCo','mpiler Write FCompiler; // '+
|
|
|
- 'Compiler. Defaults to fpc'#013#010+
|
|
|
+ 'ocOutputDir;'#010+
|
|
|
+ ' Property FPUnitSourcePath: String read GetFPUnitSourcePath Write F'+
|
|
|
+ 'FPUnitSourcePath;'#010+
|
|
|
+ ' // Command to','ols. If not set, internal commands will be used.'#010+
|
|
|
+ ' Property Compiler : String Read GetCompiler Write FCompiler; // Co'+
|
|
|
+ 'mpiler. Defaults to fpc'#010+
|
|
|
' Property Copy : String Read FCopy Write FCopy; // copy'+
|
|
|
- ' $(FILES) to $(DEST)'#013#010+
|
|
|
- ' Property Move : String Read FMove Write FMove; // Move'+
|
|
|
- ' $(FILES) to $(DEST)'#013#010+
|
|
|
- ' ',' Property Remove : String Read FRemove Write FRemove; // De'+
|
|
|
- 'lete $(FILES)'#013#010+
|
|
|
+ ' $(FILES) to $(DEST)'#010+
|
|
|
+ ' P','roperty Move : String Read FMove Write FMove; // Mo'+
|
|
|
+ 've $(FILES) to $(DEST)'#010+
|
|
|
+ ' Property Remove : String Read FRemove Write FRemove; // Dele'+
|
|
|
+ 'te $(FILES)'#010+
|
|
|
' Property RemoveDir : String Read FRemoveDir Write FRemoveDir; '+
|
|
|
- ' // Delete $(FILES)'#013#010+
|
|
|
- ' Property RemoveTree : String Read FRemoveTree Write FRemoveTree',';'+
|
|
|
- ' // removes $(DIRECTORY)'#013#010+
|
|
|
+ ' ','// Delete $(FILES)'#010+
|
|
|
+ ' Property RemoveTree : String Read FRemoveTree Write FRemoveTree; '+
|
|
|
+ ' // removes $(DIRECTORY)'#010+
|
|
|
' Property MkDir : String Read FMkDir write FMkDir; // Make'+
|
|
|
- ' $(DIRECTORY)'#013#010+
|
|
|
- ' Property Archive : String Read FArchive Write FArchive; // zip '+
|
|
|
- '$(ARCHIVE) $(FILESORDIRS)'#013#010+
|
|
|
- ' // Misc'#013#010+
|
|
|
- ' Property',' UseEnvironment : Boolean read FUseEnvironment write FUs'+
|
|
|
- 'eEnvironment;'#013#010+
|
|
|
+ ' $(DIRECTORY)'#010+
|
|
|
+ ' Property Archive : String Read FAr','chive Write FArchive; // zi'+
|
|
|
+ 'p $(ARCHIVE) $(FILESORDIRS)'#010+
|
|
|
+ ' // Misc'#010+
|
|
|
+ ' Property UseEnvironment : Boolean read FUseEnvironment write FUseE'+
|
|
|
+ 'nvironment;'#010+
|
|
|
' Property IgnoreInvalidOptions: Boolean read FIgnoreInvalidOptions '+
|
|
|
- 'write FIgnoreInvalidOptions;'#013#010+
|
|
|
- ' Property BuildMode: TBuildMode read FBuildMode write FBuildMode;'#013,
|
|
|
- #010+
|
|
|
- ' // Installation optioms'#013#010+
|
|
|
+ 'write FIgnoreInval','idOptions;'#010+
|
|
|
+ ' Property BuildMode: TBuildMode read FBuildMode write FBuildMode;'#010+
|
|
|
+ ' // Installation optioms'#010+
|
|
|
' Property InstallExamples: Boolean read FInstallExamples write FIns'+
|
|
|
- 'tallExamples;'#013#010+
|
|
|
- ' Property SkipCrossPrograms: boolean read FSkipCrossPrograms write '+
|
|
|
- 'FSkipCrossPrograms;'#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+
|
|
|
- ' { TBuildEngine }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TBuildEngine = Class(TComponent)'#013#010+
|
|
|
- ' p','rivate'#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 : integer;'#013#010+
|
|
|
- ' FProgressCount : integer;'#013#010+
|
|
|
- '{$ifdef HAS_UNI','T_ZIPPER}'#013#010+
|
|
|
- ' FZipFile: TZipper;'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' FExternalPackages : TPackages;'#013#010+
|
|
|
- ' // Events'#013#010+
|
|
|
- ' FOnLog: TLogEvent;'#013#010+
|
|
|
- ' FAfterArchive: 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+
|
|
|
- ' FBeforeCompile: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeInstall: TNotifyEvent;'#013#010+
|
|
|
- ' FBeforeManifest: TNotifyEvent;'#013#010+
|
|
|
- #013,#010+
|
|
|
- ' FCachedlibcPath: string;'#013#010+
|
|
|
- ' FGeneralCriticalSection: TRTLCriticalSection;'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- ' FZipper: TZipper;'#013#010+
|
|
|
- '{$endif HAS_UNIT_ZIPPER}'#013#010+
|
|
|
- '{$ifdef HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' FTarWriter: TTarWriter;'#013#010+
|
|
|
- '{$endif HAS_TAR_SUPPORT}'#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 copy/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 SysMoveFile(Const Src,Dest : String); virtual;'#013#010+
|
|
|
- ' Procedure SysDeleteFile(Const AFileName : String);',' virtual;'#013#010+
|
|
|
+ 'tallExamples;'#010+
|
|
|
+ ' Property SkipCrossPrograms: boolean read FSk','ipCrossPrograms writ'+
|
|
|
+ 'e 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+
|
|
|
+ ' TCopyFileProc = procedure(const APackage: TPackage; Const ASourceFil'+
|
|
|
+ 'eName, ADestFileName : String) of object;'#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+
|
|
|
+ ' FExternalPackages : TPackages;'#010+
|
|
|
+ ' // Events'#010+
|
|
|
+ ' FOnLog: TLogEvent;'#010+
|
|
|
+ ' FNotifyEventColle','ction: TNotifyEventCollection;'#010+
|
|
|
+ ' FOnCopyFile: TCopyFileProc;'#010+
|
|
|
+ ' FOnFinishCopy: TNotifyEvent;'#010+
|
|
|
+ #010+
|
|
|
+ ' FCachedlibcPath: string;'#010+
|
|
|
+ ' FGeneralCriticalSection: TRTLCriticalSection;'#010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' FZipper: TZipper;'#010+
|
|
|
+ '{$endif HAS_UNIT_','ZIPPER}'#010+
|
|
|
+ '{$ifdef HAS_TAR_SUPPORT}'#010+
|
|
|
+ ' FTarWriter: TTarWriter;'#010+
|
|
|
+ ' FGZFileStream: TGZFileStream;'#010+
|
|
|
+ '{$endif HAS_TAR_SUPPORT}'#010+
|
|
|
+ ' procedure AddFileToArchive(const APackage: TPackage; Const ASource'+
|
|
|
+ 'FileName, ADestFileName : String);'#010+
|
|
|
+ ' procedure F','inishArchive(Sender: TObject);'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' Procedure Error(const 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 AFileName:string):Boolean;'#010+
|
|
|
+ ' Procedure SysCopyFile(Const Src,Dest : String); virtual;'#010+
|
|
|
+ ' Procedure SysMoveFile(Const Src,Dest : String); virtual;'#010+
|
|
|
+ ' Procedure SysDeleteFile(C','onst AFileName : String); virtual;'#010+
|
|
|
' Procedure SysDeleteDirectory(Const ADirectoryName : String); virtu'+
|
|
|
- 'al;'#013#010+
|
|
|
- ' Procedure SysDeleteTree(Const ADirectoryName : String); virtual;'#013+
|
|
|
- #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+
|
|
|
+ 'al;'#010+
|
|
|
+ ' Procedure SysDeleteTree(Const ADirectoryName : String); virtual;'#010+
|
|
|
+ ' Procedure SysArchiveFiles(List : TStrings; Const AFileName',' : Str'+
|
|
|
+ 'ing); virtual;'#010+
|
|
|
+ ' procedure LogIndent;'#010+
|
|
|
+ ' procedure LogUnIndent;'#010+
|
|
|
+ ' Procedure EnterDir(ADir : String);'#010+
|
|
|
+ ' Function GetCompiler : String;'#010+
|
|
|
' Function InstallPackageFiles(APAckage : TPackage; tt : TTargetType'+
|
|
|
- 's; Const Dest : String):Boolean;'#013#010+
|
|
|
- ' Pr','ocedure InstallUnitConfigFile(APAckage : TPackage; Const Dest '+
|
|
|
- ': String);'#013#010+
|
|
|
+ 's; Const Dest : String)',':Boolean;'#010+
|
|
|
+ ' Procedure InstallUnitConfigFile(APAckage : TPackage; Const Dest : '+
|
|
|
+ 'String);'#010+
|
|
|
+ ' function GetUnitConfigFilesInstallDir(ABaseDir: string): String;'#010+
|
|
|
+ #010+
|
|
|
' Function InstallPackageSourceFiles(APAckage : TPackage; stt : TSou'+
|
|
|
- 'rceTypes; ttt : TTargetTypes; Const Dest : String):Boolean;'#013#010+
|
|
|
- ' Function FileNewer(const Src,De','st : String) : Boolean;'#013#010+
|
|
|
+ 'rceTypes; t','tt : TTargetTypes; Const Dest : String):Boolean;'#010+
|
|
|
+ ' Function FileNewer(const Src,Dest : String) : Boolean;'#010+
|
|
|
' Procedure LogSearchPath(APackage: TPackage;const ASearchPathName:s'+
|
|
|
- 'tring;Path:TConditionalStrings; ACPU:TCPU;AOS:TOS);'#013#010+
|
|
|
- ' Function FindFileInPath(APackage: TPackage; Path:TConditionalStrin'+
|
|
|
- 'gs; AFileName:String; ','var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolea'+
|
|
|
- 'n;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'tring;Path:TConditionalStrings; ACPU:TCPU;AOS:TOS);'#010+
|
|
|
+ ' Functi','on FindFileInPath(APackage: TPackage; Path:TConditionalStr'+
|
|
|
+ 'ings; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolea'+
|
|
|
+ 'n;'#010+
|
|
|
+ #010+
|
|
|
' procedure GetDirectoriesFromFilelist(const AFileList, ADirectoryLi'+
|
|
|
- 'st: TStringList);'#013#010+
|
|
|
- ' procedure AddPackageMacrosToDictionary(const APackage: TPackage; A'+
|
|
|
- 'Dictionary: TDictionary);'#013#010+
|
|
|
- ' ',' //package commands'#013#010+
|
|
|
- ' function GetUnitDir(APackage:TPackage):String;'#013#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(AOwner : TComponent); override;'#013#010+
|
|
|
- ' destructor Destroy;override;'#013#010+
|
|
|
- ' function AddPathPrefix(APackage: TPackage; APath: string): string;'+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- ' property Verbose : boolean read FVerbose write FVerbose;'#013#010,
|
|
|
+ 'st: TStringList);'#010+
|
|
|
+ ' procedure AddPac','kageMacrosToDictionary(const APackage: TPackage;'+
|
|
|
+ ' ADictionary: TDictionary);'#010+
|
|
|
+ ' //package commands'#010+
|
|
|
+ ' function GetUnitDir(APackage:TPackage):String;'#010+
|
|
|
+ ' procedure ResolvePackagePaths(APackage:TPackage);'#010+
|
|
|
+ ' procedure AddDependencyPaths(L:',' TStrings; DependencyType: TDepen'+
|
|
|
+ 'dencyType; ATarget: TTarget);'#010+
|
|
|
+ ' procedure AddDependencyUnitPaths(L:TStrings;APackage: TPackage);'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' destructor Destroy;override;'#010+
|
|
|
+ ' functio','n AddPathPrefix(APackage: TPackage; APath: string): strin'+
|
|
|
+ 'g;'#010+
|
|
|
+ #010+
|
|
|
+ ' property Verbose : boolean read FVerbose write FVerbose;'#010+
|
|
|
' Procedure ResolveFileNames(APackage : TPackage; ACPU:TCPU;AOS:TOS;'+
|
|
|
- 'DoChangeDir:boolean=true; WarnIfNotFound:boolean=true);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Public Copy/delete/Move/Archive/Mkdir Commands.'#013#010+
|
|
|
- ' Procedure ExecuteCommand(const Cmd,Args : String; c','onst Env: TSt'+
|
|
|
- 'rings = nil; IgnoreError : Boolean = False); virtual;'#013#010+
|
|
|
- ' Procedure CmdCopyFiles(List : TStrings; Const DestDir : String);'#013+
|
|
|
- #010+
|
|
|
- ' Procedure CmdCreateDir(const DestDir : String);'#013#010+
|
|
|
- ' Procedure CmdMoveFiles(List : TStrings; Const',' DestDir : String);'+
|
|
|
- #013#010+
|
|
|
- ' Procedure CmdDeleteFiles(List : TStrings);'#013#010+
|
|
|
- ' Procedure CmdArchiveFiles(List : TStrings; Const ArchiveFile : Str'+
|
|
|
- 'ing);'#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; A'+
|
|
|
- 'Package: TPackage = nil);'#013#010+
|
|
|
- ' // Dependency commands'#013#010+
|
|
|
- ' Function DependencyOK(ADependency : TDependency) :',' Boolean;'#013+
|
|
|
- #010+
|
|
|
- ' // Target commands'#013#010+
|
|
|
+ 'DoChangeDir:boolean=true; WarnIfNotFound:boolean','=true);'#010+
|
|
|
+ #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 DestD','ir: String; AP'+
|
|
|
+ 'ackage: TPackage);'#010+
|
|
|
+ ' Procedure CmdCreateDir(const DestDir : String);'#010+
|
|
|
+ ' Procedure CmdMoveFiles(List : TStrings; Const DestDir : String);'#010+
|
|
|
+ ' Procedure CmdDeleteFiles(List : TStrings);'#010+
|
|
|
+ ' Procedure CmdArchiveFiles(List : TS','trings; Const ArchiveFile : S'+
|
|
|
+ 'tring);'#010+
|
|
|
+ ' Procedure CmdRenameFile(SourceName, DestName : String);'#010+
|
|
|
+ ' Procedure CmdRemoveDirs(List: TStrings);'#010+
|
|
|
+ ' Procedure CmdRemoveTrees(List: TStrings);'#010+
|
|
|
+ ' Procedure ExecuteCommands(Commands : TCommands; ','At : TCommandAt;'+
|
|
|
+ ' APackage: TPackage = nil);'#010+
|
|
|
+ ' // Dependency commands'#010+
|
|
|
+ ' Function DependencyOK(ADependency : TDependency) : Boolean;'#010+
|
|
|
+ ' // Target commands'#010+
|
|
|
' Function GetCompilerCommand(APackage : TPackage; ATarget : TTarge'+
|
|
|
- 't; Env: TStrings) : String;'#013#010+
|
|
|
+ 't; Env: TSt','rings) : String;'#010+
|
|
|
' Function TargetOK(ATarget : TTarget; ACPU: TCPU; AOS: TOS) : Bool'+
|
|
|
- 'ean;'#013#010+
|
|
|
- ' Function TargetInstallOK(','ATarget : TTarget;ACPU:TCPU; AOS : TOS'+
|
|
|
- ') : Boolean;'#013#010+
|
|
|
- ' Function NeedsCompile(APackage:TPackage; ATarget : TTarget) : Boo'+
|
|
|
- 'lean;'#013#010+
|
|
|
+ 'ean;'#010+
|
|
|
+ ' Function TargetInstallOK(ATarget : TTarget;ACPU:TCPU; AOS : TOS) '+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ ' Function NeedsCompile(APackage:TPackage; ATarget : TTarget) : ','B'+
|
|
|
+ 'oolean;'#010+
|
|
|
' Procedure Compile(APackage:TPackage; ATarget : TTarget); virtual;'+
|
|
|
- #013#010+
|
|
|
- ' Procedure MaybeCompile(APackage:TPa','ckage; ATarget: TTarget);'#013+
|
|
|
#010+
|
|
|
+ ' Procedure MaybeCompile(APackage:TPackage; ATarget: TTarget);'#010+
|
|
|
' Procedure CompileDependencies(APackage:TPackage; ATarget: TTarget)'+
|
|
|
- ';'#013#010+
|
|
|
- ' // Package commands'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' // Package commands',#010+
|
|
|
'{ Function GetPackageDir(APackage : TPackage; AbsolutePath : Boole'+
|
|
|
- 'an = False) : String;'#013#010+
|
|
|
- ' Function GetUnits','OutputDir(APackage : TPackage; AbsolutePath : '+
|
|
|
- 'Boolean = False) : String;'#013#010+
|
|
|
- ' Function GetBinOutputDir(APackage : TPackage; AbsolutePath : Bool'+
|
|
|
- 'ean = False) : String; }'#013#010+
|
|
|
- ' Function PackageOK(APackage : TPackage) : Boolean; virtual;'#013#010+
|
|
|
- ' ',' Procedure DoBeforeCompile(APackage : 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(APackage : 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(APackage : TPackage) : Boolean; virtual;'#013+
|
|
|
- #010+
|
|
|
- ' Procedure Compile(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure MaybeCompile(APackage:TPackage);'#013#010+
|
|
|
- ' Function ReadyToCompile(APackage:TPackage) : Boolean;'#013#010+
|
|
|
- ' Procedure Install(','APackage : TPackage);'#013#010+
|
|
|
- ' Procedure Archive(APackage : TPackage);'#013#010+
|
|
|
- ' Procedure Manifest(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 CheckDependencies(APackage : TPackage): TCheckDependencyR'+
|
|
|
- 'esult;'#013#010+
|
|
|
- ' Function CheckExternalPackage(Const APackageName : String):TPacka'+
|
|
|
- 'ge;'#013#010+
|
|
|
- ' procedure CreateOutputD','ir(APackage: TPackage);'#013#010+
|
|
|
- ' // Packages commands'#013#010+
|
|
|
- ' Procedure Compile(Packages : TPackages);'#013#010+
|
|
|
- ' Procedure Install(Packages : TPackages);'#013#010+
|
|
|
- ' Procedure ZipInstall(Packages : TPackages);'#013#010+
|
|
|
- ' Procedure Archive(Packages : TPackages);'#013#010+
|
|
|
- ' ',' procedure Manifest(Packages: TPackages);'#013#010+
|
|
|
- ' Procedure Clean(Packages : TPackages; AllTargets: boolean);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure Log(Level : TVerboseLevel; Msg : String);'#013#010+
|
|
|
+ 'an = False) : String;'#010+
|
|
|
+ ' Function GetUnitsOutputDir(APackage : TPackage; AbsolutePath : Bo'+
|
|
|
+ 'olean = False) : String;'#010+
|
|
|
+ ' Function GetBinOutputDir(APackage : TPackage; A','bsolutePath : Bo'+
|
|
|
+ 'olean = False) : String; }'#010+
|
|
|
+ ' Function PackageOK(APackage : TPackage) : Boolean; virtual;'#010+
|
|
|
+ ' Procedure DoBeforeCompile(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterCompile(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedur','e DoBeforeInstall(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterInstall(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoBeforeArchive(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterArchive(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure ','DoBeforeClean(APackage : TPackage);virtual;'#010+
|
|
|
+ ' Procedure DoAfterClean(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; AnArchiveFiles: boolean);'#010+
|
|
|
+ ' Procedure Archive(APackage : TPackage);'#010+
|
|
|
+ ' Procedure PkgList(PkgList: TStrings; 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 : T','Package; ErrorOnFailure: '+
|
|
|
+ 'boolean): TCheckDependencyResult;'#010+
|
|
|
+ ' Function CheckExternalPackage(Const APackageName : String; ErrorO'+
|
|
|
+ 'nFailure: boolean):TPackage;'#010+
|
|
|
+ ' procedure CreateOutputDir(APackage: TPackage);'#010+
|
|
|
+ ' // Packages commands'#010+
|
|
|
+ ' Pr','ocedure Compile(Packages : TPackages);'#010+
|
|
|
+ ' Procedure Install(Packages : TPackages);'#010+
|
|
|
+ ' Procedure ZipInstall(Packages : TPackages);'#010+
|
|
|
+ ' Procedure Archive(Packages : TPackages);'#010+
|
|
|
+ ' procedure Manifest(Packages: TPackages);'#010+
|
|
|
+ ' procedure PkgL','ist(Packages: TPackages);'#010+
|
|
|
+ ' Procedure Clean(Packages : TPackages; AllTargets: boolean);'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure Log(Level : TVerboseLevel; Msg : String);'#010+
|
|
|
' Procedure Log(Level : TVerboseLevel; Fmt : String; const Args : Ar'+
|
|
|
- 'ra','y Of Const);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Property ListMode : Boolean Read FListMode Write FListMode;'#013#010+
|
|
|
+ 'ray Of Const);'#010+
|
|
|
+ #010+
|
|
|
+ ' Pro','perty ListMode : Boolean Read FListMode Write FListMode;'#010+
|
|
|
' Property ForceCompile : Boolean Read FForceCompile Write FForceCom'+
|
|
|
- 'pile;'#013#010+
|
|
|
- ' Property ExternalPackages: TPackages Read FExternalPackages;'#013#010+
|
|
|
- ' Property Sta','rtDir: String Read FStartDir;'#013#010+
|
|
|
- ' // Events'#013#010+
|
|
|
- ' Property BeforeCompile : TNotifyEvent Read FBeforeCompile Write FB'+
|
|
|
- 'eforeCompile;'#013#010+
|
|
|
- ' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
|
|
|
- 'erCompile;'#013#010+
|
|
|
- ' Property BeforeInstall ',': TNotifyEvent Read FBeforeInstall Write '+
|
|
|
- 'FBeforeInstall;'#013#010+
|
|
|
- ' Property AfterInstall : TNotifyEvent Read FAfterInstall Write FAft'+
|
|
|
- 'erInstall;'#013#010+
|
|
|
- ' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
|
|
|
- 'eClean;'#013#010+
|
|
|
- ' Property AfterCle','an : TNotifyEvent Read FAfterClean Write FAfter'+
|
|
|
- 'Clean;'#013#010+
|
|
|
- ' Property BeforeArchive : TNotifyEvent Read FBeforeArchive Write FB'+
|
|
|
- 'eforeArchive;'#013#010+
|
|
|
- ' Property AfterArchive : TNotifyEvent Read FAfterArchive Write FAft'+
|
|
|
- 'erArchive;'#013#010+
|
|
|
- ' Property Befor','eManifest : TNotifyEvent Read FBeforeManifest Writ'+
|
|
|
- 'e FBeforeManifest;'#013#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+
|
|
|
- ' { TCustomInstal','ler }'#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,
|
|
|
- ' FPackageVariantSettings: TStrings;'#013#010+
|
|
|
- ' FPackageVariants: TFPList;'#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 G','etPackages: 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 Anal','yzeOptions;'#013#010+
|
|
|
- ' Procedure Usage(const 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 ZipInstall; v','irtual;'#013#010+
|
|
|
- ' Procedure Archive; virtual;'#013#010+
|
|
|
- ' Procedure Manifest; virtual;'#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+
|
|
|
- ' F','unction AddPackageVariant(AName: string; AIsInheritable: boole'+
|
|
|
- 'an): TPackageVariants;'#013#010+
|
|
|
- ' Function Run : Boolean;'#013#010+
|
|
|
- ' Property FPMakeOptionsString: string read FFPMakeOptionsString;'#013+
|
|
|
- #010+
|
|
|
- ' Property BuildEngine : TBuildEngine Read FBuildEngi','ne;'#013#010+
|
|
|
- ' //files in package'#013#010+
|
|
|
- ' Property Packages : TPackages Read GetPackages;'#013#010+
|
|
|
- ' Property RunMode : TRunMode Read FRunMode;'#013#010+
|
|
|
- ' Property ListMode : Boolean Read FListMode;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TFPCInstaller }'#013#010+
|
|
|
- ' TFPCInstaller = class(TCusto','mInstaller)'#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+
|
|
|
- ' Constructor Create(AOwner : TComponent); override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TValueItem }'#013,#010+
|
|
|
- #013#010+
|
|
|
- ' TValueItem = Class(TObject)'#013#010+
|
|
|
- ' FValue : String;'#013#010+
|
|
|
- ' Constructor Create(AValue : 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 : TReplaceFunct','ion);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- #013#010+
|
|
|
- ' { TCompileWorkerThread }'#013#010+
|
|
|
- #013#010+
|
|
|
- ' TCompileWorkerThread = class(TThread)'#013#010+
|
|
|
- ' private'#013#010+
|
|
|
- ' FBuildEngine: TBuildEngine;'#013#010+
|
|
|
- ' FCompilationOK: boolean;'#013#010+
|
|
|
- ' FDone: boolean;'#013#010+
|
|
|
- ' FErrorMessage: string;'#013#010+
|
|
|
- ' ',' FNotifyMainThreadEvent: PRTLEvent;'#013#010+
|
|
|
- ' FNotifyStartTask: PRTLEvent;'#013#010+
|
|
|
- ' FPackage: TPackage;'#013#010+
|
|
|
- ' protected'#013#010+
|
|
|
- ' procedure execute; override;'#013#010+
|
|
|
- ' property Done: boolean read FDone;'#013#010+
|
|
|
- ' property APackage: TPackage read FPackage write FPack','age;'#013#010+
|
|
|
- ' property CompilationOK: boolean read FCompilationOK;'#013#010+
|
|
|
- ' property NotifyStartTask: PRTLEvent read FNotifyStartTask;'#013#010+
|
|
|
- ' property ErrorMessage: string read FErrorMessage;'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' constructor Create(ABuildEngine: TBuildEngi','ne; NotifyMainThreadE'+
|
|
|
- 'vent: PRTLEvent); virtual;'#013#010+
|
|
|
- ' destructor Destroy; override;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$endif NO_THREADING}'#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+
|
|
|
- ' TPackageDictionaryClass = Class of TPackageDictionary;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Type'#013#010+
|
|
|
- ' TArchiveEvent = Procedure (Const AFileName : String; List : TStrings'+
|
|
|
- ') of Object;',#013#010+
|
|
|
+ 'pile;'#010+
|
|
|
+ ' Property ExternalPackages: TPackages Read FExternalPackages;'#010+
|
|
|
+ ' Property StartDir: String Read FStartD','ir;'#010+
|
|
|
+ ' // Events'#010+
|
|
|
+ ' Property NotifyEventCollection: TNotifyEventCollection read FNotif'+
|
|
|
+ 'yEventCollection;'#010+
|
|
|
+ ' Property OnLog : TLogEvent Read FOnLog Write FOnlog;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TCustomInstaller }'#010+
|
|
|
+ #010+
|
|
|
+ ' TCustomInstaller = Class(TComponent)'#010+
|
|
|
+ ' priv','ate'#010+
|
|
|
+ ' FBuildEngine: TBuildEngine;'#010+
|
|
|
+ ' FPackages: TPackages;'#010+
|
|
|
+ ' FRunMode: TRunMode;'#010+
|
|
|
+ ' FListMode : Boolean;'#010+
|
|
|
+ ' FLogLevels : TVerboseLevels;'#010+
|
|
|
+ ' FFPMakeOptionsString: string;'#010+
|
|
|
+ ' FPackageVariantSettings: TStrings;'#010+
|
|
|
+ ' FPackageVariants: T','FPList;'#010+
|
|
|
+ ' FNotifyEventCollection: TNotifyEventCollection;'#010+
|
|
|
+ ' Protected'#010+
|
|
|
+ ' Procedure Log(Level : TVerboseLevel; Const Msg : String);'#010+
|
|
|
+ ' Procedure CreatePackages; virtual;'#010+
|
|
|
+ ' Procedure FreePackages; virtual;'#010+
|
|
|
+ ' function GetPackages: TPac','kages; 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+
|
|
|
+ ' Proce','dure 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 Arch','ive; virtual;'#010+
|
|
|
+ ' Procedure Manifest; virtual;'#010+
|
|
|
+ ' Procedure PkgList; virtual;'#010+
|
|
|
+ ' Public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); virtual;'#010+
|
|
|
+ ' Destructor destroy; override;'#010+
|
|
|
+ ' Function AddPackage(Const AName : String) : TPackage;'#010+
|
|
|
+ ' Fu','nction AddPackageVariant(AName: string; 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+
|
|
|
+ ' Property NotifyEventCollection : TNotifyEventCollection read FNoti',
|
|
|
+ 'fyEventCollection;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFPCInstaller }'#010+
|
|
|
+ ' TFPCInstaller = class(TCustomInstaller)'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' Constructor Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TBasicInstaller }'#010+
|
|
|
+ ' TBasicInstaller = class(TCustomInstaller)'#010+
|
|
|
+ ' Construct','or Create(AOwner : TComponent); override;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TValueItem }'#010+
|
|
|
+ #010+
|
|
|
+ ' TValueItem = Class(TObject)'#010+
|
|
|
+ ' FValue : String;'#010+
|
|
|
+ ' Constructor Create(AValue : String);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' { TFunctionItem }'#010+
|
|
|
+ #010+
|
|
|
+ ' TFunctionItem = Class(TObject)'#010+
|
|
|
+ ' FFunc : TRepla','ceFunction;'#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+
|
|
|
+ ' FDo','ne: 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 APackag','e: TPackage read FPackage write FPackage;'#010+
|
|
|
+ ' property CompilationOK: boolean read FCompilationOK;'#010+
|
|
|
+ ' property NotifyStartTask: PRTLEvent read FNotifyStartTask;'#010+
|
|
|
+ ' property ErrorMessage: string read FErrorMessage;'#010+
|
|
|
+ ' public'#010+
|
|
|
+ ' constructor',' Create(ABuildEngine: TBuildEngine; NotifyMainThreadE'+
|
|
|
+ 'vent: 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+
|
|
|
+ ' TPackageDictionaryClass = Class of TPackageDictionary;'#010+
|
|
|
+ #010+
|
|
|
+ 'Type'#010+
|
|
|
+ ' TArchiveEvent = Procedure (Const AFileName : String; List : TSt','rin'+
|
|
|
+ 'gs) of Object;'#010+
|
|
|
' TArchiveProc = Procedure (Const AFileName : String; List : TStrings)'+
|
|
|
- ';'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' DictionaryClass : TDictionaryClass = TDictionary;'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' DictionaryClass : TDictionaryClass = TDictionary;'#010+
|
|
|
' PackageDictionaryClass : TPackageDictionaryClass = TPackageDictionar'+
|
|
|
- 'y;'#013#010+
|
|
|
- ' OnArchiveFiles : TArchiveEven','t = Nil;'#013#010+
|
|
|
- ' ArchiveFilesProc : TArchiveProc = Nil;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Defaults : TCustomDefaults; // Set by installer.'#013#010+
|
|
|
- ' GlobalDictionary : TDictionary;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function CurrentOS : String;'#013#010+
|
|
|
- 'Function CurrentCPU : String;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function Installer(InstallerClas','s: 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) : String;'#013#010+
|
|
|
- 'Function',' CPUSToString(CPUS: TCPUS) : String;'#013#010+
|
|
|
- 'Function StringToOS(const S : String) : TOS;'#013#010+
|
|
|
- 'function IsDifferentFromBuild(ACpu: TCPU; AOs: TOs): boolean;'#013#010+
|
|
|
- '//Function StringToOSes(const S : String) : TOSes;'#013#010+
|
|
|
- 'Function StringToCPU(const S : String) : ','TCPU;'#013#010+
|
|
|
- 'Function StringToCPUS(const S : String) : TCPUS;'#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 Stri','ngToCPUOS(const S : String; Var CPU : TCPU; Var OS: TO'+
|
|
|
- 'S);'#013#010+
|
|
|
+ 'y;'#010+
|
|
|
+ ' OnArchiveFiles : T','ArchiveEvent = Nil;'#010+
|
|
|
+ ' ArchiveFilesProc : TArchiveProc = Nil;'#010+
|
|
|
+ #010+
|
|
|
+ ' Defaults : TCustomDefaults; // Set by installer.'#010+
|
|
|
+ ' GlobalDictionary : TDictionary;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function CurrentOS : String;'#010+
|
|
|
+ 'Function CurrentCPU : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function Installer(InstallerCla','ss: TInstallerClass) : TCustomInstall'+
|
|
|
+ 'er; 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 CPUS','ToString(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+
|
|
|
+ 'Fun','ction StringToCPUS(const S : String) : TCPUS;'#010+
|
|
|
+ 'Function ModeToString(Mode: TCompilerMode) : String;'#010+
|
|
|
+ 'Function StringToMode(const S : String) : TCompilerMode;'#010+
|
|
|
+ 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#010+
|
|
|
+ 'Procedure StringToCPUOS(cons','t S : String; Var CPU : TCPU; Var OS: TO'+
|
|
|
+ 'S);'#010+
|
|
|
'Function FixPath (const APath : String) : String; inline; deprecated '#039+
|
|
|
- 'Use the overload with AIsDir instead'#039';'#013#010+
|
|
|
- 'Function FixPath (const APath : String; AIsDir : Boolean) : String;'#013+
|
|
|
- #010+
|
|
|
- 'Fu','nction IsRelativePath(const APath : String) : boolean;'#013#010+
|
|
|
- 'Procedure ChangeDir(const APath : String);'#013#010+
|
|
|
- 'Procedure SplitCommand(Const Cmd : String; Var Exe,Options : String);'#013+
|
|
|
- #010+
|
|
|
- 'Procedure AddCustomFpmakeCommandlineOption(const ACommandLineOption, ',
|
|
|
- 'HelpMessage : string);'#013#010+
|
|
|
+ 'Use the overload with AIsDir instead'#039';'#010+
|
|
|
+ 'Function FixPath (const APath : String; AIsDir : Boolean) : String;'#010+
|
|
|
+ 'Function IsRelative','Path(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',');'#010+
|
|
|
'Function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
|
|
|
- 'n : string) : string;'#013#010+
|
|
|
+ 'n : string) : string;'#010+
|
|
|
'Function AddProgramExtension(const ExecutableName: string; AOS : TOS) '+
|
|
|
- ': string;'#013#010+
|
|
|
- 'Function GetImportLibraryFilename(const Un','itName: string; AOS : TOS)'+
|
|
|
- ' : string;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ': string;'#010+
|
|
|
+ 'Function GetImportLibraryFilename(const UnitName: string; AOS : T','OS)'+
|
|
|
+ ' : string;'#010+
|
|
|
+ #010+
|
|
|
'procedure SearchFiles(const AFileName: string; Recursive: boolean; var'+
|
|
|
- ' List: TStrings);'#013#010+
|
|
|
+ ' List: TStrings);'#010+
|
|
|
'function GetDefaultLibGCCDir(CPU : TCPU;OS: TOS; var ErrorMessage: str'+
|
|
|
- 'ing): string;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Implementation'#013#010+
|
|
|
- #013#010+
|
|
|
- 'uses t','ypinfo, rtlconsts;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'type'#013#010+
|
|
|
- ' TUnsortedDuplicatesStringList = class(TStringList)'#013#010+
|
|
|
- ' public'#013#010+
|
|
|
- ' function Add(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+
|
|
|
- '{$ifdef NO_THREADING}'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- '{$else NO_THREADING}'#013#010+
|
|
|
- 'threadvar'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' GPathPrefix : string;'#013#010+
|
|
|
- ' GLogPrefix : string;'#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+
|
|
|
+ 'ing): string;'#010+
|
|
|
+ #010+
|
|
|
+ 'Implementation'#010+
|
|
|
+ #010+
|
|
|
+ 'uses typinfo, rtlconsts;'#010+
|
|
|
+ #010+
|
|
|
+ 'const'#010+
|
|
|
+ '{$if','def CREATE_TAR_FILE}'#010+
|
|
|
+ ' ArchiveExtension = '#039'.tar.gz'#039';'#010+
|
|
|
+ '{$else CREATE_TAR_FILE}'#010+
|
|
|
+ ' ArchiveExtension = '#039'.zip'#039';'#010+
|
|
|
+ '{$endif CREATE_TAR_FILE}'#010+
|
|
|
+ #010+
|
|
|
+ '{----------------- from strutils ---------------------}'#010+
|
|
|
+ #010+
|
|
|
+ 'function FindPart(const HelpWilds, inputStr: string','): Integer;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i, J: Integer;'#010+
|
|
|
+ ' Diff: Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=0;'#010+
|
|
|
+ ' i:=Pos('#039'?'#039',HelpWilds);'#010+
|
|
|
+ ' if (i=0) then'#010+
|
|
|
+ ' Result:=Pos(HelpWilds, inputStr)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Diff:=Length(inputStr) - Length(HelpWilds);'#010+
|
|
|
+ ' for i:=0 to Diff do'#010+
|
|
|
+ ' ',' begin'#010+
|
|
|
+ ' for J:=1 to Length(HelpWilds) do'#010+
|
|
|
+ ' if (inputStr[i + J] = HelpWilds[J]) or (HelpWilds[J] = '#039'?'#039+
|
|
|
+ ') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (J=Length(HelpWilds)) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=i+1;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function isWild(inputStr, Wilds: string; ignoreCase: Boolean): Boolean'+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ ' function SearchNext(var Wilds: string): Integer;'#010+
|
|
|
+ #010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=Pos('#039'*'#039', Wilds',');'#010+
|
|
|
+ ' if Result>0 then'#010+
|
|
|
+ ' Wilds:=Copy(Wilds,1,Result - 1);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' CWild, CinputWord: Integer; { counter for positions }'#010+
|
|
|
+ ' i, LenHelpWilds: Integer;'#010+
|
|
|
+ ' MaxinputWord, MaxWilds: Integer; { Length of inputStr and Wilds }'#010+
|
|
|
+ ' HelpWilds: str','ing;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Wilds = inputStr then begin'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' repeat { delete '#039'**'#039', because '#039'**'#039' = '#039'*'#039' }'#010+
|
|
|
+ ' i:=Pos('#039'**'#039', Wilds);'#010+
|
|
|
+ ' if i > 0 then'#010+
|
|
|
+ ' Wilds:=Copy(Wilds, 1, i - 1) + '#039'*'#039' + Copy(Wilds, i + 2, '+
|
|
|
+ 'Maxint);'#010+
|
|
|
+ ' ','until i = 0;'#010+
|
|
|
+ ' if Wilds = '#039'*'#039' then begin { for fast end, if Wilds only '#039+
|
|
|
+ '*'#039' }'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' MaxinputWord:=Length(inputStr);'#010+
|
|
|
+ ' MaxWilds:=Length(Wilds);'#010+
|
|
|
+ ' if ignoreCase then begin { upcase all letters }'#010+
|
|
|
+ ' inputStr:=Ans','iUpperCase(inputStr);'#010+
|
|
|
+ ' Wilds:=AnsiUpperCase(Wilds);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if (MaxWilds = 0) or (MaxinputWord = 0) then begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' CinputWord:=1;'#010+
|
|
|
+ ' CWild:=1;'#010+
|
|
|
+ ' Result:=True;'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' if inputStr[CinputWord] = Wilds','[CWild] then begin { equal letter'+
|
|
|
+ 's }'#010+
|
|
|
+ ' { goto next letter }'#010+
|
|
|
+ ' inc(CWild);'#010+
|
|
|
+ ' inc(CinputWord);'#010+
|
|
|
+ ' Continue;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if Wilds[CWild] = '#039'?'#039' then begin { equal to '#039'?'#039' }'#010+
|
|
|
+ ' { goto next letter }'#010+
|
|
|
+ ' inc(CWild);'#010+
|
|
|
+ ' inc(C','inputWord);'#010+
|
|
|
+ ' Continue;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if Wilds[CWild] = '#039'*'#039' then begin { handling of '#039'*'#039' '+
|
|
|
+ '}'#010+
|
|
|
+ ' HelpWilds:=Copy(Wilds, CWild + 1, MaxWilds);'#010+
|
|
|
+ ' i:=SearchNext(HelpWilds);'#010+
|
|
|
+ ' LenHelpWilds:=Length(HelpWilds);'#010+
|
|
|
+ ' if i = 0 then begi','n'#010+
|
|
|
+ ' { no '#039'*'#039' in the rest, compare the ends }'#010+
|
|
|
+ ' if HelpWilds = '#039#039' then Exit; { '#039'*'#039' is the last l'+
|
|
|
+ 'etter }'#010+
|
|
|
+ ' { check the rest for equal Length and no '#039'?'#039' }'#010+
|
|
|
+ ' for i:=0 to LenHelpWilds - 1 do begin'#010+
|
|
|
+ ' if (HelpWilds[','LenHelpWilds - i] <> inputStr[MaxinputWord -'+
|
|
|
+ ' i]) and'#010+
|
|
|
+ ' (HelpWilds[LenHelpWilds - i]<> '#039'?'#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' { handle all t','o the next '#039'*'#039' }'#010+
|
|
|
+ ' inc(CWild, 1 + LenHelpWilds);'#010+
|
|
|
+ ' i:=FindPart(HelpWilds, Copy(inputStr, CinputWord, Maxint));'#010+
|
|
|
+ ' if i= 0 then begin'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' CinputWord:=i + LenHelpWilds;'#010+
|
|
|
+ ' Contin','ue;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=False;'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ ' until (CinputWord > MaxinputWord) or (CWild > MaxWilds);'#010+
|
|
|
+ ' { no completed evaluation }'#010+
|
|
|
+ ' if CinputWord <= MaxinputWord then Result:=False;'#010+
|
|
|
+ ' if (CWild <= MaxWilds) and (Wilds[MaxWilds] <> '#039'*'#039') the','n R'+
|
|
|
+ 'esult:=False;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #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: TStrin','gs;'#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 nam','e "%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 it','em 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 '+
|
|
|
- 'defined.'#039';'#013#010+
|
|
|
+ 'ument'#039';'#010+
|
|
|
+ ' SErrNoPackagesDefined = '#039'No action possible: No',' packages 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+
|
|
|
- ' SErrExternalC','ommandFailed = '#039'External command "%s" failed with'+
|
|
|
- ' exit code %d. Console output:'#039'+LineEnding+'#039'%s'#039';'#013#010+
|
|
|
- ' SErrExtCommandNotFound= '#039'External command "%s" not found'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrCreatingDirectory = '#039'Failed to create directory "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SErrDeletingFil','e = '#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+
|
|
|
- ' SErrChange','DirFailed = '#039'Failed to enter directory "%s"'#039';'#013+
|
|
|
- #010+
|
|
|
+ 'ncies for %s in package %s'#039';'#010+
|
|
|
+ ' SErrExternalCommandFailed = '#039'External com','mand "%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 dire','ctory "%s"'#039';'#010+
|
|
|
' SErrInvalidArgumentToSubstitute = '#039'Invalid number of arguments t'+
|
|
|
- 'o Substitute'#039';'#013#010+
|
|
|
+ '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 cal','led "%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+
|
|
|
- ' SErrInvalidFP','CInfo = '#039'Compiler returns invalid information,'+
|
|
|
- ' check if fpc -iV works'#039';'#013#010+
|
|
|
+ 'a function'#039';'#010+
|
|
|
+ ' SErrInvalidFPCInfo = '#039'Compiler returns invalid info','rmation,'+
|
|
|
+ ' 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+
|
|
|
- ' SEr','rInvalidState = '#039'Invalid state for target %s'#039';'#013+
|
|
|
- #010+
|
|
|
+ #039';'#010+
|
|
|
+ ' SErrInvalidState = '#039'Invalid state for targ','et %s'#039';'#010+
|
|
|
' SErrCouldNotCompile = '#039'Could not compile target %s from packag'+
|
|
|
- 'e %s'#039';'#013#010+
|
|
|
+ 'e %s'#039';'#010+
|
|
|
' SErrUnsupportedBuildmode = '#039'Package does not support this buildm'+
|
|
|
- 'ode'#039';'#013#010+
|
|
|
- ' SErrPackVarNotExist = '#039'There is no p','ackage variant with the '+
|
|
|
- 'name "%s"'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ode'#039';'#010+
|
|
|
+ ' SErrPackVarNotExist = '#039'There is no package variant with the na'+
|
|
|
+ 'me "%s"'#039';'#010+
|
|
|
+ ' SErrEvent','NotSupported = '#039'Unsupported event type'#039';'#010+
|
|
|
+ #010+
|
|
|
' SWarnCircularTargetDependency = '#039'Warning: Circular dependency de'+
|
|
|
- 'tected when compiling target %s with target %s'#039';'#013#010+
|
|
|
+ 'tected when compiling target %s with target %s'#039';'#010+
|
|
|
' SWarnCircularPackageDependency = '#039'Warning: Circular dependency d'+
|
|
|
- 'etected when compil','ing package %s with package %s'#039';'#013#010+
|
|
|
+ 'etected when comp','iling package %s with package %s'#039';'#010+
|
|
|
' SWarnFailedToSetTime = '#039'Warning: Failed to set timestamp on f'+
|
|
|
- 'ile "%s"'#039';'#013#010+
|
|
|
+ 'ile "%s"'#039';'#010+
|
|
|
' SWarnFailedToGetTime = '#039'Warning: Failed to get timestamp from'+
|
|
|
- ' file "%s"'#039';'#013#010+
|
|
|
- ' SWarnAttemptingToCompileNonNeutralTarget = '#039'Wa','rning: Attemptin'+
|
|
|
- 'g to compile non-neutral target %s'#039';'#013#010+
|
|
|
+ ' file "%s"'#039';'#010+
|
|
|
+ ' SWarnAttemptingToCompileNonNeutralTarget = '#039'War','ning: Attemptin'+
|
|
|
+ 'g to compile non-neutral target %s'#039';'#010+
|
|
|
' SWarnSourceFileNotFound = '#039'Warning: Source file "%s" from packa'+
|
|
|
- 'ge %s not found for %s'#039';'#013#010+
|
|
|
+ 'ge %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 '+
|
|
|
- 'not supported for %s'#039';'#013#010+
|
|
|
+ 'age %s not found for %s'#039';'#010+
|
|
|
+ ' SWa','rnDepUnitNotFound = '#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';'#013#010+
|
|
|
- ' SWar','nDependOnOtherPlatformPackage = '#039'Warning: Package %s depen'+
|
|
|
- 'ds on package %s which is not available for the %s platform'#039';'#013#010+
|
|
|
+ 'ocessed'#039';'#010+
|
|
|
+ ' SWarnDepen','dOnOtherPlatformPackage = '#039'Warning: Package %s depen'+
|
|
|
+ 'ds on package %s which is not available for the %s platform'#039';'#010+
|
|
|
' SWarnStartCompilingPackage = '#039'Start compiling package %s for tar'+
|
|
|
- 'get %s.'#039';'#013#010+
|
|
|
- ' SWarnCompilingPackagecompleteProgress = ',#039'[%3.0f%%] Compiled pack'+
|
|
|
- 'age %s'#039';'#013#010+
|
|
|
- ' SWarnCompilingPackagecomplete = '#039'Compiled package %s'#039';'#013#010+
|
|
|
+ 'get %s.'#039';'#010+
|
|
|
+ ' SWarnCompilingPackagecompleteProgress = '#039'[%3.0f%','%] Compiled pa'+
|
|
|
+ 'ckage %s'#039';'#010+
|
|
|
+ ' SWarnCompilingPackagecomplete = '#039'Compiled package %s'#039';'#010+
|
|
|
' SWarnSkipPackageTargetProgress = '#039'[%3.0f%%] Skipped package %s w'+
|
|
|
- 'hich has been disabled for target %s'#039';'#013#010+
|
|
|
- ' SWarnSkipPackageTarget = '#039'Skipped packag','e %s which has been di'+
|
|
|
- 'sabled for target %s'#039';'#013#010+
|
|
|
+ 'hich has been disabled for target %s'#039';'#010+
|
|
|
+ ' SWarnSkipPackageTarget = '#039'Skipped package %s which ','has been di'+
|
|
|
+ 'sabled for target %s'#039';'#010+
|
|
|
' SWarnInstallationPackagecomplete = '#039'Installation package %s for '+
|
|
|
- 'target %s succeeded'#039';'#013#010+
|
|
|
+ 'target %s succeeded'#039';'#010+
|
|
|
' SWarnCleanPackagecomplete = '#039'Clean of package %s completed'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SWarnCanNotGetAccessRights = '#039'Warning: ','Failed to copy access-r'+
|
|
|
- 'ights from file %s'#039';'#013#010+
|
|
|
+ #010+
|
|
|
+ ' SWarnCanNotGetAccessRights = '#039'Warning: Failed to copy',' access-r'+
|
|
|
+ 'ights from file %s'#039';'#010+
|
|
|
' SWarnCanNotSetAccessRights = '#039'Warning: Failed to copy access-rig'+
|
|
|
- 'hts to file %s'#039';'#013#010+
|
|
|
+ 'hts to file %s'#039';'#010+
|
|
|
' SWarnCanNotGetFileAge = '#039'Warning: Failed to get FileAge for %s'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SWarnExtCommandNotFound = '#039'Warning: Exter','nal command "%s" not '+
|
|
|
- 'found but "%s" is older then "%s"'#039';'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' SWarnExtCommandNotFound = '#039'Warning: External command "%s" ','not '+
|
|
|
+ 'found but "%s" is older then "%s"'#039';'#010+
|
|
|
' SWarnDuplicatePackage = '#039'Warning: Package %s is already added. U'+
|
|
|
- 'sing the existing package'#039';'#013#010+
|
|
|
- ' SWarngccNotFound = '#039'Could not find libgcc'#039';'#013#010+
|
|
|
- ' SWarngcclibpath = '#039'Warn','ing: Unable to determine the li'+
|
|
|
- 'bgcc path.'#039';'#013#010+
|
|
|
- ' SWarnNoFCLProcessSupport= '#039'No FCL-Process support'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' SInfoPackageAlreadyProcessed = '#039'Package %s is already processed'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SInfoCompilingTarget = '#039'Compiling target %s'#039';'#013#010+
|
|
|
- ' SInfoExecutingC','ommand = '#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+
|
|
|
+ 'sing the existing package'#039';'#010+
|
|
|
+ ' SWarngccNotFound = '#039'Could not find libgcc'#039';'#010+
|
|
|
+ ' SWarngcclibpath = '#039'Warning: Unable to deter','mine the li'+
|
|
|
+ 'bgcc path.'#039';'#010+
|
|
|
+ ' SWarnNoFCLProcessSupport= '#039'No FCL-Process support'#039';'#010+
|
|
|
+ ' SWarnRetryRemDirectory = '#039'Failed to remove directory "%s". R'+
|
|
|
+ 'etry after a short delay'#039';'#010+
|
|
|
#010+
|
|
|
- ' SInfoCleaningPackage =',' '#039'Cleaning package %s'#039';'#013#010+
|
|
|
+ ' SInfoPackageAlreadyProcessed = '#039'Package %s is already processed'#039+
|
|
|
+ ';'#010,
|
|
|
+ ' SInfoCompilingTarget = '#039'Compiling target %s'#039';'#010+
|
|
|
+ ' SInfoExecutingCommand = '#039'Executing command "%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+
|
|
|
' SInfoManifestPackage = '#039'Creating manifest for package %s'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SInfoCopyingFile = '#039'Copying file "%s" to "%s"'#039';'#013#010+
|
|
|
- ' SInfoDeletedFile = '#039'Deleted file "%s"'#039';'#013#010+
|
|
|
- ' SInfoRemovedDirectory = '#039'Removed direc','tory "%s"'#039';'#013#010+
|
|
|
+ #010+
|
|
|
+ ' SInfoPkgListPackage = '#039'Adding package %s to the package list'#039+
|
|
|
+ ';'#010+
|
|
|
+ ' SInfoCopyingFile ',' = '#039'Copying file "%s" to "%s"'#039';'#010+
|
|
|
+ ' SInfoDeletedFile = '#039'Deleted file "%s"'#039';'#010+
|
|
|
+ ' SInfoRemovedDirectory = '#039'Removed directory "%s"'#039';'#010+
|
|
|
' SInfoSourceNewerDest = '#039'Source file "%s" (%s) is newer than d'+
|
|
|
- 'estination "%s" (%s).'#039';'#013#010+
|
|
|
- ' SInfoDestDoesNotExist = '#039'Destination file "%s" does not exist.'+
|
|
|
- #039';'#013#010+
|
|
|
- ' SInfoFallbackBuildmode = '#039'Buildmode not supported by package, f',
|
|
|
- 'alling back to one by one unit compilation'#039';'#013#010+
|
|
|
+ 'estination "%s" (%s).'#039';'#010+
|
|
|
+ ' SInfoDes','tDoesNotExist = '#039'Destination file "%s" does not exis'+
|
|
|
+ 't.'#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, f'+
|
|
|
- 'alling back to compilation using a buildunit'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'alli','ng 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+
|
|
|
- ' SDbgResolvingSourcesOfTarget = '#039'Resolving filenames of target %s'+
|
|
|
- ' for %s'#039';'#013#010+
|
|
|
+ 'arget %s'#039';'#010+
|
|
|
+ ' SDbgResolvingSourcesOfTarget = '#039'Res','olving filenames of target '+
|
|
|
+ '%s for %s'#039';'#010+
|
|
|
' SDbgResolvedSourceFile = '#039'Resolved source file %s to "%s"'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SDbgSourceAl','readyResolved = '#039'Source file of %s has been resolv'+
|
|
|
- 'ed earlier'#039';'#013#010+
|
|
|
- ' SDbgResolvedIncludeFile = '#039'Resolved include file %s to "%s"'#039+
|
|
|
- ';'#013#010+
|
|
|
- ' SDbgOutputNotYetAvailable = '#039'Output file %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. (%s)'#039';'#013#010+
|
|
|
+ 'piled'#039';'#010+
|
|
|
+ ' SDbgMustCompile = '#039'Must ','compile %s. (%s)'#039';'#010+
|
|
|
' SDbgSkippingTargetWrongCPU = '#039'Skipping target %s, different CPU '+
|
|
|
- '(%s)'#039';'#013#010+
|
|
|
- ' SDbgSkippingTarge','tWrongOS = '#039'Skipping target %s, different OS'+
|
|
|
- ' (%s)'#039';'#013#010+
|
|
|
+ '(%s)'#039';'#010+
|
|
|
+ ' SDbgSkippingTargetWrongOS = '#039'Skipping target %s, different OS ('+
|
|
|
+ '%s)'#039';'#010+
|
|
|
' SDbgTargetIsNotAUnitOrProgram = '#039'Skipping Target %s, not an unit'+
|
|
|
- ' or program'#039';'#013#010+
|
|
|
- ' SDbgConsideringTarget = '#039'Considering target %s'#039';'#013#010+
|
|
|
- ' SDbgConsideringPackage = '#039'Considering packag','e %s'#039';'#013#010+
|
|
|
+ ' or progra','m'#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+
|
|
|
+ '"'#039';'#010+
|
|
|
+ ' SDbgBuildEngineArchiving = '#039'Build engine archiving'#039';',#010+
|
|
|
' SDbgBuildEngineGenerateManifests = '#039'Build engine generating mani'+
|
|
|
- 'fests'#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+
|
|
|
- ' SDbgNotFound = '#039'Not Found'#039';'#013#010+
|
|
|
- ' SDbgDirectoryExists = '#039'D','irectory "%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+
|
|
|
- ' SDbgEnterDir = '#039'Entering directory "%s"'#039';'#013#010+
|
|
|
- ' SDbgPackage','ChecksumChanged = '#039'Dependent package %s is modified'+
|
|
|
- #039';'#013#010+
|
|
|
- ' SDbgFileDoesNotExist = '#039'File "%s" does not exist'#039';'#013#010+
|
|
|
+ 'fests'#039';'#010+
|
|
|
+ ' SDbgBuildEngineGeneratePkgList = '#039'Build engine generating packag'+
|
|
|
+ 'e list'#039';'#010+
|
|
|
+ ' SDbgBuildEngineCleaning = '#039'Build engine cleaning'#039';'#010+
|
|
|
+ ' SDbgGenerating = '#039'Gene','rating "%s"'#039';'#010+
|
|
|
+ ' SDbgLoading = '#039'Loading "%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+
|
|
|
+ ';'#010+
|
|
|
+ ' SDbgFileDoesNot','Exist = '#039'File "%s" does not exist'#039';'#010+
|
|
|
' SDbgDirectoryDoesNotExist = '#039'Directory "%s" does not exist'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SDbgDirectoryNotEmpty = '#039'Directory "%s" is not empty. Wi','ll'+
|
|
|
- ' not remove'#039';'#013#010+
|
|
|
- ' SDbgGenerateBuildUnit = '#039'Generate build-unit %s'#039';'#013#010+
|
|
|
- ' SDbgForcedCompile = '#039'Forced compile'#039';'#013#010+
|
|
|
- ' SDbgOutputDoesNotExist = '#039'Output file does not exist'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SDbgNewerSource = '#039'Source file is newer then',' output '+
|
|
|
- 'file'#039';'#013#010+
|
|
|
- ' SDbgNewerInclude = '#039'The include file %s is newer then o'+
|
|
|
- 'utput file'#039';'#013#010+
|
|
|
+ #010+
|
|
|
+ ' SDbgDirectoryNotEmpty = '#039'Directory "%s" is not empty. Will n'+
|
|
|
+ '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 the','n'+
|
|
|
+ ' output file'#039';'#010+
|
|
|
' SDbgDependencyRecompiled = '#039'The unit %s where this unit depends'+
|
|
|
- ' on is recompiled'#039';'#013#010+
|
|
|
- ' SDbgPackageDepRecompiled = '#039'The package %s where this ','package'+
|
|
|
- ' depends on is recompiled'#039';'#013#010+
|
|
|
- ' SDbgTargetHasToBeCompiled = '#039'At least one of the targets in the '+
|
|
|
- 'package has to be compiled.'#039';'#013#010+
|
|
|
+ ' 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 th'+
|
|
|
+ 'e package has to be compiled.'#039';'#010+
|
|
|
' SDbgDeletedFile = '#039'Recursively deleted file "%s"'#039';'+
|
|
|
- #013#010+
|
|
|
- ' SDbgRemovedDirectory = '#039'Recursively ','removed directory "%s'+
|
|
|
- '"'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- ' // Help messages for usage'#013#010+
|
|
|
- ' SValue = '#039'Value'#039';'#013#010+
|
|
|
- ' SHelpUsage = '#039'Usage: %s command [options]'#039';'#013#010+
|
|
|
+ #010+
|
|
|
+ ' SDbgRemovedDirectory = '#039'Recursively removed directory "%s"'#039+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' // Help messages for usage'#010+
|
|
|
+ ' SValue = '#039'Val','ue'#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 package(s).'#039';'+
|
|
|
+ #010+
|
|
|
+ ' SHelpBuild = '#039'Build all units in the pa','ckage(s).'#039';'+
|
|
|
#010+
|
|
|
' SHelpInstall = '#039'Install all units in the package(s).'#039';'+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
' SHelpClean = '#039'Clean (remove) all units in the package(s'+
|
|
|
- ').'#039';',#013#010+
|
|
|
+ ').'#039';'#010+
|
|
|
' SHelpArchive = '#039'Create archive (zip) with all units in th'+
|
|
|
- 'e package(s).'#039';'#013#010+
|
|
|
- ' SHelpHelp = '#039'This message.'#039';'#013#010+
|
|
|
+ 'e package(s).'#039';'#010+
|
|
|
+ ' SHelpHelp',' = '#039'This message.'#039';'#010+
|
|
|
' SHelpManifest = '#039'Create a manifest suitable for import in '+
|
|
|
- 'repository.'#039';'#013#010+
|
|
|
- ' SHelpZipInstall = '#039'Install',' all units in the package(s) int'+
|
|
|
- 'o an archive.'#039';'#013#010+
|
|
|
+ 'repository.'#039';'#010+
|
|
|
+ ' SHelpPkgList = '#039'Create list of all packages suitable for '+
|
|
|
+ 'FPC installer.'#039';'#010+
|
|
|
+ ' SHelpZipInstall = '#039'Install all units in t','he package(s) int'+
|
|
|
+ 'o an archive.'#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+
|
|
|
- ' SHelpT','arget = '#039'Compile for indicated target'#039';'#013#010+
|
|
|
+ 'wing:'#039';'#010+
|
|
|
+ ' SHelpCPU = '#039'Compile for indicated CPU.'#039';'#010+
|
|
|
+ ' SHelpOS = '#039'Compile for indicated OS'#039';'#010+
|
|
|
+ ' SHelpTarget = '#039'Co','mpile 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+
|
|
|
- ' SHelpNoFPCCfg = '#039'Compiler wi','ll not use fpc.cfg'#039';'#013+
|
|
|
- #010+
|
|
|
- ' SHelpBaseInstallDir = '#039'Use indicated directory as base install d'+
|
|
|
- 'ir.'#039';'#013#010+
|
|
|
+ 'mmands.'#039';'#010+
|
|
|
+ ' SHelpNoFPCCfg = '#039'Compiler will not use fpc.cfg'#039';'#010+
|
|
|
+ ' ',' SHelpBaseInstallDir = '#039'Use indicated directory as base install'+
|
|
|
+ ' dir.'#039';'#010+
|
|
|
' SHelpLocalUnitDir = '#039'Use indicated directory as local (user) u'+
|
|
|
- 'nit dir.'#039';'#013#010+
|
|
|
+ 'nit dir.'#039';'#010+
|
|
|
' SHelpGlobalUnitDir = '#039'Use indicated directory as global unit di'+
|
|
|
- 'r','.'#039';'#013#010+
|
|
|
- ' SHelpUnitInstallDir = '#039'Use indicated directory to install units '+
|
|
|
- 'into.'#039';'#013#010+
|
|
|
- ' SHelpCompiler = '#039'Use indicated binary as compiler'#039';'#013+
|
|
|
- #010+
|
|
|
+ 'r.'#039';'#010+
|
|
|
+ ' SHelpUnitInstallDir',' = '#039'Use indicated directory to install unit'+
|
|
|
+ 's into.'#039';'#010+
|
|
|
+ ' SHelpCompiler = '#039'Use indicated binary as compiler'#039';'#010+
|
|
|
' SHelpConfig = '#039'Use indicated config file when compiling.'+
|
|
|
- #039';'#013#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+
|
|
|
+ #039';'#010+
|
|
|
+ ' SHelpOptions = '#039'Pass extra options to the compile','r.'#039+
|
|
|
+ ';'#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';'#013#010+
|
|
|
- ' SHelpIgnoreInvOpt ',' = '#039'Ignore further invalid options.'#039';'#013+
|
|
|
- #010+
|
|
|
+ 'ling'#039';'#010+
|
|
|
+ ' SHelpIgnoreInvOpt = '#039'Ignore further invalid option','s.'#039';'#010+
|
|
|
' sHelpFpdocOutputDir = '#039'Use indicated directory as fpdoc output f'+
|
|
|
- 'older.'#039';'#013#010+
|
|
|
+ 'older.'#039';'#010+
|
|
|
+ ' sHelpFPUnitSrcPath = '#039'Sourcepath to replace in fpunits.cfg on i'+
|
|
|
+ 'nstallation.'#039';'#010+
|
|
|
' sHelpThreads = '#039'Enable the indicated amount of worker thr'+
|
|
|
- 'eads.'#039';'#013#010+
|
|
|
- ' sHelpUseEnvironment = '#039'Use environment to pass o','ptions to comp'+
|
|
|
- 'iler.'#039';'#013#010+
|
|
|
+ 'eads.'#039';'#010+
|
|
|
+ ' sHe','lpUseEnvironment = '#039'Use environment to pass options to comp'+
|
|
|
+ 'iler.'#039';'#010+
|
|
|
' SHelpUseBuildUnit = '#039'Compile package in Build-unit mode.'#039';'+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
' sHelpZipPrefix = '#039'Use indicated prefix for generated archiv'+
|
|
|
- 'es.'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Const'#013#010+
|
|
|
- ' // Keys for Defaults file. Do not localize.'#013#010+
|
|
|
- ' KeyCompiler = '#039'Compi','ler'#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'RemoveTree'#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+
|
|
|
- ' KeySkipCrossProdrams = '#039'SkipCrossPrograms'#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+
|
|
|
- ' Ke','yDepends = '#039'Depends'#039';'#013#010+
|
|
|
- ' KeyFlags = '#039'Flags'#039';'#013#010+
|
|
|
- ' KeyAddIn = '#039'FPMakeAddIn'#039';'#013#010+
|
|
|
- ' KeySourcePath = '#039'SourcePath'#039';'#013#010+
|
|
|
- ' KeyFPMakeOptions = '#039'FPMakeOptions'#039';'#013#010+
|
|
|
- ' KeyPackageVar = '#039'PackageVariant_'#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************','**********************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' Helpers'#013#010+
|
|
|
+ 'es.'#039';'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' // Keys for Defaults file. D','o 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+
|
|
|
+ ' KeyOptio','ns = '#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+
|
|
|
+ ' KeyG','lobalUnitDir = '#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'Ex','amplesInstallDir'#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'NeedLib','C'#039';'#010+
|
|
|
+ ' KeyDepends = '#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+
|
|
|
- 'function ExecuteFPC(Verbose: boolean; const Path: string; ','const ComL'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
+ 'function ExecuteFPC(Verbose: boolean; const Path: string; cons','t ComL'+
|
|
|
'ine: string; const Env: TStrings; ConsoleOutput: TMemoryStream): integ'+
|
|
|
- 'er;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' P: TProcess;'#013#010+
|
|
|
- ' BytesRead: longint;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' function ReadFromStream(const ReadFromStdErr: boolean): longint;'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- ' const'#013#010+
|
|
|
- ' READ_BYTES = 2048;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ty','pe'#013#010+
|
|
|
- ' TMessages = (mCompiling, mLinking);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' var'#013#010+
|
|
|
+ 'er;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' P: TProcess;'#010+
|
|
|
+ ' BytesRead: longint;'#010+
|
|
|
+ #010+
|
|
|
+ ' function ReadFromStream(const ReadFromStdErr: boolean): longint;'#010+
|
|
|
+ #010+
|
|
|
+ ' const'#010+
|
|
|
+ ' READ_BYTES = 2048;'#010+
|
|
|
+ #010+
|
|
|
+ ' type'#010+
|
|
|
+ ' TMessag','es = (mCompiling, mLinking);'#010+
|
|
|
+ #010+
|
|
|
+ ' var'#010+
|
|
|
' //ifdef the MsgNum so it contains the correct message numbers for '+
|
|
|
- 'each compiler version.'#013#010+
|
|
|
- ' MsgNum : array [TMessages] of integer = (3104, 9015);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' n: longint;'#013#010+
|
|
|
- ' BuffPos: l','ongint;'#013#010+
|
|
|
- ' sLine: string;'#013#010+
|
|
|
- ' ch: char;'#013#010+
|
|
|
- ' msg: TMessages;'#013#010+
|
|
|
- ' ipos: integer;'#013#010+
|
|
|
- ' snum: string;'#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+
|
|
|
- ' if ReadFromStdE','rr then'#013#010+
|
|
|
- ' n := P.Stderr.Read((ConsoleOutput.Memory + BytesRead)^, READ_BYT'+
|
|
|
- 'ES)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' n := P.Output.Read((ConsoleOutput.Memory + BytesRead)^, READ_BYT'+
|
|
|
- 'ES);'#013#010+
|
|
|
- ' if n > 0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Inc(BytesRead, 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 then'#013#010+
|
|
|
- ' installer.log','(vlInfo,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+
|
|
|
+ 'each compiler version.'#010+
|
|
|
+ ' MsgNum : array [TMessages] of integer = (3104, 9015);'#010+
|
|
|
+ #010+
|
|
|
+ ' n,available: longint;'#010+
|
|
|
+ ' BuffPos: longint;'#010+
|
|
|
+ ' ','sLine: string;'#010+
|
|
|
+ ' ch: char;'#010+
|
|
|
+ ' msg: TMessages;'#010+
|
|
|
+ ' ipos: integer;'#010+
|
|
|
+ ' snum: string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ #010+
|
|
|
+ ' // try reading it'#010+
|
|
|
+ ' if ReadFromStdErr then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' available:=P.Stderr.NumBytesAvailable;'#010+
|
|
|
+ ' // make sure we have room'#010+
|
|
|
+ ' ',' if (bytesRead + Available > ConsoleOutput.Size) then'#010+
|
|
|
+ ' ConsoleOutput.SetSize(BytesRead + Available);'#010+
|
|
|
+ ' n := P.Stderr.Read((ConsoleOutput.Memory + BytesRead)^, availa'+
|
|
|
+ 'ble);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' available:=','P.Output.NumBytesAvailable;'#010+
|
|
|
+ ' // make sure we have room'#010+
|
|
|
+ ' if (bytesRead + Available > ConsoleOutput.Size) then'#010+
|
|
|
+ ' ConsoleOutput.SetSize(BytesRead + Available);'#010+
|
|
|
+ ' n := P.Output.Read((ConsoleOutput.Memory + BytesRead)','^, avai'+
|
|
|
+ 'lable);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if n > 0 then'#010+
|
|
|
+ ' begin'#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 := Form','at('#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));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if (LineEnding=#13#10) and (ch=#13)',' and'#013#010+
|
|
|
- ' (ConsoleOutput.Position<BytesRead) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ConsoleOutput.Read(ch,1);'#013#010+
|
|
|
- ' if ch=#10 then'#013#010+
|
|
|
- ' sLine:='#039#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' sLine:=ch;'#013#010+
|
|
|
- ' end',#013#010+
|
|
|
- ' else'#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 := BuffP','os;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // no data, wait 100 ms'#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' + C','omLine;'#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(false);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // read last part'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' until ReadFromStream(fa','lse)=0;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // read stderr'#013#010+
|
|
|
- ' // JvdS: Note that this way stderr is added to the end of the stre'+
|
|
|
- 'am. But I'#013#010+
|
|
|
+ ', 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 := BuffPos;'#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+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Only call ReadFromStream if Data from corresponding stream'#010+
|
|
|
+ ' // is already available, otherwise, on linux, the',' read call'+
|
|
|
+ #010+
|
|
|
+ ' // is blocking, and thus it is not possible to be sure to hand'+
|
|
|
+ 'le'#010+
|
|
|
+ ' // big data amounts bboth on output and stderr pipes. PM.'#010+
|
|
|
+ ' if P.Output.NumBytesAvailable > 0 then'#010+
|
|
|
+ ' ReadFromStream(false)'#010+
|
|
|
+ ' els','e if P.StdErr.NumBytesAvailable > 0 then'#010+
|
|
|
+ ' ReadFromStream(true)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' // no data, wait 100 ms'#010+
|
|
|
+ ' Sleep(100);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // read last part'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' until ReadFromStream(false)=0;'#010+
|
|
|
+ #010+
|
|
|
+ ' // read stderr'#010+
|
|
|
+ ' ',' // JvdS: Note that this way stderr is added to the end of the st'+
|
|
|
+ 'ream. But I'#010+
|
|
|
' // see no way showing the stderr output at the place it was actual'+
|
|
|
- 'ly written'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' until ReadFromStream(true)=0;'#013,#010+
|
|
|
- ' ConsoleOutput.SetSize(BytesRead);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' result := P.ExitStatus;'#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+
|
|
|
- ' Searc','hResult: longint;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := true;'#013#010+
|
|
|
- ' SearchResult := FindFirst(IncludeTrailingPathDelimiter(directory)+Al'+
|
|
|
- 'lFilesMask, 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+
|
|
|
- ' 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+
|
|
|
- 'funct','ion ParsecompilerOutput(M: TMemoryStream; Verbose: boolean): st'+
|
|
|
- 'ring;'#013#010+
|
|
|
- 'type'#013#010+
|
|
|
+ 'ly written'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' until ReadFromStream(true)=0;'#010+
|
|
|
+ ' ConsoleOutput.SetSize(BytesRead);',#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+
|
|
|
+ ' Search','Result := 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'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' result := false;'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' SearchResult := FindNext(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' sysutils.FindClose(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function ParsecompilerOutput(M: TMemoryStream; Verbose: boolean):',' st'+
|
|
|
+ '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.Position<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+
|
|
|
- ' begin'#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+
|
|
|
- ' // Omi','t 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+
|
|
|
- ' setlength(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+
|
|
|
- ' be','gin'#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 : Integer;'#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,R','esult,AmpStr);'#013#010+
|
|
|
- ' '#039'<'#039': W(J,Result,ltStr);'#013#010+
|
|
|
- ' '#039'>'#039': W(J,Result,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(Resu','lt,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+
|
|
|
+ ' presul','t^ := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' presult^ := ch;'#010+
|
|
|
+ ' inc(presult);'#010+
|
|
|
+ ' state := cosSearchColon;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ','cosParseNumber:'#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 : St','ring) : 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 maybequot','ed(const s:string):string;'#013#010+
|
|
|
- 'const'#013#010+
|
|
|
- ' {$IF DEFINED(MSWINDOWS) OR DEFINED(AMIGA) OR DEFINED(MORPHOS)}'#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(Resu','lt) then'#010+
|
|
|
+ ' SetLength(Result,J);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function maybequoted(const s:string):string;'#010+
|
|
|
+ 'const'#010+
|
|
|
+ ' {$IF DEFINED(MSWINDOWS) OR DEFINED(AMIGA) OR DEFINED(MORPHOS) OR DEF'+
|
|
|
+ 'INED(AROS)}'#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','#010+
|
|
|
' '#039'{'#039', '#039'}'#039', '#039#039#039#039', '#039'`'+
|
|
|
- #039', '#039'~'#039'];'#013#010+
|
|
|
- ' {$ELSE}'#013#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'];'#010+
|
|
|
+ ' {$ELSE}'#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', '#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:=True;'#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 : String;'#013#010+
|
|
|
- ' I,P,PC : Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // On some file systems and when using a large number of parallel ma'+
|
|
|
- 'ke'#013#010+
|
|
|
- ' // processes, the l','ock from the creation of the ini file may not y'+
|
|
|
- 'et'#013#010+
|
|
|
- ' // have been released even though the file has been closed already'#013+
|
|
|
- #010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);'#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+
|
|
|
- ' L[i]:','=Trim(System.Copy(Line,1,P-1)+'#039'='#039'+Trim(System'+
|
|
|
- '.Copy(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+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: TOS;'#013#010+
|
|
|
- ' Tmp: String;'#013#010+
|
|
|
- ' First: boolean;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' { can'#039't use SetToString, there are more than 32 OSes }'#013#010+
|
|
|
- ' First:=true;'#013#010,
|
|
|
- ' for i in OSes do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not First then'#013#010+
|
|
|
- ' Result:=Result+'#039','#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' First:=false;'#013#010+
|
|
|
- ' Str(i,Tmp);'#013#010+
|
|
|
- ' Result:=Result+Tmp;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Result:=LowerCase(Tmp);'#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+
|
|
|
+ #039', '#039'\'#039', '#039'`'#039', '#039'~'#039'];'#010+
|
|
|
+ ' {$ENDIF}'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' s1 : string;'#010+
|
|
|
+ ' i : int','eger;'#010+
|
|
|
+ ' quoted : boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' quoted:=false;'#010+
|
|
|
+ ' s1:='#039'"'#039';'#010+
|
|
|
+ ' for 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+
|
|
|
+ ' maybequo','ted:=s1+'#039'"'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' maybequoted:=s;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure ReadIniFile(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 m',
|
|
|
+ 'ake'#010+
|
|
|
+ ' // processes, the lock from the creation of the ini file may not yet'+
|
|
|
+ #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'+
|
|
|
+ '.Copy(Line,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:=OSToString(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(GetenumN','ame(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+
|
|
|
+ ' Result:='#039#039';'#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(Result);'#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(CPUS: TCPUS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
' Result:=LowerCase(SetToString(PTypeInfo(TypeInfo(TCPUS)),Integer(CPU'+
|
|
|
- 'S),False));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Func','tion 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 StringToOSes(c','onst S : String) : TOSes;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TOSes(StringToSet(PTypeInfo(TypeInfo(TOSes)),S));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '*)'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function IsDifferentFromBuild(ACpu: TCPU; AOs: TOs): boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := (AOs<>Defaults.BuildOS) or (ACpu<>Defaults.BuildC','PU);'#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+
|
|
|
- 'Func','tion 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(TCompilerMod','e),Ord(Mode)));'+
|
|
|
- #013#010+
|
|
|
- ' Delete(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(S','ErrInvalidMode,[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'+OSToStri','ng(OS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: TOS)'+
|
|
|
- ';'#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(Cop','y(S,1,P-1));'#013#010+
|
|
|
- ' OS:=StringToOs(Copy(S,P+1,Length(S)-P));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#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 AddConditionalStrings(APackage: TPackage; Dest : TStrings; Sr'+
|
|
|
- 'c : TConditionalStrings;ACPU:TCPU;AOS:TOS; Const APrefix : String='#039+
|
|
|
- #039') : Integer ;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' C : TConditionalString;'#013#010+
|
|
|
- ' D : TPackageDictionary;'#013#010,
|
|
|
- ' S : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=0;'#013#010+
|
|
|
- ' D := PackageDictionaryClass.Create(nil);'#013#010+
|
|
|
- ' D.MasterDictionary := APackage.Dictionary;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' D.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#013#010+
|
|
|
- ' D.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+
|
|
|
- ' ',' S := D.ReplaceStrings(s);'#013#010+
|
|
|
- ' if C is TConditionalDestString then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // If a destination path is given, omit the path of th'+
|
|
|
- 'e sourcefile'#013#010+
|
|
|
- ' if TConditionalDestString(c).DestPath='#039#039' ','then'#013+
|
|
|
+ '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(Stri','ngToSet(PTypeInfo(TypeInfo(TOSes)),S));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '*)'#010+
|
|
|
+ #010+
|
|
|
+ 'function IsDifferentFromBuild(ACpu: 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(StringToS','et(PTypeInfo(TypeInfo(TCPUS)),S));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function ModeToString(Mode: TCompilerMode) : 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(TCompilerMode),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: T','OS;ALimit83: boolean) : St'+
|
|
|
+ 'ring;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if ALimit83 then'#010+
|
|
|
+ ' Result := OSToString(OS)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=CPUToString(CPU)+'#039'-'#039'+OSToString(OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Function MakeTargetString(CPU : TCPU;OS: TOS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result := MakeTargetString',' (CPU, OS,'#010+
|
|
|
+ ' (Defaults.BuildOS in AllLimit83fsOses) or (OS in AllLimit83'+
|
|
|
+ 'fsOses));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function MakeZipSuffix(CPU : TCPU;OS: TOS;ALimit83: boolean) : String;'+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' case OS of'#010+
|
|
|
+ ' go32v2: result := '#039'dos'#039';'#010+
|
|
|
+ ' watcom: result := '#039,'wat'#039';'#010+
|
|
|
+ ' os2: result := '#039'os2'#039';'#010+
|
|
|
+ ' emx: result := '#039'emx'#039';'#010+
|
|
|
+ ' osNone:'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if ALimit83 then'#010+
|
|
|
+ ' result := '#039'src'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := '#039'.source'#039#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := '#039'.'#039' + MakeTargetString(CPU,',' OS, ALimit83);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function MakeZipSuffix(CPU : TCPU;OS: TOS) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result := MakeZipSuffix (CPU, OS,'#010+
|
|
|
+ ' (Defaults.BuildOS in AllLimit83fsOses) or (OS in AllLimit83'+
|
|
|
+ 'fsOses));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Procedure StringToCPUOS(const',' S : String; Var CPU : TCPU; Var OS: TO'+
|
|
|
+ 'S);'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' P : integer;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' P:=Pos('#039'-'#039',S);'#010+
|
|
|
+ ' If (P=0) then'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrInvalidTarget,[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)'+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I,J : Integer;'#010+
|
|
|
+ ' C : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Assigned(L) then'#010+
|
|
|
+ ' For I:=0 to L.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=L[i];'#010+
|
|
|
+ ' if C.DependencyType in [de','pPackage,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;',' '+
|
|
|
+ 'Src : TConditionalStrings;ACPU:TCPU;AOS:TOS; Const APrefix : String='#039+
|
|
|
+ #039') : Integer ;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' C : TConditionalString;'#010+
|
|
|
+ ' D : TPackageDictionary;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=0;'#010+
|
|
|
+ ' D := PackageDictionaryClass.Create(nil);'#010+
|
|
|
+ ' D.Mast','erDictionary := 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 Src.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' C:=Src[I];'#010+
|
|
|
+ ' if (ACPU in C.CPUs) and (AOS in C.OSes) th','en'#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 '+
|
|
|
+ 'the sourcefile'#010+
|
|
|
+ ' if TConditionalDestString(c).DestPath='#039#039' then'#010+
|
|
|
' Dest.values[S] := D.ReplaceStrings(IncludeTrailingP'+
|
|
|
- 'athDelimiter(TConditionalDestString(c).DestPath))+S'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'athDelimiter(TConditionalDestS','tring(c).DestPath))+S'#010+
|
|
|
+ ' else'#010+
|
|
|
' Dest.values[S] := D.ReplaceStrings(IncludeTrailingP'+
|
|
|
- 'athDelimiter(TCondi','tionalDestString(c).DestPath)+APrefix+ExtractFile'+
|
|
|
- 'Name(C.Value));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Dest.Add(S);'#013#010+
|
|
|
- ' Inc(Result);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' D.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function File','ListToString(List : TStrings; const APrefix : String) :'+
|
|
|
- ' String;'#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+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result := FixPath(APath, False);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function FixPath (const APath : Strin','g; AIsDir : Boolean) : 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+
|
|
|
- ' if AIsDir and (Result <> '#039#039') then'#013#010+
|
|
|
- ' Result := IncludeTrailingPathDelimiter(Result);;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function IsRelativePath(const APath: String): boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AP','ath='#039#039' then'#013#010+
|
|
|
- ' result := true'#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 APath : 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+
|
|
|
- 'procedure SearchFiles(const AFileName: string; Recursive: boolean; var'+
|
|
|
- ' Li','st: TStrings);'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'athDelimiter(TConditionalDestString(c).DestPath)+APrefix+ExtractFileNa'+
|
|
|
+ 'me(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 : TStrings; const APrefix : String) : S'+
|
|
|
+ 'tring;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : integer;'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' Fo','r 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+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=APath;'#010+
|
|
|
+ ' If (result<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' UniqueString(Result);'#010+
|
|
|
+ ' P:=PCh','ar(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+
|
|
|
+ 'e','nd;'#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 AllowDirectorySeparators 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) then'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(SErrChangeDirFailed,[APath]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure SearchFile','s(const AFileName: string; Recursive: boolean; v'+
|
|
|
+ 'ar List: TStrings);'#010+
|
|
|
+ #010+
|
|
|
' procedure AddRecursiveFiles(const SearchDir, FileMask: string; Recur'+
|
|
|
- 'sive: boolean);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' Info : TSearchRec;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if FindFirst(SearchDir+AllFilesMask,faAnyFile and faDirectory,Info'+
|
|
|
- ')=0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' repeat'#013#010+
|
|
|
+ 'sive: boolean);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' Info : TSearchRec;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if FindFirst(SearchDir+AllFilesMask,faAnyFil','e and faDirectory,In'+
|
|
|
+ 'fo)=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+
|
|
|
- ' AddRecursiveFiles(SearchDir + Info.Name + PathDelim, FileM'+
|
|
|
- 'ask, Recursive);'#013#010+
|
|
|
- ' if ((I','nfo.Attr and faDirectory) <> faDirectory) and IsWild'+
|
|
|
- '(Info.Name, FileMask, FileNameCaseSensitive) 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+
|
|
|
- 'var'#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(List.Count) do'#013#010+
|
|
|
- ' ',' List[i] := ExtractRelativepath(IncludeTrailingPathDelimiter(Curr'+
|
|
|
- 'Dir), 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+
|
|
|
- ' begin'#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+
|
|
|
- ' Opti','ons:=Trim(S);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
+ ' AddRecursiveFiles(SearchDir + Info.Name + PathDel','im, Fil'+
|
|
|
+ 'eMask, Recursive);'#010+
|
|
|
+ ' if ((Info.Attr and faDirectory) <> faDirectory) and IsWild(I'+
|
|
|
+ 'nfo.Name, FileMask, FileNameCaseSensitive) then'#010+
|
|
|
+ ' List.Add(SearchDir + Info.Name);'#010+
|
|
|
+ ' until FindNext(Info)<>0;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' sysutil','s.FindClose(Info);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' CurrDir,'#010+
|
|
|
+ ' BasePath: string;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' BasePath := ExtractFilePath(ExpandFileName(AFileName));'#010+
|
|
|
+ ' AddRecursiveFiles(BasePath, ExtractFileName(AFileName), Recursive);'#010+
|
|
|
+ #010+
|
|
|
+ ' CurrDir:=GetCurrentDir;'#010+
|
|
|
+ ' f','or i := 0 to Pred(List.Count) do'#010+
|
|
|
+ ' List[i] := ExtractRelativepath(IncludeTrailingPathDelimiter(CurrDi'+
|
|
|
+ 'r), List[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Const'#010+
|
|
|
+ ' WhiteSpace = [#9,#10,#13,'#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+
|
|
|
+ ' LastQuote:=#0;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Inc(I);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Exe:=Copy(S,1,I-1);'#010+
|
|
|
+ ' Delete(S,1,I);'#010+
|
|
|
+ ' Opti','ons:=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 := TStringList.Create;'#013#010+
|
|
|
- ' ','CustomFpmakeCommandlineOptions.Values[ACommandLineOption]:=HelpMes'+
|
|
|
- 'sage;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'elpMessage : string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(CustomFpmakeCommandlineOptions) then'#010+
|
|
|
+ ' CustomFpmakeCommandlineOptions := TStringList.Create;'#010+
|
|
|
+ ' CustomF','pmakeCommandlineOptions.Values[ACommandLineOption]:=HelpMes'+
|
|
|
+ 'sage;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
|
|
|
- 'n: string): string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not assigned(CustomFpMakeCommandlineValues) then'#013#010+
|
|
|
- ' re','sult := '#039#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'n: string): string;'#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+
|
|
|
+ ';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function AddProgramExtension(const ExecutableName: string; AOS : TOS):'+
|
|
|
- ' string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AOS in [Go32v2,Win32,Win64,Wince,OS2,EMX,Watcom','] then'#013#010+
|
|
|
- ' Result:=ExecutableName+ExeExt'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=ExecutableName;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ' string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AOS in [Go32v2,Win32,Win64,Wince,OS2,EMX,Watcom] then'#010+
|
|
|
+ ' Result:=E','xecutableName+ExeExt'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=ExecutableName;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function GetImportLibraryFilename(const UnitName: string; AOS: TOS): s'+
|
|
|
- 'tring;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AOS in [go32v2,watcom] then'#013#010+
|
|
|
- ' Result := '#039'libimp'#039'+UnitName'#013#010,
|
|
|
- ' else if AOS in [os2,emx] then'#013#010+
|
|
|
- ' Result := UnitName'#013#010+
|
|
|
- ' else if AOS in [netware,netwlibc,macos] then'#013#010+
|
|
|
- ' Result := '#039'lib'#039'+UnitName'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result := '#039'libimp'#039'+UnitName;'#013#010+
|
|
|
- ' Result := Result + LibExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Function OptionListToStri','ng(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:= Result + '#039'"'#039'+S+'#039'"'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:= Result + S;'#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.C','reate;'#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 HA','S_UNIT_PROCESS}'#013#010+
|
|
|
- 'function GetCompilerInfo(const ACompiler,AOptions:string; ReadStdErr: '+
|
|
|
- 'boolean):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(N','il);'#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+
|
|
|
- ' if (count=0) and ReadStdErr then'#013#010+
|
|
|
- ' Count:=s.Stderr.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+
|
|
|
- 'function GetDefaultLibGCCDir(CPU : TCPU;OS: TOS; var ErrorMessage: str'+
|
|
|
- 'ing): string;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' function Get4thWord(const AString: string): string;'#013#010+
|
|
|
- ' var p: pchar;'#013#010+
|
|
|
- ' spaceco','unt: integer;'#013#010+
|
|
|
- ' StartWord: pchar;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result:='#039#039';'#013#010+
|
|
|
- ' if length(AString)>6 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' p := @AString[1];'#013#010+
|
|
|
- ' spacecount:=0;'#013#010+
|
|
|
- ' StartWord:=nil;'#013#010+
|
|
|
- ' while (not (p^ in [#0,#10,#13])) and ((p^<>'#039' '#039') or (St','a'+
|
|
|
- 'rtWord=nil)) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if p^='#039' '#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' inc(spacecount);'#013#010+
|
|
|
- ' if spacecount=3 then StartWord:=p+1;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inc(p);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if StartWord<>nil then'#013#010+
|
|
|
- ' begin',#013#010+
|
|
|
- ' SetLength(result,p-StartWord);'#013#010+
|
|
|
- ' move(StartWord^,result[1],p-StartWord);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' result := '#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' function GetGccDirArch(const ACpuType, GCCParams: string) : string;'#013+
|
|
|
- #010+
|
|
|
- ' var Ex','ecResult: string;'#013#010+
|
|
|
- ' libgccFilename: string;'#013#010+
|
|
|
- ' GccExecutable: string;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := '#039#039';'#013#010+
|
|
|
- ' GccExecutable := ExeSearch(AddProgramExtension('#039'gcc'#039', OS),'+
|
|
|
- 'GetEnvironmentVariable('#039'PATH'#039'));'#013#010+
|
|
|
- ' if FileExists(GccExecutable) the','n'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
+ 'tring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AOS in [go32v2,watcom] then'#010+
|
|
|
+ ' Result := '#039'libimp'#039'+UnitName'#010+
|
|
|
+ ' else if AOS in [os2,emx] the','n'#010+
|
|
|
+ ' Result := 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 OptionListToString(L : TStrings) : String;'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' I : I','nteger;'#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:= Result + '#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(const ACompiler,AOptions:string; ReadStdE','rr'+
|
|
|
+ ': boolean):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+
|
|
|
+ ' Cou','nt:=s.output.read(buf,BufSize);'#010+
|
|
|
+ ' if (count=0) and ReadStdErr then'#010+
|
|
|
+ ' Count:=s.Stderr.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+
|
|
|
+ 'function GetDefaultLibGCCDir(CPU : T','CPU;OS: TOS; var ErrorMessage: s'+
|
|
|
+ 'tring): string;'#010+
|
|
|
+ #010+
|
|
|
+ ' function Get4thWord(const AString: string): string;'#010+
|
|
|
+ ' var p: pchar;'#010+
|
|
|
+ ' spacecount: integer;'#010+
|
|
|
+ ' StartWord: pchar;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result:='#039#039';'#010+
|
|
|
+ ' if length(AString)>6 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' p := @AString[1];'#010+
|
|
|
+ ' spacecount:=0;'#010+
|
|
|
+ ' StartWord:=nil;'#010+
|
|
|
+ ' while (not (p^ in [#0,#10,#13])) and ((p^<>'#039' '#039') or (Star'+
|
|
|
+ 'tWord=nil)) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if p^='#039' '#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' inc(spacecount);'#010+
|
|
|
+ ' if spaceco','unt=3 then StartWord:=p+1;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' inc(p);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if StartWord<>nil then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' SetLength(result,p-StartWord);'#010+
|
|
|
+ ' move(StartWord^,result[1],p-StartWord);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result :','= '#039#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' function GetGccDirArch(const ACpuType, GCCParams: string) : string;'#010+
|
|
|
+ ' var ExecResult: string;'#010+
|
|
|
+ ' libgccFilename: string;'#010+
|
|
|
+ ' GccExecutable: string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := '#039#039';'#010+
|
|
|
+ ' GccExecutable := ExeSearch(Add','ProgramExtension('#039'gcc'#039', OS'+
|
|
|
+ '),Sysutils.GetEnvironmentVariable('#039'PATH'#039'));'#010+
|
|
|
+ ' if FileExists(GccExecutable) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ '{$ifdef HAS_UNIT_PROCESS}'#010+
|
|
|
' ExecResult:=GetCompilerInfo(GccExecutable,'#039'-v '#039'+GCCParam'+
|
|
|
- 's, True);'#013#010+
|
|
|
- ' libgccFilename:=Get4thWord(ExecResult);'#013#010+
|
|
|
- ' if libgccFilename='#039#039' then'#013#010+
|
|
|
- ' libgccFilename:=GetCompilerInfo(GccE','xecutable,'#039'--print-l'+
|
|
|
- 'ibgcc-file-name '#039'+GCCParams, False);'#013#010+
|
|
|
- ' result := ExtractFileDir(libgccFilename);'#013#010+
|
|
|
- '{$else HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' ErrorMessage := SWarnNoFCLProcessSupport;'#013#010+
|
|
|
- '{$endif HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Erro','rMessage := SWarngccNotFound;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := '#039#039';'#013#010+
|
|
|
- ' ErrorMessage:='#039#039';'#013#010+
|
|
|
- ' if OS in [freebsd, openbsd] then'#013#010+
|
|
|
- ' result := '#039'/usr/local/lib'#039#013#010+
|
|
|
- ' else if OS = netbsd then'#013#010+
|
|
|
- ' result := '#039'/usr/pkg/lib'#039#013#010+
|
|
|
- ' else if OS = linux then'#013#010+
|
|
|
- ' ',' case CPU of'#013#010+
|
|
|
+ 's, True);'#010+
|
|
|
+ ' libgccFilename:=','Get4thWord(ExecResult);'#010+
|
|
|
+ ' if libgccFilename='#039#039' then'#010+
|
|
|
+ ' libgccFilename:=GetCompilerInfo(GccExecutable,'#039'--print-lib'+
|
|
|
+ 'gcc-file-name '#039'+GCCParams, False);'#010+
|
|
|
+ ' result := ExtractFileDir(libgccFilename);'#010+
|
|
|
+ '{$else HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' Erro','rMessage := SWarnNoFCLProcessSupport;'#010+
|
|
|
+ '{$endif HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ErrorMessage := SWarngccNotFound;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := '#039#039';'#010+
|
|
|
+ ' ErrorMessage:='#039#039';'#010+
|
|
|
+ ' if OS in [freebsd, openbsd, dragonfly] then'#010+
|
|
|
+ ' result := '#039'/usr/l','ocal/lib'#039#010+
|
|
|
+ ' else if OS = netbsd then'#010+
|
|
|
+ ' result := '#039'/usr/pkg/lib'#039#010+
|
|
|
+ ' else if OS = linux then'#010+
|
|
|
+ ' case CPU of'#010+
|
|
|
' i386: result := GetGccDirArch('#039'cpui386'#039','#039'-m32'#039+
|
|
|
- ');'#013#010+
|
|
|
+ ');'#010+
|
|
|
' x86_64: result := GetGccDirArch('#039'cpux86_64'#039','#039'-m64'#039+
|
|
|
- ');'#013#010+
|
|
|
- ' powerpc: result := GetGccDirArch('#039'cpupowerpc'#039','#039'-m32'+
|
|
|
- #039');'#013#010+
|
|
|
- ' powerpc64:result := GetGccDirArch','('#039'cpupowerpc64'#039','#039'-'+
|
|
|
- 'm64'#039');'#013#010+
|
|
|
- ' end {case}'#013#010+
|
|
|
- ' else if OS = darwin then'#013#010+
|
|
|
- ' case CPU of'#013#010+
|
|
|
+ ');'#010+
|
|
|
+ ' powerp','c: result := GetGccDirArch('#039'cpupowerpc'#039','#039'-m'+
|
|
|
+ '32'#039');'#010+
|
|
|
+ ' powerpc64:result := GetGccDirArch('#039'cpupowerpc64'#039','#039'-m'+
|
|
|
+ '64'#039');'#010+
|
|
|
+ ' end {case}'#010+
|
|
|
+ ' else if OS = darwin then'#010+
|
|
|
+ ' case CPU of'#010+
|
|
|
' i386: result := GetGccDirArch('#039'cpui386'#039','#039'-arch i'+
|
|
|
- '386'#039');'#013#010+
|
|
|
- ' x86_64: result := GetGccDirArch('#039'cpux86_64'#039','#039'-arch'+
|
|
|
- ' x86_64'#039');'#013#010+
|
|
|
- ' powerpc: r','esult := GetGccDirArch('#039'cpupowerpc'#039','#039'-a'+
|
|
|
- 'rch ppc'#039');'#013#010+
|
|
|
+ '386'#039');'#010+
|
|
|
+ ' ',' x86_64: result := GetGccDirArch('#039'cpux86_64'#039','#039'-ar'+
|
|
|
+ 'ch x86_64'#039');'#010+
|
|
|
+ ' powerpc: result := GetGccDirArch('#039'cpupowerpc'#039','#039'-arc'+
|
|
|
+ 'h ppc'#039');'#010+
|
|
|
' powerpc64:result := GetGccDirArch('#039'cpupowerpc64'#039','#039'-a'+
|
|
|
- 'rch ppc64'#039');'#013#010+
|
|
|
- ' end; {case}'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TPackageVariant.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACo','llection);'#013#010+
|
|
|
- ' FTargets := TTargets.Create(TTarget);'#013#010+
|
|
|
- ' FOptions := TStringList.Create;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TPackageVariant.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FOptions.Free;'#013#010+
|
|
|
- ' FTargets.Free;'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{ TPackageVariants }'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure ','TPackageVariants.SetDefaultPackageVariantName(AValue: stri'+
|
|
|
- 'ng);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FDefaultPackageVariantName=AValue then Exit;'#013#010+
|
|
|
- ' if not assigned(ItemByName(avalue)) then'#013#010+
|
|
|
- ' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#013#010+
|
|
|
- ' FDefaultPa','ckageVariantName:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackageVariants.GetActivePackageVariant: TPackageVariant;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := ItemByName(ActivePackageVariantName) as TPackageVariant;'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackageVariants.GetDefaultPackageVariant:',' TPackageVariant;'+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := ItemByName(DefaultPackageVariantName) as TPackageVariant;'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'rch ppc64'#039');'#010+
|
|
|
+ ' end; {case}'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TP','ackageVariant.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(ACollection);'#010+
|
|
|
+ ' FTargets := TTargets.Create(TTarget);'#010+
|
|
|
+ ' FOptions := TStringList.Create;'#010+
|
|
|
+ ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FSourcePath:=','TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'destructor TPackageVariant.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FOptions.Free;'#010+
|
|
|
+ ' FTargets.Free;'#010+
|
|
|
+ ' FIncludePath.Free;'#010+
|
|
|
+ ' FSourcePath.Free;'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{ TPackageVariants }'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackageVa','riants.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+
|
|
|
+ ' FDefaultPackageVariantNam','e:=AValue;'#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+
|
|
|
+ ' result := ItemByName(DefaultPackageVariantName) as TPackageVariant;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TPackageVariants.SetActivePackageVariantName(AValue: string)'+
|
|
|
- ';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FActivePackageVariantName=AValue then Exit;'#013#010+
|
|
|
- ' if ','not assigned(ItemByName(avalue)) then'#013#010+
|
|
|
- ' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#013#010+
|
|
|
- ' FActivePackageVariantName:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackageVariants.Add(AName: String): TPackageVariant;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := self.add a','s TPackageVariant;'#013#010+
|
|
|
- ' result.Name := AName;'#013#010+
|
|
|
- ' if FDefaultPackageVariantName='#039#039' then'#013#010+
|
|
|
- ' FDefaultPackageVariantName:=AName;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{ TConditionalDestStrings }'#013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#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 := AN','ame;'#010+
|
|
|
+ ' if FDefaultPackageVariantName='#039#039' then'#010+
|
|
|
+ ' FDefaultPackageVariantName:=AName;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{ TConditionalDestStrings }'#010+
|
|
|
+ #010+
|
|
|
'function TConditionalDestStrings.GetConditionalString(Index : Integer)'+
|
|
|
- ': T','ConditionalDestString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TConditionalDestString(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ': TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TConditi','onalDestString(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TConditionalDestStrings.SetConditionalString(Index : Integer'+
|
|
|
- '; AValue: TConditionalDestString);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constr','uctor TConditionalDestStrings.Create(AClass: TConditionalDestS'+
|
|
|
- 'tringClass);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(AClass);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '; AValue: TConditionalDestString);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TConditionalDestStrings.Create(AClass: TConditional','DestS'+
|
|
|
+ 'tringClass);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AClass);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TConditionalDestStrings.Add(const Value: String; ADestPath: S'+
|
|
|
- 'tring): TConditionalDestString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Add(Valu','e, AllCPUs, AllOSes, ADestPath);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TConditionalDestStrings.Add(const Value: String; const OSes: '+
|
|
|
- 'TOSes; ADestPath: String): TConditionalDestString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Add(Value, AllCPUs, OSes, ADestPath);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_ove','rloads}'#013#010+
|
|
|
- 'Function TConditionalDestStrings.Add(Const Value : String;const CPUs:T'+
|
|
|
- 'CPUs; ADestPath: String) : TConditionalDestString;inline;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Add(Value, CPUs, AllOSes, ADestPath);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- '{$endif cpu_only_overloads}'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCondi','tionalDestStrings.Add(const Value: String; const CPUs'+
|
|
|
- ': TCPUs; const OSes: TOSes; ADestPath: String): TConditionalDestString'+
|
|
|
- ';'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' ACondString: TConditionalDestString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' ACondString := inherited Add(Value,CPUs,OSes) as TConditiona','lDestS'+
|
|
|
- 'tring;'#013#010+
|
|
|
- ' ACondString.DestPath:=ADestPath;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{ TPackageDictionary }'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'tring): TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add(Value, AllCPUs, AllOSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TConditi','onalDestStrings.Add(const Value: String; const OSes'+
|
|
|
+ ': TOSes; ADestPath: String): TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add(Value, AllCPUs, OSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
+ 'Function TConditionalDestStrings.Add(Const Value',' : String;const CPUs'+
|
|
|
+ ':TCPUs; ADestPath: String) : TConditionalDestString;inline;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add(Value, CPUs, AllOSes, ADestPath);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TConditionalDestStrings.Add(const Value: String; const CPUs: '+
|
|
|
+ 'T','CPUs; const OSes: TOSes; ADestPath: String): TConditionalDestString'+
|
|
|
+ ';'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' ACondString: TConditionalDestString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ACondString := inherited Add(Value,CPUs,OSes) as TConditionalDestStr'+
|
|
|
+ 'ing;'#010+
|
|
|
+ ' ACondString.DestPath:=ADestPath;'#010+
|
|
|
+ ' Result:=AC','ondString;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{ TPackageDictionary }'#010+
|
|
|
+ #010+
|
|
|
'function TPackageDictionary.GetValue(const AName, Args: String): Strin'+
|
|
|
- 'g;'#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+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if assigned(MasterDictionary) then'#013#010+
|
|
|
- ' result := MasterDictionary.GetValue(AName,Args)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' result := GlobalDictionary.GetValue(AName,Args);'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' end;'#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+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- #013#010+
|
|
|
- '{ TCompileWorkerThread }'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TCompileWorkerThread.Create(ABuildEngine: TBuildEngin','e; '+
|
|
|
- 'NotifyMainThreadEvent: PRTLEvent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(false);'#013#010+
|
|
|
- ' FNotifyStartTask := RTLEventCreate;'#013#010+
|
|
|
- ' FBuildEngine := ABuildEngine;'#013#010+
|
|
|
- ' FNotifyMainThreadEvent:=NotifyMainThreadEvent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TCompileWorkerThread.Dest','roy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' RTLeventdestroy(FNotifyStartTask);'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCompileWorkerThread.execute;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' while not Terminated do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FDone:=true;'#013#010+
|
|
|
- ' RTLeventSetEvent(FNotifyMainThreadEvent);'#013#010+
|
|
|
- ' RTLe','ventWaitFor(FNotifyStartTask,500);'#013#010+
|
|
|
- ' if not FDone then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FBuildEngine.log(vlInfo,'#039'Compiling: '#039'+APackage.Name);'#013+
|
|
|
- #010+
|
|
|
- ' FCompilationOK:=false;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' FBuildEngine.Compile(APackage);'#013#010+
|
|
|
- ' FCompilationOK:=t','rue;'#013#010+
|
|
|
- ' except'#013#010+
|
|
|
- ' on E: Exception do'#013#010+
|
|
|
- ' FErrorMessage := E.Message;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'g;'#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(MasterDictiona','ry) 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+
|
|
|
+ ' el','se'#010+
|
|
|
+ ' Result:=TFunctionItem(O).FFunc(AName,Args);'#010+
|
|
|
+ 'end;'#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+
|
|
|
+ ' FBuildEngine := ABuildEngine;'#010+
|
|
|
+ ' FNotifyMainThreadEvent:=NotifyMainThreadEvent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'destructor TCompileWorkerThread.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' RTLeventdestroy(FNotifyStartTask);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'p','rocedure 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+
|
|
|
+ ' FCompilationOK:=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+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#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+
|
|
|
- ' I','f result > -1 then'#013#010+
|
|
|
- ' Case DUplicates of'#013#010+
|
|
|
- ' DupIgnore : Exit;'#013#010+
|
|
|
- ' DupError : Error(SDuplicateString,0)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inherited Add(S);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TUnsortedDuplicatesStringList'#010+
|
|
|
+ '*********************************************************','***********'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TUnsortedDuplicatesStringList.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+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ ' inherited Add(S);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TNamedItem'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TNamedItem'#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(Collecti','on) 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+
|
|
|
+ '******}'#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,[AV','alue]);'#010+
|
|
|
+ ' FName:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TNamedCollection'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedCollection.GetItem(Index: Integer): TNamedItem;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := TNamedItem(inheri','ted getItem(index));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'fu','nction TNamedCollection.GetItem(Index: Integer): TNamedItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := TNamedItem(inherited getItem(index));'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TNamedCollection.SetItem(Index: Integer; AValue: TNamedItem)'+
|
|
|
- ';'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited SetItem(Index, AValue);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedCollection.IndexOfName(const AName: String): Integer;'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Resu','lt:=Count-1;'#013#010+
|
|
|
+ ';'#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+
|
|
|
- 'function TNamedCollection.ItemByName(const AName: String): TNamedItem;'+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' I:=IndexOf','Name(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+
|
|
|
- ' ',' TNamedItemList'#013#010+
|
|
|
+ 'Name)<>0) do'#010+
|
|
|
+ ' Dec(Result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedCollection.ItemByName','(const AName: String): TNamedIte'+
|
|
|
+ 'm;'#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+
|
|
|
+ '{**********************************','*********************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TNamedItemList'#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 TName','dItemList.SetNamedItem(Index : Integer; const AValue:'+
|
|
|
- ' TNamedItem);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#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 (CompareTex','t(GetNamedItem(Result).Name,AName'+
|
|
|
- ')<>0) do'#013#010+
|
|
|
- ' Dec(Result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TNamedItemList.ItemByName(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+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedItemList.GetNamedItem(Index : Integer): TNamedItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ',' Result:=TNamedItem(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNamedItemList.SetNamedItem(Index : Integer; const AValue: T'+
|
|
|
+ 'NamedItem);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[Index]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TNamedItemList.IndexOfName(const AName: String): Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Resu','lt:=Count-1;'#010+
|
|
|
+ ' While (Result>=0) and (CompareText(GetNamedItem(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(SErrNoSuchName,[AName]);'#010+
|
|
|
+ ' Result:=TNamedItem(Items[i]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TTargets'#013#010+
|
|
|
- '****************************************','****************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTargets.GetTargetItem(Index : Integer): TTarget;'#013#010+
|
|
|
- 'begin'#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(It','emByName(AName));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#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+
|
|
|
'procedure TTargets.SetTargetItem(Index : Integer; const AValue: TTarge'+
|
|
|
- 't);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 't);'#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 T','Targets.AddUnit(Const AUnitName : String;const OSes:TOSes)'+
|
|
|
- ' : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddUnit(AUnitName,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Resul','t:=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 TTar','gets.AddUnit(Const AUnitName : String;const OSes:TOSes)'+
|
|
|
+ ' : 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+
|
|
|
+ ' TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' R','esult:=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;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=A','UnitName;'#013#010+
|
|
|
- ' Result.TargetType:=TTUnit;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'nst OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TTarget;'#010+
|
|
|
+ ' Result.Name:=AUnitName;'#010+
|
|
|
+ ' Result.T','argetType:=TTUnit;'#010+
|
|
|
+ ' Result.CPUs:=CPUs;'#010+
|
|
|
+ ' Result.OSes:=OSes;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddImplicitUnit(Const AUnitName : String;InstallUnit'+
|
|
|
- ':boolean=true) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddImplicitUnit(AUnitName,AllCP','Us,AllOSes,InstallUnit);'#013+
|
|
|
+ ':boolean=true) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddImplicitUnit(AUnitName,AllCPUs,AllOSes,InstallUnit);'#010+
|
|
|
+ 'end;',#010+
|
|
|
+ #010+
|
|
|
#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const OSes:'+
|
|
|
- '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+
|
|
|
- 'Function ','TTargets.AddImplicitUnit(Const AUnitName : String;const CPU'+
|
|
|
- 's: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+
|
|
|
- 'Function TTargets.AddImplicitUnit(Const AUnitName : St','ring;const CPU'+
|
|
|
- 's:TCPUs;const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TTarget;'#013#010+
|
|
|
- ' Result.Name:=AUnitName;'#013#010+
|
|
|
- ' Result.CPUs:=CPUs;'#013#010+
|
|
|
- ' Result.OSes:=OSes;'#013#010+
|
|
|
- ' if InstallUnit then'#013#010+
|
|
|
- ' Result.TargetType:=TTImplicitUn','it'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result.TargetType:=TTCleanOnlyUnit;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddProgram(Const AProgramName : String) : TTarget;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddProgram(AProgramName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TTargets.AddProgram(Const AP','rogramName : String;const OSes:'+
|
|
|
- 'TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddProgram(AProgramName,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#013#010+
|
|
|
+ 'TOSes;InstallUnit:boolean=true) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddImplicitUnit(AUnitName,AllCPUs,OSes,InstallUnit);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddImplicitUnit(Const AUnitNam','e : String;const CPU'+
|
|
|
+ 's: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;Instal','lUnit: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+
|
|
|
+ 'en','d;'#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;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:','=AddProgram(AProgramName,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef 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+
|
|
|
+ 'PUs) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddProgram(AProgramName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$endif cpu_only_ov','erloads}'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TTargets.AddProgram(Const AProgramName : String;const CPUs:TC'+
|
|
|
- 'PUs;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;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:=tt','Program;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddExampleUnit(Const 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'+
|
|
|
- ':TCPUs) : 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+
|
|
|
+ 'b','egin'#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) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleUnit(AUnitName,CPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ '{$','endif cpu_only_overloads}'#010+
|
|
|
+ #010+
|
|
|
+ #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:=OSes;'#013#010+
|
|
|
- ' Result.TargetType:=ttExampleUnit;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'CPUs;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) : TTa'+
|
|
|
- 'rget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' R','esult:=AddExampleProgram(AProgramName,AllCPUs,AllOSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'rget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleProgram(AProgramName,AllCPUs,AllOSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TTargets.AddExampleProgram(Const AProgramName : ','String;cons'+
|
|
|
+ 't OSes:TOSes) : TTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddExampleProgram(AProgramName,AllCPUs,OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef cpu_only_overloads}'#010+
|
|
|
'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
|
|
|
- 'OSes:TOSes) : TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddExampleProgram(AProgramName,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifd','ef cpu_only_overloads}'#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) : 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+
|
|
|
- 'Function TTargets.A','ddExampleProgram(Const AProgramName : String;cons'+
|
|
|
- 't 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:=ttExampleProgram;'#013#010,
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '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:=ttExampleProgram;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TSources'#013#010+
|
|
|
- '**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TSources.GetSourceI','tem(Index : Integer): TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TSource(Items[Index]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TSources'#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);'#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:=stDoc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#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: St','ring; AInstallSourcePat'+
|
|
|
- 'h: 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 : St','ring) : TSource;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Add as TSource;'#013#010+
|
|
|
- ' Result.Name:=AFiles;'#013#010+
|
|
|
- ' Result.FSourceType:=stTest;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'e);'#010+
|
|
|
+ 'b','egin'#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; AInsta','llSourcePath: S'+
|
|
|
+ 'tring): TSource;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as 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+
|
|
|
+ ' R','esult:=Add as TSource;'#010+
|
|
|
+ ' Result.Name:=AFiles;'#010+
|
|
|
+ ' Result.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+
|
|
|
+ 'f','unction TSources.AddExample(const AFiles: String; AInstallSourcePat'+
|
|
|
+ '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+
|
|
|
+ 'begin'#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.AddSrcFi','les(const AFileMask: string; Recursive: b'+
|
|
|
- 'oolean);'#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+
|
|
|
- ' AddSrc(List[i]);'#013#010+
|
|
|
- ' List.Fr','ee;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'lean; 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+
|
|
|
+ ' AddDoc(List[i], AInstallSourcePath);'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TSo','urces.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+
|
|
|
+ ' Li','st.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TSources.AddExampleFiles(const AFileMask: string; Recursive:'+
|
|
|
- ' boolean; 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, Recurs','ive, 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+
|
|
|
+ ' 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+
|
|
|
+ ' AddExample(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+
|
|
|
- 'be','gin'#013#010+
|
|
|
- ' List := TStringList.Create;'#013#010+
|
|
|
- ' SearchFiles(AFileMask, Recursive, List);'#013#010+
|
|
|
- ' for i:= 0 to Pred(List.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 := TS','tringList.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+
|
|
|
+ '*******'#010+
|
|
|
+ ' ',' TPackage'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TPackage.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACollection);'#013#010+
|
|
|
- ' FVersion:=TFPVersio','n.Create;'#013#010+
|
|
|
- ' FTargets:=TTargets.Create(TTarget);'#013#010+
|
|
|
- ' FSources:=TSources.Create(TSource);'#013#010+
|
|
|
- ' FDependencies:=TDependencies.Create(TDependency);'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TPackage.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(ACollection);'#010+
|
|
|
+ ' FVersion:=TFPVersion.Create;'#010+
|
|
|
+ ' FTargets:=TTargets.C','reate(TTarget);'#010+
|
|
|
+ ' FSources:=TSources.Create(TSource);'#010+
|
|
|
+ ' FDependencies:=TDependencies.Create(TDependency);'#010+
|
|
|
' FInstallFiles:=TConditionalDestStrings.Create(TConditionalDestString'+
|
|
|
- ');'#013#010+
|
|
|
- ' FCleanFiles:=TConditio','nalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FSource','Path:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FExamplePath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FTestPath:=TConditionalStrings.Create(TConditionalString);'#013#010+
|
|
|
- ' FCommands:=TCommands.Create(TCommand);'#013#010+
|
|
|
- ' FUnitsOutputDi','r:='#039'units'#039'+PathDelim+'#039'$(target)'#039'+Pat'+
|
|
|
- 'hDelim;'#013#010+
|
|
|
- ' FPackageVariants:=TFPList.Create;'#013#010+
|
|
|
- ' FCPUs:=AllCPUs;'#013#010+
|
|
|
- ' FOSes:=AllOSes;'#013#010+
|
|
|
- ' FInstalledChecksum:=$ffffffff;'#013#010+
|
|
|
- ' FFlags := TStringList.Create;'#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+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FDictionary);'#013#010+
|
|
|
- ' FreeAndNil(FDependencies);'#013#010+
|
|
|
- ' FreeAndNil(FInstallFiles);'#013#010+
|
|
|
- ' FreeAndNil(FCleanFiles);',#013#010+
|
|
|
- ' FreeAndNil(FIncludePath);'#013#010+
|
|
|
- ' FreeAndNil(FSourcePath);'#013#010+
|
|
|
- ' FreeAndNil(FExamplePath);'#013#010+
|
|
|
- ' FreeAndNil(FTestPath);'#013#010+
|
|
|
- ' FreeAndNil(FCommands);'#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+
|
|
|
- ' FreeAndNil(FFlags);'#013#010+
|
|
|
- ' FreeAndNil(FPackageVariants);'#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 TPac','kage.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'rtl'#039' then'#013#010+
|
|
|
- ' FDependencies.Clear;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetUnitsOutputDir(ACPU:TCPU; AOS : TOS):Strin','g;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
+ ');'#010+
|
|
|
+ ' FCleanFiles:=TConditionalStrings.Create(TConditionalString)',';'#010+
|
|
|
+ ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FSourcePath:=TConditionalStrings.Create(TConditi','onalString);'#010+
|
|
|
+ ' FExamplePath:=TConditionalStrings.Create(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, bmOneByO','ne];'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TPackage.destroy;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FDictionary);'#010+
|
|
|
+ ' FreeAndNil(FDependencies);'#010+
|
|
|
+ ' FreeAndNil(FInstallFiles);'#010+
|
|
|
+ ' FreeAndNil(FCleanFiles);'#010+
|
|
|
+ ' FreeAndNil(FIncludePath);'#010+
|
|
|
+ ' FreeAndNil(FSourcePath);'#010+
|
|
|
+ ' FreeAn','dNil(FExamplePath);'#010+
|
|
|
+ ' FreeAndNil(FTestPath);'#010+
|
|
|
+ ' FreeAndNil(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)]), False);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackage.GetUnitConfigOutputDir(ACPU: TCPU; AOS: TOS): String'+
|
|
|
- ';',#013#010+
|
|
|
- 'begin'#013#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',MakeTargetString(ACPU,AOS)]), False);'+
|
|
|
- #013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.InheritPackageVariantsFromDepe','ndency(ADependencyP'+
|
|
|
- 'ackage: TPackage);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- ' APackageVariants: TPackageVariants;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' for i := 0 to ADependencyPackage.FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackageVariants := TPackageVariants(ADependencyPackag','e.FPacka'+
|
|
|
- 'geVariants[i]);'#013#010+
|
|
|
- ' if APackageVariants.IsInheritable then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not assigned(GetPackageVariantsByName(APackageVariants.Name'+
|
|
|
- ')) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FPackageVariants.Add(APackageVariants);'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'CPUToString(ACPU),'#039'OS'#039',O','SToString(AOS),'#039'target'#039',Make'+
|
|
|
+ 'TargetString(ACPU,AOS)]), False);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackage.GetUnitConfigOutputFilename(ACPU: TCPU; AOS: TOS): S'+
|
|
|
+ 'tring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FixPath(Dictionary.Substitute(Name+'#039'-$(target)'#039'+Fpmk'+
|
|
|
+ 'Ext,['#039'CPU'#039',CPUToString(ACPU','),'#039'OS'#039',OSToString(AOS),'#039+
|
|
|
+ 'target'#039',MakeTargetString(ACPU,AOS)]), False);'#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 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackageVariants := TPackageVariants(ADependencyPackage.FPackage'+
|
|
|
+ 'Variants[i]);'#010+
|
|
|
+ ' if APackageVariants.IsInheritable then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not assigned(GetPackageVaria','ntsByName(APackageVariants.Na'+
|
|
|
+ 'me)) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FPackageVariants.Add(APackageVariants);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TPackage.GetPackageVariantsByName(AName: string): TPackageVar'+
|
|
|
- 'iants;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := nil;'#013#010+
|
|
|
- ' for i := 0 to FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' if SameText(TPackageVariant','s(FPackageVariants.Items[i]).Name, AN'+
|
|
|
- 'ame) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := TPackageVariants(FPackageVariants.Items[i]);'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SetUnitsOutputDir(AValue: string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013,#010+
|
|
|
- ' FUnitsOutputDir:=IncludeTrailingPathDelimiter(AValue)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FUnitsOutputDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TPackage.GetPackageUnitInstallDir(ACPU: TCPU; AOS: TOS): Stri'+
|
|
|
- 'ng;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=FixPath(Dictionary.Substitute(FPackageUnitInst','allDir,['#039+
|
|
|
- 'CPU'#039',CPUToString(ACPU),'#039'OS'#039',OSToString(AOS),'#039'target'#039+
|
|
|
- ',MakeTargetString(ACPU,AOS)]), False);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SetPackageUnitInstallDir(AValue: string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FPackageUnitInstallDir:=IncludeTrail','ingPathDelimiter(AValue)'#013+
|
|
|
- #010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FPackageUnitInstallDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetBinOutputDir(ACPU:TCPU; AOS : TOS) : 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.GetCl','eanFiles(List: TStrings; ACPU:TCPU; AOS : TO'+
|
|
|
- 'S);'#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+
|
|
|
- ' AddCondition','alStrings(Self, List,CleanFiles,ACPU,AOS);'#013#010+
|
|
|
- ' For I:=0 to FTargets.Count-1 do'#013#010+
|
|
|
- ' FTargets.TargetItems[I].GetCleanFiles(List, OU, OB, ACPU, AOS);'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'iants;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: Intege','r;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := nil;'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.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.SetUnitsOutputDir(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: TCP','U; AOS: TOS): St'+
|
|
|
+ 'ring;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=FixPath(Dictionary.Substitute(FPackageUnitInstallDir,['#039'C'+
|
|
|
+ 'PU'#039',CPUToString(ACPU),'#039'OS'#039',OSToString(AOS),'#039'target'#039+
|
|
|
+ ',MakeTargetString(ACPU,AOS)]), False);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.SetPackageUnitInstallDir(AValue',': string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FPackageUnitInstallDir:=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'+Pat','hDelim+MakeTargetString(ACPU,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.GetCleanFiles(List: TStrings; ACPU:TCPU; AOS : TOS)'+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' OB,OU : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' OU:=IncludeTrailin','gPathDelimiter(GetUnitsOutputDir(ACPU,AOS));'#010+
|
|
|
+ ' List.Add(GetUnitConfigOutputFilename(Defaults.CPU,Defaults.OS));'#010+
|
|
|
+ ' AddConditionalStrings(Self, List,CleanFiles,ACPU,AOS);'#010+
|
|
|
+ ' For I:=0 to FTargets.Count-1 do'#010+
|
|
|
+ ' FTargets.TargetItems[I].GetCleanF','iles(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+
|
|
|
- ' if Types=[] then'#013#010+
|
|
|
- ' AddConditionalStrings(Self, List,InstallFiles,ACPU,AOS)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' OB:=IncludeTrailingPathDelimiter(GetBinOutputDir(Defaults.','CPU,'+
|
|
|
- 'Defaults.OS));'#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,De'+
|
|
|
+ 'faults.OS));'#010+
|
|
|
' OU:=IncludeTrailingPathDelimiter(GetUnitsOutputDir(Defaults.CPU,'+
|
|
|
- 'Defaults.OS));'#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 ','Installer.BuildEngine.Targe'+
|
|
|
- 'tInstallOK(T, ACPU, AOS) then'#013#010+
|
|
|
- ' T.GetInstallFiles(List, OU, OB, ACPU, AOS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '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.TargetI'+
|
|
|
+ 'nstallOK(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; Target','Types : 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.Ge','tArchiveFiles(List: TStrings; 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.GetArchiveSource','Files(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:=FDescription'#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,
|
|
|
- 'function TPackage.GetDictionary: TDictionary;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if not assigned(FDictionary) then'#013#010+
|
|
|
- ' FDictionary:=PackageDictionaryClass.Create(Nil);'#013#010+
|
|
|
- ' result := FDictionary;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TPackage.GetVersion : string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=FV','ersion.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(cons','t 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+
|
|
|
- ' Result := Name + '#039'-'#039' + FVersion.AsStri','ng'#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(TOSes) do'#013#010+
|
|
|
- ' if IOS in AOSes then'#013#010+
|
|
|
- ' ',' Manifest.Add(Format(AIndent+'#039' <os name="%s"/>'#039',[OSTo'+
|
|
|
- 'String(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) the','n'#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+
|
|
|
+ ' TSourceTypes; TargetTypes : TTargetTypes);'#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.So','urceItems[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.GetArchi','veFiles(List,Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.GetArchiveFiles(List: TStrings; ACPU:TCPU; AOS : TO'+
|
|
|
+ 'S);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Targets only'#010+
|
|
|
+ ' For I:=0 to FTargets.Count-1 do'#010+
|
|
|
+ ' FTargets.TargetItems[I].GetAr','chiveFiles(List,ACPU,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.GetArchiveSourceFiles(List: TStrings);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ 'begin'#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 (FDescriptionFile<>'#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(FDictionary) then'#010+
|
|
|
+ ' FDictionary:=PackageDictionaryClass.Create(Nil);'#010+
|
|
|
+ ' result := FDictionary;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetVersion : st','ring;'#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.Set','Version(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 and not'#010+
|
|
|
+ ' ((Defaults.OS in AllLimit83fsOses) ','or (Defaults.BuildOS in All'+
|
|
|
+ 'Limit83fsOses)) then'#010+
|
|
|
+ ' Result := Name + '#039'-'#039' + FVersion.AsString'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result := ShortName;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TPackage.GetShortName : string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FShortName<>'#039#039' then'#010+
|
|
|
+ ' result := FShortName'#010+
|
|
|
+ ' els','e'#010+
|
|
|
+ ' result := Name;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #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)]));'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'</oses>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure AddCPUs(const AIndent:string;ACPUs:TCPUs);'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' ICPU : TCPU;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (ACPUs=AllCPUs) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'<cp','us>'#039');'#010+
|
|
|
+ ' for ICPU:=low(TCPUs) to high(TCPUs) do'#010+
|
|
|
+ ' if ICPU in ACPUs then'#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+
|
|
|
- ' 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+
|
|
|
+ 'String(ICPU)]));'#010+
|
|
|
+ ' Manifest.Add(AIndent+'#039'</cpus>'#039');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' function GetXMLVersionString(sMajor,',' sMinor, sMicro, sBuild: integ'+
|
|
|
+ 'er): string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result := '#039'<version'#039';'#010+
|
|
|
+ ' if sMajor <> -1 then'#010+
|
|
|
' Result := Result + '#039' major="'#039' + IntToStr(sMajor) + '#039'"'+
|
|
|
- #039';'#013#010+
|
|
|
- ' if sMinor <> -1',' then'#013#010+
|
|
|
- ' Result := Result + '#039' minor="'#039' + IntToStr(sMinor) + '#039'"'+
|
|
|
- #039';'#013#010+
|
|
|
- ' if sMicro <> -1 then'#013#010+
|
|
|
+ #039';'#010+
|
|
|
+ ' if sMinor <> -1 then'#010+
|
|
|
+ ' Result := Result + '#039' minor="'#039' + IntToStr(sMin','or) + '#039+
|
|
|
+ '"'#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 := Result + '#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+
|
|
|
- ' Add('#039' '#039' + GetXMLVersionString(FV','ersion.Major,FVersion.Mi'+
|
|
|
- 'nor,FVersion.Micro,FVersion.Build));'#013#010+
|
|
|
- ' AddOSes('#039' '#039',OSes);'#013#010+
|
|
|
- ' AddCPUs('#039' '#039',CPUs);'#013#010+
|
|
|
+ #039';'#010+
|
|
|
+ ' if 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));'#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 Home','pageURL<>'#039#039' then'#010+
|
|
|
' Add(Format('#039' <homepageurl>%s</homepageurl>'#039',[QuoteXml(Ho'+
|
|
|
- 'mepageURL)]));'#013#010+
|
|
|
- ' if DownloadURL<>'#039#039' then'#013#010+
|
|
|
- ' Add(Format('#039' <downloadurl>%','s</downloadurl>'#039',[QuoteXml('+
|
|
|
- 'DownloadURL)]));'#013#010+
|
|
|
- ' Add(Format('#039' <email>%s</email>'#039',[QuoteXMl(Email)]));'#013#010+
|
|
|
- ' S:=Description;'#013#010+
|
|
|
- ' If (S<>'#039#039') then'#013#010+
|
|
|
+ 'mepageURL)]));'#010+
|
|
|
+ ' if DownloadURL<>'#039#039' then'#010+
|
|
|
+ ' Add(Format('#039' <downloadurl>%s</downloadurl>'#039',[QuoteXml(Do'+
|
|
|
+ 'wnloadURL)]));'#010+
|
|
|
+ ' Add(Format('#039' <email>%s</email>'#039',[Quot','eXMl(Email)]));'#010+
|
|
|
+ ' S:=Description;'#010+
|
|
|
+ ' If (S<>'#039#039') then'#010+
|
|
|
' Add(Format('#039' <description>%s</description>'#039',[QuoteXML(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(Format('#039' <package packagename="%s"/>',#039',[Quote'+
|
|
|
- 'XML(D.Value)]));'#013#010+
|
|
|
- ' if not D.FVersion.Empty then'#013#010+
|
|
|
- ' Add('#039' '#039' + GetXMLVersionString(D.FVersion.Major'+
|
|
|
- ',D.FVersion.Minor,D.FVersion.Micro,D.FVersion.Build));'#013#010+
|
|
|
- ' AddOSes('#039' '#039',D.OSes);'#013#010+
|
|
|
- ' AddCPU','s('#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+
|
|
|
+ ']));'#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+
|
|
|
+ ' Add(Format('#039' <package packagename="%s"/>'#039',[Quote'+
|
|
|
+ 'XML(D.Value)]));'#010+
|
|
|
+ ' if not D.FVersion.Empty then'#010+
|
|
|
+ ' Add('#039' '#039' + GetXM','LVersionString(D.FVersion.Maj'+
|
|
|
+ 'or,D.FVersion.Minor,D.FVersion.Micro,D.FVersion.Build));'#010+
|
|
|
+ ' AddOSes('#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.ListPackage(PkgList : TStrings);'#010+
|
|
|
+ #010+
|
|
|
+ ' function GetArchiveName (const APackage: TPackage; ALimit83: boolean'+
|
|
|
+ '): string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ '{ Special hack to allow both long and short sourc','e files being recog'+
|
|
|
+ 'nized }'#010+
|
|
|
+ ' if ALimit83 and (Defaults.ZipPrefix = '#039'units-'#039') then'#010+
|
|
|
+ ' result := '#039'u'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := Defaults.ZipPrefix;'#010+
|
|
|
+ ' if ALimit83 then'#010+
|
|
|
+ ' result := result + APackage.ShortName'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := r','esult + APackage.Name;'#010+
|
|
|
+ ' result := result + MakeZipSuffix(Defaults.CPU, Defaults.OS, ALimit'+
|
|
|
+ '83);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' S : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ '{ if OSes = AllOSes then'#010+
|
|
|
+ ' Exit;}'#010+
|
|
|
+ ' if ((OSes = AllOSes) or (Defaults.OS in OSes)) and'#010+
|
|
|
+ ' ((CPUs = Al','lCPUs) or (Defaults.CPU in CPUs)) or'#010+
|
|
|
+ ' (Defaults.OS = osNone) and (Defaults.CPU = cpuN'+
|
|
|
+ 'one) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Defaults.OS = osNone then'#010+
|
|
|
+ ' PkgList.Add (Format ('#039'# Source %d'#039', [Succ (PkgList.Cou'+
|
|
|
+ 'nt div 2)]))'#010+
|
|
|
+ ' ',' else {if OSes <> AllOSes then}'#010+
|
|
|
+ ' PkgList.Add (Format ('#039'# '#039' + OSToString(Defaults.OS) + '+
|
|
|
+ #039' %d'#039', [Succ (PkgList.Count div 2)]));'#010+
|
|
|
+ ' S := '#039'package='#039' + GetArchiveName (Self, false) + Archive'+
|
|
|
+ 'Extension;'#010+
|
|
|
+ ' if ((ShortName <> Name) or',' (Defaults.ZipPrefix = '#039'units-'#039+
|
|
|
+ ')) and'#010+
|
|
|
+ ' ((Defaults.OS in AllLimit83fsOSes) or (Defaults.OS = osNo'+
|
|
|
+ 'ne)) then'#010+
|
|
|
+ ' S := S + '#039'['#039' + GetArchiveName (Self, true) + ArchiveEx'+
|
|
|
+ 'tension + '#039']'#039';'#010+
|
|
|
+ ' S := S + '#039','#039' + Description;'#010+
|
|
|
+ ' PkgLi','st.Add(S);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TPackage.AddPackageVariant(APackageVariant: TPackageVariants'+
|
|
|
- ');'#013#010+
|
|
|
- 'begin'#013#010,
|
|
|
- ' if not assigned(APackageVariant.FMasterPackage) then'#013#010+
|
|
|
- ' APackageVariant.FMasterPackage := Self;'#013#010+
|
|
|
- ' FPackageVariants.Add(APackageVariant);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.ApplyPackageVariantToCompilerOptions(ACompilerOptio'+
|
|
|
- 'ns: tstrings);'#013#010+
|
|
|
- 'var',#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- ' PackageVariants: TPackageVariants;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' for i := 0 to FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' PackageVariants := TPackageVariants(FPackageVariants.Items[i]);'#013+
|
|
|
- #010+
|
|
|
- ' ACompilerOptions.AddStrings(PackageVariants.Activ','ePackageVariant'+
|
|
|
- '.Options);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TPackage.SetDefaultPackageVariant;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i,j: integer;'#013#010+
|
|
|
- ' PackageVariants: TPackageVariants;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' for i := 0 to FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' PackageVariants := TPa','ckageVariants(FPackageVariants.Items[i]);'#013+
|
|
|
+ ');'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not assigned(APackageVariant.FMasterPackage) then'#010+
|
|
|
+ ' APackageVariant.FMasterPackage := Self;'#010+
|
|
|
+ ' FPackageVariants.Add(APackageVaria','nt);'#010+
|
|
|
+ 'end;'#010+
|
|
|
#010+
|
|
|
+ 'procedure TPackage.ApplyPackageVariantToCompilerOptions(ACompilerOptio'+
|
|
|
+ 'ns: tstrings);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' PackageVariants: TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' for i := 0 to FPackageVariants.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVariants := TPacka','geVariants(FPackageVariants.Items[i]);'#010+
|
|
|
+ ' ACompilerOptions.AddStrings(PackageVariants.ActivePackageVariant.O'+
|
|
|
+ 'ptions);'#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 := TPackageVariants(FPackageVariants.Items[i]);'#010+
|
|
|
' if Installer.FPackageVariantSettings.Values[PackageVariants.Name]<'+
|
|
|
- '>'#039#039' then'#013#010+
|
|
|
- ' PackageVariants.ActivePackageVariantName:= Installer.FPackageVar'+
|
|
|
- 'iantSettings.Values[PackageVariants.Name]'#013#010+
|
|
|
- ' ','else'#013#010+
|
|
|
+ '>'#039#039' then'#010+
|
|
|
+ ' PackageVariants.ActivePackageVar','iantName:= Installer.FPackageV'+
|
|
|
+ 'ariantSettings.Values[PackageVariants.Name]'#010+
|
|
|
+ ' else'#010+
|
|
|
' PackageVariants.ActivePackageVariantName:= PackageVariants.Defau'+
|
|
|
- 'ltPackageVariantName;'#013#010+
|
|
|
+ 'ltPackageVariantName;'#010+
|
|
|
+ ' IncludePath.AddList(PackageVariants.ActivePackageVariant.Incl','ude'+
|
|
|
+ 'Path);'#010+
|
|
|
+ ' SourcePath.AddList(PackageVariants.ActivePackageVariant.SourcePath'+
|
|
|
+ ');'#010+
|
|
|
' Dictionary.AddVariable(PackageVariants.Name,PackageVariants.Active'+
|
|
|
- 'PackageVariantName);'#013#010+
|
|
|
- ' SetUnitsOutputDir(FUnitsOutputDir+'#039'$('#039'+Packag','eVariants.n'+
|
|
|
- 'ame+'#039')'#039');'#013#010+
|
|
|
- ' SetPackageUnitInstallDir(FPackageUnitInstallDir+'#039'$('#039'+Packa'+
|
|
|
- 'geVariants.Name+'#039')'#039');'#013#010+
|
|
|
- ' // Do not add targets f the package is inherited'#013#010+
|
|
|
- ' if PackageVariants.MasterPackage=Self then'#013#010+
|
|
|
- ' for j := 0 to PackageVari','ants.ActivePackageVariant.Targets.cou'+
|
|
|
- 'nt -1 do'#013#010+
|
|
|
+ 'PackageVariantName);'#010+
|
|
|
+ ' SetUnitsOutputDir(IncludeTrailingPathDelimiter(FUnitsOutputDir',')+'+
|
|
|
+ #039'$('#039'+PackageVariants.name+'#039')'#039');'#010+
|
|
|
+ ' SetPackageUnitInstallDir(IncludeTrailingPathDelimiter(FPackageUnit'+
|
|
|
+ 'InstallDir)+'#039'$('#039'+PackageVariants.Name+'#039')'#039');'#010+
|
|
|
+ ' // Do not add targets f the package is inherited'#010+
|
|
|
+ ' if PackageVariants.MasterPackage=Se','lf then'#010+
|
|
|
+ ' for j := 0 to PackageVariants.ActivePackageVariant.Targets.count'+
|
|
|
+ ' -1 do'#010+
|
|
|
' targets.add.assign(PackageVariants.ActivePackageVariant.Target'+
|
|
|
- 's.items[j]);'#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 : TStrin','gs;'#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+
|
|
|
- ' PackageVariantsStr: string;'#013#010+
|
|
|
- ' PackageVarName: string;'#013#010+
|
|
|
- ' pv: TPackageVariants;'#013#010+
|
|
|
- ' AnIsInheritable: boolean;'#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+
|
|
|
+ 's.items[j]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TPackage.LoadUnitConfigFromFile(Const AFileNam','e: 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+
|
|
|
+ ' AnIsInheritab','le: boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' Try'#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:=StringToOS(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',DepName);'#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+
|
|
|
- ' e','nd'#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[KeyNeedL','ibC])='#039'Y'#039';'#013#010+
|
|
|
- ' IsFPMakeAddIn:=Upcase(Values[KeyAddIn])='#039'Y'#039';'#013#010+
|
|
|
- ' Flags.DelimitedText:=Values[KeyFlags];'#013#010+
|
|
|
- #013#010+
|
|
|
- ' i := 1;'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' PackageVariantsStr:=Values[KeyPackageVar+inttostr(i)];'#013#010+
|
|
|
- ' if PackageVariantsS','tr<>'#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' k := pos('#039':'#039',PackageVariantsStr);'#013#010+
|
|
|
- ' if k > 0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#013#010+
|
|
|
- ' if PackageVarName[Length(PackageVa','rName)]='#039'*'#039+
|
|
|
- ' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' SetLength(PackageVarName,Length(PackageVarName)-1);'#013+
|
|
|
- #010+
|
|
|
- ' AnIsInheritable:=true;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' AnIsInheritable:=fals','e;'#013#010+
|
|
|
- ' PackageVariantsStr:=copy(PackageVariantsStr,k+1,length'+
|
|
|
- '(PackageVariantsStr)-k);'#013#010+
|
|
|
+ '-k));'#010+
|
|
|
+ ' DepName:=Copy(DepName,1,k-1);'#010+
|
|
|
+ ' end',#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' DepChecksum:=$ffffffff;'#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',PackageVariantsStr);'#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(PackageVarName,Length(PackageVarName)-1);'#010+
|
|
|
+ ' AnIsInheritable:=true;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' AnIsInheritable:=false;'#010+
|
|
|
+ ' PackageVa','riantsStr:=copy(PackageVariantsStr,k+1,leng'+
|
|
|
+ 'th(PackageVariantsStr)-k);'#010+
|
|
|
' pv := Installer.AddPackageVariant(PackageVarName, AnIs'+
|
|
|
- 'Inheritable);'#013#010+
|
|
|
- ' AddPackageVariant(pv);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ',' k := pos('#039','#039',PackageVariantsStr);'#013#010+
|
|
|
- ' while k>0 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#013+
|
|
|
+ 'Inheritable);'#010+
|
|
|
+ ' AddPackageVariant(pv);'#010+
|
|
|
#010+
|
|
|
+ ' k := pos('#039','#039',PackageVariantsSt','r);'#010+
|
|
|
+ ' while k>0 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#010+
|
|
|
' PackageVariantsStr:=copy(PackageVariantsStr,k+1,le'+
|
|
|
- 'ngth(Pac','kageVariantsStr)-k);'#013#010+
|
|
|
- ' pv.Add(PackageVarName);'#013#010+
|
|
|
- ' k := pos('#039','#039',PackageVariantsStr);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' pv.Add(PackageVariantsStr);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inc(i',');'#013#010+
|
|
|
- ' until PackageVariantsStr='#039#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '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+
|
|
|
'procedure TPackage.SaveUnitConfigToStringList(const AStringList: TStri'+
|
|
|
- 'ngs; ACPU: TCPU; AOS: TOS);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Deps : String;'#013#010+
|
|
|
- ' i,j : integer;'#013#010+
|
|
|
- ' D ',': TDependency;'#013#010+
|
|
|
- ' p : TPackage;'#013#010+
|
|
|
- ' PackageVariants : TPackageVariants;'#013#010+
|
|
|
- ' PackageVariantsStr: string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' with AStringList do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Values[KeyName]:=Name;'#013#010+
|
|
|
- ' Values[KeyVersion]:=Version;'#013#010+
|
|
|
- ' // TODO Generate checksu','m based on PPUs'#013#010+
|
|
|
- ' Values[KeyChecksum]:=IntToStr(DateTimeToFileDate(Now));'#013#010+
|
|
|
- ' Values[KeyCPU]:=CPUToString(ACPU);'#013#010+
|
|
|
- ' Values[KeyOS]:=OSToString(AOS);'#013#010+
|
|
|
- ' //Installer;'#013#010+
|
|
|
- ' Values[KeySourcePath]:=IncludeTrailingPathDelimiter(I','ncludeTra'+
|
|
|
- 'ilingPathDelimiter(Installer.BuildEngine.FStartDir)+Directory);'#013#010+
|
|
|
- ' Values[KeyFPMakeOptions]:=trim(Installer.FPMakeOptionsString);'#013+
|
|
|
- #010+
|
|
|
- ' Deps:='#039#039';'#013#010+
|
|
|
- ' for i:=0 to Dependencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=Dependen','cies[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+
|
|
|
- ' if ','assigned(P) and (P.InstalledChecksum<>$ffffffff) th'+
|
|
|
- 'en'#013#010+
|
|
|
- ' Deps:=Deps+'#039'|'#039'+IntToStr(P.InstalledChecksum);'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Values[KeyDepends]:=Deps;'#013#010+
|
|
|
- ' if Flags.Count>0 then'#013#010+
|
|
|
- ' Values[KeyFlags]:=Fl','ags.DelimitedText;'#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+
|
|
|
- ' else'#013#010+
|
|
|
- ' Values[KeyAddIn]:='#039'N'#039';'#013#010+
|
|
|
- ' for i',' := 0 to FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' PackageVariants := TPackageVariants(FPackageVariants.Items[i'+
|
|
|
- ']);'#013#010+
|
|
|
- ' PackageVariantsStr:=PackageVariants.Name;'#013#010+
|
|
|
- ' if PackageVariants.IsInheritable then'#013#010+
|
|
|
- ' ',' PackageVariantsStr:=PackageVariantsStr+'#039'*'#039';'#013#010+
|
|
|
- ' PackageVariantsStr := PackageVariantsStr +'#039':'#039'+Packag'+
|
|
|
- 'eVariants.DefaultPackageVariantName;'#013#010+
|
|
|
- ' for j := 0 to PackageVariants.Count-1 do'#013#010+
|
|
|
- ' if not sametext(PackageVarian','ts.Items[j].Name, PackageVa'+
|
|
|
- 'riants.DefaultPackageVariantName) then'#013#010+
|
|
|
- ' PackageVariantsStr:=PackageVariantsStr+'#039','#039'+Packa'+
|
|
|
- 'geVariants.Items[j].Name;'#013#010+
|
|
|
- ' values[KeyPackageVar+inttostr(i+1)] := PackageVariantsStr;'#013+
|
|
|
- #010+
|
|
|
- ' end;'#013#010,
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ngs; ACPU: TCPU; AOS: TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Deps : String;'#010+
|
|
|
+ ' i,j : integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' p : TPackage;'#010+
|
|
|
+ ' PackageVariants : TPacka','geVariants;'#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(DateTimeToFile','Date(Now));'#010+
|
|
|
+ ' Values[KeyCPU]:=CPUToString(ACPU);'#010+
|
|
|
+ ' Values[KeyOS]:=OSToString(AOS);'#010+
|
|
|
+ ' //Installer;'#010+
|
|
|
+ ' Values[KeySourcePath]:=IncludeTrailingPathDelimiter(IncludeTrail'+
|
|
|
+ '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'+
|
|
|
+ #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 IsFPMakeAddIn 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(F','PackageVariants.Items'+
|
|
|
+ '[i]);'#010+
|
|
|
+ ' PackageVariantsStr:=PackageVariants.Name;'#010+
|
|
|
+ ' if PackageVariants.IsInheritable then'#010+
|
|
|
+ ' PackageVariantsStr:=PackageVariantsStr+'#039'*'#039';'#010+
|
|
|
+ ' PackageVariantsStr := PackageVariantsStr +'#039':'#039'+P','ack'+
|
|
|
+ 'ageVariants.DefaultPackageVariantName;'#010+
|
|
|
+ ' for j := 0 to PackageVariants.Count-1 do'#010+
|
|
|
+ ' if not sametext(PackageVariants.Items[j].Name, PackageVari'+
|
|
|
+ 'ants.DefaultPackageVariantName) then'#010+
|
|
|
+ ' PackageVariantsStr:=Packag','eVariantsStr+'#039','#039'+Pac'+
|
|
|
+ 'kageVariants.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 or fmShareDenyNone);'#013#010+
|
|
|
- ' L:=TStringList.Cre','ate;'#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+
|
|
|
+ 'CPU;AOS:TOS);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : T','FileStream;'#010+
|
|
|
+ ' L : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);'#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+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TPackages'#013#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+
|
|
|
- 'function TPackages.Get','PackageItem(AIndex : Integer): TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TPackage(Items[AIndex]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#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+
|
|
|
- 'function TPackages.AddP','ackage(const AName: String): TPackage;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' i := IndexOfName(AName);'#013#010+
|
|
|
- ' if i > -1 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := PackageItems[i];'#013#010+
|
|
|
- ' Installer.Log(vlWarning,Format(SWarnDuplicatePackage,[AName]))'#013+
|
|
|
- #010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013,#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=Add as TPackage;'#013#010+
|
|
|
- ' Result.Name:=AName;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TPackages.GetPackage(const',' AName : String): TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TPackage(ItemByName(AName))'#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: T'+
|
|
|
+ 'Package);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Items[AIndex]:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function 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+
|
|
|
- ' TCustomDefaults'#013#010+
|
|
|
- '****************************','****************************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetCPU(const AValue: TCPU);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FCPU:=AValue;'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'CPU'#039',CPUToString(FCPU));'#013#010+
|
|
|
- ' RecalcTarget;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults','.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+
|
|
|
- 'function TCustomDefaults.GetBaseInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FBaseInstallD','ir<>'#039#039') then'#013#010+
|
|
|
- ' Result:=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',CPUToStr','ing(FCPU));'#010+
|
|
|
+ ' RecalcTarget;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.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+
|
|
|
+ 'function TCustomDefaults.GetB','aseInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FBaseInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=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.GetBin','InstallDir: 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'+pathdelim+MakeTargetString('+
|
|
|
- 'Defaults.cpu, Default','s.OS);'#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+
|
|
|
- ' 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'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.Create;'#013#010+
|
|
|
- ' Result:=FOptions;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetUnitInstallDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := FixPath(GlobalDictionary.ReplaceStrings(FUnitInstallDir)',','+
|
|
|
- ' False);'#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:=FixPath(FFPDocOutputDi','r, True)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=FixPath('#039'.'#039'+PathDelim+'#039'docs'#039', True);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetBuildCPU: TCpu;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := StringToCPU({$I %FPCTARGETCPU%});'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetBuildOS: TOS;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' resul','t := StringToOS({$I %FPCTARGETOS%});'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetBuildString: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := MakeTargetString(BuildCPU, BuildOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.GetGlobalUnitDir: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (FGlobalUnitDir','<>'#039#039') then'#013#010+
|
|
|
- ' Result:=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+
|
|
|
- ' FLoca','lUnitDir:=IncludeTrailingPathDelimiter(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+
|
|
|
+ 'Delim + FCompilerVersion + PathDelim'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=Prefix;'#010,
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetBinInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (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+MakeTarg','etStrin'+
|
|
|
+ 'g(Defaults.cpu, Defaults.OS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.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 if (Defaults.BuildOS=freebsd) or (Defaults.BuildOS=dragonfly) t'+
|
|
|
+ 'hen'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039'+PathDelim+'#039+
|
|
|
+ 'fpc-$(CompilerVersion)'#039'+PathDelim+'#039'$(PackageName)'#039#010+
|
|
|
+ ' else If',' UnixPaths then'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039'+PathDelim+'#039+
|
|
|
+ 'fpc-$(CompilerVersion)'#039'+PathDelim+'#039'$(PackageName)'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=BaseInstallDir+'#039'docs'#039'+PathDelim+'#039'$(PackageName'+
|
|
|
+ ')'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetExamplesInstall','Dir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FExamplesInstallDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FExamplesInstallDir'#010+
|
|
|
+ ' else if (Defaults.BuildOS=freebsd) or (Defaults.BuildOS=dragonfly) t'+
|
|
|
+ 'hen'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'examples'#039'+PathDe'+
|
|
|
+ 'lim+'#039'fpc-$(CompilerVersio','n)'#039'+PathDelim+'#039'$(PackageName)'#039+
|
|
|
+ '+PathDelim+'#039'examples'#039#010+
|
|
|
+ ' else If UnixPaths then'#010+
|
|
|
+ ' Result:=Prefix+'#039'share'#039'+PathDelim+'#039'doc'#039'+PathDelim+'#039+
|
|
|
+ 'fpc-$(CompilerVersion)'#039'+PathDelim+'#039'$(PackageName)'#039'+PathDel'+
|
|
|
+ 'im+'#039'examples'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=BaseInstallDir+'#039'ex','amples'#039'+PathDelim+'#039'$(Packa'+
|
|
|
+ 'geName)'#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetOptions: TStrings;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FOptions=Nil) then'#010+
|
|
|
+ ' FOptions:=TStringList.Create;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetPrefix: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Use ','ExpandFileName to support ~/ expansion'#010+
|
|
|
+ ' if FPrefix<>'#039#039' then'#010+
|
|
|
+ ' Result:=IncludeTrailingPathDelimiter(ExpandFileName(FPrefix))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetUnitInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := FUnitInstallD','ir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetUnitConfigFilesInstallDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := FUnitConfigFilesInstallDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.GetLocalUnitDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=FLocalUnitDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.G','etFPDocOutputDir: 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.GetFPUnitSourcePath: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FFPUn','itSourcePath='#039#039') or (FFPUnitSourcePath='#039'0'#039')'+
|
|
|
+ ' then'#010+
|
|
|
+ ' result := FFPUnitSourcePath'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=FixPath(FFPUnitSourcePath, 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.GetGl','obalUnitDir: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (FGlobalUnitDir<>'#039#039') then'#010+
|
|
|
+ ' Result:=FGlobalUnitDir'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=UnitInstallDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetLocalUnitDir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Use ExpandFileName to support ~/ expa','nsion'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FLocalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue)'+
|
|
|
+ ')'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FLocalUnitDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetGlobalUnitDir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Use ExpandFileName to suppo','rt ~/ expansion'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
' FGlobalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue'+
|
|
|
- '))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FGlobalUnitDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.IntSetBaseInstallDir(const AValue: String);'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FBaseInsta','llDir:=IncludeTrailingPathDelimiter(AValue)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FBaseInstallDir:='#039#039';'#013#010+
|
|
|
+ '))'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FGlobalUnitDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.IntSetBaseInstallDir(const AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' t','hen'#010+
|
|
|
+ ' FBaseInstallDir:=IncludeTrailingPathDelimiter(AValue)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FBaseInstallDir:='#039#039';'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstallDir'+
|
|
|
- ');'#013#010+
|
|
|
+ ');'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',BinInstallDir);'+
|
|
|
- #013#010+
|
|
|
- ' BinInstallDir:='#039#039';'#013#010+
|
|
|
- ' Example','sInstallDir:='#039#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetBaseInstallDir(const AValue: String);'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
+ #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 f'+
|
|
|
- 'iles'#013#010+
|
|
|
- ' // can be written into an archive with a relative path.'#013#010+
|
|
|
- ' ','if AValue<>'#039#039' then'#013#010+
|
|
|
- ' // Use ExpandFileName to support ~/ expansion'#013#010+
|
|
|
- ' IntSetBaseInstallDir(ExpandFileName(AValue))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' IntSetBaseInstallDir(AValue);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetOS(const AValue: TOS);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FOS:','=AValue;'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS));'#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+
|
|
|
- ' // Use ExpandFileName to support ~/ expansion'#013#010,
|
|
|
- ' if AValue<>'#039#039' then'#013#010+
|
|
|
- ' FPrefix:=IncludeTrailingPathDelimiter(ExpandFileName(AValue))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FPrefix:='#039#039';'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#013#010+
|
|
|
+ 'iles'#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+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetOS(const AValue: TOS);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FOS:=AValu','e;'#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+
|
|
|
+ ' FPrefix:=AValue;'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'prefix'#039',Prefi','x);'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',BinInstallDir);'+
|
|
|
- #013#010+
|
|
|
- ' BaseInsta','llDir:='#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(Sy','stem.Copy(Avalue,P+1,Length(AValue)-P));'+
|
|
|
- #013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS));'#013+
|
|
|
- #010+
|
|
|
- ' FCPU:=StringToCPU(System.Copy(Avalue,1,P-1));'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'CPU'#039',CPUToString(FCPU)'+
|
|
|
- ');'#013#010+
|
|
|
- ' end'#013,#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FOS:=StringToOS(AValue);'#013#010+
|
|
|
- ' FTarget:=AValue;'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'target'#039',Target);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomDefaults.SetUnitInstallDir(const AValue: String);'#013+
|
|
|
- #010+
|
|
|
- 'begin'#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+
|
|
|
- 'procedure TCustomDefaults.SetZipPrefix(AValue: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if FZipPrefix=AValue then Exit;'#013#010+
|
|
|
- ' FZipPrefix:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedu','re TCustomDefaults.RecalcTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Ftarget:=MakeTargetString(FCPU,FOS);'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'target'#039',Target);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.CmdLineOptions: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Haveoptions then'#013#010+
|
|
|
- ' Result:=OptionLis','tToString(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:=F','alse;'#013#010+
|
|
|
- ' FCPU:=cpuNone;'#013#010+
|
|
|
- ' FOS:=osNone;'#013#010+
|
|
|
- ' FUnitInstallDir:='#039'$(BaseInstallDir)units/$(target)/$(packagename'+
|
|
|
- ')'#039';'#013#010+
|
|
|
- ' FBuildMode:=bmOneByOne;'#013#010+
|
|
|
- ' FThreadsAmount:=-1;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.HaveOptions: Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Assig','ned(FOptions);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomDefaults.IsBuildDifferentFromTarget: boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := IsDifferentFromBuild(CPU,OS);'#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:=GetAppConfigFile(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=cpuNone) or (OS=osNone) or (FCompilerVersion='#039#039') then'#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:=GetCompilerInfo(GetCompiler,'#039'-iVTPTO'#039+
|
|
|
- ', False);'#013#010+
|
|
|
- ' if infosl.Count<>3 then'#013#010+
|
|
|
- ' Raise EInstallerError.Create(SErrInvalidFPCInfo);'#013#010+
|
|
|
- ' if FCompilerVersion='#039#039' then'#013#010+
|
|
|
- ' FCompilerVersi','on:=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 %FPCTARGETCPU%});'#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.LoadFromFile(Const AFileName: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);'#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: String);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' F : TFileStream;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);'#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+
|
|
|
- 'begin'#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]:=Mode','ToString(FMode);'#013#010+
|
|
|
- ' Values[KeyLocalUnitDir]:=FLocalUnitDir;'#013#010+
|
|
|
- ' Values[KeyGlobalUnitDir]:=FGlobalUnitDir;'#013#010+
|
|
|
- ' Values[KeyPrefix]:=FPrefix;'#013#010+
|
|
|
- ' Values[KeyBaseInstallDir]:=FBaseInstallDir;'#013#010+
|
|
|
- ' Values[KeyUnitInstallDir]:=FUnitIn','stallDir;'#013#010+
|
|
|
- ' Values[KeyBinInstallDir]:=FBinInstallDir;'#013#010+
|
|
|
- ' Values[KeyDocInstallDir]:=FDocInstallDir;'#013#010+
|
|
|
- ' Values[KeyExamplesInstallDir]:=FExamplesInstallDir;'#013#010+
|
|
|
- ' Values[KeyRemove]:=FRemove;'#013#010+
|
|
|
- ' Values[KeyRemoveDir]:=FRemoveDi','r;'#013#010+
|
|
|
- ' Values[KeyRemoveTree]:=FRemoveTree;'#013#010+
|
|
|
- ' Values[KeyTarget]:=FTarget;'#013#010+
|
|
|
- ' if FNoFPCCfg 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+
|
|
|
- ' if FSkipCrossPrograms then'#013#010+
|
|
|
- ' Values[KeySkipCrossProdrams]:='#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+
|
|
|
+ #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+
|
|
|
+ ' Global','Dictionary.AddVariable('#039'CPU'#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+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AValue<>'#039#039' then'#010+
|
|
|
+ ' FUnitInstallDir:=AValue'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FUnitInstallDir:='#039#039';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetUnitConfigFilesInstallDir(const AValue: S'+
|
|
|
+ 'tring);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FUnitConfigFilesInstallDir:=AValue;'#010+
|
|
|
+ 'e','nd;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.SetZipPrefix(AValue: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if FZipPrefix=AValue then Exit;'#010+
|
|
|
+ ' FZipPrefix:=AValue;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomDefaults.RecalcTarget;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Ftarget:=MakeTargetString(FCPU,FOS);'#010+
|
|
|
+ ' GlobalDictionary.AddVa','riable('#039'target'#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 TCustomD','efaults.InitDefaults;'#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';'#010+
|
|
|
+ ' FUnitConfigFilesIn','stallDir:='#039'fpmkinst/$(target)'#039';'#010+
|
|
|
+ ' FBuildMode:=bmOneByOne;'#010+
|
|
|
+ ' FThreadsAmount:=-1;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.HaveOptions: Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Assigned(FOptions);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCustomDefaults.IsBuildDifferentFromTarget: boolean;'#010+
|
|
|
+ 'beg','in'#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:=SysUtils.GetEnviro','nmentVariable('#039'FPMAKECFG'#039');'#010+
|
|
|
+ ' If (FN<>'#039#039') then'#010+
|
|
|
+ ' If not FileExists(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+
|
|
|
+ ' LoadFr','omFile(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) and not ExplicitOSNone) or'#010+
|
|
|
+ ' ',' (FCompilerVersi'+
|
|
|
+ 'on='#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:=GetComp','ilerInfo(GetCompiler,'#039'-iVTPTO'+
|
|
|
+ #039', False);'#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:=St','ringToCPU(infosl[1]);'#010+
|
|
|
+ ' if (OS=osNone) and not ExplicitOSNone then'#010+
|
|
|
+ ' OS:=StringToOS(infosl[2]);'#010+
|
|
|
+ '{$else HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' // Defaults taken from compiler used to build fpmake'#010+
|
|
|
+ ' if CPU=cpuNone then'#010+
|
|
|
+ ' CPU:=StringToCPU','({$I %FPCTARGETCPU%});'#010+
|
|
|
+ ' if (OS=osNone) and not ExplicitOSNone then'#010+
|
|
|
+ ' OS:=StringToOS({$I %FPCTARGETOS%});'#010+
|
|
|
+ ' if FCompilerVersion='#039#039' then'#010+
|
|
|
+ ' FCompilerVersion:={$I %FPCVERSION%};'#010+
|
|
|
+ '{$endif HAS_UNIT_PROCESS}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'pro','cedure TCustomDefaults.LoadFromFile(Const AFileName: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' LoadFromStream(F);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' F.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomD','efaults.SaveToFile(Const AFileName: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' F : TFileStream;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);'#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+
|
|
|
+ ' ',' Values[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[','KeyDocInstallDir]:=FDocInstallDir;'#010+
|
|
|
+ ' Values[KeyExamplesInstallDir]:=FExamplesInstallDir;'#010+
|
|
|
+ ' Values[KeyRemove]:=FRemove;'#010+
|
|
|
+ ' Values[KeyRemoveDir]:=FRemoveDir;'#010+
|
|
|
+ ' Values[KeyRemoveTree]:=FRemoveTree;'#010+
|
|
|
+ ' Values[KeyTarget]:=FTarge','t;'#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+
|
|
|
+ ' Va','lues[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.Cre','ate;'#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.De','lete(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)));'#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+
|
|
|
- ' FRe','moveDir:=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+
|
|
|
- ' FTarget:=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[KeyUnitInstallDir];'#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+
|
|
|
+ '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:=Value','s[KeyCopy];'#010+
|
|
|
+ ' FMkDir:=Values[KeyMkDir];'#010+
|
|
|
+ ' FMove:=Values[KeyMove];'#010+
|
|
|
+ ' FRemove:=Values[KeyRemove];'#010+
|
|
|
+ ' FRemoveDir:=Values[KeyRemoveDir];'#010+
|
|
|
+ ' FRemoveTree:=Values[KeyRemoveTree];'#010+
|
|
|
+ ' Options:=OptionsToStringList(Values[KeyOptio','ns]);'#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+
|
|
|
+ ' FMo','de:=StringToMode(Line);'#010+
|
|
|
+ ' FTarget:=Values[KeyTarget];'#010+
|
|
|
+ ' FLocalUnitDir:=Values[KeyLocalUnitDir];'#010+
|
|
|
+ ' FGlobalUnitDir:=Values[KeyGlobalUnitDir];'#010+
|
|
|
+ ' FPrefix:=Values[KeyPrefix];'#010+
|
|
|
+ ' FBaseInstallDir:=Values[KeyBaseInstallDir];'#010+
|
|
|
+ ' ',' FUnitInstallDir:=Values[KeyUnitInstallDir];'#010+
|
|
|
+ ' FBinInstallDir:=Values[KeyBinInstallDir];'#010+
|
|
|
+ ' FDocInstallDir:=Values[KeyDocInstallDir];'#010+
|
|
|
+ ' FExamplesInstallDir:=Values[KeyExamplesInstallDir];'#010+
|
|
|
+ ' FInstallExamples:=(Upcase(Values[K','eyInstallExamples])='#039'Y'#039+
|
|
|
+ ');'#010+
|
|
|
' FSkipCrossPrograms:=(Upcase(Values[KeySkipCrossProdrams])='#039'Y'+
|
|
|
- #039');',#013#010+
|
|
|
- ' FNoFPCCfg:=(Upcase(Values[KeyNoFPCCfg])='#039'Y'#039');'#013#010+
|
|
|
- ' FUseEnvironment:=(Upcase(Values[KeyUseEnv])='#039'Y'#039');'#013#010+
|
|
|
- #013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'target'#039',Target);'#013#010+
|
|
|
+ #039');'#010+
|
|
|
+ ' FNoFPCCfg:=(Upcase(Values[KeyNoFPCCfg])='#039'Y'#039');'#010+
|
|
|
+ ' FUseEnvironment:=(Upcase(Values[KeyUseEnv])='#039'Y'#039');'#010+
|
|
|
+ #010+
|
|
|
+ ' GlobalDictionary.AddVariable(',#039'target'#039',Target);'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstal'+
|
|
|
- 'lDir);'#013#010+
|
|
|
- ' ',' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#013#010+
|
|
|
+ 'lDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',BinInstallD'+
|
|
|
- 'ir);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' L.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*****************************************************************','**'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TFPCDefaults'#013#010+
|
|
|
+ 'ir);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010,
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #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 the same algorithm as the compiler, see options.pas'#013#010+
|
|
|
- '{$ifdef Unix}'#013#010+
|
|
|
- ' BD:=FixPath(GetEnvironmentVariable('#039'FPCDIR'#039'), False);'#013#010+
|
|
|
- ' if BD='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' BD:='#039'/usr/local/lib/fpc/'#039'+FCompilerVersion;'#013#010+
|
|
|
- ' if not DirectoryExist','s(BD) and'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TFPCDefaults.Comp','ilerDefaults;'#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'), False);'#010+
|
|
|
+ ' if BD='#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' BD:='#039'/u','sr/local/lib/fpc/'#039'+FCompilerVersion;'#010+
|
|
|
+ ' if not DirectoryExists(BD) and'#010+
|
|
|
' DirectoryExists('#039'/usr/lib/fpc/'#039'+FCompilerVersion) the'+
|
|
|
- 'n'#013#010+
|
|
|
- ' BD:='#039'/usr/lib/fpc/'#039'+FCompilerVersion;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- '{$else unix}'#013#010+
|
|
|
- ' BD:=FixPath(GetEnvironmentVariable('#039'FPCDIR'#039'), False);'#013#010+
|
|
|
- ' if BD='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' BD',':=ExtractFilePath(FCompiler)+'#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 (FBaseIn','stallDir='#039#039') and (FPrefix='#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+
|
|
|
- ' GlobalUnitDir:=IncludeTrailingPathDelimiter(BD)+'#039'units'#039'+Pa'+
|
|
|
- 'thDelim+Target;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{***************','****************************************************'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TCustomInstaller'#013#010+
|
|
|
+ 'n'#010+
|
|
|
+ ' BD:='#039'/usr/lib/fpc/'#039'+FCompilerVersion;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$else unix}'#010+
|
|
|
+ ' BD:=FixPath(SysUtils.GetEnvironm','entVariable('#039'FPCDIR'#039'), Fal'+
|
|
|
+ 'se);'#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+
|
|
|
+ '{$en','dif 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'+P'+
|
|
|
+ 'athDelim+Target;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TCustomInstaller'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TCustomInstaller.Create(AOwner: TCompo','nent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FPackageVariantSettings := TStringList.Create;'#013#010+
|
|
|
- ' FPackageVariants := TFPList.Create;'#013#010+
|
|
|
- ' GlobalDictionary:=DictionaryClass.Create(Nil);'#013#010+
|
|
|
- ' AnalyzeOptions;'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'BaseInstallDir'#039',Defaults.BaseI'+
|
|
|
- 'nstal','lDir);'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constr','uctor TCustomInstaller.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FPackageVariantSettings := TStringList.Create;'#010+
|
|
|
+ ' FPackageVariants := TFPList.Create;'#010+
|
|
|
+ ' GlobalDictionary:=DictionaryClass.Create(Nil);'#010+
|
|
|
+ ' AnalyzeOptions;'#010+
|
|
|
+ ' GlobalDictionary.AddVariabl','e('#039'baseinstalldir'#039',Defaults.Bas'+
|
|
|
+ 'eInstallDir);'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',Defaults.BinIns'+
|
|
|
- 'tallDir);'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'Target'#039',Defaults.Target);'#013#010+
|
|
|
+ 'tallDir);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'Target'#039',Defaults.Target);'#010+
|
|
|
' GlobalDictionary.AddVariable('#039'BuildString'#039',Defaults.BuildStr'+
|
|
|
- 'ing);'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable(',#039'Prefix'#039',Defaults.Prefix);'#013#010+
|
|
|
- ' CreatePackages;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TCustomInstaller.Destroy;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreePackages;'#013#010+
|
|
|
- ' FreeAndNil(Defaults);'#013#010+
|
|
|
- ' FreeAndNil(GlobalDictionary);'#013#010+
|
|
|
- ' FreeAndNil(FPackageVariantSettings);'#013#010+
|
|
|
- ' f','or i := 0 to FPackageVariants.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if TPackageVariants(FPackageVariants.Items[i]).Owner=Self then'#013+
|
|
|
- #010+
|
|
|
- ' TPackageVariants(FPackageVariants.Items[i]).Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' FreeAndNil(FPackageVariants);'#013#010+
|
|
|
- ' inherited destroy',';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCustomInstaller.GetPackages: TPackages;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := FPackages;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ing',');'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'Prefix'#039',Defaults.Prefix);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'CompilerVersion'#039',Defaults.Comp'+
|
|
|
+ 'ilerVersion);'#010+
|
|
|
+ ' FNotifyEventCollection := TNotifyEventCollection.create([neaBeforeCo'+
|
|
|
+ 'mpile, neaAfterCompile, neaBefore','Clean, neaAfterClean,'#010+
|
|
|
+ ' neaBeforeIn'+
|
|
|
+ 'stall, neaAfterInstall, neaBeforeArchive, neaAfterArchive,'#010+
|
|
|
+ ' neaBeforeMa'+
|
|
|
+ 'nifest, neaAfterMan','ifest, neaBeforePkgList, neaAfterPkgList,'#010+
|
|
|
+ ' neaBeforeCr'+
|
|
|
+ 'eateBuildEngine, neaAfterCreateBuildengine]);'#010+
|
|
|
+ ' CreatePackages;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TCustomInstaller.Destroy;'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ 'be','gin'#010+
|
|
|
+ ' FreePackages;'#010+
|
|
|
+ ' FreeAndNil(Defaults);'#010+
|
|
|
+ ' FreeAndNil(GlobalDictionary);'#010+
|
|
|
+ ' FreeAndNil(FPackageVariantSettings);'#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+
|
|
|
+ ' FreeAndNil(FNotifyEventCollection);'#010+
|
|
|
+ ' inherited destroy;'#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'+
|
|
|
- ');'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Level in FLogLevels then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Writeln(StdO','ut, Msg);'#013#010+
|
|
|
- ' Flush(StdOut);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.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+
|
|
|
- 'pro','cedure 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(const Msg: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.Create(Msg);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ');'#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+
|
|
|
+ ' FPacka','ges:=TPackages.Create(TPackage);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.FreePackages;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FPackages);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.CreateBuildEngine;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeCreateBuildEngine, Self);'#010,
|
|
|
+ ' FBuildEngine:=TBuildEngine.Create(Self);'#010+
|
|
|
+ '// FBuildEngine.Defaults:=Defaults;'#010+
|
|
|
+ ' FBuildEngine.ListMode:=FListMode;'#010+
|
|
|
+ ' FBuildEngine.Verbose := (FLogLevels = AllMessages);'#010+
|
|
|
+ ' FBuildEngine.OnLog:[email protected];'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(ne','aAfterCreateBuildengine, Self);'+
|
|
|
+ #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 EInstallerE','rror.CreateFmt(Fmt,Args);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TCustomInstaller.AddPackage(const AName: String) : TPackage;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Packages.AddPackage(AName);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'st);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstalle','rError.CreateFmt(Fmt,Args);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TCustomInstaller.AddPackage(const AName: String) : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=Packages.AddPackage(AName);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TCustomInstaller.AddPackageVariant(AName: string; AIsInherita'+
|
|
|
- 'ble: boo','lean): TPackageVariants;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := TPackageVariants.Create(TPackageVariant);'#013#010+
|
|
|
- ' result.Name:=AName;'#013#010+
|
|
|
- ' result.FIsInheritable:=AIsInheritable;'#013#010+
|
|
|
- ' FPackageVariants.Add(result);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.AnalyzeOptions;'#013#010+
|
|
|
- #013#010,
|
|
|
- ' Function CheckOption(Index : Integer;const Short,Long : String; AddT'+
|
|
|
- 'oOptionString: boolean = true): Boolean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' O : String;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' O:=Paramstr(Index);'#013#010+
|
|
|
+ 'ble: boolean): ','TPackageVariants;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := TPackageVariants.Create(TPackageVariant);'#010+
|
|
|
+ ' result.Name:=AName;'#010+
|
|
|
+ ' result.FIsInheritable:=AIsInheritable;'#010+
|
|
|
+ ' FPackageVariants.Add(result);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.AnalyzeOptions;'#010+
|
|
|
+ #010+
|
|
|
+ ' Function CheckO','ption(Index : Integer;const Short,Long : String; Ad'+
|
|
|
+ 'dToOptionString: boolean = false): 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'+
|
|
|
- 'keOptionsString+'#039' '#039'+O;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Function CheckBuildOptionSetValue(Index: Integer): boolean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' O : String;'#013#010+
|
|
|
- ' BuildModeName: string;'#013#010,
|
|
|
- ' P: integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' O:=Paramstr(Index);'#013#010+
|
|
|
- ' result := O[1]='#039'+'#039';'#013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Pos('#039'='#039',Paramstr(Index));'#013#010+
|
|
|
- ' If (P=0) then'#013#010+
|
|
|
- ' Error(SErrNeedArgument,[Index,O])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' BuildModeName:=copy(o,2,P-2);'#013#010+
|
|
|
- ' Delete(O,1,P);'#013#010+
|
|
|
- ' FPackageVariantSettings.Values[BuildModeName] := O;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '1,Length(Long)+3)=('#039'--'#039'+long+'#039'='#039'));'#010+
|
|
|
+ ' ',' if AddToOptionString and Result then'#010+
|
|
|
+ ' FFPMakeOptionsString := FFPMakeOptionsString+'#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 copy(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+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' O : String;'#010+
|
|
|
+ ' i : integer;'#010+
|
|
|
+ ' beg','in'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' CustOptName:='#039#039';'#010+
|
|
|
+ ' O:=Paramstr(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:=CustomFpmakeCommandlineOpt','ions.IndexOfName(O)>-1;'#010+
|
|
|
' if Result then FFPMakeOptionsString := FFPMakeOptionsString+'#039' '+
|
|
|
- #039'+Paramstr(Index);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- ' Function CheckCommand(Index : Integer;const Short,Long : St','ring): '+
|
|
|
- 'Boolean;'#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+
|
|
|
- ' if (Length(ParamStr(Inde','x))>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 := c','opy(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 : st','ring;'#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') then'#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'zi'#039','#039'zipinstall'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' FRunMode:=rmZipInstall'#013#010+
|
|
|
- ' else if CheckCommand(I,'#039'c'#039','#039'clean'#039') then'#013#010+
|
|
|
- ' FRunMode:=rmClean'#013#010+
|
|
|
- ' else if CheckComman','d(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+
|
|
|
- ' else if Checkoption(I,'#039'zp'#039','#039'zipprefix'#039') then'#013#010+
|
|
|
- ' Defaults.ZipPrefix:=OptionArg(I)'#013#010+
|
|
|
- '{$ifdef HAS_UNIT_PROCESS}'#013#010+
|
|
|
- ' else if Checkoption(I,'#039'e'#039','#039'useenv'#039') then'#013#010+
|
|
|
- ' Defaults.UseEnvironm','ent:=true'#013#010+
|
|
|
- '{$endif}'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'T'#039','#039'threads'#039') then'#013#010+
|
|
|
- ' Defaults.ThreadsAmount:=StrToIntDef(OptionArg(I),-1)'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'B'#039','#039'baseinstalldir'#039') then'#013+
|
|
|
- #010+
|
|
|
- ' Defau','lts.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.Opti','ons.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+
|
|
|
- ' else if CheckOption(','I,'#039'ie'#039','#039'installexamples'#039') th'+
|
|
|
- 'en'#013#010+
|
|
|
- ' Defaults.InstallExamples:=true'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'sp'#039','#039'skipcrossprograms'#039') th'+
|
|
|
- 'en'#013#010+
|
|
|
- ' Defaults.SkipCrossPrograms:=true'#013#010+
|
|
|
- ' else if CheckOption(I,'#039'bu'#039','#039'buildunit'#039') then'#013#010+
|
|
|
- ' Defaults.BuildMo','de:=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+
|
|
|
- ' else if assigned(Cust','omFpmakeCommandlineOptions) and CheckCustom'+
|
|
|
- 'Option(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+
|
|
|
+ #039'+Paramstr(Index);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ ' Function CheckCommand(Index : Integer;const Short,Long : String): Bo'+
|
|
|
+ '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; AddToOptionString: boolean ='+
|
|
|
+ ' false) : String;'#010+
|
|
|
+ ' Var'#010+
|
|
|
+ ' P : Integer;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (Length(ParamStr(Index))>1) and (Paramstr(Index)[2]<>'#039'-'#039+
|
|
|
+ ') ','then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' If Index<ParamCount then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Inc(Index);'#010+
|
|
|
+ ' Result:=Paramstr(Index);'#010+
|
|
|
+ ' if AddToOptionString then'#010+
|
|
|
+ ' FFPMakeOptionsString := FFPMakeOptionsString+'#039' '#039'+Res'+
|
|
|
+ 'ult;'#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(SErrNeedArgument,[Index,ParamStr(Index)])'#010+
|
|
|
+ ' el','se'#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+
|
|
|
+ ' begin'#010+
|
|
|
+ ' i := pos('#039' '#039',SplitString);'#010+
|
|
|
+ ' if i > 0 t','hen'#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 : st','ring;'#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'verbose'#039') then'#010+
|
|
|
+ ' FLogLevels:=AllMessages'#010+
|
|
|
+ ' ','else if CheckOption(I,'#039'd'#039','#039'debug'#039') 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 CheckC','ommand(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'dis','tclean'#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:=rmManifest'#010+
|
|
|
+ ' else if CheckCommand(I,'#039'l'#039','#039'pkglist'#039') then'#010+
|
|
|
+ ' ',' FRunMode:=rmPkgList'#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+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Defaul','ts.OS:=StringToOS(OptionArg(I));'#010+
|
|
|
+ ' Defaults.ExplicitOSNone := OptionArg(I) = OSToString(osNone);'#010+
|
|
|
+ ' end'#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+
|
|
|
+ ' else if Checkoption(I,'#039'zp'#039','#039'zipprefix'#039') then'#010+
|
|
|
+ ' ',' Defaults.ZipPrefix:=OptionArg(I)'#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.Thread','sAmount:=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'unitinstalldir'#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:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'o'#039','#039'optio','ns'#039', true) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' OptString := OptionArg(I, true);'#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'+
|
|
|
+ #010+
|
|
|
+ ' Defaults.InstallExamples:=true'#010+
|
|
|
+ ' else if CheckOption(I,'#039'sp'#039','#039'skipcrossprograms'#039') t',
|
|
|
+ 'hen'#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', '+
|
|
|
+ 'true) then'#010+
|
|
|
+ ' Defaults.IgnoreInvalidOptions:=true'#010+
|
|
|
+ ' ',' else if CheckOption(I,'#039'd'#039','#039'doc-folder'#039') then'#010+
|
|
|
+ ' Defaults.FPDocOutputDir:=OptionArg(I)'#010+
|
|
|
+ ' else if CheckOption(I,'#039'fsp'#039','#039'fpunitsrcpath'#039') then'#010+
|
|
|
+ ' Defaults.FPUnitSourcePath:=OptionArg(I)'#010+
|
|
|
+ ' else if assigned(CustomFpmakeCommandlineOption','s) and CheckCustom'+
|
|
|
+ 'Option(I,CustOptName) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not assigned(CustomFpMakeCommandlineValues) then'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues := TStringList.Create;'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues.Values[CustOptName]:=OptionA','rg(I'+
|
|
|
+ ', true)'#010+
|
|
|
+ ' end'#010+
|
|
|
' else if (not CheckBuildOptionSetValue(I)) and (not Defaults.Ignore'+
|
|
|
- 'InvalidOptions) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Usage(SErrInValidArgument,[I,ParamStr(I)]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If DefaultsFi','leName<>'#039#039' then'#013#010+
|
|
|
- ' Defaults.LocalInit(DefaultsFileName);'#013#010+
|
|
|
- ' Defaults.CompilerDefaults;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'InvalidOptions) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Usage(SErrInValidArgument,[I,ParamStr(I)]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If DefaultsFileName<>'#039#039' then'#010+
|
|
|
+ ' Defaults.L','ocalInit(DefaultsFileName);'#010+
|
|
|
+ ' Defaults.CompilerDefaults;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TCustomInstaller.Usage(const FMT: String; Args: array of con'+
|
|
|
- 'st);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Procedure LogCmd(const LC,Msg : String);'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(v','lInfo,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+
|
|
|
- ' Log(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+
|
|
|
- ' if t','rim(c)='#039#039' then'#013#010+
|
|
|
- ' Log(vlInfo,Format('#039' --%-20s %s'#039',[LC+'#039'='#039'+SValu'+
|
|
|
- 'e,MSG]))'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'st);'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure LogCmd(const LC,Msg : String);'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,Format('#039' %-12s %s'#039',[LC,MSG]));'#010+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ #010+
|
|
|
+ ' Procedure LogOption(const C,LC,Msg : String);'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,Format('#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' --%-20','s %s'#039',[LC+'#039'='#039'+SVa'+
|
|
|
+ 'lue,MSG]))'#010+
|
|
|
+ ' else'#010+
|
|
|
' Log(vlInfo,Format('#039' -%s --%-20s %s'#039',[C,LC+'#039'='#039'+SV'+
|
|
|
- 'alue,MSG]));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' i: Integer;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Force the Usage to be displayed'#013#010+
|
|
|
- ' Inclu','de(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',SHelpBuild);'#013#010+
|
|
|
- ' LogCmd('#039'instal','l'#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+
|
|
|
- ' LogCmd('#039'zipinstall'#039',SHelpZipInstall);'#013#010+
|
|
|
- ' Log(vlInfo,SHelpCmdOptions);'#013#010+
|
|
|
- ' LogOption('#039'h'#039','#039'help'#039',SHelpHelp);'#013#010+
|
|
|
- ' LogOpti','on('#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'installexampl','es'#039',SHelpInstExamples'+
|
|
|
- ');'#013#010+
|
|
|
- ' LogOption('#039'bu'#039','#039'buildunit'#039',SHelpUseBuildUnit);'#013#010+
|
|
|
+ 'alue,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,Fo','rmat(Fmt,Args));'#010+
|
|
|
+ ' Log(vlInfo,Format(SHelpUsage,[Paramstr(0)]));'#010+
|
|
|
+ ' Log(vlInfo,SHelpCommand);'#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+
|
|
|
+ ' LogCmd('#039'zipinstall'#039',SHelpZipInstall);'#010+
|
|
|
+ ' LogCmd('#039'pkglist'#039',SHelpPkgList);'#010+
|
|
|
+ ' Log(vlInfo,SHelpCmdOptions);'#010+
|
|
|
+ ' LogOption('#039'h'#039','#039'help'#039',SHelpHelp);'#010+
|
|
|
+ ' LogOption('#039'l'#039','#039'list-commands'#039',SHelpList);'#010+
|
|
|
+ ' Log','Option('#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'buil','dunit'#039',SHelpUseBuildUnit);'#010+
|
|
|
' LogOption('#039'sp'#039','#039'skipcrossprograms'#039',SHelpSkipCrossPro'+
|
|
|
- 'gs);'#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',SHelp','Target);'#013#010+
|
|
|
- ' LogArgOption('#039'P'#039','#039'prefix'#039',SHelpPrefix);'#013#010+
|
|
|
+ 'gs);'#010+
|
|
|
+ ' LogOption('#039'io'#039','#039'ignoreinvalidoption'#039',SHelpIgnoreInvO'+
|
|
|
+ 'pt);'#010+
|
|
|
+ ' LogArgOption('#039'C'#039','#039'cpu'#039',SHelpCPU);'#010+
|
|
|
+ ' LogArgOption('#039'O'#039','#039'os'#039',SHelpOS);'#010+
|
|
|
+ ' LogArgOption('#039't'#039','#039'targe','t'#039',SHelpTarget);'#010+
|
|
|
+ ' LogArgOption('#039'P'#039','#039'prefix'#039',SHelpPrefix);'#010+
|
|
|
' LogArgOption('#039'B'#039','#039'baseinstalldir'#039',SHelpBaseInstalldi'+
|
|
|
- 'r);'#013#010+
|
|
|
+ 'r);'#010+
|
|
|
' LogArgOption('#039'UL'#039','#039'localunitdir'#039',SHelpLocalUnitdir);'+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
' LogArgOption('#039'UG'#039','#039'globalunitdir'#039',SHelpGlobalUnitdir'+
|
|
|
- ');'#013#010+
|
|
|
- ' LogArgOption','('#039'U'#039','#039'unitinstalldir'#039',SHelpUnitInstall'+
|
|
|
- 'Dir);'#013#010+
|
|
|
- ' LogArgOption('#039'r'#039','#039'compiler'#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+
|
|
|
+ ');'#010+
|
|
|
+ ' LogArgOpt','ion('#039'U'#039','#039'unitinstalldir'#039',SHelpUnitInstall'+
|
|
|
+ 'Dir);'#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'd'#039', '#039'doc-folder'#039', sHelpFpdocOutputDir)'+
|
|
|
- ';'#013#010+
|
|
|
- ' LogArgOption('#039'zp'#039', '#039'zipprefix'#039', sHelpZipPrefix);'#013+
|
|
|
- #010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' LogArgOption('#039'T'#039', '#039'threads'#039', sHelpThreads);'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' if assigned(CustomFpmakeCommandl','ineOptions) then for i := 0 to Cu'+
|
|
|
- 'stomFpmakeCommandlineOptions.Count-1 do'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ ' Log','ArgOption('#039'fsp'#039', '#039'fpunitsrcpath'#039', sHelpFPUnitSr'+
|
|
|
+ 'cPath);'#010+
|
|
|
+ ' LogArgOption('#039'zp'#039', '#039'zipprefix'#039', sHelpZipPrefix);'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' LogArgOption('#039'T'#039', '#039'threads'#039', sHelpThreads);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' if assigned(CustomFpmakeCommandlineOption','s) 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+
|
|
|
- 'procedure TCustomInstaller.ZipInstall;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' BuildEngine.ZipInstall(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedur','e TCustomInstaller.Archive;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // Force generation of manifest.xml, this is required for the reposi'+
|
|
|
- 'tory'#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+
|
|
|
- ' Bu','ildEngine.Manifest(Packages);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TCustomInstaller.CheckPackages;'#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 : Boo','lean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=True;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' CheckPackages;'#013#010+
|
|
|
- ' CreateBuildEngine;'#013#010+
|
|
|
- ' Case RunMode of'#013#010+
|
|
|
- ' rmCompile : Compile(False);'#013#010+
|
|
|
- ' rmBuild : Compile(True);'#013#010+
|
|
|
- ' rmInstall : Install;'#013#010+
|
|
|
- ' rmZipInstall : ZipInstall;'#013#010+
|
|
|
- ' ','rmArchive : Archive;'#013#010+
|
|
|
- ' rmClean : Clean(False);'#013#010+
|
|
|
- ' rmDistClean: Clean(True);'#013#010+
|
|
|
- ' rmManifest : 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 Result 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+
|
|
|
+ ' ha','lt(0);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Compile(Force: Boolean);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FNotifyEventCollection.CallEvents(neaBeforeCompile, Self);'#010+
|
|
|
+ ' FBuildEngine.ForceCompile:=Force;'#010+
|
|
|
+ ' FBuildEngine.Compile(Packages);'#010+
|
|
|
+ ' FNotifyEventCollection.CallEvents(n','eaAfterCompile, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Clean(AllTargets: boolean);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeClean, Self);'#010+
|
|
|
+ ' BuildEngine.Clean(Packages, AllTargets);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterClean',', Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Install;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeInstall, self);'#010+
|
|
|
+ ' BuildEngine.Install(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterInstall, self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstall','er.ZipInstall;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeInstall, self);'#010+
|
|
|
+ ' BuildEngine.ZipInstall(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterInstall, self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Archive;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // Force gene','ration of manifest.xml, this is required for the repo'+
|
|
|
+ 'sitory'#010+
|
|
|
+ ' BuildEngine.Manifest(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeArchive, self);'#010+
|
|
|
+ ' BuildEngine.Archive(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterArchive, s','elf);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.Manifest;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeManifest, self);'#010+
|
|
|
+ ' BuildEngine.Manifest(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterManifest, self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInsta','ller.PkgList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforePkgList, self);'#010+
|
|
|
+ ' BuildEngine.PkgList(Packages);'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterPkgList, self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TCustomInstaller.CheckPackages;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Package','s.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 RunMode of'#010+
|
|
|
+ ' rmCompil','e : Compile(False);'#010+
|
|
|
+ ' rmBuild : Compile(True);'#010+
|
|
|
+ ' rmInstall : Install;'#010+
|
|
|
+ ' rmZipInstall : ZipInstall;'#010+
|
|
|
+ ' rmArchive : Archive;'#010+
|
|
|
+ ' rmClean : Clean(False);'#010+
|
|
|
+ ' rmDistClean: Clean(True);'#010+
|
|
|
+ ' rmManifest : Manifest;'#010+
|
|
|
+ ' ','rmPkgList : PkgList;'#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+
|
|
|
- ' D','efaults:=TFPCDefaults.Create;'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TBasicInstaller'#013#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+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TBuildEngine'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'construc','tor 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 TBuildEngine.Cre','ate(AOwner: TComponent);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(AOwner);'#013#010+
|
|
|
- ' // Maybe this should be the current directory ?'#013#010+
|
|
|
- ' // Or have it as a command-line option.'#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+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#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 ','option.'#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+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' InitCriticalSection(FGeneralCriticalSection);'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013,#010+
|
|
|
- 'destructor TBuildEngine.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FExternalPackages);'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' DoneCriticalsection(FGeneralCriticalSection);'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- #013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Error(con','st Msg: String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Raise EInstallerError.Create(Msg);'#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+
|
|
|
+ ' FNotifyEventColle','ction := TNotifyEventCollection.create([neaAfterC'+
|
|
|
+ 'ompile, neaBeforeCompile, neaAfterInstall, neaBeforeInstall,'#010+
|
|
|
+ ' neaAfterCle'+
|
|
|
+ 'an, neaBeforeClean, neaAfterArchive, neaBeforeArchive,'#010+
|
|
|
+ ' ',' neaAfterM'+
|
|
|
+ 'anifest, neaBeforeManifest, neaAfterPkgList, neaBeforePkgList]);'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' InitCriticalSection(FGeneralCriticalSection);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor T','BuildEngine.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FExternalPackages);'#010+
|
|
|
+ ' FreeAndNil(FNotifyEventCollection);'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' DoneCriticalsection(FGeneralCriticalSection);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngi','ne.AddFileToArchive(const APackage: TPackage; co'+
|
|
|
+ 'nst ASourceFileName, ADestFileName: String);'#010+
|
|
|
+ #010+
|
|
|
+ ' function GetArchiveName: string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := Defaults.ZipPrefix;'#010+
|
|
|
+ ' if Defaults.BuildOS in AllLimit83fsOses then'#010+
|
|
|
+ ' result := resu','lt + APackage.ShortName'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' result := result + APackage.Name;'#010+
|
|
|
+ ' result := result + MakeZipSuffix(Defaults.CPU, Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef UNIX}'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' FileStat: stat;'#010+
|
|
|
+ '{$endif UNIX}'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ '{$ifdef CREATE_TAR_FILE}'#010+
|
|
|
+ ' {$ifdef HAS','_TAR_SUPPORT}'#010+
|
|
|
+ ' if not assigned(FTarWriter) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FGZFileStream := TGZFileStream.create(GetArchiveName + ArchiveEx'+
|
|
|
+ 'tension, gzopenwrite);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' FTarWriter := TTarWriter.Create(FGZFileStream);'#010+
|
|
|
+ ' FTarWriter.Per','missions := [tpReadByOwner, tpWriteByOwner, tp'+
|
|
|
+ 'ReadByGroup, tpReadByOther];'#010+
|
|
|
+ ' FTarWriter.UserName := '#039'root'#039';'#010+
|
|
|
+ ' FTarWriter.GroupName := '#039'root'#039';'#010+
|
|
|
+ ' except'#010+
|
|
|
+ ' FGZFileStream.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$ifdef unix}'#010+
|
|
|
+ ' if (FpSta','t(ASourceFileName, FileStat) = 0) and (FileStat.st_mode a'+
|
|
|
+ 'nd S_IXUSR = S_IXUSR) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions + [tpExecuteByGro'+
|
|
|
+ 'up];'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions + [tpExecuteByOwn'+
|
|
|
+ 'e','r];'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions + [tpExecuteByOth'+
|
|
|
+ 'er];'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions - [tpExecuteByGro'+
|
|
|
+ 'up];'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions - [tpExe','cuteByO'+
|
|
|
+ 'wner];'#010+
|
|
|
+ ' FTarWriter.Permissions := FTarWriter.Permissions - [tpExecuteByOth'+
|
|
|
+ 'er];'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$endif unix}'#010+
|
|
|
+ ' FTarWriter.AddFile(ASourceFileName, ADestFileName);'#010+
|
|
|
+ ' {$endif HAS_TAR_SUPPORT}'#010+
|
|
|
+ '{$else CREATE_TAR_FILE}'#010+
|
|
|
+ ' {$ifdef HAS_UNIT_ZIPP','ER}'#010+
|
|
|
+ ' if not assigned(FZipper) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FZipper := TZipper.Create;'#010+
|
|
|
+ ' FZipper.FileName := GetArchiveName + ArchiveExtension;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' FZipper.Entries.AddFileEntry(ASourceFileName, ADestFileName);'#010+
|
|
|
+ ' {$endif HAS_UNIT_ZIPPER}',#010+
|
|
|
+ '{$ENDIF CREATE_TAR_FILE}'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.FinishArchive(Sender: TObject);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' {$ifdef HAS_TAR_SUPPORT}'#010+
|
|
|
+ ' if assigned(FTarWriter) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FreeAndNil(FTarWriter);'#010+
|
|
|
+ ' FGZFileStream.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' {$endif HAS_','TAR_SUPPORT}'#010+
|
|
|
+ ' {$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' if assigned(FZipper) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' FZipper.ZipAllFiles;'#010+
|
|
|
+ ' FZipper.Clear;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FreeAndNil(FZipper);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' {$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'pro','cedure TBuildEngine.Error(const Msg: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.Create(Msg);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #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+
|
|
|
- 'procedure TBuildEngine.Exe','cuteCommand(const Cmd,Args : String; const'+
|
|
|
- ' Env: 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+
|
|
|
+ 'onst);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Raise EInstallerError.CreateFmt(Fmt,Args);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure',' TBuildEngine.ExecuteCommand(const Cmd,Args : String; const'+
|
|
|
+ ' Env: 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,[Cm','d,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 spac'+
|
|
|
- 'e to args.'#013#010+
|
|
|
- ' ConsoleOutput := TMemoryStream.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' {$ifdef HAS_UN','IT_PROCESS}'#013#010+
|
|
|
- ' E:=ExecuteFPC(Verbose, cmd, args, env, ConsoleOutput);'#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,SDbg','DirectoryExists,[ADir,SDbgFound])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlDebug,SDbgDirectoryExists,[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 res','ult 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 : T','FileStream;'#013#010+
|
|
|
- ' Count : Int64;'#013#010+
|
|
|
- ' A : Integer;'#013#010+
|
|
|
- '{$ifdef UNIX}'#013#010+
|
|
|
- ' FileStat: stat;'#013#010+
|
|
|
- '{$endif UNIX}'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(vlInfo,SInfoCopyingFile,[Src,Dest]);'#013#010+
|
|
|
- ' FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' D:=IncludeTrailingP','athDelimiter(Dest);'#013#010+
|
|
|
- ' If DirectoryExists(D) then'#013#010+
|
|
|
- ' S:=D+ExtractFileName(Src)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' S:=Dest;'#013#010+
|
|
|
- ' FOut:=TFileStream.Create(S,fmCreate or fmShareDenyNone);'#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) then'#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+
|
|
|
- '{$ifdef UNIX}'#013#010+
|
|
|
+ 'e 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' th','en'#010+
|
|
|
+ ' cmdLine := cmd + '#039' '#039' + trim(args)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' cmdline := cmd;'#010+
|
|
|
+ ' s := ParsecompilerOutput(ConsoleOutput,Verbose);'#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:=SysUtils.DirectoryExists(ADir);'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgDirectoryExists,[ADir,S','DbgFound])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgNotFound]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.SysFileExists(const AFileName:string):Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=SysUtils.FileExists(AFileName);'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' Log(vlDebug,SDbgFil','eExists,[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 or fmShareDenyNone);'#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 or fmShareDenyNone);'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Count:=Fout.CopyFrom(FIn,0);'#010+
|
|
|
+ ' If (Count<>Fin.Size) then'#010+
|
|
|
+ ' Error(SErrCopyingFile,[Src,S]);'#010+
|
|
|
+ ' Final','ly'#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(vlWarning,SWarnFailedToSetTime,[S]);'#010+
|
|
|
+ '{$ifdef UNIX}',#010+
|
|
|
' // Copy the file-access rights on Unix, especially the executable-'+
|
|
|
- 'bit'#013#010+
|
|
|
- ' if FpStat(Src,FileStat) <> 0 then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnCanNotGetAccessRights,[Src])',#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' if FpChmod(s,FileStat.st_mode) <> 0 then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnCanNotSetAccessRights,[S]);'#013#010+
|
|
|
- '{$endif UNIX}'#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+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlInfo,SInfoDeletedFile,[AFileName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'proc','edure TBuildEngine.SysDeleteDirectory(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+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBu','ildEngine.SysDeleteTree(Const ADirectoryName: String);'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- ' function IntRemoveTree(const ADirectoryName: String) : boolean;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' searchRec: TSearchRec;'#013#010+
|
|
|
- ' SearchResult: longint;'#013#010+
|
|
|
- ' s: string;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' result := true;'#013#010+
|
|
|
- ' Se','archResult := FindFirst(IncludeTrailingPathDelimiter(ADirector'+
|
|
|
- 'yName)+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+
|
|
|
+ 'bit'#010+
|
|
|
+ ' if FpStat(Src,FileStat) <> 0 then'#010+
|
|
|
+ ' Log(vlWarning,SWarnCanNotGetAccessRights,[Src])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' if FpChmod(s,FileStat.st_mode) <> 0 then'#010+
|
|
|
+ ' Log(vlWar','ning,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 DirectoryExists(IncludeTrailingPathDelimiter(Dest)) t','hen'#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(Src);'#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+
|
|
|
+ ' if not FileExists(AFileName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgFileDoesNotExist,[AFileName])'#010+
|
|
|
+ ' else If Not SysUti','ls.DeleteFile(AFileName) then'#010+
|
|
|
+ ' Error(SErrDeletingFile,[AFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlInfo,SInfoDeletedFile,[AFileName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysDeleteDirectory(Const ADirectoryName: String'+
|
|
|
+ ');'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not DirectoryExists(ADirect','oryName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
|
|
|
+ ' else if not IsDirectoryEmpty(ADirectoryName) then'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryNotEmpty,[ADirectoryName])'#010+
|
|
|
+ ' else If Not RemoveDir(ADirectoryName) then'#010+
|
|
|
+ ' Error(SEr','rRemovingDirectory,[ADirectoryName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);'#010+
|
|
|
+ #010+
|
|
|
+ ' function IntRemoveTree(const ADirectoryName: String) : boolean',';'#010+
|
|
|
+ '{$ifdef MSWINDOWS}'#010+
|
|
|
+ ' { pulling in shellapi with all it dependent units and packages makes'+
|
|
|
+ ' things too'#010+
|
|
|
+ ' complicated so just add the constants here }'#010+
|
|
|
+ ' const'#010+
|
|
|
+ ' FO_DELETE = $0003;'#010+
|
|
|
+ ' FOF_SILENT = $0004;'#010+
|
|
|
+ ' ','FOF_NOCONFIRMATION = $0010;'#010+
|
|
|
+ '{$endif MSWINDOWS}'#010+
|
|
|
+ ' var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ '{$ifdef MSWINDOWS}'#010+
|
|
|
+ ' SHFileOpStruct: TSHFileOpStruct;'#010+
|
|
|
+ ' DirBuf: array[0..MAX_PATH+1] of TCHAR;'#010+
|
|
|
+ '{$else MSWINDOWS}'#010+
|
|
|
+ ' searchRec: TSearchRec;'#010+
|
|
|
+ ' SearchResult: lon','gint;'#010+
|
|
|
+ ' s: string;'#010+
|
|
|
+ '{$endif MSWINDOWS}'#010+
|
|
|
+ #010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := true;'#010+
|
|
|
+ '{$ifdef MSWINDOWS}'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' FillChar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0);'#010+
|
|
|
+ ' FillChar(DirBuf, Sizeof(DirBuf), 0);'#010+
|
|
|
+ ' StrPCopy(DirBuf, ADirectoryName);'#010+
|
|
|
+ ' ',' with SHFileOpStruct do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' pFrom := @DirBuf;'#010+
|
|
|
+ ' wFunc := FO_DELETE;'#010+
|
|
|
+ ' fFlags := FOF_NOCONFIRMATION or FOF_SILENT;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result := SHFileOperation(SHFileOpStruct) = 0;'#010+
|
|
|
+ ' except'#010+
|
|
|
+ ' Result := Fals','e;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ '{$else MSWINDOWS}'#010+
|
|
|
+ ' SearchResult := FindFirst(IncludeTrailingPathDelimiter(ADirectoryN'+
|
|
|
+ 'ame)+AllFilesMask, faAnyFile+faSymLink, searchRec);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' while SearchResult=0 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if (searchRec.Name<>'#039'.'#039') a','nd (searchRec.Name<>'#039+
|
|
|
+ '..'#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' s := IncludeTrailingPathDelimiter(ADirectoryName)+searc'+
|
|
|
- 'hRec.Name;'#013#010+
|
|
|
- ' if (searchRec.Attr and faDirectory)=faDirectory then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not IntRemoveTree(s) th','en'#013#010+
|
|
|
- ' result := false;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else if not DeleteFile(s) then'#013#010+
|
|
|
- ' result := False'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vldebug, SDbgDeletedFile, [s]);'#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+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vldebug, SDbgRemovedDirectory, [ADirecto','ryName]);'#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,[ADirectoryName])'#013#010+
|
|
|
- ' e','lse'#013#010+
|
|
|
- ' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.SysArchiveFiles(List: TStrings;Const AFileName:'+
|
|
|
- ' String);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'hRec.Name;'#010+
|
|
|
+ ' if (searchRec.Attr and faDirectory)=faDirectory then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ',' if not IntRemoveTree(s) then'#010+
|
|
|
+ ' result := false;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else if not DeleteFile(s) then'#010+
|
|
|
+ ' result := False'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vldebug, SDbgDeletedFile, [s]);',#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' SearchResult := FindNext(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' FindClose(searchRec);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // There were reports of RemoveDir failing due to locking-problems'+
|
|
|
+ '. To solve'#010+
|
|
|
+ ' // these the RemoveDir is ','tried three times, with a delay of 5 s'+
|
|
|
+ 'econds. See'#010+
|
|
|
+ ' // bug 21868'#010+
|
|
|
+ ' i := 2;'#010+
|
|
|
+ ' result := RemoveDir(ADirectoryName);'#010+
|
|
|
+ '{$endif WINDOWS}'#010+
|
|
|
+ #010+
|
|
|
+ ' while not result and (i>0) do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlWarning, SWarnRetryRemDirectory, [ADirecto','ryName]);'#010+
|
|
|
+ ' sleep(5000);'#010+
|
|
|
+ ' dec(i);'#010+
|
|
|
+ ' result := RemoveDir(ADirectoryName);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' log(vldebug, SDbgRemovedDirectory, [ADirectoryName]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not DirectoryExists(ADirectoryName) th','en'#010+
|
|
|
+ ' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
|
|
|
+ ' else If Not IntRemoveTree(ADirectoryName) then'#010+
|
|
|
+ ' Error(SErrRemovingDirectory,[ADirectoryName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedur','e TBuildEngine.SysArchiveFiles(List: TStrings;Const AFileNam'+
|
|
|
+ 'e: String);'#010+
|
|
|
+ 'begin'#010+
|
|
|
' If Not (Assigned(OnArchivefiles) or Assigned(ArchiveFilesProc)) then'+
|
|
|
- #013#010+
|
|
|
- ' Rais','e 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+
|
|
|
- ' GLogPrefix:=GLog','Prefix+'#039' '#039';'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.LogUnIndent;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Delete(GLogPrefix,1,2);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Log(Level: TVerboseLevel; 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,GLogPrefix+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; Fmt: String;const Arg'+
|
|
|
- 's: array of const);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Log(Level,Format(Fmt,Args)',');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.EnterDir(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+
|
|
|
- 'procedu','re TBuildEngine.CmdCopyFiles(List: TStrings; Const DestDir: S'+
|
|
|
- 'tring);'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' Args : String;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' DestFileName : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' // When the files should be written to an archive, add them'#013#010+
|
|
|
- ' if assigned(FZipper) then'#013#010+
|
|
|
- ' ','begin'#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+
|
|
|
- ' FZipper.Entries.AddFileEntry(List.names[i], DestFileName);'+
|
|
|
- #013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FZipper.Entries.AddFileEntry(List[i], DestDir+ExtractFileNam'+
|
|
|
- 'e(List[i]));'#013#010+
|
|
|
- ' Exit',';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' {$ifdef HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' if assigned(FTarWriter) then'#013#010+
|
|
|
- ' begin'#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+
|
|
|
- ' FTarWriter.AddFile(List.names[i], DestFileName);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FTarWriter.AddFil','e(List[i], DestDir+ExtractFileName(List[i'+
|
|
|
- ']));'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' {$endif HAS_TAR_SUPPORT}'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Copy the files to their new location on disk'#013#010+
|
|
|
- ' CmdCreateDir(DestDir);'#013#010+
|
|
|
- ' If (Defaults.Copy<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Args:=FileListT','oString(List,'#039#039');'#013#010+
|
|
|
- ' Args:=Args+'#039' '#039'+DestDir;'#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+
|
|
|
- ' SysCopyFile(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 Fo','rceDirectories(DestDir) then'#013#010+
|
|
|
- ' Error(SErrCreatingDirectory,[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+
|
|
|
- 'e','nd;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.CmdDeleteFiles(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+
|
|
|
- ' else'#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:=GlobalDictionary.Substitute(','O,['#039'ARCHIVE'#039',ArchiveF'+
|
|
|
- 'ile,'#039'FILESORDIRS'#039']);'#013#010+
|
|
|
- ' ExecuteCommand(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+
|
|
|
- ' ExecuteCommand(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 : Int','eger;'#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+
|
|
|
- 'Var'#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+
|
|
|
- ' SysDeleteTree(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+
|
|
|
- ' ',' { Return false if file not found or not accessible }'#013#010+
|
|
|
- ' if DS=-1 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vlWarning,SWarnCanNotGetFileAge,[Src]);'#013#010+
|
|
|
- ' Result:=false;'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' end;'#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) the','n'#010+
|
|
|
+ ' ArchiveFilesProc(AFileName,List)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' OnArchiveFiles(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: String);'#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+
|
|
|
+ 'p','rocedure TBuildEngine.Log(Level: TVerboseLevel; Fmt: String;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(v','lDebug,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; APackage : TPackage);'#010+
|
|
|
+ #010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' Args : String;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' Dest','FileName : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' // When the files should be written to an archive, add them'#010+
|
|
|
+ ' if assigned(FOnCopyFile) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' For I:=0 to List.Count-1 do'#010+
|
|
|
+ ' if List.Names[i]<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if IsRelativePa','th(list.ValueFromIndex[i]) then'#010+
|
|
|
+ ' DestFileName:=DestDir+list.ValueFromIndex[i]'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' DestFileName:=list.ValueFromIndex[i];'#010+
|
|
|
+ ' FOnCopyFile(APackage, AddPathPrefix(APackage, List.Names[i'+
|
|
|
+ ']), DestFi','leName);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' FOnCopyFile(APackage, AddPathPrefix(APackage, List[i]), Dest'+
|
|
|
+ 'Dir+ExtractFileName(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, IncludeTrailingPathDelimiter(GPathP'+
|
|
|
+ 'refix));'#010+
|
|
|
+ ' Args:=Args+'#039' '#039'+DestDir;'#010+
|
|
|
+ ' ExecuteCommand(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(AddPathPrefix(APackage, List.Names[i]),DestFileN'+
|
|
|
+ 'ame)'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' SysCopyFile(AddPathPrefix(APackage, List[i]), DestDir);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.CmdCreateDir(con','st 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+
|
|
|
+ 'procedure TBuildEngine.CmdMoveFiles(L','ist: 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'+DestDir;'#010+
|
|
|
+ ' ExecuteCommand(Defa','ults.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.CmdArchiveFiles(List: TStrings; Const Archiv','e'+
|
|
|
+ '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,IncludeTrailingPathDelimiter(GPathPrefi'+
|
|
|
+ 'x));'#010+
|
|
|
+ ' SplitCommand(Defaults.Archiv','e,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+
|
|
|
+ 'procedure 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+
|
|
|
+ ' e','lse'#010+
|
|
|
+ ' For 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:=FileList','ToString(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(Des','t);'#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(D','1),Dest,Date'+
|
|
|
+ 'TimeToStr(D2)]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.ExecuteCommands(Commands: TCommands; At: TComma'+
|
|
|
- 'ndAt; APackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' C : TCommand;'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' Cmd,O : String;'#013#010+
|
|
|
- ' E : Boolean;'#013#010+
|
|
|
- ' ADictionary: TDictionary;'#013#010+
|
|
|
- ' SourceFile, DestFile: string;'#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+
|
|
|
- #013#010+
|
|
|
- ' if assigned(APackage) then'#013#010+
|
|
|
- ' ADictionary := APackage.Dictionary'#013#010+
|
|
|
- ' ',' else'#013#010+
|
|
|
- ' ADictionary := GlobalDictionary;'#013#010+
|
|
|
- ' SourceFile := ADictionary.ReplaceStrings(C.SourceFile);'#013#010+
|
|
|
- ' DestFile := ADictionary.ReplaceStrings(C.DestFile);'#013#010+
|
|
|
- ' if IsRelativePath(SourceFile) then'#013#010+
|
|
|
- ' ',' SourceFile := AddPathPrefix(APackage,SourceFile);'#013#010+
|
|
|
- ' if IsRelativePath(DestFile) then'#013#010+
|
|
|
- ' DestFile := AddPathPrefix(APackage,DestFile);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Cmd:=C.Command;'#013#010+
|
|
|
- ' If (ExtractFilePath(Cmd)='#039#039') then'#013#010+
|
|
|
- ' ',' Cmd:=ExeSearch(Cmd,GetEnvironmentvariable('#039'PATH'#039')'+
|
|
|
- ');'#013#010+
|
|
|
- #013#010+
|
|
|
- ' If (SourceFile<>'#039#039') and (DestFile<>'#039#039') then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if not FileExists(DestFile) then'#013#010+
|
|
|
- ' Log(vlInfo,SInfoDestDoesNotExist,[DestFile])',#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' E:=FileNewer(SourceFile, DestFile);'#013#010+
|
|
|
- ' if E and (cmd = '#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'ndAt; APackage: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' C : TCommand;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' Cmd,O : String;'#010+
|
|
|
+ ' E : Boolean;'#010+
|
|
|
+ ' ADictionary: TDictionary;'#010+
|
|
|
+ ' SourceFil','e, DestFile: 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.Dic','tionary'#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+
|
|
|
+ ' ',' Cmd:=ExeSearch(Cmd,SysUtils.GetEnvironmentvariable('#039'P'+
|
|
|
+ 'ATH'#039'));'#010+
|
|
|
+ #010+
|
|
|
+ ' If (SourceFile<>'#039#039') and (DestFile<>'#039#039') then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if not FileExists(DestFile) then'#010+
|
|
|
+ ' Log(vlInfo,SInfoDestDoesNotExist,[D','estFile])'#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]);'#013#010+
|
|
|
- ' E := False;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If E then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Cmd = '#039#039' then'#013#010+
|
|
|
- ' error(SErrExtCommandNotFound,[C.Command]);'#013#010+
|
|
|
- #013,#010+
|
|
|
- ' If Assigned(C.BeforeCommand) then'#013#010+
|
|
|
- ' C.BeforeCommand(C);'#013#010+
|
|
|
+ 'tF','ile,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]);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Log(vlCommand,SInfoExecutingCommand,[Cmd,O]);'#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(APackage: TPacka','ge; const ASear'+
|
|
|
- 'chPathName: 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 (ACP','U 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+APackage.Dictionary.ReplaceStrings(C.Value)'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if S<>'#039#039' then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgSearchP','ath,[ASearchPathName,S]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.FindFileInPath(APackage: TPackage; Path:TConditi'+
|
|
|
- 'onalStrings; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS)'+
|
|
|
- ':Boolean;'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' C : TConditionalString;'#013#010+
|
|
|
- 'begi','n'#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+
|
|
|
+ ',SourceFile,'#039'DEST'#039',DestFile]);'#010+
|
|
|
+ #010+
|
|
|
+ ' Log(vlCommand,SInfoExecutingCommand,[Cmd,O]);'#010+
|
|
|
+ ' ','ExecuteCommand(Cmd,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'+
|
|
|
+ 'Path','Name: string; Path: 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+
|
|
|
+ ' begin'#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+
|
|
|
+ 'Functi','on TBuildEngine.FindFileInPath(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 d','o'#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.Valu','e));'#013#010+
|
|
|
- ' if FileExists(AddPathPrefix(APackage,FoundPath+AFileName)) t'+
|
|
|
- 'hen'#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+
|
|
|
- 'procedure TBuildEngine','.GetDirectoriesFromFilelist(const AFileList, A'+
|
|
|
- 'DirectoryList: 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(Ext','ractFileDir(AFileList.Strings[i]));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ReplaceStrings(C.Value));'#010+
|
|
|
+ ' if FileExists(AddPathPrefix(APackage,Fo','undPath+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: TStr','ingList);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' s: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ADirectoryList.Sorted:=true;'#010+
|
|
|
+ ' ADirectoryList.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' for i := 0 to AFileList.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' s := ExtractFileDir(AFileList.Strings[i]);'#010+
|
|
|
+ ' if s <> '#039#039' then'#010+
|
|
|
+ ' ',' ADirectoryList.Add(s);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.AddPackageMacrosToDictionary(const APackage: TP'+
|
|
|
- 'ackage; ADictionary: TDictionary);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'ackage; ADictionary: TDictionary);'#010+
|
|
|
+ 'begin'#010+
|
|
|
' APackage.Dictionary.AddVariable('#039'UNITSOUTPUTDIR'#039',AddPathPref'+
|
|
|
- 'ix(APackage,APackage','.GetUnitsOutputDir(Defaults.CPU,Defaults.OS)));'#013+
|
|
|
- #010+
|
|
|
+ 'ix(APackage,APackage.GetU','nitsOutputDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
' APackage.Dictionary.AddVariable('#039'BINOUTPUTDIR'#039',AddPathPrefix'+
|
|
|
- '(APackage,APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)));'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Procedure TBuildEngine.ResolveFileNames(APackage : TPack','age; ACPU:TC'+
|
|
|
- 'PU;AOS:TOS;DoChangeDir:boolean=true; WarnIfNotFound:boolean=true);'#013+
|
|
|
- #010+
|
|
|
- #013#010+
|
|
|
- ' procedure FindMainSource(T:TTarget);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' SD,SF : String;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ '(APackage,APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'PACKAGEVERSION'#039',APackage.Ve'+
|
|
|
+ 'rsion);'#010+
|
|
|
+ ' ',' APackage.Dictionary.AddVariable('#039'PACKAGEDIRECTORY'#039',APackag'+
|
|
|
+ 'e.Directory);'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'PackageName'#039',APackage.Name)'+
|
|
|
+ ';'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TBuildEngine.ResolveFileNames(APackage : TPackage; ACPU:TCPU'+
|
|
|
+ ';AOS:TOS;DoChangeDir:boolea','n=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);'#013#010+
|
|
|
- ' ','SD:=APackage.Dictionary.ReplaceStrings(T.Directory);'#013#010+
|
|
|
- ' SF:=APackage.Dictionary.ReplaceStrings(T.SourceFileName);'#013#010+
|
|
|
- ' if SD='#039#039' then'#013#010+
|
|
|
- ' FindFileInPath(APackage,APackage.SourcePath,SF,SD,ACPU,AOS);'#013+
|
|
|
- #010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=Includ','eTrailingPathDelimiter(SD);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:=SD+SF;'#013#010+
|
|
|
+ 'h,ACPU,AOS);'#010+
|
|
|
+ ' SD:=APackage.Dictionary.ReplaceStrings(T.Directo','ry);'#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:=IncludeTrailingPathDelimiter(SD);'#010+
|
|
|
+ ' T.FTargetSourceFileNa','me:=SD+SF;'#010+
|
|
|
' if FileExists(AddPathPrefix(APackage,T.TargetSourceFileName)) then'+
|
|
|
- #013#010+
|
|
|
+ #010+
|
|
|
' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.TargetSou'+
|
|
|
- 'rceFileName])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' b','egin'#013#010+
|
|
|
- ' if WarnIfNotFound then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName,APac'+
|
|
|
- 'kage.Name,MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' APackage.FAllFilesResolved:=false;'#013#010+
|
|
|
- ' T.FTargetSourceFileName:='#039#039';'#013#010+
|
|
|
- ' end',';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure FindIncludeSources(T:TTarget);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' SD,SF : String;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' j : integer;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'rceFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if WarnIfNotFound then'#010+
|
|
|
+ ' Log(vlWarnin','g,SWarnSourceFileNotFound,[T.SourceFileName,AP'+
|
|
|
+ 'ackage.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);'#013#010+
|
|
|
- ' LogSearchPath(APackage,'#039'package',' include'#039',APackage.Includ'+
|
|
|
- 'ePath,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+
|
|
|
- ' if D.TargetFileName<>'#039#039' then'#013#010+
|
|
|
- ' ',' Log(vlDebug,SDbgSourceAlreadyResolved,[D.Value])'#013#010+
|
|
|
- ' else 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:=APAckage.Dictionary.ReplaceStrings(D.Value);'+
|
|
|
- #013#010+
|
|
|
- ' SD:='#039#039';'#013#010+
|
|
|
- ' // first check the target specific path'#013#010+
|
|
|
+ ',AOS);'#010+
|
|
|
+ ' LogSearchPath(APackage,'#039'package include'#039',APackage.IncludeP'+
|
|
|
+ 'ath,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+
|
|
|
+ ' Log(vlDebug,SDbgSourceAlreadyResolved,[D.Value])'#010+
|
|
|
+ ' else if (','ACPU in D.CPUs) and (AOS in D.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if ExtractFilePath(D.Value)='#039#039' then'#010+
|
|
|
+ ' begin'#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'#013#010+
|
|
|
- ' ',' FindFileInPath(APackage, APackage.IncludePath,'+
|
|
|
- 'SF,SD,ACPU,AOS);'#013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=IncludeTrailingPathDelimiter(SD);'#013#010+
|
|
|
- ' D.TargetFileName:=SD+SF;'#013#010+
|
|
|
- ' ','end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' D.TargetFileName:=D.Value;'#013#010+
|
|
|
- ' if FileExists(AddPathPrefix(APackage,D.TargetFileName)'+
|
|
|
- ') then'#013#010+
|
|
|
+ '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 File','Exists(AddPathPrefix(APackage,D.TargetFileNam'+
|
|
|
+ 'e)) then'#010+
|
|
|
' Log(vlDebug,SDbgResolvedIncludeFile,[D.Value,D.Targe'+
|
|
|
- 'tFileName])'#013#010+
|
|
|
- ' ',' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if WarnIfNotFound then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnIncludeFileNotFound,[D.Value,'+
|
|
|
- ' APackage.Name, MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' APackage.FAllFiles','Resolved:=false;'#013#010+
|
|
|
- ' D.TargetFileName:='#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+
|
|
|
- ' LogSearchPat','h(APackage,'#039'package example'#039',APackage.Exampl'+
|
|
|
- 'ePath,ACPU,AOS);'#013#010+
|
|
|
- ' SD:=APackage.Dictionary.ReplaceStrings(T.Directory);'#013#010+
|
|
|
- ' SF:=APackage.Dictionary.ReplaceStrings(T.SourceFileName);'#013#010+
|
|
|
- ' if SD='#039#039' then'#013#010+
|
|
|
- ' FindFileInPath(APackage, APackag','e.ExamplePath,SF,SD,ACPU,AOS);'+
|
|
|
- #013#010+
|
|
|
- ' if SD<>'#039#039' then'#013#010+
|
|
|
- ' SD:=IncludeTrailingPathDelimiter(SD);'#013#010+
|
|
|
- ' T.FTargetSourceFileName:=SD+SF;'#013#010+
|
|
|
+ 'tFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if WarnIfNotFound then'#010+
|
|
|
+ ' ',' Log(vlWarning,SWarnIncludeFileNotFound,[D.Valu'+
|
|
|
+ 'e, APackage.Name, MakeTargetString(ACPU,AOS)]);'#010+
|
|
|
+ ' APackage.FAllFilesResolved:=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(APackage,'#039'package example'#039',APackage.ExampleP'+
|
|
|
+ 'ath,ACPU,AOS);'#010+
|
|
|
+ ' SD:=APackage.Dictionary.ReplaceStrings(T.Director','y);'#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.FTargetSourceFileN','ame:=SD+SF;'#010+
|
|
|
' if FileExists(AddPathPrefix(APackage,T.TargetSourceFileName)) then'+
|
|
|
- #013#010+
|
|
|
- ' Log(vlDebug,SDbgResolvedSour','ceFile,[T.SourceFileName,T.TargetS'+
|
|
|
- 'ourceFileName])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if WarnIfNotFound then'#013#010+
|
|
|
- ' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName, APa'+
|
|
|
- 'ckage.Name, MakeTargetString(ACPU,AOS)]);'#013#010+
|
|
|
- ' T.FTargetSour','ceFileName:='#039#039';'#013#010+
|
|
|
- ' APackage.FAllFilesResolved:=false;'#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)) then'#013#010+
|
|
|
- ' exit;'#013#010+
|
|
|
- ' if APackage.FAllFilesResolved the','n'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' APackage.FAllFilesResolved:=true;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' if DoChangeDir and (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' GPathPrefix := APackage.Directory;'#013#010+
|
|
|
- ' APackage.Dictionary.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#013+
|
|
|
- #010+
|
|
|
- ' APackage.Dictionary','.AddVariable('#039'OS'#039',OSToString(AOS));'#013+
|
|
|
- #010+
|
|
|
- ' For I:=0 to APackage.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 informa','tion'#013#010+
|
|
|
+ #010+
|
|
|
+ ' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.TargetSou'+
|
|
|
+ 'rceFileName])'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if WarnIfNotFound then'#010+
|
|
|
+ ' Log(vlWarni','ng,SWarnSourceFileNotFound,[T.SourceFileName, A'+
|
|
|
+ 'Package.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.FAllFilesResolved:=true;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' if DoChangeDir and (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := APackage.Di','rectory;'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#010+
|
|
|
+ ' APackage.Dictionary.AddVariable('#039'OS'#039',OSToString(AOS));'#010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.FTargets.TargetItems[I];'#010+
|
|
|
+ ' i','f (ACPU in T.CPUs) and (AOS in T.OSes) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Debug information'#010+
|
|
|
' Log(vlDebug,SDbgResolvingSourcesOfTarget,[T.Name,MakeTarge'+
|
|
|
- 'tString(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+
|
|
|
- ' if T.FTargetSourceFileName<>'#039#039' then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name])'#013+
|
|
|
- #010+
|
|
|
- ' else'#013#010+
|
|
|
- ' FindMainSource(T);'#013#010+
|
|
|
- ' if T.Depende','ncies.Count>0 then'#013#010+
|
|
|
- ' FindIncludeSources(T);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' ttExampleUnit,'#013#010+
|
|
|
- ' ttExampleProgram :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if T.FTargetSourceFileName<>'#039#039' then'#013#010+
|
|
|
- ' ',' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name])'#013+
|
|
|
- #010+
|
|
|
- ' else'#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 Do','ChangeDir and (APackage.Directory<>'#039#039') then'#013#010+
|
|
|
- ' GPathPrefix := '#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.GetUnitDir(APackage:TPackage):String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if APackage.UnitDir='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Retrieve Full directory name whe','re 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+
|
|
|
+ 'tString(ACPU,AOS)]);'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ #010+
|
|
|
+ ' case T.TargetType of',#010+
|
|
|
+ ' ttProgram,'#010+
|
|
|
+ ' ttUnit,'#010+
|
|
|
+ ' ttImplicitUnit :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if T.FTargetSourceFileName<>'#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+
|
|
|
+ ' begi','n'#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+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.ResolvePackagePaths(APackage:TPackage);'#010+
|
|
|
+ #010+
|
|
|
+ ' procedure ResolveUnitConfigFilena','meForBasePath(ABasePath: string);'+
|
|
|
+ #010+
|
|
|
+ ' var'#010+
|
|
|
+ ' IsPackageSourceLocation: boolean;'#010+
|
|
|
+ ' ASubDir: string;'#010+
|
|
|
+ ' AnUnitConfigFilename: string;'#010+
|
|
|
+ ' PackageBaseDir: string;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if APackage.State=tsNotFound then'#010+
|
|
|
+ ' // When the state is tsNotF','ound, the package is not part of th'+
|
|
|
+ 'is fpmake, and only the package-name is known.'#010+
|
|
|
+ ' // In this case search for the package-name.'#010+
|
|
|
+ ' // This is not right for packages where the package-name and dir'+
|
|
|
+ 'ectory name of the source-files are'#010+
|
|
|
+ ' ',' // not the same. We don'#039't have a better option, though.'#010+
|
|
|
+ ' ASubDir:=APackage.Name'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ASubDir:=APackage.Directory;'#010+
|
|
|
+ #010+
|
|
|
+ ' IsPackageSourceLocation:=FileExists(IncludeTrailingPathDelimiter(I'+
|
|
|
+ 'ncludeTrailingPathDelimiter(ABasePa','th)+ASubDir)+FPMakePPFile);'#010+
|
|
|
+ ' if IsPackageSourceLocation then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageBaseDir:=IncludeTrailingPathDelimiter(IncludeTrailingPa'+
|
|
|
+ 'thDelimiter(ABasePath)+ASubDir);'#010+
|
|
|
+ ' AnUnitConfigFileName:=PackageBaseDir+APackage.GetUnit','ConfigO'+
|
|
|
+ 'utputFilename(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' PackageBaseDir:=IncludeTrailingPathDelimiter(PackageBaseDir+AP'+
|
|
|
+ 'ackage.GetUnitsOutputDir(defaults.CPU, Defaults.OS));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' PackageBaseDir:=IncludeTraili','ngPathDelimiter(IncludeTrailing'+
|
|
|
+ 'PathDelimiter(ABasePath));'#010+
|
|
|
+ ' AnUnitConfigFileName:=IncludeTrailingPathDelimiter(GetUnitConf'+
|
|
|
+ 'igFilesInstallDir(ABasePath))+APackage.Name+FpmkExt;'#010+
|
|
|
+ ' PackageBaseDir:=IncludeTrailingPathDelimiter(Includ','eTrailing'+
|
|
|
+ 'PathDelimiter(ABasePath)+APackage.GetUnitsOutputDir(Defaults.CPU, Defa'+
|
|
|
+ 'ults.OS))+APackage.Name;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if (PackageBaseDir<>'#039#039') and SysDirectoryExists(PackageBaseDi'+
|
|
|
+ 'r) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.UnitDir:=PackageBaseDir',';'#010+
|
|
|
+ ' if IsPackageSourceLocation then'#010+
|
|
|
+ ' // Set the state to tsNoCompile and not tsCompiled. Because '+
|
|
|
+ 'packages'#010+
|
|
|
+ ' // in the tsCompiled state trigger a rebuild of packages tha'+
|
|
|
+ 't depend'#010+
|
|
|
+ ' // on it.'#010+
|
|
|
+ ' APackage.F','TargetState:=tsNoCompile'#010+
|
|
|
+ ' else if not (APackage.FTargetState in [tsCompiled, tsNoCompile'+
|
|
|
+ ']) then'#010+
|
|
|
+ ' APackage.FTargetState:=tsInstalled;'#010+
|
|
|
+ ' AnUnitConfigFilename:=APackage.Dictionary.ReplaceStrings(AnUni'+
|
|
|
+ 'tConfigFilename);'#010+
|
|
|
+ ' ',' if FileExists(AnUnitConfigFilename) then'#010+
|
|
|
+ ' APackage.UnitConfigFileName:=AnUnitConfigFilename;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #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+
|
|
|
- ' ',' APackage.UnitDir:=IncludeTrailingPathDelimiter(FStartDir)+'+
|
|
|
- 'IncludeTrailingPathDelimiter(APackage.Directory)+APackage.GetUnitsOutp'+
|
|
|
- 'utDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if (APackage.UnitDir='#039#039') and'#013#010+
|
|
|
- ' (Defaults.Loca','lUnitDir<>'#039#039') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.UnitDir:=IncludeTrailingPathDelimiter(Defaults.Loca'+
|
|
|
- 'lUnitDir)+APackage.Name+PathDelim+APackage.GetPackageUnitInstallDir(de'+
|
|
|
- 'faults.CPU, Defaults.OS);'#013#010+
|
|
|
- ' if not SysDirectoryExists(AP','ackage.UnitDir) then'#013#010+
|
|
|
- ' APackage.UnitDir:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if APackage.UnitDir='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.UnitDir:=IncludeTrailingPathDelimiter(Defaults.Glob'+
|
|
|
- 'alUnitDir)+APackage.Name+PathDelim+APackage.GetPa','ckageUnitInstallDir'+
|
|
|
- '(defaults.CPU, Defaults.OS);'#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(IncludeTrailingPathDelimiter(APackage.UnitDi'+
|
|
|
- 'r)+FPMakePPFile) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // The package is not installed, but the source-path is '+
|
|
|
- 'detected.'#013#010+
|
|
|
- ' // It is an external package so it is imposs','ible to co'+
|
|
|
- 'mpile 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+
|
|
|
- ' // I','f 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:=tsNo','Compile;'#013#010+
|
|
|
- ' end'#013#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 searches 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+
|
|
|
- 'procedure TBuildEngine.AddDependencyPaths(L: TStrings; DependencyType:'+
|
|
|
- ' TDependencyType; A','Target: 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+
|
|
|
- ' (Defaul','ts.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'en'#010+
|
|
|
+ ' ResolveUnitConfigFilenameForBasePath(FStartDi','r);'#010+
|
|
|
+ ' if (APackage.UnitDir='#039#039') and'#010+
|
|
|
+ ' (Defaults.LocalUnitDir<>'#039#039') then'#010+
|
|
|
+ ' ResolveUnitConfigFilenameForBasePath(Defaults.LocalUnitDir);'#010+
|
|
|
+ ' if (APackage.UnitDir='#039#039') and'#010+
|
|
|
+ ' (Defaults.GlobalUnitDir<>'#039#039') then'#010+
|
|
|
+ ' Reso','lveUnitConfigFilenameForBasePath(Defaults.GlobalUnitDir)'+
|
|
|
+ ';'#010+
|
|
|
+ #010+
|
|
|
+ ' if (APackage.UnitDir='#039#039') then'#010+
|
|
|
+ ' APackage.UnitDir:=DirNotFound;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.GetUnitDir(APackage:TPackage):String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ResolvePackagePaths(AP','ackage);'#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);'#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:=ATarget.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.AddDependencyUnitPaths(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.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+
|
|
|
- ' // 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+
|
|
|
+ '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: T'+
|
|
|
+ 'Package);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' S : String;'#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+
|
|
|
+ ' // 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+
|
|
|
+ ' en','d;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TBuildEngine.AddPathPrefix(APackage: TPackage; APath: string)'+
|
|
|
- ': string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if IsRelativePath(APath) and (GPathPrefix<>'#039#039') then'#013#010+
|
|
|
- ' result := Inclu','deTrailingPathDelimiter(GPathPrefix) + APath'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' result := APath;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ': string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if IsRelativePath(APath) and (GPathPrefix<>'#039#039') then'#010+
|
|
|
+ ' result := IncludeTrailingPathDelimiter(GPathPref','ix) + 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+
|
|
|
- ' Ar','gs : TStringList;'#013#010+
|
|
|
- ' s : string;'#013#010+
|
|
|
- ' ErrS: 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:=dupIgnor','e;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Result := '#039#039';'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //compiler configuration'#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+
|
|
|
- ' // Target CPU.'#013#010+
|
|
|
- ' // This setting is only applicable when '#039'fpc'#039' is used ','as c'+
|
|
|
- 'ompiler-executable.'#013#010+
|
|
|
- ' if ExtractFileName(GetCompiler) = '#039'fpc'#039' then'#013#010+
|
|
|
- ' Args.Add('#039'-P'#039'+CPUToString(Defaults.CPU));'#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.Mo','de<>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+
|
|
|
+ ': TTarget; Env: TStrings) : String;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TUnsortedDuplicatesStringList;'#010+
|
|
|
+ ' Args : TStringList;'#010+
|
|
|
+ ' s : string;'#010+
|
|
|
+ ' ErrS: st','ring;'#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.Duplicates:=dupIgnore;'#010+
|
|
|
+ #010+
|
|
|
+ ' Result := '#039#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' //compiler configuration'#010+
|
|
|
+ ' i','f 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 as com'+
|
|
|
+ 'piler-executable.'#010+
|
|
|
+ ' if ExtractFileName(GetCompiler) = '#039'fp','c'#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<>cmFPC then'#010+
|
|
|
+ ' Args.Add('#039'-M'#039'+ModeToString(Defaults.Mode));'#010+
|
|
|
+ ' // Ou','tput file paths'#010+
|
|
|
+ ' If ATarget.TargetType in ProgramTargets then'#010+
|
|
|
' Args.Add('#039'-FE'#039'+AddPathPrefix(APackage,APackage.GetBinOutpu'+
|
|
|
- 'tDir(Defaults.CPU,Defaults.OS)));'#013#010+
|
|
|
- ' Args','.Add('#039'-FU'#039'+AddPathPrefix(APackage,APackage.GetUnitsOut'+
|
|
|
- 'putDir(Defaults.CPU,Defaults.OS)));'#013#010+
|
|
|
- ' // Object Path'#013#010+
|
|
|
- ' L:=TUnsortedDuplicatesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' AddConditionalStrings(APackage, L,APackage.ObjectPath,Def','aults.CPU'+
|
|
|
- ',Defaults.OS);'#013#010+
|
|
|
- ' AddConditionalStrings(APackage, L,ATarget.ObjectPath,Defaults.CPU,De'+
|
|
|
- 'faults.OS);'#013#010+
|
|
|
- ' for i:=0 to L.Count-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fo'#039'+AddPathPrefix(APackage,L[i]));'#013#010+
|
|
|
- ' FreeAndNil(L);'#013#010+
|
|
|
- ' // Unit Dirs'#013#010+
|
|
|
- ' L:=TUnsortedDupli','catesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgnore;'#013#010+
|
|
|
- ' AddDependencyUnitPaths(L,APackage);'#013#010+
|
|
|
- ' AddDependencyPaths(L,depUnit,ATarget);'#013#010+
|
|
|
+ 'tDir(Defaults.CPU,Defaults.OS)));'#010+
|
|
|
+ ' Args.Add('#039'-FU'#039'+AddPathPrefix(APackage,APackage.GetUnitsOutpu'+
|
|
|
+ 'tDir(Defaults.CPU,D','efaults.OS)));'#010+
|
|
|
+ ' // Object Path'#010+
|
|
|
+ ' L:=TUnsortedDuplicatesStringList.Create;'#010+
|
|
|
+ ' L.Duplicates:=dupIgnore;'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,APackage.ObjectPath,Defaults.CPU,D'+
|
|
|
+ 'efaults.OS);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,ATarget.ObjectPath,','Defaults.CPU,'+
|
|
|
+ 'Defaults.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,APackag','e);'#010+
|
|
|
+ ' AddDependencyPaths(L,depUnit,ATarget);'#010+
|
|
|
' AddConditionalStrings(APackage, L,APackage.UnitPath,Defaults.CPU,Def'+
|
|
|
- 'aults.OS);'#013#010+
|
|
|
- ' AddConditionalStrings(','APackage, L,ATarget.UnitPath,Defaults.CPU,De'+
|
|
|
- 'faults.OS);'#013#010+
|
|
|
- ' for i:=0 to L.Count-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fu'#039'+AddPathPrefix(APackage,L[i]));'#013#010+
|
|
|
- ' FreeAndNil(L);'#013#010+
|
|
|
- ' // Include Path'#013#010+
|
|
|
- ' L:=TUnsortedDuplicatesStringList.Create;'#013#010+
|
|
|
- ' L.Duplicates:=dupIgno','re;'#013#010+
|
|
|
- ' AddDependencyPaths(L,depInclude,ATarget);'#013#010+
|
|
|
- ' AddConditionalStrings(APackage, L,APackage.IncludePath,Defaults.CPU,'+
|
|
|
- 'Defaults.OS);'#013#010+
|
|
|
+ 'aults.OS);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,ATarget.UnitPath,Defaults.CPU,Defa'+
|
|
|
+ 'ults.OS);'#010+
|
|
|
+ ' for i:=0 to L.Count-1 do'#010+
|
|
|
+ ' Arg','s.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,depInclude,ATarget);'#010+
|
|
|
+ ' AddConditionalStrings(APackage, L,APackage.Inc','ludePath,Defaults.CP'+
|
|
|
+ 'U,Defaults.OS);'#010+
|
|
|
' AddConditionalStrings(APackage, L,ATarget.IncludePath,Defaults.CPU,D'+
|
|
|
- 'efaults.OS);'#013#010+
|
|
|
- ' for i:=0 to L.Count','-1 do'#013#010+
|
|
|
- ' Args.Add('#039'-Fi'#039'+AddPathPrefix(APackage,L[i]));'#013#010+
|
|
|
- ' FreeAndNil(L);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // libc-linker path'#013#010+
|
|
|
- ' if APackage.NeedLibC then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if FCachedlibcPath='#039#039' then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' s:=GetDefaultLibGCCDir(Defaults.CPU, Defaults.OS',',ErrS);'#013#010+
|
|
|
- ' if s='#039#039' then'#013#010+
|
|
|
- ' Log(vlWarning, SWarngcclibpath +'#039' '#039'+ErrS)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' EnterCriticalsection(FGeneralCriticalSection);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' FCached','libcPath:=s;'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' LeaveCriticalsection(FGeneralCriticalSection);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Args.Add('#039'-Fl'#039'+FCachedlibcPath);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Custom ','Options'#013#010+
|
|
|
- ' If (Defaults.HaveOptions) then'#013#010+
|
|
|
- ' Args.AddStrings(Defaults.Options);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' APackage.ApplyPackageVariantToCompilerOptions(Args);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' If (APackage.HaveOptions) then'#013#010+
|
|
|
- ' Args.AddStrings(APackage.Options);'#013#010+
|
|
|
- ' If (ATarget.HaveOptio','ns) 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+
|
|
|
- ' // ','Make sure that this process'#039' environment variables are '+
|
|
|
- 'passed 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+
|
|
|
+ '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+
|
|
|
+ #010+
|
|
|
+ ' // libc-linker path'#010+
|
|
|
+ ' if',' APackage.NeedLibC then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if FCachedlibcPath='#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' s:=GetDefaultLibGCCDir(Defaults.CPU, Defaults.OS,ErrS);'#010+
|
|
|
+ ' if s='#039#039' then'#010+
|
|
|
+ ' Log(vlWarning, SWarngcclibpath +'#039' '#039'+ErrS)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ '{$ifnde','f NO_THREADING}'#010+
|
|
|
+ ' EnterCriticalsection(FGeneralCriticalSection);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' FCachedlibcPath:=s;'#010+
|
|
|
+ '{$ifndef NO_THREADING}'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' LeaveCriticalsection(FGeneralCriticalSection);'#010+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' Args.Add('#039'-Fl'#039'+FCachedlibcPath);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Custom Options'#010+
|
|
|
+ ' If (Defaults.HaveOptions) then'#010+
|
|
|
+ ' Args.AddStrings(Defaults.Options);'#010+
|
|
|
+ #010+
|
|
|
+ ' APackage.ApplyPackageVariantToCompilerOptions(A','rgs);'#010+
|
|
|
+ #010+
|
|
|
+ ' If (APackage.HaveOptions) then'#010+
|
|
|
+ ' Args.AddStrings(APackage.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 V','erbose then'#010+
|
|
|
+ ' args.Add('#039'-viq'#039');'#010+
|
|
|
+ ' {$endif}'#010+
|
|
|
+ #010+
|
|
|
+ ' // Convert to string'#010+
|
|
|
+ ' Result:='#039#039';'#010+
|
|
|
+ ' for i:=0 to Args.Count-1 do'#010+
|
|
|
+ ' Result:=Result+'#039' '#039'+maybequoted(APackage.Dictionary.Replace'+
|
|
|
+ 'Strings(Args[i]));'#010+
|
|
|
+ ' Delete(result,1,1);'#010+
|
|
|
+ #010+
|
|
|
+ ' if Defaults.UseEnviro','nment and assigned(Env) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' env.Values['#039'FPCEXTCMD'#039'] := Result;'#010+
|
|
|
+ ' result := '#039'!FPCEXTCMD'#039';'#010+
|
|
|
+ ' // Make sure that this process'#039' environment variables are pa'+
|
|
|
+ '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 Filename to compile'#010+
|
|
|
' result := result + '#039' '#039' + AddPathPrefix(APackage,ATarget.Targ'+
|
|
|
- 'etSourceFileName);'#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') th','en'#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+
|
|
|
+ 'etSourceFileName);'#010+
|
|
|
+ #010+
|
|
|
+ ' Args.Free;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TBuildEngine.Ge','tCompiler : 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,SysUtil','s.GetEnvironmentVariable('#039'PA'+
|
|
|
+ 'TH'#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 u','nits directory'#010+
|
|
|
' D:=AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,De'+
|
|
|
- 'fault','s.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+
|
|
|
+ 'faults.OS));'#010+
|
|
|
+ ' If not SysDirectoryExists(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 APackage.Targets.TargetItems[i].TargetType in (ProgramTargets'+
|
|
|
- '-[ttExampleProgram]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=AddPathPrefix(APackage,APackage.GetBinOutputDir(Defaults.'+
|
|
|
- 'CPU,Defaults.OS));'#013#010+
|
|
|
- ' If not SysDirect','oryExists(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+
|
|
|
- ' e','nd;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '-[ttExampleProgram]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=AddPathPrefix(APackage,AP','ackage.GetBinOutputDir(Default'+
|
|
|
+ 's.CPU,Defaults.OS));'#010+
|
|
|
+ ' If not SysDirectoryExists(D) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#010+
|
|
|
+ ' CmdCreateDir(D);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' //do not contin','ue loop, directory is made anyway'#010+
|
|
|
+ ' break;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuildEngine.DependencyOK(ADependency : TDependency) : Boolea'+
|
|
|
- 'n;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'n;'#010+
|
|
|
+ 'begin'#010+
|
|
|
' Result:=(Defaults.CPU in ADependency.CPUs) and (Defaults.OS in ADepe'+
|
|
|
- 'ndency.OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.TargetOK(ATarget: TTarget; AC','PU: TCPU; AOS: TO'+
|
|
|
- 'S): Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if Defaults.SkipCrossPrograms and'#013#010+
|
|
|
- ' (ATarget.TargetType in ProgramTargets) and'#013#010+
|
|
|
- ' IsDifferentFromBuild(ACPU, AOS) then'#013#010+
|
|
|
- ' result := False'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:=(ACPU in ATarget.CPUs) and (AOS ','in ATarget.OSes);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'ndency.OSes',');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.TargetOK(ATarget: TTarget; ACPU: TCPU; AOS: TOS)'+
|
|
|
+ ': Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if Defaults.SkipCrossPrograms and'#010+
|
|
|
+ ' (ATarget.TargetType in ProgramTargets) and'#010+
|
|
|
+ ' IsDifferentFromBuild(ACPU, AOS) then'#010+
|
|
|
+ ' result := Fals','e'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=(ACPU in ATarget.CPUs) and (AOS in ATarget.OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TBuildEngine.TargetInstallOK(ATarget: TTarget; ACPU: TCPU; AO'+
|
|
|
- 'S: TOS): Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := TargetOK(ATarget, ACPU, AOS) and ATarget.Install;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'Function TBuildEngine.PackageOK(APackage : T','Package) : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'S: 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.CPUs) and (Defaults.OS in APackage'+
|
|
|
- '.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(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.BeforeCompileProc) then'#013#010+
|
|
|
- ' APackage.BeforeCompileProc(APackage);'#013#010+
|
|
|
- ' // It could be that files that weren'#039't found before are availabl',
|
|
|
- 'e now.'#013#010+
|
|
|
- ' ResolveFileNames(APackage,Defaults.CPU,Defaults.OS,false,true);'#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.AfterCompile(APackage);'#013#010+
|
|
|
- ' If As','signed(APackage.AfterCompileProc) then'#013#010+
|
|
|
- ' APackage.AfterCompileProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterCompile);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '.OSes);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.DoBeforeCompile(APackage: TPackage);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ExecuteCommands(A','Package.Commands,caBeforeCompile);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeCompile) then'#010+
|
|
|
+ ' APackage.BeforeCompile(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.BeforeCompileProc) then'#010+
|
|
|
+ ' APackage.BeforeCompileProc(APackage);'#010+
|
|
|
+ ' // It could be that files that we','ren'#039't found before are availa'+
|
|
|
+ 'ble 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.AfterComp','ile(APackage);'#010+
|
|
|
+ ' If Assigned(APackage.AfterCompileProc) then'#010+
|
|
|
+ ' APackage.AfterCompileProc(APackage);'#010+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caAfterCompile);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuildEngine.NeedsCompile(APackage:TPackage;ATarget: TTarget)'+
|
|
|
- ': Boolean;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : I','nteger;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' OD,OFN,TFN : String;'#013#010+
|
|
|
- ' CompileReason: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Forced recompile?'#013#010+
|
|
|
- ' if FForceCompile then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=true;'#013#010+
|
|
|
- ' CompileReason:=SDbgForcedCompile;'#013#010,
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // For now examples are not compiled at all'#013#010+
|
|
|
- ' if ATarget.TargetType in [ttExampleUnit, ttExampleProgram] then'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- #013#010+
|
|
|
+ ': Boolea','n;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ ' T : TTarget;'#010+
|
|
|
+ ' OD,OFN,TFN : String;'#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+
|
|
|
+ ' // For now examples are not compiled at all'#010+
|
|
|
+ ' if ATarget.TargetType in [ttExampleUnit, ttExampleProgram] then'#010+
|
|
|
+ ' Exit;'#010+
|
|
|
+ #010+
|
|
|
' // Files which should not be compiled on this target can not trigger'+
|
|
|
- ' a compile.'#013#010+
|
|
|
- ' if not TargetOK(','ATarget, Defaults.CPU, Defaults.OS) then'#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check output file'#013#010+
|
|
|
- ' if not result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if ATarget.TargetType in ProgramTargets then'#013#010+
|
|
|
- ' OD:=APackage.GetBinOutputDir(Defaults.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+
|
|
|
+ ' a compile.'#010+
|
|
|
+ ' if not TargetOK(ATarge','t, 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:=APa','ckage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' If (OD<>'#039#039') then'#010+
|
|
|
+ ' OD:=IncludeTrailingPathDelimiter(OD);'#010+
|
|
|
' OFN:=AddPathPrefix(APackage, OD+ATarget.GetOutPutFileName(Defaul'+
|
|
|
- 'ts.OS));'#013#010+
|
|
|
- ' Result:=Not File','Exists(OFN);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' CompileReason:=SDbgOutputDoesNotExist;'#013#010+
|
|
|
- ' Log(vlDebug,SDbgOutputNotYetAvailable,[OFN]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check main source'#013#010+
|
|
|
- ' If not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' TFN := AddPathPrefix(APackage,ATarget.TargetSourceFileName);'#013+
|
|
|
- #010+
|
|
|
- ' if FileExists(TFN) then'#013#010+
|
|
|
- ' Result:=FileNewer(TFN,OFN);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' CompileReason:=SDbgNewerSource;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' // Check unit and include depe','ndencies'#013#010+
|
|
|
- ' If not Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'ts.OS));'#010+
|
|
|
+ ' Result:=Not FileExists(OFN);'#010+
|
|
|
+ ' ','if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' CompileReason:=SDbgOutputDoesNotExist;'#010+
|
|
|
+ ' Log(vlDebug,SDbgOutputNotYetAvailable,[OFN]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' // Check main source, only if the TargetSourceFileName is found'#010+
|
|
|
+ ' If not Result and (','ATarget.TargetSourceFileName<>'#039#039') 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:=SDbgNewerSourc','e;'#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+
|
|
|
+ 'e, APackage.Name]);'#010+
|
|
|
' // If a dependent package is compiled we always ne'+
|
|
|
- 'ed to recompile'#013#010+
|
|
|
- ' Log(vldebug, SDbg','DependencyOnUnit, [ATarget.Name'+
|
|
|
- ',T.Name]);'#013#010+
|
|
|
- ' Result:=(T.State=tsCompiled);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Log(vldebug, SDbgDependencyUnitRecompiled, [T.Na'+
|
|
|
- 'me]);'#013#010+
|
|
|
- ' ',' CompileReason:=Format(SDbgDependencyRecompiled'+
|
|
|
- ',[T.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' depInclude :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if D.TargetFileName<>'#039#039' then'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
+ 'ed to recompile'#010+
|
|
|
+ ' ',' Log(vldebug, SDbgDependencyOnUnit, [ATarget.Name'+
|
|
|
+ ',T.Name]);'#010+
|
|
|
+ ' Result:=(T.State=tsCompiled);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Log(vldebug, SDbgDependencyUnitReco','mpiled, [T.'+
|
|
|
+ 'Name]);'#010+
|
|
|
+ ' CompileReason:=Format(SDbgDependencyRecompiled,['+
|
|
|
+ 'T.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' depInclude :'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if D.TargetFileNam','e<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' TFN:=AddPathPrefix(APackage,D.TargetFileName);'+
|
|
|
- #013#010+
|
|
|
- ' Result:=FileNewer(TFN,OFN);'#013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' CompileReason:=Format(SDbg','NewerInclude,[D.'+
|
|
|
- 'TargetFileName]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' depPackage :'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ #010+
|
|
|
+ ' Result:=FileNewer(TFN,OFN);'#010+
|
|
|
+ ' if result then'#010+
|
|
|
+ ' CompileReason',':=Format(SDbgNewerInclude,[D.'+
|
|
|
+ 'TargetFileName]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' depPackage :'#010+
|
|
|
+ ' begin'#010+
|
|
|
' log(vlWarning,SWarnTargetDependsOnPackage,[ATarget'+
|
|
|
- '.Name, APackage.Name, d.Valu','e]);'#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, CompileReason]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013,#010+
|
|
|
- 'procedure TBuildEngine.Compile(APackage: TPackage; ATarget: TTarget);'#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.BeforeCompile(ATarget);'#013#010+
|
|
|
- #013#010+
|
|
|
+ '.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,SDbgMustCompile,[ATarget.Name, CompileReason]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'proce','dure 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(ATarget.Commands,caBeforeCompile);'#010+
|
|
|
+ ' If Assigned(AT','arget.BeforeCompile) then'#010+
|
|
|
+ ' ATarget.BeforeCompile(ATarget);'#010+
|
|
|
+ #010+
|
|
|
' if (APackage.BuildMode=bmBuildUnit) and not (ATarget.TargetType in ['+
|
|
|
- 'ttProgram,ttExampleProgram]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FBUTarget.Dependencies.AddUni','t(ATarget.Name).FTargetF'+
|
|
|
- 'ileName:=ATarget.TargetSourceFileName;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if Defaults.UseEnvironment then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Env := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' S:=GetCompilerCommand(APackag','e,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+
|
|
|
- ' ExecuteComm','and(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; ATarge'+
|
|
|
- 't: TTarget);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' T : TTarget;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
+ 'ttProgram,ttExampleProgram]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.FBUTarget.Dependencies.AddUnit(ATarget.Name).FTa','rgetF'+
|
|
|
+ 'ileName:=ATarget.TargetSourceFileName;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if Defaults.UseEnvironment then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Env := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' S:=GetCompilerCommand(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 TBuildEngine.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'+
|
|
|
- ']));'#013#010+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- ' For I:=0 to ATarget.Depe','ndencies.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=ATarget.Dependencies[i];'#013#010+
|
|
|
- ' if (D.DependencyType=depPackage) then'#013#010+
|
|
|
+ ']));'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' For I:=0 to ATarget.Dependencies.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=ATarget.Depende','ncies[i];'#010+
|
|
|
+ ' if (D.DependencyType=depPackage) then'#010+
|
|
|
' log(vlWarning,SWarnTargetDependsOnPackage,[ATarget.Name, APack'+
|
|
|
- 'age.Name, d.Value])'#013#010+
|
|
|
- ' else if (D.DependencyType=depUn','it) 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, Defaults.CPU, Defau','lts.OS) then'#013#010+
|
|
|
- ' begin'#013#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+
|
|
|
- ' Log(vlWarning,SWarnCircularTargetD','ependenc'+
|
|
|
- 'y,[ATarget.Name,T.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ '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, th'+
|
|
|
+ 'ey 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]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ',' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
' Log(vlWarning, Format(SWarnDepUnitNotFound, [T.Name, M'+
|
|
|
- 'akeTargetString(Defaults.CPU,Defaults.OS',')]));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Error(SErrDepUnknownTarget,[D.Value, ATarget.Name, APackag'+
|
|
|
- 'e.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.MaybeCompile(APackage: TPackage; ATarget: TTar',
|
|
|
- 'get);'#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+
|
|
|
- ' ResolveDependencies(ATarg','et.Dependencies,ATarget.Collection as TTa'+
|
|
|
- 'rgets);'#013#010+
|
|
|
- ' CompileDependencies(APackage, ATarget);'#013#010+
|
|
|
- ' if NeedsCompile(APackage, ATarget) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Compile(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+
|
|
|
- ' CompileReason: string;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=False;'#013#010,
|
|
|
- #013#010+
|
|
|
- ' // Forced recompile?'#013#010+
|
|
|
- ' if FForceCompile then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=true;'#013#010+
|
|
|
- ' CompileReason:=SDbgForcedCompile;'#013#010+
|
|
|
- ' end;'#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+
|
|
|
+ 'akeTargetString(Defaults.CPU,Defaults.OS)]));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Error(SErrDepUnknownTarget,[D.V','alue, ATarget.Name, APack'+
|
|
|
+ 'age.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.MaybeCompile(APackage: TPackage; ATarget: TTarg'+
|
|
|
+ 'et);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if ATarget.State<>tsNeutral 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);'#010+
|
|
|
+ ' CompileDependencies(APackage, ATarget);'#010+
|
|
|
+ ' if N','eedsCompile(APackage, ATarget) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Compile(APackage,ATarget);'#010+
|
|
|
+ ' ATarget.FTargetState:=tsCompiled;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ATarget.FTargetState:=tsNoCompile;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#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.Dependencies[i];'#010+
|
|
|
+ ' if (D.DependencyType=dep','Package) 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+
|
|
|
- ' begin'#013#010+
|
|
|
- ' break;'#013,#010+
|
|
|
+ 'n'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=TPackage(D.Target);'#010+
|
|
|
+ ' if Assigned(P) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=(P.State=tsCo','mpiled);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' break;'#010+
|
|
|
' CompileReason:=Format(SDbgPackageDepRecompiled,[P'+
|
|
|
- '.Name]);'#013#010+
|
|
|
- ' end;'#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+
|
|
|
- ' GPathPrefix := APackage.Directory;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' for i:=0 to APackage.Targets.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=NeedsCompile(APackage,APackage.Targets.TargetItems'+
|
|
|
- '[i]);'#013#010+
|
|
|
- ' if Result then'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
- ' break;'#013#010+
|
|
|
+ '.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' en','d;'#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.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Result:=NeedsC','ompile(APackage,APackage.Targets.TargetIte'+
|
|
|
+ 'ms[i]);'#010+
|
|
|
+ ' if Result then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' break;'#010+
|
|
|
' CompileReason:=Format(SDbgTargetHasToBeCompiled,[APackag'+
|
|
|
- 'e.Targets.TargetItems[i].Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Finally'#013#010+
|
|
|
- ' GPathPrefix := '#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' en','d;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if result then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgMustCompile,[APackage.Name, CompileReason]);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '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.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.AddPa','ckage(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+
|
|
|
- ' result.SetDefaultPackageVariant;'#013#010,
|
|
|
+ '; Er','rorOnFailure: boolean):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.PackageItems[I];'#010+
|
|
|
+ ' exi','t;'#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, SDbgExternalDep','endency, [APackageName,S]);'#010+
|
|
|
+ ' // Load unit config if it exists'#010+
|
|
|
+ ' F:=result.UnitConfigFileName;'#010+
|
|
|
+ ' if (F<>'#039#039') 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);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Check recursive implicit dependencies'#013#010+
|
|
|
- ' CompileDependencies(Result);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Error(SErrDependenc','yNotFound,[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:=APac','kage.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+
|
|
|
- ' ',' if (Defaults.CPU in P.CPUs) and (Defaults.OS in P.OSes'+
|
|
|
- ') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' case P.State of'#013#010+
|
|
|
- ' tsNeutral :'#013#010+
|
|
|
- ' MaybeCompile(P);'#013#010+
|
|
|
- ' tsConsidering :'#013#010+
|
|
|
- ' ',' Log(vlWarning,SWarnCircularPackageDependency,['+
|
|
|
- 'APackage.Name,P.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APack'+
|
|
|
- 'age.Name, D.Va','lue, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#013+
|
|
|
- #010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D.Target:=CheckExternalPackage(D.Value);'#013#010+
|
|
|
- ' P:=TPackage(D.Target);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if (D.Require','Checksum<>$ffffffff) and'#013#010+
|
|
|
- ' (P.InstalledChecksum<>$ffffffff) and'#013#010+
|
|
|
- ' (P.InstalledChecksum<>D.RequireChecksum) then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgPackageChecksumChanged,[P.Name]);'#013#010+
|
|
|
- ' APackage.InheritPackageVariant','sFromDependency(P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TBuildEngine.CheckDependencies(APackage: TPackage): TCheckDep'+
|
|
|
- 'endencyResult;'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- ' D : TDependency;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := cdAvailable;'#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.Targ','et);'#013#010+
|
|
|
- ' If Assigned(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ 'ir(Defaults.CPU, Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Check recursive implicit dependencies'#010+
|
|
|
+ ' CompileDependencies(Result);'#010+
|
|
|
+ ' end'#010,
|
|
|
+ ' else if ErrorOnFailure then'#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.Depend','encies.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 Assigne','d(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.State of'#013#010+
|
|
|
- ' tsNeutral :'#013#010+
|
|
|
- ' ',' result := cdNotYetAvailable;'#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+
|
|
|
- ' ',' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APa'+
|
|
|
- 'ckage.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#013+
|
|
|
- #010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D.Target:=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.RequireChecksum) then'#013#010+
|
|
|
- ' Log(vlDebug,SDbgP','ackageChecksumChanged,[P.Name]);'#013#010+
|
|
|
- ' APackage.InheritPackageVariantsFromDependency(P);'#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+
|
|
|
- ' cmd','Opts: 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+
|
|
|
+ 'ackage.Name,P.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Log(vlWarning,SWarnDependOnOtherPlatformPack','age,[APa'+
|
|
|
+ 'ckage.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D.Target:=CheckExternalPackage(D.Value, true);'#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,SDbgPackageChecksumChanged,[P.Name]);'#010+
|
|
|
+ ' APackage.In','heritPackageVariantsFromDependency(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.CheckDependencies(APackage: TPackage; ErrorOnFai'+
|
|
|
+ 'lure: boolean): TCheckDependencyResult;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' D : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' r','esult := 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+
|
|
|
+ ' el','se'#010+
|
|
|
+ ' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APack'+
|
|
|
+ 'age.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D.Target:=CheckExternalPackage(D.Value',', ErrorOnFailure'+
|
|
|
+ ');'#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,SDbgPackageChecksumChanged,[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: string;'#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: TT','arget;'#010+
|
|
|
+ ' L: TStrings;'#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,AddPathPref','ix(APackage,APackage.FBUTarget.FT'+
|
|
|
- 'argetSourceFileName));'#013#010+
|
|
|
- ' Rewrite(F);'#013#010+
|
|
|
+ '.Name]));'#010+
|
|
|
+ ' system.Assign(F,AddPathPrefix(APackage,A','Package.FBUTarget.FT'+
|
|
|
+ 'argetSourceFileName));'#010+
|
|
|
+ ' Rewrite(F);'#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+
|
|
|
+ ');'#010+
|
|
|
+ ' writeln(F,'#039'interface'#039');'#010+
|
|
|
+ ' writeln(F,'#039'uses'#039');'#010+
|
|
|
+ ' for i := 0 to APackage.FBUTarget.Dependencies.Count','-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if i<>0 then'#010+
|
|
|
+ ' write(F,'#039','#039');'#010+
|
|
|
' writeln(F,APackage.FBUTarget.Dependencies.Dependencies[i].'+
|
|
|
- 'Value);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' writeln(F,'#039';'#039');'#013#010+
|
|
|
- ' writeln(F,'#039'impl','ementation'#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+
|
|
|
+ 'Value);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' writeln(F,'#039';'#039');'#010+
|
|
|
+ ' writeln(F,'#039'implementation'#039');'#010+
|
|
|
+ ' wri','teln(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,IncludeTrailingPathDeli'+
|
|
|
'miter(AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,D'+
|
|
|
- 'efaults.OS))),'#039#039',Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' ',' L.Add(AddPathPrefix(APackage,APackage.FBUTarget.SourceFi'+
|
|
|
- 'leName));'#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+
|
|
|
+ 'efaults.OS))),'#039#039',Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' L.Add(AddPathPrefix(APackage',',APackage.FBUTarget.SourceFi'+
|
|
|
+ 'leName));'#010+
|
|
|
+ ' CmdDeleteFiles(L);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.Targets.TargetIte','ms[i];'#010+
|
|
|
' if (T.TargetType = ttUnit) and (TargetOK(T, Defaults.CPU, Defa'+
|
|
|
- 'ults.OS)) 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 ProcessCompileTarget;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if TargetOK(T, Defaults.CPU, Defaults.OS) 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 then'#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(Defaults.OS in T.OSes) then'#013#010+
|
|
|
+ 'ults.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 comp','iled, 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(SDbgSkippin','gTargetWrongCPU, [T.Name, C'+
|
|
|
+ 'PUsToString(T.CPUs)]));'#010+
|
|
|
+ ' if not(Defaults.OS in T.OSes) then'#010+
|
|
|
' Log(vldebug, Format(SDbgSkippingTargetWrongOS, [T.Name, OSes'+
|
|
|
- 'ToS','tring(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) the'+
|
|
|
- 'n'#013#010+
|
|
|
- ' APackage.FBuildMode:=bmOneByOne'#013#010+
|
|
|
+ 'ToString(T.OSes)]));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' cmdOpts := '#039#039';'#010+
|
|
|
+ #010+
|
|
|
+ ' log(vlWarn','ing,SWarnStartCompilingPackage,[APackage.Name, Defaults.'+
|
|
|
+ 'Target]);'#010+
|
|
|
+ #010+
|
|
|
+ ' case Defaults.BuildMode of'#010+
|
|
|
+ ' bmOneByOne: begin'#010+
|
|
|
+ ' if (bmOneByOne in APackage.SupportBuildModes) then'#010+
|
|
|
+ ' APackage.FBuildMode:=bmOneByOn','e'#010+
|
|
|
' else if bmBuildUnit in APackage.SupportBuildModes t'+
|
|
|
- 'hen'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' log(vlInfo,SInfoFallbackBu','ildmodeBU);'#013#010+
|
|
|
- ' APackage.FBuildMode:=bmBuildUnit;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
+ 'hen'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlInfo,SInfoFallbackBuildmodeBU);'#010+
|
|
|
+ ' APackage.FBuildMode:=bmBuildUnit;'#010+
|
|
|
+ ' ',' end'#010+
|
|
|
+ ' else'#010+
|
|
|
' raise exception.create(SErrUnsupportedBuildmode);'+
|
|
|
- #013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' bmBuildUnit: begin'#013,#010+
|
|
|
+ #010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' bmBuildUnit: begin'#010+
|
|
|
' // When bmBuildUnit is supported by the package use'+
|
|
|
- ' a buildunit.'#013#010+
|
|
|
- ' // Unless there is only one target and bmOneByOne i'+
|
|
|
- 's also supported'#013#010+
|
|
|
- ' if (bmBuildUnit in APackage.SupportBuildModes) ','an'+
|
|
|
- 'd'#013#010+
|
|
|
+ ' a buildunit.'#010+
|
|
|
+ ' ',' // Unless 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.SupportBuil','dModes)) 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+
|
|
|
- ' raise exception.create','(SErrUnsupportedBuildmode'+
|
|
|
- ');'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' GPathPrefix:=APackage.Directory;'#013#010+
|
|
|
- ' Try'#013#010+
|
|
|
- ' CreateOutputDir(APackage);'#013#010+
|
|
|
- ' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#013#010+
|
|
|
- ' DoBeforeCompile(APackage);'#013#010+
|
|
|
- ' R','egenerateUnitconfigFile:=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.pp'#039#013#010+
|
|
|
- ' els','e'#013#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+
|
|
|
+ 'en'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' log(vlInfo,SInfoFallbackBuildmode);'#010+
|
|
|
+ ' ',' APackage.FBuildMode:=bmOneByOne'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' raise exception.create(SErrUnsupportedBuildmode);'+
|
|
|
#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' GPathPrefix:=APackage.Directory;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Cre','ateOutputDir(APackage);'#010+
|
|
|
+ ' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#010+
|
|
|
+ ' DoBeforeCompile(APackage);'#010+
|
|
|
+ ' RegenerateUnitconfigFile:=False;'#010+
|
|
|
+ ' if APackage.BuildMode=bmBuildUnit then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.FBUTargets ',':= TTargets.Create(TTarget);'#010+
|
|
|
+ ' if (Defaults.BuildOS in AllLimit83fsOses) or'#010+
|
|
|
+ ' (Defaults.OS in AllLimit83fsOses) 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';'#010+
|
|
|
+ ' APackage.FBUTarget := APackage.FBUTargets.AddUnit(BUName);'#010+
|
|
|
' APackage.FBUTarget.FTargetSourceFileName := APackage.FBUTarget'+
|
|
|
- '.Sourc','eFileName;'#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 := TDependency(T.Depende','ncies[d]);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //add unit dependencies'#013#010+
|
|
|
- ' if dep.DependencyType = depUnit then'#013#010+
|
|
|
+ '.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);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' //check if a doc','umentation target is given'#013#010+
|
|
|
+ '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;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vldebug, SDbgTargetIsNotAUnitOrProgram,[','T.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#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.Targe','tItems[i];'#013#010+
|
|
|
- ' if T.TargetType=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(AddPathPrefix(','APackage,APac'+
|
|
|
- 'kage.GetUnitConfigOutputDir(Defaults.CPU,Defaults.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 docum','entation, because options were found'#013#010+
|
|
|
- ' if cmdOpts <> '#039#039' then'#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+
|
|
|
- ' ffHtml: sFPDocFormat := '#039'--format=html --output='#039+
|
|
|
- ' + AddPathPrefix(APackage,Defau','lts.FPDocOutputDir);'#013#010+
|
|
|
+ 'Pack','age,T.Directory + T.Name + T.Extension) + '#039' --descr='#039'+ T'+
|
|
|
+ '.XML;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vldebug, SDbgTargetIsNotAUnitOrProgram,[T.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' if APackage.BuildMode=bmBuildUnit then'#010+
|
|
|
+ ' CompileBuildU','nit;'#010+
|
|
|
+ #010+
|
|
|
+ ' FreeAndNil(APackage.FBUTarget);'#010+
|
|
|
+ #010+
|
|
|
+ ' For I:=0 to APackage.Targets.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' T:=APackage.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:=AddPathPrefix(APackage, APackage.GetUnitConfigOutputFilena'+
|
|
|
+ 'me(Defaults.CPU,Defaults.OS));'#010+
|
|
|
+ ' Log(vlInfo, Format(SDbgGenerating, [UC]));'#010+
|
|
|
+ ' APackage.Sav','eUnitConfigToFile(UC,Defaults.CPU,Defaults.OS);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' //compile documentation, 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: sFPDo','cFormat := '#039'--format=html --output'+
|
|
|
+ '='#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
|
|
|
' ffHtm: sFPDocFormat := '#039'--format=htm --output='#039+
|
|
|
- ' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#013#010+
|
|
|
- ' ffXHtml: sFPDocFormat := '#039'--format=xhtml --output='+
|
|
|
- #039' + AddPathPrefix(APackage,Default','s.FPDocOutputDir);'#013#010+
|
|
|
+ ' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
|
|
|
+ ' ffXHtml: sFPDocForm','at := '#039'--format=xhtml --outpu'+
|
|
|
+ 't='#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
|
|
|
' ffLaTex: sFPDocFormat := '#039'--format=latex --output='+
|
|
|
#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.Name '+
|
|
|
- '+ '#039'.tex'#039';'#013#010+
|
|
|
- ' ffXMLStruct: sFPDocFormat := '#039'--format=xml-struct --ou'+
|
|
|
- 'tput='#039' + ','AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#013#010+
|
|
|
+ '+ '#039'.tex'#039';'#010+
|
|
|
+ ' ','ffXMLStruct: sFPDocFormat := '#039'--format=xml-struct --'+
|
|
|
+ 'output='#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
|
|
|
' ffChm: sFPDocFormat := '#039'--format=chm --output='#039+
|
|
|
- ' + AddPathPrefix(APackage,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+
|
|
|
- 'PATH'#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+
|
|
|
- ' Fina','lly'#013#010+
|
|
|
- ' GPathPrefix:='#039#039';'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
- ' if FProgressMax>0 then'#013#010+
|
|
|
+ ' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.N','ame +'+
|
|
|
+ ' '#039'.chm'#039';'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' //execute fpdoc'#010+
|
|
|
+ ' Cmd:=ExeSearch('#039'fpdoc'#039',SysUtils.GetEnvironmentvariab'+
|
|
|
+ 'le('#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+
|
|
|
+ ' end;'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
+ ' if FProgressMax>0 then'#010+
|
|
|
' log(vlWarning,SWarnCompilingPackagecompleteProgress,[(FProgressCou'+
|
|
|
- 'nt)/FProgressMax * 100, APackage.Name])'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vlWarning,SWarnCompilingPack','agecomplete,[APackage.Name]);'#013+
|
|
|
- #010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.MaybeCompile(APackage: TPackage);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if ReadyToCompile(APackage) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Compile(APackage);'#013#010+
|
|
|
- ' APackage.FTargetState:=tsCompiled;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'fun','ction TBuildEngine.ReadyToCompile(APackage: TPackage) : Boolean;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := False;'#013#010+
|
|
|
- ' if APackage.State in [tsCompiled, tsNoCompile] then'#013#010+
|
|
|
- ' begin'#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+
|
|
|
- ' LogIndent;'#013#010+
|
|
|
- ' if Defaults.ThreadsAmount=-1 then'#013#010+
|
|
|
- ' APackage.FTargetState:=tsConsidering;'#013#010,
|
|
|
+ 'nt)/FProgressMax * 100, APackag','e.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.FTar','getState:=tsCompiled;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.ReadyToCompile(APackage: TPackage) : 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(SErrInvalidState,[APackage.Name]);'#010+
|
|
|
+ ' Log(vlDebug,SDbgConsideringPackage,[APackage.Name]);'#010+
|
|
|
+ ' LogIndent;'#010+
|
|
|
+ ' if Defaults.ThreadsAmount=-1 then'#010+
|
|
|
+ ' APackage.FTa','rgetState:=tsConsidering;'#010+
|
|
|
' ResolveDependencies(APackage.Dependencies,(APackage.Collection as TP'+
|
|
|
- 'ackages));'#013#010+
|
|
|
+ 'ackages));'#010+
|
|
|
' // When multiple threads are used, delay the compilation of the pack'+
|
|
|
- 'age when'#013#010+
|
|
|
- ' // there are unsolved dependencies. When no threads are used, compil'+
|
|
|
- 'e all'#013#010+
|
|
|
- ' ',' // dependencies.'#013#010+
|
|
|
- ' if Defaults.ThreadsAmount=-1 then'#013#010+
|
|
|
- ' CompileDependencies(APackage)'#013#010+
|
|
|
- ' else if CheckDependencies(APackage)=cdNotYetAvailable then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' log(vlInfo,'#039'Delaying package '#039'+apackage.name);'#013#010+
|
|
|
- ' result := False;',#013#010+
|
|
|
- ' Exit;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' APackage.SetDefaultPackageVariant;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' ResolveFileNames(APackage,Defaults.CPU,Defaults.OS,True,False);'#013#010+
|
|
|
- ' If NeedsCompile(APackage) then'#013#010+
|
|
|
- ' result := True'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' APackage.FTargetState:=tsNoCo','mpile;'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' LogUnIndent;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'age when'#010+
|
|
|
+ ' // there are unsolved dependencies. When no threads ','are used, comp'+
|
|
|
+ 'ile all'#010+
|
|
|
+ ' // dependencies.'#010+
|
|
|
+ ' if Defaults.ThreadsAmount=-1 then'#010+
|
|
|
+ ' CompileDependencies(APackage)'#010+
|
|
|
+ ' else if CheckDependencies(APackage, true)=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+
|
|
|
+ ' ResolveFileNames(APackage,Defaults.CPU,Defaults.OS,True,False);'#010+
|
|
|
+ ' If NeedsCompile(APackage) then'#010+
|
|
|
+ ' result := True'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' APackage.FTarget','State:=tsNoCompile;'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' LogUnIndent;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TBuildEngine.InstallPackageFiles(APAckage : TPackage; tt : TT'+
|
|
|
- 'argetTypes; 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, Defaults.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+
|
|
|
- ' e','nd;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'argetTypes; 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,APackage);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ ' e','nd;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TBuildEngine.GetUnitConfigFilesInstallDir(ABaseDir: string): '+
|
|
|
+ 'String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := FixPath(ABaseDir)+Defaults.UnitConfigFilesInstallDir;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'procedure TBuildEngine.InstallUnitConfigFile(APAckage: TPackage; const'+
|
|
|
- ' Dest: 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.GetUnitConfigOutpu',
|
|
|
- 'tDir(Defaults.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+
|
|
|
+ ' Des','t: String);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' List : TStringList;'#010+
|
|
|
+ ' ConfigFileName: String;'#010+
|
|
|
+ ' ConfigFileContent: TStrings;'#010+
|
|
|
+ ' Index: integer;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' ConfigFileName:=APackage.GetUnitConfigOutputFilename(Defaults.CPU,De'+
|
|
|
+ 'faults.OS);'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' i','f Defaults.FPUnitSourcePath<>'#039#039' then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ConfigFileContent := TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' ConfigFileContent.LoadFromFile(AddPathPrefix(APAckage, Confi'+
|
|
|
+ 'gFileName));'#010+
|
|
|
+ ' if Defaults.FPUnitSourcePath='#039'0'#039' then',#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' Index := ConfigFileContent.IndexOfName(KeySourcePath);'#010+
|
|
|
+ ' if Index > -1 then'#010+
|
|
|
+ ' ConfigFileContent.Delete(Index)'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' ConfigFileContent.Values[Key','SourcePath] := Defaults.FPUn'+
|
|
|
+ 'itSourcePath;'#010+
|
|
|
+ ' ConfigFileContent.SaveToFile(AddPathPrefix(APAckage, ConfigF'+
|
|
|
+ 'ileName));'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' ConfigFileContent.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' List.Values[ConfigFileName] := APAckage','.Name + FpmkExt;'#010+
|
|
|
+ ' CmdCopyFiles(List,Dest,APackage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
'function TBuildEngine.InstallPackageSourceFiles(APAckage : TPackage; s'+
|
|
|
- 'tt : TSourceTypes; ttt : TTargetTypes; Const De','st : 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.GetInstallSourceFiles(List,stt,ttt);'#013#010+
|
|
|
- ' if (List.Count>0) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Result:=True;'#013#010+
|
|
|
- ' CmdC','opyFiles(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 TBuildEngine.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.Afte','rInstall) then'#013#010+
|
|
|
- ' APackage.AfterInstall(APackage);'#013#010+
|
|
|
- ' If Assigned(APackage.AfterInstallProc) then'#013#010+
|
|
|
- ' APackage.AfterInstallProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterInstall);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Install(AP','ackage: TPackage);'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' UC,D : String;'#013#010+
|
|
|
- ' B : Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If (Apackage.State<>tsCompiled) then'#013#010+
|
|
|
- ' MaybeCompile(APackage);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' Log(vlCommand,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:=false;'#013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'PackageName'#039',APackage.Name);'+
|
|
|
- #013#010+
|
|
|
- ' GlobalDictionary.AddVariable('#039'unitinstalldir'#039',Defaults.Uni'+
|
|
|
- 'tInstallDir);'#013#010+
|
|
|
- ' ',' GlobalDictionary.AddVariable('#039'packageunitinstalldir'#039',APa'+
|
|
|
- 'ckage.GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS));'#013#010+
|
|
|
- #013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.BaseInstallDir);'#013#010+
|
|
|
- ' // This is to install the TPackage.Installfiles, whi','ch are not r'+
|
|
|
- 'elated to any'#013#010+
|
|
|
- ' // target'#013#010+
|
|
|
- ' if InstallPackageFiles(APackage,[],D) then'#013#010+
|
|
|
- ' B:=true;'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.UnitInstallDir)+APackage.'+
|
|
|
- 'GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS);'#013#010+
|
|
|
- ' if Inst','allPackageFiles(APackage,[ttUnit, ttImplicitUnit],D) then'+
|
|
|
- #013#010+
|
|
|
- ' B:=true;'#013#010+
|
|
|
+ 'tt : TSourceTypes; ttt : TTargetTypes; Const Dest : String): Boolean;'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L','ist : 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,APackage);'#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+
|
|
|
+ 'procedure 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+
|
|
|
+ ' ExecuteCommands(APackage.Commands,caAfterInstall);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Install(APackage: TPackage; AnArchiveFiles: boo'+
|
|
|
+ 'lean);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' UC,D : Str','ing;'#010+
|
|
|
+ ' B : Boolean;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (Apackage.State<>tsCompiled) then'#010+
|
|
|
+ ' MaybeCompile(APackage);'#010+
|
|
|
+ ' Log(vlCommand,SInfoInstallingPackage,[APackage.Name]);'#010+
|
|
|
+ ' if AnArchiveFiles then'#010+
|
|
|
+ ' FinishArchive(APackage);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039,') then'#010+
|
|
|
+ ' GPathPrefix := APackage.Directory;'#010+
|
|
|
+ ' if AnArchiveFiles then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FOnCopyFile:=@AddFileToArchive;'#010+
|
|
|
+ ' FOnFinishCopy:=@FinishArchive;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' DoBeforeInstall(APackage);'#010+
|
|
|
+ ' // units'#010+
|
|
|
+ ' B:=false;'#010+
|
|
|
+ ' A','ddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'unitinstalldir'#039', FixPath(APa'+
|
|
|
+ 'ckage.Dictionary.ReplaceStrings(Defaults.UnitInstallDir), False));'#010+
|
|
|
+ ' GlobalDictionary.AddVariable('#039'packageunitinstal','ldir'#039',APa'+
|
|
|
+ 'ckage.GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS));'#010+
|
|
|
+ #010+
|
|
|
+ ' D:=FixPath(Defaults.Prefix,true);'#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:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.UnitInstall'+
|
|
|
+ 'Dir), True)+APackage.GetPackageUnitInstallDir(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'#013#010+
|
|
|
- ' //if InstallPackageFiles(APAckage,ttExampleUnit,D) then'#013#010+
|
|
|
- ' // B:=true;'#013#010+
|
|
|
- ' ',' // Unit (dependency) configuration if there were units installed'+
|
|
|
- #013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.UnitInstallDir);'#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.InstallExamples then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' D:=IncludeTrailingPathDelimiter(Defaults.ExamplesInstallDir)+'#039+
|
|
|
- 'fpc-'#039'+APackage.FileName+PathDelim+'#039,'examples'#039'+PathDelim;'#013+
|
|
|
- #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: TPackage);'#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(APackage);'#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.AfterArchiveProc(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+
|
|
|
- ' // Make sure tha','t the package is resolved for each tar'+
|
|
|
- 'gbet'#013#010+
|
|
|
- ' APackage.FAllFilesResolved:=false;'#013#010+
|
|
|
- ' ResolveFileNames(APackage,ICPU,IOS,false);'#013#010+
|
|
|
- ' APackage.GetArchiveFiles(L, ICPU, IOS);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' //from so','urces'#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 no','t 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 TBuildEng','ine.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+
|
|
|
- ' APackage.Be','foreCleanProc(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+
|
|
|
- ' APackage.Af','terCleanProc(APackage);'#013#010+
|
|
|
- ' ExecuteCommands(APackage.Commands,caAfterClean);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#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(vlI','nfo,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+
|
|
|
- ' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#013#010+
|
|
|
- ' if AllTargets ','then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
+ ' this later'#010+
|
|
|
+ ' //if InstallPackageFiles(APAckage,ttExampleUnit,D) then'#010+
|
|
|
+ ' // B:=true;'#010+
|
|
|
+ ' // Unit (dependency) configuration if there were units installed'#010,
|
|
|
+ ' D:=FixPath(APackage.Dictionary.ReplaceStrings(GetUnitConfigFilesIn'+
|
|
|
+ 'stallDir(Defaults.BaseInstallDir)), True);'#010+
|
|
|
+ ' if B then'#010+
|
|
|
+ ' InstallUnitConfigFile(APackage,D);'#010+
|
|
|
+ ' // Programs'#010+
|
|
|
+ ' D:=IncludeTrailingPathDelimiter(Defaults.BinInstallD','ir);'#010+
|
|
|
+ ' InstallPackageFiles(APAckage,[ttProgram],D);'#010+
|
|
|
+ ' //InstallPackageFiles(APAckage,ttExampleProgram,D);'#010+
|
|
|
+ ' // Documentation'#010+
|
|
|
+ ' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.DocInstallD'+
|
|
|
+ 'ir), True);'#010+
|
|
|
+ ' InstallPackageSourceFil','es(APackage,[stDoc],[],D);'#010+
|
|
|
+ ' // Examples'#010+
|
|
|
+ ' if Defaults.InstallExamples then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.Example'+
|
|
|
+ 'sInstallDir), True);'#010+
|
|
|
+ ' InstallPackageSourceFiles(APackage,[stExample],[t','tExamplePro'+
|
|
|
+ 'gram,ttExampleUnit],D);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Done.'#010+
|
|
|
+ ' APackage.FTargetState:=tsInstalled;'#010+
|
|
|
+ ' DoAfterInstall(APackage);'#010+
|
|
|
+ ' if AnArchiveFiles then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' FOnCopyFile:=nil;'#010+
|
|
|
+ ' FOnFinishCopy:=nil;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' ',' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := '#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.BeforeArchive) 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.AfterArchive) 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: TPackage);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' ',' L : TStringList;'#010+
|
|
|
+ ' A : String;'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' ICPU : TCPU;'#010+
|
|
|
+ ' IOS : TOS;'#010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' ZipFile: TZipper;'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' A:=Defaults.ZipPrefix + APackage.FileName + MakeZipSuffix(cpuNone, o'+
|
|
|
+ 'sNone) + ZipExt;'#010+
|
|
|
+ ' ','Log(vlInfo,SInfoArchivingPackage,[APackage.Name,A]);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := APackage.Directory;'#010+
|
|
|
+ ' DoBeforeArchive(Apackage);'#010+
|
|
|
+ ' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#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(ManifestFile);'#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+
|
|
|
+ ' // Make sure that the package is resolved for each targb'+
|
|
|
+ 'et'#010+
|
|
|
+ ' APackage.FAllFilesResolved:=fals','e;'#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.C','ount-1 do'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgArchivingFile, [L[i]]));'#010+
|
|
|
+ #010+
|
|
|
+ '{$ifdef HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' if not Assigned(ArchiveFilesProc) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ZipFile := TZipper.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' ZipFile.FileName:=A;'#010+
|
|
|
+ ' ',' A := APackage.Dictionary.ReplaceStrings(Defaults.FPrefix'+
|
|
|
+ ');'#010+
|
|
|
+ ' if A <> '#039#039' then'#010+
|
|
|
+ ' A:=IncludeTrailingPathDelimiter(A);'#010+
|
|
|
+ ' for i := 0 to L.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ZipFile.Entries.AddF','ileEntry(AddPathPrefix(APackage,'+
|
|
|
+ ' L[i]), A+L[i]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ZipFile.ZipAllFiles;'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' ZipFile.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ '{$endif HAS_UNIT_ZIPPER}'#010+
|
|
|
+ ' CmdArchiveFiles(L,A);'#010+
|
|
|
+ ' ',' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' DoAfterArchive(Apackage);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' GPathPrefix := '#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+
|
|
|
+ 'proce','dure TBuildEngine.Clean(APackage: TPackage; AllTargets: boolean'+
|
|
|
+ ');'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' ACPU: TCpu;'#010+
|
|
|
+ ' AOS: TOS;'#010+
|
|
|
+ ' DirectoryList : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo,SInfoCleaningPackage,[APackage.Name]);'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' If (APackage.Directory<>'#039#039') then'#010+
|
|
|
+ ' EnterD','ir(APackage.Directory);'#010+
|
|
|
+ ' // Check for inherited options (packagevariants) from other packag'+
|
|
|
+ 'es'#010+
|
|
|
+ ' ResolveDependencies(APackage.Dependencies, (APackage.Collection as'+
|
|
|
+ ' TPackages));'#010+
|
|
|
+ ' CheckDependencies(APackage, False);'#010+
|
|
|
+ ' APackage.SetDef','aultPackageVariant;'#010+
|
|
|
+ ' DoBeforeClean(Apackage);'#010+
|
|
|
+ ' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#010+
|
|
|
+ ' if AllTargets then'#010+
|
|
|
+ ' begin'#010+
|
|
|
' // Remove the unit-and bin-directories completely. This is saf'+
|
|
|
- 'er in case of files'#013#010+
|
|
|
- ' // being renamed and such. See also bug 19655'#013#010+
|
|
|
- ' DirectoryList := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' for AC','PU:=low(TCpu) to high(TCpu) do if ACPU<>cpuNone then'+
|
|
|
- #013#010+
|
|
|
- ' for AOS:=low(TOS) to high(TOS) do if AOS<>osNone then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if OSCPUSupported[AOS,ACPU] then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' Dir','ectoryList.Add(ExtractFileDir(APackage.GetUni'+
|
|
|
- 'tsOutputDir(ACPU,AOS)));'#013#010+
|
|
|
- ' DirectoryList.Add(ExtractFileDir(APackage.GetBinOu'+
|
|
|
- 'tputDir(ACPU,AOS)));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' CmdRemoveTrees(Director','yList);'#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(ACP','U,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, Defaults.CPU, Defaults.OS);'#013#010+
|
|
|
- ' DoAfterClean(Apackag','e);'#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+
|
|
|
+ 'er 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 if ACPU<>cpuNone then'#010+
|
|
|
+ ' for AOS:=low(TOS) to high(TOS) do if AOS<>osNone ','then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if OSCPUSupported[AOS,ACPU] then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // First perform a normal clean, to be sure that a'+
|
|
|
+ 'll files'#010+
|
|
|
+ ' // which are not in the units- or bin-dir a','re cl'+
|
|
|
+ 'eaned. (like'#010+
|
|
|
+ ' // the .fpm file)'#010+
|
|
|
+ ' Clean(APackage, ACPU, AOS);'#010+
|
|
|
+ ' DirectoryList.Add(ExtractFileDir(APackage.GetUnits'+
|
|
|
+ 'OutputDir(ACPU,AOS)));'#010+
|
|
|
+ ' DirectoryList.Add(Extra','ctFileDir(APackage.GetBin'+
|
|
|
+ 'OutputDir(ACPU,AOS)));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' CmdRemoveTrees(DirectoryList);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' DirectoryList.Free;'#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:=T','StringList.Create;'#013#010+
|
|
|
- ' try'#013#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+
|
|
|
- ' begin'#013#010+
|
|
|
- ' CmdDeleteFiles(List);'#013#010+
|
|
|
- ' DirectoryLi','st := TStringList.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' GetDirectoriesFromFilelist(List,DirectoryList);'#013#010+
|
|
|
- ' CmdRemoveDirs(DirectoryList);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' DirectoryList.Clear;'#013#010+
|
|
|
- ' if DirectoryExists(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(ACPU,AOS));'#013+
|
|
|
- #010+
|
|
|
- ' CmdRemoveDirs(DirectoryList);'#013#010+
|
|
|
- #013,#010+
|
|
|
- ' DirectoryList.Clear;'#013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' List : TStringList;'#010+
|
|
|
+ ' DirectoryList',' : TStringList;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' List:=TStringList.Create;'#010+
|
|
|
+ ' try'#010+
|
|
|
+ ' List.Add(APackage.GetUnitConfigOutputFilename(ACPU,AOS));'#010+
|
|
|
+ ' APackage.GetCleanFiles(List,ACPU,AOS);'#010+
|
|
|
+ ' if (List.Count>0) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' CmdDeleteFiles(List);'#010+
|
|
|
+ ' Direct','oryList := 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,AOS)));'#013#010+
|
|
|
- ' if DirectoryExists(ExtractFileDir(','APackage.GetUnitsOutputDir'+
|
|
|
- '(ACPU,AOS))) then'#013#010+
|
|
|
+ 'PU,AOS)));'#010+
|
|
|
+ ' if DirectoryExists(ExtractFileDir(APackage.G','etUnitsOutputDir'+
|
|
|
+ '(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+
|
|
|
- ' Fi','nally'#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(vlInfo, 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+
|
|
|
- #013#010+
|
|
|
- ' function IsReadyToCompile(APackage:TPackage): boolean;'#013#010+
|
|
|
- ' begin',#013#010+
|
|
|
- ' result := False;'#013#010+
|
|
|
- ' if not APackage.FProcessing and (APackage.State=tsNeutral) then'#013+
|
|
|
- #010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if PackageOK(APackage) then'#013#010+
|
|
|
- ' result := ReadyToCompile(APackage)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' inc(FPro','gressCount);'#013#010+
|
|
|
+ 'ACPU,AOS)));'#010+
|
|
|
+ ' CmdRemoveDirs(DirectoryList);'#010+
|
|
|
+ ' finally'#010+
|
|
|
+ ' DirectoryList.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' List.Fr','ee;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TBuildEngine.PkgList(PkgList: TStrings; APackage : TPackage)'+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Log(vlInfo, Format(SInfoPkgListPackage,[APackage.Name]));'#010+
|
|
|
+ ' APackage.ListPackage(PkgList);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Compile(Packages: TPa','ckages);'#010+
|
|
|
+ #010+
|
|
|
+ ' function IsReadyToCompile(APackage:TPackage): boolean;'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' result := False;'#010+
|
|
|
+ ' if not APackage.FProcessing and (APackage.State=tsNeutral) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if PackageOK(APackage) then'#010+
|
|
|
+ ' result := ReadyToC','ompile(APackage)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
' log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCo'+
|
|
|
- 'unt)/FProgressMax * 100, APackage.Name, Defaults.Target]);'#013#010+
|
|
|
- ' APackage.FTargetState:=tsNoCompile;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I ',': integer;'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' Thr : Integer;'#013#010+
|
|
|
- ' Finished : boolean;'#013#010+
|
|
|
- ' ErrorState: boolean;'#013#010+
|
|
|
- ' ErrorMessage: string;'#013#010+
|
|
|
- ' NotifyThreadWaiting : PRTLEvent;'#013#010+
|
|
|
- ' Threads : array of TCompileWorkerThread;'#013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- ' P : TPack','age;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' procedure ProcessThreadResult(ATHread: TCompileWorkerThread);'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' StartI: integer;'#013#010+
|
|
|
- ' CompilePackage: TPackage;'#013#010+
|
|
|
- ' PackageAvailable: boolean;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' if AThread.Done then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ',' if assigned(AThread.APackage) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // The thread has completed compiling the package'#013#010+
|
|
|
- ' if AThread.CompilationOK then'#013#010+
|
|
|
- ' AThread.APackage.FTargetState:=tsCompiled'#013#010+
|
|
|
- ' else //',' A problem occured, stop the compilation'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ErrorState:=true;'#013#010+
|
|
|
- ' ErrorMessage:=AThread.ErrorMessage;'#013#010+
|
|
|
- ' Finished:=true;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' AThread.APackage := nil;'#013#010+
|
|
|
- ' ',' end;'#013#010+
|
|
|
- ' StartI := I;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' CompilePackage := nil;'#013#010+
|
|
|
- ' PackageAvailable:=false;'#013#010+
|
|
|
- ' repeat'#013#010+
|
|
|
- ' if IsReadyToCompile(Packages.PackageItems[i]) then'#013#010+
|
|
|
- ' CompilePackage := Packages.PackageItems[i];'#013#010+
|
|
|
- ' ',' if not (Packages.PackageItems[i].State in [tsCompiled, tsNoC'+
|
|
|
- 'ompile]) then'#013#010+
|
|
|
- ' PackageAvailable:=true;'#013#010+
|
|
|
- ' inc(I);'#013#010+
|
|
|
- ' if I=packages.Count then'#013#010+
|
|
|
- ' i := 0;'#013#010+
|
|
|
- ' until Assigned(CompilePackage) or (I=StartI);'#013#010+
|
|
|
- ' ',' if Assigned(CompilePackage) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Instruct thread to compile package'#013#010+
|
|
|
- ' AThread.APackage := CompilePackage;'#013#010+
|
|
|
- ' AThread.APackage.FProcessing := true;'#013#010+
|
|
|
- ' AThread.FDone:=False;'#013#010+
|
|
|
- ' ',' RTLeventSetEvent(AThread.NotifyStartTask);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if not PackageAvailable then'#013#010+
|
|
|
- ' Finished := True;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- '{$endif NO_THREADING}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeCompile) then'#013#010+
|
|
|
- ' BeforeCompile(Sel','f);'#013#010+
|
|
|
- ' FProgressMax:=Packages.Count;'#013#010+
|
|
|
- ' FProgressCount:=0;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' if Defaults.ThreadsAmount<0 then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // Do not use any threading to compile the packages'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packa','ges.PackageItems[i];'#013#010+
|
|
|
- ' If PackageOK(P) then'#013#010+
|
|
|
- ' MaybeCompile(P)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' inc(FProgressCount);'#013#010+
|
|
|
+ 'unt)/FProgressMax * 100, APackage.Name, Defaults.Target]);'#010+
|
|
|
+ ' APackage.FTargetStat','e:=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 TCompi','leWorkerThread;'#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.FTargetStat','e:=tsCompiled'#010+
|
|
|
+ ' else // A problem occured, stop the compilation'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' ErrorState:=true;'#010+
|
|
|
+ ' ErrorMessage:=AThread.ErrorMessage;'#010+
|
|
|
+ ' Finished:=true;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' ATh','read.APackage := nil;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' StartI := I;'#010+
|
|
|
+ #010+
|
|
|
+ ' CompilePackage := nil;'#010+
|
|
|
+ ' PackageAvailable:=false;'#010+
|
|
|
+ ' repeat'#010+
|
|
|
+ ' if IsReadyToCompile(Packages.PackageItems[i]) then'#010+
|
|
|
+ ' CompilePackage := Packages.Packag','eItems[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=S','tartI);'#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+
|
|
|
+ ' Finished := True;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeCompile, Self);'#010,
|
|
|
+ ' FProgressMax:=Packages.Count;'#010+
|
|
|
+ ' FProgressCount:=0;'#010+
|
|
|
+ #010+
|
|
|
+ ' if Defaults.ThreadsAmount<0 then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // Do not use any threading to compile the packages'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageIt','ems[i];'#010+
|
|
|
+ ' If PackageOK(P) then'#010+
|
|
|
+ ' MaybeCompile(P)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' inc(FProgressCount);'#010+
|
|
|
' log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCo'+
|
|
|
- 'unt)/FProgressMax ','* 100, P.Name, Defaults.Target]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- '{$ifndef NO_THREADING}'#013#010+
|
|
|
- ' // Use worker-threads to compile the packages'#013#010+
|
|
|
- ' ErrorState := False;'#013#010+
|
|
|
- ' Finished := False;'#013#010+
|
|
|
- ' I := 0;'#013,#010+
|
|
|
- ' // This event is set by the worker-threads to notify the main/th'+
|
|
|
- 'is thread'#013#010+
|
|
|
- ' // that a package finished it'#039's task.'#013#010+
|
|
|
- ' NotifyThreadWaiting := RTLEventCreate;'#013#010+
|
|
|
- ' SetLength(Threads,Defaults.ThreadsAmount);'#013#010+
|
|
|
- ' // Create a','ll worker-threads'#013#010+
|
|
|
- ' for Thr:=0 to Defaults.ThreadsAmount-1 do'#013#010+
|
|
|
+ 'unt)/FProgressMax * 100, P.Name, Defa','ults.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/'+
|
|
|
+ 'this 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);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
+ 'aiting);'#010+
|
|
|
+ ' try'#010+
|
|
|
' // When a thread notifies this thread that it is ready, loop o'+
|
|
|
- 'n all'#013#010+
|
|
|
- ' ',' // threads to check their state and if possible assign a new'+
|
|
|
- ' package'#013#010+
|
|
|
- ' // to them to compile.'#013#010+
|
|
|
- ' while not Finished do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' RTLeventWaitFor(NotifyThreadWaiting);'#013#010+
|
|
|
- ' for Thr:=0 to Defaults.','ThreadsAmount-1 do if not Finishe'+
|
|
|
- 'd then'#013#010+
|
|
|
- ' ProcessThreadResult(Threads[Thr]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
+ 'n all'#010+
|
|
|
+ ' // threads to check their state and',' if possible assign a new'+
|
|
|
+ ' package'#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 threads to en'+
|
|
|
- 'd.'#013#010+
|
|
|
- ' for thr:=0 to Defaults.ThreadsAmount-1 do'#013#010+
|
|
|
- ' ',' begin'#013#010+
|
|
|
- ' Threads[Thr].Terminate;'#013#010+
|
|
|
- ' RTLeventSetEvent(Threads[Thr].NotifyStartTask);'#013#010+
|
|
|
- ' Threads[Thr].WaitFor;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' RTLeventdestroy(NotifyThreadWaiting);'#013#010+
|
|
|
- ' for thr:=0 t','o Defaults.ThreadsAmount-1 do'#013#010+
|
|
|
- ' Threads[Thr].Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' if ErrorState then'#013#010+
|
|
|
- ' raise Exception.Create(ErrorMessage);'#013#010+
|
|
|
- '{$endif NO_THREADING}'#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 to 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+
|
|
|
+ 'd.'#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].Fre','e;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' if ErrorState then'#010+
|
|
|
+ ' raise Exception.Create(ErrorMessage);'#010+
|
|
|
+ '{$endif NO_THREADING}'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterCompile, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Install(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I :',' Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeInstall, 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, False);',#010+
|
|
|
' log(vlWarning, SWarnInstallationPackagecomplete, [P.Name, De'+
|
|
|
- 'faults.Target]);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vlWarning,SWarnSkipPackageTarget,[P.Name, D','efaults.Targe'+
|
|
|
- 't]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterInstall) then'#013#010+
|
|
|
- ' AfterInstall(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.ZipInstall(Packages: TPackages);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' procedure CreateZipFile;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' ','FZipper := TZipper.Create;'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If PackageOK(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' FZipper.FileName := Defaults.ZipPrefix + P.N','ame + '#039+
|
|
|
- '.'#039' + MakeTargetString(Defaults.CPU,Defaults.OS) +'#039'.zip'#039';'#013+
|
|
|
- #010+
|
|
|
- ' Install(P);'#013#010+
|
|
|
- ' FZipper.ZipAllFiles;'#013#010+
|
|
|
- ' FZipper.Clear;'#013#010+
|
|
|
- ' log(vlWarning, SWarnInstallationPackagecomplete, [P.Name'+
|
|
|
- ', Defaults.T','arget]);'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Tar'+
|
|
|
- 'get]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' FZipper.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- #013#010+
|
|
|
- ' {$ifdef HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' procedure CreateTarFi','le;'#013#010+
|
|
|
- ' var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- ' S : TGZFileStream;'#013#010+
|
|
|
- ' begin;'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If PackageOK(P) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' S := TGZFi','leStream.create(Defaults.ZipPrefix + P.Name + '+
|
|
|
- #039'.'#039' + MakeTargetString(Defaults.CPU,Defaults.OS) +'#039'.tar.gz'#039+
|
|
|
- ', gzopenwrite);'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' FTarWriter := TTarWriter.Create(S);'#013#010+
|
|
|
- ' FTarWriter.Permissions := [tpReadByO','wner, tpWriteByOwn'+
|
|
|
- 'er, tpReadByGroup, tpReadByOther];'#013#010+
|
|
|
- ' FTarWriter.UserName := '#039'root'#039';'#013#010+
|
|
|
- ' FTarWriter.GroupName := '#039'root'#039';'#013#010+
|
|
|
- ' try'#013#010+
|
|
|
- ' Install(P);'#013#010+
|
|
|
- ' log(vlWarning, SWarnInstallat','ionPackagecomplete, [P.'+
|
|
|
- 'Name, Defaults.Target]);'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' FTarWriter.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' finally'#013#010+
|
|
|
- ' S.Free;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' log(vlWarning',',SWarnSkipPackageTarget,[P.Name, Defaults.Tar'+
|
|
|
- 'get]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' {$endif HAS_TAR_SUPPORT}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeInstall) then'#013#010+
|
|
|
- ' BeforeInstall(Self);'#013#010+
|
|
|
- #013#010+
|
|
|
- ' Defaults.IntSetBaseInstallDir('#039'lib/fpc/'#039' + Defaults.FCompile'+
|
|
|
- 'rVers','ion+ '#039'/'#039');'#013#010+
|
|
|
- #013#010+
|
|
|
- ' {$ifdef unix}'#013#010+
|
|
|
- ' {$ifdef HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' CreateTarFile;'#013#010+
|
|
|
- ' {$else HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' CreateZipFile;'#013#010+
|
|
|
- ' {$endif HAS_TAR_SUPPORT}'#013#010+
|
|
|
- ' {$else unix}'#013#010+
|
|
|
- ' CreateZipFile;'#013#010+
|
|
|
- ' {$endif unix}'#013#010+
|
|
|
- #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(vlDebug, SDbgBuildEngineGenerateManifests);'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' Man','ifest(P);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterManifest) then'#013#010+
|
|
|
- ' AfterManifest(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TBuildEngine.Clean(Packages: TPackages; AllTargets: boolean)'+
|
|
|
- ';'#013#010+
|
|
|
- 'Var'#013#010+
|
|
|
- ' I : Integer;'#013#010+
|
|
|
- ' P : TPackage;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Assigned(BeforeClean) the','n'#013#010+
|
|
|
- ' BeforeClean(Self);'#013#010+
|
|
|
- ' Log(vldebug, SDbgBuildEngineCleaning);'#013#010+
|
|
|
- ' For I:=0 to Packages.Count-1 do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' P:=Packages.PackageItems[i];'#013#010+
|
|
|
- ' If AllTargets or PackageOK(P) then'#013#010+
|
|
|
- ' Clean(P, AllTargets);'#013#010+
|
|
|
- ' log(vlWarn','ing, SWarnCleanPackagecomplete, [P.Name]);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If Assigned(AfterClean) then'#013#010+
|
|
|
- ' AfterClean(Self);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
+ 'faults.Target]);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Target]'+
|
|
|
+ ');'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterInst','all, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.ZipInstall(Packages: TPackages);'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeInstall, Self);'#010+
|
|
|
+ #010+
|
|
|
+ ' if Defaults.UnixPaths then'#010+
|
|
|
+ ' Defaults.IntSetBaseInstallDir','('#039'lib/fpc/'#039' + Defaults.FCom'+
|
|
|
+ 'pilerVersion+ '#039'/'#039')'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Defaults.IntSetBaseInstallDir('#039#039');'#010+
|
|
|
+ #010+
|
|
|
+ ' try'#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, True);'#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+
|
|
|
+ ' Finis','hArchive(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterInstall, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Archive(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeArchive, Self);',#010+
|
|
|
+ ' Log(vlDebug, SDbgBuildEngineArchiving);'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' Archive(P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterArchive, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.Ma','nifest(Packages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' L : TStrings;'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeManifest, Self);'#010+
|
|
|
+ ' Log(vlDebug, SDbgBuildEngineGenerateManifests);'#010+
|
|
|
+ #010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Log(vlD','ebug, Format(SDbgGenerating, [ManifestFile]));'#010+
|
|
|
+ ' L.Add('#039'<?xml version="1.0"?>'#039');'#010+
|
|
|
+ ' L.Add('#039'<packages>'#039');'#010+
|
|
|
+ ' For I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' Log(vlInfo, Format(SInfoManifestPackage',',[P.Name]));'#010+
|
|
|
+ ' P.GetManifest(L);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' L.Add('#039'</packages>'#039');'#010+
|
|
|
+ ' L.SaveToFile(ManifestFile);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterManifest, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TBuildEngine.PkgList(Pack','ages: TPackages);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ ' L : TStrings;'#010+
|
|
|
+ ' PKGL : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' L:=TStringList.Create;'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforePkgList, Self);'#010+
|
|
|
+ ' Log(vlDebug, SDbgBuildEngineGeneratePkgList);'#010+
|
|
|
+ '{ Consider only',' the target OS, because the installer would be run th'+
|
|
|
+ 'ere }'#010+
|
|
|
+ ' if Defaults.OS in AllLimit83fsOSes then'#010+
|
|
|
+ ' PKGL := PkgListFileBase + OSToString (Defaults.OS) + PkgListFileEx'+
|
|
|
+ 't'#010+
|
|
|
+ ' else if Defaults.OS = osNone then'#010+
|
|
|
+ ' PKGL := PkgListFileBase + '#039,'src'#039' + PkgListFileExt'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' PKGL := PkgListFileBase + CPUToString (Defaults.CPU) + '#039'-'#039' '+
|
|
|
+ '+'#010+
|
|
|
+ ' OSToString (Defaults.OS) + PkgLis'+
|
|
|
+ 'tFileExt;'#010+
|
|
|
+ #010+
|
|
|
+ ' Try'#010+
|
|
|
+ ' Log(vlDebug, Format(SDbgGenerating, [PKGL]));'#010+
|
|
|
+ #010+
|
|
|
+ ' For ','I:=0 to Packages.Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' P:=Packages.PackageItems[i];'#010+
|
|
|
+ ' PkgList(L, P);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' L.SaveToFile(PKGL);'#010+
|
|
|
+ ' Finally'#010+
|
|
|
+ ' L.Free;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ #010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterPkgList, Self);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure',' TBuildEngine.Clean(Packages: TPackages; AllTargets: boolea'+
|
|
|
+ 'n);'#010+
|
|
|
+ 'Var'#010+
|
|
|
+ ' I : Integer;'#010+
|
|
|
+ ' P : TPackage;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaBeforeClean, Self);'#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.Name]);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' NotifyEventCollection.CallEvents(neaAfterClean, Self);'#010+
|
|
|
+ 'en','d;'#010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TFPVersion'#013#010+
|
|
|
- '*','*******************************************************************'+
|
|
|
- '********}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.GetAsString: String;'#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+
|
|
|
- ' Resul','t := Result + IntToStr(Major);'#013#010+
|
|
|
- ' if Minor <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'.'#039' + IntToStr(Minor);'#013#010+
|
|
|
- ' if Micro <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'.'#039' + IntToStr(Micro);'#013#010+
|
|
|
- ' if Build <> -1 then'#013#010+
|
|
|
- ' Result := Result + '#039'-'#039' + Int','ToStr(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:=Length(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 : Str','ing;'#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:=NextDigi','t(#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+
|
|
|
- ' begi','n'#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+
|
|
|
- ' Resul','t:=Build-AVersion.Build;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TFPVersion.SameVersion(AVersion: TFPVersion): Boolean;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=CompareVersion(AVersion)=0;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{************************************************************','*******'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TTarget'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TFPVersion'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TFPVersion.GetAsString: Stri','ng;'#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 the','n'#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: Boolean;'#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') or (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+
|
|
|
+ ' Build:=-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+
|
|
|
+ '{*********************************','**********************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TTarget'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TTarget.Create(ACollection: TCollection);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' inherited Create(ACollection);'#013#010+
|
|
|
- ' F','Install:=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(TConditionalStrin','g);'#013#010+
|
|
|
- ' FDependencies:=TDependencies.Create(TDependency);'#013#010+
|
|
|
- ' FCommands:=TCommands.Create(TCommand);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'destructor TTarget.Destroy;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FreeAndNil(FUnitPath);'#013#010+
|
|
|
- ' FreeAndNil(FObjectPath);'#013#010+
|
|
|
- ' FreeAndNil(FIncludePath);'#013#010+
|
|
|
- ' FreeAndNi','l(FDependencies);'#013#010+
|
|
|
- ' FreeAndNil(FCommands);'#013#010+
|
|
|
- ' FreeAndNil(Foptions);'#013#010+
|
|
|
- ' inherited Destroy;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.AssignTo(Dest: TPersistent);'#013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' DestTarget: TTarget;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if Dest is TTarget then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' DestTarget := ','TTarget(Dest);'#013#010+
|
|
|
- ' DestTarget.Dependencies.Assign(Dependencies);'#013#010+
|
|
|
- ' DestTarget.Commands.Assign(Commands);'#013#010+
|
|
|
- ' DestTarget.FTargetState := FTargetState;'#013#010+
|
|
|
- ' DestTarget.TargetType := TargetType;'#013#010+
|
|
|
- ' DestTarget.CPUs := CPUs;'#013#010+
|
|
|
- ' DestTarg','et.OSes := OSes;'#013#010+
|
|
|
- ' DestTarget.Mode := Mode;'#013#010+
|
|
|
- ' DestTarget.Options := Options;'#013#010+
|
|
|
- ' DestTarget.Name := Name;'#013#010+
|
|
|
- ' DestTarget.Extension:= Extension;'#013#010+
|
|
|
- ' DestTarget.FPCTarget := FPCTarget;'#013#010+
|
|
|
- ' DestTarget.FileType := FileType;'#013#010+
|
|
|
- ' Dest','Target.Directory := Directory;'#013#010+
|
|
|
- ' DestTarget.ResourceStrings := ResourceStrings;'#013#010+
|
|
|
- ' DestTarget.Install := Install;'#013#010+
|
|
|
- ' DestTarget.FTargetSourceFileName := fTargetSourceFileName;'#013#010+
|
|
|
- ' DestTarget.ObjectPath.Assign(ObjectPath);'#013#010+
|
|
|
- ' DestT','arget.UnitPath.Assign(UnitPath);'#013#010+
|
|
|
- ' DestTarget.IncludePath.Assign(IncludePath);'#013#010+
|
|
|
- ' DestTarget.FXML := FXML;'#013#010+
|
|
|
- ' DestTarget.AfterCompile := AfterCompile;'#013#010+
|
|
|
- ' DestTarget.BeforeCompile := BeforeCompile;'#013#010+
|
|
|
- ' DestTarget.BeforeClean := Bef','oreCompile;'#013#010+
|
|
|
- ' DestTarget.AfterClean := AfterClean;'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' inherited AssignTo(Dest);'#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+
|
|
|
- 'en','d;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetImportLibFileName(AOS : TOS) : String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := GetImportLibraryFilename(Name,AOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetUnitLibFileName(AOS : TOS): String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' if AOS in [atari,netwlibc,go32v2,watcom,wdos','x,msdos] then'#013#010+
|
|
|
- ' Result := Name+LibExt'#013#010+
|
|
|
- ' else if AOS in [java] then'#013#010+
|
|
|
- ' Result:=Name+'#039'.jar'#039#013#010+
|
|
|
- ' else if AOS in [macos] then'#013#010+
|
|
|
- ' Result:=Name+'#039'Lib'#039#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' Result:='#039'libp'#039'+Name+LibExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.SetOptions(const AVal','ue: 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+
|
|
|
- 'function TTa','rget.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.GetRSJFileName: String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=Name+RSJext;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetProgramFileName(AOS : TOS): String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := AddProgramExtension(Name, AOS);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetProgramDebugFile','Name(AOS: TOS): String;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result := Name + DbgExt;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'function TTarget.GetOutputFileName(AOs: TOS): String;'#013#010+
|
|
|
- 'begin'#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, False);'#013#010+
|
|
|
- ' D:=ExtractFilePath(N);'#013#010+
|
|
|
- ' E:=E','xtractFileExt(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+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.SetXML(const AValue: string);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FXML:=FixPath(AValue, False);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- 'p','rocedure TTarget.GetCleanFiles(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+
|
|
|
- ' List.Add(APrefixU + ObjectFileName);'#013#010+
|
|
|
- ' If (TargetType in [ttUni','t,ttImplicitUnit,ttExampleUnit, ttCleanOnl'+
|
|
|
- 'yUnit]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' List.Add(APrefixU + UnitFileName);'#013#010+
|
|
|
- ' if (AOS in AllSmartLinkLibraryOSes) and FileExists(APrefixU + Ge'+
|
|
|
- 'tUnitLibFileName(AOS)) then'#013#010+
|
|
|
- ' List.Add(APrefixU + GetU','nitLibFileName(AOS));'#013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TTarget.Create(ACollection: TCollection);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Crea','te(ACollection);'#010+
|
|
|
+ ' FInstall:=True;'#010+
|
|
|
+ ' FCPUs:=AllCPUs;'#010+
|
|
|
+ ' FOSes:=AllOSes;'#010+
|
|
|
+ ' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
|
|
|
+ ' FObjectPath:=TConditionalStrings.Create(TC','onditionalString);'#010+
|
|
|
+ ' FDependencies:=TDependencies.Create(TDependency);'#010+
|
|
|
+ ' FCommands:=TCommands.Create(TCommand);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'destructor TTarget.Destroy;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FreeAndNil(FUnitPath);'#010+
|
|
|
+ ' FreeAndNil(FObjectPath);'#010+
|
|
|
+ ' FreeAndNil(FIncludePath);'#010+
|
|
|
+ ' FreeA','ndNil(FDependencies);'#010+
|
|
|
+ ' FreeAndNil(FCommands);'#010+
|
|
|
+ ' FreeAndNil(Foptions);'#010+
|
|
|
+ ' inherited Destroy;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.AssignTo(Dest: TPersistent);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' DestTarget: TTarget;'#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 := OSe','s;'#010+
|
|
|
+ ' DestTarget.Mode := Mode;'#010+
|
|
|
+ ' DestTarget.Options := Options;'#010+
|
|
|
+ ' DestTarget.Name := Name;'#010+
|
|
|
+ ' DestTarget.Extension:= Extension;'#010+
|
|
|
+ ' DestTarget.FPCTarget := FPCTarget;'#010+
|
|
|
+ ' DestTarget.FileType := FileType;'#010+
|
|
|
+ ' DestTarget.Directory := D','irectory;'#010+
|
|
|
+ ' DestTarget.ResourceStrings := ResourceStrings;'#010+
|
|
|
+ ' DestTarget.Install := Install;'#010+
|
|
|
+ ' DestTarget.FTargetSourceFileName := fTargetSourceFileName;'#010+
|
|
|
+ ' DestTarget.ObjectPath.Assign(ObjectPath);'#010+
|
|
|
+ ' DestTarget.UnitPath.Assign(Unit','Path);'#010+
|
|
|
+ ' DestTarget.IncludePath.Assign(IncludePath);'#010+
|
|
|
+ ' DestTarget.FXML := FXML;'#010+
|
|
|
+ ' DestTarget.AfterCompile := AfterCompile;'#010+
|
|
|
+ ' DestTarget.BeforeCompile := BeforeCompile;'#010+
|
|
|
+ ' DestTarget.BeforeClean := BeforeCompile;'#010+
|
|
|
+ ' DestTarget.Afte','rClean := 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.Create;'#010+
|
|
|
+ ' Result:=FOptions;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetImportLibFileName(A','OS : TOS) : String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result := GetImportLibraryFilename(Name,AOS);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetUnitLibFileName(AOS : TOS): String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if AOS in [atari,netwlibc,go32v2,watcom,wdosx,msdos] then'#010+
|
|
|
+ ' Result := Name+LibExt'#010+
|
|
|
+ ' else if AO','S in [java] then'#010+
|
|
|
+ ' Result:=Name+'#039'.jar'#039#010+
|
|
|
+ ' else if AOS in [macos] then'#010+
|
|
|
+ ' Result:=Name+'#039'Lib'#039#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:='#039'libp'#039'+Name+LibExt;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TTarget.SetOptions(const AValue: TStrings);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If (AValue=Nil) or (AValue.Count=0) the','n'#010+
|
|
|
+ ' FreeAndNil(FOptions)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Options.Assign(AValue);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'function TTarget.GetSourceFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+FExtension;'#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.GetRSJFileName: String;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Name+RSJext;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TTarge','t.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.GetOutputFileName(AOs: TO','S): 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+
|
|
|
+ 'procedure TTarget.SetName(con','st 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);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If not(ACPU in CPUs) or not(AO','S in OSes) then'#010+
|
|
|
+ ' exit;'#010+
|
|
|
+ ' List.Add(APrefixU + ObjectFileName);'#010+
|
|
|
+ ' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit, ttCleanOnlyU'+
|
|
|
+ 'nit]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(APrefixU + UnitFileName);'#010+
|
|
|
+ ' if (AOS in AllSmartLinkLibraryOSes) a','nd FileExists(APrefixU + '+
|
|
|
+ 'GetUnitLibFileName(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + GetUnitLibFileName(AOS));'#010+
|
|
|
' if (AOS in AllImportLibraryOSes) and FileExists(APrefixU + GetIm'+
|
|
|
- 'portLibFilename(AOS)) then'#013#010+
|
|
|
- ' List.Add(APrefixU + GetImportLibFilename(AOS));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else If (TargetType in [ttProgram,ttExampleProgram]',') then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' List.Add(APrefixB + GetProgramFileName(AOS));'#013#010+
|
|
|
- ' if FileExists(APrefixB + GetProgramDebugFileName(AOS)) then'#013#010+
|
|
|
- ' List.Add(APrefixB + GetProgramDebugFileName(AOS));'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' If ResourceStrings then'#013#010+
|
|
|
- ' begin'#013,#010+
|
|
|
- ' // choose between 2 possible resource files'#013#010+
|
|
|
- ' if FileExists(APrefixU + RSJFileName) then'#013#010+
|
|
|
- ' List.Add(APrefixU + RSJFileName)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' List.Add(APrefixU + RSTFileName);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' // Maybe add later ? AddCond','itionalStrings(List,CleanFiles);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'portLibFilename(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + GetImp','ortLibFilename(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(APrefixB + ','GetProgramDebugFileName(AOS));'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' If ResourceStrings then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // choose between 2 possible resource files'#010+
|
|
|
+ ' if FileExists(APrefixU + RSJFileName) then'#010+
|
|
|
+ ' List.Add(APrefixU + RSJFileName)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' List.','Add(APrefixU + RSTFileName);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' // Maybe add later ? AddConditionalStrings(List,CleanFiles);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TTarget.GetInstallFiles(List: TStrings; const APrefixU, APre'+
|
|
|
- 'fixB: String; ACPU: TCPU; AOS : TOS);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' If Not (TargetType in [ttProgram,ttExampleProgram]) and FileExists(A'+
|
|
|
- 'PrefixU + ','ObjectFileName) then'#013#010+
|
|
|
- ' // The compiler does not create an objectfile for all programs.'#013+
|
|
|
- #010+
|
|
|
- ' List.Add(APrefixU + ObjectFileName);'#013#010+
|
|
|
- ' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' List.Add(APrefixU + UnitFil','eName);'#013#010+
|
|
|
- ' if (AOS in AllSmartLinkLibraryOSes) and FileExists(APrefixU + GetU'+
|
|
|
- 'nitLibFileName(AOS)) then'#013#010+
|
|
|
- ' List.Add(APrefixU + GetUnitLibFileName(AOS));'#013#010+
|
|
|
- ' if (AOS in AllImportLibraryOSes) and FileExists(APrefixU + GetImpo'+
|
|
|
- 'rtLibFilena','me(AOS)) then'#013#010+
|
|
|
- ' List.Add(APrefixU + GetImportLibFilename(AOS));'#013#010+
|
|
|
- ' end'#013#010+
|
|
|
- ' else If (TargetType in [ttProgram,ttExampleProgram]) then'#013#010+
|
|
|
- ' List.Add(APrefixB + GetProgramFileName(AOS));'#013#010+
|
|
|
- ' If ResourceStrings then'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' // ch','oose between 2 possible resource files'#013#010+
|
|
|
- ' if FileExists(APrefixU + RSJFileName) then'#013#010+
|
|
|
- ' List.Add(APrefixU + RSJFileName)'#013#010+
|
|
|
- ' else'#013#010+
|
|
|
- ' List.Add(APrefixU + RSTFileName);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TTarget.GetArchiveFiles','(List: TStrings; 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+
|
|
|
- ' // Includes'#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+
|
|
|
- '{*********************************************************************'+
|
|
|
- '*******'#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+
|
|
|
- ' r','esult := '#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 TS','ource.GetInstallFiles(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+
|
|
|
+ 'fixB: String; ACPU: TCPU; AOS : TOS);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' UnitsDir : string',';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' UnitsDir := Installer.BuildEngine.AddPathPrefix(nil, APrefixU);'#010+
|
|
|
+ ' If Not (TargetType in [ttProgram,ttExampleProgram]) and FileExists(U'+
|
|
|
+ 'nitsDir + ObjectFileName) then'#010+
|
|
|
+ ' // The compiler does not create an objectfile for all program','s.'#010+
|
|
|
+ ' List.Add(APrefixU + ObjectFileName);'#010+
|
|
|
+ ' If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' List.Add(APrefixU + UnitFileName);'#010+
|
|
|
+ ' if (AOS in AllSmartLinkLibraryOSes) and FileExists(UnitsDir + Ge'+
|
|
|
+ 'tUnitLibFil','eName(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + GetUnitLibFileName(AOS));'#010+
|
|
|
+ ' if (AOS in AllImportLibraryOSes) and FileExists(UnitsDir + GetIm'+
|
|
|
+ 'portLibFilename(AOS)) then'#010+
|
|
|
+ ' List.Add(APrefixU + GetImportLibFilename(AOS));'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else I','f (TargetType in [ttProgram,ttExampleProgram]) then'#010+
|
|
|
+ ' List.Add(APrefixB + GetProgramFileName(AOS));'#010+
|
|
|
+ ' If ResourceStrings then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' // choose between 2 possible resource files'#010+
|
|
|
+ ' if FileExists(UnitsDir + RSJFileName) then'#010+
|
|
|
+ ' ',' List.Add(APrefixU + RSJFileName)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' List.Add(APrefixU + RSTFileName);'#010+
|
|
|
+ ' end;'#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 i','n 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.Dependenc','yType=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+
|
|
|
+ '{*************','******************************************************'+
|
|
|
+ '*********'#010+
|
|
|
+ ' TSource'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TCommands.GetCommand(const Dest : String): TComman','d;'#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+
|
|
|
- 'procedure TCommands.SetCommandItem(Index : Integer; const AValue: T','C'+
|
|
|
- 'ommand);'#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): T','Command;'+
|
|
|
- #013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=AddCommand(fdefaultAt,Cmd,Options,'#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TSource.GetInstallSourcePath: string;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' i','f 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+
|
|
|
+ ' inherited Create(AColle','ction);'#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(InstallSourcePa'+
|
|
|
+ 'th)+E','xtractFileName(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(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'pro','cedure TCommands.SetCommandItem(Index : Integer; const AValue: TC'+
|
|
|
+ 'ommand);'#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+
|
|
|
+ ' ): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(fde','faultAt,Cmd,options,Dest,Source);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'Function TCommands.AddCommand(At: TCommandAt; const Cmd: String) : TCo'+
|
|
|
- 'mmand;'#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:','=AddCommand(At,Cmd,Options,'#039#039','#039#039');'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'mmand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=AddCommand(At,Cmd,'#039#039','#039#039','#039#039');'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'function TCommands.AddCommand(At: TCommandAt; const Cmd, Options: Stri',
|
|
|
+ 'ng ): 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','.ParseOptions(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+
|
|
|
+ ', Source: String): TCommand;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=Add as TCommand;'#010+
|
|
|
+ ' Result.Command:=Cmd;'#010+
|
|
|
+ ' If (Optio','ns<>'#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+
|
|
|
- ' 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+
|
|
|
+ '*******'#010+
|
|
|
+ ' TCondition','alString'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'Constructor TConditionalString.Create;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' ',' TConditionalStrings'#013#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:=AClas','s;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ ';'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create;'#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+
|
|
|
+ 'onditionalString;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TConditionalString(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'procedure TConditionalStrings.SetConditionalString(Index : Integer; co'+
|
|
|
- 'nst A','Value: TConditionalString);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Items[Index]:=AValue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 'nst AValue: TCon','ditionalString);'#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+
|
|
|
- 'Functi','on TConditionalStrings.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+
|
|
|
- 'Function TConditionalStrings.Add(Const Value : String;const OSes:TOSe',
|
|
|
- 's) : TConditionalString;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' result:=Add(Value,AllCPUs,OSes);'#013#010+
|
|
|
- 'end;'#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.A','dd(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'+
|
|
|
+ ') : TConditionalString;'#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.OSes:=OSes;'#010+
|
|
|
+ ' Result.C','PUs:=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+
|
|
|
- 'Functio','n TDependency.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+
|
|
|
- '{*************************************************************','******'+
|
|
|
- '*********'#013#010+
|
|
|
- ' TDependencies'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TDependency'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'function TDependencies.GetDependency(Index : Integer): TDependency;'#013+
|
|
|
- #010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' Result:=TDependen','cy(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,AllCPUs,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 TD','ependencies.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+
|
|
|
+ '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.AsSt','ring;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Procedure TDependency.SetVersion(const V : string);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FVersion.AsString:=V;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TDependencies'#010+
|
|
|
+ '**************','******************************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'function TDependencies.GetDependency(Index : Integer): TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result:=TDependency(Items[Index]);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure TDependencies.SetDependency(Index : Integer; co','nst 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 TDependencies.Add(Const V','alue : 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,OS','es);'#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+
|
|
|
- 'e','nd;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- '{$ifdef cpu_only_overloads}'#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;'#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 Value : 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:=inherit','ed Add(Value,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+
|
|
|
- '{$ifdef 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.AddIn','clude(Const 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+
|
|
|
+ ': TDependency;'#010+
|
|
|
+ 'begi','n'#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+
|
|
|
+ 'Function TDependencies.AddU','nit(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 TDependencies.AddInclude(Cons','t 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 : St','ring;'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' N:=FixPath(Value, False);'#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:=AVal','ue;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ 's) : TDependency;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' result:=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.AddInclude(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 TDependency;'#010+
|
|
|
+ ' Result.FDepende','ncyType:=depInclude;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' TFunctionItem'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TValueItem'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'constructor TFunctio','nItem.Create(AFunc: TReplaceFunction);'#013#010+
|
|
|
- 'begin'#013#010+
|
|
|
- ' FFunc:=AFunc;'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor T','ValueItem.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 TDicti','onary.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:=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]:=TValueItem.Create(Value);'#013#010+
|
|
|
- 'end;'#013#010+
|
|
|
- #013#010+
|
|
|
- #013#010+
|
|
|
- 'procedure TDictionary.AddFunction(const AName: String; FReplacement:',' '+
|
|
|
- 'TReplaceFunction);'#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 TDictiona','ry.RemoveItem(const 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(AName: String): S','tring;'#013#010+
|
|
|
- 'begin'#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.C','reateFmt(SErrNoDictionaryItem,[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 ASour','ce: 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+
|
|
|
- ' Result:=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 TDictionary.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+
|
|
|
- ' Whil','e I<High(Macros) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' AddVariable(Macros[i],Macros[I+1]);'#013#010+
|
|
|
- ' Inc(I,2);'#013#010+
|
|
|
- ' end;'#013#010+
|
|
|
- ' Result:=ReplaceStrings(Source);'#013#010+
|
|
|
- ' While I<High(Macros) do'#013#010+
|
|
|
- ' begin'#013#010+
|
|
|
- ' 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+
|
|
|
'{*********************************************************************'+
|
|
|
- '*******'#013#010+
|
|
|
- ' Default Instances'#013#010+
|
|
|
+ '*******'#010+
|
|
|
+ ' TNotifyEventItem'#010+
|
|
|
+ '*****','***************************************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNotifyEventItem.CallEvent(Sender: TObject);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if assigned(OnEvent) then'#010+
|
|
|
+ ' OnEvent(Sender);'#010+
|
|
|
+ ' if assigned(OnProcEvent) then'#010+
|
|
|
+ ' OnProcEvent(sender);',#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' TNotifyEventCollection'#010+
|
|
|
+ '**********************************************************************'+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TNotifyEventCo','llection.create(ASupportedActionSet: TNoti'+
|
|
|
+ 'fyEventActionSet);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' FSupportedActionSet:=ASupportedActionSet;'#010+
|
|
|
+ ' inherited create(TNotifyEventItem);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNotifyEventCollection.AppendEvent(AnAction: TNotifyEventAct'+
|
|
|
+ 'ion; AnEvent: T','NotifyEvent);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' item: TNotifyEventItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not (AnAction in FSupportedActionSet) then'#010+
|
|
|
+ ' raise Exception.Create(SErrEventNotSupported);'#010+
|
|
|
+ ' item := TNotifyEventItem(add);'#010+
|
|
|
+ ' item.OnEvent:=AnEvent;'#010+
|
|
|
+ ' item.OnAction:=AnAction;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010,
|
|
|
+ 'procedure TNotifyEventCollection.AppendProcEvent(AnAction: TNotifyEven'+
|
|
|
+ 'tAction; AnProcEvent: TNotifyProcEvent);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' item: TNotifyEventItem;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' if not (AnAction in FSupportedActionSet) then'#010+
|
|
|
+ ' raise Exception.Create(SErrEventNotSuppor','ted);'#010+
|
|
|
+ ' item := TNotifyEventItem(add);'#010+
|
|
|
+ ' item.OnProcEvent:=AnProcEvent;'#010+
|
|
|
+ ' item.OnAction:=AnAction;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ 'procedure TNotifyEventCollection.CallEvents(AnAction: TNotifyEventActi'+
|
|
|
+ 'on; Sender: TObject);'#010+
|
|
|
+ 'var'#010+
|
|
|
+ ' i: integer;'#010+
|
|
|
+ ' item: TNotifyEventItem;',#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' for i := 0 to Count-1 do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' item := TNotifyEventItem(Items[i]);'#010+
|
|
|
+ ' if item.OnAction=AnAction then'#010+
|
|
|
+ ' item.CallEvent(Sender);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ '{*********************************************************************',
|
|
|
+ '*******'#010+
|
|
|
+ ' TDictionary'#010+
|
|
|
'**********************************************************************'+
|
|
|
- '******}'#013#010+
|
|
|
- #013#010+
|
|
|
- 'var'#013#010+
|
|
|
- ' DefInstaller : TCusto','mInstaller;'#013#010+
|
|
|
- #013#010+
|
|
|
+ '******}'#010+
|
|
|
+ #010+
|
|
|
+ 'constructor TDictionary.Create(AOwner: TComponent);'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' inherited Create(AOwner);'#010+
|
|
|
+ ' FList:=TStringList.C','reate;'#010+
|
|
|
+ ' FList.Sorted:=True;'#010+
|
|
|
+ ' FList.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 AName: 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.Cr','eate(FReplacement);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'procedure 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 TDict','ionary.GetValue(AName: String): String;'#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+
|
|
|
+ ' Rais','e EDictionaryError.CreateFmt(SErrNoDictionaryItem,[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; Const Max'+
|
|
|
+ 'Depth: Integer = 10): 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+
|
|
|
+ ' el','se'#010+
|
|
|
+ ' FV:='#039#039';'#010+
|
|
|
+ ' if MaxDepth > 0 then'#010+
|
|
|
+ ' Result:=Result+ReplaceStrings(GetValue(FN,FV), MaxDepth-1)'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' Result:=Result+GetValue(FN,FV);'#010+
|
|
|
+ ' P:=Pos('#039'$('#039',S);'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=Result+S;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function TDictiona','ry.Substitute(Const Source : String; Macros : Arra'+
|
|
|
+ 'y 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],Macros[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+
|
|
|
+ '{*********************************************************************'+
|
|
|
+ '*******'#010+
|
|
|
+ ' Default Instances'#010+
|
|
|
+ '************','********************************************************'+
|
|
|
+ '********}'#010+
|
|
|
+ #010+
|
|
|
+ 'var'#010+
|
|
|
+ ' DefInstaller : TCustomInstaller;'#010+
|
|
|
+ #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 Installer: TCusto','mInstaller;'#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+
|
|
|
- 'procedure TComm','and.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+
|
|
|
- ' inherited 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.P','arseOptions(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+
|
|
|
- ' FreeAndN','il(CustomFpMakeCommandlineValues);'#013#010+
|
|
|
- ' FreeAndNil(CustomFpmakeCommandlineOptions);'#013#010+
|
|
|
- ' FreeAndNil(DefInstaller);'#013#010+
|
|
|
- ' FreeAndNil(GlobalDictionary);'#013#010+
|
|
|
- ' FreeAndNil(Defaults);'#013#010+
|
|
|
- 'end.'#013#010
|
|
|
+ #010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' If Not Assigned(DefInstaller) then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' try',#010+
|
|
|
+ ' DefInstaller:=InstallerClass.Create(Nil);'#010+
|
|
|
+ ' except'#010+
|
|
|
+ ' On E : Exception do'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' if IsConsole then'#010+
|
|
|
+ ' begin'#010+
|
|
|
+ ' WriteLn(SErrInstaller);'#010+
|
|
|
+ ' WriteLn(E.Message);'#010+
|
|
|
+ ' ',' halt(1);'#010+
|
|
|
+ ' end'#010+
|
|
|
+ ' else'#010+
|
|
|
+ ' raise;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' end;'#010+
|
|
|
+ ' Result:=DefInstaller;'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ 'Function Installer: TCustomInstaller;'#010+
|
|
|
+ 'begin'#010+
|
|
|
+ ' Result := Installer(TFPCInstaller);'#010+
|
|
|
+ 'end;'#010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ #010+
|
|
|
+ '{ TComman','d }'#010+
|
|
|
+ #010+
|
|
|
+ 'function TCommand.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(FOptions)'#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 TCo','mmand.CmdLineOptions: 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:=@Get','FPMakeName;'#010+
|
|
|
+ ' CustomFpmakeCommandlineOptions:=nil;'#010+
|
|
|
+ ' CustomFpMakeCommandlineValues:=nil;'#010+
|
|
|
+ #010+
|
|
|
+ 'Finalization'#010+
|
|
|
+ ' FreeAndNil(CustomFpMakeCommandlineValues);'#010+
|
|
|
+ ' FreeAndNil(CustomFpmakeCommandlineOptions);'#010+
|
|
|
+ ' FreeAndNil(DefInstaller);'#010+
|
|
|
+ ' FreeAndNil(Globa','lDictionary);'#010+
|
|
|
+ ' FreeAndNil(Defaults);'#010+
|
|
|
+ 'end.'#010+
|
|
|
+ #010
|
|
|
);
|
joost