[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Trouble running Emacs-EPL (to run perl in emacs).
From: |
Adam Funk |
Subject: |
Re: Trouble running Emacs-EPL (to run perl in emacs). |
Date: |
Wed, 24 Jan 2007 19:03:57 +0000 |
User-agent: |
slrn/0.9.8.1pl1 (Debian) |
On 2007-01-24, Stefan Monnier wrote:
> know nothing about Emacs-EPL, but if you turn on the
> "Enter Debugger on Quit/C-g" in the Options menu, then you should get
> a backtrace when you hit C-g. So reproduce the above hang and then press
> C-g to interrupt it and then show us the backtrace.
OK, here it is. I hope someone can read it!
Debugger entered--Lisp error: (quit)
accept-process-output(#<process perl>)
(progn (accept-process-output out) (if (eobp) (error "No output from Perl")))
(if (eobp) (progn (accept-process-output out) (if ... ...)))
(when (eobp) (accept-process-output out) (if (eobp) (error "No output from
Perl")))
(if ch (progn (unless ... ...) (backward-char)) (when (eobp)
(accept-process-output out) (if ... ...)) (forward-char) (char-before))
(save-current-buffer (set-buffer (epl-interp-buffer)) (if ch (progn ... ...)
(when ... ... ...) (forward-char) (char-before)))
(with-current-buffer (epl-interp-buffer) (if ch (progn ... ...) (when ... ...
...) (forward-char) (char-before)))
(let* ((out ...)) (with-current-buffer (epl-interp-buffer) (if ch ... ... ...
...)))
epl-read-char()
read(epl-read-char)
(let ((form ...) reply done msg) (epl-debug (format "Emacs(%d)<<< " ...) form
"\n") (unwind-protect (setq reply ... done t) (when ... ... ...)) (epl-debug
"Reply: " reply " (" (epl-interp-depth) ")\n") (setq msg (car reply) reply (cdr
reply)) (cond (... ...) (... ... ... ...) (... nil) (... ... ... ...) (... ...)
(... ...) (... ...) (t ...)))
(while t (let (... reply done msg) (epl-debug ... form "\n") (unwind-protect
... ...) (epl-debug "Reply: " reply " (" ... ")\n") (setq msg ... reply ...)
(cond ... ... ... ... ... ... ... ...)) (or epl-debugging (with-current-buffer
... ...)))
(catch (quote return) (epl-debug "+++ " depth "\n") (epl-interp-set-depth (1+
depth)) (while t (let ... ... ... ... ... ...) (or epl-debugging ...)))
(unwind-protect (catch (quote return) (epl-debug "+++ " depth "\n")
(epl-interp-set-depth ...) (while t ... ...)) (epl-debug "--- " depth "\n")
(epl-interp-set-depth depth))
(let ((depth ...)) (unwind-protect (catch ... ... ... ...) (epl-debug "--- "
depth "\n") (epl-interp-set-depth depth)))
epl-loop()
(condition-case err (epl-loop) (error (epl-destroy) (signal ... ...)))
(let* ((process-connection-type nil) (out ...) (epl-interp ...))
(condition-case err (epl-loop) (error ... ...)) (epl-interp-set-status (quote
ready)) epl-interp)
perl-interpreter-new()
(setq perl-interpreter (perl-interpreter-new))
(if perl-interpreter (epl-check) (setq perl-interpreter
(perl-interpreter-new)))
epl-init()
(epl-eval (epl-init) nil context "do { package main; " string " }")
perl-eval("2+2" scalar-context)
(prin1-to-string (perl-eval expression (if prefix ... ...)))
(message (prin1-to-string (perl-eval expression ...)))
perl-eval-expression("2+2" nil)
* call-interactively(perl-eval-expression)
execute-extended-command(nil)
* call-interactively(execute-extended-command)