Mercurial > cpython-lru_cache-weakref
annotate Python/traceback.c @ 482:ee899a81570d legacy-trunk
New argument passing.
| author | Guido van Rossum <guido@python.org> |
|---|---|
| date | Mon, 16 Dec 1991 13:05:10 +0000 |
| parents | 06774a94abb5 |
| children | 800cf4086fb3 |
| rev | line source |
|---|---|
| 145 | 1 /*********************************************************** |
| 2 Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The | |
| 3 Netherlands. | |
| 4 | |
| 5 All Rights Reserved | |
| 6 | |
| 7 Permission to use, copy, modify, and distribute this software and its | |
| 8 documentation for any purpose and without fee is hereby granted, | |
| 9 provided that the above copyright notice appear in all copies and that | |
| 10 both that copyright notice and this permission notice appear in | |
| 11 supporting documentation, and that the names of Stichting Mathematisch | |
| 12 Centrum or CWI not be used in advertising or publicity pertaining to | |
| 13 distribution of the software without specific, written prior permission. | |
| 14 | |
| 15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO | |
| 16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND | |
| 17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE | |
| 18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
| 19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
| 20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT | |
| 21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
| 22 | |
| 23 ******************************************************************/ | |
| 24 | |
| 86 | 25 /* Traceback implementation */ |
| 26 | |
| 27 #include "allobjects.h" | |
| 28 | |
| 29 #include "compile.h" | |
| 30 #include "frameobject.h" | |
| 31 #include "traceback.h" | |
| 32 #include "structmember.h" | |
| 33 | |
| 34 typedef struct _tracebackobject { | |
| 35 OB_HEAD | |
| 36 struct _tracebackobject *tb_next; | |
| 37 frameobject *tb_frame; | |
| 38 int tb_lasti; | |
| 39 int tb_lineno; | |
| 40 } tracebackobject; | |
| 41 | |
| 42 #define OFF(x) offsetof(tracebackobject, x) | |
| 43 | |
| 44 static struct memberlist tb_memberlist[] = { | |
| 45 {"tb_next", T_OBJECT, OFF(tb_next)}, | |
| 46 {"tb_frame", T_OBJECT, OFF(tb_frame)}, | |
| 47 {"tb_lasti", T_INT, OFF(tb_lasti)}, | |
| 48 {"tb_lineno", T_INT, OFF(tb_lineno)}, | |
| 49 {NULL} /* Sentinel */ | |
| 50 }; | |
| 51 | |
| 52 static object * | |
| 53 tb_getattr(tb, name) | |
| 54 tracebackobject *tb; | |
| 55 char *name; | |
| 56 { | |
| 57 return getmember((char *)tb, tb_memberlist, name); | |
| 58 } | |
| 59 | |
| 60 static void | |
| 61 tb_dealloc(tb) | |
| 62 tracebackobject *tb; | |
| 63 { | |
| 64 XDECREF(tb->tb_next); | |
| 65 XDECREF(tb->tb_frame); | |
| 66 DEL(tb); | |
| 67 } | |
| 68 | |
| 69 static typeobject Tracebacktype = { | |
| 70 OB_HEAD_INIT(&Typetype) | |
| 71 0, | |
| 72 "traceback", | |
| 73 sizeof(tracebackobject), | |
| 74 0, | |
| 75 tb_dealloc, /*tp_dealloc*/ | |
| 76 0, /*tp_print*/ | |
| 77 tb_getattr, /*tp_getattr*/ | |
| 78 0, /*tp_setattr*/ | |
| 79 0, /*tp_compare*/ | |
| 80 0, /*tp_repr*/ | |
| 81 0, /*tp_as_number*/ | |
| 82 0, /*tp_as_sequence*/ | |
| 83 0, /*tp_as_mapping*/ | |
| 84 }; | |
| 85 | |
| 86 #define is_tracebackobject(v) ((v)->ob_type == &Tracebacktype) | |
| 87 | |
| 88 static tracebackobject * | |
| 89 newtracebackobject(next, frame, lasti, lineno) | |
| 90 tracebackobject *next; | |
| 91 frameobject *frame; | |
| 92 int lasti, lineno; | |
| 93 { | |
| 94 tracebackobject *tb; | |
| 95 if ((next != NULL && !is_tracebackobject(next)) || | |
| 96 frame == NULL || !is_frameobject(frame)) { | |
| 97 err_badcall(); | |
| 98 return NULL; | |
| 99 } | |
| 100 tb = NEWOBJ(tracebackobject, &Tracebacktype); | |
| 101 if (tb != NULL) { | |
| 102 XINCREF(next); | |
| 103 tb->tb_next = next; | |
| 104 XINCREF(frame); | |
| 105 tb->tb_frame = frame; | |
| 106 tb->tb_lasti = lasti; | |
| 107 tb->tb_lineno = lineno; | |
| 108 } | |
| 109 return tb; | |
| 110 } | |
| 111 | |
| 112 static tracebackobject *tb_current = NULL; | |
| 113 | |
| 114 int | |
| 115 tb_here(frame, lasti, lineno) | |
| 116 frameobject *frame; | |
| 117 int lasti; | |
| 118 int lineno; | |
| 119 { | |
| 120 tracebackobject *tb; | |
| 121 tb = newtracebackobject(tb_current, frame, lasti, lineno); | |
| 122 if (tb == NULL) | |
| 123 return -1; | |
| 124 XDECREF(tb_current); | |
| 125 tb_current = tb; | |
| 126 return 0; | |
| 127 } | |
| 128 | |
| 129 object * | |
| 130 tb_fetch() | |
| 131 { | |
| 132 object *v; | |
| 133 v = (object *)tb_current; | |
| 134 tb_current = NULL; | |
| 135 return v; | |
| 136 } | |
| 137 | |
| 138 int | |
| 139 tb_store(v) | |
| 140 object *v; | |
| 141 { | |
| 142 if (v != NULL && !is_tracebackobject(v)) { | |
| 143 err_badcall(); | |
| 144 return -1; | |
| 145 } | |
| 146 XDECREF(tb_current); | |
| 147 XINCREF(v); | |
| 148 tb_current = (tracebackobject *)v; | |
| 149 return 0; | |
| 150 } | |
| 151 | |
| 152 static void | |
| 153 tb_displayline(fp, filename, lineno) | |
| 154 FILE *fp; | |
| 155 char *filename; | |
| 156 int lineno; | |
| 157 { | |
| 158 FILE *xfp; | |
| 159 char buf[1000]; | |
| 160 int i; | |
| 161 if (filename[0] == '<' && filename[strlen(filename)-1] == '>') | |
| 162 return; | |
| 163 xfp = fopen(filename, "r"); | |
| 164 if (xfp == NULL) { | |
| 165 fprintf(fp, " (cannot open \"%s\")\n", filename); | |
| 166 return; | |
| 167 } | |
| 168 for (i = 0; i < lineno; i++) { | |
| 169 if (fgets(buf, sizeof buf, xfp) == NULL) | |
| 170 break; | |
| 171 } | |
| 172 if (i == lineno) { | |
| 173 char *p = buf; | |
| 174 while (*p == ' ' || *p == '\t') | |
| 175 p++; | |
| 176 fprintf(fp, " %s", p); | |
| 177 if (strchr(p, '\n') == NULL) | |
| 178 fprintf(fp, "\n"); | |
| 179 } | |
| 180 fclose(xfp); | |
| 181 } | |
| 182 | |
| 183 static void | |
| 184 tb_printinternal(tb, fp) | |
| 185 tracebackobject *tb; | |
| 186 FILE *fp; | |
| 187 { | |
| 188 while (tb != NULL) { | |
|
285
85bd7dac13f3
printobject now returns an error code
Guido van Rossum <guido@python.org>
parents:
145
diff
changeset
|
189 if (intrcheck()) |
|
85bd7dac13f3
printobject now returns an error code
Guido van Rossum <guido@python.org>
parents:
145
diff
changeset
|
190 break; |
|
291
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
191 fprintf(fp, " File \"%s\"", |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
192 getstringvalue(tb->tb_frame->f_code->co_filename)); |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
193 #ifdef applec /* MPW */ |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
194 /* This is needed by MPW's File and Line commands */ |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
195 fprintf(fp, "; "); |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
196 #else |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
197 /* This is needed by Emacs' compile command */ |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
198 fprintf(fp, ", "); |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
199 #endif |
|
06774a94abb5
Don't use printobject() to print a string (filename).
Guido van Rossum <guido@python.org>
parents:
285
diff
changeset
|
200 fprintf(fp, "line %d\n", tb->tb_lineno); |
| 86 | 201 tb_displayline(fp, |
| 202 getstringvalue(tb->tb_frame->f_code->co_filename), | |
| 203 tb->tb_lineno); | |
| 204 tb = tb->tb_next; | |
| 205 } | |
| 206 } | |
| 207 | |
| 208 int | |
| 209 tb_print(v, fp) | |
| 210 object *v; | |
| 211 FILE *fp; | |
| 212 { | |
| 213 if (v == NULL) | |
| 214 return 0; | |
| 215 if (!is_tracebackobject(v)) { | |
| 216 err_badcall(); | |
| 217 return -1; | |
| 218 } | |
| 219 sysset("last_traceback", v); | |
| 220 tb_printinternal((tracebackobject *)v, fp); | |
| 221 return 0; | |
| 222 } |