12 lines
315 B
Standard ML
12 lines
315 B
Standard ML
structure Key =
|
|
struct
|
|
type window = MLton.Pointer.t
|
|
|
|
(* Export function to C. *)
|
|
val export =
|
|
_export "printFromMLton" public : (int * int * int * int -> unit) -> unit;
|
|
|
|
(* Import function to set callback for GLFW. *)
|
|
val setCallback = _import "setKeyCallback" public reentrant : window -> unit;
|
|
end
|