diff --git a/caml_src/step.ml b/caml_src/step.ml new file mode 100644 index 000000000..954823226 --- /dev/null +++ b/caml_src/step.ml @@ -0,0 +1,19 @@ +(* Copyright (C) 2017 Sio Kreuzer. All Rights Reserved. *) + +let init () = + Printf.printf "Initializing Game module...\n"; + flush stdout;; + +let shutdown () = + Printf.printf "Shutting down Game module...\n"; + flush stdout;; + +let step () = + (* Printf.printf "bla\n"; *) + flush stdout;; + +(* main/init *) +let () = + Callback.register "init_fn" init; + Callback.register "shutdown_fn" shutdown; + Callback.register "step_fn" step;;