67 lines
1.2 KiB
C
67 lines
1.2 KiB
C
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1988 Jeffrey M. Hsu
|
|
$Id$
|
|
**********/
|
|
|
|
/*
|
|
* Stand-alone input routine.
|
|
*/
|
|
#include <config.h>
|
|
#include <ngspice.h>
|
|
|
|
#include <errno.h>
|
|
|
|
#include "fteinput.h"
|
|
#include "input.h"
|
|
#include "cpextern.h"
|
|
#include "../display.h"
|
|
#ifdef _MSC_VER
|
|
#include "BaseTsd.h" /* for SSIZE_T */
|
|
#define ssize_t SSIZE_T
|
|
#define read _read
|
|
#endif
|
|
|
|
/* A special 'getc' so that we can deal with ^D properly. There is no way for
|
|
* stdio to know if we have typed a ^D after some other characters, so
|
|
* don't use buffering at all
|
|
*/
|
|
int
|
|
inchar(FILE *fp)
|
|
{
|
|
|
|
#ifndef HAS_WINDOWS
|
|
char c;
|
|
ssize_t i;
|
|
|
|
if (cp_interactive && !cp_nocc) {
|
|
do {
|
|
i = read(fileno(fp), &c, 1);
|
|
} while (i == -1 && errno == EINTR);
|
|
if (i == 0 || c == '\004')
|
|
return (EOF);
|
|
else if (i == -1) {
|
|
perror("read");
|
|
return (EOF);
|
|
} else
|
|
return ((int) c);
|
|
} else
|
|
#endif
|
|
return (getc(fp));
|
|
}
|
|
|
|
|
|
int
|
|
input(FILE *fp)
|
|
{
|
|
|
|
REQUEST request;
|
|
RESPONSE response;
|
|
|
|
request.option = char_option;
|
|
request.fp = fp;
|
|
Input(&request, &response);
|
|
return(inchar(fp));
|
|
|
|
}
|