blob: 0e5d1e229dd55b4902a0675940be0ae00c41a77a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
(.module:
[lux (#- Name)
["." host (#+ import:)]
[abstract
[monad (#+ do)]]
[control
["." try (#+ Try)]
["." exception (#+ exception:)]
["." io (#+ IO)]
[concurrency
["." promise ("#@." monad)]]]
[data
["." product]
["." maybe]
["." text ("#@." equivalence)
["%" format (#+ format)]]
[collection
["." list ("#@." functor)]
["." dictionary]]]
[world
["." file (#+ Path)]]]
["." /// #_
["#" project]
["#." action]
["#." command (#+ Command)]
["#." local]
["#." artifact (#+ Group Name Artifact)]
["#." dependency (#+ Dependency Resolution)]
["#." shell]])
(type: Finder
(-> Resolution (Maybe Dependency)))
(def: (dependency-finder group name)
(-> Group Name Finder)
(|>> dictionary.entries
(list.search (function (_ [dependency package])
(if (and (text@= group (get@ [#///dependency.artifact #///artifact.group] dependency))
(text@= name (get@ [#///dependency.artifact #///artifact.name] dependency)))
(#.Some dependency)
#.None)))))
(def: lux-group
Group
"com.github.luxlang")
(template [<name> <finder>]
[(def: <finder>
Finder
(..dependency-finder ..lux-group <name>))]
["lux-jvm" jvm-compiler]
["lux-js" js-compiler]
)
(exception: #export no-available-compiler)
(exception: #export no-specified-program)
(type: #export Compiler
(#JVM Artifact)
(#JS Artifact))
(def: (remove-dependency dependency)
(-> Dependency (-> Resolution Resolution))
(|>> dictionary.entries
(list.filter (|>> product.left (is? dependency) not))
(dictionary.from-list ///dependency.hash)))
(def: (compiler resolution)
(-> Resolution (Try [Resolution Compiler]))
(case [(..jvm-compiler resolution)
(..js-compiler resolution)]
[(#.Some dependency) _]
(#try.Success [(..remove-dependency dependency resolution)
(#JVM (get@ #///dependency.artifact dependency))])
[_ (#.Some dependency)]
(#try.Success [(..remove-dependency dependency resolution)
(#JS (get@ #///dependency.artifact dependency))])
_
(exception.throw ..no-available-compiler [])))
(def: libraries
(-> Resolution (List Path))
(|>> dictionary.keys
(list.filter (|>> (get@ #///dependency.type) (text@= ///dependency.lux-library)))
(list@map (|>> (get@ #///dependency.artifact) (///local.path file.system)))))
(import: #long java/lang/String)
## https://docs.oracle.com/javase/tutorial/essential/environment/sysprop.html
(import: #long java/lang/System
(#static getProperty [java/lang/String] #io #? java/lang/String))
(def: #export working-directory
(IO (Try Text))
(do io.monad
[?value (java/lang/System::getProperty "user.dir")]
(wrap (#try.Success (maybe.default "~" ?value)))))
(def: (singular-parameter name value)
(-> Text Text Text)
(format name " " value))
(def: (plural-parameter name values)
(-> Text (List Text) Text)
(|> values (list@map (|>> (format name " "))) (text.join-with " ")))
(def: #export (do! project)
(Command [Compiler
Path])
(case (get@ #///.program project)
(#.Some program)
(do ///action.monad
[cache (///local.all-cached (file.async file.system)
(get@ #///.dependencies project)
///dependency.empty)
resolution (promise.future
(///dependency.resolve-all (get@ #///.repositories project)
(get@ #///.dependencies project)
cache))
_ (///local.cache-all (file.async file.system)
resolution)
[resolution compiler] (promise@wrap (..compiler resolution))
working-directory (promise.future ..working-directory)
#let [libraries (..libraries resolution)
[prefix output] (case compiler
(#JVM artifact) [(format "java -jar " (///local.path file.system artifact))
"program.jar"]
(#JS artifact) [(format "node --stack_size=8192 " (///local.path file.system artifact))
"program.js"])
cache-directory (format working-directory (:: file.system separator) (get@ #///.target project))
command (format prefix " build"
" " (..plural-parameter "--library" libraries)
" " (..plural-parameter "--source" (get@ #///.sources project))
" " (..singular-parameter "--target" cache-directory)
" " (..singular-parameter "--module" program))]
#let [_ (log! "[BUILD STARTED]")]
outcome (///shell.execute command working-directory)
#let [_ (log! "[BUILD ENDED]")]]
(wrap [compiler
(format cache-directory (:: file.system separator) output)]))
#.None
(promise@wrap (exception.throw ..no-specified-program []))))
|
