File: fpmake.pp

package info (click to toggle)
lazarus 1.2.4%2Bdfsg-2~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 172,844 kB
  • sloc: pascal: 1,432,376; xml: 258,006; sh: 2,949; java: 603; makefile: 549; perl: 297; sql: 174; ansic: 137
file content (53 lines) | stat: -rw-r--r-- 1,533 bytes parent folder | download | duplicates (2)
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
{$mode objfpc}{$H+}
{$define allpackages}
program fpmake;

uses fpmkunit, sysutils, Classes;

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;\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}

begin
{$include fpmake_add.inc}

  With Installer do
    begin
      // Create fpc-all package
      PBuild:=AddPackage('lazarus');
      PBuild.Version:='1.1';
      PBuild.Dependencies.Add('lcl');
      PBuild.Dependencies.Add('codetools');
      PBuild.Dependencies.Add('synedit');
      PBuild.Dependencies.Add('ideintf');


      pbuild.SourcePath.Add('ide');


      T := PBuild.Targets.AddProgram('lazarus.pp');
      T.IncludePath.Add('ide/include');
      T.Options.Add('-Fudebugger');
      T.Options.Add('-Fuide/frames');
      T.Options.Add('-Fudebugger/frames');
      T.Options.Add('-Fupackager');
      t.UnitPath.Add('packager/frames');
      T.Options.Add('-Fudesigner');
      T.Options.Add('-Fuconverter');
      T.Options.Add('-Sci');
      PBuild.SupportBuildModes:=[bmOneByOne];
      Run;
    end;
end.