On Thu, Jul 29, 2004 at 09:59:57AM -0400, Mik Firestone wrote:
> I am just looking for a URL or an example of how to return a reference to a C
> structure to perl.  I have read the Cookbook, and I can get my code to work if
> I actually create a blessed reference.  I would prefer to bless it - I just
> want a reference that I can later pass to other C functions.
> 
> I have looked at the docs for Inline::Struct, and I do not think that is what
> I want.  Again, I do not want a blessed reference, just a reference.  I have
> read perlguts, and believe the call I need to use is newRV_noinc.  
> 
> What follows are two files.  The first one is a package that is mostly
> stolen^wmodeled on the Cookbook OO example.  The main difference is that I do
> not bless the structure, I just try to return a ref to it.  The other piece of
> code exercises my problem -- namely a segfault.
> 
> What have I missed?
> 
> Thanks,
> Mik
>

Hi,
  I think the problem is newRV_noinc expects a SV* as an argument.
  You need to wrap the pointer with a scalar and then pass that in.

> SV* induct( char *name, char *rank, long serial ) {
>     Soldier* soldier = malloc(sizeof(Soldier));
>     
>     soldier->name = strdup(name);
>     soldier->rank = strdup(rank);
>     soldier->serial = serial;
> 
>     return newRV_noinc((SV*)soldier);
 
        return newRV_noinc(newSViv(soldier));
> }
> 

-- 
Our mission is to seamlessly maintain corporate methods of empowerment 
and completely leverage existing prospective infrastructures for 100% customer 
satisfaction

Reply via email to