1 /****************************************************************************
2 * RRDtool 1.0.37 Copyright Tobias Oetiker, 1997 - 2000
3 ****************************************************************************
4 * rrd_xport.c export RRD data
5 ****************************************************************************/
10 #include "rrd_graph.h"
11 #include "rrd_xport.h"
19 int rrd_xport(int, char **, int *,
21 unsigned long *, unsigned long *,
22 char ***, rrd_value_t **);
24 int rrd_xport_fn(image_desc_t *,
26 unsigned long *, unsigned long *,
27 char ***, rrd_value_t **);
33 rrd_xport(int argc, char **argv, int *xsize,
35 time_t *end, /* which time frame do you want ?
36 * will be changed to represent reality */
37 unsigned long *step, /* which stepsize do you want?
38 * will be changed to represent reality */
39 unsigned long *col_cnt, /* number of data columns in the result */
40 char ***legend_v, /* legend entries */
41 rrd_value_t **data) /* two dimensional array containing the data */
48 time_t start_tmp=0,end_tmp=0;
51 struct time_value start_tv, end_tv;
52 char *parsetime_error = NULL;
56 parsetime("end-24h", &start_tv);
57 parsetime("now", &end_tv);
60 static struct option long_options[] =
62 {"start", required_argument, 0, 's'},
63 {"end", required_argument, 0, 'e'},
64 {"maxrows", required_argument, 0, 'm'},
65 {"step", required_argument, 0, 261},
71 opt = getopt_long(argc, argv, "s:e:m:",
72 long_options, &option_index);
79 im.step = atoi(optarg);
82 if ((parsetime_error = parsetime(optarg, &start_tv))) {
83 rrd_set_error( "start time: %s", parsetime_error );
88 if ((parsetime_error = parsetime(optarg, &end_tv))) {
89 rrd_set_error( "end time: %s", parsetime_error );
94 long_tmp = atol(optarg);
96 rrd_set_error("maxrows below 10 rows");
102 rrd_set_error("unknown option '%c'", optopt);
107 if (proc_start_end(&start_tv,&end_tv,&start_tmp,&end_tmp) == -1){
111 if (start_tmp < 3600*24*365*10){
112 rrd_set_error("the first entry to fetch should be after 1980 (%ld)",start_tmp);
116 if (end_tmp < start_tmp) {
117 rrd_set_error("start (%ld) should be less than end (%ld)",
122 im.start = start_tmp;
125 for(i=optind;i<argc;i++){
128 char varname[30],*rpnex;
130 if(sscanf(argv[i],"%10[A-Z0-9]:%n",symname,&argstart)==1){
131 if((im.gdes[im.gdes_c-1].gf=gf_conv(symname))==-1){
133 rrd_set_error("unknown function '%s'",symname);
137 rrd_set_error("can't parse '%s'",argv[i]);
142 switch(im.gdes[im.gdes_c-1].gf){
144 if((rpnex = malloc(strlen(&argv[i][argstart])*sizeof(char)))==NULL){
145 rrd_set_error("malloc for CDEF");
150 DEF_NAM_FMT "=%[^: ]",
151 im.gdes[im.gdes_c-1].vname,
155 rrd_set_error("can't parse CDEF '%s'",&argv[i][argstart]);
158 /* checking for duplicate DEF CDEFS */
159 if(find_var(&im,im.gdes[im.gdes_c-1].vname) != -1){
161 rrd_set_error("duplicate variable '%s'",
162 im.gdes[im.gdes_c-1].vname);
165 if((im.gdes[im.gdes_c-1].rpnp = rpn_parse(&im,rpnex,&find_var_wrapper))== NULL){
166 rrd_set_error("invalid rpn expression '%s'", rpnex);
176 im.gdes[im.gdes_c-1].vname,
177 &strstart)== 1 && strstart){ /* is the = did not match %n returns 0 */
178 if(sscanf(&argv[i][argstart
180 +scan_for_col(&argv[i][argstart+strstart],
181 MAXPATH,im.gdes[im.gdes_c-1].rrd)],
182 ":" DS_NAM_FMT ":" CF_NAM_FMT,
183 im.gdes[im.gdes_c-1].ds_nam,
186 rrd_set_error("can't parse DEF '%s' -2",&argv[i][argstart]);
191 rrd_set_error("can't parse DEF '%s'",&argv[i][argstart]);
195 /* checking for duplicate DEF CDEFS */
196 if (find_var(&im,im.gdes[im.gdes_c-1].vname) != -1){
198 rrd_set_error("duplicate variable '%s'",
199 im.gdes[im.gdes_c-1].vname);
202 if((im.gdes[im.gdes_c-1].cf=cf_conv(symname))==-1){
204 rrd_set_error("unknown cf '%s'",symname);
209 if((scancount=sscanf(
215 im.gdes[im.gdes_c-1].legend[0] = '\0';
217 scan_for_col(&argv[i][argstart+strstart],FMT_LEG_LEN,im.gdes[im.gdes_c-1].legend);
219 if((im.gdes[im.gdes_c-1].vidx=find_var(&im,varname))==-1){
221 rrd_set_error("unknown variable '%s'",varname);
226 rrd_set_error("can't parse '%s'",&argv[i][argstart]);
237 rrd_set_error("can't make a graph without contents");
242 if (rrd_xport_fn(&im, start, end, step, col_cnt, legend_v, data) == -1){
254 rrd_xport_fn(image_desc_t *im,
256 time_t *end, /* which time frame do you want ?
257 * will be changed to represent reality */
258 unsigned long *step, /* which stepsize do you want?
259 * will be changed to represent reality */
260 unsigned long *col_cnt, /* number of data columns in the result */
261 char ***legend_v, /* legend entries */
262 rrd_value_t **data) /* two dimensional array containing the data */
266 unsigned long *ds_cnt; /* number of data sources in file */
267 unsigned long col, dst_row, row_cnt;
268 rrd_value_t *srcptr, *dstptr;
270 unsigned long nof_xports = 0;
271 unsigned long xport_counter = 0;
272 unsigned long *ref_list;
273 rrd_value_t **srcptr_list;
277 time_t start_tmp = 0;
279 unsigned long step_tmp = 1;
281 /* pull the data from the rrd files ... */
282 if(data_fetch(im)==-1)
285 /* evaluate CDEF operations ... */
286 if(data_calc(im)==-1)
289 /* how many xports? */
290 for(i = 0; i < im->gdes_c; i++) {
291 switch(im->gdes[i].gf) {
300 if(nof_xports == 0) {
301 rrd_set_error("no XPORT found, nothing to do");
305 /* a list of referenced gdes */
306 ref_list = malloc(sizeof(int) * nof_xports);
310 /* a list to save pointers into each gdes data */
311 srcptr_list = malloc(sizeof(srcptr) * nof_xports);
312 if(srcptr_list == NULL) {
317 /* a list to save pointers to the column's legend entry */
318 /* this is a return value! */
319 legend_list = malloc(sizeof(char *) * nof_xports);
320 if(legend_list == NULL) {
326 /* find referenced gdes and save their index and */
327 /* a pointer into their data */
328 for(i = 0; i < im->gdes_c; i++) {
329 switch(im->gdes[i].gf) {
331 ii = im->gdes[i].vidx;
332 if(xport_counter > nof_xports) {
333 rrd_set_error( "too many xports: should not happen. Hmmm");
339 srcptr_list[xport_counter] = im->gdes[ii].data;
340 ref_list[xport_counter++] = i;
347 start_tmp = im->gdes[0].start;
348 end_tmp = im->gdes[0].end;
349 step_tmp = im->gdes[0].step;
351 /* fill some return values */
352 *col_cnt = nof_xports;
357 row_cnt = ((*end)-(*start))/(*step);
359 /* room for rearranged data */
360 /* this is a return value! */
361 if (((*data) = malloc((*col_cnt) * row_cnt * sizeof(rrd_value_t)))==NULL){
365 rrd_set_error("malloc xport data area");
371 for(i = 0; i < im->gdes_c; i++) {
372 switch(im->gdes[i].gf) {
374 /* reserve room for one legend entry */
375 /* is FMT_LEG_LEN + 5 the correct size? */
376 if ((legend_list[j] = malloc(sizeof(char) * (FMT_LEG_LEN+5)))==NULL) {
380 rrd_set_error("malloc xprint legend entry");
384 if (im->gdes[i].legend)
385 /* omit bounds check, should have the same size */
386 strcpy (legend_list[j++], im->gdes[i].legend);
388 legend_list[j++][0] = '\0';
396 /* fill data structure */
397 for(dst_row = 0; dst_row < row_cnt; dst_row++) {
398 for(i = 0; i < nof_xports; i++) {
400 ii = im->gdes[j].vidx;
401 ds_cnt = &im->gdes[ii].ds_cnt;
403 srcptr = srcptr_list[i];
404 for(col = 0; col < (*ds_cnt); col++) {
405 rrd_value_t newval = DNAN;
406 newval = srcptr[col];
408 if (im->gdes[ii].ds_namv && im->gdes[ii].ds_nam) {
409 if(strcmp(im->gdes[ii].ds_namv[col],im->gdes[ii].ds_nam) == 0)
410 (*dstptr++) = newval;
412 (*dstptr++) = newval;
416 srcptr_list[i] += (*ds_cnt);
420 *legend_v = legend_list;