#!/usr/bin/env cabal
{- cabal:
build-depends: base
             , directory
             , filepath
             , shake
             , unix
-}

import Control.Exception (throw)
import Control.Monad (forM_, unless)
import Data.Functor
import Data.Maybe
import Development.Shake
import System.Directory (getCurrentDirectory, setCurrentDirectory)
import System.Environment (getArgs, lookupEnv, withArgs)
import System.FilePath
import System.Posix.User (getRealUserID)

-- | Id of current user
type UID = String

options =
    shakeOptions
        { -- Generate a report that can be opened in a browser to analyze build
          shakeReport = ["report.html"]
        , -- Use all CPUs provided by the platform
          shakeThreads = 0
        , -- Put Shake's database in directory '_build'
          shakeFiles = "_build"
        , shakeVerbosity = Diagnostic
        }

install :: IO ()
install = do
    setCurrentDirectory "lambda-calcul/haskell"
    pwd <- getCurrentDirectory
    uid <- show . toInteger <$> getRealUserID
    putStrLn $ "Building mli in directory " <> pwd <> " as user " <> uid
    args <- getArgs
    withArgs args $ runShake pwd uid

runShake :: FilePath -> UID -> IO ()
runShake pwd uid = shakeArgs options $ do
    let needHaskellSources = do
            needDirectoryFiles
                "."
                [ "src//*.hs"
                , "test//*.hs"
                , "data//*.*"
                , "app//*.hs"
                ]
            need ["minilang.cabal"]

    want ["bin/mli"]

    "bin/mli" %> \bin -> do
        needHaskellSources
        cmd_ "cabal" ["build", "all"]
        cmd_ "cabal" ["test", "all"]
        Stdout exePath <- cmd "cabal" ["list-bin", "mli"]
        dirExists <- doesDirectoryExist "bin"
        unless dirExists $ cmd_ "mkdir" ["bin"]
        cmd_ "cp" [head (lines exePath), bin]

    -- "ui/dist/index.html" %> \_ -> do
    --     needDirectoryFiles
    --         "ui"
    --         [ "src//*.js"
    --         , "src//*.html"
    --         , "src//*.css"
    --         , "package.json"
    --         , "webpack.config.js"
    --         , ".babelrc"
    --         ]
    --     cmd_ (Cwd "ui") "npm" ["i"]
    --     cmd (Cwd "ui") "npm" ["run", "all"]

needDirectoryFiles dir patterns =
    need =<< getDirectoryFiles "" ((dir </>) <$> patterns)

main = install