Add 'vendor/hare-sdl2/' from commit 'fb6008be0b79a2a24b1ac960316a83f7873b4f39'

git-subtree-dir: vendor/hare-sdl2
git-subtree-mainline: ed088aa81ac23fa48d5ae48ee739c97e0fcb4490
git-subtree-split: fb6008be0b79a2a24b1ac960316a83f7873b4f39

1 files changed, 31 insertions, 0 deletions

diff --git a/vendor/hare-sdl2/sdl2/errors.ha b/vendor/hare-sdl2/sdl2/errors.ha
new file mode 100644
index 0000000..a848667
--- /dev/null
+++ b/vendor/hare-sdl2/sdl2/errors.ha
@@ -0,0 +1,31 @@
+use types::c;
+
+// Returned when an error occurs in an SDL function.
+export type error = !str;
+
+// Converts an SDL error into a human-friendly string.
+export fn strerror(err: error) str = {
+	return err: str;
+};
+
+@symbol("SDL_GetError") fn SDL_GetError() const *c::char;
+
+export fn wrapvoid(ret: int) (void | error) = {
+	wrapint(ret)?;
+};
+
+export fn wrapint(ret: int) (int | error) = {
+	if (ret < 0) {
+		return c::tostr(SDL_GetError()): error;
+	};
+	return ret;
+};
+
+export fn wrapptr(ret: nullable *opaque) (*opaque | error) = {
+	match (ret) {
+	case let v: *opaque =>
+		return v;
+	case null =>
+		return c::tostr(SDL_GetError()): error;
+	};
+};