mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
20 lines
407 B
Modula-2
20 lines
407 B
Modula-2
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.
|