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