view release on metacpan or  search on metacpan

lib/SDL/Constants.pm  view on Meta::CPAN

			)
	],
	'SDL::RWOps/defaults' => [
		qw(
			RW_SEEK_SET
			RW_SEEK_CUR
			RW_SEEK_END
			)
	],
	'SDL::TTF/hinting' => [
		qw(
			TTF_HINTING_NORMAL
			TTF_HINTING_LIGHT
			TTF_HINTING_MONO
			TTF_HINTING_NONE
			)
	],
	'SDL::TTF/style' => [
		qw(
			TTF_STYLE_NORMAL
			TTF_STYLE_BOLD
			TTF_STYLE_ITALIC
			TTF_STYLE_UNDERLINE
			TTF_STYLE_STRIKETHROUGH
			)
	],
	'SDL::Video/color' => [
		qw(
			SDL_ALPHA_OPAQUE
			SDL_ALPHA_TRANSPARENT
			)
	],
	'SDL::Video/surface' => [
		qw(
			SDL_SWSURFACE
			SDL_HWSURFACE
			SDL_ASYNCBLIT
			)
	],
	'SDL::Video/video' => [
		qw(
			SDL_SWSURFACE
			SDL_HWSURFACE
			SDL_ASYNCBLIT
			SDL_ANYFORMAT
			SDL_HWPALETTE
			SDL_DOUBLEBUF
			SDL_FULLSCREEN
			SDL_OPENGL
			SDL_OPENGLBLIT
			SDL_RESIZABLE
			SDL_NOFRAME
			SDL_HWACCEL
			SDL_SRCCOLORKEY
			SDL_RLEACCELOK
			SDL_RLEACCEL
			SDL_SRCALPHA
			SDL_PREALLOC
			)
	],
	'SDL::Video/overlay' => [
		qw(
			SDL_YV12_OVERLAY
			SDL_IYUV_OVERLAY
			SDL_YUY2_OVERLAY
			SDL_UYVY_OVERLAY
			SDL_YVYU_OVERLAY
			)
	],
	'SDL::Video/palette' => [
		qw(
			SDL_LOGPAL
			SDL_PHYSPAL
			)
	],
	'SDL::Video/grab' => [
		qw(
			SDL_GRAB_QUERY
			SDL_GRAB_OFF
			SDL_GRAB_ON
			SDL_GRAB_FULLSCREEN
			)
	],
	'SDL::Video/gl' => [
		qw(
			SDL_GL_RED_SIZE
			SDL_GL_GREEN_SIZE
			SDL_GL_BLUE_SIZE
			SDL_GL_ALPHA_SIZE
			SDL_GL_BUFFER_SIZE
			SDL_GL_DOUBLEBUFFER
			SDL_GL_DEPTH_SIZE
			SDL_GL_STENCIL_SIZE
			SDL_GL_ACCUM_RED_SIZE
			SDL_GL_ACCUM_GREEN_SIZE
			SDL_GL_ACCUM_BLUE_SIZE
			SDL_GL_ACCUM_ALPHA_SIZE
			SDL_GL_STEREO
			SDL_GL_MULTISAMPLEBUFFERS
			SDL_GL_MULTISAMPLESAMPLES
			SDL_GL_ACCELERATED_VISUAL
			SDL_GL_SWAP_CONTROL
			)
	],
);

# 1. all constants from %EXPORT_TAGS are gonna pushed into @EXPORT
# 2. tags like 'package/tag' and 'package/next_tag' are merged into tag 'package'
my %seen;
foreach my $package ( keys %EXPORT_TAGS ) {
	my $super_package = $package;
	$super_package =~ s/\/.*$//;
	push( @{ $EXPORT_TAGS{$super_package} }, @{ $EXPORT_TAGS{$package} } )
		if $super_package ne $package;
	push( @EXPORT_OK, grep { !$seen{$_}++ } @{ $EXPORT_TAGS{$package} } );
}

use constant {
	SDL_INIT_TIMER       => 0x00000001,
	SDL_INIT_AUDIO       => 0x00000010,
	SDL_INIT_VIDEO       => 0x00000020,