/**********
Copyright 1992 Regents of the University of California.  All rights
reserved.
Author: 1992 Charles Hough
**********/

#include "ngspice.h"
#include "ifsim.h"
#include "inpdefs.h"
#include "inpmacs.h"
#include "fteext.h"
#include "inp.h"

void
INP2P(
    CKTcircuit *ckt,
    INPtables *tab,
    card *current)

{

int mytype; /* the type we determine cpls are */
int type;   /* the type the model says it is */
char *line; /* the part of the current line left to parse */
char *name, *tempname; /* the cpl's name */
char *model;    /* the name of the cpl's model */
char **nname1;   /* the first node's name */
char **nname2;   /* the second node's name */
char *ground;
CKTnode **node1; /* the first node's node pointer */
CKTnode **node2; /* the second node's node pointer */
CKTnode *groundnode;
int error;      /* error code temporary */
int error1=0;   /* secondary error code temporary */
INPmodel *thismodel;    /* pointer to model structure describing our model */
GENmodel *mdfast;    /* pointer to the actual model */
GENinstance *fast;  /* pointer to the actual instance */
IFvalue ptemp;  /* a value structure to package cpl into */
IFuid uid;      /* uid for default model */
double lenval = 0;
int lenvalgiven = 0;
int num, i;

    mytype = INPtypelook("CplLines");
    if(mytype < 0 ) {
        LITERR("Device type CplLines not supported by this binary\n")
        return;
    }
    line = current->line;
    INPgetTok(&line,&name,1);
    INPinsert(&name,tab);
    /* num = (int) INPevaluate(&line,&error1,1); */
    num = 0;

    /* first pass to determine the dimension */
    while (*line != '\0') {
            INPgetTok(&line, &tempname,1);
            if ((strcmp(tempname, "length") == 0) || (strcmp(tempname, "len") == 0)) break;
            num ++;
    }
    num = (num - 2) / 2;
    line = current->line;
    INPgetTok(&line,&name,1);

    nname1 = (char **) tmalloc(num * sizeof(char *));
    nname2 = (char **) tmalloc(num * sizeof(char *));
    node1 = (CKTnode **) tmalloc(num * sizeof(CKTnode *));
    node2 = (CKTnode **) tmalloc(num * sizeof(CKTnode *));

    for (i = 0; i < num; i++) {
            INPgetNetTok(&line,&(nname1[i]),1);
            INPtermInsert(ckt,&(nname1[i]),tab,&(node1[i]));
    }
    INPgetTok(&line,&ground,1);
    INPtermInsert(ckt,&ground,tab,&groundnode);
    for (i = 0; i < num; i++) {
            INPgetNetTok(&line,&(nname2[i]),1);
            INPtermInsert(ckt,&(nname2[i]),tab,&(node2[i]));
    }
    INPgetTok(&line,&ground,1);
    INPtermInsert(ckt,&ground,tab,&groundnode);

    INPgetTok(&line,&model,1);
    if(*model) { /* token isn't null */
            INPinsert(&model,tab);
            thismodel = (INPmodel *)NULL;
            current->error = INPgetMod(ckt,model,&thismodel,tab);
            if(thismodel != NULL) {
                    if(mytype != thismodel->INPmodType) {
                            LITERR("incorrect model type")
                            return;
                    }
                    mdfast = thismodel->INPmodfast;
                    type = thismodel->INPmodType;
            } else {
                    type = mytype;
                    if(!tab->defPmod) {
                            /* create default P model */
                            IFnewUid(ckt, &uid, (IFuid)NULL, "P", UID_MODEL, NULL);
                            IFC(newModel, (ckt,type,&(tab->defPmod),uid))
                    }
                    mdfast = tab->defPmod;
            }
            IFC(newInstance,(ckt,mdfast,&fast,name))
            INPgetTok(&line,&model,1);
            if ((strcmp(model, "length") == 0) || (strcmp(model, "len") == 0)) {
                lenval = INPevaluate(&line,&error1,1);
                lenvalgiven = 1;
            }
    } else  {
            LITERR("model name is not found")
            return;
    }

    /* IFC(bindNode,(ckt,fast,1,fakename)) */

    ptemp.iValue = num;
    GCA(INPpName,("dimension", &ptemp,ckt,type,fast))
    ptemp.v.vec.sVec = nname1;
    GCA(INPpName,("pos_nodes", &ptemp,ckt,type,fast))
    ptemp.v.vec.sVec = nname2;
    GCA(INPpName,("neg_nodes", &ptemp,ckt,type,fast))
    if (error1 == 0 && lenvalgiven) {
            ptemp.rValue = lenval;
            GCA(INPpName,("length",&ptemp,ckt,type,fast))
    }

    return;
}
