iolib-devel March 2010

iolib-devel@common-lisp.net

4 participants
14 discussions

[iolib-devel] Introductory tcp client/server examples
by Peter Keller 14 May '10

14 May '10

Hello, I've been writing a tutorial for how to use IOLib loosely following the second edition of the unix network programming book by Richard Stevens. Attached to this mail is a tarball of a collection of example programs I've written which illustrate certain concepts in using IOLib. It is intended that this tutorial go all the way from the simple iterative daytime server example, all the way to nonblocking and multiplexed network i/o for a server with many clients. I am not finished with this work at all (such as the tutorial is simply an outline and I only have a small collection of example programs!), but Stelian wanted to see examples of the code I had written and thought the list would be a good place for it. Thank you. -pete

2 2

[iolib-devel] New patches: 30-Mar-2010
by Stelian Ionescu 31 Mar '10

31 Mar '10

commit 86ef9c8bffad0271de60569a358e0aa46a6cd391 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 13:48:35 2010 +0200 Make stream FDs nonblocking by default, various fixes. src/base/pkgdcl.lisp | 4 ++ src/base/types.lisp | 31 ++++++++++++ src/sockets/base-sockets.lisp | 16 +++++- src/sockets/dns/query.lisp | 1 - src/sockets/socket-methods.lisp | 17 +----- src/streams/gray/buffer.lisp | 2 +- src/streams/gray/classes.lisp | 36 +++----------- src/streams/gray/fd-mixin.lisp | 31 +++++------- src/streams/gray/gray-stream-methods.lisp | 59 +++++++++++++--------- src/streams/gray/io-helpers.lisp | 77 +++++++++++++++++++---------- src/streams/gray/pkgdcl.lisp | 11 ---- src/syscalls/ffi-functions-unix.lisp | 13 +++++ src/syscalls/pkgdcl.lisp | 1 + tests/sockets.lisp | 12 +++-- tests/streams.lisp | 1 + 15 files changed, 180 insertions(+), 132 deletions(-) commit 1a389959e334ce12c1d29d6a34296d663ebacdc6 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 03:53:35 2010 +0200 Fix %READ-ONCE/NO-HANG and %FILL-BUF/NO-HANG. src/streams/gray/io-helpers.lisp | 40 +++++++++++++++++++------------------ 1 files changed, 21 insertions(+), 19 deletions(-) commit 6d63d32fb7f400e93066cb37a139a43dae4721c1 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 03:51:52 2010 +0200 Remove useless check in MAYBE-REWIND-IOBUF. src/streams/gray/io-helpers.lisp | 20 +++++++++----------- 1 files changed, 9 insertions(+), 11 deletions(-) commit 73c0c0d111df6128b2177d50ed6433f031cede3c Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 03:43:32 2010 +0200 Fix enabling of *SAFETY-CHECKS*. src/base/debug.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100330.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

1 0

[iolib-devel] New patches: 29-Mar-2010
by Stelian Ionescu 31 Mar '10

31 Mar '10

commit ed0c7395c260df5744644e4b3fb3de079dde935f Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 03:03:58 2010 +0200 Call DEFAULT-{READ,WRITE}-FN through their function objects. src/streams/gray/classes.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) commit afdd62b9d685e32e068ea5b49cb09f42a2b2c982 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Tue Mar 30 03:02:17 2010 +0200 Add %READ-ONCE/NO-HANG. src/streams/gray/io-helpers.lisp | 13 +++++++++++-- 1 files changed, 11 insertions(+), 2 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100329.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

2 1

[iolib-devel] New patches: 28-Mar-2010
by Stelian Ionescu 29 Mar '10

29 Mar '10

commit 11a7b7999b66cc609254554ad46935c8977a0873 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Mon Mar 29 02:01:38 2010 +0200 Re-arrange test clauses in STREAM-READ-CHAR-NO-HANG. src/streams/gray/gray-stream-methods.lisp | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) commit ce4bfcd246babe67f6aa475ee17800c440d24c06 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Mon Mar 29 02:01:17 2010 +0200 Fix bug in STREAM-READ-CHAR-NO-HANG. src/streams/gray/gray-stream-methods.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100328.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

1 0

Re: [iolib-devel] Problem with peek-char
by Stelian Ionescu 27 Mar '10

27 Mar '10

On Thu, 2010-03-25 at 12:53 +0300, Andrey Moskvitin wrote: > Hi, > > > > I'm not sure that this is a bug. > > > Yes, I sorted out problem more deeply and concluded that in > stream-read-char > required following changes: > > > diff --git a/src/streams/gray/gray-stream-methods.lisp > b/src/streams/gray/gray-stream-methods.lisp > index 49c2eb1..45a25d1 100644 > --- a/src/streams/gray/gray-stream-methods.lisp > +++ b/src/streams/gray/gray-stream-methods.lisp > @@ -332,7 +332,8 @@ > (return* :eof)))) > (cond ((zerop (iobuf-length ib)) > (iobuf-reset ib) > - (fill-buf-or-eof)) > + (fill-buf-or-eof) > + (setf unread-index (iobuf-start ib))) > ;; Some encodings such as CESU or Java's modified UTF-8 > take > ;; as much as 6 bytes per character. Make sure we have > enough > ;; space to collect read-ahead bytes if required. Since the old code was very hard to read in order to understand what was the bug, I rewrote it. Could you please try again ? -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur. http://common-lisp.net/project/iolib

1 0

[iolib-devel] New patches: 26-Mar-2010
by Stelian Ionescu 27 Mar '10

27 Mar '10

commit ebc4e267121cdc9f2587443d6ac08327453fbf12 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Sat Mar 27 03:37:27 2010 +0100 Rewrite STREAM-READ-CHAR and STREAM-READ-CHAR-NO-HANG. src/iolib.streams.asd | 5 +- src/streams/gray/buffer.lisp | 3 + src/streams/gray/classes.lisp | 15 +- src/streams/gray/gray-stream-methods.lisp | 445 +++++++---------------------- src/streams/gray/io-helpers.lisp | 281 ++++++++++++++++++ 5 files changed, 398 insertions(+), 351 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100326.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

1 0

[iolib-devel] New patches: 25-Mar-2010
by Stelian Ionescu 26 Mar '10

26 Mar '10

commit 4b7233df1929d7329ac52b11726649fe5e56d323 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Thu Mar 25 12:58:04 2010 +0100 No initform for slot EOL-WRITER. src/streams/gray/classes.lisp | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100325.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

1 0

[iolib-devel] New patches: 24-Mar-2010
by Stelian Ionescu 25 Mar '10

25 Mar '10

commit aa93b0a9fd19fb0327e241e665efeff83b752fcc Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Thu Mar 25 00:59:49 2010 +0100 Add fast path for EWOULDBLOCK in SIGNAL-SOCKET-ERROR. src/sockets/conditions.lisp | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) commit 86355c3936feddad4fc97b611f930717cf028295 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Wed Mar 24 23:20:47 2010 +0100 Remove %WRITE-LINE-TERMINATOR and replace it with eol-writer function stored in the stream. src/streams/gray/classes.lisp | 2 + src/streams/gray/gray-stream-methods.lisp | 47 +++++++++++++++++----------- 2 files changed, 30 insertions(+), 19 deletions(-) commit 7803896dcdb1a0a4d0bcc6485c0e266859b745b7 Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Wed Mar 24 22:56:12 2010 +0100 Rewrite STREAM-WRITE-STRING to fix bug reported by Andrey Moskvitin and make code clearer. src/streams/gray/gray-stream-methods.lisp | 40 ++++++++++++++++------------- 1 files changed, 22 insertions(+), 18 deletions(-) commit 08c24e3f082ac8355b95f79985e18178ce06aeec Author: Stelian Ionescu <sionescu(a)cddr.org> Date: Wed Mar 24 21:30:29 2010 +0100 Add and export condition IOLIB.STREAMS:NO-CHARACTERS-TO-UNREAD, use it in %STREAM-UNREAD-CHAR. src/streams/gray/conditions.lisp | 12 +++++++++++- src/streams/gray/gray-stream-methods.lisp | 8 ++++++-- src/streams/gray/pkgdcl.lisp | 1 + 3 files changed, 18 insertions(+), 3 deletions(-) An updated tarball of IOLib's source can be downloaded here: http://common-lisp.net/project/iolib/files/snapshots/iolib-20100324.tar.gz Gitweb URL: http://repo.or.cz/w/iolib.git

1 0

[iolib-devel] Bug in stream-write-string
by Andrey Moskvitin 25 Mar '10

25 Mar '10

Hi, I found bug in implementation stream-write-string for dual-channel-gray-stream class: lost last #\Newline character. Patch: diff --git a/src/streams/gray/gray-stream-methods.lisp b/src/streams/gray/gray-stream-methods.lisp index 43f4694..9d8b720 100644 --- a/src/streams/gray/gray-stream-methods.lisp +++ b/src/streams/gray/gray-stream-methods.lisp @@ -492,13 +492,13 @@ (ef (external-format-of stream)) (line-terminator (babel:external-format-eol-style ef))) (loop :for off1 := start :then (1+ off2) - :for nl-off := (position #\Newline string :start off1) + :for nl-off := (position #\Newline string :start off1 :end end) :for off2 := (or nl-off end) - :when nl-off :do (%write-line-terminator stream line-terminator) :when (> off2 off1) :do ;; FIXME: should probably convert directly to a foreign buffer? (setf octets (%to-octets string off1 off2 ef)) (%write-simple-array-ub8 stream octets 0 (length octets)) + :when nl-off :do (%write-line-terminator stream line-terminator) :while (< off2 end)))) (values string)) Andrey

2 1

[iolib-devel] Problem with peek-char
by Andrey Moskvitin 25 Mar '10

25 Mar '10

Hi, I am trying to rewrite the work with sockets in a swank via IOLib and found that call peek-char produces an error "No uncommitted character to unread" (see %stream-unread-char in a gray-stream-methods.lisp) . I did not understand deep, but noticed that after the following simple modifications: diff --git a/src/streams/gray/gray-stream-methods.lisp b/src/streams/gray/gray-stream-methods.lisp index d0cdbce..43f4694 100644 --- a/src/streams/gray/gray-stream-methods.lisp +++ b/src/streams/gray/gray-stream-methods.lisp @@ -320,7 +320,6 @@ (unread-index ibuf-unread-index-of) (ef external-format-of)) stream - (setf unread-index (iobuf-start ib)) (let* ((str nil) (ret nil) (encoding (babel:external-format-encoding ef)) (max-octets-per-char system begins to work normally Moskvitin Andrey

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

iolib-devel March 2010