home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_01
/
X_PROLOG.LZH
/
X_PROLOG
/
SOURCES
/
DEBUG.C
< prev
next >
Wrap
C/C++ Source or Header
|
1990-08-13
|
1KB
|
71 lines
/*
* X PROLOG Vers. 2.0
*
*
* Written by : Andreas Toenne
* CS Dept. , IRB
* University of Dortmund, W-Germany
* <at@unido.uucp>
* <....!seismo!unido!at>
* <at@unido.bitnet>
*
* Copyright : This software is copyrighted by Andreas Toenne.
* Permission is granted hereby to copy the entire
* package including this copyright notice without fee.
*
*/
#include <stdio.h>
#include "prolog.h"
#include "extern.h"
void debug()
{
env *e;
backlog *b;
short i;
e = Topenv;
b = Backpoint;
printf("********\n");
while (TRUE)
{
if (e) /* have some enviroments left */
{
if (b) /* and some backpoints too */
{
if ((long)e < (long)b) /* print backlog first */
{
db_backlog(b,e);
b = b->pre;
}
else
{
db_env(e);
e = e->pre;
}
}
else
{
db_env(e);
e = e->pre;
}
}
else
break;
}
}
db_backlog(b,e)
{
printf("B> ");
}
db_env(e)
env *e;
{
printf("E> ");
display(e->current, e, 255, TRUE, TRUE);
puts("");
}