mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
Added main module logic
This commit is contained in:
parent
39873387e1
commit
83ebcf1b6e
3 changed files with 32 additions and 9 deletions
|
|
@ -1,7 +0,0 @@
|
|||
MODULE opium;
|
||||
IMPORT
|
||||
Args,
|
||||
PackageFileParser
|
||||
BEGIN
|
||||
|
||||
END opium.
|
||||
5
makefile
5
makefile
|
|
@ -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
29
opium.Mod
Normal 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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue