--- deliantra/Deliantra-Client/Client.xs	2007/07/28 00:45:28	1.211
+++ deliantra/Deliantra-Client/Client.xs	2007/07/31 00:56:02	1.216
@@ -27,6 +27,8 @@
 #include <stdio.h>
 #include <stdlib.h>
 
+#define USE_RWOPS 1 // for SDL_mixer:LoadMUS_RW
+
 #include <SDL.h>
 #include <SDL_thread.h>
 #include <SDL_endian.h>
@@ -114,6 +116,8 @@
 #include "pango-fontmap.c"
 #include "pango-render.c"
 
+typedef IV         CFPlus__Channel;
+typedef SDL_RWops *CFPlus__RW;
 typedef Mix_Chunk *CFPlus__MixChunk;
 typedef Mix_Music *CFPlus__MixMusic;
 
@@ -813,6 +817,9 @@
 int
 Mix_AllocateChannels (int numchans = -1)
 
+const char *
+Mix_GetError ()
+
 void
 lowdelay (int fd, int val = 1)
 	CODE:
@@ -863,7 +870,7 @@
         SDL_Surface *surface, *surface2;
         SDL_PixelFormat fmt;
 	SDL_RWops *rw = ix
-          ? SDL_RWFromFile (image, "r")
+          ? SDL_RWFromFile (image, "rb")
           : SDL_RWFromConstMem (image, image_len);
 
         if (!rw)
@@ -2234,26 +2241,115 @@
           }
 }
 
-MODULE = CFPlus	PACKAGE = CFPlus::MixChunk
-
-PROTOTYPES: DISABLE
+MODULE = CFPlus	PACKAGE = CFPlus::RW
 
-CFPlus::MixChunk
+CFPlus::RW
 new (SV *class, SV *data_sv)
 	CODE:
 {
         STRLEN datalen;
         char *data = SvPVbyte (data_sv, datalen);
 
-        RETVAL = Mix_LoadWAV_RW (SDL_RWFromConstMem (data, datalen), 1);
+        RETVAL = SDL_RWFromConstMem (data, datalen);
+}
+	OUTPUT:
+        RETVAL
+
+CFPlus::RW
+new_from_file (SV *class, const char *path, const char *mode = "rb")
+	CODE:
+        RETVAL = SDL_RWFromFile (path, mode);
+	OUTPUT:
+        RETVAL
+
+void
+close (CFPlus::RW self)
+	CODE:
+        SDL_RWclose (self);
+
+MODULE = CFPlus	PACKAGE = CFPlus::Channel
+
+PROTOTYPES: DISABLE
+
+CFPlus::Channel
+find ()
+	CODE:
+{
+        RETVAL = Mix_GroupAvailable (-1);
+
+        if (RETVAL < 0)
+          {
+            RETVAL = Mix_GroupOldest (-1);
+
+            if (RETVAL < 0)
+              XSRETURN_UNDEF;
+
+            Mix_HaltChannel (RETVAL);
+          }
+
+        Mix_UnregisterAllEffects (RETVAL);
+        Mix_Volume (RETVAL, 128);
 }
 	OUTPUT:
         RETVAL
 
+void
+halt (CFPlus::Channel self)
+	CODE:
+        Mix_HaltChannel (self);
+
+void
+expire (CFPlus::Channel self, int ticks = -1)
+	CODE:
+        Mix_ExpireChannel (self, ticks);
+
+void
+fade_out (CFPlus::Channel self, int ticks = -1)
+	CODE:
+        Mix_FadeOutChannel (self, ticks);
+
+int
+volume (CFPlus::Channel self, int volume)
+	CODE:
+        RETVAL = Mix_Volume (self, CLAMP (volume, 0, 128));
+	OUTPUT:
+        RETVAL
+
+void
+unregister_all_effects (CFPlus::Channel self)
+	CODE:
+        Mix_UnregisterAllEffects (self);
+
+void
+set_panning (CFPlus::Channel self, int left, int right)
+	CODE:
+        left  = CLAMP (left , 0, 255);
+        right = CLAMP (right, 0, 255);
+        Mix_SetPanning (self, left, right);
+
+void
+set_distance (CFPlus::Channel self, int distance)
+	CODE:
+        Mix_SetDistance (self, CLAMP (distance, 0, 255));
+
+void
+set_position (CFPlus::Channel self, int angle, int distance)
+	CODE:
+        Mix_SetPosition (self, angle, CLAMP (distance, 0, 255));
+
+void
+set_reverse_stereo (CFPlus::Channel self, int flip)
+	CODE:
+        Mix_SetReverseStereo (self, flip);
+
+MODULE = CFPlus	PACKAGE = CFPlus::MixChunk
+
+PROTOTYPES: DISABLE
+
 CFPlus::MixChunk
-new_from_file (SV *class, char *path)
+new (SV *class, CFPlus::RW rwops)
 	CODE:
-        RETVAL = Mix_LoadWAV (path);
+        RETVAL = Mix_LoadWAV_RW (rwops, 1);
 	OUTPUT:
         RETVAL
 
@@ -2265,14 +2361,27 @@
 int
 volume (CFPlus::MixChunk self, int volume = -1)
 	CODE:
+        if (items > 1)
+          volume = CLAMP (volume, 0, 128);
         RETVAL = Mix_VolumeChunk (self, volume);
 	OUTPUT:
         RETVAL
 
-int
-play (CFPlus::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
+CFPlus::Channel
+play (CFPlus::MixChunk self, CFPlus::Channel channel = -1, int loops = 0, int ticks = -1)
 	CODE:
+{
         RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
+
+        if (RETVAL < 0)
+          XSRETURN_UNDEF;
+
+        if (channel < 0)
+          {
+            Mix_UnregisterAllEffects (RETVAL);
+            Mix_Volume (RETVAL, 128);
+          }
+}
 	OUTPUT:
         RETVAL
 
@@ -2282,21 +2391,26 @@
 volume (int volume = -1)
 	PROTOTYPE: ;$
 	CODE:
+        if (items > 0)
+          volume = CLAMP (volume, 0, 128);
         RETVAL = Mix_VolumeMusic (volume);
 	OUTPUT:
         RETVAL
 
-int
+void
 fade_out (int ms)
 	CODE:
-        RETVAL = Mix_FadeOutMusic (ms);
-	OUTPUT:
-        RETVAL
+        Mix_FadeOutMusic (ms);
+
+void
+halt ()
+	CODE:
+        Mix_HaltMusic ();
 
 CFPlus::MixMusic
-new_from_file (SV *class, char *path)
+new (SV *class, CFPlus::RW rwops)
 	CODE:
-        RETVAL = Mix_LoadMUS (path);
+        RETVAL = Mix_LoadMUS_RW (rwops);
 	OUTPUT:
         RETVAL
 
@@ -2312,12 +2426,10 @@
 	OUTPUT:
         RETVAL
 
-int
+void
 fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
 	CODE:
-        RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);
-	OUTPUT:
-        RETVAL
+        Mix_FadeInMusicPos (self, loops, ms, position);
 
 MODULE = CFPlus	PACKAGE = CFPlus::OpenGL