12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697 |
- /*
- * (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[] = "$Id$" ;
- #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];
- sprint(buf,"%d",i);
- return(buf);
- }
- char *salloc(length)
- unsigned length;
- {
- char *s,*c;
- s=c=malloc(length);
- if ( !s ) fatal("Out of memory") ;
- while(length--)*c++ =0;
- return(s);
- }
|