root/perl/typemap

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

initial import with Ecelerity bits removed and some autoconf glue added in. Could certainly use some work on the build/install. Needs shared lib support for multiple platforms

  • 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.