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

 /*
  * $Id: ext_nets.c,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $
+ *
  * $Log: ext_nets.c,v $
  * Revision 1.1.1.1  2003/11/04 23:34:57  mjames
  * Imported into local repositrory
+ *
  * Mike put it here
+ *
+ *
  * Revision 1.27  2000/10/04  10:37:04  10:37:04  mjames (Mike James)
  * Modified for Vertical2 : support COMPONENTS and SIGNALS
  *
  * Revision 1.27  2000/10/04  10:37:04  10:37:04  mjames (Mike James)
  * Part of Release PSAVAT01
  *
  * Revision 1.26  2000/10/02  11:04:12  11:04:12  mjames (Mike James)
  * new_vhdl
  *
  * Revision 1.25  2000/09/27  14:42:13  14:42:13  mjames (Mike James)
  * Part of Release Sep_27_ST_2000
  *
  * Revision 1.24  2000/09/21  10:15:42  10:15:42  mjames (Mike James)
  * Part of Release Sep21Alpha
  *
  * Revision 1.23  2000/08/25  09:57:11  09:57:11  mjames (Mike James)
  * Part of Release Aug25_alpha
  *
  * Revision 1.22  2000/08/16  08:57:27  08:57:27  mjames (Mike James)
  * Part of Release CD01_Aug2000
  *
  * Revision 1.21  2000/08/14  14:45:08  14:45:08  mjames (Mike James)
  * Part of Release Aug_14_2000
  *
  * Revision 1.20  2000/08/11  08:30:29  08:30:29  mjames (Mike James)
  * Part of Release Aug_11_2000
  *
  * Revision 1.19  2000/08/09  10:31:43  10:31:43  mjames (Mike James)
  * Part of Release Aug__9_2000
  *
  * Revision 1.18  2000/05/31  11:42:51  11:42:51  mjames (Mike James)
  * Part of Release May_31_2000
  *
  * Revision 1.17  2000/05/08  17:01:34  17:01:34  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.16  2000/05/08  16:59:27  16:59:27  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.15  2000/05/08  16:57:04  16:57:04  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.14  2000/03/08  16:18:58  16:18:58  mjames (Mike James)
  * New version including PC
  *
  * Revision 1.11  2000/01/20  15:58:43  15:58:43  mjames (Mike James)
  * Part of Release R22
  *
  * Revision 1.10  99/12/22  11:15:23  11:15:23  mjames (Mike James)
  * Part of Release Dec_22_1999
  *
  * Revision 1.9  99/06/25  14:35:27  14:35:27  mjames (Mike James)
  * Added in reference to expression.h, but no changes made
  * to the function of acfread yet.
  *
  * Revision 1.8  99/06/18  09:23:50  09:23:50  mjames (Mike James)
  *
  * Revision 1.7  98/04/24  14:11:18  14:11:18  mjames (Mike James)
  * added generic.h header
  *
  * Revision 1.6  97/04/23  08:42:50  08:42:50  mjames (Mike James)
  * CHecked in for release rel23041997
  *
  * Revision 1.5  97/01/03  13:37:41  13:37:41  mjames (Mike James)
  * Altered the set/del ext functions to make themn stop after
  * they have found a match if a wildcarded net identifier was
  * not given.
  *
  * Revision 1.4  96/07/19  14:38:53  14:38:53  mjames (Mike James)
  * Update to give to PRL
  *
  * Revision 1.3  1996/07/12  15:52:12  mjames
  * Sorted out things like Alias and Jumpers
  * Work Correctly
  * Print COrrectly
+ *
  * Print COrrectly
+ *
  * Revision 1.2  96/06/17  13:01:53  13:01:53  mjames (Mike James)
  * Altered the printing of JUMPERED and ALIASED nets
  * ,
  *
  * Revision 1.1  96/06/04  11:54:57  11:54:57  mjames (Mike James)
  * Initial revision
  *  */
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
-#include "ext_nets.h"
+#include <ctype.h>
+#include <sys/types.h>
+#include <regex.h>
-#include "chck_names.h"
+#include "vertcl_main.h"
-#include "cmdlog.h"
-#include "cmdparse.h"
-#include "database.h"
 #include "expression.h"
 #include "generic.h"
+#include "database.h"
 #include "routing.h"
+#include "ext_nets.h"
+#include "cmdparse.h"
+#include "cmdlog.h"
+#include "chck_names.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>
 /* streq() and strneq() declaration */
 #include "lx_support.h"
-#ident                                                                                        \
-    "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/vertlib/ext_nets.c,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $"
+#ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/vertlib/ext_nets.c,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $"
-/* this function sets the is_external flags on sockets */
-typedef enum
-{
-        SET_EXT,
-        DEL_EXT,
-        SET_FPGA,
-        DEL_FPGA
-} flag_change_t;
-static void set_clear_flags (char *template, flag_change_t oper)
+/* this function sets the is_external flags on sockets */
-{
-        int rc;
-        long count = 0;
-        socket_t *skt = socket_head;
-        int found = 0, pass;
-        net_t *routed_net = routed_list;
-        /* compile regular expression */
-        vert_regex_t *preg;
-        rc = vert_regcomp (&preg, template);
+typedef enum { SET_EXT,DEL_EXT,SET_FPGA,DEL_FPGA } flag_change_t;
-        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,
-                    template);
+static void set_clear_flags(char * template,
+                            flag_change_t oper)
+  {
+  int rc;
+  long count = 0;
+  socket_t * skt = socket_head;
+  int found = 0,pass;
+  net_t *routed_net = routed_list;
+  /* compile regular expression */
+  vert_regex_t * preg;
+  rc = vert_regcomp(&preg,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,template);
-                return /*TCL_ERROR*/;
+    return /*TCL_ERROR*/;
+    }
+  else
+    {
+    Log(LOG_GENERAL,"-- Using '%s' as match pattern\n",template);
+    }
+  while(skt) {
+    found  = regexec(preg->preg,skt->identifier,0,preg->regpatt,0);
+    if(!found) {
+      switch (oper) {
+        case SET_EXT:
+          if(level & 4)
+            Log(LOG_GENERAL,"-- Set '%s' as external\n",skt->identifier);
+          skt->is_external = 1;
+          count++;
+          break;
+        case DEL_EXT:
+          if(level & 4)
+            Log(LOG_GENERAL,"-- Set '%s' as internal\n",skt->identifier);
+          skt->is_external = 0;
+          count++;
+          break;
+        case SET_FPGA:
+          if(level & 4)
+            Log(LOG_GENERAL,"-- Set '%s' as FPGA\n",skt->identifier);
+          skt->is_FPGA = 1;
+          count++;
+          break;
+        case DEL_FPGA:
+          if(level & 4)
+            Log(LOG_GENERAL,"-- Set '%s' as not FPGA\n",skt->identifier);
+          skt->is_FPGA = 0;
+          count++;
+          break;
+        }
+      }
+    skt = skt->next;
+    }
+/* code moved here from jumpering.c as it is needed in several contexts, not just in jumpering */
+/* firstly, set up the has_external flags on all of the nets, by checking to see if any
+   nodes on any nets are connected to external sockets.
+   If connected to an external socket, the net gets the property has_external*/
+  pass = 2;
+  while (pass)
+    {
+    if (pass == 2)
+      {
+      routed_net = routed_list;
+      pass = 1;
+      }
-        else
+    else
+      {
+      routed_net = named_list;
+      pass = 0;
+      };
+    while (routed_net)
+      {
+      noderef_t *noderefs = routed_net->nodes;
+      routed_net->has_external = 0;
+      while (noderefs)
+        {
+          if (noderefs->node->socket->is_external && !routed_net->has_external) {
+            routed_net->has_external = 1;
-                Log (LOG_GENERAL, "-- Using '%s' as match pattern\n", template);
+/*            Log(LOG_GENERAL,"-- external socket on net %s\n",routed_net->identifier); */
+            }
+          noderefs = noderefs->next;
+        }
-        while (skt)
-        {
-                found = regexec (preg->preg, skt->identifier, 0, preg->regpatt, 0);
-                if (!found)
-                {
-                        switch (oper)
-                        {
-                        case SET_EXT:
+/*      if(!routed_net->has_external)
-                                if (level & 4)
-                                        Log (
-                                            LOG_GENERAL,
-                                            "-- Set '%s' as external\n",
-                                            skt->identifier);
-                                skt->is_external = 1;
-                                count++;
-                                break;
-                        case DEL_EXT:
-                                if (level & 4)
-                                        Log (
-                                            LOG_GENERAL,
-                                            "-- Set '%s' as internal\n",
-                                            skt->identifier);
-                                skt->is_external = 0;
-                                count++;
-                                break;
-                        case SET_FPGA:
-                                if (level & 4)
-                                        Log (
-                                            LOG_GENERAL,
-                                            "-- Set '%s' as FPGA\n",
-                                            skt->identifier);
-                                skt->is_FPGA = 1;
-                                count++;
-                                break;
-                        case DEL_FPGA:
-                                if (level & 4)
-                                        Log (
-                                            LOG_GENERAL,
-                                            "-- Set '%s' as not FPGA\n",
-                                            skt->identifier);
+          Log(LOG_GENERAL,"-- no external socket on net %s\n",routed_net->identifier); */
-                                skt->is_FPGA = 0;
-                                count++;
-                                break;
-                        }
-                }
-                skt = skt->next;
+      routed_net = routed_net->next;
-        }
+      }
-        /* code moved here from jumpering.c as it is needed in several contexts, not just in
-         * jumpering */
+    }
-        /* firstly, set up the has_external flags on all of the nets, by checking to see if any
-           nodes on any nets are connected to external sockets.
-           If connected to an external socket, the net gets the property has_external*/
-        pass = 2;
-        while (pass)
-        {
-                if (pass == 2)
-                {
-                        routed_net = routed_list;
-                        pass = 1;
-                }
-                else
-                {
-                        routed_net = named_list;
-                        pass = 0;
-                };
-                while (routed_net)
-                {
-                        noderef_t *noderefs = routed_net->nodes;
-                        routed_net->has_external = 0;
-                        while (noderefs)
-                        {
-                                if (noderefs->node->socket->is_external &&
-                                    !routed_net->has_external)
-                                {
-                                        routed_net->has_external = 1;
-                                        /*            Log(LOG_GENERAL,"-- external socket on
-                                         * net %s\n",routed_net->identifier); */
-                                }
-                                noderefs = noderefs->next;
-                        }
-                        /*      if(!routed_net->has_external)
-                                  Log(LOG_GENERAL,"-- no external socket on net
-                           %s\n",routed_net->identifier); */
-                        routed_net = routed_net->next;
-                }
-        }
-        vert_regfree (&preg);
+  vert_regfree(&preg);
-        Log (LOG_GENERAL, "-- Set/cleared flag on %d objects\n", count);
+  Log(LOG_GENERAL,"-- Set/cleared flag on %d objects\n",count);
+  }
-}
-void set_external_flags (char *template)
+void set_external_flags(char * template )
-{
+  {
-        Log (LOG_GENERAL, "-- Beginning setting external flags : prefix '%s' --\n", template);
+  Log(LOG_GENERAL,"-- Beginning setting external flags : prefix '%s' --\n",template );
-        set_clear_flags (template, SET_EXT);
+  set_clear_flags(template,SET_EXT);
-        Log (LOG_GENERAL, "-- Finished setting external flags --\n");
+  Log(LOG_GENERAL,"-- Finished setting external flags --\n");
-}
+  }
-void clear_external_flags (char *template)
+void clear_external_flags(char * template )
-{
+  {
-        Log (LOG_GENERAL, "-- Beginning clearing external flags : prefix '%s' --\n", template);
+  Log(LOG_GENERAL,"-- Beginning clearing external flags : prefix '%s' --\n",template );
-        set_clear_flags (template, DEL_EXT);
+  set_clear_flags(template,DEL_EXT);
-        Log (LOG_GENERAL, "-- Finished clearing external flags --\n");
+  Log(LOG_GENERAL,"-- Finished clearing external flags --\n");
-}
+  }
-void set_FPGA_flags (char *template)
+void set_FPGA_flags(char * template )
-{
+  {
-        Log (LOG_GENERAL, "-- Beginning setting FPGA flags : prefix '%s' --\n", template);
+  Log(LOG_GENERAL,"-- Beginning setting FPGA flags : prefix '%s' --\n",template );
-        set_clear_flags (template, SET_FPGA);
+  set_clear_flags(template,SET_FPGA);
-        Log (LOG_GENERAL, "-- Finished setting FPGA flags --\n");
+  Log(LOG_GENERAL,"-- Finished setting FPGA flags --\n");
+  }
-}
-void clear_FPGA_flags (char *template)
+void clear_FPGA_flags(char * template )
-{
+  {
-        Log (LOG_GENERAL, "-- Beginning setting FPGA flags : prefix '%s' --\n", template);
+  Log(LOG_GENERAL,"-- Beginning setting FPGA flags : prefix '%s' --\n",template );
-        set_clear_flags (template, DEL_FPGA);
+  set_clear_flags(template,DEL_FPGA);
-        Log (LOG_GENERAL, "-- Finished setting FPGA flags --\n");
+  Log(LOG_GENERAL,"-- Finished setting FPGA flags --\n");
-}
+  }

Subversion Repositories Vertical

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