perlquestion
Festus Hagen
Hey y'all,
<p>Trying to get the hang of this xs stuff and at a hump I can't seem to get over ...</P>
<p>Modifying a passed parameter.<br>
The goal is to return the Int value and modify the passed arg to true or false (pass or fail on the conversion)</p>
<p>MyLib is a stupid simple string class, strToInt() works correctly, both in the return value as well as modifying the passfail value.<br>
However, It does not show the changes in Perl.</p>
<p>The xs code. (with some printf's)
<code>
int
MyLib::strToInt(passfail)
bool passfail;
CODE:
if(passfail) {
printf("It's true in xs. %i\n", passfail);
} else {
printf("It's false in xs. %i\n", passfail);
}
RETVAL = THIS->strToInt(&passfail);
if(passfail) {
printf("It's true out xs. %i\n", passfail);
} else {
printf("It's false out xs. %i\n", passfail);
}
OUTPUT:
RETVAL
passfail
</code>
</p>
<p>The Perl calling code.
<code>
my $passfail = 0;
my $tmp = MyLib->new("12");
my $t = $tmp->strToInt(\$passfail);
print "It's $t\n" if $passfail eq 1;
</code>
</p>
<p>The above code produces the following output:
<code>
It's false in xs. 0
It's true out xs. 1
</code>So the xs and C code works</p>
<p>What the blazes am I doing wrong!<br>
Perlxstut makes it look simple ...</p>
<p>Thanks</p>
<p>-Enjoy<br>fh <b><font color="#FF0000">:</font></b> )_~</p>