Add implementation of "transcoded ports"
authorAndreas Rottmann <a.rottmann@gmx.at>
Sun, 21 Nov 2010 22:17:54 +0000 (23:17 +0100)
committerLudovic Courtès <ludo@gnu.org>
Wed, 24 Nov 2010 22:04:24 +0000 (23:04 +0100)
commit1044537dff91146ed17f13cfa8d1eca5f92f4307
tree37657d8486996f73b95b1f0b279ff82935bbc637
parenta5484153b83b04f8e9bbe392b97904e9493da44e
Add implementation of "transcoded ports"

* libguile/r6rs-ports.c (make_tp, tp_write, tp_fill_input, tp_flush)
  (tp_close, initialize_transcoded_ports, scm_i_make_transcoded_port): New
  functions.
  (scm_init_r6rs_ports): Call `initialize_transcoded_ports'.
* module/rnrs/ports.scm (transcoded-port): Actually implement,
  using `%make-transcoded-port'.
* test-suite/tests/r6rs-ports.test ("8.2.6 Input and output ports"): Added a
  few tests for `transcoded-port'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
libguile/r6rs-ports.c
module/rnrs/io/ports.scm
test-suite/tests/r6rs-ports.test