pull, tree

This commit is contained in:
mane 2020-04-28 14:36:19 +04:00
parent b30deb5bd9
commit bea2422ac1
2 changed files with 19 additions and 9 deletions

View file

@ -1,16 +1,21 @@
MODULE vpkGit;
IMPORT Out,Strings, Platform;
PROCEDURE clone*(URL : ARRAY OF CHAR);
PROCEDURE pull*(URL : ARRAY OF CHAR; dst : ARRAY OF CHAR);
VAR i : INTEGER;
cmd : ARRAY 120 OF CHAR;
BEGIN
i:=Platform.System("git init .");
cmd := "git clone ";
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 clone;
END pull;
BEGIN