/*
    This file is part of The Didactic PDP-8 Assembler
    Copyright (C) 2002 Toby Thain, toby@telegraphics.com.au

    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 <stdarg.h>

#include "asm.h"

int errors;
extern char *inputfile;
extern int lasttok,listpos;
extern char listline[];

void err(char *kind,char *text){
	int i;

	if(listpos){
		fputc('#',stderr);
		fputs(listline,stderr);
		fputc('\n',stderr);
		fputc('#',stderr);
		for( i = 0 ; i < lasttok ; ++i )
			fputc(listline[i]=='\t'?'\t':' ',stderr);
		fputc('^',stderr);
		fputc('\n',stderr);
	}
	fprintf(stderr,"# %s: %s @ line %d, %s\n",
		kind,inputfile,lineno,text);
}

void yyerror(char *s){
	++errors;
	err("ERROR",s);
}

void warn(char *fmt,...){
	char s[0x200];
	va_list v;

	va_start(v,fmt);
	vsnprintf(s,0x200,fmt,v);
	va_end(v);
	err("WARNING",s);
}

void fatal(char *fmt,...){
	char s[0x200];
	va_list v;

	va_start(v,fmt);
	vsnprintf(s,0x200,fmt,v);
	va_end(v);
	yyerror(s);
}