diff options
Diffstat (limited to 'etc/emacs.py')
| -rw-r--r-- | etc/emacs.py | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/etc/emacs.py b/etc/emacs.py new file mode 100644 index 00000000000..d672dbf63cb --- /dev/null +++ b/etc/emacs.py @@ -0,0 +1,112 @@ +"""Definitions used by commands sent to inferior Python in python.el.""" + +# Copyright (C) 2004 Free Software Foundation, Inc. +# Author: Dave Love <d.love@dl.ac.uk> + +# This file is part of GNU Emacs. + +# GNU Emacs is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# GNU Emacs is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with GNU Emacs; see the file COPYING. If not, write to the +# Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. + +import os, sys, traceback, inspect, rlcompleter, __main__ + +__all__ = ["eexecfile", "args", "complete", "ehelp", "eimport"] + +def eexecfile (file): + """Execute FILE and then remove it. + If we get an exception, print a traceback with the top frame + (oursleves) excluded.""" + try: + try: execfile (file, globals (), globals ()) + except: + (type, value, tb) = sys.exc_info () + # Lose the stack frame for this location. + tb = tb.tb_next + if tb is None: # print_exception won't do it + print "Traceback (most recent call last):" + traceback.print_exception (type, value, tb) + finally: + os.remove (file) + +def eargs (name): + "Get arglist of NAME for Eldoc &c." + try: + parts = name.split ('.') + if len (parts) > 1: + exec 'import ' + parts[0] # might fail + func = eval (name) + if inspect.isbuiltin (func): + doc = func.__doc__ + if doc.find (' ->') != -1: + print '_emacs_out', doc.split (' ->')[0] + elif doc.find ('\n') != -1: + print '_emacs_out', doc.split ('\n')[0] + return + if inspect.ismethod (func): + func = func.im_func + if not inspect.isfunction (func): + return + (args, varargs, varkw, defaults) = inspect.getargspec (func) + # No space between name and arglist for consistency with builtins. + print '_emacs_out', \ + func.__name__ + inspect.formatargspec (args, varargs, varkw, + defaults) + except: pass + +def complete (text, namespace = None): + """Complete TEXT in NAMESPACE and print a Lisp list of completions. + NAMESPACE is currently not used.""" + if namespace is None: namespace = __main__.__dict__ + c = rlcompleter.Completer (namespace) + try: + if '.' in text: + matches = c.attr_matches (text) + else: + matches = c.global_matches (text) + print '_emacs_out (', + for elt in matches: + print '"%s"' % elt, + print ')' + except: + print '_emacs_out ()' + +def ehelp (name): + """Get help on string NAME. + First try to eval name for, e.g. user definitions where we need + the object. Otherwise try the string form.""" + try: help (eval (name)) + except: help (name) + +def eimport (mod, dir): + """Import module MOD with directory DIR at the head of the search path. + NB doesn't load from DIR if MOD shadows a system module.""" + path0 = sys.path[0] + sys.path[0] = dir + try: + try: + if globals().has_key(mod) and inspect.ismodule (eval (mod)): + reload(eval (mod)) + else: + globals ()[mod] = __import__ (mod) + except: + (type, value, tb) = sys.exc_info () + print "Traceback (most recent call last):" + traceback.print_exception (type, value, tb.tb_next) + finally: + sys.path[0] = path0 + +print '_emacs_ok' # ready for input and can call continuation + +# arch-tag: d90408f3-90e2-4de4-99c2-6eb9c7b9ca46 |