luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* sconvert.c: Input routine moved here from parser/input.c.

This commit is contained in:
arno 2000-07-08 12:54:27 +00:00
parent 7fec58d953
commit decb1e68b6
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/sconvert.c
View File

@ -9,17 +9,19 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
#include "ngspice.h" #include "ngspice.h"
#include <stdio.h> #include <stdio.h>
#include "cpdefs.h"
#include "ftedefs.h" #include <fteinput.h>
#include "sim.h" #include <cpdefs.h>
#include <ftedefs.h>
#include <sim.h>
#include "suffix.h" #include "suffix.h"
FILE *cp_in = 0; FILE *cp_in = NULL;
FILE *cp_out = 0; FILE *cp_out = NULL;
FILE *cp_err = 0; FILE *cp_err = NULL;
FILE *cp_curin = 0; FILE *cp_curin = NULL;
FILE *cp_curout = 0; FILE *cp_curout = NULL;
FILE *cp_curerr = 0; FILE *cp_curerr = NULL;
int cp_maxhistlength; int cp_maxhistlength;
bool cp_debug = FALSE; bool cp_debug = FALSE;
char cp_chars[128]; char cp_chars[128];
@ -43,6 +45,24 @@ char out_pbuf[BSIZE_SP];
fprintf(cp_err, "Write error\n"); \ fprintf(cp_err, "Write error\n"); \
return; } return; }
void
Input(REQUEST *request, RESPONSE *response)
{
switch (request->option) {
case char_option:
response->reply.ch = inchar(request->fp);
response->option = request->option;
break;
default:
/* just ignore, since we don't want a million error messages */
response->option = error_option;
break;
}
return;
}
static char * static char *
fixdate(char *date) fixdate(char *date)
{ {