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

Http fetch to file doesn't work for some reason

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-05 13:58:18 +04:00
parent ab197c6483
commit 6c66d03769
6 changed files with 54 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

33
FileManager.Mod
View file

@ -1,5 +1,11 @@
MODULE FileManager;
IMPORT Files, Out, Logger;
IMPORT Files, Out, Logger, Strings;
PROCEDURE WriteString(VAR r : Files.Rider; str : ARRAY OF CHAR);
BEGIN
Files.WriteBytes(r, str, Strings.Length(str));
Logger.Log(str);
END WriteString;
PROCEDURE Read*(fileName: ARRAY OF CHAR; VAR returnString: ARRAY OF CHAR): BOOLEAN;
VAR
@ -29,9 +35,32 @@ BEGIN
RETURN TRUE;
END Read;
PROCEDURE Write*();
PROCEDURE Write*(fileName, content: ARRAY OF CHAR): BOOLEAN;
VAR
f: Files.File;
r: Files.Rider;
i: LONGINT;
BEGIN
f := Files.New(fileName);
IF f = NIL THEN
Logger.Log("-------------------");
Logger.Log("File Name");
Logger.Log(fileName);
Logger.Log("File not found");
Logger.Log("-------------------");
RETURN FALSE
END;
Files.Set(r, f, 0);
Logger.Log("Writing to file");
Logger.Log(fileName);
Logger.Log("-------------------");
WriteString(r, content);
Files.Register(f);
RETURN TRUE;
END Write;
END FileManager.