vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 13:02:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fetch works

Browse source
This commit is contained in:
Norayr Chilingarian 2022-01-14 05:19:50 +04:00
parent c95ecfc60b
commit 4dfb4975ff
9 changed files with 171 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/vpkInstaller.Mod
View file

@ -1,7 +1,7 @@
MODULE vpkInstaller;
IMPORT Out, StringList, vpkResolver, vpkdepTree, vpkDot, vpkSettings, vpkJsonDepRetriever;
IMPORT Out, StringList, vpkResolver, vpkdepTree, vpkDot, vpkSettings, vpkJsonDepRetriever, vpkSyncer;
PROCEDURE resolve*(VAR unit: ARRAY OF CHAR);
PROCEDURE resolve*(VAR unit: ARRAY OF CHAR): vpkdepTree.TdepTree;
VAR
tree: vpkdepTree.TdepTree;
lst: StringList.TStringList;
@ -25,9 +25,26 @@ BEGIN
Out.String(dep.name^); Out.Ln;
INC(i)
UNTIL i = tree.Count;
RETURN tree
END resolve;
PROCEDURE fetch*(VAR package, prefix, pkgTree: ARRAY OF CHAR);
VAR
depTree: vpkdepTree.TdepTree;
dep: vpkdepTree.Tdep;
i: LONGINT;
URI: ARRAY 128 OF CHAR;
typ: ARRAY 16 OF CHAR;
BEGIN
depTree := resolve(package);
i := 0;
REPEAT
dep := vpkdepTree.Get(depTree, i);
vpkJsonDepRetriever.getURIandType(dep, URI, typ);
vpkSyncer.fetch(dep.name^, URI, typ, prefix);
INC(i)
UNTIL i= depTree.Count;
END fetch;
PROCEDURE build*(VAR package, prefix, tree: ARRAY OF CHAR);