mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
web: Export 'server-impl' procedures and the 'http' server implementation.
* module/web/server.scm: Export the 'server-impl' procedures. * module/web/server/http.scm: Export 'http'.
This commit is contained in:
parent
704c911893
commit
d848067b89
2 changed files with 13 additions and 3 deletions
|
@ -1,6 +1,6 @@
|
||||||
;;; Web server
|
;;; 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
|
;; This library is free software; you can redistribute it and/or
|
||||||
;; modify it under the terms of the GNU Lesser General Public
|
;; modify it under the terms of the GNU Lesser General Public
|
||||||
|
@ -84,6 +84,15 @@
|
||||||
#:use-module (ice-9 iconv)
|
#:use-module (ice-9 iconv)
|
||||||
#:export (define-server-impl
|
#:export (define-server-impl
|
||||||
lookup-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
|
open-server
|
||||||
read-client
|
read-client
|
||||||
handle-request
|
handle-request
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
;;; Web I/O: HTTP
|
;;; 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
|
;; This library is free software; you can redistribute it and/or
|
||||||
;; modify it under the terms of the GNU Lesser General Public
|
;; modify it under the terms of the GNU Lesser General Public
|
||||||
|
@ -34,7 +34,8 @@
|
||||||
#:use-module (web request)
|
#:use-module (web request)
|
||||||
#:use-module (web response)
|
#:use-module (web response)
|
||||||
#:use-module (web server)
|
#:use-module (web server)
|
||||||
#:use-module (ice-9 poll))
|
#:use-module (ice-9 poll)
|
||||||
|
#:export (http))
|
||||||
|
|
||||||
|
|
||||||
(define (make-default-socket family addr port)
|
(define (make-default-socket family addr port)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue