From 83ebcf1b6e8345b6dde774f90a800ff5c0fa2f5d Mon Sep 17 00:00:00 2001
From: Ruben Shekspir <shekspir55@gmail.com>
Date: Sun, 28 Apr 2019 16:38:53 +0400
Subject: [PATCH] Added main module logic

---
 Opium.Mod |  7 -------
 makefile  |  5 +++--
 opium.Mod | 29 +++++++++++++++++++++++++++++
 3 files changed, 32 insertions(+), 9 deletions(-)
 delete mode 100644 Opium.Mod
 create mode 100644 opium.Mod

diff --git a/Opium.Mod b/Opium.Mod
deleted file mode 100644
index bf956c9..0000000
--- a/Opium.Mod
+++ /dev/null
@@ -1,7 +0,0 @@
-MODULE opium;
-IMPORT
-    Args,
-    PackageFileParser
-BEGIN
-
-END opium.
\ No newline at end of file
diff --git a/makefile b/makefile
index 0719970..165c20b 100644
--- a/makefile
+++ b/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
 	
\ No newline at end of file
diff --git a/opium.Mod b/opium.Mod
new file mode 100644
index 0000000..914d978
--- /dev/null
+++ b/opium.Mod
@@ -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.