mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-24 21:50:20 +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

38
libguile/ports.c
View file

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