-- SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
-- For more information, please refer to <https://unlicense.org/>
-- SPDX-License-Identifier: Unlicense

module Main where

import System.Environment

import qualified Language.Equipage as Equipage
import qualified Language.EquipageQ as EquipageQ


main = do
    args <- getArgs
    case args of
        ["-Q", fileName] -> do
            c <- readFile fileName
            putStrLn $ show $ EquipageQ.interp c []
            return ()
        [fileName] -> do
            c <- readFile fileName
            putStrLn $ show $ Equipage.interp c []
            return ()
        _ -> do
            putStrLn "Usage: equipage [-Q] <equipage-program-text-filename>"