1 files changed, 82 insertions, 0 deletions
diff --git a/build.hs b/build.hs
new file mode 100755
index 0000000..a27535b
--- /dev/null
+++ b/build.hs
@@ -0,0 +1,82 @@
+#!/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