1 files changed, 0 insertions, 49 deletions
diff --git a/bindgen/ocaml/bindings/bindings_sys.ml b/bindgen/ocaml/bindings/bindings_sys.ml
deleted file mode 100644
index 1c100e9..0000000
--- a/bindgen/ocaml/bindings/bindings_sys.ml
+++ /dev/null
@@ -1,49 +0,0 @@
-(* automatically generated by ocaml-bindgen 0.0.1 *)
-
-type lifetime =
-  | Function
-      (** The value can live for the lifetime of the function call, which upon return will signal that the 
-                value can be dropped (finalizer?) *)
-  | Ocaml  (** The value is managed by the OCaml runtime *)
-  | C
-      (** The value is allocated and passed to C which is then in charge of cleaning it up *)
-
-type 'a cptr = { lifetime : lifetime; addr : nativeint }
-
-external bindgen_alloc : size:int -> nativeint = "bindgen_alloc"
-external bindgen_free : nativeint -> unit = "bindgen_free"
-external bindgen_alloc_string : string -> nativeint = "bindgen_alloc_string"
-
-let sizeof _ = 4 (* TODO: how to handle different types? *)
-
-let create_ptr (value : 'a) : 'a cptr =
-  let addr = bindgen_alloc ~size:(sizeof value) in
-  print_endline ("Addr: " ^ Nativeint.to_string addr);
-  Gc.finalise bindgen_free addr;
-  { lifetime = Ocaml; addr }
-
-let make_cstr (s: string) : char cptr =
-  let addr = bindgen_alloc_string s in
-  { lifetime = Ocaml; addr }
-  
-type nonrec core
-type nonrec glfwwindow
-external get_global_core : unit -> core cptr = "caml_get_global_core"
-external core_Bringup :
-  optional_window:unit cptr -> unit = "caml_core_Bringup"
-external frame_Begin : unit -> unit = "caml_frame_Begin"
-external frame_Draw : unit -> unit = "caml_frame_Draw"
-external frame_End : unit -> unit = "caml_frame_End"
-type nonrec vec2 = {
-  x: float ;
-  y: float }
-type nonrec vec3 = {
-  x: float ;
-  y: float ;
-  z: float }
-type nonrec vec4 = {
-  x: float ;
-  y: float ;
-  z: float ;
-  w: float }
-external vec3_add : b:vec3 -> a:vec3 -> vec3 = "caml_vec3_add"