/*============================================================================
FILE    IDNdig.c

MEMBER OF process XSPICE

Copyright 1991
Georgia Tech Research Corporation
Atlanta, Georgia 30332
All Rights Reserved

PROJECT A-8503

AUTHORS

    9/12/91  Bill Kuhn

MODIFICATIONS

    <date> <person name> <nature of modifications>

SUMMARY

    This file contains the definition of the 'digital' node type
    used by 12-state digital models in the code model library.
    These functions are called exclusively through function
    pointers in an Evt_Udn_Info_t data structure.

INTERFACES

    Evt_Udn_Info_t idn_digital_info

REFERENCED FILES

    None.

NON-STANDARD FEATURES

    None.

============================================================================*/

#include "ngspice.h"

#include "cm.h"

#include "evtudn.h"
 
/* ************************************************************************ */

void idn_digital_create(void **evt_struct)
{
    /* Malloc space for a digital struct */

	*evt_struct = tmalloc(sizeof(Digital_t));
}


/* ************************************************************************ */

void idn_digital_dismantle(void *evt_struct)
{
    /* Do nothing.  There are no internally malloc'ed things to dismantle */
}


/* ************************************************************************ */

void idn_digital_initialize(void *evt_struct)
{
    Digital_t  *dig_struct = (Digital_t *) evt_struct;


    /* Initialize to unknown state and strength */
    dig_struct->state = ZERO;
    dig_struct->strength = UNDETERMINED;
}


/* ************************************************************************ */

void idn_digital_invert(void *evt_struct)
{
    Digital_t  *dig_struct = (Digital_t *) evt_struct;


    /* Invert the state */
    switch(dig_struct->state) {

    case ZERO:
        dig_struct->state = ONE;
        return;

    case ONE:
        dig_struct->state = ZERO;
        return;

    default:
        return;
    }

}


/* ************************************************************************ */

void idn_digital_copy(void *evt_from_struct, void *evt_to_struct)
{
    Digital_t  *dig_from_struct = (Digital_t *) evt_from_struct;
    Digital_t  *dig_to_struct   = (Digital_t *) evt_to_struct;

    /* Copy the structure */
    dig_to_struct->state = dig_from_struct->state;
    dig_to_struct->strength = dig_from_struct->strength;
}


/* ************************************************************************ */

void idn_digital_resolve(int num_struct,
    void **evt_struct_array, void *evt_struct)
{
    Digital_t   **dig_struct_array;
    Digital_t   *dig_struct;

    static int  map[12][12] = {
                          {  0,  2,  2,  0,  0,  0,  0,  0,  0,  0,  2,  2},
                          {  2,  1,  2,  1,  1,  1,  1,  1,  1,  2,  1,  1},
                          {  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2},
                          {  0,  1,  2,  3,  5,  5,  3,  3,  3,  9, 11, 11},
                          {  0,  1,  2,  5,  4,  5,  4,  4,  4, 11, 10, 11},
                          {  0,  1,  2,  5,  5,  5,  5,  5,  5, 10, 11, 11},
                          {  0,  1,  2,  3,  4,  5,  6,  8,  8,  9, 11, 11},
                          {  0,  1,  2,  3,  4,  5,  8,  7,  8, 11, 10, 11},
                          {  0,  1,  2,  3,  4,  5,  8,  8,  8, 11, 11, 11},
                          {  0,  2,  2,  9, 11, 11,  9, 11, 11,  9, 11, 11},
                          {  2,  1,  2, 11, 10, 11, 11, 10, 11, 11, 10, 11},
                          {  2,  1,  2, 11, 11, 11, 11, 11, 11, 11, 11, 11} };

    int i;

    int index1;
    int index2;

    /* Cast the input void pointers to pointers of the digital type */
    dig_struct = (Digital_t *) evt_struct;
    dig_struct_array = (Digital_t   **)evt_struct_array;

    /* Copy the first member of the array directly to the output */
    dig_struct->state = dig_struct_array[0]->state;
    dig_struct->strength = dig_struct_array[0]->strength;

    /* Convert struct to index into map */
    index1 = dig_struct->state + ((int)dig_struct->strength) * 3;


    /* For the remaining members, perform the resolution algorithm */
    for(i = 1; i < num_struct; i++) {

        /* Convert struct to index into map */
        index2 = dig_struct_array[i]->state + 
                 ((int)dig_struct_array[i]->strength) * 3;

        /* Compute the result */
        index1 = map[index1][index2];
    }

    /* Convert result back to state and strength */
    dig_struct->state = (Digital_State_t) (index1 % 3);
    dig_struct->strength = (Digital_Strength_t) (index1 / 3);
}


/* ************************************************************************ */

void idn_digital_compare(void *evt_struct1, void *evt_struct2,
    Boolean_t *equal)
{
    Digital_t  *dig_struct1 = (Digital_t *) evt_struct1;
    Digital_t  *dig_struct2 = (Digital_t *) evt_struct2;

    /* Compare the structures in order of most likely differences */
    if(dig_struct1->state != dig_struct2->state)
        *equal = FALSE;
    else if(dig_struct1->strength != dig_struct2->strength)
        *equal = FALSE;
    else
        *equal = TRUE;
}


/* ************************************************************************ */

void idn_digital_plot_val(void *evt_struct, char *member, double *val)
{
    Digital_t   *dig_struct = (Digital_t *) evt_struct;


    /* Output a value for the requested member of the digital struct */
    if(strcmp(member,"strength") == 0) {

        /* Choose values that will not make plots lie on state plots */
        switch(dig_struct->strength) {

        case STRONG:
            *val = 0.1;
            return;

        case RESISTIVE:
            *val = 0.6;
            return;

        case HI_IMPEDANCE:
            *val = 1.1;
            return;

        case UNDETERMINED:
            *val = -0.4;
            return;
        }
    }
    else {
        /* member = "state" or anything else */

        /* Pick reasonable values */
        switch(dig_struct->state) {

        case ZERO:
            *val = 0.0;
            return;

        case ONE:
            *val = 1.0;
            return;

        case UNKNOWN:
            *val = 0.5;
            return;
        }
    }
}


/* ************************************************************************ */

void idn_digital_print_val(void *evt_struct, char *member, char **val)
{
    Digital_t   *dig_struct = (Digital_t *) evt_struct;

    int         index;

    static char *map[] = { "0s", "1s", "Us",
                           "0r", "1r", "Ur",
                           "0z", "1z", "Uz",
                           "0u", "1u", "Uu" };


    /* Output a value for the requested member of the digital struct */

    if(strcmp(member,"state") == 0) {

        /* Pick reasonable values */
        switch(dig_struct->state) {

        case ZERO:
            *val = "0";
            return;

        case ONE:
            *val = "1";
            return;

        case UNKNOWN:
            *val = "U";
            return;

        default:
            *val = "?";
            return;
        }
    }
    else if(strcmp(member,"strength") == 0) {

        /* Choose values that will not make plots lie on state plots */
        switch(dig_struct->strength) {

        case STRONG:
            *val = "s";
            return;

        case RESISTIVE:
            *val = "r";
            return;

        case HI_IMPEDANCE:
            *val = "z";
            return;

        case UNDETERMINED:
            *val = "u";
            return;

        default:
            *val = "?";
            return;
        }
    }
    else {
        index = dig_struct->state + ((int)dig_struct->strength) * 3;
        if((index < 0) || (index > 11))
            *val = "??";
        else
            *val = map[index];
        return;
    }
}



/* ************************************************************************ */

void idn_digital_ipc_val(void *evt_struct, void **ipc_val, int *ipc_val_size)
{
    /* Return the digital data structure and its size */
    *ipc_val = evt_struct;
    *ipc_val_size = sizeof(Digital_t);
}



Evt_Udn_Info_t idn_digital_info = {

"d",
"12 state digital data",
idn_digital_create,
idn_digital_dismantle,
idn_digital_initialize,
idn_digital_invert,
idn_digital_copy,
idn_digital_resolve,
idn_digital_compare,
idn_digital_plot_val,
idn_digital_print_val,
idn_digital_ipc_val

};

