/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1985 Thomas L. Quarles
**********/

#include "ngspice.h"
#include <stdio.h>
#include "ifsim.h"
#include "inpdefs.h"
#include "inpptree.h"
#include "inp.h"

IFvalue *INPgetValue(CKTcircuit *ckt, char **line, int type, INPtables * tab)
{
    double *list;
    int *ilist;
    double tmp;
    char *word;
    int error;
    static IFvalue temp;
    INPparseTree *pt;

    /* make sure we get rid of extra bits in type */
    type &= IF_VARTYPES;
    if (type == IF_INTEGER) {
	tmp = INPevaluate(line, &error, 1);
	temp.iValue = (int) floor(0.5 + tmp);
	/*printf(" returning integer value %d\n",temp.iValue); */
    } else if (type == IF_REAL) {
	temp.rValue = INPevaluate(line, &error, 1);
	/*printf(" returning real value %e\n",temp.rValue); */
    } else if (type == IF_REALVEC) {
	temp.v.numValue = 0;
	list = (double *) MALLOC(sizeof(double));
	tmp = INPevaluate(line, &error, 1);
	while (error == 0) {
	    /*printf(" returning vector value %g\n",tmp); */
	    temp.v.numValue++;
	    list =
		(double *) REALLOC((char *) list,
				   temp.v.numValue * sizeof(double));
	    *(list + temp.v.numValue - 1) = tmp;
	    tmp = INPevaluate(line, &error, 1);
	}
	temp.v.vec.rVec = list;
    } else if (type == IF_INTVEC) {
	temp.v.numValue = 0;
	ilist = (int *) MALLOC(sizeof(int));
	tmp = INPevaluate(line, &error, 1);
	while (error == 0) {
	    /*printf(" returning vector value %g\n",tmp); */
	    temp.v.numValue++;
	    ilist =
		(int *) REALLOC((char *) ilist,
				temp.v.numValue * sizeof(int));
	    *(ilist + temp.v.numValue - 1) = (int) floor(0.5 + tmp);
	    tmp = INPevaluate(line, &error, 1);
	}
	temp.v.vec.iVec = ilist;
    } else if (type == IF_FLAG) {
	temp.iValue = 1;
    } else if (type == IF_NODE) {
	INPgetTok(line, &word, 1);
	INPtermInsert(ckt, &word, tab, &(temp.nValue));
    } else if (type == IF_INSTANCE) {
	INPgetTok(line, &word, 1);
	INPinsert(&word, tab);
	temp.uValue = word;
    } else if (type == IF_STRING) {
	INPgetStr(line, &word, 1);
	temp.sValue = word;
    } else if (type == IF_PARSETREE) {
	INPgetTree(line, &pt, ckt, tab);
	if (!pt)
	    return ((IFvalue *) NULL);
	temp.tValue = (IFparseTree *) pt;
	/*INPptPrint("Parse tree is: ", temp.tValue); */
    } else {			/* don't know what type of parameter caller is talking about! */
	return ((IFvalue *) NULL);
    }
    return (&temp);
}
