vcs.maemo.org Git - monky/blob - src/core.c

   1 /* -*- mode: c; c-basic-offset: 4; tab-width: 4; indent-tabs-mode: t -*-
   2  * vim: ts=4 sw=4 noet ai cindent syntax=c
   3  *
   4  * Conky, a system monitor, based on torsmo
   5  *
   6  * Any original torsmo code is licensed under the BSD license
   7  *
   8  * All code written since the fork of torsmo is licensed under the GPL
   9  *
  10  * Please see COPYING for details
  11  *
  12  * Copyright (c) 2004, Hannu Saransaari and Lauri Hakkarainen
  13  * Copyright (c) 2005-2009 Brenden Matthews, Philip Kovacs, et. al.
  14  *      (see AUTHORS)
  15  * All rights reserved.
  16  *
  17  * This program is free software: you can redistribute it and/or modify
  18  * it under the terms of the GNU General Public License as published by
  19  * the Free Software Foundation, either version 3 of the License, or
  20  * (at your option) any later version.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  * You should have received a copy of the GNU General Public License
  27  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  28  *
  29  */
  30
  31 /* local headers */
  32 #include "core.h"
  33 #include "text_object.h"
  34 #include "algebra.h"
  35 #include "build.h"
  36 #include "colours.h"
  37 #include "combine.h"
  38 #include "diskio.h"
  39 #include "exec.h"
  40 #ifdef X11
  41 #include "fonts.h"
  42 #endif
  43 #include "fs.h"
  44 #ifdef HAVE_ICONV
  45 #include "iconv_tools.h"
  46 #endif
  47 #include "logging.h"
  48 #include "mixer.h"
  49 #include "mail.h"
  50 #include "mboxscan.h"
  51 #include "net_stat.h"
  52 #ifdef NVIDIA
  53 #include "nvidia.h"
  54 #endif
  55 #include "read_tcp.h"
  56 #include "scroll.h"
  57 #include "specials.h"
  58 #include "temphelper.h"
  59 #include "template.h"
  60 #include "tailhead.h"
  61 #include "timeinfo.h"
  62 #include "top.h"
  63
  64 #ifdef NCURSES
  65 #include <ncurses.h>
  66 #endif
  67
  68 /* check for OS and include appropriate headers */
  69 #if defined(__linux__)
  70 #include "linux.h"
  71 #elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
  72 #include "freebsd.h"
  73 #elif defined(__OpenBSD__)
  74 #include "openbsd.h"
  75 #endif
  76
  77 /* OS specific prototypes to be implemented by linux.c & Co. */
  78 void update_entropy(void);
  79
  80 #include <string.h>
  81 #include <ctype.h>
  82
  83 /* strip a leading /dev/ if any, following symlinks first
  84  *
  85  * BEWARE: this function returns a pointer to static content
  86  *         which gets overwritten in consecutive calls. I.e.:
  87  *         this function is NOT reentrant.
  88  */
  89 const char *dev_name(const char *path)
  90 {
  91         static char buf[255];   /* should be enough for pathnames */
  92         ssize_t buflen;
  93
  94         if (!path)
  95                 return NULL;
  96
  97 #define DEV_NAME(x) \
  98   x != NULL && strlen(x) > 5 && strncmp(x, "/dev/", 5) == 0 ? x + 5 : x
  99         if ((buflen = readlink(path, buf, 254)) == -1)
 100                 return DEV_NAME(path);
 101         buf[buflen] = '\0';
 102         return DEV_NAME(buf);
 103 #undef DEV_NAME
 104 }
 105
 106 static struct text_object *new_text_object_internal(void)
 107 {
 108         struct text_object *obj = malloc(sizeof(struct text_object));
 109         memset(obj, 0, sizeof(struct text_object));
 110         return obj;
 111 }
 112
 113 static struct text_object *create_plain_text(const char *s)
 114 {
 115         struct text_object *obj;
 116
 117         if (s == NULL || *s == '\0') {
 118                 return NULL;
 119         }
 120
 121         obj = new_text_object_internal();
 122
 123         obj->type = OBJ_text;
 124         obj->data.s = strndup(s, text_buffer_size);
 125         return obj;
 126 }
 127
 128 /* construct_text_object() creates a new text_object */
 129 struct text_object *construct_text_object(const char *s, const char *arg, long
 130                 line, void **ifblock_opaque, void *free_at_crash)
 131 {
 132         // struct text_object *obj = new_text_object();
 133         struct text_object *obj = new_text_object_internal();
 134
 135         obj->line = line;
 136
 137 /* helper defines for internal use only */
 138 #define __OBJ_HEAD(a, n) if (!strcmp(s, #a)) { \
 139         obj->type = OBJ_##a; add_update_callback(n);
 140 #define __OBJ_IF obj_be_ifblock_if(ifblock_opaque, obj)
 141 #define __OBJ_ARG(...) if (!arg) { CRIT_ERR(obj, free_at_crash, __VA_ARGS__); }
 142
 143 /* defines to be used below */
 144 #define OBJ(a, n) __OBJ_HEAD(a, n) {
 145 #define OBJ_ARG(a, n, ...) __OBJ_HEAD(a, n) __OBJ_ARG(__VA_ARGS__) {
 146 #define OBJ_IF(a, n) __OBJ_HEAD(a, n) __OBJ_IF; {
 147 #define OBJ_IF_ARG(a, n, ...) __OBJ_HEAD(a, n) __OBJ_ARG(__VA_ARGS__) __OBJ_IF; {
 148 #define END } } else
 149
 150 #ifdef X11
 151         if (s[0] == '#') {
 152                 obj->type = OBJ_color;
 153                 obj->data.l = get_x11_color(s);
 154         } else
 155 #endif /* X11 */
 156 #ifdef __OpenBSD__
 157         OBJ(freq, 0)
 158 #else
 159         OBJ(acpitemp, 0)
 160                 obj->data.i = open_acpi_temperature(arg);
 161         END OBJ(acpiacadapter, 0)
 162         END OBJ(freq, 0)
 163 #endif /* !__OpenBSD__ */
 164                 get_cpu_count();
 165                 if (!arg || !isdigit(arg[0]) || strlen(arg) >= 2 || atoi(&arg[0]) == 0
 166                                 || atoi(&arg[0]) > info.cpu_count) {
 167                         obj->data.i = 1;
 168                         /* NORM_ERR("freq: Invalid CPU number or you don't have that many CPUs! "
 169                                 "Displaying the clock for CPU 1."); */
 170                 } else {
 171                         obj->data.i = atoi(&arg[0]);
 172                 }
 173                 obj->a = 1;
 174         END OBJ(freq_g, 0)
 175                 get_cpu_count();
 176                 if (!arg || !isdigit(arg[0]) || strlen(arg) >= 2 || atoi(&arg[0]) == 0
 177                                 || atoi(&arg[0]) > info.cpu_count) {
 178                         obj->data.i = 1;
 179                         /* NORM_ERR("freq_g: Invalid CPU number or you don't have that many "
 180                                 "CPUs! Displaying the clock for CPU 1."); */
 181                 } else {
 182                         obj->data.i = atoi(&arg[0]);
 183                 }
 184                 obj->a = 1;
 185         END OBJ_ARG(read_tcp, 0, "read_tcp: Needs \"(host) port\" as argument(s)")
 186                 parse_read_tcp_arg(obj, arg, free_at_crash);
 187 #if defined(__linux__)
 188         END OBJ(voltage_mv, 0)
 189                 get_cpu_count();
 190                 if (!arg || !isdigit(arg[0]) || strlen(arg) >= 2 || atoi(&arg[0]) == 0
 191                                 || atoi(&arg[0]) > info.cpu_count) {
 192                         obj->data.i = 1;
 193                         /* NORM_ERR("voltage_mv: Invalid CPU number or you don't have that many "
 194                                 "CPUs! Displaying voltage for CPU 1."); */
 195                 } else {
 196                         obj->data.i = atoi(&arg[0]);
 197                 }
 198                 obj->a = 1;
 199         END OBJ(voltage_v, 0)
 200                 get_cpu_count();
 201                 if (!arg || !isdigit(arg[0]) || strlen(arg) >= 2 || atoi(&arg[0]) == 0
 202                                 || atoi(&arg[0]) > info.cpu_count) {
 203                         obj->data.i = 1;
 204                         /* NORM_ERR("voltage_v: Invalid CPU number or you don't have that many "
 205                                 "CPUs! Displaying voltage for CPU 1."); */
 206                 } else {
 207                         obj->data.i = atoi(&arg[0]);
 208                 }
 209                 obj->a = 1;
 210
 211 #ifdef HAVE_IWLIB
 212         END OBJ(wireless_essid, &update_net_stats)
 213                 parse_net_stat_arg(obj, arg, free_at_crash);
 214         END OBJ(wireless_mode, &update_net_stats)
 215                 parse_net_stat_arg(obj, arg, free_at_crash);
 216         END OBJ(wireless_bitrate, &update_net_stats)
 217                 parse_net_stat_arg(obj, arg, free_at_crash);
 218         END OBJ(wireless_ap, &update_net_stats)
 219                 parse_net_stat_arg(obj, arg, free_at_crash);
 220         END OBJ(wireless_link_qual, &update_net_stats)
 221                 parse_net_stat_arg(obj, arg, free_at_crash);
 222         END OBJ(wireless_link_qual_max, &update_net_stats)
 223                 parse_net_stat_arg(obj, arg, free_at_crash);
 224         END OBJ(wireless_link_qual_perc, &update_net_stats)
 225                 parse_net_stat_arg(obj, arg, free_at_crash);
 226         END OBJ(wireless_link_bar, &update_net_stats)
 227                 parse_net_stat_bar_arg(obj, arg, free_at_crash);
 228 #endif /* HAVE_IWLIB */
 229
 230 #endif /* __linux__ */
 231
 232 #ifndef __OpenBSD__
 233         END OBJ(acpifan, 0)
 234         END OBJ(battery, 0)
 235                 char bat[64];
 236
 237                 if (arg) {
 238                         sscanf(arg, "%63s", bat);
 239                 } else {
 240                         strcpy(bat, "BAT0");
 241                 }
 242                 obj->data.s = strndup(bat, text_buffer_size);
 243         END OBJ(battery_short, 0)
 244                 char bat[64];
 245
 246                 if (arg) {
 247                         sscanf(arg, "%63s", bat);
 248                 } else {
 249                         strcpy(bat, "BAT0");
 250                 }
 251                 obj->data.s = strndup(bat, text_buffer_size);
 252         END OBJ(battery_time, 0)
 253                 char bat[64];
 254
 255                 if (arg) {
 256                         sscanf(arg, "%63s", bat);
 257                 } else {
 258                         strcpy(bat, "BAT0");
 259                 }
 260                 obj->data.s = strndup(bat, text_buffer_size);
 261         END OBJ(battery_percent, 0)
 262                 char bat[64];
 263
 264                 if (arg) {
 265                         sscanf(arg, "%63s", bat);
 266                 } else {
 267                         strcpy(bat, "BAT0");
 268                 }
 269                 obj->data.s = strndup(bat, text_buffer_size);
 270         END OBJ(battery_bar, 0)
 271                 char bat[64];
 272                 SIZE_DEFAULTS(bar);
 273                 obj->b = 6;
 274                 if (arg) {
 275                         arg = scan_bar(arg, &obj->a, &obj->b);
 276                         sscanf(arg, "%63s", bat);
 277                 } else {
 278                         strcpy(bat, "BAT0");
 279                 }
 280                 obj->data.s = strndup(bat, text_buffer_size);
 281 #endif /* !__OpenBSD__ */
 282
 283 #if defined(__linux__)
 284         END OBJ_ARG(disk_protect, 0, "disk_protect needs an argument")
 285                 obj->data.s = strndup(dev_name(arg), text_buffer_size);
 286         END OBJ(i8k_version, &update_i8k)
 287         END OBJ(i8k_bios, &update_i8k)
 288         END OBJ(i8k_serial, &update_i8k)
 289         END OBJ(i8k_cpu_temp, &update_i8k)
 290         END OBJ(i8k_left_fan_status, &update_i8k)
 291         END OBJ(i8k_right_fan_status, &update_i8k)
 292         END OBJ(i8k_left_fan_rpm, &update_i8k)
 293         END OBJ(i8k_right_fan_rpm, &update_i8k)
 294         END OBJ(i8k_ac_status, &update_i8k)
 295         END OBJ(i8k_buttons_status, &update_i8k)
 296 #if defined(IBM)
 297         END OBJ(ibm_fan, 0)
 298         END OBJ(ibm_temps, &get_ibm_acpi_temps, "ibm_temps: needs an argument")
 299                 parse_ibm_temps_arg(obj, arg);
 300         END OBJ(ibm_volume, 0)
 301         END OBJ(ibm_brightness, 0)
 302 #endif
 303         /* information from sony_laptop kernel module
 304          * /sys/devices/platform/sony-laptop */
 305         END OBJ(sony_fanspeed, 0)
 306         END OBJ_IF(if_gw, &update_gateway_info)
 307         END OBJ_ARG(ioscheduler, 0, "get_ioscheduler needs an argument (e.g. hda)")
 308                 obj->data.s = strndup(dev_name(arg), text_buffer_size);
 309         END OBJ(laptop_mode, 0)
 310         END OBJ_ARG(pb_battery, 0, "pb_battery: needs one argument: status, percent or time")
 311                 if (strcmp(arg, "status") == EQUAL) {
 312                         obj->data.i = PB_BATT_STATUS;
 313                 } else if (strcmp(arg, "percent") == EQUAL) {
 314                         obj->data.i = PB_BATT_PERCENT;
 315                 } else if (strcmp(arg, "time") == EQUAL) {
 316                         obj->data.i = PB_BATT_TIME;
 317                 } else {
 318                         NORM_ERR("pb_battery: illegal argument '%s', defaulting to status", arg);
 319                         obj->data.i = PB_BATT_STATUS;
 320                 }
 321 #endif /* __linux__ */
 322 #if (defined(__FreeBSD__) || defined(__linux__))
 323         END OBJ_IF_ARG(if_up, 0, "if_up needs an argument")
 324                 parse_if_up_arg(obj, arg);
 325 #endif
 326 #if defined(__OpenBSD__)
 327         END OBJ_ARG(obsd_sensors_temp, 0, "obsd_sensors_temp: needs an argument")
 328                 parse_obsd_sensor(obj, arg);
 329         END OBJ_ARG(obsd_sensors_fan, 0, "obsd_sensors_fan: needs 2 arguments (device and sensor number)")
 330                 parse_obsd_sensor(obj, arg);
 331         END OBJ_ARG(obsd_sensors_volt, 0, "obsd_sensors_volt: needs 2 arguments (device and sensor number)")
 332                 parse_obsd_sensor(obj, arg);
 333         END OBJ(obsd_vendor, 0)
 334         END OBJ(obsd_product, 0)
 335 #endif /* __OpenBSD__ */
 336         END OBJ(buffers, &update_meminfo)
 337         END OBJ(cached, &update_meminfo)
 338 #define SCAN_CPU(__arg, __var) { \
 339         int __offset = 0; \
 340         if (__arg && sscanf(__arg, " cpu%d %n", &__var, &__offset) > 0) \
 341                 __arg += __offset; \
 342         else \
 343                 __var = 0; \
 344 }
 345         END OBJ(cpu, &update_cpu_usage)
 346                 SCAN_CPU(arg, obj->data.i);
 347                 DBGP2("Adding $cpu for CPU %d", obj->data.i);
 348 #ifdef X11
 349         END OBJ(cpugauge, &update_cpu_usage)
 350                 SIZE_DEFAULTS(gauge);
 351                 SCAN_CPU(arg, obj->data.i);
 352                 scan_gauge(arg, &obj->a, &obj->b);
 353                 DBGP2("Adding $cpugauge for CPU %d", obj->data.i);
 354 #endif /* X11 */
 355         END OBJ(cpubar, &update_cpu_usage)
 356                 SIZE_DEFAULTS(bar);
 357                 SCAN_CPU(arg, obj->data.i);
 358                 scan_bar(arg, &obj->a, &obj->b);
 359                 DBGP2("Adding $cpubar for CPU %d", obj->data.i);
 360 #ifdef X11
 361         END OBJ(cpugraph, &update_cpu_usage)
 362                 char *buf = 0;
 363                 SIZE_DEFAULTS(graph);
 364                 SCAN_CPU(arg, obj->data.i);
 365                 buf = scan_graph(arg, &obj->a, &obj->b, &obj->c, &obj->d,
 366                         &obj->e, &obj->char_a, &obj->char_b);
 367                 DBGP2("Adding $cpugraph for CPU %d", obj->data.i);
 368                 if (buf) free(buf);
 369         END OBJ(loadgraph, &update_load_average)
 370                 scan_loadgraph_arg(obj, arg);
 371 #endif /* X11 */
 372         END OBJ(diskio, &update_diskio)
 373                 parse_diskio_arg(obj, arg);
 374         END OBJ(diskio_read, &update_diskio)
 375                 parse_diskio_arg(obj, arg);
 376         END OBJ(diskio_write, &update_diskio)
 377                 parse_diskio_arg(obj, arg);
 378 #ifdef X11
 379         END OBJ(diskiograph, &update_diskio)
 380                 parse_diskiograph_arg(obj, arg);
 381         END OBJ(diskiograph_read, &update_diskio)
 382                 parse_diskiograph_arg(obj, arg);
 383         END OBJ(diskiograph_write, &update_diskio)
 384                 parse_diskiograph_arg(obj, arg);
 385 #endif /* X11 */
 386         END OBJ(color, 0)
 387 #ifdef X11
 388                 if (output_methods & TO_X) {
 389                         obj->data.l = arg ? get_x11_color(arg) : default_fg_color;
 390                         set_current_text_color(obj->data.l);
 391                 }
 392 #endif /* X11 */
 393 #ifdef NCURSES
 394                 if (output_methods & TO_NCURSES) {
 395                         obj->data.l = COLOR_WHITE;
 396                         if(arg) {
 397                                 if(strcasecmp(arg, "red") == 0) {
 398                                         obj->data.l = COLOR_RED;
 399                                 }else if(strcasecmp(arg, "green") == 0) {
 400                                         obj->data.l = COLOR_GREEN;
 401                                 }else if(strcasecmp(arg, "yellow") == 0) {
 402                                         obj->data.l = COLOR_YELLOW;
 403                                 }else if(strcasecmp(arg, "blue") == 0) {
 404                                         obj->data.l = COLOR_BLUE;
 405                                 }else if(strcasecmp(arg, "magenta") == 0) {
 406                                         obj->data.l = COLOR_MAGENTA;
 407                                 }else if(strcasecmp(arg, "cyan") == 0) {
 408                                         obj->data.l = COLOR_CYAN;
 409                                 }else if(strcasecmp(arg, "black") == 0) {
 410                                         obj->data.l = COLOR_BLACK;
 411                                 }
 412                         }
 413                         set_current_text_color(obj->data.l);
 414                         init_pair(obj->data.l, obj->data.l, COLOR_BLACK);
 415                 }
 416 #endif /* NCURSES */
 417         END OBJ(color0, 0)
 418                 obj->data.l = color0;
 419                 set_current_text_color(obj->data.l);
 420         END OBJ(color1, 0)
 421                 obj->data.l = color1;
 422                 set_current_text_color(obj->data.l);
 423         END OBJ(color2, 0)
 424                 obj->data.l = color2;
 425                 set_current_text_color(obj->data.l);
 426         END OBJ(color3, 0)
 427                 obj->data.l = color3;
 428                 set_current_text_color(obj->data.l);
 429         END OBJ(color4, 0)
 430                 obj->data.l = color4;
 431                 set_current_text_color(obj->data.l);
 432         END OBJ(color5, 0)
 433                 obj->data.l = color5;
 434                 set_current_text_color(obj->data.l);
 435         END OBJ(color6, 0)
 436                 obj->data.l = color6;
 437                 set_current_text_color(obj->data.l);
 438         END OBJ(color7, 0)
 439                 obj->data.l = color7;
 440                 set_current_text_color(obj->data.l);
 441         END OBJ(color8, 0)
 442                 obj->data.l = color8;
 443                 set_current_text_color(obj->data.l);
 444         END OBJ(color9, 0)
 445                 obj->data.l = color9;
 446                 set_current_text_color(obj->data.l);
 447 #ifdef X11
 448         END OBJ(font, 0)
 449                 obj->data.s = scan_font(arg);
 450 #endif /* X11 */
 451         END OBJ(conky_version, 0)
 452         END OBJ(conky_build_date, 0)
 453         END OBJ(conky_build_arch, 0)
 454         END OBJ(downspeed, &update_net_stats)
 455                 parse_net_stat_arg(obj, arg, free_at_crash);
 456         END OBJ(downspeedf, &update_net_stats)
 457                 parse_net_stat_arg(obj, arg, free_at_crash);
 458 #ifdef X11
 459         END OBJ(downspeedgraph, &update_net_stats)
 460                 parse_net_stat_graph_arg(obj, arg, free_at_crash);
 461 #endif /* X11 */
 462         END OBJ(else, 0)
 463                 obj_be_ifblock_else(ifblock_opaque, obj);
 464         END OBJ(endif, 0)
 465                 obj_be_ifblock_endif(ifblock_opaque, obj);
 466         END OBJ(eval, 0)
 467                 obj->data.s = strndup(arg ? arg : "", text_buffer_size);
 468 #if defined(IMLIB2) && defined(X11)
 469         END OBJ(image, 0)
 470                 obj->data.s = strndup(arg ? arg : "", text_buffer_size);
 471 #endif /* IMLIB2 */
 472         END OBJ(exec, 0)
 473                 scan_exec_arg(obj, arg);
 474         END OBJ(execp, 0)
 475                 scan_exec_arg(obj, arg);
 476         END OBJ(execbar, 0)
 477                 SIZE_DEFAULTS(bar);
 478                 scan_exec_arg(obj, arg);
 479 #ifdef X11
 480         END OBJ(execgauge, 0)
 481                 SIZE_DEFAULTS(gauge);
 482                 scan_exec_arg(obj, arg);
 483         END OBJ(execgraph, 0)
 484                 SIZE_DEFAULTS(graph);
 485                 scan_exec_arg(obj, arg);
 486 #endif /* X11 */
 487         END OBJ_ARG(execibar, 0, "execibar needs arguments")
 488                 SIZE_DEFAULTS(bar);
 489                 scan_execi_arg(obj, arg);
 490 #ifdef X11
 491         END OBJ_ARG(execigraph, 0, "execigraph needs arguments")
 492                 SIZE_DEFAULTS(graph);
 493                 scan_execi_arg(obj, arg);
 494         END OBJ_ARG(execigauge, 0, "execigauge needs arguments")
 495                 SIZE_DEFAULTS(gauge);
 496                 scan_execi_arg(obj, arg);
 497 #endif /* X11 */
 498         END OBJ_ARG(execi, 0, "execi needs arguments")
 499                 scan_execi_arg(obj, arg);
 500         END OBJ_ARG(execpi, 0, "execpi needs arguments")
 501                 scan_execi_arg(obj, arg);
 502         END OBJ_ARG(texeci, 0, "texeci needs arguments")
 503                 scan_execi_arg(obj, arg);
 504         END OBJ(pre_exec, 0)
 505                 scan_pre_exec_arg(obj, arg);
 506         END OBJ(fs_bar, &update_fs_stats)
 507                 init_fs_bar(obj, arg);
 508         END OBJ(fs_bar_free, &update_fs_stats)
 509                 init_fs_bar(obj, arg);
 510         END OBJ(fs_free, &update_fs_stats)
 511                 init_fs(obj, arg);
 512         END OBJ(fs_used_perc, &update_fs_stats)
 513                 init_fs(obj, arg);
 514         END OBJ(fs_free_perc, &update_fs_stats)
 515                 init_fs(obj, arg);
 516         END OBJ(fs_size, &update_fs_stats)
 517                 init_fs(obj, arg);
 518         END OBJ(fs_type, &update_fs_stats)
 519                 init_fs(obj, arg);
 520         END OBJ(fs_used, &update_fs_stats)
 521                 init_fs(obj, arg);
 522         END OBJ(hr, 0)
 523                 obj->data.i = arg ? atoi(arg) : 1;
 524         END OBJ(nameserver, &update_dns_data)
 525                 parse_nameserver_arg(obj, arg);
 526         END OBJ(offset, 0)
 527                 obj->data.i = arg ? atoi(arg) : 1;
 528         END OBJ(voffset, 0)
 529                 obj->data.i = arg ? atoi(arg) : 1;
 530         END OBJ_ARG(goto, 0, "goto needs arguments")
 531                 obj->data.i = atoi(arg);
 532         END OBJ(tab, 0)
 533                 int a = 10, b = 0;
 534
 535                 if (arg) {
 536                         if (sscanf(arg, "%d %d", &a, &b) != 2) {
 537                                 sscanf(arg, "%d", &b);
 538                         }
 539                 }
 540                 if (a <= 0) {
 541                         a = 1;
 542                 }
 543                 obj->data.pair.a = a;
 544                 obj->data.pair.b = b;
 545
 546 #ifdef __linux__
 547         END OBJ_ARG(i2c, 0, "i2c needs arguments")
 548                 parse_i2c_sensor(obj, arg);
 549         END OBJ_ARG(platform, 0, "platform needs arguments")
 550                 parse_platform_sensor(obj, arg);
 551         END OBJ_ARG(hwmon, 0, "hwmon needs argumanets")
 552                 parse_hwmon_sensor(obj, arg);
 553 #endif /* __linux__ */
 554
 555         END
 556         /* we have four different types of top (top, top_mem, top_time and top_io). To
 557          * avoid having almost-same code four times, we have this special
 558          * handler. */
 559         if (strncmp(s, "top", 3) == EQUAL) {
 560                 add_update_callback(&update_meminfo);
 561                 add_update_callback(&update_top);
 562                 if (!parse_top_args(s, arg, obj)) {
 563                         return NULL;
 564                 }
 565         } else OBJ(addr, &update_net_stats)
 566                 parse_net_stat_arg(obj, arg, free_at_crash);
 567 #if defined(__linux__)
 568         END OBJ(addrs, &update_net_stats)
 569                 parse_net_stat_arg(obj, arg, free_at_crash);
 570 #endif /* __linux__ */
 571         END OBJ_ARG(tail, 0, "tail needs arguments")
 572                 init_tailhead("tail", arg, obj, free_at_crash);
 573         END OBJ_ARG(head, 0, "head needs arguments")
 574                 init_tailhead("head", arg, obj, free_at_crash);
 575         END OBJ_ARG(lines, 0, "lines needs an argument")
 576                 obj->data.s = strndup(arg, text_buffer_size);
 577         END OBJ_ARG(words, 0, "words needs a argument")
 578                 obj->data.s = strndup(arg, text_buffer_size);
 579         END OBJ(loadavg, &update_load_average)
 580                 scan_loadavg_arg(obj, arg);
 581         END OBJ_IF_ARG(if_empty, 0, "if_empty needs an argument")
 582                 obj->data.ifblock.s = strndup(arg, text_buffer_size);
 583                 obj->sub = malloc(sizeof(struct text_object));
 584                 extract_variable_text_internal(obj->sub, obj->data.ifblock.s);
 585         END OBJ_IF_ARG(if_match, 0, "if_match needs arguments")
 586                 obj->data.ifblock.s = strndup(arg, text_buffer_size);
 587                 obj->sub = malloc(sizeof(struct text_object));
 588                 extract_variable_text_internal(obj->sub, obj->data.ifblock.s);
 589         END OBJ_IF_ARG(if_existing, 0, "if_existing needs an argument or two")
 590                 char buf1[256], buf2[256];
 591                 int r = sscanf(arg, "%255s %255[^\n]", buf1, buf2);
 592
 593                 if (r == 1) {
 594                         obj->data.ifblock.s = strndup(buf1, text_buffer_size);
 595                         obj->data.ifblock.str = NULL;
 596                 } else {
 597                         obj->data.ifblock.s = strndup(buf1, text_buffer_size);
 598                         obj->data.ifblock.str = strndup(buf2, text_buffer_size);
 599                 }
 600                 DBGP("if_existing: '%s' '%s'", obj->data.ifblock.s, obj->data.ifblock.str);
 601         END OBJ_IF_ARG(if_mounted, 0, "if_mounted needs an argument")
 602                 obj->data.ifblock.s = strndup(arg, text_buffer_size);
 603 #ifdef __linux__
 604         END OBJ_IF_ARG(if_running, &update_top, "if_running needs an argument")
 605                 top_running = 1;
 606                 obj->data.ifblock.s = strndup(arg, text_buffer_size);
 607 #else
 608         END OBJ_IF_ARG(if_running, 0, "if_running needs an argument")
 609                 char buf[256];
 610
 611                 snprintf(buf, 256, "pidof %s >/dev/null", arg);
 612                 obj->data.ifblock.s = strndup(buf, text_buffer_size);
 613 #endif
 614         END OBJ(kernel, 0)
 615         END OBJ(machine, 0)
 616         END OBJ(mails, 0)
 617                 parse_local_mail_args(obj, arg);
 618         END OBJ(new_mails, 0)
 619                 parse_local_mail_args(obj, arg);
 620         END OBJ(seen_mails, 0)
 621                 parse_local_mail_args(obj, arg);
 622         END OBJ(unseen_mails, 0)
 623                 parse_local_mail_args(obj, arg);
 624         END OBJ(flagged_mails, 0)
 625                 parse_local_mail_args(obj, arg);
 626         END OBJ(unflagged_mails, 0)
 627                 parse_local_mail_args(obj, arg);
 628         END OBJ(forwarded_mails, 0)
 629                 parse_local_mail_args(obj, arg);
 630         END OBJ(unforwarded_mails, 0)
 631                 parse_local_mail_args(obj, arg);
 632         END OBJ(replied_mails, 0)
 633                 parse_local_mail_args(obj, arg);
 634         END OBJ(unreplied_mails, 0)
 635                 parse_local_mail_args(obj, arg);
 636         END OBJ(draft_mails, 0)
 637                 parse_local_mail_args(obj, arg);
 638         END OBJ(trashed_mails, 0)
 639                 parse_local_mail_args(obj, arg);
 640         END OBJ(mboxscan, 0)
 641                 parse_mboxscan_arg(obj, arg);
 642         END OBJ(mem, &update_meminfo)
 643         END OBJ(memeasyfree, &update_meminfo)
 644         END OBJ(memfree, &update_meminfo)
 645         END OBJ(memmax, &update_meminfo)
 646         END OBJ(memperc, &update_meminfo)
 647 #ifdef X11
 648         END OBJ(memgauge, &update_meminfo)
 649                 SIZE_DEFAULTS(gauge);
 650                 scan_gauge(arg, &obj->data.pair.a, &obj->data.pair.b);
 651 #endif /* X11*/
 652         END OBJ(membar, &update_meminfo)
 653                 SIZE_DEFAULTS(bar);
 654                 scan_bar(arg, &obj->data.pair.a, &obj->data.pair.b);
 655 #ifdef X11
 656         END OBJ(memgraph, &update_meminfo)
 657                 char *buf = 0;
 658                 SIZE_DEFAULTS(graph);
 659                 buf = scan_graph(arg, &obj->a, &obj->b, &obj->c, &obj->d,
 660                                 &obj->e, &obj->char_a, &obj->char_b);
 661
 662                 if (buf) free(buf);
 663 #endif /* X11*/
 664         END OBJ(mixer, 0)
 665                 parse_mixer_arg(obj, arg);
 666         END OBJ(mixerl, 0)
 667                 parse_mixer_arg(obj, arg);
 668         END OBJ(mixerr, 0)
 669                 parse_mixer_arg(obj, arg);
 670 #ifdef X11
 671         END OBJ(mixerbar, 0)
 672                 scan_mixer_bar(obj, arg);
 673         END OBJ(mixerlbar, 0)
 674                 scan_mixer_bar(obj, arg);
 675         END OBJ(mixerrbar, 0)
 676                 scan_mixer_bar(obj, arg);
 677 #endif
 678         END OBJ_IF(if_mixer_mute, 0)
 679                 parse_mixer_arg(obj, arg);
 680 #ifdef X11
 681         END OBJ(monitor, &update_x11info)
 682         END OBJ(monitor_number, &update_x11info)
 683         END OBJ(desktop, &update_x11info)
 684         END OBJ(desktop_number, &update_x11info)
 685         END OBJ(desktop_name, &update_x11info)
 686 #endif
 687         END OBJ(nodename, 0)
 688         END OBJ(processes, &update_total_processes)
 689         END OBJ(running_processes, &update_running_processes)
 690         END OBJ(shadecolor, 0)
 691 #ifdef X11
 692                 obj->data.l = arg ? get_x11_color(arg) : default_bg_color;
 693 #endif /* X11 */
 694         END OBJ(outlinecolor, 0)
 695 #ifdef X11
 696                 obj->data.l = arg ? get_x11_color(arg) : default_out_color;
 697 #endif /* X11 */
 698         END OBJ(stippled_hr, 0)
 699 #ifdef X11
 700                 int a = get_stippled_borders(), b = 1;
 701
 702                 if (arg) {
 703                         if (sscanf(arg, "%d %d", &a, &b) != 2) {
 704                                 sscanf(arg, "%d", &b);
 705                         }
 706                 }
 707                 if (a <= 0) {
 708                         a = 1;
 709                 }
 710                 obj->data.pair.a = a;
 711                 obj->data.pair.b = b;
 712 #endif /* X11 */
 713         END OBJ(swap, &update_meminfo)
 714         END OBJ(swapfree, &update_meminfo)
 715         END OBJ(swapmax, &update_meminfo)
 716         END OBJ(swapperc, &update_meminfo)
 717         END OBJ(swapbar, &update_meminfo)
 718                 SIZE_DEFAULTS(bar);
 719                 scan_bar(arg, &obj->data.pair.a, &obj->data.pair.b);
 720         END OBJ(sysname, 0)
 721         END OBJ(time, 0)
 722                 scan_time(obj, arg);
 723         END OBJ(utime, 0)
 724                 scan_time(obj, arg);
 725         END OBJ(tztime, 0)
 726                 scan_tztime(obj, arg);
 727 #ifdef HAVE_ICONV
 728         END OBJ_ARG(iconv_start, 0, "Iconv requires arguments")
 729                 init_iconv_start(obj, free_at_crash, arg);
 730         END OBJ(iconv_stop, 0)
 731                 init_iconv_stop();
 732 #endif
 733         END OBJ(totaldown, &update_net_stats)
 734                 parse_net_stat_arg(obj, arg, free_at_crash);
 735         END OBJ(totalup, &update_net_stats)
 736                 parse_net_stat_arg(obj, arg, free_at_crash);
 737         END OBJ(updates, 0)
 738         END OBJ_IF(if_updatenr, 0)
 739                 obj->data.ifblock.i = arg ? atoi(arg) : 0;
 740                 if(obj->data.ifblock.i == 0) CRIT_ERR(obj, free_at_crash, "if_updatenr needs a number above 0 as argument");
 741                 set_updatereset(obj->data.ifblock.i > get_updatereset() ? obj->data.ifblock.i : get_updatereset());
 742         END OBJ(alignr, 0)
 743                 obj->data.i = arg ? atoi(arg) : 0;
 744         END OBJ(alignc, 0)
 745                 obj->data.i = arg ? atoi(arg) : 0;
 746         END OBJ(upspeed, &update_net_stats)
 747                 parse_net_stat_arg(obj, arg, free_at_crash);
 748         END OBJ(upspeedf, &update_net_stats)
 749                 parse_net_stat_arg(obj, arg, free_at_crash);
 750 #ifdef X11
 751         END OBJ(upspeedgraph, &update_net_stats)
 752                 parse_net_stat_graph_arg(obj, arg, free_at_crash);
 753 #endif
 754         END OBJ(uptime_short, &update_uptime)
 755         END OBJ(uptime, &update_uptime)
 756         END OBJ(user_names, &update_users)
 757         END OBJ(user_times, &update_users)
 758         END OBJ(user_terms, &update_users)
 759         END OBJ(user_number, &update_users)
 760 #if defined(__linux__)
 761         END OBJ(gw_iface, &update_gateway_info)
 762         END OBJ(gw_ip, &update_gateway_info)
 763 #endif /* !__linux__ */
 764 #ifndef __OpenBSD__
 765         END OBJ(adt746xcpu, 0)
 766         END OBJ(adt746xfan, 0)
 767 #endif /* !__OpenBSD__ */
 768 #if (defined(__FreeBSD__) || defined(__FreeBSD_kernel__) \
 769                 || defined(__OpenBSD__)) && (defined(i386) || defined(__i386__))
 770         END OBJ(apm_adapter, 0)
 771         END OBJ(apm_battery_life, 0)
 772         END OBJ(apm_battery_time, 0)
 773 #endif /* __FreeBSD__ */
 774         END OBJ(imap_unseen, 0)
 775                 parse_imap_mail_args(obj, arg);
 776         END OBJ(imap_messages, 0)
 777                 parse_imap_mail_args(obj, arg);
 778         END OBJ(pop3_unseen, 0)
 779                 parse_pop3_mail_args(obj, arg);
 780         END OBJ(pop3_used, 0)
 781                 parse_pop3_mail_args(obj, arg);
 782 #ifdef IBM
 783         END OBJ_ARG(smapi, 0, "smapi needs an argument")
 784                 obj->data.s = strndup(arg, text_buffer_size);
 785         END OBJ_IF_ARG(if_smapi_bat_installed, 0, "if_smapi_bat_installed needs an argument")
 786                 obj->data.ifblock.s = strndup(arg, text_buffer_size);
 787         END OBJ_ARG(smapi_bat_perc, 0, "smapi_bat_perc needs an argument")
 788                 obj->data.s = strndup(arg, text_buffer_size);
 789         END OBJ_ARG(smapi_bat_temp, 0, "smapi_bat_temp needs an argument")
 790                 obj->data.s = strndup(arg, text_buffer_size);
 791         END OBJ_ARG(smapi_bat_power, 0, "smapi_bat_power needs an argument")
 792                 obj->data.s = strndup(arg, text_buffer_size);
 793 #ifdef X11
 794         END OBJ_ARG(smapi_bat_bar, 0, "smapi_bat_bar needs an argument")
 795                 int cnt;
 796                 SIZE_DEFAULTS(bar);
 797                 if(sscanf(arg, "%i %n", &obj->data.i, &cnt) <= 0) {
 798                         NORM_ERR("first argument to smapi_bat_bar must be an integer value");
 799                         obj->data.i = -1;
 800                 } else {
 801                         obj->b = 4;
 802                         arg = scan_bar(arg + cnt, &obj->a, &obj->b);
 803                 }
 804 #endif /* X11 */
 805 #endif /* IBM */
 806 #ifdef MPD
 807 #define mpd_set_maxlen(name) \
 808                 if (arg) { \
 809                         int i; \
 810                         sscanf(arg, "%d", &i); \
 811                         if (i > 0) \
 812                                 obj->data.i = i + 1; \
 813                         else \
 814                                 NORM_ERR(#name ": invalid length argument"); \
 815                 }
 816         END OBJ(mpd_artist, &update_mpd)
 817                 mpd_set_maxlen(mpd_artist);
 818                 init_mpd();
 819         END OBJ(mpd_title, &update_mpd)
 820                 mpd_set_maxlen(mpd_title);
 821                 init_mpd();
 822         END OBJ(mpd_random, &update_mpd) init_mpd();
 823         END OBJ(mpd_repeat, &update_mpd) init_mpd();
 824         END OBJ(mpd_elapsed, &update_mpd) init_mpd();
 825         END OBJ(mpd_length, &update_mpd) init_mpd();
 826         END OBJ(mpd_track, &update_mpd)
 827                 mpd_set_maxlen(mpd_track);
 828                 init_mpd();
 829         END OBJ(mpd_name, &update_mpd)
 830                 mpd_set_maxlen(mpd_name);
 831                 init_mpd();
 832         END OBJ(mpd_file, &update_mpd)
 833                 mpd_set_maxlen(mpd_file);
 834                 init_mpd();
 835         END OBJ(mpd_percent, &update_mpd) init_mpd();
 836         END OBJ(mpd_album, &update_mpd)
 837                 mpd_set_maxlen(mpd_album);
 838                 init_mpd();
 839         END OBJ(mpd_vol, &update_mpd) init_mpd();
 840         END OBJ(mpd_bitrate, &update_mpd) init_mpd();
 841         END OBJ(mpd_status, &update_mpd) init_mpd();
 842         END OBJ(mpd_bar, &update_mpd)
 843                 SIZE_DEFAULTS(bar);
 844                 scan_bar(arg, &obj->data.pair.a, &obj->data.pair.b);
 845                 init_mpd();
 846         END OBJ(mpd_smart, &update_mpd)
 847                 mpd_set_maxlen(mpd_smart);
 848                 init_mpd();
 849         END OBJ_IF(if_mpd_playing, &update_mpd)
 850                 init_mpd();
 851 #undef mpd_set_maxlen
 852 #endif /* MPD */
 853 #ifdef MOC
 854         END OBJ(moc_state, &update_moc)
 855         END OBJ(moc_file, &update_moc)
 856         END OBJ(moc_title, &update_moc)
 857         END OBJ(moc_artist, &update_moc)
 858         END OBJ(moc_song, &update_moc)
 859         END OBJ(moc_album, &update_moc)
 860         END OBJ(moc_totaltime, &update_moc)
 861         END OBJ(moc_timeleft, &update_moc)
 862         END OBJ(moc_curtime, &update_moc)
 863         END OBJ(moc_bitrate, &update_moc)
 864         END OBJ(moc_rate, &update_moc)
 865 #endif /* MOC */
 866 #ifdef XMMS2
 867         END OBJ(xmms2_artist, &update_xmms2)
 868         END OBJ(xmms2_album, &update_xmms2)
 869         END OBJ(xmms2_title, &update_xmms2)
 870         END OBJ(xmms2_genre, &update_xmms2)
 871         END OBJ(xmms2_comment, &update_xmms2)
 872         END OBJ(xmms2_url, &update_xmms2)
 873         END OBJ(xmms2_tracknr, &update_xmms2)
 874         END OBJ(xmms2_bitrate, &update_xmms2)
 875         END OBJ(xmms2_date, &update_xmms2)
 876         END OBJ(xmms2_id, &update_xmms2)
 877         END OBJ(xmms2_duration, &update_xmms2)
 878         END OBJ(xmms2_elapsed, &update_xmms2)
 879         END OBJ(xmms2_size, &update_xmms2)
 880         END OBJ(xmms2_status, &update_xmms2)
 881         END OBJ(xmms2_percent, &update_xmms2)
 882 #ifdef X11
 883         END OBJ(xmms2_bar, &update_xmms2)
 884                 SIZE_DEFAULTS(bar);
 885                 scan_bar(arg, &obj->data.pair.a, &obj->data.pair.b);
 886 #endif /* X11 */
 887         END OBJ(xmms2_smart, &update_xmms2)
 888         END OBJ(xmms2_playlist, &update_xmms2)
 889         END OBJ(xmms2_timesplayed, &update_xmms2)
 890         END OBJ_IF(if_xmms2_connected, &update_xmms2)
 891 #endif
 892 #ifdef AUDACIOUS
 893         END OBJ(audacious_status, &update_audacious)
 894         END OBJ_ARG(audacious_title, &update_audacious, "audacious_title needs an argument")
 895                 sscanf(arg, "%d", &info.audacious.max_title_len);
 896                 if (info.audacious.max_title_len > 0) {
 897                         info.audacious.max_title_len++;
 898                 } else {
 899                         CRIT_ERR(obj, free_at_crash, "audacious_title: invalid length argument");
 900                 }
 901         END OBJ(audacious_length, &update_audacious)
 902         END OBJ(audacious_length_seconds, &update_audacious)
 903         END OBJ(audacious_position, &update_audacious)
 904         END OBJ(audacious_position_seconds, &update_audacious)
 905         END OBJ(audacious_bitrate, &update_audacious)
 906         END OBJ(audacious_frequency, &update_audacious)
 907         END OBJ(audacious_channels, &update_audacious)
 908         END OBJ(audacious_filename, &update_audacious)
 909         END OBJ(audacious_playlist_length, &update_audacious)
 910         END OBJ(audacious_playlist_position, &update_audacious)
 911         END OBJ(audacious_main_volume, &update_audacious)
 912 #ifdef X11
 913         END OBJ(audacious_bar, &update_audacious)
 914                 SIZE_DEFAULTS(bar);
 915                 scan_bar(arg, &obj->a, &obj->b);
 916 #endif /* X11 */
 917 #endif
 918 #ifdef BMPX
 919         END OBJ(bmpx_title, &update_bmpx)
 920                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 921         END OBJ(bmpx_artist, &update_bmpx)
 922                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 923         END OBJ(bmpx_album, &update_bmpx)
 924                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 925         END OBJ(bmpx_track, &update_bmpx)
 926                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 927         END OBJ(bmpx_uri, &update_bmpx)
 928                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 929         END OBJ(bmpx_bitrate, &update_bmpx)
 930                 memset(&(info.bmpx), 0, sizeof(struct bmpx_s));
 931 #endif
 932 #ifdef EVE
 933         END OBJ_ARG(eve, 0, "eve needs arguments: <userid> <apikey> <characterid>")
 934                 scan_eve(obj, arg);
 935 #endif
 936 #ifdef HAVE_CURL
 937         END OBJ_ARG(curl, 0, "curl needs arguments: <uri> <interval in minutes>")
 938                 curl_parse_arg(obj, arg);
 939 #endif
 940 #ifdef RSS
 941         END OBJ_ARG(rss, 0, "rss needs arguments: <uri> <interval in minutes> <action> [act_par] [spaces in front]")
 942                 rss_scan_arg(obj, arg);
 943 #endif
 944 #ifdef WEATHER
 945         END OBJ_ARG(weather, 0, "weather needs arguments: <uri> <locID> <data_type> [interval in minutes]")
 946                 scan_weather_arg(obj, arg, free_at_crash);
 947 #endif
 948 #ifdef XOAP
 949         END OBJ_ARG(weather_forecast, 0, "weather_forecast needs arguments: <uri> <locID> <day> <data_type> [interval in minutes]")
 950                 scan_weather_forecast_arg(obj, arg, free_at_crash);
 951 #endif
 952 #ifdef HAVE_LUA
 953         END OBJ_ARG(lua, 0, "lua needs arguments: <function name> [function parameters]")
 954                 obj->data.s = strndup(arg, text_buffer_size);
 955         END OBJ_ARG(lua_parse, 0, "lua_parse needs arguments: <function name> [function parameters]")
 956                 obj->data.s = strndup(arg, text_buffer_size);
 957         END OBJ_ARG(lua_bar, 0, "lua_bar needs arguments: <height>,<width> <function name> [function parameters]")
 958                 SIZE_DEFAULTS(bar);
 959                 arg = scan_bar(arg, &obj->a, &obj->b);
 960                 if(arg) {
 961                         obj->data.s = strndup(arg, text_buffer_size);
 962                 } else {
 963                         CRIT_ERR(obj, free_at_crash, "lua_bar needs arguments: <height>,<width> <function name> [function parameters]");
 964                 }
 965 #ifdef X11
 966         END OBJ_ARG(lua_graph, 0, "lua_graph needs arguments: <function name> [height],[width] [gradient colour 1] [gradient colour 2] [scale] [-t] [-l]")
 967                 char *buf = 0;
 968                 SIZE_DEFAULTS(graph);
 969                 buf = scan_graph(arg, &obj->a, &obj->b, &obj->c, &obj->d,
 970                                 &obj->e, &obj->char_a, &obj->char_b);
 971                 if (buf) {
 972                         obj->data.s = buf;
 973                 } else {
 974                         CRIT_ERR(obj, free_at_crash, "lua_graph needs arguments: <function name> [height],[width] [gradient colour 1] [gradient colour 2] [scale] [-t] [-l]");
 975                 }
 976         END OBJ_ARG(lua_gauge, 0, "lua_gauge needs arguments: <height>,<width> <function name> [function parameters]")
 977                 SIZE_DEFAULTS(gauge);
 978                 arg = scan_gauge(arg, &obj->a, &obj->b);
 979                 if (arg) {
 980                         obj->data.s = strndup(arg, text_buffer_size);
 981                 } else {
 982                         CRIT_ERR(obj, free_at_crash, "lua_gauge needs arguments: <height>,<width> <function name> [function parameters]");
 983                 }
 984 #endif /* X11 */
 985 #endif /* HAVE_LUA */
 986 #ifdef HDDTEMP
 987         END OBJ(hddtemp, &update_hddtemp)
 988                 if (arg)
 989                         obj->data.s = strndup(arg, text_buffer_size);
 990 #endif /* HDDTEMP */
 991 #ifdef TCP_PORT_MONITOR
 992         END OBJ_ARG(tcp_portmon, &tcp_portmon_update, "tcp_portmon: needs arguments")
 993                 tcp_portmon_init(obj, arg);
 994 #endif /* TCP_PORT_MONITOR */
 995         END OBJ(entropy_avail, &update_entropy)
 996         END OBJ(entropy_perc, &update_entropy)
 997         END OBJ(entropy_poolsize, &update_entropy)
 998         END OBJ(entropy_bar, &update_entropy)
 999                 SIZE_DEFAULTS(bar);
1000                 scan_bar(arg, &obj->a, &obj->b);
1001         END OBJ_ARG(include, 0, "include needs a argument")
1002                 struct conftree *leaf = conftree_add(currentconffile, arg);
1003                 if(leaf) {
1004                         if (load_config_file(arg) == TRUE) {
1005                                 obj->sub = malloc(sizeof(struct text_object));
1006                                 currentconffile = leaf;
1007                                 extract_variable_text_internal(obj->sub, get_global_text());
1008                                 currentconffile = leaf->back;
1009                         } else {
1010                                 NORM_ERR("Can't load configfile '%s'.", arg);
1011                         }
1012                 } else {
1013                         NORM_ERR("You are trying to load '%s' recursively, I'm only going to load it once to prevent an infinite loop.", arg);
1014                 }
1015         END OBJ_ARG(blink, 0, "blink needs a argument")
1016                 obj->sub = malloc(sizeof(struct text_object));
1017                 extract_variable_text_internal(obj->sub, arg);
1018         END OBJ_ARG(to_bytes, 0, "to_bytes needs a argument")
1019                 obj->sub = malloc(sizeof(struct text_object));
1020                 extract_variable_text_internal(obj->sub, arg);
1021         END OBJ(scroll, 0)
1022                 parse_scroll_arg(obj, arg, free_at_crash);
1023         END OBJ_ARG(combine, 0, "combine needs arguments: <text1> <text2>")
1024                 parse_combine_arg(obj, arg, free_at_crash);
1025 #ifdef NVIDIA
1026         END OBJ_ARG(nvidia, 0, "nvidia needs an argument")
1027                 if (set_nvidia_type(obj, arg)) {
1028                         CRIT_ERR(obj, free_at_crash, "nvidia: invalid argument"
1029                                  " specified: '%s'\n", arg);
1030                 }
1031 #endif /* NVIDIA */
1032 #ifdef APCUPSD
1033         END OBJ_ARG(apcupsd, &update_apcupsd, "apcupsd needs arguments: <host> <port>")
1034                 char host[64];
1035                 int port;
1036                 if (sscanf(arg, "%63s %d", host, &port) != 2) {
1037                         CRIT_ERR(obj, free_at_crash, "apcupsd needs arguments: <host> <port>");
1038                 } else {
1039                         info.apcupsd.port = htons(port);
1040                         strncpy(info.apcupsd.host, host, sizeof(info.apcupsd.host));
1041                 }
1042         END OBJ(apcupsd_name, &update_apcupsd)
1043         END OBJ(apcupsd_model, &update_apcupsd)
1044         END OBJ(apcupsd_upsmode, &update_apcupsd)
1045         END OBJ(apcupsd_cable, &update_apcupsd)
1046         END OBJ(apcupsd_status, &update_apcupsd)
1047         END OBJ(apcupsd_linev, &update_apcupsd)
1048         END OBJ(apcupsd_load, &update_apcupsd)
1049         END OBJ(apcupsd_loadbar, &update_apcupsd)
1050                 SIZE_DEFAULTS(bar);
1051                 scan_bar(arg, &obj->a, &obj->b);
1052 #ifdef X11
1053         END OBJ(apcupsd_loadgraph, &update_apcupsd)
1054                 char* buf = 0;
1055                 SIZE_DEFAULTS(graph);
1056                 buf = scan_graph(arg, &obj->a, &obj->b, &obj->c, &obj->d,
1057                                 &obj->e, &obj->char_a, &obj->char_b);
1058                 if (buf) free(buf);
1059         END OBJ(apcupsd_loadgauge, &update_apcupsd)
1060                 SIZE_DEFAULTS(gauge);
1061                 scan_gauge(arg, &obj->a, &obj->b);
1062 #endif /* X11 */
1063         END OBJ(apcupsd_charge, &update_apcupsd)
1064         END OBJ(apcupsd_timeleft, &update_apcupsd)
1065         END OBJ(apcupsd_temp, &update_apcupsd)
1066         END OBJ(apcupsd_lastxfer, &update_apcupsd)
1067 #endif /* APCUPSD */
1068         END {
1069                 char buf[256];
1070
1071                 NORM_ERR("unknown variable %s", s);
1072                 obj->type = OBJ_text;
1073                 snprintf(buf, 256, "${%s}", s);
1074                 obj->data.s = strndup(buf, text_buffer_size);
1075         }
1076 #undef OBJ
1077 #undef OBJ_IF
1078 #undef OBJ_ARG
1079 #undef OBJ_IF_ARG
1080 #undef __OBJ_HEAD
1081 #undef __OBJ_IF
1082 #undef __OBJ_ARG
1083 #undef END
1084 #undef SIZE_DEFAULTS
1085
1086         return obj;
1087 }
1088
1089 /*
1090  * - assumes that *string is '#'
1091  * - removes the part from '#' to the end of line ('\n' or '\0')
1092  * - it removes the '\n'
1093  * - copies the last char into 'char *last' argument, which should be a pointer
1094  *   to a char rather than a string.
1095  */
1096 static size_t remove_comment(char *string, char *last)
1097 {
1098         char *end = string;
1099         while (*end != '\0' && *end != '\n') {
1100                 ++end;
1101         }
1102         if (last) *last = *end;
1103         if (*end == '\n') end++;
1104         strfold(string, end - string);
1105         return end - string;
1106 }
1107
1108 size_t remove_comments(char *string)
1109 {
1110         char *curplace;
1111         size_t folded = 0;
1112         for (curplace = string; *curplace != 0; curplace++) {
1113                 if (*curplace == '\\' && *(curplace + 1) == '#') {
1114                         // strcpy can't be used for overlapping strings
1115                         strfold(curplace, 1);
1116                         folded += 1;
1117                 } else if (*curplace == '#') {
1118                         folded += remove_comment(curplace, 0);
1119                 }
1120         }
1121         return folded;
1122 }
1123
1124 int extract_variable_text_internal(struct text_object *retval, const char *const_p)
1125 {
1126         struct text_object *obj;
1127         char *p, *s, *orig_p;
1128         long line;
1129         void *ifblock_opaque = NULL;
1130         char *tmp_p;
1131         char *arg = 0;
1132         size_t len = 0;
1133
1134         p = strndup(const_p, max_user_text - 1);
1135         while (text_contains_templates(p)) {
1136                 char *tmp;
1137                 tmp = find_and_replace_templates(p);
1138                 free(p);
1139                 p = tmp;
1140         }
1141         s = orig_p = p;
1142
1143         if (strcmp(p, const_p)) {
1144                 DBGP("replaced all templates in text: input is\n'%s'\noutput is\n'%s'", const_p, p);
1145         } else {
1146                 DBGP("no templates to replace");
1147         }
1148
1149         memset(retval, 0, sizeof(struct text_object));
1150
1151         line = global_text_lines;
1152
1153         while (*p) {
1154                 if (*p == '\n') {
1155                         line++;
1156                 }
1157                 if (*p == '$') {
1158                         *p = '\0';
1159                         obj = create_plain_text(s);
1160                         if (obj != NULL) {
1161                                 append_object(retval, obj);
1162                         }
1163                         *p = '$';
1164                         p++;
1165                         s = p;
1166
1167                         if (*p != '$') {
1168                                 char buf[256];
1169                                 const char *var;
1170
1171                                 /* variable is either $foo or ${foo} */
1172                                 if (*p == '{') {
1173                                         unsigned int brl = 1, brr = 0;
1174
1175                                         p++;
1176                                         s = p;
1177                                         while (*p && brl != brr) {
1178                                                 if (*p == '{') {
1179                                                         brl++;
1180                                                 }
1181                                                 if (*p == '}') {
1182                                                         brr++;
1183                                                 }
1184                                                 p++;
1185                                         }
1186                                         p--;
1187                                 } else {
1188                                         s = p;
1189                                         if (*p == '#') {
1190                                                 p++;
1191                                         }
1192                                         while (*p && (isalnum((int) *p) || *p == '_')) {
1193                                                 p++;
1194                                         }
1195                                 }
1196
1197                                 /* copy variable to buffer */
1198                                 len = (p - s > 255) ? 255 : (p - s);
1199                                 strncpy(buf, s, len);
1200                                 buf[len] = '\0';
1201
1202                                 if (*p == '}') {
1203                                         p++;
1204                                 }
1205                                 s = p;
1206
1207                                 /* search for variable in environment */
1208
1209                                 var = getenv(buf);
1210                                 if (var) {
1211                                         obj = create_plain_text(var);
1212                                         if (obj) {
1213                                                 append_object(retval, obj);
1214                                         }
1215                                         continue;
1216                                 }
1217
1218                                 /* if variable wasn't found in environment, use some special */
1219
1220                                 arg = 0;
1221
1222                                 /* split arg */
1223                                 if (strchr(buf, ' ')) {
1224                                         arg = strchr(buf, ' ');
1225                                         *arg = '\0';
1226                                         arg++;
1227                                         while (isspace((int) *arg)) {
1228                                                 arg++;
1229                                         }
1230                                         if (!*arg) {
1231                                                 arg = 0;
1232                                         }
1233                                 }
1234
1235                                 /* lowercase variable name */
1236                                 tmp_p = buf;
1237                                 while (*tmp_p) {
1238                                         *tmp_p = tolower(*tmp_p);
1239                                         tmp_p++;
1240                                 }
1241
1242                                 obj = construct_text_object(buf, arg,
1243                                                 line, &ifblock_opaque, orig_p);
1244                                 if (obj != NULL) {
1245                                         append_object(retval, obj);
1246                                 }
1247                                 continue;
1248                         } else {
1249                                 obj = create_plain_text("$");
1250                                 s = p + 1;
1251                                 if (obj != NULL) {
1252                                         append_object(retval, obj);
1253                                 }
1254                         }
1255                 } else if (*p == '\\' && *(p+1) == '#') {
1256                         strfold(p, 1);
1257                 } else if (*p == '#') {
1258                         char c;
1259                         if (remove_comment(p, &c) && p > orig_p && c == '\n') {
1260                                 /* if remove_comment removed a newline, we need to 'back up' with p */
1261                                 p--;
1262                         }
1263                 }
1264                 p++;
1265         }
1266         obj = create_plain_text(s);
1267         if (obj != NULL) {
1268                 append_object(retval, obj);
1269         }
1270
1271         if (!ifblock_stack_empty(&ifblock_opaque)) {
1272                 NORM_ERR("one or more $endif's are missing");
1273         }
1274
1275         free(orig_p);
1276         return 0;
1277 }
1278
1279 /*
1280  * Frees the list of text objects root points to.  When internal = 1, it won't
1281  * free global objects.
1282  */
1283 void free_text_objects(struct text_object *root, int internal)
1284 {
1285         struct text_object *obj;
1286
1287         if (!root->prev) {
1288                 return;
1289         }
1290
1291 #define data obj->data
1292         for (obj = root->prev; obj; obj = root->prev) {
1293                 root->prev = obj->prev;
1294                 switch (obj->type) {
1295 #ifndef __OpenBSD__
1296                         case OBJ_acpitemp:
1297                                 close(data.i);
1298                                 break;
1299 #endif /* !__OpenBSD__ */
1300 #ifdef __linux__
1301                         case OBJ_i2c:
1302                         case OBJ_platform:
1303                         case OBJ_hwmon:
1304                                 free_sysfs_sensor(obj);
1305                                 break;
1306 #endif /* __linux__ */
1307                         case OBJ_read_tcp:
1308                                 free_read_tcp(obj);
1309                                 break;
1310                         case OBJ_time:
1311                         case OBJ_utime:
1312                                 free_time(obj);
1313                                 break;
1314                         case OBJ_tztime:
1315                                 free_tztime(obj);
1316                                 break;
1317                         case OBJ_mboxscan:
1318                                 free_mboxscan(obj);
1319                                 break;
1320                         case OBJ_mails:
1321                         case OBJ_new_mails:
1322                         case OBJ_seen_mails:
1323                         case OBJ_unseen_mails:
1324                         case OBJ_flagged_mails:
1325                         case OBJ_unflagged_mails:
1326                         case OBJ_forwarded_mails:
1327                         case OBJ_unforwarded_mails:
1328                         case OBJ_replied_mails:
1329                         case OBJ_unreplied_mails:
1330                         case OBJ_draft_mails:
1331                         case OBJ_trashed_mails:
1332                                 free_local_mails(obj);
1333                                 break;
1334                         case OBJ_imap_unseen:
1335                         case OBJ_imap_messages:
1336                         case OBJ_pop3_unseen:
1337                         case OBJ_pop3_used:
1338                                 free_mail_obj(obj);
1339                                 break;
1340                         case OBJ_if_empty:
1341                         case OBJ_if_match:
1342                                 free_text_objects(obj->sub, 1);
1343                                 free(obj->sub);
1344                                 /* fall through */
1345                         case OBJ_if_existing:
1346                         case OBJ_if_mounted:
1347                         case OBJ_if_running:
1348                                 free(data.ifblock.s);
1349                                 free(data.ifblock.str);
1350                                 break;
1351                         case OBJ_head:
1352                         case OBJ_tail:
1353                                 free_tailhead(obj);
1354                                 break;
1355                         case OBJ_text:
1356                         case OBJ_font:
1357                         case OBJ_image:
1358                         case OBJ_eval:
1359                         case OBJ_exec:
1360                         case OBJ_execbar:
1361 #ifdef X11
1362                         case OBJ_execgauge:
1363                         case OBJ_execgraph:
1364 #endif
1365                         case OBJ_execp:
1366                                 free_exec(obj);
1367                                 break;
1368 #ifdef HAVE_ICONV
1369                         case OBJ_iconv_start:
1370                                 free_iconv();
1371                                 break;
1372 #endif
1373 #ifdef __linux__
1374                         case OBJ_disk_protect:
1375                                 free(data.s);
1376                                 break;
1377                         case OBJ_if_gw:
1378                                 free(data.ifblock.s);
1379                                 free(data.ifblock.str);
1380                         case OBJ_gw_iface:
1381                         case OBJ_gw_ip:
1382                                 free_gateway_info();
1383                                 break;
1384                         case OBJ_ioscheduler:
1385                                 if(data.s)
1386                                         free(data.s);
1387                                 break;
1388 #endif
1389 #if (defined(__FreeBSD__) || defined(__linux__))
1390                         case OBJ_if_up:
1391                                 free_if_up(obj);
1392                                 break;
1393 #endif
1394 #ifdef XMMS2
1395                         case OBJ_xmms2_artist:
1396                                 if (info.xmms2.artist) {
1397                                         free(info.xmms2.artist);
1398                                         info.xmms2.artist = 0;
1399                                 }
1400                                 break;
1401                         case OBJ_xmms2_album:
1402                                 if (info.xmms2.album) {
1403                                         free(info.xmms2.album);
1404                                         info.xmms2.album = 0;
1405                                 }
1406                                 break;
1407                         case OBJ_xmms2_title:
1408                                 if (info.xmms2.title) {
1409                                         free(info.xmms2.title);
1410                                         info.xmms2.title = 0;
1411                                 }
1412                                 break;
1413                         case OBJ_xmms2_genre:
1414                                 if (info.xmms2.genre) {
1415                                         free(info.xmms2.genre);
1416                                         info.xmms2.genre = 0;
1417                                 }
1418                                 break;
1419                         case OBJ_xmms2_comment:
1420                                 if (info.xmms2.comment) {
1421                                         free(info.xmms2.comment);
1422                                         info.xmms2.comment = 0;
1423                                 }
1424                                 break;
1425                         case OBJ_xmms2_url:
1426                                 if (info.xmms2.url) {
1427                                         free(info.xmms2.url);
1428                                         info.xmms2.url = 0;
1429                                 }
1430                                 break;
1431                         case OBJ_xmms2_date:
1432                                 if (info.xmms2.date) {
1433                                         free(info.xmms2.date);
1434                                         info.xmms2.date = 0;
1435                                 }
1436                                 break;
1437                         case OBJ_xmms2_status:
1438                                 if (info.xmms2.status) {
1439                                         free(info.xmms2.status);
1440                                         info.xmms2.status = 0;
1441                                 }
1442                                 break;
1443                         case OBJ_xmms2_playlist:
1444                                 if (info.xmms2.playlist) {
1445                                         free(info.xmms2.playlist);
1446                                         info.xmms2.playlist = 0;
1447                                 }
1448                                 break;
1449                         case OBJ_xmms2_smart:
1450                                 if (info.xmms2.artist) {
1451                                         free(info.xmms2.artist);
1452                                         info.xmms2.artist = 0;
1453                                 }
1454                                 if (info.xmms2.title) {
1455                                         free(info.xmms2.title);
1456                                         info.xmms2.title = 0;
1457                                 }
1458                                 if (info.xmms2.url) {
1459                                         free(info.xmms2.url);
1460                                         info.xmms2.url = 0;
1461                                 }
1462                                 break;
1463 #endif
1464 #ifdef BMPX
1465                         case OBJ_bmpx_title:
1466                         case OBJ_bmpx_artist:
1467                         case OBJ_bmpx_album:
1468                         case OBJ_bmpx_track:
1469                         case OBJ_bmpx_uri:
1470                         case OBJ_bmpx_bitrate:
1471                                 break;
1472 #endif
1473 #ifdef EVE
1474                         case OBJ_eve:
1475                                 free_eve(obj);
1476                                 break;
1477 #endif
1478 #ifdef HAVE_CURL
1479                         case OBJ_curl:
1480                                 curl_obj_free(obj);
1481                                 break;
1482 #endif
1483 #ifdef RSS
1484                         case OBJ_rss:
1485                                 rss_free_obj_info(obj);
1486                                 break;
1487 #endif
1488 #ifdef WEATHER
1489                         case OBJ_weather:
1490                                 free_weather(obj);
1491                                 break;
1492 #endif
1493 #ifdef XOAP
1494                         case OBJ_weather_forecast:
1495                                 free_weather(obj);
1496                                 break;
1497 #endif
1498 #ifdef HAVE_LUA
1499                         case OBJ_lua:
1500                         case OBJ_lua_parse:
1501                         case OBJ_lua_bar:
1502 #ifdef X11
1503                         case OBJ_lua_graph:
1504                         case OBJ_lua_gauge:
1505 #endif /* X11 */
1506                                 free(data.s);
1507                                 break;
1508 #endif /* HAVE_LUA */
1509                         case OBJ_pre_exec:
1510                                 break;
1511 #ifndef __OpenBSD__
1512                         case OBJ_battery:
1513                                 free(data.s);
1514                                 break;
1515                         case OBJ_battery_short:
1516                                 free(data.s);
1517                                 break;
1518                         case OBJ_battery_time:
1519                                 free(data.s);
1520                                 break;
1521 #endif /* !__OpenBSD__ */
1522                         case OBJ_execpi:
1523                         case OBJ_execi:
1524                         case OBJ_execibar:
1525                         case OBJ_texeci:
1526 #ifdef X11
1527                         case OBJ_execigraph:
1528                         case OBJ_execigauge:
1529 #endif /* X11 */
1530                                 free_execi(obj);
1531                                 break;
1532                         case OBJ_nameserver:
1533                                 free_dns_data();
1534                                 break;
1535                         case OBJ_top:
1536                         case OBJ_top_mem:
1537                         case OBJ_top_time:
1538 #ifdef IOSTATS
1539                         case OBJ_top_io:
1540 #endif
1541                                 free_top(obj, internal);
1542                                 break;
1543 #ifdef HDDTEMP
1544                         case OBJ_hddtemp:
1545                                 if (data.s) {
1546                                         free(data.s);
1547                                         data.s = NULL;
1548                                 }
1549                                 free_hddtemp();
1550                                 break;
1551 #endif /* HDDTEMP */
1552                         case OBJ_entropy_avail:
1553                         case OBJ_entropy_perc:
1554                         case OBJ_entropy_poolsize:
1555                         case OBJ_entropy_bar:
1556                                 break;
1557                         case OBJ_user_names:
1558                                 if (info.users.names) {
1559                                         free(info.users.names);
1560                                         info.users.names = 0;
1561                                 }
1562                                 break;
1563                         case OBJ_user_terms:
1564                                 if (info.users.terms) {
1565                                         free(info.users.terms);
1566                                         info.users.terms = 0;
1567                                 }
1568                                 break;
1569                         case OBJ_user_times:
1570                                 if (info.users.times) {
1571                                         free(info.users.times);
1572                                         info.users.times = 0;
1573                                 }
1574                                 break;
1575 #ifdef IBM
1576                         case OBJ_smapi:
1577                         case OBJ_smapi_bat_perc:
1578                         case OBJ_smapi_bat_temp:
1579                         case OBJ_smapi_bat_power:
1580                                 free(data.s);
1581                                 break;
1582                         case OBJ_if_smapi_bat_installed:
1583                                 free(data.ifblock.s);
1584                                 free(data.ifblock.str);
1585                                 break;
1586 #endif /* IBM */
1587 #ifdef NVIDIA
1588                         case OBJ_nvidia:
1589                                 free_nvidia(obj);
1590                                 break;
1591 #endif /* NVIDIA */
1592 #ifdef MPD
1593                         case OBJ_mpd_title:
1594                         case OBJ_mpd_artist:
1595                         case OBJ_mpd_album:
1596                         case OBJ_mpd_random:
1597                         case OBJ_mpd_repeat:
1598                         case OBJ_mpd_vol:
1599                         case OBJ_mpd_bitrate:
1600                         case OBJ_mpd_status:
1601                         case OBJ_mpd_bar:
1602                         case OBJ_mpd_elapsed:
1603                         case OBJ_mpd_length:
1604                         case OBJ_mpd_track:
1605                         case OBJ_mpd_name:
1606                         case OBJ_mpd_file:
1607                         case OBJ_mpd_percent:
1608                         case OBJ_mpd_smart:
1609                         case OBJ_if_mpd_playing:
1610                                 free_mpd();
1611                                 break;
1612 #endif /* MPD */
1613 #ifdef MOC
1614                         case OBJ_moc_state:
1615                         case OBJ_moc_file:
1616                         case OBJ_moc_title:
1617                         case OBJ_moc_artist:
1618                         case OBJ_moc_song:
1619                         case OBJ_moc_album:
1620                         case OBJ_moc_totaltime:
1621                         case OBJ_moc_timeleft:
1622                         case OBJ_moc_curtime:
1623                         case OBJ_moc_bitrate:
1624                         case OBJ_moc_rate:
1625                                 free_moc();
1626                                 break;
1627 #endif /* MOC */
1628                         case OBJ_include:
1629                         case OBJ_blink:
1630                         case OBJ_to_bytes:
1631                                 if(obj->sub) {
1632                                         free_text_objects(obj->sub, 1);
1633                                         free(obj->sub);
1634                                 }
1635                                 break;
1636                         case OBJ_scroll:
1637                                 free_scroll(obj);
1638                                 break;
1639                         case OBJ_combine:
1640                                 free_combine(obj);
1641                                 break;
1642 #ifdef APCUPSD
1643                         case OBJ_apcupsd:
1644                         case OBJ_apcupsd_name:
1645                         case OBJ_apcupsd_model:
1646                         case OBJ_apcupsd_upsmode:
1647                         case OBJ_apcupsd_cable:
1648                         case OBJ_apcupsd_status:
1649                         case OBJ_apcupsd_linev:
1650                         case OBJ_apcupsd_load:
1651                         case OBJ_apcupsd_loadbar:
1652 #ifdef X11
1653                         case OBJ_apcupsd_loadgraph:
1654                         case OBJ_apcupsd_loadgauge:
1655 #endif /* X11 */
1656                         case OBJ_apcupsd_charge:
1657                         case OBJ_apcupsd_timeleft:
1658                         case OBJ_apcupsd_temp:
1659                         case OBJ_apcupsd_lastxfer:
1660                                 break;
1661 #endif /* APCUPSD */
1662 #ifdef TCP_PORT_MONITOR
1663                         case OBJ_tcp_portmon:
1664                                 tcp_portmon_free(obj);
1665                                 break;
1666 #endif /* TCP_PORT_MONITOR */
1667 #ifdef X11
1668                         case OBJ_desktop:
1669                         case OBJ_desktop_number:
1670                         case OBJ_desktop_name:
1671                                 if(info.x11.desktop.name && !internal) {
1672                                   free(info.x11.desktop.name);
1673                                   info.x11.desktop.name = NULL;
1674                                 }
1675                                 if(info.x11.desktop.all_names && !internal) {
1676                                   free(info.x11.desktop.all_names);
1677                                   info.x11.desktop.all_names = NULL;
1678                                 }
1679                                 break;
1680 #endif /* X11 */
1681                 }
1682                 free(obj);
1683         }
1684 #undef data
1685 }
1686