XS and loading doen for SDL::Mixer::Groups

Build.PL

@@ -206,6 +206,13 @@ my %subsystems =
 		},
 		libraries => [qw( SDL SDL_mixer )],
 	},
+	MixerGroups => {
+		file      => {
+			from  => 'src/Mixer/Groups.xs',
+			to    => 'lib/SDL/Mixer/Groups.xs',
+		},
+		libraries => [qw( SDL SDL_mixer )],
+	},
 
 	MixChunk => {
 		file      => {

src/Mixer/Groups.xs

@@ -25,4 +25,81 @@ See: http://www.libsdl.org/projects/SDL_mixer/docs/SDL_mixer.html
 
 #ifdef HAVE_SDL_MIXER
 
+int
+mixgrp_reserve_channels ( number )
+	int number
+	CODE:
+		RETVAL = Mix_ReserveChannels ( number );
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_channel ( which, tag )
+	int which
+	int tag
+	CODE:
+		RETVAL = Mix_GroupChannel(which,tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_channels ( from, to, tag )
+	int from
+	int to
+	int tag
+	CODE:
+		RETVAL = Mix_GroupChannels(from,to,tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_available ( tag )
+	int tag
+	CODE:
+		RETVAL = Mix_GroupAvailable(tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_count ( tag )
+	int tag
+	CODE:
+		RETVAL = Mix_GroupCount(tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_oldest ( tag )
+	int tag
+	CODE:
+		RETVAL = Mix_GroupOldest(tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_group_newer ( tag )
+	int tag
+	CODE:
+		RETVAL = Mix_GroupNewer(tag);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_fade_out_group ( which, ms )
+	int which
+	int ms
+	CODE:
+		RETVAL = Mix_FadeOutGroup(which,ms);
+	OUTPUT:
+		RETVAL
+
+int
+mixgrp_halt_group ( tag )
+	int tag
+	CODE:
+		RETVAL = Mix_HaltGroup(tag);
+	OUTPUT:
+		RETVAL
+
+
 #endif

src/Mixer/Mixer.xs

@@ -247,65 +247,6 @@ mixer_get_music_hook_data ()
 	OUTPUT:
 		RETVAL
 
-int
-mixer_reserve_channels ( number )
-	int number
-	CODE:
-		RETVAL = Mix_ReserveChannels ( number );
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_channel ( which, tag )
-	int which
-	int tag
-	CODE:
-		RETVAL = Mix_GroupChannel(which,tag);
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_channels ( from, to, tag )
-	int from
-	int to
-	int tag
-	CODE:
-		RETVAL = Mix_GroupChannels(from,to,tag);
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_available ( tag )
-	int tag
-	CODE:
-		RETVAL = Mix_GroupAvailable(tag);
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_count ( tag )
-	int tag
-	CODE:
-		RETVAL = Mix_GroupCount(tag);
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_oldest ( tag )
-	int tag
-	CODE:
-		RETVAL = Mix_GroupOldest(tag);
-	OUTPUT:
-		RETVAL
-
-int
-mixer_group_newer ( tag )
-	int tag
-	CODE:
-		RETVAL = Mix_GroupNewer(tag);
-	OUTPUT:
-		RETVAL
-
 int
 mixer_play_music ( music, loops )
 	Mix_Music *music
@@ -335,13 +276,6 @@ mixer_volume_music ( volume )
 		RETVAL
 
 
-int
-mixer_halt_group ( tag )
-	int tag
-	CODE:
-		RETVAL = Mix_HaltGroup(tag);
-	OUTPUT:
-		RETVAL
 
 int
 mixer_halt_music ()
@@ -350,14 +284,6 @@ mixer_halt_music ()
 	OUTPUT:
 		RETVAL
 
-int
-mixer_fade_out_group ( which, ms )
-	int which
-	int ms
-	CODE:
-		RETVAL = Mix_FadeOutGroup(which,ms);
-	OUTPUT:
-		RETVAL
 
 int
 mixer_fade_out_music ( ms )

t/00-load.t

@@ -33,6 +33,7 @@ SDL::Version
 SDL::Mixer
 SDL::Mixer::Samples
 SDL::Mixer::Channels
+SDL::Mixer::Groups
 SDL::Mixer::MixChunk
 SDL::Mixer::MixMusic