Re: XS to return Perl Arrays - and NetWare Select()

Take a look on CPAN at the C + macros code as well as the XS code in 
Net::Interface in the xs module. Look at places that use PUSH or 
XPUSH that return a variety of references. hv's, av's, etc... 
examples of each type and their manipulation can be found in both the 
xs and C modules found in the distro directory.

How many items you push on the stack before returning is up to your 
code.


> G/Morning
> On 10/06/2011 4:20 PM, Torsten Schoenfeld wrote:
> > On 10.06.2011 00:15, NormW wrote:
> >>> AV *results;
> >>> results = newAV();
> >>> ....
> >>> something = (AV *)SvRV(*other_av_thing);
> >>> ....
> >>> av_store(results,i, something);
> >>> ....
> >>> RETVAL = results;
> >>> sv_2mortal((SV *)RETVAL);
> >> Have seen that method in several XS programs (and PerlXSTut iirc)
> >> but it is unclear if that works when 3 elements are to be returned;
> >> will have a closer look at the Perl XS docs...
> >
> > In short: create the AVs like above, then use newRV_noinc to create
> > array references and push these onto the stack with XPUSHs. Use
> > sv_2mortal only on the array references.
> Thanks for the tip! Well make it my next method to try if the one now
> working on lays an egg.
> 
> Decided to examine what was needed on the Perl end of the XS function
> and after some doodling came up with:
> 
> my @ri = array of socket handles (similar to select.pm)
> 
> $n = nw_select(\@ri,\@wi,\@ei,$wait);
> 
> @ri;
> 
> I found some XS code that directly modifies an array(s) passed in as a
> parm, and doing this means it isn't necessary to return arrays via the
> stack, and can use RETVAL to return $nfound, which makes this a whole
> lot simpler problem... (assuming NetWare stays happy).
> 
> Will advise this list on progress.
> 
> Thanks to all for all the help provided,
> Cheers,
> Norm