76 lines
2.3 KiB
EmacsLisp
76 lines
2.3 KiB
EmacsLisp
|
;;; web-server-autoloads.el --- automatically extracted autoloads
|
|||
|
|
;;
|
|||
|
|
;;; Code:
|
|||
|
|
|
|||
|
|
(add-to-list 'load-path (directory-file-name
|
|||
|
|
(or (file-name-directory #$) (car load-path))))
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;;### (autoloads nil "web-server" "web-server.el" (0 0 0 0))
|
|||
|
|
;;; Generated autoloads from web-server.el
|
|||
|
|
|
|||
|
|
(autoload 'ws-start "web-server" "\
|
|||
|
|
Start a server using HANDLERS and return the server object.
|
|||
|
|
|
|||
|
|
HANDLERS may be a single function (which is then called on every
|
|||
|
|
request) or a list of conses of the form (MATCHER . FUNCTION),
|
|||
|
|
where the FUNCTION associated with the first successful MATCHER
|
|||
|
|
is called. Handler functions are called with two arguments, the
|
|||
|
|
process and the request object.
|
|||
|
|
|
|||
|
|
A MATCHER may be either a function (in which case it is called on
|
|||
|
|
the request object) or a cons cell of the form (KEYWORD . STRING)
|
|||
|
|
in which case STRING is matched against the value of the header
|
|||
|
|
specified by KEYWORD.
|
|||
|
|
|
|||
|
|
Any supplied NETWORK-ARGS are assumed to be keyword arguments for
|
|||
|
|
`make-network-process' to which they are passed directly.
|
|||
|
|
|
|||
|
|
For example, the following starts a simple hello-world server on
|
|||
|
|
port 8080.
|
|||
|
|
|
|||
|
|
(ws-start
|
|||
|
|
(lambda (request)
|
|||
|
|
(with-slots (process headers) request
|
|||
|
|
(process-send-string process
|
|||
|
|
\"HTTP/1.1 200 OK\\r\\nContent-Type: text/plain\\r\\n\\r\\nhello world\")))
|
|||
|
|
8080)
|
|||
|
|
|
|||
|
|
Equivalently, the following starts an identical server using a
|
|||
|
|
function MATCH and the `ws-response-header' convenience
|
|||
|
|
function.
|
|||
|
|
|
|||
|
|
(ws-start
|
|||
|
|
'(((lambda (_) t) .
|
|||
|
|
(lambda (proc request)
|
|||
|
|
(ws-response-header proc 200 '(\"Content-type\" . \"text/plain\"))
|
|||
|
|
(process-send-string proc \"hello world\")
|
|||
|
|
t)))
|
|||
|
|
8080)
|
|||
|
|
|
|||
|
|
\(fn HANDLERS PORT &optional LOG-BUFFER &rest NETWORK-ARGS)" nil nil)
|
|||
|
|
|
|||
|
|
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "web-server" '("ws-")))
|
|||
|
|
|
|||
|
|
;;;***
|
|||
|
|
|
|||
|
|
;;;### (autoloads nil "web-server-status-codes" "web-server-status-codes.el"
|
|||
|
|
;;;;;; (0 0 0 0))
|
|||
|
|
;;; Generated autoloads from web-server-status-codes.el
|
|||
|
|
|
|||
|
|
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "web-server-status-codes" '("ws-status-codes")))
|
|||
|
|
|
|||
|
|
;;;***
|
|||
|
|
|
|||
|
|
;;;### (autoloads nil nil ("web-server-pkg.el") (0 0 0 0))
|
|||
|
|
|
|||
|
|
;;;***
|
|||
|
|
|
|||
|
|
;; Local Variables:
|
|||
|
|
;; version-control: never
|
|||
|
|
;; no-byte-compile: t
|
|||
|
|
;; no-update-autoloads: t
|
|||
|
|
;; coding: utf-8
|
|||
|
|
;; End:
|
|||
|
|
;;; web-server-autoloads.el ends here
|