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

Files moved to vpkConf

Browse source
This commit is contained in:
mane 2020-05-05 22:38:06 +04:00
parent bea2422ac1
commit 2be7d9497e
2 changed files with 89 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

23
vpkConf.Mod
View file

@ -1,5 +1,5 @@
MODULE vpkConf;
IMPORT Files, vpkFsHelper;
IMPORT Out,Files, vpkFsHelper, Platform;
PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN;
BEGIN
@ -9,19 +9,34 @@ BEGIN
END confExists;
PROCEDURE makeConf*(VAR confFilePath: ARRAY OF CHAR;VAR f:Files.File);
PROCEDURE makeFile*(VAR confFilePath: ARRAY OF CHAR);
VAR f : Files.File;
BEGIN
f := Files.New(confFilePath);
Files.Register(f);
END makeConf;
END makeFile;
PROCEDURE makeDir*(VAR confDirPath: ARRAY OF CHAR):BOOLEAN;
BEGIN
RETURN vpkFsHelper.mkDir(confDirPath);
END makeDir;
PROCEDURE varCheck*(variable : ARRAY OF CHAR;VAR value : ARRAY OF CHAR): BOOLEAN;
BEGIN
RETURN Platform.getEnv(variable,value);
END varCheck;
PROCEDURE writeInFile*(VAR pathToFile : ARRAY OF CHAR;VAR text : ARRAY OF CHAR; posRider : INTEGER);
VAR f : Files.File;
r : Files.Rider;
BEGIN
f := Files.Old(pathToFile);
Files.Set(r,f,posRider);
Files.WriteString(r,text);
Files.Close(f);
END writeInFile;
BEGIN