[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 15/23: (web server ethreads): more use of latin1 accesso
From: |
Andy Wingo |
Subject: |
[Guile-commits] 15/23: (web server ethreads): more use of latin1 accessors |
Date: |
Thu, 24 Mar 2016 14:26:04 +0000 |
wingo pushed a commit to branch wip-ethreads
in repository guile.
commit ded0f3e7fef05c58886f7d8125b934de53b8c097
Author: Andy Wingo <address@hidden>
Date: Tue Mar 27 00:30:28 2012 +0200
(web server ethreads): more use of latin1 accessors
* module/web/server/ethreads.scm (read-http-line, continuation-line?):
More latin1 changes.
---
module/web/server/ethreads.scm | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/module/web/server/ethreads.scm b/module/web/server/ethreads.scm
index 9445e8a..7c45661 100644
--- a/module/web/server/ethreads.scm
+++ b/module/web/server/ethreads.scm
@@ -89,14 +89,14 @@
(bad-request "EOF while reading line: ~S" str))
(else
(when (and (eqv? delim #\return)
- (eqv? (lookahead-u8 eport) (char->integer #\newline)))
- (get-u8 eport))
+ (eqv? (lookahead-latin1-char eport) #\newline))
+ (get-latin1-char eport))
str)))))
(define (continuation-line? port)
- (let ((c (lookahead-u8 port)))
- (or (eqv? c (char->integer #\space))
- (eqv? c (char->integer #\tab)))))
+ (let ((c (lookahead-latin1-char port)))
+ (or (eqv? c #\space)
+ (eqv? c #\tab))))
;; Read a request from this port.
(define (read-request client)
- [Guile-commits] 12/23: (web server ethreads): Use a large backlog., (continued)
- [Guile-commits] 12/23: (web server ethreads): Use a large backlog., Andy Wingo, 2016/03/24
- [Guile-commits] 13/23: add latin1 chars and strings to eports, Andy Wingo, 2016/03/24
- [Guile-commits] 18/23: (web server ethreads) TCP_NODELAY tweak, Andy Wingo, 2016/03/24
- [Guile-commits] 05/23: http: allow custom read-line / continuation-line? functions, Andy Wingo, 2016/03/24
- [Guile-commits] 06/23: setsockopt can take an fd, Andy Wingo, 2016/03/24
- [Guile-commits] 10/23: EOF fix for continuation-line?, Andy Wingo, 2016/03/24
- [Guile-commits] 19/23: nio: add non-blocking connect, Andy Wingo, 2016/03/24
- [Guile-commits] 08/23: add #:limit to get-bytevector-delimited, Andy Wingo, 2016/03/24
- [Guile-commits] 11/23: socket: TCP_CORK, TCP_NODELAY, Andy Wingo, 2016/03/24
- [Guile-commits] 23/23: virtualize read/write/close operations in <eport>, Andy Wingo, 2016/03/24
- [Guile-commits] 15/23: (web server ethreads): more use of latin1 accessors,
Andy Wingo <=
- [Guile-commits] 01/23: add (ice-9 nio), Andy Wingo, 2016/03/24
- [Guile-commits] 20/23: eports: nonblocking connect-eport, Andy Wingo, 2016/03/24
- [Guile-commits] 14/23: refactoring to (web server ethreads) read-http-line, Andy Wingo, 2016/03/24
- [Guile-commits] 02/23: add (ice-9 eports), Andy Wingo, 2016/03/24
- [Guile-commits] 17/23: getsockopt: allow raw file descriptors, Andy Wingo, 2016/03/24
- [Guile-commits] 16/23: eports: add put-utf8-char, put-utf8-string, Andy Wingo, 2016/03/24
- [Guile-commits] 03/23: add (ice-9 epoll), Andy Wingo, 2016/03/24
- [Guile-commits] 21/23: eports tweak, Andy Wingo, 2016/03/24
- [Guile-commits] 07/23: add (web server ethreads), Andy Wingo, 2016/03/24
- [Guile-commits] 22/23: add examples/ethreads/memcached-{client, server}, Andy Wingo, 2016/03/24