Fixed the pod path in archive
[sdlgit/SDL_perl.git] / typemap
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 *           O_OBJECT
18 SDL_SysWMmsg *          T_PTR
19 SDL_CD *                T_PTR
20 SDL_CDtrack *           T_PTR
21 SDL_TimerCallback       T_PTR
22 SDL_Rect *              O_OBJECT
23 SDL_Color *             O_OBJECT
24 SDL_Palette *           O_OBJECT
25 SDL_PixelFormat *       O_OBJECT
26 SDL_VideoInfo *         O_OBJECT
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
46 TTF_Font *              O_OBJECT
47 SDL_Overlay *           O_OBJECT        
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
56 GLUquadric *            T_PTR
57 GLdouble                T_NV
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
73 int                     T_IV
74
75 OUTPUT
76
77 # The Perl object is blessed into 'CLASS', which should be a
78 # char* having the name of the package for the blessing.
79 O_OBJECT
80         sv_setref_pv( $arg, CLASS, (void*)$var );
81
82
83 INPUT
84
85 O_OBJECT
86         if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
87                 { $var = ($type)SvIV((SV*)SvRV( $arg )); }
88         else if ($arg == 0)
89         { XSRETURN(0); }
90         else{
91                 XSRETURN_UNDEF;
92         }
93
94