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