vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Hurray, it downloads

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-11 22:21:55 +04:00
parent 173fd486fe
commit e896987c66
5 changed files with 62 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
FileManager.Mod
View file

@ -1,5 +1,5 @@
MODULE FileManager;
IMPORT Files, Out, Logger, Strings;
IMPORT Files, Out, Logger, Strings, Platform;
PROCEDURE WriteString(VAR r : Files.Rider; str : ARRAY OF CHAR);
BEGIN
@ -62,4 +62,20 @@ BEGIN
RETURN TRUE;
END Write;
PROCEDURE CreateDirectory*(name, path: ARRAY OF CHAR): BOOLEAN;
VAR
command, path0: ARRAY 100 OF CHAR;
errorCode: LONGINT;
BEGIN
COPY(path, path0);
COPY("mkdir -p ", command);
Strings.Append("/", path0);
Strings.Append(name, path0);
Strings.Append(path0, command);
errorCode := Platform.System(command);
IF errorCode = 0 THEN RETURN TRUE
ELSE RETURN FALSE END;
END CreateDirectory;
END FileManager.