/* $Id: processor.c,v 1.52 2004/01/05 11:57:38 reinelt Exp $
 *
 * main data processing
 *
 * Copyright 1999, 2000 Michael Reinelt <reinelt@eunet.at>
 *
 * This file is part of LCD4Linux.
 *
 * LCD4Linux 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.
 *
 * LCD4Linux 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.
 *
 *
 * $Log: processor.c,v $
 * Revision 1.52  2004/01/05 11:57:38  reinelt
 * added %y tokens to make the Evaluator useable
 *
 * Revision 1.51  2003/11/24 11:34:54  reinelt
 *
 * 'Fixed' Rows which do not scroll by Lars Kempe
 * temporary workaround for debian kernel-header bug
 *
 * Revision 1.50  2003/11/11 04:40:20  reinelt
 * WIFI patch from Xavier Vello
 *
 * Revision 1.49  2003/10/12 06:08:28  nicowallmeier
 * imond/telmond support
 *
 * Revision 1.48  2003/10/12 04:46:19  reinelt
 *
 *
 * first try to integrate the Evaluator into a display driver (MatrixOrbital here)
 * small warning in processor.c fixed (thanks to Zachary Giles)
 * workaround for udelay() on alpha (no msr.h avaliable) (thanks to Zachary Giles)
 *
 * Revision 1.47  2003/10/05 17:58:50  reinelt
 * libtool junk; copyright messages cleaned up
 *
 * Revision 1.46  2003/10/03 03:51:14  reinelt
 * start support for new MatrixOrbital MX2 displays
 *
 * Revision 1.45  2003/09/11 04:09:53  reinelt
 * minor cleanups
 *
 * Revision 1.44  2003/09/10 15:59:39  reinelt
 * minor cleanups
 *
 * Revision 1.43  2003/09/10 14:01:53  reinelt
 * icons nearly finished\!
 *
 * Revision 1.42  2003/09/10 08:37:09  reinelt
 * icons: reorganized tick_* again...
 *
 * Revision 1.41  2003/09/10 03:48:23  reinelt
 * Icons for M50530, new processing scheme (Ticks.Text...)
 *
 * Revision 1.40  2003/09/09 06:54:43  reinelt
 * new function 'cfg_number()'
 *
 * Revision 1.39  2003/09/09 05:30:34  reinelt
 * even more icons stuff
 *
 * Revision 1.38  2003/09/01 04:09:35  reinelt
 * icons nearly finished, but MatrixOrbital only
 *
 * Revision 1.37  2003/08/24 05:17:58  reinelt
 * liblcd4linux patch from Patrick Schemitz
 *
 * Revision 1.36  2003/08/17 16:37:39  reinelt
 * more icon framework
 *
 * Revision 1.35  2003/07/24 04:48:09  reinelt
 * 'soft clear' needed for virtual rows
 *
 * Revision 1.34  2003/07/21 06:34:14  reinelt
 * bars on virtual rows fixed
 *
 * Revision 1.33  2003/07/21 06:10:11  reinelt
 * removed maxlen parameter from process_row()
 *
 * Revision 1.32  2003/06/21 05:46:18  reinelt
 * DVB client integrated
 *
 * Revision 1.31  2003/06/13 06:35:56  reinelt
 * added scrolling capability
 *
 * Revision 1.30  2003/02/22 07:53:10  reinelt
 * cfg_get(key,defval)
 *
 * Revision 1.29  2003/02/05 04:31:38  reinelt
 *
 * T_EXEC: remove trailing CR/LF
 * T_EXEC: deactivated maxlen calculation (for I don't understand what it is for :-)
 *
 * Revision 1.28  2002/12/05 19:23:01  reinelt
 * fixed undefined operations found by gcc3
 *
 * Revision 1.27  2002/08/19 04:41:20  reinelt
 * introduced bar.c, moved bar stuff from display.h to bar.h
 *
 * Revision 1.26  2001/05/06 10:01:27  reinelt
 *
 * fixed a bug which prevented extendet tokens to be used for GPO's
 * many thanks to Carsten Nau!
 *
 * Revision 1.25  2001/03/17 11:11:31  ltoetsch
 * bugfix: max for BAR_T
 *
 * Revision 1.24  2001/03/16 16:40:17  ltoetsch
 * implemented time bar
 *
 * Revision 1.23  2001/03/16 09:28:08  ltoetsch
 * bugfixes
 *
 * Revision 1.22  2001/03/15 15:49:23  ltoetsch
 * fixed compile HD44780.c, cosmetics
 *
 * Revision 1.21  2001/03/15 09:47:13  reinelt
 *
 * some fixes to ppdef
 * off-by-one bug in processor.c fixed
 *
 * Revision 1.20  2001/03/14 13:19:29  ltoetsch
 * Added pop3/imap4 mail support
 *
 * Revision 1.19  2001/03/13 08:34:15  reinelt
 *
 * corrected a off-by-one bug with sensors
 *
 * Revision 1.18  2001/03/08 15:25:38  ltoetsch
 * improved exec
 *
 * Revision 1.17  2001/03/08 08:39:55  reinelt
 *
 * fixed two typos
 *
 * Revision 1.16  2001/03/07 18:10:21  ltoetsch
 * added e(x)ec commands
 *
 * Revision 1.15  2001/03/02 10:18:03  ltoetsch
 * added /proc/apm battery stat
 *
 * Revision 1.14  2001/02/19 00:15:46  reinelt
 *
 * integrated mail and seti client
 * major rewrite of parser and tokenizer to support double-byte tokens
 *
 * Revision 1.13  2001/02/16 14:15:11  reinelt
 *
 * fixed type in processor.c
 * GPO documentation update from Carsten
 *
 * Revision 1.12  2001/02/16 08:23:09  reinelt
 *
 * new token 'ic' (ISDN connected) by Carsten Nau <info@cnau.de>
 *
 * Revision 1.11  2001/02/14 07:40:16  reinelt
 *
 * first (incomplete) GPO implementation
 *
 * Revision 1.10  2001/02/13 09:00:13  reinelt
 *
 * prepared framework for GPO's (general purpose outputs)
 *
 * Revision 1.9  2001/02/11 23:34:07  reinelt
 *
 * fixed a small bug where the throughput of an offline ISDN connection 
 * is displayed as '----', but the online value is 5 chars long. 
 * corrected to ' ----'. Thanks to Carsten Nau <info@cnau.de> 
 *
 * Revision 1.8  2000/08/10 09:44:09  reinelt
 *
 * new debugging scheme: error(), info(), debug()
 * uses syslog if in daemon mode
 *
 * Revision 1.7  2000/07/31 10:43:44  reinelt
 *
 * some changes to support kernel-2.4 (different layout of various files in /proc)
 *
 * Revision 1.6  2000/05/21 06:20:35  reinelt
 *
 * added ppp throughput
 * token is '%t[iomt]' at the moment, but this will change in the near future
 *
 * Revision 1.5  2000/04/15 11:56:35  reinelt
 *
 * more debug messages
 *
 * Revision 1.4  2000/04/15 11:13:54  reinelt
 *
 * added '-d' (debugging) switch
 * added several debugging messages
 * removed config entry 'Delay' for HD44780 driver
 * delay loop for HD44780 will be calibrated automatically
 *
 * Revision 1.3  2000/04/01 16:22:38  reinelt
 *
 * bug that caused a segfault in processor.c fixed (thanks to herp)
 *
 * Revision 1.2  2000/03/23 07:24:48  reinelt
 *
 * PPM driver up and running (but slow!)
 *
 * Revision 1.1  2000/03/22 07:33:50  reinelt
 *
 * FAQ added
 * new modules 'processor.c' contains all data processing
 *
 */

/* 
 * exported functions:
 *
 * void process_init (void);
 *   does all necessary initializations
 *
 * void process ();
 *   processes a whole screen
 *
 */


#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/time.h>
#include <math.h>

#include "debug.h"
#include "cfg.h"
#include "system.h"
#include "isdn.h"
#include "wifi.h"
#include "parser.h"
#include "display.h"
#include "bar.h"
#include "processor.h"
#include "mail.h"
#include "battery.h"
#include "dvb.h"
#include "seti.h"
#include "exec.h"
#include "expr.h"
#include "imon.h"

#define ROWS 64
#define ICONS 8
#define GPOS 16

static char *row[ROWS+1];
static int   gpo[GPOS+1];
static int   rows, cols, xres, yres, supported_bars, icons, gpos;
static int   lines, scroll, turn, fixed;
static int   token_usage[256]={0,};

static struct { int total, used, free, shared, buffer, cache, avail; } ram;
static struct { double load1, load2, load3, overload; } load;
static struct { double user, nice, system, idle; } busy;
static struct { int read, write, total, max, peak; } disk;
static struct { int rx, tx, total, max, peak, bytes; } net;
static struct { int usage, in, out, total, max, peak; } isdn;
static struct { int signal, link, noise; } wifi;
static struct { int rx, tx, total, max, peak; } ppp;
static struct { int perc, stat; double dur; } batt;
static struct { double perc, cput; } seti;
static struct { int num, unseen;} mail[MAILBOXES+1];
static struct { double val, min, max; } sensor[SENSORS+1];
static struct { double strength, snr; } dvb;
static struct imonchannel imonch[CHANNELS+1];
static struct imon imon;
static struct telmon telmon;

extern int tick, tack;
static int tick_text, tick_bar, tick_icon, tick_gpo;


static double query (int token)
{
  switch (token&255) {
    
  case T_MEM_TOTAL:
    return ram.total;
  case T_MEM_USED:
    return ram.used;
  case T_MEM_FREE:
    return ram.free;
  case T_MEM_SHARED:
    return ram.shared;
  case T_MEM_BUFFER:
    return ram.buffer;
  case T_MEM_CACHE:
    return ram.cache;
  case T_MEM_AVAIL:
    return ram.avail;

  case T_LOAD_1:
    return load.load1;
  case T_LOAD_2:
    return load.load2;
  case T_LOAD_3:
    return load.load3;
    
  case T_CPU_USER:
    return busy.user;
  case T_CPU_NICE:
    return busy.nice;
  case T_CPU_SYSTEM:
    return busy.system;
  case T_CPU_BUSY:
    return 1.0-busy.idle;
  case T_CPU_IDLE:
    return busy.idle;
    
  case T_DISK_READ:
    return disk.read;
  case T_DISK_WRITE:
    return disk.write;
  case T_DISK_TOTAL:
    return disk.total;
  case T_DISK_MAX:
    return disk.max;
    
  case T_ETH_RX:
    return net.rx;
  case T_ETH_TX:
    return net.tx;
  case T_ETH_TOTAL:
    return net.total;
  case T_ETH_MAX:
    return net.max;
    
  case T_ISDN_IN:
    return isdn.in;
  case T_ISDN_OUT:
    return isdn.out;
  case T_ISDN_TOTAL:
    return isdn.total;
  case T_ISDN_MAX:
    return isdn.max;
  case T_ISDN_USED:
    return isdn.usage;
  
  case T_WIFI_SIGNAL:
    return wifi.signal;
  case T_WIFI_LINK:
    return wifi.link;
  case T_WIFI_NOISE:
    return wifi.noise;  

  case T_PPP_RX:
    return ppp.rx;
  case T_PPP_TX:
    return ppp.tx;
  case T_PPP_TOTAL:
    return ppp.total;
  case T_PPP_MAX:
    return ppp.max;
    
  case T_SETI_PRC:
    return seti.perc;
  case T_SETI_CPU:
    return seti.cput;
    
  case T_BATT_PERC:
    return batt.perc;
  case T_BATT_STAT:
    return batt.stat;
  case T_BATT_DUR:
    return batt.dur;
    
  case T_DVB_STRENGTH:
    return dvb.strength;
  case T_DVB_SNR:
    return dvb.snr;

  case T_MAIL:
    return mail[(token>>8)-'0'].num;

  case T_MAIL_UNSEEN:
    return mail[(token>>8)-'0'].unseen;

  case T_SENSOR:
    return sensor[(token>>8)-'0'].val;

  case T_EXEC:
    return exec[(token>>8)-'0'].val;

  case T_EXPR:
    return expr[(token>>8)-'0'].val;

  case T_IMON_CPU:
    return imon.cpu;
    
  case T_IMON_RIN:
    return ((double)imonch[(token>>8)-'0'].rate_in)/1024;
    
  case T_IMON_ROUT:
    return ((double)imonch[(token>>8)-'0'].rate_out)/1024;
  }
  return 0.0;
}


/* return a value 0..1 */
static double query_bar (int token)
{
  int i;
  double value=query(token);
  
  switch (token & 255) {

  case T_MEM_TOTAL:
  case T_MEM_USED:
  case T_MEM_FREE:
  case T_MEM_SHARED:
  case T_MEM_BUFFER:
  case T_MEM_CACHE:
  case T_MEM_AVAIL:
    return value/ram.total;

  case T_LOAD_1:
  case T_LOAD_2:
  case T_LOAD_3:
    return value/load.overload;
    
  case T_DISK_READ:
  case T_DISK_WRITE:
  case T_DISK_MAX:
    return value/disk.peak;
  case T_DISK_TOTAL:
    return value/disk.peak/2.0;
    
  case T_ETH_RX:
  case T_ETH_TX:
  case T_ETH_MAX:
    return value/net.peak;
  case T_ETH_TOTAL:
    return value/net.peak/2.0;
    
  case T_ISDN_IN:
  case T_ISDN_OUT:
  case T_ISDN_MAX:
    return value/isdn.peak;
  case T_ISDN_TOTAL:
    return value/isdn.peak/2.0;
  
  case T_WIFI_SIGNAL:
  case T_WIFI_LINK:
  case T_WIFI_NOISE:
	  return value/100;

  case T_PPP_RX:
  case T_PPP_TX:
  case T_PPP_MAX:
    return value/ppp.peak;
  case T_PPP_TOTAL:
    return value/ppp.peak/2.0;
    
  case T_SETI_PRC:
    return value;
    
  case T_BATT_PERC:
    {
      static int alarm;
      alarm=((alarm+1) % 3);
      if(value < atoi(cfg_get("battwarning","10")) && !alarm) /* flash bar */
	value = 0;
      return value/100;
    }

  case T_SENSOR:
    i=(token>>8)-'0';
    return (value-sensor[i].min)/(sensor[i].max-sensor[i].min);
  
  case T_IMON_CPU:
    return value/100;
  
  case T_IMON_RIN:
    i=(token>>8)-'0';
  	return value/(imonch[i].max_in/8);
  
  case T_IMON_ROUT:
    i=(token>>8)-'0';
  	return value/(imonch[i].max_out/8);
  }
  
  return value;
}


static void print_token (int token, char **p, char *start)
{
  double val;
  int i;
  
  switch (token & 255) {

  case T_PERCENT:
    *(*p)++='%';
    break;

  case T_DOLLAR:
    *(*p)++='$';
    break;

  case T_OS:
    *p+=sprintf (*p, "%s", System());
    break;

  case T_RELEASE:
    *p+=sprintf (*p, "%s", Release());
    break;

  case T_CPU:
    *p+=sprintf (*p, "%s", Processor());
    break;

  case T_RAM:
    *p+=sprintf (*p, "%d", Memory());
    break;

  case T_OVERLOAD:
    *(*p)++=load.load1>load.overload?'!':' ';
    break;

  case T_MEM_TOTAL:
  case T_MEM_USED:
  case T_MEM_FREE:
  case T_MEM_SHARED:
  case T_MEM_BUFFER:
  case T_MEM_CACHE:
  case T_MEM_AVAIL:
    *p+=sprintf (*p, "%6.0f", query(token));
    break;

  case T_LOAD_1:
  case T_LOAD_2:
  case T_LOAD_3:
  case T_SENSOR:
    val=query(token);
    if (val<10.0)
      *p+=sprintf (*p, "%5.2f", val);
    else if (val<100.0)
      *p+=sprintf (*p, "%5.1f", val);
    else
      *p+=sprintf (*p, "%5.0f", val);
    break;

  case T_CPU_USER:
  case T_CPU_NICE:
  case T_CPU_SYSTEM:
  case T_CPU_BUSY:
  case T_CPU_IDLE:
    *p+=sprintf (*p, "%3.0f", 100.0*query(token));
    break;

  case T_ETH_RX:
  case T_ETH_TX:
  case T_ETH_MAX:
  case T_ETH_TOTAL:
    val=query(token);
    if (net.bytes)
      val/=1024.0;
    *p+=sprintf (*p, "%5.0f", val);
    break;

  case T_ISDN_IN:
  case T_ISDN_OUT:
  case T_ISDN_MAX:
  case T_ISDN_TOTAL:
    if (isdn.usage)
      *p+=sprintf (*p, "%5.0f", query(token));
    else
      *p+=sprintf (*p, " ----");
    break;

  case T_ISDN_USED:
    if (isdn.usage)
      *p+=sprintf (*p, "*");
    else
      *p+=sprintf (*p, " ");
    break;
	
  case T_WIFI_SIGNAL:
  case T_WIFI_LINK:
  case T_WIFI_NOISE:
    *p+=sprintf (*p, "%3.0f", query(token));
    break;


  case T_SETI_PRC:
    val=100.0*query(token);
    if (val<100.0) 
      *p+=sprintf (*p, "%4.1f", val);
    else
      *p+=sprintf (*p, " 100");
    break;
  case T_SETI_CPU:
    val=query(token);
    *p+=sprintf (*p, "%2d.%2.2d:%2.2d", (int)val/86400, 
		 (int)((int)val%86400)/3600,
		 (int)(((int)val%86400)%3600)/60 );
    break;
    
  case T_BATT_PERC:
    *p+=sprintf(*p, "%3.0f", query(token));
    break;
  case T_BATT_STAT:  
    { int ival = (int) query(token);
    switch (ival) {
    case 0: **p = '='; break;
    case 1: **p = '+'; break;
    case 2: **p = '-'; break;
    default: **p = '?'; break;
    }
    }
    (*p)++;
    break;
  case T_BATT_DUR:
    {
      char eh = 's';
      val = query(token);
      if (val > 99) {
	val /= 60;
	eh = 'm';
      }
      if (val > 99) {
	val /= 60;
	eh = 'h';
      }
      if (val > 99) {
	val /= 24;
	eh = 'd';
      }
      *p+=sprintf(*p, "%2.0f%c", val, eh);
    }
    break;

  case T_DVB_STRENGTH:
  case T_DVB_SNR:
    *p+=sprintf (*p, "%5.1f", 100.0*query(token));
    break;

  case T_EXEC:
    i = (token>>8)-'0';
    *p+=sprintf (*p, "%.*s",cols-(int)(*p-start), exec[i].s);
    break;
    
  case T_EXPR:
    i = (token>>8)-'0';
    *p+=sprintf (*p, "%.*s",cols-(int)(*p-start), expr[i].s);
    break;
    
  case T_IMON_VER:
    *p+=sprintf (*p, "%s", ImonVer());
    break;
    
  case T_IMON_DATE:
    *p+=sprintf (*p, "%s ", imon.date);
    break;

  case T_IMON_TIME:
    *p+=sprintf (*p, "%s ", imon.time);
    break;
    
  case T_IMON_CPU:
    *p+=sprintf (*p, "%3.0f", query(token));
    break;
    
  case T_IMON_RIN:
  case T_IMON_ROUT:
    *p+=sprintf(*p, "%4.1f", query(token));
    break;
  
  case T_IMON_STATUS:
    *p+=sprintf(*p, "%s", imonch[(token>>8)-'0'].status);
    break;

  case T_IMON_PHONE:
    *p+=sprintf(*p, "%s", imonch[(token>>8)-'0'].phone);
    break;

  case T_IMON_IP:
    *p+=sprintf(*p, "%s", imonch[(token>>8)-'0'].ip);
    break;

  case T_IMON_OTIME:
    *p+=sprintf(*p, "%s", imonch[(token>>8)-'0'].otime);
    break;

  case T_IMON_CHARGE:
    *p+=sprintf(*p, "%s", imonch[(token>>8)-'0'].charge);
    break;
    
  case T_TELMON_NUMBER:
    *p+=sprintf(*p, "%s", telmon.number);
    break;

  case T_TELMON_MSN:
    *p+=sprintf(*p, "%s", telmon.msn);
    break;
    
  case T_TELMON_DATE:
    *p+=sprintf(*p, "%s", telmon.date);
    break;

  case T_TELMON_TIME:
    *p+=sprintf(*p, "%s", telmon.time);
    break;

  default:
    *p+=sprintf (*p, "%5.0f", query(token));
  }
}


static void collect_data (void) 
{
  int i;

  if (token_usage[C_MEM]) {
    Ram (&ram.total, &ram.free, &ram.shared, &ram.buffer, &ram.cache); 
    ram.used=ram.total-ram.free;
    ram.avail=ram.free+ram.buffer+ram.cache;
  }
  
  if (token_usage[C_LOAD]) {
    Load (&load.load1, &load.load2, &load.load3);
  }
  
  if (token_usage[C_CPU]) {
    Busy (&busy.user, &busy.nice, &busy.system, &busy.idle);
  }
  
  if (token_usage[C_DISK]) {
    Disk (&disk.read, &disk.write);
    disk.total=disk.read+disk.write;
    disk.max=disk.read>disk.write?disk.read:disk.write;
    if (disk.max>disk.peak) disk.peak=disk.max;
  }
  
  if (token_usage[C_ETH]) {
    Net (&net.rx, &net.tx, &net.bytes);
    net.total=net.rx+net.tx;
    net.max=net.rx>net.tx?net.rx:net.tx;
    if (net.max>net.peak) net.peak=net.max;
  }

  if (token_usage[C_ISDN]) {
    Isdn (&isdn.in, &isdn.out, &isdn.usage);
    isdn.total=isdn.in+isdn.out;
    isdn.max=isdn.in>isdn.out?isdn.in:isdn.out;
    if (isdn.max>isdn.peak) isdn.peak=isdn.max;
  }
  
  if (token_usage[C_WIFI]) {
    Wifi (&wifi.signal, &wifi.link, &wifi.noise);
  }  

  if (token_usage[C_PPP]) {
    PPP (0, &ppp.rx, &ppp.tx);
    ppp.total=ppp.rx+ppp.tx;
    ppp.max=ppp.rx>ppp.tx?ppp.rx:ppp.tx;
    if (ppp.max>ppp.peak) ppp.peak=ppp.max;
  }

  if (token_usage[C_SETI]) {
    Seti (&seti.perc, &seti.cput);
  }

  if (token_usage[C_BATT]) {
    Battery (&batt.perc, &batt.stat, &batt.dur);
  }
  
  if (token_usage[C_DVB]) {
    DVB (&dvb.strength, &dvb.snr);
  }
  
  if (token_usage[C_IMON]) {
    if (token_usage[T_IMON_CPU] ||
        token_usage[T_IMON_DATE] ||
        token_usage[T_IMON_TIME]) {  
      Imon (&imon, T_IMON_CPU, T_IMON_DATE+T_IMON_TIME);
    }
    for (i=0; i<=CHANNELS; i++) {
      if (((1<<i) & token_usage[T_IMON_RIN]) ||
		  ((1<<i) & token_usage[T_IMON_ROUT]) ||
          ((1<<i) & token_usage[T_IMON_STATUS]) ||
          ((1<<i) & token_usage[T_IMON_PHONE]) || 
          ((1<<i) & token_usage[T_IMON_IP]) ||
          ((1<<i) & token_usage[T_IMON_OTIME]) ||
          ((1<<i) & token_usage[T_IMON_CHARGE])){
          ImonCh(i, &imonch[i], token_usage);
      }
    }
  }
  
  if (token_usage[C_TELMON]) {
  	Telmon (&telmon);
  }

  for (i=0; i<=MAILBOXES; i++) {
    if (token_usage[T_MAIL]&(1<<i) || token_usage[T_MAIL_UNSEEN]&(1<<i) ) {
      Mail (i, &mail[i].num, &mail[i].unseen);
    }
  }
  
  for (i=0; i<=SENSORS; i++) {
    if (token_usage[T_SENSOR]&(1<<i)) {
      Sensor (i, &sensor[i].val, &sensor[i].min, &sensor[i].max);
    }
  }

  for (i=0; i<=EXECS; i++) {
    if (token_usage[T_EXEC]&(1<<i)) {
      Exec (i, exec[i].s, &exec[i].val);
    }
  }

  for (i=0; i<=EXPRS; i++) {
    if (token_usage[T_EXPR]&(1<<i)) {
      Expr (i, expr[i].s, &exec[i].val);
    }
  }

}


static char *process_row (char *data, int row, int len)
{
  static char buffer[256];
  char *p=buffer;
  char *s=data;
  int token;
  int n;
  
  do {
    if (*s=='%') {
      token = *(unsigned char*)++s;
      if (token>T_EXTENDED) token += (*(unsigned char*)++s)<<8;
      print_token (token, &p, buffer);
	
    } else if (*s=='$') {
      double val1, val2;
      int i, type, len;
      type=*++s;
      len=*++s;
      token = *(unsigned char*)++s;
      if (token>T_EXTENDED) token += (*(unsigned char*)++s)<<8;
      val1=query_bar(token);
      val2=val1;
      if (type & (BAR_H2 | BAR_V2)) {
	token = *(unsigned char*)++s;
	if (token>T_EXTENDED) token += (*(unsigned char*)++s)<<8;
	val2=query_bar(token);
      }
      else if (type & BAR_T)
	val2 = *(unsigned char*)++s; /* width */
      if (type & BAR_H)
	lcd_bar (type, row, p-buffer+1, len*xres, val1*len*xres, val2*len*xres);
      else if (type & BAR_T)
	lcd_bar (type, row, p-buffer+1, len*yres, val1*len*yres, val2*xres);
      else
	lcd_bar (type, row, p-buffer+1, len*yres, val1*len*yres, val2*len*yres);
      
      if (type & BAR_H) {
	for (i=0; i<len && p-buffer<cols; i++)
	  *p++='\t';
      } else {
	*p++='\t';
      }
      
    } else if (*s=='&') {
      if (lcd_icon(*(++s)-'0', 0, row, p-buffer+1)<0)
	*p++='*'; // error
      else
	*p++='\t'; // all ok
      
    } else {
      *p++=*s;
    }
    
  } while (*s++); 
    
  // pad with blanks
  for (n=strlen(buffer); n<cols; n++) {
    buffer[n]=' ';
  }
  buffer[n]='\0';
  
  return buffer;
}


static int process_gpo (int n)
{
  int token;
  int val;

  token=gpo[n];
  val=round(query(token));

  return val;
}


static int Turn (void)
{
  static struct timeval old = {tv_sec:0, tv_usec:0};
  static struct timeval new = {tv_sec:0, tv_usec:0};
  struct timeval now;
  int initialized;
  
  if (turn<=0) return 0;
  
  gettimeofday (&now, NULL);

  // first time invocation?
  initialized=(new.tv_sec>0);

  if (now.tv_sec==new.tv_sec ? now.tv_usec>new.tv_usec : now.tv_sec>new.tv_sec) {
    old=now;
    new.tv_sec =old.tv_sec;
    new.tv_usec=old.tv_usec+turn*1000;
    while (new.tv_usec>=1000000) {
      new.tv_usec-=1000000;
      new.tv_sec++;
    }
    return initialized;
  }
  return 0;
}


void process_init (void)
{
  int i;

  load.overload=atof(cfg_get("overload","2.0"));


  lcd_query (&rows, &cols, &xres, &yres, &supported_bars, &icons, &gpos);
  if (rows>ROWS) {
    error ("%d rows exceeds limit, reducing to %d rows", rows, ROWS);
    rows=ROWS;
  }
  if (icons>ICONS) {
    error ("%d icons exceeds limit, reducing to %d icons", icons, ICONS);
    icons=ICONS;
  }
  if (gpos>GPOS) {
    error ("%d gpos exceeds limit, reducing to %d gpos", gpos, GPOS);
    gpos=GPOS;
  }
  debug ("Display: %d rows, %d columns, %dx%d pixels, %d icons, %d GPOs", rows, cols, xres, yres, icons, gpos);


  if (cfg_number("Rows", 1, 1, 1000, &lines)<0) {
    lines=1;
    error ("ignoring bad 'Rows' value and using '%d'", lines);
  }
  if (lines>ROWS) {
    error ("%d virtual rows exceeds limit, reducing to %d rows", lines, ROWS);
    lines=ROWS;
  }
  if (lines>rows) {
    if (cfg_number("Scroll", 1, 1, 1000, &scroll)<0) {
      scroll=1;
      error ("ignoring bad 'Scroll' value and using '%d'", scroll);
    }
    if (scroll>rows) {
      error ("'Scroll' entry in %s is %d, > %d display rows.", cfg_source(), scroll, rows);
      error ("This may lead to unexpected results!");
    }
    if (cfg_number("Fixed", 0, -1000000, 1000000, &fixed)<0) {
      fixed=0;
      error ("ignoring bad 'Fixed' value and using '%d'", fixed);
    }
    if (abs(fixed)>=rows) {
      error ("'Fixed' entry in %s is abs(%d), >= %d display rows.", cfg_source(), fixed, rows);
      fixed=(fixed<0)? -rows+1 : rows-1;
      error ("ignoring bad 'Fixed' value and using '%d'", fixed);
    }
    if (cfg_number("Turn", 1000, 1, 1000000, &turn)<0) {
      turn=1000;
      error ("ignoring bad 'Scroll' value and using '%d'", turn);
    }
    debug ("Virtual: %d rows, scroll %d lines every %d msec", lines, scroll, turn);
  } else {
    lines=rows;
    scroll=0;
    turn=0;
    fixed=0;
  }

  if (cfg_number("Tick.Text", 500, 1, 1000000, &tick_text)<0) {
    tick_text=500;
    error ("ignoring bad 'Tick.Text' value and using '%d'", tick_text);
  }
  if (cfg_number("Tick.Bar", 100, 1, 1000000, &tick_bar)<0) {
    tick_bar=100;
    error ("ignoring bad 'Tick.Bar' value and using '%d'", tick_bar);
  }
  if (cfg_number("Tick.Icon", 100, 1, 1000000, &tick_icon)<0) {
    tick_icon=100;
    error ("ignoring bad 'Tick.Icon' value and using '%d'", tick_icon);
  }
  if (cfg_number("Tick.GPO", 100, 1, 1000000, &tick_gpo)<0) {
    tick_gpo=100;
    error ("ignoring bad 'Tick.GPO' value and using '%d'", tick_gpo);
  }

  // global Tick is minimum of tick_text, _bar, _gpo
  tick=tick_text;
  if (tick>tick_bar) tick=tick_bar;
  if (tick>tick_gpo) tick=tick_gpo;
  
  // global Tack is minimum of tick, tick_gpo
  tack=tick;
  if (tack>tick_icon) tack=tick_icon;

  debug ("========================");
  debug ("Timings:");
  debug ("%3d msec Text updates", tick_text);
  debug ("%3d msec Bar  updates", tick_bar );
  debug ("%3d msec Icon updates", tick_icon);
  debug ("%3d msec GPO  updates", tick_gpo );
  debug ("------------------------");
  debug ("%3d msec data collection", tick);
  debug ("%3d msec data processing", tack);
  debug ("========================");

  for (i=1; i<=lines; i++) {
    char buffer[8], *p;
    snprintf (buffer, sizeof(buffer), "Row%d", i);
    p=cfg_get(buffer,"");
    debug ("%s: %s", buffer, p);
    row[i]=strdup(parse_row(p, supported_bars, token_usage));
  }


  for (i=1; i<=gpos; i++) {
    char buffer[8], *p;
    snprintf (buffer, sizeof(buffer), "GPO%d", i);
    p=cfg_get(buffer,"");
    debug ("%s: %s", buffer, p);
    gpo[i]=parse_gpo(p, token_usage);
  }

}


void process (void)
{
  static int loop_tick=0;
  static int loop_text=0;
  static int loop_bar=0;
  static int loop_icon=0;
  static int loop_gpo=0;
  static int offset=0;

  int i, j, val;
  char *txt;
  
  // collect data every tick msec
  if (loop_tick==0) {
    collect_data();
  }
  // maybe scroll
  if (Turn() && loop_text==0) {
    offset+=scroll;
    while (offset>=lines) offset-=lines;
    lcd_clear(0); // soft clear
  }
  
  if (loop_text==0 || loop_bar==0) {
    if (fixed > 0){ // first n lines fixed, rest scrolled
      // fixed part
      for (i=1; i<=fixed; i++) {
        txt=process_row (row[i], i, cols);
	if (loop_text==0)
	  lcd_put(i, 1, txt);
      }
      // scrolled part
      for (i=fixed+1; i<=rows; i++) {
        j=i+offset;
        while (j>lines) j-=lines-fixed;
        txt=process_row (row[j], i, cols);
        if (loop_text==0)
          lcd_put (i, 1, txt);
      }
    } else if (fixed < 0) { // first lines scrolled, last n fixed
      // scrolled part
      for (i=1; i <= rows+fixed; i++){
        j=i+offset;
        while (j>lines+fixed) j-=lines+fixed;
        txt=process_row (row[j], i, cols);
        if (loop_text==0)
          lcd_put (i, 1, txt);
      }
      //fixed part
      for (i=rows+fixed+1; i<=rows;i++){
	j = i+lines-rows;
        txt=process_row (row[j], j, cols);
        if (loop_text==0)
	  lcd_put(i,1,txt);
      }
    } else { // only scroll
      for (i=1; i<=rows; i++) {
	j=i+offset;
	while (j>lines) j-=lines;
	txt=process_row (row[j], i, cols);
	if (loop_text==0)
	  lcd_put (i, 1, txt);
      }
    }
  }
  
  // update GPO's
  if (loop_gpo==0) {
    for (i=1; i<=gpos; i++) {
      val=process_gpo (i);
      lcd_gpo (i, val);
    }
  }
  
  // rotate icon animations
  if (loop_icon==0) {
    static int sequence=0;
    for (i=1; i<=icons; i++) {
      lcd_icon (i, sequence, 0, 0);
    }
    sequence++;
  }
  
  // flush in every case
  // note that we flush too often, but usually
  // nothing has changed
  lcd_flush();
  
  
  // increase loop counters
  if ((loop_tick+=tack) >= tick     ) loop_tick=0;
  if ((loop_text+=tack) >= tick_text) loop_text=0;
  if ((loop_bar +=tack) >= tick_bar ) loop_bar =0;
  if ((loop_icon+=tack) >= tick_icon) loop_icon=0;
  if ((loop_gpo +=tack) >= tick_gpo ) loop_gpo =0;

}