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

releasecreator: add pas2js.cfg

Browse Source
This commit is contained in:
mattias 2024-01-10 16:28:09 +01:00
parent 11b41a3b4a
commit 12f85d13f6
1 changed files with 33 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
tools/releasecreator/Pas2jsReleaseCreator.lpr
View File

@ -545,8 +545,35 @@ begin
end;
procedure TPas2jsReleaseCreator.CreatePas2jsCfg;
var
Dir, SrcFilename, ExeFilename, Pas2jsCfgFilename: String;
NeedBuild: Boolean;
begin
// Todo
// build createconfig
Dir:=SourceDir+SetDirSeparators('tools/createconfig/');
SrcFilename:=Dir+'createconfig.pp';
ExeFilename:=Dir+'createconfig'+GetExeExt;
if not FileExists(SrcFilename) then
Err('File not found: "'+SrcFilename+'"');
NeedBuild:=true;
if not FileExists(ExeFilename) then
log(etInfo,'Missing createconfig, building ...')
else if FileAge(SrcFilename)>FileAgeUTF8(ExeFilename) then
log(etInfo,'createconfig.pp changed, building ...')
else
NeedBuild:=false;
if NeedBuild then begin
RunTool(Dir,FPCReleaseFilename,['-O1','Schi','-vew','-XX','-Xs','createconfig.pp']);
end;
// run createconfig
Pas2jsCfgFilename:=BuildDir_Bin+'pas2js.cfg';
if Simulate then begin
Log(etInfo,'Simulate: run createconfig to create "'+Pas2jsCfgFilename+'"');
end else begin
RunTool(Dir,ExeFilename,[Pas2jsCfgFilename,'..']);
end;
end;
procedure TPas2jsReleaseCreator.CreateZip;
@ -559,7 +586,10 @@ begin
Filename:=BuildDir+Dir+'.zip';
RunTool(BuildDir,ZipFilename,['-r',Filename,Dir]);
s:=IntToStr(FileSize(Filename));
Log(etInfo,'Created '+Filename+' Size='+s);
if Simulate then
Log(etInfo,'Simulate: Created '+Filename+' Size='+s)
else
Log(etInfo,'Created '+Filename+' Size='+s);
end;
procedure TPas2jsReleaseCreator.RunTool(WorkDir, Exe: string;
@ -585,6 +615,7 @@ var
i, OutLen, LineStart: Integer;
OutputLine, buf, CmdLine: String;
begin
WorkDir:=ChompPathDelim(WorkDir);
if not FileIsExecutable(Exe) then
Err('Not an executable: '+Exe);
if DirectoryExists(Exe) then