vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fetch works

Browse source
This commit is contained in:
Norayr Chilingarian 2022-01-14 05:19:50 +04:00
parent c95ecfc60b
commit 4dfb4975ff
9 changed files with 171 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/unix/vpkEnv.Mod
View file

@ -19,6 +19,25 @@ BEGIN
Strings.Append(vpkSettings.vpkConfDir, path);
END mkConfDirPath;
PROCEDURE mkdefPkgDirPath*(VAR name, path: ARRAY OF CHAR);
VAR
home: ARRAY 128 OF CHAR;
BEGIN
getHome(home);
COPY(home, path);
Strings.Append("/", path);
Strings.Append(vpkSettings.vpkPkgDir, path);
Strings.Append("/", path);
Strings.Append(name, path);
END mkdefPkgDirPath;
PROCEDURE mkPkgDirPath*(VAR name, path: ARRAY OF CHAR);
BEGIN
Strings.Append("/", path);
Strings.Append(name, path);
END mkPkgDirPath;
PROCEDURE setConfFileName;
VAR
home: ARRAY 128 OF CHAR;
@ -65,6 +84,16 @@ BEGIN
Strings.Append(vpkSettings.vpkTreeDir, path);
END getTreeDir;
PROCEDURE createIfNotThere*(VAR file: vpkFiles.fileInfo);
BEGIN
IF ~vpkFiles.Exists(file) THEN
IF ~vpkFiles.mkDir(file.name) THEN
Out.String("failed to create directory "); Out.String(file.name); Out.Ln; HALT(1);
END;
END;
END createIfNotThere;
PROCEDURE checkEnv*;
VAR
file : vpkFiles.fileInfo;
@ -91,11 +120,7 @@ BEGIN
Strings.Append('/', tmp);
Strings.Append(vpkSettings.vpkTreeDir, tmp);
file.name := tmp;
IF ~vpkFiles.Exists(file) THEN
IF ~vpkFiles.mkDir(file.name) THEN
Out.String("failed to create tree dir "); Out.String(tmp); Out.Ln; HALT(1);
END;
END;
createIfNotThere(file);
END checkEnv;
BEGIN

5
src/unix/vpkGit.Mod
View file

@ -25,4 +25,9 @@ BEGIN
pull(url, tmp);
END syncTree;
PROCEDURE fetchRepo*(url: ARRAY OF CHAR; dst: ARRAY OF CHAR);
BEGIN
pull(url, dst);
END fetchRepo;
END vpkGit.