mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
33 lines
671 B
Modula-2
33 lines
671 B
Modula-2
MODULE vpkGit;
|
|
IMPORT Out, Strings, Platform, vpkEnv;
|
|
|
|
PROCEDURE pull*(url : ARRAY OF CHAR; dst : ARRAY OF CHAR);
|
|
VAR i : INTEGER;
|
|
cmd : ARRAY 120 OF CHAR;
|
|
BEGIN
|
|
cmd:= "git init ";
|
|
Strings.Append(dst, cmd);
|
|
i:=Platform.System(cmd);
|
|
cmd := "";
|
|
cmd := "git -C ";
|
|
Strings.Append(dst, cmd);
|
|
Strings.Append(" pull ", cmd);
|
|
Strings.Append(url, cmd);
|
|
i := Platform.System(cmd);
|
|
Out.Int(i, 0);
|
|
END pull;
|
|
|
|
PROCEDURE syncTree*(url: ARRAY OF CHAR);
|
|
VAR
|
|
tmp: ARRAY 256 OF CHAR;
|
|
BEGIN
|
|
vpkEnv.getTreeDir(tmp);
|
|
pull(url, tmp);
|
|
END syncTree;
|
|
|
|
PROCEDURE fetchRepo*(url: ARRAY OF CHAR; dst: ARRAY OF CHAR);
|
|
BEGIN
|
|
pull(url, dst);
|
|
END fetchRepo;
|
|
|
|
END vpkGit.
|