{
   package Node;

   use strict;
   use warnings;

   use Inline C => <<'__EOI__';

      typedef struct {
         // ...
      } Node;

      Node* new_node() {
         Node* node;
         warn("new_node\n"); // DEBUG
         Newx(node, 1, Node);
         // node->... = ...;
         return node;
      }

      void DESTROY(Node* node) {
         warn("DESTROY\n"); // DEBUG
         Safefree(node);
      }

__EOI__
}

{
   use strict;
   use warnings;

   my $x = Node::new_node();
}

[download]

typemap: 

Node* T_OBJECT

INPUT
T_OBJECT
   if (sv_derived_from($arg, \"${subtype}\")) {
      IV tmp = SvIV((SV*)SvRV($arg));
      $var = INT2PTR($type,tmp);
   }
   else
      Perl_croak(aTHX_ \"%s: %s is not of type %s\",
         ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
         \"$var\", \"$subtype\")

OUTPUT
T_OBJECT
   sv_setref_pv($arg, \"${subtype}\", (void*)$var);

[download]

I was going to use the T_PTROBJ map for Node*, but it was blessing the objects into NodePtr instead of Node. T_OBJECT is just T_PTROBJ that uses $subtype instead of $type.

In reply to Re: How to keep C variables "alive" between invocations with Inline::C by ikegami
in thread How to keep C variables "alive" between invocations with Inline::C by Limbic~Region

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.