application/octet-stream
•
2.34 KB
•
62 lines
; Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
; This project uses the MIT license, a copy should be included under /LICENSE
[def test-context "Nujel Standalone"]
[defn help [i]
"Describe 10 functions at offset 1"
[when-not [int? i] [set! i [int i]]]
[def off [* i 10]]
[for-each [map [symbol-table off 10] string]
[fn [l] [def desc [describe l]]
[pfmtln "{l} {desc}"]]]
[def sc [/ [symbol-count] 10]]
[pfmtln "Help page {i} of {sc}"]]
[defn file/compile [path no-write environment]
"Compile a Nujel source file into optimized object code"
[def source [cons 'do [read [file/read path]]]]
[def object-code [compile/forms source environment]]
[when-not no-write [file/write [if object-code [str/write object-code] ""]
[cat [path/without-extension path] ".no"]]]
object-code]
[defn file/eval [path environment]
"Evaluate a Nujel source file in the current context"
[when-not environment [set! environment root-closure]]
[def source [cons 'do [read [file/read path]]]]
[compile/forms [cons 'do source] environment]]
[defn file/eval/bytecode [path]
"Evaluate a Nujel source file in the current context"
[def source [cons 'do [read [file/read path]]]]
[def bc [assemble [bytecompile [compile [cons 'do source]]]]]
[disassemble/raw bc]
[bytecode-eval bc]]
[defn eval/forked [nujel-binary raw-expr]
"Evaluate @EXPR in a separate process running NUJEL-BINARY"
[def expr [cat "[print [str/write " [str/write raw-expr]] "]] "]
[def tmp-path [file/temp expr]]
[def command [cat nujel-binary " " tmp-path]]
[def res [popen command]]
[file/remove tmp-path]
[cons [car res] [cdr res]]]
[defn file/file? [filename]
[ref [file/stat filename] :regular-file?]]
[defn file/dir? [filename]
[ref [file/stat filename] :directory?]]
[defn directory/read-relative [path]
[map [directory/read path]
[fn [a]
[cat path "/" a]]]]
[defn directory/read-recursive [path]
[flatten [map [directory/read-relative path]
[fn [A] [if [file/dir? A]
[directory/read-recursive A]
A]]]]]
