From: <cli...@li...> - 2008-12-30 12:07:21
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/tests econnreset.lisp,NONE,1.1 ChangeLog,1.611,1.612 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Tue, 30 Dec 2008 04:03:14 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/tests econnreset.lisp,NONE,1.1 ChangeLog,1.611,1.612 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/tests In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv25608/tests Modified Files: ChangeLog Added Files: econnreset.lisp Log Message: new file for testing the ECONNRESET problem in socket-status, as reported by Don Cohen --- NEW FILE: econnreset.lisp --- #| this cannot be tested automatically because it reuires running clisp on a separate ("client") host as root: server XXX.XXX.XXX.XXX: (setf se (socket:socket-server 1234 :interface "XXX.XXX.XXX.XXX")) (setf st (socket:socket-accept se)) (socket:socket-status st) (write-line "foo" st) client: sudo clisp -q -norc -K full -i reset.lisp -x '(waitforpkt "XXX.XXX.XXX.XXX" 1234)' See <http://thread.gmane.org/gmane.lisp.clisp.general/12657>, specifically: http://article.gmane.org/gmane.lisp.clisp.general:12675 http://article.gmane.org/gmane.lisp.clisp.general:12691 http://article.gmane.org/gmane.lisp.clisp.general:12704 http://article.gmane.org/gmane.lisp.clisp.general:12694 http://article.gmane.org/gmane.lisp.clisp.general:12703 |# (defvar default-socket (rawsock:socket :inet :packet #+ignore :all #x300)) (unless (> default-socket 0) (error "socket failed - running as root?")) (defvar default-buffer (make-array 1518 :element-type '(unsigned-byte 8) :fill-pointer 100)) (defvar default-device (rawsock:make-sockaddr :packet (make-array 14 :element-type '(unsigned-byte 8)))) (defun reset () ;; change flags to from ack to rst+ack (setf (aref default-buffer 47) 20) (setf (aref default-buffer 46) 80) ; tcp header length = 5 words ;; set buffer length (setf (fill-pointer default-buffer) 54) ; 60 ?? (setf (aref default-buffer 17) 40) (rawsock:tcpcsum default-buffer) ; not returning right answer? (setf ipc (rawsock:ipcsum default-buffer)) ; returns bytes reversed? (rawsock:sendto default-socket default-buffer default-device)) (defun waitforpkt (serverip serverport &key (show 100)) (loop :with sock = nil :and serverip-list = (read-from-string (nsubstitute #\Space #\. (ext:string-concat "(" serverip ")"))) :for i :from 0 :with len :do (setf (fill-pointer default-buffer) 1518) (setf len (rawsock:recvfrom default-socket default-buffer default-device)) (when (= 0 (mod i show)) (princ "*") (force-output) (unless sock (setq sock (socket:socket-connect serverport serverip)) (princ "#") (force-output))) (when (and (>= len 52) (= (aref default-buffer 12) 8) ; ip (= (aref default-buffer 13) 0) (= (aref default-buffer 14) 69) ; ipv4, len 5 (= (aref default-buffer 23) 6) ; tcp (loop for j from 0 as a in serverip-list always (= a (aref default-buffer (+ j 30)))) ; correct ip addr (= serverport (+ (aref default-buffer 37) (* 256 (aref default-buffer 36)))) (= 16 (aref default-buffer 47))) (return (reset))))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.611 retrieving revision 1.612 diff -u -d -r1.611 -r1.612 --- ChangeLog 28 Dec 2008 06:43:01 -0000 1.611 +++ ChangeLog 30 Dec 2008 04:03:12 -0000 1.612 @@ -1,3 +1,8 @@ +2008-12-29 Sam Steingold <sd...@gn...> + + * econnreset.lisp: new file for testing the ECONNRESET problem in + socket-status, as reported by Don Cohen + 2008-12-28 Sam Steingold <sd...@gn...> * ext-clisp.tst: add a test for c-CONCATENATE ------------------------------ ------------------------------------------------------------------------------ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 32, Issue 36 ***************************************** |