mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-06 04:52: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/Sys.Mod \
|
||||||
../diaspora2hugo/src/lists/List.Mod \
|
../diaspora2hugo/src/lists/List.Mod \
|
||||||
../CharacterStack.Mod \
|
../CharacterStack.Mod \
|
||||||
../JsonParser.Mod -m
|
../JsonParser.Mod \
|
||||||
|
../opium.Mod -m
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
cd builds && rm * &
|
cd builds && rm * &
|
||||||
|
|
||||||
run:
|
run:
|
||||||
./builds/JsonParser
|
./builds/opium install
|
||||||
|
|
||||||
test: clean all run
|
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