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

View file

@ -1,7 +0,0 @@
MODULE opium;
IMPORT
Args,
PackageFileParser
BEGIN
END opium.

View file

@ -9,13 +9,14 @@ all:
../diaspora2hugo/src/lists/Sys.Mod \
../diaspora2hugo/src/lists/List.Mod \
../CharacterStack.Mod \
../JsonParser.Mod -m
../JsonParser.Mod \
../opium.Mod -m
clean:
cd builds && rm * &
run:
./builds/JsonParser
./builds/opium install
test: clean all run

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.