checking conf file and dir

This commit is contained in:
mane 2020-04-03 02:49:13 +04:00
parent c5b750daba
commit a36f236bb3
3 changed files with 66 additions and 13 deletions

25
vpkConf.Mod Normal file
View file

@ -0,0 +1,25 @@
MODULE vpkConf;
IMPORT Files;
PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN;
BEGIN
IF Files.Old(confFile) = NIL THEN RETURN FALSE;
ELSE RETURN TRUE;
END;
END confExists;
PROCEDURE makeConf*(VAR confFilePath: ARRAY OF CHAR);
VAR f : Files.File;
BEGIN
f := Files.New(confFilePath);
Files.Register(f);
END makeConf;
BEGIN
END vpkConf.