17 SDL_Surface * O_OBJECT
21 SDL_TimerCallback T_PTR
24 SDL_Palette * O_OBJECT
25 SDL_PixelFormat * O_OBJECT
26 SDL_VideoInfo * O_OBJECT
37 SDL_NewTimerCallback T_PTR
39 SDLNet_SocketSet T_PTR
45 SDLNet_GenericSocket T_PTR
47 SDL_Overlay * O_OBJECT
54 ConsoleInformation * T_PTR
67 Sound_DecoderInfo * T_PTR
68 const Sound_DecoderInfo * T_PTR
70 Sound_AudioInfo * T_PTR
72 SDL_svg_context* T_PTR
77 # The Perl object is blessed into 'CLASS', which should be a
78 # char* having the name of the package for the blessing.
80 sv_setref_pv( $arg, CLASS, (void*)$var );
86 if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
87 { $var = ($type)SvIV((SV*)SvRV( $arg )); }