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

simplified some modules by adding others.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-06-09 20:17:52 +04:00
parent dd6093e056
commit dff47dc004
4 changed files with 159 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

46
src/vpkDot.Mod Normal file
View file

@ -0,0 +1,46 @@
MODULE vpkDot;
IMPORT Strings, vpkdepTree, StringList;
CONST
first = "digraph dependencies {";
last = "}";
arrow = " -> ";
tab = " ";
PROCEDURE tree2dot*(VAR tree: vpkdepTree.TdepTree): StringList.TStringList;
VAR
dep : vpkdepTree.Tdep;
i, j : LONGINT;
lst : StringList.TStringList;
line: ARRAY 64 OF CHAR;
BEGIN
lst := StringList.Create();
line:= first;
lst.AppendString(lst, line);
i := 0;
REPEAT
dep := tree.Get(tree, i);
IF dep # NIL THEN
IF dep.deps # NIL THEN
j := 0;
REPEAT
IF dep.deps[j]^.name # NIL THEN
COPY("", line);
Strings.Append(tab, line);
Strings.Append(dep.name^, line);
Strings.Append(arrow, line);
Strings.Append(dep.deps[j]^.name^, line);
lst.AppendString(lst, line);
END;
INC(j)
UNTIL j = (LEN(dep.deps^) -1 );
END
END;
INC(i)
UNTIL i = tree.Count ;
line := last;
lst.AppendString(lst, line);
RETURN lst;
END tree2dot;
END vpkDot.