Subversion Repositories Vertical

/*
 * $Id: unrouted.c,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $ 
 *
 * $Log: unrouted.c,v $
 * Revision 1.1.1.1  2003/11/04 23:34:57  mjames
 * Imported into local repositrory
 *
 * Revision 1.5  2002/09/27 22:27:37  MJAMES
 * Added lhs_expr for cases like
 *
 * x(0) <= y
 *
 * where x is std_logic_vector(0 downto 0) and y is std_logic.
 *
 * Revision 1.4  2002/01/16 10:08:53  mjames
 * converted to use #ident
 *
 * Revision 1.3  2001/10/31 22:20:19  mjames
 * Tidying up problematical comments caused by CVS
 * 'intelligent' comment guessing
 *
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>

#include "vertcl_main.h" 
#include "expression.h"
#include "generic.h"
#include "database.h"
#include "lx_support.h"
#include "unrouted.h"
#include "statistics.h"
#include "cmdparse.h"
#include "cmdlog.h"

#ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/vertlib/unrouted.c,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $"



/* function that creates the node reference lists for one chip in the list ,
   these functions perform operations that were done inside database.c.
  */
   
int create_nodes_from_refs(socket_t * socket,int donesomething)
  {
  unrouted_ref_t * ref,*prev;
  node_t * cnode;
  net_t *  cnet;
  char null_name;
  char * netname;
  int errseen = 0;
  if(!socket) {
    Log(LOG_ERROR,"-- missing socket \n");
    return(1);
    }

  ref = socket->unrouted_refs;
  while(ref) {

/* pick up any new pin identifiers */
    cnode = find_node(socket,Ident,ref->identifier,Create);

/* if this node is already on a net on the routed list,
   it has already been linked up 
   so it should not be duplicated !!  */  
/* iterate each node on the chip */

    if ((ref->listref == &routed_list) &&  cnode->net) /* duplicate !!! */   
      {
      if(! errseen) {
        errseen=1;
        Log(LOG_ERROR,"-- Errors while creating unrouted list from pins :\n");
        }
      Log(LOG_ERROR,"--  Error ! node %s(%s) is already in existence on routed net %s\n",
         socket->identifier,ref->identifier,cnode->net->name);
 
      }         
    else {
      netname   = ref->name;
      null_name = ISNULLSTR(netname);
    /* bidir pins are essentially free for routing */
      if (null_name || socket->is_template) {
        if(ref->pindir != BIDIR) 
          cnode->fixed_pin = 1;
        cnode->pindir    = ref->pindir;
      }
     if(socket->is_template || ref->listref == &routed_list) {
       cnode->pin_group = ref->pin_group;


       cnode->vhdltype  = ref->vhdltype; 
#if defined DEBUG_EXPRESSION  
       if (cnode->vhdltype) {
         print_msg_expression(stdout,"COPYING ",cnode->vhdltype->expr);
         }
#endif
       if(!null_name)
       cnode->name      = strdup(netname);
       }   
     if (!socket->is_template && !null_name ) {
       cnet  = find_net(ref->listref,
                        Ident,
                        netname,
                        Create);
       connect_node_net(ref->orig_name,
             cnode,cnet,ref->pindir,
             ref->vhdltype,
             ref->orig_vhdltype,
             ref->lhs_expr);
       donesomething = 1;  
       };   
    }
    prev=ref;
    ref= ref->next;
    free(prev);
    }
  socket->unrouted_refs = NULL; /* remove any references to unrouted stuff, 
                                   they are all free()'d now */    

  return 0;
  }


/* creates the unrouted list from unrouted_refs list for all sockets */
  
void create_unrouted_list(void)
{
  socket_t * socket = socket_head; 
  int donesomething = 0;
  while(socket) {
    donesomething = create_nodes_from_refs(socket,donesomething);
  socket=socket->next;
  
  }
  if(donesomething)
    Log(LOG_GENERAL,"-- New pins converted to unrouted net\n");

}


void rename_unrouted_pin_socket(socket_t * socket,
                                char * old_name,
                                char * new_name,vhdl_t * vhdl_type)  {
  unrouted_ref_t * ref;
  char * socket_name;
  

  socket_name = socket->identifier;

  ref = socket->unrouted_refs;
    
  if(!ref)
    Log(LOG_ERROR,"# ERROR pin rename : no pin '%s.%s'\n",socket_name,old_name);
   
    
  while(ref) { 
    if(strcmp2(old_name,ref->name)==0) {
    /* do rename only if there is a rename */
      if(strcmp2(ref->orig_name,ref->name)!=0) {
        ref->orig_name = ref->name; /* keep old name in alias part */
        ref->name = strdup(new_name); /* and rename the unrouted node */
        }
/* if it does not have a base type then copy it */
    if(!vhdl_type->basetype)
      vhdl_type->basetype = default_vhdl_datatype->basetype;

    /* do pinslicing only if there is a pin slice involved */
              
      if(vhdl_type != default_vhdl_datatype) {
        ref->orig_vhdltype = ref->vhdltype; /* keep old VHDL type around */
        if(vhdl_type)
          ref->vhdltype = copy_vhdl(vhdl_type,socket);         /* assign the new vhdl type */

        }
  

      if(level & 16)
        {    
        Log(LOG_GENERAL,"# renaming '%s.%s' to be '%s'\n",socket_name,ref->orig_name,ref->name);
        }
      break;
      }
    ref=ref->next;
    }
  } 


void rename_unrouted_pin(char * socket_name,char * old_name,char * new_name,vhdl_t * vhdl_type)  {
  socket_t * socket;
  socket = find_socket(Ident,socket_name,Search,&socket_head);  
  if(!socket) {
    Log(LOG_ERROR,"# ERROR connecting port : Cannot Locate socket identified as '%s'\n",socket_name);
    }
  else
    rename_unrouted_pin_socket(socket,old_name,new_name,vhdl_type);
  }