/* $Id: parser.c,v 1.1 2000/03/13 15:58:24 reinelt Exp $
 *
 * row definition parser
 *
 * Copyright 1999, 2000 by Michael Reinelt (reinelt@eunet.at)
 *
 * 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.
 *
 *
 * $Log: parser.c,v $
 * Revision 1.1  2000/03/13 15:58:24  reinelt
 *
 * release 0.9
 * moved row parsing to parser.c
 * all basic work finished
 *
 */

/* 
 * exported functions:
 *
 * char *parse (char *string, int supported_bars)
 *    converts a row definition from the config file
 *    into the internal form using tokens
 */

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

#include "display.h"
#include "parser.h"

typedef struct {
  char *symbol;
  TOKEN token;
  int bar;
} SYMTAB;

static SYMTAB Symtab[] = {{ "%",  T_PERCENT, 0 },
			  { "$",  T_DOLLAR, 0 },
			  { "o",  T_OS, 0 },
			  { "r",  T_RELEASE, 0 },
			  { "p",  T_CPU, 0 },
			  { "m",  T_RAM, 0 },
			  { "l1", T_LOAD_1, 1 },
			  { "l2", T_LOAD_2, 1 },
			  { "l3", T_LOAD_3, 1 },
			  { "L",  T_OVERLOAD, 0 },
			  { "cu", T_CPU_USER, 1 },
			  { "cn", T_CPU_NICE, 1 },
			  { "cs", T_CPU_SYSTEM, 1 },
			  { "cb", T_CPU_BUSY, 1 },
			  { "ci", T_CPU_IDLE, 1 },
			  { "dr", T_DISK_READ, 1 },
			  { "dw", T_DISK_WRITE, 1 },
			  { "dt", T_DISK_TOTAL, 1 },
			  { "dm", T_DISK_MAX, 1 },
			  { "nr", T_NET_RX, 1 },
			  { "nw", T_NET_TX, 1 },
			  { "nt", T_NET_TOTAL, 1 },
			  { "nm", T_NET_MAX, 1 },
			  { "ii", T_ISDN_IN, 1 },
			  { "io", T_ISDN_OUT, 1 },
			  { "it", T_ISDN_TOTAL, 1 },
			  { "im", T_ISDN_MAX, 1 },
			  { "s1", T_SENSOR_1, 1 },
			  { "s1", T_SENSOR_2, 1 },
			  { "s2", T_SENSOR_3, 1 },
			  { "s3", T_SENSOR_4, 1 },
			  { "s4", T_SENSOR_5, 1 },
			  { "s5", T_SENSOR_6, 1 },
			  { "s6", T_SENSOR_7, 1 },
			  { "s7", T_SENSOR_8, 1 },
			  { "s8", T_SENSOR_9, 1 },
			  { "",   -1 }};


static int bar_type (char tag)
{
  switch (tag) {
  case 'l':
    return BAR_L;
  case 'r':
    return BAR_R;
  case 'u':
    return BAR_U;
  case 'd':
    return BAR_D;
  default:
    return 0;
  }
}

static TOKEN get_token (char *s, char **p, int bar)
{
  int i;
  for (i=0; Symtab[i].token!=-1; i++) {
    int l=strlen(Symtab[i].symbol);
    if (bar && !Symtab[i].bar) continue;
    if (strncmp(Symtab[i].symbol, s, l)==0) {
      *p=s+l;
      return Symtab[i].token;
    }
  }
  return -1;
}

char *parse (char *string, int supported_bars)
{
  static char buffer[256];
  char *s=string;
  char *p=buffer;
  int token, token2, type, len;

  do {
    switch (*s) {

    case '%':
      if ((token=get_token (s+1, &s, 0))==-1) {
	s++;
	fprintf (stderr, "WARNING: unknown token <%%%c> in <%s>\n", *s, string);
      } else {
	*p++='%';
	*p++=token;
      }
      break;
      
    case '$':
      type=bar_type(tolower(*++s));
      if (type==0) {
	fprintf (stderr, "WARNING: invalid bar type <$%c> in <%s>\n", *s, string);
	break;
      }
      if (!(type & supported_bars)) {
	fprintf (stderr, "WARNING: driver does not support bar type '%c'\n", *s);
	break;
      }
      if (isupper(*s)) type |= BAR_LOG;
      len=strtol(++s, &s, 10);
      if (len<1 || len>127) {
	fprintf (stderr, "WARNING: invalid bar length in <%s>\n", string);
	break;
      }
      if ((token=get_token (s, &s, 0))==-1) {
	fprintf (stderr, "WARNING: unknown token <$%c> in <%s>\n", *s, string);
	break;
      }
      token2=-1;
      if (*s=='+') {
	if ((type & BAR_H) && (supported_bars & BAR_H2)) {
	  type |= BAR_H2;
	} else if ((type & BAR_V) && (supported_bars & BAR_V2)) {
	  type |= BAR_V2;
	} else {
	  fprintf (stderr, "WARNING: driver does not support double bars\n");
	  break;
	}
	if ((token2=get_token (s+1, &s, 0))==-1) {
	  fprintf (stderr, "WARNING: unknown token <$%c> in <%s>\n", *s, string);
	  break;
	}
      }
      *p++='$';
      *p++=type;
      *p++=len;
      *p++=token;
      if (token2!=-1) *p++=token2;
      break;
      
    case '\\':
      if (*(s+1)=='\\') {
	*p++='\\';
	s++;
      } else {
	unsigned int c=0; int n;
	sscanf (s+1, "%3o%n", &c, &n);
	if (c==0 || c>255) {
	  fprintf (stderr, "WARNING: illegal '\\' in <%s>\n", string);
	} else {
	  *p++=c;
	  s+=n;
	}
      }
      break;
      
    default:
      *p++=*s++;
    }
    
  } while (*s);
  
  return buffer;
}