On Aug 30, 3:01 am, [EMAIL PROTECTED] (Patrick Dupre) wrote:
.
.
> I do:
> AV* av ;
>
> then av = (AV*) svRV (retval) ;
>
Looks ok to me. Install Inline::C so that you can quickly and easily
test things out:
----------------------------------------
use warnings;
use strict;
use Inline C => Config =>
BUILD_NOISY => 1;
use Inline C => <<'EOC';
AV * foo(SV * x) {
AV * av;
av = (AV*)SvRV(x);
return av;
}
EOC
my @in = (1,2,3,4,5,6);
my $out = foo([EMAIL PROTECTED]);
print "@$out\n"; # 1 2 3 4 5 6
----------------------------------------
$out is a reference to @in. Is that what you want ?
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
