d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

improved version with better PushBack

Browse source
This commit is contained in:
ceriel 1989-04-04 14:49:31 +00:00
parent 3030b5edd1
commit 6877184666
1 changed files with 38 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
modules/src/input/inp_pkg.body
View file

@ -344,17 +344,17 @@ loadbuf()
return EOI;
}
if (!bh->bh_eofreturned) {
if (_ipp < &(bh->bh_text[bh->bh_size])) {
/* a genuine '\0' character has been seen */
return '\0';
}
if (!bh->bh_eofreturned) {
FromFile = (bh->bh_fd != 0);
#ifndef INP_READ_IN_ONE
if (FromFile && bh->bh_size > 0) {
#if INP_PUSHBACK > 1
#if INP_NPUSHBACK > 1
register char *so = &(bh->bh_text[bh->bh_size]);
register char *de = bh->bh_text;
register int i = INP_NPUSHBACK - 1;
@ -376,6 +376,21 @@ loadbuf()
#endif not INP_READ_IN_ONE
if (FromFile && bh->bh_fd != STDIN) sys_close(bh->bh_fd);
#if INP_NPUSHBACK > 1
{
register char *so = &(bh->bh_text[bh->bh_size]);
register char *de = &buf[INP_NPUSHBACK - 1];
register int i = INP_NPUSHBACK - 1;
for (;i > 0; i--) {
/* make sure PushBack will work */
*--de = *--so;
}
}
#endif
buf[INP_NPUSHBACK-1] = 0; /* make PushBack work on EOI */
_ipp = &buf[INP_NPUSHBACK];
if (bh->bh_fd) { /* unstack a file */
#ifndef INP_READ_IN_ONE
struct INP_i_buf *ib;
@ -387,19 +402,30 @@ loadbuf()
free(bh->bh_text);
#endif INP_READ_IN_ONE
}
bh->bh_eofreturned = 1;
_ipp = "";
bh->bh_text = buf;
bh->bh_size = INP_NPUSHBACK - 1;
if (FromFile) {
if (AtEoIF()) return EOI;
if (AtEoIF()) {
bh->bh_eofreturned = 1;
return EOI;
}
}
else {
if (AtEoIT()) return EOI;
if (AtEoIT()) {
bh->bh_eofreturned = 1;
return EOI;
}
}
}
if (bh->bh_eofreturned && _ipp == &buf[INP_NPUSHBACK]) {
return EOI;
}
if (INP_pop_bh()) {
if (*_ipp) return *_ipp++;
return loadbuf();
int c;
LoadChar(c);
return c;
}
_ipp = &buf[INP_NPUSHBACK];
return EOI;