Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{$ifdef Delphi}
const fpmkunitsrc : array[0..1137] of string[240]=(
{$else Delphi}
const fpmkunitsrc : array[0..1137,1..240] of char=(
{$endif Delphi}
'{'#010+
' This file is part of the Free Pascal Makefile Package'#010+
#010+
' Implementation of fpmake classes and functions'#010+
#010+
' Copyright (c) 2007 by the freepascal team'#010+
#010+
' See the file COPYING.FPC, included in this distribution,'#010+
' for details abo','ut the copyright.'#010+
#010+
' This program is distributed in the hope that it will be useful,'#010+
' but WITHOUT ANY WARRANTY; without even the implied warranty of'#010+
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.'#010+
#010+
' ***************************','****************************************'+
'***}'#010+
#010+
'unit fpmkunit;'#010+
#010+
'{$Mode objfpc}'#010+
'{$H+}'#010+
'{$inline on}'#010+
#010+
'{ For target or cpu dependent dependencies also add an overload where '+
'you'#010+
' can pass only a set of cpus. This is disabled for now because it cr',
'eates'#010+
' an error in the compiler with overload choosing }'#010+
'{ define cpu_only_overloads}'#010+
#010+
'Interface'#010+
#010+
'{$IFDEF 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 NDS}'#010+
' ','{$DEFINE NO_THREADING}'#010+
'{$ENDIF NDS}'#010+
#010+
'{$IFDEF NETBSD}'#010+
' { NetBSD pthreads are not yet working, try to use fpmake without thre'+
'ads }'#010+
' {$DEFINE NO_THREADING}'#010+
'{$ENDIF NETBSD}'#010+
#010+
'{$ifndef NO_UNIT_PROCESS}'#010+
' {$define HAS_UNIT_PROCESS}'#010+
'{$endif NO_UNI','T_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+
'{$ifdef 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+
'{$if','def HAS_UNIT_PROCESS}'#010+
' ,process'#010+
'{$endif HAS_UNIT_PROCESS}'#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,ft','Resource,ftExecutable,ftSt'+
'aticLibrary,'#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,aarch64'#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+
' palm','os,macos,darwin,emx,watcom,morphos,netwlibc,'#010+
' win64,wince,gba,nds,embedded,symbian,haiku,iphonesim,'#010+
' aix,java,android,nativent,msdos,wii,aros,dragonfly,'#010+
' win16'#010+
' );'#010+
' TOSes = Set of TOS;'#010+
#010+
' TCompilerMode = (cmFPC,cmTP,cmObjFPC,cmDe','lphi,cmMacPas);'#010+
' TCompilerModes = Set of TCompilerMode;'#010+
#010+
' TInstallMOde = (imInstall, imUnInstall);'#010+
#010+
' TTargetType = (ttProgram,ttUnit,ttImplicitUnit,ttCleanOnlyUnit,ttExa'+
'mpleUnit,ttExampleProgram,ttFPDoc);'#010+
' TTargetTypes = set of TTargetT','ype;'#010+
#010+
' TFPDocFormat = (ffHtml, ffHtm, ffXHtml, ffLaTex, ffXMLStruct, ffChm)'+
';'#010+
' TFPDocFormats = set of TFPDocFormat;'#010+
#010+
' TTargetState = (tsNeutral,tsConsidering,tsNoCompile,tsCompiled,tsIns'+
'talled,tsNotFound);'#010+
' TTargetStates = Set of TTarget','State;'#010+
#010+
' TSourceType = (stDoc,stSrc,stExample,stTest);'#010+
' TSourceTypes = set of TSourceType;'#010+
#010+
' TVerboseLevel = (vlError,vlWarning,vlInfo,vldebug,vlCommand);'#010+
' TVerboseLevels = Set of TVerboseLevel;'#010+
#010+
' TCommandAt = (caBeforeCompile,caAfterC','ompile,'#010+
' caBeforeInstall,caAfterInstall,'#010+
' caBeforeArchive,caAfterArchive,'#010+
' caBeforeClean,caAfterClean,'#010+
' caBeforeDownload,caAfterDownload);'#010+
#010+
' TDependencyType = (depPackage,depImpli','citPackage,depUnit,depInclud'+
'e);'#010+
' TDependencyTypes = set of TDependencyType;'#010+
#010+
' TLogEvent = Procedure (Level : TVerboseLevel; Const Msg : String) of'+
' Object;'#010+
' TNotifyProcEvent = procedure(Sender: TObject);'#010+
#010+
' TRunMode = (rmCompile,rmBuild,r','mInstall,rmArchive,rmClean,rmDistCl'+
'ean,rmManifest,rmZipInstall,rmPkgList,rmUnInstall);'#010+
#010+
' TBuildMode = (bmOneByOne, bmBuildUnit{, bmSkipImplicitUnits});'#010+
' TBuildModes = set of TBuildMode;'#010+
' TProcessPackageResult = (ppHandled, ppDelayed);'#010+
' ','TCheckDependencyResult = (cdAvailable, cdNotAvailable, cdNotYetAva'+
'ilable);'#010+
#010+
'Const'#010+
' // Aliases'#010+
' Amd64 = X86_64;'#010+
' PPC = PowerPC;'#010+
' PPC64 = PowerPC64;'#010+
' DOS = Go32v2;'#010+
' MacOSX = Darwin;'#010+
#010+
' AllOSes = [Low(TOS)..High(TOS)];'#010+
' AllCPUs = [Low','(TCPU)..High(TCPU)];'#010+
' AllUnixOSes = [Linux,FreeBSD,NetBSD,OpenBSD,Darwin,QNX,BeOS,Solaris'+
',Haiku,iphonesim,aix,Android,dragonfly];'#010+
' AllBSDOSes = [FreeBSD,NetBSD,OpenBSD,Darwin,iphonesim,dragonfly'+
'];'#010+
' AllWindowsOSes = [Win32,Win64,Wi','nCE];'#010+
' AllAmigaLikeOSes = [Amiga,MorphOS,AROS];'#010+
' AllLimit83fsOses = [go32v2,os2,emx,watcom,msdos,win16];'#010+
#010+
' AllSmartLinkLibraryOSes = [Linux,msdos,amiga,morphos,aros,win16]; //'+
' OSes that use .a library files for smart-linking'#010+
' AllImportL','ibraryOSes = AllWindowsOSes + [os2,emx,netwlibc,netware,'+
'watcom,go32v2,macos,nativent,msdos,win16];'#010+
#010+
' { This table is kept OS,Cpu because it is easier to maintain (PFV) }'+
#010+
' OSCPUSupported : array[TOS,TCpu] of boolean = ('#010+
' { os n','one i386 m68k ppc sparc x86_64 arm p'+
'pc64 avr armeb mips mipsel jvm i8086 aarch64 }'#010+
' { none } ( false, false, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { lin','ux } ( false, true, true, true, true, true, true, t'+
'rue, false, true , true , true , false, false, true ),'#010+
' { go32v2 } ( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' ',' { win32 } ( false, true, false, false, false, false, false, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { os2 } ( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, f','alse),'#010+
' { freebsd } ( false, true, true, false, false, true, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { beos } ( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, ','false, false),'#010+
' { netbsd } ( false, true, true, true, true, true, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { amiga } ( false, false, true, true, false, false, false, fal'+
'se, false, false, false, false,',' false, false, false),'#010+
' { atari } ( false, false, true, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { solaris } ( false, true, false, false, true, true, false, fal'+
'se, false, false, false',', false, false, false, false),'#010+
' { qnx } ( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { netware } ( false, true, false, false, false, false, false, fal'+
'se, false, fals','e, false, false, false, false, false),'#010+
' { openbsd } ( false, true, true, false, false, true, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { wdosx } ( false, true, false, false, false, false, false, fal'+
'se, fal','se, false, false, false, false, false, false),'#010+
' { palmos } ( false, false, true, false, false, false, true, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { macos } ( false, false, false, true, false, false, false, fa',
'lse, false, false, false, false, false, false, false),'#010+
' { darwin } ( false, true, false, true, false, true, true, tru'+
'e, false, false, false, false, false, false, true ),'#010+
' { emx } ( false, true, false, false, false, false, f','alse, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { watcom } ( false, true, false, false, false ,false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { morphos } ( false, false, false, true, false ,','false, false, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { netwlibc }( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { win64 } ( false, false, false, false,',' false, true, false, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { wince }( false, true, false, false, false, false, true, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { gba } ( false, false, false',', false, false, false, true, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { nds } ( false, false, false, false, false, false, true, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { embedded }( false, true',', true, true, true, true, true, t'+
'rue, true, true , false, false, false, false, false),'#010+
' { symbian } ( false, true, false, false, false, false, true, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { haiku } ( fal','se, true, false, false, false, false, false, f'+
'alse, false, false, false, false, false, false, false),'#010+
' { iphonesim}( false, true, false, false, false, true, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { aix ','} ( false, false, false, true, false, false, false, t'+
'rue, false, false, false, false, false, false, false),'#010+
' { java } ( false, false, false, false, false, false, false, fal'+
'se, false, false, false, false, true , false, false),'#010+
' {',' android } ( false, true, false, false, false, false, true, f'+
'alse, false, false, false, true, true , false, false),'#010+
' { nativent }( false, true, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false','),'#010+
' { msdos } ( false, false, false, false, false, false, false, fal'+
'se, false, false, false, false, false, true , false),'#010+
' { wii } ( false, false, false, true , false, false, false, fal'+
'se, false, false, false, false, false, fals','e, false),'#010+
' { aros } ( true, false, false, false, false, false, false, fal'+
'se, false, false, false, false, false, false, false),'#010+
' { dragonfly}( false, false, false, false, false, true, false, fal'+
'se, false, false, false, false, fal','se, false, false),'#010+
' { win16 } ( false, false, false, false, false, false, false, fal'+
'se, false, false, false, false, false, true , 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+
' RsjExt = '#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'f','pmake.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];'+
#010+
' ProgramTargets = [ttProgram,ttExa','mpleProgram];'#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+
' proce','dure SetName(const AValue: String);virtual;'#010+
' Public'#010+
' property Name : String Read FName Write SetName;'#010+
' end;'#010+
#010+
' { TNamedCollection }'#010+
#010+
' TNamedCollection = Class(TCollection)'#010+
' private'#010+
' FUniqueNames: Boolean;'#010+
' private'#010+
' function Ge','tItem(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 Unique','Names : Boolean Read FUniqueNames;'#010+
' property Items[Index: Integer]: TNamedItem read GetItem write SetI'+
'tem;'#010+
' end;'#010+
#010+
' { TNamedItemList }'#010+
#010+
' TNamedItemList = Class(TFPList)'#010+
' private'#010+
' function GetNamedItem(Index : Integer): TNamedItem;'#010,
' procedure SetNamedItem(Index : Integer; const AValue: TNamedItem);'+
#010+
' public'#010+
' Function IndexOfName(const AName : String) : Integer;'#010+
' Function ItemByName(const ANAme : String) : TNamedItem;'#010+
' Property NamedItems[Index : Integer] :',' TNamedItem Read GetNamedI'+
'tem 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+
' Functio','n 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+
' P','roperty Command : String Read FCommand Write FCommand;'#010+
' Property Options : TStrings Read GetOptions Write SetOptions;'#010+
' Property At : TCommandAt Read FCommandAt Write FCommandAt;'#010+
' Property IgnoreResult : Boolean Read FIgnoreResult W','rite FIgnore'+
'Result;'#010+
' Property BeforeCommand : TNotifyEvent Read FBeforeCommand Write FB'+
'eforeCommand;'#010+
' Property AfterCommand : TNotifyEvent Read FAfterCommand Write FAft'+
'erCommand;'#010+
' end;'#010+
#010+
' { TCommands }'#010+
#010+
' TCommands = Class(TNamedColl','ection)'#010+
' private'#010+
' FDefaultAt: TCommandAt;'#010+
' function GetCommand(const Dest : String): TCommand;'#010+
' function GetCommandItem(Index : Integer): TCommand;'#010+
' procedure SetCommandItem(Index : Integer; const AValue: TCommand);'+
#010+
' Public'#010+
' ',' Function AddCommand(Const Cmd : String) : TCommand;'#010+
' Function AddCommand(Const Cmd,Options : String) : TCommand;'#010+
' Function AddCommand(Const Cmd,Options,Dest,Source : String) : TCom'+
'mand;'#010+
' Function AddCommand(At : TCommandAt; Const',' Cmd : String) : TComm'+
'and;'#010+
' Function AddCommand(At : TCommandAt; Const Cmd,Options : String) :'+
' TCommand;'#010+
' Function AddCommand(At : TCommandAt; Const Cmd,Options, Dest,Sourc'+
'e : String) : TCommand;'#010+
' Property CommandItems[Index : Inte','ger] : TCommand Read GetComman'+
'dItem Write SetCommandItem;'#010+
' Property Commands[Dest : String] : TCommand Read GetCommand; defau'+
'lt;'#010+
' Property DefaultAt : TCommandAt Read FDefaultAt Write FDefaultAt;'#010+
' end;'#010+
#010+
' { TFPVersion }'#010+
#010+
' TFPVersion',' = Class(TPersistent)'#010+
' private'#010+
' FMajor,'#010+
' FMinor,'#010+
' FMicro,'#010+
' FBuild : 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 CompareVersion(AVersion : TFPVersion) : Integer;'#010+
' Function SameVersion(AVersion : TFPVersion) : Boolean;'#010+
' Property AsString : String Read GetAsString Write SetAsString;'#010+
' Pr','operty Empty : Boolean Read GetEmpty;'#010+
' Published'#010+
' Property Major : Integer Read FMajor Write FMajor;'#010+
' Property Minor : Integer Read FMinor Write FMinor;'#010+
' Property Micro : Integer Read FMicro Write FMicro;'#010+
' Property Build : Integer ','Read FBuild Write FBuild;'#010+
' end;'#010+
#010+
' { TConditionalString }'#010+
' TConditionalString = Class'#010+
' private'#010+
' FOSes : TOSes;'#010+
' FCPUs : TCPUs;'#010+
' FValue : String;'#010+
' Public'#010+
' Constructor Create;virtual;'#010+
' Property Value : String Read FVal','ue Write FValue;'#010+
' Property OSes : TOSes Read FOSes Write FOSes;'#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): TConditionalString'+
';'#010+
' procedure SetConditionalString(Index : Integer; const AValue: TCon'+
'ditionalString);'#010+
' Public'#010+
' Construc','tor Create(AClass:TConditionalStringClass);'#010+
' Function Add(Const Value : String) : TConditionalString;inline;'#010+
' Function Add(Const Value : String;const OSes:TOSes) : TConditional'+
'String;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function Ad','d(Const Value : String;const CPUs:TCPUs) : TCondition'+
'alString;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function Add(Const Value : String;const CPUs:TCPUs;const OSes:TOSe'+
's) : TConditionalString;'#010+
' Property ConditionalStrings[Index : Integer','] : TConditionalStrin'+
'g Read GetConditionalString Write SetConditionalString; 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+
' TConditionalDestStringClass = class of TConditionalDestString;'#010+
#010+
' { TConditionalDestStrings }'#010+
#010+
' TConditionalDestStrings = Class(TConditionalStrings)'#010+
' private'#010+
' function GetConditionalSt','ring(Index : Integer): TConditionalDest'+
'String;'#010+
' procedure SetConditionalString(Index : Integer; AValue: TCondition'+
'alDestString);'#010+
' public'#010+
' Constructor Create(AClass:TConditionalDestStringClass);'#010+
' Function Add(Const Value : String; ','ADestPath: String) : TConditi'+
'onalDestString;inline;'#010+
' Function Add(Const Value : String;const OSes:TOSes; ADestPath: Str'+
'ing) : TConditionalDestString;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function Add(Const Value : String;const CPUs:TCP','Us; ADestPath: S'+
'tring) : 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] : TConditionalDestS'+
'tring Read GetConditionalString Write SetConditionalString; default;'#010+
' end;'#010+
#010+
' { TNotifyEventCollection }'#010+
#010+
' TNotifyEventAction = (neaBeforeCompile, neaAfterCompile, neaBeforeIn'+
'stall, neaAfterInstall,'#010+
' ',' neaBeforeClean, neaAfterClean, neaBeforeArch'+
'ive, neaAfterArchive,'#010+
' neaBeforeManifest, neaAfterManifest, neaBefore'+
'PkgList, neaAfterPkgList,'#010+
' neaBeforeUnInstall, neaAfterUnInstall,'#010,
' neaBeforeCreateBuildEngine, neaAfterCreateBuil'+
'dengine);'#010+
#010+
' TNotifyEventActionSet = set of TNotifyEventAction;'#010+
#010+
' TNotifyEventItem = class(TCollectionItem)'#010+
' private'#010+
' FOnAction: TNotifyEventAction;'#010+
' FOnEvent: TN','otifyEvent;'#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 r','ead FOnProcEvent write F'+
'OnProcEvent;'#010+
' procedure CallEvent(Sender: TObject);'#010+
' end;'#010+
#010+
' TNotifyEventCollection = class(TCollection)'#010+
' private'#010+
' FSupportedActionSet: TNotifyEventActionSet;'#010+
' public'#010+
' constructor create(ASupportedActionS','et: TNotifyEventActionSet);'#010+
' procedure AppendEvent(AnAction: TNotifyEventAction; AnEvent: TNoti'+
'fyEvent);'#010+
' procedure AppendProcEvent(AnACtion: TNotifyEventAction; AnProcEven'+
't: TNotifyProcEvent);'#010+
' procedure CallEvents(AnAction: TNoti','fyEventAction; Sender: TObje'+
'ct);'#010+
' end;'#010+
#010+
' { TDictionary }'#010+
#010+
' TReplaceFunction = Function (Const AName,Args : String) : String of '+
'Object;'#010+
#010+
' TDictionary = Class(TComponent)'#010+
' private'#010+
' FList : TStringList;'#010+
' Public'#010+
' Constructor Create(','AOwner : TComponent); override;'#010+
' Destructor Destroy;override;'#010+
' Procedure AddVariable(const AName,Value : String);'#010+
' Procedure AddFunction(const AName : String; FReplacement : TReplac'+
'eFunction);'#010+
' Procedure RemoveItem(const AName :',' String);'#010+
' Function GetValue(AName : String) : String;'#010+
' Function GetValue(const AName,Args : String) : String; virtual;'#010+
' Function ReplaceStrings(Const ASource : String; Const MaxDepth: In'+
'teger = 10) : String; virtual;'#010+
' Function ','Substitute(Const Source : String; Macros : Array of str'+
'ing) : String; virtual;'#010+
' end;'#010+
#010+
' { TPackageDictionary }'#010+
#010+
' TPackageDictionary = Class(TDictionary)'#010+
' private'#010+
' FMasterDictionary: TDictionary;'#010+
' Public'#010+
' Function GetValue(const AN','ame,Args : String) : String; override;'+
#010+
' property MasterDictionary: TDictionary read FMasterDictionary writ'+
'e FMasterDictionary;'#010+
' end;'#010+
#010+
#010+
' { TDependency }'#010+
' TDependency = Class(TConditionalString)'#010+
' private'#010+
' FDependencyType : TDependen','cyType;'#010+
' // Package, Unit'#010+
' FTarget : TObject;'#010+
' FVersion : TFPVersion;'#010+
' FRequireChecksum : Cardinal;'#010+
' // Filenames, Includes'#010+
' FTargetFileName : String;'#010+
' Function GetVersion : string;'#010+
' Procedure SetVersion(const V : st','ring);'#010+
' Public'#010+
' Constructor Create;override;'#010+
' Destructor Destroy;override;'#010+
' Property Target : TObject Read FTarget Write FTarget;'#010+
' Property DependencyType : TDependencyType Read FDependencyType;'#010+
' Property TargetFileName : St','ring Read FTargetFileName Write FTar'+
'getFileName;'#010+
' Property Version : String Read GetVersion Write SetVersion;'#010+
' Property RequireChecksum : Cardinal Read FRequireChecksum Write FR'+
'equireChecksum;'#010+
' end;'#010+
#010+
' { TPackageVariant }'#010+
#010+
' TPackage',' = Class;'#010+
' TPackageVariant = class(TNamedItem)'#010+
' private'#010+
' FOptions: TStrings;'#010+
' FTargets: TTargets;'#010+
' FIncludePath: TConditionalStrings;'#010+
' FSourcePath: TConditionalStrings;'#010+
' public'#010+
' constructor Create(ACollection: TCollection)','; override;'#010+
' destructor Destroy; override;'#010+
' property Options: TStrings read FOptions;'#010+
' Property IncludePath : TConditionalStrings Read FIncludePath;'#010+
' Property SourcePath : TConditionalStrings Read FSourcePath;'#010+
' property Targe','ts: TTargets read FTargets;'#010+
' end;'#010+
#010+
' { TPackageVariants }'#010+
#010+
' TPackageVariants = class(TNamedCollection)'#010+
' private'#010+
' FActivePackageVariantName: string;'#010+
' FDefaultPackageVariantName: string;'#010+
' FIsInheritable: boolean;'#010+
' FMasterPackag','e: TPackage;'#010+
' FName: string;'#010+
' function GetActivePackageVariant: TPackageVariant;'#010+
' function GetDefaultPackageVariant: TPackageVariant;'#010+
' procedure SetActivePackageVariantName(AValue: string);'#010+
' procedure SetDefaultPackageVariant','Name(AValue: string);'#010+
' public'#010+
' function Add(AName: String): TPackageVariant; overload; virtual;'#010+
' property Name: string read FName write FName;'#010+
' property MasterPackage: TPackage read FMasterPackage;'#010+
' property DefaultPackageVaria','nt: TPackageVariant read GetDefaultP'+
'ackageVariant;'#010+
' property ActivePackageVariant: TPackageVariant read GetActivePacka'+
'geVariant;'#010+
' property DefaultPackageVariantName: string read FDefaultPackageVar'+
'iantName write SetDefaultPackageVarian','tName;'#010+
' property ActivePackageVariantName: string read FActivePackageVaria'+
'ntName write SetActivePackageVariantName;'#010+
' property IsInheritable: boolean read FIsInheritable;'#010+
' end;'#010+
#010+
#010+
' TDependencies = Class(TConditionalStrings)'#010+
' functi','on GetDependency(Index : Integer): TDependency;'#010+
' procedure SetDependency(Index : Integer; const AValue: TDependency'+
');'#010+
' Public'#010+
' Function Add(Const Value : String) : TDependency;inline;'#010+
' Function Add(Const Value : String;const OSes:','TOSes) : TDependenc'+
'y;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) : TD','ependency;'#010+
' Function AddUnit(Const Value : String) : TDependency;inline;'#010+
' Function AddUnit(Const Value : String;const OSes:TOSes) : TDepende'+
'ncy;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddUnit(Const Value : String;const CPUs:T','CPUs) : TDepen'+
'dency;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function AddUnit(Const Value : String;const CPUs:TCPUs;const OSes:'+
'TOSes) : TDependency;'#010+
' Function AddInclude(Const Value : String) : TDependency;inline;'#010+
' Function AddInclude(','Const Value : String;const OSes:TOSes) : TDe'+
'pendency;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddInclude(Const Value : String;const CPUs:TCPUs) : TDepe'+
'ndency;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function AddInclude(Const Value : ','String;const CPUs:TCPUs;const '+
'OSes: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: TNotifyEvent;'#010+
' FCPUs: TCPUs;'#010+
' FOSes: TOSes;'#010+
' FMode: TCompilerMode;'#010+
' FResourceStrings: Boolean;'#010+
' FOb','jectPath,'#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 GetSo','urceFileName : String; virtual;'#010+
' Function GetUnitFileName : String; virtual;'#010+
' function GetUnitLibFileName(AOS: TOS): String; 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 GetProgramFileName(AOS : TOS) : String; Virtual;'#010+
' Function GetProgramDebugFileName(AOS : TOS) : String; Virtual;'#010+
' P','ublic'#010+
' Constructor Create(ACollection : TCollection); override;'#010+
' Destructor Destroy; override;'#010+
' procedure AssignTo(Dest: TPersistent); override;'#010+
' Function GetOutputFileName (AOs : TOS) : String; Virtual;'#010+
' Function HaveOption','s : Boolean;'#010+
' procedure SetName(const AValue: String);override;'#010+
' procedure SetXML(const AValue: string);'#010+
' Procedure GetCleanFiles(List : TStrings; const APrefixU, APrefixB '+
': String; ACPU:TCPU; AOS : TOS); virtual;'#010+
' Procedure Get','InstallFiles(List : TStrings; const APrefixU, APref'+
'ixB: String; ACPU:TCPU; AOS : TOS); virtual;'#010+
' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); '+
'virtual;'#010+
' Property Dependencies : TDependencies Read FDependencies;'#010+
' ',' Property Commands : TCommands Read FCommands;'#010+
' Property State : TTargetState Read FTargetState;'#010+
' Property TargetType : TTargetType Read FTargetType Write FTargetTy'+
'pe;'#010+
' Property OSes : TOSes Read FOSes Write FOSes;'#010+
' Property CPU','s : TCPUs Read FCPUs Write FCPUs;'#010+
' Property Mode : TCompilerMode Read FMode Write FMode;'#010+
' Property Options : TStrings Read GetOptions Write SetOptions;'#010+
' Property SourceFileName: String Read GetSourceFileName ;'#010+
' Property UnitFile','Name : String Read GetUnitFileName;'#010+
' Property ObjectFileName : String Read GetObjectFileName;'#010+
' Property RSTFileName : String Read GetRSTFileName;'#010+
' Property RSJFileName : String Read GetRSJFileName;'#010+
' Property FPCTarget : String R','ead FFPCTarget Write FFPCTarget;'#010+
' Property Extension : String Read FExtension Write FExtension;'#010+
' Property FileType : TFileType Read FFileType Write FFileType;'#010+
' Property Directory : String Read FDirectory Write FDirectory;'#010+
' Prope','rty ResourceStrings : Boolean Read FResourceStrings Write F'+
'ResourceStrings;'#010+
' Property Install : Boolean Read FInstall Write FInstall;'#010+
' Property TargetSourceFileName: String Read FTargetSourceFileName;'#010+
' Property ObjectPath : TCondit','ionalStrings Read FObjectPath;'#010+
' Property UnitPath : TConditionalStrings Read FUnitPath;'#010+
' Property IncludePath : TConditionalStrings Read FIncludePath;'#010+
' Property XML: string Read FXML Write SetXML;'#010+
' // Events.'#010+
' Property Before','Compile : TNotifyEvent Read FBeforeCompile Write '+
'FBeforeCompile;'#010+
' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
'erCompile;'#010+
' Property BeforeClean : TNotifyEvent Read FBeforeClean Write FBefor'+
'eClean;'#010+
' Property Aft','erClean : TNotifyEvent Read FAfterClean Write FAfter'+
'Clean;'#010+
' end;'#010+
#010+
' { TTargets }'#010+
#010+
' TTargets = Class(TNamedCollection)'#010+
' private'#010+
' function GetTargetItem(Index : Integer): TTarget;'#010+
' function GetTarget(const AName : String): TTarget;'#010+
' ',' procedure SetTargetItem(Index : Integer; const AValue: TTarget);'+
#010+
' Public'#010+
' Function AddFPDoc(Const AUnitName, AXMLName : String) : TTarget;in'+
'line;'#010+
' Function AddUnit(Const AUnitName : String) : TTarget;inline;'#010+
' Function AddUnit(C','onst AUnitName : String;const OSes:TOSes) : TT'+
'arget;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddUnit(Const AUnitName : String;const CPUs:TCPUs) : TTar'+
'get;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function AddUnit(Const AUnitName : Str','ing;const CPUs:TCPUs;const'+
' OSes:TOSes) : TTarget;'#010+
' Function AddImplicitUnit(Const AUnitName : String;InstallUnit:bool'+
'ean=true) : TTarget;inline;'#010+
' Function AddImplicitUnit(Const AUnitName : String;const OSes:TOSes'+
';InstallUnit:boolean=t','rue) : TTarget;inline;'#010+
' Function AddImplicitUnit(Const AUnitName : String;const CPUs:TCPUs'+
';InstallUnit:boolean=true) : TTarget;inline;'#010+
' Function AddImplicitUnit(Const AUnitName : String;const CPUs:TCPUs'+
';const OSes:TOSes;InstallUnit:bo','olean=true) : TTarget;'#010+
' Function AddProgram(Const AProgramName : String) : TTarget;inline;'+
#010+
' Function AddProgram(Const AProgramName : String;const OSes:TOSes) '+
': TTarget;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddProgram(Const ','AProgramName : String;const CPUs:TCPUs'+
') : TTarget;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function AddProgram(Const AProgramName : String;const CPUs:TCPUs;c'+
'onst OSes:TOSes) : TTarget;'#010+
' Function AddExampleUnit(Const AUnitName : String) : ','TTarget;inli'+
'ne;'#010+
' Function AddExampleUnit(Const AUnitName : String;const OSes:TOSes)'+
' : TTarget;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddExampleUnit(Const AUnitName : String;const CPUs:TCPUs)'+
' : TTarget;inline;'#010+
'{$endif cpu_only_o','verloads}'#010+
' Function AddExampleUnit(Const AUnitName : String;const CPUs:TCPUs;'+
'const OSes:TOSes) : TTarget;'#010+
' Function AddExampleProgram(Const AProgramName : String) : TTarget;'+
'inline;'#010+
' Function AddExampleProgram(Const AProgramName : S','tring;const OSe'+
's:TOSes) : TTarget;inline;'#010+
'{$ifdef cpu_only_overloads}'#010+
' Function AddExampleProgram(Const AProgramName : String;const CPUs:'+
'TCPUs) : TTarget;inline;'#010+
'{$endif cpu_only_overloads}'#010+
' Function AddExampleProgram(Const AProgramNa','me : String;const CPU'+
's:TCPUs;const OSes:TOSes) : TTarget;'#010+
' Property Targets[AName : String] : TTarget Read GetTarget; default'+
';'#010+
' Property TargetItems[Index : Integer] : TTarget Read GetTargetItem'+
' Write SetTargetItem;'#010+
' end;'#010+
#010+
' { TSourc','e }'#010+
#010+
' TSource = Class(TNamedItem)'#010+
' private'#010+
' FSourceType : TSourceType;'#010+
' FInstallSourcePath : string;'#010+
' function GetInstallSourcePath: string;'#010+
' Public'#010+
' Constructor Create(ACollection : TCollection); override;'#010+
' Destructor Des','troy; 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(T','NamedCollection)'#010+
' private'#010+
' function GetSourceItem(Index : Integer): TSource;'#010+
' procedure SetSourceItem(Index : Integer; const AValue: TSource);'#010+
' public'#010+
' Function AddDoc(const AFiles : String) : TSource;'#010+
' Function AddDoc(const A','Files : String; AInstallSourcePath : Stri'+
'ng) : TSource;'#010+
' Function AddSrc(const AFiles : String) : TSource;'#010+
' Function AddExample(const AFiles : String) : TSource;'#010+
' Function AddExample(const AFiles : String; AInstallSourcePath : St'+
'ri','ng) : TSource;'#010+
' Function AddTest(const AFiles : String) : TSource;'#010+
' procedure AddDocFiles(const AFileMask, ASearchPathPrefix: string; '+
'Recursive: boolean = False; AInstallSourcePath : String = '#039#039');'#010+
' procedure AddSrcFiles(const AFile','Mask, ASearchPathPrefix: string'+
'; Recursive: boolean = False);'#010+
' procedure AddExampleFiles(const AFileMask, ASearchPathPrefix: stri'+
'ng; Recursive: boolean = False; AInstallSourcePath : String = '#039#039')'+
';'#010+
' procedure AddTestFiles(const AFileMas','k, ASearchPathPrefix: strin'+
'g; Recursive: boolean = False);'#010+
' Property SourceItems[Index : Integer] : TSource Read GetSourceItem'+
' Write SetSourceItem;default;'#010+
' end;'#010+
#010+
' { TPackage }'#010+
#010+
' TPackage = Class(TNamedItem)'#010+
' private'#010+
' FAfterArchiv','e: TNotifyEvent;'#010+
' FAfterArchiveProc: TNotifyProcEvent;'#010+
' FAfterClean: TNotifyEvent;'#010+
' FAfterCleanProc: TNotifyProcEvent;'#010+
' FAfterCompile: TNotifyEvent;'#010+
' FAfterCompileProc: TNotifyProcEvent;'#010+
' FAfterInstall: TNotifyEvent;'#010+
' F','AfterInstallProc: TNotifyProcEvent;'#010+
' FAfterManifest: TNotifyEvent;'#010+
' FAfterManifestProc: TNotifyProcEvent;'#010+
' FAfterPkgList: TNotifyEvent;'#010+
' FAfterPkgListProc: TNotifyProcEvent;'#010+
' FBeforeArchive: TNotifyEvent;'#010+
' FBeforeArchivePr','oc: TNotifyProcEvent;'#010+
' FBeforeClean: TNotifyEvent;'#010+
' FBeforeCleanProc: TNotifyProcEvent;'#010+
' FBeforeCompile: TNotifyEvent;'#010+
' FBeforeCompileProc: TNotifyProcEvent;'#010+
' FBeforeInstall: TNotifyEvent;'#010+
' FBeforeInstallProc: TNotifyProcE','vent;'#010+
' FBeforeManifest: TNotifyEvent;'#010+
' FBeforeManifestProc: TNotifyProcEvent;'#010+
' FBeforePkgList: TNotifyEvent;'#010+
' FBeforePkgListProc: TNotifyProcEvent;'#010+
' FBuildMode: TBuildMode;'#010+
' FFlags: TStrings;'#010+
' FFPDocFormat: TFPDocFormat','s;'#010+
' FIsFPMakeAddIn: boolean;'#010+
' FSupportBuildModes: TBuildModes;'#010+
' FUnitPath,'#010+
' FObjectPath,'#010+
' FIncludePath,'#010+
' FSourcePath,'#010+
' FExamplePath,'#010+
' FTestPath,'#010+
' FCleanFiles : TConditionalStrings;'#010+
' FInstallFiles : TCondition','alDestStrings;'#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 : St','ring;'#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 : TDictionary;'#010+
' // Is set when all sou','rcefiles are found'#010+
' FAllFilesResolved: boolean;'#010+
' FPackageVariants: TFPList;'#010+
' Function GetDescription : string;'#010+
' function GetDictionary: TDictionary;'#010+
' Function GetFileName : string;'#010+
' Function GetShortName : string;'#010+
' func','tion 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 SaveU','nitConfigToStringList(Const AStringList: TStrings'+
';ACPU: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 InheritPackageVariantsFromDependency(ADependencyPackage:'+
' ','TPackage);'#010+
' Function GetPackageVariantsByName(AName: string): TPackageVariant'+
'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;'#010+
' procedure GetInstallFiles(List: TStrings;Types : TTargetTypes;ACPU'+
':TCPU; AOS : ','TOS); virtual;'#010+
' procedure GetInstallSourceFiles(List: TStrings; SourceTypes : TSou'+
'rceTypes; TargetTypes : TTargetTypes); virtual;'#010+
' Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); '+
'virtual;'#010+
' Procedure GetArchiveSour','ceFiles(List : TStrings); virtual;'#010+
' Procedure GetManifest(Manifest : TStrings);'#010+
' Procedure ListPackage(PkgList : TStrings);'#010+
' Procedure AddPackageVariant(APackageVariant: TPackageVariants);'#010+
' procedure ApplyPackageVariantToCompile','rOptions(ACompilerOptions:'+
' tstrings);'#010+
' procedure SetDefaultPackageVariant;'#010+
' procedure LoadUnitConfigFromFile(Const AFileName: String);'#010+
' procedure SaveUnitConfigToFile(Const AFileName: String;ACPU:TCPU;A'+
'OS: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 FHome','pageU'+
'RL;'#010+
' Property DownloadURL : String Read FDownloadURL Write FDownloadURL'+
';'#010+
' Property Email : String Read FEmail Write FEmail;'#010+
' Property Author : String Read FAuthor Write FAuthor;'#010+
' Property License : String Read FLicense Writ','e FLicense;'#010+
' Property Directory : String Read FDirectory Write FDirectory;'#010+
' Property Description : String Read GetDescription Write FDescripti'+
'on;'#010+
' Property DescriptionFile : String Read FDescriptionFile Write FDes'+
'criptionFile;'#010+
' ','Property InstalledChecksum : Cardinal Read FInstalledChecksum Wr'+
'ite FInstalledChecksum;'#010+
' Property IsFPMakeAddIn: boolean read FIsFPMakeAddIn write FIsFPMak'+
'eAddIn;'#010+
' Property SupportBuildModes: TBuildModes read FSupportBuildModes wr'+
'ite ','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 CPUs : TCPUs Read FCPUs Write FCPUs;'#010+
' ',' Property NeedLibC : Boolean Read FNeedLibC Write FNeedLibC;'#010+
' Property Options: TStrings Read GetOptions Write SetOptions;'#010+
' Property UnitPath : TConditionalStrings Read FUnitPath;'#010+
' Property ObjectPath : TConditionalStrings Read F','ObjectPath;'#010+
' Property IncludePath : TConditionalStrings Read FIncludePath;'#010+
' Property SourcePath : TConditionalStrings Read FSourcePath;'#010+
' Property ExamplePath : TConditionalStrings Read FExamplePath;'#010+
' Property TestPath : TConditi','onalStrings Read FTestPath;'#010+
' Property FPDocFormat: TFPDocFormats read FFPDocFormat write FFPDoc'+
'Format;'#010+
' // Targets and dependencies'#010+
' Property InstallFiles : TConditionalDestStrings Read FInstallFiles'+
';'#010+
' Property CleanFiles : TCon','ditionalStrings 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 FTar','gets;'#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 BeforeCo','mpile : TNotifyEvent Read FBeforeCompile Write '+
'FBeforeCompile;'#010+
' Property BeforeCompileProc : TNotifyProcEvent Read FBeforeCompileP'+
'roc write FBeforeCompileProc;'#010+
' Property AfterCompile : TNotifyEvent Read FAfterCompile Write FAft'+
'erCompi','le;'#010+
' Property AfterCompileProc : TNotifyProcEvent Read FAfterCompilePro'+
'c Write FAfterCompileProc;'#010+
' Property BeforeInstall : TNotifyEvent Read FBeforeInstall Write FB'+
'eforeInstall;'#010+
' Property BeforeInstallProc : TNotifyProcEvent Read ','FBeforeInstal'+
'lProc Write FBeforeInstallProc;'#010+
' Property AfterInstall : TNotifyEvent Read FAfterInstall Write FAft'+
'erInstall;'#010+
' Property AfterInstallProc : TNotifyProcEvent Read FAfterInstallPro'+
'c Write FAfterInstallProc;'#010+
' Property Befo','reClean : TNotifyEvent Read FBeforeClean Write FBef'+
'oreClean;'#010+
' Property BeforeCleanProc : TNotifyProcEvent Read FBeforeCleanProc '+
'Write FBeforeCleanProc;'#010+
' Property AfterClean : TNotifyEvent Read FAfterClean Write FAfterCl'+
'ean;'#010+
' Proper','ty AfterCleanProc : TNotifyProcEvent Read FAfterCleanProc '+
'Write FAfterCleanProc;'#010+
' Property BeforeArchive : TNotifyEvent Read FBeforeArchive Write FB'+
'eforeArchive;'#010+
' Property BeforeArchiveProc : TNotifyProcEvent Read FBeforeArchiveP'+
'roc W','rite FBeforeArchiveProc;'#010+
' Property AfterArchive : TNotifyEvent Read FAfterArchive Write FAft'+
'erArchive;'#010+
' Property AfterArchiveProc : TNotifyProcEvent Read FAfterArchivePro'+
'c Write FAfterArchiveProc;'#010+
' Property BeforeManifest : TNotify','Event Read FBeforeManifest Writ'+
'e FBeforeManifest;'#010+
' Property BeforeManifestProc : TNotifyProcEvent Read FBeforeManifes'+
'tProc Write FBeforeManifestProc;'#010+
' Property AfterManifest : TNotifyEvent Read FAfterManifest Write FA'+
'fterManifest;'#010+
' ',' Property AfterManifestProc : TNotifyProcEvent Read FAfterManifes'+
'tProc Write FAfterManifestProc;'#010+
' Property BeforePkgList : TNotifyEvent Read FBeforePkgList Write FB'+
'eforePkgList;'#010+
' Property BeforePkgListProc : TNotifyProcEvent Read FBef','orePkgLis'+
'tProc Write FBeforePkgListProc;'#010+
' Property AfterPkgList : TNotifyEvent Read FAfterPkgList Write FAft'+
'erPkgList;'#010+
' Property AfterPkgListProc : TNotifyProcEvent Read FAfterPkgListPro'+
'c Write FAfterPkgListProc;'#010+
' end;'#010+
#010+
' { TPackages',' }'#010+
#010+
' TPackages = Class(TNamedCollection)'#010+
' private'#010+
' function GetPackage(const AName : String): TPackage;'#010+
' function GetPackageItem(AIndex : Integer): TPackage;'#010+
' procedure SetPackageItem(AIndex : Integer; const AValue: TPackage)'+
';'#010+
' ','Public'#010+
' Function AddPackage(Const AName : String) : TPackage;'#010+
' Property Packages[AName : String] : TPackage Read GetPackage ; Def'+
'ault;'#010+
' Property PackageItems[AIndex : Integer] : TPackage Read GetPackage'+
'Item Write SetPackageItem;'#010+
' ','end;'#010+
#010+
' { TCustomDefaults }'#010+
#010+
' TCustomDefaults = Class(TPersistent)'#010+
' Private'#010+
' FArchive: String;'#010+
' FBuildMode: TBuildMode;'#010+
' FCompiler: String;'#010+
' FCopy: String;'#010+
' FFPDocOutputDir: String;'#010+
' FFPUnitSourcePath: String;'#010+
' FIgnor','eInvalidOptions: Boolean;'#010+
' FInstallExamples: Boolean;'#010+
' FMkDir: String;'#010+
' FMove: String;'#010+
' FOptions: TStrings;'#010+
' FCPU: TCPU;'#010+
' FOS: TOS;'#010+
' FMode : TCompilerMode;'#010+
' FCompilerVersion : String;'#010+
' FPrefix: String;'#010+
' FLocalU','nitDir,'#010+
' FGlobalUnitDir,'#010+
' FBaseInstallDir,'#010+
' FUnitInstallDir,'#010+
' FUnitConfigFilesInstallDir,'#010+
' FBinInstallDir,'#010+
' FDocInstallDir,'#010+
' FExamplesInstallDir : String;'#010+
' FSkipCrossPrograms: boolean;'#010+
' FThreadsAmount: integer;'#010+
' ',' FRemoveTree: String;'#010+
' FRemoveDir: String;'#010+
' FRemove: String;'#010+
' FTarget: String;'#010+
' FUnixPaths: Boolean;'#010+
' FNoFPCCfg: Boolean;'#010+
' FUseEnvironment: Boolean;'#010+
' FZipPrefix: String;'#010+
' FExplicitOSNone: Boolean;'#010+
' function GetBu','ildCPU: 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+
' function GetOptions: TStrings;'#010+
' funct','ion GetPrefix: String;'#010+
' function GetUnitInstallDir: String;'#010+
' function GetUnitConfigFilesInstallDir: String;'#010+
' procedure SetLocalUnitDir(const AValue: String);'#010+
' procedure SetGlobalUnitDir(const AValue: String);'#010+
' procedure IntSe','tBaseInstallDir(const AValue: String);'#010+
' procedure SetBaseInstallDir(const AValue: String);'#010+
' procedure SetCPU(const AValue: TCPU);'#010+
' procedure SetOptions(const AValue: TStrings);'#010+
' procedure SetOS(const AValue: TOS);'#010+
' procedure ','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: Stri','ng);'#010+
' Protected'#010+
' procedure RecalcTarget;'#010+
' Function CmdLineOptions : String;'#010+
' Public'#010+
' Constructor Create;'#010+
' Procedure InitDefaults;'#010+
' Function HaveOptions: Boolean;'#010+
' function IsBuildDifferentFromTarget: boolean;'#010+
' procedu','re CompilerDefaults; virtual;'#010+
' Procedure LocalInit(Const AFileName : String);'#010+
' Procedure LoadFromFile(Const AFileName : String);'#010+
' Procedure SaveToFile(Const AFileName : String);'#010+
' procedure SaveToStream(S : TStream);virtual;'#010+
' ','procedure LoadFromStream(S : TStream);virtual;'#010+
' // Compile Information'#010+
' Property Target : String Read FTarget Write SetTarget;'#010+
' Property OS : TOS Read FOS Write SetOS;'#010+
' Property CPU : TCPU Read FCPU Write SetCPU;'#010+
' Property Co','mpilerVersion : 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 B','uildCPU : TCpu read GetBuildCPU;'#010+
' Property Mode : TCompilerMode Read FMode Write FMode;'#010+
' Property UnixPaths : Boolean Read FUnixPaths Write FUnixPaths;'#010+
' Property Options : TStrings Read GetOptions Write SetOptions; /'+
'/ Default co','mpiler options.'#010+
' Property NoFPCCfg : Boolean Read FNoFPCCfg Write FNoFPCCfg;'#010+
' // When ThreadsAmount is specified, #threadsamount# worker-threads'+
' are'#010+
' // created. When such a worker-thread is ready all worker-threads '+
'are evaluated'#010+
' ',' // to see if there are idle threads (there is always at least on'+
'e such thread.)'#010+
' // To each idle thread a package is assigned which has to be compi'+
'led for the'#010+
' // current target and for which all dependencies are compiled earl'+
'ier.'#010,
' // When no package is available the thread remains idle until anot'+
'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 specif','ied (-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.'#010+
' // When the last package in ','the list is compiled, the compilatio'+
'n stops.'#010+
' Property ThreadsAmount : integer Read FThreadsAmount Write FThread'+
'sAmount;'#010+
' // paths etc.'#010+
' Property LocalUnitDir : String Read GetLocalUnitDir Write SetLocal'+
'UnitDir;'#010+
' Property Global','UnitDir : String Read GetGlobalUnitDir Write SetG'+
'lobalUnitDir;'#010+
' Property Prefix : String Read GetPrefix Write SetPrefix;'#010+
' Property ZipPrefix : String Read FZipPrefix Write SetZipPrefix;'#010+
' Property BaseInstallDir : String Read GetBas','eInstallDir 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;'#010+
' Property DocInstallDir : String Read GetDocInstallDir Write FDocIn'+
'stallDir;'#010+
' Property ExamplesInstallDir : String Read GetExamplesInstallDir Wr'+
'ite FExamp','lesInstallDir;'#010+
' Property FPDocOutputDir : String Read GetFPDocOutputDir Write FFPD'+
'ocOutputDir;'#010+
' Property FPUnitSourcePath: String read GetFPUnitSourcePath Write F'+
'FPUnitSourcePath;'#010+
' // Command tools. If not set, internal commands w','ill 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)'#010+
' Property Move : String Read FMove Writ','e 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)'#010+
' Property Remov','eTree : String Read FRemoveTree Write FRemoveTree;'+
' // removes $(DIRECTORY)'#010+
' Property MkDir : String Read FMkDir write FMkDir; // Make'+
' $(DIRECTORY)'#010+
' Property Archive : String Read FArchive Write FArchive; // zip '+
'$(ARC','HIVE) $(FILESORDIRS)'#010+
' // Misc'#010+
' Property UseEnvironment : Boolean read FUseEnvironment write FUseE'+
'nvironment;'#010+
' Property IgnoreInvalidOptions: Boolean read FIgnoreInvalidOptions '+
'write FIgnoreInvalidOptions;'#010+
' Property BuildMode: TB','uildMode read FBuildMode write FBuildMode;'+
#010+
' // Installation optioms'#010+
' Property InstallExamples: Boolean read FInstallExamples write FIns'+
'tallExamples;'#010+
' Property SkipCrossPrograms: boolean read FSkipCrossPrograms write '+
'FSkipCrossProgr','ams;'#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 ASourceF'+
'ileName, ADestFileName : String) of object;'#010+
#010+
' TBuildEngine = Class(TComponent)'#010+
' private'#010+
' // general variables'#010+
' FCompiler : String;'#010+
' FStartDir : String;'#010+
' FForceCompile : Boolea','n;'#010+
' FListMode : Boolean;'#010+
' FVerbose : boolean;'#010+
' FProgressMax : integer;'#010+
' FProgressCount : integer;'#010+
' FExternalPackages : TPackages;'#010+
' // Events'#010+
' FOnLog: TLogEvent;'#010+
' FNotifyEventCollection: TNotifyEventCollection;'#010+
' FO','nCopyFile: TCopyFileProc;'#010+
' FOnFinishCopy: TNotifyEvent;'#010+
#010+
' FCachedlibcPath: string;'#010+
' FGeneralCriticalSection: TRTLCriticalSection;'#010+
'{$ifdef HAS_UNIT_ZIPPER}'#010+
' FZipper: TZipper;'#010+
' FGZFileStream: TGZFileStream;'#010+
'{$endif HAS_UNIT_ZIP','PER}'#010+
'{$ifdef HAS_TAR_SUPPORT}'#010+
' FTarWriter: TTarWriter;'#010+
'{$endif HAS_TAR_SUPPORT}'#010+
' procedure AddFileToArchive(const APackage: TPackage; Const ASource'+
'FileName, ADestFileName : String);'#010+
' procedure FinishArchive(Sender: TObject);'#010+
' Prot','ected'#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+
' Funct','ion SysFileExists(const AFileName:string):Boolean;'#010+
' Procedure SysCopyFile(Const Src,Dest : String); virtual;'#010+
' Procedure SysMoveFile(Const Src,Dest : String); virtual;'#010+
' Procedure SysDeleteFile(Const AFileName : String); virtual;'#010+
' ',' Procedure SysDeleteDirectory(Const ADirectoryName : String); vir'+
'tual;'#010+
' Procedure SysDeleteTree(Const ADirectoryName : String); virtual;'#010+
' Procedure SysArchiveFiles(List : TStrings; Const AFileName : Strin'+
'g); virtual;'#010+
' procedure Lo','gIndent;'#010+
' procedure LogUnIndent;'#010+
' Procedure EnterDir(ADir : String);'#010+
' Function GetCompiler : String;'#010+
' Function InstallPackageFiles(APAckage : TPackage; tt : TTargetType'+
's; Const Dest : String; Const InstallMode: TInstallMode):Boo','lean;'#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; Const InstallMode'+
': TInstallMode):Boolean;'#010+
' Function FileNewer(const Src,Dest : String) : Boolean;'#010+
' Procedure LogSearchPath(APackage: TPackage;const ASearchPathName:s'+
'tring;Path:TConditionalStrings; A','CPU:TCPU;AOS:TOS);'#010+
' Function FindFileInPath(APackage: TPackage; Path:TConditionalStrin'+
'gs; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolean;'+
#010+
#010+
' procedure GetDirectoriesFromFilelist(const AFileList, ADirectoryLi'+
'st: TStri','ngList);'#010+
' procedure AddPackageMacrosToDictionary(const APackage: TPackage; A'+
'Dictionary: TDictionary);'#010+
' //package commands'#010+
' function GetUnitDir(APackage:TPackage):String;'#010+
' procedure ResolvePackagePaths(APackage:TPackage);'#010+
' pr','ocedure 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+
' function AddPathPrefix(APackage: TPackage; APath: string): string;'+
#010+
#010+
' property Verbose : boolean read FVerbose write FVerbose;'#010+
' Procedure ResolveFileNames(APackage : TPackage; ACPU:TCPU;AOS:TOS;'+
'DoChangeDir:boolean','=true; WarnIfNotFound:boolean=true);'#010+
' Procedure ClearResolvedFileNames(APackage : TPackage);'#010+
#010+
' // Public Copy/delete/Move/Archive/Mkdir Commands.'#010+
' Procedure ExecuteCommand(const Cmd,Args : String; const Env: TStri'+
'ngs = nil; IgnoreE','rror : Boolean = False); virtual;'#010+
' procedure CmdCopyFiles(List: TStrings; const DestDir: String; APac'+
'kage: TPackage);'#010+
' Procedure CmdCreateDir(const DestDir : String);'#010+
' Procedure CmdMoveFiles(List : TStrings; Const DestDir : String)',';'+
#010+
' Procedure CmdDeleteFiles(List : TStrings);'#010+
' procedure CmdDeleteDestFiles(List: TStrings; const DestDir: String'+
');'#010+
' Procedure CmdArchiveFiles(List : TStrings; Const ArchiveFile : Str'+
'ing);'#010+
' Procedure CmdRenameFile(SourceName, De','stName : String);'#010+
' Procedure CmdRemoveDirs(List: TStrings);'#010+
' Procedure CmdRemoveTrees(List: TStrings);'#010+
' Procedure ExecuteCommands(Commands : TCommands; At : TCommandAt; A'+
'Package: TPackage = nil);'#010+
' // Dependency commands'#010+
' Func','tion DependencyOK(ADependency : TDependency) : Boolean;'#010+
' // Target commands'#010+
' Function GetCompilerCommand(APackage : TPackage; ATarget : TTarge'+
't; Env: TStrings) : String;'#010+
' Function TargetOK(ATarget : TTarget; ACPU: TCPU; AOS: TOS',') : Bo'+
'olean;'#010+
' Function TargetInstallOK(ATarget : TTarget;ACPU:TCPU; AOS : TOS) '+
': Boolean;'#010+
' Function NeedsCompile(APackage:TPackage; ATarget : TTarget) : Boo'+
'lean;'#010+
' Procedure Compile(APackage:TPackage; ATarget : TTarget); virtual;',
#010+
' Procedure MaybeCompile(APackage:TPackage; ATarget: TTarget);'#010+
' Procedure CompileDependencies(APackage:TPackage; ATarget: TTarget)'+
';'#010+
' // Package commands'#010+
'{ Function GetPackageDir(APackage : TPackage; AbsolutePath : Boole'+
'an = Fal','se) : String;'#010+
' Function GetUnitsOutputDir(APackage : TPackage; AbsolutePath : Bo'+
'olean = False) : String;'#010+
' Function GetBinOutputDir(APackage : TPackage; AbsolutePath : Bool'+
'ean = False) : String; }'#010+
' Function PackageOK(APackage : ','TPackage) : Boolean; virtual;'#010+
' Procedure DoBeforeCompile(APackage : TPackage);virtual;'#010+
' Procedure DoAfterCompile(APackage : TPackage);virtual;'#010+
' Procedure DoBeforeInstall(APackage : TPackage);virtual;'#010+
' Procedure DoAfterInstall(AP','ackage : 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 UnInstall(APackage : TPackage);'#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 : TPackage; ErrorOnFailure: bo'+
'olean)',': TCheckDependencyResult;'#010+
' Function CheckExternalPackage(Const APackageName : String; ErrorO'+
'nFailure: boolean):TPackage;'#010+
' procedure CreateOutputDir(APackage: TPackage);'#010+
' // Packages commands'#010+
' Procedure Compile(Packages : TPacka','ges);'#010+
' Procedure Install(Packages : TPackages);'#010+
' Procedure UnInstall(Packages : TPackages);'#010+
' Procedure ZipInstall(Packages : TPackages);'#010+
' Procedure Archive(Packages : TPackages);'#010+
' procedure Manifest(Packages: TPackages; Packa','ge: TPackage);'#010+
' procedure PkgList(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 : '+
'Array Of Const);'#010+
#010+
' Property ListMode : Boolean Read FListMode Write FListMode;'#010+
' Property ForceCompile : Boolean Read FForceCompile Write FForceCom'+
'pile;'#010+
' Property ExternalPackages: TPackages Read FExternalPackages;'#010+
' Prope','rty StartDir: String Read FStartDir;'#010+
' // Events'#010+
' Property NotifyEventCollection: TNotifyEventCollection read FNotif'+
'yEventCollection;'#010+
' Property OnLog : TLogEvent Read FOnLog Write FOnlog;'#010+
' end;'#010+
#010+
' { TCustomInstaller }'#010+
#010+
' TCustomIns','taller = Class(TComponent)'#010+
' private'#010+
' FBuildEngine: TBuildEngine;'#010+
' FPackages: TPackages;'#010+
' FRunMode: TRunMode;'#010+
' FListMode : Boolean;'#010+
' FLogLevels : TVerboseLevels;'#010+
' FFPMakeOptionsString: string;'#010+
' FPackageVariantSettings: ','TStrings;'#010+
' FPackageVariants: TFPList;'#010+
' FNotifyEventCollection: TNotifyEventCollection;'#010+
' Protected'#010+
' Procedure Log(Level : TVerboseLevel; Const Msg : String);'#010+
' Procedure CreatePackages; virtual;'#010+
' Procedure FreePackages; virtua','l;'#010+
' function GetPackages: TPackages; 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+
' Pr','ocedure AnalyzeOptions;'#010+
' Procedure 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 UnInst','all; virtual;'#010+
' Procedure ZipInstall; virtual;'#010+
' Procedure Archive; virtual;'#010+
' Procedure Manifest; virtual;'#010+
' Procedure PkgList; virtual;'#010+
' Public'#010+
' Constructor Create(AOwner : TComponent); virtual;'#010+
' Destructor destroy; overrid','e;'#010+
' Function AddPackage(Const AName : String) : TPackage;'#010+
' Function AddPackageVariant(AName: string; AIsInheritable: boolean'+
'): TPackageVariants;'#010+
' Function Run : Boolean;'#010+
' Property FPMakeOptionsString: string read FFPMakeOptions','String;'#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 FNo'+
'tifyEventCollection;'#010+
' end;'#010+
#010+
' { TFPCInstaller }'#010+
' TFPCInstaller = class(TCustomInstaller)'#010+
' public'#010+
' Constructor Create(AOwner : TComponent); override;'#010+
' end;'#010+
#010+
' { TBasicIn','staller }'#010+
' TBasicInstaller = class(TCustomInstaller)'#010+
' Constructor 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+
' { T','FunctionItem }'#010+
#010+
' TFunctionItem = Class(TObject)'#010+
' FFunc : TReplaceFunction;'#010+
' Constructor Create(AFunc : TReplaceFunction);'#010+
' end;'#010+
#010+
'{$ifndef NO_THREADING}'#010+
#010+
' { TCompileWorkerThread }'#010+
#010+
' TCompileWorkerThread = class(TThread)'#010+
' private'#010+
' ',' FBuildEngine: TBuildEngine;'#010+
' FCompilationOK: boolean;'#010+
' FDone: boolean;'#010+
' FErrorMessage: string;'#010+
' FNotifyMainThreadEvent: PRTLEvent;'#010+
' FNotifyStartTask: PRTLEvent;'#010+
' FPackage: TPackage;'#010+
' protected'#010+
' procedure execute; ov','erride;'#010+
' property Done: boolean read FDone;'#010+
' property APackage: TPackage read FPackage write FPackage;'#010+
' property CompilationOK: boolean read FCompilationOK;'#010+
' property NotifyStartTask: PRTLEvent read FNotifyStartTask;'#010+
' propert','y ErrorMessage: string read FErrorMessage;'#010+
' public'#010+
' constructor Create(ABuildEngine: TBuildEngine; NotifyMainThreadEve'+
'nt: PRTLEvent); virtual;'#010+
' destructor Destroy; override;'#010+
' end;'#010+
#010+
'{$endif NO_THREADING}'#010+
#010+
' ECollectionError = Class(E','xception);'#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+
'Typ','e'#010+
' TArchiveEvent = Procedure (Const AFileName : String; List : TStrings'+
') of Object;'#010+
' TArchiveProc = Procedure (Const AFileName : String; List : TStrings)'+
';'#010+
#010+
'Var'#010+
' DictionaryClass : TDictionaryClass = TDictionary;'#010+
' PackageDictionaryClass :',' TPackageDictionaryClass = TPackageDiction'+
'ary;'#010+
' OnArchiveFiles : TArchiveEvent = Nil;'#010+
' ArchiveFilesProc : TArchiveProc = Nil;'#010+
#010+
' Defaults : TCustomDefaults; // Set by installer.'#010+
' GlobalDictionary : TDictionary;'#010+
#010+
#010+
'Function CurrentOS : Str','ing;'#010+
'Function CurrentCPU : String;'#010+
#010+
'Function Installer(InstallerClass: TInstallerClass) : TCustomInstaller'+
'; overload;'#010+
'Function Installer : TCustomInstaller; overload;'#010+
#010+
'Function OSToString(OS: TOS) : String;'#010+
'Function OSesToString(OSes: TOSes',') : String;'#010+
'Function CPUToString(CPU: TCPU) : String;'#010+
'Function CPUSToString(CPUS: TCPUS) : String;'#010+
'Function StringToOS(const S : String) : TOS;'#010+
'function IsDifferentFromBuild(ACpu: TCPU; AOs: TOs): boolean;'#010+
'//Function StringToOSes(const S : ','String) : TOSes;'#010+
'Function StringToCPU(const S : String) : TCPU;'#010+
'Function StringToCPUS(const S : String) : TCPUS;'#010+
'Function ModeToString(Mode: TCompilerMode) : String;'#010+
'Function StringToMode(const S : String) : TCompilerMode;'#010+
'Function MakeTarg','etString(CPU : TCPU;OS: TOS) : String;'#010+
'Procedure StringToCPUOS(const S : String; Var CPU : TCPU; Var OS: TOS)'+
';'#010+
'Function FixPath (const APath : String) : String; inline; deprecated '#039+
'Use the overload with AIsDir instead'#039';'#010+
'Function FixPath (co','nst APath : String; AIsDir : Boolean) : String;'#010+
'Function IsRelativePath(const APath : String) : boolean;'#010+
'Procedure ChangeDir(const APath : String);'#010+
'Procedure SplitCommand(Const Cmd : String; Var Exe,Options : String);'#010+
'Procedure AddCustomFpm','akeCommandlineOption(const ACommandLineOption,'+
' HelpMessage : string);'#010+
'Function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
'n : string) : string;'#010+
'Function AddProgramExtension(const ExecutableName: string; AOS : TOS) '+
': string',';'#010+
'Function GetImportLibraryFilename(const UnitName: string; AOS : TOS) :'+
' string;'#010+
#010+
'procedure SearchFiles(AFileName, ASearchPathPrefix: string; Recursive:'+
' boolean; var List: TStrings);'#010+
'function GetDefaultLibGCCDir(CPU : TCPU;OS: TOS; var Erro','rMessage: s'+
'tring): string;'#010+
#010+
'Implementation'#010+
#010+
'uses typinfo, rtlconsts;'#010+
#010+
'const'#010+
'{$ifdef CREATE_TAR_FILE}'#010+
' {$ifdef HAS_UNIT_ZIPPER}'#010+
' ArchiveExtension = '#039'.tar.gz'#039';'#010+
' {$else }'#010+
' ArchiveExtension = '#039'.tar'#039';'#010+
' {$endif HAS_UNIT_ZIPPER}'#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 (inputSt','r[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+
' en','d;'#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: string;'#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:=AnsiUpperCase(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 letters '+
'}'#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(CinputWord);'#010+
' Continue;'#010+
' end;'#010+
' if Wilds[CWild] = '#039'*'#039' the','n 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 begin'#010+
' { no '#039'*'#039' in the rest, compare the ends }'#010+
' if Help','Wilds = '#039#039' then Exit; { '#039'*'#039' is the last'+
' letter }'#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 to the next '#039'*'#039' }'#010+
' inc(CWild, 1 + LenHelpWilds);'#010+
' i:=Find','Part(HelpWilds, Copy(inputStr, CinputWord, Maxint));'#010+
' if i= 0 then begin'#010+
' Result:=False;'#010+
' Exit;'#010+
' end;'#010+
' CinputWord:=i + LenHelpWilds;'#010+
' Continue;'#010+
' end;'#010+
' Result:=False;'#010+
' Exit;'#010+
' until (CinputWord > Ma','xinputWord) or (CWild > MaxWilds);'#010+
' { no completed evaluation }'#010+
' if CinputWord <= MaxinputWord then Result:=False;'#010+
' if (CWild <= MaxWilds) and (Wilds[MaxWilds] <> '#039'*'#039') then Res'+
'ult:=False;'#010+
'end;'#010+
#010+
#010+
'type'#010+
' TUnsortedDuplicatesStringList = cla','ss(TStringList)'#010+
' public'#010+
' function Add(const S: string): Integer; override;'#010+
' end;'#010+
#010+
'var'#010+
' CustomFpmakeCommandlineOptions: TStrings;'#010+
' CustomFpMakeCommandlineValues: TStrings;'#010+
#010+
'{$ifdef NO_THREADING}'#010+
'var'#010+
'{$else NO_THREADING}'#010+
'threadvar'#010+
'{$en','dif NO_THREADING}'#010+
' GPathPrefix : string;'#010+
' GLogPrefix : string;'#010+
#010+
'ResourceString'#010+
' SErrInvalidCPU = '#039'Invalid CPU name "%s"'#039';'#010+
' SErrInvalidOS = '#039'Invalid OS name "%s"'#039';'#010+
' SErrInvalidMode = '#039'Invalid compiler mode "%s"'#039';'#010+
' ',' SErrInvalidTarget = '#039'Invalid compiler target "%s"'#039';'#010+
' SErrNameExists = '#039'Name "%s" already exists in the collect'+
'ion.'#039';'#010+
' SErrNoSuchName = '#039'Could not find item with name "%s" in t'+
'he collection.'#039';'#010+
' SErrInValidArgument = '#039,'Invalid command-line argument at posit'+
'ion %d: %s'#039';'#010+
' SErrNeedArgument = '#039'Option at position %d (%s) needs an arg'+
'ument'#039';'#010+
' SErrNoPackagesDefined = '#039'No action possible: No packages were de'+
'fined.'#039';'#010+
' SErrInstaller = '#039'The installer',' encountered the followi'+
'ng error:'#039';'#010+
' SErrDepUnknownTarget = '#039'Unknown target for unit "%s" in depende'+
'ncies for %s in package %s'#039';'#010+
' SErrExternalCommandFailed = '#039'External command "%s" failed with e'+
'xit 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 directory "%s"'#039';'#010+
' SErrInvalidArgumentToSubstitute = '#039'Invalid number o','f arguments'+
' to Substitute'#039';'#010+
' SErrNoArchiveSupport = '#039'This binary contains no archive support'+
'. Please recompile with archive support'#039';'#010+
' SErrNoDictionaryItem = '#039'No item called "%s" in the dictionary'#039+
';'#010+
' SErrNoDictionaryValue = '#039'The item "','%s" in the dictionary is no'+
't a value'#039';'#010+
' SErrNoDictionaryFunc = '#039'The item "%s" in the dictionary is not '+
'a function'#039';'#010+
' SErrInvalidFPCInfo = '#039'Compiler returns invalid information, c'+
'heck if fpc -iV works'#039';'#010+
' SErrDependencyNotFound = '#039'Coul','d not find unit directory for de'+
'pendency package "%s"'#039';'#010+
' SErrAlreadyInitialized = '#039'Installer can only be initialized once'+
#039';'#010+
' SErrInvalidState = '#039'Invalid state for target %s'#039';'#010+
' SErrCouldNotCompile = '#039'Could not compile target %s fro','m pack'+
'age %s'#039';'#010+
' SErrUnsupportedBuildmode = '#039'Package does not support this buildm'+
'ode'#039';'#010+
' SErrPackVarNotExist = '#039'There is no package variant with the na'+
'me "%s"'#039';'#010+
' SErrEventNotSupported = '#039'Unsupported event type'#039';'#010+
' SErrorPkgNotInstalled =',' '#039'Package "%s" is not installed, can no'+
't uninstall.'#039';'#010+
#010+
' SWarnCircularTargetDependency = '#039'Warning: Circular dependency de'+
'tected when compiling target %s with target %s'#039';'#010+
' SWarnCircularPackageDependency = '#039'Warning: Circular dependency d'+
'etec','ted when compiling package %s with package %s'#039';'#010+
' SWarnFailedToSetTime = '#039'Warning: Failed to set timestamp on f'+
'ile "%s"'#039';'#010+
' SWarnFailedToGetTime = '#039'Warning: Failed to get timestamp from'+
' file "%s"'#039';'#010+
' SWarnAttemptingToCompileNonNeutral','Target = '#039'Warning: 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';'#010+
' SWarnIncludeFileNotFound = '#039'Warning: Include file "%s" from pack'+
'age %s not found f','or %s'#039';'#010+
' SWarnDepUnitNotFound = '#039'Warning: Dependency on unit %s is no'+
't supported for %s'#039';'#010+
' SWarnTargetDependsOnPackage = '#039'Warning: Target %s of package %s '+
'depends on another package (%s). These kind of dependencies are not pr'+
'ocessed'#039';',#010+
' SWarnDependOnOtherPlatformPackage = '#039'Warning: Package %s depends'+
' on package %s which is not available for the %s platform'#039';'#010+
' SWarnStartCompilingPackage = '#039'Start compiling package %s for tar'+
'get %s.'#039';'#010+
' SWarnCompilingPackagecompleteProgre','ss = '#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';'#010+
' SWarnSkipPackageTarget = '#039'Skipped pack','age %s which has been di'+
'sabled for target %s'#039';'#010+
' SWarnInstallationPackagecomplete = '#039'Installation package %s for '+
'target %s succeeded'#039';'#010+
' SWarnCleanPackagecomplete = '#039'Clean of package %s completed'#039';'+
#010+
' SWarnCanNotGetAccessRights = '#039'Warning: F','ailed to copy access-r'+
'ights from file %s'#039';'#010+
' SWarnCanNotSetAccessRights = '#039'Warning: Failed to copy access-rig'+
'hts to file %s'#039';'#010+
' SWarnCanNotGetFileAge = '#039'Warning: Failed to get FileAge for %s'#039+
';'#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';'#010+
' SWarngccNotFound = '#039'Could not find libgcc'#039';'#010+
' SWarngcclibpath = '#039'Warning: Un','able to determine 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+
' SInfoPackageAlreadyProcessed = '#039'Package %s is already',' processe'+
'd'#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+
' SInfoUnI','nstallingPackage= '#039'Uninstalling 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';'+
#010+
' SInfoPkgListPackag','e = '#039'Adding package %s to the package lis'+
't'#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'Sou','rce file "%s" (%s) is newer than'+
' destination "%s" (%s).'#039';'#010+
' SInfoDestDoesNotExist = '#039'Destination file "%s" does not exist.'+
#039';'#010+
' SInfoFallbackBuildmode = '#039'Buildmode not supported by package, f'+
'alling back to one by one unit compilation'#039';'#010+
' ','SInfoFallbackBuildmodeBU= '#039'Buildmode not supported by package,'+
' falling back to compilation using a buildunit'#039';'#010+
#010+
' SDbgComparingFileTimes = '#039'Comparing file "%s" time "%s" to "%'+
's" time "%s".'#039';'#010+
' SDbgCompilingDependenciesOfTarget = '#039'Compili','ng dependencies of'+
' target %s'#039';'#010+
' SDbgResolvingSourcesOfTarget = '#039'Resolving filenames of target %s'+
' for %s'#039';'#010+
' SDbgResolvedSourceFile = '#039'Resolved source file %s to "%s"'#039+
';'#010+
' SDbgSourceAlreadyResolved = '#039'Source file of %s has been resolved'+
' e','arlier'#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'Dependen','t unit %s is being rec'+
'ompiled'#039';'#010+
' SDbgMustCompile = '#039'Must compile %s. (%s)'#039';'#010+
' SDbgSkippingTargetWrongCPU = '#039'Skipping target %s, different CPU '+
'(%s)'#039';'#010+
' SDbgSkippingTargetWrongOS = '#039'Skipping target %s, different OS ('+
'%s)'#039';'#010+
' SDbgTa','rgetIsNotAUnitOrProgram = '#039'Skipping Target %s, not an un'+
'it or program'#039';'#010+
' SDbgConsideringTarget = '#039'Considering target %s'#039';'#010+
' SDbgConsideringPackage = '#039'Considering package %s'#039';'#010+
' SDbgExternalDependency = '#039'External dependency %s fou','nd in "'+
'%s"'#039';'#010+
' SDbgBuildEngineArchiving = '#039'Build engine archiving'#039';'#010+
' SDbgBuildEngineGenerateManifests = '#039'Build engine generating mani'+
'fests'#039';'#010+
' SDbgBuildEngineGeneratePkgList = '#039'Build engine generating packag'+
'e list'#039';'#010+
' SDbgBuildEngineClean','ing = '#039'Build engine cleaning'#039';'#010+
' SDbgGenerating = '#039'Generating "%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+
' SDbgPackageChe','cksumChanged = '#039'Dependent package %s is modified'+
#039';'#010+
' SDbgFileDoesNotExist = '#039'File "%s" does not exist'#039';'#010+
' SDbgDirectoryDoesNotExist = '#039'Directory "%s" does not exist'#039';'+
#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 then o'+
'utput file'#039';'#010+
' SDbgDependencyRecompiled = '#039'The unit %s where this unit depends'+
' on is recompiled'#039';'#010+
' SDbgPackageDepRecompiled = '#039'The package %s where this package d'+
'epen','ds on is recompiled'#039';'#010+
' SDbgTargetHasToBeCompiled = '#039'At least one of the targets in the '+
'package has to be compiled.'#039';'#010+
' SDbgDeletedFile = '#039'Recursively deleted file "%s"'#039';'+
#010+
' SDbgRemovedDirectory = '#039'Recursively removed director','y "%s'+
'"'#039';'#010+
#010+
#010+
' // Help messages for usage'#010+
' SValue = '#039'Value'#039';'#010+
' SHelpUsage = '#039'Usage: %s command [options]'#039';'#010+
' SHelpCommand = '#039'Where command is one of the following:'#039+
';'#010+
' SHelpCompile = '#039'Compile all units in ','the package(s).'#039+
';'#010+
' SHelpBuild = '#039'Build all units in the package(s).'#039';'#010+
' SHelpInstall = '#039'Install all units in the package(s).'#039';'+
#010+
' SHelpUnInstall = '#039'Uninstall the package(s).'#039';'#010+
' SHelpClean = '#039'Clean (remove) all',' units in the package'+
'(s).'#039';'#010+
' SHelpArchive = '#039'Create archive (zip) with all units in th'+
'e package(s).'#039';'#010+
' SHelpHelp = '#039'This message.'#039';'#010+
' SHelpManifest = '#039'Create a manifest suitable for import in '+
'repository.'#039';'#010+
' SHelpPk','gList = '#039'Create list of all packages suitable fo'+
'r FPC installer.'#039';'#010+
' SHelpZipInstall = '#039'Install all units in the package(s) into '+
'an archive.'#039';'#010+
' SHelpCmdOptions = '#039'Where options is one or more of the follo'+
'wing:'#039';'#010+
' SHelpCPU ',' = '#039'Compile for indicated CPU.'#039';'#010+
' SHelpOS = '#039'Compile for indicated OS'#039';'#010+
' SHelpTarget = '#039'Compile for indicated target'#039';'#010+
' SHelpList = '#039'list commands instead of actually executi'+
'ng them.'#039';'#010+
' SHelpPrefix',' = '#039'Use indicated prefix directory for all '+
'commands.'#039';'#010+
' SHelpNoFPCCfg = '#039'Compiler will not use fpc.cfg'#039';'#010+
' SHelpBaseInstallDir = '#039'Use indicated directory as base install d'+
'ir.'#039';'#010+
' SHelpLocalUnitDir = '#039'Use indicated directory',' as local (user)'+
' unit dir.'#039';'#010+
' SHelpGlobalUnitDir = '#039'Use indicated directory as global unit di'+
'r.'#039';'#010+
' SHelpUnitInstallDir = '#039'Use indicated directory to install units '+
'into.'#039';'#010+
' SHelpCompiler = '#039'Use indicated binary as compiler'#039';'#010+
' SHel','pConfig = '#039'Use indicated config file when compilin'+
'g.'#039';'#010+
' SHelpOptions = '#039'Pass extra options to the compiler.'#039';'+
#010+
' SHelpVerbose = '#039'Be verbose when working.'#039';'#010+
' SHelpInstExamples = '#039'Install the example-sources.'#039';'#010+
' SHel','pSkipCrossProgs = '#039'Skip programs when cross-compiling/inst'+
'alling'#039';'#010+
' SHelpIgnoreInvOpt = '#039'Ignore further invalid options.'#039';'#010+
' sHelpFpdocOutputDir = '#039'Use indicated directory as fpdoc output f'+
'older.'#039';'#010+
' sHelpFPUnitSrcPath = '#039'Sourcepath to ','replace in fpunits.cfg on'+
' installation.'#039';'#010+
' sHelpThreads = '#039'Enable the indicated amount of worker thr'+
'eads.'#039';'#010+
' sHelpUseEnvironment = '#039'Use environment to pass options to compil'+
'er.'#039';'#010+
' SHelpUseBuildUnit = '#039'Compile package in Build-un','it mode.'#039+
';'#010+
' sHelpZipPrefix = '#039'Use indicated prefix for generated archiv'+
'es.'#039';'#010+
#010+
#010+
'Const'#010+
' // Keys for Defaults file. Do not localize.'#010+
' KeyCompiler = '#039'Compiler'#039';'#010+
' KeyArchive = '#039'Archive'#039';'#010+
' KeyCopy = '#039'Copy'#039';'#010+
' KeyMkDir = '#039'MkDir'#039';',#010+
' KeyMove = '#039'Move'#039';'#010+
' KeyRemove = '#039'Remove'#039';'#010+
' KeyRemoveDir= '#039'RemoveDir'#039';'#010+
' KeyRemoveTree= '#039'RemoveTree'#039';'#010+
' KeyOptions = '#039'Options'#039';'#010+
' KeyCPU = '#039'CPU'#039';'#010+
' KeyOS = '#039'OS'#039';'#010+
' KeyMode = '#039'Mode'#039';'#010+
' KeyPrefix = '#039'Prefix'#039';'#010+
' KeyTa','rget = '#039'Target'#039';'#010+
' KeyNoFPCCfg = '#039'NoFPCCfg'#039';'#010+
' KeyUseEnv = '#039'UseEnv'#039';'#010+
' KeyLocalUnitDir = '#039'LocalUnitDir'#039';'#010+
' KeyGlobalUnitDir = '#039'GlobalUnitDir'#039';'#010+
' KeyBaseInstallDir = '#039'BaseInstallDir'#039';'#010+
' KeyUnitInstallDir = '#039'UnitInstall','Dir'#039';'#010+
' KeyBinInstallDir = '#039'BinInstallDir'#039';'#010+
' KeyDocInstallDir = '#039'DocInstallDir'#039';'#010+
' KeyExamplesInstallDir = '#039'ExamplesInstallDir'#039';'#010+
' KeyInstallExamples = '#039'InstallExamples'#039';'#010+
' KeySkipCrossProdrams = '#039'SkipCrossPrograms'#039';'#010+
' // Key','s for unit config'#010+
' KeyName = '#039'Name'#039';'#010+
' KeyVersion = '#039'Version'#039';'#010+
' KeyChecksum = '#039'Checksum'#039';'#010+
' KeyNeedLibC = '#039'NeedLibC'#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+
'**********************************************','**********************'+
'********}'#010+
#010+
'{$ifdef HAS_UNIT_PROCESS}'#010+
'function ExecuteFPC(Verbose: boolean; const Path: string; const ComLin'+
'e: string; const Env: TStrings; ConsoleOutput: TMemoryStream): integer'+
';'#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+
' TMessages = (mCompiling, mLinking);'#010+
#010+
' var'#010+
' //ifdef the MsgNum so it contains the correct message numbers for '+
'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)^, avai'+
'lable);'#010+
' end'#010+
' else'#010+
' begin'#010+
' available:=P.Output.NumBytesAvailable;'#010+
' // make sure we have room'#010+
' if (bytesRead + Available > ConsoleOutput.Size) t','hen'#010+
' ConsoleOutput.SetSize(BytesRead + Available);'#010+
' n := P.Output.Read((ConsoleOutput.Memory + BytesRead)^, availa'+
'ble);'#010+
' end;'#010+
' if n > 0 then'#010+
' begin'#010+
' Inc(BytesRead, n);'#010+
#010+
' sLine := '#039#039';'#010+
' BuffPos := Con','soleOutput.Position;'#010+
#010+
' //read lines from the stream'#010+
' repeat'#010+
' ConsoleOutput.Read(ch,1);'#010+
#010+
' if ch in [#10, #13] then'#010+
' begin'#010+
' if Verbose then'#010+
' installer.log(vlInfo,sLine)'#010+
' else'#010+
' ',' begin'#010+
' for msg := Low(TMessages) to High(TMessages) do'#010+
' begin'#010+
' snum := Format('#039'(%d)'#039', [MsgNum[msg]]);'#010+
' ipos := Pos(snum, sLine);'#010+
' if ipos = 1 then'#010+
' ',' installer.log(vlCommand,'#039' '#039'+ Copy(sLi'+
'ne, 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<BytesR','ead) 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+
' BuffP','os := 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+
' Byt','esRead := 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 strea'+
'm'#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 o','n output and stderr pipes. PM.'#010+
' if P.Output.NumBytesAvailable > 0 then'#010+
' ReadFromStream(false)'#010+
' else 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 stre'+
'am. But I'#010+
' // see no way showing the stderr outpu','t at the place it was actu'+
'ally 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(co','nst directory : string) : boolean;'#010+
'var'#010+
' searchRec: TSearchRec;'#010+
' SearchResult: longint;'#010+
'begin'#010+
' result := true;'#010+
' SearchResult := FindFirst(IncludeTrailingPathDelimiter(directory)+Al'+
'lFilesMask, faAnyFile+faSymLink, searchRec);'#010+
' try'#010+
' wh','ile 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): stri'+
'ng;'#010+
'type'#010+
' TParseCompilerOutputState = (cosBeginOfLine, cosSearchColon, cosPars'+
'eNumber, cosOther);'#010+
#010+
'var'#010+
' presult:',' pchar;'#010+
' state: TParseCompilerOutputState;'#010+
' ch: char;'#010+
' eolchar: char;'#010+
'begin'#010+
' m.Seek(0, soBeginning);'#010+
' setlength(Result,M.Size);'#010+
#010+
' if verbose then'#010+
' begin'#010+
' m.Read(Result[1],M.Size);'#010+
' Exit;'#010+
' end;'#010+
#010+
' presult := @Result[1];',#010+
' eolchar := RightStr(LineEnding,1)[1];'#010+
' m.Seek(0,soBeginning);'#010+
' state := cosBeginOfLine;'#010+
' while m.Position<m.Size do'#010+
' begin'#010+
' ch := char(m.ReadByte);'#010+
' case state of'#010+
' cosBeginOfLine:'#010+
' begin'#010+
' if ch=',#039'('#039' then'#010+
' state := cosParseNumber'#010+
' else if ch='#039' '#039' then'#010+
' begin'#010+
' presult^ := ch;'#010+
' inc(presult);'#010+
' end'#010+
' else'#010+
' begin'#010+
' presult^',' := ch;'#010+
' inc(presult);'#010+
' state := cosSearchColon;'#010+
' end;'#010+
' end;'#010+
' 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 : String) : string;'#010+
#010+
' Procedure W(Var J : Integer; Var R : String; T : String);'#010+
' Var'#010+
' I: integer;'#010+
' begin'#010+
' If J+Len','gth(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'#010+
' #9: w(J,Result,'#039'	'#039');'#010+
'{ #10: wrtStr('#039'
'#039');'#010+
' #13: wrtStr('#039'
'#039');}'#010+
' else'#010+
' Result[J]:=S[i];'#010+
' ','end;'#010+
' If (J=Length(Result)) and (I<Length(S)) then'#010+
' SetLength(Result,J+Length(S)-I);'#010+
' end;'#010+
' If J<>Length(Result) then'#010+
' SetLength(Result,J);'#010+
'end;'#010+
#010+
#010+
'function maybequoted(const s:string):string;'#010+
'const'#010+
' {$IF DEFINED(MSWINDOWS) O','R DEFINED(AMIGA) OR DEFINED(MORPHOS) OR D'+
'EFINED(AROS)}'#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'];'#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'];'#010+
' {$ENDIF}'#010+
'var'#010+
' s1 : string;'#010+
' i : integer;'#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 FORBID','DEN_CHARS then'#010+
' quoted:=True;'#010+
' s1:=s1+s[i];'#010+
' end;'#010+
' end;'#010+
' end;'#010+
' if quoted then'#010+
' maybequoted:=s1+'#039'"'#039#010+
' else'#010+
' maybequoted:=s;'#010+
'end;'#010+
#010+
#010+
'procedure ReadIniFile(Const AFileName: String;L:TStrings);'#010+
'Var'#010+
' F : TFil','eStream;'#010+
' Line : String;'#010+
' I,P,PC : Integer;'#010+
'begin'#010+
' // On some file systems and when using a large number of parallel ma'+
'ke'#010+
' // processes, the lock from the creation of the ini file may not 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+
' P','C:=Pos('#039';'#039',Line); // Comment line.'#010+
' If (P=0) or ((PC<>0) and (PC<P)) then'#010+
' L.Delete(I)'#010+
' else'#010+
' L[i]:=Trim(System.Copy(Line,1,P-1)+'#039'='#039'+Trim(System.C'+
'opy(Line,P+1,Length(Line)-P)));'#010+
' end;'#010+
' Finally'#010+
' F.Fr','ee;'#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+
'be','gin'#010+
' Result:=CPUToString(Defaults.CPU);'#010+
'end;'#010+
#010+
'Function OSToString(OS: TOS) : String;'#010+
#010+
'begin'#010+
' Result:=LowerCase(GetenumName(TypeInfo(TOS),Ord(OS)));'#010+
'end;'#010+
#010+
'Function OSesToString(OSes: TOSes) : String;'#010+
#010+
'var'#010+
' i: TOS;'#010+
' Tmp: String;'#010+
' First: ','boolean;'#010+
#010+
'begin'#010+
' { can'#039't use SetToString, there are more than 32 OSes }'#010+
' First:=true;'#010+
' 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+
' R','esult:=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:=L','owerCase(SetToString(PTypeInfo(TypeInfo(TCPUS)),Integer(C'+
'PUS),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(SE','rrInvalidOS,[S]);'#010+
' Result:=TOS(I);'#010+
'end;'#010+
#010+
'(*'#010+
'Function StringToOSes(const S : String) : TOSes;'#010+
#010+
'begin'#010+
' Result:=TOSes(StringToSet(PTypeInfo(TypeInfo(TOSes)),S));'#010+
'end;'#010+
'*)'#010+
#010+
'function IsDifferentFromBuild(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(SErrIn','validCPU,[S]);'#010+
' Result:=TCPU(I);'#010+
'end;'#010+
#010+
'Function StringToCPUS(const S : String) : TCPUS;'#010+
#010+
'begin'#010+
' Result:=TCPUS(StringToSet(PTypeInfo(TypeInfo(TCPUS)),S));'#010+
'end;'#010+
#010+
'Function ModeToString(Mode: TCompilerMode) : String;'#010+
#010+
'begin'#010+
' Result:=LowerCas','e(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 EIns','tallerError.CreateFmt(SErrInvalidMode,[S]);'#010+
' Result:=TCompilerMode(I);'#010+
'end;'#010+
#010+
#010+
'Function MakeTargetString(CPU : TCPU;OS: TOS;ALimit83: boolean) : Stri'+
'ng;'#010+
#010+
'begin'#010+
' if ALimit83 then'#010+
' Result := OSToString(OS)'#010+
' else'#010+
' Result:=CPUToString(C','PU)+'#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) : Strin'+
'g;'#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: TOS)'+
';'#010+
#010+
'Var'#010+
' P : integer;'#010+
#010+
'begin'#010+
' P:=Pos('#039'-'#039',S);'#010+
' If (P=0) then'#010+
' Raise EInsta','llerError.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 [depPackage,depUnit] then'#010+
' begin'#010+
' J:=P.IndexOfName(C.Value);'#010+
' If J<>-1 then'#010+
' C','.Target:=P.Items[J];'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'function AddConditionalStrings(APackage: TPackage; Dest : TStrings; Sr'+
'c : TConditionalStrings;ACPU:TCPU;AOS:TOS; Const APrefix : String='#039+
#039') : Integer ;'#010+
'Var'#010+
' I : Integer;'#010+
' C : TConditio','nalString;'#010+
' D : TPackageDictionary;'#010+
' S : String;'#010+
'begin'#010+
' Result:=0;'#010+
' D := PackageDictionaryClass.Create(nil);'#010+
' D.MasterDictionary := APackage.Dictionary;'#010+
' try'#010+
' D.AddVariable('#039'CPU'#039',CPUToString(ACPU));'#010+
' D.AddVariable('#039'OS'#039',OSToStrin','g(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) then'#010+
' begin'#010+
' If (APrefix<>'#039#039') then'#010+
' S:=APrefix+C.Value'#010+
' else'#010+
' S:','=C.Value;'#010+
' S := D.ReplaceStrings(s);'#010+
' if C is TConditionalDestString then'#010+
' begin'#010+
' // If a destination path is given, omit the path of th'+
'e sourcefile'#010+
' if TConditionalDestString','(c).DestPath='#039#039' then'#010+
' Dest.values[S] := D.ReplaceStrings(IncludeTrailingP'+
'athDelimiter(TConditionalDestString(c).DestPath))+S'#010+
' else'#010+
' Dest.values[S] := D.ReplaceStrings(IncludeTrailingP'+
'athDel','imiter(TConditionalDestString(c).DestPath)+APrefix+ExtractFile'+
'Name(C.Value));'#010+
' end'#010+
' else'#010+
' Dest.Add(S);'#010+
' Inc(Result);'#010+
' end;'#010+
' end;'#010+
' finally'#010+
' D.Free;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'function File','ListToString(List : TStrings; const APrefix : String) :'+
' String;'#010+
'Var'#010+
' I : integer;'#010+
' S : String;'#010+
'begin'#010+
' Result:='#039#039';'#010+
' For I:=0 to List.Count-1 do'#010+
' begin'#010+
' If (I>0) then'#010+
' Result:=Result+'#039' '#039';'#010+
' S:=APrefix+List[i];'#010+
' If ','(Pos('#039' '#039',S)<>0) then'#010+
' S:='#039'"'#039'+S+'#039'"'#039';'#010+
' Result:=Result+S;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'function FixPath (const APath : String) : String;'#010+
'begin'#010+
' Result := FixPath(APath, False);'#010+
'end;'#010+
#010+
'function FixPath (const APath : String; AIsDir : Boolean) : ','String;'#010+
'Var'#010+
' P : PChar;'#010+
'begin'#010+
' Result:=APath;'#010+
' If (result<>'#039#039') then'#010+
' begin'#010+
' UniqueString(Result);'#010+
' P:=PChar(Result);'#010+
' While (P^<>#0) do'#010+
' begin'#010+
' If P^ in ['#039'/'#039','#039'\'#039'] then'#010+
' P^:=PathDelim;'#010+
' ',' Inc(P);'#010+
' end;'#010+
' end;'#010+
' if AIsDir and (Result <> '#039#039') then'#010+
' Result := IncludeTrailingPathDelimiter(Result);'#010+
'end;'#010+
#010+
'function IsRelativePath(const APath: String): boolean;'#010+
'begin'#010+
' if APath='#039#039' then'#010+
' result := true'#010+
'{$ifdef unix}'#010+
' ',' else if APath[1] in 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 No','t SetCurrentDir(APath) then'#010+
' Raise EInstallerError.CreateFmt(SErrChangeDirFailed,[APath]);'#010+
'end;'#010+
#010+
#010+
'procedure SearchFiles(AFileName, ASearchPathPrefix: string; Recursive:'+
' boolean; var List: TStrings);'#010+
#010+
' procedure AddRecursiveFiles(const S','earchDir, FileMask: string; Rec'+
'ursive: boolean);'#010+
' var'#010+
' Info : TSearchRec;'#010+
' begin'#010+
' if FindFirst(SearchDir+AllFilesMask,faAnyFile and faDirectory,Info'+
')=0 then'#010+
' begin'#010+
' repeat'#010+
' if ((Info.Attr and faDirectory) = faDirect','ory) and (Info.N'+
'ame <> '#039'.'#039') and (Info.Name <> '#039'..'#039') and (Recursive) th'+
'en'#010+
' AddRecursiveFiles(SearchDir + Info.Name + PathDelim, FileM'+
'ask, 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+
' sysutils.FindClose(Info);'#010+
' end;'#010+
#010+
'var'#010+
' CurrDir,'#010+
' BasePath: string;'#010+
' i: integer;'#010+
'begin'#010+
' if IsRelativePath(AFil','eName) and (ASearchPathPrefix<>'#039#039') the'+
'n'#010+
' AFileName := IncludeTrailingPathDelimiter(ASearchPathPrefix) + AFi'+
'leName;'#010+
#010+
' BasePath := ExtractFilePath(ExpandFileName(AFileName));'#010+
#010+
' AddRecursiveFiles(BasePath, ExtractFileName(AFileName), Recu','rsive)'+
';'#010+
#010+
' CurrDir:=GetCurrentDir;'#010+
' for i := 0 to Pred(List.Count) do'#010+
' List[i] := ExtractRelativepath(IncludeTrailingPathDelimiter(Includ'+
'eTrailingPathDelimiter(CurrDir)+ASearchPathPrefix), List[i]);'#010+
'end;'#010+
#010+
'Const'#010+
' WhiteSpace = [#9,#10,#1','3,'#039' '#039'];'#010+
' QuoteChars = ['#039#039#039#039','#039'"'#039'];'#010+
#010+
'procedure SplitCommand(const Cmd : String; var Exe, Options : String);'+
#010+
#010+
'Var'#010+
' I : Integer;'#010+
' InQuote : Boolean;'#010+
' LastQuote : Char;'#010+
' S : String;'#010+
#010+
'begin'#010+
' S:=Trim(Cmd);'#010+
' InQuote:=False;'#010+
' LastQuote:=#0;'#010,
' I:=1;'#010+
' While (I<=Length(S)) and (Inquote or not (S[I] in whiteSpace)) do'#010+
' begin'#010+
' If S[i] in QuoteChars then'#010+
' begin'#010+
' InQuote:=Not (S[i]=LastQuote);'#010+
' If InQuote then'#010+
' LastQuote:=S[i]'#010+
' else'#010+
' LastQu','ote:=#0;'#010+
' end;'#010+
' Inc(I);'#010+
' end;'#010+
' Exe:=Copy(S,1,I-1);'#010+
' Delete(S,1,I);'#010+
' Options:=Trim(S);'#010+
'end;'#010+
#010+
'procedure AddCustomFpmakeCommandlineOption(const ACommandLineOption, H'+
'elpMessage : string);'#010+
'begin'#010+
' if not assigned(CustomFpmakeComman','dlineOptions) then'#010+
' CustomFpmakeCommandlineOptions := TStringList.Create;'#010+
' CustomFpmakeCommandlineOptions.Values[ACommandLineOption]:=HelpMessa'+
'ge;'#010+
'end;'#010+
#010+
'function GetCustomFpmakeCommandlineOptionValue(const ACommandLineOptio'+
'n: string): s','tring;'#010+
'begin'#010+
' if not assigned(CustomFpMakeCommandlineValues) then'#010+
' result := '#039#039#010+
' else'#010+
' result := CustomFpMakeCommandlineValues.Values[ACommandLineOption]'+
';'#010+
'end;'#010+
#010+
'function AddProgramExtension(const ExecutableName: string; AOS : TOS):'+
' ','string;'#010+
'begin'#010+
' if AOS in [Go32v2,Win32,Win64,Wince,OS2,EMX,Watcom] then'#010+
' Result:=ExecutableName+ExeExt'#010+
' else'#010+
' Result:=ExecutableName;'#010+
'end;'#010+
#010+
'function GetImportLibraryFilename(const UnitName: string; AOS: TOS): s'+
'tring;'#010+
'begin'#010+
' if AOS ','in [go32v2,watcom] then'#010+
' Result := '#039'libimp'#039'+UnitName'#010+
' else if AOS in [os2,emx] then'#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 := R','esult + LibExt;'#010+
'end;'#010+
#010+
'Function OptionListToString(L : TStrings) : String;'#010+
#010+
'var'#010+
' I : Integer;'#010+
' S : String;'#010+
#010+
'begin'#010+
' Result:='#039#039';'#010+
' For I:=0 to L.Count-1 do'#010+
' begin'#010+
' If (Result<>'#039#039') then'#010+
' Result:=Result+'#039' '#039';'#010+
' S:=L[I];'#010+
' If (Po','s('#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+
' Res','ult:=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+
'{$ifde','f HAS_UNIT_PROCESS}'#010+
'function GetCompilerInfo(const ACompiler,AOptions:string; ReadStdErr: '+
'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,poWaitOnExit];'#010+
' S.execute;'#010+
' Count:=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 : TCPU;OS: TOS; var ErrorMessage: str'+
'ing): string;'#010+
#010+
' function Get4thWord(const AString: string): string;'#010+
' var p: pchar;'#010+
' spacecount: inte','ger;'#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 spacecount=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(AddProgramExtension('#039'gcc'#039', OS),'+
'Sysutils.GetEnvironmentVariable('#039'PATH'#039'));'#010+
' if FileExists(GccExecutable) then'#010+
' begin'#010+
'{$ifdef HAS_UNIT_PROC','ESS}'#010+
' ExecResult:=GetCompilerInfo(GccExecutable,'#039'-v '#039'+GCCParam'+
's, True);'#010+
' libgccFilename:=Get4thWord(ExecResult);'#010+
' // Use IsRelativePath to check if the 4th word is an (absolute) '+
'path.'#010+
' // This depends on the language set','tings. In English the 4th w'+
'ord is'#010+
' // empty, if this particular gcc version does not return the lib'+
'gcc-'#010+
' // filename on -v. But in other languages (e.g. Dutch) it may be'+
' another'#010+
' // word.'#010+
' if IsRelativePath(libgccFilenam','e) then'#010+
' libgccFilename:='#039#039';'#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+
' ErrorMessage := 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+
' resul','t := '#039'/usr/local/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+
');'#010+
' x86_64: result := GetGccDirArch('#039'cpux86_64'#039','#039'-m64'#039+
');'#010,
' powerpc: result := GetGccDirArch('#039'cpupowerpc'#039','#039'-m32'+
#039');'#010+
' powerpc64:result := GetGccDirArch('#039'cpupowerpc64'#039','#039'-m'+
'64'#039');'#010+
' aarch64: result := GetGccDirArch('#039'cpuaarch64'#039','#039#039')'+
';'#010+
' end {case}'#010+
' else if OS = darwin then'#010+
' case CPU o','f'#010+
' i386: result := GetGccDirArch('#039'cpui386'#039','#039'-arch i'+
'386'#039');'#010+
' x86_64: result := GetGccDirArch('#039'cpux86_64'#039','#039'-arch'+
' x86_64'#039');'#010+
' powerpc: result := GetGccDirArch('#039'cpupowerpc'#039','#039'-arc'+
'h ppc'#039');'#010+
' powerpc64:result := GetGccDirAr','ch('#039'cpupowerpc64'#039','#039'-'+
'arch ppc64'#039');'#010+
' { this target uses clang }'#010+
' aarch64: result := '#039#039#010+
' end; {case}'#010+
'end;'#010+
#010+
'constructor TPackageVariant.Create(ACollection: TCollection);'#010+
'begin'#010+
' inherited Create(ACollection);'#010+
' FTargets := TTarget','s.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.F','ree;'#010+
' FTargets.Free;'#010+
' FIncludePath.Free;'#010+
' FSourcePath.Free;'#010+
' inherited Destroy;'#010+
'end;'#010+
#010+
'{ TPackageVariants }'#010+
#010+
'procedure TPackageVariants.SetDefaultPackageVariantName(AValue: string'+
');'#010+
'begin'#010+
' if FDefaultPackageVariantName=AValue then Exit;',#010+
' if not assigned(ItemByName(avalue)) then'#010+
' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#010+
' FDefaultPackageVariantName:=AValue;'#010+
'end;'#010+
#010+
'function TPackageVariants.GetActivePackageVariant: TPackageVariant;'#010+
'begin'#010+
' result := ItemB','yName(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.SetA','ctivePackageVariantName(AValue: strin'+
'g);'#010+
'begin'#010+
' if FActivePackageVariantName=AValue then Exit;'#010+
' if not assigned(ItemByName(avalue)) then'#010+
' raise exception.CreateFmt(SErrPackVarNotExist,[AValue]);'#010+
' FActivePackageVariantName:=AValue;'#010+
'end',';'#010+
#010+
'function TPackageVariants.Add(AName: String): TPackageVariant;'#010+
'begin'#010+
' result := self.add as TPackageVariant;'#010+
' result.Name := AName;'#010+
' if FDefaultPackageVariantName='#039#039' then'#010+
' FDefaultPackageVariantName:=AName;'#010+
'end;'#010+
#010+
#010+
'{ TConditionalDes','tStrings }'#010+
#010+
'function TConditionalDestStrings.GetConditionalString(Index : Integer)'+
': TConditionalDestString;'#010+
'begin'#010+
' Result:=TConditionalDestString(Items[Index]);'#010+
'end;'#010+
#010+
'procedure TConditionalDestStrings.SetConditionalString(Index : Integer'+
'; ','AValue: TConditionalDestString);'#010+
'begin'#010+
' Items[Index]:=AValue;'#010+
'end;'#010+
#010+
'constructor TConditionalDestStrings.Create(AClass: TConditionalDestStr'+
'ingClass);'#010+
'begin'#010+
' inherited Create(AClass);'#010+
'end;'#010+
#010+
'function TConditionalDestStrings.Add(const Value: ','String; ADestPath:'+
' String): TConditionalDestString;'#010+
'begin'#010+
' Result:=Add(Value, AllCPUs, AllOSes, ADestPath);'#010+
'end;'#010+
#010+
'function TConditionalDestStrings.Add(const Value: String; const OSes: '+
'TOSes; ADestPath: String): TConditionalDestString;'#010+
'begi','n'#010+
' Result:=Add(Value, AllCPUs, OSes, ADestPath);'#010+
'end;'#010+
#010+
'{$ifdef cpu_only_overloads}'#010+
'Function TConditionalDestStrings.Add(Const Value : String;const CPUs:T'+
'CPUs; ADestPath: String) : TConditionalDestString;inline;'#010+
'begin'#010+
' Result:=Add(Value, C','PUs, AllOSes, ADestPath);'#010+
'end;'#010+
'{$endif cpu_only_overloads}'#010+
#010+
#010+
'function TConditionalDestStrings.Add(const Value: String; const CPUs: '+
'TCPUs; const OSes: TOSes; ADestPath: String): TConditionalDestString;'#010+
'var'#010+
' ACondString: TConditionalDestStri','ng;'#010+
'begin'#010+
' ACondString := inherited Add(Value,CPUs,OSes) as TConditionalDestStr'+
'ing;'#010+
' ACondString.DestPath:=ADestPath;'#010+
' Result:=ACondString;'#010+
'end;'#010+
#010+
'{ TPackageDictionary }'#010+
#010+
'function TPackageDictionary.GetValue(const AName, Args: String): St','r'+
'ing;'#010+
'Var'#010+
' O : TObject;'#010+
' I : Integer;'#010+
'begin'#010+
' I:=Flist.IndexOf(AName);'#010+
' If (I=-1) then'#010+
' begin'#010+
' if assigned(MasterDictionary) then'#010+
' result := MasterDictionary.GetValue(AName,Args)'#010+
' else'#010+
' result := GlobalDictiona','ry.GetValue(AName,Args);'#010+
' Exit;'#010+
' end;'#010+
' O:=Flist.Objects[I];'#010+
' If O is TValueItem then'#010+
' Result:=TValueItem(O).FValue'#010+
' else'#010+
' Result:=TFunctionItem(O).FFunc(AName,Args);'#010+
'end;'#010+
#010+
'{$ifndef NO_THREADING}'#010+
#010+
'{ TCompileWorkerThread }'#010+
#010+
'c','onstructor TCompileWorkerThread.Create(ABuildEngine: TBuildEngine; '+
'NotifyMainThreadEvent: PRTLEvent);'#010+
'begin'#010+
' inherited Create(false);'#010+
' FNotifyStartTask := RTLEventCreate;'#010+
' FBuildEngine := ABuildEngine;'#010+
' FNotifyMainThreadEvent:=NotifyMai','nThreadEvent;'#010+
'end;'#010+
#010+
'destructor TCompileWorkerThread.Destroy;'#010+
'begin'#010+
' RTLeventdestroy(FNotifyStartTask);'#010+
' inherited Destroy;'#010+
'end;'#010+
#010+
'procedure TCompileWorkerThread.execute;'#010+
'begin'#010+
' while not Terminated do'#010+
' begin'#010+
' FDone:=true;'#010+
' RTLeve','ntSetEvent(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+
'{***********************************************************','********'+
'*********'#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+
' end;'#010+
' inherited Add(S);'#010+
'end;'#010+
#010+
'{*********************************************************************'+
'*******'#010,
' TNamedItem'#010+
'**********************************************************************'+
'******}'#010+
#010+
'procedure TNamedItem.SetName(const AValue: String);'#010+
#010+
'begin'#010+
' if FName=AValue then exit;'#010+
' With TNamedCollection(Collec','tion) do'#010+
' If UniqueNames then'#010+
' If (IndexOfName(AVAlue)<>-1) then'#010+
' Raise ECollectionError.CreateFmt(SErrNameExists,[AValue]);'#010+
' FName:=AValue;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'******','*'#010+
' TNamedCollection'#010+
'**********************************************************************'+
'******}'#010+
#010+
'function TNamedCollection.GetItem(Index: Integer): TNamedItem;'#010+
'begin'#010+
' result := TNamedItem(inherited getItem(','index));'#010+
'end;'#010+
#010+
'procedure TNamedCollection.SetItem(Index: Integer; AValue: TNamedItem)'+
';'#010+
'begin'#010+
' inherited SetItem(Index, AValue);'#010+
'end;'#010+
#010+
'function TNamedCollection.IndexOfName(const AName: String): Integer;'#010+
#010+
'begin'#010+
' Result:=Count-1;'#010+
' While (R','esult>=0) and (CompareText(TNamedItem(Items[Result]).FName'+
',AName)<>0) do'#010+
' Dec(Result);'#010+
'end;'#010+
#010+
'function TNamedCollection.ItemByName(const AName: String): TNamedItem;'+
#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+
'*********************','***********************************************'+
'********}'#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 AValu','e:'+
' TNamedItem);'#010+
'begin'#010+
' Items[Index]:=AValue;'#010+
'end;'#010+
#010+
#010+
'function TNamedItemList.IndexOfName(const AName: String): Integer;'#010+
'begin'#010+
' Result:=Count-1;'#010+
' While (Result>=0) and (CompareText(GetNamedItem(Result).Name,AName)<'+
'>0) do'#010+
' Dec(Result);'#010+
'e','nd;'#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+
'{*********************************************************************'+
'*******'#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:',' TTar'+
'get);'#010+
'begin'#010+
' Items[Index]:=AValue;'#010+
'end;'#010+
#010+
'function TTargets.AddFPDoc(const AUnitName, AXMLName: String): TTarget'+
';'#010+
'begin'#010+
' Result:=Add as TTarget;'#010+
' Result.Name:=AUnitName;'#010+
' Result.XML:=AXMLName;'#010+
' Result.TargetType:=ttFPDoc;'#010+
'end;'#010+
#010+
'Fun','ction TTargets.AddUnit(Const AUnitName : String) : TTarget;'#010+
'begin'#010+
' Result:=AddUnit(AUnitName,AllCPUs,AllOSes);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddUnit(Const AUnitName : String;const OSes: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;'#010+
'begin'#010+
' Result:=AddUnit(AUnitName,CPUs,AllOSes);'#010+
'end;'#010+
'{$endif cpu_only_overloads}'#010+
#010+
#010+
'Function TTargets.AddUnit(Const A','UnitName : String;const CPUs:TCPUs;'+
'const OSes:TOSes) : TTarget;'#010+
'begin'#010+
' Result:=Add as TTarget;'#010+
' Result.Name:=AUnitName;'#010+
' Result.TargetType:=TTUnit;'#010+
' Result.CPUs:=CPUs;'#010+
' Result.OSes:=OSes;'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddImplicitUnit(Const ','AUnitName : String;InstallUn'+
'it:boolean=true) : TTarget;'#010+
'begin'#010+
' Result:=AddImplicitUnit(AUnitName,AllCPUs,AllOSes,InstallUnit);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const OSes:'+
'TOSes;InstallUnit:boolean=true) : T','Target;'#010+
'begin'#010+
' Result:=AddImplicitUnit(AUnitName,AllCPUs,OSes,InstallUnit);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const CPUs:'+
'TCPUs;InstallUnit:boolean=true) : TTarget;'#010+
'begin'#010+
' Result:=AddImplicitUnit(AUnitName,C','PUs,AllOSes,InstallUnit);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddImplicitUnit(Const AUnitName : String;const CPUs:'+
'TCPUs;const OSes:TOSes;InstallUnit:boolean=true) : TTarget;'#010+
'begin'#010+
' Result:=Add as TTarget;'#010+
' Result.Name:=AUnitName;'#010+
' Result.CPUs:=CPUs',';'#010+
' Result.OSes:=OSes;'#010+
' if InstallUnit then'#010+
' Result.TargetType:=TTImplicitUnit'#010+
' else'#010+
' Result.TargetType:=TTCleanOnlyUnit;'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddProgram(Const AProgramName : String) : TTarget;'#010+
'begin'#010+
' Result:=AddProgram(AProgra','mName,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(Cons','t AProgramName : String;const CPUs:'+
'TCPUs) : TTarget;'#010+
'begin'#010+
' Result:=AddProgram(AProgramName,CPUs,AllOSes);'#010+
'end;'#010+
'{$endif cpu_only_overloads}'#010+
#010+
#010+
'Function TTargets.AddProgram(Const AProgramName : String;const CPUs:TC'+
'PUs;const OSes:TOSes) : TTa','rget;'#010+
'begin'#010+
' Result:=Add as TTarget;'#010+
' Result.Name:=AProgramName;'#010+
' Result.CPUs:=CPUs;'#010+
' Result.OSes:=OSes;'#010+
' Result.TargetType:=ttProgram;'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddExampleUnit(Const AUnitName : String) : TTarget;'#010+
'begin'#010+
' Result:=AddExa','mpleUnit(AUnitName,AllCPUs,AllOSes);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddExampleUnit(Const AUnitName : String;const OSes:T'+
'OSes) : TTarget;'#010+
'begin'#010+
' Result:=AddExampleUnit(AUnitName,AllCPUs,OSes);'#010+
'end;'#010+
#010+
#010+
'{$ifdef cpu_only_overloads}'#010+
'Function TTargets.','AddExampleUnit(Const AUnitName : String;const CPUs'+
':TCPUs) : 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;'#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'+
'rge','t;'#010+
'begin'#010+
' Result:=AddExampleProgram(AProgramName,AllCPUs,AllOSes);'#010+
'end;'#010+
#010+
#010+
'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
'OSes:TOSes) : TTarget;'#010+
'begin'#010+
' Result:=AddExampleProgram(AProgramName,AllCPUs,OSes);'#010+
'end;'#010+
#010+
#010+
'{$i','fdef cpu_only_overloads}'#010+
'Function TTargets.AddExampleProgram(Const AProgramName : String;const '+
'CPUs:TCPUs) : TTarget;'#010+
'begin'#010+
' Result:=AddExampleProgram(AProgramName,CPUs,AllOSes);'#010+
'end;'#010+
'{$endif cpu_only_overloads}'#010+
#010+
#010+
'Function TTargets.AddExam','pleProgram(Const AProgramName : String;cons'+
't 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+
'{*****','**************************************************************'+
'*********'#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);'#010+
'begin'#010+
' Items[Index]:=AValue;'#010+
'end;'#010+
#010+
#010+
'function TSources.AddDoc (const AFiles : String) : TSource;'#010+
'begin'#010+
' Resu','lt:=Add as TSource;'#010+
' Result.Name:=AFiles;'#010+
' Result.FSourceType:=stDoc;'#010+
'end;'#010+
#010+
#010+
'function TSources.AddDoc(const AFiles: String; AInstallSourcePath: Str'+
'ing): TSource;'#010+
'begin'#010+
' Result:=Add as TSource;'#010+
' Result.Name:=AFiles;'#010+
' Result.FInstallSour','cePath:=AInstallSourcePath;'#010+
' Result.FSourceType:=stDoc;'#010+
'end;'#010+
#010+
#010+
'function TSources.AddSrc(const AFiles : String) : TSource;'#010+
'begin'#010+
' Result:=Add as TSource;'#010+
' Result.Name:=AFiles;'#010+
' Result.FSourceType:=stSrc;'#010+
'end;'#010+
#010+
#010+
'function TSources.AddExamp','le(const AFiles : String) : TSource;'#010+
'begin'#010+
' Result:=Add as TSource;'#010+
' Result.Name:=AFiles;'#010+
' Result.FSourceType:=stExample;'#010+
'end;'#010+
#010+
'function TSources.AddExample(const AFiles: String; AInstallSourcePath:'+
' 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+
'procedure TSources.AddDocFiles(const AFileMask, ASearchPathPrefix: str'+
'ing; Recursive: boolean; AInstallSourcePath: String);'#010+
'var'#010+
' List : TStrings;'#010+
' i: integer;'#010+
'begin'#010+
' List := TStringList.Create;'#010+
' Search','Files(AFileMask, ASearchPathPrefix, Recursive, List);'#010+
' for i:= 0 to Pred(List.Count) do'#010+
' AddDoc(List[i], AInstallSourcePath);'#010+
' List.Free;'#010+
'end;'#010+
#010+
#010+
'procedure TSources.AddSrcFiles(const AFileMask, ASearchPathPrefix: str'+
'ing; Recursive: bool','ean);'#010+
'var'#010+
' List : TStrings;'#010+
' i: integer;'#010+
'begin'#010+
' List := TStringList.Create;'#010+
' SearchFiles(AFileMask, ASearchPathPrefix, Recursive, List);'#010+
' for i:= 0 to Pred(List.Count) do'#010+
' AddSrc(List[i]);'#010+
' List.Free;'#010+
'end;'#010+
#010+
#010+
'procedure TSources.AddE','xampleFiles(const AFileMask, ASearchPathPrefi'+
'x: string; Recursive: boolean; AInstallSourcePath: String);'#010+
'var'#010+
' List : TStrings;'#010+
' i: integer;'#010+
'begin'#010+
' List := TStringList.Create;'#010+
' SearchFiles(AFileMask, ASearchPathPrefix, 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, ASearchPathPrefix: st'+
'ring; Recursive: boolean);'#010+
'var'#010+
' List : TStrings;'#010+
' i: integer;'#010+
'begin'#010,
' List := TStringList.Create;'#010+
' SearchFiles(AFileMask, ASearchPathPrefix, Recursive, List);'#010+
' for i:= 0 to Pred(List.Count) do'#010+
' AddTest(List[i]);'#010+
' List.Free;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*','******'#010+
' TPackage'#010+
'**********************************************************************'+
'******}'#010+
#010+
'constructor TPackage.Create(ACollection: TCollection);'#010+
'begin'#010+
' inherited Create(ACollection);'#010+
' FVersion:=TFPVersion','.Create;'#010+
' FTargets:=TTargets.Create(TTarget);'#010+
' FSources:=TSources.Create(TSource);'#010+
' FDependencies:=TDependencies.Create(TDependency);'#010+
' FInstallFiles:=TConditionalDestStrings.Create(TConditionalDestString'+
');'#010+
' FCleanFiles:=TConditionalStr','ings.Create(TConditionalString);'#010+
' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#010+
' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#010+
' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
' FSourcePath:=TCon','ditionalStrings.Create(TConditionalString);'#010+
' FExamplePath:=TConditionalStrings.Create(TConditionalString);'#010+
' FTestPath:=TConditionalStrings.Create(TConditionalString);'#010+
' FCommands:=TCommands.Create(TCommand);'#010+
' FUnitsOutputDir:='#039'units'#039'+Pat','hDelim+'#039'$(target)'#039'+Pat'+
'hDelim;'#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+
' FSupportBui','ldModes:=[bmBuildUnit, bmOneByOne];'#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+
' Fr','eeAndNil(FSourcePath);'#010+
' FreeAndNil(FExamplePath);'#010+
' FreeAndNil(FTestPath);'#010+
' FreeAndNil(FCommands);'#010+
' FreeAndNil(FObjectPath);'#010+
' FreeAndNil(FUnitPath);'#010+
' FreeAndNil(FSources);'#010+
' FreeAndNil(FTargets);'#010+
' FreeAndNil(FVersion);'#010+
' FreeAndNil(FO','ptions);'#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 Se','tName(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',MakeT'+
'argetString(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'+','Fp'+
'mkExt,['#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: TPackage','Variants;'#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(GetPackageVariantsByName(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): TP','ackageV'+
'ariants;'#010+
'var'#010+
' i: Integer;'#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.Get','PackageUnitInstallDir(ACPU: TCPU; 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) : St','ring;'#010+
'begin'#010+
' Result:='#039'bin'#039'+PathDelim+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(A','CPU,AOS));'#010+
' OU:=IncludeTrailingPathDelimiter(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+
' FT','argets.TargetItems[I].GetCleanFiles(List, OU, OB, ACPU, AOS);'#010+
'end;'#010+
#010+
#010+
'procedure TPackage.GetInstallFiles(List: TStrings;Types : TTargetTypes'+
';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.O','S));'#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, ACP','U, AOS);'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TPackage.GetInstallSourceFiles(List: TStrings; SourceTypes :'+
' 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.SourceItems[I];'#010+
' if (S.SourceType in SourceTypes) then'#010+
' S.GetInstallFiles(List);'#010+
' end;'#010+
' For I:=0 to FTargets.Count-1 do'#010+
' begin'#010+
' T:=FTargets.TargetItems[I];'#010+
' if (T.TargetType in Targe','tTypes) then'#010+
' T.GetArchiveFiles(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].GetArchiveFiles(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.Get','Description : 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:=ExtractFile','Path(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+
'Fu','nction TPackage.GetVersion : string;'#010+
'begin'#010+
' result:=FVersion.AsString;'#010+
'end;'#010+
#010+
'procedure TPackage.SetOptions(const AValue: TStrings);'#010+
'begin'#010+
' If (AValue=Nil) or (AValue.Count=0) then'#010+
' FreeAndNil(Foptions)'#010+
' else'#010+
' Options.Assign(AValue)',';'#010+
'end;'#010+
#010+
#010+
'Procedure TPackage.SetVersion(const V : string);'#010+
'begin'#010+
' FVersion.AsString:=V;'#010+
'end;'#010+
#010+
#010+
'Function TPackage.GetFileName : string;'#010+
'begin'#010+
' If (FFileName<>'#039#039') then'#010+
' Result:=FFileName'#010+
' else'#010+
' if not FVersion.Empty and not'#010+
' ((De','faults.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+
' else'#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 : TStrin','gs);'#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',[OSTo'+
'String(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'<cpus>'#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)]));'#010+
' Manifest.Add(AIndent+'#039'</cpus>'#039');'#010+
' end;'#010+
#010+
' funct','ion 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';'#010+
' if sMinor <> -1 then'#010+
' Result := Resu','lt + '#039' minor="'#039' + IntToStr(sMinor) + '#039+
'"'#039';'#010+
' if sMicro <> -1 then'#010+
' Result := Result + '#039' micro="'#039' + IntToStr(sMicro) + '#039'"'+
#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,FV','ersion.Build));'#010+
' AddOSes('#039' '#039',OSes);'#010+
' AddCPUs('#039' '#039',CPUs);'#010+
' Add(Format('#039' <filename>%s</filename>'#039',[QuoteXml(FileName +'+
' ZipExt)]));'#010+
' Add(Format('#039' <author>%s</author>'#039',[QuoteXml(Author)]));'#010+
' Add(Format('#039' <license>%s</license>'#039',[Qu','oteXml(License)])'+
');'#010+
' if HomepageURL<>'#039#039' then'#010+
' Add(Format('#039' <homepageurl>%s</homepageurl>'#039',[QuoteXml(Ho'+
'mepageURL)]));'#010+
' if DownloadURL<>'#039#039' then'#010+
' Add(Format('#039' <downloadurl>%s</downloadurl>'#039',[QuoteXml(Do'+
'wnloadURL)]));'#010+
' Add(Fo','rmat('#039' <email>%s</email>'#039',[QuoteXMl(Email)]));'#010+
' S:=Description;'#010+
' If (S<>'#039#039') then'#010+
' Add(Format('#039' <description>%s</description>'#039',[QuoteXML(S)'+
']));'#010+
' If (Dependencies.Count>0) then'#010+
' begin'#010+
' Add('#039' <dependencies>'#039');'#010+
' ',' for I:=0 to Dependencies.Count-1 do'#010+
' begin'#010+
' D:=Dependencies[i];'#010+
' Add('#039' <dependency>'#039');'#010+
' Add(Format('#039' <package packagename="%s"/>'#039',[Quote'+
'XML(D.Value)]));'#010+
' if not D.FVersion.Empty then'#010,
' Add('#039' '#039' + GetXMLVersionString(D.FVersion.Major'+
',D.FVersion.Minor,D.FVersion.Micro,D.FVersion.Build));'#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 source 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.Short','Name'#010+
' else'#010+
' result := result + 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 = AllCPUs) 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', [Su','cc (PkgList.C'+
'ount 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+
' PkgList.Add(S);'#010+
' end;'#010+
'end;'#010+
#010+
'procedure TPackage.AddPackageVariant(APackageVariant: TPackageVariants'+
');'#010+
'begin'#010+
' if not assigned(APackageVariant.FMasterPackage) then'#010+
' APackageVariant.FMasterPackage := Self;'#010+
' FPa','ckageVariants.Add(APackageVariant);'#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+
' begi','n'#010+
' PackageVariants := TPackageVariants(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+
' PackageVa','riants: 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'#010+
' P','ackageVariants.ActivePackageVariantName:= Installer.FPackageV'+
'ariantSettings.Values[PackageVariants.Name]'#010+
' else'#010+
' PackageVariants.ActivePackageVariantName:= PackageVariants.Defau'+
'ltPackageVariantName;'#010+
' IncludePath.AddList(PackageVar','iants.ActivePackageVariant.Include'+
'Path);'#010+
' SourcePath.AddList(PackageVariants.ActivePackageVariant.SourcePath'+
');'#010+
' Dictionary.AddVariable(PackageVariants.Name,PackageVariants.Active'+
'PackageVariantName);'#010+
' SetUnitsOutputDir(IncludeTraili','ngPathDelimiter(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 P','ackageVariants.MasterPackage=Self then'#010+
' for j := 0 to PackageVariants.ActivePackageVariant.Targets.count'+
' -1 do'#010+
' targets.add.assign(PackageVariants.ActivePackageVariant.Target'+
's.items[j]);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TPackage.LoadUn','itConfigFromFile(Const AFileName: String);'#010+
'var'#010+
' L,L2 : TStrings;'#010+
' VOS : TOS;'#010+
' VCPU : TCPU;'#010+
' i,k : Integer;'#010+
' DepChecksum : Cardinal;'#010+
' DepName : String;'#010+
' D : TDependency;'#010+
' PackageVariantsStr: string;'#010+
' PackageVarName: string;'#010+
' pv: TP','ackageVariants;'#010+
' AnIsInheritable: 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[KeyChecks','um'+
'],$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));'#010+
' DepName:=Copy(De','pName,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 P','ackageVariantsStr<>'#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:=f','alse;'#010+
' PackageVariantsStr:=copy(PackageVariantsStr,k+1,length'+
'(PackageVariantsStr)-k);'#010+
' pv := Installer.AddPackageVariant(PackageVarName, AnIs'+
'Inheritable);'#010+
' AddPackageVariant(pv);'#010+
#010+
' ',' k := pos('#039','#039',PackageVariantsStr);'#010+
' while k>0 do'#010+
' begin'#010+
' PackageVarName:=copy(PackageVariantsStr,1,k-1);'#010+
' PackageVariantsStr:=copy(PackageVariantsStr,k+1,le'+
'ngth(PackageVa','riantsStr)-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+
' un','til 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);'#010+
'Var'#010+
' Deps : String;'#010+
' i,j : integer;'#010+
' D : TDependency;'#010+
' p : TPack','age;'#010+
' PackageVariants : TPackageVariants;'#010+
' PackageVariantsStr: string;'#010+
'begin'#010+
' with AStringList do'#010+
' begin'#010+
' Values[KeyName]:=Name;'#010+
' Values[KeyVersion]:=Version;'#010+
' // TODO Generate checksum based on PPUs'#010+
' InstalledChec','ksum:=DateTimeToFileDate(Now);'#010+
' Values[KeyChecksum]:=IntToStr(InstalledChecksum);'#010+
' Values[KeyCPU]:=CPUToString(ACPU);'#010+
' Values[KeyOS]:=OSToString(AOS);'#010+
' //Installer;'#010+
' Values[KeySourcePath]:=IncludeTrailingPathDelimit','er(IncludeTra'+
'ilingPathDelimiter(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:=Dependenc','ies[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) th'+
'en'#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.DelimitedT','ext;'#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 FPackageVarian','ts.Count-1 do'#010+
' begin'#010+
' PackageVariants := TPackageVariants(FPackageVariants.Items[i'+
']);'#010+
' PackageVariantsStr:=PackageVariants.Name;'#010+
' if PackageVariants.IsInheritable then'#010+
' PackageVariantsStr:=Packag','eVariantsStr+'#039'*'#039';'#010+
' PackageVariantsStr := PackageVariantsStr +'#039':'#039'+Packag'+
'eVariants.DefaultPackageVariantName;'#010+
' for j := 0 to PackageVariants.Count-1 do'#010+
' if not sametext(PackageVariants.Items[j].Name, PackageVari'+
'an','ts.DefaultPackageVariantName) then'#010+
' PackageVariantsStr:=PackageVariantsStr+'#039','#039'+Packa'+
'geVariants.Items[j].Name;'#010+
' values[KeyPackageVar+inttostr(i+1)] := PackageVariantsStr;'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
'procedure TPackage.S','aveUnitConfigToFile(Const AFileName: String;ACPU'+
':TCPU;AOS:TOS);'#010+
'Var'#010+
' F : TFileStream;'#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+
'{*********************************************************************'+
'*******'#010+
' TPackages'#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: TPa'+
'ckage);'#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 := IndexOf','Name(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+
'{*******','************************************************************'+
'*********'#010+
' TCustomDefaults'#010+
'**********************************************************************'+
'******}'#010+
#010+
'procedure TCustomDefaults.SetCPU(const AValue:',' TCPU);'#010+
'begin'#010+
' FCPU:=AValue;'#010+
' GlobalDictionary.AddVariable('#039'CPU'#039',CPUToString(FCPU));'#010+
' RecalcTarget;'#010+
'end;'#010+
#010+
'procedure TCustomDefaults.SetOptions(const AValue: TStrings);'#010+
'begin'#010+
' If (AValue=Nil) or (AValue.Count=0) then'#010+
' FreeAndNil(Fopti','ons)'#010+
' else'#010+
' Options.Assign(AValue)'#010+
'end;'#010+
#010+
#010+
'function TCustomDefaults.GetBaseInstallDir: 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,' + Pat'+
'hDelim + 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+MakeTargetString('+
'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'f','pc'#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'd','oc'#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'+Pat','hDelim+'#039'$(PackageNa'+
'me)'#039';'#010+
'end;'#010+
#010+
#010+
'function TCustomDefaults.GetExamplesInstallDir: 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'+Path'+
'Delim+'#039'fpc-$(CompilerVersion)'#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'examples'#039'+PathDelim+'#039'$(Package'+
'Name)'#039';'#010+
'end;'#010+
#010+
'function TCustomDefaults.GetOptions: TStrings;'#010+
'begin'#010+
' If (FOptions=Nil) then'#010+
' FOptions:=TStringList.Create;'#010+
' Result:=F','Options;'#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 := FUnitInstallDir;'#010+
'end;'#010+
#010+
#010+
'function TCustomDefaults.GetUnitConfigFilesInstallDir: String;'#010+
'begin'#010+
' result := FUnitConfigFilesInstallDir;'#010+
'end;'#010+
#010+
#010+
'function TCustomDefaults.GetLocalUnitD','ir: String;'#010+
'begin'#010+
' Result:=FLocalUnitDir;'#010+
'end;'#010+
#010+
'function TCustomDefaults.GetFPDocOutputDir: String;'#010+
'begin'#010+
' If (FFPDocOutputDir<>'#039#039') then'#010+
' Result:=FixPath(FFPDocOutputDir, True)'#010+
' else'#010+
' Result:=FixPath('#039'.'#039'+PathDelim+'#039'docs'#039', True);'#010+
'en','d;'#010+
#010+
'function TCustomDefaults.GetFPUnitSourcePath: String;'#010+
'begin'#010+
' If (FFPUnitSourcePath='#039#039') or (FFPUnitSourcePath='#039'0'#039') t'+
'hen'#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.GetGlobalUnitDir: String;'#010+
'begin'#010+
' If (FGlobalUnitDir<>'#039#039') then'#010+
' Result:=FGlobalUnitDir'#010+
' else'#010+
' Result:=UnitInstallDir;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.SetLocalUnit','Dir(const AValue: String);'#010+
'begin'#010+
' // Use ExpandFileName to support ~/ expansion'#010+
' if AValue<>'#039#039' then'#010+
' FLocalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue)'+
')'#010+
' else'#010+
' FLocalUnitDir:='#039#039';'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.Set','GlobalUnitDir(const AValue: String);'#010+
'begin'#010+
' // Use ExpandFileName to support ~/ expansion'#010+
' if AValue<>'#039#039' then'#010+
' FGlobalUnitDir:=IncludeTrailingPathDelimiter(ExpandFileName(AValue'+
'))'#010+
' else'#010+
' FGlobalUnitDir:='#039#039';'#010+
'end;'#010+
#010+
'procedure TCustomD','efaults.IntSetBaseInstallDir(const AValue: String)'+
';'#010+
'begin'#010+
' if AValue<>'#039#039' then'#010+
' FBaseInstallDir:=IncludeTrailingPathDelimiter(AValue)'#010+
' else'#010+
' FBaseInstallDir:='#039#039';'#010+
' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstallDir'+
');'#010+
' Glob','alDictionary.AddVariable('#039'bininstalldir'#039',BinInstallDir'+
');'#010+
' BinInstallDir:='#039#039';'#010+
' ExamplesInstallDir:='#039#039';'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.SetBaseInstallDir(const AValue: String);'#010+
'begin'#010+
' // There must be a possibility to skip ExpandFileName.',' So that the'+
' files'#010+
' // can be written into an archive with a relative path.'#010+
' if AValue<>'#039#039' then'#010+
' // Use ExpandFileName to support ~/ expansion'#010+
' IntSetBaseInstallDir(ExpandFileName(AValue))'#010+
' else'#010+
' IntSetBaseInstallDir(AValue);'#010+
'en','d;'#010+
#010+
#010+
'procedure TCustomDefaults.SetOS(const AValue: TOS);'#010+
'begin'#010+
' FOS:=AValue;'#010+
' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS));'#010+
' Recalctarget;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.SetPrefix(const AValue: String);'#010+
'begin'#010+
' if FPrefix=AValue ','then exit;'#010+
' FPrefix:=AValue;'#010+
' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#010+
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',BinInstallDir);'+
#010+
' BaseInstallDir:='#039#039';'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.SetTarget(const AValue: String);'#010+
'Var'#010+
' P : ','Integer;'#010+
'begin'#010+
' if FTarget<>AValue then'#010+
' begin'#010+
' P:=Pos('#039'-'#039',AValue);'#010+
' If (P<>0) then'#010+
' begin'#010+
' FOS:=StringToOS(System.Copy(Avalue,P+1,Length(AValue)-P));'#010+
' GlobalDictionary.AddVariable('#039'OS'#039',OSToString(FOS)',')'+
';'#010+
' FCPU:=StringToCPU(System.Copy(Avalue,1,P-1));'#010+
' GlobalDictionary.AddVariable('#039'CPU'#039',CPUToString(FCPU)'+
');'#010+
' end'#010+
' else'#010+
' FOS:=StringToOS(AValue);'#010+
' FTarget:=AValue;'#010+
' GlobalDictionary.AddVariable('#039't','arget'#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.SetUnitConfigFilesInst','allDir(const AValue:'+
' String);'#010+
'begin'#010+
' FUnitConfigFilesInstallDir:=AValue;'#010+
'end;'#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.RecalcTa','rget;'#010+
'begin'#010+
' Ftarget:=MakeTargetString(FCPU,FOS);'#010+
' GlobalDictionary.AddVariable('#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+
'construc','tor TCustomDefaults.Create;'#010+
'begin'#010+
' InitDefaults;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.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+
' FUnitInstallD','ir:='#039'$(baseinstalldir)units/$(target)/$(packagena'+
'me)'#039';'#010+
' FUnitConfigFilesInstallDir:='#039'fpmkinst/$(target)'#039';'#010+
' FBuildMode:=bmOneByOne;'#010+
' FThreadsAmount:=-1;'#010+
'end;'#010+
#010+
'function TCustomDefaults.HaveOptions: Boolean;'#010+
'begin'#010+
' Result:=Assigned(FOption','s);'#010+
'end;'#010+
#010+
'function TCustomDefaults.IsBuildDifferentFromTarget: boolean;'#010+
'begin'#010+
' result := IsDifferentFromBuild(CPU,OS);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.LocalInit(Const AFileName : String);'#010+
'Var'#010+
' FN : String;'#010+
'begin'#010+
' FN:=AFileName;'#010+
' If (FN','='#039#039') then'#010+
' begin'#010+
' // Environment variable.'#010+
' FN:=SysUtils.GetEnvironmentVariable('#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+
' F','N:='#039#039';'#010+
' end;'#010+
' end;'#010+
' If (FN<>'#039#039') and FileExists(FN) then'#010+
' LoadFromFile(FN);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.CompilerDefaults;'#010+
'{$ifdef HAS_UNIT_PROCESS}'#010+
'var'#010+
' infoSL : TStringList;'#010+
'{$endif HAS_UNIT_PROCESS}'#010+
'begin'#010+
' if (CPU=cpuNon','e) or ((OS=osNone) and not ExplicitOSNone) or'#010+
' (FCompilerVersion'+
'='#039#039') then'#010+
' begin'#010+
'{$ifdef HAS_UNIT_PROCESS}'#010+
' // Detect compiler version/target from -i option'#010+
' infosl:=TStringLi','st.Create;'#010+
' infosl.Delimiter:='#039' '#039';'#010+
' infosl.DelimitedText:=GetCompilerInfo(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:=StringToCPU(infosl[1]);'#010+
' if (OS=osNone) and not ExplicitOSNone then'#010+
' OS:=StringToOS(infosl[2]);'#010+
'{$else HAS_UNIT_PROCESS}'#010+
' // Defaults taken from compi','ler 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+
' FCompil','erVersion:={$I %FPCVERSION%};'#010+
'{$endif HAS_UNIT_PROCESS}'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.LoadFromFile(Const AFileName: String);'#010+
'Var'#010+
' F : TFileStream;'#010+
'begin'#010+
' F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);'#010+
' Try'#010+
' ',' LoadFromStream(F);'#010+
' Finally'#010+
' F.Free;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.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]:=FC','ompiler;'#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[KeyMo','de]:=ModeToString(FMode);'#010+
' Values[KeyLocalUnitDir]:=FLocalUnitDir;'#010+
' Values[KeyGlobalUnitDir]:=FGlobalUnitDir;'#010+
' Values[KeyPrefix]:=FPrefix;'#010+
' Values[KeyBaseInstallDir]:=FBaseInstallDir;'#010+
' Values[KeyUnitInstallDir]:=FUn','itInstallDir;'#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]:=FTarget;'#010+
' if FNoFPCCfg then'#010+
' Values[KeyNoFPCCfg]:='#039'Y'#039';'#010+
' if FUseEnvironment then'#010+
' Values[KeyUseEnv]:='#039'Y'#039';'#010+
' if FInstallExamples then'#010+
' V','alues[KeyInstallExamples]:='#039'Y'#039';'#010+
' if FSkipCrossPrograms then'#010+
' Values[KeySkipCrossProdrams]:='#039'Y'#039';'#010+
' end;'#010+
' L.SaveToStream(S);'#010+
' Finally'#010+
' L.Free;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomDefaults.LoadFromStream(S: TStream);'#010+
'Var'#010+
' L ',': TStrings;'#010+
' Line : String;'#010+
' I,P,PC : Integer;'#010+
'begin'#010+
' L:=TStringList.Create;'#010+
' Try'#010+
' L.LoadFromStream(S);'#010+
' // Fix lines.'#010+
' For I:=L.Count-1 downto 0 do'#010+
' begin'#010+
' Line:=L[I];'#010+
' P:=Pos('#039'='#039',Line);'#010+
' PC:=Pos('#039';'#039',Line);',' // Comment line.'#010+
' If (P=0) or ((PC<>0) and (PC<P)) then'#010+
' L.Delete(I)'#010+
' else'#010+
' L[i]:=Trim(System.Copy(Line,1,P-1)+'#039'='#039'+Trim(System.Cop'+
'y(Line,P+1,Length(Line)-P)));'#010+
' end;'#010+
' With L do'#010+
' begin'#010+
' FArchive:=V','alues[KeyArchive];'#010+
' FCompiler:=Values[KeyCompiler];'#010+
' FCopy:=Values[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[KeyOptions]);'#010+
' Line:=Values[KeyCPU];'#010+
' If (Line<>'#039#039') then'#010+
' FCPU:=StringToCPU(Line);'#010+
' Line:=Values[KeyOS];'#010+
' If (Line<>'#039#039') then'#010+
' FOS:=StringTo','OS(Line);'#010+
' Line:=Values[KeyMode];'#010+
' If (Line<>'#039#039') then'#010+
' FMode:=StringToMode(Line);'#010+
' FTarget:=Values[KeyTarget];'#010+
' FLocalUnitDir:=Values[KeyLocalUnitDir];'#010+
' FGlobalUnitDir:=Values[KeyGlobalUnitDir];'#010+
' FPrefix',':=Values[KeyPrefix];'#010+
' FBaseInstallDir:=Values[KeyBaseInstallDir];'#010+
' FUnitInstallDir:=Values[KeyUnitInstallDir];'#010+
' FBinInstallDir:=Values[KeyBinInstallDir];'#010+
' FDocInstallDir:=Values[KeyDocInstallDir];'#010+
' FExamplesInstallD','ir:=Values[KeyExamplesInstallDir];'#010+
' FInstallExamples:=(Upcase(Values[KeyInstallExamples])='#039'Y'#039+
');'#010+
' FSkipCrossPrograms:=(Upcase(Values[KeySkipCrossProdrams])='#039'Y'+
#039');'#010+
' FNoFPCCfg:=(Upcase(Values[KeyNoFPCCfg])='#039'Y'#039');'#010+
' FUseEnviron','ment:=(Upcase(Values[KeyUseEnv])='#039'Y'#039');'#010+
#010+
' GlobalDictionary.AddVariable('#039'target'#039',Target);'#010+
' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',BaseInstal'+
'lDir);'#010+
' GlobalDictionary.AddVariable('#039'prefix'#039',Prefix);'#010+
' GlobalDictionary.Ad','dVariable('#039'bininstalldir'#039',BinInstal'+
'lDir);'#010+
' end;'#010+
' Finally'#010+
' L.Free;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TFPCDefaults'#010+
'*******************************','*************************************'+
'********}'#010+
#010+
'procedure TFPCDefaults.CompilerDefaults;'#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(GetEnv','ironmentVariable('#039'FPCDIR'#039'), False);'#010+
' if BD='#039#039' then'#010+
' begin'#010+
' BD:='#039'/usr/local/lib/fpc/'#039'+FCompilerVersion;'#010+
' if not DirectoryExists(BD) and'#010+
' DirectoryExists('#039'/usr/lib/fpc/'#039'+FCompilerVersion) the'+
'n'#010+
' BD:='#039'/usr/lib/fpc/'#039,'+FCompilerVersion;'#010+
' end;'#010+
'{$else unix}'#010+
' BD:=FixPath(SysUtils.GetEnvironmentVariable('#039'FPCDIR'#039'), False'+
');'#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(Direc','toryExists(BD+'#039'/rtl'#039')) then'#010+
' BD:=FBaseInstallDir+'#039'..'#039';'#010+
' end;'#010+
'{$endif unix}'#010+
#010+
' // Where to install by default'#010+
' if (FBaseInstallDir='#039#039') and (FPrefix='#039#039') then'#010+
' BaseInstallDir:=BD;'#010+
#010+
' // Where to find the units by default'#010+
' if (FG','lobalUnitDir='#039#039') then'#010+
' GlobalUnitDir:=IncludeTrailingPathDelimiter(BD)+'#039'units'#039'+Pa'+
'thDelim+Target;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TCustomInstaller'#010+
'**********','**********************************************************'+
'********}'#010+
#010+
'constructor TCustomInstaller.Create(AOwner: TComponent);'#010+
'begin'#010+
' FPackageVariantSettings := TStringList.Create;'#010+
' FPackageVariants := TFPList.Create;'#010+
' GlobalDictionary:=D','ictionaryClass.Create(Nil);'#010+
' AnalyzeOptions;'#010+
' GlobalDictionary.AddVariable('#039'baseinstalldir'#039',Defaults.BaseI'+
'nstallDir);'#010+
' GlobalDictionary.AddVariable('#039'bininstalldir'#039',Defaults.BinIns'+
'tallDir);'#010+
' GlobalDictionary.AddVariable('#039'Target'#039',Defaults','.Target);'#010+
' GlobalDictionary.AddVariable('#039'BuildString'#039',Defaults.BuildStr'+
'ing);'#010+
' GlobalDictionary.AddVariable('#039'Prefix'#039',Defaults.Prefix);'#010+
' GlobalDictionary.AddVariable('#039'CompilerVersion'#039',Defaults.Comp'+
'ilerVersion);'#010+
' FNotifyEventCollection := ','TNotifyEventCollection.create([neaBefore'+
'Compile, neaAfterCompile, neaBeforeClean, neaAfterClean,'#010+
' neaBeforeIn'+
'stall, neaAfterInstall, neaBeforeArchive, neaAfterArchive,'#010+
' ',' neaBefore'+
'Manifest, neaAfterManifest, neaBeforePkgList, neaAfterPkgList,'#010+
' neaBeforeUn'+
'Install, neaAfterUnInstall,'#010+
' ',' neaBefore'+
'CreateBuildEngine, neaAfterCreateBuildengine]);'#010+
' CreatePackages;'#010+
'end;'#010+
#010+
#010+
'destructor TCustomInstaller.Destroy;'#010+
'var'#010+
' i: integer;'#010+
'begin'#010+
' FreePackages;'#010+
' FreeAndNil(Defaults);'#010+
' FreeAndNil(GlobalDict','ionary);'#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+
' Free','AndNil(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: ','Stri'+
'ng);'#010+
'begin'#010+
' If Level in FLogLevels then'#010+
' begin'#010+
' Writeln(StdOut, Msg);'#010+
' Flush(StdOut);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.CreatePackages;'#010+
'begin'#010+
' FPackages:=TPackages.Create(TPackage);'#010+
'end;'#010+
#010+
'procedure TCustomInstaller.F','reePackages;'#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.Default','s:=Defaults;'#010+
' FBuildEngine.ListMode:=FListMode;'#010+
' FBuildEngine.Verbose := (FLogLevels = AllMessages);'#010+
' FBuildEngine.OnLog:=@Self.Log;'#010+
' NotifyEventCollection.CallEvents(neaAfterCreateBuildengine, Self);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.E','rror(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);'#010+
'begin'#010+
' Raise EInstallerError.CreateFmt(Fmt,Args);'#010+
'end;'#010+
#010+
#010+
'Function TCustomInstaller.AddPac','kage(const AName: String) : TPackage'+
';'#010+
'begin'#010+
' result:=Packages.AddPackage(AName);'#010+
'end;'#010+
#010+
'function TCustomInstaller.AddPackageVariant(AName: string; AIsInherita'+
'ble: boolean): TPackageVariants;'#010+
'begin'#010+
' result := TPackageVariants.Create(TPackag','eVariant);'#010+
' result.Name:=AName;'#010+
' result.FIsInheritable:=AIsInheritable;'#010+
' FPackageVariants.Add(result);'#010+
'end;'#010+
#010+
'procedure TCustomInstaller.AnalyzeOptions;'#010+
#010+
' Function CheckOption(Index : Integer;const Short,Long : String; AddT'+
'oOptionString:',' 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'));'#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[Build','ModeName] := O;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
#010+
' Function CheckCustomOption(Index : Integer; out CustOptName: string)'+
': Boolean;'#010+
' var'#010+
' O : String;'#010+
' i : integer;'#010+
' begin'#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:=CustomFpmakeCommandlineOptions.IndexOfName(O)>-1;'#010+
' if Result then FFPMakeOptionsString := ','FFPMakeOptionsString+'#039+
' '#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+
' else'#010+
' begin'#010+
' Result:=Paramstr(Index);'#010+
' Delete(Re','sult,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 then'#010+
' begin'#010+
' result := copy(SplitString,1,i-1);'#010+
' ','delete(SplitString,1,i);'#010+
' end'#010+
' else'#010+
' begin'#010+
' result := SplitString;'#010+
' SplitString:='#039#039';'#010+
' end;'#010+
' end;'#010+
#010+
'Var'#010+
' I : Integer;'#010+
' DefaultsFileName : string;'#010+
' OptString : string;'#010+
' CustOptName : string;'#010+
'begin'#010+
' I:=0;'#010+
' ',' FListMode:=False;'#010+
' FLogLevels:=DefaultMessages;'#010+
' While (I<ParamCount) do'#010+
' begin'#010+
' Inc(I);'#010+
' if CheckOption(I,'#039'v'#039','#039'verbose'#039') then'#010+
' FLogLevels:=AllMessages'#010+
' else if CheckOption(I,'#039'd'#039','#039'debug'#039') then'#010+
' FLogLevels:=AllMessag','es+[vlDebug]'#010+
' else if CheckCommand(I,'#039'm'#039','#039'compile'#039') then'#010+
' FRunMode:=rmCompile'#010+
' else if CheckCommand(I,'#039'b'#039','#039'build'#039') then'#010+
' FRunMode:=rmBuild'#010+
' else if CheckCommand(I,'#039'i'#039','#039'install'#039') then'#010+
' FRunMode:=rmInstall'#010+
' else if ','CheckCommand(I,'#039'zi'#039','#039'zipinstall'#039') then'#010+
' FRunMode:=rmZipInstall'#010+
' else if CheckCommand(I,'#039'c'#039','#039'clean'#039') then'#010+
' FRunMode:=rmClean'#010+
' else if CheckCommand(I,'#039'dc'#039','#039'distclean'#039') then'#010+
' FRunMode:=rmDistClean'#010+
' else if CheckCommand(','I,'#039'a'#039','#039'archive'#039') then'#010+
' FRunMode:=rmarchive'#010+
' else if CheckCommand(I,'#039'M'#039','#039'manifest'#039') then'#010+
' FRunMode:=rmManifest'#010+
' else if CheckCommand(I,'#039'l'#039','#039'pkglist'#039') then'#010+
' FRunMode:=rmPkgList'#010+
' else if CheckCommand(I,'#039'u'#039','#039'uninstall'#039') ','then'#010+
' FRunMode:=rmUnInstall'#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+
' ',' Defaults.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+
' Defau','lts.ThreadsAmount:=StrToIntDef(OptionArg(I),-1)'#010+
'{$endif NO_THREADING}'#010+
' else if CheckOption(I,'#039'B'#039','#039'baseinstalldir'#039') then'#010+
' Defaults.BaseInstallDir:=OptionArg(I)'#010+
' else if CheckOption(I,'#039'B'#039','#039'bininstalldir'#039') then'#010+
' Defaults.BinIns','tallDir:=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'options'#039', true) then'#010+
' begin'#010+
' OptString := OptionArg(I, true);'#010+
' while OptString <> '#039#039' do'#010+
' Defaults.Options.Add(Sp','litSpaces(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'installe','xamples'#039') th'+
'en'#010+
' Defaults.InstallExamples:=true'#010+
' else if CheckOption(I,'#039'sp'#039','#039'skipcrossprograms'#039') th'+
'en'#010+
' Defaults.SkipCrossPrograms:=true'#010+
' else if CheckOption(I,'#039'bu'#039','#039'buildunit'#039') then'#010+
' Defaults.BuildMode:=bmBuildUnit'#010+
' e','lse 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'fpunitsrcpat','h'#039') the'+
'n'#010+
' Defaults.FPUnitSourcePath:=OptionArg(I)'#010+
' else if assigned(CustomFpmakeCommandlineOptions) and CheckCustomOp'+
'tion(I,CustOptName) then'#010+
' begin'#010+
' if not assigned(CustomFpMakeCommandlineValues) then'#010+
' CustomFpMake','CommandlineValues := TStringList.Create;'#010+
' CustomFpMakeCommandlineValues.Values[CustOptName]:=OptionArg(I, '+
'true)'#010+
' end'#010+
' else if (not CheckBuildOptionSetValue(I)) and (not Defaults.Ignore'+
'InvalidOptions) then'#010+
' begin'#010+
' Usag','e(SErrInValidArgument,[I,ParamStr(I)]);'#010+
' end;'#010+
' end;'#010+
' If DefaultsFileName<>'#039#039' then'#010+
' Defaults.LocalInit(DefaultsFileName);'#010+
' Defaults.CompilerDefaults;'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.Usage(const FMT: String; Args: array of con'+
's','t);'#010+
#010+
' Procedure LogCmd(const LC,Msg : String);'#010+
' begin'#010+
' Log(vlInfo,Format('#039' %-12s %s'#039',[LC,MSG]));'#010+
' end;'#010+
#010+
' Procedure LogOption(const C,LC,Msg : String);'#010+
' begin'#010+
' Log(vlInfo,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' --%-20s %s'#039',[LC+'#039'='#039'+SValu'+
'e,MSG]))'#010+
' else'#010+
' Log(vlInfo,Format('#039' -%s --%-20s %s'#039',[C,LC+'#039'='#039'+SV'+
'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,Format(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'uninstall'#039',SHelpUnInstall);'#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+
' LogC','md('#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+
' LogOption('#039'n'#039','#039'nofpccfg'#039',SHelpNoFPCCfg);'#010+
' LogOption('#039'v'#039','#039'verbose'#039',SHelpVerbose);'#010+
'{$ifdef HAS_UNIT_P','ROCESS}'#010+
' LogOption('#039'e'#039', '#039'useenv'#039', sHelpUseEnvironment);'#010+
'{$endif}'#010+
' LogOption('#039'ie'#039','#039'installexamples'#039',SHelpInstExamples);'+
#010+
' LogOption('#039'bu'#039','#039'buildunit'#039',SHelpUseBuildUnit);'#010+
' LogOption('#039'sp'#039','#039'skipcrossprograms'#039',SHelpSkipCrossPro'+
'gs);'#010+
' LogOption','('#039'io'#039','#039'ignoreinvalidoption'#039',SHelpIgnoreIn'+
'vOpt);'#010+
' LogArgOption('#039'C'#039','#039'cpu'#039',SHelpCPU);'#010+
' LogArgOption('#039'O'#039','#039'os'#039',SHelpOS);'#010+
' LogArgOption('#039't'#039','#039'target'#039',SHelpTarget);'#010+
' LogArgOption('#039'P'#039','#039'prefix'#039',SHelpPrefix);'#010+
' LogArgOption('#039'B'#039','#039'baseinstalldir'#039',SH','elpBaseInstall'+
'dir);'#010+
' LogArgOption('#039'UL'#039','#039'localunitdir'#039',SHelpLocalUnitdir);'+
#010+
' LogArgOption('#039'UG'#039','#039'globalunitdir'#039',SHelpGlobalUnitdir'+
');'#010+
' LogArgOption('#039'U'#039','#039'unitinstalldir'#039',SHelpUnitInstallDi'+
'r);'#010+
' LogArgOption('#039'r'#039','#039'compiler'#039',SHelpCompiler);'#010+
' Lo','gArgOption('#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)'+
';'#010+
' LogArgOption('#039'fsp'#039', '#039'fpunitsrcpath'#039', sHelpFPUnitSrcP'+
'ath);'#010+
' LogArgOption('#039'zp'#039', '#039'zipprefix'#039', sHelpZip','Prefix);'#010+
'{$ifndef NO_THREADING}'#010+
' LogArgOption('#039'T'#039', '#039'threads'#039', sHelpThreads);'#010+
'{$endif NO_THREADING}'#010+
' if assigned(CustomFpmakeCommandlineOptions) then for i := 0 to Cust'+
'omFpmakeCommandlineOptions.Count-1 do'#010+
' LogArgOption('#039' '#039',CustomFpmak','eCommandlineOptions.Names[i]'+
',CustomFpmakeCommandlineOptions.ValueFromIndex[i]);'#010+
' Log(vlInfo,'#039#039');'#010+
' If (FMT<>'#039#039') then'#010+
' halt(1)'#010+
' else'#010+
' halt(0);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.Compile(Force: Boolean);'#010+
'begin'#010+
' FNotifyEventCollection.','CallEvents(neaBeforeCompile, Self);'#010+
' FBuildEngine.ForceCompile:=Force;'#010+
' FBuildEngine.Compile(Packages);'#010+
' FNotifyEventCollection.CallEvents(neaAfterCompile, Self);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.Clean(AllTargets: boolean);'#010+
'begin'#010+
' Noti','fyEventCollection.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(neaB','eforeInstall, self);'#010+
' BuildEngine.Install(Packages);'#010+
' NotifyEventCollection.CallEvents(neaAfterInstall, self);'#010+
'end;'#010+
#010+
'procedure TCustomInstaller.ZipInstall;'#010+
'begin'#010+
' NotifyEventCollection.CallEvents(neaBeforeInstall, self);'#010+
' BuildEngine.Zi','pInstall(Packages);'#010+
' NotifyEventCollection.CallEvents(neaAfterInstall, self);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.UnInstall;'#010+
'begin'#010+
' NotifyEventCollection.CallEvents(neaBeforeUnInstall, self);'#010+
' BuildEngine.UnInstall(Packages);'#010+
' NotifyEvent','Collection.CallEvents(neaAfterUnInstall, self);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.Archive;'#010+
'begin'#010+
' NotifyEventCollection.CallEvents(neaBeforeArchive, self);'#010+
' BuildEngine.Archive(Packages);'#010+
' NotifyEventCollection.CallEvents(neaAfterArchive',', self);'#010+
'end;'#010+
#010+
#010+
'procedure TCustomInstaller.Manifest;'#010+
'begin'#010+
' NotifyEventCollection.CallEvents(neaBeforeManifest, self);'#010+
' BuildEngine.Manifest(Packages, nil);'#010+
' NotifyEventCollection.CallEvents(neaAfterManifest, self);'#010+
'end;'#010+
#010+
#010+
'procedure TCus','tomInstaller.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 ','(Packages.Count=0) then'#010+
' Error(SErrNoPackagesDefined);'#010+
' // Check for other obvious errors ?'#010+
'end;'#010+
#010+
#010+
'Function TCustomInstaller.Run : Boolean;'#010+
'begin'#010+
' Result:=True;'#010+
' try'#010+
' CheckPackages;'#010+
' CreateBuildEngine;'#010+
' Case RunMode of'#010+
' ','rmCompile : Compile(False);'#010+
' rmBuild : Compile(True);'#010+
' rmInstall : Install;'#010+
' rmZipInstall : ZipInstall;'#010+
' rmArchive : Archive;'#010+
' rmClean : Clean(False);'#010+
' rmDistClean: Clean(True);'#010+
' rmManifest : Manifest',';'#010+
' rmPkgList : PkgList;'#010+
' rmUnInstall : UnInstall;'#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+
'{*********************************************************************'+
'*******'#010+
' TFPCInstaller'#010+
'************************************************','********************'+
'********}'#010+
#010+
'constructor TFPCInstaller.Create(AOwner: TComponent);'#010+
'begin'#010+
' if assigned(Defaults) then'#010+
' Error(SErrAlreadyInitialized);'#010+
' Defaults:=TFPCDefaults.Create;'#010+
' inherited Create(AOwner);'#010+
'end;'#010+
#010+
#010+
'{****************','***************************************************'+
'*********'#010+
' TBasicInstaller'#010+
'**********************************************************************'+
'******}'#010+
#010+
'constructor TBasicInstaller.Create(AOwner: TCompone','nt);'#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 directo','ry ?'#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'#010+
' // With --start-dir=/path/to/sources.'#010+
' FStartDir:=includeTrailingPathDelimiter(GetCurrentDir);'#010+
' FExternalPackages:=TPackage','s.Create(TPackage);'#010+
' FNotifyEventCollection := TNotifyEventCollection.create([neaAfterCom'+
'pile, neaBeforeCompile, neaAfterInstall, neaBeforeInstall,'#010+
' neaAfterCle'+
'an, neaBeforeClean, n','eaAfterArchive, neaBeforeArchive,'#010+
' neaAfterMan'+
'ifest, neaBeforeManifest, neaAfterPkgList, neaBeforePkgList,'#010+
' neaBeforeUn'+
'Insta','ll, neaAfterUnInstall]);'#010+
'{$ifndef NO_THREADING}'#010+
' InitCriticalSection(FGeneralCriticalSection);'#010+
'{$endif NO_THREADING}'#010+
'end;'#010+
#010+
#010+
'destructor TBuildEngine.Destroy;'#010+
'begin'#010+
' FreeAndNil(FExternalPackages);'#010+
' FreeAndNil(FNotifyEventCollection);'#010+
#010+
'{$if','ndef NO_THREADING}'#010+
' DoneCriticalsection(FGeneralCriticalSection);'#010+
'{$endif NO_THREADING}'#010+
#010+
' inherited Destroy;'#010+
'end;'#010+
#010+
'procedure TBuildEngine.AddFileToArchive(const APackage: TPackage; cons'+
't ASourceFileName, ADestFileName: String);'#010+
#010+
' functio','n GetArchiveName: string;'#010+
' begin'#010+
' result := Defaults.ZipPrefix;'#010+
' if Defaults.BuildOS in AllLimit83fsOses then'#010+
' result := result + APackage.ShortName'#010+
' else'#010+
' result := result + APackage.Name;'#010+
' result := result + MakeZip','Suffix(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+
' {$ifdef HAS_UNIT_ZIPPER}'#010+
' FGZFileSt','ream := TGZFileStream.create(GetArchiveName + Archive'+
'Extension, gzopenwrite);'#010+
' try'#010+
' FTarWriter := TTarWriter.Create(FGZFileStream);'#010+
' except'#010+
' FGZFileStream.Free;'#010+
' end;'#010+
' {$else}'#010+
' FTarWriter := TTarWriter.Cre','ate(GetArchiveName + ArchiveExtensio'+
'n);'#010+
' {$endif HAS_UNIT_ZIPPER}'#010+
' FTarWriter.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadBy'+
'Group, tpReadByOther];'#010+
' FTarWriter.UserName := '#039'root'#039';'#010+
' FTarWriter.GroupName := '#039'root'#039';'#010+
' end',';'#010+
'{$ifdef unix}'#010+
' if (FpStat(ASourceFileName, FileStat) = 0) and (FileStat.st_mode and'+
' S_IXUSR = S_IXUSR) then'#010+
' begin'#010+
' FTarWriter.Permissions := FTarWriter.Permissions + [tpExecuteByGro'+
'up];'#010+
' FTarWriter.Permissions := FTarWriter.Per','missions + [tpExecuteByO'+
'wner];'#010+
' FTarWriter.Permissions := FTarWriter.Permissions + [tpExecuteByOth'+
'er];'#010+
' end'#010+
' else'#010+
' begin'#010+
' FTarWriter.Permissions := FTarWriter.Permissions - [tpExecuteByGro'+
'up];'#010+
' FTarWriter.Permissions := FTar','Writer.Permissions - [tpExecuteByO'+
'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_FI','LE}'#010+
' {$ifdef HAS_UNIT_ZIPPER}'#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+
' {$ifdef HAS_UNIT','_ZIPPER}'#010+
' FGZFileStream.Free;'#010+
' {$endif HAS_UNIT_ZIPPER}'#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+
' final','ly'#010+
' FreeAndNil(FZipper);'#010+
' end;'#010+
' end;'#010+
' {$endif HAS_UNIT_ZIPPER}'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.Error(const Msg: String);'#010+
'begin'#010+
' Raise EInstallerError.Create(Msg);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.Error(const Fmt: String; const A','rgs: array of'+
' const);'#010+
'begin'#010+
' Raise EInstallerError.CreateFmt(Fmt,Args);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.ExecuteCommand(const Cmd,Args : String; const E'+
'nv: TStrings = nil; IgnoreError : Boolean = False);'#010+
'Var'#010+
' E : Integer;'#010+
' cmdLine: string;'#010,
' ConsoleOutput: TMemoryStream;'#010+
' s: string;'#010+
'begin'#010+
' Log(vlInfo,SInfoExecutingCommand,[Cmd,Args]);'#010+
' if ListMode then'#010+
' Log(vlCommand,'#039'%s %s'#039',[Cmd,Args])'#010+
' else'#010+
' begin'#010+
' // We should check cmd for spaces, and move all after first s','p'+
'ace to args.'#010+
' ConsoleOutput := TMemoryStream.Create;'#010+
' try'#010+
' {$ifdef HAS_UNIT_PROCESS}'#010+
' E:=ExecuteFPC(Verbose, cmd, args, env, ConsoleOutput);'#010+
' {$else}'#010+
' E:=ExecuteProcess(cmd,args);'#010+
' {$endif}'#010+
' ',' If (E<>0) and (not IgnoreError) then'#010+
' begin'#010+
' if trim(Args)<>'#039#039' then'#010+
' cmdLine := cmd + '#039' '#039' + trim(args)'#010+
' else'#010+
' cmdline := cmd;'#010+
' s := ParsecompilerOutput(ConsoleOutput,Ve','rbose);'#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:=Sys','Utils.DirectoryExists(ADir);'#010+
' if result then'#010+
' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgFound])'#010+
' else'#010+
' Log(vlDebug,SDbgDirectoryExists,[ADir,SDbgNotFound]);'#010+
'end;'#010+
#010+
#010+
'Function TBuildEngine.SysFileExists(const AFileName:string):Boolean;',#010+
'begin'#010+
' result:=SysUtils.FileExists(AFileName);'#010+
' if result then'#010+
' Log(vlDebug,SDbgFileExists,[AFileName,SDbgFound])'#010+
' else'#010+
' Log(vlDebug,SDbgFileExists,[AFileName,SDbgNotFound]);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.SysCopyFile(Const Src,Des','t : 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 fmShareDen','yNone);'#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+
' Finally'#010+
' FreeAndNil(Fout);'#010+
' end;'#010+
' A:=FileGetDate(FIn.Handle);'#010+
' If (A=-1) then'#010+
' log(vlWarning,SWarnFailedToGetTime,[Src])'#010+
' else'#010+
' i','f 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'#010+
' if FpStat(Src,FileStat) <> 0 then'#010+
' Log(vlWarning,SWarnCanNotGetAcce','ssRights,[Src])'#010+
' else'#010+
' if FpChmod(s,FileStat.st_mode) <> 0 then'#010+
' Log(vlWarning,SWarnCanNotSetAccessRights,[S]);'#010+
'{$endif UNIX}'#010+
' finally'#010+
' FreeAndNil(Fin);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.SysMoveFile(Const Src,Dest : St','ring);'#010+
'Var'#010+
' S : String;'#010+
'begin'#010+
' If DirectoryExists(IncludeTrailingPathDelimiter(Dest)) then'#010+
' S:=IncludeTrailingPathDelimiter(Dest)+ExtractFileName(Src)'#010+
' else'#010+
' S:=Dest;'#010+
' If Not RenameFile(Src,S) then'#010+
' begin'#010+
' Try'#010+
' SysC','opyFile(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 FileExis','ts(AFileName) then'#010+
' Log(vldebug,SDbgFileDoesNotExist,[AFileName])'#010+
' else If Not SysUtils.DeleteFile(AFileName) then'#010+
' Error(SErrDeletingFile,[AFileName])'#010+
' else'#010+
' Log(vlInfo,SInfoDeletedFile,[AFileName]);'#010+
'end;'#010+
#010+
'procedure TBuildEngine','.SysDeleteDirectory(Const ADirectoryName: Stri'+
'ng);'#010+
'begin'#010+
' if not DirectoryExists(ADirectoryName) then'#010+
' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
' else if not IsDirectoryEmpty(ADirectoryName) then'#010+
' Log(vldebug,SDbgDirec','toryNotEmpty,[ADirectoryName])'#010+
' else If Not RemoveDir(ADirectoryName) then'#010+
' Error(SErrRemovingDirectory,[ADirectoryName])'#010+
' else'#010+
' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.SysDeleteTree(Const A','DirectoryName: 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: longint;'#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 := False;'#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') and (searchRec.Name<>'#039'.'+
'.'#039') then'#010+
' begin'#010+
' s := IncludeTrailingPathDelimiter(ADirectoryName)+searc'+
'hRec.Name;'#010+
' if (s','earchRec.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 repo','rts of RemoveDir failing due to locking-proble'+
'ms. To solve'#010+
' // these the RemoveDir is tried three times, with a delay of 5 sec'+
'onds. 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, [ADirectoryName]);'#010+
' sleep(5000);'#010+
' dec(i);'#010+
' result := RemoveDir(ADirectoryName);'#010+
' end;'#010+
#010+
' if result then'#010+
' log(vldebug, SDbgRemov','edDirectory, [ADirectoryName]);'#010+
' end;'#010+
#010+
'begin'#010+
' if not DirectoryExists(ADirectoryName) then'#010+
' Log(vldebug,SDbgDirectoryDoesNotExist,[ADirectoryName])'#010+
' else If Not IntRemoveTree(ADirectoryName) then'#010+
' Error(SErrRemovingDirectory,[ADirec','toryName])'#010+
' else'#010+
' Log(vlInfo,SInfoRemovedDirectory,[ADirectoryName]);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.SysArchiveFiles(List: TStrings;Const AFileName:'+
' String);'#010+
'begin'#010+
' If Not (Assigned(OnArchivefiles) or Assigned(ArchiveFilesProc)) then'+
#010+
' ',' Raise EInstallerError.Create(SErrNoArchiveSupport);'#010+
' If Assigned(ArchiveFilesProc) then'#010+
' ArchiveFilesProc(AFileName,List)'#010+
' else'#010+
' OnArchiveFiles(AFileName,List);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.LogIndent;'#010+
'begin'#010+
' GLogPrefix:=GLogPref','ix+'#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+
'procedure TBuildEngine.Log(Level: TVerboseLevel; Fmt: String;const Arg'+
's: array of const);'#010+
'begin'#010+
' Log(Level,Format(Fmt,Args));'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEn','gine.EnterDir(ADir: String);'#010+
'Var'#010+
' D : String;'#010+
'begin'#010+
' D:=FStartDir;'#010+
' D:=D+ADir;'#010+
' Log(vlDebug,SDbgEnterDir,[D]);'#010+
' If Not SetCurrentDir(D) then'#010+
' Error(SErrChangeDirFailed,[D]);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CmdCopyFiles(List: TStrings;',' Const DestDir: S'+
'tring; APackage : TPackage);'#010+
#010+
'Var'#010+
' Args : String;'#010+
' I : Integer;'#010+
' DestFileName : 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 IsRelativePath(list.ValueFromIndex[i]) then'#010+
' DestFileName:=DestDir+list.ValueFromIndex[i]'#010+
' else'#010+
' DestFileName:=list.ValueFromI','ndex[i];'#010+
' FOnCopyFile(APackage, AddPathPrefix(APackage, List.Names[i'+
']), DestFileName);'#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+
' Ex','ecuteCommand(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(A','ddPathPrefix(APackage, List[i]), DestDir);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CmdCreateDir(const DestDir: String);'#010+
'begin'#010+
' If (Defaults.MkDir<>'#039#039') then'#010+
' ExecuteCommand(Defaults.MkDir,DestDir)'#010+
' else'#010+
' If not ForceDirectories(DestDir) then'#010+
' ',' Error(SErrCreatingDirectory,[DestDir]);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CmdMoveFiles(List: TStrings; Const DestDir: Str'+
'ing);'#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(Defaults.Move,Args);'#010+
' end'#010+
' else'#010+
' For I:=0 to List.Count-1 do'#010+
' SysMoveFile(List[i],DestDir);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CmdDeleteFiles(List: ','TStrings);'#010+
'Var'#010+
' Args : String;'#010+
' I : Integer;'#010+
'begin'#010+
' If (Defaults.Remove<>'#039#039') then'#010+
' begin'#010+
' Args:=FileListToString(List,'#039#039');'#010+
' ExecuteCommand(Defaults.Remove,Args);'#010+
' end'#010+
' else'#010+
' For I:=0 to List.Count-1 do'#010+
' SysDelete','File(List[i]);'#010+
'end;'#010+
#010+
'procedure TBuildEngine.CmdDeleteDestFiles(List: TStrings; Const DestDi'+
'r: String);'#010+
#010+
'Var'#010+
' I : Integer;'#010+
' DeleteFileName : String;'#010+
'begin'#010+
' // Delete files from their location on disk'#010+
' For I:=0 to List.Count-1 do'#010+
' begi','n'#010+
' if List.Names[i]<>'#039#039' then'#010+
' begin'#010+
' if IsRelativePath(list.ValueFromIndex[i]) then'#010+
' DeleteFileName:=DestDir+list.ValueFromIndex[i]'#010+
' else'#010+
' DeleteFileName:=list.ValueFromIndex[i];'#010+
' e','nd'#010+
' else'#010+
' DeleteFileName:=DestDir+ExtractFileName(list[i]);'#010+
' SysDeleteFile(DeleteFileName);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CmdArchiveFiles(List: TStrings; Const ArchiveFi'+
'le: 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.Archive,C,O);'#010+
' If (O='#039#039') then'#010+
' O:=ArchiveF','ile+'#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: TSt','rings);'#010+
'Var'#010+
' Args : String;'#010+
' I : Integer;'#010+
'begin'#010+
' If (Defaults.RemoveDir<>'#039#039') then'#010+
' begin'#010+
' Args:=FileListToString(List,'#039#039');'#010+
' ExecuteCommand(Defaults.RemoveDir,Args);'#010+
' end'#010+
' else'#010+
' For I:=0 to List.Count-1 do'#010+
' SysDel','eteDirectory(List[i]);'#010+
'end;'#010+
#010+
'procedure TBuildEngine.CmdRemoveTrees(List: TStrings);'#010+
'Var'#010+
' Args : String;'#010+
' I : Integer;'#010+
'begin'#010+
' If (Defaults.RemoveTree<>'#039#039') then'#010+
' begin'#010+
' Args:=FileListToString(List,'#039#039');'#010+
' ExecuteCommand(Defaults','.RemoveTree,Args);'#010+
' end'#010+
' else'#010+
' For I:=0 to List.Count-1 do'#010+
' SysDeleteTree(List[i]);'#010+
'end;'#010+
#010+
'Function TBuildEngine.FileNewer(const Src,Dest : String) : Boolean;'#010+
#010+
'Var'#010+
' DS,DD : Longint;'#010+
' D1,D2 : TDateTime;'#010+
#010+
'begin'#010+
' DS:=FileAge(Src)',';'#010+
' { Return false if file not found or not accessible }'#010+
' if DS=-1 then'#010+
' begin'#010+
' Log(vlWarning,SWarnCanNotGetFileAge,[Src]);'#010+
' Result:=false;'#010+
' exit;'#010+
' end;'#010+
' DD:=FileAge(Dest);'#010+
' D1:=FileDateToDateTime(DS);'#010+
' D2:=FileDate','ToDateTime(DD);'#010+
' Log(vlDebug,SDbgComparingFileTimes,[Src,DateTimeToStr(D1),Dest,DateT'+
'imeToStr(D2)]);'#010+
' Result:=D1>D2;'#010+
' If Result then'#010+
' Log(vlInfo,SInfoSourceNewerDest,[Src,DateTimeToStr(D1),Dest,DateTi'+
'meToStr(D2)]);'#010+
'end;'#010+
#010+
#010+
'procedure TB','uildEngine.ExecuteCommands(Commands: TCommands; At: TCom'+
'mandAt; APackage: TPackage);'#010+
'Var'#010+
' C : TCommand;'#010+
' I : Integer;'#010+
' Cmd,O : String;'#010+
' E : Boolean;'#010+
' ADictionary: TDictionary;'#010+
' SourceFile, DestFile: string;'#010+
'begin'#010+
' For I:=0 to Command','s.Count-1 do'#010+
' begin'#010+
' C:=Commands.CommandItems[i];'#010+
' if (C.At=At) then'#010+
' begin'#010+
' E:=True;'#010+
#010+
' if assigned(APackage) then'#010+
' ADictionary := APackage.Dictionary'#010+
' else'#010+
' ADictionary :','= GlobalDictionary;'#010+
' SourceFile := ADictionary.ReplaceStrings(C.SourceFile);'#010+
' DestFile := ADictionary.ReplaceStrings(C.DestFile);'#010+
' if IsRelativePath(SourceFile) then'#010+
' SourceFile := AddPathPrefix(APackag','e,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.GetEnvironmen','tvariable('#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,[DestFile])'#010+
' else'#010+
' beg','in'#010+
' E:=FileNewer(SourceFile, DestFile);'#010+
' if E and (cmd = '#039#039') then'#010+
' begin'#010+
' log(vlWarning,SWarnExtCommandNotFound,[C.Command,Des'+
'tFile,SourceFile]);'#010+
' E := False;'#010,
' end;'#010+
' end;'#010+
' end;'#010+
' If E then'#010+
' begin'#010+
' if Cmd = '#039#039' then'#010+
' error(SErrExtCommandNotFound,[C.Command]);'#010+
#010+
' If Assigned(C.BeforeCommand) then'#010+
' ',' C.BeforeCommand(C);'#010+
' O:=ADictionary.Substitute(C.CmdLineOptions,['#039'SOURCE'#039+
',SourceFile,'#039'DEST'#039',DestFile]);'#010+
#010+
' Log(vlCommand,SInfoExecutingCommand,[Cmd,O]);'#010+
' ExecuteCommand(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'+
'PathName: string; Path: TConditionalStrings; ACPU: T','CPU; 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+
'Function TBuildEngine.FindFileInPath(APackage: TPackag','e; Path:TCondi'+
'tionalStrings; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TO'+
'S):Boolean;'#010+
'var'#010+
' I : Integer;'#010+
' C : TConditionalString;'#010+
'begin'#010+
' Result:=false;'#010+
' for i:=0 to Path.Count-1 do'#010+
' begin'#010+
' C:=Path[I];'#010+
' if (ACPU in ','C.CPUs) and (AOS in C.OSes) then'#010+
' begin'#010+
' FoundPath:=IncludeTrailingPathDelimiter(APackage.Dictionary.'+
'ReplaceStrings(C.Value));'#010+
' if FileExists(AddPathPrefix(APackage,FoundPath+AFileName)) t'+
'hen'#010+
' begin'#010+
' ',' result:=true;'#010+
' exit;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
' FoundPath:='#039#039';'#010+
'end;'#010+
#010+
'procedure TBuildEngine.GetDirectoriesFromFilelist(const AFileList, ADi'+
'rectoryList: TStringList);'#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+
'proced','ure TBuildEngine.AddPackageMacrosToDictionary(const APackage: '+
'TPackage; ADictionary: TDictionary);'#010+
'begin'#010+
' APackage.Dictionary.AddVariable('#039'UNITSOUTPUTDIR'#039',AddPathPref'+
'ix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS)));'#010+
' APa','ckage.Dictionary.AddVariable('#039'BINOUTPUTDIR'#039',AddPathPref'+
'ix(APackage,APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)));'#010+
' APackage.Dictionary.AddVariable('#039'PACKAGEVERSION'#039',APackage.Ve'+
'rsion);'#010+
' APackage.Dictionary.AddVariable('#039'PACKAGEDIRECTO','RY'#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:boolean=true; WarnIfNotFound:boolean=true);'#010+
#010+
' procedu','re FindMainSource(T:TTarget);'#010+
' var'#010+
' SD,SF : String;'#010+
' begin'#010+
' LogSearchPath(APackage,'#039'package source'#039',APackage.SourcePat'+
'h,ACPU,AOS);'#010+
' SD:=APackage.Dictionary.ReplaceStrings(T.Directory);'#010+
' SF:=APackage.Dictionary.ReplaceStrings(','T.SourceFileName);'#010+
' if SD='#039#039' then'#010+
' FindFileInPath(APackage,APackage.SourcePath,SF,SD,ACPU,AOS);'#010+
' if SD<>'#039#039' then'#010+
' SD:=IncludeTrailingPathDelimiter(SD);'#010+
' T.FTargetSourceFileName:=SD+SF;'#010+
' if FileExists(AddPathPrefix(APack','age,T.TargetSourceFileName)) th'+
'en'#010+
' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.TargetSou'+
'rceFileName])'#010+
' else'#010+
' begin'#010+
' if WarnIfNotFound then'#010+
' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName,APac',
'kage.Name,MakeTargetString(ACPU,AOS)]);'#010+
' APackage.FAllFilesResolved:=false;'#010+
' T.FTargetSourceFileName:='#039#039';'#010+
' end;'#010+
' end;'#010+
#010+
' procedure FindIncludeSources(T:TTarget);'#010+
' var'#010+
' SD,SF : String;'#010+
' D : TDependency;'#010+
' j : in','teger;'#010+
' begin'#010+
' LogSearchPath(APackage,'#039'target include'#039',T.IncludePath,ACPU'+
',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'#010+
' FindFileInPath(APackage, APackage.IncludePath,SF'+
',SD,ACPU,AOS);'#010+
' if SD<>'#039#039' then'#010+
' SD:','=IncludeTrailingPathDelimiter(SD);'#010+
' D.TargetFileName:=SD+SF;'#010+
' end'#010+
' else'#010+
' D.TargetFileName:=D.Value;'#010+
' if FileExists(AddPathPrefix(APackage,D.TargetFileName)'+
')',' then'#010+
' Log(vlDebug,SDbgResolvedIncludeFile,[D.Value,D.Targe'+
'tFileName])'#010+
' else'#010+
' begin'#010+
' if WarnIfNotFound then'#010+
' Log(vlWarning,SWarnIncludeFileNotFound,[D.','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 Fin','dExampleSource(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.Directory);'#010+
' SF:=APackage.Dictionary.ReplaceStrings(T','.SourceFileName);'#010+
' if SD='#039#039' then'#010+
' FindFileInPath(APackage, APackage.ExamplePath,SF,SD,ACPU,AOS);'#010+
' if SD<>'#039#039' then'#010+
' SD:=IncludeTrailingPathDelimiter(SD);'#010+
' T.FTargetSourceFileName:=SD+SF;'#010+
' if FileExists(AddPathPrefix(APac','kage,T.TargetSourceFileName)) th'+
'en'#010+
' Log(vlDebug,SDbgResolvedSourceFile,[T.SourceFileName,T.TargetSou'+
'rceFileName])'#010+
' else'#010+
' begin'#010+
' if WarnIfNotFound then'#010+
' Log(vlWarning,SWarnSourceFileNotFound,[T.SourceFileName, AP',
'ackage.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.Directory;'#010+
' APackage.Dictionary.AddVariable('#039'CP','U'#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+
' if (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)]);'#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+
' begin'#010+
' if T.FTargetSourceFileName<>',#039#039' then'#010+
' Log(vlDebug,SDbgSourceAlreadyResolved,[T.Name])'#010+
' else'#010+
' FindExampleSource(T);'#010+
' end;'#010+
' end;'#010+
#010+
' LogUnIndent;'#010+
' end;'#010+
' end;'#010+
' finally',#010+
' If DoChangeDir and (APackage.Directory<>'#039#039') then'#010+
' GPathPrefix := '#039#039';'#010+
' end;'#010+
'end;'#010+
#010+
'procedure TBuildEngine.ClearResolvedFileNames(APackage: TPackage);'#010+
#010+
' procedure ClearResolvedFileNamesForDependencies(ADependencies: TDepe'+
'ndencies);',#010+
' var'#010+
' I: Integer;'#010+
' D: TDependency;'#010+
' begin'#010+
' For I:=0 to ADependencies.Count-1 do'#010+
' begin'#010+
' D := ADependencies[I];'#010+
' D.TargetFileName:='#039#039';'#010+
' end;'#010+
' end;'#010+
#010+
'var'#010+
' T : TTarget;'#010+
' I : Integer;'#010+
'begin'#010+
' APackage.FAllF','ilesResolved:=false;'#010+
' ClearResolvedFileNamesForDependencies(APackage.Dependencies);'#010+
' For I:=0 to APackage.Targets.Count-1 do'#010+
' begin'#010+
' T:=APackage.FTargets.TargetItems[I];'#010+
' T.FTargetSourceFileName:='#039#039';'#010+
' ClearResolvedFileNa','mesForDependencies(T.Dependencies);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.ResolvePackagePaths(APackage:TPackage);'#010+
#010+
' procedure ResolveUnitConfigFilenameForBasePath(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 tsNotFound, the package is not part of this'+
' 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(ABasePath)+ASubDir)+FPMakePPFile);'#010+
' if IsPackageSourceLocation then'#010+
' begin'#010+
' Packa','geBaseDir:=IncludeTrailingPathDelimiter(IncludeTrailing'+
'PathDelimiter(ABasePath)+ASubDir);'#010+
' AnUnitConfigFileName:=PackageBaseDir+APackage.GetUnitConfigOut'+
'putFilename(Defaults.CPU,Defaults.OS);'#010+
' PackageBaseDir:=IncludeTrailingPa','thDelimiter(PackageBaseDir+'+
'APackage.GetUnitsOutputDir(defaults.CPU, Defaults.OS));'#010+
' end'#010+
' else'#010+
' begin'#010+
' PackageBaseDir:=IncludeTrailingPathDelimiter(IncludeTrailingPa'+
'thDelimiter(ABasePath));'#010+
' AnUnitConfigFileName:=I','ncludeTrailingPathDelimiter(GetUnitCo'+
'nfigFilesInstallDir(ABasePath))+APackage.Name+FpmkExt;'#010+
' PackageBaseDir:=IncludeTrailingPathDelimiter(IncludeTrailingPa'+
'thDelimiter(ABasePath)+APackage.GetUnitsOutputDir(Defaults.CPU, Defaul'+
'ts.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 n','ot tsCompiled. Becaus'+
'e packages'#010+
' // in the tsCompiled state trigger a rebuild of packages tha'+
't depend'#010+
' // on it.'#010+
' APackage.FTargetState:=tsNoCompile'#010+
' else if not (APackage.FTargetState in [tsCompiled, tsNoC','ompi'+
'le]) then'#010+
' APackage.FTargetState:=tsInstalled;'#010+
' AnUnitConfigFilename:=APackage.Dictionary.ReplaceStrings(AnUni'+
'tConfigFilename);'#010+
' if FileExists(AnUnitConfigFilename) then'#010+
' APackage.UnitConfigFileName:=AnUn','itConfigFilename;'#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'#010+
' ResolveUnitConfigFilenameForBasePath(FStartDir);'#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+
' ResolveUnitConfigFilenameForBasePath(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(APackage);'#010+
' // Special error marker to prevent searches in case of error'#010+
' if APackage.Uni','tDir=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:=E','xcludeTrailingPathDelimiter(ExtractFilePath(D.TargetF'+
'ileName));'#010+
' if SD<>'#039#039' then'#010+
' L.Add(SD);'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.AddDependencyUnitPaths(L:TStrings;APackage: TPa'+
'ckage);'#010+
'Var'#010+
' I : Integer;'#010+
' ','P : TPackage;'#010+
' D : TDependency;'#010+
' S : String;'#010+
'begin'#010+
' For I:=0 to 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 i','n 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+
' end;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
'function TBuildEngine.AddPathPrefix(APack','age: TPackage; APath: strin'+
'g): string;'#010+
'begin'#010+
' if IsRelativePath(APath) and (GPathPrefix<>'#039#039') then'#010+
' result := IncludeTrailingPathDelimiter(GPathPrefix) + APath'#010+
' else'#010+
' result := APath;'#010+
'end;'#010+
#010+
#010+
'Function TBuildEngine.GetCompilerCommand(A','Package : TPackage; ATarge'+
't : TTarget; Env: TStrings) : String;'#010+
'Var'#010+
' L : TUnsortedDuplicatesStringList;'#010+
' Args : TStringList;'#010+
' s : string;'#010+
' ErrS: string;'#010+
' i : Integer;'#010+
'begin'#010+
' if ATarget.TargetSourceFileName = '#039#039' then'#010+
' Error(SErrCoul','dNotCompile,[ATarget.Name, APackage.Name]);'#010+
#010+
' Args:=TStringList.Create;'#010+
' Args.Duplicates:=dupIgnore;'#010+
#010+
' Result := '#039#039';'#010+
#010+
' //compiler configuration'#010+
' if Defaults.NoFPCCfg then'#010+
' Args.Add('#039'-n'#039');'#010+
#010+
' // Target OS'#010+
' Args.Add('#039'-T'#039'+OSToString(D','efaults.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'fpc'#039' then'#010+
' Args.Add('#039'-P'#039'+CPUToString(Defaults.CPU));'#010+
#010+
' // Compile mode'#010+
' If ATarget.Mod','e<>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+
' // Output file paths'#010+
' If ATarget.TargetType in ProgramTargets then'#010+
' Args.Add('#039'-FE'#039'+AddPath','Prefix(APackage,APackage.GetBinOut'+
'putDir(Defaults.CPU,Defaults.OS)));'#010+
' Args.Add('#039'-FU'#039'+AddPathPrefix(APackage,APackage.GetUnitsOutpu'+
'tDir(Defaults.CPU,Defaults.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,De'+
'faults.OS);'#010+
' for i:=0 to L.Count-1 do'#010+
' Args.Add('#039'-Fo'#039'+AddPathPrefix(AP','ackage,L[i]));'#010+
' FreeAndNil(L);'#010+
' // Unit Dirs'#010+
' L:=TUnsortedDuplicatesStringList.Create;'#010+
' L.Duplicates:=dupIgnore;'#010+
' AddDependencyUnitPaths(L,APackage);'#010+
' AddDependencyPaths(L,depUnit,ATarget);'#010+
' AddConditionalStrings(APackage, L,APackage','.UnitPath,Defaults.CPU,D'+
'efaults.OS);'#010+
' AddConditionalStrings(APackage, L,ATarget.UnitPath,Defaults.CPU,Defa'+
'ults.OS);'#010+
' for i:=0 to L.Count-1 do'#010+
' Args.Add('#039'-Fu'#039'+AddPathPrefix(APackage,L[i]));'#010+
' FreeAndNil(L);'#010+
' // Include Path'#010+
' L:=TUnsor','tedDuplicatesStringList.Create;'#010+
' L.Duplicates:=dupIgnore;'#010+
' AddDependencyPaths(L,depInclude,ATarget);'#010+
' AddConditionalStrings(APackage, L,APackage.IncludePath,Defaults.CPU,'+
'Defaults.OS);'#010+
' AddConditionalStrings(APackage, L,ATarget.IncludePa','th,Defaults.CPU'+
',Defaults.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:=Get','DefaultLibGCCDir(Defaults.CPU, Defaults.OS,ErrS);'#010+
' if s='#039#039' then'#010+
' Log(vlWarning, SWarngcclibpath +'#039' '#039'+ErrS)'#010+
' else'#010+
' begin'#010+
'{$ifndef NO_THREADING}'#010+
' EnterCriticalsection(FGeneralCriticalSection);'#010+
' try'#010+
'{$endi','f NO_THREADING}'#010+
' FCachedlibcPath:=s;'#010+
'{$ifndef NO_THREADING}'#010+
' finally'#010+
' LeaveCriticalsection(FGeneralCriticalSection);'#010+
' end;'#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(Args);'#010+
#010+
' If (APackage.HaveOptions) then'#010+
' Args.AddStrings(APackage.Options);'#010+
' If (ATar','get.HaveOptions) then'#010+
' Args.AddStrings(ATarget.Options);'#010+
#010+
' {$ifdef HAS_UNIT_PROCESS}'#010+
' // Force the compiler-output to be easy parseable'#010+
' if not Verbose then'#010+
' args.Add('#039'-viq'#039');'#010+
' {$endif}'#010+
#010+
' // Convert to 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.UseEnvironment and assigned(Env) then'#010+
' begin'#010+
' env.Values['#039'FPCEXTCMD'#039'] := Result;'#010+
' res','ult := '#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);'#010+
#010+
' Args.Free;'#010+
'end;'#010+
#010+
#010+
'Function TBuildEngine.GetCompiler : String;'#010+
'Var'#010+
' S : String;'#010+
'begin'#010+
' // Cache in FCompiler for speed.'#010+
' If (FCom','piler='#039#039') then'#010+
' begin'#010+
' FCompiler:=Defaults.Compiler;'#010+
' If (ExtractFilePath(FCompiler)='#039#039') then'#010+
' begin'#010+
' S:=ExeSearch(FCompiler,SysUtils.GetEnvironmentVariable('#039'PATH'+
#039'));'#010+
' If (S<>'#039#039') then'#010+
' FCompiler:=S;'#010+
' end',';'#010+
' end;'#010+
' Result:=FCompiler;'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.CreateOutputDir(APackage: TPackage);'#010+
'Var'#010+
' D : String;'#010+
' i: integer;'#010+
'begin'#010+
' //create a units directory'#010+
' D:=AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU,De'+
'faul','ts.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+
' beg','in'#010+
' if APackage.Targets.TargetItems[i].TargetType in (ProgramTargets'+
'-[ttExampleProgram]) then'#010+
' begin'#010+
' D:=AddPathPrefix(APackage,APackage.GetBinOutputDir(Defaults.'+
'CPU,Defaults.OS));'#010+
' If not SysDirectoryExists(D)',' then'#010+
' begin'#010+
' Log(vlInfo,SInfoCreatingOutputDir,[D]);'#010+
' CmdCreateDir(D);'#010+
' end;'#010+
' //do not continue loop, directory is made anyway'#010+
' break;'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'Function ','TBuildEngine.DependencyOK(ADependency : TDependency) : Bool'+
'ean;'#010+
'begin'#010+
' Result:=(Defaults.CPU in ADependency.CPUs) and (Defaults.OS in ADepe'+
'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 := False'#010+
' else'#010+
' Result:=(ACPU in ATarget.CPUs) and (AOS in ATarget.OSes);'#010+
'end;'#010+
#010+
'function TBu','ildEngine.TargetInstallOK(ATarget: TTarget; ACPU: TCPU; '+
'AOS: TOS): Boolean;'#010+
'begin'#010+
' result := TargetOK(ATarget, ACPU, AOS) and ATarget.Install;'#010+
'end;'#010+
#010+
#010+
'Function TBuildEngine.PackageOK(APackage : TPackage) : Boolean;'#010+
'begin'#010+
' Result:=(Defaults','.CPU in APackage.CPUs) and (Defaults.OS in APacka'+
'ge.OSes);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.DoBeforeCompile(APackage: TPackage);'#010+
'begin'#010+
' ExecuteCommands(APackage.Commands,caBeforeCompile);'#010+
' If Assigned(APackage.BeforeCompile) then'#010+
' APackag','e.BeforeCompile(APackage);'#010+
' If Assigned(APackage.BeforeCompileProc) then'#010+
' APackage.BeforeCompileProc(APackage);'#010+
' // It could be that files that weren'#039't found before are availabl'+
'e now.'#010+
' ResolveFileNames(APackage,Defaults.CPU,Defaults.O','S,false,true);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.DoAfterCompile(APackage: TPackage);'#010+
'begin'#010+
' If Assigned(APackage.AfterCompile) then'#010+
' APackage.AfterCompile(APackage);'#010+
' If Assigned(APackage.AfterCompileProc) then'#010+
' APackage.AfterCompilePro','c(APackage);'#010+
' ExecuteCommands(APackage.Commands,caAfterCompile);'#010+
'end;'#010+
#010+
#010+
'Function TBuildEngine.NeedsCompile(APackage:TPackage;ATarget: TTarget)'+
': Boolean;'#010+
'Var'#010+
' I : Integer;'#010+
' D : TDependency;'#010+
' T : TTarget;'#010+
' OD,OFN,TFN : String;'#010+
' CompileR','eason: 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 [ttEx','ampleUnit, ttExampleProgram] then'#010+
' Exit;'#010+
#010+
' // Files which should not be compiled on this target can not trigger'+
' a compile.'#010+
' if not TargetOK(ATarget, Defaults.CPU, Defaults.OS) then'#010+
' Exit;'#010+
#010+
' // Check output file'#010+
' if not result then',#010+
' begin'#010+
' if ATarget.TargetType in ProgramTargets then'#010+
' OD:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)'#010+
' else'#010+
' OD:=APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);'#010+
' If (OD<>'#039#039') then'#010+
' OD:=Inc','ludeTrailingPathDelimiter(OD);'#010+
' OFN:=AddPathPrefix(APackage, OD+ATarget.GetOutPutFileName(Defaul'+
'ts.OS));'#010+
' Result:=Not FileExists(OFN);'#010+
' if Result then'#010+
' begin'#010+
' CompileReason:=SDbgOutputDoesNotExist;'#010+
' Log(v','lDebug,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,ATar','get.TargetSourceFileName);'#010+
' if FileExists(TFN) then'#010+
' Result:=FileNewer(TFN,OFN);'#010+
' if Result then'#010+
' CompileReason:=SDbgNewerSource;'#010+
' end;'#010+
#010+
' // Check unit and include dependencies'#010+
' If not Result then'#010+
' begin'#010+
' ',' ResolveDependencies(ATarget.Dependencies,ATarget.Collection as'+
' TTargets);'#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 (Default','s.OS in D.OSes) th'+
'en'#010+
' begin'#010+
' case D.DependencyType of'#010+
' depUnit :'#010+
' begin'#010+
' T:=TTarget(D.Target);'#010+
' If (T=Nil) then'#010+
' Error(SErrDe','pUnknownTarget,[D.Value, ATarget.N'+
'ame, APackage.Name]);'#010+
' // If a dependent package is compiled we always ne'+
'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, SDbgDependencyUnitRecompiled, [T.Na'+
'me]);'#010+
' CompileReason:=Format(SDbgDependencyRecompiled,[',
'T.Name]);'#010+
' end;'#010+
' end;'#010+
' depInclude :'#010+
' begin'#010+
' if D.TargetFileName<>'#039#039' then'#010+
' begin'#010+
' TFN:=AddPathPrefix(APackag','e,D.TargetFileName'+
');'#010+
' Result:=FileNewer(TFN,OFN);'#010+
' if result then'#010+
' CompileReason:=Format(SDbgNewerInclude,[D.Ta'+
'rgetFileName]);'#010+
' end;'#010+
' ',' end;'#010+
' depPackage :'#010+
' begin'#010+
' log(vlWarning,SWarnTargetDependsOnPackage,[ATarget'+
'.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+
'procedure TBuildEngine.Compile(APackage: TPackage; ATarget: TTarget);'#010+
'Var'#010+
' S : String;'#010+
' Env ',': TStrings;'#010+
'begin'#010+
' Log(vlInfo,SInfoCompilingTarget,[ATarget.Name]);'#010+
' LogIndent;'#010+
' ExecuteCommands(ATarget.Commands,caBeforeCompile);'#010+
' If Assigned(ATarget.BeforeCompile) then'#010+
' ATarget.BeforeCompile(ATarget);'#010+
#010+
' if (APackage.BuildMode=b','mBuildUnit) and not (ATarget.TargetType in'+
' [ttProgram,ttExampleProgram]) then'#010+
' begin'#010+
' APackage.FBUTarget.Dependencies.AddUnit(ATarget.Name).FTargetFil'+
'eName:=ATarget.TargetSourceFileName;'#010+
' end'#010+
' else'#010+
' begin'#010+
' if Defaults.Us','eEnvironment 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; ATarget:'+
' TTarget);'#010+
'Var'#010+
' I : Integer;'#010+
' T : TTarget;'#010+
' D : TDependency;'#010+
'begin'#010+
' Log(vlDebug, Fo','rmat(SDbgCompilingDependenciesOfTarget, [ATarget.Na'+
'me]));'#010+
' LogIndent;'#010+
' For I:=0 to ATarget.Dependencies.Count-1 do'#010+
' begin'#010+
' D:=ATarget.Dependencies[i];'#010+
' if (D.DependencyType=depPackage) then'#010+
' log(vlWarning,SWarnTargetDe','pendsOnPackage,[ATarget.Name, APa'+
'ckage.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) an','d (T<>ATarget) then'#010+
' begin'#010+
' if TargetOK(T, Defaults.CPU, Defaults.OS) then'#010+
' begin'#010+
' // We don'#039't need to compile implicit units, they'+
' are only'#010+
' // used for dependency ch','ecking'#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(S','WarnDepUnitNotFound, [T.Name,'+
' MakeTargetString(Defaults.CPU,Defaults.OS)]));'#010+
' end'#010+
' else'#010+
' Error(SErrDepUnknownTarget,[D.Value, ATarget.Name, APackag'+
'e.Name]);'#010+
' end;'#010+
' end;'#010+
' LogUnIndent;'#010+
'end;'#010+
#010+
#010+
'procedur','e TBuildEngine.MaybeCompile(APackage: TPackage; ATarget: TTa'+
'rget);'#010+
'begin'#010+
' if ATarget.State<>tsNeutral then'#010+
' Error(SErrInvalidState,[ATarget.Name]);'#010+
' Log(vlDebug, Format(SDbgConsideringTarget, [ATarget.Name]));'#010+
' LogIndent;'#010+
' ATarget.FT','argetState:=tsConsidering;'#010+
' ResolveDependencies(ATarget.Dependencies,ATarget.Collection as TTarg'+
'ets);'#010+
' CompileDependencies(APackage, ATarget);'#010+
' if NeedsCompile(APackage, ATarget) then'#010+
' begin'#010+
' Compile(APackage,ATarget);'#010+
' ATar','get.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=depPackage) and'#010+
' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) the'+
'n'#010+
' ',' begin'#010+
' P:=TPackage(D.Target);'#010+
' if Assigned(P) then'#010+
' begin'#010+
' Result:=(P.State=tsCompiled);'#010+
' if Result then'#010+
' begin'#010+
' ',' break;'#010+
' CompileReason:=Format(SDbgPackageDepRecompiled,[P'+
'.Name]);'#010+
' end;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
#010+
' // Recompile a Target of this package?'#010+
' If Not Result then'#010,
' begin'#010+
' GPathPrefix := APackage.Directory;'#010+
' try'#010+
' for i:=0 to APackage.Targets.Count-1 do'#010+
' begin'#010+
' Result:=NeedsCompile(APackage,APackage.Targets.TargetItems'+
'[i]);'#010+
' if Result then'#010+
' ',' begin'#010+
' break;'#010+
' CompileReason:=Format(SDbgTargetHasToBeCompiled,[APackag'+
'e.Targets.TargetItems[i].Name]);'#010+
' end;'#010+
' end;'#010+
' Finally'#010+
' GPathPrefix := '#039#039';'#010+
' end;'#010+
' end;'#010+
#010+
' if result ','then'#010+
' Log(vlDebug,SDbgMustCompile,[APackage.Name, CompileReason]);'#010+
'end;'#010+
#010+
#010+
'function TBuildEngine.CheckExternalPackage(Const APackageName : String'+
'; ErrorOnFailure: 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+
' exit;'#010+
' end;'#010+
' // Create new external package'#010+
' Result:=ExternalPackages.AddPackage(APacka','geName);'#010+
' Result.FTargetState:=tsNotFound;'#010+
' // Load unit config'#010+
' S:=GetUnitDir(Result);'#010+
' if S<>'#039#039' then'#010+
' begin'#010+
' Log(vldebug, SDbgExternalDependency, [APackageName,S]);'#010+
' // Load unit config if it exists'#010+
' F:=result.UnitCo','nfigFileName;'#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.GetPa','ckageUnitInstal'+
'lDir(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+
'pr','ocedure TBuildEngine.CompileDependencies(APackage: TPackage);'#010+
'Var'#010+
' I : Integer;'#010+
' P : TPackage;'#010+
' D : TDependency;'#010+
'begin'#010+
' For I:=0 to APackage.Dependencies.Count-1 do'#010+
' begin'#010+
' D:=APackage.Dependencies[i];'#010+
' if (D.DependencyType','=depPackage) and'#010+
' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
' begin'#010+
' P:=TPackage(D.Target);'#010+
' If Assigned(P) then'#010+
' begin'#010+
' if (Defaults.CPU in P.CPUs) and (Defaults.OS in',' P.OSes'+
') then'#010+
' begin'#010+
' case P.State of'#010+
' tsNeutral :'#010+
' MaybeCompile(P);'#010+
' tsConsidering :'#010+
' Log(vlWarning,SWarnCircularPackageDepende','ncy,['+
'APackage.Name,P.Name]);'#010+
' end;'#010+
' end'#010+
' else'#010+
' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APack'+
'age.Name, D.Value, MakeTargetString(Defaults.CPU, Defaults.OS)]);'#010+
' e','nd'#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<>$fffff','fff) and'#010+
' (P.InstalledChecksum<>D.RequireChecksum) then'#010+
' Log(vlDebug,SDbgPackageChecksumChanged,[P.Name]);'#010+
' APackage.InheritPackageVariantsFromDependency(P);'#010+
' end;'#010+
' end;'#010+
'end;'#010+
#010+
'function TBuildEngine.','CheckDependencies(APackage: TPackage; ErrorOnF'+
'ailure: boolean): TCheckDependencyResult;'#010+
'Var'#010+
' I : Integer;'#010+
' P : TPackage;'#010+
' D : TDependency;'#010+
'begin'#010+
' result := cdAvailable;'#010+
' For I:=0 to APackage.Dependencies.Count-1 do'#010+
' begin'#010+
' D:=A','Package.Dependencies[i];'#010+
' if (D.DependencyType=depPackage) and'#010+
' (Defaults.CPU in D.CPUs) and (Defaults.OS in D.OSes) then'#010+
' begin'#010+
' P:=TPackage(D.Target);'#010+
' If Assigned(P) then'#010+
' begin'#010+
' ',' if (Defaults.CPU in P.CPUs) and (Defaults.OS in P.OSes'+
') then'#010+
' begin'#010+
' case P.State of'#010+
' tsNeutral :'#010+
' result := cdNotYetAvailable;'#010+
' tsConsidering :'#010,
' Log(vlWarning,SWarnCircularPackageDependency,[AP'+
'ackage.Name,P.Name]);'#010+
' end;'#010+
' end'#010+
' else'#010+
' Log(vlWarning,SWarnDependOnOtherPlatformPackage,[APack'+
'age.Name, D.Valu','e, 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.InheritPackageVari','antsFromDependency(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: TTarget;'#010+
' L: TStrings;'#010+
' F: Text;'#010+
#010+
' begin'#010+
' if (APackage.FBUTarget.Dependencies.Cou','nt>0) then'#010+
' begin'#010+
' Log(vldebug, Format(SDbgGenerateBuildUnit, [APackage.FBUTarget'+
'.Name]));'#010+
' system.Assign(F,AddPathPrefix(APackage,APackage.FBUTarget.FTar'+
'getSourceFileName));'#010+
' Rewrite(F);'#010+
' writeln(F,'#039'unit '#039' ','+ APackage.FBUTarget.Name +'#039';'#039+
');'#010+
' writeln(F,'#039'interface'#039');'#010+
' writeln(F,'#039'uses'#039');'#010+
' for i := 0 to APackage.FBUTarget.Dependencies.Count-1 do'#010+
' begin'#010+
' if i<>0 then'#010+
' write(F,'#039','#039');'#010+
' wr','iteln(F,APackage.FBUTarget.Dependencies.Dependencies[i'+
'].Value);'#010+
' end;'#010+
' writeln(F,'#039';'#039');'#010+
' writeln(F,'#039'implementation'#039');'#010+
' writeln(F,'#039'end.'#039');'#010+
#010+
' system.close(F);'#010+
#010+
' APackage.FBuildMode:=bmOneByOne;'#010+
' ',' try'#010+
' Compile(APackage,APackage.FBUTarget);'#010+
' finally'#010+
' // Delete temporary build-unit files'#010+
' L := TStringList.Create;'#010+
' try'#010+
' APackage.FBUTarget.GetCleanFiles(L,IncludeTrailingPathDeli'+
'mit','er(AddPathPrefix(APackage,APackage.GetUnitsOutputDir(Defaults.CPU'+
',Defaults.OS))),'#039#039',Defaults.CPU,Defaults.OS);'#010+
' L.Add(AddPathPrefix(APackage,APackage.FBUTarget.SourceFile'+
'Name));'#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.TargetItems[i];'#010+
' if (T.TargetType = ttUnit) and (TargetOK(T, Defaults.CPU, Defa'+
'ults.OS)) th','en'#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 Targe','tOK(T, Defaults.CPU, Defaults.OS) then'#010+
' begin'#010+
' if T.State=tsNeutral then'#010+
' MaybeCompile(APackage,T);'#010+
' // If a target is compiled, re-generate the UnitConfigFile'#010+
' if T.FTargetState<>tsNoCompile then'#010+
' ',' RegenerateUnitconfigFile:= True;'#010+
' end'#010+
' else'#010+
' begin'#010+
' if not(Defaults.CPU in T.CPUs) then'#010+
' Log(vldebug, Format(SDbgSkippingTargetWrongCPU, [T.Name, CPU'+
'sToString(T.CPUs)]));'#010+
' if not(Defaults.OS in T.OSes) ','then'#010+
' Log(vldebug, Format(SDbgSkippingTargetWrongOS, [T.Name, OSes'+
'ToString(T.OSes)]));'#010+
' end;'#010+
' end;'#010+
#010+
'begin'#010+
' cmdOpts := '#039#039';'#010+
#010+
' log(vlWarning,SWarnStartCompilingPackage,[APackage.Name, Defaults.Ta'+
'rget]);'#010+
#010+
' case Defaults.BuildM','ode of'#010+
' bmOneByOne: begin'#010+
' if (bmOneByOne in APackage.SupportBuildModes) then'#010+
' APackage.FBuildMode:=bmOneByOne'#010+
' else if bmBuildUnit in APackage.SupportBuildModes t'+
'hen'#010+
' ',' begin'#010+
' log(vlInfo,SInfoFallbackBuildmodeBU);'#010+
' APackage.FBuildMode:=bmBuildUnit;'#010+
' end'#010+
' else'#010+
' raise exception.create(SErrUnsupported','Buildmode'+
');'#010+
' end;'#010+
' bmBuildUnit: begin'#010+
' // When bmBuildUnit is supported by the package use'+
' a buildunit.'#010+
' // Unless there is only one target and bmOneByOne i'+
's also supported'#010+
' ',' if (bmBuildUnit in APackage.SupportBuildModes) an'+
'd'#010+
' not ((APackage.Targets.Count=1) and (bmOneByOne '+
'in APackage.SupportBuildModes)) then'#010+
' APackage.FBuildMode:=bmBuildUnit'#010+
' el','se if bmOneByOne in APackage.SupportBuildModes '+
'then'#010+
' begin'#010+
' log(vlInfo,SInfoFallbackBuildmode);'#010+
' APackage.FBuildMode:=bmOneByOne'#010+
' end'#010+
' els','e'#010+
' raise exception.create(SErrUnsupportedBuildmode);'+
#010+
' end;'#010+
' end;'#010+
#010+
' GPathPrefix:=APackage.Directory;'#010+
' Try'#010+
' CreateOutputDir(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(BUN','ame);'#010+
' APackage.FBUTarget.FTargetSourceFileName := APackage.FBUTarget'+
'.SourceFileName;'#010+
' end;'#010+
' For I:=0 to APackage.Targets.Count-1 do'#010+
' begin'#010+
' T:=APackage.Targets.TargetItems[i];'#010+
' case T.TargetType of'#010+
' ',' ttUnit:'#010+
' begin'#010+
' ProcessCompileTarget;'#010+
' end;'#010+
' ttProgram:'#010+
' begin // do nothing, are compiled later'#010+
' end;'#010+
' ttFPDoc:'#010+
' begin'#010+
' for d := 0 to T.Dependencies.Count - ','1 do'#010+
' begin'#010+
' dep := TDependency(T.Dependencies[d]);'#010+
#010+
' //add unit dependencies'#010+
' if dep.DependencyType = depUnit then'#010+
' cmdOpts := cmdOpts + '#039' --input='#039' + AddPathPref'+
'ix(APackage,','dep.Value);'#010+
' end;'#010+
#010+
' //check if a documentation target is given'#010+
' cmdOpts := cmdOpts + '#039' --input='#039' + AddPathPrefix(A'+
'Package,T.Directory + T.Name + T.Extension) + '#039' --descr='#039'+ T.X'+
'ML;'#010+
' end'#010+
' else'#010,
' log(vldebug, SDbgTargetIsNotAUnitOrProgram,[T.Name]);'#010+
' end;'#010+
' end;'#010+
#010+
' if APackage.BuildMode=bmBuildUnit then'#010+
' CompileBuildUnit;'#010+
#010+
' FreeAndNil(APackage.FBUTarget);'#010+
#010+
' For I:=0 to APackage.Targets.Count-1 do'#010+
' ',' begin'#010+
' T:=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:=AddPathPr','efix(APackage, APackage.GetUnitConfigOutputFile'+
'name(Defaults.CPU,Defaults.OS));'#010+
' Log(vlInfo, Format(SDbgGenerating, [UC]));'#010+
' APackage.SaveUnitConfigToFile(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: sFPDocFormat := '#039'--format=html --output='#039+
' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
' ',' ffHtm: sFPDocFormat := '#039'--format=htm --output='+
#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
' ffXHtml: sFPDocFormat := '#039'--format=xhtml --output='+
#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir);'#010+
' ',' ffLaTex: sFPDocFormat := '#039'--format=latex --outpu'+
't='#039' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.N'+
'ame + '#039'.tex'#039';'#010+
' ffXMLStruct: sFPDocFormat := '#039'--format=xml-struct --ou'+
'tput='#039' + AddPathPrefix(APackage,Def','aults.FPDocOutputDir);'#010+
' ffChm: sFPDocFormat := '#039'--format=chm --output='#039+
' + AddPathPrefix(APackage,Defaults.FPDocOutputDir) + APackage.Name + '#039+
'.chm'#039';'#010+
' end;'#010+
#010+
' //execute fpdoc'#010+
' Cmd:=ExeSearch('#039'fpdoc'#039',','SysUtils.GetEnvironmentvari'+
'able('#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])'#010+
' else'#010+
' log(vlWarning,SWarnCompilingPackagecomplete,[APackage.Name]);'#010+
'end;'#010+
#010+
'p','rocedure TBuildEngine.MaybeCompile(APackage: TPackage);'#010+
'begin'#010+
' if ReadyToCompile(APackage) then'#010+
' begin'#010+
' Compile(APackage);'#010+
' APackage.FTargetState:=tsCompiled;'#010+
' end;'#010+
'end;'#010+
#010+
'function TBuildEngine.ReadyToCompile(APackage: TPack','age) : 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(SErr','InvalidState,[APackage.Name]);'#010+
' Log(vlDebug,SDbgConsideringPackage,[APackage.Name]);'#010+
' LogIndent;'#010+
' if Defaults.ThreadsAmount=-1 then'#010+
' APackage.FTargetState:=tsConsidering;'#010+
' ResolveDependencies(APackage.Dependencies,(APackage.Collectio','n as '+
'TPackages));'#010+
' // When multiple threads are used, delay the compilation of the pack'+
'age when'#010+
' // there are unsolved dependencies. When no threads are used, compil'+
'e all'#010+
' // dependencies.'#010+
' if Defaults.ThreadsAmount=-1 then'#010+
' CompileD','ependencies(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+
' Reso','lveFileNames(APackage,Defaults.CPU,Defaults.OS,True,False);'#010+
' If NeedsCompile(APackage) then'#010+
' result := True'#010+
' else'#010+
' begin'#010+
' APackage.FTargetState:=tsNoCompile;'#010+
' inc(FProgressCount);'#010+
' end;'#010+
' LogUnIndent;'#010+
'end;'#010+
#010+
#010+
'Function TB','uildEngine.InstallPackageFiles(APAckage : TPackage; tt : '+
'TTargetTypes; Const Dest : String; Const InstallMode: TInstallMode):Bo'+
'olean;'#010+
'Var'#010+
' List : TStringList;'#010+
'begin'#010+
' Result:=False;'#010+
' List:=TStringList.Create;'#010+
' Try'#010+
' APackage.GetInstall','Files(List,tt,Defaults.CPU, Defaults.OS);'#010+
' if (List.Count>0) then'#010+
' begin'#010+
' Result:=True;'#010+
' case InstallMode of'#010+
' imInstall: CmdCopyFiles(List,Dest,APackage);'#010+
' imUnInstall: CmdDeleteDestFiles(List,Dest)',';'#010+
' end;'#010+
' end;'#010+
' Finally'#010+
' List.Free;'#010+
' end;'#010+
'end;'#010+
#010+
'function TBuildEngine.GetUnitConfigFilesInstallDir(ABaseDir: string): '+
'String;'#010+
'begin'#010+
' result := FixPath(ABaseDir)+Defaults.UnitConfigFilesInstallDir;'#010+
'end;'#010+
#010+
'procedure TBuildEngi','ne.InstallUnitConfigFile(APAckage: TPackage; con'+
'st Dest: String);'#010+
'Var'#010+
' List : TStringList;'#010+
' ConfigFileName: String;'#010+
' ConfigFileContent: TStrings;'#010+
' Index: integer;'#010+
'begin'#010+
' ConfigFileName:=APackage.GetUnitConfigOutputFilename(Defaults.CPU',','+
'Defaults.OS);'#010+
' List:=TStringList.Create;'#010+
' Try'#010+
' if Defaults.FPUnitSourcePath<>'#039#039' then'#010+
' begin'#010+
' ConfigFileContent := TStringList.Create;'#010+
' try'#010+
' ConfigFileContent.LoadFromFile(AddPathPrefix(APAckage, Confi'+
'gFileN','ame));'#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[KeySourcePath] := Defaults.FPUnit'+
'SourcePath;'#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 Dest : String; Const In'+
'stallMode: TInstallMode): Boolean;'#010+
'Var'#010+
' List : TStringList;'#010+
'begin'#010+
' Result:=False;'#010+
' List:=TStringList.Create;'#010+
' Try'#010+
' APackage.GetInstallSourceFiles(List,stt,ttt);'#010+
' if (List.Count>0) then'#010,
' begin'#010+
' Result:=True;'#010+
' case InstallMode of'#010+
' imInstall: CmdCopyFiles(List,Dest,APackage);'#010+
' imUnInstall: CmdDeleteDestFiles(List,Dest);'#010+
' end;'#010+
' end;'#010+
' Finally'#010+
' List.Free;'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'proc','edure 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) t','hen'#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) th','en'#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 : String;'#010+
' B : Boolean;'#010+
'begin'#010+
' If (Apackage.St','ate<>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.Direct','ory;'#010+
' if AnArchiveFiles then'#010+
' begin'#010+
' FOnCopyFile:=@AddFileToArchive;'#010+
' FOnFinishCopy:=@FinishArchive;'#010+
' end;'#010+
' DoBeforeInstall(APackage);'#010+
' // units'#010+
' B:=false;'#010+
' AddPackageMacrosToDictionary(APackage, APack','age.Dictionary);'#010+
' GlobalDictionary.AddVariable('#039'unitinstalldir'#039', FixPath(APa'+
'ckage.Dictionary.ReplaceStrings(Defaults.UnitInstallDir), False));'#010+
' GlobalDictionary.AddVariable('#039'packageunitinstalldir'#039',APack'+
'age.GetPackageUnitInstallDir(Def','aults.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, imInstall) then'#010+
' B:=true;'#010+
' D:=','FixPath(APackage.Dictionary.ReplaceStrings(Defaults.UnitInsta'+
'llDir), True)+APackage.GetPackageUnitInstallDir(Defaults.CPU,Defaults.'+
'OS);'#010+
' if InstallPackageFiles(APackage,[ttUnit, ttImplicitUnit],D, imInst'+
'all) then'#010+
' B:=true;'#010+
' // By',' default do not install the examples. Maybe add an option f'+
'or this later'#010+
' //if InstallPackageFiles(APAckage,ttExampleUnit,D) then'#010+
' // B:=true;'#010+
' // Unit (dependency) configuration if there were units installed'#010+
' D:=FixPath(APacka','ge.Dictionary.ReplaceStrings(GetUnitConfigFiles'+
'InstallDir(Defaults.BaseInstallDir)), True);'#010+
' if B then'#010+
' InstallUnitConfigFile(APackage,D);'#010+
' // Programs'#010+
' D:=IncludeTrailingPathDelimiter(Defaults.BinInstallDir);'#010+
' InstallPacka','geFiles(APAckage,[ttProgram],D, imInstall);'#010+
' //InstallPackageFiles(APAckage,ttExampleProgram,D);'#010+
' // Documentation'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.DocInstallD'+
'ir), True);'#010+
' InstallPackageSourceFiles(APackag','e,[stDoc],[],D, imInstall);'#010+
' // Examples'#010+
' if Defaults.InstallExamples then'#010+
' begin'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.Example'+
'sInstallDir), True);'#010+
' InstallPackageSourceFiles(APackage,[stExample],[','ttExamplePro'+
'gram,ttExampleUnit],D, imInstall);'#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.UnInstall(APackage: TPackage);'#010+
'Var'#010+
' D : String;'#010+
'begin'#010+
' CheckDependencies(APackage, False);'#010+
' ResolvePackagePaths(APackage);'#010+
' AP','ackage.SetDefaultPackageVariant;'#010+
' If (Apackage.State<>tsInstalled) then'#010+
' begin'#010+
' Error(SErrorPkgNotInstalled,[APackage.Name]);'#010+
' exit;'#010+
' end;'#010+
' Log(vlCommand,SInfoUnInstallingPackage,[APackage.Name]);'#010+
#010+
' //DoBeforeUnInstall(APacka','ge);'#010+
#010+
' // units'#010+
' AddPackageMacrosToDictionary(APackage, APackage.Dictionary);'#010+
' GlobalDictionary.AddVariable('#039'unitinstalldir'#039', FixPath(APack'+
'age.Dictionary.ReplaceStrings(Defaults.UnitInstallDir), False));'#010+
' GlobalDictionary.AddVariable('#039'p','ackageunitinstalldir'#039',APack'+
'age.GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS));'#010+
#010+
' D:=FixPath(Defaults.Prefix,true);'#010+
' // This is to uninstall the TPackage.Installfiles, which are not rel'+
'ated to any'#010+
' // target'#010+
' InstallPackageFiles(APa','ckage,[],D,imUnInstall);'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.UnitInstallDi'+
'r), True)+APackage.GetPackageUnitInstallDir(Defaults.CPU,Defaults.OS);'+
#010+
' InstallPackageFiles(APackage,[ttUnit, ttImplicitUnit],D, imUnInstall'+
');'#010+
' ',' SysDeleteDirectory(D);'#010+
#010+
' // Unit (dependency) configuration'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(GetUnitConfigFilesInst'+
'allDir(Defaults.BaseInstallDir)), True);'#010+
' SysDeleteFile(D+APackage.Name+FpmkExt);'#010+
#010+
' // Programs'#010+
' D:=Inclu','deTrailingPathDelimiter(Defaults.BinInstallDir);'#010+
' InstallPackageFiles(APAckage,[ttProgram],D, imUnInstall);'#010+
' SysDeleteDirectory(D);'#010+
' // Documentation'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.DocInstallDir'+
'), True);'#010+
' Insta','llPackageSourceFiles(APackage,[stDoc],[],D, imUnInstall);'#010+
' SysDeleteDirectory(D);'#010+
' // Examples'#010+
' if Defaults.InstallExamples then'#010+
' begin'#010+
' D:=FixPath(APackage.Dictionary.ReplaceStrings(Defaults.ExamplesI'+
'nstallDir), True);'#010+
' Ins','tallPackageSourceFiles(APackage,[stExample],[ttExampleProgr'+
'am,ttExampleUnit],D, imUnInstall);'#010+
' SysDeleteDirectory(D);'#010+
' end;'#010+
' // Done.'#010+
' APackage.FTargetState:=tsNeutral;'#010+
#010+
' //DoAfterUnInstall(APackage);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngin','e.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.A','fterArchiveProc(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_ZIPP','ER}'#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 targe'+
't'#010+
' ClearResolvedFileNames(APackage);'#010+
' ResolveFileNames(APackage,ICPU,IOS,false);'#010+
' APackage.GetArchiveFiles','(L, ICPU, IOS);'#010+
' end;'#010+
' //from sources'#010+
' APackage.GetArchiveSourceFiles(L);'#010+
#010+
' //show all files'#010+
' for i := 0 to L.Count-1 do'#010+
' Log(vlDebug, Format(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.AddFileEntry(AddPathPrefix(APackage, L'+
'[i]), A+L[i]);'#010+
' end;'#010+
' ZipFile.ZipAllFile','s;'#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.Director','y<>'#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(APackag','e);'#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 A','ssigned(APackage.AfterInstallProc) then'#010+
' APackage.AfterCleanProc(APackage);'#010+
' ExecuteCommands(APackage.Commands,caAfterClean);'#010+
'end;'#010+
#010+
#010+
'procedure 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+
' EnterDir(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.SetDefaultPackageVariant;'#010+
' DoBeforeClean(Apackage);'#010+
' AddPackageMacrosToDictionary(APackage, APacka','ge.Dictionary);'#010+
' if AllTargets then'#010+
' begin'#010+
' // Remove the unit-and bin-directories completely. This is saf'+
'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 are clea'+
'ned. (like'#010+
' // the .fpm file)'#010+
' Clean(APackage, ACPU, ','AOS);'#010+
' DirectoryList.Add(ExtractFileDir(APackage.GetUnits'+
'OutputDir(ACPU,AOS)));'#010+
' DirectoryList.Add(ExtractFileDir(APackage.GetBinOu'+
'tputDir(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)'+
';'#010+
'Var'#010+
' List : TStringList;'#010+
' DirectoryList : TStringList;'#010+
'begin'#010+
' List:=TStringList.Create;'#010+
' try'#010+
' List.Add(APackage.GetUnitConfigOutputF','ilename(ACPU,AOS));'#010+
' APackage.GetCleanFiles(List,ACPU,AOS);'#010+
' if (List.Count>0) then'#010+
' begin'#010+
' CmdDeleteFiles(List);'#010+
' DirectoryList := TStringList.Create;'#010+
' try'#010+
' GetDirectoriesFromFilelist(List,DirectoryList);'#010+
' ',' CmdRemoveDirs(DirectoryList);'#010+
#010+
' DirectoryList.Clear;'#010+
' if DirectoryExists(APackage.GetBinOutputDir(ACPU,AOS)) then'#010+
' DirectoryList.Add(APackage.GetBinOutputDir(ACPU,AOS));'#010+
' if DirectoryExists(APackage.GetU','nitsOutputDir(ACPU,AOS)) the'+
'n'#010+
' DirectoryList.Add(APackage.GetUnitsOutputDir(ACPU,AOS));'#010+
' CmdRemoveDirs(DirectoryList);'#010+
#010+
' DirectoryList.Clear;'#010+
' if DirectoryExists(ExtractFileDir(APackage.GetBinOutputDir(ACP'+
'U,AOS','))) then'#010+
' DirectoryList.Add(ExtractFileDir(APackage.GetBinOutputDir(AC'+
'PU,AOS)));'#010+
' if DirectoryExists(ExtractFileDir(APackage.GetUnitsOutputDir(A'+
'CPU,AOS))) then'#010+
' DirectoryList.Add(ExtractFileDir(APackage.GetUnitsOutp','utDi'+
'r(ACPU,AOS)));'#010+
' CmdRemoveDirs(DirectoryList);'#010+
' finally'#010+
' DirectoryList.Free;'#010+
' end;'#010+
' end;'#010+
' Finally'#010+
' List.Free;'#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: TPackages);'#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 := ReadyToCompile(APackage)'#010+
' else'#010+
' begin'#010+
' inc(FProgressCount);'#010+
' log(vlW','arning,SWarnSkipPackageTargetProgress,[(FProgress'+
'Count)/FProgressMax * 100, APackage.Name, Defaults.Target]);'#010+
' APackage.FTargetState:=tsNoCompile;'#010+
' end;'#010+
' end;'#010+
' end;'#010+
#010+
'Var'#010+
' I : integer;'#010+
'{$ifndef NO_THREADING}'#010+
' Thr ',': Integer;'#010+
' Finished : boolean;'#010+
' ErrorState: boolean;'#010+
' ErrorMessage: string;'#010+
' NotifyThreadWaiting : PRTLEvent;'#010+
' Threads : array of TCompileWorkerThread;'#010+
'{$endif NO_THREADING}'#010+
' P : TPackage;'#010+
#010+
'{$ifndef NO_THREADING}'#010+
' procedure ProcessT','hreadResult(ATHread: TCompileWorkerThread);'#010+
' var'#010+
' StartI: integer;'#010+
' CompilePackage: TPackage;'#010+
' PackageAvailable: boolean;'#010+
' begin'#010+
' if AThread.Done then'#010+
' begin'#010+
' if assigned(AThread.APackage) then'#010+
' begin'#010+
' ',' // The thread has completed compiling the package'#010+
' if AThread.CompilationOK then'#010+
' AThread.APackage.FTargetState:=tsCompiled'#010+
' else // A problem occured, stop the compilation'#010+
' begin'#010+
' ',' ErrorState:=true;'#010+
' ErrorMessage:=AThread.ErrorMessage;'#010+
' Finished:=true;'#010+
' end;'#010+
' AThread.APackage := nil;'#010+
' end;'#010+
' StartI := I;'#010+
#010+
' CompilePackage := nil;'#010+
' ','PackageAvailable:=false;'#010+
' repeat'#010+
' if IsReadyToCompile(Packages.PackageItems[i]) then'#010+
' CompilePackage := Packages.PackageItems[i];'#010+
' if not (Packages.PackageItems[i].State in [tsCompiled, tsNoCom'+
'pile]) then'#010+
' ',' PackageAvailable:=true;'#010+
' inc(I);'#010+
' if I=packages.Count then'#010+
' i := 0;'#010+
' until Assigned(CompilePackage) or (I=StartI);'#010+
' if Assigned(CompilePackage) then'#010+
' begin'#010+
' // Instruct thread to c','ompile 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.PackageItems[i];'#010+
' If PackageOK(P) then'#010+
' MaybeCompile(P)'#010+
' else'#010+
' begi','n'#010+
' inc(FProgressCount);'#010+
' log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCo'+
'unt)/FProgressMax * 100, P.Name, Defaults.Target]);'#010+
' end;'#010+
' end;'#010+
' end'#010+
' else'#010+
' begin'#010+
'{$ifndef NO_THREADING}'#010+
' ',' // Use worker-threads to compile the packages'#010+
' ErrorState := False;'#010+
' Finished := False;'#010+
' I := 0;'#010+
' // This event is set by the worker-threads to notify the main/th'+
'is thread'#010+
' // that a package finished it'#039's task.'#010+
' ',' NotifyThreadWaiting := RTLEventCreate;'#010+
' SetLength(Threads,Defaults.ThreadsAmount);'#010+
' // Create all worker-threads'#010+
' for Thr:=0 to Defaults.ThreadsAmount-1 do'#010+
' Threads[Thr] := TCompileWorkerThread.Create(self,NotifyThr','ea'+
'dWaiting);'#010+
' try'#010+
' // When a thread notifies this thread that it is ready, loop o'+
'n all'#010+
' // threads to check their state and if possible assign a new p'+
'ackage'#010+
' // to them to compile.'#010+
' while not Finished do'#010+
' ',' begin'#010+
' RTLeventWaitFor(NotifyThreadWaiting);'#010+
' for Thr:=0 to Defaults.ThreadsAmount-1 do if not Finished '+
'then'#010+
' ProcessThreadResult(Threads[Thr]);'#010+
' end;'#010+
' // Compilation finished or abo','rted. Wait for all threads to '+
'end.'#010+
' for thr:=0 to Defaults.ThreadsAmount-1 do'#010+
' begin'#010+
' Threads[Thr].Terminate;'#010+
' RTLeventSetEvent(Threads[Thr].NotifyStartTask);'#010+
' Threads[Thr].WaitFor;'#010+
' ',' end;'#010+
' finally'#010+
' RTLeventdestroy(NotifyThreadWaiting);'#010+
' for thr:=0 to Defaults.ThreadsAmount-1 do'#010+
' Threads[Thr].Free;'#010+
' end;'#010+
' if ErrorState then'#010+
' raise Exception.Create(ErrorMessage);'#010+
'{$endif NO_THREAD','ING}'#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]);'#010+
' en','d'#010+
' else'#010+
' log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Target]'+
');'#010+
' end;'#010+
' NotifyEventCollection.CallEvents(neaAfterInstall, 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.FCompi'+
'lerVersion+ '#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+
' FinishArchive(P);'#010+
' end;'#010+
#010+
' NotifyEventCollection.CallEvents(neaAfterInstall, Self);'#010+
'end;'#010+
#010+
#010+
'procedure T','BuildEngine.UnInstall(Packages: TPackages);'#010+
'Var'#010+
' I : Integer;'#010+
' P : TPackage;'#010+
'begin'#010+
' NotifyEventCollection.CallEvents(neaBeforeUnInstall, Self);'#010+
' For I:=0 to Packages.Count-1 do'#010+
' begin'#010+
' P:=Packages.PackageItems[i];'#010+
' UnInstal','l(P);'#010+
' end;'#010+
' NotifyEventCollection.CallEvents(neaAfterUnInstall, 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+
' L','og(vlDebug, SDbgBuildEngineArchiving);'#010+
' For I:=0 to Packages.Count-1 do'#010+
' begin'#010+
' P:=Packages.PackageItems[i];'#010+
' // Force generation of manifest.xml, this is required for the re'+
'pository'#010+
' Manifest(nil, P);'#010+
' Archive(P);'#010+
' ',' end;'#010+
' NotifyEventCollection.CallEvents(neaAfterArchive, Self);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.Manifest(Packages: TPackages; Package: TPackage'+
');'#010+
'Var'#010+
' L : TStrings;'#010+
' I : Integer;'#010+
' P : TPackage;'#010+
' FN: string;'#010+
'begin'#010+
' NotifyEventCollectio','n.CallEvents(neaBeforeManifest, Self);'#010+
' Log(vlDebug, SDbgBuildEngineGenerateManifests);'#010+
#010+
' L:=TStringList.Create;'#010+
' Try'#010+
' Log(vlDebug, Format(SDbgGenerating, [ManifestFile]));'#010+
' L.Add('#039'<?xml version="1.0"?>'#039');'#010+
' L.Add('#039'<packages>'#039');'#010,
' if assigned(Packages) then'#010+
' begin'#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+
' end;'#010+
' if assigned(Package) then'#010+
' begin'#010+
' Log(vlInfo, Format(SInfoManifestPackage,[Package.Name]));'#010+
' Package.GetManifest(L);'#010+
' end;'#010+
' L.Add('#039'</packages>'#039');'#010+
' FN := ManifestFile;'#010+
' if assigned(Pack','age) then'#010+
' FN := FixPath(Package.Directory, True)+FN;'#010+
' L.SaveToFile(FN);'#010+
' Finally'#010+
' L.Free;'#010+
' end;'#010+
#010+
' NotifyEventCollection.CallEvents(neaAfterManifest, Self);'#010+
'end;'#010+
#010+
#010+
'procedure TBuildEngine.PkgList(Packages: 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+
' els','e'#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(Package','s: 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.Pa','ckageItems[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+
'end;'#010+
#010+
'{**********************','*********************************************'+
'*********'#010+
' TFPVersion'#010+
'**********************************************************************'+
'******}'#010+
#010+
'function TFPVersion.GetAsString: String;'#010+
'begin'#010+
' if Empty then'#010+
' ',' Result:='#039'<none>'#039#010+
' else'#010+
' begin'#010+
' Result := '#039#039';'#010+
' if Major <> -1 then'#010+
' Result := Result + IntToStr(Major);'#010+
' if Minor <> -1 then'#010+
' Result := Result + '#039'.'#039' + IntToStr(Minor);'#010+
' if Micro <> -1 then'#010+
' Result := Result + ',#039'.'#039' + IntToStr(Micro);'#010+
' if Build <> -1 then'#010+
' Result := Result + '#039'-'#039' + IntToStr(Build);'#010+
' end;'#010+
'end;'#010+
#010+
'function TFPVersion.GetEmpty: Boolean;'#010+
'begin'#010+
' Result:=(Major=0) and (Minor=0) and (Micro=0) and (Build=0);'#010+
'end;'#010+
#010+
'procedure TFPVers','ion.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 So','urce 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: T','FPVersion): 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+
'**********************************************************************'+
'******}'#010+
#010+
'constructor TTarget.Create(ACollection: TCollection);'#010+
'begin'#010+
' inherited Create(ACollection);'#010+
' FInstall',':=True;'#010+
' FCPUs:=AllCPUs;'#010+
' FOSes:=AllOSes;'#010+
' FUnitPath:=TConditionalStrings.Create(TConditionalString);'#010+
' FIncludePath:=TConditionalStrings.Create(TConditionalString);'#010+
' FObjectPath:=TConditionalStrings.Create(TConditionalString);'#010+
' FDepen','dencies:=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+
' FreeAndNil(FDependencies);'#010+
' Fre','eAndNil(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.Depen','dencies.Assign(Dependencies);'#010+
' DestTarget.Commands.Assign(Commands);'#010+
' DestTarget.FTargetState := FTargetState;'#010+
' DestTarget.TargetType := TargetType;'#010+
' DestTarget.CPUs := CPUs;'#010+
' DestTarget.OSes := OSes;'#010+
' DestTarget.Mode := M','ode;'#010+
' DestTarget.Options := Options;'#010+
' DestTarget.Name := Name;'#010+
' DestTarget.Extension:= Extension;'#010+
' DestTarget.FPCTarget := FPCTarget;'#010+
' DestTarget.FileType := FileType;'#010+
' DestTarget.Directory := Directory;'#010+
' DestTarget.Re','sourceStrings := ResourceStrings;'#010+
' DestTarget.Install := Install;'#010+
' DestTarget.FTargetSourceFileName := fTargetSourceFileName;'#010+
' DestTarget.ObjectPath.Assign(ObjectPath);'#010+
' DestTarget.UnitPath.Assign(UnitPath);'#010+
' DestTarget.Inclu','dePath.Assign(IncludePath);'#010+
' DestTarget.FXML := FXML;'#010+
' DestTarget.AfterCompile := AfterCompile;'#010+
' DestTarget.BeforeCompile := BeforeCompile;'#010+
' DestTarget.BeforeClean := BeforeCompile;'#010+
' DestTarget.AfterClean := AfterClean;'#010+
' e','nd'#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(AOS : 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,win16] then'#010+
' Result := Name+LibExt'#010+
' else if AOS 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) then'#010+
' FreeAndNil(FOpt','ions)'#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.GetObjectFile','Name: 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 TTarget.GetProgramFileName(','AOS : TOS): String;'#010+
'begin'#010+
' result := AddProgramExtension(Name, AOS);'#010+
'end;'#010+
#010+
#010+
'function TTarget.GetProgramDebugFileName(AOS: TOS): String;'#010+
'begin'#010+
' result := Name + DbgExt;'#010+
'end;'#010+
#010+
#010+
'function TTarget.GetOutputFileName(AOs: TOS): String;'#010+
'begin'#010+
' i','f 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(const AValue: String);'#010+
'V','ar'#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(AOS in OSes) then'#010+
' e','xit;'#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) and FileExists(APrefix','U + '+
'GetUnitLibFileName(AOS)) then'#010+
' List.Add(APrefixU + GetUnitLibFileName(AOS));'#010+
' if (AOS in AllImportLibraryOSes) and FileExists(APrefixU + GetIm'+
'portLibFilename(AOS)) then'#010+
' List.Add(APrefixU + GetImportLibFilename(AOS));',#010+
' end'#010+
' else If (TargetType in [ttProgram,ttExampleProgram]) then'#010+
' begin'#010+
' List.Add(APrefixB + GetProgramFileName(AOS));'#010+
' if FileExists(APrefixB + GetProgramDebugFileName(AOS)) then'#010+
' List.Add(APrefixB + GetProgramDebugFileNa','me(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 + RSTFil','eName);'#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);'#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 programs.'#010+
' List.Add(APref','ixU + 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'+
'tUnitLibFileName(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 If (TargetType in [ttP','rogram,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(APrefix','U + 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 in CPUs) or not(AOS in',' OSes) then'#010+
' exit;'#010+
' // Main source'#010+
' if TargetSourceFileName<>'#039#039' then'#010+
' List.Add(TargetSourceFileName);'#010+
' // Includes'#010+
' for i:=0 to Dependencies.Count-1 do'#010+
' begin'#010+
' D:=Dependencies[i];'#010+
' if (D.DependencyType=depInclude) and',#010+
' (D.TargetFileName<>'#039#039') then'#010+
' List.Add(D.TargetFileName);'#010+
' end;'#010+
' // FPDoc files'#010+
' if XML <> '#039#039' then'#010+
' begin'#010+
' List.Add(Directory + Name + Extension);'#010+
' List.Add(XML);'#010+
' end;'#010+
'end;'#010+
#010+
#010+
'{**********************************','*********************************'+
'*********'#010+
' TSource'#010+
'**********************************************************************'+
'******}'#010+
#010+
'function TSource.GetInstallSourcePath: string;'#010+
'begin'#010+
' if FInstallSourcePath<','>'#039#039' then'#010+
' result := FInstallSourcePath'#010+
' else if SourceType=stExample then'#010+
' result := '#039'examples'#039#010+
' else'#010+
' result := '#039#039';'#010+
'end;'#010+
#010+
'constructor TSource.Create(ACollection: TCollection);'#010+
'begin'#010+
' inherited Create(ACollection);'#010+
'end;'#010+
#010+
#010+
'destru','ctor 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)+ExtractFileName(Name))',#010+
' else'#010+
' list.add(Name);'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TCommands'#010+
'**********************************************************************'+
'******}'#010+
#010+
'funct','ion 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+
'procedure TCommands.SetC','ommandItem(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;'#010+
'begin'#010+
' Result:=AddCommand(fdefaultAt,Cmd,options,D','est,Source);'#010+
'end;'#010+
#010+
#010+
'Function TCommands.AddCommand(At: TCommandAt; const Cmd: String) : TCo'+
'mmand;'#010+
'begin'#010+
' Result:=AddCommand(At,Cmd,'#039#039','#039#039','#039#039');'#010+
'end;'#010+
#010+
#010+
'function TCommands.AddCommand(At: TCommandAt; const Cmd, Options: Stri'+
'ng ): TCommand;'#010+
'begi','n'#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;'#010+
'begin'#010+
' Result:=Add as TCommand;'#010+
' Result.Command:=Cmd;'#010+
' If (Options<>'#039#039') then'#010+
' Resu','lt.ParseOptions(Options);'#010+
' Result.At:=At;'#010+
' Result.SourceFile:=Source;'#010+
' Result.DestFile:=Dest;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TConditionalString'#010+
'************','********************************************************'+
'********}'#010+
#010+
'Constructor TConditionalString.Create;'#010+
'begin'#010+
' inherited Create;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' ',' TConditionalStrings'#010+
'**********************************************************************'+
'******}'#010+
#010+
'Constructor TConditionalStrings.Create(AClass:TConditionalStringClass)'+
';'#010+
'begin'#010+
' inherited Create;'#010+
' FCSClass:=AClass;'#010+
'end;'#010+
#010+
#010+
'function TCo','nditionalStrings.GetConditionalString(Index : Integer): '+
'TConditionalString;'#010+
'begin'#010+
' Result:=TConditionalString(Items[Index]);'#010+
'end;'#010+
#010+
#010+
'procedure TConditionalStrings.SetConditionalString(Index : Integer; co'+
'nst AValue: TConditionalString);'#010+
'begi','n'#010+
' Items[Index]:=AValue;'#010+
'end;'#010+
#010+
#010+
'Function TConditionalStrings.Add(Const Value : String) : TConditionalS'+
'tring;'#010+
'begin'#010+
' result:=Add(Value,AllCPUs,AllOSes);'#010+
'end;'#010+
#010+
#010+
'{$ifdef cpu_only_overloads}'#010+
'Function TConditionalStrings.Add(Const Value : Stri','ng;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,A','llCPUs,OSes);'#010+
'end;'#010+
#010+
#010+
'Function TConditionalStrings.Add(Const Value : String;const CPUs:TCPUs'+
';const OSes:TOSes) : TConditionalString;'#010+
'begin'#010+
' Result:=FCSClass.Create;'#010+
' Result.Value:=Value;'#010+
' Result.OSes:=OSes;'#010+
' Result.CPUs:=CPUs;'#010+
' inherite','d Add(Result);'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TDependency'#010+
'**********************************************************************'+
'******}'#010+
#010+
'Constructor TDepe','ndency.Create;'#010+
'begin'#010+
' inherited Create;'#010+
' FVersion:=TFPVersion.Create;'#010+
'end;'#010+
#010+
#010+
'Destructor TDependency.Destroy;'#010+
'begin'#010+
' FreeAndNil(FVersion);'#010+
'end;'#010+
#010+
#010+
'Function TDependency.GetVersion : string;'#010+
'begin'#010+
' result:=FVersion.AsString;'#010+
'end;'#010+
#010+
#010+
'Procedur','e 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; const AValue: T'+
'Dependen','cy);'#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 Value : String;const C','PUs:TCPUs) : '+
'TDependency;'#010+
'begin'#010+
' result:=Add(Value,CPUs,AllOSes);'#010+
'end;'#010+
'{$endif cpu_only_overloads}'#010+
#010+
#010+
'Function TDependencies.Add(Const Value : String;const OSes:TOSes) : TD'+
'ependency;'#010+
'begin'#010+
' result:=Add(Value,AllCPUs,OSes);'#010+
'end;'#010+
#010+
#010+
'Function ','TDependencies.Add(Const Value : String;const CPUs:TCPUs;con'+
'st 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 TDependencie','s.AddUnit(Const Value : String) : TDependency;'#010+
'begin'#010+
' result:=AddUnit(Value,AllCPUs,AllOSes);'#010+
'end;'#010+
#010+
#010+
'{$ifdef cpu_only_overloads}'#010+
'Function TDependencies.AddUnit(Const Value : String;const CPUs:TCPUs) '+
': TDependency;'#010+
'begin'#010+
' result:=AddUnit(V','alue,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.AddUnit(Const Value : Str','ing;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(Const Value : String) : T','Dependenc'+
'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) : 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','P'+
'Us;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.FDependencyType:=depInclude;'#010,
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TValueItem'#010+
'**********************************************************************'+
'******}'#010+
#010+
'constructor TValueItem.Create(AVal','ue: String);'#010+
'begin'#010+
' FValue:=AValue;'#010+
'end;'#010+
#010+
#010+
'{*********************************************************************'+
'*******'#010+
' TFunctionItem'#010+
'**********************************************************************'+
'****','**}'#010+
#010+
'constructor TFunctionItem.Create(AFunc: TReplaceFunction);'#010+
'begin'#010+
' FFunc:=AFunc;'#010+
'end;'#010+
#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 TNotifyEventCollection.create(ASupp','ortedActionSet: TNoti'+
'fyEventActionSet);'#010+
'begin'#010+
' FSupportedActionSet:=ASupportedActionSet;'#010+
' inherited create(TNotifyEventItem);'#010+
'end;'#010+
#010+
'procedure TNotifyEventCollection.AppendEvent(AnAction: TNotifyEventAct'+
'ion; AnEvent: TNotifyEvent);'#010+
'var'#010+
' i','tem: 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 TNotifyEven','tCollection.AppendProcEvent(AnAction: TNotifyEv'+
'entAction; AnProcEvent: TNotifyProcEvent);'#010+
'var'#010+
' item: TNotifyEventItem;'#010+
'begin'#010+
' if not (AnAction in FSupportedActionSet) then'#010+
' raise Exception.Create(SErrEventNotSupported);'#010+
' item := TNoti','fyEventItem(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 t','o 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+
'**********************************************************************'+
'******}'#010+
#010+
'constructor TDictionary.Create(AOwner: TComponent);'#010+
'begin'#010+
' inherited Create(AOwner);'#010+
' FList:=TStringList.Create;'#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.AddVariab','le(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.AddFunct','ion(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.Create(FReplacement);'#010+
'e','nd;'#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 TDictionary.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+
' Raise EDictionaryError.Cr','eateFmt(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+
' else'#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 TDictionary.Substitute(Const S','ource : 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(Mac','ros) 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;'+
#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+
'{ TCommand }'#010+
#010+
'function TComman','d.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 TCommand.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:=@GetFPMakeName;'#010+
' CustomF','pmakeCommandlineOptions:=nil;'#010+
' CustomFpMakeCommandlineValues:=nil;'#010+
#010+
'Finalization'#010+
' FreeAndNil(CustomFpMakeCommandlineValues);'#010+
' FreeAndNil(CustomFpmakeCommandlineOptions);'#010+
' FreeAndNil(DefInstaller);'#010+
' FreeAndNil(GlobalDictionary);'#010+
' FreeA','ndNil(Defaults);'#010+
'end.'#010+
#010
);