twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

build

Browse Source
This commit is contained in:
Scott Richmond 2024-08-01 17:45:09 -04:00
parent d9e0fd23ec
commit 7f64164078
5 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/ludus.jimage
View File

Binary file not shown.

2
build/out.mjs
View File

@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])(); var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1); var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5); var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816028; var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816104;
function invoke_i(index) { function invoke_i(index) {
var sp = stackSave(); var sp = stackSave();
try { try {

BIN
build/out.wasm
View File

Binary file not shown.

2
src/base.janet
View File

@ -248,8 +248,6 @@
([e] (break [:err e]))) ([e] (break [:err e])))
[:ok out]) [:ok out])
(math/seedrandom (os/cryptorand 8))
(def ctx { (def ctx {
"add" + "add" +
"and" ludus/and "and" ludus/and

7
src/ludus.janet
View File

@ -11,8 +11,6 @@
(import /src/prelude :as prelude) (import /src/prelude :as prelude)
(import /src/json :as j) (import /src/json :as j)
(math/seedrandom (os/cryptorand 8))
(defn ludus [source] (defn ludus [source]
(when (= :error prelude/pkg) (error "could not load prelude")) (when (= :error prelude/pkg) (error "could not load prelude"))
(def ctx @{:^parent prelude/ctx}) (def ctx @{:^parent prelude/ctx})
@ -39,8 +37,9 @@
(each err (validated :errors) (each err (validated :errors)
(e/validation-error err)) (e/validation-error err))
(break (-> out j/encode string))) (break (-> out j/encode string)))
(try (try (do
(set result (i/interpret (parsed :ast) ctx)) (math/seedrandom (os/cryptorand 8))
(set result (i/interpret (parsed :ast) ctx)))
([err] ([err]
(e/runtime-error err) (e/runtime-error err)
(break (-> out j/encode string)))) (break (-> out j/encode string))))