CVS Id.
[ZOOM-Perl-moved-to-github.git] / typemap
1 # $Id: typemap,v 1.2 2005-10-11 11:36:33 mike Exp $
2
3 ZOOM_connection                                 T_PTROBJ
4 ZOOM_connection *                               T_PTROBJ
5 ZOOM_options                                    T_PTROBJ
6 ZOOM_options_callback                           T_PTROBJ
7 ZOOM_package                                    T_PTROBJ
8 ZOOM_query                                      T_PTROBJ
9 ZOOM_record                                     T_PTROBJ
10 ZOOM_record *                                   T_PTROBJ
11 ZOOM_resultset                                  T_PTROBJ
12 ZOOM_scanset                                    T_PTROBJ
13 __compar_fn_t                                   T_PTROBJ
14 __const char *                                  T_PTROBJ
15 __const void *                                  T_PTROBJ
16 __const wchar_t *                               T_PTROBJ
17 __extension__ extern lldiv_t                    T_PTROBJ
18 __extension__ extern long long int              T_PTROBJ
19 __extension__ extern unsigned long long int     T_PTROBJ
20 __locale_t                                      T_PTROBJ
21 char * __const *                                T_PTROBJ
22 const __sigset_t *                              T_PTROBJ
23 const char *                                    T_PTROBJ
24 const char **                                   T_PTROBJ
25 const struct timespec *                         T_PTROBJ
26 div_t                                           T_OPAQUE_STRUCT
27 double *                                        T_PTROBJ
28 fd_set *                                        T_PTROBJ
29 int *                                           T_PTROBJ
30 int32_t *                                       T_PTROBJ
31 ldiv_t                                          T_OPAQUE_STRUCT
32 long double                                     T_NV
33 long int                                        T_PTROBJ
34 long int *                                      T_PTROBJ
35 long long int                                   T_PTROBJ
36 struct drand48_data *                           T_PTROBJ
37 struct random_data *                            T_PTROBJ
38 struct timeval *                                T_PTROBJ
39 unsigned int *                                  T_PTROBJ
40 unsigned long int                               T_PTROBJ
41 unsigned short int                              T_PTROBJ
42 unsigned short int *                            T_PTROBJ
43 void ( * __func ) ( int __status, void * __arg )        T_PTROBJ
44 void ( * __func ) ( void )                      T_PTROBJ
45 void **                                         T_PTROBJ
46 #############################################################################
47 INPUT
48 T_OPAQUE_STRUCT
49         if (sv_derived_from($arg, \"${ntype}\")) {
50             STRLEN len;
51             char  *s = SvPV((SV*)SvRV($arg), len);
52
53             if (len != sizeof($var))
54                 croak(\"Size %d of packed data != expected %d\",
55                         len, sizeof($var));
56             $var = *($type *)s;
57         }
58         else
59             croak(\"$var is not of type ${ntype}\")
60 #############################################################################
61 OUTPUT
62 T_OPAQUE_STRUCT
63         sv_setref_pvn($arg, \"${ntype}\", (char *)&$var, sizeof($var));