Load cartridge

src/core/cartridge.ml

@@ -67,6 +67,8 @@ let get_RAM_size = function
 
 
 let read_cartridge file =
+  Printf.printf "Read cartridge: %s" file;
+  print_newline ();
   try
     let ic = open_in_bin file in
 

src/core/cbindings.ml

@@ -1,3 +1,4 @@
 let () =
   Callback.register "oboy_name" Version.name;
   Callback.register "oboy_version" Version.version;
+  Callback.register "oboy_load" State.load_cartridge;

src/core/state.ml

@@ -1,9 +1,16 @@
 (* State of the world, contains all the required information at any point *)
 type t = {
-  cartridge : option Cartridge.t;
+  mutable cartridge : Cartridge.t option;
 }
 
 (* Global reference *)
 let state = ref {
   cartridge = None
 }
+
+let load_cartridge file =
+  let cartridge = Cartridge.read_cartridge file in
+  !state.cartridge <- cartridge;
+  match cartridge with
+  | Some _ -> true
+  | None -> false