Added main module logic

This commit is contained in:
Ruben Shekspir 2019-04-28 16:38:53 +04:00
parent 39873387e1
commit 83ebcf1b6e
3 changed files with 32 additions and 9 deletions

29
opium.Mod Normal file
View file

@ -0,0 +1,29 @@
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.