From: Daniel Liu <mr.picklepinosaur@gmail.com>
Date: Fri, 30 Apr 2021 23:19:36 +0000 (-0400)
Subject: init
X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=commitdiff_plain;h=2c8009b8a19ed364cbe6bce607c8a6745d2dd5c0

init
---

2c8009b8a19ed364cbe6bce607c8a6745d2dd5c0
diff --git a/ekitai.hs b/ekitai.hs
new file mode 100644
index 0000000..9f24440
--- /dev/null
+++ b/ekitai.hs
@@ -0,0 +1,38 @@
+import System.Console.GetOpt
+import System.Environment
+import System.Exit
+import Data.Maybe
+import Data.Either
+
+data Flag 
+
+data Options = Options
+    { optHelp       :: Bool
+    , optColor      :: Bool
+    }
+
+defaultOptions = Options
+    { optHelp       = False
+    , optColor      = False
+    }
+
+options :: [OptDescr (Options -> Options)]
+options =
+    [ Option ['h'] ["help"]
+        (NoArg (\ opts -> opts { optHelp = True }))
+        "display's this message"
+    , Option ['c'] ["color", "colour"]
+        (NoArg (\ opts -> opts { optColor = True }))
+        "enables color"
+    ]
+
+ekitaiOpts :: [String] -> Either String (Options, String)
+ekitaiOpts argv =
+    case getOpt RequireOrder options argv of
+        (o, n, []) -> undefined
+        (_, _, err) -> Left "invalid"
+
+main = do
+    argv <- getArgs
+    return 0
+
diff --git a/readme.md b/readme.md
new file mode 100644
index 0000000..e866d39
--- /dev/null
+++ b/readme.md
@@ -0,0 +1,4 @@
+# 液体「ekitai」
+
+ekitai.hs is a terminal fluid simulator written in haskell. It is a submission to RUHacks 2021.
+