|
266 | 266 | (def bd (build-dir))
|
267 | 267 | (def rules (get-rules))
|
268 | 268 | # Initialize build rules
|
269 |
| - (build-rules/build-rule rules :install []) |
| 269 | + (build-rules/build-rule rules :install ["build" "pre-install"]) |
270 | 270 | (build-rules/build-rule rules :pre-install [])
|
271 |
| - (build-rules/build-rule rules :post-install []) |
272 | 271 | (build-rules/build-rule rules :build [])
|
273 | 272 | (build-rules/build-rule rules :pre-build [])
|
274 |
| - (build-rules/build-rule rules :post-build []) |
275 |
| - (build-rules/build-rule rules :check []) |
276 | 273 | (build-rules/build-rule rules :pre-check [])
|
277 |
| - (build-rules/build-rule rules :post-check []) |
278 | 274 | # Add hooks
|
279 | 275 | (def e (curenv))
|
280 | 276 | (defn- prebuild
|
|
283 | 279 | (os/mkdir bd)
|
284 | 280 | (os/mkdir (path/join bd "static"))
|
285 | 281 | (build-rules/build-run e "pre-build" (dyn :workers)))
|
286 |
| - (defn- postbuild |
287 |
| - [] |
288 |
| - (build-rules/build-run e "post-build" (dyn :workers))) |
289 | 282 | (defn- precheck
|
290 | 283 | []
|
291 | 284 | (build-rules/build-run e "pre-check" (dyn :workers)))
|
292 |
| - (defn- postcheck |
293 |
| - [] |
294 |
| - (build-rules/build-run e "post-check" (dyn :workers))) |
295 |
| - (defn- preinstall |
296 |
| - [] |
297 |
| - (build-rules/build-run e "pre-install" (dyn :workers))) |
298 |
| - (defn- postinstall |
299 |
| - [] |
300 |
| - (build-rules/build-run e "post-install" (dyn :workers))) |
301 |
| - (defn- preclean |
302 |
| - [] |
303 |
| - (build-rules/build-run e "pre-clean" (dyn :workers))) |
304 |
| - (defn- postclean |
305 |
| - [] |
306 |
| - (build-rules/build-run e "post-clean" (dyn :workers))) |
307 | 285 | (defn build [&opt man target]
|
308 | 286 | (prebuild)
|
309 | 287 | (default target "build")
|
310 |
| - (build-rules/build-run e target (dyn :workers)) |
311 |
| - (postbuild)) |
| 288 | + (build-rules/build-run e target (dyn :workers))) |
312 | 289 | (defn install [manifest &]
|
313 |
| - # (build) - removed since install in janet/src/boot/boot.janet calls build in the install hook |
314 |
| - (preinstall) |
| 290 | + (build) |
315 | 291 | (with-dyns [*install-manifest* manifest]
|
316 |
| - (build-rules/build-run e "install" (dyn :workers))) |
317 |
| - (postinstall)) |
| 292 | + (build-rules/build-run e "install" (dyn :workers)))) |
318 | 293 | (defn check [&]
|
319 | 294 | (build)
|
320 | 295 | (precheck)
|
321 |
| - (run-tests) |
322 |
| - (postcheck)) |
| 296 | + (run-tests)) |
323 | 297 | (defn list-rules [&]
|
324 | 298 | (each k (sorted (filter string? (keys rules)))
|
325 | 299 | (print k)))
|
326 | 300 | (defn rule-tree [&]
|
327 | 301 | (show-rule-tree rules))
|
328 | 302 | (defn clean [&]
|
329 |
| - (preclean) |
330 | 303 | (print "removing directory " bd)
|
331 |
| - (sh/rm bd) |
332 |
| - (postclean)) |
| 304 | + (sh/rm bd)) |
333 | 305 | (defn clean-all [&]
|
334 |
| - (preclean) |
335 | 306 | (print "removing directory " br)
|
336 |
| - (sh/rm br) |
337 |
| - (postclean)) |
| 307 | + (sh/rm br)) |
338 | 308 | (defn run-task [task]
|
| 309 | + (prebuild) |
339 | 310 | (build-rules/build-run e task (dyn :workers)))
|
340 | 311 | (defglobal 'install install)
|
341 | 312 | (defglobal 'build build)
|
|
0 commit comments