add command line tool

2 files changed, 46 insertions, 0 deletions

diff --git a/lambdacube-compiler.cabal b/lambdacube-compiler.cabal
index ad4a64e9..c0fb78c0 100644
--- a/lambdacube-compiler.cabal
+++ b/lambdacube-compiler.cabal
@@ -148,3 +148,17 @@ executable lambdacube-compiler-coverage-test-suite
     text >= 1.2 && <1.3,
     lambdacube-ir,
     vector >= 0.11 && <0.12
+
+
+executable lc
+  hs-source-dirs:   tool
+  main-is:          Compiler.hs
+  default-language: Haskell2010
+
+  -- CAUTION: When the build-depends change, please bump the git submodule in lambdacube-docker repository
+  build-depends:
+    base < 4.9,
+    lambdacube-compiler,
+    optparse-applicative == 0.11.*,
+    aeson == 0.9.*,
+    bytestring == 0.10.*
diff --git a/tool/Compiler.hs b/tool/Compiler.hs
new file mode 100644
index 00000000..2195f0c6
--- /dev/null
+++ b/tool/Compiler.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE RecordWildCards #-}
+import Options.Applicative
+import Data.Aeson
+import qualified Data.ByteString.Lazy as B
+import LambdaCube.Compiler.Driver
+
+data Config
+  = Config
+  { srcName :: String
+  , backend :: Backend
+  }
+
+sample :: Parser Config
+sample = Config
+  <$> argument str (metavar "SOURCE_FILE")
+  <*> flag OpenGL33 WebGL1 (long "webgl" <> help "generate WebGL 1.0 pipeline" )
+
+main :: IO ()
+main = execParser opts >>= compile
+  where
+    opts = info (helper <*> sample)
+      ( fullDesc
+     <> progDesc "compiles LambdaCube graphics pipeline source to JSON IR"
+     <> header "LambdaCube 3D compiler" )
+
+compile :: Config -> IO ()
+compile Config{..} = do
+  pplRes <- compileMain ["."] backend srcName
+  case pplRes of
+    Left err -> putStrLn err
+    Right ppl -> do
+      B.writeFile (srcName <> ".json") $ encode ppl