99 lines
1.1 KiB
C
99 lines
1.1 KiB
C
|
/*
|
||
|
|
* (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);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|