mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
29 lines
545 B
Modula-2
29 lines
545 B
Modula-2
MODULE opium;
|
|
IMPORT
|
|
Args,
|
|
Logger,
|
|
PackageFileParser,
|
|
Strings;
|
|
CONST
|
|
helpText = "HEEEELP";
|
|
ArrayMaxNumber = 500;
|
|
VAR
|
|
command: ARRAY ArrayMaxNumber OF CHAR;
|
|
|
|
PROCEDURE help();
|
|
BEGIN
|
|
Logger.Log(helpText);
|
|
END help;
|
|
|
|
PROCEDURE parseArgs(VAR argument: ARRAY OF CHAR);
|
|
BEGIN
|
|
COPY("", argument);
|
|
IF Args.argc > 1 THEN Args.Get(1, argument) END;
|
|
|
|
END parseArgs;
|
|
|
|
BEGIN
|
|
IF Strings.Match(command, "") THEN help
|
|
ELSE IF Strings.Match(command, "install") THEN PackageFileParser.install END;
|
|
|
|
END opium.
|