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 |
88a46efc |
17 | SDL_Surface * O_OBJECT |
bfd90409 |
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 |
3e3f41ee |
23 | SDL_Color * O_OBJECT |
1be4c6f1 |
24 | SDL_Palette * O_OBJECT |
50d9130a |
25 | SDL_PixelFormat * O_OBJECT |
f1ad86be |
26 | SDL_VideoInfo * O_OBJECT |
bfd90409 |
27 | SDL_Cursor * T_PTR |
28 | SDL_AudioSpec * T_PTR |
29 | SDL_AudioCVT * T_PTR |
30 | Mix_Fading T_UV |
31 | Mix_Chunk * T_PTR |
32 | Mix_Music * T_PTR |
33 | SDL_GLattr T_IV |
34 | int * T_PTR |
35 | void * T_PTR |
36 | SDL_TimerID T_PTR |
37 | SDL_NewTimerCallback T_PTR |
38 | SDL_Joystick * T_PTR |
39 | SDLNet_SocketSet T_PTR |
40 | TCPsocket T_PTR |
41 | UDPsocket T_PTR |
42 | UDPpacket * T_PTR |
43 | UDPpacket ** T_PTR |
44 | IPaddress* T_PTR |
45 | SDLNet_GenericSocket T_PTR |
b41abbd6 |
46 | TTF_Font * O_OBJECT |
fcd68a90 |
47 | SDL_Overlay * O_OBJECT |
bfd90409 |
48 | SMPEG_Info * T_PTR |
49 | SMPEG * T_PTR |
50 | SMPEGstatus T_IV |
51 | SDL_mutex * T_PTR |
52 | GLbitfield T_IV |
53 | GLenum T_IV |
54 | ConsoleInformation * T_PTR |
55 | GLboolean T_U_CHAR |
45f73689 |
56 | GLUquadric * T_PTR |
57 | GLdouble T_NV |
bfd90409 |
58 | GLUnurbsObj * T_PTR |
59 | GLUtesselator * T_PTR |
60 | GLuint T_UV |
61 | GLuint* T_PTR |
62 | GLint T_IV |
63 | GLint* T_PTR |
64 | float * T_PTR |
65 | float T_NV |
66 | GLfloat T_NV |
67 | Sound_DecoderInfo * T_PTR |
68 | const Sound_DecoderInfo * T_PTR |
69 | Sound_Sample * T_PTR |
70 | Sound_AudioInfo * T_PTR |
71 | SDL_RWops* T_PTR |
72 | SDL_svg_context* T_PTR |
e4ab5b2e |
73 | |
74 | OUTPUT |
75 | |
76 | # The Perl object is blessed into 'CLASS', which should be a |
77 | # char* having the name of the package for the blessing. |
78 | O_OBJECT |
79 | sv_setref_pv( $arg, CLASS, (void*)$var ); |
80 | |
81 | |
82 | INPUT |
83 | |
84 | O_OBJECT |
85 | if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) |
4510df28 |
86 | { $var = ($type)SvIV((SV*)SvRV( $arg )); } |
87 | else if ($arg == 0) |
88 | { XSRETURN(0); } |
e4ab5b2e |
89 | else{ |
e4ab5b2e |
90 | XSRETURN_UNDEF; |
91 | } |
92 | |
93 | |