@grain/binaryen.ml 0.9.1 → 0.11.2

binaryen-archive/package.json

@@ -1,43 +0,0 @@
-{
-  "name": "@grain/binaryen.ml",
-  "version": "0.9.1",
-  "description": "OCaml bindings for Binaryen.",
-  "author": "Oscar Spencer <oscar@grain-lang.org>",
-  "license": "Apache-2.0",
-  "dependencies": {
-    "ocaml": ">= 4.9.0 < 4.12.0",
-    "@opam/dune": "^2.7.1",
-    "@opam/dune-configurator": "^2.7.1",
-    "@opam/js_of_ocaml": "^3.6.0",
-    "@opam/js_of_ocaml-ppx": "^3.6.0"
-  },
-  "devDependencies": {
-    "@opam/js_of_ocaml-compiler": "^3.6.0",
-    "@opam/ocamlformat": "^0.15.0",
-    "@opam/ocaml-lsp-server": "^1.1.0"
-  },
-  "esy": {
-    "build": "dune build -p binaryen",
-    "buildEnv": {
-      "DUNE_BUILD_DIR": "#{self.target_dir}",
-      "PATH": "#{os == 'windows' ? '/usr/x86_64-w64-mingw32/sys-root/mingw/bin' : '' : $PATH }"
-    },
-    "exportedEnv": {
-      "PATH": {
-        "val": "#{os == 'windows' ? '/usr/x86_64-w64-mingw32/sys-root/mingw/bin' : '' : $PATH }",
-        "scope": "global"
-      }
-    }
-  },
-  "scripts": {
-    "test": "esy b dune runtest",
-    "format": "dune build @fmt --auto-promote"
-  },
-  "installConfig": {
-    "pnp": false
-  },
-  "keywords": [
-    "binaryen",
-    "ocaml"
-  ]
-}

binaryen-archive/src/binaryen_stubs_expressions.c

@@ -1,410 +0,0 @@
-#define CAML_NAME_SPACE
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-#include <caml/memory.h>
-
-#include "binaryen-c.h"
-#include "ocaml_helpers.h"
-
-
-/* Allocating an OCaml custom block to hold the given BinaryenExpressionRef */
-static value alloc_BinaryenExpressionRef(BinaryenExpressionRef exp)
-{
-  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenExpressionRef), 0, 1);
-  BinaryenExpressionRef_val(v) = exp;
-  return v;
-}
-
-CAMLprim value
-caml_binaryen_null_expression(value unit) {
-  CAMLparam1(unit);
-  CAMLreturn(alloc_BinaryenExpressionRef(NULL));
-}
-
-CAMLprim value
-caml_binaryen_block(value _module, value _name, value _children, value _ty) {
-  CAMLparam4(_module, _name, _children, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  _children = array_of_list(_children);
-  int childLen = array_length(_children);
-  BinaryenExpressionRef children[childLen];
-  for (int i = 0; i < childLen; i++) {
-    children[i] = BinaryenExpressionRef_val(Field(_children, i));
-  }
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef block = BinaryenBlock(module, name, children, childLen, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(block));
-}
-
-CAMLprim value
-caml_binaryen_if(value _module, value _cond, value _tru, value _fals) {
-  CAMLparam4(_module, _cond, _tru, _fals);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef cond = BinaryenExpressionRef_val(_cond);
-  BinaryenExpressionRef tru = BinaryenExpressionRef_val(_tru);
-  BinaryenExpressionRef fals = BinaryenExpressionRef_val(_fals);
-  BinaryenExpressionRef exp = BinaryenIf(module, cond, tru, fals);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_loop(value _module, value _name, value _body) {
-  CAMLparam3(_module, _name, _body);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenExpressionRef body = BinaryenExpressionRef_val(_body);
-  BinaryenExpressionRef exp = BinaryenLoop(module, name, body);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_break(value _module, value _name, value _cond, value _res) {
-  CAMLparam4(_module, _name, _cond, _res);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenExpressionRef cond = BinaryenExpressionRef_val(_cond);
-  BinaryenExpressionRef res = BinaryenExpressionRef_val(_res);
-  BinaryenExpressionRef exp = BinaryenBreak(module, name, cond, res);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_switch(value _module, value _names, value _defaultName, value _cond, value _val) {
-  CAMLparam5(_module, _names, _defaultName, _cond, _val);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  _names = array_of_list(_names);
-  int namesLen = array_length(_names);
-  const char* names[namesLen];
-  for (int i = 0; i < namesLen; i++) {
-    names[i] = Safe_String_val(Field(_names, i));
-  }
-  char* defaultName = Safe_String_val(_defaultName);
-  BinaryenExpressionRef cond = BinaryenExpressionRef_val(_cond);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenExpressionRef exp = BinaryenSwitch(module, names, namesLen, defaultName, cond, val);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_call(value _module, value _name, value _params, value _retty) {
-  CAMLparam4(_module, _name, _params, _retty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  _params = array_of_list(_params);
-  int paramsLen = array_length(_params);
-  BinaryenExpressionRef params[paramsLen];
-  for (int i = 0; i < paramsLen; i++) {
-    params[i] = BinaryenExpressionRef_val(Field(_params, i));
-  }
-  BinaryenType retty = BinaryenType_val(_retty);
-  BinaryenExpressionRef exp = BinaryenCall(module, name, params, paramsLen, retty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_call_indirect(value _module, value _table, value _target, value _params, value _paramsty, value _retty) {
-  CAMLparam5(_module, _table, _target, _params, _paramsty);
-  CAMLxparam1(_retty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* table = Safe_String_val(_table);
-  BinaryenExpressionRef target = BinaryenExpressionRef_val(_target);
-  _params = array_of_list(_params);
-  int paramsLen = array_length(_params);
-  BinaryenExpressionRef params[paramsLen];
-  for (int i = 0; i < paramsLen; i++) {
-    params[i] = BinaryenExpressionRef_val(Field(_params, i));
-  }
-  BinaryenType paramsty = BinaryenType_val(_paramsty);
-  BinaryenType retty = BinaryenType_val(_retty);
-  BinaryenExpressionRef exp = BinaryenCallIndirect(module, table, target, params, paramsLen, paramsty, retty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-CAMLprim value
-caml_binaryen_call_indirect__bytecode(value * argv) {
-  return caml_binaryen_call_indirect(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
-}
-
-CAMLprim value
-caml_binaryen_return_call(value _module, value _name, value _params, value _retty) {
-  CAMLparam4(_module, _name, _params, _retty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  _params = array_of_list(_params);
-  int paramsLen = array_length(_params);
-  BinaryenExpressionRef params[paramsLen];
-  for (int i = 0; i < paramsLen; i++) {
-    params[i] = BinaryenExpressionRef_val(Field(_params, i));
-  }
-  BinaryenType retty = BinaryenType_val(_retty);
-  BinaryenExpressionRef exp = BinaryenReturnCall(module, name, params, paramsLen, retty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_return_call_indirect(value _module, value _table, value _target, value _params, value _paramsty, value _retty) {
-  CAMLparam5(_module, _table, _target, _params, _paramsty);
-  CAMLxparam1(_retty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* table = Safe_String_val(_table);
-  BinaryenExpressionRef target = BinaryenExpressionRef_val(_target);
-  _params = array_of_list(_params);
-  int paramsLen = array_length(_params);
-  BinaryenExpressionRef params[paramsLen];
-  for (int i = 0; i < paramsLen; i++) {
-    params[i] = BinaryenExpressionRef_val(Field(_params, i));
-  }
-  BinaryenType paramsty = BinaryenType_val(_paramsty);
-  BinaryenType retty = BinaryenType_val(_retty);
-  BinaryenExpressionRef exp = BinaryenReturnCallIndirect(module, table, target, params, paramsLen, paramsty, retty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-CAMLprim value
-caml_binaryen_return_call_indirect__bytecode(value * argv) {
-  return caml_binaryen_return_call_indirect(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
-}
-
-CAMLprim value
-caml_binaryen_local_get(value _module, value _slot, value _ty) {
-  CAMLparam3(_module, _slot, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  int slot = Int_val(_slot);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenLocalGet(module, slot, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_local_set(value _module, value _slot, value _val) {
-  CAMLparam3(_module, _slot, _val);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  int slot = Int_val(_slot);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenExpressionRef exp = BinaryenLocalSet(module, slot, val);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_local_tee(value _module, value _slot, value _val, value _ty) {
-  CAMLparam4(_module, _slot, _val, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  int slot = Int_val(_slot);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenLocalTee(module, slot, val, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_global_get(value _module, value _name, value _ty) {
-  CAMLparam3(_module, _name, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenGlobalGet(module, name, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_global_set(value _module, value _name, value _val) {
-  CAMLparam3(_module, _name, _val);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenExpressionRef exp = BinaryenGlobalSet(module, name, val);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_load(value _module, value _bytes, value _signed_, value _offset, value _align, value _ty, value _ptr) {
-  CAMLparam5(_module, _bytes, _signed_, _offset, _align);
-  CAMLxparam2(_ty, _ptr);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  int bytes = Int_val(_bytes);
-  int8_t signed_ = Bool_val(_signed_);
-  int offset = Int_val(_offset);
-  int align = Int_val(_align);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef ptr = BinaryenExpressionRef_val(_ptr);
-  BinaryenExpressionRef exp = BinaryenLoad(module, bytes, signed_, offset, align, ty, ptr);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-CAMLprim value
-caml_binaryen_load__bytecode(value * argv) {
-  return caml_binaryen_load(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]);
-}
-
-CAMLprim value
-caml_binaryen_store(value _module, value _bytes, value _offset, value _align, value _ptr, value _val, value _ty) {
-  CAMLparam5(_module, _bytes, _offset, _align, _ptr);
-  CAMLxparam2(_val, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  int bytes = Int_val(_bytes);
-  int offset = Int_val(_offset);
-  int align = Int_val(_align);
-  BinaryenExpressionRef ptr = BinaryenExpressionRef_val(_ptr);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenStore(module, bytes, offset, align, ptr, val, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-CAMLprim value
-caml_binaryen_store__bytecode(value * argv) {
-  return caml_binaryen_store(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5], argv[6]);
-}
-
-CAMLprim value
-caml_binaryen_const(value _module, value _lit) {
-  CAMLparam2(_module, _lit);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  struct BinaryenLiteral lit = BinaryenLiteral_val(_lit);
-  BinaryenExpressionRef exp = BinaryenConst(module, lit);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_unary(value _module, value _op, value _p) {
-  CAMLparam3(_module, _op, _p);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenOp op = BinaryenOp_val(_op);
-  BinaryenExpressionRef p = BinaryenExpressionRef_val(_p);
-  BinaryenExpressionRef exp = BinaryenUnary(module, op, p);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_binary(value _module, value _op, value _p1, value _p2) {
-  CAMLparam4(_module, _op, _p1, _p2);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenOp op = BinaryenOp_val(_op);
-  BinaryenExpressionRef p1 = BinaryenExpressionRef_val(_p1);
-  BinaryenExpressionRef p2 = BinaryenExpressionRef_val(_p2);
-  BinaryenExpressionRef exp = BinaryenBinary(module, op, p1, p2);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_select(value _module, value _cond, value _tru, value _fals, value _ty) {
-  CAMLparam5(_module, _cond, _tru, _fals, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef cond = BinaryenExpressionRef_val(_cond);
-  BinaryenExpressionRef tru = BinaryenExpressionRef_val(_tru);
-  BinaryenExpressionRef fals = BinaryenExpressionRef_val(_fals);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenSelect(module, cond, tru, fals, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_drop(value _module, value _p1) {
-  CAMLparam2(_module, _p1);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef p1 = BinaryenExpressionRef_val(_p1);
-  BinaryenExpressionRef exp = BinaryenDrop(module, p1);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_return(value _module, value _p1) {
-  CAMLparam2(_module, _p1);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef p1 = BinaryenExpressionRef_val(_p1);
-  BinaryenExpressionRef exp = BinaryenReturn(module, p1);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_memory_size(value _module) {
-  CAMLparam1(_module);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef exp = BinaryenMemorySize(module);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_memory_grow(value _module, value _p1) {
-  CAMLparam2(_module, _p1);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef p1 = BinaryenExpressionRef_val(_p1);
-  BinaryenExpressionRef exp = BinaryenMemoryGrow(module, p1);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_nop(value _module) {
-  CAMLparam1(_module);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef exp = BinaryenNop(module);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_unreachable(value _module) {
-  CAMLparam1(_module);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef exp = BinaryenUnreachable(module);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_memory_copy(value _module, value _dest, value _source, value _size) {
-  CAMLparam4(_module, _dest, _source, _size);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef dest = BinaryenExpressionRef_val(_dest);
-  BinaryenExpressionRef source = BinaryenExpressionRef_val(_source);
-  BinaryenExpressionRef size = BinaryenExpressionRef_val(_size);
-  BinaryenExpressionRef exp = BinaryenMemoryCopy(module, dest, source, size);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_memory_fill(value _module, value _dest, value _val, value _size) {
-  CAMLparam4(_module, _dest, _val, _size);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef dest = BinaryenExpressionRef_val(_dest);
-  BinaryenExpressionRef val = BinaryenExpressionRef_val(_val);
-  BinaryenExpressionRef size = BinaryenExpressionRef_val(_size);
-  BinaryenExpressionRef exp = BinaryenMemoryFill(module, dest, val, size);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_tuple_make(value _module, value _operands) {
-  CAMLparam2(_module, _operands);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  _operands = array_of_list(_operands);
-  int operandsLen = array_length(_operands);
-  BinaryenExpressionRef operands[operandsLen];
-  for (int i = 0; i < operandsLen; i++) {
-    operands[i] = BinaryenExpressionRef_val(Field(_operands, i));
-  }
-  BinaryenExpressionRef exp = BinaryenTupleMake(module, operands, operandsLen);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_tuple_extract(value _module, value _tuple, value _index) {
-  CAMLparam3(_module, _tuple, _index);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenExpressionRef tuple = BinaryenExpressionRef_val(_tuple);
-  int index = Int_val(_index);
-  BinaryenExpressionRef exp = BinaryenTupleExtract(module, tuple, index);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_pop(value _module, value _ty) {
-  CAMLparam2(_module, _ty);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenType ty = BinaryenType_val(_ty);
-  BinaryenExpressionRef exp = BinaryenPop(module, ty);
-  CAMLreturn(alloc_BinaryenExpressionRef(exp));
-}
-
-CAMLprim value
-caml_binaryen_expression_print(value _exp) {
-  CAMLparam1(_exp);
-  BinaryenExpressionRef exp = BinaryenExpressionRef_val(_exp);
-  BinaryenExpressionPrint(exp);
-  CAMLreturn(Val_unit);
-}

binaryen-archive/src/binaryen_stubs_function_tables.c

@@ -1,25 +0,0 @@
-#define CAML_NAME_SPACE
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-#include <caml/memory.h>
-
-#include "binaryen-c.h"
-#include "ocaml_helpers.h"
-
-
-CAMLprim value
-caml_binaryen_set_function_table(value _module, value _initial, value _maximum, value _funcnames, value _offset) {
-  CAMLparam5(_module, _initial, _maximum, _funcnames, _offset);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  BinaryenIndex initial = Int_val(_initial);
-  BinaryenIndex maximum = Int_val(_maximum);
-  _funcnames = array_of_list(_funcnames);
-  int funcnamesLen = array_length(_funcnames);
-  const char* funcnames[funcnamesLen];
-  for (int i = 0; i < funcnamesLen; i++) {
-    funcnames[i] = Safe_String_val(Field(_funcnames, i));
-  }
-  BinaryenExpressionRef offset = BinaryenExpressionRef_val(_offset);
-  BinaryenSetFunctionTable(module, initial, maximum, funcnames, funcnamesLen, offset);
-  CAMLreturn(Val_unit);
-}

binaryen-archive/src/binaryen_stubs_globals.c

@@ -1,46 +0,0 @@
-#define CAML_NAME_SPACE
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-#include <caml/memory.h>
-
-#include "binaryen-c.h"
-#include "ocaml_helpers.h"
-
-
-/* Allocating an OCaml custom block to hold the given BinaryenGlobalRef */
-static value alloc_BinaryenGlobalRef(BinaryenGlobalRef exp)
-{
-  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenGlobalRef), 0, 1);
-  BinaryenGlobalRef_val(v) = exp;
-  return v;
-}
-
-CAMLprim value
-caml_binaryen_add_global(value _module, value _name, value _ty, value _mutable_, value _init) {
-  CAMLparam5(_module, _name, _ty, _mutable_, _init);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenType ty = BinaryenType_val(_ty);
-  int8_t mutable_ = Bool_val(_mutable_);
-  BinaryenExpressionRef init = BinaryenExpressionRef_val(_init);
-  BinaryenGlobalRef glob = BinaryenAddGlobal(module, name, ty, mutable_, init);
-  CAMLreturn(alloc_BinaryenGlobalRef(glob));
-}
-
-CAMLprim value
-caml_binaryen_get_global(value _module, value _name) {
-  CAMLparam2(_module, _name);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenGlobalRef glob = BinaryenGetGlobal(module, name);
-  CAMLreturn(alloc_BinaryenGlobalRef(glob));
-}
-
-CAMLprim value
-caml_binaryen_remove_global(value _module, value _name) {
-  CAMLparam2(_module, _name);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenRemoveGlobal(module, name);
-  CAMLreturn(Val_unit);
-}

binaryen-archive/src/binaryen_stubs_tables.c

@@ -1,31 +0,0 @@
-#define CAML_NAME_SPACE
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-#include <caml/memory.h>
-
-#include "binaryen-c.h"
-#include "ocaml_helpers.h"
-
-
-CAMLprim value
-caml_binaryen_add_table(value _module, value _name, value _initial, value _maximum, value _funcnames, value _offset) {
-  CAMLparam5(_module, _name, _initial, _maximum, _funcnames);
-  CAMLxparam1(_offset);
-  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  char* name = Safe_String_val(_name);
-  BinaryenIndex initial = Int_val(_initial);
-  BinaryenIndex maximum = Int_val(_maximum);
-  _funcnames = array_of_list(_funcnames);
-  int funcnamesLen = array_length(_funcnames);
-  const char* funcnames[funcnamesLen];
-  for (int i = 0; i < funcnamesLen; i++) {
-    funcnames[i] = Safe_String_val(Field(_funcnames, i));
-  }
-  BinaryenExpressionRef offset = BinaryenExpressionRef_val(_offset);
-  BinaryenAddTable(module, name, initial, maximum, funcnames, funcnamesLen, offset);
-  CAMLreturn(Val_unit);
-}
-CAMLprim value
-caml_binaryen_add_table__bytecode(value * argv) {
-  return caml_binaryen_add_table(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
-}

binaryen-archive/src/config/dune

@@ -1,8 +0,0 @@
-(executable
- (name library_flags)
- (libraries dune.configurator))
-
-(rule
- (targets library_flags.sexp)
- (action
-  (run ./library_flags.exe)))

binaryen-archive/src/config/library_flags.ml

@@ -1,16 +0,0 @@
-module C = Configurator.V1
-
-let () =
-  C.main ~name:"library_flags" (fun c ->
-      let default = [] in
-
-      let library_flags =
-        match C.ocaml_config_var c "system" with
-        | Some "macosx" ->
-            (* These flags preserve the original C error behavior *)
-            [ "-cclib"; "-Wl,-keep_dwarf_unwind" ]
-        | Some _ -> default
-        | None -> default
-      in
-
-      C.Flags.write_sexp "library_flags.sexp" library_flags)

binaryen-archive/src/dune

@@ -1,53 +0,0 @@
-(library
- (name binaryen_native)
- (public_name binaryen.native)
- (implements binaryen)
- (foreign_stubs
-  (language c)
-  (names binaryen_stubs_types binaryen_stubs_ops binaryen_stubs_literals
-    binaryen_stubs_expressions binaryen_stubs_functions
-    binaryen_stubs_imports binaryen_stubs_exports binaryen_stubs_globals
-    binaryen_stubs_function_tables binaryen_stubs_tables
-    binaryen_stubs_memory binaryen_stubs_features binaryen_stubs_modules
-    ocaml_helpers)
-  (flags -O2 -Wall -Wextra))
- (foreign_archives binaryen)
- (library_flags
-  (:include ./config/library_flags.sexp))
- (c_library_flags -lstdc++ -lpthread))
-
-(rule
- (target binaryen-c.h)
- (action
-  (copy ../vendor/binaryen-c.h binaryen-c.h)))
-
-(rule
- (target wasm-delegations.h)
- (action
-  (copy ../vendor/wasm-delegations.h wasm-delegations.h)))
-
-(rule
- (target libbinaryen.a)
- (action
-  (copy ../vendor/%{system}/libbinaryen.a libbinaryen.a)))
-
-(rule
- (target dllbinaryen.so)
- (enabled_if
-  (= %{system} macosx))
- (action
-  (copy ../vendor/%{system}/libbinaryen.dylib dllbinaryen.so)))
-
-(rule
- (target dllbinaryen.so)
- (enabled_if
-  (= %{system} linux))
- (action
-  (copy ../vendor/%{system}/libbinaryen.so dllbinaryen.so)))
-
-(rule
- (target dllbinaryen.dll)
- (enabled_if
-  (= %{system} mingw64))
- (action
-  (copy ../vendor/%{system}/libbinaryen.dll dllbinaryen.dll)))

binaryen-archive/src/export.ml

@@ -1,21 +0,0 @@
-type t
-
-external add_function_export : Module.t -> string -> string -> t
-  = "caml_binaryen_add_function_export"
-(** Module, internal name, external name. *)
-
-external add_table_export : Module.t -> string -> string -> t
-  = "caml_binaryen_add_table_export"
-(** Module, internal name, external name. *)
-
-external add_memory_export : Module.t -> string -> string -> t
-  = "caml_binaryen_add_memory_export"
-(** Module, internal name, external name. *)
-
-external add_global_export : Module.t -> string -> string -> t
-  = "caml_binaryen_add_global_export"
-(** Module, internal name, external name. *)
-
-external remove_export : Module.t -> string -> unit
-  = "caml_binaryen_remove_export"
-(** Module, external name. *)