mirror of
https://github.com/The1Penguin/org-to-mafiauniverse.git
synced 2024-11-22 02:08:13 +00:00
40 lines
884 B
Haskell
40 lines
884 B
Haskell
module Main where
|
|
|
|
import Control.Monad
|
|
import Data.Functor
|
|
import System.Environment
|
|
import System.Exit
|
|
import Text.ParserCombinators.ReadP
|
|
|
|
|
|
|
|
parse :: ReadP String -> String -> String
|
|
parse rules = fst . last .readP_to_S rules
|
|
|
|
main :: IO ()
|
|
main = putStrLn =<< helper =<< getArgs
|
|
|
|
helper :: [String] -> IO String
|
|
helper [] = return usage
|
|
helper (x:[]) = if (head x /= '-')
|
|
then readFile x
|
|
else return $ useArgs $ parse argParse x
|
|
helper (x:_:[]) = return $ useArgs $ parse argParse x
|
|
helper _ = fail "Too many arugemnts"
|
|
|
|
|
|
argParse :: ReadP String
|
|
argParse =
|
|
string "-" >> (many1 (satisfy (/= ' ')))
|
|
|
|
useArgs :: String -> String
|
|
useArgs [] = ""
|
|
useArgs ('h':_) = usage
|
|
useArgs ('v':_) = version
|
|
useArgs (_:xs) = useArgs xs
|
|
|
|
usage :: String
|
|
usage = "Usage: otm [-hv] [file]"
|
|
version :: String
|
|
version = "otm 0.1"
|