src/rrd_graph_helper.c

   1 /****************************************************************************
   2  * RRDtool 1.4.8  Copyright by Tobi Oetiker, 1997-2013
   3  ****************************************************************************
   4  * rrd_graph_helper.c  commandline parser functions
   5  *                     this code initially written by Alex van den Bogaerdt
   6  ****************************************************************************/
   7
   8 #include "rrd_graph.h"
   9
  10 #define dprintf if (gdp->debug) printf
  11
  12 /* NOTE ON PARSING:
  13  *
  14  * we use the following:
  15  *
  16  * i=0;  sscanf(&line[*eaten], "what to find%n", variables, &i)
  17  *
  18  * Usually you want to find a separator as well.  Example:
  19  * i=0; sscanf(&line[*eaten], "%li:%n", &someint, &i)
  20  *
  21  * When the separator is not found, i is not set and thus remains zero.
  22  * Another way would be to compare strlen() to i
  23  *
  24  * Why is this important?  Because 12345abc should not be matched as
  25  * integer 12345 ...
  26  */
  27
  28 /* NOTE ON VNAMES:
  29  *
  30  * "if ((gdp->vidx=find_var(im, l))!=-1)" is not good enough, at least
  31  * not by itself.
  32  *
  33  * A vname as a result of a VDEF is quite different from a vname
  34  * resulting of a DEF or CDEF.
  35  */
  36
  37 /* NOTE ON VNAMES:
  38  *
  39  * A vname called "123" is not to be parsed as the number 123
  40  */
  41
  42
  43 /* Define prototypes for the parsing methods.
  44   Inputs:
  45    const char *const line    - a fixed pointer to a fixed string
  46    unsigned int *const eaten - a fixed pointer to a changing index in that line
  47    graph_desc_t *const gdp   - a fixed pointer to a changing graph description
  48    image_desc_t *const im    - a fixed pointer to a changing image description
  49 */
  50
  51 int       rrd_parse_find_gf(
  52     const char *const,
  53     unsigned int *const,
  54     graph_desc_t *const);
  55
  56 int       rrd_parse_legend(
  57     const char *const,
  58     unsigned int *const,
  59     graph_desc_t *const);
  60
  61 int       rrd_parse_color(
  62     const char *const,
  63     graph_desc_t *const);
  64
  65 int       rrd_parse_textalign(
  66     const char *const,
  67     unsigned int *const,
  68     graph_desc_t *const);
  69
  70
  71 int       rrd_parse_CF(
  72     const char *const,
  73     unsigned int *const,
  74     graph_desc_t *const,
  75     enum cf_en *const);
  76
  77 int       rrd_parse_print(
  78     const char *const,
  79     unsigned int *const,
  80     graph_desc_t *const,
  81     image_desc_t *const);
  82
  83 int       rrd_parse_shift(
  84     const char *const,
  85     unsigned int *const,
  86     graph_desc_t *const,
  87     image_desc_t *const);
  88
  89 int       rrd_parse_xport(
  90     const char *const,
  91     unsigned int *const,
  92     graph_desc_t *const,
  93     image_desc_t *const);
  94
  95 int       rrd_parse_PVHLAST(
  96     const char *const,
  97     unsigned int *const,
  98     graph_desc_t *const,
  99     image_desc_t *const);
 100
 101 int       rrd_parse_make_vname(
 102     const char *const,
 103     unsigned int *const,
 104     graph_desc_t *const,
 105     image_desc_t *const);
 106
 107 int       rrd_parse_find_vname(
 108     const char *const,
 109     unsigned int *const,
 110     graph_desc_t *const,
 111     image_desc_t *const);
 112
 113 int       rrd_parse_def(
 114     const char *const,
 115     unsigned int *const,
 116     graph_desc_t *const,
 117     image_desc_t *const);
 118
 119 int       rrd_parse_vdef(
 120     const char *const,
 121     unsigned int *const,
 122     graph_desc_t *const,
 123     image_desc_t *const);
 124
 125 int       rrd_parse_cdef(
 126     const char *const,
 127     unsigned int *const,
 128     graph_desc_t *const,
 129     image_desc_t *const);
 130
 131 int rrd_parse_find_gf(
 132     const char *const line,
 133     unsigned int *const eaten,
 134     graph_desc_t *const gdp)
 135 {
 136     char      funcname[11], c1 = 0;
 137     int       i = 0;
 138
 139     /* start an argument with DEBUG to be able to see how it is parsed */
 140     sscanf(&line[*eaten], "DEBUG%n", &i);
 141     if (i) {
 142         gdp->debug = 1;
 143         (*eaten) += i;
 144         i = 0;
 145         dprintf("Scanning line '%s'\n", &line[*eaten]);
 146     }
 147     i = 0;
 148     c1 = '\0';
 149     sscanf(&line[*eaten], "%10[A-Z]%n%c", funcname, &i, &c1);
 150     if (!i) {
 151         rrd_set_error("Could not make sense out of '%s'", line);
 152         return 1;
 153     }
 154     (*eaten) += i;
 155     if ((int) (gdp->gf = gf_conv(funcname)) == -1) {
 156         rrd_set_error("'%s' is not a valid function name", funcname);
 157         return 1;
 158     } else {
 159         dprintf("- found function name '%s'\n", funcname);
 160     }
 161
 162     if (c1 == '\0') {
 163         rrd_set_error("Function %s needs parameters.  Line: %s\n", funcname,
 164                       line);
 165         return 1;
 166     }
 167     if (c1 == ':')
 168         (*eaten)++;
 169
 170     /* Some commands have a parameter before the colon
 171      * (currently only LINE)
 172      */
 173     switch (gdp->gf) {
 174     case GF_LINE:
 175         if (c1 == ':') {
 176             gdp->linewidth = 1;
 177             dprintf("- using default width of 1\n");
 178         } else {
 179             i = 0;
 180             sscanf(&line[*eaten], "%lf:%n", &gdp->linewidth, &i);
 181             if (!i) {
 182                 rrd_set_error("Cannot parse line width '%s' in line '%s'\n",
 183                               &line[*eaten], line);
 184                 return 1;
 185             } else {
 186                 dprintf("- scanned width %f\n", gdp->linewidth);
 187                 if (isnan(gdp->linewidth)) {
 188                     rrd_set_error
 189                         ("LINE width '%s' is not a number in line '%s'\n",
 190                          &line[*eaten], line);
 191                     return 1;
 192                 }
 193                 if (isinf(gdp->linewidth)) {
 194                     rrd_set_error
 195                         ("LINE width '%s' is out of range in line '%s'\n",
 196                          &line[*eaten], line);
 197                     return 1;
 198                 }
 199                 if (gdp->linewidth < 0) {
 200                     rrd_set_error
 201                         ("LINE width '%s' is less than 0 in line '%s'\n",
 202                          &line[*eaten], line);
 203                     return 1;
 204                 }
 205             }
 206             (*eaten) += i;
 207         }
 208         break;
 209     default:
 210         if (c1 == ':')
 211             break;
 212         rrd_set_error("Malformed '%s' command in line '%s'\n", &line[*eaten],
 213                       line);
 214         return 1;
 215     }
 216     if (line[*eaten] == '\0') {
 217         rrd_set_error("Expected some arguments after '%s'\n", line);
 218         return 1;
 219     }
 220     return 0;
 221 }
 222
 223 int rrd_parse_legend(
 224     const char *const line,
 225     unsigned int *const eaten,
 226     graph_desc_t *const gdp)
 227 {
 228     int       i;
 229
 230     if (line[*eaten] == '\0' || line[*eaten] == ':') {
 231         dprintf("- no (or: empty) legend found\n");
 232         return 0;
 233     }
 234
 235     i = scan_for_col(&line[*eaten], FMT_LEG_LEN, gdp->legend);
 236
 237     (*eaten) += i;
 238
 239     if (line[*eaten] != '\0' && line[*eaten] != ':') {
 240         rrd_set_error("Legend too long");
 241         return 1;
 242     } else {
 243         return 0;
 244     }
 245 }
 246
 247 int rrd_parse_color(
 248     const char *const string,
 249     graph_desc_t *const gdp)
 250 {
 251     unsigned int r = 0, g = 0, b = 0, a = 0, i;
 252
 253     /* matches the following formats:
 254      ** RGB
 255      ** RGBA
 256      ** RRGGBB
 257      ** RRGGBBAA
 258      */
 259
 260     i = 0;
 261     while (string[i] && isxdigit((unsigned int) string[i]))
 262         i++;
 263     if (string[i] != '\0')
 264         return 1;       /* garbage follows hexdigits */
 265     switch (i) {
 266     case 3:
 267     case 4:
 268         sscanf(string, "%1x%1x%1x%1x", &r, &g, &b, &a);
 269         r *= 0x11;
 270         g *= 0x11;
 271         b *= 0x11;
 272         a *= 0x11;
 273         if (i == 3)
 274             a = 0xFF;
 275         break;
 276     case 6:
 277     case 8:
 278         sscanf(string, "%02x%02x%02x%02x", &r, &g, &b, &a);
 279         if (i == 6)
 280             a = 0xFF;
 281         break;
 282     default:
 283         return 1;       /* wrong number of digits */
 284     }
 285     gdp->col = gfx_hex_to_col(r << 24 | g << 16 | b << 8 | a);
 286     return 0;
 287 }
 288
 289 int rrd_parse_CF(
 290     const char *const line,
 291     unsigned int *const eaten,
 292     graph_desc_t *const gdp,
 293     enum cf_en *cf)
 294 {
 295     char      symname[CF_NAM_SIZE];
 296     int       i = 0;
 297
 298     sscanf(&line[*eaten], CF_NAM_FMT "%n", symname, &i);
 299     if ((!i) || ((line[(*eaten) + i] != '\0') && (line[(*eaten) + i] != ':'))) {
 300         rrd_set_error("Cannot parse CF in '%s'", line);
 301         return 1;
 302     }
 303     (*eaten) += i;
 304     dprintf("- using CF '%s'\n", symname);
 305
 306     if ((int) (*cf = cf_conv(symname)) == -1) {
 307         rrd_set_error("Unknown CF '%s' in '%s'", symname, line);
 308         return 1;
 309     }
 310
 311     if (line[*eaten] != '\0')
 312         (*eaten)++;
 313     return 0;
 314 }
 315
 316 /* Try to match next token as a vname.
 317  *
 318  * Returns:
 319  * -1     an error occured and the error string is set
 320  * other  the vname index number
 321  *
 322  * *eaten is incremented only when a vname is found.
 323  */
 324 int rrd_parse_find_vname(
 325     const char *const line,
 326     unsigned int *const eaten,
 327     graph_desc_t *const gdp,
 328     image_desc_t *const im)
 329 {
 330     char      tmpstr[MAX_VNAME_LEN + 1];
 331     int       i;
 332     long      vidx;
 333
 334     i = 0;
 335     sscanf(&line[*eaten], DEF_NAM_FMT "%n", tmpstr, &i);
 336     if (!i) {
 337         rrd_set_error("Could not parse line '%s'", line);
 338         return -1;
 339     }
 340     if (line[*eaten + i] != ':' && line[*eaten + i] != '\0') {
 341         rrd_set_error("Could not parse line '%s'", line);
 342         return -1;
 343     }
 344     dprintf("- Considering '%s'\n", tmpstr);
 345
 346     if ((vidx = find_var(im, tmpstr)) < 0) {
 347         dprintf("- Not a vname\n");
 348         rrd_set_error("Not a valid vname: %s in line %s", tmpstr, line);
 349         return -1;
 350     }
 351     dprintf("- Found vname '%s' vidx '%li'\n", tmpstr, gdp->vidx);
 352     if (line[*eaten + i] == ':')
 353         i++;
 354     (*eaten) += i;
 355     return vidx;
 356 }
 357
 358 /* Parsing old-style xPRINT and new-style xPRINT */
 359 int rrd_parse_print(
 360     const char *const line,
 361     unsigned int *const eaten,
 362     graph_desc_t *const gdp,
 363     image_desc_t *const im)
 364 {
 365     /* vname:CF:format in case of DEF-based vname
 366      ** vname:CF:format in case of CDEF-based vname
 367      ** vname:format[:strftime] in case of VDEF-based vname
 368      */
 369     if ((gdp->vidx = rrd_parse_find_vname(line, eaten, gdp, im)) < 0)
 370         return 1;
 371
 372     switch (im->gdes[gdp->vidx].gf) {
 373     case GF_DEF:
 374     case GF_CDEF:
 375         dprintf("- vname is of type DEF or CDEF, looking for CF\n");
 376         if (rrd_parse_CF(line, eaten, gdp, &gdp->cf))
 377             return 1;
 378         break;
 379     case GF_VDEF:
 380         dprintf("- vname is of type VDEF\n");
 381         break;
 382     default:
 383         rrd_set_error("Encountered unknown type variable '%s'",
 384                       im->gdes[gdp->vidx].vname);
 385         return 1;
 386     }
 387
 388     if (rrd_parse_legend(line, eaten, gdp))
 389         return 1;
 390     /* for *PRINT the legend itself gets rendered later. We only
 391        get the format at this juncture */
 392     strcpy(gdp->format, gdp->legend);
 393     gdp->legend[0] = '\0';
 394     /* this is a very crud test, parsing :style flags should be in a function */
 395     if (im->gdes[gdp->vidx].gf == GF_VDEF
 396         && strcmp(line + (*eaten), ":strftime") == 0) {
 397         gdp->strftm = 1;
 398         (*eaten) += strlen(":strftime");
 399     }
 400     return 0;
 401 }
 402
 403 /* SHIFT:_def_or_cdef:_vdef_or_number_
 404  */
 405 int rrd_parse_shift(
 406     const char *const line,
 407     unsigned int *const eaten,
 408     graph_desc_t *const gdp,
 409     image_desc_t *const im)
 410 {
 411     int       i;
 412
 413     if ((gdp->vidx = rrd_parse_find_vname(line, eaten, gdp, im)) < 0)
 414         return 1;
 415
 416     switch (im->gdes[gdp->vidx].gf) {
 417     case GF_DEF:
 418     case GF_CDEF:
 419         dprintf("- vname is of type DEF or CDEF, OK\n");
 420         break;
 421     case GF_VDEF:
 422         rrd_set_error("Cannot shift a VDEF: '%s' in line '%s'\n",
 423                       im->gdes[gdp->vidx].vname, line);
 424         return 1;
 425     default:
 426         rrd_set_error("Encountered unknown type variable '%s' in line '%s'",
 427                       im->gdes[gdp->vidx].vname, line);
 428         return 1;
 429     }
 430
 431     if ((gdp->shidx = rrd_parse_find_vname(line, eaten, gdp, im)) >= 0) {
 432         switch (im->gdes[gdp->shidx].gf) {
 433         case GF_DEF:
 434         case GF_CDEF:
 435             rrd_set_error("Offset cannot be a (C)DEF: '%s' in line '%s'\n",
 436                           im->gdes[gdp->shidx].vname, line);
 437             return 1;
 438         case GF_VDEF:
 439             dprintf("- vname is of type VDEF, OK\n");
 440             break;
 441         default:
 442             rrd_set_error
 443                 ("Encountered unknown type variable '%s' in line '%s'",
 444                  im->gdes[gdp->vidx].vname, line);
 445             return 1;
 446         }
 447     } else {
 448         long      time_tmp = 0;
 449
 450         rrd_clear_error();
 451         i = 0;
 452         sscanf(&line[*eaten], "%li%n", &time_tmp, &i);
 453         gdp->shval = time_tmp;
 454         if (i != (int) strlen(&line[*eaten])) {
 455             rrd_set_error("Not a valid offset: %s in line %s", &line[*eaten],
 456                           line);
 457             return 1;
 458         }
 459         (*eaten) += i;
 460         dprintf("- offset is number %li\n", gdp->shval);
 461         gdp->shidx = -1;
 462     }
 463     return 0;
 464 }
 465
 466 /* XPORT:_def_or_cdef[:legend]
 467  */
 468 int rrd_parse_xport(
 469     const char *const line,
 470     unsigned int *const eaten,
 471     graph_desc_t *const gdp,
 472     image_desc_t *const im)
 473 {
 474     if ((gdp->vidx = rrd_parse_find_vname(line, eaten, gdp, im)) < 0)
 475         return 1;
 476
 477     switch (im->gdes[gdp->vidx].gf) {
 478     case GF_DEF:
 479     case GF_CDEF:
 480         dprintf("- vname is of type DEF or CDEF, OK\n");
 481         break;
 482     case GF_VDEF:
 483         rrd_set_error("Cannot xport a VDEF: '%s' in line '%s'\n",
 484                       im->gdes[gdp->vidx].vname, line);
 485         return 1;
 486     default:
 487         rrd_set_error("Encountered unknown type variable '%s' in line '%s'",
 488                       im->gdes[gdp->vidx].vname, line);
 489         return 1;
 490     }
 491     dprintf("- looking for legend in '%s'\n", &line[*eaten]);
 492     if (rrd_parse_legend(line, eaten, gdp))
 493         return 1;
 494     return 0;
 495 }
 496
 497 int rrd_parse_textalign(
 498     const char *const line,
 499     unsigned int *const eaten,
 500     graph_desc_t *const gdp)
 501 {
 502     if (strcmp(&line[*eaten], "left") == 0) {
 503         gdp->txtalign = TXA_LEFT;
 504     } else if (strcmp(&line[*eaten], "right") == 0) {
 505         gdp->txtalign = TXA_RIGHT;
 506     } else if (strcmp(&line[*eaten], "justified") == 0) {
 507         gdp->txtalign = TXA_JUSTIFIED;
 508     } else if (strcmp(&line[*eaten], "center") == 0) {
 509         gdp->txtalign = TXA_CENTER;
 510     } else {
 511         rrd_set_error("Unknown alignement type '%s'", &line[*eaten]);
 512         return 1;
 513     }
 514     *eaten += strlen(&line[*eaten]);
 515     return 0;
 516 }
 517
 518
 519 /* Parsing of VRULE, HRULE, LINE, AREA, STACK and TICK
 520 ** is done in one function.
 521 **
 522 ** Stacking VRULE, HRULE or TICK is not allowed.
 523 **
 524 ** If a number (which is valid to enter) is more than a
 525 ** certain amount of characters, it is caught as an error.
 526 ** While this is arguable, so is entering fixed numbers
 527 ** with more than MAX_VNAME_LEN significant digits.
 528 */
 529 int rrd_parse_PVHLAST(
 530     const char *const line,
 531     unsigned int *const eaten,
 532     graph_desc_t *const gdp,
 533     image_desc_t *const im)
 534 {
 535     int       i, j, k;
 536     int       colorfound = 0;
 537     char      tmpstr[MAX_VNAME_LEN + 10];   /* vname#RRGGBBAA\0 */
 538     static int spacecnt = 0;
 539
 540     if (spacecnt == 0) {
 541         float     one_space = gfx_get_text_width(im, 0,
 542                                                  im->
 543                                                  text_prop[TEXT_PROP_LEGEND].
 544                                                  font_desc,
 545                                                  im->tabwidth, "    ") / 4.0;
 546         float     target_space = gfx_get_text_width(im, 0,
 547                                                     im->
 548                                                     text_prop
 549                                                     [TEXT_PROP_LEGEND].font_desc,
 550                                                     im->tabwidth, "oo");
 551
 552         spacecnt = target_space / one_space;
 553         dprintf("- spacecnt: %i onespace: %f targspace: %f\n", spacecnt,
 554                 one_space, target_space);
 555     }
 556
 557
 558     dprintf("- parsing '%s'\n", &line[*eaten]);
 559
 560     /* have simpler code in the drawing section */
 561     if (gdp->gf == GF_STACK) {
 562         gdp->stack = 1;
 563     }
 564
 565     i = scan_for_col(&line[*eaten], MAX_VNAME_LEN + 9, tmpstr);
 566     if (line[*eaten + i] != '\0' && line[*eaten + i] != ':') {
 567         rrd_set_error("Cannot parse line '%s'", line);
 568         return 1;
 569     }
 570
 571     j = i;
 572     while (j > 0 && tmpstr[j] != '#')
 573         j--;
 574
 575     if (j) {
 576         tmpstr[j] = '\0';
 577     }
 578     /* We now have:
 579      * tmpstr[0]    containing vname
 580      * tmpstr[j]    if j!=0 then containing color
 581      * i            size of vname + color
 582      * j            if j!=0 then size of vname
 583      */
 584
 585     /* Number or vname ?
 586      * If it is an existing vname, that's OK, provided that it is a
 587      * valid type (need time for VRULE, not a float)
 588      * Else see if it parses as a number.
 589      */
 590     dprintf("- examining string '%s'\n", tmpstr);
 591     if ((gdp->vidx = find_var(im, tmpstr)) >= 0) {
 592         dprintf("- found vname: '%s' vidx %li\n", tmpstr, gdp->vidx);
 593         switch (gdp->gf) {
 594         case GF_VRULE:
 595         case GF_HRULE:
 596             if (im->gdes[gdp->vidx].gf != GF_VDEF) {
 597                 rrd_set_error("Using vname %s of wrong type in line %s\n",
 598                               im->gdes[gdp->gf].vname, line);
 599                 return 1;
 600             }
 601             break;
 602         default:;
 603         }
 604     } else {
 605         long      time_tmp = 0;
 606
 607         dprintf("- it is not an existing vname\n");
 608         switch (gdp->gf) {
 609         case GF_VRULE:
 610             k = 0;
 611             sscanf(tmpstr, "%li%n", &time_tmp, &k);
 612             gdp->xrule = time_tmp;
 613             if (((j != 0) && (k == j)) || ((j == 0) && (k == i))) {
 614                 dprintf("- found time: %li\n", gdp->xrule);
 615             } else {
 616                 dprintf("- is is not a valid number: %li\n", gdp->xrule);
 617                 rrd_set_error
 618                     ("parameter '%s' does not represent time in line %s\n",
 619                      tmpstr, line);
 620                 return 1;
 621             }
 622         default:
 623             k = 0;
 624             sscanf(tmpstr, "%lf%n", &gdp->yrule, &k);
 625             if (((j != 0) && (k == j)) || ((j == 0) && (k == i))) {
 626                 dprintf("- found number: %lf\n", gdp->yrule);
 627             } else {
 628                 dprintf("- is is not a valid number: %lf\n", gdp->yrule);
 629                 rrd_set_error
 630                     ("parameter '%s' does not represent a number in line %s\n",
 631                      tmpstr, line);
 632                 return 1;
 633             }
 634         }
 635     }
 636
 637     if (j) {
 638         j++;
 639         dprintf("- examining color '%s'\n", &tmpstr[j]);
 640         if (rrd_parse_color(&tmpstr[j], gdp)) {
 641             rrd_set_error("Could not parse color in '%s'", &tmpstr[j]);
 642             return 1;
 643         }
 644         dprintf("- parsed color %0.0f,%0.0f,%0.0f,%0.0f\n", gdp->col.red,
 645                 gdp->col.green, gdp->col.blue, gdp->col.alpha);
 646         colorfound = 1;
 647     } else {
 648         dprintf("- no color present in '%s'\n", tmpstr);
 649     }
 650
 651     (*eaten) += i;      /* after vname#color */
 652     if (line[*eaten] != '\0') {
 653         (*eaten)++;     /* after colon */
 654     }
 655
 656     if (gdp->gf == GF_TICK) {
 657         dprintf("- parsing '%s'\n", &line[*eaten]);
 658         dprintf("- looking for optional TICK number\n");
 659         j = 0;
 660         sscanf(&line[*eaten], "%lf%n", &gdp->yrule, &j);
 661         if (j) {
 662             if (line[*eaten + j] != '\0' && line[*eaten + j] != ':') {
 663                 rrd_set_error("Cannot parse TICK fraction '%s'", line);
 664                 return 1;
 665             }
 666             dprintf("- found number %f\n", gdp->yrule);
 667             if (gdp->yrule > 1.0 || gdp->yrule < -1.0) {
 668                 rrd_set_error("Tick factor should be <= 1.0");
 669                 return 1;
 670             }
 671             (*eaten) += j;
 672         } else {
 673             dprintf("- not found, defaulting to 0.1\n");
 674             gdp->yrule = 0.1;
 675         }
 676         if (line[*eaten] == '\0') {
 677             dprintf("- done parsing line\n");
 678             return 0;
 679         } else {
 680             if (line[*eaten] == ':') {
 681                 (*eaten)++;
 682             } else {
 683                 rrd_set_error("Can't make sense of that TICK line");
 684                 return 1;
 685             }
 686         }
 687     }
 688
 689     dprintf("- parsing '%s'\n", &line[*eaten]);
 690
 691     /* Legend is next.  A legend without a color is an error.
 692      ** Stacking an item without having a legend is OK however
 693      ** then an empty legend should be specified.
 694      **   LINE:val#color:STACK  means legend is string "STACK"
 695      **   LINE:val#color::STACK means no legend, and do STACK
 696      **   LINE:val:STACK        is an error (legend but no color)
 697      **   LINE:val::STACK   means no legend, and do STACK
 698      */
 699     if (colorfound) {
 700         int       err = 0;
 701         char     *linecp = strdup(line);
 702
 703         dprintf("- looking for optional legend\n");
 704
 705         dprintf("- examining '%s'\n", &line[*eaten]);
 706         if (linecp[*eaten] != '\0' && linecp[*eaten] != ':') {
 707             int       spi;
 708
 709             /* If the legend is not empty, it has to be prefixed with spacecnt ' ' characters. This then gets
 710              * replaced by the color box later on. */
 711             for (spi = 0; spi < spacecnt && (*eaten) > 1; spi++) {
 712                 linecp[--(*eaten)] = ' ';
 713             }
 714         }
 715
 716         if (rrd_parse_legend(linecp, eaten, gdp))
 717             err = 1;
 718         free(linecp);
 719         if (err)
 720             return 1;
 721
 722         dprintf("- found legend '%s'\n", &gdp->legend[2]);
 723     } else {
 724         dprintf("- skipping empty legend\n");
 725         if (line[*eaten] != '\0' && line[*eaten] != ':') {
 726             rrd_set_error("Legend set but no color: %s", &line[*eaten]);
 727             return 1;
 728         }
 729     }
 730     if (line[*eaten] == '\0') {
 731         dprintf("- done parsing line\n");
 732         return 0;
 733     }
 734     (*eaten)++;         /* after colon */
 735
 736     /* HRULE, VRULE and TICK cannot be stacked. */
 737     if ((gdp->gf != GF_HRULE)
 738         && (gdp->gf != GF_VRULE)
 739         && (gdp->gf != GF_TICK)) {
 740
 741         dprintf("- parsing '%s', looking for STACK\n", &line[*eaten]);
 742         j = scan_for_col(&line[*eaten], 5, tmpstr);
 743         if (!strcmp("STACK", tmpstr)) {
 744             dprintf("- found STACK\n");
 745             gdp->stack = 1;
 746             (*eaten) += j;
 747             if (line[*eaten] == ':') {
 748                 (*eaten) += 1;
 749             } else if (line[*eaten] == '\0') {
 750                 dprintf("- done parsing line\n");
 751                 return 0;
 752             } else {
 753                 dprintf("- found %s instead of just STACK\n", &line[*eaten]);
 754                 rrd_set_error("STACK expected but %s found", &line[*eaten]);
 755                 return 1;
 756             }
 757         } else
 758             dprintf("- not STACKing\n");
 759     }
 760
 761     dprintf("- parsing '%s', looking for skipscale\n", &line[*eaten]);
 762     j = scan_for_col(&line[*eaten], 9, tmpstr);
 763     if (!strcmp("skipscale", tmpstr)) {
 764         dprintf("- found skipscale\n");
 765         gdp->skipscale = 1;
 766         (*eaten) += j;
 767         if (line[*eaten] == ':') {
 768             (*eaten) += 1;
 769         } else if (line[*eaten] == '\0') {
 770             dprintf("- done parsing line\n");
 771             return 0;
 772         } else {
 773             dprintf("- found %s instead of just skipscale\n", &line[*eaten]);
 774             rrd_set_error("skipscale expected but %s found", &line[*eaten]);
 775             return 1;
 776         }
 777     }
 778
 779     dprintf("- still more, should be dashes[=...]\n");
 780     dprintf("- parsing '%s'\n", &line[*eaten]);
 781     if (line[*eaten] != '\0') {
 782         /* parse dash arguments here. Possible options:
 783            - dashes
 784            - dashes=n_on[,n_off[,n_on,n_off]]
 785            - dashes[=n_on[,n_off[,n_on,n_off]]]:dash-offset=offset
 786            allowing 64 characters for definition of dash style */
 787         j = scan_for_col(&line[*eaten], 64, tmpstr);
 788         /* start with dashes */
 789         if (strcmp(tmpstr, "dashes") == 0) {
 790             /* if line was "dashes" or "dashes:dash-offset=xdashes="
 791                tmpstr will be "dashes" */
 792             dprintf("- found %s\n", tmpstr);
 793             /* initialise all required variables we need for dashed lines
 794                using default dash length of 5 pixels */
 795             gdp->dash = 1;
 796             gdp->p_dashes = (double *) malloc(sizeof(double));
 797             gdp->p_dashes[0] = 5;
 798             gdp->ndash = 1;
 799             gdp->offset = 0;
 800             (*eaten) += j;
 801         } else if (sscanf(tmpstr, "dashes=%s", tmpstr)) {
 802             /* dashes=n_on[,n_off[,n_on,n_off]] */
 803             char      csv[64];
 804             char     *pch;
 805             float     dsh;
 806             int       count = 0;
 807             char     *saveptr;
 808
 809             strcpy(csv, tmpstr);
 810
 811             pch = strtok_r(tmpstr, ",", &saveptr);
 812             while (pch != NULL) {
 813                 pch = strtok_r(NULL, ",", &saveptr);
 814                 count++;
 815             }
 816             dprintf("- %d dash value(s) found: ", count);
 817             if (count > 0) {
 818                 gdp->dash = 1;
 819                 gdp->ndash = count;
 820                 gdp->p_dashes = (double *) malloc(sizeof(double) * count);
 821                 pch = strtok_r(csv, ",", &saveptr);
 822                 count = 0;
 823                 while (pch != NULL) {
 824                     if (sscanf(pch, "%f", &dsh)) {
 825                         gdp->p_dashes[count] = (double) dsh;
 826                         dprintf("%.1f ", gdp->p_dashes[count]);
 827                         count++;
 828                     }
 829                     pch = strtok_r(NULL, ",", &saveptr);
 830                 }
 831                 dprintf("\n");
 832             } else
 833                 dprintf("- syntax error. No dash lengths found!\n");
 834             (*eaten) += j;
 835         } else
 836             dprintf("- error: expected dashes[=...], found %s\n", tmpstr);
 837         if (line[*eaten] == ':') {
 838             (*eaten) += 1;
 839         } else if (line[*eaten] == '\0') {
 840             dprintf("- done parsing line\n");
 841             return 0;
 842         }
 843         /* dashes[=n_on[,n_off[,n_on,n_off]]]:dash-offset=offset
 844            allowing 16 characters for dash-offset=....
 845            => 4 characters for the offset value */
 846         j = scan_for_col(&line[*eaten], 16, tmpstr);
 847         if (sscanf(tmpstr, "dash-offset=%lf", &gdp->offset)) {
 848             dprintf("- found dash-offset=%.1f\n", gdp->offset);
 849             gdp->dash = 1;
 850             (*eaten) += j;
 851             if (line[*eaten] == ':')
 852                 (*eaten) += 1;
 853         }
 854         if (line[*eaten] == '\0') {
 855             dprintf("- done parsing line\n");
 856             return 0;
 857         }
 858     }
 859     if (line[*eaten] == '\0') {
 860         dprintf("- done parsing line\n");
 861         return 0;
 862     }
 863     (*eaten)++;
 864     dprintf("- parsing '%s'\n", &line[*eaten]);
 865
 866     return 0;
 867 }
 868
 869 int rrd_parse_make_vname(
 870     const char *const line,
 871     unsigned int *const eaten,
 872     graph_desc_t *const gdp,
 873     image_desc_t *const im)
 874 {
 875     char      tmpstr[MAX_VNAME_LEN + 10];
 876     int       i = 0;
 877
 878     sscanf(&line[*eaten], DEF_NAM_FMT "=%n", tmpstr, &i);
 879     if (!i) {
 880         rrd_set_error("Cannot parse vname from '%s'", line);
 881         return 1;
 882     }
 883     if (line[*eaten+i] == '\0') {
 884         rrd_set_error("String ends after the = sign on '%s'", line);
 885         return 1;
 886     }
 887     dprintf("- found candidate '%s'\n", tmpstr);
 888
 889     if ((gdp->vidx = find_var(im, tmpstr)) >= 0) {
 890         rrd_set_error("Attempting to reuse '%s'", im->gdes[gdp->vidx].vname);
 891         return 1;
 892     }
 893     strcpy(gdp->vname, tmpstr);
 894     dprintf("- created vname '%s' vidx %lu\n", gdp->vname, im->gdes_c - 1);
 895     (*eaten) += i;
 896     return 0;
 897 }
 898
 899 int rrd_parse_def(
 900     const char *const line,
 901     unsigned int *const eaten,
 902     graph_desc_t *const gdp,
 903     image_desc_t *const im)
 904 {
 905     int       i = 0;
 906     char      command[7];   /* step, start, end, reduce */
 907     char      tmpstr[256];
 908     rrd_time_value_t start_tv, end_tv;
 909     time_t    start_tmp = 0, end_tmp = 0;
 910     char     *parsetime_error = NULL;
 911
 912     start_tv.type = end_tv.type = ABSOLUTE_TIME;
 913     start_tv.offset = end_tv.offset = 0;
 914     localtime_r(&gdp->start, &start_tv.tm);
 915     localtime_r(&gdp->end, &end_tv.tm);
 916
 917     dprintf("- parsing '%s'\n", &line[*eaten]);
 918     dprintf("- from line '%s'\n", line);
 919
 920     if (rrd_parse_make_vname(line, eaten, gdp, im))
 921         return 1;
 922     i = scan_for_col(&line[*eaten], sizeof(gdp->rrd) - 1, gdp->rrd);
 923     if (line[*eaten + i] != ':') {
 924         rrd_set_error("Problems reading database name");
 925         return 1;
 926     }
 927     (*eaten) += ++i;
 928     dprintf("- using file '%s'\n", gdp->rrd);
 929
 930     i = 0;
 931     sscanf(&line[*eaten], DS_NAM_FMT ":%n", gdp->ds_nam, &i);
 932     if (!i) {
 933         rrd_set_error("Cannot parse DS in '%s'", line);
 934         return 1;
 935     }
 936     (*eaten) += i;
 937     dprintf("- using DS '%s'\n", gdp->ds_nam);
 938
 939     if (rrd_parse_CF(line, eaten, gdp, &gdp->cf))
 940         return 1;
 941     gdp->cf_reduce = gdp->cf;
 942
 943     if (line[*eaten] == '\0')
 944         return 0;
 945
 946     while (1) {
 947         dprintf("- optional parameter follows: %s\n", &line[*eaten]);
 948         i = 0;
 949         sscanf(&line[*eaten], "%6[a-z]=%n", command, &i);
 950         if (!i) {
 951             rrd_set_error("Parse error in '%s'", line);
 952             return 1;
 953         }
 954         (*eaten) += i;
 955         dprintf("- processing '%s'\n", command);
 956         if (!strcmp("reduce", command)) {
 957             if (rrd_parse_CF(line, eaten, gdp, &gdp->cf_reduce))
 958                 return 1;
 959             if (line[*eaten] != '\0')
 960                 (*eaten)--;
 961         } else if (!strcmp("step", command)) {
 962             i = 0;
 963             sscanf(&line[*eaten], "%lu%n", &gdp->step, &i);
 964             gdp->step_orig = gdp->step;
 965             (*eaten) += i;
 966             dprintf("- using step %lu\n", gdp->step);
 967         } else if (!strcmp("start", command)) {
 968             i = scan_for_col(&line[*eaten], 255, tmpstr);
 969             (*eaten) += i;
 970             if ((parsetime_error = rrd_parsetime(tmpstr, &start_tv))) {
 971                 rrd_set_error("start time: %s", parsetime_error);
 972                 return 1;
 973             }
 974             dprintf("- done parsing:  '%s'\n", &line[*eaten]);
 975         } else if (!strcmp("end", command)) {
 976             i = scan_for_col(&line[*eaten], 255, tmpstr);
 977             (*eaten) += i;
 978             if ((parsetime_error = rrd_parsetime(tmpstr, &end_tv))) {
 979                 rrd_set_error("end time: %s", parsetime_error);
 980                 return 1;
 981             }
 982             dprintf("- done parsing:  '%s'\n", &line[*eaten]);
 983         } else {
 984             rrd_set_error("Parse error in '%s'", line);
 985             return 1;
 986         }
 987         if (line[*eaten] == '\0')
 988             break;
 989         if (line[*eaten] != ':') {
 990             dprintf("- Expected to see end of string but got '%s'\n",
 991                     &line[*eaten]);
 992             rrd_set_error("Parse error in '%s'", line);
 993             return 1;
 994         }
 995         (*eaten)++;
 996     }
 997     if (rrd_proc_start_end(&start_tv, &end_tv, &start_tmp, &end_tmp) == -1) {
 998         /* error string is set in rrd_parsetime.c */
 999         return 1;
1000     }
1001     if (start_tmp < 3600 * 24 * 365 * 10) {
1002         rrd_set_error("the first entry to fetch should be "
1003                       "after 1980 (%ld)", start_tmp);
1004         return 1;
1005     }
1006
1007     if (end_tmp < start_tmp) {
1008         rrd_set_error("start (%ld) should be less than end (%ld)",
1009                       start_tmp, end_tmp);
1010         return 1;
1011     }
1012
1013     gdp->start = start_tmp;
1014     gdp->end = end_tmp;
1015     gdp->start_orig = start_tmp;
1016     gdp->end_orig = end_tmp;
1017
1018     dprintf("- start time %lu\n", gdp->start);
1019     dprintf("- end   time %lu\n", gdp->end);
1020
1021     return 0;
1022 }
1023
1024 int rrd_parse_vdef(
1025     const char *const line,
1026     unsigned int *const eaten,
1027     graph_desc_t *const gdp,
1028     image_desc_t *const im)
1029 {
1030     char      tmpstr[MAX_VNAME_LEN + 1];    /* vname\0 */
1031     int       i = 0;
1032
1033     dprintf("- parsing '%s'\n", &line[*eaten]);
1034     if (rrd_parse_make_vname(line, eaten, gdp, im))
1035         return 1;
1036
1037     sscanf(&line[*eaten], DEF_NAM_FMT ",%n", tmpstr, &i);
1038     if (!i) {
1039         rrd_set_error("Cannot parse line '%s'", line);
1040         return 1;
1041     }
1042     if ((gdp->vidx = find_var(im, tmpstr)) < 0) {
1043         rrd_set_error("Not a valid vname: %s in line %s", tmpstr, line);
1044         return 1;
1045     }
1046     if (im->gdes[gdp->vidx].gf != GF_DEF && im->gdes[gdp->vidx].gf != GF_CDEF) {
1047         rrd_set_error("variable '%s' not DEF nor "
1048                       "CDEF in VDEF '%s'", tmpstr, gdp->vname);
1049         return 1;
1050     }
1051     dprintf("- found vname: '%s' vidx %li\n", tmpstr, gdp->vidx);
1052     (*eaten) += i;
1053
1054     dprintf("- calling vdef_parse with param '%s'\n", &line[*eaten]);
1055     vdef_parse(gdp, &line[*eaten]);
1056     while (line[*eaten] != '\0' && line[*eaten] != ':')
1057         (*eaten)++;
1058
1059     return 0;
1060 }
1061
1062 int rrd_parse_cdef(
1063     const char *const line,
1064     unsigned int *const eaten,
1065     graph_desc_t *const gdp,
1066     image_desc_t *const im)
1067 {
1068     dprintf("- parsing '%s'\n", &line[*eaten]);
1069     if (rrd_parse_make_vname(line, eaten, gdp, im))
1070         return 1;
1071     if ((gdp->rpnp = rpn_parse((void *) im, &line[*eaten], &find_var_wrapper)
1072         ) == NULL) {
1073         rrd_set_error("invalid rpn expression in: %s", &line[*eaten]);
1074         return 1;
1075     };
1076     while (line[*eaten] != '\0' && line[*eaten] != ':')
1077         (*eaten)++;
1078     return 0;
1079 }
1080
1081 void rrd_graph_script(
1082     int argc,
1083     char *argv[],
1084     image_desc_t *const im,
1085     int optno)
1086 {
1087     int       i;
1088
1089     /* save state for STACK backward compat function */
1090     enum gf_en last_gf = GF_PRINT;
1091     float     last_linewidth = 0.0;
1092
1093     for (i = optind + optno; i < argc; i++) {
1094         graph_desc_t *gdp;
1095         unsigned int eaten = 0;
1096
1097         if (gdes_alloc(im)) /* gdes_c ++ */
1098             return;     /* the error string is already set */
1099         gdp = &im->gdes[im->gdes_c - 1];
1100 #ifdef DEBUG
1101         gdp->debug = 1;
1102 #endif
1103
1104         if (rrd_parse_find_gf(argv[i], &eaten, gdp))
1105             return;
1106
1107         switch (gdp->gf) {
1108         case GF_SHIFT: /* vname:value */
1109             if (rrd_parse_shift(argv[i], &eaten, gdp, im))
1110                 return;
1111             break;
1112         case GF_TEXTALIGN: /* left|right|center|justified */
1113             if (rrd_parse_textalign(argv[i], &eaten, gdp))
1114                 return;
1115             break;
1116         case GF_XPORT:
1117             if (rrd_parse_xport(argv[i], &eaten, gdp, im))
1118                 return;
1119             break;
1120         case GF_PRINT: /* vname:CF:format -or- vname:format */
1121             im->prt_c++;
1122         case GF_GPRINT:    /* vname:CF:format -or- vname:format */
1123             if (rrd_parse_print(argv[i], &eaten, gdp, im))
1124                 return;
1125             break;
1126         case GF_COMMENT:   /* text */
1127             if (rrd_parse_legend(argv[i], &eaten, gdp))
1128                 return;
1129             break;
1130         case GF_VRULE: /* value#color[:legend] */
1131         case GF_HRULE: /* value#color[:legend] */
1132         case GF_LINE:  /* vname-or-value[#color[:legend]][:STACK] */
1133         case GF_AREA:  /* vname-or-value[#color[:legend]][:STACK] */
1134         case GF_TICK:  /* vname#color[:num[:legend]] */
1135             if (rrd_parse_PVHLAST(argv[i], &eaten, gdp, im))
1136                 return;
1137             last_gf = gdp->gf;
1138             last_linewidth = gdp->linewidth;
1139             break;
1140         case GF_STACK: /* vname-or-value[#color[:legend]] */
1141             if (rrd_parse_PVHLAST(argv[i], &eaten, gdp, im))
1142                 return;
1143             if (last_gf == GF_LINE || last_gf == GF_AREA) {
1144                 gdp->gf = last_gf;
1145                 gdp->linewidth = last_linewidth;
1146             } else {
1147                 rrd_set_error("STACK must follow LINE or AREA! command:\n%s",
1148                               &argv[i][eaten], argv[i]);
1149                 return;
1150             }
1151             break;
1152             /* data acquisition */
1153         case GF_DEF:   /* vname=x:DS:CF:[:step=#][:start=#][:end=#] */
1154             if (rrd_parse_def(argv[i], &eaten, gdp, im))
1155                 return;
1156             break;
1157         case GF_CDEF:  /* vname=rpn-expression */
1158             if (rrd_parse_cdef(argv[i], &eaten, gdp, im))
1159                 return;
1160             break;
1161         case GF_VDEF:  /* vname=rpn-expression */
1162             if (rrd_parse_vdef(argv[i], &eaten, gdp, im))
1163                 return;
1164             break;
1165         }
1166         if (gdp->debug) {
1167             dprintf("used %i out of %zi chars\n", eaten, strlen(argv[i]));
1168             dprintf("parsed line: '%s'\n", argv[i]);
1169             dprintf("remaining: '%s'\n", &argv[i][eaten]);
1170             if (eaten >= strlen(argv[i]))
1171                 dprintf("Command finished successfully\n");
1172         }
1173         if (eaten < strlen(argv[i])) {
1174             rrd_set_error("I don't understand '%s' in command: '%s'.",
1175                           &argv[i][eaten], argv[i]);
1176             return;
1177         }
1178         char *key = gdes_fetch_key((*gdp));
1179         if (gdp->gf == GF_DEF && !g_hash_table_lookup_extended(im->rrd_map,key,NULL,NULL)){
1180             g_hash_table_insert(im->gdef_map,g_strdup(key),GINT_TO_POINTER(im->gdes_c-1));
1181         }
1182         free(key);
1183         if (gdp->gf == GF_DEF || gdp->gf == GF_VDEF || gdp->gf == GF_CDEF){
1184             g_hash_table_insert(im->gdef_map,g_strdup(gdp->vname),GINT_TO_POINTER(im->gdes_c-1));
1185         }
1186     }
1187 }