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

simplification of resolver via new StringList.GetString method.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-06-17 18:24:17 +04:00
parent f6a4c1f0bc
commit 4aff0f44e1
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/vpkResolver.Mod
View file

@ -2,6 +2,7 @@ MODULE vpkResolver;
IMPORT Out, StringList, vpkdepTree;
TYPE
pstr = StringList.pstring;
Tdep = vpkdepTree.Tdep;
Tdeps = vpkdepTree.Tdeps;
@ -33,7 +34,7 @@ VAR
depStrs: StringList.TStringList;
t: Tdep;
deps: Tdeps;
e: StringList.Node;
p: pstr;
i: INTEGER;
BEGIN
met.Add(met, d);
@ -43,11 +44,11 @@ BEGIN
NEW (deps, depStrs.Count);
i := 0;
REPEAT
e := depStrs.Get(depStrs, i);
IF e # NIL THEN
t := met.GetByName(met, e.obj(StringList.TString).str^);
p := depStrs.GetString(depStrs, i);
IF p # NIL THEN
t := met.GetByName(met, p^);
IF t = NIL THEN
t := vpkdepTree.CreateDep(e.obj(StringList.TString).str^);
t := vpkdepTree.CreateDep(p^);
t.InstallRetriever(t, rtvr);
END;
deps[i] := t;