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

Vipack.Mod and Opium.Mod merge, Args replaced with Oberon module

Browse source
This commit is contained in:
mane 2020-04-03 01:09:28 +04:00
parent 9423fb1b37
commit c5b750daba
1 changed files with 25 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Vipack.Mod
View file

@ -1,6 +1,7 @@
MODULE Vipack; MODULE Vipack;
IMPORT Texts,Strings,In,Platform, Oberon, Out, Files, UserDetails; IMPORT vpkLogger, vpkPackageFileParser,Texts,Strings,In,Platform, Oberon, Out, Files, vpkUserDetails;
PROCEDURE main();
VAR user, str, fn: ARRAY 32 OF CHAR; VAR user, str, fn: ARRAY 32 OF CHAR;
confDir, string : ARRAY 120 OF CHAR; confDir, string : ARRAY 120 OF CHAR;
i : INTEGER; i : INTEGER;
@ -8,16 +9,33 @@ VAR user, str, fn: ARRAY 32 OF CHAR;
r : Files.Rider; r : Files.Rider;
ch : CHAR; ch : CHAR;
S: Texts.Scanner; S: Texts.Scanner;
command : ARRAY 500 OF CHAR;
PROCEDURE help();
BEGIN
vpkLogger.Log("HelpText");
END help;
BEGIN BEGIN
(* Getting 1 argument and outputting it *) (* Getting 1 argument and outputting it *)
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos); Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
Texts.Scan(S); Texts.Scan(S);
Out.String(S.s); Out.Ln; Out.String(S.s); Out.Ln;
(* Vipack installation or help) *)
command := S.s;
IF Strings.Match(command, "") OR Strings.Match(command, "--help")THEN
help;
ELSIF Strings.Match(command, "install") THEN
vpkPackageFileParser.install();
END;
confDir := "/home//.vipack/vipack.conf"; confDir := "/home//.vipack/vipack.conf";
(* Getting username from input if there is no $USER variable *) (* Getting username from input if there is no $USER variable *)
IF ~(UserDetails.GetUsername(user)) THEN IF ~(vpkUserDetails.GetUsername(user)) THEN
Out.String("username: "); In.Line(user); Out.String("username: "); In.Line(user);
END; END;
@ -37,6 +55,11 @@ ELSIF Files.Old(confDir) # NIL THEN
END; END;
Out.String(user); Out.Ln; Out.String(user); Out.Ln;
END main;
BEGIN
main();
END Vipack. END Vipack.