1987-03-10 11:49:39 +00:00
|
|
|
/* $Header$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1984-11-26 15:04:22 +00:00
|
|
|
/* D E B U G G I N G T O O L S */
|
|
|
|
|
|
|
|
|
|
/* TEMPORARY: */
|
|
|
|
|
#define DEBUG
|
|
|
|
|
|
|
|
|
|
extern int linecount; /* # lines in this file */
|
|
|
|
|
extern bool verbose_flag; /* generate verbose output ? */
|
|
|
|
|
|
|
|
|
|
/* VARARGS 1 */
|
|
|
|
|
error();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#ifdef TRACE
|
|
|
|
|
extern OUTTRACE();
|
|
|
|
|
#else
|
|
|
|
|
#define OUTTRACE(s,n)
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef VERBOSE
|
|
|
|
|
extern OUTVERBOSE();
|
|
|
|
|
#else
|
|
|
|
|
#define OUTVERBOSE(s,n1,n2)
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
|
|
|
|
|
/* Some (all?) Unix debuggers don't particularly like
|
|
|
|
|
* static procedures and variables. Therefor we make everything
|
|
|
|
|
* global when debugging.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#define STATIC
|
|
|
|
|
|
|
|
|
|
#define assert(x) if(!(x)) badassertion(__FILE__,__LINE__)
|
|
|
|
|
|
|
|
|
|
extern VI();
|
|
|
|
|
extern VL();
|
|
|
|
|
extern VD();
|
|
|
|
|
extern VA();
|
|
|
|
|
extern VO();
|
|
|
|
|
extern VP();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#else /*DEBUG*/
|
|
|
|
|
|
|
|
|
|
#define assert(b)
|
|
|
|
|
|
|
|
|
|
#define VI(i)
|
|
|
|
|
#define VL(l)
|
|
|
|
|
#define VD(d)
|
|
|
|
|
#define VA(a)
|
|
|
|
|
#define VO(o)
|
|
|
|
|
#define VP(p)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define STATIC static
|
|
|
|
|
#endif
|
