mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-11 22:31:12 +02:00
8399e7af51
* libguile/ports.h (struct scm_t_port_buffer): New data type.
(struct scm_t_port): Refactor to use port buffers instead of
implementation-managed read and write pointers. Add "read_buffering"
member.
(SCM_INITIAL_PUTBACK_BUF_SIZE, SCM_READ_BUFFER_EMPTY_P): Remove.
(scm_t_ptob_descriptor): Rename "fill_input" function to "read", and
take a port buffer, returning void. Likewise "write" takes a port
buffer and returns void. Remove "end_input"; instead if there is
buffered input and rw_random is true, then there must be a seek
function, so just seek back if needed. Remove "flush"; instead all
calls to the "write" function implicitly include a "flush", since the
buffering happens in the generic port code now. Remove "setvbuf", but
add "get_natural_buffer_sizes"; instead the generic port code can
buffer any port.
(scm_make_port_type): Adapt to read and write prototype changes.
(scm_set_port_flush, scm_set_port_end_input, scm_set_port_setvbuf):
Remove.
(scm_slow_get_byte_or_eof_unlocked)
(scm_slow_get_peek_or_eof_unlocked): Remove; the slow path is to call
scm_fill_input.
(scm_set_port_get_natural_buffer_sizes): New function.
(scm_c_make_port_buffer): New internal function.
(scm_port_non_buffer): Remove. This was a function for
implementations that is no longer needed. Instead open with BUF0 or
use (setvbuf port 'none).
(scm_fill_input, scm_fill_input_unlocked): Return the filled port
buffer.
(scm_get_byte_or_eof_unlocked, scm_peek_byte_or_eof_unlocked): Adapt
to changes in buffering and EOF management.
* libguile/ports.c: Adapt to port interface changes.
(initialize_port_buffers): New function, using the port mode flags to
set up appropriate initial buffering for all ports.
(scm_c_make_port_with_encoding): Create port buffers here instead of
delegating to implementations.
(scm_close_port): Flush the port if needed instead of delegating to
the implementation.
* libguile/filesys.c (set_element): Adapt to buffering changes.
* libguile/fports.c (fport_get_natural_buffer_sizes): New function,
replacing scm_fport_buffer_add.
(fport_write, fport_read): Update to let the generic ports code do the
buffering.
(fport_flush, fport_end_input): Remove.
(fport_close): Don't flush in a dynwind; that's the core ports' job.
(scm_make_fptob): Adapt.
* libguile/ioext.c (scm_redirect_port): Adapt to buffering changes.
* libguile/poll.c (scm_primitive_poll): Adapt to buffering changes.
* libguile/ports-internal.h (struct scm_port_internal): Remove
pending_eof flag; this is now set on the read buffer.
* libguile/r6rs-ports.c (struct bytevector_input_port): New type. The
new buffering arrangement means that there's now an intermediate
buffer between the bytevector and the user of the port; this could
lead to a perf degradation, but on the other hand there are some other
speedups enabled by the buffering refactor, so probably the memcpy
cost is dwarfed by the cost of the other parts of the ports
machinery.
(make_bytevector_input_port, bytevector_input_port_read):
(bytevector_input_port_seek, initialize_bytevector_input_ports): Adapt
to new buffering arrangement.
(struct custom_binary_port): Remove read buffer, as Guile handles that
now.
(custom_binary_input_port_setvbuf): Remove; now handled by Guile.
(make_custom_binary_input_port, custom_binary_input_port_read)
(initialize_custom_binary_input_ports): Adapt.
(scm_get_bytevector_some): Adapt to new EOF management.
(scm_t_bytevector_output_port_buffer): Hold on to the underlying port,
so we can flush it if it's open.
(make_bytevector_output_port, bytevector_output_port_write):
(bytevector_output_port_seek): Adapt.
(bytevector_output_port_procedure): Flush the port as appropriate, so
that we get all the bytes.
(make_custom_binary_output_port, custom_binary_output_port_write):
Adapt.
(make_transcoded_port): Don't muck with buffering.
(transcoded_port_write): Simply forward the write to the underlying
port.
(transcoded_port_read): Likewise.
(transcoded_port_close): No need to flush.
(initialize_transcoded_ports): Adapt.
* libguile/read.c (scm_i_scan_for_encoding): Adapt to buffering
changes.
* libguile/rw.c (scm_write_string_partial): Adapt to buffering changes.
* libguile/strports.c: Adapt to the fact that we don't manage the
buffer. Probably room for speed improvements here...
* libguile/vports.c (soft_port_get_natural_buffer_sizes): New function.
Adapt the rest of the file for the new buffering regime.
* test-suite/tests/r6rs-ports.test ("8.2.10 Output ports"): Custom
binary output ports need to be flushed before you can rely on the
write! procedure having been called. Add necessary flush-port
invocations.
("8.2.6 Input and output ports"): Transcoded ports now have an
internal buffer by default. This test checks that the characters are
transcoded one at a time, so to do that, call setvbuf on the
transcoded port to remove the buffer.
* test-suite/tests/web-client.test (run-with-http-transcript): Fix for
different flushing regime on soft ports. (The vestigial flush
procedure is now called after each write, which is not what the test
was expecting.)
* test-suite/standalone/test-scm-c-read.c: Update for changes to the C
interface for defining port types.
* doc/ref/api-io.texi (Ports): Update to discuss buffering in a generic
way, and to remove a hand-wavey paragraph describing string ports as
"interesting and powerful".
(Reading, Writing): Remove placeholder comments. Document
`scm_lfwrite'.
(Buffering): New section.
(File Ports): Link to buffering.
(I/O Extensions): Join subnodes into parent and describe new API,
including buffering API.
* doc/ref/posix.texi (Ports and File Descriptors): Link to buffering.
Remove unread-char etc, as they are documented elsewhere.
(Pipes, Network Sockets and Communication): Link to buffering.
|
||
|---|---|---|
| .. | ||
| 00-initial-env.test | ||
| 00-socket.test | ||
| alist.test | ||
| and-let-star.test | ||
| arbiters.test | ||
| arrays.test | ||
| bit-operations.test | ||
| bitvectors.test | ||
| brainfuck.test | ||
| bytevectors.test | ||
| c-api.test | ||
| chars.test | ||
| coding.test | ||
| common-list.test | ||
| compiler.test | ||
| continuations.test | ||
| control.test | ||
| coverage.test | ||
| cross-compilation.test | ||
| curried-definitions.test | ||
| dwarf.test | ||
| ecmascript.test | ||
| elisp-compiler.test | ||
| elisp-reader.test | ||
| elisp.test | ||
| encoding-escapes.test | ||
| encoding-iso88591.test | ||
| encoding-iso88597.test | ||
| encoding-utf8.test | ||
| eval-string.test | ||
| eval.test | ||
| exceptions.test | ||
| filesys.test | ||
| fluids.test | ||
| foreign.test | ||
| format.test | ||
| fractions.test | ||
| ftw.test | ||
| future.test | ||
| gc.test | ||
| getopt-long.test | ||
| goops.test | ||
| guardians.test | ||
| hash.test | ||
| hooks.test | ||
| i18n.test | ||
| iconv.test | ||
| import.test | ||
| interp.test | ||
| keywords.test | ||
| linker.test | ||
| list.test | ||
| load.test | ||
| match.test | ||
| match.test.upstream | ||
| modules.test | ||
| multilingual.nottest | ||
| net-db.test | ||
| numbers.test | ||
| optargs.test | ||
| options.test | ||
| pairs.test | ||
| parameters.test | ||
| peg.bench | ||
| peg.test | ||
| peval.test | ||
| poe.test | ||
| popen-child.scm | ||
| popen.test | ||
| ports.test | ||
| posix.test | ||
| print.test | ||
| procprop.test | ||
| procs.test | ||
| q.test | ||
| r4rs.test | ||
| r5rs_pitfall.test | ||
| r6rs-arithmetic-bitwise.test | ||
| r6rs-arithmetic-fixnums.test | ||
| r6rs-arithmetic-flonums.test | ||
| r6rs-base.test | ||
| r6rs-conditions.test | ||
| r6rs-control.test | ||
| r6rs-enums.test | ||
| r6rs-eval.test | ||
| r6rs-exceptions.test | ||
| r6rs-files.test | ||
| r6rs-hashtables.test | ||
| r6rs-lists.test | ||
| r6rs-ports.test | ||
| r6rs-records-inspection.test | ||
| r6rs-records-procedural.test | ||
| r6rs-records-syntactic.test | ||
| r6rs-unicode.test | ||
| ramap.test | ||
| random.test | ||
| rdelim.test | ||
| reader.test | ||
| receive.test | ||
| records.test | ||
| regexp.test | ||
| rnrs-libraries.test | ||
| rnrs-test-a.scm | ||
| rtl-compilation.test | ||
| rtl.test | ||
| session.test | ||
| signals.test | ||
| sort.test | ||
| srcprop.test | ||
| srfi-1.test | ||
| srfi-4.test | ||
| srfi-6.test | ||
| srfi-9.test | ||
| srfi-10.test | ||
| srfi-11.test | ||
| srfi-13.test | ||
| srfi-14.test | ||
| srfi-17.test | ||
| srfi-18.test | ||
| srfi-19.test | ||
| srfi-26.test | ||
| srfi-27.test | ||
| srfi-31.test | ||
| srfi-34.test | ||
| srfi-35.test | ||
| srfi-37.test | ||
| srfi-38.test | ||
| srfi-39.test | ||
| srfi-41.test | ||
| srfi-42.test | ||
| srfi-43.test | ||
| srfi-45.test | ||
| srfi-60.test | ||
| srfi-64-test.scm | ||
| srfi-64.test | ||
| srfi-67.test | ||
| srfi-69.test | ||
| srfi-88.test | ||
| srfi-98.test | ||
| srfi-105.test | ||
| srfi-111.test | ||
| statprof.test | ||
| streams.test | ||
| strings.test | ||
| structs.test | ||
| sxml-match-tests.ss | ||
| sxml.fold.test | ||
| sxml.match.test | ||
| sxml.simple.test | ||
| sxml.ssax.test | ||
| sxml.transform.test | ||
| sxml.xpath.test | ||
| symbols.test | ||
| syncase.test | ||
| syntax.test | ||
| texinfo.docbook.test | ||
| texinfo.serialize.test | ||
| texinfo.string-utils.test | ||
| texinfo.test | ||
| threads.test | ||
| time.test | ||
| tree-il.test | ||
| types.test | ||
| unicode.test | ||
| vectors.test | ||
| version.test | ||
| vlist.test | ||
| weaks.test | ||
| web-client.test | ||
| web-http.test | ||
| web-request.test | ||
| web-response.test | ||
| web-uri.test | ||