src/hrc/hrcModify.c

Go to the documentation of this file.

#include "hrcInt.h"

static char rcsid[] UNUSED = "$Id: hrcModify.c,v 1.4 2005/04/16 04:23:47 fabio Exp $";

/*---------------------------------------------------------------------------*/
/* Constant declarations                                                     */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Stucture declarations                                                     */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Type declarations                                                         */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Variable declarations                                                     */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Macro declarations                                                        */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Static function prototypes                                                */
/*---------------------------------------------------------------------------*/


/*---------------------------------------------------------------------------*/
/* Definition of exported functions                                          */
/*---------------------------------------------------------------------------*/



boolean
Hrc_ModelAddSubckt(
  Hrc_Model_t *callerModel,
  Hrc_Model_t *calleeModel,
  char *instanceName,
  array_t *actualInputVars,
  array_t *actualOutputVars)
{
  Hrc_Subckt_t *subckt; 
  
  if(!st_is_member(callerModel->subcktTable, instanceName)) {
    subckt = ALLOC(Hrc_Subckt_t, 1);     
    subckt->model = calleeModel;
    subckt->instanceName = util_strsav(instanceName);
    subckt->actualInputVars = actualInputVars;
    subckt->actualOutputVars = actualOutputVars;
    st_insert(callerModel->subcktTable, subckt->instanceName, (char *) subckt);
    return TRUE;
  }
  else {
    return FALSE;
  }
}

void
Hrc_ModelAddNameTable(
  Hrc_Model_t *model,
  Tbl_Table_t *table)
{
  array_insert_last(Tbl_Table_t *, model->masterNode->nameTables, table);
}

boolean
Hrc_NodeAddChild(
  Hrc_Node_t *parent,
  Hrc_Node_t *child,
  array_t *actualInputs,
  array_t *actualOutputs)
{
  if(!st_is_member(parent->childTable, child->instanceName)) {
    st_insert(parent->childTable, child->instanceName, (char *) child);
    child->parentNode = parent;
    child->actualInputs = actualInputs;
    child->actualOutputs = actualOutputs;
    return TRUE;
  }
  else {
    return FALSE;
  }
}

boolean
Hrc_NodeAddLatch(
  Hrc_Node_t *node,
  Hrc_Latch_t *latch)
{
  char *latchOutputName = Var_VariableReadName(latch->latchOutput);
  
  if(!st_is_member(node->latchTable, latchOutputName)) {
    st_insert(node->latchTable, latchOutputName, (char *) latch);
    return TRUE;
  }
  else {
    return FALSE;
  }
}

boolean
Hrc_NodeAddVariable(
  Hrc_Node_t *node,
  Var_Variable_t *var)
{
  char *varName = Var_VariableReadName(var);
  
  if(!st_is_member(node->varTable, varName)) {
    st_insert(node->varTable, varName, (char *) var);
    return TRUE;
  }
  else {
    return FALSE;
  }
}

boolean
Hrc_NodeDeleteVariable(
  Hrc_Node_t *node,
  Var_Variable_t *var)
{
  char *varName = Var_VariableReadName(var);
  
  return st_delete(node->varTable, &varName, &var);
}

boolean
Hrc_NodeDeleteLatch(
  Hrc_Node_t *node,
  Hrc_Latch_t *latch)
{
  char *latchOutputName = Var_VariableReadName(latch->latchOutput);
  
  return st_delete(node->latchTable, &latchOutputName, &latch);
}

/*---------------------------------------------------------------------------*/
/* Definition of internal functions                                          */
/*---------------------------------------------------------------------------*/
Hrc_Node_t *
HrcNodeDeleteChild(
  Hrc_Node_t *node,
  char *childName)
{
  Hrc_Node_t *childNode;
  
  if(st_delete(node->childTable, &childName, &childNode)) {
    return childNode;
  }
  else {
    return NIL(Hrc_Node_t);
  }
}


/*---------------------------------------------------------------------------*/
/* Definition of static functions                                            */
/*---------------------------------------------------------------------------*/