Commit | Line | Data |
---|---|---|
80111f4f GM |
1 | """Definitions used by commands sent to inferior Python in python.el.""" |
2 | ||
114f9c96 | 3 | # Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
80111f4f GM |
4 | # Author: Dave Love <fx@gnu.org> |
5 | ||
6 | # This file is part of GNU Emacs. | |
7 | ||
ab73e885 | 8 | # GNU Emacs is free software: you can redistribute it and/or modify |
80111f4f | 9 | # it under the terms of the GNU General Public License as published by |
ab73e885 GM |
10 | # the Free Software Foundation, either version 3 of the License, or |
11 | # (at your option) any later version. | |
80111f4f GM |
12 | |
13 | # GNU Emacs is distributed in the hope that it will be useful, | |
14 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | # GNU General Public License for more details. | |
17 | ||
18 | # You should have received a copy of the GNU General Public License | |
ab73e885 | 19 | # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
80111f4f GM |
20 | |
21 | import os, sys, traceback, inspect, __main__ | |
22 | ||
23 | try: | |
24 | set | |
25 | except: | |
26 | from sets import Set as set | |
27 | ||
28 | __all__ = ["eexecfile", "eargs", "complete", "ehelp", "eimport", "modpath"] | |
29 | ||
30 | def format_exception (filename, should_remove_self): | |
31 | type, value, tb = sys.exc_info () | |
32 | sys.last_type = type | |
33 | sys.last_value = value | |
34 | sys.last_traceback = tb | |
35 | if type is SyntaxError: | |
36 | try: # parse the error message | |
37 | msg, (dummy_filename, lineno, offset, line) = value | |
38 | except: | |
39 | pass # Not the format we expect; leave it alone | |
40 | else: | |
41 | # Stuff in the right filename | |
42 | value = SyntaxError(msg, (filename, lineno, offset, line)) | |
43 | sys.last_value = value | |
44 | res = traceback.format_exception_only (type, value) | |
45 | # There are some compilation errors which do not provide traceback so we | |
46 | # should not massage it. | |
47 | if should_remove_self: | |
48 | tblist = traceback.extract_tb (tb) | |
49 | del tblist[:1] | |
50 | res = traceback.format_list (tblist) | |
51 | if res: | |
52 | res.insert(0, "Traceback (most recent call last):\n") | |
53 | res[len(res):] = traceback.format_exception_only (type, value) | |
54 | # traceback.print_exception(type, value, tb) | |
55 | for line in res: print line, | |
56 | ||
57 | def eexecfile (file): | |
58 | """Execute FILE and then remove it. | |
59 | Execute the file within the __main__ namespace. | |
60 | If we get an exception, print a traceback with the top frame | |
61 | (ourselves) excluded.""" | |
62 | # We cannot use real execfile since it has a bug where the file stays | |
63 | # locked forever (under w32) if SyntaxError occurs. | |
64 | # --- code based on code.py and PyShell.py. | |
65 | try: | |
66 | try: | |
67 | source = open (file, "r").read() | |
68 | code = compile (source, file, "exec") | |
69 | # Other exceptions (shouldn't be any...) will (correctly) fall | |
70 | # through to "final". | |
71 | except (OverflowError, SyntaxError, ValueError): | |
72 | # FIXME: When can compile() raise anything else than | |
73 | # SyntaxError ???? | |
74 | format_exception (file, False) | |
75 | return | |
76 | try: | |
77 | exec code in __main__.__dict__ | |
78 | except: | |
79 | format_exception (file, True) | |
80 | finally: | |
81 | os.remove (file) | |
82 | ||
83 | def eargs (name, imports): | |
84 | "Get arglist of NAME for Eldoc &c." | |
85 | try: | |
86 | if imports: exec imports | |
87 | parts = name.split ('.') | |
88 | if len (parts) > 1: | |
89 | exec 'import ' + parts[0] # might fail | |
90 | func = eval (name) | |
91 | if inspect.isbuiltin (func) or type(func) is type: | |
92 | doc = func.__doc__ | |
93 | if doc.find (' ->') != -1: | |
94 | print '_emacs_out', doc.split (' ->')[0] | |
95 | else: | |
96 | print '_emacs_out', doc.split ('\n')[0] | |
97 | return | |
98 | if inspect.ismethod (func): | |
99 | func = func.im_func | |
100 | if not inspect.isfunction (func): | |
101 | print '_emacs_out ' | |
102 | return | |
103 | (args, varargs, varkw, defaults) = inspect.getargspec (func) | |
104 | # No space between name and arglist for consistency with builtins. | |
105 | print '_emacs_out', \ | |
106 | func.__name__ + inspect.formatargspec (args, varargs, varkw, | |
107 | defaults) | |
108 | except: | |
109 | print "_emacs_out " | |
110 | ||
111 | def all_names (object): | |
112 | """Return (an approximation to) a list of all possible attribute | |
113 | names reachable via the attributes of OBJECT, i.e. roughly the | |
114 | leaves of the dictionary tree under it.""" | |
115 | ||
116 | def do_object (object, names): | |
117 | if inspect.ismodule (object): | |
118 | do_module (object, names) | |
119 | elif inspect.isclass (object): | |
120 | do_class (object, names) | |
121 | # Might have an object without its class in scope. | |
122 | elif hasattr (object, '__class__'): | |
123 | names.add ('__class__') | |
124 | do_class (object.__class__, names) | |
125 | # Probably not a good idea to try to enumerate arbitrary | |
126 | # dictionaries... | |
127 | return names | |
128 | ||
129 | def do_module (module, names): | |
130 | if hasattr (module, '__all__'): # limited export list | |
131 | names.update(module.__all__) | |
132 | for i in module.__all__: | |
133 | do_object (getattr (module, i), names) | |
134 | else: # use all names | |
135 | names.update(dir (module)) | |
136 | for i in dir (module): | |
137 | do_object (getattr (module, i), names) | |
138 | return names | |
139 | ||
140 | def do_class (object, names): | |
141 | ns = dir (object) | |
142 | names.update(ns) | |
143 | if hasattr (object, '__bases__'): # superclasses | |
144 | for i in object.__bases__: do_object (i, names) | |
145 | return names | |
146 | ||
147 | return do_object (object, set([])) | |
148 | ||
149 | def complete (name, imports): | |
150 | """Complete TEXT in NAMESPACE and print a Lisp list of completions. | |
151 | Exec IMPORTS first.""" | |
152 | import __main__, keyword | |
153 | ||
154 | def class_members(object): | |
155 | names = dir (object) | |
156 | if hasattr (object, '__bases__'): | |
157 | for super in object.__bases__: | |
158 | names = class_members (super) | |
159 | return names | |
160 | ||
161 | names = set([]) | |
162 | base = None | |
163 | try: | |
164 | dict = __main__.__dict__.copy() | |
165 | if imports: exec imports in dict | |
166 | l = len (name) | |
167 | if not "." in name: | |
168 | for src in [dir (__builtins__), keyword.kwlist, dict.keys()]: | |
169 | for elt in src: | |
170 | if elt[:l] == name: names.add(elt) | |
171 | else: | |
172 | base = name[:name.rfind ('.')] | |
173 | name = name[name.rfind('.')+1:] | |
174 | try: | |
175 | object = eval (base, dict) | |
176 | names = set(dir (object)) | |
177 | if hasattr (object, '__class__'): | |
178 | names.add('__class__') | |
179 | names.update(class_members (object)) | |
180 | except: names = all_names (dict) | |
181 | except: | |
182 | print sys.exc_info() | |
183 | names = [] | |
184 | ||
185 | l = len(name) | |
186 | print '_emacs_out (', | |
187 | for n in names: | |
188 | if name == n[:l]: | |
189 | if base: print '"%s.%s"' % (base, n), | |
190 | else: print '"%s"' % n, | |
191 | print ')' | |
192 | ||
193 | def ehelp (name, imports): | |
194 | """Get help on string NAME. | |
195 | First try to eval name for, e.g. user definitions where we need | |
196 | the object. Otherwise try the string form.""" | |
197 | locls = {} | |
198 | if imports: | |
199 | try: exec imports in locls | |
200 | except: pass | |
201 | try: help (eval (name, globals(), locls)) | |
202 | except: help (name) | |
203 | ||
204 | def eimport (mod, dir): | |
205 | """Import module MOD with directory DIR at the head of the search path. | |
206 | NB doesn't load from DIR if MOD shadows a system module.""" | |
207 | from __main__ import __dict__ | |
208 | ||
209 | path0 = sys.path[0] | |
210 | sys.path[0] = dir | |
211 | try: | |
212 | try: | |
213 | if __dict__.has_key(mod) and inspect.ismodule (__dict__[mod]): | |
214 | reload (__dict__[mod]) | |
215 | else: | |
216 | __dict__[mod] = __import__ (mod) | |
217 | except: | |
218 | (type, value, tb) = sys.exc_info () | |
219 | print "Traceback (most recent call last):" | |
220 | traceback.print_exception (type, value, tb.tb_next) | |
221 | finally: | |
222 | sys.path[0] = path0 | |
223 | ||
224 | def modpath (module): | |
225 | """Return the source file for the given MODULE (or None). | |
226 | Assumes that MODULE.py and MODULE.pyc are in the same directory.""" | |
227 | try: | |
228 | path = __import__ (module).__file__ | |
229 | if path[-4:] == '.pyc' and os.path.exists (path[0:-1]): | |
230 | path = path[:-1] | |
231 | print "_emacs_out", path | |
232 | except: | |
233 | print "_emacs_out ()" | |
234 | ||
235 | # print '_emacs_ok' # ready for input and can call continuation | |
236 | ||
237 | # arch-tag: d90408f3-90e2-4de4-99c2-6eb9c7b9ca46 |