SDL::init( $flags ); + +
As with the C language API, SDL Perl initializes the SDL environment with the SDL::init subroutine.
This routine takes a mode flag constructed through the bitwise OR product of the SDL_INIT_* constants.
-The flags tell SDL::init which subsystems to initialize.
$flags tell SDL::init which subsystems to initialize.
SDL::init(SDL_INIT_AUDIO | SDL_INIT_JOYSTICK);
SDL::init returns 0 on success, or -1 on error.
After SDL has been initialized with SDL::init you may initialize any uninitialized subsystems with SDL::init_subsystem.
-The flags tell SDL::init_subsystem which subsystems to initialize, and are taken in the same way as SDL::init.
SDL::init_subsystem( $flags ); + ++
After SDL has been initialized with SDL::init you may initialize any uninitialized subsystems with SDL::init_subsystem.
+The $flags tell SDL::init_subsystem which subsystems to initialize, and are taken in the same way as SDL::init.
SDL::init_subsystem returns 0 on success, or -1 on error.
SDL::quit_subsystem( $flags ); + +
SDL::quit_subsystem allows you to shut down a subsystem that has been previously initialized by SDL::init or SDL::init_subsystem.
-The flags tell SDL::quit_subsystem which subsystems to shut down, and are taken in the same way as SDL::init.
$flags tell SDL::quit_subsystem which subsystems to shut down, and are taken in the same way as SDL::init.
SDL::quit_subsystem doesn't return any values.
SDL::quit; + +
SDL::quit Shuts down all SDL subsystems, unloads the dynamically linked library and frees the allocated resources.
Note: This will be called automatically when Perl exits. You don't need to call this, except if you want to initialize SDL again after this.
SDL::quit doesn't return any values.
my $flags = SDL::was_init( $flags ); + +
SDL::was_init allows you to see which SDL subsytems have been initialized.
-The flags tell SDL::was_init which subsystems to check, and are taken in the same way as SDL::init.
$flags tell SDL::was_init which subsystems to check, and are taken in the same way as SDL::init.
SDL::was_init returns a mask of the initialized subsystems it checks.
-If flags is 0 or SDL_INIT_EVERYTHING, a mask of all initialized subsystems will be returned (this does not include SDL_INIT_EVENTTHREAD or SDL_INIT_NOPARACHUTE).
$flags is 0 or SDL_INIT_EVERYTHING, a mask of all initialized subsystems will be returned (this does not include SDL_INIT_EVENTTHREAD or SDL_INIT_NOPARACHUTE).
use SDL ':all'; my $mask = SDL::was_init(SDL_INIT_AUDIO | SDL_INIT_JOYSTICK); @@ -127,49 +142,67 @@ Ifflagsis0orSDL_INIT_EVERYTHING, a m
my $error = SDL::get_error; + +
Returns a scalar value containing the last error message set by the SDL library (if any).
SDL::set_error_real( $printf_format, @values ) + +
SDL::set_error_real sets the SDL error to a printf style formatted string.
SDL::set_error_real doesn't return any values.
SDL::clear_error; + +
SDL::clear_error deletes all information about the last SDL error.
This is useful if the error has been handled by the program.
SDL::clear_error doesn't return any values.
my $version = SDL::version; + +
Returns an SDL::Version object of the SDL library at compile-time.
use SDL;
use SDL::Version;
- my $v = SDL::version();
+ my $v = SDL::version;
printf("got version: %d.%d.%d\n", $v->major, $v->minor, $v->patch);
SDL::linked_version works in the same way as SDL::version, but returns an SDL::Version object of the SDL library at link-time.
my $ticks = SDL::get_ticks; + +
Returns the number of milliseconds since SDL library initialization. This value wraps around if the program runs for more than 49.7 days
SDL::delay( $ms ); + +
SDL::delay waits the specified number of milliseconds before returning.
The actual delay may be longer than specified depending on the underlying OS.
SDL::delay doesn't return anything.