annotate etc/emacs.py @ 77156:563a04f93ea0

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