text: /* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
  */
  
  #define	import_spp
  #define	import_libc
  #define	import_xnames
  #include <iraf.h>
  
  
  /* C_UNGETC -- Push a character back into the input stream.  Pushback is last
  ** in first out, i.e., the last character pushed back is the first one
  ** read by GETC.  Characters (and strings) may be pushed back until the
  ** FIO pushback buffer overflows.
  */
  int
  c_ungetc (
    XINT	fd,			/* file			*/
    int	ch			/* char to be pushed	*/
  )
  {
  	XINT    x_fd = fd;
  	XCHAR	x_ch = ch;
  
  	iferr (UNGETC (&x_fd, &x_ch))
  	    return (ERR);
  	else
  	    return (OK);
  }
  