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

20
vpkFsHelper.Mod Normal file
View file

@ -0,0 +1,20 @@
MODULE vpkFsHelper;
IMPORT SYSTEM;
PROCEDURE -Aincludesysstat '#include <sys/stat.h>';
PROCEDURE -Aincludesystypes '#include <sys/types.h>';
PROCEDURE -mkdir(VAR path: ARRAY OF CHAR): INTEGER
"(int)mkdir(path, 0755)";
PROCEDURE mkDir*(VAR path: ARRAY OF CHAR): BOOLEAN;
VAR res: INTEGER;
BEGIN
res := mkdir(path);
IF res = 0 THEN RETURN TRUE ELSE RETURN FALSE END
END mkDir;
END vpkFsHelper.