103 lines
3.9 KiB
Standard ML
103 lines
3.9 KiB
Standard ML
structure Input =
|
|
struct
|
|
type window = MLton.Pointer.t
|
|
|
|
(* Export function to C. *)
|
|
val exportMouseMoveCallback =
|
|
_export "mltonMouseMoveCallback" public : (Real32.real * Real32.real -> unit) -> unit;
|
|
|
|
(* Import function to set callback for GLFW. *)
|
|
val setMouseMoveCallback = _import "setMouseMoveCallback" public reentrant : window -> unit;
|
|
|
|
val exportMouseClickCallback =
|
|
_export "mltonMouseClickCallback" public : (int * int -> unit) -> unit;
|
|
val setMouseClickCallback = _import "setMouseClickCallback" public reentrant : window -> unit;
|
|
|
|
val exportFramebufferSizeCallback =
|
|
_export "mltonFramebufferSizeCallback" public : (int * int -> unit) -> unit;
|
|
val setFramebufferSizeCallback =
|
|
_import "setFramebufferSizeCallback" public reentrant : window -> unit;
|
|
|
|
(* Constants for mouse input. *)
|
|
val (PRESS, _) =
|
|
_symbol "PRESS" public : ( unit -> int ) * ( int -> unit );
|
|
val (RELEASE, _) =
|
|
_symbol "RELEASE" public : ( unit -> int ) * ( int -> unit );
|
|
val (LEFT_MOUSE_BUTTON, _) =
|
|
_symbol "LEFT_MOUSE_BUTTON" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
(* Key input *)
|
|
val exportKeyCallback =
|
|
_export "mltonKeyCallback" public : (int * int * int * int -> unit) -> unit;
|
|
val setKeyCallback = _import "setKeyCallback" public reentrant : window -> unit;
|
|
|
|
val (KEY_R, _) =
|
|
_symbol "KEY_R" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_G, _) =
|
|
_symbol "KEY_G" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_B, _) =
|
|
_symbol "KEY_B" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_C, _) =
|
|
_symbol "KEY_C" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
val (KEY_T, _) =
|
|
_symbol "KEY_T" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_Y, _) =
|
|
_symbol "KEY_Y" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_Z, _) =
|
|
_symbol "KEY_Z" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
val (KEY_S, _) =
|
|
_symbol "KEY_S" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_E, _) =
|
|
_symbol "KEY_E" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_I, _) =
|
|
_symbol "KEY_I" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_L, _) =
|
|
_symbol "KEY_L" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_O, _) =
|
|
_symbol "KEY_O" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_A, _) =
|
|
_symbol "KEY_A" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_W, _) =
|
|
_symbol "KEY_W" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_H, _) =
|
|
_symbol "KEY_H" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
val (KEY_ENTER, _) =
|
|
_symbol "KEY_ENTER" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_SPACE, _) =
|
|
_symbol "KEY_SPACE" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_UP, _) =
|
|
_symbol "KEY_UP" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_LEFT, _) =
|
|
_symbol "KEY_LEFT" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_RIGHT, _) =
|
|
_symbol "KEY_RIGHT" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_DOWN, _) =
|
|
_symbol "KEY_DOWN" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_BACKSPACE, _) =
|
|
_symbol "KEY_BACKSPACE" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
val (KEY_0, _) =
|
|
_symbol "KEY_0" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_1, _) =
|
|
_symbol "KEY_1" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_2, _) =
|
|
_symbol "KEY_2" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_3, _) =
|
|
_symbol "KEY_3" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_4, _) =
|
|
_symbol "KEY_4" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_5, _) =
|
|
_symbol "KEY_5" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_6, _) =
|
|
_symbol "KEY_6" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_7, _) =
|
|
_symbol "KEY_7" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_8, _) =
|
|
_symbol "KEY_8" public : ( unit -> int ) * ( int -> unit );
|
|
val (KEY_9, _) =
|
|
_symbol "KEY_9" public : ( unit -> int ) * ( int -> unit );
|
|
end
|