mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 16:11:33 +01:00
293 lines
7.2 KiB
PHP
293 lines
7.2 KiB
PHP
|
|
Const
|
|
GraphDir = 'inc/graph/';
|
|
SysUtilsDir = 'objpas/sysutils/';
|
|
Unixes = [darwin,freebsd,linux,netbsd,openbsd];
|
|
|
|
|
|
Function CurrentOS : String;
|
|
|
|
begin
|
|
Result:=OSToString(Defaults.OS);
|
|
end;
|
|
|
|
Function CurrentCPU : String;
|
|
|
|
begin
|
|
Result:=CPUToString(Defaults.CPU);
|
|
end;
|
|
|
|
Function OSDir(CorrectUnix : Boolean = True) : String;
|
|
|
|
begin
|
|
If CorrectUnix and (Defaults.OS in Unixes) then
|
|
Result:='unix/'
|
|
else
|
|
Result:=IncludeTrailingPathDelimiter(CurrentOS);
|
|
end;
|
|
|
|
|
|
Function CPUDir : String;
|
|
|
|
begin
|
|
Result:=IncludeTrailingPathDelimiter(CurrentCPU);
|
|
end;
|
|
|
|
Procedure InitRTL(Installer : TInstaller);
|
|
|
|
Var
|
|
O : String;
|
|
|
|
|
|
begin
|
|
With Installer Do
|
|
begin
|
|
StartPackage('rtl');
|
|
Version:={$i %FPCVERSION%};
|
|
Author:='The FPC team';
|
|
O:='-Fi'+OSDir(false)+' -Fiinc -Fi'+CurrentCPU;
|
|
If Defaults.OS in Unixes then
|
|
O:=O+' -Fiunix';
|
|
DefaultPackage.Options:=O;
|
|
end;
|
|
end;
|
|
|
|
Procedure AddSystemDependencies(Targets : TTargets);
|
|
|
|
Var
|
|
I : Integer;
|
|
|
|
begin
|
|
With Targets do
|
|
For I:=0 to Count-1 do
|
|
if (TargetItems[i].Name<>'system') then
|
|
TargetItems[i].Dependencies.Add('system');
|
|
end;
|
|
|
|
Procedure AddCurrentOS(T : TTarget = Nil);
|
|
|
|
Var
|
|
I : Integer;
|
|
O : TOSes;
|
|
|
|
begin
|
|
If (T<>Nil) then
|
|
begin
|
|
O:=T.OS;
|
|
If (O<>[]) then
|
|
Include(O,Defaults.OS)
|
|
else
|
|
// Don't do anything. If empty, all will be compiled.
|
|
T.OS:=O;
|
|
end
|
|
else
|
|
With Installer.Targets do
|
|
For I:=0 to Count-1 do
|
|
AddCurrentOS(TargetItems[i]);
|
|
end;
|
|
|
|
Procedure ExcludeCurrentOS(T : TTarget = Nil);
|
|
|
|
Var
|
|
I : Integer;
|
|
O : TOSes;
|
|
|
|
begin
|
|
If (T<>Nil) then
|
|
begin
|
|
O:=T.OS;
|
|
If (O=[]) then
|
|
O:=AllOSs;
|
|
Exclude(O,Defaults.OS);
|
|
T.OS:=O;
|
|
end
|
|
else
|
|
With Installer.Targets do
|
|
For I:=0 to Count-1 do
|
|
AddCurrentOS(TargetItems[i]);
|
|
end;
|
|
|
|
Procedure AddDefaultTargets(Installer : TInstaller);
|
|
|
|
Var
|
|
T : TTarget;
|
|
|
|
begin
|
|
With Installer.Targets do
|
|
begin
|
|
DefaultOS:=AllOSs;
|
|
DefaultCPU:=AllCPUs;
|
|
{ System unit. For all platforms. }
|
|
T:=AddUnit(OSDIR(False)+'system.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
// Headers
|
|
Add(CPUDir+'setjumph.inc');
|
|
Add('inc/systemh.inc');
|
|
Add('inc/objpash.inc');
|
|
Add('inc/dynarrh.inc');
|
|
Add('inc/compproc.inc');
|
|
Add('inc/heaph.inc');
|
|
Add('inc/threadh.inc');
|
|
Add('inc/varianth.inc');
|
|
// Implementations
|
|
Add(CPUDir+CurrentCPU+'.inc');
|
|
Add(CPUDir+'set.inc');
|
|
Add(CPUDir+'math.inc');
|
|
Add(CPUDir+'int64p.inc');
|
|
Add(CPUDir+'setjump.inc');
|
|
Add(OSDir+'systhrd.inc');
|
|
Add(OSDir(False)+'sysos.inc');
|
|
Add(OSDir+'sysheap.inc');
|
|
Add(OSDir+'sysdir.inc');
|
|
Add('inc/filerec.inc');
|
|
Add('inc/textrec.inc');
|
|
Add('inc/generic.inc');
|
|
Add('inc/genset.inc');
|
|
Add('inc/genmath.inc');
|
|
Add('inc/sstrings.inc');
|
|
Add('inc/int64.inc');
|
|
Add('inc/astrings.inc');
|
|
Add('inc/wstrings.inc');
|
|
Add('inc/aliases.inc');
|
|
Add('inc/dynarr.inc');
|
|
Add('inc/objpas.inc');
|
|
Add('inc/variant.inc');
|
|
Add('inc/rtti.inc');
|
|
Add('inc/heap.inc');
|
|
Add('inc/thread.inc');
|
|
Add('inc/text.inc');
|
|
Add('inc/file.inc');
|
|
Add('inc/typefile.inc');
|
|
end;
|
|
T:=AddUnit('objpas/objpas.pp');
|
|
T:=AddUnit('inc/macpas.pp');
|
|
|
|
{ Turbo Pascal RTL units }
|
|
T:=AddUnit(OSDir+'dos.pp');
|
|
T.Dependencies.Add('inc/dosh.inc');
|
|
T:=AddUnit(OSDir+'crt.pp');
|
|
T.Directory:=OSDir;
|
|
T.Dependencies.Add('inc/crth.inc');
|
|
T:=AddUnit(OSDir+'graph.pp');
|
|
T.IncludePath.Add(GraphDir);
|
|
With T.Dependencies do
|
|
begin
|
|
Add(GraphDir+'clip.inc');
|
|
Add(GraphDir+'fontdata.inc');
|
|
Add(GraphDir+'graph.inc');
|
|
Add(GraphDir+'gtext.inc');
|
|
Add(GraphDir+'modes.inc');
|
|
Add(GraphDir+'fills.inc');
|
|
Add(GraphDir+'graphh.inc');
|
|
Add(GraphDir+'palette.inc');
|
|
end;
|
|
T:=AddUnit('inc/strings.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
Add(CPUDir+'strings.inc');
|
|
Add(CPUDir+'stringss.inc');
|
|
Add('inc/genstr.inc');
|
|
Add('inc/genstrs.inc');
|
|
Add('inc/stringsi.inc');
|
|
end;
|
|
{ Delphi RTL units }
|
|
T:=AddUnit('objpas/rtlconsts.pp');
|
|
T.Resourcestrings:=True;
|
|
T.Dependencies.Add('objpas/rtlconst.inc');
|
|
T:=AddUnit(OSDir+'sysutils.pp');
|
|
T.IncludePath.Add(SysUtilsDir);
|
|
With T.Dependencies do
|
|
begin
|
|
Add(SysUtilsDir+'datih.inc');
|
|
Add(SysUtilsDir+'finah.inc');
|
|
Add(SysUtilsDir+'osutilsh.inc');
|
|
Add(SysUtilsDir+'sysansi.inc');
|
|
Add(SysUtilsDir+'syspchh.inc');
|
|
Add(SysUtilsDir+'systhrdh.inc');
|
|
Add(SysUtilsDir+'syswideh.inc');
|
|
Add(SysUtilsDir+'dati.inc');
|
|
Add(SysUtilsDir+'fina.inc');
|
|
Add(SysUtilsDir+'stre.inc');
|
|
Add(SysUtilsDir+'sysformt.inc');
|
|
Add(SysUtilsDir+'syspch.inc');
|
|
Add(SysUtilsDir+'sysuintf.inc');
|
|
Add(SysUtilsDir+'syswide.inc');
|
|
Add(SysUtilsDir+'diskh.inc');
|
|
Add(SysUtilsDir+'intfh.inc');
|
|
Add(SysUtilsDir+'strg.inc');
|
|
Add(SysUtilsDir+'sysinth.inc');
|
|
Add(SysUtilsDir+'sysstrh.inc');
|
|
Add(SysUtilsDir+'sysutilh.inc');
|
|
Add(SysUtilsDir+'filutilh.inc');
|
|
Add(SysUtilsDir+'osutil.inc');
|
|
Add(SysUtilsDir+'sysansih.inc');
|
|
Add(SysUtilsDir+'sysint.inc');
|
|
Add(SysUtilsDir+'sysstr.inc');
|
|
Add(SysUtilsDir+'sysutils.inc');
|
|
end;
|
|
T:=AddUnit(OSDIR+'varutils.pp');
|
|
T.ResourceStrings:=True;
|
|
T.IncludePath.Add('objpas');
|
|
T:=AddUnit('inc/variants.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
Add('math');
|
|
Add('varutils');
|
|
end;
|
|
T.ResourceStrings:=True;
|
|
T:=AddUnit('objpas/convutils.pp');
|
|
T.Dependencies.Add('objpas/convutil.inc');
|
|
T.ResourceStrings:=True;
|
|
T:=AddUnit('objpas/dateutils.pp');
|
|
T.Dependencies.Add('objpas/dateutil.inc');
|
|
T:=AddUnit('objpas/strutils.pp');
|
|
T.Dependencies.Add('sysutils');
|
|
T:=AddUnit('objpas/math.pp');
|
|
T.Dependencies.Add('sysutils');
|
|
T.Dependencies.Add(CPUDir+'mathuh.inc');
|
|
T.Dependencies.Add(CPUDir+'mathu.inc');
|
|
T.ResourceStrings:=True;
|
|
T:=AddUnit('objpas/sysconst.pp');
|
|
T.Resourcestrings:=true;
|
|
T:=AddUnit('objpas/types.pp');
|
|
T:=AddUnit('objpas/typinfo.pp');
|
|
T.Dependencies.Add('sysutils');
|
|
T.Dependencies.Add('rtlconsts');
|
|
T:=AddUnit('objpas/utf8bidi.pp');
|
|
{ Free Pascal additions}
|
|
T:=AddUnit(OSDir+'keyboard.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
Add('inc/keybrdh.inc');
|
|
Add('inc/keyboard.inc');
|
|
Add('inc/keyscan.inc');
|
|
end;
|
|
T:=AddUnit(OSDir+'mouse.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
Add('inc/mouseh.inc');
|
|
Add('inc/mouse.inc');
|
|
end;
|
|
T:=AddUnit(OSDir+'video.pp');
|
|
With T.Dependencies do
|
|
begin
|
|
Add('inc/video.inc');
|
|
Add('inc/videoh.inc');
|
|
end;
|
|
T:=AddUnit('inc/matrix.pp');
|
|
T.Dependencies.Add('inc/mmatimp.inc');
|
|
T:=AddUnit('inc/dynlibs.pp');
|
|
T.Dependencies.Add(OSDir+'dynlibs.inc');
|
|
T:=AddUnit('inc/getopts.pp');
|
|
T:=AddUnit('inc/cmem.pp');
|
|
T:=AddUnit('inc/ctypes.pp');
|
|
T:=AddUnit('inc/softfpu.pp');
|
|
T:=AddUnit('inc/ucomplex.pp');
|
|
T:=AddUnit('inc/heaptrc.pp');
|
|
T:=AddUnit('inc/lineinfo.pp');
|
|
T:=AddUnit('inc/charset.pp');
|
|
// T:=AddUnit('inc/pagemem.pp');
|
|
end;
|
|
AddSystemDependencies(Installer.Targets);
|
|
end;
|