mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 07:19:27 +02:00
* Added fpmake.pp for building the ide
git-svn-id: trunk@24740 -
This commit is contained in:
joost
parent
c99d723826
commit
19d4b8dcd7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -858,6 +858,7 @@ ide/fpide.pas svneol=native#text/plain
|
||||
ide/fpini.pas svneol=native#text/plain
|
||||
ide/fpintf.pas svneol=native#text/plain
|
||||
ide/fpkeys.pas svneol=native#text/plain
|
||||
ide/fpmake.pp svneol=native#text/plain
|
||||
ide/fpmansi.inc svneol=native#text/plain
|
||||
ide/fpmcomp.inc svneol=native#text/plain
|
||||
ide/fpmdebug.inc svneol=native#text/plain
|
||||
|
||||
217
ide/fpmake.pp
Normal file
217
ide/fpmake.pp
Normal file
@ -0,0 +1,217 @@
|
||||
{$ifndef ALLPACKAGES}
|
||||
{$mode objfpc}{$H+}
|
||||
program fpmake;
|
||||
|
||||
uses
|
||||
fpmkunit,
|
||||
sysutils;
|
||||
{$endif ALLPACKAGES}
|
||||
|
||||
procedure ide_check_gdb_availability(Sender: TObject);
|
||||
|
||||
function DetectLibGDBDir: string;
|
||||
|
||||
var
|
||||
SearchPath: string;
|
||||
|
||||
const
|
||||
LibGDBName = 'libgdb.a';
|
||||
|
||||
begin
|
||||
result:='';
|
||||
// First look for the GDBLIBDIR environment variable
|
||||
SearchPath := GetEnvironmentVariable('GDBLIBDIR');
|
||||
if (SearchPath<>'') and DirectoryExists(SearchPath) and FileExists(IncludeTrailingPathDelimiter(SearchPath)+LibGDBName) then
|
||||
begin
|
||||
result:=IncludeTrailingPathDelimiter(SearchPath);
|
||||
exit;
|
||||
end;
|
||||
// Search in the default locations
|
||||
SearchPath := '..'+PathDelim+'libgdb'+PathDelim+OSToString(Defaults.OS)+PathDelim+CPUToString(Defaults.CPU)+PathDelim;
|
||||
if DirectoryExists(SearchPath) and FileExists(SearchPath+LibGDBName) then
|
||||
begin
|
||||
result := SearchPath;
|
||||
exit;
|
||||
end;
|
||||
SearchPath := '..'+PathDelim+'libgdb'+PathDelim+OSToString(Defaults.OS)+PathDelim;
|
||||
if DirectoryExists(SearchPath) and FileExists(SearchPath+LibGDBName) then
|
||||
begin
|
||||
result := SearchPath;
|
||||
exit;
|
||||
end;
|
||||
// No custom libgdb.a found, try using system default library if available
|
||||
SearchPath := '..'+PathDelim+'lib'+PathDelim;
|
||||
if DirectoryExists(SearchPath) and FileExists(SearchPath+LibGDBName) then
|
||||
begin
|
||||
result := SearchPath;
|
||||
installer.BuildEngine.Log(vlWarning, 'Using system default libgdb file located in '+Result);
|
||||
exit;
|
||||
end;
|
||||
SearchPath := '..'+PathDelim+'usr'+PathDelim+'lib'+PathDelim;
|
||||
if DirectoryExists(SearchPath) and FileExists(SearchPath+LibGDBName) then
|
||||
begin
|
||||
result := SearchPath;
|
||||
installer.BuildEngine.Log(vlWarning, 'Using system default libgdb file located in '+Result);
|
||||
exit;
|
||||
end;
|
||||
SearchPath := '..'+PathDelim+'usr'+PathDelim+'local'+PathDelim+'lib'+PathDelim;
|
||||
if DirectoryExists(SearchPath) and FileExists(SearchPath+LibGDBName) then
|
||||
begin
|
||||
result := SearchPath;
|
||||
installer.BuildEngine.Log(vlWarning, 'Using system default libgdb file located in '+Result);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
s: string;
|
||||
GDBLibDir: string;
|
||||
P: TPackage;
|
||||
|
||||
begin
|
||||
P := sender as TPackage;
|
||||
with installer do
|
||||
begin
|
||||
s := GetCustomFpmakeCommandlineOptionValue('NoGDB');
|
||||
if not ((s='1') or (s='Y')) then
|
||||
begin
|
||||
// Detection of GDB.
|
||||
GDBLibDir := DetectLibGDBDir;
|
||||
if GDBLibDir<>'' then
|
||||
begin
|
||||
// Include GDB
|
||||
BuildEngine.log(vlCommand, 'LibGDB was found, build IDE with debugger support');
|
||||
if FileExists(GDBLibDir+'gdblib.inc') then
|
||||
begin
|
||||
P.Options.Add('-dUSE_GDBLIBINC');
|
||||
P.Options.Add('-I'+GDBLibDir);
|
||||
end;
|
||||
P.Options.Add('-Fl'+GDBLibDir);
|
||||
|
||||
case Defaults.OS of
|
||||
win32,
|
||||
win64 : begin
|
||||
P.Options.Add('-Xe');
|
||||
P.Options.Add('-k--allow-multiple-definition');
|
||||
end;
|
||||
freebsd : begin
|
||||
P.Options.Add('-Fl/usr/local/lib');
|
||||
P.Options.Add('Xd');
|
||||
end;
|
||||
openbsd : P.Options.Add('-Fl/usr/local/lib');
|
||||
netbsd : P.Options.Add('Xd');
|
||||
end; {case}
|
||||
|
||||
P.NeedLibc := true;
|
||||
end
|
||||
else
|
||||
begin
|
||||
BuildEngine.log(vlCommand, 'LibGDB was not found, IDE has no debugger support');
|
||||
P.Options.Add('-dNODEBUG');
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
BuildEngine.log(vlCommand, 'Debugger support disabled');
|
||||
P.Options.Add('-dNODEBUG');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure add_ide;
|
||||
|
||||
Var
|
||||
P : TPackage;
|
||||
T : TTarget;
|
||||
CompilerTarget : TCpu;
|
||||
s: string;
|
||||
|
||||
begin
|
||||
AddCustomFpmakeCommandlineOption('CompilerTarget','Target CPU for the IDE''s compiler');
|
||||
AddCustomFpmakeCommandlineOption('NoGDB','If value=1 or ''Y'', no GDB support');
|
||||
With Installer do
|
||||
begin
|
||||
s :=GetCustomFpmakeCommandlineOptionValue('CompilerTarget');
|
||||
if s <> '' then
|
||||
CompilerTarget:=StringToCPU(s)
|
||||
else
|
||||
CompilerTarget:=Defaults.CPU;
|
||||
|
||||
P:=AddPackage('ide');
|
||||
P.Version:='2.7.1';
|
||||
|
||||
P.Dependencies.Add('rtl');
|
||||
P.Dependencies.Add('fv');
|
||||
P.Dependencies.Add('chm');
|
||||
P.Dependencies.Add('gdbint');
|
||||
P.Dependencies.Add('graph',[go32v2]);
|
||||
|
||||
P.SupportBuildModes:=[bmOneByOne];
|
||||
|
||||
P.Options.Add('-Ur');
|
||||
P.Options.Add('-dNOCATCH');
|
||||
P.Options.Add('-dBrowserCol');
|
||||
P.Options.Add('-dGDB');
|
||||
|
||||
P.Options.Add('-d'+CPUToString(CompilerTarget));
|
||||
P.Options.Add('-Fu../compiler');
|
||||
P.Options.Add('-Fu../compiler/'+CPUToString(CompilerTarget));
|
||||
P.Options.Add('-Fu../compiler/targets');
|
||||
P.Options.Add('-Fu../compiler/systems');
|
||||
P.Options.Add('-Fi../compiler/'+CPUToString(CompilerTarget));
|
||||
P.Options.Add('-Fi../compiler');
|
||||
|
||||
if CompilerTarget in [x86_64, i386] then
|
||||
P.Options.Add('-Fu../compiler/x86');
|
||||
if CompilerTarget in [powerpc, powerpc64] then
|
||||
P.Options.Add('-Fu../compiler/ppcgen');
|
||||
if CompilerTarget = x86_64 then
|
||||
P.Options.Add('-dNOOPT');
|
||||
if CompilerTarget = mipsel then
|
||||
P.Options.Add('-Fu../compiler/mips');
|
||||
|
||||
P.Options.Add('-Sg');
|
||||
|
||||
T:=P.Targets.AddProgram('fp.pas');
|
||||
T.Dependencies.AddUnit('compunit');
|
||||
|
||||
T:=P.Targets.AddUnit('compunit.pas');
|
||||
T.Directory:='compiler';
|
||||
T.Install:=false;
|
||||
|
||||
P.InstallFiles.Add('fp.ans','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('gplprog.pt','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('gplunit.pt','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('program.pt','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('unit.pt','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('cvsco.tdf','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('cvsdiff.tdf','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('cvsup.tdf','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('grep.tdf','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('tpgrep.tdf','$(BASEINSTALLDIR)/ide');
|
||||
P.InstallFiles.Add('fp32.ico', [win32, win64], '$(BASEINSTALLDIR)/ide');
|
||||
|
||||
P.Sources.AddDoc('readme.ide');
|
||||
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)ppheap.ppu');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)compiler.ppu');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)comphook.ppu');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)cpuinfo.ppu');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)browcol.ppu');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)ppheap.o');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)compiler.o');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)comphook.o');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)cpuinfo.o');
|
||||
P.CleanFiles.Add('$(UNITSOUTPUTDIR)browcol.o');
|
||||
|
||||
P.BeforeCompileProc:=@ide_check_gdb_availability;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$ifndef ALLPACKAGES}
|
||||
begin
|
||||
add_ide;
|
||||
Installer.Run;
|
||||
end.
|
||||
{$endif ALLPACKAGES}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user