#include <config.h>
#include "ngspice.h"
#include "cktdefs.h"
#include "ftedefs.h"
#include <bool.h>
#include "circuits.h"
#include <wordlist.h>
#include "variable.h"


/* The option command. Syntax is option [opt ...] [opt = val ...]. 
 * Val may be a string, an int, a float, or a list of the 
 * form (elt1 elt2 ...).  */
void
com_option(wordlist *wl)
{

struct variable *vars;
    char *s;
    
    CKTcircuit *circuit = NULL;
	
    if (!ft_curckt) {
         fprintf(cp_err, "Error: no circuit loaded\n");
         return;
    }
    
    circuit = (CKTcircuit *)(ft_curckt->ci_ckt);
    

    if (wl == NULL) {
        printf("******************************\n");
        printf("* Current simulation options *\n");
        printf("******************************\n\n");
        printf("Temperatures:\n");        
        printf("temp = %f\n",circuit->CKTtemp);
        printf("tnom = %f\n",circuit->CKTnomTemp);
        
        printf("\nIntegration method summary:\n");
        switch (circuit->CKTintegrateMethod)
        	{
        		case TRAPEZOIDAL:
        			printf("Integration Method = TRAPEZOIDAL\n");
        			break;
        		case GEAR:
        			printf("Integration Method = GEAR\n");
        			break;
        		default:
        			printf("Unknown integration method\n");
        	}
        printf("MaxOrder = %d\n", circuit->CKTmaxOrder);
        
        printf("\nTolerances (absolute):\n");
        printf("abstol      (current) = %f\n", circuit->CKTabstol);
        printf("chgtol      (charge)  = %f\n", circuit->CKTchgtol);
        printf("volttol     (voltage) = %f\n", circuit->CKTvoltTol);
        printf("pivotabstol (pivot)   = %f\n", circuit->CKTpivotAbsTol);
        
        printf("\nTolerances (relative):\n");
        printf("reltol      (current) = %f\n", circuit->CKTreltol);
        printf("pivotreltol (pivot)   = %f\n", circuit->CKTpivotRelTol);

        printf("\nTruncation error:\n");
        printf("trtol = %f\n", circuit->CKTtrtol);
#ifdef NEWTRUNC
        printf("ltereltol = %f\n", circuit->CKTlteReltol);  
        printf("lteabstol = %f\n", circuit->CKTlteAbstol);
#endif /* NEWTRUNC */
        
        printf("\nConductances:\n"); 
        printf("gmin     (devices)  = %f\n", circuit->CKTgmin);
        printf("diaggmin (stepping) = %f\n", circuit->CKTdiagGmin);
        printf("gshunt = %f\n", circuit->CKTgshunt);
        
        
        printf("delmin = %f\n", circuit->CKTdelmin);
       
        printf("\nDefault parameters for MOS devices\n");
        printf("Default M: %f\n", circuit->CKTdefaultMosM);  
        printf("Default L: %f\n", circuit->CKTdefaultMosL);
        printf("Default W: %f\n", circuit->CKTdefaultMosW);
        printf("Default AD: %f\n", circuit->CKTdefaultMosAD);
        printf("Default AS: %f\n", circuit->CKTdefaultMosAS);
        
        return;
    }
    vars = cp_setparse(wl);

    /* This is sort of a hassle... */
    while (vars) { 
        switch (vars->va_type) {
	case VT_BOOL:
            s = (char *) &vars->va_bool;
            break;
	case VT_NUM:
            s = (char *) &vars->va_num;
            break;
	case VT_REAL:
            s = (char *) &vars->va_real;
            break;
	case VT_STRING:
            s = vars->va_string;
            break;
	case VT_LIST:
            s = (char *) vars->va_vlist;
            break;
	default:
	    s = (char *) NULL;
        }
        
        /* qui deve settare le opzioni di simulazione */
        cp_vset(vars->va_name, vars->va_type, s);
        vars = vars->va_next;
    }
    return;
}