From: John M. <jm...@ma...> - 2005-10-07 03:51:24
|
Short version: getting xauth error opening display --- cut here --- [jm@jm4 ~]$ echo $DISPLAY :0.0 [jm@jm4 ~]$ cat /etc/issue Fedora Core release 4 (Stentz) Kernel \r on an \m [jm@jm4 ~]$ uname -a Linux jm4 2.6.12-1.1456_FC4 #1 Thu Sep 22 02:11:40 EDT 2005 i686 i686 i386 GNU/Linux [jm@jm4 ~]$ rpm -qa sbcl sbcl-0.9.3-1.rhfc4.ccrma [jm@jm4 ~]$ rpm -qa | egrep -i 'xlib|xorg' xorg-x11-font-utils-6.8.2-37.FC4.49.2 xorg-x11-tools-6.8.2-37.FC4.49.2 fonts-xorg-base-6.8.2-1 xorg-x11-deprecated-libs-6.8.2-37.FC4.49.2 xorg-x11-xauth-6.8.2-37.FC4.49.2 fonts-xorg-100dpi-6.8.2-1 fonts-xorg-truetype-6.8.2-1 xorg-x11-libs-6.8.2-37.FC4.49.2 xorg-x11-xfs-6.8.2-37.FC4.49.2 xorg-x11-Mesa-libGLU-6.8.2-37.FC4.49.2 xorg-x11-xdm-6.8.2-37.FC4.49.2 fonts-xorg-75dpi-6.8.2-1 xorg-x11-Mesa-libGL-6.8.2-37.FC4.49.2 xorg-x11-6.8.2-37.FC4.49.2 xorg-x11-devel-6.8.2-37.FC4.49.2 [jm@jm4 ~]$ sbcl This is SBCL 0.9.3, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (require :asdf) ("ASDF") * (require :clx) ; loading system definition from #P"/usr/lib/sbcl/systems/sb-bsd-sockets.asd" ; into #<PACKAGE "ASDF3893"> ; registering #<SYSTEM SB-BSD-SOCKETS {95A1399}> as SB-BSD-SOCKETS ; registering #<SYSTEM SB-BSD-SOCKETS-TESTS {996ABF1}> as SB-BSD-SOCKETS-TESTS ("SB-GROVEL" "SB-BSD-SOCKETS") * (xlib:open-default-display) debugger invoked on a SB-KERNEL:CASE-FAILURE: 6 fell through ECASE expression. Wanted one of (:INTERNET :LOCAL). Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (XLIB::READ-XAUTH-ENTRY #<SB-SYS:FD-STREAM for "file /home/jm/.Xauthority" {92EFD31}>) 0] :back 0: (XLIB::READ-XAUTH-ENTRY #<SB-SYS:FD-STREAM for "file /home/jm/.Xauthority" {92EFD31}>) 1: (XLIB::GET-BEST-AUTHORIZATION "" 0 :LOCAL) 2: (XLIB:OPEN-DISPLAY "" :DISPLAY 0 :PROTOCOL :LOCAL :AUTHORIZATION-NAME NIL :AUTHORIZATION-DATA NIL) 3: (SB-INT:EVAL-IN-LEXENV (XLIB:OPEN-DEFAULT-DISPLAY) #<NULL-LEXENV>) 4: (INTERACTIVE-EVAL (XLIB:OPEN-DEFAULT-DISPLAY)) 5: (SB-IMPL::REPL-FUN NIL) 6: ((LAMBDA ())) 7: ((LAMBDA ())) 8: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {90030ED}>) 9: (SB-IMPL::TOPLEVEL-REPL NIL) 10: (SB-IMPL::TOPLEVEL-INIT) 11: ((FLET SB-IMPL::RESTART-LISP)) 0] (xlib::get-default-display) ("" 0 0 :LOCAL) 0] (sb-ext:quit) [jm@jm4 ~]$ --- cut here --- This magical code posted to CMUCL help list changes but does not eliminate the error: --- cut here --- (defun get-best-authorization (host display protocol) (labels ((read-short (stream &optional (eof-errorp t)) (let ((high-byte (read-byte stream eof-errorp))) (and high-byte (dpb high-byte (byte 8 8) (read-byte stream))))) (read-short-length-string (stream) (let ((length (read-short stream))) (let ((string (make-string length))) (dotimes (k length) (setf (schar string k) (card8->char (read-byte stream)))) string))) (read-short-length-vector (stream) (let ((length (read-short stream))) (let ((vector (make-array length :element-type '(unsigned-byte 8)))) (dotimes (k length) (setf (aref vector k) (read-byte stream))) vector)))) ;; Original version didn't handle "localhost" correctly -- SEF. (if (string= host "localhost") (setq host (machine-instance))) (let ((pathname (authority-pathname))) (when pathname (with-open-file (stream pathname :element-type '(unsigned-byte 8) :if-does-not-exist nil) (when stream (let* ((host-family (ecase protocol ((:tcp :internet nil) 0) ;; The remaining protocols are not really supported -- SEF. ((:dna :DECnet) 1) ((:chaos) 2))) (host-address (rest (host-address host host-family)))) (loop (let ((family (read-short stream nil))) (cond ((null family) (return (values "" ""))) ; No useful entry found. -- SEF ((eql family 0) (let* ((address (read-short-length-vector stream)) (number (parse-integer (read-short-length-string stream))) (auth-name (read-short-length-string stream)) (auth-data (read-short-length-vector stream))) (when (and (= family host-family) (equal host-address (coerce address 'list)) (= number display) (string= auth-name "MIT-MAGIC-COOKIE-1")) (return (values auth-name auth-data))))) ;; This is the new case. The cookie contains a string naming the ;; host, then the display number, auth-name and auth-data. -- SEF ((eql family 256) (let* ((hname (read-short-length-string stream)) (number (parse-integer (read-short-length-string stream))) (auth-name (read-short-length-string stream)) (auth-data (read-short-length-vector stream))) (when (and (string= hname host) (= number display) (string= auth-name "MIT-MAGIC-COOKIE-1")) (return (values auth-name auth-data))))))))))))))) --- cut here --- #<PACKAGE "XLIB"> * STYLE-WARNING: redefining GET-BEST-AUTHORIZATION in DEFUN GET-BEST-AUTHORIZATION * (xlib:open-default-display) debugger invoked on a SB-KERNEL:CASE-FAILURE: :LOCAL fell through ECASE expression. Wanted one of (:CHAOS :DNA :DECNET :TCP :INTERNET NIL). Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (GET-BEST-AUTHORIZATION "" 0 :LOCAL) 0] --- cut here --- Any ideas? Thanks in advance, -jm -- ==== John Morrison ==== MAK Technologies Inc. ==== 10 Fawcett Street, Cambridge, MA 02138 ==== http://www.mak.com/ ==== vox:617-876-8085 x115 ==== fax:617-876-9208 ==== jm...@ma... |
From: John M. <jm...@ma...> - 2005-10-07 03:51:24
|
On Thursday 06 October 2005 10:46 pm, John Morrison wrote: > Short version: getting xauth error opening display Oh, yes, whoops, I did the "xhost +" stunt straightaway, but to no effect. -jm -- ==== John Morrison ==== MAK Technologies Inc. ==== 10 Fawcett Street, Cambridge, MA 02138 ==== http://www.mak.com/ ==== vox:617-876-8085 x115 ==== fax:617-876-9208 ==== jm...@ma... |
From: Christophe R. <cs...@ca...> - 2005-10-07 04:17:30
|
John Morrison <jm...@ma...> writes: > Short version: getting xauth error opening display Try pulling from my darcs tree at <http://common-lisp.net/~crhodes/clx>. Cheers, Christophe |