/* Methods to implement standard operations */
void (*tp_dealloc) FPROTO((object *));
- void (*tp_print) FPROTO((object *, FILE *, int));
+ int (*tp_print) FPROTO((object *, FILE *, int));
object *(*tp_getattr) FPROTO((object *, char *));
int (*tp_setattr) FPROTO((object *, char *, object *));
int (*tp_compare) FPROTO((object *, object *));
#define is_typeobject(op) ((op)->ob_type == &Typetype)
/* Generic operations on objects */
-extern void printobject PROTO((object *, FILE *, int));
+extern int printobject PROTO((object *, FILE *, int));
extern object * reprobject PROTO((object *));
extern int cmpobject PROTO((object *, object *));
extern object *getattr PROTO((object *, char *));
free((char *)wp);
}
-static void
+static int
window_print(wp, fp, flags)
windowobject *wp;
FILE *fp;
int flags;
{
fprintf(fp, "<window titled '%s'>", getstringvalue(wp->w_title));
+ return 0;
}
static object *
object *exception, *v;
err_get(&exception, &v);
fprintf(stderr, "Unhandled exception: ");
- printobject(exception, stderr, PRINT_RAW);
+ if (printobject(exception, stderr, PRINT_RAW) != 0)
+ err_clear();
if (v != NULL && v != None) {
fprintf(stderr, ": ");
- printobject(v, stderr, PRINT_RAW);
+ if (printobject(v, stderr, PRINT_RAW) != 0)
+ err_clear();
}
fprintf(stderr, "\n");
XDECREF(exception);
FILE *fp;
{
while (tb != NULL) {
- if (intrcheck()) {
- fprintf(fp, "[interrupted]\n");
+ if (intrcheck())
break;
- }
fprintf(fp, " File \"");
- printobject(tb->tb_frame->f_code->co_filename, fp, PRINT_RAW);
+ if (printobject(tb->tb_frame->f_code->co_filename,
+ fp, PRINT_RAW) != 0) {
+ err_clear();
+ break;
+ }
fprintf(fp, "\", line %d\n", tb->tb_lineno);
tb_displayline(fp,
getstringvalue(tb->tb_frame->f_code->co_filename),