Mercurial > cpython-lru_cache-weakref
annotate Python/traceback.c @ 1263:65a1e4e9cd54 legacy-trunk
* Fixed some subtleties with fastlocals. You can no longer access
f_fastlocals in a traceback object (this is a core dump hazard
if there are <nil> entries), but instead eval_code() merges the fast
locals back into the locals dictionary if it looks like the local
variables will be retained. Also, the merge routines save
exceptions since this is sometimes needed (alas!).
* Added id() to bltinmodule.c, which returns an object's address
(identity). Useful to walk arbitrary data structures containing
cycles.
* Added compile() to bltinmodule.c and compile_string() to
pythonrun.[ch]: support to exec/eval arbitrary code objects. The
code that defaults globals and locals is moved from run_node in
pythonrun.c (which is now identical to eval_node) to eval_code in
ceval.c. [XXX For elegance a clean-up session is necessary.]
| author | Guido van Rossum <guido@python.org> |
|---|---|
| date | Tue, 30 Mar 1993 17:46:03 +0000 |
| parents | 1cabc2b6c970 |
| children | 72bddfad351a |
| rev | line source |
|---|---|
| 145 | 1 /*********************************************************** |
|
1257
1cabc2b6c970
* Changed all copyright messages to include 1993.
Guido van Rossum <guido@python.org>
parents:
1073
diff
changeset
|
2 Copyright 1991, 1992, 1993 by Stichting Mathematisch Centrum, |
|
1cabc2b6c970
* Changed all copyright messages to include 1993.
Guido van Rossum <guido@python.org>
parents:
1073
diff
changeset
|
3 Amsterdam, The Netherlands. |
| 145 | 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 | |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
29 #include "sysmodule.h" |
| 86 | 30 #include "compile.h" |
| 31 #include "frameobject.h" | |
| 32 #include "traceback.h" | |
| 33 #include "structmember.h" | |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
34 #include "osdefs.h" |
| 86 | 35 |
| 36 typedef struct _tracebackobject { | |
| 37 OB_HEAD | |
| 38 struct _tracebackobject *tb_next; | |
| 39 frameobject *tb_frame; | |
| 40 int tb_lasti; | |
| 41 int tb_lineno; | |
| 42 } tracebackobject; | |
| 43 | |
| 44 #define OFF(x) offsetof(tracebackobject, x) | |
| 45 | |
| 46 static struct memberlist tb_memberlist[] = { | |
| 47 {"tb_next", T_OBJECT, OFF(tb_next)}, | |
| 48 {"tb_frame", T_OBJECT, OFF(tb_frame)}, | |
| 49 {"tb_lasti", T_INT, OFF(tb_lasti)}, | |
| 50 {"tb_lineno", T_INT, OFF(tb_lineno)}, | |
| 51 {NULL} /* Sentinel */ | |
| 52 }; | |
| 53 | |
| 54 static object * | |
| 55 tb_getattr(tb, name) | |
| 56 tracebackobject *tb; | |
| 57 char *name; | |
| 58 { | |
| 59 return getmember((char *)tb, tb_memberlist, name); | |
| 60 } | |
| 61 | |
| 62 static void | |
| 63 tb_dealloc(tb) | |
| 64 tracebackobject *tb; | |
| 65 { | |
| 66 XDECREF(tb->tb_next); | |
| 67 XDECREF(tb->tb_frame); | |
| 68 DEL(tb); | |
| 69 } | |
| 70 | |
| 71 static typeobject Tracebacktype = { | |
| 72 OB_HEAD_INIT(&Typetype) | |
| 73 0, | |
| 74 "traceback", | |
| 75 sizeof(tracebackobject), | |
| 76 0, | |
| 77 tb_dealloc, /*tp_dealloc*/ | |
| 78 0, /*tp_print*/ | |
| 79 tb_getattr, /*tp_getattr*/ | |
| 80 0, /*tp_setattr*/ | |
| 81 0, /*tp_compare*/ | |
| 82 0, /*tp_repr*/ | |
| 83 0, /*tp_as_number*/ | |
| 84 0, /*tp_as_sequence*/ | |
| 85 0, /*tp_as_mapping*/ | |
| 86 }; | |
| 87 | |
| 88 #define is_tracebackobject(v) ((v)->ob_type == &Tracebacktype) | |
| 89 | |
| 90 static tracebackobject * | |
| 91 newtracebackobject(next, frame, lasti, lineno) | |
| 92 tracebackobject *next; | |
| 93 frameobject *frame; | |
| 94 int lasti, lineno; | |
| 95 { | |
| 96 tracebackobject *tb; | |
| 97 if ((next != NULL && !is_tracebackobject(next)) || | |
| 98 frame == NULL || !is_frameobject(frame)) { | |
| 99 err_badcall(); | |
| 100 return NULL; | |
| 101 } | |
| 102 tb = NEWOBJ(tracebackobject, &Tracebacktype); | |
| 103 if (tb != NULL) { | |
| 104 XINCREF(next); | |
| 105 tb->tb_next = next; | |
| 106 XINCREF(frame); | |
| 107 tb->tb_frame = frame; | |
| 108 tb->tb_lasti = lasti; | |
| 109 tb->tb_lineno = lineno; | |
| 110 } | |
| 111 return tb; | |
| 112 } | |
| 113 | |
| 114 static tracebackobject *tb_current = NULL; | |
| 115 | |
| 116 int | |
|
597
800cf4086fb3
tb_here() can now get the lasti and lineno arguments from the frame.
Guido van Rossum <guido@python.org>
parents:
291
diff
changeset
|
117 tb_here(frame) |
| 86 | 118 frameobject *frame; |
| 119 { | |
| 120 tracebackobject *tb; | |
|
597
800cf4086fb3
tb_here() can now get the lasti and lineno arguments from the frame.
Guido van Rossum <guido@python.org>
parents:
291
diff
changeset
|
121 tb = newtracebackobject(tb_current, frame, frame->f_lasti, frame->f_lineno); |
| 86 | 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 | |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
153 tb_displayline(f, filename, lineno) |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
154 object *f; |
| 86 | 155 char *filename; |
| 156 int lineno; | |
| 157 { | |
| 158 FILE *xfp; | |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
159 char linebuf[1000]; |
| 86 | 160 int i; |
| 161 xfp = fopen(filename, "r"); | |
| 162 if (xfp == NULL) { | |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
163 /* Search tail of filename in sys.path before giving up */ |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
164 object *path; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
165 char *tail = strrchr(filename, SEP); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
166 if (tail == NULL) |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
167 tail = filename; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
168 else |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
169 tail++; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
170 path = sysget("path"); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
171 if (path != NULL && is_listobject(path)) { |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
172 int npath = getlistsize(path); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
173 char namebuf[MAXPATHLEN+1]; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
174 for (i = 0; i < npath; i++) { |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
175 object *v = getlistitem(path, i); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
176 if (is_stringobject(v)) { |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
177 int len; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
178 strcpy(namebuf, getstringvalue(v)); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
179 len = getstringsize(v); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
180 if (len > 0 && namebuf[len-1] != SEP) |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
181 namebuf[len++] = SEP; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
182 strcpy(namebuf+len, tail); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
183 xfp = fopen(namebuf, "r"); |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
184 if (xfp != NULL) { |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
185 filename = namebuf; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
186 break; |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
187 } |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
188 } |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
189 } |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
190 } |
| 86 | 191 } |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
192 sprintf(linebuf, " File \"%.900s\"%s line %d\n", |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
193 filename, |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
194 #ifdef applec /* MPW */ |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
195 /* This is needed by MPW's File and Line commands */ |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
196 ";", |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
197 #else |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
198 /* This is needed by Emacs' compile command */ |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
199 ",", |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
200 #endif |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
201 lineno); |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
202 writestring(linebuf, f); |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
203 if (xfp == NULL) |
|
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
204 return; |
| 86 | 205 for (i = 0; i < lineno; i++) { |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
206 if (fgets(linebuf, sizeof linebuf, xfp) == NULL) |
| 86 | 207 break; |
| 208 } | |
| 209 if (i == lineno) { | |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
210 char *p = linebuf; |
| 86 | 211 while (*p == ' ' || *p == '\t') |
| 212 p++; | |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
213 writestring(" ", f); |
|
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
214 writestring(p, f); |
| 86 | 215 if (strchr(p, '\n') == NULL) |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
216 writestring("\n", f); |
| 86 | 217 } |
| 218 fclose(xfp); | |
| 219 } | |
| 220 | |
| 221 static void | |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
222 tb_printinternal(tb, f) |
| 86 | 223 tracebackobject *tb; |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
224 object *f; |
| 86 | 225 { |
|
674
4e2d239dc64c
Move printing of filename and lineno to tb_displayline.
Guido van Rossum <guido@python.org>
parents:
597
diff
changeset
|
226 while (tb != NULL && !intrcheck()) { |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
227 tb_displayline(f, |
| 86 | 228 getstringvalue(tb->tb_frame->f_code->co_filename), |
| 229 tb->tb_lineno); | |
| 230 tb = tb->tb_next; | |
| 231 } | |
| 232 } | |
| 233 | |
| 234 int | |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
235 tb_print(v, f) |
| 86 | 236 object *v; |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
237 object *f; |
| 86 | 238 { |
| 239 if (v == NULL) | |
| 240 return 0; | |
| 241 if (!is_tracebackobject(v)) { | |
| 242 err_badcall(); | |
| 243 return -1; | |
| 244 } | |
| 245 sysset("last_traceback", v); | |
|
1073
2c0432fcc270
Modified most (but not yet all) I/O to always go through sys.stdout or
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
246 tb_printinternal((tracebackobject *)v, f); |
| 86 | 247 return 0; |
| 248 } |