Lines Matching defs:unget
60 LispUngetInfo *unget = lisp__data.unget[lisp__data.iunget];
62 if (unget->offset)
63 ch = ((unsigned char*)unget->buffer)[--unget->offset];
103 LispUngetInfo *unget = lisp__data.unget[lisp__data.iunget];
106 if (unget->offset == sizeof(unget->buffer)) {
107 LispWarning("character %c lost at LispUnget()", unget->buffer[0]);
108 memmove(unget->buffer, unget->buffer + 1, unget->offset - 1);
109 unget->buffer[unget->offset - 1] = ch;
112 unget->buffer[unget->offset++] = ch;
127 realloc(lisp__data.unget,
134 lisp__data.unget = info;
138 memset(lisp__data.unget[lisp__data.iunget], '\0', sizeof(LispUngetInfo));
309 file->unget = ch;
327 ch = file->unget;
493 /* check if there is an unget character */
495 *buffer++ = file->unget;
498 if (file->unget == '\n' && !file->binary)