mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52:26 +00:00
50 lines
1.6 KiB
Modula-2
50 lines
1.6 KiB
Modula-2
MODULE vpkPackageResolver;
|
|
IMPORT vpkStorage, vpkHttp, Strings, vpkLogger, vpkSettings, vpkJsonParser;
|
|
|
|
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
|
|
vpkLogger.Log('path');
|
|
vpkLogger.Log(path);
|
|
vpkHttp.get(host, port, path, returnValue);
|
|
vpkHttp.getClean(returnValue, returnValue);
|
|
isSuccessfull := vpkStorage.createDir(packageName, vpkSettings.installPath);
|
|
|
|
IF ~isSuccessfull THEN vpkLogger.Log("Something went wrong, while downloading files") END;
|
|
ASSERT(isSuccessfull);
|
|
vpkLogger.Log(path);
|
|
|
|
vpkLogger.Log(packageName);
|
|
COPY(vpkSettings.installPath, localPath);
|
|
|
|
Strings.Append("/", localPath);
|
|
Strings.Append(packageName, localPath);
|
|
Strings.Append("/", localPath);
|
|
Strings.Append(fileName, localPath);
|
|
|
|
isSuccessfull := vpkStorage.stringToFile(localPath, returnValue);
|
|
|
|
END ResolveFile;
|
|
|
|
PROCEDURE Resolve *(host, port, path, packageName, version: ARRAY OF CHAR; files: ARRAY OF vpkJsonParser.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
|
|
vpkJsonParser.Empty(helperString);
|
|
COPY(path, helperString);
|
|
Strings.Append(files[i], helperString);
|
|
|
|
ResolveFile(host, port, helperString, packageName, files[i], helperString);
|
|
END;
|
|
END;
|
|
END Resolve;
|
|
|
|
END vpkPackageResolver.
|