Цитата

---

Обычно, в примерах socket'ы берутся из черте чего. Например пакет PORT устарел, видно, морально - для GCL - коммент на open-server-socket ;FIXME много назад.
Мелочи работающей на SBCL, CLisp, GCL нынешних редакций так и не нашел.

---

Цитата

---

SmallPlushBear :
> На один экран это уж скорее к J - Не понял. что имелось в виду.

---

 

(defparameter *http-on* 10)

 

(defun wos ()

  (let ((s (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)))

    (setf (sb-bsd-sockets:non-blocking-mode s) t)

    (setf (sb-bsd-sockets:sockopt-reuse-address s) t)

    (sb-bsd-sockets:socket-bind s (sb-bsd-sockets:make-inet-address "127.0.0.1") 8888)

    (sb-bsd-sockets:socket-listen s 5)

    s))

(defun wcs (s)

  (sb-bsd-sockets:socket-close s))

 

(defparameter *S* (wos))

(defparameter sleeptime 0.001)

 

(defparameter st (sb-thread:make-thread 

  (lambda ()

 

    (loop while (= *http-on* 10) do 

    (let ((s (sb-bsd-sockets:socket-accept *s*)))

	  (if (null s) (let () (sleep sleeptime) (if (< sleeptime 0.1) (setq sleeptime (+ 0.001 sleeptime))) )

	    (let ((str (sb-bsd-sockets:socket-make-stream s :output t :input t :element-type 'character :buffering :none :auto-close t :serve-events t)))

		  (let ((req  (loop while (listen str) collect (read-line str)  )))

            (format t "~{~a~}" req)

		    (format t "serve /~%")

		       (force-output)

		       (format str "HTTP/1.1 200 OK~%Content-type: text/html~%~%")

		       (format str "Simple http server<br>")

               (format str "sleeptime was: ~d~%<br>" sleeptime)

               (format str "~{~a~^<br>~}<br>" req)

               (format str "Type (setf *http-on* 0) in REPL to stop server thread")

		       (close str)

           (setq sleeptime 0)

         ))))) 

  (wcs *S*)

  (write-line "http stopped"))))