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

Something works:D

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-11 21:51:55 +04:00
parent 1f1763abff
commit 173fd486fe
7 changed files with 80 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

64
DependencyResolver.Mod
View file

@ -7,6 +7,7 @@ VAR
moduleNames: ARRAY ArrayMaxNumber OF JsonParser.TString;
moduleJson: ARRAY ArrayMaxNumber OF JsonParser.TString;
moduleVersions: ARRAY ArrayMaxNumber OF JsonParser.TString;
j : LONGINT;
PROCEDURE Resolve *(jsonString: ARRAY OF CHAR);
@ -20,7 +21,7 @@ BEGIN
jsonRecord := JsonParser.Create(jsonString);
keyFound := jsonRecord.GetTerminal(jsonRecord, "Package", packageName);
IF keyFound THEN
Logger.Log("Parsing package by name");
Logger.Log(packageName);
@ -28,40 +29,45 @@ BEGIN
ELSE Logger.Log("Value for the Key is not found"); RETURN; END;
dependencies := jsonRecord.GetNonTerminal(jsonRecord, "Dependencies");
dependencies.GetTerminalKeys(dependencies, keys);
FOR i := 0 TO LEN(keys) - 1 DO
keyFound := dependencies.GetTerminal(dependencies, keys[i], version);
IF ~keyFound THEN Logger.Log('ERROR while seatching key'); Logger.Log(keys[i]); END;
ASSERT(keyFound);
FOR i := 0 TO LEN(keys) - 1 DO (* TODO: rewrite this logic to work with key count *)
IF ~Strings.Match(keys[i], "") THEN
keyFound := dependencies.GetTerminal(dependencies, keys[i], version);
IF ~keyFound THEN Logger.Log('ERROR while seatching key'); Logger.Log(keys[i]); END;
ASSERT(keyFound);
PackageResolver.ResolveFile(
Settings.host,
Settings.port,
keys[i],
version,
Settings.packageFileName,
returnedJSON
);
keyFound := FALSE;
FOR k := 0 TO j - 1 DO
IF Strings.Match(moduleNames[k], keys[i]) THEN
keyFound := TRUE;
PackageResolver.ResolveFile(
Settings.host,
Settings.port,
keys[i],
version,
Settings.packageFileName,
returnedJSON
);
keyFound := FALSE;
IF j >= LEN(moduleNames) THEN
Logger.Log("Out of range in Resolve function in ...");
END;
ASSERT(j < LEN(moduleNames));
FOR k := 0 TO j - 1 DO
IF Strings.Match(moduleNames[k], keys[i]) THEN
keyFound := TRUE;
END;
END;
IF ~keyFound THEN
COPY(keys[i], moduleNames[j]);
COPY(version, moduleVersions[j]);
COPY(returnedJSON, moduleJson[j]);
INC(j);
Resolve(returnedJSON);
END;
END;
IF ~keyFound THEN
COPY(keys[i], moduleNames[j]);
COPY(version, moduleVersions[j]);
COPY(returnedJSON, moduleJson[j]);
INC(j);
Resolve(returnedJSON);
END;
END;
END Resolve;
END DependencyResolver.