-- |qvmgen generates Quake VM code and documentation based on builtins, extensions, etc.module Main (main) where import qualified Control.Monad.Parallel as P import Read import qualified System.Console.GetOpt as Gimport System.Environment (getArgs) -- |Command line options.data Flag = Input FilePath          | Output FilePath          deriving Eq options :: [G.OptDescr Flag]options =  [ G.Option ['i'] ["input"]   (G.ReqArg Input "INPUT")   "input source filename"  , G.Option ['o'] ["output"]  (G.ReqArg Output "OUTPUT") "output source filename"  ] -- |qvmgen options parser.qvmgenOpts :: [String] -> IO ([Flag], [String])qvmgenOpts argv =  case G.getOpt G.RequireOrder options argv of    (o, n, [])   -> return (o, n)    (_, _, errs) -> ioError (userError $ concat errs ++ G.usageInfo header options)      where header = "Usage: qvmgen [OPTION...] -- CFLAGS..." main :: IO ()main = do  (args, cflags) <- getArgs >>= qvmgenOpts  io <- return $ zip [x | Input x <- args] [x | Output x <- args]  P.sequence_ $ map (\(source, _) -> readFrom cflags source) io