1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{$ifndef ALLPACKAGES}
{$define allpackages}
{$define no_parent}
{$mode objfpc}{$H+}
program fpmake;
uses {$ifdef unix}cthreads,{$endif} sysutils, Classes, fpmkunit;
Var
TBuild,T : TTarget;
PBuild,P : TPackage;
D : TDependency;
I : Integer;
{$endif ALLPACKAGES}
(*
The include files are generated with the following commands:
rm fpmake_proc.inc fpmake_add.inc ; /bin/ls -1 */fpmake.pp| while read file; do dir=`dirname $file` ; cleanedname=`echo $dir | sed -e 's+-+_+g'` ; if ! `grep -i "^procedure add_$cleanedname" $file >/dev/null` ; then printf 'procedure add_%s(const ADirectory: string);\nbegin\n with Installer do\n{$include %s}\nend;\n\n' $cleanedname $file >> fpmake_proc.inc; else printf '{$include %s}\n\n' $file >> fpmake_proc.inc; fi; echo " add_$cleanedname(ADirectory+IncludeTrailingPathDelimiter('$dir'));" >> fpmake_add.inc; done
*)
{$include fpmake_proc.inc}
procedure add_packages_comandlineoptions();
begin
AddCustomFpmakeCommandlineOption('data2inc', 'Use indicated data2inc executable.');
AddCustomFpmakeCommandlineOption('genfpmkunit', 'Regenerate the fpmkunitsrc.inc file (fppkg).');
add_ide_comandlineoptions();
end;
procedure add_packages(const ADirectory: string);
begin
{$include fpmake_add.inc}
With Installer do
begin
// Create fpc-all package
PBuild:=AddPackage('fpc-all');
PBuild.ShortName := 'fpca';
PBuild.Version:='3.2.2';
{ The source files fpmake_proc.inc and fpmake_add.inc
need to be added explicitly to be integrated in source zip }
PBuild.Sources.AddSrc('fpmake_proc.inc');
PBuild.Sources.AddSrc('fpmake_add.inc');
end;
end;
{$ifdef no_parent}
begin
add_packages_comandlineoptions();
add_packages('');
Installer.Run;
end.
{$endif no_parent}
|
