Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding simple example http server to docs

Browse source
This commit is contained in:
Alex Shinn 2015-07-06 23:33:00 +09:00
parent 2ee9b3098d
commit 76d088d260
1 changed files with 18 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lib/chibi/net/http-server.scm
View file

@ -1,15 +1,27 @@
;; http-server.scm -- combinator-based http server ;; http-server.scm -- combinator-based http server
;; Copyright (c) 2013-2014 Alex Shinn. All rights reserved. ;; Copyright (c) 2013-2015 Alex Shinn. All rights reserved.
;; BSD-style license: http://synthcode.com/license.txt ;; BSD-style license: http://synthcode.com/license.txt
;;> Runs an http server listening at the given address, with the given ;;> Runs an http server listening at the given address, with the given
;;> servlet. ;;> servlet.
;;> ;;>
;;> An servlet is a procedure which takes three arguments: an ;;> An servlet is a procedure which takes four arguments: a
;;> \scheme{Http-Request} record, which contains the I/O ports and ;;> \scheme{(chibi config)} config object, an \scheme{Http-Request} record,
;;> parsed request and headers; a \scheme{next} procedure to call the ;;> which contains the I/O ports and parsed request and headers;
;;> next available servlet if any, and a \scheme{restart} procedure to ;;> a \scheme{next} procedure to call the next available servlet if any,
;;> restart the servlets with a new request. ;;> and a \scheme{restart} procedure to restart the servlets with a new
;;> request.
;;>
;;> A simple page view counter could be run as:
;;>
;;> \example{
;;> (let ((count 0))
;;> (run-http-server
;;> 8000
;;> (lambda (cfg request next restart)
;;> (set! count (+ 1 count))
;;> (servlet-write request (sxml->xml `(html (body (p ,count))))))))
;;> }
(define (run-http-server listener-or-addr servlet . o) (define (run-http-server listener-or-addr servlet . o)
(let ((cfg (if (pair? o) (car o) (make-conf '() #f #f #f)))) (let ((cfg (if (pair? o) (car o) (make-conf '() #f #f #f))))