paritially working Core_kernel build

Author: andrewray

Makefile

@@ -47,7 +47,7 @@ JSC=js_of_ocaml
 
 # js_of_ocaml
 ifeq ($(OPT),1)
-JS_OF_OCAML_OPTS=-opt 2 noinline -linkall
+JS_OF_OCAML_OPTS=-opt 2 -noinline -linkall
 else
 JS_OF_OCAML_OPTS=-noinline -linkall -pretty -debuginfo -tc none
 endif
@@ -135,7 +135,7 @@ min:
 	make all OPT=1 EXT=".min"
 
 core:
-	make all EXT=".core" PACKAGES="core_kernel" PRIMJS="core_runtime.js" MODULES="Core_kernel"
+	make all EXT=".core" OPT=1 PACKAGES="core_kernel" PRIMJS="core_runtime.js" MODULES="Core_kernel"
 
 #######################################################################
 # build

core_runtime.js

@@ -3,3 +3,28 @@
 function unix_gethostname() {
   return caml_new_string('localhost');
 }
+
+//Provides: caml_hash_string
+//Requires: caml_hash
+function caml_hash_string(str) { return caml_hash(10,100,0,str); }
+
+//Provides: caml_hash_double
+//Requires: caml_hash
+function caml_hash_double(num) { return caml_hash(10,100,0,num); }
+
+//Provides: core_array_unsafe_float_blit
+//Requires: caml_array_blit
+function core_array_unsafe_float_blit(a1, i1, a2, i2, len) { 
+  return caml_array_blit(a1, i1, a2, i2, len);
+}
+
+//Provides: core_array_unsafe_int_blit
+//Requires: caml_array_blit
+function core_array_unsafe_int_blit(a1, i1, a2, i2, len) { 
+  return caml_array_blit(a1, i1, a2, i2, len);
+}
+
+//Provides: fixed_close_channel
+//Requires: caml_ml_close_channel
+function fixed_close_channel(num) { return caml_ml_close_channel(num); }
+

iocaml.ml

@@ -246,7 +246,6 @@ let send_clear ?(wait=true) ?(stdout=true) ?(stderr=true) ?(other=true) () =
 let main () = 
     (* automatically query server for files *)
     Sys_js.register_autoload "" load_from_server;
-    (*let ipython : _iPython Js.t = Js.Unsafe.variable "IPython" in*)
     Firebug.console##log (Js.string "iocamljs");
     (* re-direct output to the notebook *)
     Sys.interactive := true;