mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 13:58:42 +02:00
58 lines
1.2 KiB
ObjectPascal
58 lines
1.2 KiB
ObjectPascal
{$mode objfpc}{$H+}
|
|
{$define allpackages}
|
|
program fpmake;
|
|
|
|
{$IFDEF OS2}
|
|
{$DEFINE NO_UNIT_PROCESS}
|
|
{$ENDIF OS2}
|
|
|
|
{$IFDEF GO32V2}
|
|
{$DEFINE NO_UNIT_PROCESS}
|
|
{$ENDIF GO32V2}
|
|
|
|
{$ifndef NO_UNIT_PROCESS}
|
|
{$define HAS_UNIT_PROCESS}
|
|
{$endif NO_UNIT_PROCESS}
|
|
|
|
uses
|
|
fpmkunit,
|
|
classes,
|
|
{$IFDEF HAS_UNIT_PROCESS}
|
|
process,
|
|
{$ENDIF HAS_UNIT_PROCESS}
|
|
sysutils;
|
|
|
|
|
|
Var
|
|
TBuild,T : TTarget;
|
|
PBuild,P : TPackage;
|
|
D : TDependency;
|
|
I : Integer;
|
|
|
|
(*
|
|
|
|
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 cleanedname=`dirname $file | 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('$cleanedname'));" >> fpmake_add.inc; done
|
|
|
|
*)
|
|
|
|
{$include fpmake_proc1.inc}
|
|
|
|
procedure add_fpc(const ADirectory: string);
|
|
|
|
begin
|
|
{$include fpmake_add1.inc}
|
|
|
|
end;
|
|
|
|
begin
|
|
add_packages_comandlineoptions();
|
|
add_fpc('');
|
|
Installer.Run;
|
|
end.
|
|
|
|
|
|
|
|
|