File: typemap

package info (click to toggle)
msql-modules 0.91-7
  • links: PTS
  • area: contrib
  • in suites: slink
  • size: 248 kB
  • ctags: 142
  • sloc: perl: 1,144; ansic: 549; makefile: 72
file content (19 lines) | stat: -rw-r--r-- 462 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Msql::Statement		O_HvRV
Msql			O_HvRV

INPUT
T_HVOBJ
	 if (sv_isobject($arg))
	     $var = (HV*)SvRV($arg);
	 else
	     croak(\"$var is not an object\")
O_HvRV
        if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVHV) )
                $var = (HV*)SvRV( $arg );
        else {
                warn( \"${Package}::$func_name() -- $var is not a blessed HV reference\" );
                XSRETURN_UNDEF;
        }
OUTPUT
T_HVOBJ
	 $arg = newRV((SV*)$var);