Code is written, nothing works

This commit is contained in:
Ruben Shekspir 2019-05-09 22:43:15 +04:00
parent 7a05c9b3e8
commit 344c0f0aa7
10 changed files with 176 additions and 42 deletions

32
PackageResolver.Mod Normal file
View file

@ -0,0 +1,32 @@
MODULE PackageResolver;
IMPORT FileManager, http, Strings;
CONST ArrayMaxNumber = 10000;
PROCEDURE *Resolve(remoteURL, port, packageName, version : ARRAY OF CHAR);
BEGIN
END Resolve;
PROCEDURE ResolveFile *(host, port, packageName, version, fileName : ARRAY OF CHAR; VAR returnValue : ARRAY OF CHAR);
VAR
filePath: ARRAY ArrayMaxNumber OF CHAR;
BEGIN
filePath := "";
Strings.Append("/", filePath);
Strings.Append(packageName, filePath);
Strings.Append("/", filePath);
Strings.Append(version, filePath);
Strings.Append("/", filePath);
Strings.Append(fileName, filePath);
http.get(host, port, filePath, returnValue);
(* TODO: introduce write to file functionality *)
(* FileManager.CreateDirectory(packageName); *)
(* FileManager.Write(packageName + fileName, returnValue); *)
END ResolveFile;
END PackageResolver.