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
|