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 folder

Browse Source
This commit is contained in:
mattias 2024-01-10 12:05:47 +01:00
parent 9e32e19a5c
commit 4b380c9c81
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tools/releasecreator/Pas2jsReleaseCreator.lpr
View File

@ -39,11 +39,14 @@ type
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure WriteHelp; virtual;
procedure ReadVersion;
procedure CheckForgottenWriteln;
procedure CleanSources;
procedure CreateBuildSourceDir(const TargetOS, TargetCPU: string);
procedure BuildTools(const TargetOS, TargetCPU: string);
procedure CopySourceFolders;
procedure RunTool(WorkDir, Exe: string; const ProcParams: TStringDynArray); overload;
procedure RunTool(WorkDir, Exe: string; ProcParams: TStringList); overload;
procedure ForceDir(Dir, DirTitle: string);
@ -428,6 +431,28 @@ begin
end;
end;
procedure TPas2jsReleaseCreator.CopySourceFolders;
procedure CopyFolder(const Dir: string);
var
SrcDir, DestDir: String;
begin
SrcDir:=SourceDir+Dir;
DestDir:=BuildDir_Sources+Dir;
if not DirectoryExists(SrcDir) then
Err('Unable to copy missing source folder "'+SrcDir+'"');
// git restore SrcDir
RunTool(SourceDir,GitFilename,['restore',SrcDir]);
// copy
Log(etInfo,'Copying folder "'+SrcDir+'" -> "'+DestDir+'"');
CopyDirTree(SrcDir,DestDir,[cffCreateDestDirectory]);
end;
begin
CopyFolder('demo');
end;
procedure TPas2jsReleaseCreator.RunTool(WorkDir, Exe: string;
const ProcParams: TStringDynArray);
var