mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-12 04:00:28 +02:00
fd17cf9f72
* libguile/ports-internal.h (scm_port_buffer_position): (scm_port_position_line, scm_port_position_set_line): (scm_port_position_column, scm_port_position_set_column): New helpers. (scm_t_port): Ports now hold position as a pair, so that Scheme can access it easily. (SCM_LINUM, SCM_COL, SCM_INCLINE, SCM_ZEROCOL, SCM_INCCOL) (SCM_DECCOL, SCM_TABCOL): Remove. * libguile/ports.c (make_port_buffer): Rename from scm_c_make_port_buffer, make static, and take port as an argument so we can initialize the position field. (initialize_port_buffers): Adapt make_port_buffer change. (scm_c_make_port_with_encoding): Initialize position. (update_port_position): Rename from update_port_lf, and operate on port position objects. (scm_ungetc): Operate on port position objects. (scm_setvbuf, scm_expand_port_read_buffer_x): Adapt to make_port_buffer change. (scm_lfwrite): Adapt to call update_port_position. (scm_port_line, scm_set_port_line_x, scm_port_column) (scm_set_port_column_x): Adapt to use port positions. * libguile/ports.h (scm_c_make_port_buffer): Remove internal decl. * libguile/read.c: Adapt to use scm_port_line / scm_port_column instead of SCM_LINUM et al. * module/ice-9/ports.scm (port-buffer-position, port-position-line) (port-position-column, set-port-position-line!) (set-port-position-column!): New accessors for the internals module. * module/ice-9/sports.scm (advance-port-position!): Rename from port-advance-position! and use the new accessors. (read-char, port-fold-chars/iso-8859-1): Adapt to use advance-port-position!. |
||
|---|---|---|
| .. | ||
| peg | ||
| and-let-star.scm | ||
| arrays.scm | ||
| binary-ports.scm | ||
| boot-9.scm | ||
| buffered-input.scm | ||
| calling.scm | ||
| ChangeLog-2008 | ||
| channel.scm | ||
| command-line.scm | ||
| common-list.scm | ||
| compile-psyntax.scm | ||
| control.scm | ||
| curried-definitions.scm | ||
| debug.scm | ||
| deprecated.scm | ||
| documentation.scm | ||
| eval-string.scm | ||
| eval.scm | ||
| expect.scm | ||
| format.scm | ||
| ftw.scm | ||
| futures.scm | ||
| gap-buffer.scm | ||
| getopt-long.scm | ||
| hash-table.scm | ||
| hcons.scm | ||
| history.scm | ||
| i18n.scm | ||
| iconv.scm | ||
| lineio.scm | ||
| list.scm | ||
| local-eval.scm | ||
| ls.scm | ||
| mapping.scm | ||
| match.scm | ||
| match.upstream.scm | ||
| networking.scm | ||
| null.scm | ||
| occam-channel.scm | ||
| optargs.scm | ||
| peg.scm | ||
| poe.scm | ||
| poll.scm | ||
| popen.scm | ||
| ports.scm | ||
| posix.scm | ||
| pretty-print.scm | ||
| psyntax-pp.scm | ||
| psyntax.scm | ||
| q.scm | ||
| quasisyntax.scm | ||
| r5rs.scm | ||
| r6rs-libraries.scm | ||
| rdelim.scm | ||
| README | ||
| receive.scm | ||
| regex.scm | ||
| runq.scm | ||
| rw.scm | ||
| safe-r5rs.scm | ||
| safe.scm | ||
| save-stack.scm | ||
| scm-style-repl.scm | ||
| serialize.scm | ||
| session.scm | ||
| slib.scm | ||
| sports.scm | ||
| stack-catch.scm | ||
| streams.scm | ||
| string-fun.scm | ||
| syncase.scm | ||
| test.scm | ||
| threads.scm | ||
| time.scm | ||
| top-repl.scm | ||
| unicode.scm | ||
| vlist.scm | ||
| weak-vector.scm | ||
This directory contains various bits of Guile Scheme code. Most of these are packaged as modules, with foo.scm implementing the module `(ice-9 foo)'. The non-module files are: boot-9.scm -- loaded on guile startup implements module system + lots of other stuff arrays.scm -- loaded by boot-9.scm networking.scm -- loaded by boot-9.scm posix.scm -- loaded by boot-9.scm r4rs.scm -- loaded by boot-9.scm