File: typemap

package info (click to toggle)
libmaxmind-db-reader-xs-perl 1.000008-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 2,320 kB
  • sloc: perl: 3,263; ansic: 260; makefile: 3; sh: 2
file content (20 lines) | stat: -rw-r--r-- 419 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
TYPEMAP
char *        O_CHAR
MMDB_s *      T_OPAQUE

INPUT

# this is just here because a O_CHAR input is required to compile,
# should be same as if O_CHAR wasn't defined
O_CHAR
        $var = ($type)SvPVbyte_nolen ($arg)

OUTPUT

# prevent memory leaks with malloc'ed returned char * strings
O_CHAR
    if($var != NULL) {
        $arg = newSVpv($var, strlen($var));
        free($var);
        sv_2mortal($arg);
   }