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

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