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

Hurray, it downloads

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-11 22:21:55 +04:00
parent 173fd486fe
commit e896987c66
5 changed files with 62 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
PackageResolver.Mod
View file

@ -1,5 +1,5 @@
MODULE PackageResolver;
IMPORT FileManager, http, Strings, Logger;
IMPORT FileManager, http, Strings, Logger, Settings;
CONST ArrayMaxNumber = 10000;
@ -10,7 +10,8 @@ END Resolve;
PROCEDURE ResolveFile *(host, port, packageName, version, fileName : ARRAY OF CHAR; VAR returnValue : ARRAY OF CHAR);
VAR
filePath: ARRAY ArrayMaxNumber OF CHAR;
filePath, localPath: ARRAY ArrayMaxNumber OF CHAR;
isSuccessfull: BOOLEAN;
BEGIN
filePath := "";
Strings.Append("/", filePath);
@ -22,9 +23,15 @@ BEGIN
http.get(host, port, filePath, returnValue);
http.getClean(returnValue, returnValue);
(* TODO: introduce write to file functionality *)
(* FileManager.CreateDirectory(packageName); *)
(* FileManager.Write(packageName + fileName, returnValue); *)
isSuccessfull := FileManager.CreateDirectory(packageName, Settings.installPath);
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;