mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
118 lines
3.7 KiB
Modula-2
118 lines
3.7 KiB
Modula-2
MODULE vpkInstaller;
|
|
IMPORT In, Out, Platform,
|
|
StringList,
|
|
vpkResolver, vpkdepTree, vpkDot, vpkEnv, vpkJsonDepRetriever,vpkSyncer,
|
|
vpkTools, vpkSettings;
|
|
|
|
PROCEDURE resolve*(VAR unit: ARRAY OF CHAR): vpkdepTree.TdepTree;
|
|
VAR
|
|
tree: vpkdepTree.TdepTree;
|
|
lst: StringList.TStringList;
|
|
dep: vpkdepTree.Tdep;
|
|
i : LONGINT;
|
|
graphName : ARRAY 32 OF CHAR;
|
|
BEGIN
|
|
vpkEnv.getGraphName(graphName);
|
|
Out.Ln; Out.String("resolving dependencies..."); Out.Ln;
|
|
tree := vpkResolver.resolve(unit, vpkJsonDepRetriever.getDeps);
|
|
Out.String(" done! (:"); Out.Ln; Out.Ln;
|
|
lst := vpkDot.tree2dot(tree);
|
|
Out.String("dependency graph:"); Out.Ln;
|
|
Out.String("-----------------"); Out.Ln;
|
|
StringList.DumpOut(lst);
|
|
lst.Dump(lst, graphName);
|
|
Out.String("-----------------"); Out.Ln;
|
|
Out.String("(use 'dot -Tpng deps.dot > deps.png' to get the graph image)"); Out.Ln; Out.Ln;
|
|
Out.String("dependencies will be installed in the following order:"); Out.Ln;
|
|
i := 0;
|
|
REPEAT
|
|
dep := vpkdepTree.Get(tree, i);
|
|
Out.String(dep.name^); Out.Ln;
|
|
INC(i)
|
|
UNTIL i = tree.Count;
|
|
RETURN tree
|
|
END resolve;
|
|
|
|
PROCEDURE ask();
|
|
VAR
|
|
ch: CHAR;
|
|
BEGIN
|
|
Out.String("would you like to merge these packages? (y/n) ");
|
|
In.Char(ch);
|
|
IF ch # 'y' THEN Out.Ln; Out.String('quitting'); Out.Ln; HALT(0); END
|
|
END ask;
|
|
|
|
PROCEDURE fetch*(VAR package:ARRAY OF CHAR; prefix: ARRAY OF CHAR; VAR pkgTree: ARRAY OF CHAR; a: BOOLEAN);
|
|
VAR
|
|
depTree: vpkdepTree.TdepTree;
|
|
dep: vpkdepTree.Tdep;
|
|
i: LONGINT;
|
|
BEGIN
|
|
depTree := resolve(package);
|
|
IF a THEN ask END;
|
|
i := 0;
|
|
REPEAT
|
|
dep := vpkdepTree.Get(depTree, i);
|
|
vpkJsonDepRetriever.getURIandType(dep);
|
|
vpkSyncer.fetch(dep, prefix);
|
|
INC(i)
|
|
UNTIL i = depTree.Count;
|
|
END fetch;
|
|
|
|
PROCEDURE build*(VAR package: ARRAY OF CHAR; prefix: ARRAY OF CHAR; VAR tree: ARRAY OF CHAR; a : BOOLEAN);
|
|
VAR
|
|
depTree: vpkdepTree.TdepTree;
|
|
dep: vpkdepTree.Tdep;
|
|
i, j: LONGINT;
|
|
keys, values: StringList.TStringList;
|
|
k, v: StringList.pstring;
|
|
b: BOOLEAN;
|
|
builddir, cmd, srcPath: StringList.pstring;
|
|
res: INTEGER;
|
|
domain: ARRAY 256 OF CHAR;
|
|
BEGIN
|
|
IF prefix # "" THEN
|
|
builddir := vpkEnv.mkBldDir(prefix)
|
|
ELSE
|
|
builddir := vpkEnv.mkdefBldDir();
|
|
END;
|
|
depTree := resolve(package);
|
|
IF a THEN ask END;
|
|
i := 0;
|
|
REPEAT
|
|
dep := vpkdepTree.Get(depTree, i);
|
|
vpkJsonDepRetriever.getURIandType(dep);
|
|
Out.String("aftergetURIandType"); Out.Ln;
|
|
Out.String("got uri: "); Out.String(dep^.rmt^.URI); Out.Ln;
|
|
Out.String("got type: ");
|
|
IF dep^.Type = vpkSettings.git THEN Out.String("git");
|
|
ELSIF dep^.Type = vpkSettings.https THEN Out.String("https") END;
|
|
Out.Ln;
|
|
vpkSyncer.fetch(dep, prefix);
|
|
b := FALSE;
|
|
b := vpkJsonDepRetriever.getBuildInfo(dep, keys, values);
|
|
IF b THEN
|
|
vpkTools.extractDomainFromUrl(dep^.rmt.URI, domain);
|
|
j := 0;
|
|
REPEAT
|
|
k := keys.GetString(keys, j);
|
|
v := values.GetString(values, j);
|
|
srcPath := vpkEnv.getSrcRelPath(dep.name^, domain, v^);
|
|
cmd := vpkEnv.mkCmd(k^, srcPath^);
|
|
Out.String(cmd^); Out.Ln;
|
|
res := Platform.Chdir(builddir^);
|
|
IF res # 0 THEN
|
|
Out.String("failed to change directory to "); Out.String(builddir^); Out.Ln; Out.String("this should never happen."); Out.Ln; HALT(66);
|
|
END;
|
|
res := Platform.System(cmd^);
|
|
IF res # 0 THEN Out.String("failed to run build command"); Out.Ln END;
|
|
INC(j)
|
|
UNTIL j = keys.Count;
|
|
ELSE
|
|
Out.String("no build info found for the package: "); Out.String(dep.name^); Out.Ln;
|
|
END;
|
|
INC(i);
|
|
UNTIL i = depTree.Count;
|
|
END build;
|
|
|
|
END vpkInstaller.
|