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

implemented no such package feature.

Browse source
This commit is contained in:
Norayr Chilingarian 2022-01-12 03:45:28 +04:00
parent 1e8d4103b8
commit eef3f38909
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/vpkResolver.Mod
View file

@ -37,10 +37,11 @@ VAR
p: pstr; p: pstr;
i: INTEGER; i: INTEGER;
BEGIN BEGIN
met.Add(met, d); (*met.Add(met, d);*)
IF d.RetrieveDeps = NIL THEN Out.String("dep retriever method not installed"); Out.Ln; HALT(1) END; IF d.RetrieveDeps = NIL THEN Out.String("dep retriever method not installed"); Out.Ln; HALT(1) END;
depStrs := d.RetrieveDeps(d); depStrs := d.RetrieveDeps(d);
IF depStrs # NIL THEN IF depStrs # NIL THEN
met.Add(met, d);
NEW (deps, depStrs.Count); NEW (deps, depStrs.Count);
i := 0; i := 0;
REPEAT REPEAT
@ -66,6 +67,10 @@ BEGIN
INC(i) INC(i)
UNTIL i = depStrs.Count - 1; UNTIL i = depStrs.Count - 1;
d.AssignDeps(d, deps); d.AssignDeps(d, deps);
ELSE
Out.Ln;
Out.String("package "); Out.String(d.name^); Out.String(" not found in the tree"); Out.Ln;
HALT(61)
END; END;
depTree.Add(depTree, d); depTree.Add(depTree, d);
END mkDepTree; END mkDepTree;