mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

web: Export 'server-impl' procedures and the 'http' server implementation.

Browse source 
* module/web/server.scm: Export the 'server-impl' procedures.
* module/web/server/http.scm: Export 'http'.
This commit is contained in:
Ludovic Courtès 2015-03-10 09:01:24 +01:00 • committed by Andy Wingo
parent 704c911893
commit d848067b89
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/web/server.scm
View file

@ -1,6 +1,6 @@
;;; Web server
;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
;; Copyright (C) 2010, 2011, 2012, 2013, 2015 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@ -84,6 +84,15 @@
#:use-module (ice-9 iconv)
#:export (define-server-impl
lookup-server-impl
make-server-impl
server-impl?
server-impl-name
server-impl-open
server-impl-read
server-impl-write
server-impl-close
open-server
read-client
handle-request

5
module/web/server/http.scm
View file

@ -1,6 +1,6 @@
;;; Web I/O: HTTP
;; Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc.
;; Copyright (C) 2010, 2011, 2012, 2015 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@ -34,7 +34,8 @@
#:use-module (web request)
#:use-module (web response)
#:use-module (web server)
#:use-module (ice-9 poll))
#:use-module (ice-9 poll)
#:export (http))
(define (make-default-socket family addr port)