mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
37 lines
No EOL
707 B
Modula-2
37 lines
No EOL
707 B
Modula-2
MODULE FileManager;
|
|
IMPORT Files, Out, Logger;
|
|
|
|
PROCEDURE Read*(fileName: ARRAY OF CHAR; VAR returnString: ARRAY OF CHAR): BOOLEAN;
|
|
VAR
|
|
f: Files.File;
|
|
r: Files.Rider;
|
|
i: LONGINT;
|
|
BEGIN
|
|
f := Files.Old(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);
|
|
|
|
i := 0;
|
|
REPEAT
|
|
Files.Read(r, returnString[i]);
|
|
INC(i);
|
|
UNTIL r.eof OR (i>=LEN(returnString));
|
|
|
|
RETURN TRUE;
|
|
END Read;
|
|
|
|
PROCEDURE Write*();
|
|
BEGIN
|
|
|
|
END Write;
|
|
|
|
END FileManager. |