Import upstream sources.

[cparse] / log.c

/*
 * This file is part of Cmarsh
 * Copyright (C) 2004 Richard Kettlewell
 *
 * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307
 * USA
 */

#include "cparse.h"
#include <stdarg.h>

void (*exiter)(int) = exit;

static int suppress;

static void verror(const char *prefix_,
		   int errno_value, const char *msg, va_list ap) {
  fprintf(stderr, "%s: ", prefix_);
  vfprintf(stderr, msg, ap);
  if(errno_value)
    fprintf(stderr, ": %s\n", strerror(errno_value));
  else
    fputc('\n', stderr);
}

void fatal(int errno_value, const char *msg, ...) {
  va_list ap;

  va_start(ap, msg);
  verror("FATAL", errno_value, msg, ap);
  exit(1);
}

void error(int errno_value, const char *msg, ...) {
  va_list ap;

  va_start(ap, msg);
  verror("ERROR", errno_value, msg, ap);
  va_end(ap);
}

void inputerror(const struct location *l,
		const char *msg, ...) {
  if(!suppress) {
    va_list ap;
    
    if(fprintf(stderr, "%s:%d: error: ",
	       l ? l->path : path, l ? l->line : line) < 0)
      exit(-1);
    va_start(ap, msg);
    if(vfprintf(stderr, msg, ap) < 0) exit(-1);
    va_end(ap);
    if(fputc('\n', stderr) < 0) exit(-1);
    ++errors;
  }
}

void inputwarning(const struct location *l,
		  enum warning_category attribute((unused)) cat,
		  const char *msg, ...) {
  if(!suppress) {
    /* XXX implement warning categories */
    va_list ap;
    
    if(fprintf(stderr, "%s:%d: warning: ",
	       l ? l->path : path, l ? l->line : line) < 0)
      exit(-1);
    va_start(ap, msg);
    if(vfprintf(stderr, msg, ap) < 0) exit(-1);
    va_end(ap);
    if(fputc('\n', stderr) < 0) exit(-1);
  }
}

int yyerror(const char *msg) {
  inputerror(0, "%s", msg);
  return 0;
}

void suppress_errors(void) {
  ++suppress;
}

void restore_errors(void) {
  --suppress;
}

/*
Local Variables:
c-basic-offset:2
comment-column:40
End:
*/