Opened by Ishka at 2005-07-27 00:02
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
[quote=Ishka,27.07.2005, 10:18]super, danke. Genau sowas hab ich gesucht :)[/quote]
Also pointer arithmetic...
aber wie du siehst, ist es C Code, und kein Perl!\n\n
<!--EDIT|esskar|1122452719-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
SV *
_deref(int ref)
CODE:
if (ref) {
SV *r = (SV *) ref;
if (SvTYPE(r)>0) {
RETVAL = newRV_inc(r);
}
else {
RETVAL = &PL_sv_undef;
}
}
else {
RETVAL = &PL_sv_undef;
}
OUTPUT:
RETVAL
Also pointer arithmetic...
aber wie du siehst, ist es C Code, und kein Perl!\n\n
<!--EDIT|esskar|1122452719-->