mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
parent
956b968ab4
commit
f7be2d452e
3 changed files with 17 additions and 0 deletions
2
lib/chibi/emscripten.scm
Normal file
2
lib/chibi/emscripten.scm
Normal file
|
@ -0,0 +1,2 @@
|
|||
(define (wait-on-event!) (%call/cc abort))
|
||||
|
8
lib/chibi/emscripten.sld
Normal file
8
lib/chibi/emscripten.sld
Normal file
|
@ -0,0 +1,8 @@
|
|||
(define-library (chibi emscripten)
|
||||
(cond-expand
|
||||
(emscripten
|
||||
(import (chibi) (chibi ast))
|
||||
(export eval-script! integer-eval-script string-eval-script
|
||||
wait-on-event!)
|
||||
(include "emscripten.scm")
|
||||
(include-shared "emscripten"))))
|
7
lib/chibi/emscripten.stub
Normal file
7
lib/chibi/emscripten.stub
Normal file
|
@ -0,0 +1,7 @@
|
|||
(cond-expand
|
||||
(emscripten
|
||||
(c-system-include "emscripten.h")
|
||||
|
||||
(define-c void (eval-script! "emscripten_run_script") (string))
|
||||
(define-c int (integer-eval-script "emscripten_run_script_int") (string))
|
||||
(define-c string (string-eval-script "emscripten_run_script_string") (string))))
|
Loading…
Add table
Reference in a new issue