Starting wrapping SDL_mixer.

core/SDL_mixer.carp

@@ -0,0 +1,19 @@
+(system-include "SDL2/SDL_mixer.h")
+(add-lib "-lSDL2_mixer")
+(Project.config "cflag" "-Wno-incompatible-pointer-types-discards-qualifiers")
+
+(register-type Mix_Chunk)
+(register-type Mix_Music)
+
+(defmodule Mixer
+
+  (register default-format
+            Int
+            "MIX_DEFAULT_FORMAT")
+
+  ;; freq format channels chunksize
+  (register open-audio
+            (Fn [Int Int Int Int] ())
+            "Mix_OpenAudio")
+
+  )

examples/sounds.carp

@@ -0,0 +1,12 @@
+(load "SDL.carp")
+(load "SDL_mixer.carp")
+
+(defn draw [app rend state]
+  (SDL.bg rend &(SDL.rgb 255 0 0)))
+
+(defn main []
+  (let [app (SDLApp.create "Sound Effects with SDL_mixer" 400 300)
+        rend @(SDLApp.renderer &app)]
+    (do
+      (SDLApp.run-with-callbacks &app SDLApp.default-event-handler id draw 0)
+      0)))