From d81930599d9f0710568ab3eb121309502e58bc19 Mon Sep 17 00:00:00 2001
From: Tobias Oetiker <tobi@oetiker.ch>
Date: Thu, 26 Jun 2014 15:37:18 +0200
Subject: [PATCH] handle missing rrd_graph support

---
 bindings/lua/rrdlua.c           | 10 ++++++++++
 bindings/perl-shared/RRDs.xs    | 16 ++++++++++++----
 bindings/python/rrdtoolmodule.c |  8 ++++++++
 3 files changed, 30 insertions(+), 4 deletions(-)

diff --git a/bindings/lua/rrdlua.c b/bindings/lua/rrdlua.c
index 690ba29b..bfbc174b 100644
--- a/bindings/lua/rrdlua.c
+++ b/bindings/lua/rrdlua.c
@@ -267,6 +267,8 @@ lua_rrd_last (lua_State * L)
   return 1;
 }
 
+#ifdef HAVE_RRD_GRAPH
+
 static int
 lua_rrd_graph (lua_State * L)
 {
@@ -292,6 +294,8 @@ lua_rrd_graph (lua_State * L)
   return 3;
 }
 
+#endif
+
 static int
 lua_rrd_flushcached(lua_State *L)
 {
@@ -305,12 +309,16 @@ lua_rrd_info (lua_State * L)
   return lua_rrd_infocall(L, "info", rrd_info);
 }
 
+#ifdef HAVE_RRD_GRAPH
+
 static int
 lua_rrd_graphv (lua_State * L)
 {
   return lua_rrd_infocall(L, "graphv", rrd_graph_v);
 }
 
+#endif
+
 static int
 lua_rrd_updatev (lua_State * L)
 {
@@ -347,7 +355,9 @@ static const struct luaL_reg rrd[] = {
   {"dump", lua_rrd_dump},
   {"fetch", lua_rrd_fetch},
   {"first", lua_rrd_first},
+#ifdef HAVE_RRD_GRAPH
   {"graph", lua_rrd_graph},
+#endif
   {"last", lua_rrd_last},
   {"resize", lua_rrd_resize},
   {"restore", lua_rrd_restore},
diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 9f7c2119..e8c24700 100644
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -181,7 +181,7 @@ static int rrd_fetch_cb_wrapper(
         rrd_set_error("Expected the perl callback function to return a reference");
         goto error_out;
     }
-    retHV = SvRV(retSV);
+    retHV = (HV*)SvRV(retSV);
     if (SvTYPE(retHV) != SVt_PVHV) {
         rrd_set_error("Expected the perl callback function to return a hash reference");
         goto error_out;
@@ -213,7 +213,7 @@ static int rrd_fetch_cb_wrapper(
         rrd_set_error("Expected the perl callback function to return a valid data element");
         goto error_out;        
     }
-    retHV = SvRV(retSV);
+    retHV = (HV*)SvRV(retSV);
     if (SvTYPE(retHV) != SVt_PVHV){
         rrd_set_error("Expected the perl callback function to return data element pointing to a hash");
         goto error_out;
@@ -243,7 +243,7 @@ static int rrd_fetch_cb_wrapper(
             rrd_set_error("Expected the perl callback function to return an array pointer for {data}->{%s}",(*ds_namv)[i]);
             goto error_out_free_ds_namv;        
         }
-        retAV = SvRV(retSV);
+        retAV = (AV*)SvRV(retSV);
         if (SvTYPE(retAV) != SVt_PVAV){
             rrd_set_error("Expected the perl callback function to return an array pointer for {data}->{%s}",(*ds_namv)[i]);
             goto error_out_free_ds_namv;        
@@ -258,7 +258,7 @@ static int rrd_fetch_cb_wrapper(
     }
 
     for (i=0;i<*ds_cnt;i++){
-        retAV = SvRV(HeVAL(hv_fetch_ent(retHV,sv_2mortal(newSVpv((*ds_namv)[i],0)),0,0)));
+        retAV = (AV*)SvRV(HeVAL(hv_fetch_ent(retHV,sv_2mortal(newSVpv((*ds_namv)[i],0)),0,0)));
         for (ii=0;ii<rowCount;ii++){
             SV** valP = av_fetch(retAV,ii,0);
             SV* val = valP ? *valP : &PL_sv_undef;
@@ -366,6 +366,8 @@ rrd_tune(...)
 	OUTPUT:
 		RETVAL
 
+#ifdef HAVE_RRD_GRAPH
+
 SV *
 rrd_graph(...)
 	PROTOTYPE: @	
@@ -412,6 +414,8 @@ rrd_graph(...)
 		PUSHs(sv_2mortal(newSViv(xsize)));
 		PUSHs(sv_2mortal(newSViv(ysize)));
 
+#endif /* HAVE_RRD_GRAPH */
+
 SV *
 rrd_fetch(...)
 	PROTOTYPE: @	
@@ -584,6 +588,8 @@ rrd_updatev(...)
     OUTPUT:
 	   RETVAL
 
+#ifdef HAVE_RRD_GRAPH
+
 SV*
 rrd_graphv(...)
 	PROTOTYPE: @	
@@ -597,6 +603,8 @@ rrd_graphv(...)
     OUTPUT:
 	   RETVAL
 
+#endif /* HAVE_RRD_GRAPH */
+
 int
 rrd_dump(...)
        PROTOTYPE: @
diff --git a/bindings/python/rrdtoolmodule.c b/bindings/python/rrdtoolmodule.c
index 9ac1bf3b..900384dc 100644
--- a/bindings/python/rrdtoolmodule.c
+++ b/bindings/python/rrdtoolmodule.c
@@ -261,6 +261,8 @@ static PyObject *PyRRD_fetch(
     return r;
 }
 
+#ifdef HAVE_RRD_GRAPH
+
 static char PyRRD_graph__doc__[] =
     "graph(args..): Create a graph based on data from one or several RRD\n"
     "    graph filename [-s|--start seconds] "
@@ -328,6 +330,8 @@ static PyObject *PyRRD_graph(
     return r;
 }
 
+#endif /* HAVE_RRD_GRAPH */
+
 static char PyRRD_tune__doc__[] =
     "tune(args...): Modify some basic properties of a Round Robin Database\n"
     "    tune filename [--heartbeat|-h ds-name:heartbeat] "
@@ -503,6 +507,8 @@ static PyObject *PyRRD_info(
     return r;
 }
 
+#ifdef HAVE_RRD_GRAPH
+
 static char PyRRD_graphv__doc__[] =
     "graphv is called in the same manner as graph";
 
@@ -531,6 +537,8 @@ static PyObject *PyRRD_graphv(
     return r;
 }
 
+#endif /* HAVE_RRD_GRAPH */
+
 static char PyRRD_updatev__doc__[] =
     "updatev is called in the same manner as update";
 
-- 
2.47.3