mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 23:20:38 +02:00
Code Activity

(scm_getc, scm_lfwrite): Recognise \a \b and \r for port column.

Browse source
This commit is contained in:
Kevin Ryde 2004-09-09 00:10:02 +00:00
parent 1e7e862431
commit f86d524a89
1 changed files with 27 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

32
libguile/ports.c
View file

@ -955,17 +955,25 @@ scm_getc (SCM port)
c = *(pt->read_pos++); c = *(pt->read_pos++);
if (c == '\n') switch (c)
{ {
case '\a':
break;
case '\b':
SCM_DECCOL (port);
break;
case '\n':
SCM_INCLINE (port); SCM_INCLINE (port);
} break;
else if (c == '\t') case '\r':
{ SCM_ZEROCOL (port);
break;
case '\t':
SCM_TABCOL (port); SCM_TABCOL (port);
} break;
else default:
{
SCM_INCCOL (port); SCM_INCCOL (port);
break;
} }
return c; return c;
@ -1000,9 +1008,17 @@ scm_lfwrite (const char *ptr, size_t size, SCM port)
ptob->write (port, ptr, size); ptob->write (port, ptr, size);
for (; size; ptr++, size--) { for (; size; ptr++, size--) {
if (*ptr == '\n') { if (*ptr == '\a') {
}
else if (*ptr == '\b') {
SCM_DECCOL(port);
}
else if (*ptr == '\n') {
SCM_INCLINE(port); SCM_INCLINE(port);
} }
else if (*ptr == '\r') {
SCM_ZEROCOL(port);
}
else if (*ptr == '\t') { else if (*ptr == '\t') {
SCM_TABCOL(port); SCM_TABCOL(port);
} }