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

gethome() moved back to vpkConf module.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-05-08 14:06:06 +04:00
parent 296803f7f5
commit 7a741b509a
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/vpkConf.Mod
View file

@ -5,6 +5,14 @@ IMPORT Out, Files, Strings, Platform,
VAR VAR
conf, confDir : ARRAY 256 OF CHAR; conf, confDir : ARRAY 256 OF CHAR;
PROCEDURE getHome(VAR path: ARRAY OF CHAR);
BEGIN
IF ~(Platform.getEnv("HOME", path)) THEN
Out.String("HOME variable is not found"); Out.Ln;
HALT(1);
END;
END getHome;
PROCEDURE mkConfContent(VAR path: ARRAY OF CHAR); PROCEDURE mkConfContent(VAR path: ARRAY OF CHAR);
BEGIN BEGIN
Strings.Append('{"path" : "', path); Strings.Append('{"path" : "', path);
@ -40,7 +48,7 @@ PROCEDURE setConfPath;
VAR VAR
home: ARRAY 128 OF CHAR; home: ARRAY 128 OF CHAR;
BEGIN BEGIN
vpkSettings.getHome(home); getHome(home);
mkConfDirPath(home, confDir); mkConfDirPath(home, confDir);
conf := confDir; conf := confDir;
Strings.Append("/", conf); Strings.Append("/", conf);

8
src/vpkSettings.Mod
View file

@ -13,12 +13,4 @@ CONST
port* = "80"; port* = "80";
installPath* = "dependencies"; installPath* = "dependencies";
PROCEDURE getHome*(VAR path: ARRAY OF CHAR);
BEGIN
IF ~(Platform.getEnv("HOME", path)) THEN
Out.String("HOME variable is not found"); Out.Ln;
HALT(1);
END;
END getHome;
END vpkSettings. END vpkSettings.