WebSVN – Vertical – Diff – /branches/metal/vertlib/bundle.c

+ *
  * Revision 1.1  2001/09/12 21:27:21  mjames
  * Bundling for Certify .vb files. Bundle up all wires on a connector into a bus
  * with the same name as the connector and a width the same as the pins
  * on the connector
  *
- */
+*/
+#include <stdio.h>
+#include <string.h>
-#include "cmdlog.h"
+#include <stdlib.h>
-#include "cmdparse.h"
+#include <ctype.h>
+#include <sys/types.h>
+#include <regex.h>
-#include "database.h"
+#include "vertcl_main.h"
 #include "expression.h"
 #include "generic.h"
+#include "database.h"
+#include "cmdparse.h"
+#include "cmdlog.h"
 #include "printout.h"
 #include "sorting.h"
-#include "vertcl_main.h"
-#include <ctype.h>
-#include <regex.h>
 #include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/types.h>
 #ident "@(#)$Header: C:/cvsroot/Vert03/vertlib/bundle.c,v 1.2 2004/06/22 21:44:14 mjames Exp $"
 /* this function sets or clears all of the bundle group related to a socket */
 /* it allocates a unique integer to each net on the port list of the socket */
 /* faults : Does not check pin directions yet */
 /*          assumes a net is only on one socket. not true for rings ! */
-static void set_bundle (socket_t *socket, int set_or_clear)
+static void set_bundle(socket_t * socket, int set_or_clear )
-{
+  {
-        node_t *node;
+  node_t * node;
-        int rows, columns;
+  int rows,columns;
-        int bundle;
+  int bundle;
-        int bundle_base;
+  int bundle_base;
-        /* Use generics to set up the bundle base */
+/* Use generics to set up the bundle base */
-        generic_info_t gen[1];
+  generic_info_t gen[1];
-        if (!socket)
+  if(!socket)
-                return;
+    return;
-        /* is the array going from 130:1 or 129:0 ... */
+/* is the array going from 130:1 or 129:0 ... */
-        bundle_base = 1;
+  bundle_base = 1;
-        if (get_generic_value (&socket->generics, "bundle_base", gen) == IS_INTEGER)
+  if (get_generic_value(&socket->generics, "bundle_base",gen) == IS_INTEGER)
-        {
+    {
-                bundle_base = eval_expression (gen->expr, &global_generics);
+    bundle_base = eval_expression(gen->expr, &global_generics);
-        }
+    }
-        /* Removed Nov 2008 MDJ
-          if (get_generic_value(&global_generics, "bundle_base",gen) == IS_INTEGER)
+/* Removed Nov 2008 MDJ
-            {
+  if (get_generic_value(&global_generics, "bundle_base",gen) == IS_INTEGER)
-            bundle_base = eval_expression(gen->expr, &global_generics);
+    {
-            }
+    bundle_base = eval_expression(gen->expr, &global_generics);
-        */
+    }
-        /*
+*/
-            printf("bundle base \n",bundle_base);
+/*
-        */
+    printf("bundle base \n",bundle_base);
+*/
-        sort_nodes (socket, EXTRACT_XY);
-        /* the sort routine tells me pin row and column limits */
+  sort_nodes(socket,EXTRACT_XY);
-        /* rows are defined as numbers, columns defined as letters */
-        rows = socket->max_pin_row - socket->min_pin_row + 1;
+  /* the sort routine tells me pin row and column limits */
-        columns = socket->max_pin_col - socket->min_pin_col + 1;
+  /* rows are defined as numbers, columns defined as letters */
-        node = socket->nodes;
+  rows    = socket->max_pin_row - socket->min_pin_row+1;
-        bundle = 0;
+  columns = socket->max_pin_col - socket->min_pin_col+1;
-        while (node)
+  node = socket-> nodes;
-        {
+  bundle = 0;
-                net_t *net = node->net;
+  while (node)
-                /*
+    {
-                    printf("node %s\n",node->identifier);
+    net_t * net = node->net;
-                */
+/*
-                if (net)
+    printf("node %s\n",node->identifier);
-                {
+*/
-                        if (set_or_clear && net->how_routed != Not_Routable)
+    if(net)
-                        {
+      {
-                                node->bundle_index =
+      if(set_or_clear && net->how_routed != Not_Routable)
-                                    node->pin_row - socket->min_pin_row +
+        {
-                                    (node->pin_col - socket->min_pin_col) * rows + bundle_base;
+        node->bundle_index  = node->pin_row - socket->min_pin_row +
-                                net->bundle_member = 1;
+                             (node->pin_col - socket->min_pin_col) * rows +bundle_base;
-                                bundle++;
+        net->bundle_member =1;
-                                /*
+        bundle++;
-                                        printf("net %s ->
+/*
-                                   %s[%d]\n",net->identifier,net->bundle_parent->identifier,net->bundle_index);
+        printf("net %s -> %s[%d]\n",net->identifier,net->bundle_parent->identifier,net->bundle_index);
-                                */
+*/
-                        }
+        }
-                        else /* clear */
+      else /* clear */
-                        {
+        {
-                                node->bundle_index = -1;
+        node->bundle_index = -1;
-                                net->bundle_member = 0;
+        net->bundle_member = 0;
-                        }
+        }
-                }
+      }
-                else
+    else
-                {
+      {
-                        node->bundle_index = -1;
+      node->bundle_index = -1;
-                }
+      }
-                node = node->sktnext;
+   node = node->sktnext;
-        }
+    }
-        if (set_or_clear)
+  if (set_or_clear)
-        {
+    {
-                socket->highest_bundle =
+    socket->highest_bundle  = rows * columns+bundle_base-1  ; /* one more than bundle pins */
-                    rows * columns + bundle_base - 1; /* one more than bundle pins */
+    socket->lowest_bundle   = bundle_base;
-                socket->lowest_bundle = bundle_base;
+    socket->bundle_width    = bundle;
-                socket->bundle_width = bundle;
+    }
-        }
+  else
-        else
+    {
-        {
+    socket->highest_bundle = 0;
-                socket->highest_bundle = 0;
+    socket->lowest_bundle  = 0;
-                socket->lowest_bundle = 0;
+    socket->bundle_width   = 0;
-                socket->bundle_width = 0;
+    }
-        }
+  /* for further declarations */
-        /* for further declarations */
+  }
-}
+void wildcard_bundle(char * chip_id_template, int create_or_delete)
+  {
+  int rc;
+  socket_t * skt = socket_head;
+  int count = 0;
+  int found = 0;
+/*  create_unrouted_list(); */
+  /* compile regular expression */
+  vert_regex_t * preg;
+  if(!chip_id_template) {
+    chip_id_template = ".*";
+    }
+  rc = vert_regcomp(&preg,chip_id_template);
+  if (rc != 0 )
+    {
+    char errbuff[100];
+    regerror(rc,preg->preg,errbuff,100);
+    Log(LOG_ERROR,"-- Problem (rc=%d) %s with '%s' as regular expression\n",rc,errbuff,chip_id_template);
+/*    return TCL_ERROR;
+*/
+    return;
+    }
+  else
+    {
+    Log(LOG_GENERAL,"-- Using '%s' as match pattern\n",chip_id_template);
+    }
+  while(skt )
+    {
+    found  = regexec(preg->preg,skt->identifier,0,preg->regpatt,0);
+    if(!found) {
+/*
+      Log(LOG_GENERAL,"found %s\n",skt->identifier);
+*/
+      count++;
+      set_bundle(skt,create_or_delete);
+      }
+    skt = skt->next;
+    }
+  Log(LOG_GENERAL,"-- matched %d sockets\n",count);
+  vert_regfree(&preg);
+  }
-void wildcard_bundle (char *chip_id_template, int create_or_delete)
-{
-        int rc;
-        socket_t *skt = socket_head;
-        int count = 0;
-        int found = 0;
-        /*  create_unrouted_list(); */
-        /* compile regular expression */
-        vert_regex_t *preg;
-        if (!chip_id_template)
-        {
-                chip_id_template = ".*";
-        }
-        rc = vert_regcomp (&preg, chip_id_template);
-        if (rc != 0)
-        {
-                char errbuff[100];
-                regerror (rc, preg->preg, errbuff, 100);
-                Log (
-                    LOG_ERROR,
-                    "-- Problem (rc=%d) %s with '%s' as regular expression\n",
-                    rc,
-                    errbuff,
-                    chip_id_template);
-                /*    return TCL_ERROR;
-                 */
-                return;
-        }
-        else
-        {
-                Log (LOG_GENERAL, "-- Using '%s' as match pattern\n", chip_id_template);
-        }
-        while (skt)
-        {
-                found = regexec (preg->preg, skt->identifier, 0, preg->regpatt, 0);
-                if (!found)
-                {
-                        /*
-                              Log(LOG_GENERAL,"found %s\n",skt->identifier);
-                        */
-                        count++;
-                        set_bundle (skt, create_or_delete);
-                }
-                skt = skt->next;
-        }
-        Log (LOG_GENERAL, "-- matched %d sockets\n", count);
-        vert_regfree (&preg);
-}

Subversion Repositories Vertical

(root)/branches/metal/vertlib/bundle.c – Rev 2 → 11