root/src/jlog/perl/typemap

Revision cc981f5c55100675865b6960135d70148d8585af, 458 bytes (checked in by Theo Schlossnagle <jesus@omniti.com>, 3 years ago)

pull in jlog @ 52

  • Property mode set to 100644
Line 
1 JLog T_PTROBJ_SPECIAL
2 JLog_Writer T_PTROBJ_SPECIAL
3 JLog_Reader T_PTROBJ_SPECIAL
4
5 INPUT
6 T_PTROBJ_SPECIAL
7     if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")) {
8         IV tmp = SvIV((SV*)SvRV($arg));
9         $var = ($type) tmp;
10     }
11     else
12         croak(\"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")
13
14
15 OUTPUT
16 T_PTROBJ_SPECIAL
17     sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
18                  (void*)$var);
19
Note: See TracBrowser for help on using the browser.