mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
40 lines
868 B
Modula-2
40 lines
868 B
Modula-2
MODULE vpkSyncer;
|
|
IMPORT Strings, Out,
|
|
vpkSettings, vpkEnv, vpkConf, vpkGit;
|
|
|
|
PROCEDURE mkTreePath(VAR path: ARRAY OF CHAR);
|
|
BEGIN
|
|
vpkEnv.getConfDir(path);
|
|
Strings.Append('/', path);
|
|
Strings.Append(vpkSettings.vpkTreeDir, path);
|
|
END mkTreePath;
|
|
|
|
PROCEDURE sync*;
|
|
VAR
|
|
tree: vpkSettings.tree;
|
|
BEGIN
|
|
(* Syncing *)
|
|
vpkConf.getConfigTreeVal(tree);
|
|
IF tree.typ = vpkSettings.git THEN
|
|
vpkGit.syncTree(tree.url, tree.branch)
|
|
ELSE
|
|
Out.String("TODO: not a git url"); Out.Ln
|
|
END;
|
|
END sync;
|
|
|
|
PROCEDURE fetch*(name, url, typ, dst, branch: ARRAY OF CHAR);
|
|
BEGIN
|
|
IF dst = "" THEN
|
|
vpkEnv.mkdefPkgDirPath(name, dst);
|
|
ELSE
|
|
vpkEnv.mkPkgDirPath(name, dst);
|
|
END;
|
|
|
|
IF typ = vpkSettings.rmtTypGitVal THEN
|
|
vpkGit.fetchRepo(url, dst, branch);
|
|
ELSE
|
|
Out.String("TODO: not a git url"); Out.Ln
|
|
END
|
|
END fetch;
|
|
|
|
END vpkSyncer.
|