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

Files moved to vpkConf

Browse source
This commit is contained in:
mane 2020-05-05 22:38:06 +04:00
parent bea2422ac1
commit 2be7d9497e
2 changed files with 89 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

32
Vipack.Mod
View file

@ -1,10 +1,10 @@
MODULE Vipack; MODULE Vipack;
IMPORT vpkFileManager,vpkJsonParser,vpkGit, vpkConf, vpkLogger, vpkPackageFileParser, Texts, Strings, In, Platform, Oberon, Out, Files, vpkUserDetails; IMPORT vpkFileManager,vpkJsonParser,vpkGit, vpkConf, vpkLogger, vpkPackageFileParser, Texts, Strings, In, Platform, Oberon, Out, vpkUserDetails;
PROCEDURE main(); PROCEDURE main();
CONST confFileName = "vipackConf.json"; CONST confFileName = "vipackConf.json";
CONST syncDirName = "vipackTree/"; CONST syncDirName = "vipackTree";
CONST quote = '"'; CONST quote = '"';
CONST startBracket = "{"; CONST startBracket = "{";
CONST endBracket = "}"; CONST endBracket = "}";
@ -12,8 +12,6 @@ CONST endBracket = "}";
VAR user, str: ARRAY 32 OF CHAR; VAR user, str: ARRAY 32 OF CHAR;
vpkDirPath, treePath, confPath, jsonString : ARRAY 120 OF CHAR; vpkDirPath, treePath, confPath, jsonString : ARRAY 120 OF CHAR;
i : INTEGER; i : INTEGER;
f : Files.File;
r : Files.Rider;
ch : CHAR; ch : CHAR;
S: Texts.Scanner; S: Texts.Scanner;
jsonData,string,defaultUrl,gitUrl,project,command, jsonPathLine : ARRAY 500 OF CHAR; jsonData,string,defaultUrl,gitUrl,project,command, jsonPathLine : ARRAY 500 OF CHAR;
@ -23,6 +21,9 @@ VAR user, str: ARRAY 32 OF CHAR;
PROCEDURE help(); PROCEDURE help();
BEGIN BEGIN
vpkLogger.Log("HelpText"); vpkLogger.Log("HelpText");
Out.String("Vipack sync - syncing git tree and local tree"); Out.Ln;
Out.String("vipackConf.json path -> $HOME/.vipack/vipackConf.son"); Out.Ln;
Out.String("vipackTree path -> $HOME/.vipack/vipackTree")
END help; END help;
@ -36,13 +37,12 @@ defaultUrl := "https://github.com/vishaps/vipackTree";
command := S.s; command := S.s;
IF ~(Platform.getEnv("HOME", vpkDirPath)) THEN IF Strings.Match(command, "") OR Strings.Match(command, "help")THEN
Out.String("HOME variable is not found"); Out.Ln;
END;
(*HELP*)
IF Strings.Match(command, "") OR Strings.Match(command, "--help")THEN
help; help;
ELSE
IF ~(vpkConf.varCheck("HOME", vpkDirPath)) THEN
Out.String("HOME variable is not found"); Out.Ln;
END; END;
Strings.Append("/.vipack/",vpkDirPath); Strings.Append("/.vipack/",vpkDirPath);
@ -60,16 +60,15 @@ Strings.Append(confFileName,confPath);
IF ~(vpkConf.confExists(confPath)) THEN IF ~(vpkConf.confExists(confPath)) THEN
Out.String("Creating the configuration file "); Out.String(confPath);Out.Ln; Out.String("Creating the configuration file "); Out.String(confPath);Out.Ln;
vpkConf.makeConf(confPath,f); jsonPathLine := "";
Files.Set(r, f, 0); vpkConf.makeFile(confPath);
Strings.Append(startBracket, jsonPathLine); Strings.Append(startBracket, jsonPathLine);
Strings.Append('"path" : ', jsonPathLine); Strings.Append('"path" : ', jsonPathLine);
Strings.Append(quote, jsonPathLine); Strings.Append(quote, jsonPathLine);
Strings.Append(defaultUrl,jsonPathLine); Strings.Append(defaultUrl,jsonPathLine);
Strings.Append(quote, jsonPathLine); Strings.Append(quote, jsonPathLine);
Strings.Append(endBracket,jsonPathLine); Strings.Append(endBracket,jsonPathLine);
Files.WriteString(r,jsonPathLine); vpkConf.writeInFile(confPath,jsonPathLine,0);
Files.Close(f);
ELSE ELSE
Out.String("File already exists");Out.Ln; Out.String("File already exists");Out.Ln;
END; END;
@ -78,8 +77,9 @@ END;
IF command = "sync" THEN IF command = "sync" THEN
treePath := vpkDirPath; treePath := vpkDirPath;
Strings.Append(syncDirName, treePath); Strings.Append(syncDirName, treePath);
Strings.Append("/",treePath);
Out.String("*****************************************"); Out.Ln; Out.String("*****************************************"); Out.Ln;
Out.String("TreePath = "); Out.String(vpkDirPath); Out.String("TreePath = "); Out.String(treePath);
(* Check tree directory if doesn't exist create*) (* Check tree directory if doesn't exist create*)
IF vpkConf.makeDir(treePath) THEN IF vpkConf.makeDir(treePath) THEN
@ -113,7 +113,7 @@ IF command = "install" THEN
END; END;
END;
END main; END main;

23
vpkConf.Mod
View file

@ -1,5 +1,5 @@
MODULE vpkConf; MODULE vpkConf;
IMPORT Files, vpkFsHelper; IMPORT Out,Files, vpkFsHelper, Platform;
PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN; PROCEDURE confExists*(VAR confFile: ARRAY OF CHAR ):BOOLEAN;
BEGIN BEGIN
@ -9,19 +9,34 @@ BEGIN
END confExists; END confExists;
PROCEDURE makeConf*(VAR confFilePath: ARRAY OF CHAR;VAR f:Files.File); PROCEDURE makeFile*(VAR confFilePath: ARRAY OF CHAR);
VAR f : Files.File;
BEGIN BEGIN
f := Files.New(confFilePath); f := Files.New(confFilePath);
Files.Register(f); Files.Register(f);
END makeConf; END makeFile;
PROCEDURE makeDir*(VAR confDirPath: ARRAY OF CHAR):BOOLEAN; PROCEDURE makeDir*(VAR confDirPath: ARRAY OF CHAR):BOOLEAN;
BEGIN BEGIN
RETURN vpkFsHelper.mkDir(confDirPath); RETURN vpkFsHelper.mkDir(confDirPath);
END makeDir; END makeDir;
PROCEDURE varCheck*(variable : ARRAY OF CHAR;VAR value : ARRAY OF CHAR): BOOLEAN;
BEGIN
RETURN Platform.getEnv(variable,value);
END varCheck;
PROCEDURE writeInFile*(VAR pathToFile : ARRAY OF CHAR;VAR text : ARRAY OF CHAR; posRider : INTEGER);
VAR f : Files.File;
r : Files.Rider;
BEGIN
f := Files.Old(pathToFile);
Files.Set(r,f,posRider);
Files.WriteString(r,text);
Files.Close(f);
END writeInFile;
BEGIN BEGIN