paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 02:27:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

releasecreator: nicer messages

Browse Source
This commit is contained in:
mattias 2024-01-23 09:59:42 +01:00
parent 7fcf882b79
commit e7706a50ba
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tools/releasecreator/Pas2jsReleaseCreator.lpr
View File

@ -1,7 +1,5 @@
program Pas2jsReleaseCreator;
{ #todo -oMattias : remove folder scripts }
{$mode objfpc}{$H+}
uses
@ -450,15 +448,18 @@ procedure TPas2jsReleaseCreator.CreateBuildSourceDir(const TargetOS,
begin
BuildDir_Sources:=BuildDir+'pas2js-'+TargetOS+'-'+TargetCPU+'-'+Pas2jsVersion;
if DirectoryExists(BuildDir_Sources) then begin
if Verbosity>=0 then
Log(etInfo,'Deleting directory "'+BuildDir_Sources+'"');
if not Simulate then begin
if Simulate then begin
if Verbosity>=0 then
Log(etInfo,'Simulate: Deleting directory "'+BuildDir_Sources+'"');
end else begin
if Verbosity>=0 then
Log(etInfo,'Deleting directory "'+BuildDir_Sources+'"');
if not DeleteDirectory(BuildDir_Sources,false) then
Err('Unable to delete directory "'+BuildDir_Sources+'"');
end;
end;
if Simulate then begin
Log(etInfo,'Simulate: create directory "'+BuildDir_Sources+'"')
Log(etInfo,'Simulate: Creating directory "'+BuildDir_Sources+'"')
end else begin
if not ForceDirectory(BuildDir_Sources) then
Err('Unable to create directory "'+BuildDir_Sources+'"');
@ -708,7 +709,7 @@ begin
for i:=0 to ProcParams.Count-1 do
CmdLine+=' '+Quote(ProcParams[i]);
if Simulate then begin
Log(etInfo,'Simulate Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine);
Log(etInfo,'Simulate: Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine);
exit;
end;
Log(etInfo,'Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine);