/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */

#include "bem.h"

#ifndef NORSCID
static char rcs_id[] = "$Header$" ;
#endif

#define abs(X)  (X>=0?X:-X)
/* Miscelaneous routines can be found here */

int	errorcnt;



warning(str)
char *str;
{
	 if (wflag) return;
	 Xerror("WARNING", str);
}


error(str)
char *str;
{
	Xerror("ERROR", str);
	errorcnt++;
}

Xerror(type, str)
char *str;
char *type;
{
	extern int listing;
	extern int basicline;

	if( !listing) fprint(STDERR, "LINE %d:",basicline);
	fprint(STDERR, "%s:%s\n",type, str);
}



fatal(str)
char *str;
{
	Xerror("FATAL",str);
	C_close();
	sys_stop(S_EXIT);
}



notyetimpl()
{
	warning("not yet implemented");
}



illegalcmd()
{
	warning("illegal command");
}



char *itoa(i)
int i;
{
	static char buf[30];

	(void) sprint(buf,"%d",i);
	return(buf);
}






char *salloc(length)
unsigned length;
{		
	char *s,*c;
	extern char *malloc() ;

	s=c=malloc(length);
	if ( !s ) fatal("Out of memory") ;
	while(length--)*c++ =0;
	return(s);
}