Re: RFE: debugging in separate window

> * In message <9F8582E37B2EE5498E76392AEDDCD3FE0395823F@xxxxxxxxxxxxxxxxxxxxxx>
> * On the subject of "RFE: debugging in separate window"
> * Sent on Fri, 11 Apr 2003 14:02:18 +0200
> * Honorable "Hoehle, Joerg-Cyril" <Joerg-Cyril.Hoehle@xxxxxxxxxxxxx> writes:
>
> please have a short look at impnotes:
> Extensions-2.12. Other
> To have *DEBUG-IO* and *ERROR-OUTPUT* point to separate console windows (thus 
> keeping your standard console window clean from error messages) you can use:
>        (SETQ *ERROR-OUTPUT*
>          (SETQ *DEBUG-IO*
>            (OPEN "CON:0/0/500/300/CLISP-Debugger/AUTO/CLOSE"
>                    :DIRECTION :IO)))

UNIX:

(defun make-xterm-io ()
  (let* ((pipe (read-line (make-pipe-input-stream "mktemp fooXXXXXX")))
         tty-name xio)
    (shell (format nil "rm -f ~a; mknod ~a p; xterm -e 'tty >> ~a; cat ~a' &"
                   pipe pipe pipe pipe))
    (setq tty-name
          (with-open-file (s pipe :direction :input) (read-line s))
          xio (make-two-way-stream
               (open tty-name :direction :input)
               (open tty-name :direction :output)))
    (finalize xio (lambda (junk)
                    (declare (ignore junk))
                    (with-open-file (s pipe :direction :output)
                      (format s "goodbye!~%"))
                    (delete-file pipe)))
    xio))

(SETQ *ERROR-OUTPUT*
      (SETQ *DEBUG-IO* (make-xterm-io)))

the xterm will go when the stream is GCed, which will happen at a
non-deterministic time.

-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat8 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html>
We're too busy mopping the floor to turn off the faucet.



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf