From b411ead9d94f437e4341ba2e8ccad40adada7133 Mon Sep 17 00:00:00 2001 From: Norayr Chilingarian Date: Thu, 7 May 2020 19:50:29 +0400 Subject: [PATCH] removed PackageResolver - not used anywhere. --- PackageResolver.Mod | 50 --------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 PackageResolver.Mod diff --git a/PackageResolver.Mod b/PackageResolver.Mod deleted file mode 100644 index 90cb62a..0000000 --- a/PackageResolver.Mod +++ /dev/null @@ -1,50 +0,0 @@ -MODULE PackageResolver; -IMPORT FileManager, http, Strings, Logger, Settings, JsonParser; - -CONST ArrayMaxNumber = 1000; - -PROCEDURE ResolveFile *(host, port, path, packageName, fileName : ARRAY OF CHAR; VAR returnValue : ARRAY OF CHAR); -VAR - localPath: ARRAY ArrayMaxNumber OF CHAR; - isSuccessfull: BOOLEAN; -BEGIN - Logger.Log('path'); - Logger.Log(path); - http.get(host, port, path, returnValue); - http.getClean(returnValue, returnValue); - isSuccessfull := FileManager.CreateDirectory(packageName, Settings.installPath); - - IF ~isSuccessfull THEN Logger.Log("Something went wrong, while downloading files") END; - ASSERT(isSuccessfull); - Logger.Log(path); - - Logger.Log(packageName); - COPY(Settings.installPath, localPath); - - Strings.Append("/", localPath); - Strings.Append(packageName, localPath); - Strings.Append("/", localPath); - Strings.Append(fileName, localPath); - - isSuccessfull := FileManager.Write(localPath, returnValue); - -END ResolveFile; - -PROCEDURE Resolve *(host, port, path, packageName, version: ARRAY OF CHAR; files: ARRAY OF JsonParser.TString); -VAR - i : LONGINT; - helperString: ARRAY 10000 OF CHAR; -BEGIN - Strings.Append("/", path); - FOR i := 0 TO LEN(files) - 1 DO - IF ~Strings.Match(files[i], "") THEN - JsonParser.Empty(helperString); - COPY(path, helperString); - Strings.Append(files[i], helperString); - - ResolveFile(host, port, helperString, packageName, files[i], helperString); - END; - END; -END Resolve; - -END PackageResolver. \ No newline at end of file