archived-lcd4linux/widget_bar.c

/* $Id$
 * $URL$
 *
 * bar widget handling
 *
 * Copyright (C) 2003, 2004 Michael Reinelt <reinelt@eunet.at>
 * Copyright (C) 2004 The LCD4Linux Team <lcd4linux-devel@users.sourceforge.net>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

/* 
 * exported functions:
 *
 * WIDGET_CLASS Widget_Bar
 *   the bar widget
 *
 */


#include "config.h"

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include "debug.h"
#include "cfg.h"
#include "evaluator.h"
#include "timer.h"
#include "widget.h"
#include "widget_bar.h"

#ifdef WITH_DMALLOC
#include <dmalloc.h>
#endif


void widget_bar_update(void *Self)
{
    WIDGET *W = (WIDGET *) Self;
    WIDGET_BAR *Bar = W->data;
    RESULT result = { 0, 0, 0, NULL };

    double val1, val2;
    double min, max;

    /* evaluate expressions */
    val1 = 0.0;
    if (Bar->tree1 != NULL) {
	Eval(Bar->tree1, &result);
	val1 = R2N(&result);
	DelResult(&result);
    }

    val2 = val1;
    if (Bar->tree2 != NULL) {
	Eval(Bar->tree2, &result);
	val2 = R2N(&result);
	DelResult(&result);
    }

    /* minimum: if expression is empty, do auto-scaling */
    if (Bar->tree_min != NULL) {
	Eval(Bar->tree_min, &result);
	min = R2N(&result);
	DelResult(&result);
    } else {
	min = Bar->min;
	if (val1 < min)
	    min = val1;
	if (val2 < min)
	    min = val2;
    }

    /* maximum: if expression is empty, do auto-scaling */
    if (Bar->tree_max != NULL) {
	Eval(Bar->tree_max, &result);
	max = R2N(&result);
	DelResult(&result);
    } else {
	max = Bar->max;
	if (val1 > max)
	    max = val1;
	if (val2 > max)
	    max = val2;
    }

    /* calculate bar values */
    Bar->min = min;
    Bar->max = max;
    if (max > min) {
	Bar->val1 = (val1 - min) / (max - min);
	Bar->val2 = (val2 - min) / (max - min);
    } else {
	Bar->val1 = 0.0;
	Bar->val2 = 0.0;
    }

    /* finally, draw it! */
    if (W->class->draw)
	W->class->draw(W);

}


int widget_bar_init(WIDGET * Self)
{
    char *section;
    char *c;
    WIDGET_BAR *Bar;

    /* prepare config section */
    /* strlen("Widget:")=7 */
    section = malloc(strlen(Self->name) + 8);
    strcpy(section, "Widget:");
    strcat(section, Self->name);

    Bar = malloc(sizeof(WIDGET_BAR));
    memset(Bar, 0, sizeof(WIDGET_BAR));

    /* get raw expressions (we evaluate them ourselves) */
    Bar->expression1 = cfg_get_raw(section, "expression", NULL);
    Bar->expression2 = cfg_get_raw(section, "expression2", NULL);

    /* sanity check */
    if (Bar->expression1 == NULL || *Bar->expression1 == '\0') {
	error("widget %s has no expression, using '0.0'", Self->name);
	Bar->expression1 = "0";
    }

    /* minimum and maximum value */
    Bar->expr_min = cfg_get_raw(section, "min", NULL);
    Bar->expr_max = cfg_get_raw(section, "max", NULL);

    /* compile all expressions */
    Compile(Bar->expression1, &Bar->tree1);
    Compile(Bar->expression2, &Bar->tree2);
    Compile(Bar->expr_min, &Bar->tree_min);
    Compile(Bar->expr_max, &Bar->tree_max);

    /* bar length, default 1 */
    cfg_number(section, "length", 1, 0, -1, &(Bar->length));

    /* direction: East (default), West, North, South */
    c = cfg_get(section, "direction", "E");
    switch (toupper(*c)) {
    case 'E':
	Bar->direction = DIR_EAST;
	break;
    case 'W':
	Bar->direction = DIR_WEST;
	break;
    case 'N':
	Bar->direction = DIR_NORTH;
	break;
    case 'S':
	Bar->direction = DIR_SOUTH;
	break;
    default:
	error("widget %s has unknown direction '%s', using 'East'", Self->name, c);
	Bar->direction = DIR_EAST;
    }
    free(c);

    /* style: none (default), hollow */
    c = cfg_get(section, "style", "0");
    switch (toupper(*c)) {
    case 'H':
	Bar->style = STYLE_HOLLOW;
	if (!(Bar->direction & (DIR_EAST | DIR_WEST))) {
	    error("widget %s with style \"hollow\" not implemented", Self->name);
	    Bar->style = 0;
	}
	break;
    default:
	Bar->style = 0;
    }
    free(c);

    /* update interval (msec), default 1 sec */
    cfg_number(section, "update", 1000, 10, -1, &(Bar->update));

    /* get widget special colors */
    Bar->color_valid[0] = widget_color(section, Self->name, "barcolor0", &Bar->color[0]);
    Bar->color_valid[1] = widget_color(section, Self->name, "barcolor1", &Bar->color[1]);

    free(section);
    Self->data = Bar;

    timer_add(widget_bar_update, Self, Bar->update, 0);

    return 0;
}


int widget_bar_quit(WIDGET * Self)
{
    if (Self) {
	if (Self->data) {
	    WIDGET_BAR *Bar = Self->data;
	    DelTree(Bar->tree1);
	    DelTree(Bar->tree2);
	    DelTree(Bar->tree_min);
	    DelTree(Bar->tree_max);
	    free(Self->data);
	}
	Self->data = NULL;
    }


    return 0;

}



WIDGET_CLASS Widget_Bar = {
  name:"bar",
  type:WIDGET_TYPE_RC,
  init:widget_bar_init,
  draw:NULL,
  quit:widget_bar_quit,
};