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: copy folders

Browse Source
This commit is contained in:
mattias 2024-01-10 12:10:36 +01:00
parent 4b380c9c81
commit afe1fa2bdd
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tools/releasecreator/Pas2jsReleaseCreator.lpr
View File

@ -159,7 +159,8 @@ begin
TargetOS:=lowercase({$i %FPCTargetOS%});
TargetCPU:=lowercase({$i %FPCTargetCPU%});
CreateBuildSourceDir(TargetOS,TargetCPU);
BuildTools(TargetOS,TargetCPU);
//BuildTools(TargetOS,TargetCPU);
CopySourceFolders;
// stop program loop
Terminate;
@ -327,8 +328,8 @@ procedure TPas2jsReleaseCreator.CleanSources;
end;
end;
until FindNext(Info)<>0;
FindClose(Info);
end;
FindClose(Info);
end;
begin
@ -449,8 +450,23 @@ procedure TPas2jsReleaseCreator.CopySourceFolders;
CopyDirTree(SrcDir,DestDir,[cffCreateDestDirectory]);
end;
var
Info: TRawByteSearchRec;
begin
CopyFolder('demo');
CopyFolder('packages');
CopyFolder('utils');
// copy all tools except releasecreator
if FindFirst(SourceDir+'tools'+AllFilesMask,faAnyFile,Info)=0 then begin
repeat
if (Info.Name='') or (Info.Name='.') or (Info.Name='..') then continue;
if (Info.Attr and faDirectory)>0 then begin
CopyFolder('tools'+PathDelim+Info.Name);
end
until FindNext(Info)<>0;
FindClose(Info);
end;
end;
procedure TPas2jsReleaseCreator.RunTool(WorkDir, Exe: string;

2
tools/releasecreator/findwriteln.pas
View File

@ -265,8 +265,8 @@ begin
end;
end;
until FindNext(Info)<>0;
FindClose(Info);
end;
FindClose(Info);
end;
end.