Commit | Line | Data |
bfd90409 |
1 | TYPEMAP |
2 | const Uint16 * T_PTR |
3 | Uint8 T_U_CHAR |
4 | Uint8 * T_PTR |
5 | const Uint8* T_PTR |
6 | Uint8 ** T_PTR |
7 | Uint16 T_UV |
8 | Uint16 * T_PTR |
9 | Uint32 T_UV |
10 | Uint32 * T_PTR |
11 | SDLKey T_UV |
12 | Sint16 T_IV |
13 | Sint16 * T_PTR |
14 | Sint32 T_IV |
15 | Sint32 * T_PTR |
16 | SDL_Event * T_PTR |
17 | SDL_Surface * T_PTR |
18 | SDL_SysWMmsg * T_PTR |
19 | SDL_CD * T_PTR |
20 | SDL_CDtrack * T_PTR |
21 | SDL_TimerCallback T_PTR |
e4ab5b2e |
22 | SDL_Rect * O_OBJECT |
bfd90409 |
23 | SDL_Color * T_PTR |
24 | SDL_Palette * T_PTR |
25 | SDL_PixelFormat * T_PTR |
26 | SDL_Cursor * T_PTR |
27 | SDL_AudioSpec * T_PTR |
28 | SDL_AudioCVT * T_PTR |
29 | Mix_Fading T_UV |
30 | Mix_Chunk * T_PTR |
31 | Mix_Music * T_PTR |
32 | SDL_GLattr T_IV |
33 | int * T_PTR |
34 | void * T_PTR |
35 | SDL_TimerID T_PTR |
36 | SDL_NewTimerCallback T_PTR |
37 | SDL_Joystick * T_PTR |
38 | SDLNet_SocketSet T_PTR |
39 | TCPsocket T_PTR |
40 | UDPsocket T_PTR |
41 | UDPpacket * T_PTR |
42 | UDPpacket ** T_PTR |
43 | IPaddress* T_PTR |
44 | SDLNet_GenericSocket T_PTR |
45 | TTF_Font * T_PTR |
46 | SDL_Overlay * T_PTR |
47 | SMPEG_Info * T_PTR |
48 | SMPEG * T_PTR |
49 | SMPEGstatus T_IV |
50 | SDL_mutex * T_PTR |
51 | GLbitfield T_IV |
52 | GLenum T_IV |
53 | ConsoleInformation * T_PTR |
54 | GLboolean T_U_CHAR |
45f73689 |
55 | GLUquadric * T_PTR |
56 | GLdouble T_NV |
bfd90409 |
57 | GLUnurbsObj * T_PTR |
58 | GLUtesselator * T_PTR |
59 | GLuint T_UV |
60 | GLuint* T_PTR |
61 | GLint T_IV |
62 | GLint* T_PTR |
63 | float * T_PTR |
64 | float T_NV |
65 | GLfloat T_NV |
66 | Sound_DecoderInfo * T_PTR |
67 | const Sound_DecoderInfo * T_PTR |
68 | Sound_Sample * T_PTR |
69 | Sound_AudioInfo * T_PTR |
70 | SDL_RWops* T_PTR |
71 | SDL_svg_context* T_PTR |
e4ab5b2e |
72 | |
73 | OUTPUT |
74 | |
75 | # The Perl object is blessed into 'CLASS', which should be a |
76 | # char* having the name of the package for the blessing. |
77 | O_OBJECT |
78 | sv_setref_pv( $arg, CLASS, (void*)$var ); |
79 | |
80 | |
81 | INPUT |
82 | |
83 | O_OBJECT |
84 | if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) |
85 | $var = ($type)SvIV((SV*)SvRV( $arg )); |
86 | else{ |
87 | warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" ); |
88 | XSRETURN_UNDEF; |
89 | } |
90 | |
91 | |