diff options
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 130 |
1 files changed, 67 insertions, 63 deletions
diff --git a/Biz/Bild.hs b/Biz/Bild.hs index 06c102f..2b7a2e1 100644 --- a/Biz/Bild.hs +++ b/Biz/Bild.hs @@ -51,6 +51,10 @@ -- -- * -o = optimize level -- +-- * the build is planned out with an analysis, which can be viewed +-- beforehand with `--json`. The analysis includes compiler flags, which +-- can be used in `repl` for testing compilation locally. +-- -- == Example Commands -- -- > bild [opts] <target..> @@ -58,7 +62,8 @@ -- The general scheme is to build the things described by the targets. A target -- is a namespace. You can list as many as you want, but you must list at least -- one. It could just be `:!bild %` in vim to build whatever you're working on, --- or `bild **/*` to build everything. +-- or `bild **/*` to build everything, or `fd .hs -X bild` to build all Haskell +-- files. -- -- Build outputs will go into the `_` directory in the root of the project. -- @@ -136,8 +141,7 @@ main = Cli.main <| Cli.Plan help move test_ pure root <- Env.getEnv "BIZ_ROOT" let Just ns = Namespace.fromPath root "Biz/Bild.hs" analyze mempty ns - /> Map.elems - +> traverse (build False False) + +> build False False +> \case [Exit.ExitFailure _] -> Test.assertFailure "can't bild bild" @@ -157,18 +161,17 @@ move args = do /> catMaybes +> foldM analyze mempty /> Map.filter (namespace .> isBuildableNs) - /> Map.elems +> printOrBuild +> exitSummary where - printOrBuild :: [Target] -> IO [ExitCode] + printOrBuild :: Analysis -> IO [ExitCode] printOrBuild targets | args `Cli.has` Cli.longOption "json" = - Log.wipe >> traverse_ putJSON targets >> pure [Exit.ExitSuccess] + Log.wipe >> putJSON targets >> pure [Exit.ExitSuccess] | otherwise = do root <- Env.getEnv "BIZ_ROOT" createHier root - traverse (build isTest isLoud) targets + build isTest isLoud targets isTest = args `Cli.has` Cli.longOption "test" isLoud = args `Cli.has` Cli.longOption "loud" putJSON = Aeson.encode .> ByteString.toStrict .> Char8.putStrLn @@ -188,7 +191,7 @@ Usage: Options: --test Run tests on a target after building --loud Show all output from compiler - --json Only analyze and print as JSON, don't build + --json Print the build plan as JSON, don't build -h, --help Print this info |] @@ -596,62 +599,63 @@ test loud Target {..} = case compiler of >> Log.br >> pure Exit.ExitSuccess -build :: Bool -> Bool -> Target -> IO Exit.ExitCode -build andTest loud target@Target {..} = do +build :: Bool -> Bool -> Analysis -> IO [Exit.ExitCode] +build andTest loud analysis = do root <- Env.getEnv "BIZ_ROOT" - case compiler of - Gcc -> - Log.info ["bild", label, "gcc", nschunk namespace] - >> proc loud namespace "gcc" compilerFlags - where - label = case out of - Bin _ -> "bin" - _ -> "lib" - GhcExe -> do - Log.info ["bild", "dev", "ghc-exe", nschunk namespace] - exitcode <- proc loud namespace "ghc" compilerFlags - if andTest && isSuccess exitcode - then test loud target - else pure exitcode - GhcLib -> do - Log.info ["bild", "dev", "ghc-lib", nschunk namespace] - proc - loud - namespace - "ghc" - compilerFlags - Guile -> do - Log.info ["bild", "dev", "guile", nschunk namespace] - _ <- proc loud namespace "guild" compilerFlags - when (out /= None) <| do - writeFile - (root </> outdir out) - <| Text.pack - <| joinWith - "\n" - [ "#!/usr/bin/env bash", - "guile -C \"" - <> root </> intdir - <> "\" -e main " - <> "-s " - <> Namespace.toPath namespace - <> " \"$@\"" - ] - p <- Dir.getPermissions <| root </> outdir out - Dir.setPermissions (root </> outdir out) (Dir.setOwnerExecutable True p) - pure Exit.ExitSuccess - NixBuild -> do - Log.info ["bild", "nix", builder, nschunk namespace] - proc loud namespace "nix-build" compilerFlags - Copy -> do - Log.warn ["bild", "copy", "TODO", nschunk namespace] - pure Exit.ExitSuccess - Rustc -> do - Log.info ["bild", "dev", "rust", nschunk namespace] - proc loud namespace "rustc" compilerFlags - Sbcl -> do - Log.info ["bild", "dev", "lisp", nschunk namespace] - proc loud namespace "sbcl" compilerFlags + forM (Map.elems analysis) <| \target@Target {..} -> do + case compiler of + Gcc -> + Log.info ["bild", label, "gcc", nschunk namespace] + >> proc loud namespace "gcc" compilerFlags + where + label = case out of + Bin _ -> "bin" + _ -> "lib" + GhcExe -> do + Log.info ["bild", "dev", "ghc-exe", nschunk namespace] + exitcode <- proc loud namespace "ghc" compilerFlags + if andTest && isSuccess exitcode + then test loud target + else pure exitcode + GhcLib -> do + Log.info ["bild", "dev", "ghc-lib", nschunk namespace] + proc + loud + namespace + "ghc" + compilerFlags + Guile -> do + Log.info ["bild", "dev", "guile", nschunk namespace] + _ <- proc loud namespace "guild" compilerFlags + when (out /= None) <| do + writeFile + (root </> outdir out) + <| Text.pack + <| joinWith + "\n" + [ "#!/usr/bin/env bash", + "guile -C \"" + <> root </> intdir + <> "\" -e main " + <> "-s " + <> Namespace.toPath namespace + <> " \"$@\"" + ] + p <- Dir.getPermissions <| root </> outdir out + Dir.setPermissions (root </> outdir out) (Dir.setOwnerExecutable True p) + pure Exit.ExitSuccess + NixBuild -> do + Log.info ["bild", "nix", builder, nschunk namespace] + proc loud namespace "nix-build" compilerFlags + Copy -> do + Log.warn ["bild", "copy", "TODO", nschunk namespace] + pure Exit.ExitSuccess + Rustc -> do + Log.info ["bild", "dev", "rust", nschunk namespace] + proc loud namespace "rustc" compilerFlags + Sbcl -> do + Log.info ["bild", "dev", "lisp", nschunk namespace] + proc loud namespace "sbcl" compilerFlags data Proc = Proc { loud :: Bool, |