more version checks

sanette · sanette · commit d47948c17861 · 2026-01-09T09:59:47.000+01:00
diff --git a/lib/tsdl.ml b/lib/tsdl.ml
@@ -2042,8 +2042,11 @@ let get_display_mode d i =
   | Ok () -> Ok (display_mode_of_c mode) | Error _ as e -> e
 
 let get_display_usable_bounds =
-  pre "SDL_GetDisplayUsableBounds"; foreign "SDL_GetDisplayUsableBounds"
-    (int @-> ptr rect @-> returning zero_to_ok)
+  pre "SDL_GetDisplayUsableBounds";
+  if sdl2_version >= (2,0,14)
+  then foreign "SDL_GetDisplayUsableBounds"
+      (int @-> ptr rect @-> returning zero_to_ok)
+  else fun _ -> failwith "SDL_GetDisplayUsableBounds not implemented (need SDL >= 2.0.14)"
 
 let get_display_usable_bounds i =
   let r = make rect in
@@ -5404,11 +5407,17 @@ let dequeue_audio dev ba =
   dequeue_audio dev (to_voidp (bigarray_start array1 ba)) (len * kind_size)
 
 let get_queued_audio_size =
-  pre "SDL_GetQueuedAudioSize"; foreign "SDL_GetQueuedAudioSize"
-    (audio_device_id @-> returning int_as_uint32_t)
+  pre "SDL_GetQueuedAudioSize";
+  if sdl2_version >= (2,0,12)
+  then foreign "SDL_GetQueuedAudioSize"
+      (audio_device_id @-> returning int_as_uint32_t)
+  else fun _ -> failwith "SDL_GetQueuedAudioSize not implemented (need SDL >= 2.0.12)"
 
 let clear_queued_audio =
-  pre "SDL_ClearQueuedAudio"; foreign "SDL_ClearQueuedAudio" (audio_device_id @-> returning void)
+  pre "SDL_ClearQueuedAudio";
+   if sdl2_version >= (2,0,12)
+   then foreign "SDL_ClearQueuedAudio" (audio_device_id @-> returning void)
+   else fun _ -> failwith "SDL_ClearQueuedAudio not implemented (need SDL >= 2.0.12)"
 
 (* Timer *)
 
@@ -5495,7 +5504,10 @@ type power_info =
     pi_pct : int option; }
 
 let get_power_info =
-  pre "SDL_GetPowerInfo"; foreign "SDL_GetPowerInfo" ((ptr int) @-> (ptr int) @-> returning int)
+  pre "SDL_GetPowerInfo";
+  if sdl2_version >= (2,0,16)
+  then foreign "SDL_GetPowerInfo" ((ptr int) @-> (ptr int) @-> returning int)
+  else fun _ -> failwith "SDL_GetPowerInfo not implemented (need SDL >= 2.0.16)"
 
 let get_power_info () =
   let secs = allocate int 0 in
