30 lines
746 B
C
30 lines
746 B
C
/* Copyright (c) 1984 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)ungetch.c 1.1 94/10/31 SMI"; /* from S5R3.1 1.1.1.4 */
|
|
#endif
|
|
|
|
#include "curses_inc.h"
|
|
|
|
/* Place a char onto the beginning of the input queue. */
|
|
|
|
ungetch(ch)
|
|
int ch;
|
|
{
|
|
register int i = cur_term->_chars_on_queue, j = i - 1;
|
|
register short *inputQ = cur_term->_input_queue;
|
|
|
|
/* Place the character at the beg of the Q */
|
|
|
|
while (i > 0)
|
|
inputQ[i--] = inputQ[j--];
|
|
cur_term->_ungotten++;
|
|
inputQ[0] = -ch - 0100;
|
|
cur_term->_chars_on_queue++;
|
|
}
|