File: fpmake.pp

package info (click to toggle)
lazarus 2.0.0+dfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (31 lines) | stat: -rw-r--r-- 861 bytes parent folder | download | duplicates (5)
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
{$ifndef ALLPACKAGES}
{$mode objfpc}{$H+}
{$define allpackages}
{$define no_parent}
program fpmake;

uses fpmkunit, sysutils, Classes;
{$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 cleanedname=`dirname $file | sed -e 's+-+_+g'` ; if ! `grep -i "^procedure add_$cleanedname" $file >/dev/null` ; then printf 'procedure add_%s;\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;" >> fpmake_add.inc; done

*)

{$include fpmake_proc.inc}

procedure add_packages(const ADirectory: string);

begin
{$include fpmake_add.inc}
end;

{$ifdef no_parent}
begin
  add_packages('');
  Installer.Run;
end.
{$endif no_parent}