Implemented binary output (Section 7.2.11).
commit4e0dc81f3f97470297c13af443934e1ee0a54db6
authorLudovic Court`es <ludovic.courtes@laas.fr>
Tue, 13 Feb 2007 15:15:21 +0000 (13 15:15 +0000)
committerLudovic Court`es <ludovic.courtes@laas.fr>
Tue, 13 Feb 2007 15:15:21 +0000 (13 15:15 +0000)
treeaf8d388b649d10cac21d3ca0d4f4a506e65ef9c5
parentf7db48ad5bb0968afabcbefff22eed3074a465c7
Implemented binary output (Section 7.2.11).

* modules/r6rs/i/o/ports.scm: Export `put-u8' and `put-bytevector'.

* src/ports.c (SCM_VALIDATE_R6RS_BINARY_INPUT_PORT): Alias
  `SCM_VALIDATE_INPUT_PORT' instead of just `SCM_VALIDATE_PORT'.
  (scm_r6rs_get_u8): Return an unsigned char.
  (SCM_VALIDATE_R6RS_BINARY_OUTPUT_PORT): New.
  (scm_r6rs_put_u8, scm_r6rs_put_bytevector): New.

* tests/io-ports.test: Use `(srfi srfi-1)'.  Added new tests.

git-archimport-id: lcourtes@laas.fr--2006-libre/guile-r6rs-libs--devo--0--patch-14
ChangeLog
modules/r6rs/i/o/ports.scm
src/ports.c
tests/io-ports.test