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

2
lists

@ -1 +1 @@
Subproject commit 8bd436755e98807041cd19e9356c7cedb25dd5e9
Subproject commit 9235743df082eeb719f583f5261c792df9feec99

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;