source: trunk/lang/perl/typemap @ 4503

Last change on this file since 4503 was 481, checked in by nkissebe, 14 years ago

Initial revision of Perl binding for Rappture

File size: 322 bytes
Line 
1TYPEMAP
2        RpLibrary * ANY_OBJECT
3
4OUTPUT
5ANY_OBJECT
6        sv_setref_pv( $arg, CLASS, (void *)$var );
7
8INPUT
9ANY_OBJECT
10        if ( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
11                $var = ($type)SvIV((SV*)SvRV( $arg ));
12        else {
13                warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
14                XSRETURN_UNDEF;
15        }
Note: See TracBrowser for help on using the repository browser.