File Manager READ WORKS!!!

This commit is contained in:
Ruben Shekspir 2019-04-30 22:11:51 +04:00
parent 654ca13405
commit 955db770ca
4 changed files with 73 additions and 5 deletions

View file

@ -1,11 +1,22 @@
MODULE PackageFileParser;
IMPORT
JsonParser,
FileManager,
Logger;
CONST
MAXARRAYNUMBER = 1000;
PROCEDURE install*;
VAR
fileData: ARRAY MAXARRAYNUMBER OF CHAR;
successfullyParsed: BOOLEAN;
BEGIN
Logger.Log("Starting install process");
successfullyParsed := FileManager.Read("VersionFile.json", fileData);
IF ~successfullyParsed THEN Logger.Log("Some ERROR occured while reading VERSIONFILE") END;
ASSERT(successfullyParsed);
Logger.Log(fileData);
END install;
BEGIN