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

pushes to the 'deps' directory inside prefix.

Browse source
This commit is contained in:
Norayr Chilingarian 2022-01-18 04:11:27 +04:00
parent 837ee3ac45
commit 277e8aa9a5
4 changed files with 68 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/unix/vpkEnv.Mod
View file

@ -12,6 +12,16 @@ BEGIN
END;
END getHome;
PROCEDURE createIfNotThere*(VAR fileName: ARRAY OF CHAR);
BEGIN
IF ~vpkFiles.ExistsByName(fileName) THEN
IF ~vpkFiles.mkDir(fileName) THEN
Out.String("failed to create directory "); Out.String(fileName); Out.Ln; HALT(1);
END;
END;
END createIfNotThere;
PROCEDURE mkConfDirPath(home: ARRAY OF CHAR; VAR path: ARRAY OF CHAR);
BEGIN
confDir := home;
@ -28,16 +38,27 @@ BEGIN
Strings.Append("/", path);
Strings.Append(vpkSettings.vpkPkgDir, path);
Strings.Append("/", path);
createIfNotThere(path);
Strings.Append(vpkSettings.vpkDepDir, path);
Strings.Append("/", path);
createIfNotThere(path);
Strings.Append(name, path);
createIfNotThere(path);
Strings.Append("/", path);
END mkdefPkgDirPath;
PROCEDURE mkPkgDirPath*(VAR name, path: ARRAY OF CHAR);
BEGIN
Strings.Append("/", path);
createIfNotThere(path);
Strings.Append(vpkSettings.vpkDepDir, path);
Strings.Append("/", path);
createIfNotThere(path);
Strings.Append(name, path);
createIfNotThere(path);
Strings.Append("/", path);
END mkPkgDirPath;
PROCEDURE setConfFileName;
VAR
home: ARRAY 128 OF CHAR;
@ -84,16 +105,6 @@ 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;
@ -120,7 +131,7 @@ BEGIN
Strings.Append('/', tmp);
Strings.Append(vpkSettings.vpkTreeDir, tmp);
file.name := tmp;
createIfNotThere(file);
createIfNotThere(file.name);
END checkEnv;
BEGIN

29
src/unix/vpkFiles.Mod
View file

@ -95,5 +95,34 @@ BEGIN
END;
END Exists;
PROCEDURE ExistsByName*(VAR fileName : ARRAY OF CHAR): BOOLEAN;
VAR
i : INTEGER;
st: Status;
fl: fileInfo;
BEGIN
fl.attr := {};
COPY(fileName, fl.name);
i := stat(fl.name, st);
IF i < 0 THEN RETURN FALSE END;
IF i = 0 THEN (* file exists*)
i := isDir(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {dir} END;
i := isChar(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {char} END;
i := isBlock(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {block} END;
i := isReg(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {file} END;
i := isFIFO(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {fifo} END;
i := isLnk(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {symlink} END;
i := isSock(st.mode);
IF i # 0 THEN fl.attr := fl.attr + {socket} END;
RETURN TRUE
END;
END ExistsByName;
END vpkFiles.