/*

  @@@@@  @@@@@     @@     @@@@      @    @    @   @@@@            @@@@
    @    @    @   @  @   @    @     @    @@   @  @    @          @    @
    @    @    @  @    @  @          @    @ @  @  @               @
    @    @@@@@   @@@@@@  @          @    @  @ @  @  @@@   @@@    @
    @    @   @   @    @  @    @     @    @   @@  @    @   @@@    @    @
    @    @    @  @    @   @@@@      @    @    @   @@@@    @@@     @@@@

 * tracing.c - miscellaneous routines for procedure tracing.
 */
/*
 * 08/29/91 ks - added self-indenting ala Holub (thanks Eric Vaitl)
 *
 * 08/30/90 ks     deleted printtoken routine
               deleted inittrace routine - all these flags
               are set in init_sc in main (simple.c)
*/

#include <stdio.h>
#include "booldef.h"
#define TRACING_LOCAL
#include "tracing.h"

/* don't understand why this is -2 ?  ks 93 */
static int level = -2; /* on the first call to entering level++ */

void Entering(mesg)
char *mesg;
{
level ++;
	printf("in  %*s%s\n", 3*level,"",mesg);
}

void Leaving(mesg)
char *mesg;
{
	printf("out %*s%s\n", 3*level,"",mesg);
level --;
}