/**********
Copyright 1991 Regents of the University of California.  All rights reserved.
Author:	1991 David A. Gates, U. C. Berkeley CAD Group
Modified: 2001 Paolo Nenzi
**********/

#include "ngspice/ngspice.h"
#include "ngspice/numcards.h"
#include "ngspice/numgen.h"
#include "ngspice/meshdefs.h"
#include "ngspice/devdefs.h"
#include "ngspice/sperror.h"
#include "ngspice/suffix.h"

extern int XMSHnewCard(GENcard**,GENmodel*);
extern int YMSHnewCard(GENcard**,GENmodel*);
extern int MESHparam(int,IFvalue*,GENcard*);



IFparm MESHpTable[] = {
  IP("location",MESH_LOCATION,	IF_REAL,	"Meshline location"),
  IP("width",	MESH_WIDTH,	IF_REAL,	"Distance to next line"),
  IP("number",	MESH_NUMBER,	IF_INTEGER,	"Meshline number"),
  IP("node",	MESH_NUMBER,	IF_INTEGER,	"Meshline number"),
  IP("ratio",	MESH_RATIO,	IF_REAL,	"Suggested spacing ratio"),
  IP("h.start",	MESH_H_START,	IF_REAL,	"Spacing at start of interval"),
  IP("h1",	MESH_H_START,	IF_REAL,	"Spacing at start of interVal"),
  IP("h.end",	MESH_H_END,	IF_REAL,	"Spacing at end of interval"),
  IP("h2",	MESH_H_END,	IF_REAL,	"Spacing at end of interval"),
  IP("h.max",	MESH_H_MAX,	IF_REAL,	"Max spacing during interval"),
  IP("h3",	MESH_H_MAX,	IF_REAL,	"Max spacing during interval")
};

IFcardInfo XMSHinfo = {
  "x.mesh",
  "Location of mesh lines",
  NUMELEMS(MESHpTable),
  MESHpTable,

  XMSHnewCard,
  MESHparam,
  NULL
};

IFcardInfo YMSHinfo = {
  "y.mesh",
  "Location of mesh lines",
  NUMELEMS(MESHpTable),
  MESHpTable,

  YMSHnewCard,
  MESHparam,
  NULL
};

int
XMSHnewCard(GENcard **inCard, GENmodel *inModel)
{
    MESHcard *tmpCard, *newCard;
    GENnumModel *model = (GENnumModel *)inModel;

    newCard = TMALLOC(MESHcard, 1);
    if (!newCard) {
        *inCard = NULL;
        return(E_NOMEM);
    }
    newCard->MESHnextCard = NULL;
    *inCard = (GENcard *) newCard;

    tmpCard = model->GENxMeshes;
    if (!tmpCard) { /* First in list */
        model->GENxMeshes = newCard;
    } else {
	/* Go to end of list */
        while (tmpCard->MESHnextCard) tmpCard = tmpCard->MESHnextCard;
	/* And add new card */
	tmpCard->MESHnextCard = newCard;
    }
    return(OK);
}

int
YMSHnewCard(GENcard **inCard, GENmodel *inModel)
{
    MESHcard *tmpCard, *newCard;
    GENnumModel *model = (GENnumModel *)inModel;

    newCard = TMALLOC(MESHcard, 1);
    if (!newCard) {
        *inCard = NULL;
        return(E_NOMEM);
    }
    newCard->MESHnextCard = NULL;
    *inCard = (GENcard *) newCard;

    tmpCard = model->GENyMeshes;
    if (!tmpCard) { /* First in list */
        model->GENyMeshes = newCard;
    } else {
	/* Go to end of list */
        while (tmpCard->MESHnextCard) tmpCard = tmpCard->MESHnextCard;
	/* And add new card */
	tmpCard->MESHnextCard = newCard;
    }
    return(OK);
}

int
MESHparam(int param, IFvalue *value, GENcard *inCard)
{
    MESHcard *card = (MESHcard *)inCard;

    switch (param) {
	case MESH_LOCATION:
	    card->MESHlocation = value->rValue;
	    card->MESHlocationGiven = TRUE;
	    break;
	case MESH_WIDTH:
	    card->MESHwidth = value->rValue;
	    card->MESHwidthGiven = TRUE;
	    break;
	case MESH_H_START:
	    card->MESHhStart = value->rValue;
	    card->MESHhStartGiven = TRUE;
	    break;
	case MESH_H_END:
	    card->MESHhEnd = value->rValue;
	    card->MESHhEndGiven = TRUE;
	    break;
	case MESH_H_MAX:
	    card->MESHhMax = value->rValue;
	    card->MESHhMaxGiven = TRUE;
	    break;
	case MESH_RATIO:
	    card->MESHratio = value->rValue;
	    card->MESHratioGiven = TRUE;
	    break;
	case MESH_NUMBER:
	    card->MESHnumber = value->iValue;
	    card->MESHnumberGiven = TRUE;
	    break;
	default:
	    return(E_BADPARM);
	    break;
    }
    return(OK);
}