pymacs.elc

;ELC
;;; Compiled by philipp@cassiopeia on Wed Aug 10 23:21:32 2011
;;; from file /home/philipp/elisp/pymacs.el
;;; in Emacs version 23.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@40 Set to t if hash tables are available.
(defvar pymacs-use-hash-tables (byte-code "\300\301!\205\300\302!\205\300\303!\207" [fboundp make-hash-table gethash puthash] 2) (#$ . 504))
(byte-code "\300\301\302\303!\203\f\303\202\302\304!\203\304\202\305\"\210\302\306!\203'\300\307\310\"\210\2026\300\307\302\311!\2033\311\2024\305\"\210\302\312!\203D\300\313\312\"\210\202W\302\314!\203R\300\313\315\"\210\202W\300\313\305\"\210\300\316\317K\"\210\302\320!\203k\300\321\320\"\210\202p\300\321\322\"\210\300\323\302\324!\203|\324\202\207\302\325!\203\206\325\202\207\305\"\207" [defalias pymacs-cancel-timer fboundp cancel-timer delete-itimer ignore set-process-query-on-exit-flag pymacs-kill-without-query #[(process) "\301\302\"\207" [process set-process-query-on-exit-flag nil] 3 "Tell recent Emacs how to quickly destroy PROCESS while exiting."] process-kill-without-query-process multibyte-string-p pymacs-multibyte-string-p find-charset-string #[(string) "\301!\302\235?\207" [string find-charset-string (nil (ascii))] 2 "Tell XEmacs if STRING should be handled as multibyte."] pymacs-report-error error set-buffer-multibyte pymacs-set-buffer-multibyte #[(flag) "\211\207" [flag enable-multibyte-characters] 2 "For use in Emacs 20.2 or earlier.  Under XEmacs: no operation."] pymacs-timerp timerp itimerp] 4)
#@129 List of additional directories to search for Python modules.
The directories listed will be searched first, in the order given.
(defvar pymacs-load-path nil (#$ . 1850))
#@393 Keep the communication buffer growing, for debugging.
When this variable is nil, the `*Pymacs*' communication buffer gets erased
before each communication round-trip.  Setting it to `t' guarantees that
the full communication is saved, which is useful for debugging.
It could also be given as (KEEP . LIMIT): whenever the buffer exceeds LIMIT
bytes, it is reduced to approximately KEEP bytes.
(defvar pymacs-trace-transit '(5000 . 30000) (#$ . 2027))
#@215 Transmit copies to Python instead of Lisp handles, as much as possible.
When this variable is nil, most mutable objects are transmitted as handles.
This variable is meant to be temporarily rebound to force copies.
(defvar pymacs-forget-mutability nil (#$ . 2484))
#@257 Prefer transmitting Lisp strings to Python as handles.
When this variable is nil, strings are transmitted as copies, and the
Python side thus has no way for modifying the original Lisp strings.
This variable is ignored whenever `forget-mutability' is set.
(defvar pymacs-mutable-strings nil (#$ . 2755))
#@140 Maximum reasonable time, in seconds, for starting the Pymacs helper.
A machine should be pretty loaded before one needs to increment this.
(defvar pymacs-timeout-at-start 30 (#$ . 3066))
#@136 Expected maximum time, in seconds, to get the first line of a reply.
The status of the Pymacs helper is checked at every such timeout.
(defvar pymacs-timeout-at-reply 5 (#$ . 3260))
#@134 Expected maximum time, in seconds, to get another line of a reply.
The status of the Pymacs helper is checked at every such timeout.
(defvar pymacs-timeout-at-line 2 (#$ . 3449))
#@92 Should the Pymacs helper be restarted whenever it dies?
Possible values are nil, t or ask.
(defvar pymacs-auto-restart 'ask (#$ . 3634))
#@135 If zombies should trigger hard errors, whenever they get called.
If `nil', calling a zombie will merely produce a diagnostic message.
(defvar pymacs-dreadful-zombies nil (#$ . 3778))
#@393 Import the Python module named MODULE into Emacs.
Each function in the Python module is made available as an Emacs function.
The Lisp name of each function is the concatenation of PREFIX with
the Python name, in which underlines are replaced by dashes.  If PREFIX is
not given, it defaults to MODULE followed by a dash.
If NOERROR is not nil, do not raise error when the module is not found.
(defalias 'pymacs-load #[(module &optional prefix noerror) "\305\306\"\210\307\310	#\211\203\311\n!\305\312\"\210)\202.\f\203*\305\313\"\210\314\202.\315\313\")\207" [module prefix lisp-code result noerror message "Pymacs loading %s..." pymacs-call "pymacs_load_helper" eval "Pymacs loading %s...done" "Pymacs loading %s...failed" nil pymacs-report-error] 5 (#$ . 3968) (let* ((module (read-string "Python module? ")) (default (concat (car (last (split-string module "\\."))) "-")) (prefix (read-string (format "Prefix? [%s] " default) nil nil default))) (list module prefix))])
#@60 Compile TEXT as a Python expression, and return its value.
(defalias 'pymacs-eval #[(text) "\302\303\304D\"t\203\305\306	\"\210	)\207" [text value pymacs-serve-until-reply "eval" princ message "%S"] 4 (#$ . 4958) "sPython expression? "])
#@132 Compile and execute TEXT as a sequence of Python statements.
This functionality is experimental, and does not appear to be useful.
(defalias 'pymacs-exec #[(text) "\302\303\304D\"t\203\305\306	\"\210	)\207" [text value pymacs-serve-until-reply "exec" princ message "%S"] 4 (#$ . 5207) "sPython statements? "])
#@296 Return the result of calling a Python function FUNCTION over ARGUMENTS.
FUNCTION is a string denoting the Python function, ARGUMENTS are separate
Lisp expressions, one per argument.  Immutable Lisp constants are converted
to Python equivalents, other structures are converted into Lisp handles.
(defalias 'pymacs-call #[(function &rest arguments) "\302\303\304\305D\305	DE\"\207" [function arguments pymacs-serve-until-reply "eval" pymacs-print-for-apply quote] 6 (#$ . 5528)])
#@278 Return the result of calling a Python function FUNCTION over ARGUMENTS.
FUNCTION is a string denoting the Python function, ARGUMENTS is a list of
Lisp expressions.  Immutable Lisp constants are converted to Python
equivalents, other structures are converted into Lisp handles.
(defalias 'pymacs-apply #[#'arguments "\302\303\304\305D\305	DE\"\207" [function arguments pymacs-serve-until-reply "eval" pymacs-print-for-apply quote] 6 (#$ . 6014)])
(byte-code "\300\301\302\"\210\303\304\305\306\307$\210\310\304\307\"\210\311\312\313\"\207" [eval-after-load desktop (push "\\*Pymacs\\*" desktop-clear-preserve-buffers) ad-add-advice documentation (pymacs-ad-documentation nil t (advice lambda nil (let* ((reference (pymacs-python-reference function)) (python-doc (when reference (pymacs-eval (format "doc_string(%s)" reference))))) (if (or reference python-doc) (setq ad-return-value (concat "It interfaces to a Python function.\n\n" (when python-doc (if raw python-doc (substitute-command-keys python-doc))))) ad-do-it)))) around nil ad-activate defalias pymacs-python-reference #[(object) "\305!\203\306!\307	!\205$	G\310V\205$	@\311=\205$	\211AA)\211\203=@<\203=\211@@)\312=\203=A\203~@;\204~G\313U\203~@\307\f!\203}\fG\314U\203}\f@\315=\203}\f\211A@)@\316=\203}\f\211A@)\211A@))*\242\317=\205\213\320\321A\"\207" [object definition x body expression functionp indirect-function pymacs-proper-list-p 2 lambda interactive 1 3 pymacs-apply quote pymacs-python format "python[%d]"] 4]] 5)
(defalias 'pymacs-file-handler #[(operation &rest arguments) "\304=\203$	@\305\306O\307	\"\206 \304\n\310P!\206 \304\n\311P!)\206\203\312=\203Q\307\304	@C\"\204Q\304	@!\203Q\313\314	@\305\306O\315#\211\204L\316\317!\210\320!)\207\321=\203\307\304	@C\"\204\304	@!\203\313\314	@\305\306O\315#\211\204y\316\317!\210\322!c)\207\307	\"\207" [operation arguments module lisp-code file-readable-p 0 -3 pymacs-file-force ".py" ".pyc" load pymacs-call "pymacs_load_helper" nil pymacs-report-error "Python import error" eval insert-file-contents prin1-to-string] 6])
(defalias 'pymacs-file-force #[(operation arguments) "\304	=\205\nB	\305	\"*\207" [inhibit-file-name-operation operation inhibit-file-name-handlers arguments pymacs-file-handler apply] 3])
#@63 List of received IDs, currently allocated on the Python side.
(defvar pymacs-used-ids nil (#$ . 8322))
#@64 Weak hash table, meant to find out which IDs are still needed.
(defvar pymacs-weak-hash nil (#$ . 8431))
#@70 Flag that it is desirable to clean up unused IDs on the Python side.
(defvar pymacs-gc-wanted nil (#$ . 8542))
#@68 Flag that a new Pymacs garbage collection should just not run now.
(defvar pymacs-gc-inhibit nil (#$ . 8659))
#@130 Timer to trigger Pymacs garbage collection at regular time intervals.
The timer is used only if `post-gc-hook' is not available.
(defvar pymacs-gc-timer nil (#$ . 8776))
(defalias 'pymacs-schedule-gc #[(&optional xemacs-list) "?\205\302\211\207" [pymacs-gc-inhibit pymacs-gc-wanted t] 2])
(defalias 'pymacs-garbage-collect #[nil "\205G	?\205G\306\211\n\307\211
\2039
@\f
A\310\f
\"\2030\f\fB\2025\fB)\202\f\307\205F\311\312\"-\207" [pymacs-use-hash-tables pymacs-gc-inhibit pymacs-used-ids unused-ids used-ids ids t nil gethash pymacs-apply "free_python" pymacs-forget-mutability id pymacs-weak-hash pymacs-gc-wanted] 5])
(defalias 'pymacs-defuns #[(arguments) "G\304Y\205!@A@\3058\n\306	\"M\210\304\233+\202\207" [arguments interaction name index 3 2 pymacs-defun] 4])
(defalias 'pymacs-defun #[(index interaction) "\303!\n\204\304\305\306\307	D\310BBE\202=\n;\203*\304\311\312\nD\306\307	D\313BBF\202=\304\314\312\315\307\303\n!DDD\306\307	D\316BBF)\207" [index object interaction pymacs-python lambda (&rest arguments) pymacs-apply quote (arguments) (&rest arguments) interactive (arguments) (&rest arguments) pymacs-call (arguments)] 7])
(defalias 'pymacs-python #[(index) "\305B\n\203\306	#\210\fB	)\207" [index object pymacs-use-hash-tables pymacs-weak-hash pymacs-used-ids pymacs-python puthash] 4])
#@52 Vector of handles to hold transmitted expressions.
(defvar pymacs-lisp nil (#$ . 10150))
#@38 List of unallocated indices in Lisp.
(defvar pymacs-freed-list nil (#$ . 10245))
(defalias 'pymacs-allocate-lisp #[(expression) "\204A	\211G\306!\203\307\202\211\310\245\\\211\311\f\312\"
\313V\203@
S\211W\2039	
\n
HI\210\202 
B\202 ,@\fA	\f
I\210\f)\207" [pymacs-freed-list pymacs-lisp previous old-size new-size counter zerop 100 2 make-vector nil 0 index expression] 5])
(defalias 'pymacs-free-lisp #[(indices) "\205@\n	\304I\210	BA)\202\207" [indices index pymacs-lisp pymacs-freed-list nil] 3])
(defalias 'pymacs-print-for-apply #[#'arguments "\304\305\n\242\306=\203\307\310\311\nA\"!\210\202\307\n!\210\307\312!\210\2035@A\307	!\210\313\314!\210\202\307\315!*\207" [argument separator function arguments "" nil pymacs-python princ format "python[%d]" "(" ", " pymacs-print-for-eval ")"] 4])
(defalias 'pymacs-print-for-eval #[(expression) "\306	\204\307\310!\210\311\202'
	\311=\203\307\312!\210\311\202'
	\247\203,\307	!\210\311\202'
	;\203o\n\2049\204'
\313	!\211\203H\314	\315\"\202K\316	!\317\320
G\306
$\210\307\321\322\323\324
!\325\"\326#!\210\f\203i\307\327!\210*\311\202'
	9\203\225\330	!1	\3311!=\203\221\307\332!\210\3331!\210\307\334!\210\311)\202'
\335	!\203\342\n\203'
	G\32023\307\336!\21023W\203\315\3372!\204\275\307\340!\210\341	2H!\2102T\2112\202\2543\342U\203\330\307\343!\210\307\344!\210\311*\202'
	\242\345=\203\373\307\346!\210\307	A!\210\307\334!\210\311\202'
\347	!\203'
\n\203'
\307\350!\210\341	@!\210	A\211\203!
\307\340!\210\341	@!\210\202
\307\334!\210\311?\205o
\335	!\2036
\351\202Z
4\203E
\352	!\203E
\353\202Z
\354	!\203O
\355\202Z
\347	!\203Y
\356\202Z
\3575\3075!\210\307\336!\210\307\360	!!\210\307\344!))\207" [done expression pymacs-forget-mutability pymacs-mutable-strings multibyte text nil princ "None" t "True" pymacs-multibyte-string-p encode-coding-string utf-8 copy-sequence set-text-properties 0 mapconcat identity split-string prin1-to-string "\n" "\\n" ".encode('ISO-8859-1').decode('UTF-8')" symbol-name intern-soft "lisp[" prin1 "]" vectorp "(" zerop ", " pymacs-print-for-eval 1 "," ")" pymacs-python "python[" pymacs-proper-list-p "[" "Vector" hash-table-p "Table" bufferp "Buffer" "List" "Lisp" pymacs-allocate-lisp name counter limit pymacs-use-hash-tables class] 7])
#@48 Communication buffer between Emacs and Python.
(defvar pymacs-transit-buffer nil (#$ . 12585))
(defalias 'pymacs-start-services #[nil "\306\307!rq\210\310 \210\311 \210\312\313!\210\314\315!\210\316 \317\216\320\321\322\323\324!\211\203-\n\325\232\2031\326\2022\n)\327\330\331\332Y\205=\333\334\335\f\"\"&\336
!\210eb\210\337\340\313\341#\204e\342
>\"\204I\343\344>\"\210\202I\345
!\346\225\347\350\351!!\\?@\352@!?W\203\215\342
>\"\204t\343\353!\210\202t+\346\225b\210\354p!A\355A!\203\312AG\356U\203\312A@\357=\203\312A\211BA@)\360\230\204\316\343\361A\211BA@)\"\210\202\316\343\362!\210,C\204\332\341D\202

E\203\362\341\211FGH\363\364E\"\210+\313E\365\366\367\"D\370\371!\203
\372\371\373\"\210\202

\374\375\211\373#I\211H)\207" [buffer save-match-data-internal python emacs-major-version pymacs-load-path process get-buffer-create "*Pymacs*" erase-buffer buffer-disable-undo pymacs-set-buffer-multibyte nil set-buffer-file-coding-system raw-text match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) apply start-process "pymacs" getenv "PYMACS_PYTHON" "" "python" "-c" "import sys; from Pymacs.pymacs import main; main(*sys.argv[1:])" append 24 ("-f") mapcar expand-file-name pymacs-kill-without-query re-search-forward "<\\([0-9]+\\)	" t accept-process-output pymacs-report-error "Pymacs helper did not start within %d seconds" process-mark 0 string-to-number match-string 1 marker-position "Pymacs helper probably was interrupted at start" read pymacs-proper-list-p 2 version "0.24-beta2" "Pymacs Lisp version is 0.24-beta2, Python is %s" "Pymacs got an invalid initial reply" pymacs-apply "zombie_python" make-hash-table :weakness value boundp post-gc-hook add-hook pymacs-schedule-gc run-at-time 20 pymacs-timeout-at-start limit-position marker reply x pymacs-use-hash-tables pymacs-weak-hash pymacs-used-ids pymacs-gc-inhibit pymacs-forget-mutability pymacs-transit-buffer pymacs-gc-timer] 13])
(defalias 'pymacs-terminate-services #[nil "\306 \210\307 \210\203\310\311!\205;\312\313!\203\314\313\315\"\210\202(\316	!\203(\317	!\210\n\2030\320\n!\210\321\211\321\211\321\211\207" [pymacs-used-ids pymacs-gc-timer pymacs-transit-buffer pymacs-gc-inhibit pymacs-lisp pymacs-freed-list garbage-collect pymacs-garbage-collect yes-or-no-p "Killing the Pymacs helper might create zombie objects.  Kill? " boundp post-gc-hook remove-hook pymacs-schedule-gc pymacs-timerp pymacs-cancel-timer kill-buffer nil] 4 nil nil])
(defalias 'pymacs-serve-until-reply #[(action inserter) "\203\306!\203\307!\204-	\203*\n\310=\204*\n\311=\203&\312\313!\204*\314\315!\210\316 \210\2034\317 \210\310\320\211$
\204\f
\321%&\"\211'@\211%\322=\203j\323'\211(A@)!\210'\211(AA)\211'@%\324'\211(A@)!\211)A*)@%\325=\203\245*\203\227\326%\327\330\fDD&\202
\331%\332\333\327\fDE&\202
%\334=\203\315*\203\277\326%\332\335\327\fDE&\202
\331%\332\336\327\fDE&\202
%\337=\203\346*\203\336\310\202
\314\340\f\"\210\202
%\341=\203
*\203\372\314\342\f\"\210\202
\314\340\f\"\210\202
\314\343'\"\210+\202;\f+\207" [pymacs-transit-buffer pymacs-weak-hash pymacs-auto-restart pymacs-gc-wanted value done buffer-name get-buffer-process t ask yes-or-no-p "The Pymacs helper died.  Restart it? " pymacs-report-error "There is no Pymacs helper!" pymacs-start-services pymacs-garbage-collect nil pymacs-round-trip free pymacs-free-lisp pymacs-interruptible-eval eval "return" pymacs-print-for-eval quote "raise" let ((pymacs-forget-mutability t)) expand ((pymacs-forget-mutability t)) ((pymacs-forget-mutability t)) return "%s" raise "Python: %s" "Protocol error: %s" inhibit-quit action inserter form x pair success] 5])
(defalias 'pymacs-round-trip #[(action inserter) "rq\210	\204\306 \210\202:	:\203:\307 	AV\203:\307 	@Z\211\310V\2039\212\nb\210h\311>\2044\312y\210e`|\210))\313!\314!\315!`
U$\316\211%&\316'\212\317 (\320\216\321
!%
)\322*!\210\322\323!\210\324+!\210)
b\210h\325U\204\200\322\326
\"\210%b\210\327\330
%Z\"c\210\321
!&\331%
#\210\f\332=\203\273&b\210\333\334\316\335#\204\273\336,\"\204\231\314!\211\202\232\f\332=\203\353\310\225\337\340\312!!\\-\f\332=\203\352\321
!-W\203\352\336.\"\204\313\314!\211\202\314)\f\332=\204\371\341\342\f\"\210\202
\310\225b\210\343p!'+$\203
	\204

b\210'.\207" [pymacs-transit-buffer pymacs-trace-transit cut process status marker erase-buffer buffer-size 0 (0 10) 1 get-buffer-process process-status process-mark nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) marker-position princ " " eval 10 "\n" format ">%d	" process-send-region run re-search-forward "<\\([0-9]+\\)	" t accept-process-output string-to-number match-string pymacs-report-error "Pymacs helper status is `%S'" read moving send-position reply-position reply save-match-data-internal standard-output action inserter pymacs-timeout-at-reply limit-position pymacs-timeout-at-line] 5])
(defalias 'pymacs-interruptible-eval #[(expression) "\300\301\302\217\207" [info (byte-code "\302\303	!)\304B\207" [inhibit-quit expression nil eval t] 2) ((quit (byte-code "\302\303	!\210\304\305B\207" [quit-flag pymacs-transit-buffer t interrupt-process "*Interrupted!*" nil] 2)) (error (byte-code "\301!\302B\207" [info prin1-to-string nil] 2)))] 3])
(defalias 'pymacs-proper-list-p #[(expression) "?\206:\205\301!A?\207" [expression last] 2])
(provide 'pymacs)