mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 13:02:26 +00:00
moved vipack specific sources to src
This commit is contained in:
parent
8a476ab610
commit
c02b5d6c83
23 changed files with 24 additions and 86 deletions
45
src/vpkConf.Mod
Normal file
45
src/vpkConf.Mod
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
MODULE vpkConf;
|
||||
IMPORT Out, Files, Strings, Platform,
|
||||
vpkFsHelper;
|
||||
|
||||
PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN;
|
||||
BEGIN
|
||||
IF Files.Old(confFile) = NIL THEN RETURN FALSE;
|
||||
ELSE RETURN TRUE;
|
||||
END;
|
||||
|
||||
END confExists;
|
||||
|
||||
PROCEDURE makeFile*(VAR confFilePath: ARRAY OF CHAR);
|
||||
VAR f : Files.File;
|
||||
BEGIN
|
||||
f := Files.New(confFilePath);
|
||||
Files.Register(f);
|
||||
|
||||
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.WriteBytes(r, text, Strings.Length(text));
|
||||
Files.Close(f);
|
||||
END writeInFile;
|
||||
|
||||
|
||||
BEGIN
|
||||
|
||||
|
||||
END vpkConf.
|
||||
Loading…
Add table
Add a link
Reference in a new issue