From f7be2d452ea2c9bde23132898f3ce56a557262d3 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 25 Feb 2015 07:43:35 +0900 Subject: [PATCH] Adding missing emscripten files. Fixes issue #247. --- lib/chibi/emscripten.scm | 2 ++ lib/chibi/emscripten.sld | 8 ++++++++ lib/chibi/emscripten.stub | 7 +++++++ 3 files changed, 17 insertions(+) create mode 100644 lib/chibi/emscripten.scm create mode 100644 lib/chibi/emscripten.sld create mode 100644 lib/chibi/emscripten.stub diff --git a/lib/chibi/emscripten.scm b/lib/chibi/emscripten.scm new file mode 100644 index 00000000..54711e9f --- /dev/null +++ b/lib/chibi/emscripten.scm @@ -0,0 +1,2 @@ +(define (wait-on-event!) (%call/cc abort)) + diff --git a/lib/chibi/emscripten.sld b/lib/chibi/emscripten.sld new file mode 100644 index 00000000..cbfbbde3 --- /dev/null +++ b/lib/chibi/emscripten.sld @@ -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")))) diff --git a/lib/chibi/emscripten.stub b/lib/chibi/emscripten.stub new file mode 100644 index 00000000..240f6051 --- /dev/null +++ b/lib/chibi/emscripten.stub @@ -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))))