lisp src webserver.lisp土地

Question

当我在“lisp之地”学习时，第12章和第13章关于“套接字”。我使用lispbox，所以我需要最后安装一个socket.At，我发现usocket可用。这是一个关于如何使用usocket来购买how服务器的示例。

(defun serve (request-handler)
  "serve as a web server,used to handle request 
   like 'http://127.0.0.1:8080/greeting'"
 (let ((socket (usocket:socket-listen "0.0.0.0" 8080 :reuse-address t)))
 (unwind-protect
   (loop (with-open-stream (stream 
                            (usocket:socket-stream 
                                      (usocket:socket-accept socket)))
            (let* ((url    (parse-url (read-line stream)))
                    (path   (car url))
                    (header (get-header stream))
                    (params (append (cdr url) 
                                    (get-content-params stream header)))
                    (*standard-output* stream))
               (funcall request-handler path header params))))
   (usocket:socket-close socket))))

http://landoflisp.com/webserver.lisp中的起源“服务”功能

(defun serve (request-handler)
 (let ((socket (socket-server 8080)))
 (unwind-protect
   (loop (with-open-stream (stream (socket-accept socket))
             (let* ((url    (parse-url (read-line stream)))
                    (path   (car url))
                    (header (get-header stream))
                    (params (append (cdr url) 
                                    (get-content-params stream header)))
                    (*standard-output* stream))
               (funcall request-handler path header params))))
   (socket-server-close socket))))

Answer 1

API定义

• 高级(类)
• 流- usocket (类；usocket导数)
• 流服务器- usocket (类；usocket导数)
• 套接字连接(功能)用于创建一个活动/连接的套接字套接字-连接主机端口&键元素类型，其中` host‘是一个向量化的ip或虚点ip地址或主机名的字符串表示，以便在DNS系统中查找。
• 套接字-侦听(函数)以创建被动/侦听套接字-侦听主机端口&密钥重用地址待定元素-类型，其中` host‘具有与上面相同的定义
• 套接字-接受(方法)来创建一个主动/连接的套接字-接受套接字&键元素类型返回(服务器端)一个从监听/被动套接字派生的连接套接字。
• 套接字-关闭(方法)套接字-关闭套接字，其中套接字以前返回的套接字
• 套接字(usocket槽访问器)，内部/实现定义的套接字表示。
• socket流(usocket槽访问器)，套接字流套接字，其返回值满足正常流接口。