projects
/
rrdtool.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RRDs.xs uses &PL_sv_undef to insert undefined values into arrays and hashes. This...
[rrdtool.git]
/
bindings
/
perl-shared
/
RRDs.xs
diff --git
a/bindings/perl-shared/RRDs.xs
b/bindings/perl-shared/RRDs.xs
index
e15aaec
..
830a779
100644
(file)
--- a/
bindings/perl-shared/RRDs.xs
+++ b/
bindings/perl-shared/RRDs.xs
@@
-24,18
+24,14
@@
extern "C" {
*/
#define VERSION_SAVED VERSION
#undef VERSION
*/
#define VERSION_SAVED VERSION
#undef VERSION
+#ifndef WIN32
#include "../../rrd_config.h"
#include "../../rrd_config.h"
+#endif
#include "../../src/rrd_tool.h"
#undef VERSION
#define VERSION VERSION_SAVED
#undef VERSION_SAVED
#include "../../src/rrd_tool.h"
#undef VERSION
#define VERSION VERSION_SAVED
#undef VERSION_SAVED
-/* perl 5.004 compatibility */
-#if PERLPATCHLEVEL < 5
-#define PL_sv_undef sv_undef
-#endif
-
-
#define rrdcode(name) \
argv = (char **) malloc((items+1)*sizeof(char *));\
argv[0] = "dummy";\
#define rrdcode(name) \
argv = (char **) malloc((items+1)*sizeof(char *));\
argv[0] = "dummy";\
@@
-85,7
+81,7
@@
extern "C" {
switch (data->type) { \
case RD_I_VAL: \
if (isnan(data->value.u_val)) \
switch (data->type) { \
case RD_I_VAL: \
if (isnan(data->value.u_val)) \
- hvs(
&PL_sv_undef
); \
+ hvs(
newSV(0)
); \
else \
hvs(newSVnv(data->value.u_val)); \
break; \
else \
hvs(newSVnv(data->value.u_val)); \
break; \
@@
-126,7
+122,6
@@
BOOT:
#ifdef MUST_DISABLE_FPMASK
fpsetmask(0);
#endif
#ifdef MUST_DISABLE_FPMASK
fpsetmask(0);
#endif
-
SV*
rrd_error()
SV*
rrd_error()
@@
-136,7
+131,6
@@
rrd_error()
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-
int
rrd_last(...)
PROTOTYPE: @
int
rrd_last(...)
PROTOTYPE: @
@@
-159,7
+153,6
@@
rrd_first(...)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-
int
rrd_create(...)
PROTOTYPE: @
int
rrd_create(...)
PROTOTYPE: @
@@
-172,7
+165,6
@@
rrd_create(...)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-
int
rrd_update(...)
PROTOTYPE: @
int
rrd_update(...)
PROTOTYPE: @
@@
-185,7
+177,6
@@
rrd_update(...)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-
int
rrd_tune(...)
PROTOTYPE: @
int
rrd_tune(...)
PROTOTYPE: @
@@
-198,7
+189,6
@@
rrd_tune(...)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
-
SV *
rrd_graph(...)
PROTOTYPE: @
SV *
rrd_graph(...)
PROTOTYPE: @
@@
-286,7
+276,7
@@
rrd_fetch(...)
for (i = start+step; i <= end; i += step){
line = newAV();
for (ii = 0; ii < ds_cnt; ii++){
for (i = start+step; i <= end; i += step){
line = newAV();
for (ii = 0; ii < ds_cnt; ii++){
- av_push(line,(isnan(*datai) ?
&PL_sv_undef
: newSVnv(*datai)));
+ av_push(line,(isnan(*datai) ?
newSV(0)
: newSVnv(*datai)));
datai++;
}
av_push(retar,newRV_noinc((SV*)line));
datai++;
}
av_push(retar,newRV_noinc((SV*)line));
@@
-366,7
+356,7
@@
rrd_xport(...)
for (i = start+step; i <= end; i += step){
line = newAV();
for (ii = 0; ii < col_cnt; ii++){
for (i = start+step; i <= end; i += step){
line = newAV();
for (ii = 0; ii < col_cnt; ii++){
- av_push(line,(isnan(*ptr) ?
&PL_sv_undef
: newSVnv(*ptr)));
+ av_push(line,(isnan(*ptr) ?
newSV(0)
: newSVnv(*ptr)));
ptr++;
}
av_push(retar,newRV_noinc((SV*)line));
ptr++;
}
av_push(retar,newRV_noinc((SV*)line));
@@
-444,6
+434,7
@@
rrd_restore(...)
OUTPUT:
RETVAL
OUTPUT:
RETVAL
+#ifndef WIN32
int
rrd_flushcached(...)
PROTOTYPE: @
int
rrd_flushcached(...)
PROTOTYPE: @
@@
-451,6
+442,8
@@
rrd_flushcached(...)
int i;
char **argv;
CODE:
int i;
char **argv;
CODE:
- rrdcode(rrd_
cmd_flush
);
+ rrdcode(rrd_
flushcached
);
OUTPUT:
RETVAL
OUTPUT:
RETVAL
+
+#endif