Subversion Repositories or1k

/* debug.c -- Debug channel support code

   Copyright (C) 2005 György `nog' Jeney, nog@sdf.lonestar.org

This file is part of OpenRISC 1000 Architectural Simulator.

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 of the License, 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. */

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#define __ORSIM_NO_DEC_DBCH

#include "debug.h"

#define DECLARE_DEBUG_CHANNEL(dbch) char __orsim_dbch_##dbch[] = "\0"#dbch;

#include "dbchs.h"

#undef DECLARE_DEBUG_CHANNEL

#define DECLARE_DEBUG_CHANNEL(dbch) __orsim_dbch_##dbch,

static char *__orsim_dbchs[] = {

#include "dbchs.h"

NULL };

#undef DECLARE_DEBUG_CHANNEL

static const char *debug_classes[] = { "trace", "fixme", "warn", "err" };

void orsim_dbg_log(enum __ORSIM_DEBUG_CLASS dbcl, const char *dbch,

                   const char *function, const char *format, ...)

{

  va_list ap;

  static int last_lf = 1; /* There *has* to be a better way */

  if(!(dbch[0] & (1 << dbcl)))

    return;

  if(last_lf)

    fprintf(stderr, "%s:%s:%s: ", debug_classes[dbcl], dbch + 1, function);

  last_lf = format[strlen(format) - 1] == '\n'; /* This is wrong... */

  va_start(ap, format);

  vfprintf(stderr, format, ap);

  va_end(ap);

}

void orsim_dbcl_set(enum __ORSIM_DEBUG_CLASS dbcl, char *dbch, int on)

{

  if(on)

    dbch[0] |= 1 << dbcl;

  else

    dbch[0] &= ~(1 << dbcl);

}

void orsim_dbcl_set_name(enum __ORSIM_DEBUG_CLASS dbcl, const char *dbch, int on)

{

  char **dbchs = __orsim_dbchs;

  for(dbchs = __orsim_dbchs; *dbchs; dbchs++) {

    if(!strcmp(*dbchs + 1, dbch)) {

      orsim_dbcl_set(dbcl, *dbchs, on);

      break;

    }

  }

}

void parse_dbchs(const char *str)

{

  enum __ORSIM_DEBUG_CLASS dbcl;

  int i;

  int disen;

  int all;

  const char *cend;

  while(*str) {

    cend = strpbrk(str, "+-");

    if(cend == str) {

      all = 1;

    } else {

      for(i = 0; i < 5; i++) {

        if(!strncmp(str, debug_classes[i], cend - str)) {

          dbcl = i;

          break;

        }

      }

      if(i > 4)

        fprintf(stderr, "Unknown class specified\n");

      all = 0;

    }

    disen = *cend == '+' ? 1 : 0;

    str = cend + 1;

    cend = strchr(str, ',');

    if(!cend)

      cend = str + strlen(str);

    for(i = 0; __orsim_dbchs[i]; i++)

      if(!strncmp(str, __orsim_dbchs[i] + 1, cend - str))

        break;

    if(!__orsim_dbchs[i])

      fprintf(stderr, "Unknown channel specified\n");

    if(all) {

      orsim_dbcl_set(__ORSIM_DBCL_TRACE, __orsim_dbchs[i], disen);

      orsim_dbcl_set(__ORSIM_DBCL_FIXME, __orsim_dbchs[i], disen);

      orsim_dbcl_set(__ORSIM_DBCL_WARN, __orsim_dbchs[i], disen);

      orsim_dbcl_set(__ORSIM_DBCL_ERR, __orsim_dbchs[i], disen);

    } else

      orsim_dbcl_set(dbcl, __orsim_dbchs[i], disen);

    if(*cend)

      str = cend + 1;

    else

      str = cend;

  }

}