@raviqqe/stak 0.3.13 → 0.3.15

package/README.md

@@ -12,6 +12,7 @@ Stak Scheme aims to be:
 - An embeddable Scheme interpreter for Rust with very small memory footprint and reasonable performance
 - The minimal implementation of [the R7RS-small standard][r7rs-small]
   - A subset of [Chibi Scheme](https://github.com/ashinn/chibi-scheme), [Gauche](https://github.com/shirok/Gauche), and [Guile](https://www.gnu.org/software/guile/)
+- A portable scripting environment that supports even no-`std` and no-`alloc` platforms
 
 For more information and usage, visit [the full documentation](https://raviqqe.github.io/stak/install).
 
@@ -24,6 +25,7 @@ To install Stak Scheme as a library in your Rust project, run:
 ```sh
 cargo add stak
 cargo add --build stak-build
+cargo install stak-compile
 ```
 
 For full examples, see [the `examples` directory](https://github.com/raviqqe/stak/tree/main/examples).
@@ -130,7 +132,7 @@ const HEAP_SIZE: usize = 1 << 16;
 static MODULE: UniversalModule = include_module!("fibonacci.scm");
 
 fn main() -> Result<(), Box<dyn Error>> {
-    let input = 24;
+    let input = 15;
     let mut output = vec![];
     let mut error = vec![];
 
@@ -141,8 +143,8 @@ fn main() -> Result<(), Box<dyn Error>> {
         return Err(str::from_utf8(&error)?.into());
     }
 
-    // Decode and print the output.
-    println!("Answer: {}", isize::from_str(&str::from_utf8(&output)?)?);
+    // Decode and test the output.
+    assert_eq!(isize::from_str(&str::from_utf8(&output)?)?, 610);
 
     Ok(())
 }

package/package.json

@@ -1,8 +1,8 @@
 {
   "name": "@raviqqe/stak",
   "type": "module",
-  "description": "Stak Scheme VM in WebAssembly",
-  "version": "0.3.13",
+  "description": "Stak Scheme in WebAssembly",
+  "version": "0.3.15",
   "license": "SEE LICENSE IN ../LICENSE",
   "repository": {
     "type": "git",

package/stak_wasm.d.ts

@@ -1,13 +1,17 @@
 /* tslint:disable */
 /* eslint-disable */
 /**
- * Compiles a source code.
+ * Compiles source codes in Scheme.
  */
 export function compile(source: string): Uint8Array;
 /**
- * Interprets bytecodes with a standard input and returns its standard output.
+ * Interprets bytecodes with standard input and returns its standard output.
  */
 export function interpret(bytecodes: Uint8Array, input: Uint8Array, heap_size: number): Uint8Array;
+/**
+ * Runs a Scheme script with standard input and returns its standard output.
+ */
+export function run(source: string, input: Uint8Array, heap_size: number): Uint8Array;
 
 export type InitInput = RequestInfo | URL | Response | BufferSource | WebAssembly.Module;
 
@@ -15,6 +19,7 @@ export interface InitOutput {
   readonly memory: WebAssembly.Memory;
   readonly compile: (a: number, b: number) => [number, number, number, number];
   readonly interpret: (a: number, b: number, c: number, d: number, e: number) => [number, number, number, number];
+  readonly run: (a: number, b: number, c: number, d: number, e: number) => [number, number, number, number];
   readonly __wbindgen_export_0: WebAssembly.Table;
   readonly __wbindgen_malloc: (a: number, b: number) => number;
   readonly __wbindgen_realloc: (a: number, b: number, c: number, d: number) => number;

package/stak_wasm.js

@@ -85,7 +85,7 @@ function getArrayU8FromWasm0(ptr, len) {
     return getUint8ArrayMemory0().subarray(ptr / 1, ptr / 1 + len);
 }
 /**
- * Compiles a source code.
+ * Compiles source codes in Scheme.
  * @param {string} source
  * @returns {Uint8Array}
  */
@@ -108,7 +108,7 @@ function passArray8ToWasm0(arg, malloc) {
     return ptr;
 }
 /**
- * Interprets bytecodes with a standard input and returns its standard output.
+ * Interprets bytecodes with standard input and returns its standard output.
  * @param {Uint8Array} bytecodes
  * @param {Uint8Array} input
  * @param {number} heap_size
@@ -128,6 +128,27 @@ export function interpret(bytecodes, input, heap_size) {
     return v3;
 }
 
+/**
+ * Runs a Scheme script with standard input and returns its standard output.
+ * @param {string} source
+ * @param {Uint8Array} input
+ * @param {number} heap_size
+ * @returns {Uint8Array}
+ */
+export function run(source, input, heap_size) {
+    const ptr0 = passStringToWasm0(source, wasm.__wbindgen_malloc, wasm.__wbindgen_realloc);
+    const len0 = WASM_VECTOR_LEN;
+    const ptr1 = passArray8ToWasm0(input, wasm.__wbindgen_malloc);
+    const len1 = WASM_VECTOR_LEN;
+    const ret = wasm.run(ptr0, len0, ptr1, len1, heap_size);
+    if (ret[3]) {
+        throw takeFromExternrefTable0(ret[2]);
+    }
+    var v3 = getArrayU8FromWasm0(ret[0], ret[1]).slice();
+    wasm.__wbindgen_free(ret[0], ret[1] * 1, 1);
+    return v3;
+}
+
 async function __wbg_load(module, imports) {
     if (typeof Response === 'function' && module instanceof Response) {
         if (typeof WebAssembly.instantiateStreaming === 'function') {