File: typemap

package info (click to toggle)
libcrypt-openssl-bignum-perl 0.04-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 96 kB
  • ctags: 11
  • sloc: perl: 127; makefile: 48
file content (12 lines) | stat: -rw-r--r-- 258 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
 
TYPEMAP
BIGNUM*         O_OBJECT
BN_CTX*         O_OBJECT

INPUT
O_OBJECT
    if( ! SvROK( $arg ) ) { croak( \"argument is not a ${type} object\" ); }
    $var = (${type}) SvIV( SvRV( $arg ) );

OUTPUT
O_OBJECT
   sv_setsv( $arg, new_obj( p_proto, $var ) );