index 029b3beeebe0a3de3190e29d5e0f8419ac6c7ad3..830a779d5f0f090c395cfeed3c0a445aa0b8b4f2 100644 (file)
*/
#define VERSION_SAVED VERSION
#undef VERSION
+#ifndef WIN32
#include "../../rrd_config.h"
+#endif
#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";\
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; \
#ifdef MUST_DISABLE_FPMASK
fpsetmask(0);
#endif
-
SV*
rrd_error()
OUTPUT:
RETVAL
-
int
rrd_last(...)
PROTOTYPE: @
OUTPUT:
RETVAL
-
int
rrd_create(...)
PROTOTYPE: @
OUTPUT:
RETVAL
-
int
rrd_update(...)
PROTOTYPE: @
OUTPUT:
RETVAL
-
int
rrd_tune(...)
PROTOTYPE: @
OUTPUT:
RETVAL
-
SV *
rrd_graph(...)
PROTOTYPE: @
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));
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));
OUTPUT:
RETVAL
+#ifndef WIN32
int
rrd_flushcached(...)
PROTOTYPE: @
rrdcode(rrd_flushcached);
OUTPUT:
RETVAL
+
+#endif