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

building almost done.

Browse source
This commit is contained in:
Norayr Chilingarian 2022-01-18 19:59:19 +04:00
parent 277e8aa9a5
commit 39503ad331
4 changed files with 96 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/unix/vpkEnv.Mod
View file

@ -1,5 +1,5 @@
MODULE vpkEnv;
IMPORT Files, Platform, Strings, Out, vpkSettings, vpkFiles;
IMPORT Files, Platform, Strings, Out, vpkSettings, vpkFiles, StringList;
VAR
conf, confDir : ARRAY 256 OF CHAR;
@ -12,6 +12,11 @@ BEGIN
END;
END getHome;
PROCEDURE getGraphName*(VAR grname: ARRAY OF CHAR);
BEGIN
COPY (vpkSettings.graphName, grname);
END getGraphName;
PROCEDURE createIfNotThere*(VAR fileName: ARRAY OF CHAR);
BEGIN
IF ~vpkFiles.ExistsByName(fileName) THEN
@ -22,6 +27,23 @@ BEGIN
END createIfNotThere;
PROCEDURE getSrcRelPath*(VAR depName, path0: ARRAY OF CHAR): StringList.pstring;
VAR
p: StringList.pstring;
len: INTEGER;
BEGIN
len := 9 + Strings.Length(depName) + Strings.Length(path0);
(* 5 chars are ../, /, /, plus a couple of chars *)
NEW(p, len);
COPY("../", p^);
Strings.Append(vpkSettings.vpkDepDir, p^);
Strings.Append("/", p^);
Strings.Append(depName, p^);
Strings.Append("/", p^);
Strings.Append(path0, p^);
RETURN p;
END getSrcRelPath;
PROCEDURE mkConfDirPath(home: ARRAY OF CHAR; VAR path: ARRAY OF CHAR);
BEGIN
confDir := home;
@ -59,6 +81,16 @@ BEGIN
Strings.Append("/", path);
END mkPkgDirPath;
PROCEDURE mkBldDirPath*(VAR prefix, builddir: ARRAY OF CHAR);
BEGIN
COPY(prefix, builddir);
createIfNotThere(builddir);
Strings.Append("/", builddir);
Strings.Append(vpkSettings.vpkBldDir, builddir);
createIfNotThere(builddir);
Strings.Append("/", builddir);
END mkBldDirPath;
PROCEDURE setConfFileName;
VAR
home: ARRAY 128 OF CHAR;