17 lines
503 B
Standard ML
17 lines
503 B
Standard ML
structure Rgfw =
|
|
struct
|
|
type window = MLton.Pointer.t
|
|
|
|
(* RGFW functions. *)
|
|
val createWindow =
|
|
_import "createWindow" public : string * int * int * int * int -> window;
|
|
val closeWindow =
|
|
_import "closeWindow" public : window -> unit;
|
|
val shouldCloseWindow =
|
|
_import "shouldCloseWindow" public : window -> bool;
|
|
val swapBuffers =
|
|
_import "swapBuffers" public reentrant : window -> unit;
|
|
val writeClipboard =
|
|
_import "writeClipboard" public : string * int -> unit;
|
|
end
|