git.iko.soy/elk
on master help sign in
Merge branch 'dev' of https://github.com/evancz/Elm into dev
commit3d7da5678285382415b4a1ba46dd34e81476381c authorevancz <info@elm-lang.org> dateFri 15 Mar 2013, 10:56 (14 years ago) parent481c2da39fcc82
3 files changed+74−50
compare with master
unifiedsplit
Build.hs−46 compiler/Elm.cabal+3−3 compiler/Setup.hs+71−1
Build.hsdeleted−46
@@ -1,46 +0,0 @@
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".
4−
5−import System.Cmd
6−import System.Directory
7−import System.Exit
8−import System.FilePath
9−import System.IO
10−import Language.Elm
11−
12−rts = "compiler" </> "elm-runtime.js"
13−types = "compiler" </> "types.json"
14−
15−getFiles ext dir = do
16− contents <- map (dir </>) `fmap` getDirectoryContents dir
17− let files = filter (\f -> takeExtension f == ext) contents
18− dirs = filter (not . hasExtension) contents
19− filess <- mapM (getFiles ext) dirs
20− return (files ++ concat filess)
21−
22−appendJS file = do
23− putStrLn (dropExtension file)
24− str <- readFile file
25− length str `seq` return ()
26− appendFile rts str
27−
28−appendElm file = do
29− system ("elm --only-js " ++ file)
30− let jsFile = replaceExtension file ".js"
31− appendJS jsFile
32− removeFile jsFile
33−
34−main = do
35− writeFile rts "Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {};\n\
36− \Elm.Graphics = {}; ElmRuntime = {}; ElmRuntime.Render = {}\n"
37− mapM_ appendJS =<< getFiles ".js" "libraries"
38− files <- getFiles ".elm" "libraries"
39− mapM_ appendElm files
40− mapM_ appendJS =<< getFiles ".js" "runtime"
41− putStrLn "\n+------------------------------------------+\
42− \\n| Success building runtime and libraries! |\
43− \\n+------------------------------------------+\n"
44− system ("elm-doc " ++ unwords files ++ " > " ++ types)
45− system ("cabal install compiler" </> "Elm.cabal")
46− exitSuccess
compiler/Elm.cabal+3−3
@@ -1,4 +1,3 @@
1−
21Name: Elm
32Version: 0.8
43Synopsis: The Elm language module.
@@ -19,10 +18,11 @@ Copyright: Copyright: (c) 2011-2012 Evan Czaplicki
1918
2019Category: Compiler, Language
2120
22−Build-type: Simple
21+Build-type: Custom
2322
2423Extra-source-files: changelog.txt
25−Data-files: elm-runtime.js
24+Data-dir: dist/data
25+Data-files: elm-runtime.js types.json
2626Cabal-version: >=1.8
2727
2828source-repository head
compiler/Setup.hs+71−1
@@ -1,2 +1,72 @@
11import Distribution.Simple
2−main = defaultMain
2+import Distribution.Simple.LocalBuildInfo
3+import Distribution.Simple.Setup
4+import Distribution.PackageDescription
5+
6+import System.Cmd
7+import System.Directory
8+import System.FilePath
9+import System.IO
10+
11+-- Add a post-build callout.
12+-- We need to build the runtime.js after we've built elm,
13+-- but before cabal does the install file copy step
14+
15+main :: IO ()
16+main = defaultMainWithHooks simpleUserHooks { postBuild = myPostBuild }
17+
18+-- Care! This appears to be based on an unstable API
19+-- See: http://www.haskell.org/cabal/release/cabal-latest/doc/API/Cabal/Distribution-Simple.html#2
20+
21+myPostBuild :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
22+myPostBuild as bfs pd lbi = do
23+ putStrLn "Custom build step started"
24+ buildRuntime lbi
25+ buildTypes lbi
26+ postBuild simpleUserHooks as bfs pd lbi
27+
28+-- put js file in dist folder so git doesn't notice
29+rtsDir = "dist" </> "data"
30+
31+rts = rtsDir </> "elm-runtime.js"
32+types = rtsDir </> "types.json"
33+
34+-- buildDir with LocalBuildInfo points to "dist/build" (usually)
35+elm lbi = (buildDir lbi) </> "elm" </> "elm"
36+elm_doc lbi = (buildDir lbi) </> "elm-doc" </> "elm-doc"
37+
38+
39+getFiles ext dir = do
40+ contents <- map (dir </>) `fmap` getDirectoryContents dir
41+ let files = filter (\f -> takeExtension f == ext) contents
42+ dirs = filter (not . hasExtension) contents
43+ filess <- mapM (getFiles ext) dirs
44+ return (files ++ concat filess)
45+
46+appendJS file = do
47+ putStrLn (dropExtension file)
48+ str <- readFile file
49+ length str `seq` return ()
50+ appendFile rts str
51+
52+appendElm lbi file = do
53+ system ((show $ elm lbi) ++ " --only-js " ++ file)
54+ let jsFile = replaceExtension file ".js"
55+ appendJS jsFile
56+ removeFile jsFile
57+
58+buildRuntime lbi = do
59+ createDirectoryIfMissing False rtsDir -- dist should already exist
60+ writeFile rts "Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {};\n\
61+ \Elm.Graphics = {}; ElmRuntime = {}; ElmRuntime.Render = {}\n"
62+ mapM_ appendJS =<< getFiles ".js" "../libraries"
63+ mapM_ (appendElm lbi) =<< getFiles ".elm" "../libraries"
64+ mapM_ appendJS =<< getFiles ".js" "../runtime"
65+ putStrLn "\n+------------------------------------------+\
66+ \\n| Success building runtime and libraries! |\
67+ \\n+------------------------------------------+\n"
68+
69+buildTypes lbi = do
70+ files <- getFiles ".elm" "../libraries"
71+ system ((show $ elm_doc lbi) ++ " " ++ unwords files ++ " > " ++ types)
72+ putStrLn "Custom build step completed: elm-doc"