add functions: glfwPlatformSupported, glfwGetPlatform, glfwGetError, glfwInitHint

Listed all with: (then selected from)

  perl -ne 'next if !/^GLFWAPI/; s/\(.*//; /(\w*)$/; print "$1\n"' \
    /usr/local/opt/glfw/include/GLFW/glfw3.h >funcs
  for x in `cat funcs`; do echo -n "$x: "; grep -c $x GLFW.xs; done

Author: mohawk2

Changes

@@ -1,5 +1,6 @@
 - minimum Perl 5.10 for better Exporter
 - add constants up to GLFW 3.4
+- add functions: glfwPlatformSupported, glfwGetPlatform, glfwGetError, glfwInitHint
 
 0.0401 2025-03-27
 - add GLFW_TRANSPARENT_FRAMEBUFFER and glfwGetMonitorWorkarea (#1) - thanks @SeHarrys

GLFW.xs

@@ -1682,6 +1682,30 @@ glfwGetTimerFrequency();
 uint64_t
 glfwGetTimerValue();
 
+#if (GLFW_VERSION_MAJOR*10000 + GLFW_VERSION_MINOR*100) >= 30400
+
+int
+glfwPlatformSupported(int platform);
+
+int
+glfwGetPlatform();
+
+#endif
+
+void
+glfwGetError();
+PREINIT:
+  int errcode;
+  char* description;
+PPCODE:
+  errcode = glfwGetError(&description);
+  EXTEND(SP, 2);
+  PUSHs(sv_2mortal(newSViv(errcode)));
+  PUSHs(!description ? &PL_sv_undef : sv_2mortal(newSVpv(description, 0)));
+
+void
+glfwInitHint(int hint, int value);
+
 #//-------------------------------------------------------------------
 #// OpenGL not supported (use GLEW)
 #//-------------------------------------------------------------------

lib/OpenGL/GLFW.pm

@@ -352,6 +352,10 @@ use Exporter 'import';
 
 my @const = (qw(NULL), sort keys %const_hash);
 my @functions = qw(
+  glfwPlatformSupported
+  glfwGetPlatform
+  glfwGetError
+  glfwInitHint
   glfwCreateCursor
   glfwCreateStandardCursor
   glfwCreateWindow