char *s_net_name (TOPLEVEL * pr_current, NETLIST * netlist_head,
NET * net_head, char *hierarchy_tag, int type)
{
char *string = NULL;
NET *n_start;
NETLIST *nl_current;
CPINLIST *pl_current;
char *net_name = NULL;
int found = 0;
char *temp;
int *unnamed_counter;
char *unnamed_string;
net_name = s_net_name_search(pr_current, net_head);
if (net_name) {
return (net_name);
}
#if DEBUG
printf("didn't find named net\n");
#endif
/* didn't find a name */
/* go looking for another net which might have already been named */
/* ie you don't want to create a new unnamed net if the net has */
/* already been named */
nl_current = netlist_head;
while (nl_current != NULL) {
if (nl_current->cpins) {
pl_current = nl_current->cpins;
while (pl_current != NULL) {
if (pl_current->nets) {
n_start = pl_current->nets;
if (n_start->next && net_head->next) {
found = s_net_find(n_start->next, net_head->next);
if (found) {
net_name =
s_net_name_search(pr_current, n_start);
if (net_name) {
return (net_name);
}
}
}
}
pl_current = pl_current->next;
}
}
nl_current = nl_current->next;
}
#if DEBUG
printf("didn't find previously named\n");
#endif
/* AND we don't want to assign a dangling pin */
/* which is signified by having only a head node */
/* which is just a place holder */
/* and the head node shows up here */
if (net_head->nid == -1 && net_head->prev == NULL
&& net_head->next == NULL) {
string = g_strdup_printf("unconnected_pin-%d",
unnamed_pin_counter++);
return (string);
}
switch (type) {
case PIN_TYPE_NET:
unnamed_counter = &unnamed_net_counter;
unnamed_string = pr_current->unnamed_netname;
break;
case PIN_TYPE_BUS:
unnamed_counter = &unnamed_bus_counter;
unnamed_string = pr_current->unnamed_busname;
break;
default:
g_critical ("Incorrect connectivity type %i in s_name_nets()\n", type);
return NULL;
}
/* have we exceeded the number of unnamed nets? */
if (*unnamed_counter < MAX_UNNAMED_NETS) {
if (netlist_mode == SPICE) {
string = g_strdup_printf("%d", (*unnamed_counter)++);
} else {
temp = g_strdup_printf ("%s%d", unnamed_string, (*unnamed_counter)++);
if (hierarchy_tag) {
string = s_hierarchy_create_netname (pr_current, temp, hierarchy_tag);
g_free (temp);
} else {
string = temp;
}
}
} else {
fprintf(stderr, "Increase number of unnamed nets (s_net.c)\n");
exit(-1);
}
return string;
}
NET *s_traverse_net (TOPLEVEL *pr_current, NET *nets, int starting,
OBJECT *object, char *hierarchy_tag, int type)
{
NET *new_net;
CONN *c_current;
GList *cl_current;
char *temp = NULL;
const gchar *netattrib_pinnum = NULL;
visit (object);
if (connection_type (object) != type)
return nets;
new_net = nets = s_net_add(nets);
new_net->nid = object->sid;
/* pins are not allowed to have the netname attribute attached to them */
if (object->type != OBJ_PIN) {
/* Ignore netname attributes on buses */
if (object->type == OBJ_NET)
temp = o_attrib_search_object_attribs_by_name (object, "netname", 0);
if (temp) {
new_net->net_name =
s_hierarchy_create_netname(pr_current, temp,
hierarchy_tag);
g_free(temp);
} else if (object->type == OBJ_NET) {
/* search for the old label= attribute on nets */
temp = o_attrib_search_object_attribs_by_name (object, "label", 0);
if (temp) {
printf(_("WARNING: Found label=%s. label= is deprecated, please use netname=\n"), temp);
new_net->net_name =
s_hierarchy_create_netname(pr_current, temp,
hierarchy_tag);
g_free(temp);
}
}
}
#if DEBUG
printf("inside traverse: %s\n", object->name);
#endif
if (object->type == OBJ_PIN) {
verbose_print (starting ? "p" : "P");
new_net->connected_to =
s_net_return_connected_string (pr_current, object, hierarchy_tag);
temp = o_attrib_search_object_attribs_by_name (object, "pinlabel", 0);
if (temp) {
new_net->pin_label = temp;
}
/* net= new */
netattrib_pinnum = s_netattrib_connected_string_get_pinnum (nets->connected_to);
if (netattrib_pinnum != NULL && type == PIN_TYPE_NET) {
#if DEBUG
printf("going to find netname %s \n", nets->connected_to);
#endif
nets->net_name =
s_netattrib_return_netname (pr_current, object,
nets->connected_to,
hierarchy_tag);
nets->net_name_has_priority = TRUE;
g_free(nets->connected_to);
nets->connected_to = NULL;
}
#if DEBUG
printf("traverse connected_to: %s\n", new_net->connected_to);
#endif
/* Terminate if we hit a pin which isn't the one we started with */
if (!starting)
return nets;
}
/*printf("Found net %s\n", object->name); */
verbose_print("n");
/* this is not perfect yet and won't detect a loop... */
if (is_visited(object) > 100) {
fprintf(stderr, _("Found a possible net/pin infinite connection\n"));
exit(-1);
}
cl_current = object->conn_list;
while (cl_current != NULL) {
c_current = (CONN *) cl_current->data;
if (c_current->other_object != NULL) {
if (!is_visited(c_current->other_object) &&
c_current->other_object != object) {
nets = s_traverse_net (pr_current, nets, FALSE,
c_current->other_object, hierarchy_tag, type);
}
}
cl_current = g_list_next(cl_current);
}
return (nets);
}
