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

pull, tree

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

15
Vipack.Mod
View file

@ -4,7 +4,7 @@ IMPORT vpkFileManager,vpkJsonParser,vpkGit, vpkConf, vpkLogger, vpkPackageFileP
PROCEDURE main();
CONST confFileName = "vipackConf.json";
CONST syncDirName = "tree/";
CONST syncDirName = "vipackTree/";
CONST quote = '"';
CONST startBracket = "{";
CONST endBracket = "}";
@ -76,13 +76,17 @@ END;
IF command = "sync" THEN
Strings.Append(syncDirName, vpkDirPath);
(*Check tree directory if doesn't exist create*)
treePath := vpkDirPath;
Strings.Append(syncDirName, treePath);
Out.String("*****************************************"); Out.Ln;
Out.String("TreePath = "); Out.String(vpkDirPath);
(* Check tree directory if doesn't exist create*)
IF vpkConf.makeDir(treePath) THEN
Out.String("Creating "); Out.String(treePath); Out.String("for syncing");Out.Ln;
ELSE Out.String("Some error occured or directory already exist");
END;
(*Sync*)
(* Syncing *)
success := vpkFileManager.Read(confPath,jsonData);
jsonRecord := vpkJsonParser.Create(jsonData);
success := vpkJsonParser.GetTerminal(jsonRecord,"path", jsonString);
@ -92,9 +96,10 @@ IF command = "sync" THEN
string := gitUrl;
Strings.Delete(string,19,Strings.Length(string)-17);
Out.String(string);Out.Ln;
(* Checking the URL of vipackConf.json path key *)
IF Strings.Match(string,"https://github.com/") OR Strings.Match(string,"git://github.com/") THEN
Out.String("YES"); Out.Ln;
vpkGit.clone(gitUrl);
vpkGit.pull(gitUrl,treePath);
END;
END;

13
vpkGit.Mod
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