1991-02-19 08:39:46 -04:00
|
|
|
/***********************************************************
|
|
|
|
Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
|
|
|
|
Netherlands.
|
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
|
|
|
provided that the above copyright notice appear in all copies and that
|
|
|
|
both that copyright notice and this permission notice appear in
|
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
|
|
|
Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior permission.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
|
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
|
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
|
|
|
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
|
|
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-12-20 11:06:42 -04:00
|
|
|
/* Traceback implementation */
|
|
|
|
|
|
|
|
#include "allobjects.h"
|
|
|
|
|
|
|
|
#include "compile.h"
|
|
|
|
#include "frameobject.h"
|
|
|
|
#include "traceback.h"
|
|
|
|
#include "structmember.h"
|
|
|
|
|
|
|
|
typedef struct _tracebackobject {
|
|
|
|
OB_HEAD
|
|
|
|
struct _tracebackobject *tb_next;
|
|
|
|
frameobject *tb_frame;
|
|
|
|
int tb_lasti;
|
|
|
|
int tb_lineno;
|
|
|
|
} tracebackobject;
|
|
|
|
|
|
|
|
#define OFF(x) offsetof(tracebackobject, x)
|
|
|
|
|
|
|
|
static struct memberlist tb_memberlist[] = {
|
|
|
|
{"tb_next", T_OBJECT, OFF(tb_next)},
|
|
|
|
{"tb_frame", T_OBJECT, OFF(tb_frame)},
|
|
|
|
{"tb_lasti", T_INT, OFF(tb_lasti)},
|
|
|
|
{"tb_lineno", T_INT, OFF(tb_lineno)},
|
|
|
|
{NULL} /* Sentinel */
|
|
|
|
};
|
|
|
|
|
|
|
|
static object *
|
|
|
|
tb_getattr(tb, name)
|
|
|
|
tracebackobject *tb;
|
|
|
|
char *name;
|
|
|
|
{
|
|
|
|
return getmember((char *)tb, tb_memberlist, name);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
tb_dealloc(tb)
|
|
|
|
tracebackobject *tb;
|
|
|
|
{
|
|
|
|
XDECREF(tb->tb_next);
|
|
|
|
XDECREF(tb->tb_frame);
|
|
|
|
DEL(tb);
|
|
|
|
}
|
|
|
|
|
|
|
|
static typeobject Tracebacktype = {
|
|
|
|
OB_HEAD_INIT(&Typetype)
|
|
|
|
0,
|
|
|
|
"traceback",
|
|
|
|
sizeof(tracebackobject),
|
|
|
|
0,
|
|
|
|
tb_dealloc, /*tp_dealloc*/
|
|
|
|
0, /*tp_print*/
|
|
|
|
tb_getattr, /*tp_getattr*/
|
|
|
|
0, /*tp_setattr*/
|
|
|
|
0, /*tp_compare*/
|
|
|
|
0, /*tp_repr*/
|
|
|
|
0, /*tp_as_number*/
|
|
|
|
0, /*tp_as_sequence*/
|
|
|
|
0, /*tp_as_mapping*/
|
|
|
|
};
|
|
|
|
|
|
|
|
#define is_tracebackobject(v) ((v)->ob_type == &Tracebacktype)
|
|
|
|
|
|
|
|
static tracebackobject *
|
|
|
|
newtracebackobject(next, frame, lasti, lineno)
|
|
|
|
tracebackobject *next;
|
|
|
|
frameobject *frame;
|
|
|
|
int lasti, lineno;
|
|
|
|
{
|
|
|
|
tracebackobject *tb;
|
|
|
|
if ((next != NULL && !is_tracebackobject(next)) ||
|
|
|
|
frame == NULL || !is_frameobject(frame)) {
|
|
|
|
err_badcall();
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
tb = NEWOBJ(tracebackobject, &Tracebacktype);
|
|
|
|
if (tb != NULL) {
|
|
|
|
XINCREF(next);
|
|
|
|
tb->tb_next = next;
|
|
|
|
XINCREF(frame);
|
|
|
|
tb->tb_frame = frame;
|
|
|
|
tb->tb_lasti = lasti;
|
|
|
|
tb->tb_lineno = lineno;
|
|
|
|
}
|
|
|
|
return tb;
|
|
|
|
}
|
|
|
|
|
|
|
|
static tracebackobject *tb_current = NULL;
|
|
|
|
|
|
|
|
int
|
|
|
|
tb_here(frame, lasti, lineno)
|
|
|
|
frameobject *frame;
|
|
|
|
int lasti;
|
|
|
|
int lineno;
|
|
|
|
{
|
|
|
|
tracebackobject *tb;
|
|
|
|
tb = newtracebackobject(tb_current, frame, lasti, lineno);
|
|
|
|
if (tb == NULL)
|
|
|
|
return -1;
|
|
|
|
XDECREF(tb_current);
|
|
|
|
tb_current = tb;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
object *
|
|
|
|
tb_fetch()
|
|
|
|
{
|
|
|
|
object *v;
|
|
|
|
v = (object *)tb_current;
|
|
|
|
tb_current = NULL;
|
|
|
|
return v;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
tb_store(v)
|
|
|
|
object *v;
|
|
|
|
{
|
|
|
|
if (v != NULL && !is_tracebackobject(v)) {
|
|
|
|
err_badcall();
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
XDECREF(tb_current);
|
|
|
|
XINCREF(v);
|
|
|
|
tb_current = (tracebackobject *)v;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
tb_displayline(fp, filename, lineno)
|
|
|
|
FILE *fp;
|
|
|
|
char *filename;
|
|
|
|
int lineno;
|
|
|
|
{
|
|
|
|
FILE *xfp;
|
|
|
|
char buf[1000];
|
|
|
|
int i;
|
|
|
|
if (filename[0] == '<' && filename[strlen(filename)-1] == '>')
|
|
|
|
return;
|
|
|
|
xfp = fopen(filename, "r");
|
|
|
|
if (xfp == NULL) {
|
|
|
|
fprintf(fp, " (cannot open \"%s\")\n", filename);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
for (i = 0; i < lineno; i++) {
|
|
|
|
if (fgets(buf, sizeof buf, xfp) == NULL)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (i == lineno) {
|
|
|
|
char *p = buf;
|
|
|
|
while (*p == ' ' || *p == '\t')
|
|
|
|
p++;
|
|
|
|
fprintf(fp, " %s", p);
|
|
|
|
if (strchr(p, '\n') == NULL)
|
|
|
|
fprintf(fp, "\n");
|
|
|
|
}
|
|
|
|
fclose(xfp);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
tb_printinternal(tb, fp)
|
|
|
|
tracebackobject *tb;
|
|
|
|
FILE *fp;
|
|
|
|
{
|
|
|
|
while (tb != NULL) {
|
1991-06-07 19:35:42 -03:00
|
|
|
if (intrcheck())
|
1990-12-20 11:06:42 -04:00
|
|
|
break;
|
1991-06-24 19:25:27 -03:00
|
|
|
fprintf(fp, " File \"%s\"",
|
|
|
|
getstringvalue(tb->tb_frame->f_code->co_filename));
|
|
|
|
#ifdef applec /* MPW */
|
|
|
|
/* This is needed by MPW's File and Line commands */
|
|
|
|
fprintf(fp, "; ");
|
|
|
|
#else
|
|
|
|
/* This is needed by Emacs' compile command */
|
|
|
|
fprintf(fp, ", ");
|
|
|
|
#endif
|
|
|
|
fprintf(fp, "line %d\n", tb->tb_lineno);
|
1990-12-20 11:06:42 -04:00
|
|
|
tb_displayline(fp,
|
|
|
|
getstringvalue(tb->tb_frame->f_code->co_filename),
|
|
|
|
tb->tb_lineno);
|
|
|
|
tb = tb->tb_next;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
tb_print(v, fp)
|
|
|
|
object *v;
|
|
|
|
FILE *fp;
|
|
|
|
{
|
|
|
|
if (v == NULL)
|
|
|
|
return 0;
|
|
|
|
if (!is_tracebackobject(v)) {
|
|
|
|
err_badcall();
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
sysset("last_traceback", v);
|
|
|
|
tb_printinternal((tracebackobject *)v, fp);
|
|
|
|
return 0;
|
|
|
|
}
|