2026-01-22 21:02:22 +00:00
|
|
|
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 =
|
2026-01-23 11:16:14 +00:00
|
|
|
_import "swapBuffers" public reentrant : window -> unit;
|
2026-01-23 11:13:33 +00:00
|
|
|
val writeClipboard =
|
|
|
|
|
_import "writeClipboard" public : string * int -> unit;
|
2026-01-22 21:02:22 +00:00
|
|
|
end
|
