Humza Shahid
6b91d64fc3
git-subtree-dir: shf git-subtree-mainline:401408448fgit-subtree-split:b6c5a95b66
26 lines
1.1 KiB
Standard ML
26 lines
1.1 KiB
Standard ML
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;
|
|
val setClipboardString = _import "setClipboardString" public : window * string -> unit;
|
|
val loadGlad = _import "loadGlad" public : unit -> unit;
|
|
end
|