application/octet-stream
•
2.05 KB
•
44 lines
#!/usr/bin/env nujel
; In here we use our bootstrap runtime to load, eval and finally precompile
; the Nujel standard library, the eval is necessary so we can make use of macros
; that are not within our bootstrap runtime (which is just using an old
; precompiled stdlib).
[def environment [ω]]
[def ext-nuj? [path/ext?! "nuj"]]
[defun directory/read-relative [path]
[-> [directory/read path]
[map [\ [α] [cat path "/" α]]]
[map [\ [α] [if-not [file/dir? α] α
[directory/read-relative α]]]]
[flatten]]]
[def stdlib-files [filter [append [directory/read-relative "stdlib"]
[directory/read-relative "binlib"]]
ext-nuj?]]
; If something happens, we just print the responsible error and exit immediatly,
; since we can't really fix things, we could only make things worse.
[try [\ [err]
[println "Exception during stdlib compilation"]
[display/error err] [exit 2]]
[def file-queue-new stdlib-files]
[def tries 0]
[while file-queue-new
[when [> tries 1000]
[throw [list :too-many-passes "Tried too many times, maybe some strance circular dependencies going on, you are on your own, exiting."]]]
[set! tries [+ 1 tries]]
[def file-queue file-queue-new]
[set! file-queue-new #nil]
[while file-queue
[def cur-path [car file-queue]]
[try [\ [err]
[if [== [car err] :too-many-passes]
[set! file-queue-new [cons cur-path file-queue-new]]
[throw err]]]
[println [cat [ansi-yellow " [EVA] "] cur-path]]
[file/compile cur-path #t environment]]
[set! file-queue [cdr file-queue]]]]
[for-each stdlib-files
[\ [cur-path]
[println [cat [ansi-green " [NUJ] "] cur-path]]
[file/compile cur-path #f environment]]]]
