mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52:26 +00:00
checking conf file and dir
This commit is contained in:
parent
c5b750daba
commit
a36f236bb3
3 changed files with 66 additions and 13 deletions
20
vpkFsHelper.Mod
Normal file
20
vpkFsHelper.Mod
Normal 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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue