2024-12-10 19:48:07 +00:00
|
|
|
structure Glfw =
|
|
|
|
|
struct
|
|
|
|
|
type window = MLton.Pointer.t
|
|
|
|
|
|
|
|
|
|
(* Window hint constants. *)
|
|
|
|
|
val (CONTEXT_VERSION_MAJOR, _) =
|
|
|
|
|
_symbol "CONTEXT_VERSION_MAJOR" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
val (DEPRECATED, _) =
|
|
|
|
|
_symbol "DEPRECATED" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
val (TRUE, _) =
|
|
|
|
|
_symbol "GLFW_FFI_TRUE" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
val (FALSE, _) =
|
|
|
|
|
_symbol "GLFW_FFI_FALSE" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
val (SAMPLES, _) =
|
|
|
|
|
_symbol "SAMPLES" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
val (WINDOW_MAX, _) =
|
|
|
|
|
_symbol "GLFW_WINDOW_MAX" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
|
|
|
|
|
(* GLFW functions. *)
|
|
|
|
|
val init = _import "init" public : unit -> unit;
|
2025-02-21 08:49:46 +00:00
|
|
|
val getTime = _import "getTime" public : unit -> real;
|
2024-12-10 19:48:07 +00:00
|
|
|
val windowHint = _import "windowHint" public : int * int -> unit;
|
|
|
|
|
val createWindow =
|
|
|
|
|
_import "createWindow" public : int * int * string -> window;
|
|
|
|
|
val terminate = _import "terminate" public : unit -> unit;
|
|
|
|
|
val makeContextCurrent = _import "makeContextCurrent" public : window -> unit;
|
|
|
|
|
val windowShouldClose = _import "windowShouldClose" public : window -> bool;
|
2024-12-20 16:51:21 +00:00
|
|
|
val pollEvents = _import "pollEvents" public reentrant : unit -> unit;
|
2024-12-10 19:48:07 +00:00
|
|
|
val waitEvents = _import "waitEvents" public reentrant : unit -> unit;
|
|
|
|
|
val swapBuffers = _import "swapBuffers" public : window -> unit;
|
|
|
|
|
val setClipboardString = _import "setClipboardString" public : window * string -> unit;
|
|
|
|
|
end
|
