Re: Trouble running Emacs-EPL (to run perl in emacs).

[Adam Funk]

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)