paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-12 08:59:25 +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 1b111bb062
commit 5be0be3989
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; program Pas2jsReleaseCreator;
{ #todo -oMattias : remove folder scripts }
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
@ -450,15 +448,18 @@ procedure TPas2jsReleaseCreator.CreateBuildSourceDir(const TargetOS,
begin begin
BuildDir_Sources:=BuildDir+'pas2js-'+TargetOS+'-'+TargetCPU+'-'+Pas2jsVersion; BuildDir_Sources:=BuildDir+'pas2js-'+TargetOS+'-'+TargetCPU+'-'+Pas2jsVersion;
if DirectoryExists(BuildDir_Sources) then begin if DirectoryExists(BuildDir_Sources) then begin
if Verbosity>=0 then if Simulate then begin
Log(etInfo,'Deleting directory "'+BuildDir_Sources+'"'); if Verbosity>=0 then
if not Simulate then begin 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 if not DeleteDirectory(BuildDir_Sources,false) then
Err('Unable to delete directory "'+BuildDir_Sources+'"'); Err('Unable to delete directory "'+BuildDir_Sources+'"');
end; end;
end; end;
if Simulate then begin if Simulate then begin
Log(etInfo,'Simulate: create directory "'+BuildDir_Sources+'"') Log(etInfo,'Simulate: Creating directory "'+BuildDir_Sources+'"')
end else begin end else begin
if not ForceDirectory(BuildDir_Sources) then if not ForceDirectory(BuildDir_Sources) then
Err('Unable to create directory "'+BuildDir_Sources+'"'); Err('Unable to create directory "'+BuildDir_Sources+'"');
@ -707,7 +708,7 @@ begin
for i:=0 to ProcParams.Count-1 do for i:=0 to ProcParams.Count-1 do
CmdLine+=' '+Quote(ProcParams[i]); CmdLine+=' '+Quote(ProcParams[i]);
if Simulate then begin if Simulate then begin
Log(etInfo,'Simulate Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine); Log(etInfo,'Simulate: Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine);
exit; exit;
end; end;
Log(etInfo,'Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine); Log(etInfo,'Running: WorkDir="'+WorkDir+'" Cmd: '+CmdLine);