[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: web: Export 'server-impl' procedures and the 'htt
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: web: Export 'server-impl' procedures and the 'http' server implementation. |
Date: |
Tue, 10 Mar 2015 08:02:02 +0000 |
civodul pushed a commit to branch stable-2.0
in repository guile.
commit 61e1c2130cee904e03561b6768ef963c1b8fbf71
Author: Ludovic Courtès <address@hidden>
Date: Tue Mar 10 09:01:24 2015 +0100
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'.
---
module/web/server.scm | 11 ++++++++++-
module/web/server/http.scm | 5 +++--
2 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/module/web/server.scm b/module/web/server.scm
index 99196fa..5ea95df 100644
--- a/module/web/server.scm
+++ b/module/web/server.scm
@@ -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
diff --git a/module/web/server/http.scm b/module/web/server/http.scm
index cda44f4..b2464c2 100644
--- a/module/web/server/http.scm
+++ b/module/web/server/http.scm
@@ -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)