paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 13:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement regeneration of compiler msgidx.inc and msgtxt.inc files for IDE if needed

Browse Source
This commit is contained in:
Pierre Muller 2024-08-27 21:57:51 +00:00
parent f81ce16d2a
commit d40aac6cca
1 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
packages/ide/fpmake.pp
View File

@ -72,13 +72,56 @@ procedure ide_check_gdb_availability(Sender: TObject);
end; end;
var var
GDBLibDir: string; CompilerDir, GDBLibDir: string;
P: TPackage; P: TPackage;
procedure maybe_regenerate_msg_files;
var
cmd, msgfile, msgidxfile, msgtxtfile, fpclang : string;
Opts : TstringList;
begin
msgidxfile:=CompilerDir+PathDelim+'msgidx.inc';
msgtxtfile:=CompilerDir+PathDelim+'msgtxt.inc';
if FileExists(msgidxfile) and FileExists(msgtxtfile) then
Exit;
fpclang:=GetEnvironmentVariable('FPCLANG');
if fpclang='' then
fpclang:='e';
msgfile:=CompilerDir+PathDelim+'msg/error'+fpclang+'.msg';
if not FileExists(msgfile) and (fpclang<>'e') then
begin
fpclang:='e';
msgfile:=CompilerDir+PathDelim+'msg/error'+fpclang+'.msg';
end;
if not FileExists(msgfile) then
Exit;
Cmd:=CompilerDir+PathDelim+AddProgramExtension('msg2inc',Defaults.BuildOS);
if not FileExists(Cmd) then
Cmd:=FileSearch(AddProgramExtension('msg2inc',Defaults.BuildOS),GetEnvironmentVariable('PATH'),False);
if not FileExists(Cmd) then
begin
Installer.BuildEngine.log(vlWarning, 'msg2inc utility not found');
exit;
end;
Opts:=TStringList.Create;
try
Opts.Add(msgfile);
Opts.Add(CompilerDir+PathDelim+'msg');
Opts.Add('msg');
Installer.BuildEngine.log(vlCommand, 'Regenerating msg files');
Installer.BuildEngine.ExecuteCommand(Cmd,Opts);
finally
Opts.Free;
end;
end;
begin begin
P := sender as TPackage; P := sender as TPackage;
with installer do with installer do
begin begin
CompilerDir:=P.Directory +'../../compiler';
maybe_regenerate_msg_files;
if GDBMIOption then if GDBMIOption then
begin begin
BuildEngine.log(vlCommand, 'Compiling IDE with GDB/MI debugger support, LibGDB is not needed'); BuildEngine.log(vlCommand, 'Compiling IDE with GDB/MI debugger support, LibGDB is not needed');