git.iko.soy/elk
on 609dc36 help sign in
elk/Build.hs
43 lines 1.4 kB history raw
1-- This file compiles all library and runtime code
2-- into compiler/elm-runtime.js. It then rebuilds the compiler.
3-- Run it with the command "runHaskell Build.hs".
5import System.Cmd
6import System.Directory
7import System.Exit
8import System.FilePath
9import System.IO
10import Language.Elm
12rts = "compiler" </> "elm-runtime.js"
14getFiles ext dir = do
15 contents <- map (dir </>) `fmap` getDirectoryContents dir
16 let files = filter (\f -> takeExtension f == ext) contents
17 dirs = filter (not . hasExtension) contents
18 filess <- mapM (getFiles ext) dirs
19 return (files ++ concat filess)
21appendJS file = do
22 putStrLn (dropExtension file)
23 str <- readFile file
24 length str `seq` return ()
25 appendFile rts str
27appendElm file = do
28 system ("elm --only-js " ++ file)
29 let jsFile = replaceExtension file ".js"
30 appendJS jsFile
31 removeFile jsFile
33main = do
34 writeFile rts "Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {};\n\
35 \Elm.Graphics = {}; ElmRuntime = {}; ElmRuntime.Render = {}\n"
36 mapM_ appendJS =<< getFiles ".js" "libraries"
37 mapM_ appendElm =<< getFiles ".elm" "libraries"
38 mapM_ appendJS =<< getFiles ".js" "runtime"
39 putStrLn "\n+------------------------------------------+\
40 \\n| Success building runtime and libraries! |\
41 \\n+------------------------------------------+\n"
42 system ("cabal install compiler" </> "Elm.cabal")
43 exitSuccess