2024-09-30 13:43:43 +01: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 (FALSE, _) =
|
|
|
|
|
_symbol "GLFW_FFI_FALSE" public : ( unit -> int ) * ( int -> unit );
|
|
|
|
|
|
|
|
|
|
(* GLFW functions. *)
|
|
|
|
|
val init = _import "init" public : unit -> unit;
|
|
|
|
|
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;
|
|
|
|
|
val waitEvents = _import "waitEvents" public reentrant : unit -> unit;
|
|
|
|
|
val swapBuffers = _import "swapBuffers" public : window -> unit;
|
2024-11-11 05:27:20 +00:00
|
|
|
val setClipboardString = _import "setClipboardString" public : window * string -> unit;
|
2026-01-23 09:47:27 +00:00
|
|
|
val loadGlad = _import "loadGlad" public : unit -> unit;
|
2024-09-30 13:43:43 +01:00
|
|
|
end
|
