search-xapian/t/symbol-test/typemap

   1 TYPEMAP
   2 SymbolTest *    O_OBJECT
   3
   4 OUTPUT
   5 O_OBJECT
   6         sv_setref_pv( $arg, CLASS, (void*)$var );
   7
   8 INPUT
   9 O_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         }