Merge branch 'master' into netgen-1.5

.github/workflows/main.yml

@@ -1,40 +0,0 @@
-# This is a basic workflow to help you get started with Actions
-
-name: CI
-
-# Controls when the workflow will run
-on:
-  # Triggers the workflow on push or pull request events but only for the master branch
-  push:
-    branches: [ master ]
-  pull_request:
-    branches: [ master ]
-
-  # Allows you to run this workflow manually from the Actions tab
-  workflow_dispatch:
-
-# A workflow run is made up of one or more jobs that can run sequentially or in parallel
-jobs:
-  # This workflow contains a single job called "build"
-  build:
-    # The type of runner that the job will run on
-    runs-on: ubuntu-latest
-
-    # Steps represent a sequence of tasks that will be executed as part of the job
-    steps:
-      # Runs a set of commands using the runners shell
-      #- name: Logging into Dockerhub
-      #  run: docker login -u ${{ secrets.DOCKERHUB_USERNAME }} -p ${{ secrets.DOCKERHUB_PASSWORD }}
-        
-      - name: Pulling the docker image
-        run: docker pull vezzal/vezzal:v1
-        
-      - name: Start the container with the docker image
-        run: docker run -id --name test_netgen vezzal/vezzal:v1 bash | exit
-        
-      - name: Run the testing on the container and send the mail
-        run: docker exec test_netgen /vezzal/test_netgen.sh "tim@opencircuitdesign.com,lankasaicharan123@gmail.com" ${{ secrets.MAILING_KEY }}
-        
-  
-      
-          

.gitignore

@@ -1,17 +1,11 @@
 netgen
 netgenexec
 defs.mak
-scripts/defs.mak
 config.cache
 config.log
-scripts/config.log
 config.status
-scripts/config.status
-python/lvs_manager.py
 *.o
 *.so
 *~
 *.log
 UPDATE_ME
-tcltk/netgen.sh
-tcltk/netgen.tcl

Makefile

@@ -9,7 +9,7 @@ MODULES = base
 MAKEFLAGS =
 INSTALL_CAD_DIRS = lib doc
 
--include defs.mak
+include defs.mak
 
 all:	$(ALL_TARGET)
 
@@ -51,8 +51,8 @@ depend:
 install: $(INSTALL_TARGET)
 
 install-netgen:
-	@echo --- installing executable to $(DESTDIR)${INSTALL_BINDIR}
-	@echo --- installing run-time files to $(DESTDIR)${INSTALL_LIBDIR}
+	@echo --- installing executable to $(DESTDIR)${BINDIR}
+	@echo --- installing run-time files to $(DESTDIR)${LIBDIR}
 	@${MAKE} install-real >> install.log
 
 install-real: install-dirs
@@ -60,15 +60,15 @@ install-real: install-dirs
 		(cd $$dir && ${MAKE} install); done
 
 install-tcl-dirs:
-	${NETGENDIR}/scripts/mkdirs $(DESTDIR)${INSTALL_BINDIR} \
-		$(DESTDIR)${INSTALL_TCLDIR} $(DESTDIR)${INSTALL_PYDIR}
+	${NETGENDIR}/scripts/mkdirs $(DESTDIR)${BINDIR} \
+		$(DESTDIR)${TCLDIR} $(DESTDIR)${PYDIR}
 
 install-dirs:
-	${NETGENDIR}/scripts/mkdirs $(DESTDIR)${INSTALL_BINDIR}
+	${NETGENDIR}/scripts/mkdirs $(DESTDIR)${BINDIR}
 
 install-tcl: install-dirs
-	@echo --- installing executable to $(DESTDIR)${INSTALL_BINDIR}
-	@echo --- installing run-time files to $(DESTDIR)${INSTALL_LIBDIR}
+	@echo --- installing executable to $(DESTDIR)${BINDIR}
+	@echo --- installing run-time files to $(DESTDIR)${LIBDIR}
 	@${MAKE} install-tcl-real 2>&1 >> install.log
 
 install-tcl-real: install-tcl-dirs

README

@@ -1,8 +1,4 @@
-![Continuous Integration](https://github.com/RTimothyEdwards/netgen/actions/workflows/main.yml/badge.svg)
-
-# NETGEN
-
-### VERSION 1.5
+NETGEN:  VERSION 1.5
 
 NETGEN is a general-purpose netlist management system.  It can read
 and write several netlist formats, including NTK (Caltech, CMU),
@@ -89,51 +85,6 @@ and IRSIM version 9.7:
    make
    make install
 
-Note: For FreeBSD, use 'gmake' instead.
-
-Note: On MacOS (Big Sur) follow the following procedure. If you have installed `xschem` and `magic` already on MacOS then steps (1) and (2) can likely be skipped.
-
-**1) Build Tcl for X11**
-
-We are following the instructions from `xschem` (https://github.com/StefanSchippers/xschem/blob/master/README_MacOS.md). 
-
-* Download `Tcl` from https://prdownloads.sourceforge.net/tcl/tcl8.6.10-src.tar.gz
-
-We are using not `opt` but `opt2` so that this `Tcl` does not interfere with `tcl-tk` from HomeBrew.
-
-```
-./configure --prefix=/usr/local/opt2/tcl-tk  
-make
-make install
-```
-
-**2) Build Tk for X11**
-
-* Download `Tk` from https://prdownloads.sourceforge.net/tcl/tk8.6.10-src.tar.gz
-
-```
-./configure --prefix=/usr/local/opt2/tcl-tk \
---with-tcl=/usr/local/opt2/tcl-tk/lib --with-x \
---x-includes=/opt/X11/include --x-libraries=/opt/X11/lib  
-make
-make install
-```
-
-**3) Build netgen**
-
-We need to provide this custom-built `tcl-tk` and suppress compilation errors.
-
-```
-./configure --with-tcl=/usr/local/opt2/tcl-tk/lib \
---with-tk=/usr/local/opt2/tcl-tk/lib \
---x-includes=/opt/X11/include \
---x-libraries=/opt/X11/lib \
-CFLAGS=-Wno-error=implicit-function-declaration
-make
-make install
-```
-
-
 IN CASE OF FAILURE
 -------------------
 Please contact me (tim@opencircuitdesign.com) to report compile-time and

VERSION

@@ -1 +1 @@
-1.5.323
+1.5.124

base/actel.c

@@ -22,7 +22,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 #include <stdio.h>
 #include <stdarg.h>
-#include <strings.h>
 #include <ctype.h>
 #ifdef IBMPC
 #include <stdlib.h>  /* for strtol on PC */
@@ -91,7 +90,7 @@ char	*ActelName(char *Name)
   /* strip physical-pin information, if it exists */
   if ((nm = strrchr(name,PHYSICALPIN[0])) != NULL) *nm = '\0';
   if (strlen(name) > 13) {
-    ActelIndex = (ActelIndex + 1) % ACTELNAMESIZE;
+    ActelIndex = (++ActelIndex) % ACTELNAMESIZE;
     /* format the value of the hashed value of the string */
     sprintf(ActelNames[ActelIndex], "$%lX", ActelNameHash(name));
 if (Debug) 
@@ -102,7 +101,7 @@ Printf("ActelNameHash returns %s on name %s\n",ActelNames[ActelIndex], name);
   NeedsQuoting = 0;
   if (NULL != strpbrk(name, ".,:; \t\"'\n\r")) NeedsQuoting = 1;
 
-  ActelIndex = (ActelIndex + 1) % ACTELNAMESIZE;
+  ActelIndex = (++ActelIndex) % ACTELNAMESIZE;
   if (!NeedsQuoting) {
     strcpy(ActelNames[ActelIndex], name);
     return(ActelNames[ActelIndex]);
@@ -132,7 +131,7 @@ if format = 1, use the actel .pin file format
   struct nlist *tp;
   struct objlist *ob, *ob2;
   char *ptr;
-  char physicalpin[MAX_STR_LEN];
+  char physicalpin[200];
 
   tp = LookupCell(name);
   if (tp == NULL) return;

base/config.h

@@ -176,6 +176,4 @@ extern int open(char *path, int oflag, ...); /* HPUX has it in <sys/fcntl.h> */
 #define FALSE 0
 #endif
 
-#define MAX_STR_LEN 256
-
 #endif /* _CONFIG_H */

base/embed.c

@@ -629,7 +629,7 @@ struct embed *FlattenEmbeddingTree(struct embed *E)
 int LenEmbed(char *prefix, struct nlist *np, struct embed *E, int flatten)
 /* return the number of characters required to print element E */
 {
-  char longstr[MAX_STR_LEN];
+  char longstr[200];
 
   if (E == NULL) return(0);
   if (E->left == NULL && E->right == NULL) {
@@ -668,7 +668,7 @@ void PrintEmb(FILE *outfile, char *prefix, struct nlist *np,
     struct objlist *ob;
     char *instancename;
     struct nlist *np2;
-    char name[MAX_STR_LEN];
+    char name[200];
 
     ob = InstanceNumber(np,E->instancenumber);
     instancename = ob->instance.name;
@@ -706,7 +706,7 @@ void PrintEmbed(FILE *outfile, char *prefix, struct nlist *np,
     struct objlist *ob;
     char *instancename;
     struct nlist *np2;
-    char name[MAX_STR_LEN];
+    char name[200];
 
     ob = InstanceNumber(np,E->instancenumber);
     instancename = ob->instance.name;

base/ext.c

@@ -23,15 +23,12 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include <stdio.h>
 #include <stdlib.h>	/* for strtod() */
 #include <stdarg.h>
-#include <ctype.h>
 
 #include "netgen.h"
+#include "hash.h"
 #include "objlist.h"
 #include "netfile.h"
 #include "print.h"
-#include "hash.h"
-
-static int invlambda = 100;	/* Used in sim and prm files */
 
 void extCell(char *name, int filenum)
 {
@@ -169,7 +166,7 @@ char *ReadExt(char *fname, int doflat, int *fnum)
   int filenum;
 
   if ((filenum = OpenParseFile(fname, *fnum)) < 0) {
-    char name[MAX_STR_LEN];
+    char name[100];
 
     SetExtension(name, fname, EXT_EXTENSION);
     if ((filenum = OpenParseFile(name, *fnum)) < 0) {
@@ -189,7 +186,7 @@ char *ReadExt(char *fname, int doflat, int *fnum)
   /* Make sure all .ext file reading is case sensitive */
   matchfunc = match;
   matchintfunc = matchfile;
-  hashfunc = hashcase;
+  hashfunc = hash;
 
   if (LookupCellFile(fname, filenum) != NULL) {
     Printf("Error:  Duplicate cell name \"%s\"!\n", fname);
@@ -210,7 +207,7 @@ char *ReadExt(char *fname, int doflat, int *fnum)
     else if (match(nexttok, "style"))  SkipNewLine(NULL);
     else if (match(nexttok, "resistclasses"))  SkipNewLine(NULL);
     else if (match(nexttok, "node")) {
-      char name[MAX_STR_LEN];
+      char name[200];
 
       /* No cell is generated until at least one valid "node" or "use"	*/
       /* has been read in the file.					*/
@@ -225,8 +222,8 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "equiv")) {
-      char name[MAX_STR_LEN];
-      char name2[MAX_STR_LEN];
+      char name[200];
+      char name2[200];
       SkipTok(NULL);
       GetExtName(name, nexttok);
       if (LookupObject(name,CurrentCell) == NULL) Node(name);
@@ -237,8 +234,8 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "device")) {
-      char dev_name[MAX_STR_LEN], dev_class[MAX_STR_LEN];
-      char gate[MAX_STR_LEN], drain[MAX_STR_LEN], source[MAX_STR_LEN], subs[MAX_STR_LEN];
+      char dev_name[100], dev_class[100];
+      char gate[200], drain[200], source[200], subs[200];
       char inststr[64];
       SkipTok(NULL);
       strcpy(dev_class, nexttok);
@@ -308,8 +305,8 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "fet")) {	/* old-style FET record */
-      char fet_class[MAX_STR_LEN];
-      char gate[MAX_STR_LEN], drain[MAX_STR_LEN], source[MAX_STR_LEN], subs[MAX_STR_LEN];
+      char fet_class[100];
+      char gate[200], drain[200], source[200], subs[200];
       char inststr[64];
       SkipTok(NULL);
       strcpy(fet_class, nexttok);
@@ -367,7 +364,7 @@ char *ReadExt(char *fname, int doflat, int *fnum)
 	SkipNewLine(NULL);
       }
       else {
-        char ctop[MAX_STR_LEN], cbot[MAX_STR_LEN], cdummy[MAX_STR_LEN];
+        char ctop[200], cbot[200], cdummy[200];
 	SkipTok(NULL);
         GetExtName(ctop, nexttok);
 	SkipTok(NULL);
@@ -377,8 +374,8 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       }
     }
     else if (match(nexttok, "use")) {
-      char name[MAX_STR_LEN];
-      char instancename[MAX_STR_LEN];
+      char name[200];
+      char instancename[200];
       char *basename;
 
       /* No cell is generated until at least one valid "node" or "use"	*/
@@ -392,7 +389,7 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       SkipTok(NULL);
       GetExtName(name, nexttok);
       if ((basename = strrchr(name,'/')) != NULL) {
-	char tmp[MAX_STR_LEN];
+	char tmp[200];
 	strcpy(tmp, basename+1);
 	strcpy(name, tmp);
       }
@@ -407,8 +404,8 @@ char *ReadExt(char *fname, int doflat, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "merge")) {
-      char name[MAX_STR_LEN];
-      char name2[MAX_STR_LEN];
+      char name[200];
+      char name2[200];
       SkipTok(NULL);
       GetExtName(name, nexttok);
       SkipTok(NULL);
@@ -452,8 +449,7 @@ void simCell(char *name, int filenum)
   struct nlist *tp, *tp2;
   struct objlist *ob, *ob2;
   char FileName[500], simclass;
-  char writeLine[1024], paramString[128];
-  short i, p, mult;
+  short i;
   double l, w, v;
 
   tp = LookupCellFile(name, filenum);
@@ -481,9 +477,9 @@ void simCell(char *name, int filenum)
   }
 
   /* print out header list */
-  /* distance units are multiplied by invlambda */
+  /* distance units are multiplied by 100 (distances are in um) */
 
-  FlushString("| units: %d    tech: scmos\n", 100 * invlambda);
+  FlushString("| units: 100    tech: scmos\n");
 
   /* now run through cell's contents, print instances */
   for (ob = tp->cell; ob != NULL; ob = ob->next) {
@@ -519,17 +515,13 @@ void simCell(char *name, int filenum)
 	 case CLASS_NPN:
 	    simclass = 'b';
 	    break;	
-	 case CLASS_SUBCKT:
-	 case CLASS_MODULE:
-	    simclass = 'x';
-	    break;	
 	 default:
-	    simclass = '|';
+	    simclass = 'x';
 	    break;	
       }
 
       if (simclass != 'x')
-	 FlushString("%c", simclass);
+         FlushString("%c", simclass);
 
       switch (tp2->class) {
 	 case CLASS_NMOS: case CLASS_NMOS4:
@@ -597,115 +589,6 @@ void simCell(char *name, int filenum)
 	    FlushString(" %g\n", v);   
 	    break;
 
-	 case CLASS_MODULE:
-	    *writeLine = 'x';
-	    *(writeLine + 1) = '\0';
-	    mult = 1;
-
-	    /* Important---Need to look up the cell definition;  if
-	     * the first pin is "drain" then it is a FET, and pins
-	     * get swapped from D-G-S-B to G-S-D-B.  Source and drain
-	     * are treated here as equivalent because the .sim format
-	     * has no concept of an asymmetric source and drain.
-	     */
-	    ob2 = tp2->cell;
-	    if ((*matchfunc)(ob2->next->name, "gate"))
-	    {
-	      strcat(writeLine, " ");
-	      strcat(writeLine, NodeAlias(tp, ob->next));
-	      strcat(writeLine, " ");
-	      strcat(writeLine, NodeAlias(tp, ob));
-	      ob2 = ob->next->next;
-	    }
-	    else
-	      ob2 = ob;
-
-	    while (ob2 != NULL) {
-	      strcat(writeLine, " ");
-	      strcat(writeLine, NodeAlias(tp, ob2));
-	      ob2 = ob2->next;
-	      if ((ob2 == NULL) || (ob2->type <= FIRSTPIN)) break;
-	    }
-
-	    if (ob2 && ob2->type == PROPERTY) {
-	       struct valuelist *vl;
-	       /* Only known parameters are L, W, X, and Y */
-	       for (p = 0;; p++) {
-	          vl = (struct valuelist *)(&(ob2->instance.props[p]));
-		  if (vl->type == PROP_ENDLIST) {
-	             strcat(writeLine, " l=1");   
-		     break;
-		  }
-		  else if ((*matchfunc)(vl->key, "L")) {
-	             v = vl->value.dval;
-	             sprintf(paramString, " l=%d", (int)(0.5 + (v * invlambda)));   
-	             strcat(writeLine, paramString);
-		     break;
-		  }
-	       }
-	       for (p = 0;; p++) {
-	          vl = (struct valuelist *)(&(ob2->instance.props[p]));
-		  if (vl->type == PROP_ENDLIST) {
-	             strcat(writeLine, " w=1");   
-		     break;
-		  }
-		  else if ((*matchfunc)(vl->key, "W")) {
-	             v = vl->value.dval;
-	             sprintf(paramString, " w=%d", (int)(0.5 + (v * invlambda)));   
-	             strcat(writeLine, paramString);
-		     break;
-		  }
-	       }
-	       for (p = 0;; p++) {
-	          vl = (struct valuelist *)(&(ob2->instance.props[p]));
-		  if (vl->type == PROP_ENDLIST) {
-	             strcat(writeLine, " x=0");   
-		     break;
-		  }
-		  else if ((*matchfunc)(vl->key, "X")) {
-	             i = vl->value.ival;
-	             sprintf(paramString, " x=%d", i);
-	             strcat(writeLine, paramString);
-		     break;
-		  }
-	       }
-	       for (p = 0;; p++) {
-	          vl = (struct valuelist *)(&(ob2->instance.props[p]));
-		  if (vl->type == PROP_ENDLIST) {
-	             strcat(writeLine, " y=0");   
-		     break;
-		  }
-		  else if ((*matchfunc)(vl->key, "Y")) {
-	             i = vl->value.ival;
-	             sprintf(paramString, " y=%d", i);
-	             strcat(writeLine, paramString);
-		  }
-	       }
-	       for (p = 0;; p++) {
-	          vl = (struct valuelist *)(&(ob2->instance.props[p]));
-		  if (vl->type == PROP_ENDLIST) {
-		     break;
-		  }
-		  else if ((*matchfunc)(vl->key, "M")) {
-		     if (vl->type == PROP_INTEGER)
-	                mult = vl->value.ival;
-		     else
-	                mult = vl->value.dval;
-		  }
-	       }
-	    }
-	    strcat(writeLine, " ");
-	    strcat(writeLine, tp2->name);   
-	    strcat(writeLine, "\n");   
-
-	    /* Multiple instances (M != 1) are written multiple times.
-	     * NF is ignored in favor of having a single device with
-	     * the total width.
-	     */
-	    for (i = 0; i < mult; i++)
-		FlushString(writeLine);
-	    break;
-
 	 default:
 	    FlushString("| unhandled component %s\n", tp2->name);   
 	    break;
@@ -742,181 +625,6 @@ int StrIsInt(char *s)
     return (1);
 }
 
-/*------------------------------------------------------*/
-/* Read a .prm format file.  This is specifically to	*/
-/* get the "device" lines that indicate how a SPICE	*/
-/* subcircuit model or a .sim "x" record needs to be	*/
-/* translated into a specific component type like a	*/
-/* FET, diode, resistor, etc.				*/
-/*------------------------------------------------------*/
-
-char *ReadPrm(char *fname, int *fnum)
-{
-  int filenum;
-  struct keyvalue *kvlist = NULL;
-  struct nlist *tp;
-
-  if ((filenum = OpenParseFile(fname, *fnum)) < 0) {
-    char name[MAX_STR_LEN];
-
-    SetExtension(name, fname, PRM_EXTENSION);
-    if (OpenParseFile(name, *fnum) < 0) {
-      Printf("Error in prm file read: No file %s\n",name);
-      *fnum = filenum;
-      return NULL;
-    }    
-  }
-
-  /* Make sure all .prm file reading is case INsensitive */
-  /* This is because the only reason to read a PRM file	 */
-  /* is to find all the subcircuit device types	so that	 */
-  /* a SPICE file can be read and a SIM file written.	 */
-
-  matchfunc = matchnocase;
-  matchintfunc = matchfile;
-  hashfunc = hashnocase;
-
-  CellDef(fname, filenum);
-
-  while (!EndParseFile()) {
-    char devicename[MAX_STR_LEN];
-    SkipTok(NULL);
-
-    if (EndParseFile()) break;
-    if (nexttok[0] == ';') continue;		/* Comment line */
-    else if (nexttok[0] == '\0') continue;	/* Blank line */
-    else if (match(nexttok, "lambda")) {
-      SkipTok(NULL);
-      invlambda = (int)(0.5 + (1.0 / atof(nexttok)));
-      SkipNewLine(NULL); /* skip any attributes */
-    }
-    else if (match(nexttok, "device")) {
-      SkipTok(NULL);
-      if (match(nexttok, "nfet")) {
-	 SkipTok(NULL);
-	 strcpy(devicename, nexttok);
-	 /* Create 4-terminal nfet subcircuit device record */
-	 if (LookupCellFile(devicename, filenum) == NULL) {
-	     CellDef(devicename, filenum);
-	     Port("drain");
-	     Port("gate");
-	     Port("source");
-	     Port("bulk");
-	     PropertyDouble(devicename, filenum, "l", 0.01, 0.0);
-	     PropertyDouble(devicename, filenum, "w", 0.01, 0.0);
-	     PropertyInteger(devicename, filenum, "nf", 0, 1);
-	     PropertyInteger(devicename, filenum, "m", 0, 1);
-	     SetClass(CLASS_MODULE);
-	     EndCell();
-	     ReopenCellDef(fname, filenum);
-	 }
-         LinkProperties(devicename, kvlist);
-         SkipNewLine(NULL); /* skip any attributes */
-      }
-      else if (match(nexttok, "pfet")) {
-	 SkipTok(NULL);
-	 strcpy(devicename, nexttok);
-	 /* Create 4-terminal pfet subcircuit device record */
-	 if (LookupCellFile(devicename, filenum) == NULL) {
-	     CellDef(devicename, filenum);
-	     Port("drain");
-	     Port("gate");
-	     Port("source");
-	     Port("well");
-	     PropertyDouble(devicename, filenum, "l", 0.01, 0.0);
-	     PropertyDouble(devicename, filenum, "w", 0.01, 0.0);
-	     PropertyInteger(devicename, filenum, "nf", 0, 1);
-	     PropertyInteger(devicename, filenum, "m", 0, 1);
-	     SetClass(CLASS_MODULE);
-	     EndCell();
-	     ReopenCellDef(fname, filenum);
-	 }
-         LinkProperties(devicename, kvlist);
-         SkipNewLine(NULL); /* skip various attributes */
-      }
-      else if (match(nexttok, "resistor")) {
-	 SkipTok(NULL);
-	 strcpy(devicename, nexttok);
-	 /* Resistor device has additional record for the value */
-	 /* (Need to do something with this. . . ?) */
-	 SkipTok(NULL);
-	 /* Create resistor subcircuit device record */
-         if (LookupCellFile(devicename, filenum) == NULL) {
-            CellDef(devicename, filenum);
-            Port("end_a");
-            Port("end_b");
-            PropertyDouble(devicename, filenum, "value", 0.01, 0.0);
-	    PropertyDouble(devicename, filenum, "l", 0.01, 0.0);
-	    PropertyDouble(devicename, filenum, "w", 0.01, 0.0);
-	    PropertyInteger(devicename, filenum, "m", 0, 1);
-            SetClass(CLASS_MODULE);
-            EndCell();
-            ReopenCellDef(fname, filenum);
-         }
-	 LinkProperties(devicename, kvlist);
-         SkipNewLine(NULL); /* skip various attributes */
-      }
-      else if (match(nexttok, "capacitor")) {
-	 SkipTok(NULL);
-	 strcpy(devicename, nexttok);
-	 /* Capacitor device has additional record for the value */
-	 /* (Need to do something with this. . . ?) */
-	 SkipTok(NULL);
-	 /* Create capacitor subcircuit device record */
-         if (LookupCellFile(devicename, filenum) == NULL) {
-            CellDef(devicename, filenum);
-            Port("top");
-            Port("bottom");
-            PropertyDouble(devicename, filenum, "value", 0.01, 0.0);
-	    PropertyDouble(devicename, filenum, "l", 0.01, 0.0);
-	    PropertyDouble(devicename, filenum, "w", 0.01, 0.0);
-	    PropertyInteger(devicename, filenum, "m", 0, 1);
-            SetClass(CLASS_MODULE);
-            EndCell();
-            ReopenCellDef(fname, filenum);  /* Reopen */
-         }
-	 LinkProperties(devicename, kvlist);
-         SkipNewLine(NULL);
-      }
-      else if (match(nexttok, "diode")) {
-	 SkipTok(NULL);
-	 strcpy(devicename, nexttok);
-	 /* Create diode subcircuit device record */
-         if (LookupCellFile(devicename, filenum) == NULL) {
-            CellDef(devicename, filenum);
-            Port("anode");
-            Port("cathode");
-	    PropertyInteger(devicename, filenum, "m", 0, 1);
-            SetClass(CLASS_MODULE);
-            EndCell();
-            ReopenCellDef(fname, filenum);  /* Reopen */
-         }
-	 LinkProperties(devicename, kvlist);
-         SkipNewLine(NULL);
-      }
-      else {
-	Printf("Unknown device type in .prm: '%s'\n", nexttok);
-        InputParseError(stderr);
-        SkipNewLine(NULL);
-      }
-    }
-    else {
-      /* Could spell out all the keywords used in .prm files    */
-      /* but probably not worth the effort.                     */
-      SkipNewLine(NULL);
-    }
-    DeleteProperties(&kvlist);
-  }
-  EndCell();
-  CloseParseFile();
-
-  tp = LookupCellFile(fname, filenum);
-  if (tp) tp->flags |= CELL_TOP;
-
-  *fnum = filenum;
-  return fname;
-}
-
 /*-------------------------*/
 /* Read a .sim format file */
 /*-------------------------*/
@@ -931,11 +639,11 @@ char *ReadSim(char *fname, int *fnum)
   double simscale = 1.0;
 
   if ((filenum = OpenParseFile(fname, *fnum)) < 0) {
-    char name[MAX_STR_LEN];
+    char name[100];
 
     SetExtension(name, fname, SIM_EXTENSION);
     if (OpenParseFile(name, *fnum) < 0) {
-      Printf("Error in sim file read: No file %s\n",name);
+      Printf("Error in ext file read: No file %s\n",name);
       *fnum = filenum;
       return NULL;
     }    
@@ -944,7 +652,7 @@ char *ReadSim(char *fname, int *fnum)
   /* Make sure all .sim file reading is case sensitive */
   matchfunc = match;
   matchintfunc = matchfile;
-  hashfunc = hashcase;
+  hashfunc = hash;
 
   CellDef(fname, filenum);
 
@@ -961,7 +669,7 @@ char *ReadSim(char *fname, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "n")) {
-      char gate[MAX_STR_LEN], drain[MAX_STR_LEN], source[MAX_STR_LEN];
+      char gate[200], drain[200], source[200];
       char inststr[25], *instptr = NULL;
 
       SkipTok(NULL);
@@ -1005,7 +713,7 @@ char *ReadSim(char *fname, int *fnum)
       LinkProperties("n", kvlist);
     }
     else if (match(nexttok, "p")) {
-      char gate[MAX_STR_LEN], drain[MAX_STR_LEN], source[MAX_STR_LEN];
+      char gate[200], drain[200], source[200];
       char inststr[25], *instptr = NULL;
       SkipTok(NULL);
       GetExtName(gate, nexttok);
@@ -1045,7 +753,7 @@ char *ReadSim(char *fname, int *fnum)
       LinkProperties("p", kvlist);
     }
     else if (match(nexttok, "e")) {	/* 3-port capacitors (poly/poly2) */
-      char gate[MAX_STR_LEN], drain[MAX_STR_LEN], source[MAX_STR_LEN];
+      char gate[200], drain[200], source[200];
       char inststr[25], *instptr = NULL;
       SkipTok(NULL);
       GetExtName(gate, nexttok);
@@ -1079,7 +787,7 @@ char *ReadSim(char *fname, int *fnum)
       E(fname, instptr, gate, drain, source);
     }
     else if (match(nexttok, "b")) {		/* bipolars added by Tim 7/16/96 */
-      char base[MAX_STR_LEN], emitter[MAX_STR_LEN], collector[MAX_STR_LEN];
+      char base[200], emitter[200], collector[200];
       char inststr[25], *instptr = NULL;
       SkipTok(NULL);
       GetExtName(base, nexttok);
@@ -1117,7 +825,7 @@ char *ReadSim(char *fname, int *fnum)
 	SkipNewLine(NULL);
       }
       else {
-        char ctop[MAX_STR_LEN], cbot[MAX_STR_LEN], cdummy[MAX_STR_LEN];
+        char ctop[200], cbot[200], cdummy[200];
         SkipTok(NULL);
         GetExtName(ctop, nexttok);
         if (LookupObject(ctop, CurrentCell) == NULL)
@@ -1138,11 +846,11 @@ char *ReadSim(char *fname, int *fnum)
     }
     else if (match(nexttok, "r")) {	/* 2-port resistors */
       if (IgnoreRC) {
-	/* ignore all resistances */
+	/* ignore all capacitances */
 	SkipNewLine(NULL);
       }
       else {
-        char rtop[MAX_STR_LEN], rbot[MAX_STR_LEN];
+        char rtop[200], rbot[200];
         SkipTok(NULL);
         GetExtName(rtop, nexttok);
         if (LookupObject(rtop, CurrentCell) == NULL)
@@ -1166,7 +874,7 @@ char *ReadSim(char *fname, int *fnum)
 	SkipNewLine(NULL);
       }
       else {
-        char rtop[MAX_STR_LEN], rbot[MAX_STR_LEN], rdummy[MAX_STR_LEN];
+        char rtop[200], rbot[200], rdummy[200];
 	char inststr[25], *instptr = NULL;
         SkipTok(NULL);
         GetExtName(rdummy, nexttok);
@@ -1208,7 +916,7 @@ char *ReadSim(char *fname, int *fnum)
       SkipNewLine(NULL);
     }
     else if (match(nexttok, "=")) {
-      char node1[MAX_STR_LEN], node2[MAX_STR_LEN];
+      char node1[200], node2[200];
       SkipTok(NULL);
       GetExtName(node1, nexttok);
       SkipTok(NULL);

base/flatten.h

@@ -1,8 +0,0 @@
-#ifndef _FLATTEN_H
-#define _FLATTEN_H
-
-extern int UniquePins(char *name, int filenum);
-extern void flattenCell(char *name, int file);
-extern int HasContents(struct nlist *);
-
-#endif /* _FLATTEN_H */

base/hash.c

@@ -30,8 +30,8 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #endif
 
 #include "netgen.h"
-#include "objlist.h"
 #include "hash.h"
+#include "objlist.h"
 
 unsigned long (*hashfunc)(char *, int) = NULL;
 int (*matchfunc)(char *, char *) = NULL;
@@ -137,39 +137,32 @@ static unsigned char uppercase[] = {
 // horrible things can happen, as, for example, names AOI12 and OAI12
 // have exactly the same hash result.  Lousy for binning and even
 // lousier for generating class magic numbers.
-//
-// Updated again 4/2/2026 to the FNV-1a hash, which is better than
-// SDBM for this application, according to ChatGPT.
 
 unsigned long hashnocase(char *s, int hashsize)
 {
-	unsigned long hashval = 2166136261ul;
-	for (; *s != '\0'; s++) {
-	    hashval ^= uppercase[*s];
-	    hashval *= 16777619ul;
-	}
+	unsigned long hashval;
+	
+	for (hashval = 0; *s != '\0'; )
+	    hashval = uppercase[*s++]
+			+ (hashval << 6) + (hashval << 16) - hashval;
 	return (hashsize == 0) ? hashval : (hashval % hashsize);
 }
 
-unsigned long hashcase(char *s, int hashsize)
+unsigned long hash(char *s, int hashsize)
 {
-	unsigned long hashval = 2166136261ul;
-	for (; *s != '\0'; s++) {
-	    hashval ^= (unsigned char)(*s);
-	    hashval *= 16777619ul;
-	}
+	unsigned long hashval;
+	
+	for (hashval = 0; *s != '\0'; )
+	    hashval = (*s++) + (hashval << 6) + (hashval << 16) - hashval;
 	return (hashsize == 0) ? hashval : (hashval % hashsize);
 }
 
 unsigned long genhash(char *s, int c, int hashsize)
 {
-	unsigned long hashval = 2166136261ul;
-	hashval ^= (unsigned long)c;
-	hashval *= 16777619ul;
-	for (; *s != '\0'; s++) {
-	    hashval ^= (unsigned char)(*s);
-	    hashval *= 16777619ul;
-	}
+	unsigned long hashval;
+	
+	for (hashval = (unsigned long)c; *s != '\0'; )
+	    hashval = (*s++) + (hashval << 6) + (hashval << 16) - hashval;
 	return (hashsize == 0) ? hashval : (hashval % hashsize);
 }
 

base/hash.h

@@ -48,7 +48,7 @@ extern void *HashFirst(struct hashdict *dict);
 extern void *HashNext(struct hashdict *dict);
 
 extern unsigned long hashnocase(char *s, int hashsize);
-extern unsigned long hashcase(char *s, int hashsize);
+extern unsigned long hash(char *s, int hashsize);
 
 extern int (*matchfunc)(char *, char *);
 /* matchintfunc() compares based on the name and the first	*/

base/inetcomp.c

@@ -17,7 +17,6 @@ along with this program; see the file copying.  If not, write to
 the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 /* inetcomp.c -- a simple wrapper to the NETCOMP() function */
-#include "config.h"
 
 #include <stdio.h>
 #include "netgen.h"
@@ -34,7 +33,7 @@ void STRCPY(char *dest, char *source)
 
 int main(int argc, char *argv[])
 {
-  char cell1[MAX_STR_LEN], cell2[MAX_STR_LEN];
+  char cell1[200], cell2[200];
 
   Debug = 0;
   if (argc != 1) {

base/netcmp.h

@@ -7,10 +7,6 @@ extern struct nlist *Circuit1;
 extern struct nlist *Circuit2;
 
 extern int ExhaustiveSubdivision;
-extern int ExactTopology;
-
-extern int left_col_end;
-extern int right_col_end;
 
 #ifdef TCL_NETGEN
 #include <tcl.h>
@@ -27,7 +23,6 @@ extern void PrintCoreStats(void);
 extern void ResetState(void);
 extern void CreateTwoLists(char *name1, int file1, char *name2, int file2,
 		int dolist);
-extern void DescribeContents(char *name1, int file1, char *name2, int file2);
 extern int Iterate(void);
 extern int VerifyMatching(void);
 extern void PrintAutomorphisms(void);
@@ -38,8 +33,7 @@ extern int PermuteSetup(char *model, int filenum, char *pin1, char *pin2);
 extern int PermuteForget(char *model, int filenum, char *pin1, char *pin2);
 extern int EquivalenceElements(char *name1, int file1, char *name2, int file2);
 extern int EquivalenceNodes(char *name1, int file1, char *name2, int file2);
-extern int EquivalenceClasses(char *name1, int file1, char *name2, int file2,
-		int dounique);
+extern int EquivalenceClasses(char *name1, int file1, char *name2, int file2);
 extern int IgnoreClass(char *name, int file, unsigned char type);
 extern int MatchPins(struct nlist *tp1, struct nlist *tp2, int dolist);
 extern int PropertyOptimize(struct objlist *ob, struct nlist *tp, int run,
@@ -49,7 +43,6 @@ extern int  CreateCompareQueue(char *, int, char *, int);
 extern int  GetCompareQueueTop(char **, int *, char **, int *);
 extern int  PeekCompareQueueTop(char **, int *, char **, int *);
 extern void RemoveCompareQueue();
-extern int FlattenUnmatched(struct nlist *, char *, int, int);
 
 extern void PrintIllegalClasses();
 extern void PrintIllegalNodeClasses();
@@ -58,20 +51,9 @@ extern void PrintIllegalElementClasses();
 extern void DumpNetwork(struct objlist *ob, int cidx);
 extern void DumpNetworkAll(char *name, int file);
 
-extern void RegroupDataStructures();
-extern void FormatIllegalElementClasses();
-extern void FormatIllegalNodeClasses();
-extern int ResolveAutomorphsByProperty();
-extern int ResolveAutomorphsByPin(int match_nets);
-extern void SummarizeElementClasses(struct ElementClass *EC);
-extern int remove_group_tags(struct objlist *ob);
-
-
 #ifdef TCL_NETGEN
 extern int EquivalentNode();
 extern int EquivalentElement();
-extern void DeriveAreaProperty();
-extern void DerivePerimeterProperty();
 
 extern void enable_interrupt();
 extern void disable_interrupt();

base/netfile.c

@@ -47,18 +47,6 @@ static FILE *outfile;
 static int Graph = 0;
 int File;
 
-/*------------------------------------------------------*/
-/* Structure for stacking nested `if[n]def in verilog	*/
-/*------------------------------------------------------*/
-
-struct ifstack {
-    int invert;
-    struct property *kl;
-    struct ifstack *next;
-};
-
-struct ifstack *condstack = NULL;
-
 extern char *SetExtension(char *buffer, char *path, char *extension)
 /* add 'extension' to 'path' (overwriting previous extension, if any),
    write it into buffer (if buffer is null, malloc a buffer).
@@ -183,6 +171,7 @@ void CloseFile(char *filename)
 		fclose(outfile);
 }
 
+
 /* STUFF TO READ INPUT FILES */
 
 static char *line = NULL;	/* actual line read in */
@@ -202,29 +191,11 @@ struct filestack {
 
 static struct filestack *OpenFiles = NULL;
 
-struct hashdict *definitions = (struct hashdict *)NULL;
-
 #define WHITESPACE_DELIMITER " \t\n\r"
 
-/*----------------------------------------------------------------------*/
-/* Seek and Tell on infile stream, for use with handling generate	*/
-/* loops in verilog.							*/
-/*----------------------------------------------------------------------*/
-
-void SeekFile(long offset)
-{
-    fseek(infile, offset, SEEK_SET);
-}
-
-long TellFile()
-{
-    return ftell(infile);
-}
-
 /*----------------------------------------------------------------------*/
 /* TrimQuoted() ---							*/
 /* Remove spaces from inside single- or double-quoted strings.		*/
-/* Ignore verilog constant bits (e.g., "1'b0") when parsing.		*/
 /*----------------------------------------------------------------------*/
 
 void TrimQuoted(char *line)
@@ -240,13 +211,6 @@ void TrimQuoted(char *line)
     {
 	changed = FALSE;
 	qstart = strchr(lptr, '\'');
-	if (qstart && (qstart > lptr)) {
-	    if (isdigit(*(qstart - 1))) {
-		lptr = qstart + 1;
-		changed = TRUE;
-		continue;
-	    }
-	}
 	if (qstart)
 	{
 	    qend = strchr(qstart + 1, '\'');
@@ -287,6 +251,7 @@ void TrimQuoted(char *line)
 	    }
 	}
     }
+
 }
 
 /*----------------------------------------------------------------------*/
@@ -300,231 +265,39 @@ void TrimQuoted(char *line)
 
 int GetNextLineNoNewline(char *delimiter)
 {
-    char *newbuf;
-    int testc;
-    static int nested = 0;
-    int llen;
+  char *newbuf;
+  int testc;
 
-    if (feof(infile)) return -1;
+  if (feof(infile)) return -1;
 
-    while (1) {	    /* May loop indefinitely in an `if[n]def conditional */
+  // This is more reliable than feof() ...
+  testc = getc(infile);
+  if (testc == -1) return -1;
+  ungetc(testc, infile); 
 
-	// This is more reliable than feof() ...
-	testc = getc(infile);
-	if (testc == -1) return -1;
-	ungetc(testc, infile); 
+  if (linesize == 0) {
+	/* Allocate memory for line */
+	linesize = 500;
+	line = (char *)MALLOC(linesize);
+	linetok = (char *)MALLOC(linesize);
+  }
+  fgets(line, linesize, infile);
+  while (strlen(line) == linesize - 1) {
+       newbuf = (char *)MALLOC(linesize + 500);
+       strcpy(newbuf, line);
+       FREE(line);
+       line = newbuf;
+       fgets(line + linesize - 1, 501, infile);
+       linesize += 500;
+       FREE(linetok);
+       linetok = (char *)MALLOC(linesize);
+  }
+  linenum++;
+  strcpy(linetok, line);
+  TrimQuoted(linetok);
 
-	if (linesize == 0) {
-	    /* Allocate memory for line */
-	    linesize = 2000;
-	    line = (char *)MALLOC(linesize + 1);
-	    linetok = (char *)MALLOC(linesize + 1);
-	}
-	fgets(line, linesize, infile);
-	/* Immediately resolve backslash-EOL */
-	llen = strlen(line);
-	while ((llen > 1) && (llen < linesize - 1) && *(line + llen - 2) == '\\') {
-	    *(line + llen - 2) = '\n';
-	    fgets(line + llen - 1, linesize - llen + 1, infile);
-	    llen = strlen(line);
-	}
-	while (llen == linesize - 1) {
-	    /* Note that in the rare case where a newline is in the last buffer
-	     * position, we're done.
-	     */
-	    if (*(line + llen - 1) == '\n') break;
-
-	    newbuf = (char *)MALLOC(linesize + 501);
-	    strcpy(newbuf, line);
-	    FREE(line);
-	    line = newbuf;
-	    fgets(line + linesize - 1, 501, infile);
-	    llen = strlen(line);
-	    while ((llen > 1) && (llen < linesize - 1) && *(line + llen - 2) == '\\') {
-		*(line + llen - 2) = '\n';
-		fgets(line + llen - 1, linesize - llen + 1, infile);
-		llen = strlen(line);
-	    }
-	    linesize += 500;
-	    FREE(linetok);
-	    linetok = (char *)MALLOC(linesize + 1);
-	}
-
-	if (definitions == NULL)
-	    strcpy(linetok, line);
-	else {
-	    char *s, *t, *w, e;
-	    struct property *kl;
-	    int len, dlen, vlen, addin = 0;
-	    int oldlinesize = linesize;
-	    unsigned char found = TRUE;
-
-	    /* Check for substitutions (verilog only).  Make sure linetok is	*/
-	    /* large enough to hold the entire line after substitutions.	*/
-
-	    while (found) {	/* Do this recursively, for nested definitions */
-	       found = FALSE;
-
-	       for (s = line; *s != '\0'; s++) {
-		    if (*s == '`') {
-		        w = s + 1;
-		        while (isalnum(*w) || (*w == '_') || (*w == '$')) w++;
-		        e = *w;
-		        *w = '\0';
-		        kl = (struct property *)HashLookup(s + 1, definitions);
-		        if (kl != NULL) {
-			    dlen = strlen(s);
-			    if (kl->type == PROP_STRING) {
-			        vlen = strlen(kl->pdefault.string);
-			    }
-			    else vlen = 12;  /* Leave room for numeric conversion */
-			    addin += vlen - dlen + 1;
-			    found = TRUE;
-		        }
-		        *w = e;
-		    }
-	        }
-	        if (found) {
-		    len = strlen(line);
-		    if (len + addin > linesize) {
-		        while (len + addin > linesize) linesize += 500;
-		        FREE(linetok);
-		        linetok = (char *)MALLOC(linesize);
-		    }
-	        }
-
-		/* Make definition substitutions (verilog only) */
-
-	        t = linetok;
-	        for (s = line; *s != '\0'; s++) {
-		    if (*s == '`') {
-		        w = s + 1;
-		        while (isalnum(*w) || (*w == '_') || (*w == '$')) w++;
-		        e = *w;
-		        *w = '\0';
-		        kl = (struct property *)HashLookup(s + 1, definitions);
-		        if (kl != NULL) {
-			    if (kl->type == PROP_STRING)
-			        strcpy(t, kl->pdefault.string);
-			    else if (kl->type == PROP_INTEGER)
-			        sprintf(t, "%d", kl->pdefault.ival);
-			    else if (kl->type == PROP_DOUBLE)
-			        sprintf(t, "%g", kl->pdefault.dval);
-			    t += strlen(t);
-			    s = w - 1;
-		        }
-		        else *t++ = *s;
-		        *w = e;
-		    }
-		    else *t++ = *s;
-	        }
-	        *t = '\0';
-
-		/* Copy substituted linetok back to line and repeat until */
-		/* there are no more substitutions to be made.		  */
-
-		if (oldlinesize != linesize) {
-		    FREE(line);
-	    	    line = (char *)MALLOC(linesize + 501);
-		    oldlinesize = linesize;
-		}
-		strcpy(line, linetok);
-	    }
-	}
-
-	TrimQuoted(linetok);
-	linenum++;
-
-	nexttok = strdtok(linetok, WHITESPACE_DELIMITER, delimiter);
-	if (nexttok == NULL) return 0;
-
-	/* Handle `ifdef, `ifndef, `elsif, `else, and `endif (verilog	*/
-	/* only, where indicated by a non-NULL "definitions")		*/
-
-	if (definitions == NULL) return 0;
-
-	/* If currently skipping through a section, handle conditionals differently */
-
-	if (condstack) {
-	    if (((condstack->invert == 0) && (condstack->kl == NULL))
-			|| ((condstack->invert == 1) && (condstack->kl != NULL))) {
-		if (match(nexttok, "`ifdef") || match(nexttok, "`ifndef")) {
-		    nested++;
-		    continue;
-		}
-		else if (nested > 0) {
-		    if (match(nexttok, "`endif")) nested--;
-		    continue;
-		}
-		else if (nexttok[0] != '`') continue; 
-	    }
-	}
-
-	/* Handle conditionals (that is not being skipped over) */
-
-	if (match(nexttok, "`endif")) {
-	    if (condstack == NULL) {
-		fprintf(stderr, "Error:  `endif without corresponding `if[n]def\n");
-	    }
-	    else {
-		struct ifstack *iftop = condstack;
-		condstack = condstack->next;
-		FREE(iftop);   
-	    }
-	}
-
-	/* Note that `if[n]def may be nested. */
-    
-	else if (match(nexttok, "`ifdef") || match(nexttok, "`ifndef") ||
-		    match(nexttok, "`elsif") || match(nexttok, "`else")) {
-
-	    /* Every `ifdef or `ifndef increases condstack by 1 */
-	    if (nexttok[1] == 'i') {
-		struct ifstack *newif = (struct ifstack *)MALLOC(sizeof(struct ifstack));
-		newif->next = condstack;
-		condstack = newif;
-	    }
-	    if (condstack == NULL) {
-		fprintf(stderr, "Error:  %s without `if[n]def\n", nexttok);
-		break;
-	    }
-	    else {
-		if (match(nexttok, "`else")) {
-		    /* Invert the sense of the if[n]def scope */
-		    condstack->invert = (condstack->invert == 1) ? 0 : 1;
-		}
-		else if (match(nexttok, "`elsif")) {
-		    nexttok = strdtok(NULL, WHITESPACE_DELIMITER, delimiter);
-		    if (nexttok == NULL) {
-			fprintf(stderr, "Error:  `elsif with no conditional.\n");
-			return 0;
-		    }
-		    /* Keep the same scope but redefine the parameter */
-		    condstack->invert = 0;
-		    condstack->kl = (struct property *)HashLookup(nexttok, definitions);
-		}
-		else {
-		    condstack->invert = (nexttok[3] == 'n') ? 1 : 0;
-		    nexttok = strdtok(NULL, WHITESPACE_DELIMITER, delimiter);
-		    if (nexttok == NULL) {
-			fprintf(stderr, "Error:  %s with no conditional.\n", nexttok);
-			return 0;
-		    }
-		    condstack->kl = (struct property *)HashLookup(nexttok, definitions);
-		}
-	    }
-	}
-	else if (condstack) {
-	    if (((condstack->invert == 0) && (condstack->kl == NULL))
-			|| ((condstack->invert == 1) && (condstack->kl != NULL)))
-		continue;
-	    else
-		break;
-	}
-	else
-	    break;
-    }
-    return 0;
+  nexttok = strdtok(linetok, WHITESPACE_DELIMITER, delimiter);
+  return 0;
 }
 
 /*----------------------------------------------------------------------*/
@@ -539,24 +312,6 @@ void GetNextLine(char *delimiter)
     } while (nexttok == NULL);
 }
 
-/*----------------------------------------------------------------------*/
-/* Return a pointer to the line at the position of nexttok		*/
-/* This is used only when returning the entire line, untokenized, and	*/
-/* is only called by the verilog read routine when reading the value of	*/
-/* a `define statement.							*/
-/*----------------------------------------------------------------------*/
-
-char *GetLineAtTok()
-{
-    char *lpos;
-
-    if (nexttok == NULL) return NULL;
-    if (line == NULL) return NULL;
-
-    lpos = strstr(line, nexttok);
-    return lpos;
-}
-
 /*----------------------------------------------------------------------*/
 /* if nexttok is already NULL, force scanner to read new line		*/
 /*----------------------------------------------------------------------*/
@@ -592,31 +347,19 @@ void SkipTokNoNewline(char *delimiter)
 /*									*/
 /* Modified 3/30/2015 to include the condition where a comment line is	*/
 /* in the middle of a series of continuation lines.			*/
-/*									*/
-/* Modified 1/3/2024 to avoid skipping two lines if a line has only the	*/
-/* comment character '*' followed by a newline.  It seems that '\n' is	*/
-/* being ignored in WHITESPACE_DELIMITER, but it's easier to write the	*/
-/* code to find the exception rather than track down the problem in	*/
-/* GetNextLine().							*/
 /*----------------------------------------------------------------------*/
 
 void SpiceTokNoNewline(void)
 {
     int contline;
 
-    if ((nexttok = strdtok0(NULL, WHITESPACE_DELIMITER, NULL, FALSE)) != NULL) return;
+    if ((nexttok = strdtok(NULL, WHITESPACE_DELIMITER, NULL)) != NULL) return;
 
     while (nexttok == NULL) {
 	contline = getc(infile);
 	if (contline == '*') {
-	   char testline = ' ';
-	   while ((testline == ' ') || (testline == '\t'))
-	      testline = getc(infile);
-           if (testline != '\n') {
-              ungetc(testline, infile);
-	      GetNextLine(WHITESPACE_DELIMITER);
-	      SkipNewLine(NULL);
-	   }
+	   GetNextLine(WHITESPACE_DELIMITER);
+	   SkipNewLine(NULL);
 	   continue;
 	}
 	else if (contline != '+') {
@@ -628,8 +371,7 @@ void SpiceTokNoNewline(void)
 }
 
 /*----------------------------------------------------------------------*/
-/* Skip to the next token, ignoring any C-style comments and verilog	*/
-/* "(* ... *)"-style comments.						*/
+/* Skip to the next token, ignoring any C-style comments.		*/
 /*----------------------------------------------------------------------*/
 
 void SkipTokComments(char *delimiter)
@@ -645,11 +387,6 @@ void SkipTokComments(char *delimiter)
 		SkipTok(delimiter);
 	    if (nexttok) SkipTok(delimiter);
 	}
-	else if (match(nexttok, "(*")) {
-	    while (nexttok && !match(nexttok, "*)"))
-		SkipTok(delimiter);
-	    if (nexttok) SkipTok(delimiter);
-	}
 	else break;
     }
 }
@@ -685,7 +422,6 @@ void SpiceSkipNewLine(void)
   ungetc(contline, infile);
 }
 
-#if 0 /* Commented with "#if 0" due to comment characters in the comment */
 /*----------------------------------------------------------------------*/
 /* Function similar to strtok() for token parsing.  The difference is	*/
 /* that it takes two sets of delimiters.  The first is whitespace	*/
@@ -706,9 +442,8 @@ void SpiceSkipNewLine(void)
 /* the first character of the delimiter string in addition to marking	*/
 /* the boundary between two-character and one-character delimiters.	*/
 /*----------------------------------------------------------------------*/
-#endif
 
-char *strdtok0(char *pstring, char *delim1, char *delim2, char isverilog)
+char *strdtok(char *pstring, char *delim1, char *delim2)
 {
     static char *stoken = NULL;
     static char *sstring = NULL;
@@ -743,20 +478,9 @@ char *strdtok0(char *pstring, char *delim1, char *delim2, char isverilog)
     /* space character becomes part of the verilog name.  The remainder of the  */
     /* name is parsed according to the rules of "delim2".                       */
 
-    /* Special verilog rule exception:  To handle the problems caused by	*/
-    /* translating verilog backslash-escaped names into other netlist formats	*/
-    /* like SPICE where the convention is strictly prohibited, I have used the	*/
-    /* convention in qflow scripts to replace the trailing space with another	*/
-    /* backslash, so the name is effectively delimited by a pair of back-	*/
-    /* slashes.  Therefore check for a space or another backslash, whichever	*/
-    /* comes first.  That will satisfy both methods.  Technically this routine	*/
-    /* should know whether it is parsing SPICE or verilog and handle the syntax	*/
-    /* accordingly (needs to be done).						*/
-
-    if (isverilog && (*s == '\\')) {
-        s++;
+    if (*s == '\\') {
         while (*s != '\0') {
-	    if ((*s == ' ') || ((*s == '\\') && (*(s + 1) == '\0'))) {
+	    if (*s == ' ') {
 		s++;
 		break;
 	    }
@@ -824,17 +548,6 @@ char *strdtok0(char *pstring, char *delim1, char *delim2, char isverilog)
     return sstring;
 }
 
-/*----------------------------------------------------------------------*/
-/* strdtok() is the original string tokenizer.  It calls strdtok0()	*/
-/* with isverilog=TRUE, so that tokens are parsed as (potentially)	*/
-/* verilog names, which includes verilog backslash notation.		*/
-/*----------------------------------------------------------------------*/
-
-char *strdtok(char *pstring, char *delim1, char *delim2)
-{
-   return strdtok0(pstring, delim1, delim2, TRUE);
-}
-
 /*----------------------------------------------------------------------*/
 
 void InputParseError(FILE *f)
@@ -858,7 +571,7 @@ int OpenParseFile(char *name, int fnum)
   FILE *locfile;
   struct filestack *newfile;
 
-  locfile = fopen(name, "r");
+  locfile = fopen(name,"r");
   linenum = 0;
   /* reset the token scanner */
   nexttok = NULL;  
@@ -916,7 +629,7 @@ char *ReadNetlist(char *fname, int *fnum)
   };
   
 #ifdef mips
-  struct filetype formats[8];
+  struct filetype formats[7];
 
   formats[0].extension = NTK_EXTENSION;
   formats[0].proc = ReadNtk;
@@ -924,16 +637,14 @@ char *ReadNetlist(char *fname, int *fnum)
   formats[1].proc = ReadExtHier;
   formats[2].extension = SIM_EXTENSION;
   formats[2].proc = ReadSim;
-  formats[3].extension = PRM_EXTENSION;
-  formats[3].proc = ReadPrm;
-  formats[4].extension = SPICE_EXTENSION;
-  formats[4].proc = ReadSpice;
-  formats[5].extension = NETGEN_EXTENSION;
-  formats[5].proc = ReadNetgenFile;
-  formats[6].extension = VERILOG_EXTENSION;
-  formats[6].proc = ReadVerilogFile;
-  formats[7].extension = NULL;
-  formats[7].proc = NULL;
+  formats[3].extension = SPICE_EXTENSION;
+  formats[3].proc = ReadSpice;
+  formats[4].extension = NETGEN_EXTENSION;
+  formats[4].proc = ReadNetgenFile;
+  formats[5].extension = VERILOG_EXTENSION;
+  formats[5].proc = ReadVerilogFile;
+  formats[6].extension = NULL;
+  formats[6].proc = NULL;
 
 #else  /* not mips (i.e. compiler with reasonable initializers) */
   
@@ -942,16 +653,10 @@ char *ReadNetlist(char *fname, int *fnum)
       {NTK_EXTENSION, ReadNtk},
       {EXT_EXTENSION, ReadExtHier},
       {SIM_EXTENSION, ReadSim},
-      {PRM_EXTENSION, ReadPrm},
       {SPICE_EXTENSION, ReadSpice},
       {SPICE_EXT2, ReadSpice},
       {SPICE_EXT3, ReadSpice},
-      {SPICE_EXT4, ReadSpice},
-      {SPICE_EXT5, ReadSpice},
-      {SPICE_EXT6, ReadSpice},
-      {SPICE_EXT7, ReadSpice},
       {VERILOG_EXTENSION, ReadVerilog},
-      {SYS_VERILOG_EXTENSION, ReadVerilog},
       {NETGEN_EXTENSION, ReadNetgenFile},
       {NULL, NULL}
     };
@@ -959,15 +664,13 @@ char *ReadNetlist(char *fname, int *fnum)
 
   /* make first pass looking for extension */
   for (index = 0; formats[index].extension != NULL; index++) {
-    int extlen = strlen(formats[index].extension);
-    int flen = strlen(fname);
-    if (!strcmp(fname + flen - extlen, formats[index].extension)) {
+    if (strstr(fname, formats[index].extension) != NULL) {
       return (*(formats[index].proc))(fname, fnum);
     }
   }
   /* try appending extensions in sequence, and testing for file existance */
   for (index = 0; formats[index].extension != NULL; index++) {
-    char testname[MAX_STR_LEN];
+    char testname[200];
     strcpy(testname, fname);
     strcat(testname, formats[index].extension);
     if (OpenParseFile(testname, *fnum) >= 0) {
@@ -1072,7 +775,7 @@ void WriteNetgenFile(char *name, char *filename)
 
 char *ReadNetgenFile (char *fname, int *fnum)
 {
-  char name[MAX_STR_LEN];
+  char name[100];
   char *LastCellRead = NULL;
   int filenum;
 
@@ -1308,7 +1011,7 @@ int READ(void *buf, int bytes)
 
 char *ReadNetgenFile (char *fname, int *fnum)
 {
-  char name[MAX_STR_LEN];
+  char name[100];
   int len, chars;
   char *LastCellRead = NULL;
 

base/netfile.h

@@ -7,19 +7,13 @@
 #define WOMBAT_EXTENSION ".wom"
 #define EXT_EXTENSION ".ext"
 #define SIM_EXTENSION ".sim"
-#define PRM_EXTENSION ".prm"
 #define SPICE_EXTENSION ".spice"
 #define SPICE_EXT2 ".spc"
-#define SPICE_EXT3 ".sp"
-#define SPICE_EXT4 ".spi"
-#define SPICE_EXT5 ".fspc"
-#define SPICE_EXT6 ".cir"
-#define SPICE_EXT7 ".ckt"
+#define SPICE_EXT3 ".fspc"
 #define NETGEN_EXTENSION ".ntg"
 #define CCODE_EXTENSION ".c.code"
 #define ESACAP_EXTENSION ".esa"
 #define VERILOG_EXTENSION ".v"
-#define SYS_VERILOG_EXTENSION ".sv"
 
 #define LINELENGTH 80
 
@@ -30,18 +24,14 @@ extern void FlushString (char *format, ...);
 extern char *SetExtension(char *buffer, char *path, char *extension);
 
 extern int File;
-extern struct hashdict *definitions;
 
 /* input routines */
 
 extern char *nexttok;
 #define SKIPTO(a) do {SkipTok(NULL);} while (!match(nexttok,a))
-extern char *strdtok0(char *pstring, char *delim1, char *delim2, char isverilog);
 extern char *strdtok(char *pstring, char *delim1, char *delim2);
-extern char *GetLineAtTok();
 extern void SkipTok(char *delimiter);
 extern void SkipTokNoNewline(char *delimiter);
-extern void SkipTokComments(char *delimiter);
 extern void SkipNewLine(char *delimiter);
 extern void SpiceTokNoNewline(void);	/* handles SPICE "+" continuation line */
 extern void SpiceSkipNewLine(void);	/* handles SPICE "+" continuation line */
@@ -49,7 +39,5 @@ extern void InputParseError(FILE *f);
 extern int OpenParseFile(char *name, int fnum);
 extern int EndParseFile(void);
 extern int CloseParseFile(void);
-extern void SeekFile(long offset);	/* handles verilog 'for' loops */
-extern long TellFile();			/* handles verilog 'for' loops */
 
 #endif /* _NETFILE_H */

base/netgen.h

@@ -39,13 +39,11 @@ extern void SetParallelCombine(int value);
 extern void SetSeriesCombine(int value);
 extern int  PropertyTolerance(char *name, int fnum, char *key, int ival,
 		double dval);
-extern int  PropertyAssociatePin(char *name, int fnum, char *key, char *pin);
 extern int  PropertyMerge(char *name, int fnum, char *key, int merge_type,
 		int merge_mask);
 extern void ResolveProperties(char *name1, int file1, char *name2, int file2);
 extern void CopyProperties(struct objlist *obj_to, struct objlist *obj_from);
-extern int PromoteProperty(struct property *, struct valuelist *,
-		struct objlist *, struct nlist *);
+extern int PromoteProperty(struct property *, struct valuelist *);
 extern int SetPropertyDefault(struct property *, struct valuelist *);
 extern struct objlist *LinkProperties(char *model, struct keyvalue *topptr);
 extern int ReduceExpressions(struct objlist *instprop, struct objlist *parprops,
@@ -67,15 +65,6 @@ extern void AssignCircuits(char *name1, int file1, char *name2, int file2);
 /* flatten.c */
 extern int PrematchLists(char *, int, char *, int);
 
-/* verilog.c */
-struct cellstack {
-	char *cellname;
-	struct cellstack *next;
-};
-
-void ReadVerilogFile(char *fname, int filenum, struct cellstack **CellStackPtr,
-	int blackbox);
-
 /* Define (enumerate) various device classes, largely based on SPICE	*/
 /* model types, mixed with some ext/sim types.				*/
 
@@ -151,7 +140,6 @@ extern int NoOutput;      /* set this to 1 to disable stdout output */
 extern int Composition;	  /* direction of composition */
 extern int UnixWildcards; /* TRUE if *,?,{},[] only; false if full REGEXP */
 extern int GlobalParallelNone;	/* If TRUE, don't parallel combine any cells */
-extern int GlobalParallelOpen;	/* If TRUE, parallel combine cells w/no-connects */
 /* magic internal flag to restrict searches to recently placed cells */
 extern int QuickSearch;
 /* does re"CellDef"ing a cell add to it or overwrite it??? */
@@ -191,7 +179,6 @@ extern char *ReadNtk (char *fname, int *fnum);
 extern char *ReadExtHier(char *fname, int *fnum);
 extern char *ReadExtFlat(char *fname, int *fnum);
 extern char *ReadSim(char *fname, int *fnum);
-extern char *ReadPrm(char *fname, int *fnum);
 extern char *ReadSpice(char *fname, int *fnum);
 extern char *ReadSpiceLib(char *fname, int *fnum);
 extern char *ReadNetgenFile (char *fname, int *fnum);

base/ntk.c

@@ -181,7 +181,7 @@ void Ntk(char *name, char *filename)
 
 char *ReadNtk (char *fname, int *fnum)
 {
-  char	model[MAX_STR_LEN], instancename[MAX_STR_LEN], name[MAX_STR_LEN];
+  char	model[100], instancename[100], name[100];
   struct objlist *ob;
   int CellDefInProgress = 0;
   int filenum;
@@ -218,7 +218,7 @@ char *ReadNtk (char *fname, int *fnum)
       }
     } 
     else if (match(nexttok, "s")) {
-      char last[MAX_STR_LEN];
+      char last[100];
       *last = '\0';
       if (!CellDefInProgress) {
 	/* fake cell declaration for top-level call */

base/objlist.c

@@ -22,7 +22,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 #include <stdio.h>
 #include <ctype.h>
-#include <limits.h>
 #ifdef IBMPC
 #include <alloc.h>
 #endif
@@ -32,13 +31,13 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #endif
 
 #include "netgen.h"
+#include "hash.h"
 #include "objlist.h"
 #include "regexp.h"
 #include "dbug.h"
 #include "print.h"
 #include "netfile.h"
 #include "netcmp.h"
-#include "hash.h"
 
 #ifdef TCL_NETGEN
 extern Tcl_Interp *netgeninterp;
@@ -130,7 +129,6 @@ struct property *NewProperty(void)
 	
 	kl = (struct property *)CALLOC(1,sizeof(struct property));
 	if (kl == NULL) Fprintf(stderr,"NewProperty: Core allocation error\n");
-	kl->pin = (char *)NULL;
 	return (kl);
 }
 
@@ -223,35 +221,12 @@ int matchnocase(char *st1, char *st2)
 {
    char *sp1 = st1;
    char *sp2 = st2;
-   char v1 = FALSE, v2 = FALSE;
-
-   /* In case of a property that does not exist in one netlist, matchnocase()
-    * may be passed a null value, so return 0 to indicate a non-match.
-    * *Both* values null will also be treated as a mismatch (debatable
-    * behavior).
-    */
-   if (!sp1 || !sp2) return 0;
-
-   /* Verilog back-slash escaped names should match an equivalent non-
-    * back-slashed name.  (NOTE: This behavior needs to be added to match().)
-    */
-   if ((*sp1 == '\\') && (*sp2 != '\\')) {
-      v1 = TRUE;
-      sp1++;
-   }
-   if ((*sp2 == '\\') && (*sp1 != '\\')) {
-      v2 = TRUE;
-      sp2++;
-   }
 
    while (*sp1 != '\0' && *sp2 != '\0') {
       if (to_lower[*sp1] != to_lower[*sp2]) break;
       sp1++;
       sp2++;
    }
-   if (v1 && (*sp1 == ' ')) sp1++;
-   if (v2 && (*sp2 == ' ')) sp2++;
-
    if ((*sp1 != '\0') || (*sp2 != '\0')) return 0;
    return 1;
 }
@@ -282,33 +257,6 @@ int matchfilenocase(char *st1, char *st2, int f1, int f2)
    return 1;
 }
 
-/* Delimiter matching---Find an opening delimiter in a string.		*/
-/* Return the position of the first opening delimeter in the string,	*/
-/* like strchr().  Place the actual delimeter character in *delim.	*/
-
-char *get_array_delimiter(char *name, char *delim)
-{
-    char *stest = name;
-
-    while (*stest != '\0')
-    {
-	if (to_lower[*stest] == '<') {
-	    *delim = *stest;
-	    return stest;
-	}
-	stest++;
-    }
-    return NULL;
-}
-
-/* Delimiter parsing---Check if a character is an opening array delimiter. */
-/* Return TRUE if the character is an opening delimiter, FALSE if not.	   */
-
-int is_delimiter(char testc)
-{
-    return (to_lower[testc] == '<') ? TRUE : FALSE;
-}
-
 #ifdef HAVE_MALLINFO
 void PrintMemoryStats(void)
 {
@@ -340,8 +288,8 @@ static struct hashdict cell_dict;
 
 void InitCellHashTable(void)
 {
-    hashfunc = hashcase;
-    matchfunc = NULL;
+    hashfunc = hash;
+    matchfunc = match;
     matchintfunc = matchfile;
     InitializeHashTable(&cell_dict, CELLHASHSIZE);
 }
@@ -476,7 +424,6 @@ int removeshorted(struct hashlist *p, int file)
          ob = nob;
       }
    }
-   return 1;
 }
 
 /* Remove shorted instances of class "class" from the database */
@@ -492,32 +439,15 @@ void RemoveShorted(char *class, int file)
    RecurseCellFileHashTable(removeshorted, file);
 }
 
-/* Remove instances of a deleted class from the database.	*/
-/* NOTE:  This treats deleted classes as not existing, so it	*/
-/* needs to take care of disconnected ports in the same manner	*/
-/* as flattenInstancesOf() in disconnecting the port of a	*/
-/* parent cell if it connected to nothing other than the	*/
-/* deleted instance.						*/
-
 int deleteclass(struct hashlist *p, int file)
 {
    struct nlist *ptr;
-   struct objlist *ob, *lob, *nob, *portnode;
-   unsigned char *checknodes;
-   int i;
+   struct objlist *ob, *lob, *nob;
 
    ptr = (struct nlist *)(p->ptr);
 
    if ((file != -1) && (ptr->file != file)) return 0;
 
-   /* Note:  This could be made faster by enumerating all times each
-    * node is used during the full pass, then subtracting each time
-    * the node is deleted in a child, then disconnecting all nodes
-    * that ended up with a zero count.
-    */
-   checknodes = (unsigned char *)CALLOC(ptr->nodename_cache_maxnodenum + 1,
-		sizeof(unsigned char));
-
    lob = NULL;
    for (ob = ptr->cell; ob != NULL;) {
       nob = ob->next;
@@ -525,8 +455,6 @@ int deleteclass(struct hashlist *p, int file)
 	 if ((*matchfunc)(ob->model.class, OldCell->name)) {
 	    HashDelete(ob->instance.name, &(ptr->instdict));
 	    while (1) {
-	       if (ob->type >= FIRSTPIN)
-		  checknodes[ob->node] = (unsigned char)1;
 	       FreeObjectAndHash(ob, ptr);
 	       ob = nob;
 	       if (ob == NULL) break;
@@ -548,26 +476,6 @@ int deleteclass(struct hashlist *p, int file)
          ob = nob;
       }
    }
-
-   for (i = 0; i <= ptr->nodename_cache_maxnodenum; i++) {
-      if (checknodes[i] != 0) {
-         portnode = NULL;
-         for (ob = ptr->cell; ob != NULL; ob = ob->next) {
-	    if ((ob->type != PORT) && (portnode == NULL))
-	       break;
-	    else if ((ob->type == PORT) && (ob->node == i))
-	       portnode = ob;
-	    else if ((ob->type >= FIRSTPIN) && (ob->node == i))
-	       break;
-         }
-         if ((ob == NULL) && (portnode != NULL)) {
-	    /* Port became disconnected when child was deleted */
-	    portnode->node = -1;
-         }
-      }
-   }
-   FREE(checknodes);
-   return 1;
 }
 
 /* Remove all instances of class "class" from the database */
@@ -605,7 +513,6 @@ int renameinstances(struct hashlist *p, int file)
 	 }
       }
    }
-   return 1;
 }
 
 void InstanceRename(char *from, char *to, int file)
@@ -628,10 +535,9 @@ int freeprop(struct hashlist *p)
    struct property *prop;
 
    prop = (struct property *)(p->ptr);
-   if (prop->type == PROP_STRING) {
+   if (prop->type == PROP_STRING)
       if (prop->pdefault.string != NULL)
 	 FREE(prop->pdefault.string);
-   }
    else if (prop->type == PROP_EXPRESSION) {
       struct tokstack *stackptr, *nptr;
       stackptr = prop->pdefault.stack;
@@ -650,65 +556,65 @@ int freeprop(struct hashlist *p)
 
 void CellDelete(char *name, int fnum)
 {
-   /* delete all the contents of cell 'name', and remove 'name' from
-      the cell hash table.  NOTE:  this procedure does not care or check
-      if 'name' has been instanced anywhere.  It is assumed that if this
-      is the case, the user will (quickly) define a new cell of that name.
-   */
-   struct objlist *ob, *obnext;
-   struct nlist *tp;
+  /* delete all the contents of cell 'name', and remove 'name' from
+     the cell hash table.  NOTE:  this procedure does not care or check
+     if 'name' has been instanced anywhere.  It is assumed that if this
+     is the case, the user will (quickly) define a new cell of that name.
+  */
+  struct objlist *ob, *obnext;
+  struct nlist *tp;
 
-   tp = LookupCellFile(name, fnum);
-   if (tp == NULL) {
-      Printf ("No cell '%s' found.\n", name);
-      return;
-   }
+  tp = LookupCellFile(name, fnum);
+  if (tp == NULL) {
+    Printf ("No cell '%s' found.\n", name);
+    return;
+  }
 
-   HashIntDelete(name, fnum, &cell_dict);
-   /* now make sure that we free all the fields of the nlist struct */
-   if (tp->name != NULL) FREE(tp->name);
-   HashKill(&(tp->objdict));
-   HashKill(&(tp->instdict));
-   RecurseHashTable(&(tp->propdict), freeprop);
-   HashKill(&(tp->propdict));
-   FreeNodeNames(tp);
-   ob = tp->cell;
-   while (ob != NULL) {
-      obnext = ob->next;
-      FreeObject (ob);
-      ob = obnext;
-   }
+  HashIntDelete(name, fnum, &cell_dict);
+  /* now make sure that we free all the fields of the nlist struct */
+  if (tp->name != NULL) FREE(tp->name);
+  HashKill(&(tp->objdict));
+  HashKill(&(tp->instdict));
+  RecurseHashTable(&(tp->propdict), freeprop);
+  HashKill(&(tp->propdict));
+  FreeNodeNames(tp);
+  ob = tp->cell;
+  while (ob != NULL) {
+    obnext = ob->next;
+    FreeObject (ob);
+    ob = obnext;
+  }
 }
 
 static int PrintCellHashTableElement(struct hashlist *p)
 {
-   struct nlist *ptr;
+  struct nlist *ptr;
 
-   ptr = (struct nlist *)(p->ptr);
-   if ((TopFile >= 0) && (ptr->file != TopFile)) return 1;
+  ptr = (struct nlist *)(p->ptr);
+  if ((TopFile >= 0) && (ptr->file != TopFile)) return 1;
 
-   if ((ptr->class != CLASS_SUBCKT) && (ptr->class != CLASS_MODULE)) {
-      /* only print primitive cells if Debug is enabled */
-      if (Debug == 1)  Printf("Cell: %s (instanced %d times); Primitive\n",
+  if (ptr->class != CLASS_SUBCKT) {
+    /* only print primitive cells if Debug is enabled */
+    if (Debug == 1)  Printf("Cell: %s (instanced %d times); Primitive\n",
 		       ptr->name, ptr->number);
-      else if (Debug == 3) {	/* list */
+    else if (Debug == 3) {	/* list */
 #ifdef TCL_NETGEN
-          Tcl_AppendElement(netgeninterp, ptr->name);
+       Tcl_AppendElement(netgeninterp, ptr->name);
 #else
-          Printf("%s ", ptr->name);
+       Printf("%s ", ptr->name);
 #endif
-      }
-   }
-   else if ((Debug == 2) || (Debug == 3)) {	/* list only */
+    }
+  }
+  else if ((Debug == 2) || (Debug == 3)) {	/* list only */
 #ifdef TCL_NETGEN
-      Tcl_AppendElement(netgeninterp, ptr->name);
+     Tcl_AppendElement(netgeninterp, ptr->name);
 #else
-      Printf("%s ", ptr->name);
+     Printf("%s ", ptr->name);
 #endif
-   }
-   else
-      Printf("Cell: %s (instanced %d times)\n", ptr->name, ptr->number);
-   return(1);
+  }
+  else
+    Printf("Cell: %s (instanced %d times)\n",ptr->name,ptr->number);
+  return(1);
 }
 
 /* Print the contents of the cell hash table.	*/
@@ -717,65 +623,65 @@ static int PrintCellHashTableElement(struct hashlist *p)
 
 void PrintCellHashTable(int full, int filenum)
 {
-   int total, bins;
-   int OldDebug;
+  int total, bins;
+  int OldDebug;
 
-   if ((filenum == -1) && (Circuit1 != NULL) && (Circuit2 != NULL)) {
+  if ((filenum == -1) && (Circuit1 != NULL) && (Circuit2 != NULL)) {
       PrintCellHashTable(full, Circuit1->file);
       PrintCellHashTable(full, Circuit2->file);
       return;
-   }
+  }
 
-   TopFile = filenum;
+  TopFile = filenum;
 
-   bins  = RecurseHashTable(&cell_dict, CountHashTableBinsUsed);
-   total = RecurseHashTable(&cell_dict, CountHashTableEntries);
-   if (full < 2)
-       Printf("Hash table: %d of %d bins used; %d cells total (%.2f per bin)\n",
+  bins  = RecurseHashTable(&cell_dict, CountHashTableBinsUsed);
+  total = RecurseHashTable(&cell_dict, CountHashTableEntries);
+  if (full < 2)
+     Printf("Hash table: %d of %d bins used; %d cells total (%.2f per bin)\n",
 		bins, CELLHASHSIZE, total, (bins == 0) ? 0 :
 		(float)((float)total / (float)bins));
 	
-   OldDebug = Debug;
-   Debug = full;
-   RecurseHashTable(&cell_dict, PrintCellHashTableElement);
-   Debug = OldDebug;
+  OldDebug = Debug;
+  Debug = full;
+  RecurseHashTable(&cell_dict, PrintCellHashTableElement);
+  Debug = OldDebug;
 #ifndef TCL_NETGEN
-   if (full >= 2) Printf("\n");
+  if (full >= 2) Printf("\n");
 #endif
 }
 
 struct nlist *FirstCell(void)
 {
-   return((struct nlist *)HashFirst(&cell_dict));
+  return((struct nlist *)HashFirst(&cell_dict));
 }
 
 struct nlist *NextCell(void)
 {
-   return((struct nlist *)HashNext(&cell_dict));
+  return((struct nlist *)HashNext(&cell_dict));
 }
 
 static int ClearDumpedElement(struct hashlist *np)
 {
-   struct nlist *p;
+	struct nlist *p;
 
-   p = (struct nlist *)(np->ptr);
-   p->dumped = 0;
-   return(1);
+	p = (struct nlist *)(np->ptr);
+	p->dumped = 0;
+	return(1);
 }
 
 void ClearDumpedList(void)
 {
-   RecurseHashTable(&cell_dict, ClearDumpedElement);
+	RecurseHashTable(&cell_dict, ClearDumpedElement);
 }
 
 int RecurseCellHashTable(int (*foo)(struct hashlist *np))
 {
-   return RecurseHashTable(&cell_dict, foo);
+  return RecurseHashTable(&cell_dict, foo);
 }
 
 int RecurseCellFileHashTable(int (*foo)(struct hashlist *, int), int value)
 {
-   return RecurseHashTableValue(&cell_dict, foo, value);
+  return RecurseHashTableValue(&cell_dict, foo, value);
 }
 
 /* Yet another version, passing one parameter that is a pointer */
@@ -783,14 +689,14 @@ int RecurseCellFileHashTable(int (*foo)(struct hashlist *, int), int value)
 struct nlist *RecurseCellHashTable2(struct nlist *(*foo)(struct hashlist *,
 	void *), void *pointer)
 {
-   return RecurseHashTablePointer(&cell_dict, foo, pointer);
+  return RecurseHashTablePointer(&cell_dict, foo, pointer);
 }
 
 /************************** WILD-CARD STUFF *******************************/
 		
 char *FixTemplate(char *t)
 {
-	char buffer[MAX_STR_LEN];
+	char buffer[200];
 	char *rstr;
 	int i,j;
 	int InsideBrace;
@@ -1069,7 +975,6 @@ struct objlist *CopyObjList(struct objlist *oldlist, unsigned char doforall)
           newob->model.class = NULL;
        else
           newob->model.class = strsave(tmp->model.class);
-       newob->flags = tmp->flags;
        newob->instance.name = (tmp->instance.name) ?
 		strsave(tmp->instance.name) : NULL;
     }
@@ -1207,17 +1112,13 @@ void FreeObjectAndHash(struct objlist *ob, struct nlist *ptr)
 
 /***************  GENERAL UTILITIES ****************************/
 
-int NumberOfPorts(char *cellname, int file)
+int NumberOfPorts(char *cellname)
 {
   struct nlist *tp;
   struct objlist *ob;
   int ports;
 
-  if (file == -1)
-    tp = LookupCell(cellname);
-  else
-    tp = LookupCellFile(cellname, file);
-
+  tp = LookupCell(cellname);
   if (tp == NULL) return(0);
   ports = 0;
   for (ob = tp->cell; ob != NULL; ob = ob->next)
@@ -1301,7 +1202,7 @@ static char *OldNodeName(struct nlist *tp, int node)
   struct objlist *firstuniqueglobal;
   struct objlist *firstglobal;
   struct objlist *firstpin;
-  static char StrBuffer[MAX_STR_LEN];
+  static char StrBuffer[100];
 
 #if 0
   /* make second pass, looking for ports */

base/objlist.h

@@ -28,8 +28,6 @@
 
 #define PROXY (0)		/* Used in model.port record of ports */
 
-#define NO_CONNECT	1	/* Use in object list to flag an isolated net */
-
 /* Lists of device properties.  Order is defined at the time of	*/
 /* the cell definition; values are sorted at the time instances	*/
 /* are read.							*/
@@ -135,7 +133,6 @@ struct property {
   unsigned char idx;		/* index into valuelist */
   unsigned char type;		/* string, integer, double, value, expression */
   unsigned char merge;		/* how property changes when devices are merged */
-  char *pin;			/* associated pin (or NULL if not associated)	*/
   union {
      char *string;
      double dval;
@@ -165,7 +162,6 @@ struct objlist {
 				/* (string) value of property for properties */
      struct valuelist *props;	/* Property record */
   } instance;
-  unsigned char flags;	/* Used by NODE type to flag isolated net */
   int node;		/* the electrical node number of the port/node/pin */
   struct objlist *next;
 };
@@ -196,8 +192,9 @@ struct Permutation {
     struct Permutation *next;
 };
 
-#define OBJHASHSIZE 42073 /* the size of the object and instance hash lists */
+#define OBJHASHSIZE 997 /* the size of the object and instance hash lists */
                         /* prime numbers are good choices as hash sizes */
+                        /* 101 is a good number for IBMPC */
 
 /* cell definition for hash table */
 /* NOTE: "file" must come first for the hash matching by name and file */
@@ -207,7 +204,7 @@ struct nlist {
   char *name;
   int number;		/* number of instances defined */
   int dumped;		/* instance count, and general-purpose marker */
-  unsigned short flags;
+  unsigned char flags;
   unsigned char class;
   unsigned long classhash;	/* randomized hash value for cell class */
   struct Permutation *permutes;	/* list of permuting pins */
@@ -223,18 +220,17 @@ struct nlist {
 
 /* Defined nlist structure flags */
 
-#define CELL_MATCHED		0x001	/* cell matched to another */
-#define CELL_NOCASE		0x002	/* cell is case-insensitive (e.g., SPICE) */
-#define CELL_TOP		0x004	/* cell is a top-level cell */
-#define CELL_PLACEHOLDER	0x008	/* cell is a placeholder cell */
-#define CELL_PROPSMATCHED	0x010	/* properties matched to matching cell */
-#define CELL_DUPLICATE		0x020	/* cell has a duplicate */
-#define CELL_VERILOG		0x040	/* cell is verilog module */
+#define CELL_MATCHED		0x01	/* cell matched to another */
+#define CELL_NOCASE		0x02	/* cell is case-insensitive (e.g., SPICE) */
+#define CELL_TOP		0x04	/* cell is a top-level cell */
+#define CELL_PLACEHOLDER	0x08	/* cell is a placeholder cell */
+#define CELL_PROPSMATCHED	0x10	/* properties matched to matching cell */
+#define CELL_DUPLICATE		0x20	/* cell has a duplicate */
 
 /* Flags for combination allowances and prohibitions */
 
-#define COMB_SERIES		0x100
-#define COMB_NO_PARALLEL	0x200
+#define COMB_SERIES		0x40
+#define COMB_NO_PARALLEL	0x80
 
 extern struct nlist *CurrentCell;
 extern struct objlist *CurrentTail;
@@ -246,7 +242,7 @@ extern void FreeObjectAndHash(struct objlist *ob, struct nlist *ptr);
 extern void FreePorts(char *cellname);
 extern struct IgnoreList *ClassIgnore;
 
-extern int NumberOfPorts(char *cellname, int file);
+extern int NumberOfPorts(char *cellname);
 extern struct objlist *InstanceNumber(struct nlist *tp, int inst);
 
 extern struct objlist *List(char *list_template);
@@ -309,26 +305,11 @@ extern int  match(char *, char *);
 extern int  matchnocase(char *, char *);
 extern int  matchfile(char *, char *, int, int);
 extern int  matchfilenocase(char *, char *, int, int);
-extern int  is_delimiter(char);
-extern char *get_array_delimiter(char *, char *);
 
 extern void GarbageCollect(void);
 extern void InitGarbageCollection(void);
 extern void AddToGarbageList(struct objlist *head);
 
-extern void DeleteProperties(struct keyvalue **topptr);
-extern void AddProperty(struct keyvalue **topptr, char *key, char *value);
-extern void AddScaledProperty(struct keyvalue **topptr, char *key, char *value, double scale);
-extern void DeleteProperties(struct keyvalue **topptr);
-extern struct objlist *LinkProperties(char *model, struct keyvalue *topptr);
-
-extern void ClassDelete(char *class, int file);
-extern void RemoveShorted(char *class, int file);
-extern void CellRehash(char *name, char *newname, int file);
-
-/* defined in netgen.c */
-extern int ConvertStringToInteger(char *string, int *ival);
-
 #ifdef HAVE_MALLINFO
 void PrintMemoryStats(void);
 #endif

base/place.c

@@ -511,8 +511,8 @@ int OpenEmbeddingFile(char *cellname, char *filename)
 /* returns 1 if OK */
 {
   struct nlist *tp;
-  char outfilename[MAX_STR_LEN];
-  char logfilename[MAX_STR_LEN];
+  char outfilename[200];
+  char logfilename[200];
 
   tp = LookupCell(cellname);
   if (tp == NULL) {
@@ -783,7 +783,7 @@ void SetupArray(char *prompt1, char *prompt2, char *prompt3, int *data,
                 void (*proc)(void))
 {
   int i, oldfanout;
-  char name[MAX_STR_LEN];
+  char name[100];
 
   Printf(prompt1);
   for (i = 1; i <= MAX_TREE_DEPTH; i++) 
@@ -792,7 +792,7 @@ void SetupArray(char *prompt1, char *prompt2, char *prompt3, int *data,
 
   oldfanout = 1;
   for (i = 1; i <= MAX_TREE_DEPTH; i++) {
-    char prompt[MAX_STR_LEN];
+    char prompt[100];
     int newfanout;
     sprintf(prompt, prompt2, i);
     promptstring(prompt, name);
@@ -822,7 +822,7 @@ void SetupArrayFromString(char *prompt1, char *prompt3, int *data,
                 void (*proc)(void), char *text)
 {
   int i, oldfanout, newfanout;
-  char string[MAX_STR_LEN];
+  char string[100];
   char *ch;
   char *endch;
 
@@ -929,7 +929,7 @@ void ToggleDebug(void)
 void DescribeCell(char *name, int detail)
 {
   Printf("Cell: %s contains %d instances, %d nodes and %d ports\n", name, 
-	 NumberOfInstances(name),  RenumberNodes(name), NumberOfPorts(name, -1));
+	 NumberOfInstances(name),  RenumberNodes(name), NumberOfPorts(name));
   PrintEmbeddingTree(stdout,name,detail);
 }
 
@@ -962,7 +962,7 @@ void ProtoPrintParameters(void)
 void PROTOCHIP(void)
 /* a simple command interpreter to manage embedding/routing */
 {
-  char name[MAX_STR_LEN];
+  char name[100];
   char ch;
   
   InitializeFanout();
@@ -1136,7 +1136,7 @@ void PROTOCHIP(void)
 
       oldfanout = 1;
       for (i = 1; i <= MAX_TREE_DEPTH; i++) {
-	char prompt[MAX_STR_LEN];
+	char prompt[100];
 	int newfanout;
 	sprintf(prompt,"Fanout for level %d (0 to quit): ",i);
 	promptstring(prompt, name);
@@ -1168,7 +1168,7 @@ void PROTOCHIP(void)
 
       oldfanout = 1;
       for (i = 1; i <= MAX_TREE_DEPTH; i++) {
-	char prompt[MAX_STR_LEN];
+	char prompt[100];
 	int newfanout;
 	sprintf(prompt,"Common nodes for level %d (0 to quit): ",i);
 	promptstring(prompt, name);
@@ -1200,7 +1200,7 @@ void PROTOCHIP(void)
 
       oldfanout = 1;
       for (i = 1; i <= MAX_TREE_DEPTH; i++) {
-	char prompt[MAX_STR_LEN];
+	char prompt[100];
 	int newfanout;
 	sprintf(prompt,"Used leaves for level %d (0 to quit): ",i);
 	promptstring(prompt, name);

base/print.c

@@ -37,7 +37,7 @@ extern int ColumnBase;
 
 struct filestr {
   FILE *f;
-  char buffer[MAX_STR_LEN];
+  char buffer[200];
   int wrap;  /* column to wrap around in, or 0 if no wrap */
 } file_buffers[MAXFILES];
 
@@ -107,7 +107,7 @@ void Fprintf(FILE *f, char *format, ...)
 {
   va_list ap;
   int FileIndex;
-  char tmpstr[MAX_STR_LEN];
+  char tmpstr[200];
   int bufferlongenough;
   int linewrapexceeded;
 
@@ -203,7 +203,7 @@ void Printf(char *format, ...)
 void Printf(char *format, ...)
 {
   va_list ap;
-  char tmpstr[MAX_STR_LEN];
+  char tmpstr[200];
 
   va_start(ap, format);
   vsprintf(tmpstr, format, ap);

base/query.c

@@ -52,7 +52,7 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 /*************************************************************************/
 
 static int SuppressPrompts = 0;
-static char InputLine[MAX_STR_LEN];
+static char InputLine[200];
 
 void typeahead(char *str)
 {
@@ -73,7 +73,7 @@ but reads from 'promptstring_infile' if nec. */
 /* If interactive, puts out 'prompt' */
 {
   char *nexttok;
-  char tmpstr[MAX_STR_LEN];
+  char tmpstr[200];
   int echo;
 
   if (promptstring_infile == NULL)
@@ -319,7 +319,7 @@ void Fanout(char *cell, char *node, int filter)
     while (ob != NULL) {
       char *obname = ob->name;
       if (*obname == '/') obname++;
-      if (ob->node == nodenum) {
+      if (ob->node == nodenum)
 	 if (filter == ALLOBJECTS) {
 	   Printf("  %s (", obname);
 	   PrintObjectType(ob->type);
@@ -331,7 +331,6 @@ void Fanout(char *cell, char *node, int filter)
 	 else if (ob->type == filter) {
 	   Printf("  %s\n", obname);
 	 }
-      }
       ob = ob->next;
     }
   }
@@ -802,19 +801,9 @@ void DescribeInstance(char *name, int file)
   {
     if (ob->node > nodemax) nodemax = ob->node;
     else if ((ob->node == -1) && (ob->model.port != PROXY)) {
-
-      /* All black-box modules and placeholders by definition have all	*/
-      /* disconnected pins, so don't report those.			*/
-
-      if ((!(tp->flags & CELL_PLACEHOLDER)) && (tp->class != CLASS_MODULE)) {
-	// if (disconnectednodes == 0) Fprintf(stderr, "\n");
-        disconnectednodes++;
-	/* Don't report on ports marked "port_match_error", which is just confusing. */
-	if (strcmp(ob->name, "port_match_error")) {
-           Fprintf(stderr, "Cell %s (%d) disconnected node: %s\n",
-		    tp->name, tp->file, ob->name);
-	}
-      }
+      if (disconnectednodes == 0) Fprintf(stderr, "\n");
+      disconnectednodes++;
+      Fprintf(stderr, "Cell %s disconnected node: %s\n", tp->name, ob->name);
     }
   }
   instlist = (unsigned char *) CALLOC((nodemax + 1), sizeof(unsigned char));
@@ -911,7 +900,7 @@ void PrintLeavesInCell(char *cellname, int filenum)
   np->dumped = 1;
 
   if (np->class != CLASS_SUBCKT) {
-    Printf("%s; %d ports; Primitive.\n", cellname, NumberOfPorts(cellname, filenum));
+    Printf("%s; %d ports; Primitive.\n", cellname, NumberOfPorts(cellname));
     return;
   }
 
@@ -924,7 +913,7 @@ void PrintLeavesInCell(char *cellname, int filenum)
       am_a_leaf = 0;
     }
 
-  if (am_a_leaf) Printf("%s; %d ports\n", cellname, NumberOfPorts(cellname, filenum));
+  if (am_a_leaf) Printf("%s; %d ports\n", cellname, NumberOfPorts(cellname));
   return;
 }
 
@@ -934,7 +923,7 @@ static int PrintLeavesInCellHash(struct hashlist *p)
   struct nlist *ptr;
 
   ptr = (struct nlist *)(p->ptr);
-  if (ptr->class == CLASS_SUBCKT) PrintLeavesInCell(ptr->name, ptr->file);
+  if ((ptr->class == CLASS_SUBCKT)) PrintLeavesInCell(ptr->name, ptr->file);
   return(0);
 }
 
@@ -960,8 +949,8 @@ void Query(void)
 {
   /* little interactive debugger */
   char reply;
-  char repstr[MAX_STR_LEN];
-  char repstr2[MAX_STR_LEN];
+  char repstr[100];
+  char repstr2[100];
   float StartTime;   /* for elapsed CPU times */
   int Timing;  /* if true, print times of each command */
   int filenum = -1;
@@ -1037,7 +1026,7 @@ void Query(void)
       break;
     case 'v':
       promptstring("Write Verilog: circuit name: ", repstr);
-      VerilogTop(repstr, filenum, "");
+      VerilogModule(repstr, filenum, "");
       break;
     case 'E':
       promptstring("Write ESACAP: circuit name: ", repstr);
@@ -1074,7 +1063,7 @@ void Query(void)
       ActelLib();
       break;
     case 'S':
-      promptstring("Read SPICE (.spice) file? ", repstr);
+      promptstring("Read SPICE (.ckt) file? ", repstr);
       ReadSpice(repstr, &filenum);
       break;
     case 'V':

base/spice.c

@@ -21,15 +21,11 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include "config.h"
 
 #include <stdio.h>
-#include <string.h>
-#include <strings.h>
-#include <ctype.h>
 #if 0
 #include <stdarg.h>  /* what about varargs, like in pdutils.c ??? */
 #endif
 
 #include <stdlib.h>  /* for calloc(), free(), getenv() */
-#include <ctype.h>  /* for toupper(), isascii() */
 #ifndef IBMPC
 #include <sys/types.h>	/* for getpwnam() tilde expansion */
 #include <pwd.h>
@@ -44,9 +40,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include "objlist.h"
 #include "netfile.h"
 #include "print.h"
-#include "query.h"
-#include "objlist.h"
-#include "netcmp.h"
 
 // Global storage for parameters from .PARAM
 struct hashdict spiceparams;
@@ -196,7 +189,7 @@ void SpiceSubCell(struct nlist *tp, int IsSubCell)
 		 if (ob->type == PROPERTY) {
 		    struct valuelist *vl;
 		    int i;
-		    for (i = 0;; i++) {
+		    for (i == 0;; i++) {
 		       vl = &(ob->instance.props[i]);
 		       if (vl->type == PROP_ENDLIST) break;
 		       else if (vl->type == PROP_VALUE) {
@@ -216,7 +209,7 @@ void SpiceSubCell(struct nlist *tp, int IsSubCell)
 		 if (ob->type == PROPERTY) {
 		    struct valuelist *vl;
 		    int i;
-		    for (i = 0;; i++) {
+		    for (i == 0;; i++) {
 		       vl = &(ob->instance.props[i]);
 		       if (vl->type == PROP_ENDLIST) break;
 		       else if (vl->type == PROP_VALUE) {
@@ -236,7 +229,7 @@ void SpiceSubCell(struct nlist *tp, int IsSubCell)
 	      if (ob->type == PROPERTY) {
 		 struct valuelist *vl;
 		 int i;
-		 for (i = 0;; i++) {
+		 for (i == 0;; i++) {
 		    vl = &(ob->instance.props[i]);
 		    if (vl->type == PROP_ENDLIST) break;
 		    else if (vl->type == PROP_VALUE) {
@@ -399,7 +392,7 @@ int renamepins(struct hashlist *p, int file)
    ptr = (struct nlist *)(p->ptr);
 
    if (ptr->file != file)
-      return 0;
+      return 1;
 
    for (ob = ptr->cell; ob != NULL; ob = ob->next) {
       if (ob->type == FIRSTPIN) {
@@ -426,7 +419,6 @@ int renamepins(struct hashlist *p, int file)
 	 }
       }
    }
-   return 1;
 }
 
 /* If any pins are marked unconnected, see if there are	*/
@@ -481,6 +473,15 @@ void CleanupSubcell() {
       SetClass(CLASS_MODULE);
 }
 
+/*------------------------------------------------------*/
+/* Structure for stacking nested subcircuit definitions */
+/*------------------------------------------------------*/
+
+struct cellstack {
+   char *cellname;
+   struct cellstack *next;
+};
+
 /*------------------------------------------------------*/
 /* Push a subcircuit name onto the stack		*/
 /*------------------------------------------------------*/
@@ -523,27 +524,21 @@ void ReadSpiceFile(char *fname, int filenum, struct cellstack **CellStackPtr,
   int warnings = 0, update = 0, hasports = 0;
   char *eqptr, devtype, in_subckt;
   struct keyvalue *kvlist = NULL;
-  char inst[MAX_STR_LEN], model[MAX_STR_LEN], instname[MAX_STR_LEN];
-  struct nlist *tp, *tpsave;
+  char inst[256], model[256], instname[256];
+  struct nlist *tp;
   struct objlist *parent, *sobj, *nobj, *lobj, *pobj;
 
-  inst[MAX_STR_LEN-1] = '\0';
-  model[MAX_STR_LEN-1] = '\0';
-  instname[MAX_STR_LEN-1] = '\0';
+  inst[255] = '\0';
+  model[255] = '\0';
+  instname[255] = '\0';
   in_subckt = (char)0;
   
   while (!EndParseFile()) {
 
     SkipTok(NULL); /* get the next token */
     if ((EndParseFile()) && (nexttok == NULL)) break;
-    if (nexttok == NULL) break;
 
-    /* Handle comment lines.  Note that some variants of CDL format
-     * use "*." for information that is transparent to SPICE simulators.
-     * Handle "*.GLOBAL" entries.  All others are ignored.
-     */
-    if ((nexttok[0] == '*') && (!matchnocase(nexttok, "*.GLOBAL")))
-	SkipNewLine(NULL);
+    if (nexttok[0] == '*') SkipNewLine(NULL);
 
     else if (matchnocase(nexttok, ".SUBCKT")) {
       SpiceTokNoNewline();
@@ -566,9 +561,8 @@ void ReadSpiceFile(char *fname, int filenum, struct cellstack **CellStackPtr,
 
       /* Check for existence of the cell.  We may need to rename it. */
 
-      snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+      snprintf(model, 99, "%s", nexttok);
       tp = LookupCellFile(nexttok, filenum);
-      tpsave = NULL;
 
       /* Check for name conflict with duplicate cell names	*/
       /* This may mean that the cell was used before it was	*/
@@ -607,46 +601,11 @@ void ReadSpiceFile(char *fname, int filenum, struct cellstack **CellStackPtr,
          tp = LookupCellFile(nexttok, filenum);
       }
       else if (tp != NULL) {	/* Make a new definition for an empty cell */
-	 /* Handle issue with SPICE read after verilog, where a placeholder
-	  * was created from the verilog.  (1) If the pin names are "1", "2",
-	  * "3", then this is a SPICE placeholder, and just remove the CellDef
-	  * and re-create it.  Otherwise, create new cell "_PLACEHOLDER_".
-	  * (2) After encountering .ends, run MatchPins between the two cells.
-	  * (3) delete the original cell and rename the new cell.
-	  */
-	 int i = 1;
-	 char pname[10];
-	 for (pobj = tp->cell; pobj && pobj->type == PORT; pobj = pobj->next) {
-	     sprintf(pname, "%d", i);
-	     if (!matchnocase(pobj->name, pname)) break;
-	     i++;
-	 }
-	 if ((pobj == NULL) || (pobj->type != PORT)) {
-	    /* This is a SPICE placeholder created because the cell was instanced
-	     * before it was defined.  However, the pins can be assumed to be in
-	     * the correct order, and pin reordering does not need to be done.
-	     */
-	    FreePorts(nexttok);
-	    CellDelete(nexttok, filenum);	/* This removes any PLACEHOLDER flag */
-	    CellDef(model, filenum);
-	    tp = LookupCellFile(model, filenum);
-	    update = 1;	/* Will need to update existing instances */
-	 }
-	 else {
-	    /* This is (probably) a verilog placeholder created because the
-	     * verilog was read before the (SPICE) definitions.  The verilog
-	     * netlist should have named the pins of the parent cell.  However,
-	     * there is no guarantee the order of pins is correct.  The MatchPins()
-	     * routine from netcmp.c can be used here to match the cell against
-	     * the placeholder, and reorder the pins in all instances to match.
-	     * Note that we cannot just reorder the SPICE pins to match the
-	     * verilog order, because there may be other SPICE netlists which
-	     * instance the cell with the correct SPICE port order.
-	     */
-	     tpsave = tp;
-             CellDef("_PLACEHOLDER_", filenum);
-             tp = LookupCellFile("_PLACEHOLDER_", filenum);
-	 }
+	 FreePorts(nexttok);
+	 CellDelete(nexttok, filenum);	/* This removes any PLACEHOLDER flag */
+	 CellDef(model, filenum);
+	 tp = LookupCellFile(model, filenum);
+	 update = 1;	/* Will need to update existing instances */
       }
       else if (tp == NULL) {	/* Completely new cell, no name conflict */
          CellDef(model, filenum);
@@ -738,38 +697,6 @@ skip_ends:
       if (*CellStackPtr) PopStack(CellStackPtr);
       if (*CellStackPtr) ReopenCellDef((*CellStackPtr)->cellname, filenum);
       SkipNewLine(NULL);
-
-      if (tpsave != NULL) {
-	 struct nlist *tpplace;
-	 char *savename;
-
-	 /* Handle a placeholder from a verilog file that has been replaced
-	  * by a netlist with pins in a different order.  The pins need to
-	  * be matched, corrected in the original cell and all instances,
-	  * and the new cell deleted.
-	  */
-
-	 Printf("Verilog placeholder %s replaced by SPICE definition\n",
-		tpsave->name);
-         tpplace = LookupCellFile("_PLACEHOLDER_", filenum);
-	 /* MatchPins is part of netcmp and normally Circuit2 is the
-	  * circuit being matched, so set Circuit2 to the original
-	  * verilog black-box cell, and MatchPins() will force its
-	  * pins to be rearranged to match the SPICE definition just
-	  * read.
-	  */
-	 Circuit2 = tpsave;
-	 MatchPins(tpplace, tpsave, 0);
-	 savename = strsave(tpsave->name);
-	 /* Now the original verilog black-box cell can be removed */
-	 FreePorts(savename);
-	 CellDelete(savename, filenum);
-	 /* And _PLACEHOLDER_ is renamed to the original name of the cell. */
-	 CellRehash("_PLACEHOLDER_", savename, filenum);
-	 tpsave = NULL;
-	 Circuit2 = NULL;
-	 FREE(savename);
-      }
     }
     else if (matchnocase(nexttok, ".MODEL")) {
       unsigned char class = CLASS_SUBCKT;
@@ -782,7 +709,7 @@ skip_ends:
 
       SpiceTokNoNewline();
       if (nexttok == NULL) continue;	/* Ignore if no model name */
-      snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+      snprintf(model, 99, "%s", nexttok);
       SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
 
@@ -831,10 +758,7 @@ skip_ends:
 
     // Handle some commonly-used cards
 
-    /* .GLOBAL and *.GLOBAL.  Note that *.GLOBAL is excepted from comment-line
-     * handling, above, so any line starting with '*' is "*.GLOBAL".
-     */
-    else if (matchnocase(nexttok, ".GLOBAL") || (nexttok[0] == '*')) {
+    else if (matchnocase(nexttok, ".GLOBAL")) {
       while (nexttok != NULL) {
 	 int numnodes = 0;
          SpiceTokNoNewline();
@@ -950,17 +874,6 @@ skip_ends:
       }
     }
 
-    /* Ignore anything in a .CONTROL ... .ENDC block */
-    else if (matchnocase(nexttok, ".CONTROL")) {
-	while (1) {
-	    SpiceSkipNewLine();
-	    SkipTok(NULL);
-	    if (EndParseFile()) break;
-	    if (matchnocase(nexttok, ".ENDC"))
-	       break;
-	}
-    }
-
     // Blackbox (library) mode---parse only subcircuits and models;
     // ignore all components.
 
@@ -969,29 +882,29 @@ skip_ends:
     }
 
     else if (toupper(nexttok[0]) == 'Q') {
-      char emitter[MAX_STR_LEN], base[MAX_STR_LEN], collector[MAX_STR_LEN];
-      emitter[MAX_STR_LEN-1] = '\0';
-      base[MAX_STR_LEN-1] = '\0';
-      collector[MAX_STR_LEN-1] = '\0';
+      char emitter[100], base[100], collector[100];
+      emitter[99] = '\0';
+      base[99] = '\0';
+      collector[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(collector, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(collector, nexttok, 99); SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(base, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(base, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(emitter, nexttok, MAX_STR_LEN-1);  SpiceTokNoNewline();
+      strncpy(emitter, nexttok, 99);  SpiceTokNoNewline();
       /* make sure all the nodes exist */
       if (LookupObject(collector, CurrentCell) == NULL) Node(collector);
       if (LookupObject(base, CurrentCell) == NULL) Node(base);
       if (LookupObject(emitter, CurrentCell) == NULL) Node(emitter);
 
       /* Read the device model */
-      snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+      snprintf(model, 99, "%s", nexttok);
 
       while (nexttok != NULL)
       {
@@ -1022,30 +935,30 @@ skip_ends:
 	 goto baddevice;
       }
 
-      snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+      snprintf(instname, 255, "%s%s", model, inst);
       Cell(instname, model, collector, base, emitter);
       pobj = LinkProperties(model, kvlist);
       ReduceExpressions(pobj, NULL, CurrentCell, TRUE);
       DeleteProperties(&kvlist);
     }
     else if (toupper(nexttok[0]) == 'M') {
-      char drain[MAX_STR_LEN], gate[MAX_STR_LEN], source[MAX_STR_LEN], bulk[MAX_STR_LEN];
-      drain[MAX_STR_LEN-1] = '\0';
-      gate[MAX_STR_LEN-1] = '\0';
-      source[MAX_STR_LEN-1] = '\0';
-      bulk[MAX_STR_LEN-1] = '\0';
+      char drain[100], gate[100], source[100], bulk[100];
+      drain[99] = '\0';
+      gate[99] = '\0';
+      source[99] = '\0';
+      bulk[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(drain, nexttok, MAX_STR_LEN-1);  SpiceTokNoNewline();
+      strncpy(drain, nexttok, 99);  SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(gate, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(gate, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(source, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(source, nexttok, 99); SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
       /* make sure all the nodes exist */
       if (LookupObject(drain, CurrentCell) == NULL) Node(drain);
@@ -1053,11 +966,11 @@ skip_ends:
       if (LookupObject(source, CurrentCell) == NULL) Node(source);
 
       /* handle the substrate node */
-      strncpy(bulk, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(bulk, nexttok, 99); SpiceTokNoNewline();
       if (LookupObject(bulk, CurrentCell) == NULL) Node(bulk);
 
       /* Read the device model */
-      snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+      snprintf(model, 99, "%s", nexttok);
 
       while (nexttok != NULL)
       {
@@ -1095,7 +1008,7 @@ skip_ends:
 	 goto baddevice;
       }
 
-      snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+      snprintf(instname, 255, "%s%s", model, inst);
       Cell(instname, model, drain, gate, source, bulk);
       pobj = LinkProperties(model, kvlist);
       ReduceExpressions(pobj, NULL, CurrentCell, TRUE);
@@ -1109,19 +1022,19 @@ skip_ends:
 	 SpiceSkipNewLine();
       }
       else {
-        char ctop[MAX_STR_LEN], cbot[MAX_STR_LEN];
-        ctop[MAX_STR_LEN-1] = '\0';
-        cbot[MAX_STR_LEN-1] = '\0';
+        char ctop[100], cbot[100];
+        ctop[99] = '\0';
+        cbot[99] = '\0';
 
         if (!(*CellStackPtr)) {
 	  CellDef(fname, filenum);
 	  PushStack(fname, CellStackPtr);
         }
-        strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+        strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
         if (nexttok == NULL) goto baddevice;
-        strncpy(ctop, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+        strncpy(ctop, nexttok, 99); SpiceTokNoNewline();
         if (nexttok == NULL) goto baddevice;
-        strncpy(cbot, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+        strncpy(cbot, nexttok, 99); SpiceTokNoNewline();
 
         /* make sure all the nodes exist */
         if (LookupObject(ctop, CurrentCell) == NULL) Node(ctop);
@@ -1140,7 +1053,7 @@ skip_ends:
 
 	model[0] = '\0';
 	if ((nexttok != NULL) && ((eqptr = strchr(nexttok, '=')) == NULL))
-	   snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+	   snprintf(model, 99, "%s", nexttok);
 
 	/* Any other device properties? */
         while (nexttok != NULL)
@@ -1153,7 +1066,7 @@ skip_ends:
 	   }
 	   else if (!strncmp(nexttok, "$[", 2)) {
 	      // Support for CDL modeled capacitor format
-	      snprintf(model, MAX_STR_LEN-1, "%s", nexttok + 2);
+	      snprintf(model, 99, "%s", nexttok + 2);
 	      if ((eqptr = strchr(model, ']')) != NULL)
 		 *eqptr = '\0';
 	   }
@@ -1186,7 +1099,7 @@ skip_ends:
 	   usemodel = 1;
 	}
 
-	snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+	snprintf(instname, 255, "%s%s", model, inst);
 	if (usemodel)
            Cell(instname, model, ctop, cbot);
 	else
@@ -1203,19 +1116,19 @@ skip_ends:
 	 SpiceSkipNewLine();
       }
       else {
-        char rtop[MAX_STR_LEN], rbot[MAX_STR_LEN];
-	rtop[MAX_STR_LEN-1] = '\0';
-	rbot[MAX_STR_LEN-1] = '\0';
+        char rtop[100], rbot[100];
+	rtop[99] = '\0';
+	rbot[99] = '\0';
 
         if (!(*CellStackPtr)) {
 	  CellDef(fname, filenum);
 	  PushStack(fname, CellStackPtr);
         }
-        strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+        strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
         if (nexttok == NULL) goto baddevice;
-        strncpy(rtop, nexttok, MAX_STR_LEN-1);  SpiceTokNoNewline();
+        strncpy(rtop, nexttok, 99);  SpiceTokNoNewline();
         if (nexttok == NULL) goto baddevice;
-        strncpy(rbot, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+        strncpy(rbot, nexttok, 99);   SpiceTokNoNewline();
         /* make sure all the nodes exist */
         if (LookupObject(rtop, CurrentCell) == NULL) Node(rtop);
         if (LookupObject(rbot, CurrentCell) == NULL) Node(rbot);
@@ -1234,7 +1147,7 @@ skip_ends:
 
 	model[0] = '\0';
 	if ((nexttok != NULL) && ((eqptr = strchr(nexttok, '=')) == NULL))
-	   snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+	   snprintf(model, 99, "%s", nexttok);
 
 	/* Any other device properties? */
         while (nexttok != NULL) {
@@ -1246,7 +1159,7 @@ skip_ends:
 	   }
 	   else if (!strncmp(nexttok, "$[", 2)) {
 	      // Support for CDL modeled resistor format
-	      snprintf(model, MAX_STR_LEN-1, "%s", nexttok + 2);
+	      snprintf(model, 99, "%s", nexttok + 2);
 	      if ((eqptr = strchr(model, ']')) != NULL)
 		 *eqptr = '\0';
 	   }
@@ -1271,7 +1184,7 @@ skip_ends:
            else if (CountPorts(model, filenum) != 2) {
 	      /* Modeled device:  Make sure it has the right number of ports */
 	      Fprintf(stderr, "Device \"%s\" has wrong number of ports for a "
-			"resistor.\n", model);
+			"resistor.\n");
 	      goto baddevice;
            }
 	   usemodel = 1;
@@ -1279,7 +1192,7 @@ skip_ends:
 	else
 	   strcpy(model, "r");		/* Use default resistor model */
 
-	snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+	snprintf(instname, 255, "%s%s", model, inst);
 	if (usemodel)
 	   Cell(instname, model, rtop, rbot);
 	else
@@ -1290,25 +1203,25 @@ skip_ends:
       }
     }
     else if (toupper(nexttok[0]) == 'D') {	/* diode */
-      char cathode[MAX_STR_LEN], anode[MAX_STR_LEN];
-      cathode[MAX_STR_LEN-1] = '\0';
-      anode[MAX_STR_LEN-1] = '\0';
+      char cathode[100], anode[100];
+      cathode[99] = '\0';
+      anode[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(anode, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(anode, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(cathode, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(cathode, nexttok, 99); SpiceTokNoNewline();
       /* make sure all the nodes exist */
       if (LookupObject(anode, CurrentCell) == NULL) Node(anode);
       if (LookupObject(cathode, CurrentCell) == NULL) Node(cathode);
 
       /* Read the device model */
-      snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+      snprintf(model, 99, "%s", nexttok);
 
       while (nexttok != NULL)
       {
@@ -1337,7 +1250,7 @@ skip_ends:
 	 Fprintf(stderr, "Device \"%s\" has wrong number of ports for a diode.\n");
 	 goto baddevice;
       }
-      snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+      snprintf(instname, 255, "%s%s", model, inst);
       Cell(instname, model, anode, cathode);
       pobj = LinkProperties(model, kvlist);
       ReduceExpressions(pobj, NULL, CurrentCell, TRUE);
@@ -1350,25 +1263,25 @@ skip_ends:
 	 SpiceSkipNewLine();
       }
       else {
-        char node1[MAX_STR_LEN], node2[MAX_STR_LEN], node3[MAX_STR_LEN], node4[MAX_STR_LEN];
-	node1[MAX_STR_LEN-1] = '\0';
-	node2[MAX_STR_LEN-1] = '\0';
-	node3[MAX_STR_LEN-1] = '\0';
-	node4[MAX_STR_LEN-1] = '\0';
+        char node1[100], node2[100], node3[100], node4[100];
+	node1[99] = '\0';
+	node2[99] = '\0';
+	node3[99] = '\0';
+	node4[99] = '\0';
 
         if (!(*CellStackPtr)) {
 	  CellDef(fname, filenum);
 	  PushStack(fname, CellStackPtr);
         }
-        strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+        strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
         if (nexttok == NULL) goto baddevice;
-        strncpy(node1, nexttok, MAX_STR_LEN-1);  SpiceTokNoNewline();
+        strncpy(node1, nexttok, 99);  SpiceTokNoNewline();
         if (nexttok == NULL) goto baddevice;
-        strncpy(node2, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+        strncpy(node2, nexttok, 99);   SpiceTokNoNewline();
         if (nexttok == NULL) goto baddevice;
-        strncpy(node3, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+        strncpy(node3, nexttok, 99);   SpiceTokNoNewline();
         if (nexttok == NULL) goto baddevice;
-        strncpy(node4, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+        strncpy(node4, nexttok, 99);   SpiceTokNoNewline();
         /* make sure all the nodes exist */
         if (LookupObject(node1, CurrentCell) == NULL) Node(node1);
         if (LookupObject(node2, CurrentCell) == NULL) Node(node2);
@@ -1380,7 +1293,7 @@ skip_ends:
 
 	model[0] = '\0';
 	if ((nexttok != NULL) && ((eqptr = strchr(nexttok, '=')) == NULL))
-	   snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+	   snprintf(model, 99, "%s", nexttok);
 
 	/* Any other device properties? */
         while (nexttok != NULL) {
@@ -1416,7 +1329,7 @@ skip_ends:
 	else
 	   strcpy(model, "t");		/* Use default xline model */
 
-	snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+	snprintf(instname, 255, "%s%s", model, inst);
 
 	if (usemodel)
 	   Cell(instname, model, node1, node2, node3, node4);
@@ -1429,20 +1342,20 @@ skip_ends:
       }
     }
     else if (toupper(nexttok[0]) == 'L') {	/* inductor */
-      char end_a[MAX_STR_LEN], end_b[MAX_STR_LEN];
+      char end_a[100], end_b[100];
       int usemodel = 0;
-      end_a[MAX_STR_LEN-1] = '\0';
-      end_b[MAX_STR_LEN-1] = '\0';
+      end_a[99] = '\0';
+      end_b[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(end_a, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(end_a, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(end_b, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(end_b, nexttok, 99); SpiceTokNoNewline();
       /* make sure all the nodes exist */
       if (LookupObject(end_a, CurrentCell) == NULL) Node(end_a);
       if (LookupObject(end_b, CurrentCell) == NULL) Node(end_b);
@@ -1461,7 +1374,7 @@ skip_ends:
 
       model[0] = '\0';
       if ((nexttok != NULL) && ((eqptr = strchr(nexttok, '=')) == NULL))
-	  snprintf(model, MAX_STR_LEN-1, "%s", nexttok);
+	  snprintf(model, 99, "%s", nexttok);
 
       /* Any other device properties? */
       while (nexttok != NULL)
@@ -1499,7 +1412,7 @@ skip_ends:
       else
 	 strcpy(model, "l");		/* Use default inductor model */
 
-      snprintf(instname, MAX_STR_LEN-1, "%s:%s", model, inst);
+      snprintf(instname, 255, "%s%s", model, inst);
       if (usemodel)
 	 Cell(instname, model, end_a, end_b);
       else
@@ -1513,38 +1426,25 @@ skip_ends:
     /* black-box subcircuits (class MODULE):  V, I, E	*/
 
     else if (toupper(nexttok[0]) == 'V') {	/* voltage source */
-      char pos[MAX_STR_LEN], neg[MAX_STR_LEN];
-      pos[MAX_STR_LEN-1] = '\0';
-      neg[MAX_STR_LEN-1] = '\0';
+      char pos[100], neg[100];
+      pos[99] = '\0';
+      neg[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(pos, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(pos, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(neg, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(neg, nexttok, 99); SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
       /* make sure all the nodes exist */
       if (LookupObject(pos, CurrentCell) == NULL) Node(pos);
       if (LookupObject(neg, CurrentCell) == NULL) Node(neg);
 
-      /* Get voltage value (if present); save as property "value" */
-
-      if (nexttok != NULL) {
-	 if (matchnocase(nexttok, "DC")) {
-	     SpiceTokNoNewline();
-	 }
-      }
-      if (nexttok != NULL) {
-	 if (StringIsValueOrExpression(nexttok)) {
-	     AddProperty(&kvlist, "value", nexttok);
-	 }
-      }
-
-      /* Any other device properties? */
+      /* Any device properties? */
       while (nexttok != NULL)
       {
 	 SpiceTokNoNewline();
@@ -1572,7 +1472,7 @@ skip_ends:
       else if (CountPorts(model, filenum) != 2) {
 	 /* Modeled device:  Make sure it has the right number of ports */
 	 Fprintf(stderr, "Device \"%s\" has wrong number of ports for a "
-			"voltage source.\n", inst);
+			"voltage source.\n");
 	 goto baddevice;
       }
       Cell(instname, model, pos, neg);
@@ -1581,19 +1481,19 @@ skip_ends:
       DeleteProperties(&kvlist);
     }
     else if (toupper(nexttok[0]) == 'I') {	/* current source */
-      char pos[MAX_STR_LEN], neg[MAX_STR_LEN];
-      pos[MAX_STR_LEN-1] = '\0';
-      neg[MAX_STR_LEN-1] = '\0';
+      char pos[100], neg[100];
+      pos[99] = '\0';
+      neg[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(pos, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(pos, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(neg, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(neg, nexttok, 99); SpiceTokNoNewline();
       /* make sure all the nodes exist */
       if (LookupObject(pos, CurrentCell) == NULL) Node(pos);
       if (LookupObject(neg, CurrentCell) == NULL) Node(neg);
@@ -1635,25 +1535,25 @@ skip_ends:
       DeleteProperties(&kvlist);
     }
     else if (toupper(nexttok[0]) == 'E') {	/* controlled voltage source */
-      char pos[MAX_STR_LEN], neg[MAX_STR_LEN], ctrlp[MAX_STR_LEN], ctrln[MAX_STR_LEN];
-      pos[MAX_STR_LEN-1] = '\0';
-      neg[MAX_STR_LEN-1] = '\0';
-      ctrlp[MAX_STR_LEN-1] = '\0';
-      ctrln[MAX_STR_LEN-1] = '\0';
+      char pos[100], neg[100], ctrlp[100], ctrln[100];
+      pos[99] = '\0';
+      neg[99] = '\0';
+      ctrlp[99] = '\0';
+      ctrln[99] = '\0';
 
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
       }
-      strncpy(inst, nexttok + 1, MAX_STR_LEN-1); SpiceTokNoNewline(); 
+      strncpy(inst, nexttok + 1, 99); SpiceTokNoNewline(); 
       if (nexttok == NULL) goto baddevice;
-      strncpy(pos, nexttok, MAX_STR_LEN-1);   SpiceTokNoNewline();
+      strncpy(pos, nexttok, 99);   SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(neg, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(neg, nexttok, 99); SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(ctrlp, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(ctrlp, nexttok, 99); SpiceTokNoNewline();
       if (nexttok == NULL) goto baddevice;
-      strncpy(ctrln, nexttok, MAX_STR_LEN-1); SpiceTokNoNewline();
+      strncpy(ctrln, nexttok, 99); SpiceTokNoNewline();
 
       /* make sure all the nodes exist */
       if (LookupObject(pos, CurrentCell) == NULL) Node(pos);
@@ -1701,11 +1601,11 @@ skip_ends:
     }
 
     else if (toupper(nexttok[0]) == 'X') {	/* subcircuit instances */
-      char instancename[MAX_STR_LEN], subcktname[MAX_STR_LEN];
+      char instancename[100], subcktname[100];
       int itype, in_props;
 
-      instancename[MAX_STR_LEN-1] = '\0';
-      subcktname[MAX_STR_LEN-1] = '\0';
+      instancename[99] = '\0';
+      subcktname[99] = '\0';
 
       struct portelement {
 	char *name;
@@ -1715,8 +1615,8 @@ skip_ends:
       struct portelement *head, *tail, *scan, *scannext;
       struct objlist *obptr;
 
-      snprintf(instancename, MAX_STR_LEN-1, "%s", nexttok + 1);
-      strncpy(instancename, nexttok + 1, MAX_STR_LEN-1);
+      snprintf(instancename, 99, "%s", nexttok + 1);
+      strncpy(instancename, nexttok + 1, 99);
       if (!(*CellStackPtr)) {
 	CellDef(fname, filenum);
 	PushStack(fname, CellStackPtr);
@@ -1783,19 +1683,10 @@ skip_ends:
       if (scan->next != NULL) scan = scan->next;
       tail->next = NULL;
 
-      /* Check for class defined inside itself (self-referential loop) */
-
-      if (!strcasecmp(model, scan->name)) {
-	 Fprintf(stderr, "Fatal: Class \"%s\" is instanced inside of itself!\n",
-		scan->name);
-         InputParseError(stderr);
-	 return;
-      }
-
       /* Check for ignored class */
 
-      if ((itype = IsIgnored(scan->name, filenum)) == IGNORE_CLASS) {
-          Printf("Class '%s' instanced in input but is being ignored.\n", scan->name);
+      if ((itype = IsIgnored(subcktname, filenum)) == IGNORE_CLASS) {
+          Printf("Class '%s' instanced in input but is being ignored.\n", model);
           return;
       }
 
@@ -1810,7 +1701,7 @@ skip_ends:
                break;
          }
          if (shorted == (unsigned char)1) {
-            Printf("Instance of '%s' is shorted, ignoring.\n", scan->name);
+            Printf("Instance of '%s' is shorted, ignoring.\n", subcktname);
 	    while (head) {
 	       p = head->next;
 	       FREE(head);
@@ -1833,14 +1724,14 @@ skip_ends:
       /* names.								  */
 
       if (strncmp(instancename, scan->name, strlen(scan->name))) {
-         snprintf(subcktname, MAX_STR_LEN-1, "%s:%s", scan->name, instancename);
+         snprintf(subcktname, 99, "%s%s", scan->name, instancename);
          strcpy(instancename, subcktname);
       }
       else {
-         snprintf(subcktname, MAX_STR_LEN-1, "/%s", instancename);
+         snprintf(subcktname, 99, "/%s", instancename);
          strcpy(instancename, subcktname);
       }
-      snprintf(subcktname, MAX_STR_LEN-1, "%s", scan->name);
+      snprintf(subcktname, 99, "%s", scan->name);
 
       if (scan == head) {
 	 head = NULL;
@@ -1874,18 +1765,6 @@ skip_ends:
 	 ReopenCellDef((*CellStackPtr)->cellname, filenum);		/* Reopen */
 	 update = 1;
       }
-      else if (tp->flags & CELL_VERILOG) {
-	 if (tp->flags & CELL_PLACEHOLDER) {
-	    /* Flag this as an error.  To do:  Rearrange the verilog instance pins to	*/
-	    /* match the SPICE subcircuit pin order.					*/
-	    Fprintf(stderr, "Error:  SPICE subcircuit %s should be read before verilog "
-			"module using it, or pins may not match!\n", subcktname);
-	 }
-	 else {
-	    Fprintf(stderr, "Error:  SPICE subcircuit %s redefines a verilog module!\n",
-			subcktname);
-	 }
-      }
 
       /* nexttok is now NULL, scan->name points to class */
 
@@ -2004,36 +1883,20 @@ char *ReadSpiceTop(char *fname, int *fnum, int blackbox)
   CurrentCell = NULL;
 
   if ((filenum = OpenParseFile(fname, *fnum)) < 0) {
+    char name[100];
 
-    if (strrchr(fname, '.') == NULL) {
-      char name[1024];
-      SetExtension(name, fname, SPICE_EXTENSION);
-      if ((filenum = OpenParseFile(name, *fnum)) < 0) {
-        Fprintf(stderr, "Error in SPICE file read: No file %s\n", name);
-        *fnum = filenum;
-        return NULL;
-      }
-    }    
-    else {
-      Fprintf(stderr, "Error in SPICE file read: No file %s\n", fname);
+    SetExtension(name, fname, SPICE_EXTENSION);
+    if ((filenum = OpenParseFile(name, *fnum)) < 0) {
+      Fprintf(stderr,"Error in SPICE file read: No file %s\n",name);
       *fnum = filenum;
       return NULL;
     }    
   }
 
-  /* Make sure all SPICE file reading is case insensitive   */
-  /* BUT if a verilog file was read before it, then it will */
-  /* be forced to be case sensitive, caveat end-user.	    */
-
-  if (matchfunc == match) {
-      Printf("Warning:  A case-sensitive file has been read and so the "
-                "SPICE netlist must be treated case-sensitive to match.\n");
-  }
-  else {
-      matchfunc = matchnocase;
-      matchintfunc = matchfilenocase;
-      hashfunc = hashnocase;
-  }
+  /* Make sure all SPICE file reading is case insensitive */
+  matchfunc = matchnocase;
+  matchintfunc = matchfilenocase;
+  hashfunc = hashnocase;
 
   InitializeHashTable(&spiceparams, OBJHASHSIZE);
 
@@ -2088,7 +1951,7 @@ void IncludeSpice(char *fname, int parent, struct cellstack **CellStackPtr,
 		int blackbox)
 {
   int filenum = -1;
-  char name[MAX_STR_LEN];
+  char name[256];
 
   /* If fname does not begin with "/", then assume that it is	*/
   /* in the same relative path as its parent.			*/
@@ -2117,18 +1980,14 @@ void IncludeSpice(char *fname, int parent, struct cellstack **CellStackPtr,
 	/* helps, if the file didn't have an extension.  But	*/
 	/* really, we're getting desperate at this point.	*/
 
-	if (strrchr(fname, '.') == NULL) {
+	if (strchr(fname, '.') == NULL) {
            SetExtension(name, fname, SPICE_EXTENSION);
            filenum = OpenParseFile(name, parent);
-	   if (filenum < 0) {
-             Fprintf(stderr, "Error in SPICE file include: No file %s\n", name);
-             return;
-	   }
-        }    
-        else {
-          Fprintf(stderr, "Error in SPICE file include: No file %s\n", fname);
-          return;
 	}
+        if (filenum < 0) {
+           Fprintf(stderr,"Error in SPICE file include: No file %s\n",name);
+           return;
+        }    
      }
   }
   ReadSpiceFile(fname, parent, CellStackPtr, blackbox);

base/tech.h

@@ -1,8 +0,0 @@
-#ifndef _TECH_H
-#define _TECH_H
-
-extern int ActelLibPresent(void);
-extern void ActelLib(void);
-extern void VerilogTop(char *name, int fnum, char *filename);
-
-#endif /* _TECH_H */

base/test.c

@@ -34,8 +34,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include "print.h"
 #endif
 
-extern void Finsert(FILE *f);
-
 void test_entry(void) 
 { 
 

base/xilinx.c

@@ -23,7 +23,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include <stdio.h>
 #include <stdarg.h>
 #include <ctype.h>
-#include <time.h>
 
 #ifdef IBMPC
 #include <stdlib.h>  /* for strtol on PC */
@@ -34,8 +33,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include "netfile.h"
 #include "hash.h"
 #include "print.h"
-#include "xilinx.h"
-#include "flatten.h"
 
 #define XILINXHASHSIZE 99
 static long xilinxhashbase = 0xA00;
@@ -135,8 +132,10 @@ char *xilinx_class(model)
 	}
 	return(model);
 }
-
-void Xilinx(char *cellname, char *filename)
+void
+Xilinx(cellname, filename)
+	char *cellname;
+	char *filename;
 {
 	char Path[500];
 	char FileName[500];
@@ -164,7 +163,8 @@ void Xilinx(char *cellname, char *filename)
 	CloseFile(FileName);
 }
 
-int xilinxCell(char *cell)
+xilinxCell(cell)
+	char *cell;
 {
 	struct nlist *nl;
 	struct objlist *ob;
@@ -252,7 +252,9 @@ struct objlist *xilinx_gate(ob,nl)
 	return(nob);
 }
 
-void xilinx_sym(struct nlist *nl, struct objlist *gob)
+xilinx_sym(nl,gob)
+	struct nlist *nl;
+	struct objlist *gob;
 {
 	struct objlist *ob;
 	char *cp,*rindex();

base/xilinx.h

@@ -1,10 +0,0 @@
-#ifndef _XILINX_H
-#define _XILINX_H
-
-extern void xilinx_sym(struct nlist *nl, struct objlist *gob);
-extern void Xilinx(char *cellname, char *filename);
-extern int xilinxCell(char *cell);
-extern int XilinxLibPresent(void);
-extern void XilinxLib(void);
-
-#endif /* _XILINX_H */

base/xnetgen.c

@@ -65,10 +65,10 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 Widget toplevel = NULL;
 
-char GlobalFileName[MAX_STR_LEN], 
-  GlobalCellName[MAX_STR_LEN], 
-  GlobalOtherName[MAX_STR_LEN],
-  GlobalDataName[MAX_STR_LEN];
+char GlobalFileName[100], 
+  GlobalCellName[100], 
+  GlobalOtherName[100],
+  GlobalDataName[100];
 
 /*********************************************************
  * Menu structure:  attaches label string to a function,
@@ -1708,7 +1708,7 @@ void X_main_loop(int argc, char *argv[])
 
 XmStringCharSet cs = "ISOLatin1";
 
-static char prompt_response[MAX_STR_LEN];
+static char prompt_response[100];
 int prompt_done;
 int calling_editor;  /* which string are we trying to get ? */
 #define FILE_NAME 1

configure

@@ -4,6 +4,4 @@
 # all of its config scripts in a different directory than the configure
 # script itself.
 
-export CFLAGS="$CFLAGS -g"
-cd scripts
-exec ./configure "$@"
+( CFLAGS="-g" ; export CFLAGS ; cd scripts ; ./configure "$@" )

defs.mak

@@ -0,0 +1,85 @@
+# defs.mak.in --
+# source file for autoconf-generated "defs.mak" for netgen
+
+# defs.mak.  Generated from defs.mak.in by configure.
+# Feel free to change the values in here to suit your needs.
+# Be aware that running scripts/configure again will overwrite
+# any changes!
+
+SHELL                  = /bin/sh
+
+prefix = ${BUILDROOT}/usr/local
+exec_prefix = ${prefix}
+bindir = ${exec_prefix}/bin
+libdir = ${exec_prefix}/lib
+mandir = ${prefix}/share/man
+
+VERSION                = 
+
+SCRIPTS                = ${NETGENDIR}/scripts
+
+INSTALL = /bin/install -c
+INSTALL_PROGRAM = ${INSTALL}
+INSTALL_DATA = ${INSTALL} -m 644
+INSTALL_SCRIPT = ${INSTALL}
+
+# Override standard "make" target when compiling under TCL
+ALL_TARGET = tcl
+INSTALL_TARGET = install-tcl
+
+# Change CADDIR to install in a different place
+BINDIR                 = ${bindir}
+MANDIR                 = ${mandir}
+LIBDIR                 = ${libdir}
+DOCDIR                 = ${libdir}/netgen/doc
+TCLDIR                 = ${libdir}/netgen/tcl
+PYDIR		       = ${libdir}/netgen/python
+
+MAIN_EXTRA_LIBS        =  ${NETGENDIR}/tcltk/libtcltk.o
+LD_EXTRA_LIBS          = 
+LD_SHARED              = 
+TOP_EXTRA_LIBS         = 
+SUB_EXTRA_LIBS         = 
+
+MODULES               +=  tcltk
+UNUSED_MODULES        += 
+PROGRAMS              +=  tcltk
+INSTALL_CAD_DIRS      +=  tcltk
+
+RM                     = rm -f
+CP                     = cp
+AR                     = @AR@
+ARFLAGS                = crv
+LINK		       = /bin/ld -r
+LD                     = /bin/ld
+M4		       = /bin/m4
+RANLIB                 = ranlib
+SHDLIB_EXT	       = .so
+LDDL_FLAGS             =  -shared -Wl,-soname,$@ -Wl,--version-script=${NETGENDIR}/netgen/symbol.map
+LD_RUN_PATH            = 
+LIB_SPECS              =  -L/usr/lib64 -ltkstub8.6 -L/usr/lib64 -ltclstub8.6
+LIB_SPECS_NOSTUB       =  -L/usr/lib64 -ltk8.6 -L/usr/lib64 -ltcl8.6
+WISH_EXE	       = /usr/bin/wish
+TCL_LIB_DIR	       = /usr/lib
+
+CC                     = gcc
+CPP                    = gcc -E -x c
+CXX                    = @CXX@
+
+CPPFLAGS               = -I. -I${NETGENDIR} 
+DFLAGS                 =  -DCAD_DIR=\"${LIBDIR}\" -DTCL_DIR=\"${TCLDIR}\"  -DUSE_TCL_STUBS -DUSE_TK_STUBS -DPACKAGE_NAME=\"netgen\" -DPACKAGE_TARNAME=\"netgen\" -DPACKAGE_VERSION=\"1.3\" -DPACKAGE_STRING=\"netgen\ 1.3\" -DPACKAGE_BUGREPORT=\"eda-dev@opencircuitdesign.com\" -DPACKAGE_URL=\"\" -DNETGEN_VERSION=\"1.5\" -DNETGEN_REVISION=\"117\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DHAVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1 -DSHDLIB_EXT=\".so\" -DNDEBUG
+DFLAGS_NOSTUB          =  -DCAD_DIR=\"${LIBDIR}\" -DTCL_DIR=\"${TCLDIR}\" -DPACKAGE_NAME=\"netgen\" -DPACKAGE_TARNAME=\"netgen\" -DPACKAGE_VERSION=\"1.3\" -DPACKAGE_STRING=\"netgen\ 1.3\" -DPACKAGE_BUGREPORT=\"eda-dev@opencircuitdesign.com\" -DPACKAGE_URL=\"\" -DNETGEN_VERSION=\"1.5\" -DNETGEN_REVISION=\"117\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DHAVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1 -DSHDLIB_EXT=\".so\" -DNDEBUG
+CFLAGS                 = -g -m64 -fPIC -fPIC 
+
+DEPEND_FILE            = Depend
+DEPEND_FLAG            = -MM
+EXEEXT		       = 
+
+GR_CFLAGS              =  
+GR_DFLAGS              =  -DX11 -DXLIB -DNDEBUG
+GR_LIBS                =  -lX11 
+GR_SRCS                =  ${TK_SRCS}
+
+OBJS      = ${SRCS:.c=.o}
+LIB_OBJS  = ${LIB_SRCS:.c=.o}
+CLEANS    = ${OBJS} ${LIB_OBJS} lib${MODULE}.a lib${MODULE}.o ${MODULE}

doc/Makefile

@@ -2,11 +2,11 @@ NETGENDIR = ..
 
 include ${NETGENDIR}/defs.mak
 
-MANDIRS = $(DESTDIR)${INSTALL_MANDIR} $(DESTDIR)${INSTALL_MANDIR}/man1
-DOCDIRS = $(DESTDIR)${INSTALL_DOCDIR}
+MANDIRS = $(DESTDIR)${MANDIR} $(DESTDIR)${MANDIR}/man1
+DOCDIRS = $(DESTDIR)${DOCDIR}
 
 MANFILES = 
-DOCFILES = $(DESTDIR)${INSTALL_DOCDIR}/netgen.doc
+DOCFILES = $(DESTDIR)${DOCDIR}/netgen.doc
 
 install-tcl: ${DOCDIRS} ${DOCFILES}
 
@@ -23,8 +23,8 @@ make-doc-dirs:
 	${SCRIPTS}/mkdirs ${DOCDIRS}
 
 # This file does not actually exist. . .
-$(DESTDIR)${INSTALL_MANDIR}/man1/netgen.1: netgen.1 ${MANDIRS}
-	${CP} netgen.1 $(DESTDIR)${INSTALL_MANDIR}/man1/netgen.1
+$(DESTDIR)${MANDIR}/man1/netgen.1: netgen.1 ${MANDIRS}
+	${CP} netgen.1 $(DESTDIR)${MANDIR}/man1/netgen.1
 
-$(DESTDIR)${INSTALL_DOCDIR}/netgen.doc: netgen.doc ${DOCDIRS}
-	${CP} netgen.doc $(DESTDIR)${INSTALL_DOCDIR}/netgen.doc
+$(DESTDIR)${DOCDIR}/netgen.doc: netgen.doc ${DOCDIRS}
+	${CP} netgen.doc $(DESTDIR)${DOCDIR}/netgen.doc

lib/Makefile

@@ -4,14 +4,14 @@ include ${NETGENDIR}/defs.mak
 
 LIB_FILES = ntk2adl.sh spice spice.bot spice.top
 
-LIB_INST_FILES= $(LIB_FILES:%=$(DESTDIR)${INSTALL_LIBDIR}/netgen/%)
-BIN_INST_FILES= $(BIN_FILES:%=$(DESTDIR)${INSTALL_BINDIR}/%)
+LIB_INST_FILES= $(LIB_FILES:%=$(DESTDIR)${LIBDIR}/netgen/%)
+BIN_INST_FILES= $(BIN_FILES:%=$(DESTDIR)${BINDIR}/%)
 
 install-tcl: ${LIB_INST_FILES}
 
 install: ${LIB_INST_FILES}
 
-$(DESTDIR)${INSTALL_LIBDIR}/netgen/%: %
-	../scripts/mkdirs $(DESTDIR)${INSTALL_LIBDIR}/netgen
-	${RM} $(DESTDIR)${INSTALL_LIBDIR}/netgen/$*
-	${CP} $* $(DESTDIR)${INSTALL_LIBDIR}/netgen/$*
+$(DESTDIR)${LIBDIR}/netgen/%: %
+	../scripts/mkdirs $(DESTDIR)${LIBDIR}/netgen
+	${RM} $(DESTDIR)${LIBDIR}/netgen/$*
+	${CP} $* $(DESTDIR)${LIBDIR}/netgen/$*

netgen/Makefile

@@ -25,23 +25,23 @@ tclnetgen${SHDLIB_EXT}: ${EXTRA_LIBS}
 		${LD_RUN_PATH} ${EXTRA_LIBS} ${LD_EXTRA_LIBS} \
 		-lc ${LIBS} ${LIB_SPECS} ${LDFLAGS}
 
-$(DESTDIR)${INSTALL_BINDIR}/netgen:
+$(DESTDIR)${BINDIR}/netgen:
 	${RM} $@
 	${CP} netgen $@
 
-$(DESTDIR)${INSTALL_BINDIR}/ntk2adl:
+$(DESTDIR)${BINDIR}/ntk2adl:
 	${RM} $@
 	${CP} ntk2adl $@
 
-$(DESTDIR)${INSTALL_BINDIR}/ntk2xnf:
+$(DESTDIR)${BINDIR}/ntk2xnf:
 	${RM} $@
 	${CP} ntk2xnf $@
 
-$(DESTDIR)${INSTALL_BINDIR}/netcomp:
+$(DESTDIR)${BINDIR}/netcomp:
 	${RM} $@
 	${CP} netcomp $@
 
-$(DESTDIR)${INSTALL_BINDIR}/inetcomp:
+$(DESTDIR)${BINDIR}/inetcomp:
 	${RM} $@
 	${CP} inetcomp $@
 
@@ -61,14 +61,14 @@ ntk2xnf: ntk2xnf.c
 	${CC} ${CFLAGS} ${CPPFLAGS} ${DFLAGS} ntk2xnf.c -o $@ ${EXTRA_LIBS} \
 		${LIBS} ${LDFLAGS}
 
-install: $(DESTDIR)${INSTALL_BINDIR}/netgen $(DESTDIR)${INSTALL_BINDIR}/netcomp \
-		$(DESTDIR)${INSTALL_BINDIR}/inetcomp $(DESTDIR)${INSTALL_BINDIR}/ntk2adl \
-		$(DESTDIR)${INSTALL_BINDIR}/ntk2xnf
+install: $(DESTDIR)${BINDIR}/netgen $(DESTDIR)${BINDIR}/netcomp \
+		$(DESTDIR)${BINDIR}/inetcomp $(DESTDIR)${BINDIR}/ntk2adl \
+		$(DESTDIR)${BINDIR}/ntk2xnf
 
-install-tcl: $(DESTDIR)${INSTALL_TCLDIR} $(DESTDIR)${INSTALL_TCLDIR}/tclnetgen${SHDLIB_EXT}
+install-tcl: $(DESTDIR)${TCLDIR} $(DESTDIR)${TCLDIR}/tclnetgen${SHDLIB_EXT}
 
-$(DESTDIR)${INSTALL_TCLDIR}/tclnetgen${SHDLIB_EXT}: tclnetgen${SHDLIB_EXT}
-	${RM} $(DESTDIR)${INSTALL_TCLDIR}/tclnetgen${SHDLIB_EXT}
-	${CP} tclnetgen${SHDLIB_EXT} $(DESTDIR)${INSTALL_TCLDIR}/tclnetgen${SHDLIB_EXT}
+$(DESTDIR)${TCLDIR}/tclnetgen${SHDLIB_EXT}: tclnetgen${SHDLIB_EXT}
+	${RM} $(DESTDIR)${TCLDIR}/tclnetgen${SHDLIB_EXT}
+	${CP} tclnetgen${SHDLIB_EXT} $(DESTDIR)${TCLDIR}/tclnetgen${SHDLIB_EXT}
 
 include ${NETGENDIR}/rules.mak

netgen/inetcomp.c

@@ -17,7 +17,6 @@ along with this program; see the file copying.  If not, write to
 the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 /* inetcomp.c -- a simple wrapper to the NETCOMP() function */
-#include "config.h"
 
 #include <stdio.h>
 #include "netgen.h"
@@ -34,7 +33,7 @@ void STRCPY(char *dest, char *source)
 
 int main(int argc, char *argv[])
 {
-  char cell1[MAX_STR_LEN], cell2[MAX_STR_LEN];
+  char cell1[200], cell2[200];
 
   Debug = 0;
   if (argc != 1) {

netgen/netcomp.c

@@ -17,7 +17,6 @@ along with this program; see the file copying.  If not, write to
 the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 /* netcomp.c -- a simple wrapper to provide netlist comparison functionality */
-#include "config.h"
 
 #include <stdio.h>
 #include "netgen.h"
@@ -52,7 +51,7 @@ void STRCPY(char *dest, char *source)
 int main(int argc, char *argv[])
 {
 #ifndef HAVE_GETOPT
-  char cell1[MAX_STR_LEN], cell2[MAX_STR_LEN];
+  char cell1[200], cell2[200];
   int filenum = -1;
 
   Debug = 0;
@@ -68,7 +67,7 @@ int main(int argc, char *argv[])
   STRCPY(cell2, ReadNetlist(argv[2], &filenum));
   if (argc == 5) STRCPY(cell2, argv[4]);  /* if explicit cell name specified */
 #else
-  char cell1[MAX_STR_LEN], cell2[MAX_STR_LEN];
+  char cell1[200], cell2[200];
   int usage = 0;
   int args;
   int c;

netgen/netgen_main.c

@@ -23,7 +23,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 #include <stdlib.h>  /* for getenv */
 #endif
 #include "netgen.h"
-#include "print.h"
 
 int main(int argc, char **argv)
 {

netgen/ntk2xnf.c

@@ -20,11 +20,9 @@ along with this program; see the file copying.  If not, write to
 the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
 
 /* ntk2xnf.c  -- a simple wrapper to translate .ntk to Xilinx XNF format */
-#include "config.h"
 
 #include <stdio.h>
 #include "netgen.h"
-#include "xilinx.h"
 
 #ifdef HAVE_X11
 /* the following two X procedures are to permit linking
@@ -49,7 +47,7 @@ void STRCPY(char *dest, char *source)
 
 int main(int argc, char *argv[])
 {
-  char cellname[MAX_STR_LEN];
+  char cellname[200];
   int filenum = -1;
 
   Debug = 0;

python/Makefile

@@ -4,21 +4,19 @@ SRCS =
 SCRIPTS = consoletext.py helpwindow.py lvs_manager.py treeviewsplit.py
 SCRIPTS += tksimpledialog.py tooltip.py lvs_help.txt
 
-SCRIPTINSTALL = $(DESTDIR)${INSTALL_PYDIR}
+SCRIPTINSTALL = $(DESTDIR)${PYDIR}
 
 include ${NETGENDIR}/defs.mak
 
-CLEANS += lvs_manager.py
-
 main: lvs_manager.py
 
 tcl-main: lvs_manager.py
 
-$(DESTDIR)${INSTALL_PYDIR}/consoletext.py:
+$(DESTDIR)${PYDIR}/consoletext.py:
 	${RM} $@
 	${CP} consoletext.py $@
 
-$(DESTDIR)${INSTALL_PYDIR}/helpwindow.py:
+$(DESTDIR)${PYDIR}/helpwindow.py:
 	${RM} $@
 	${CP} helpwindow.py $@
 
@@ -26,32 +24,31 @@ lvs_manager.py: lvs_manager.py.in
 	sed -e '/SUBST_SCRIPT_DIR/s#SUBST_SCRIPT_DIR#$(SCRIPTINSTALL)#' \
 		lvs_manager.py.in > lvs_manager.py
 
-$(DESTDIR)${INSTALL_PYDIR}/lvs_manager.py: lvs_manager.py
+$(DESTDIR)${PYDIR}/lvs_manager.py: lvs_manager.py
 	${RM} $@
 	${CP} lvs_manager.py $@
-	chmod a+x $@
 
-$(DESTDIR)${INSTALL_PYDIR}/treeviewsplit.py: treeviewsplit.py
+$(DESTDIR)${PYDIR}/treeviewsplit.py: treeviewsplit.py
 	${RM} $@
 	${CP} treeviewsplit.py $@
 
-$(DESTDIR)${INSTALL_PYDIR}/tksimpledialog.py: tksimpledialog.py
+$(DESTDIR)${PYDIR}/tksimpledialog.py: tksimpledialog.py
 	${RM} $@
 	${CP} tksimpledialog.py $@
 
-$(DESTDIR)${INSTALL_PYDIR}/tooltip.py: tooltip.py
+$(DESTDIR)${PYDIR}/tooltip.py: tooltip.py
 	${RM} $@
 	${CP} tooltip.py $@
 
-$(DESTDIR)${INSTALL_PYDIR}/lvs_help.txt: lvs_help.txt
+$(DESTDIR)${PYDIR}/lvs_help.txt: lvs_help.txt
 	${RM} $@
 	${CP} lvs_help.txt $@
 
 install: install-tcl
 
-install-tcl: $(DESTDIR)${INSTALL_PYDIR} $(DESTDIR)${INSTALL_PYDIR}/consoletext.py \
-	$(DESTDIR)${INSTALL_PYDIR}/helpwindow.py $(DESTDIR)${INSTALL_PYDIR}/lvs_manager.py \
-	$(DESTDIR)${INSTALL_PYDIR}/treeviewsplit.py $(DESTDIR)${INSTALL_PYDIR}/tksimpledialog.py \
-	$(DESTDIR)${INSTALL_PYDIR}/tooltip.py $(DESTDIR)${INSTALL_PYDIR}/lvs_help.txt
+install-tcl: $(DESTDIR)${PYDIR} $(DESTDIR)${PYDIR}/consoletext.py \
+	$(DESTDIR)${PYDIR}/helpwindow.py $(DESTDIR)${PYDIR}/lvs_manager.py \
+	$(DESTDIR)${PYDIR}/treeviewsplit.py $(DESTDIR)${PYDIR}/tksimpledialog.py \
+	$(DESTDIR)${PYDIR}/tooltip.py $(DESTDIR)${PYDIR}/lvs_help.txt
 
 include ${NETGENDIR}/rules.mak

python/lvs_manager.py

@@ -0,0 +1,819 @@
+#!/bin/env python3
+#
+#--------------------------------------------------------
+# LVS Manager GUI.
+#
+# This is a Python tkinter script that handles the
+# process of running LVS and interpreting results.
+#
+#--------------------------------------------------------
+# Written by Tim Edwards
+# efabless, inc.
+# Version 1.  November 30, 2016
+# Version 2.  March 6, 2017.  Reads JSON format output
+# Version 3.  April 25, 2018. Handles layout vs. verilog
+#--------------------------------------------------------
+
+import io
+import os
+import re
+import sys
+import json
+import shutil
+import signal
+import socket
+import select
+import datetime
+import contextlib
+import subprocess
+
+import tkinter
+from tkinter import ttk
+from tkinter import filedialog
+
+import tksimpledialog
+import tooltip
+from consoletext import ConsoleText
+from helpwindow import HelpWindow
+from treeviewsplit import TreeViewSplit
+
+# User preferences file (if it exists)
+prefsfile = '~/.profile/prefs.json'
+
+netgen_script_dir = '/usr/local/lib/netgen/python'
+
+#------------------------------------------------------
+# Simple dialog for confirming quit
+#------------------------------------------------------
+
+class ConfirmDialog(tksimpledialog.Dialog):
+    def body(self, master, warning, seed):
+        if warning:
+            ttk.Label(master, text=warning, wraplength=500).grid(row = 0, columnspan = 2, sticky = 'wns')
+        return self
+
+    def apply(self):
+        return 'okay'
+
+#------------------------------------------------------
+# Main class for this application
+#------------------------------------------------------
+
+class LVSManager(ttk.Frame):
+    """LVS Manager GUI."""
+
+    def __init__(self, parent, *args, **kwargs):
+        ttk.Frame.__init__(self, parent, *args, **kwargs)
+        self.root = parent
+        self.init_gui()
+        parent.protocol("WM_DELETE_WINDOW", self.on_quit)
+
+    def on_quit(self):
+        """Exits program."""
+        if self.msock:
+            self.msock.close()
+        quit()
+
+    def init_gui(self):
+        """Builds GUI."""
+        global prefsfile
+
+        message = []
+        fontsize = 11
+
+        # Read user preferences file, get default font size from it.
+        prefspath = os.path.expanduser(prefsfile)
+        if os.path.exists(prefspath):
+            with open(prefspath, 'r') as f:
+                self.prefs = json.load(f)
+            if 'fontsize' in self.prefs:
+                fontsize = self.prefs['fontsize']
+        else:
+            self.prefs = {}
+
+        s = ttk.Style()
+
+        available_themes = s.theme_names()
+        s.theme_use(available_themes[0])
+
+        s.configure('bg.TFrame', background='gray40')
+        s.configure('italic.TLabel', font=('Helvetica', fontsize, 'italic'))
+        s.configure('title.TLabel', font=('Helvetica', fontsize, 'bold italic'),
+                        foreground = 'brown', anchor = 'center')
+        s.configure('normal.TLabel', font=('Helvetica', fontsize))
+        s.configure('red.TLabel', font=('Helvetica', fontsize), foreground = 'red')
+        s.configure('green.TLabel', font=('Helvetica', fontsize), foreground = 'green3')
+        s.configure('blue.TLabel', font=('Helvetica', fontsize), foreground = 'blue')
+        s.configure('normal.TButton', font=('Helvetica', fontsize),
+                        border = 3, relief = 'raised')
+        s.configure('red.TButton', font=('Helvetica', fontsize), foreground = 'red',
+                        border = 3, relief = 'raised')
+        s.configure('green.TButton', font=('Helvetica', fontsize), foreground = 'green3',
+                        border = 3, relief = 'raised')
+        s.configure('blue.TButton', font=('Helvetica', fontsize), foreground = 'blue',
+                        border = 3, relief = 'raised')
+        s.configure('redtitle.TButton', font=('Helvetica', fontsize, 'bold italic'),
+                        foreground = 'red', border = 3, relief = 'raised')
+        s.configure('bluetitle.TButton', font=('Helvetica', fontsize, 'bold italic'),
+                        foreground = 'blue', border = 3, relief = 'raised')
+
+        # These values to be overridden from arguments
+        self.rootpath = None
+        self.project = None
+        self.logfile = None
+        self.msock = None
+        self.help = None
+
+        # Create the help window
+        if os.path.exists(netgen_script_dir + '/netgen_help.txt'):
+            self.help = HelpWindow(self, fontsize = fontsize)
+            with io.StringIO() as buf, contextlib.redirect_stdout(buf):
+                self.help.add_pages_from_file('lvs_help.txt')
+                message = buf.getvalue()
+
+            # Set the help display to the first page
+            self.help.page(0)
+
+        # Variables used by option menus and other stuff
+        self.project = "(no selection)"
+        self.layout = "(default)"
+        self.schematic = "(default)"
+        self.tech = "(none)"
+        self.lvs_setup = ''
+        self.lvsdata = {}
+
+        # Root window title
+        self.root.title('LVS Manager')
+        self.root.option_add('*tearOff', 'FALSE')
+        self.pack(side = 'top', fill = 'both', expand = 'true')
+
+        pane = tkinter.PanedWindow(self, orient = 'vertical', sashrelief='groove', sashwidth=6)
+        pane.pack(side = 'top', fill = 'both', expand = 'true')
+        self.toppane = ttk.Frame(pane)
+        self.botpane = ttk.Frame(pane)
+
+        # Get username
+        if 'username' in self.prefs:
+            username = self.prefs['username']
+        else:
+            username = os.environ['USER']
+
+        # Label with the user
+        self.toppane.title_frame = ttk.Frame(self.toppane)
+        self.toppane.title_frame.pack(side = 'top', fill = 'x')
+
+        self.toppane.title_frame.title = ttk.Label(self.toppane.title_frame, text='User:', style = 'red.TLabel')
+        self.toppane.title_frame.user = ttk.Label(self.toppane.title_frame, text=username, style = 'blue.TLabel')
+
+        self.toppane.title_frame.title.grid(column=0, row=0, ipadx = 5)
+        self.toppane.title_frame.user.grid(column=1, row=0, ipadx = 5)
+
+        self.toppane.title2_frame = ttk.Frame(self.toppane)
+        self.toppane.title2_frame.pack(side = 'top', fill = 'x')
+        self.toppane.title2_frame.project_label = ttk.Label(self.toppane.title2_frame, text="Project:",
+                style = 'title.TLabel')
+        self.toppane.title2_frame.project_label.grid(column=0, row=0, ipadx = 5)
+
+        # New project select button
+        self.toppane.title2_frame.project_select = ttk.Button(self.toppane.title2_frame,
+                text=self.project, style='normal.TButton', command=self.choose_project)
+        self.toppane.title2_frame.project_select.grid(column=1, row=0, ipadx = 5)
+
+        tooltip.ToolTip(self.toppane.title2_frame.project_select,
+                        text = "Select new project")
+
+        # Show path to project
+        self.toppane.title2_frame.path_label = ttk.Label(self.toppane.title2_frame, text=self.project,
+                style = 'normal.TLabel')
+        self.toppane.title2_frame.path_label.grid(column=2, row=0, ipadx = 5, padx = 10)
+
+        # Show top-level layout cellname with select button.  Initial cell name is the top-level cell.
+        self.toppane.title2_frame.tech_label = ttk.Label(self.toppane.title2_frame, text="Technology setup:",
+                style = 'title.TLabel')
+
+        self.toppane.title2_frame.tech_label.grid(column=3, row=0, ipadx = 5)
+        self.toppane.title2_frame.tech_select = ttk.Button(self.toppane.title2_frame,
+                text=self.tech, style='normal.TButton', command=self.choose_tech)
+        self.toppane.title2_frame.tech_select.grid(column=4, row=0, ipadx = 3, padx = 3)
+
+        self.toppane.title2_frame.layout_label = ttk.Label(self.toppane.title2_frame, text="Layout:",
+                style = 'title.TLabel')
+        self.toppane.title2_frame.layout_label.grid(column=0, row=1, ipadx = 5)
+        self.toppane.title2_frame.layout_select = ttk.Button(self.toppane.title2_frame,
+                text=self.layout, style='normal.TButton', command=self.choose_layout)
+        self.toppane.title2_frame.layout_select.grid(column=1, row=1, ipadx = 3, padx = 3)
+
+        # Show top-level schematic cellname with select button.  Initial cell name is the top-level cell.
+        self.toppane.title2_frame.schem_label = ttk.Label(self.toppane.title2_frame, text="Schematic:",
+                style = 'title.TLabel')
+        self.toppane.title2_frame.schem_label.grid(column=3, row=1, ipadx = 5)
+        self.toppane.title2_frame.schem_select = ttk.Button(self.toppane.title2_frame,
+                text=self.schematic, style='normal.TButton', command=self.choose_netlist)
+        self.toppane.title2_frame.schem_select.grid(column=4, row=1, ipadx = 3, padx = 3)
+
+        tooltip.ToolTip(self.toppane.title2_frame.project_select,
+                        text = "Select new project")
+        tooltip.ToolTip(self.toppane.title2_frame.layout_select,
+                        text = "Select a layout subcirucit to compare")
+        tooltip.ToolTip(self.toppane.title2_frame.schem_select,
+                        text = "Select a schematic subcirucit to compare")
+
+        #---------------------------------------------
+        ttk.Separator(self.toppane, orient='horizontal').pack(side = 'top', fill = 'x')
+        #---------------------------------------------
+
+        # Create listbox of Circuit1 vs. Circuit2 results
+        height = 10
+        self.toppane.lvsreport = TreeViewSplit(self.toppane, fontsize = fontsize)
+        self.toppane.lvsreport.populate("Layout:", [], "Schematic:", [],
+			[["Run", True, self.run_lvs],
+			# ["Find", True, self.findrecord]
+			], height = height)
+        self.toppane.lvsreport.set_title("Line")
+        self.toppane.lvsreport.pack(side = 'top', fill = 'both', expand = 'true')
+
+        tooltip.ToolTip(self.toppane.lvsreport.get_button(0), text="Run LVS")
+
+        #---------------------------------------------
+        # ttk.Separator(self, orient='horizontal').grid(column=0, row=3, sticky='ew')
+        #---------------------------------------------
+
+        # Add a text window below the project name to capture output.  Redirect
+        # print statements to it.
+
+        self.botpane.console = ttk.Frame(self.botpane)
+        self.botpane.console.pack(side = 'top', fill = 'both', expand = 'true')
+
+        self.text_box = ConsoleText(self.botpane.console, wrap='word', height = 4)
+        self.text_box.pack(side='left', fill='both', expand='true')
+        console_scrollbar = ttk.Scrollbar(self.botpane.console)
+        console_scrollbar.pack(side='right', fill='y')
+        # attach console to scrollbar
+        self.text_box.config(yscrollcommand = console_scrollbar.set)
+        console_scrollbar.config(command = self.text_box.yview)
+
+        # Add button bar at the bottom of the window
+        self.botpane.bbar = ttk.Frame(self.botpane)
+        self.botpane.bbar.pack(side = 'top', fill = 'x')
+
+        # Define the "quit" button and action
+        self.botpane.bbar.quit_button = ttk.Button(self.botpane.bbar, text='Quit', command=self.on_quit,
+                style = 'normal.TButton')
+        self.botpane.bbar.quit_button.grid(column=0, row=0, padx = 5)
+
+        # Define help button
+        if self.help:
+            self.botpane.bbar.help_button = ttk.Button(self.botpane.bbar, text='Help',
+		command=self.help.open, style = 'normal.TButton')
+            self.botpane.bbar.help_button.grid(column = 2, row = 0, padx = 5)
+            tooltip.ToolTip(self.botpane.bbar.help_button, text = "Show help window")
+
+        # Add the panes once the internal geometry is known.
+        pane.add(self.toppane)
+        pane.add(self.botpane)
+        pane.paneconfig(self.toppane, stretch='first')
+
+        # Redirect stdout and stderr to the console as the last thing to do. . .
+        # Otherwise errors in the GUI get sucked into the void.
+
+        self.stdout = sys.stdout
+        self.stderr = sys.stderr
+        sys.stdout = ConsoleText.StdoutRedirector(self.text_box)
+        sys.stderr = ConsoleText.StderrRedirector(self.text_box)
+
+        if message:
+            print(message)
+
+    def logprint(self, message, doflush=False):
+        if self.logfile:
+            self.logfile.buffer.write(message.encode('utf-8'))
+            self.logfile.buffer.write('\n'.encode('utf-8'))
+            if doflush:
+                self.logfile.flush()
+
+    def printout(self, output):
+        # Generate output
+        if not output:
+            return
+
+        outlines = output.splitlines()
+        for line in outlines:
+            try:
+                print(line)
+            except TypeError:
+                line = line.decode('utf-8')
+                pritn(line)
+
+    def printwarn(self, output):
+        # Check output for warning or error
+        if not output:
+            return 0
+
+        warnrex = re.compile('.*warning', re.IGNORECASE)
+        errrex = re.compile('.*error', re.IGNORECASE)
+
+        errors = 0
+        outlines = output.splitlines()
+        for line in outlines:
+            try:
+                wmatch = warnrex.match(line)
+            except TypeError:
+                line = line.decode('utf-8')
+                wmatch = warnrex.match(line)
+            ematch = errrex.match(line)
+            if ematch:
+                errors += 1
+            if ematch or wmatch:
+                print(line)
+        return errors
+
+    def choose_tech(self):
+        try:
+            project_path = self.rootpath
+            initdirname = self.rootpath + '/tech',
+        except:
+            print('Must choose a project first.')
+            return
+        techname = filedialog.askopenfilename(multiple=False,
+			initialdir = initdirname,
+			filetypes = (("Tcl script", "*.tcl"),("All Files","*.*")),
+			title = "Choose a netgen technology setup script.")
+        if techname != '':
+            print("Selected technology setup script " + techname)
+            techbase = os.path.split(techname)[1]
+            self.tech = os.path.splitext(techbase)[0]
+            self.lvs_setup = techname
+            self.toppane.title2_frame.layout_select.config(text = self.tech)
+
+    def choose_layout(self):
+        try:
+            project_path = self.rootpath
+            initdirname = self.rootpath + '/layout',
+        except:
+            print('Must choose a project first.')
+            return
+        cellname = filedialog.askopenfilename(multiple=False,
+			initialdir = initdirname,
+			filetypes = (("Magic layout", "*.mag"),("All Files","*.*")),
+			title = "Choose a layout cell to compare.")
+        if cellname != '':
+            print("Selected compare cell " + cellname)
+            cellbase = os.path.split(cellname)[1]
+            self.layout = os.path.splitext(cellbase)[0]
+            self.toppane.title2_frame.layout_select.config(text = self.layout)
+
+    def choose_netlist(self):
+        try:
+            project_path = self.rootpath
+            initdirname = self.rootpath + '/netlist/' + self.project + '.spi'
+        except:
+            print('Must choose a project first.')
+            return
+        cellname = filedialog.askopenfilename(multiple=False,
+			initialdir = initdirname,
+			filetypes = (("Spice netlist", "*.spi"),("Verilog netlist", "*.v")),
+			title = "Choose a netlist to compare.")
+        if cellname != '':
+            print("Selected compare cell " + cellname)
+            cellbase = os.path.split(cellname)[1]
+            self.schematic = os.path.splitext(cellbase)[0]
+            self.toppane.title2_frame.schem_select.config(text = self.schematic)
+            fileext = os.path.splitext(cellbase)[1]
+            if fileext == '.v':
+                self.toppane.title2_frame.schem_label.config(text = 'Verilog netlist:')
+            elif fileext == '.sp' or fileext == '.spi' or fileext == '.spice' or fileext == '.spc' or fileext == '.ckt':
+                self.toppane.title2_frame.schem_label.config(text = 'SPICE netlist:')
+            elif fileext == '.cdl':
+                self.toppane.title2_frame.schem_label.config(text = 'CDL netlist:')
+            else:
+                self.toppane.title2_frame.schem_label.config(text = 'Unknown netlist:')
+
+    def choose_project(self):
+        project = filedialog.askdirectory(initialdir = os.getcwd(),
+			title = "Find a project.")
+        if project != '':
+            print("Selected project " + str(project))
+            result = self.set_project(project)
+
+    def set_project(self, rootpath, project_name=None):
+
+        # Check if rootpath is valid.  For LVS, there should be subdirectories
+        # "layout/" and "netlist/" or "verilog/".
+
+        haslay = os.path.isdir(rootpath + '/layout')
+        hasvlog = os.path.isdir(rootpath + '/verilog')
+        hasnet = os.path.isdir(rootpath + '/netlist')
+        if not haslay or not (hasvlog or hasnet):
+            if not haslay:
+                print("Project path has no layout (/layout) subdirectory.")
+            if not (hasvlog or hasnet):
+                print("Project path has no verilog (/verilog), or netlist (/netlist) subdirectory.")
+            # Continue anyway;  assume that netlists will be selected manually
+
+        if self.logfile:
+            self.logfile.close()
+            self.logfile = None
+
+        if not project_name:
+            project = os.path.split(rootpath)[1]
+        else:
+            project = project_name
+
+        if self.project != project:
+
+            self.rootpath = rootpath
+            self.project = project
+
+            # Clear out old project data
+            self.toppane.lvsreport.repopulate([], [])
+
+            # Close any open logfile.
+            if self.logfile:
+                self.logfile.close()
+                self.logfile = None
+
+            # Put new log file called 'lvs.log' in the mag/ subdirectory
+            self.logfile = open(rootpath + '/layout/lvs.log', 'w')
+            # Print some initial information to the logfile.
+            self.logprint('Starting new log file ' + datetime.datetime.now().strftime('%c'),
+				doflush=True)
+
+            # Update project button
+            self.toppane.title2_frame.project_select.config(text = self.project)
+            self.toppane.title2_frame.path_label.config(text = self.rootpath)
+            # Cell name is the same as project name initially
+            self.layout = self.project
+            self.schematic = self.project
+            self.toppane.title2_frame.layout_select.config(text = self.layout)
+            self.toppane.title2_frame.schem_select.config(text = self.schematic)
+
+            # Update schematic button
+            if os.path.isfile(rootpath + '/verilog/' + self.schematic + '.v'):
+                self.toppane.title2_frame.schem_label.config(text = 'Verilog netlist:')
+            else:
+                self.toppane.title2_frame.schem_label.config(text = 'Schematic netlist:')
+
+            # If there is a comparison file that post-dates both netlists, load it.
+            self.check_lvs()
+        return True
+
+    def check_layout_out_of_date(self, spipath, layoutpath):
+        # Check if a netlist (spipath) is out-of-date relative to the layouts
+        # (layoutpath).  Need to read the netlist and check all of the subcells.
+        need_capture = False
+        if not os.path.isfile(spipath):
+            return True
+        if os.path.isfile(layoutpath):
+            spi_statbuf = os.stat(spipath)
+            lay_statbuf = os.stat(layoutpath)
+            if spi_statbuf.st_mtime < lay_statbuf.st_mtime:
+                # netlist exists but is out-of-date
+                need_capture = True
+            else:
+                # only found that the top-level-layout is older than the
+                # netlist.  Now need to read the netlist, find all subcircuits,
+                # and check those dates, too.
+                layoutdir = os.path.split(layoutpath)[0]
+                subrex = re.compile('^[^\*]*[ \t]*.subckt[ \t]+([^ \t]+).*$', re.IGNORECASE)
+                with open(spipath, 'r') as ifile:
+                    duttext = ifile.read()
+ 
+                dutlines = duttext.replace('\n+', ' ').splitlines()
+                for line in dutlines:
+                    lmatch = subrex.match(line)
+                    if lmatch:
+                        subname = lmatch.group(1)
+                        sublayout = layoutdir + '/' + subname + '.mag'
+                        # subcircuits that cannot be found in the current directory are
+                        # assumed to be library components and therefore never out-of-date.
+                        if os.path.exists(sublayout):
+                            sub_statbuf = os.stat(sublayout)
+                            if spi_statbuf.st_mtime < lay_statbuf.st_mtime:
+                                # netlist exists but is out-of-date
+                                need_capture = True
+                                break
+        return need_capture
+
+    def check_schematic_out_of_date(self, spipath, schempath):
+        # Check if a netlist (spipath) is out-of-date relative to the schematics
+        # (schempath).  Need to read the netlist and check all of the subcells.
+        need_capture = False
+        if not os.path.isfile(spipath):
+            return True
+        if os.path.isfile(schempath):
+            spi_statbuf = os.stat(spipath)
+            sch_statbuf = os.stat(schempath)
+            if spi_statbuf.st_mtime < sch_statbuf.st_mtime:
+                # netlist exists but is out-of-date
+                need_capture = True
+            else:
+                # only found that the top-level-schematic is older than the
+                # netlist.  Now need to read the netlist, find all subcircuits,
+                # and check those dates, too.
+                schemdir = os.path.split(schempath)[0]
+                subrex = re.compile('^[^\*]*[ \t]*.subckt[ \t]+([^ \t]+).*$', re.IGNORECASE)
+                with open(spipath, 'r') as ifile:
+                    duttext = ifile.read()
+ 
+                dutlines = duttext.replace('\n+', ' ').splitlines()
+                for line in dutlines:
+                    lmatch = subrex.match(line)
+                    if lmatch:
+                        subname = lmatch.group(1)
+                        # NOTE: Electric uses library:cell internally to track libraries,
+                        # and maps the ":" to "__" in the netlist.  Not entirely certain that
+                        # the double-underscore uniquely identifies the library:cell. . .
+                        librex = re.compile('(.*)__(.*)', re.IGNORECASE)
+                        lmatch = librex.match(subname)
+                        if lmatch:
+                            elecpath = os.path.split(os.path.split(schempath)[0])[0]
+                            libname = lmatch.group(1)
+                            subschem = elecpath + '/' + libname + '.delib/' + lmatch.group(2) + '.sch'
+                        else:
+                            libname = {}
+                            subschem = schemdir + '/' + subname + '.sch'
+                        # subcircuits that cannot be found in the current directory are
+                        # assumed to be library components and therefore never out-of-date.
+                        if os.path.exists(subschem):
+                            sub_statbuf = os.stat(subschem)
+                            if spi_statbuf.st_mtime < sub_statbuf.st_mtime:
+                                # netlist exists but is out-of-date
+                                need_capture = True
+                                break
+                        # mapping of characters to what's allowed in SPICE makes finding
+                        # the associated schematic file a bit difficult.  Requires wild-card
+                        # searching.
+                        elif libname:
+                            restr = lmatch.group(2) + '.sch'
+                            restr = restr.replace('.', '\.')
+                            restr = restr.replace('_', '.')
+                            schrex = re.compile(restr, re.IGNORECASE)
+                            libpath = elecpath + '/' + libname + '.delib'
+                            if os.path.exists(libpath):
+                                liblist = os.listdir(libpath)
+                                for file in liblist:
+                                    lmatch = schrex.match(file)
+                                    if lmatch:
+                                        subschem = libpath + '/' + file
+                                        sub_statbuf = os.stat(subschem)
+                                        if spi_statbuf.st_mtime < sch_statbuf.st_mtime:
+                                            # netlist exists but is out-of-date
+                                            need_capture = True
+                                        break
+        return need_capture
+
+    def check_lvs(self):
+        # If both netlists exist, and comp.json is more recent than both, then
+        # load LVS results from comp.json
+        project_path = self.rootpath
+        project_name = self.project
+        layout_path = project_path + '/layout/' + project_name + '.spc'
+        net_path = project_path + '/netlist/' + project_name + '.spi'
+        comp_path = project_path + '/layout/comp.json'
+
+        if os.path.exists(layout_path) and os.path.exists(net_path) and os.path.exists(comp_path):
+            magtime = os.stat(layout_path).st_mtime
+            schemtime = os.stat(net_path).st_mtime
+            comptime = os.stat(comp_path).st_mtime
+            if comptime > magtime and comptime > schemtime:
+                print("Loading LVS results from file.")
+                self.generate(comp_path)
+
+    def generate_layout_netlist(self, layout_path, layout_src, project_path):
+        # Does layout netlist exist and is it current?
+        if self.check_layout_out_of_date(layout_path, layout_src):
+            print('Generating layout netlist.')
+            self.update_idletasks()
+            mproc = subprocess.Popen(['magic', '-dnull', '-noconsole',
+			self.layout], stdin = subprocess.PIPE, stdout = subprocess.PIPE,
+			stderr = subprocess.PIPE, cwd = project_path + '/layout',
+			universal_newlines = True)
+            mproc.stdin.write("select top cell\n")
+            mproc.stdin.write("expand\n")
+            mproc.stdin.write("extract all\n")
+            mproc.stdin.write("ext2spice hierarchy on\n")
+            mproc.stdin.write("ext2spice format ngspice\n")
+            mproc.stdin.write("ext2spice scale off\n")
+            mproc.stdin.write("ext2spice renumber off\n")
+            mproc.stdin.write("ext2spice subcircuit top auto\n")
+            mproc.stdin.write("ext2spice cthresh infinite\n")
+            mproc.stdin.write("ext2spice rthresh infinite\n")
+            mproc.stdin.write("ext2spice blackbox on\n")
+            mproc.stdin.write("ext2spice -o " + self.layout + ".spi\n")
+            mproc.stdin.write("quit -noprompt\n")
+            magicout = mproc.communicate()[0]
+            self.printwarn(magicout)
+            if mproc.returncode != 0:
+                print('Failure to generate new layout netlist.')
+                return False
+
+            # Move .spi netlist to project_dir/netlist/lvs/
+            shutil.move(project_path + '/layout/' + self.layout + '.spi', layout_path)
+            # Remove extraction files
+            for file in os.listdir(project_path + '/layout'):
+                if os.path.splitext(file)[1] == '.ext':
+                    os.remove(project_path + '/layout/' + file)
+        else:
+            print('Layout netlist is up-to-date, not regenerating.')
+        return True
+
+    def run_lvs(self, value):
+        # "value" is ignored (?)
+
+        # Check if netlists exist and are current;  otherwise create them.
+        # Then run LVS.
+
+        project_path = self.rootpath
+        project_name = self.project
+        comp_path = project_path + '/layout/comp.json'
+        has_vlog = False
+        vlog_path = project_path + '/verilog/' + project_name + '.v'
+
+        layout_path = project_path + '/netlist/lvs/' + self.layout + '.spi'
+        net_path = project_path + '/netlist/schem/' + self.schematic + '.spi'
+        layout_src = project_path + '/layout/' + self.layout + '.mag'
+
+        # Does the setup file exist (this is optional)?
+        if self.lvs_setup != '' and not os.path.isfile('setup.tcl'):
+            print('No technology setup file selected.')
+
+        # Does schematic netlist exist?
+        if not os.path.isfile(vlog_path) and not os.path.isfile(net_path):
+            print('Error:  No schematic netlist or verilog netlist.')
+            return
+
+        # Does LVS netlist subdirectory exist?
+        if not os.path.exists(project_path + '/netlist/lvs'):
+            os.makedirs(project_path + '/netlist/lvs')
+
+        # Does layout netlist exist and is it current?
+        if not self.generate_layout_netlist(layout_path, layout_src, project_path):
+            return False
+
+        # Final check
+        if not os.path.isfile(layout_path):
+            print('Error:  No netlist generated from magic.')
+            return
+
+        else:
+            # Read in netlist and convert commas from [X,Y] arrays to vertical bars
+            # as something that can be converted back as necessary.  ngspice treats
+            # commas as special characters for some reason.
+            with open(layout_path) as ifile:
+                spitext = ifile.read()
+
+            # spilines = spitext.replace(',', '|')
+            # with open(layout_path, 'w') as ofile:
+            #     ofile.write(spilines)
+
+        # Check the netlist to see if the cell to match is a subcircuit.  If
+        # not, then assume it is the top level.
+
+        is_subckt = False
+        subrex = re.compile('^[^\*]*[ \t]*.subckt[ \t]+([^ \t]+).*$', re.IGNORECASE)
+        dutlines = spitext.replace('\n+', ' ').splitlines()
+        for line in dutlines:
+            lmatch = subrex.match(line)
+            if lmatch:
+                subname = lmatch.group(1)
+                if subname == self.layout:
+                    is_subckt = True
+                    break
+
+        if is_subckt:
+            layout_arg = layout_path + ' ' + self.layout
+            layout_text = '"' + layout_arg + '"'
+        else:
+            layout_arg = layout_path
+            layout_text = layout_arg
+
+        if has_vlog:
+            schem_arg = vlog_path + ' ' + self.schematic
+        else:
+            schem_arg = net_path + ' ' + self.schematic
+        schem_text = '"' + schem_arg + '"'
+
+        # Remove any previous comparison output file
+        comp_out_path = os.path.splitext(comp_path)[0] + '.out'
+        if os.path.exists(comp_out_path):
+            os.remove(comp_out_path)
+
+        # Run netgen as subprocess
+        print('Running: netgen -batch lvs ' + layout_text + 
+		' ' + schem_text + ' ' + self.lvs_setup + ' ' + comp_out_path +
+		' -json -blackbox')
+        # Note: Because arguments to subprocess are list items, the {filename cell}
+        # pair does *not* have to be quoted or braced.  Doing so causes a parse
+        # error.
+        self.lvsproc = subprocess.Popen(['netgen', '-batch', 'lvs',
+		layout_arg, schem_arg,
+		self.lvs_setup, comp_out_path, '-json', '-blackbox'],
+		cwd=project_path + '/layout',
+		stdout=subprocess.PIPE, stderr=subprocess.PIPE, bufsize=0)
+        # This is largely unnecessary as netgen usually runs to completion very quickly.
+        self.watchclock(comp_path)
+
+    def watchclock(self, filename):
+        if self.lvsproc == None:
+            return
+
+        lvs_status = self.lvsproc.poll()
+        sresult = select.select([self.lvsproc.stdout, self.lvsproc.stderr], [], [], 0)[0]
+        if self.lvsproc.stdout in sresult:
+            outstring = self.lvsproc.stdout.readline().decode().strip()
+            self.logprint(outstring, doflush=True)
+            print(outstring)
+        elif self.lvsproc.stderr in sresult:
+            errstring = self.lvsproc.stderr.readline().decode().strip()
+            self.logprint(errstring, doflush = True)
+            print(errstring, file=sys.stderr)
+
+        if lvs_status != None:
+            print("netgen LVS exited with status " + str(lvs_status))
+            self.lvsproc = None
+            if lvs_status != 0:
+                print('Errors encountered in LVS.')
+                self.logprint('Errors in LVS, lvs status = ' + str(lvs_status), doflush=True)
+            # Done;  now read comp.json and fill the treeview listbox.
+            self.generate(filename)
+        else:
+            self.after(500, lambda: self.watchclock(filename))
+
+    # Generate display from "comp.out" file (json file now preferred)
+
+    def generate_orig(self, lvspath):
+        lefttext = []
+        righttext = []
+        print("Reading LVS output file " + lvspath)
+        if os.path.exists(lvspath):
+            with open(lvspath, 'r') as ifile:
+                lvslines = ifile.read().splitlines()
+            for line in lvslines:
+                if '|' in line:
+                    # parts = line.split('|')
+                    # lefttext.append(parts[0])
+                    # righttext.append(parts[1])
+                    lefttext.append(line[0:42].strip())
+                    righttext.append(line[44:].strip())
+                else:
+                    lefttext.append(line)
+                    righttext.append('')
+            # Populate treeview with text
+            self.toppane.lvsreport.repopulate(lefttext, righttext)
+ 
+        else:
+            print("Error:  No output file generated from LVS.")
+
+    # Generate output from LVS report JSON file comp.json
+
+    def generate(self, lvspath):
+        lefttext = []
+        righttext = []
+        print("Reading LVS output file " + lvspath)
+        if os.path.exists(lvspath):
+            with open(lvspath, 'r') as ifile:
+                self.lvsdata = json.load(ifile)
+
+            # Populate treeview with text
+            self.toppane.lvsreport.json_repopulate(self.lvsdata)
+ 
+        else:
+            print("Error:  No output file generated from LVS.")
+
+    def findrecord(self, value):
+        print("Unimplemented function")
+
+    def findrecord_test(self, value):
+        # Check if socket is defined;  if not, attempt to open one
+        if not self.msock:
+            try:
+                self.msock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
+            except:
+                 print("No response from layout tool.")
+
+            if self.msock:
+                self.msock.connect(("0.0.0.0", 12946))
+                self.msock.setblocking(False)
+        if self.msock:
+            # Pull name of net or device from 'value'
+            # This is a test:
+            self.msock.sendall(b'box 0 0 100 100\r\n')
+
+if __name__ == '__main__':
+    options = []
+    arguments = []
+    for item in sys.argv[1:]:
+        if item.find('-', 0) == 0:
+            options.append(item)
+        else:
+            arguments.append(item)
+
+    root = tkinter.Tk()
+    app = LVSManager(root)
+    if arguments:
+        if len(arguments) >= 2:
+            app.set_project(arguments[0], project_name=arguments[1])
+        else:
+            app.set_project(arguments[0])
+
+    root.mainloop()

python/lvs_manager.py.in

@@ -343,7 +343,7 @@ class LVSManager(ttk.Frame):
             techbase = os.path.split(techname)[1]
             self.tech = os.path.splitext(techbase)[0]
             self.lvs_setup = techname
-            self.toppane.title2_frame.tech_select.config(text = self.tech)
+            self.toppane.title2_frame.layout_select.config(text = self.tech)
 
     def choose_layout(self):
         try:
@@ -358,37 +358,30 @@ class LVSManager(ttk.Frame):
 			title = "Choose a layout cell to compare.")
         if cellname != '':
             print("Selected compare cell " + cellname)
-            self.layout = cellname
             cellbase = os.path.split(cellname)[1]
-            layoutname = os.path.splitext(cellbase)[0]
-            self.toppane.title2_frame.layout_select.config(text = layoutname)
-            fileext = os.path.splitext(cellbase)[1]
-            if fileext == '.mag':
-                self.toppane.title2_frame.layout_label.config(text = 'Layout:')
-            else:
-                self.toppane.title2_frame.layout_label.config(text = 'Layout netlist:')
+            self.layout = os.path.splitext(cellbase)[0]
+            self.toppane.title2_frame.layout_select.config(text = self.layout)
 
     def choose_netlist(self):
         try:
             project_path = self.rootpath
-            initdirname = self.rootpath + '/netlist/' + self.project + '.spice'
+            initdirname = self.rootpath + '/netlist/' + self.project + '.spi'
         except:
             print('Must choose a project first.')
             return
         cellname = filedialog.askopenfilename(multiple=False,
 			initialdir = initdirname,
-			filetypes = (("Spice netlist", "*.spice"),("Verilog netlist", "*.v"),("All Files","*.*")),
+			filetypes = (("Spice netlist", "*.spi"),("Verilog netlist", "*.v")),
 			title = "Choose a netlist to compare.")
         if cellname != '':
             print("Selected compare cell " + cellname)
-            self.schematic = cellname
             cellbase = os.path.split(cellname)[1]
-            schematic_name = os.path.splitext(cellbase)[0]
-            self.toppane.title2_frame.schem_select.config(text = schematic_name)
+            self.schematic = os.path.splitext(cellbase)[0]
+            self.toppane.title2_frame.schem_select.config(text = self.schematic)
             fileext = os.path.splitext(cellbase)[1]
             if fileext == '.v':
                 self.toppane.title2_frame.schem_label.config(text = 'Verilog netlist:')
-            elif fileext == '.sp' or fileext == '.spice' or fileext == '.spi' or fileext == '.spc' or fileext == '.ckt':
+            elif fileext == '.sp' or fileext == '.spi' or fileext == '.spice' or fileext == '.spc' or fileext == '.ckt':
                 self.toppane.title2_frame.schem_label.config(text = 'SPICE netlist:')
             elif fileext == '.cdl':
                 self.toppane.title2_frame.schem_label.config(text = 'CDL netlist:')
@@ -440,10 +433,7 @@ class LVSManager(ttk.Frame):
                 self.logfile = None
 
             # Put new log file called 'lvs.log' in the mag/ subdirectory
-            if os.path.exists(rootpath + '/layout'):
-                self.logfile = open(rootpath + '/layout/lvs.log', 'w')
-            else:
-                self.logfile = open(rootpath + '/lvs.log', 'w')
+            self.logfile = open(rootpath + '/layout/lvs.log', 'w')
             # Print some initial information to the logfile.
             self.logprint('Starting new log file ' + datetime.datetime.now().strftime('%c'),
 				doflush=True)
@@ -454,23 +444,15 @@ class LVSManager(ttk.Frame):
             # Cell name is the same as project name initially
             self.layout = self.project
             self.schematic = self.project
-            layname = os.path.splitext(os.path.split(self.layout)[1])[0]
-            self.toppane.title2_frame.layout_select.config(text = layname)
-            schemname = os.path.splitext(os.path.split(self.schematic)[1])[0]
-            self.toppane.title2_frame.schem_select.config(text = schemname)
+            self.toppane.title2_frame.layout_select.config(text = self.layout)
+            self.toppane.title2_frame.schem_select.config(text = self.schematic)
 
             # Update schematic button
-            if os.path.splitext(self.schematic)[1] == '.v':
+            if os.path.isfile(rootpath + '/verilog/' + self.schematic + '.v'):
                 self.toppane.title2_frame.schem_label.config(text = 'Verilog netlist:')
             else:
                 self.toppane.title2_frame.schem_label.config(text = 'Schematic netlist:')
 
-            # Update layout button
-            if os.path.splitext(self.layout)[1] == '.mag':
-                self.toppane.title2_frame.schem_label.config(text = 'Layout:')
-            else:
-                self.toppane.title2_frame.schem_label.config(text = 'Layout netlist:')
-
             # If there is a comparison file that post-dates both netlists, load it.
             self.check_lvs()
         return True
@@ -585,8 +567,8 @@ class LVSManager(ttk.Frame):
         # load LVS results from comp.json
         project_path = self.rootpath
         project_name = self.project
-        layout_path = project_path + '/layout/' + project_name + '.spice'
-        net_path = project_path + '/netlist/' + project_name + '.spice'
+        layout_path = project_path + '/layout/' + project_name + '.spc'
+        net_path = project_path + '/netlist/' + project_name + '.spi'
         comp_path = project_path + '/layout/comp.json'
 
         if os.path.exists(layout_path) and os.path.exists(net_path) and os.path.exists(comp_path):
@@ -617,7 +599,7 @@ class LVSManager(ttk.Frame):
             mproc.stdin.write("ext2spice cthresh infinite\n")
             mproc.stdin.write("ext2spice rthresh infinite\n")
             mproc.stdin.write("ext2spice blackbox on\n")
-            mproc.stdin.write("ext2spice -o " + self.layout + ".spice\n")
+            mproc.stdin.write("ext2spice -o " + self.layout + ".spi\n")
             mproc.stdin.write("quit -noprompt\n")
             magicout = mproc.communicate()[0]
             self.printwarn(magicout)
@@ -625,8 +607,8 @@ class LVSManager(ttk.Frame):
                 print('Failure to generate new layout netlist.')
                 return False
 
-            # Move .spice netlist to project_dir/netlist/lvs/
-            shutil.move(project_path + '/layout/' + self.layout + '.spice', layout_path)
+            # Move .spi netlist to project_dir/netlist/lvs/
+            shutil.move(project_path + '/layout/' + self.layout + '.spi', layout_path)
             # Remove extraction files
             for file in os.listdir(project_path + '/layout'):
                 if os.path.splitext(file)[1] == '.ext':
@@ -643,37 +625,17 @@ class LVSManager(ttk.Frame):
 
         project_path = self.rootpath
         project_name = self.project
-
-        # Diagnostic:
-        print('project_name is ' + project_name)
-        print('project_path is ' + project_path)
-        print('self.layout is ' + self.layout)
-        print('self.schematic is ' + self.schematic)
-        print('self.lvs_setup is ' + self.lvs_setup)
-
+        comp_path = project_path + '/layout/comp.json'
         has_vlog = False
         vlog_path = project_path + '/verilog/' + project_name + '.v'
 
-        if os.path.isfile(self.layout):
-            layout_path = self.layout
-            layout_src = None
-        else:
-            layout_path = project_path + '/netlist/lvs/' + self.layout + '.spice'
-            layout_src = project_path + '/layout/' + self.layout + '.mag'
-
-        comp_dir = os.path.split(layout_path)[0]
-        comp_path = comp_dir + '/comp.json'
-
-        if os.path.isfile(self.schematic):
-            net_path = self.schematic
-        else:
-            net_path = project_path + '/netlist/schem/' + self.schematic + '.spice'
+        layout_path = project_path + '/netlist/lvs/' + self.layout + '.spi'
+        net_path = project_path + '/netlist/schem/' + self.schematic + '.spi'
+        layout_src = project_path + '/layout/' + self.layout + '.mag'
 
         # Does the setup file exist (this is optional)?
-        if self.lvs_setup == '' and not os.path.isfile('setup.tcl'):
+        if self.lvs_setup != '' and not os.path.isfile('setup.tcl'):
             print('No technology setup file selected.')
-        elif not os.path.isfile(self.lvs_setup):
-            print("Can't find technology setup file " + self.lvs_setup)
 
         # Does schematic netlist exist?
         if not os.path.isfile(vlog_path) and not os.path.isfile(net_path):
@@ -681,16 +643,14 @@ class LVSManager(ttk.Frame):
             return
 
         # Does LVS netlist subdirectory exist?
-        if os.path.exists(project_path + '/netlist'):
-            if not os.path.exists(project_path + '/netlist/lvs'):
-                os.makedirs(project_path + '/netlist/lvs')
+        if not os.path.exists(project_path + '/netlist/lvs'):
+            os.makedirs(project_path + '/netlist/lvs')
 
         # Does layout netlist exist and is it current?
-        if layout_src:
-            if not self.generate_layout_netlist(layout_path, layout_src, project_path):
-                return False
+        if not self.generate_layout_netlist(layout_path, layout_src, project_path):
+            return False
 
-        # Final checks
+        # Final check
         if not os.path.isfile(layout_path):
             print('Error:  No netlist generated from magic.')
             return
@@ -702,27 +662,26 @@ class LVSManager(ttk.Frame):
             with open(layout_path) as ifile:
                 spitext = ifile.read()
 
+            # spilines = spitext.replace(',', '|')
+            # with open(layout_path, 'w') as ofile:
+            #     ofile.write(spilines)
+
         # Check the netlist to see if the cell to match is a subcircuit.  If
         # not, then assume it is the top level.
 
-        layoutcell = os.path.splitext(os.path.split(self.layout)[1])[0]
         is_subckt = False
-        subname = None
         subrex = re.compile('^[^\*]*[ \t]*.subckt[ \t]+([^ \t]+).*$', re.IGNORECASE)
         dutlines = spitext.replace('\n+', ' ').splitlines()
         for line in dutlines:
             lmatch = subrex.match(line)
             if lmatch:
                 subname = lmatch.group(1)
-                if subname == layoutcell:
+                if subname == self.layout:
                     is_subckt = True
                     break
 
         if is_subckt:
-            layout_arg = self.layout + ' ' + layoutcell
-            layout_text = '"' + layout_arg + '"'
-        elif subname:
-            layout_arg = self.layout + ' ' + subname
+            layout_arg = layout_path + ' ' + self.layout
             layout_text = '"' + layout_arg + '"'
         else:
             layout_arg = layout_path
@@ -731,39 +690,8 @@ class LVSManager(ttk.Frame):
         if has_vlog:
             schem_arg = vlog_path + ' ' + self.schematic
         else:
-            # Final checks
-            if not os.path.isfile(net_path):
-                print('Error:  No netlist from schematic.')
-                return
-
-            with open(net_path) as ifile:
-                spitext = ifile.read()
-
-            # Check the netlist to see if the cell to match is a subcircuit.  If
-            # not, then assume it is the top level.
-
-            schemcell = os.path.splitext(os.path.split(self.schematic)[1])[0]
-            subname = None
-            is_subckt = False
-            subrex = re.compile('^[^\*]*[ \t]*.subckt[ \t]+([^ \t]+).*$', re.IGNORECASE)
-            dutlines = spitext.replace('\n+', ' ').splitlines()
-            for line in dutlines:
-                lmatch = subrex.match(line)
-                if lmatch:
-                    subname = lmatch.group(1)
-                    if subname == schemcell:
-                        is_subckt = True
-                        break
-
-            if is_subckt:
-                schem_arg = self.schematic + ' ' + schemcell
-                schem_text = '"' + schem_arg + '"'
-            elif subname:
-                schem_arg = self.schematic + ' ' + subname
-                schem_text = '"' + schem_arg + '"'
-            else:
-                schem_arg = net_path
-                schem_text = schem_arg
+            schem_arg = net_path + ' ' + self.schematic
+        schem_text = '"' + schem_arg + '"'
 
         # Remove any previous comparison output file
         comp_out_path = os.path.splitext(comp_path)[0] + '.out'
@@ -780,7 +708,7 @@ class LVSManager(ttk.Frame):
         self.lvsproc = subprocess.Popen(['netgen', '-batch', 'lvs',
 		layout_arg, schem_arg,
 		self.lvs_setup, comp_out_path, '-json', '-blackbox'],
-		cwd=comp_dir,
+		cwd=project_path + '/layout',
 		stdout=subprocess.PIPE, stderr=subprocess.PIPE, bufsize=0)
         # This is largely unnecessary as netgen usually runs to completion very quickly.
         self.watchclock(comp_path)

scripts/config.log

@@ -0,0 +1,772 @@
+This file contains any messages produced by compilers while
+running configure, to aid debugging if configure makes a mistake.
+
+It was created by netgen configure 1.3, which was
+generated by GNU Autoconf 2.69.  Invocation command line was
+
+  $ ./configure 
+
+## --------- ##
+## Platform. ##
+## --------- ##
+
+hostname = stravinsky
+uname -m = x86_64
+uname -r = 4.1.13-100.fc21.x86_64
+uname -s = Linux
+uname -v = #1 SMP Tue Nov 10 13:13:20 UTC 2015
+
+/usr/bin/uname -p = x86_64
+/bin/uname -X     = unknown
+
+/bin/arch              = x86_64
+/usr/bin/arch -k       = unknown
+/usr/convex/getsysinfo = unknown
+/usr/bin/hostinfo      = unknown
+/bin/machine           = unknown
+/usr/bin/oslevel       = unknown
+/bin/universe          = unknown
+
+PATH: .
+PATH: /bin
+PATH: /sbin
+PATH: /usr/bin
+PATH: /usr/sbin
+PATH: /usr/local/bin
+
+
+## ----------- ##
+## Core tests. ##
+## ----------- ##
+
+configure:2398: checking build system type
+configure:2412: result: x86_64-unknown-linux-gnu
+configure:2432: checking host system type
+configure:2445: result: x86_64-unknown-linux-gnu
+configure:2465: checking target system type
+configure:2478: result: x86_64-unknown-linux-gnu
+configure:2569: checking for gcc
+configure:2585: found /bin/gcc
+configure:2596: result: gcc
+configure:2825: checking for C compiler version
+configure:2834: gcc --version >&5
+gcc (GCC) 4.9.2 20150212 (Red Hat 4.9.2-6)
+Copyright (C) 2014 Free Software Foundation, Inc.
+This is free software; see the source for copying conditions.  There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+configure:2845: $? = 0
+configure:2834: gcc -v >&5
+Using built-in specs.
+COLLECT_GCC=gcc
+COLLECT_LTO_WRAPPER=/usr/libexec/gcc/x86_64-redhat-linux/4.9.2/lto-wrapper
+Target: x86_64-redhat-linux
+Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --with-bugurl=http://bugzilla.redhat.com/bugzilla --enable-bootstrap --enable-shared --enable-threads=posix --enable-checking=release --enable-multilib --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-gnu-unique-object --enable-linker-build-id --with-linker-hash-style=gnu --enable-languages=c,c++,objc,obj-c++,fortran,ada,go,lto --enable-plugin --enable-initfini-array --disable-libgcj --with-isl=/builddir/build/BUILD/gcc-4.9.2-20150212/obj-x86_64-redhat-linux/isl-install --with-cloog=/builddir/build/BUILD/gcc-4.9.2-20150212/obj-x86_64-redhat-linux/cloog-install --enable-gnu-indirect-function --with-tune=generic --with-arch_32=i686 --build=x86_64-redhat-linux
+Thread model: posix
+gcc version 4.9.2 20150212 (Red Hat 4.9.2-6) (GCC) 
+configure:2845: $? = 0
+configure:2834: gcc -V >&5
+gcc: error: unrecognized command line option '-V'
+gcc: fatal error: no input files
+compilation terminated.
+configure:2845: $? = 4
+configure:2834: gcc -qversion >&5
+gcc: error: unrecognized command line option '-qversion'
+gcc: fatal error: no input files
+compilation terminated.
+configure:2845: $? = 4
+configure:2865: checking whether the C compiler works
+configure:2887: gcc -g   conftest.c  >&5
+configure:2891: $? = 0
+configure:2939: result: yes
+configure:2942: checking for C compiler default output file name
+configure:2944: result: a.out
+configure:2950: checking for suffix of executables
+configure:2957: gcc -o conftest -g   conftest.c  >&5
+configure:2961: $? = 0
+configure:2983: result: 
+configure:3005: checking whether we are cross compiling
+configure:3013: gcc -o conftest -g   conftest.c  >&5
+configure:3017: $? = 0
+configure:3024: ./conftest
+configure:3028: $? = 0
+configure:3043: result: no
+configure:3048: checking for suffix of object files
+configure:3070: gcc -c -g  conftest.c >&5
+configure:3074: $? = 0
+configure:3095: result: o
+configure:3099: checking whether we are using the GNU C compiler
+configure:3118: gcc -c -g  conftest.c >&5
+configure:3118: $? = 0
+configure:3127: result: yes
+configure:3136: checking whether gcc accepts -g
+configure:3156: gcc -c -g  conftest.c >&5
+configure:3156: $? = 0
+configure:3197: result: yes
+configure:3214: checking for gcc option to accept ISO C89
+configure:3277: gcc  -c -g  conftest.c >&5
+configure:3277: $? = 0
+configure:3290: result: none needed
+configure:3315: checking how to run the C preprocessor
+configure:3346: gcc -E  conftest.c
+configure:3346: $? = 0
+configure:3360: gcc -E  conftest.c
+conftest.c:11:28: fatal error: ac_nonexistent.h: No such file or directory
+ #include <ac_nonexistent.h>
+                            ^
+compilation terminated.
+configure:3360: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| /* end confdefs.h.  */
+| #include <ac_nonexistent.h>
+configure:3385: result: gcc -E
+configure:3405: gcc -E  conftest.c
+configure:3405: $? = 0
+configure:3419: gcc -E  conftest.c
+conftest.c:11:28: fatal error: ac_nonexistent.h: No such file or directory
+ #include <ac_nonexistent.h>
+                            ^
+compilation terminated.
+configure:3419: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| /* end confdefs.h.  */
+| #include <ac_nonexistent.h>
+configure:3448: checking for library containing strerror
+configure:3479: gcc -o conftest -g   conftest.c  >&5
+configure:3479: $? = 0
+configure:3496: result: none required
+configure:3518: checking for a BSD-compatible install
+configure:3586: result: /bin/install -c
+configure:3640: checking for ranlib
+configure:3656: found /bin/ranlib
+configure:3667: result: ranlib
+configure:3694: checking for gm4
+configure:3727: result: no
+configure:3694: checking for gnum4
+configure:3727: result: no
+configure:3694: checking for m4
+configure:3712: found /bin/m4
+configure:3724: result: /bin/m4
+configure:3765: checking for ld used by GCC
+configure:3828: result: /bin/ld
+configure:3835: checking if the linker (/bin/ld) is GNU ld
+GNU ld version 2.24
+configure:3847: result: yes
+configure:3854: checking for grep that handles long lines and -e
+configure:3912: result: /bin/grep
+configure:3917: checking for egrep
+configure:3979: result: /bin/grep -E
+configure:3984: checking for ANSI C header files
+configure:4004: gcc -c -g  conftest.c >&5
+configure:4004: $? = 0
+configure:4077: gcc -o conftest -g   conftest.c  >&5
+configure:4077: $? = 0
+configure:4077: ./conftest
+configure:4077: $? = 0
+configure:4088: result: yes
+configure:4101: checking for sys/types.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for sys/stat.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for stdlib.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for string.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for memory.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for strings.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for inttypes.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for stdint.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4101: checking for unistd.h
+configure:4101: gcc -c -g  conftest.c >&5
+configure:4101: $? = 0
+configure:4101: result: yes
+configure:4117: checking size of void *
+configure:4122: gcc -o conftest -g   conftest.c  >&5
+configure:4122: $? = 0
+configure:4122: ./conftest
+configure:4122: $? = 0
+configure:4136: result: 8
+configure:4150: checking size of unsigned int
+configure:4155: gcc -o conftest -g   conftest.c  >&5
+configure:4155: $? = 0
+configure:4155: ./conftest
+configure:4155: $? = 0
+configure:4169: result: 4
+configure:4183: checking size of unsigned long
+configure:4188: gcc -o conftest -g   conftest.c  >&5
+configure:4188: $? = 0
+configure:4188: ./conftest
+configure:4188: $? = 0
+configure:4202: result: 8
+configure:4216: checking size of unsigned long long
+configure:4221: gcc -o conftest -g   conftest.c  >&5
+configure:4221: $? = 0
+configure:4221: ./conftest
+configure:4221: $? = 0
+configure:4235: result: 8
+configure:4246: checking whether byte ordering is bigendian
+configure:4261: gcc -c -g  conftest.c >&5
+conftest.c:26:9: error: unknown type name 'not'
+         not a universal capable compiler
+         ^
+conftest.c:26:15: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'universal'
+         not a universal capable compiler
+               ^
+conftest.c:26:15: error: unknown type name 'universal'
+configure:4261: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| #define STDC_HEADERS 1
+| #define HAVE_SYS_TYPES_H 1
+| #define HAVE_SYS_STAT_H 1
+| #define HAVE_STDLIB_H 1
+| #define HAVE_STRING_H 1
+| #define HAVE_MEMORY_H 1
+| #define HAVE_STRINGS_H 1
+| #define HAVE_INTTYPES_H 1
+| #define HAVE_STDINT_H 1
+| #define HAVE_UNISTD_H 1
+| #define SIZEOF_VOID_P 8
+| #define SIZEOF_UNSIGNED_INT 4
+| #define SIZEOF_UNSIGNED_LONG 8
+| #define SIZEOF_UNSIGNED_LONG_LONG 8
+| /* end confdefs.h.  */
+| #ifndef __APPLE_CC__
+| 	       not a universal capable compiler
+| 	     #endif
+| 	     typedef int dummy;
+| 
+configure:4306: gcc -c -g  conftest.c >&5
+configure:4306: $? = 0
+configure:4324: gcc -c -g  conftest.c >&5
+conftest.c: In function 'main':
+conftest.c:32:4: error: unknown type name 'not'
+    not big endian
+    ^
+conftest.c:32:12: error: expected '=', ',', ';', 'asm' or '__attribute__' before 'endian'
+    not big endian
+            ^
+configure:4324: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| #define STDC_HEADERS 1
+| #define HAVE_SYS_TYPES_H 1
+| #define HAVE_SYS_STAT_H 1
+| #define HAVE_STDLIB_H 1
+| #define HAVE_STRING_H 1
+| #define HAVE_MEMORY_H 1
+| #define HAVE_STRINGS_H 1
+| #define HAVE_INTTYPES_H 1
+| #define HAVE_STDINT_H 1
+| #define HAVE_UNISTD_H 1
+| #define SIZEOF_VOID_P 8
+| #define SIZEOF_UNSIGNED_INT 4
+| #define SIZEOF_UNSIGNED_LONG 8
+| #define SIZEOF_UNSIGNED_LONG_LONG 8
+| /* end confdefs.h.  */
+| #include <sys/types.h>
+| 		#include <sys/param.h>
+| 
+| int
+| main ()
+| {
+| #if BYTE_ORDER != BIG_ENDIAN
+| 		 not big endian
+| 		#endif
+| 
+|   ;
+|   return 0;
+| }
+configure:4452: result: no
+configure:4471: checking for ANSI C header files
+configure:4575: result: yes
+configure:4587: checking for setenv
+configure:4587: gcc -o conftest -g   conftest.c  >&5
+configure:4587: $? = 0
+configure:4587: result: yes
+configure:4587: checking for putenv
+configure:4587: gcc -o conftest -g   conftest.c  >&5
+configure:4587: $? = 0
+configure:4587: result: yes
+configure:4597: checking for vfork
+configure:4597: gcc -o conftest -g   conftest.c  >&5
+configure:4597: $? = 0
+configure:4597: result: yes
+configure:4605: checking dirent.h usability
+configure:4605: gcc -c -g  conftest.c >&5
+configure:4605: $? = 0
+configure:4605: result: yes
+configure:4605: checking dirent.h presence
+configure:4605: gcc -E -x c  conftest.c
+configure:4605: $? = 0
+configure:4605: result: yes
+configure:4605: checking for dirent.h
+configure:4605: result: yes
+configure:4618: checking limits.h usability
+configure:4618: gcc -c -g  conftest.c >&5
+configure:4618: $? = 0
+configure:4618: result: yes
+configure:4618: checking limits.h presence
+configure:4618: gcc -E -x c  conftest.c
+configure:4618: $? = 0
+configure:4618: result: yes
+configure:4618: checking for limits.h
+configure:4618: result: yes
+configure:4631: checking param.h usability
+configure:4631: gcc -c -g  conftest.c >&5
+conftest.c:63:19: fatal error: param.h: No such file or directory
+ #include <param.h>
+                   ^
+compilation terminated.
+configure:4631: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| #define STDC_HEADERS 1
+| #define HAVE_SYS_TYPES_H 1
+| #define HAVE_SYS_STAT_H 1
+| #define HAVE_STDLIB_H 1
+| #define HAVE_STRING_H 1
+| #define HAVE_MEMORY_H 1
+| #define HAVE_STRINGS_H 1
+| #define HAVE_INTTYPES_H 1
+| #define HAVE_STDINT_H 1
+| #define HAVE_UNISTD_H 1
+| #define SIZEOF_VOID_P 8
+| #define SIZEOF_UNSIGNED_INT 4
+| #define SIZEOF_UNSIGNED_LONG 8
+| #define SIZEOF_UNSIGNED_LONG_LONG 8
+| #define STDC_HEADERS 1
+| #define HAVE_SETENV 1
+| #define HAVE_PUTENV 1
+| #define HAVE_DIRENT_H 1
+| #define HAVE_LIMITS_H 1
+| /* end confdefs.h.  */
+| #include <stdio.h>
+| #ifdef HAVE_SYS_TYPES_H
+| # include <sys/types.h>
+| #endif
+| #ifdef HAVE_SYS_STAT_H
+| # include <sys/stat.h>
+| #endif
+| #ifdef STDC_HEADERS
+| # include <stdlib.h>
+| # include <stddef.h>
+| #else
+| # ifdef HAVE_STDLIB_H
+| #  include <stdlib.h>
+| # endif
+| #endif
+| #ifdef HAVE_STRING_H
+| # if !defined STDC_HEADERS && defined HAVE_MEMORY_H
+| #  include <memory.h>
+| # endif
+| # include <string.h>
+| #endif
+| #ifdef HAVE_STRINGS_H
+| # include <strings.h>
+| #endif
+| #ifdef HAVE_INTTYPES_H
+| # include <inttypes.h>
+| #endif
+| #ifdef HAVE_STDINT_H
+| # include <stdint.h>
+| #endif
+| #ifdef HAVE_UNISTD_H
+| # include <unistd.h>
+| #endif
+| #include <param.h>
+configure:4631: result: no
+configure:4631: checking param.h presence
+configure:4631: gcc -E -x c  conftest.c
+conftest.c:30:19: fatal error: param.h: No such file or directory
+ #include <param.h>
+                   ^
+compilation terminated.
+configure:4631: $? = 1
+configure: failed program was:
+| /* confdefs.h */
+| #define PACKAGE_NAME "netgen"
+| #define PACKAGE_TARNAME "netgen"
+| #define PACKAGE_VERSION "1.3"
+| #define PACKAGE_STRING "netgen 1.3"
+| #define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+| #define PACKAGE_URL ""
+| #define NETGEN_VERSION "1.5"
+| #define NETGEN_REVISION "117"
+| #define STDC_HEADERS 1
+| #define HAVE_SYS_TYPES_H 1
+| #define HAVE_SYS_STAT_H 1
+| #define HAVE_STDLIB_H 1
+| #define HAVE_STRING_H 1
+| #define HAVE_MEMORY_H 1
+| #define HAVE_STRINGS_H 1
+| #define HAVE_INTTYPES_H 1
+| #define HAVE_STDINT_H 1
+| #define HAVE_UNISTD_H 1
+| #define SIZEOF_VOID_P 8
+| #define SIZEOF_UNSIGNED_INT 4
+| #define SIZEOF_UNSIGNED_LONG 8
+| #define SIZEOF_UNSIGNED_LONG_LONG 8
+| #define STDC_HEADERS 1
+| #define HAVE_SETENV 1
+| #define HAVE_PUTENV 1
+| #define HAVE_DIRENT_H 1
+| #define HAVE_LIMITS_H 1
+| /* end confdefs.h.  */
+| #include <param.h>
+configure:4631: result: no
+configure:4631: checking for param.h
+configure:4631: result: no
+configure:4644: checking for python3
+configure:4660: found /bin/python3
+configure:4672: result: yes
+configure:4681: checking for va_copy
+configure:4699: gcc -o conftest -g   conftest.c  >&5
+configure:4699: $? = 0
+configure:4708: result: yes
+configure:4716: checking for __va_copy
+configure:4734: gcc -o conftest -g   conftest.c  >&5
+configure:4734: $? = 0
+configure:4743: result: yes
+configure:4874: checking for tclConfig.sh
+configure:4946: result: /usr/lib64/tclConfig.sh
+configure:4962: checking for tkConfig.sh
+configure:5035: result: /usr/lib64/tkConfig.sh
+configure:5168: checking for wish executable
+configure:5195: result: /usr/bin/wish
+configure:5201: checking for tclsh executable
+configure:5227: result: /usr/bin/tclsh
+configure:5350: checking for X
+configure:5489: gcc -o conftest -g   conftest.c -lX11  >&5
+configure:5489: $? = 0
+configure:5539: result: libraries , headers 
+configure:5638: gcc -o conftest -g   conftest.c   -lX11 >&5
+configure:5638: $? = 0
+configure:5736: checking for gethostbyname
+configure:5736: gcc -o conftest -g   conftest.c  >&5
+configure:5736: $? = 0
+configure:5736: result: yes
+configure:5833: checking for connect
+configure:5833: gcc -o conftest -g   conftest.c  >&5
+configure:5833: $? = 0
+configure:5833: result: yes
+configure:5882: checking for remove
+configure:5882: gcc -o conftest -g   conftest.c  >&5
+configure:5882: $? = 0
+configure:5882: result: yes
+configure:5931: checking for shmat
+configure:5931: gcc -o conftest -g   conftest.c  >&5
+configure:5931: $? = 0
+configure:5931: result: yes
+configure:5989: checking for IceConnectionNumber in -lICE
+configure:6014: gcc -o conftest -g   conftest.c -lICE   >&5
+configure:6014: $? = 0
+configure:6023: result: yes
+configure:6745: creating ./config.status
+
+## ---------------------- ##
+## Running config.status. ##
+## ---------------------- ##
+
+This file was extended by netgen config.status 1.3, which was
+generated by GNU Autoconf 2.69.  Invocation command line was
+
+  CONFIG_FILES    = 
+  CONFIG_HEADERS  = 
+  CONFIG_LINKS    = 
+  CONFIG_COMMANDS = 
+  $ ./config.status 
+
+on stravinsky
+
+config.status:784: creating defs.mak
+config.status:887: WARNING:  'defs.mak.in' seems to ignore the --datarootdir setting
+
+## ---------------- ##
+## Cache variables. ##
+## ---------------- ##
+
+ac_cv_build=x86_64-unknown-linux-gnu
+ac_cv_c___va_copy=yes
+ac_cv_c_bigendian=no
+ac_cv_c_compiler_gnu=yes
+ac_cv_c_va_copy=yes
+ac_cv_env_CC_set=
+ac_cv_env_CC_value=
+ac_cv_env_CFLAGS_set=set
+ac_cv_env_CFLAGS_value=-g
+ac_cv_env_CPPFLAGS_set=
+ac_cv_env_CPPFLAGS_value=
+ac_cv_env_CPP_set=
+ac_cv_env_CPP_value=
+ac_cv_env_LDFLAGS_set=
+ac_cv_env_LDFLAGS_value=
+ac_cv_env_LIBS_set=
+ac_cv_env_LIBS_value=
+ac_cv_env_XMKMF_set=
+ac_cv_env_XMKMF_value=
+ac_cv_env_build_alias_set=
+ac_cv_env_build_alias_value=
+ac_cv_env_host_alias_set=
+ac_cv_env_host_alias_value=
+ac_cv_env_target_alias_set=
+ac_cv_env_target_alias_value=
+ac_cv_func_connect=yes
+ac_cv_func_gethostbyname=yes
+ac_cv_func_putenv=yes
+ac_cv_func_remove=yes
+ac_cv_func_setenv=yes
+ac_cv_func_shmat=yes
+ac_cv_func_vfork=yes
+ac_cv_have_x='have_x=yes	ac_x_includes='\'''\''	ac_x_libraries='\'''\'''
+ac_cv_header_dirent_h=yes
+ac_cv_header_inttypes_h=yes
+ac_cv_header_limits_h=yes
+ac_cv_header_memory_h=yes
+ac_cv_header_param_h=no
+ac_cv_header_stdc=yes
+ac_cv_header_stdint_h=yes
+ac_cv_header_stdlib_h=yes
+ac_cv_header_string_h=yes
+ac_cv_header_strings_h=yes
+ac_cv_header_sys_stat_h=yes
+ac_cv_header_sys_types_h=yes
+ac_cv_header_unistd_h=yes
+ac_cv_host=x86_64-unknown-linux-gnu
+ac_cv_lib_ICE_IceConnectionNumber=yes
+ac_cv_objext=o
+ac_cv_path_EGREP='/bin/grep -E'
+ac_cv_path_GREP=/bin/grep
+ac_cv_path_LD=/bin/ld
+ac_cv_path_M4=/bin/m4
+ac_cv_path_install='/bin/install -c'
+ac_cv_prog_CPP='gcc -E'
+ac_cv_prog_HAVE_PYTHON3=yes
+ac_cv_prog_ac_ct_CC=gcc
+ac_cv_prog_ac_ct_RANLIB=ranlib
+ac_cv_prog_cc_c89=
+ac_cv_prog_cc_g=yes
+ac_cv_prog_gnu_ld=yes
+ac_cv_search_strerror='none required'
+ac_cv_sizeof_unsigned_int=4
+ac_cv_sizeof_unsigned_long=8
+ac_cv_sizeof_unsigned_long_long=8
+ac_cv_sizeof_void_p=8
+ac_cv_target=x86_64-unknown-linux-gnu
+
+## ----------------- ##
+## Output variables. ##
+## ----------------- ##
+
+ALL_TARGET='tcl'
+CC='gcc'
+CFLAGS='-g -m64 -fPIC'
+CPP='gcc -E -x c'
+CPPFLAGS=''
+DEFS='-DPACKAGE_NAME=\"netgen\" -DPACKAGE_TARNAME=\"netgen\" -DPACKAGE_VERSION=\"1.3\" -DPACKAGE_STRING=\"netgen\ 1.3\" -DPACKAGE_BUGREPORT=\"eda-dev@opencircuitdesign.com\" -DPACKAGE_URL=\"\" -DNETGEN_VERSION=\"1.5\" -DNETGEN_REVISION=\"117\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DHAVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1'
+DEPEND_FLAG='-MM'
+ECHO_C=''
+ECHO_N='printf'
+ECHO_T=''
+EGREP='/bin/grep -E'
+EXEEXT=''
+EXTRA_LIB_SPECS='-ldl'
+GREP='/bin/grep'
+HAVE_PYTHON3='yes'
+INC_SPECS=''
+INSTALL_DATA='${INSTALL} -m 644'
+INSTALL_PROGRAM='${INSTALL}'
+INSTALL_SCRIPT='${INSTALL}'
+INSTALL_TARGET='install-tcl'
+LD='/bin/ld'
+LDDL_FLAGS=' -shared -Wl,-soname,$@ -Wl,--version-script=${NETGENDIR}/netgen/symbol.map'
+LDFLAGS=''
+LD_RUN_PATH=''
+LIBOBJS=''
+LIBS=''
+LIB_SPECS=' -L/usr/lib64 -ltkstub8.6 -L/usr/lib64 -ltclstub8.6'
+LIB_SPECS_NOSTUB=' -L/usr/lib64 -ltk8.6 -L/usr/lib64 -ltcl8.6'
+LTLIBOBJS=''
+M4='/bin/m4'
+OBJEXT='o'
+PACKAGE='netgen'
+PACKAGE_BUGREPORT='eda-dev@opencircuitdesign.com'
+PACKAGE_NAME='netgen'
+PACKAGE_STRING='netgen 1.3'
+PACKAGE_TARNAME='netgen'
+PACKAGE_URL=''
+PACKAGE_VERSION='1.3'
+PATH_SEPARATOR=':'
+RANLIB='ranlib'
+SCRIPTS=''
+SHDLIB_EXT='.so'
+SHELL='/bin/sh'
+SHLIB_CFLAGS='-fPIC'
+SHLIB_LD=''
+SHLIB_LIB_SPECS=''
+TCLSH_EXE='/usr/bin/tclsh'
+TCL_LIB_DIR='/usr/lib'
+VERSION=''
+WISH_EXE='/usr/bin/wish'
+XMKMF=''
+X_CFLAGS=''
+X_EXTRA_LIBS=''
+X_LIBS=''
+X_PRE_LIBS=' -lSM -lICE'
+ac_ct_CC='gcc'
+bindir='${exec_prefix}/bin'
+build='x86_64-unknown-linux-gnu'
+build_alias=''
+build_cpu='x86_64'
+build_os='linux-gnu'
+build_vendor='unknown'
+cadinstall=' tcltk'
+datadir='${datarootdir}'
+datarootdir='${prefix}/share'
+docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
+dvidir='${docdir}'
+exec_prefix='${prefix}'
+extra_defs=' -DCAD_DIR=\"${LIBDIR}\" -DTCL_DIR=\"${TCLDIR}\"'
+extra_libs=' ${NETGENDIR}/tcltk/libtcltk.o'
+gr_cflags=''
+gr_dflags=' -DX11 -DXLIB'
+gr_libs=' -lX11'
+gr_srcs=' ${TK_SRCS}'
+host='x86_64-unknown-linux-gnu'
+host_alias=''
+host_cpu='x86_64'
+host_os='linux-gnu'
+host_vendor='unknown'
+htmldir='${docdir}'
+includedir='${prefix}/include'
+infodir='${datarootdir}/info'
+ld_extra_libs=''
+ld_extra_objs=''
+libdir='${exec_prefix}/lib'
+libexecdir='${exec_prefix}/libexec'
+localedir='${datarootdir}/locale'
+localstatedir='${prefix}/var'
+mandir='${datarootdir}/man'
+modules=' tcltk'
+oldincludedir='/usr/include'
+pdfdir='${docdir}'
+prefix='/usr/local'
+program_transform_name='s,x,x,'
+programs=' tcltk'
+psdir='${docdir}'
+sbindir='${exec_prefix}/sbin'
+sharedstatedir='${prefix}/com'
+stub_defs=' -DUSE_TCL_STUBS -DUSE_TK_STUBS'
+sub_extra_libs=''
+sysconfdir='${prefix}/etc'
+target='x86_64-unknown-linux-gnu'
+target_alias=''
+target_cpu='x86_64'
+target_os='linux-gnu'
+target_vendor='unknown'
+top_extra_libs=''
+unused=''
+
+## ----------- ##
+## confdefs.h. ##
+## ----------- ##
+
+/* confdefs.h */
+#define PACKAGE_NAME "netgen"
+#define PACKAGE_TARNAME "netgen"
+#define PACKAGE_VERSION "1.3"
+#define PACKAGE_STRING "netgen 1.3"
+#define PACKAGE_BUGREPORT "eda-dev@opencircuitdesign.com"
+#define PACKAGE_URL ""
+#define NETGEN_VERSION "1.5"
+#define NETGEN_REVISION "117"
+#define STDC_HEADERS 1
+#define HAVE_SYS_TYPES_H 1
+#define HAVE_SYS_STAT_H 1
+#define HAVE_STDLIB_H 1
+#define HAVE_STRING_H 1
+#define HAVE_MEMORY_H 1
+#define HAVE_STRINGS_H 1
+#define HAVE_INTTYPES_H 1
+#define HAVE_STDINT_H 1
+#define HAVE_UNISTD_H 1
+#define SIZEOF_VOID_P 8
+#define SIZEOF_UNSIGNED_INT 4
+#define SIZEOF_UNSIGNED_LONG 8
+#define SIZEOF_UNSIGNED_LONG_LONG 8
+#define STDC_HEADERS 1
+#define HAVE_SETENV 1
+#define HAVE_PUTENV 1
+#define HAVE_DIRENT_H 1
+#define HAVE_LIMITS_H 1
+#define HAVE_VA_COPY 1
+#define HAVE___VA_COPY 1
+#define DBUG_OFF 1
+#define TCL_NETGEN 1
+#define linux 1
+#define SYSV 1
+#define ISC 1
+
+configure: exit 0

scripts/config.status

@@ -0,0 +1,941 @@
+#! /bin/sh
+# Generated by configure.
+# Run this file to recreate the current configuration.
+# Compiler output produced by configure, useful for debugging
+# configure, is in config.log if it exists.
+
+debug=false
+ac_cs_recheck=false
+ac_cs_silent=false
+
+SHELL=${CONFIG_SHELL-/bin/sh}
+export SHELL
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '${1+"$@"}'='"$@"'
+  setopt NO_GLOB_SUBST
+else
+  case `(set -o) 2>/dev/null` in #(
+  *posix*) :
+    set -o posix ;; #(
+  *) :
+     ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='print -r --'
+  as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='printf %s\n'
+  as_echo_n='printf %s'
+else
+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+    as_echo_n='/usr/ucb/echo -n'
+  else
+    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
+    as_echo_n_body='eval
+      arg=$1;
+      case $arg in #(
+      *"$as_nl"*)
+	expr "X$arg" : "X\\(.*\\)$as_nl";
+	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
+      esac;
+      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
+    '
+    export as_echo_n_body
+    as_echo_n='sh -c $as_echo_n_body as_echo'
+  fi
+  export as_echo_body
+  as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+  PATH_SEPARATOR=:
+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+      PATH_SEPARATOR=';'
+  }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order.  Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" ""	$as_nl"
+
+# Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
+case $0 in #((
+  *[\\/]* ) as_myself=$0 ;;
+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+  done
+IFS=$as_save_IFS
+
+     ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+  as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+  exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there.  '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
+# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
+# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
+# script with STATUS, using 1 if that was 0.
+as_fn_error ()
+{
+  as_status=$1; test $as_status -eq 0 && as_status=1
+  if test "$4"; then
+    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+  fi
+  $as_echo "$as_me: error: $2" >&2
+  as_fn_exit $as_status
+} # as_fn_error
+
+
+# as_fn_set_status STATUS
+# -----------------------
+# Set $? to STATUS, without forking.
+as_fn_set_status ()
+{
+  return $1
+} # as_fn_set_status
+
+# as_fn_exit STATUS
+# -----------------
+# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
+as_fn_exit ()
+{
+  set +e
+  as_fn_set_status $1
+  exit $1
+} # as_fn_exit
+
+# as_fn_unset VAR
+# ---------------
+# Portably unset VAR.
+as_fn_unset ()
+{
+  { eval $1=; unset $1;}
+}
+as_unset=as_fn_unset
+# as_fn_append VAR VALUE
+# ----------------------
+# Append the text in VALUE to the end of the definition contained in VAR. Take
+# advantage of any shell optimizations that allow amortized linear growth over
+# repeated appends, instead of the typical quadratic growth present in naive
+# implementations.
+if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
+  eval 'as_fn_append ()
+  {
+    eval $1+=\$2
+  }'
+else
+  as_fn_append ()
+  {
+    eval $1=\$$1\$2
+  }
+fi # as_fn_append
+
+# as_fn_arith ARG...
+# ------------------
+# Perform arithmetic evaluation on the ARGs, and store the result in the
+# global $as_val. Take advantage of shells that can avoid forks. The arguments
+# must be portable across $(()) and expr.
+if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
+  eval 'as_fn_arith ()
+  {
+    as_val=$(( $* ))
+  }'
+else
+  as_fn_arith ()
+  {
+    as_val=`expr "$@" || test $? -eq 1`
+  }
+fi # as_fn_arith
+
+
+if expr a : '\(a\)' >/dev/null 2>&1 &&
+   test "X`expr 00001 : '.*\(...\)'`" = X001; then
+  as_expr=expr
+else
+  as_expr=false
+fi
+
+if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
+  as_basename=basename
+else
+  as_basename=false
+fi
+
+if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
+  as_dirname=dirname
+else
+  as_dirname=false
+fi
+
+as_me=`$as_basename -- "$0" ||
+$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
+	 X"$0" : 'X\(//\)$' \| \
+	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X/"$0" |
+    sed '/^.*\/\([^/][^/]*\)\/*$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\/\(\/\/\)$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\/\(\/\).*/{
+	    s//\1/
+	    q
+	  }
+	  s/.*/./; q'`
+
+# Avoid depending upon Character Ranges.
+as_cr_letters='abcdefghijklmnopqrstuvwxyz'
+as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
+as_cr_Letters=$as_cr_letters$as_cr_LETTERS
+as_cr_digits='0123456789'
+as_cr_alnum=$as_cr_Letters$as_cr_digits
+
+ECHO_C= ECHO_N= ECHO_T=
+case `echo -n x` in #(((((
+-n*)
+  case `echo 'xy\c'` in
+  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
+  xy)  ECHO_C='\c';;
+  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
+       ECHO_T='	';;
+  esac;;
+*)
+  ECHO_N='-n';;
+esac
+
+rm -f conf$$ conf$$.exe conf$$.file
+if test -d conf$$.dir; then
+  rm -f conf$$.dir/conf$$.file
+else
+  rm -f conf$$.dir
+  mkdir conf$$.dir 2>/dev/null
+fi
+if (echo >conf$$.file) 2>/dev/null; then
+  if ln -s conf$$.file conf$$ 2>/dev/null; then
+    as_ln_s='ln -s'
+    # ... but there are two gotchas:
+    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
+    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
+    # In both cases, we have to default to `cp -pR'.
+    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
+      as_ln_s='cp -pR'
+  elif ln conf$$.file conf$$ 2>/dev/null; then
+    as_ln_s=ln
+  else
+    as_ln_s='cp -pR'
+  fi
+else
+  as_ln_s='cp -pR'
+fi
+rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
+rmdir conf$$.dir 2>/dev/null
+
+
+# as_fn_mkdir_p
+# -------------
+# Create "$as_dir" as a directory, including parents if necessary.
+as_fn_mkdir_p ()
+{
+
+  case $as_dir in #(
+  -*) as_dir=./$as_dir;;
+  esac
+  test -d "$as_dir" || eval $as_mkdir_p || {
+    as_dirs=
+    while :; do
+      case $as_dir in #(
+      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
+      *) as_qdir=$as_dir;;
+      esac
+      as_dirs="'$as_qdir' $as_dirs"
+      as_dir=`$as_dirname -- "$as_dir" ||
+$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+	 X"$as_dir" : 'X\(//\)[^/]' \| \
+	 X"$as_dir" : 'X\(//\)$' \| \
+	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$as_dir" |
+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\/\)[^/].*/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\/\)$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\).*/{
+	    s//\1/
+	    q
+	  }
+	  s/.*/./; q'`
+      test -d "$as_dir" && break
+    done
+    test -z "$as_dirs" || eval "mkdir $as_dirs"
+  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
+
+
+} # as_fn_mkdir_p
+if mkdir -p . 2>/dev/null; then
+  as_mkdir_p='mkdir -p "$as_dir"'
+else
+  test -d ./-p && rmdir ./-p
+  as_mkdir_p=false
+fi
+
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+  test -f "$1" && test -x "$1"
+} # as_fn_executable_p
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
+
+# Sed expression to map a string onto a valid CPP name.
+as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
+
+# Sed expression to map a string onto a valid variable name.
+as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
+
+
+exec 6>&1
+## ----------------------------------- ##
+## Main body of $CONFIG_STATUS script. ##
+## ----------------------------------- ##
+# Save the log message, to keep $0 and so on meaningful, and to
+# report actual input values of CONFIG_FILES etc. instead of their
+# values after options handling.
+ac_log="
+This file was extended by netgen $as_me 1.3, which was
+generated by GNU Autoconf 2.69.  Invocation command line was
+
+  CONFIG_FILES    = $CONFIG_FILES
+  CONFIG_HEADERS  = $CONFIG_HEADERS
+  CONFIG_LINKS    = $CONFIG_LINKS
+  CONFIG_COMMANDS = $CONFIG_COMMANDS
+  $ $0 $@
+
+on `(hostname || uname -n) 2>/dev/null | sed 1q`
+"
+
+# Files that config.status was made for.
+config_files=" defs.mak"
+
+ac_cs_usage="\
+\`$as_me' instantiates files and other configuration actions
+from templates according to the current configuration.  Unless the files
+and actions are specified as TAGs, all are instantiated by default.
+
+Usage: $0 [OPTION]... [TAG]...
+
+  -h, --help       print this help, then exit
+  -V, --version    print version number and configuration settings, then exit
+      --config     print configuration, then exit
+  -q, --quiet, --silent
+                   do not print progress messages
+  -d, --debug      don't remove temporary files
+      --recheck    update $as_me by reconfiguring in the same conditions
+      --file=FILE[:TEMPLATE]
+                   instantiate the configuration file FILE
+
+Configuration files:
+$config_files
+
+Report bugs to <eda-dev@opencircuitdesign.com>."
+
+ac_cs_config="'CFLAGS=-g'"
+ac_cs_version="\
+netgen config.status 1.3
+configured by ./configure, generated by GNU Autoconf 2.69,
+  with options \"$ac_cs_config\"
+
+Copyright (C) 2012 Free Software Foundation, Inc.
+This config.status script is free software; the Free Software Foundation
+gives unlimited permission to copy, distribute and modify it."
+
+ac_pwd='/home/tim/gitsrc/netgen/scripts'
+srcdir='..'
+INSTALL='/bin/install -c'
+test -n "$AWK" || AWK=awk
+# The default lists apply if the user does not specify any file.
+ac_need_defaults=:
+while test $# != 0
+do
+  case $1 in
+  --*=?*)
+    ac_option=`expr "X$1" : 'X\([^=]*\)='`
+    ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
+    ac_shift=:
+    ;;
+  --*=)
+    ac_option=`expr "X$1" : 'X\([^=]*\)='`
+    ac_optarg=
+    ac_shift=:
+    ;;
+  *)
+    ac_option=$1
+    ac_optarg=$2
+    ac_shift=shift
+    ;;
+  esac
+
+  case $ac_option in
+  # Handling of the options.
+  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
+    ac_cs_recheck=: ;;
+  --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
+    $as_echo "$ac_cs_version"; exit ;;
+  --config | --confi | --conf | --con | --co | --c )
+    $as_echo "$ac_cs_config"; exit ;;
+  --debug | --debu | --deb | --de | --d | -d )
+    debug=: ;;
+  --file | --fil | --fi | --f )
+    $ac_shift
+    case $ac_optarg in
+    *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
+    '') as_fn_error $? "missing file argument" ;;
+    esac
+    as_fn_append CONFIG_FILES " '$ac_optarg'"
+    ac_need_defaults=false;;
+  --he | --h |  --help | --hel | -h )
+    $as_echo "$ac_cs_usage"; exit ;;
+  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
+  | -silent | --silent | --silen | --sile | --sil | --si | --s)
+    ac_cs_silent=: ;;
+
+  # This is an error.
+  -*) as_fn_error $? "unrecognized option: \`$1'
+Try \`$0 --help' for more information." ;;
+
+  *) as_fn_append ac_config_targets " $1"
+     ac_need_defaults=false ;;
+
+  esac
+  shift
+done
+
+ac_configure_extra_args=
+
+if $ac_cs_silent; then
+  exec 6>/dev/null
+  ac_configure_extra_args="$ac_configure_extra_args --silent"
+fi
+
+if $ac_cs_recheck; then
+  set X /bin/sh './configure'  'CFLAGS=-g' $ac_configure_extra_args --no-create --no-recursion
+  shift
+  $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6
+  CONFIG_SHELL='/bin/sh'
+  export CONFIG_SHELL
+  exec "$@"
+fi
+
+exec 5>>config.log
+{
+  echo
+  sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
+## Running $as_me. ##
+_ASBOX
+  $as_echo "$ac_log"
+} >&5
+
+
+# Handling of arguments.
+for ac_config_target in $ac_config_targets
+do
+  case $ac_config_target in
+    "defs.mak") CONFIG_FILES="$CONFIG_FILES defs.mak" ;;
+
+  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
+  esac
+done
+
+
+# If the user did not use the arguments to specify the items to instantiate,
+# then the envvar interface is used.  Set only those that are not.
+# We use the long form for the default assignment because of an extremely
+# bizarre bug on SunOS 4.1.3.
+if $ac_need_defaults; then
+  test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
+fi
+
+# Have a temporary directory for convenience.  Make it in the build tree
+# simply because there is no reason against having it here, and in addition,
+# creating and moving files from /tmp can sometimes cause problems.
+# Hook for its removal unless debugging.
+# Note that there is a small window in which the directory will not be cleaned:
+# after its creation but before its name has been assigned to `$tmp'.
+$debug ||
+{
+  tmp= ac_tmp=
+  trap 'exit_status=$?
+  : "${ac_tmp:=$tmp}"
+  { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
+' 0
+  trap 'as_fn_exit 1' 1 2 13 15
+}
+# Create a (secure) tmp directory for tmp files.
+
+{
+  tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
+  test -d "$tmp"
+}  ||
+{
+  tmp=./conf$$-$RANDOM
+  (umask 077 && mkdir "$tmp")
+} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
+ac_tmp=$tmp
+
+# Set up the scripts for CONFIG_FILES section.
+# No need to generate them if there are no CONFIG_FILES.
+# This happens for instance with `./config.status config.h'.
+if test -n "$CONFIG_FILES"; then
+
+
+ac_cr=`echo X | tr X '\015'`
+# On cygwin, bash can eat \r inside `` if the user requested igncr.
+# But we know of no other shell where ac_cr would be empty at this
+# point, so we can use a bashism as a fallback.
+if test "x$ac_cr" = x; then
+  eval ac_cr=\$\'\\r\'
+fi
+ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
+if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
+  ac_cs_awk_cr='\\r'
+else
+  ac_cs_awk_cr=$ac_cr
+fi
+
+echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
+cat >>"$ac_tmp/subs1.awk" <<\_ACAWK &&
+S["LTLIBOBJS"]=""
+S["LIBOBJS"]=""
+S["INSTALL_TARGET"]="install-tcl"
+S["ALL_TARGET"]="tcl"
+S["LD_RUN_PATH"]=""
+S["SHLIB_CFLAGS"]="-fPIC"
+S["DEPEND_FLAG"]="-MM"
+S["gr_srcs"]=" ${TK_SRCS}"
+S["gr_libs"]=" -lX11"
+S["gr_dflags"]=" -DX11 -DXLIB"
+S["gr_cflags"]=""
+S["cadinstall"]=" tcltk"
+S["programs"]=" tcltk"
+S["unused"]=""
+S["modules"]=" tcltk"
+S["sub_extra_libs"]=""
+S["top_extra_libs"]=""
+S["ld_extra_objs"]=""
+S["ld_extra_libs"]=""
+S["stub_defs"]=" -DUSE_TCL_STUBS -DUSE_TK_STUBS"
+S["extra_defs"]=" -DCAD_DIR=\\\"${LIBDIR}\\\" -DTCL_DIR=\\\"${TCLDIR}\\\""
+S["extra_libs"]=" ${NETGENDIR}/tcltk/libtcltk.o"
+S["SCRIPTS"]=""
+S["PACKAGE"]="netgen"
+S["VERSION"]=""
+S["TCL_LIB_DIR"]="/usr/lib"
+S["TCLSH_EXE"]="/usr/bin/tclsh"
+S["WISH_EXE"]="/usr/bin/wish"
+S["LIB_SPECS_NOSTUB"]=" -L/usr/lib64 -ltk8.6 -L/usr/lib64 -ltcl8.6"
+S["LIB_SPECS"]=" -L/usr/lib64 -ltkstub8.6 -L/usr/lib64 -ltclstub8.6"
+S["INC_SPECS"]=""
+S["EXTRA_LIB_SPECS"]="-ldl"
+S["SHLIB_LIB_SPECS"]=""
+S["LDDL_FLAGS"]=" -shared -Wl,-soname,$@ -Wl,--version-script=${NETGENDIR}/netgen/symbol.map"
+S["LD"]="/bin/ld"
+S["SHLIB_LD"]=""
+S["SHDLIB_EXT"]=".so"
+S["X_EXTRA_LIBS"]=""
+S["X_LIBS"]=""
+S["X_PRE_LIBS"]=" -lSM -lICE"
+S["X_CFLAGS"]=""
+S["XMKMF"]=""
+S["HAVE_PYTHON3"]="yes"
+S["EGREP"]="/bin/grep -E"
+S["GREP"]="/bin/grep"
+S["M4"]="/bin/m4"
+S["RANLIB"]="ranlib"
+S["INSTALL_DATA"]="${INSTALL} -m 644"
+S["INSTALL_SCRIPT"]="${INSTALL}"
+S["INSTALL_PROGRAM"]="${INSTALL}"
+S["CPP"]="gcc -E -x c"
+S["OBJEXT"]="o"
+S["EXEEXT"]=""
+S["ac_ct_CC"]="gcc"
+S["CPPFLAGS"]=""
+S["LDFLAGS"]=""
+S["CFLAGS"]="-g -m64 -fPIC"
+S["CC"]="gcc"
+S["target_os"]="linux-gnu"
+S["target_vendor"]="unknown"
+S["target_cpu"]="x86_64"
+S["target"]="x86_64-unknown-linux-gnu"
+S["host_os"]="linux-gnu"
+S["host_vendor"]="unknown"
+S["host_cpu"]="x86_64"
+S["host"]="x86_64-unknown-linux-gnu"
+S["build_os"]="linux-gnu"
+S["build_vendor"]="unknown"
+S["build_cpu"]="x86_64"
+S["build"]="x86_64-unknown-linux-gnu"
+S["target_alias"]=""
+S["host_alias"]=""
+S["build_alias"]=""
+S["LIBS"]=""
+S["ECHO_T"]=""
+S["ECHO_N"]="-n"
+S["ECHO_C"]=""
+S["DEFS"]="-DPACKAGE_NAME=\\\"netgen\\\" -DPACKAGE_TARNAME=\\\"netgen\\\" -DPACKAGE_VERSION=\\\"1.3\\\" -DPACKAGE_STRING=\\\"netgen\\ 1.3\\\" -DPACKAGE_BUGREPORT=\\\"eda-dev@open"\
+"circuitdesign.com\\\" -DPACKAGE_URL=\\\"\\\" -DNETGEN_VERSION=\\\"1.5\\\" -DNETGEN_REVISION=\\\"117\\\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 "\
+"-DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -"\
+"DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DH"\
+"AVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1"
+S["mandir"]="${datarootdir}/man"
+S["localedir"]="${datarootdir}/locale"
+S["libdir"]="${exec_prefix}/lib"
+S["psdir"]="${docdir}"
+S["pdfdir"]="${docdir}"
+S["dvidir"]="${docdir}"
+S["htmldir"]="${docdir}"
+S["infodir"]="${datarootdir}/info"
+S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}"
+S["oldincludedir"]="/usr/include"
+S["includedir"]="${prefix}/include"
+S["localstatedir"]="${prefix}/var"
+S["sharedstatedir"]="${prefix}/com"
+S["sysconfdir"]="${prefix}/etc"
+S["datadir"]="${datarootdir}"
+S["datarootdir"]="${prefix}/share"
+S["libexecdir"]="${exec_prefix}/libexec"
+S["sbindir"]="${exec_prefix}/sbin"
+S["bindir"]="${exec_prefix}/bin"
+S["program_transform_name"]="s,x,x,"
+S["prefix"]="/usr/local"
+S["exec_prefix"]="${prefix}"
+S["PACKAGE_URL"]=""
+S["PACKAGE_BUGREPORT"]="eda-dev@opencircuitdesign.com"
+S["PACKAGE_STRING"]="netgen 1.3"
+S["PACKAGE_VERSION"]="1.3"
+S["PACKAGE_TARNAME"]="netgen"
+S["PACKAGE_NAME"]="netgen"
+S["PATH_SEPARATOR"]=":"
+S["SHELL"]="/bin/sh"
+_ACAWK
+cat >>"$ac_tmp/subs1.awk" <<_ACAWK &&
+  for (key in S) S_is_set[key] = 1
+  FS = ""
+
+}
+{
+  line = $ 0
+  nfields = split(line, field, "@")
+  substed = 0
+  len = length(field[1])
+  for (i = 2; i < nfields; i++) {
+    key = field[i]
+    keylen = length(key)
+    if (S_is_set[key]) {
+      value = S[key]
+      line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
+      len += length(value) + length(field[++i])
+      substed = 1
+    } else
+      len += 1 + keylen
+  }
+
+  print line
+}
+
+_ACAWK
+if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
+  sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
+else
+  cat
+fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
+  || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
+fi # test -n "$CONFIG_FILES"
+
+
+eval set X "  :F $CONFIG_FILES      "
+shift
+for ac_tag
+do
+  case $ac_tag in
+  :[FHLC]) ac_mode=$ac_tag; continue;;
+  esac
+  case $ac_mode$ac_tag in
+  :[FHL]*:*);;
+  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
+  :[FH]-) ac_tag=-:-;;
+  :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
+  esac
+  ac_save_IFS=$IFS
+  IFS=:
+  set x $ac_tag
+  IFS=$ac_save_IFS
+  shift
+  ac_file=$1
+  shift
+
+  case $ac_mode in
+  :L) ac_source=$1;;
+  :[FH])
+    ac_file_inputs=
+    for ac_f
+    do
+      case $ac_f in
+      -) ac_f="$ac_tmp/stdin";;
+      *) # Look for the file first in the build tree, then in the source tree
+	 # (if the path is not absolute).  The absolute path cannot be DOS-style,
+	 # because $ac_f cannot contain `:'.
+	 test -f "$ac_f" ||
+	   case $ac_f in
+	   [\\/$]*) false;;
+	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
+	   esac ||
+	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
+      esac
+      case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
+      as_fn_append ac_file_inputs " '$ac_f'"
+    done
+
+    # Let's still pretend it is `configure' which instantiates (i.e., don't
+    # use $as_me), people would be surprised to read:
+    #    /* config.h.  Generated by config.status.  */
+    configure_input='Generated from '`
+	  $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
+	`' by configure.'
+    if test x"$ac_file" != x-; then
+      configure_input="$ac_file.  $configure_input"
+      { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
+$as_echo "$as_me: creating $ac_file" >&6;}
+    fi
+    # Neutralize special characters interpreted by sed in replacement strings.
+    case $configure_input in #(
+    *\&* | *\|* | *\\* )
+       ac_sed_conf_input=`$as_echo "$configure_input" |
+       sed 's/[\\\\&|]/\\\\&/g'`;; #(
+    *) ac_sed_conf_input=$configure_input;;
+    esac
+
+    case $ac_tag in
+    *:-:* | *:-) cat >"$ac_tmp/stdin" \
+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
+    esac
+    ;;
+  esac
+
+  ac_dir=`$as_dirname -- "$ac_file" ||
+$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
+	 X"$ac_file" : 'X\(//\)[^/]' \| \
+	 X"$ac_file" : 'X\(//\)$' \| \
+	 X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
+$as_echo X"$ac_file" |
+    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\/\)[^/].*/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\/\)$/{
+	    s//\1/
+	    q
+	  }
+	  /^X\(\/\).*/{
+	    s//\1/
+	    q
+	  }
+	  s/.*/./; q'`
+  as_dir="$ac_dir"; as_fn_mkdir_p
+  ac_builddir=.
+
+case "$ac_dir" in
+.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
+*)
+  ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
+  # A ".." for each directory in $ac_dir_suffix.
+  ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
+  case $ac_top_builddir_sub in
+  "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
+  *)  ac_top_build_prefix=$ac_top_builddir_sub/ ;;
+  esac ;;
+esac
+ac_abs_top_builddir=$ac_pwd
+ac_abs_builddir=$ac_pwd$ac_dir_suffix
+# for backward compatibility:
+ac_top_builddir=$ac_top_build_prefix
+
+case $srcdir in
+  .)  # We are building in place.
+    ac_srcdir=.
+    ac_top_srcdir=$ac_top_builddir_sub
+    ac_abs_top_srcdir=$ac_pwd ;;
+  [\\/]* | ?:[\\/]* )  # Absolute name.
+    ac_srcdir=$srcdir$ac_dir_suffix;
+    ac_top_srcdir=$srcdir
+    ac_abs_top_srcdir=$srcdir ;;
+  *) # Relative name.
+    ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
+    ac_top_srcdir=$ac_top_build_prefix$srcdir
+    ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
+esac
+ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
+
+
+  case $ac_mode in
+  :F)
+  #
+  # CONFIG_FILE
+  #
+
+  case $INSTALL in
+  [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
+  *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
+  esac
+# If the template does not know about datarootdir, expand it.
+# FIXME: This hack should be removed a few years after 2.60.
+ac_datarootdir_hack=; ac_datarootdir_seen=
+ac_sed_dataroot='
+/datarootdir/ {
+  p
+  q
+}
+/@datadir@/p
+/@docdir@/p
+/@infodir@/p
+/@localedir@/p
+/@mandir@/p'
+case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
+*datarootdir*) ac_datarootdir_seen=yes;;
+*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
+$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
+  ac_datarootdir_hack='
+  s&@datadir@&${datarootdir}&g
+  s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g
+  s&@infodir@&${datarootdir}/info&g
+  s&@localedir@&${datarootdir}/locale&g
+  s&@mandir@&${datarootdir}/man&g
+  s&\${datarootdir}&${prefix}/share&g' ;;
+esac
+ac_sed_extra="
+
+:t
+/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
+s|@configure_input@|$ac_sed_conf_input|;t t
+s&@top_builddir@&$ac_top_builddir_sub&;t t
+s&@top_build_prefix@&$ac_top_build_prefix&;t t
+s&@srcdir@&$ac_srcdir&;t t
+s&@abs_srcdir@&$ac_abs_srcdir&;t t
+s&@top_srcdir@&$ac_top_srcdir&;t t
+s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
+s&@builddir@&$ac_builddir&;t t
+s&@abs_builddir@&$ac_abs_builddir&;t t
+s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
+s&@INSTALL@&$ac_INSTALL&;t t
+$ac_datarootdir_hack
+"
+eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
+  >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+
+test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
+  { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
+  { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' \
+      "$ac_tmp/out"`; test -z "$ac_out"; } &&
+  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
+which seems to be undefined.  Please make sure it is defined" >&5
+$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
+which seems to be undefined.  Please make sure it is defined" >&2;}
+
+  rm -f "$ac_tmp/stdin"
+  case $ac_file in
+  -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
+  *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
+  esac \
+  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
+ ;;
+
+
+
+  esac
+
+done # for ac_tag
+
+
+as_fn_exit 0

scripts/configure

@@ -633,7 +633,6 @@ gr_srcs
 gr_libs
 gr_dflags
 gr_cflags
-DIST_DIR
 cadinstall
 programs
 unused
@@ -668,6 +667,7 @@ XMKMF
 HAVE_PYTHON3
 EGREP
 GREP
+M4
 RANLIB
 INSTALL_DATA
 INSTALL_SCRIPT
@@ -711,7 +711,6 @@ infodir
 docdir
 oldincludedir
 includedir
-runstatedir
 localstatedir
 sharedstatedir
 sysconfdir
@@ -735,7 +734,6 @@ ac_subst_files=''
 ac_user_opts='
 enable_option_checking
 with_gnu_ld
-with_distdir
 with_interpreter
 with_tcl
 with_tk
@@ -794,7 +792,6 @@ datadir='${datarootdir}'
 sysconfdir='${prefix}/etc'
 sharedstatedir='${prefix}/com'
 localstatedir='${prefix}/var'
-runstatedir='${localstatedir}/run'
 includedir='${prefix}/include'
 oldincludedir='/usr/include'
 docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
@@ -1047,15 +1044,6 @@ do
   | -silent | --silent | --silen | --sile | --sil)
     silent=yes ;;
 
-  -runstatedir | --runstatedir | --runstatedi | --runstated \
-  | --runstate | --runstat | --runsta | --runst | --runs \
-  | --run | --ru | --r)
-    ac_prev=runstatedir ;;
-  -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \
-  | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \
-  | --run=* | --ru=* | --r=*)
-    runstatedir=$ac_optarg ;;
-
   -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
     ac_prev=sbindir ;;
   -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
@@ -1193,7 +1181,7 @@ fi
 for ac_var in	exec_prefix prefix bindir sbindir libexecdir datarootdir \
 		datadir sysconfdir sharedstatedir localstatedir includedir \
 		oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
-		libdir localedir mandir runstatedir
+		libdir localedir mandir
 do
   eval ac_val=\$$ac_var
   # Remove trailing slashes.
@@ -1346,7 +1334,6 @@ Fine tuning of the installation directories:
   --sysconfdir=DIR        read-only single-machine data [PREFIX/etc]
   --sharedstatedir=DIR    modifiable architecture-independent data [PREFIX/com]
   --localstatedir=DIR     modifiable single-machine data [PREFIX/var]
-  --runstatedir=DIR       modifiable per-process data [LOCALSTATEDIR/run]
   --libdir=DIR            object code libraries [EPREFIX/lib]
   --includedir=DIR        C header files [PREFIX/include]
   --oldincludedir=DIR     C header files for non-gcc [/usr/include]
@@ -1385,7 +1372,6 @@ Optional Packages:
   --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
   --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
   --with-gnu-ld           assume the C compiler uses GNU ld [default=no]
-  --with-distdir=DIR       install into location DIR for distribution
   --with-interpreter=arg	enable interpreter
   --with-tcl=DIR          Find tclConfig.sh in DIR
   --with-tk=DIR           Find tkConfig.sh in DIR
@@ -3701,6 +3687,56 @@ else
 fi
 
 
+for ac_prog in gm4 gnum4 m4
+do
+  # Extract the first word of "$ac_prog", so it can be a program name with args.
+set dummy $ac_prog; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_path_M4+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  case $M4 in
+  [\\/]* | ?:[\\/]*)
+  ac_cv_path_M4="$M4" # Let the user override the test with a path.
+  ;;
+  *)
+  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    for ac_exec_ext in '' $ac_executable_extensions; do
+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+    ac_cv_path_M4="$as_dir/$ac_word$ac_exec_ext"
+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+    break 2
+  fi
+done
+  done
+IFS=$as_save_IFS
+
+  ;;
+esac
+fi
+M4=$ac_cv_path_M4
+if test -n "$M4"; then
+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $M4" >&5
+$as_echo "$M4" >&6; }
+else
+  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
+$as_echo "no" >&6; }
+fi
+
+
+  test -n "$M4" && break
+done
+test -n "$M4" || M4="no"
+
+if test x$M4 = xno; then
+  as_fn_error $? "M4 is required" "$LINENO" 5
+fi
+
 
 if test "$CPP" = "$CC -E" ; then
    CPP="$CPP -x c"
@@ -4762,24 +4798,6 @@ usingTcl=1
 usingX11=
 
 
-# For distributed installs, where the run-time files are installed in a
-# place that is a temporary staging area, like DESTDIR, but unlike DESTDIR,
-# the prefix is replaced by the destination directory, rather than appended
-# to it.
-DIST_DIR="\${exec_prefix}"
-
-# Check whether --with-distdir was given.
-if test "${with_distdir+set}" = set; then :
-  withval=$with_distdir;
-  if test "$withval" = "no" -o "$withval" = "NO" ; then
-     DIST_DIR="\${exec_prefix}"
-  else
-     DIST_DIR=${withval}
-  fi
-
-fi
-
-
 
 # Check whether --with-interpreter was given.
 if test "${with_interpreter+set}" = set; then :
@@ -6026,6 +6044,7 @@ fi
 
 
 if test $usingTcl ; then
+  usingX11=1
   cadinstall="$cadinstall tcltk"
   modules="$modules tcltk"
   programs="$programs tcltk"
@@ -6035,11 +6054,7 @@ if test $usingTcl ; then
 
   extra_libs="$extra_libs \${NETGENDIR}/tcltk/libtcltk.o"
   extra_defs="$extra_defs -DTCL_DIR=\\\"\${TCLDIR}\\\""
-  if test $usingX11 ; then
-    stub_defs="$stub_defs -DUSE_TCL_STUBS"
-  else
-    stub_defs="$stub_defs -DUSE_TCL_STUBS -DUSE_TK_STUBS"
-  fi
+  stub_defs="$stub_defs -DUSE_TCL_STUBS -DUSE_TK_STUBS"
 else
   programs="$programs netgen"
   unused="$unused tcltk"
@@ -6124,7 +6139,6 @@ if test $usingTcl ; then
 # Tk libraries and header files
 #
 # -----------------------------------------------------------------------
-if test $usingX11 ; then
   if test "${TK_INC_DIR}" != "/usr/include" ; then
     INC_SPECS="${INC_SPECS} -I${TK_INC_DIR}"
   fi
@@ -6141,7 +6155,6 @@ if test $usingX11 ; then
       loader_run_path="${TK_LIB_DIR}:${loader_run_path}"
     fi
   fi
-fi
 
 # -----------------------------------------------------------------------
 #
@@ -6251,7 +6264,7 @@ fi
 
     *darwin*)
       SHDLIB_EXT=".dylib"
-      LDDL_FLAGS="-dynamiclib -undefined dynamic_lookup"
+      LDDL_FLAGS="-dynamiclib -flat_namespace -undefined suppress -noprebind"
       LDFLAGS="${LDFLAGS} ${LIB_SPECS}"
       CFLAGS="${CFLAGS} ${X_CFLAGS} ${INC_SPECS} -I/sw/include -fno-common"
       ;;
@@ -6400,7 +6413,7 @@ fi
       # Not available on all versions:  check for include file.
       SHLIB_CFLAGS="-fpic"
       LDDL_FLAGS="-shared ${LIB_SPECS}"
-      CFLAGS="${CFLAGS} -L/usr/X11R6/include"
+      CFLAGS="${CFLAGS} -l/usr/X11R6/include"
       ;;
 
     *-netbsd*|*-openbsd*)
@@ -6574,7 +6587,6 @@ fi
 
 
 
-
 
 
 ac_config_files="$ac_config_files defs.mak"

scripts/configure.in

@@ -26,6 +26,12 @@ AC_ISC_POSIX
 AC_PROG_INSTALL
 AC_PROG_RANLIB
 
+dnl GNU M4 is preferred due to some of the option switches.
+AC_PATH_PROGS([M4], [gm4 gnum4 m4], [no])
+if test x$M4 = xno; then
+  AC_MSG_ERROR([M4 is required])
+fi
+
 dnl check size of pointer for correct behavior on 64-bit systems
 dnl If the C preprocessor is GCC, we need to force the flag to
 dnl assert that input files are of type C, or else the preprocessing
@@ -243,20 +249,6 @@ usingX11=
 
 dnl Compile-time options below. . .
 
-# For distributed installs, where the run-time files are installed in a
-# place that is a temporary staging area, like DESTDIR, but unlike DESTDIR,
-# the prefix is replaced by the destination directory, rather than appended
-# to it.
-DIST_DIR="\${exec_prefix}"
-AC_ARG_WITH(distdir,
-[  --with-distdir=DIR       install into location DIR for distribution], [
-  if test "$withval" = "no" -o "$withval" = "NO" ; then
-     DIST_DIR="\${exec_prefix}"
-  else
-     DIST_DIR=${withval}
-  fi
-], )
-
 AC_ARG_WITH(interpreter,
 [  --with-interpreter=[arg]	enable interpreter], [
   if test "$withval" = "no" -o "$withval" = "NO"; then
@@ -801,6 +793,7 @@ dnl "make" instead of requiring "make tcl"
 dnl ----------------------------------------------------------------
 
 if test $usingTcl ; then
+  usingX11=1
   cadinstall="$cadinstall tcltk"
   modules="$modules tcltk"
   programs="$programs tcltk"
@@ -809,11 +802,7 @@ if test $usingTcl ; then
   AC_DEFINE(TCL_NETGEN)
   extra_libs="$extra_libs \${NETGENDIR}/tcltk/libtcltk.o"
   extra_defs="$extra_defs -DTCL_DIR=\\\"\${TCLDIR}\\\""
-  if test $usingX11 ; then
-    stub_defs="$stub_defs -DUSE_TCL_STUBS"
-  else
-    stub_defs="$stub_defs -DUSE_TCL_STUBS -DUSE_TK_STUBS"
-  fi
+  stub_defs="$stub_defs -DUSE_TCL_STUBS -DUSE_TK_STUBS"
 else
   programs="$programs netgen"
   unused="$unused tcltk"
@@ -900,7 +889,6 @@ if test $usingTcl ; then
 # Tk libraries and header files
 #
 # -----------------------------------------------------------------------
-if test $usingX11 ; then
   if test "${TK_INC_DIR}" != "/usr/include" ; then
     INC_SPECS="${INC_SPECS} -I${TK_INC_DIR}"
   fi
@@ -917,7 +905,6 @@ if test $usingX11 ; then
       loader_run_path="${TK_LIB_DIR}:${loader_run_path}"
     fi
   fi
-fi
 
 # -----------------------------------------------------------------------
 #
@@ -1027,7 +1014,7 @@ fi
 
     *darwin*)
       SHDLIB_EXT=".dylib"
-      LDDL_FLAGS="-dynamiclib -undefined dynamic_lookup"
+      LDDL_FLAGS="-dynamiclib -flat_namespace -undefined suppress -noprebind"
       LDFLAGS="${LDFLAGS} ${LIB_SPECS}"
       CFLAGS="${CFLAGS} ${X_CFLAGS} ${INC_SPECS} -I/sw/include -fno-common"
       ;;
@@ -1133,7 +1120,7 @@ fi
       # Not available on all versions:  check for include file.
       SHLIB_CFLAGS="-fpic"
       LDDL_FLAGS="-shared ${LIB_SPECS}"
-      CFLAGS="${CFLAGS} -L/usr/X11R6/include"
+      CFLAGS="${CFLAGS} -l/usr/X11R6/include"
       ;;
 
     *-netbsd*|*-openbsd*)
@@ -1285,7 +1272,6 @@ AC_SUBST(modules)
 AC_SUBST(unused)
 AC_SUBST(programs)
 AC_SUBST(cadinstall)
-AC_SUBST(DIST_DIR)
 
 AC_SUBST(gr_cflags)
 AC_SUBST(gr_dflags)

scripts/configure.in.orig

@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 dnl Use autoconf 2.52 or newer.
 
-AC_INIT(netgen, 1.3, eda-dev@opencircuitdesign.com)
+AC_INIT(netgen, 1.3, magic-hackers@csl.cornell.edu)
 AC_PREREQ(2.52)
 AC_CONFIG_SRCDIR(rules.mak)
 AC_CONFIG_AUX_DIR(.)
@@ -38,7 +38,7 @@ dnl assert that input files are of type C, or else the preprocessing
 dnl stage will not execute correctly on the ".in" files in the scmos
 dnl directory.
 
-if test "$CPP" = "$CC -E" ; then
+if test "$CPP" = "gcc -E" ; then
    CPP="$CPP -x c"
 fi
 
@@ -163,9 +163,6 @@ AC_CHECK_HEADERS(limits.h)
 dnl Check for <param.h>
 AC_CHECK_HEADERS(param.h)
 
-dnl Check for Python3
-AC_CHECK_PROG(HAVE_PYTHON3, python3, yes, no)
-
 dnl Check for va_copy
 AC_CACHE_CHECK([for va_copy], ac_cv_c_va_copy,
  AC_TRY_LINK(
@@ -198,7 +195,6 @@ fi
 # not ANSI-compliant and won't compile without quite a bit of work.
 AC_DEFINE(DBUG_OFF)
 
-stub_defs=""
 extra_defs="$extra_defs -DCAD_DIR=\\\"\${LIBDIR}\\\""
 X_LIBS=
 X_CFLAGS=
@@ -249,20 +245,6 @@ usingX11=
 
 dnl Compile-time options below. . .
 
-# For distributed installs, where the run-time files are installed in a
-# place that is a temporary staging area, like DESTDIR, but unlike DESTDIR,
-# the prefix is replaced by the destination directory, rather than appended
-# to it.
-DIST_DIR="\${exec_prefix}"
-AC_ARG_WITH(distdir,
-[  --with-distdir=DIR       install into location DIR for distribution], [
-  if test "$withval" = "no" -o "$withval" = "NO" ; then
-     DIST_DIR="\${exec_prefix}"
-  else
-     DIST_DIR=${withval}
-  fi
-], )
-
 AC_ARG_WITH(interpreter,
 [  --with-interpreter=[arg]	enable interpreter], [
   if test "$withval" = "no" -o "$withval" = "NO"; then
@@ -347,7 +329,7 @@ if test $usingTcl ; then
     #  1. Search previously named locations.
 
     for dir in \
-     $ac_default_prefix \
+     $prefix \
      $exec_prefix
     do
       if test -r "$dir/tclConfig.sh" ; then
@@ -369,10 +351,11 @@ if test $usingTcl ; then
        `ls -dr /usr/local/tcl/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
        /usr/local/tcl \
        /usr/local/lib \
-       /usr/lib64 \
        /usr/local \
        `ls -dr /usr/lib/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
        /sw/lib \
+       /usr/lib \
+       /usr/lib64 \
        /usr
       do
         if test -r "$dir/tclConfig.sh" ; then
@@ -432,7 +415,7 @@ if test $usingTcl ; then
     #  1. Search previously named locations.
     #
     for dir in \
-     $ac_default_prefix \
+     $prefix \
      $exec_prefix
     do
       if test -r "$dir/tkConfig.sh" ; then
@@ -451,17 +434,21 @@ if test $usingTcl ; then
     #
     if test "x$tk_config_sh" = "x" ; then
       for dir in \
-	`ls -dr /usr/local/tcl/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
-	`ls -dr /usr/local/tk/tk[[7-9]].[[0-9]]* 2>/dev/null` \
-	/usr/local/tcl \
-	/usr/local/lib \
-	/usr/lib64 \
 	/usr/local \
-	`ls -dr /usr/lib/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
+	/usr \
+	`ls -dr /usr/local/lib/tk[[7-9]].[[0-9]]* 2>/dev/null` \
 	`ls -dr /usr/lib/tk[[7-9]].[[0-9]]* 2>/dev/null` \
+	`ls -dr /usr/local/tk/tk[[7-9]].[[0-9]]* 2>/dev/null` \
+	`ls -dr /usr/local/tk[[7-9]].[[0-9]]* 2>/dev/null` \
+	/usr/local/tk \
+	`ls -dr /usr/local/lib/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
+	`ls -dr /usr/lib/tcl/tk[[7-9]].[[0-9]]* 2>/dev/null` \
+	`ls -dr /usr/local/tcl/tcl[[7-9]].[[0-9]]* 2>/dev/null` \
+	`ls -dr /usr/share/tcltk/tk[[7-9]].[[0-9]]* 2>/dev/null` \
 	/sw/lib \
-	${x_libraries} \
-	/usr
+	/usr/lib \
+	/usr/lib64 \
+	${x_libraries}
       do
         if test -r "$dir/tkConfig.sh" ; then
           tk_config_sh="$dir/tkConfig.sh"
@@ -490,25 +477,6 @@ if test $usingTcl ; then
   . $tcl_config_sh
   . $tk_config_sh
 
-  # Should probably trust the config file contents, but this configure
-  # file checks the Tcl and Tk include and lib directories.  Since
-  # the config file doesn't separate out the libraries from the strings
-  # passed to the compiler/linker, do it manually here.
-  #
-  # Extract TCL_LIB_DIR from TCL_LIB_SPEC
-  # Extract TK_LIB_DIR from TK_LIB_SPEC
-  # Extract TCL_INC_DIR from TCL_INCLUDE_SPEC
-  # Extract TK_INC_DIR from TK_INCLUDE_SPEC
-  #
-  # These will be the defaults unless overridden by configure command line
-
-  tmpstr=${TCL_LIB_SPEC#*-L}
-  TCL_LIB_DIR=${tmpstr% -l*}
-  tmpstr=${TK_LIB_SPEC#*-L}
-  TK_LIB_DIR=${tmpstr% -l*}
-  TCL_INC_DIR=${TCL_INCLUDE_SPEC#*-I}
-  TK_INC_DIR=${TK_INCLUDE_SPEC#*-I}
-
   if test "$TCL_VERSION" = "7.6" -a "$TK_VERSION" = "4.2" ; then
     :
   elif test "$TCL_VERSION" = "7.5" -a "$TK_VERSION" = "4.1" ; then
@@ -652,7 +620,7 @@ if test $usingTcl ; then
       fi
     done
     if test "x${TCLSH_EXE}" != "x" ; then
-      break
+      break;
     fi
   done
   if test "x${TCLSH_EXE}" = "x" ; then
@@ -702,8 +670,8 @@ if test $usingTcl ; then
   else
     for libname in \
      "${loclib:=${TCL_EXEC_PREFIX}/lib}/lib${TCL_LIB_NAME}${SHDLIB_EXT}" \
-     "${loclib:=${TCL_EXEC_PREFIX}/lib}/lib${TCL_LIB_NAME}${SHDLIB_EXT_ALT}" \
-     "${loclib:=${TCL_EXEC_PREFIX}/lib64}/lib${TCL_LIB_NAME}${SHDLIB_EXT}"
+     "${loclib:=${TCL_EXEC_PREFIX}/lib64}/lib${TCL_LIB_NAME}${SHDLIB_EXT}" \
+     "${loclib:=${TCL_EXEC_PREFIX}/lib}/lib${TCL_LIB_NAME}${SHDLIB_EXT_ALT}"
     do
       if test -r "$libname" ; then
         TCL_LIB_DIR="${TCL_EXEC_PREFIX}/lib"
@@ -816,7 +784,6 @@ if test $usingTcl ; then
   AC_DEFINE(TCL_NETGEN)
   extra_libs="$extra_libs \${NETGENDIR}/tcltk/libtcltk.o"
   extra_defs="$extra_defs -DTCL_DIR=\\\"\${TCLDIR}\\\""
-  stub_defs="$stub_defs -DUSE_TCL_STUBS -DUSE_TK_STUBS"
 else
   programs="$programs netgen"
   unused="$unused tcltk"
@@ -883,9 +850,10 @@ case $target in
   *cygwin*)
     AC_DEFINE(CYGWIN)
     AC_DEFINE(i386)
+    AC_DEFINE(WIN32)
     ;; 
   *darwin*)
-    $as_echo "#define macosx macos" >> confdefs.h
+    AC_DEFINE(macosx)
     if test "$CPP" = "cc -E" ; then
        CPPFLAGS="$CPPFLAGS -no-cpp-precomp"
     fi
@@ -896,7 +864,6 @@ esac
 # -----------------------------------------------------------------------
 
 if test $usingTcl ; then
-    LIB_SPECS_NOSTUB="${LIB_SPECS}"
 
 # -----------------------------------------------------------------------
 #
@@ -908,11 +875,9 @@ if test $usingTcl ; then
   fi
   if test "${TK_LIB_DIR}" = "/usr/lib" -o \
         "${TK_LIB_DIR}" = "/usr/lib64" ; then
-    LIB_SPECS_NOSTUB="${LIB_SPECS_NOSTUB} ${TK_LIB_SPEC}"
-    LIB_SPECS="${LIB_SPECS} ${TK_STUB_LIB_SPEC}"
+    LIB_SPECS="${LIB_SPECS} ${TK_LIB_SPEC}"
   else
-    LIB_SPECS_NOSTUB="${LIB_SPECS_NOSTUB} -L${TK_LIB_DIR} ${TK_LIB_SPEC}"
-    LIB_SPECS="${LIB_SPECS} -L${TK_LIB_DIR} ${TK_STUB_LIB_SPEC}"
+    LIB_SPECS="${LIB_SPECS} -L${TK_LIB_DIR} ${TK_LIB_SPEC}"
     if test "x${loader_run_path}" = "x" ; then
       loader_run_path="${TK_LIB_DIR}"
     else
@@ -936,11 +901,9 @@ if test $usingTcl ; then
   if test "${TCL_LIB_DIR}" = "/usr/lib" -o \
         "${TCL_LIB_DIR}" = "/usr/lib64" -o \ 
         "${TCL_LIB_DIR}" = "${TK_LIB_DIR}" ; then
-    LIB_SPECS_NOSTUB="${LIB_SPECS_NOSTUB} ${TCL_LIB_SPEC}"
-    LIB_SPECS="${LIB_SPECS} ${TCL_STUB_LIB_SPEC}"
+    LIB_SPECS="${LIB_SPECS} ${TCL_LIB_SPEC}"
   else
-    LIB_SPECS_NOSTUB="${LIB_SPECS_NOSTUB} -L${TCL_LIB_DIR} ${TCL_LIB_SPEC}"
-    LIB_SPECS="${LIB_SPECS} -L${TCL_LIB_DIR} ${TCL_STUB_LIB_SPEC}"
+    LIB_SPECS="${LIB_SPECS} -L${TCL_LIB_DIR} ${TCL_LIB_SPEC}"
     if test "x${loader_run_path}" = "x" ; then
       loader_run_path="${TCL_LIB_DIR}"
     else
@@ -1134,7 +1097,7 @@ if test $usingTcl ; then
       # Not available on all versions:  check for include file.
       SHLIB_CFLAGS="-fpic"
       LDDL_FLAGS="-shared ${LIB_SPECS}"
-      CFLAGS="${CFLAGS} -L/usr/X11R6/include"
+      CFLAGS="${CFLAGS} -l/usr/X11R6/include"
       ;;
 
     *-netbsd*|*-openbsd*)
@@ -1259,7 +1222,6 @@ if test $usingTcl ; then
   AC_SUBST(LDFLAGS)
   AC_SUBST(INC_SPECS)
   AC_SUBST(LIB_SPECS)
-  AC_SUBST(LIB_SPECS_NOSTUB)
   AC_SUBST(WISH_EXE)
   AC_SUBST(TCLSH_EXE)
   AC_SUBST(TCL_LIB_DIR)
@@ -1277,7 +1239,6 @@ AC_SUBST(PACKAGE)
 AC_SUBST(SCRIPTS)
 AC_SUBST(extra_libs)
 AC_SUBST(extra_defs)
-AC_SUBST(stub_defs)
 AC_SUBST(ld_extra_libs)
 AC_SUBST(ld_extra_objs)
 AC_SUBST(top_extra_libs)
@@ -1286,13 +1247,11 @@ AC_SUBST(modules)
 AC_SUBST(unused)
 AC_SUBST(programs)
 AC_SUBST(cadinstall)
-AC_SUBST(DIST_DIR)
 
 AC_SUBST(gr_cflags)
 AC_SUBST(gr_dflags)
 AC_SUBST(gr_libs)
 AC_SUBST(gr_srcs)
-AC_SUBST(HAVE_PYTHON3)
 
 AC_SUBST(X_LIBS)
 AC_SUBST(X_CFLAGS)
@@ -1333,20 +1292,6 @@ else
    echo
 fi
 
-${ECHO_N} "Python3:    "
-if test "${HAVE_PYTHON3}" == "yes"; then
-   echo "yes"
-else
-   echo "no"
-   echo
-   echo "   Without Python3, you cannot run the GUI interface to netgen."
-   echo "   This is purely optional, as it contains no features not"
-   echo "   available in the command-line (Tcl/Tk) version.  If you want"
-   echo "   python3 support, make sure that you have installed python3"
-   echo "   on your system."
-   echo
-fi
-
 echo "-----------------------------------------------------------"
 echo
 

scripts/defs.mak

@@ -0,0 +1,85 @@
+# defs.mak.in --
+# source file for autoconf-generated "defs.mak" for netgen
+
+# defs.mak.  Generated from defs.mak.in by configure.
+# Feel free to change the values in here to suit your needs.
+# Be aware that running scripts/configure again will overwrite
+# any changes!
+
+SHELL                  = /bin/sh
+
+prefix = ${BUILDROOT}/usr/local
+exec_prefix = ${prefix}
+bindir = ${exec_prefix}/bin
+libdir = ${exec_prefix}/lib
+mandir = ${prefix}/share/man
+
+VERSION                = 
+
+SCRIPTS                = ${NETGENDIR}/scripts
+
+INSTALL = /bin/install -c
+INSTALL_PROGRAM = ${INSTALL}
+INSTALL_DATA = ${INSTALL} -m 644
+INSTALL_SCRIPT = ${INSTALL}
+
+# Override standard "make" target when compiling under TCL
+ALL_TARGET = tcl
+INSTALL_TARGET = install-tcl
+
+# Change CADDIR to install in a different place
+BINDIR                 = ${bindir}
+MANDIR                 = ${mandir}
+LIBDIR                 = ${libdir}
+DOCDIR                 = ${libdir}/netgen/doc
+TCLDIR                 = ${libdir}/netgen/tcl
+PYDIR		       = ${libdir}/netgen/python
+
+MAIN_EXTRA_LIBS        =  ${NETGENDIR}/tcltk/libtcltk.o
+LD_EXTRA_LIBS          = 
+LD_SHARED              = 
+TOP_EXTRA_LIBS         = 
+SUB_EXTRA_LIBS         = 
+
+MODULES               +=  tcltk
+UNUSED_MODULES        += 
+PROGRAMS              +=  tcltk
+INSTALL_CAD_DIRS      +=  tcltk
+
+RM                     = rm -f
+CP                     = cp
+AR                     = @AR@
+ARFLAGS                = crv
+LINK		       = /bin/ld -r
+LD                     = /bin/ld
+M4		       = /bin/m4
+RANLIB                 = ranlib
+SHDLIB_EXT	       = .so
+LDDL_FLAGS             =  -shared -Wl,-soname,$@ -Wl,--version-script=${NETGENDIR}/netgen/symbol.map
+LD_RUN_PATH            = 
+LIB_SPECS              =  -L/usr/lib64 -ltkstub8.6 -L/usr/lib64 -ltclstub8.6
+LIB_SPECS_NOSTUB       =  -L/usr/lib64 -ltk8.6 -L/usr/lib64 -ltcl8.6
+WISH_EXE	       = /usr/bin/wish
+TCL_LIB_DIR	       = /usr/lib
+
+CC                     = gcc
+CPP                    = gcc -E -x c
+CXX                    = @CXX@
+
+CPPFLAGS               = -I. -I${NETGENDIR} 
+DFLAGS                 =  -DCAD_DIR=\"${LIBDIR}\" -DTCL_DIR=\"${TCLDIR}\"  -DUSE_TCL_STUBS -DUSE_TK_STUBS -DPACKAGE_NAME=\"netgen\" -DPACKAGE_TARNAME=\"netgen\" -DPACKAGE_VERSION=\"1.3\" -DPACKAGE_STRING=\"netgen\ 1.3\" -DPACKAGE_BUGREPORT=\"eda-dev@opencircuitdesign.com\" -DPACKAGE_URL=\"\" -DNETGEN_VERSION=\"1.5\" -DNETGEN_REVISION=\"117\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DHAVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1 -DSHDLIB_EXT=\".so\" -DNDEBUG
+DFLAGS_NOSTUB          =  -DCAD_DIR=\"${LIBDIR}\" -DTCL_DIR=\"${TCLDIR}\" -DPACKAGE_NAME=\"netgen\" -DPACKAGE_TARNAME=\"netgen\" -DPACKAGE_VERSION=\"1.3\" -DPACKAGE_STRING=\"netgen\ 1.3\" -DPACKAGE_BUGREPORT=\"eda-dev@opencircuitdesign.com\" -DPACKAGE_URL=\"\" -DNETGEN_VERSION=\"1.5\" -DNETGEN_REVISION=\"117\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSIZEOF_VOID_P=8 -DSIZEOF_UNSIGNED_INT=4 -DSIZEOF_UNSIGNED_LONG=8 -DSIZEOF_UNSIGNED_LONG_LONG=8 -DSTDC_HEADERS=1 -DHAVE_SETENV=1 -DHAVE_PUTENV=1 -DHAVE_DIRENT_H=1 -DHAVE_LIMITS_H=1 -DHAVE_VA_COPY=1 -DHAVE___VA_COPY=1 -DDBUG_OFF=1 -DTCL_NETGEN=1 -Dlinux=1 -DSYSV=1 -DISC=1 -DSHDLIB_EXT=\".so\" -DNDEBUG
+CFLAGS                 = -g -m64 -fPIC -fPIC 
+
+DEPEND_FILE            = Depend
+DEPEND_FLAG            = -MM
+EXEEXT		       = 
+
+GR_CFLAGS              =  
+GR_DFLAGS              =  -DX11 -DXLIB -DNDEBUG
+GR_LIBS                =  -lX11 
+GR_SRCS                =  ${TK_SRCS}
+
+OBJS      = ${SRCS:.c=.o}
+LIB_OBJS  = ${LIB_SRCS:.c=.o}
+CLEANS    = ${OBJS} ${LIB_OBJS} lib${MODULE}.a lib${MODULE}.o ${MODULE}

scripts/defs.mak.in

@@ -35,13 +35,6 @@ DOCDIR                 = ${libdir}/netgen/doc
 TCLDIR                 = ${libdir}/netgen/tcl
 PYDIR		       = ${libdir}/netgen/python
 
-INSTALL_BINDIR                 = @DIST_DIR@/bin
-INSTALL_MANDIR                 = @DIST_DIR@/share/man
-INSTALL_LIBDIR                 = @DIST_DIR@/lib
-INSTALL_DOCDIR                 = ${INSTALL_LIBDIR}/netgen/doc
-INSTALL_TCLDIR                 = ${INSTALL_LIBDIR}/netgen/tcl
-INSTALL_PYDIR		       = ${INSTALL_LIBDIR}/netgen/python
-
 MAIN_EXTRA_LIBS        = @extra_libs@
 LD_EXTRA_LIBS          = @ld_extra_libs@
 LD_SHARED              = @ld_extra_objs@
@@ -68,7 +61,6 @@ LIB_SPECS              = @LIB_SPECS@
 LIB_SPECS_NOSTUB       = @LIB_SPECS_NOSTUB@
 WISH_EXE	       = @WISH_EXE@
 TCL_LIB_DIR	       = @TCL_LIB_DIR@
-EXTRA_CFLAGS	       =
 
 CC                     = @CC@
 CPP                    = @CPP@
@@ -77,7 +69,7 @@ CXX                    = @CXX@
 CPPFLAGS               = -I. -I${NETGENDIR} @CPPFLAGS@
 DFLAGS                 = @extra_defs@ @stub_defs@ @DEFS@ -DSHDLIB_EXT=\"@SHDLIB_EXT@\" -DNDEBUG
 DFLAGS_NOSTUB          = @extra_defs@ @DEFS@ -DSHDLIB_EXT=\"@SHDLIB_EXT@\" -DNDEBUG
-CFLAGS                 = @CFLAGS@ @SHLIB_CFLAGS@ @INC_SPECS@ ${EXTRA_CFLAGS}
+CFLAGS                 = @CFLAGS@ @SHLIB_CFLAGS@ @INC_SPECS@
 
 DEPEND_FILE            = Depend
 DEPEND_FLAG            = @DEPEND_FLAG@

tcltk/Makefile

@@ -12,20 +12,20 @@ CLEANS += netgen.sh netgen.tcl netgenexec${EXEEXT}
 CFLAGS += -I${NETGENDIR}/base
 
 TCL_FILES = \
-	$(DESTDIR)${INSTALL_TCLDIR}/tkcon.tcl \
-	$(DESTDIR)${INSTALL_TCLDIR}/console.tcl \
-	$(DESTDIR)${INSTALL_TCLDIR}/netgen.tcl
+	$(DESTDIR)${TCLDIR}/tkcon.tcl \
+	$(DESTDIR)${TCLDIR}/console.tcl \
+	$(DESTDIR)${TCLDIR}/netgen.tcl
 
 tcl-main: netgenexec${EXEEXT} netgen.tcl netgen.sh
 
-install-tcl: netgenexec${EXEEXT} $(DESTDIR)${INSTALL_BINDIR}/netgen.sh ${TCL_FILES}
-	${RM} $(DESTDIR)${INSTALL_TCLDIR}/netgenexec${EXEEXT}
-	${CP} netgenexec${EXEEXT} $(DESTDIR)${INSTALL_TCLDIR}/netgenexec${EXEEXT}
+install-tcl: netgenexec${EXEEXT} $(DESTDIR)${BINDIR}/netgen.sh ${TCL_FILES}
+	${RM} $(DESTDIR)${TCLDIR}/netgenexec${EXEEXT}
+	${CP} netgenexec${EXEEXT} $(DESTDIR)${TCLDIR}/netgenexec${EXEEXT}
 
 netgenexec${EXEEXT}: netgenexec.c
 	${CC} ${CFLAGS} ${CPPFLAGS} ${DFLAGS_NOSTUB} netgenexec.c \
 		-o netgenexec${EXEEXT} \
-		${LIB_SPECS_NOSTUB} ${LDFLAGS} ${LIBS} ${GR_LIBS}
+		${LDFLAGS} ${LIBS} ${LIB_SPECS_NOSTUB}
 
 netgen.tcl: netgen.tcl.in
 	sed -e 's%TCL_DIR%${TCLDIR}%g' \
@@ -39,13 +39,13 @@ netgen.sh: netgen.sh.in
 	    -e 's%WISH_EXE%${WISH_EXE}%g' \
 	    netgen.sh.in > netgen.sh
 
-$(DESTDIR)${INSTALL_TCLDIR}/%: %
-	${RM} $(DESTDIR)${INSTALL_TCLDIR}/$*
-	${CP} $* $(DESTDIR)${INSTALL_TCLDIR}/$*
+$(DESTDIR)${TCLDIR}/%: %
+	${RM} $(DESTDIR)${TCLDIR}/$*
+	${CP} $* $(DESTDIR)${TCLDIR}/$*
 
-$(DESTDIR)${INSTALL_BINDIR}/netgen.sh: netgen.sh
-	${RM} $(DESTDIR)${INSTALL_BINDIR}/netgen.sh $(DESTDIR)${INSTALL_BINDIR}/netgen
-	${CP} netgen.sh $(DESTDIR)${INSTALL_BINDIR}/netgen
-	(cd $(DESTDIR)${INSTALL_BINDIR}; chmod 0755 netgen)
+$(DESTDIR)${BINDIR}/netgen.sh: netgen.sh
+	${RM} $(DESTDIR)${BINDIR}/netgen.sh $(DESTDIR)${BINDIR}/netgen
+	${CP} netgen.sh $(DESTDIR)${BINDIR}/netgen
+	(cd $(DESTDIR)${BINDIR}; chmod 0755 netgen)
 
 include ${NETGENDIR}/rules.mak

tcltk/netgen.tcl.in

@@ -62,18 +62,16 @@ proc netgen::convert_to_json {filename lvs_final} {
 	          puts $fjson "      \["
 		  set cktval [lindex $value 0]
 		  foreach pin [lrange $cktval 0 end-1] {
-		     set pinstr [string map {"\\" "\\\\"} $pin]
-		     puts $fjson "        \"$pinstr\","
+		     puts $fjson "        \"$pin\","
 		  }
-		  set pin [string map {"\\" "\\\\"} [lindex $cktval end]]
+		  set pin [lindex $cktval end]
 		  puts $fjson "        \"$pin\""
 	          puts $fjson "      \], \["
 		  set cktval [lindex $value 1]
 		  foreach pin [lrange $cktval 0 end-1] {
-		     set pinstr [string map {"\\" "\\\\"} $pin]
-		     puts $fjson "        \"$pinstr\","
+		     puts $fjson "        \"$pin\","
 		  }
-		  set pin [string map {"\\" "\\\\"} [lindex $cktval end]]
+		  set pin [lindex $cktval end]
 		  puts $fjson "        \"$pin\""
 	          puts $fjson "      \]"
 		  if {$kidx == $nkeys} {
@@ -140,7 +138,7 @@ proc netgen::convert_to_json {filename lvs_final} {
 		     foreach net $cktval {
 			incr nidx
 	                puts $fjson "          \["
-			set netname [string map {"\\" "\\\\"} [lindex $net 0]]
+			set netname [string map {"\\" ""} [lindex $net 0]]
 		        puts $fjson "            \"$netname\","
 		        puts $fjson "            \["
 			set netconn [lindex $net 1]
@@ -171,7 +169,7 @@ proc netgen::convert_to_json {filename lvs_final} {
 		     foreach net $cktval {
 			incr nidx
 	                puts $fjson "          \["
-			set netname [string map {"\\" "\\\\"} [lindex $net 0]]
+			set netname [string map {"\\" ""} [lindex $net 0]]
 		        puts $fjson "            \"$netname\","
 		        puts $fjson "            \["
 			set netconn [lindex $net 1]
@@ -223,7 +221,7 @@ proc netgen::convert_to_json {filename lvs_final} {
 		     foreach inst $cktval {
 			incr iidx
 	                puts $fjson "          \["
-			set instname [string map {"\\" "\\\\"} [lindex $inst 0]]
+			set instname [lindex $inst 0]
 		        puts $fjson "            \"$instname\","
 		        puts $fjson "            \["
 			set instpins [lindex $inst 1]
@@ -252,7 +250,7 @@ proc netgen::convert_to_json {filename lvs_final} {
 		     foreach inst $cktval {
 			incr iidx
 	                puts $fjson "          \["
-			set instname [string map {"\\" "\\\\"} [lindex $inst 0]]
+			set instname [lindex $inst 0]
 		        puts $fjson "            \"$instname\","
 		        puts $fjson "            \["
 			set instpins [lindex $inst 1]
@@ -294,8 +292,8 @@ proc netgen::convert_to_json {filename lvs_final} {
 		  foreach instance $value {
 		     incr pidx
 	             puts $fjson "      \["
-		     set instnames [string map {"\\" "\\\\"} [lindex $instance 0]]
-		     set instname0 [string map {"\\" "\\\\"} [lindex $instnames 0]]
+		     set instnames [lindex $instance 0]
+		     set instname0 [lindex $instnames 0]
 	             puts $fjson "         \["
 		     puts $fjson "           \"${instname0}\","
 	             puts $fjson "           \["
@@ -312,7 +310,7 @@ proc netgen::convert_to_json {filename lvs_final} {
 		     puts $fjson "             \[\"${propname}\", \"${propval}\"\]"
 	             puts $fjson "           \]"
 	             puts $fjson "         \],"
-		     set instname1 [string map {"\\" "\\\\"} [lindex $instnames 1]]
+		     set instname1 [lindex $instnames 1]
 	             puts $fjson "         \["
 		     puts $fjson "           \"${instname1}\","
 	             puts $fjson "           \["
@@ -354,7 +352,7 @@ proc netgen::convert_to_json {filename lvs_final} {
    close $fjson
 }
 
-#-----------------------------------------------------------------------
+#----------------------------------------------------------------
 # Define the "lvs" command as a way of calling the netgen options
 # for standard compare, essentially the same as the old "netcomp"
 # standalone program.
@@ -363,20 +361,14 @@ proc netgen::convert_to_json {filename lvs_final} {
 # although if the cells have not been read in yet, then the
 # original syntax of filename or {filename cellname} is required.
 #
-# "args" may be "-list", "-json", or "-blackbox".
-#    "-list" returns output as a nested list.
-#    "-json" creates a .json-format output file in addition to stdout.
-#    "-blackbox" treats empty cells as black-box entries.
-#    "-noflatten={list}" is a list of cells not to flatten if mismatched.
-#    i.e., the cells are expected to match and any mismatch cannot be
-#    expected to be resolved by flattening the contents of the mismatched
-#    cells.
-#-----------------------------------------------------------------------
+# "args" is passed to verify and may therefore contain only the
+# value "-list" or nothing.  If "-list", then output is returned
+# as a nested list.
+#----------------------------------------------------------------
 
 proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
    set dolist 0
    set dojson 0
-   set noflat {}
    foreach arg $args {
       if {$arg == "-list"} {
 	 puts stdout "Generating list result"
@@ -390,30 +382,6 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
       } elseif {$arg == "-blackbox"} {
 	 puts stdout "Treating empty subcircuits as black-box cells"
 	 netgen::model blackbox on
-      } elseif {[string first "-noflatten=" $arg] == 0} {
-	 set value [string range $arg 11 end]
-	 # If argument is a filename then read the list of cells from it;
-	 # otherwise, argument is the list of files itself in quotes or
-	 # braces.
-	 if {[file exists $value]} {
-	    if {![catch {open $value r} fnf]} {
-	       while {[gets $fnf line] >= 0} {
-		  if {[lindex $line 0] != "#"} {
-		     foreach cell $line {
-		    	lappend noflat $cell
-		     }
-		  }
-	       }
-	       close $fnf
-	    } else {
-	       puts stderr "Cannot open file $value for reading cell list."
-	    }
-	 } else {
-	    set noflat [string trim $value \"\{\}]
-	 }
-	 if {[llength $noflat] > 0} {
-	    puts stdout "Will not flatten these subcells: $noflat"
-	 }
       }
    }
 
@@ -429,7 +397,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
          set file1 $name1
          set cell1 $name1
       }
-      puts stdout "Reading netlist file $file1 for $name1"
+      puts stdout "Reading netlist file $file1"
       set fnum1 [netgen::readnet $file1]
    } else {
       set cell1 [lindex $flist1 0]
@@ -446,7 +414,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
          set file2 $name2
          set cell2 $name2
       }
-      puts stdout "Reading netlist file $file2 for $name2"
+      puts stdout "Reading netlist file $file2"
       set fnum2 [netgen::readnet $file2]
    } else {
       set cell2 [lindex $flist2 0]
@@ -461,7 +429,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
    }
 
    set clist1 [cells list $fnum1]
-   set cidx [lsearch -exact $clist1 $cell1]
+   set cidx [lsearch -regexp $clist1 ^$cell1$]
    if {$cidx < 0} {
       puts stderr "Cannot find cell $cell1 in file $file1"
       return
@@ -469,7 +437,7 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
       set cell1 [lindex $clist1 $cidx]
    }
    set clist2 [cells list $fnum2]
-   set cidx [lsearch -exact $clist2 $cell2]
+   set cidx [lsearch -regexp $clist2 ^$cell2$]
    if {$cidx < 0} {
       puts stderr "Cannot find cell $cell2 in file $file2"
       return
@@ -477,26 +445,10 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
       set cell2 [lindex $clist2 $cidx]
    }
 
-   # The "noflat" list is non-file-specific, so run on each file.
-   foreach cell $noflat {
-      set cidx [lsearch -regexp $clist1 ^$cell$]
-      if {$cidx >= 0} {
-          netgen::flatten prohibit "$fnum1 $cell"
-      }
-      set cidx [lsearch -regexp $clist2 ^$cell$]
-      if {$cidx >= 0} {
-          netgen::flatten prohibit "$fnum2 $cell"
-      }
-   }
-
    netgen::compare assign "$fnum1 $cell1" "$fnum2 $cell2"
 
-   if {$setupfile == ""} {
-      puts stdout "\nNo setup file specified.  Using trivial default setup.\n"
-      netgen::permute default	;# transistors and resistors
-      netgen::property default
-   } elseif {[file exists $setupfile]} {
-      puts stdout "\nReading setup file $setupfile\n"
+   if {[file exists $setupfile]} {
+      puts stdout "Reading setup file $setupfile"
       # Instead of sourcing the setup file, run each line so we can
       # catch individual errors and not let them halt the LVS process
       set perrors 0
@@ -516,14 +468,6 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
 	    }
 	 }
 	 close $fsetup
-      	 if {$command != {}} {
-	    # Incomplete command.  Evaluate it to get a meaningful error message
-	    if {[catch {uplevel 1 [list namespace eval netgen $command]} msg]} {
-		set msg [string trimright $msg "\n"]
-		puts stderr "Error $setupfile:$sline (ignoring), $msg"
-		incr perrors
-	    }
-	 }
       } else {
 	 puts stdout "Error:  Cannot read the setup file $setupfile"
       }
@@ -532,10 +476,8 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
 	 puts stdout "Warning:  There were errors reading the setup file"
       }
    } elseif {[string first nosetup $setupfile] < 0} {
-      puts stderr "\nError:  Setup file $setupfile does not exist.\n"
-      return
-   } else {
-      puts stderr "\nNo setup file specified.  Continuing without a setup.\n"
+      netgen::permute default	;# transistors and resistors
+      netgen::property default
    }
 
    if {[string first nolog $logfile] < 0} {
@@ -559,25 +501,13 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
       return
    }
    set properr {}
-   set matcherr {}
-   set childMismatch 0		;# 1 indicates black-box child subcircuit mismatch
    while {$endval != {}} {
       if {$dolist == 1} {
          netgen::run -list converge
       } else {
          netgen::run converge
       }
-      set pinMismatch 0		;# indicates pin mismatch in top cell
-      set doCheckFlatten 0
-      set doFlatten 0
-      if {[netgen::print queue] == {}} {
-	 set doEquatePins 1 	;# run equate pins on top cell
-      } else {
-	 set doEquatePins 0	;# don't run equate pins unless unique match
-      }
-      set forceMatch 0		;# for pin matching
-      netgen::log echo off
-
+      netgen::log echo on
       if {[verify equivalent]} {
 	 # Resolve automorphisms by pin and property
 	 if {$dolist == 1} {
@@ -586,113 +516,48 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
             netgen::run resolve
 	 }
 	 set uresult [verify unique]
-	 # uresult:  -3 : unique with property error
-	 #	     -2 : equivalent with port errors
-	 #	     -1 : black box
-	 #	      0 : equivalent but not unique
-	 #	      1 : unique
          if {$uresult == 0} {
-	    netgen::log echo on
 	    netgen::log put "   Networks match locally but not globally.\n"
 	    netgen::log put "   Probably connections are swapped.\n"
 	    netgen::log put "   Check the end of logfile ${logfile} for implicated nodes.\n"
-	    netgen::log echo off
 	    if {$dolist == 1} {
 	       verify -list nodes
 	    } else {
 	       verify nodes
 	    }
-	    set doCheckFlatten 1
-	 } else {
-	    # Equate pins for black boxes, unique matches (possibly with property
-	    # errors), and unique with port errors
-	    set doEquatePins 1
-	 }
-	 if {$uresult == -1} {		;# black box
-	    set forceMatch 1
-	 } elseif {$uresult == -3} {	;# property error
-	    lappend properr [lindex $endval 0]
-	 } elseif {$uresult == -2} {	;# unmatched pins
-	    set doCheckFlatten 1
-	 } elseif {$uresult == -4} {	;# unmatched pins and properties
-	    lappend properr [lindex $endval 0]
-	    set doCheckFlatten 1
-	 }
-      } else {
-	 # not equivalent
-	 netgen::log echo on
-	 # netgen::log put "  DEBUG: not equivalent $endval\n"
-	 netgen::log echo off
-	 set doCheckFlatten 1
-      }
-      if {$doCheckFlatten} {
-	 # Flatten the non-matching subcircuit (but not the top-level cell,
-	 # or cells explicitly prohibited from flattening)
-	 if {[netgen::print queue] != {}} {
-	    if {([lsearch $noflat [lindex $endval 0]] == -1) &&
-			([lsearch $noflat [lindex $endval 1]] == -1)} {
-	       set doFlatten 1
-	    } else {	
-	       netgen::log echo on
-	       netgen::log put "  Continuing with black-boxed subcircuits $endval\n"
-	       netgen::log echo off
-	       lappend matcherr [lindex $endval 0]"($fnum1)"
-	       lappend matcherr [lindex $endval 1]"($fnum2)"
-	       netgen::flatten prohibit "[lindex $endval 0] $fnum1"
-	       netgen::flatten prohibit "[lindex $endval 1] $fnum2"
-	       set doEquatePins 1
-	       set childMismatch 1
-	       set forceMatch 1
-	    }
-	 }
-      }
-      if {$doEquatePins} {
-	 # Match pins
-	 if {$dolist == 1} {
-	    if {$forceMatch} {
-	       set result [equate -list -force pins "$fnum1 [lindex $endval 0]" \
-				"$fnum2 [lindex $endval 1]"]
-	    } else {
-	       set result [equate -list pins "$fnum1 [lindex $endval 0]" \
-				"$fnum2 [lindex $endval 1]"]
-	    }
-	 } else {
-	    if {$forceMatch} {
-	       set result [equate -force pins "$fnum1 [lindex $endval 0]" \
-				"$fnum2 [lindex $endval 1]"]
-	    } else {
-	       set result [equate pins "$fnum1 [lindex $endval 0]" \
-				"$fnum2 [lindex $endval 1]"]
-	    }
-	 }
-	 if {$result >= 0} {
-	    equate classes "$fnum1 [lindex $endval 0]" \
-		        "$fnum2 [lindex $endval 1]"
-	 }
-	 # Do not set pinMismatch for black boxes
-	 if {$result < 0} {
-	    if {$result == -1 && [netgen::print queue] != {} && $forceMatch != 1} {
-               # flatten pin mismatch, but not empty cells (-2) or top cell or
-	       # cells prohibited from flattening.
-	       set doFlatten 1
-	    }
-	 } elseif {[netgen::print queue] == {} && $result == 0} {
-	    set pinMismatch 1
-	 } else {
-	    # This assumes that proxy pins are added correctly.  Previously,
-	    # that was not trusted, and so an initial pin mismatch would
-	    # always force subcells to be flattened.
-	    set doFlatten 0
-	 }
-      }
-      if {$doFlatten} {
-	 netgen::log echo on
-	 netgen::log put "  Flattening non-matched subcircuits $endval\n"
-	 netgen::log echo off
-	 netgen::flatten class "[lindex $endval 0] $fnum1"
-	 netgen::flatten class "[lindex $endval 1] $fnum2"
-      }
 
+	    # Flatten the non-matching subcircuit (but not the top-level cells)
+            if {[netgen::print queue] != {}} {
+	       netgen::log put "  Flattening non-matched subcircuits $endval"
+	       netgen::flatten class "[lindex $endval 0] $fnum1"
+	       netgen::flatten class "[lindex $endval 1] $fnum2"
+	    }
+	 } else {
+	    # Match pins
+            netgen::log echo off
+	    if {$dolist == 1} {
+		set result [equate -list pins "$fnum1 [lindex $endval 0]" \
+				"$fnum2 [lindex $endval 1]"]
+	    } else {
+		set result [equate pins "$fnum1 [lindex $endval 0]" \
+				"$fnum2 [lindex $endval 1]"]
+	    }
+	    if {$result != 0} {
+		equate classes "$fnum1 [lindex $endval 0]" \
+			 "$fnum2 [lindex $endval 1]"
+	    }
+            netgen::log echo on
+	 }
+	 if {$uresult == 2} {lappend properr [lindex $endval 0]}
+      } else {
+	 # Flatten the non-matching subcircuit (but not the top-level cells)
+         if {[netgen::print queue] != {}} {
+	    netgen::log put "  Flattening non-matched subcircuits $endval"
+	    netgen::flatten class "[lindex $endval 0] $fnum1"
+	    netgen::flatten class "[lindex $endval 1] $fnum2"
+	 }
+      }
+      netgen::log echo off
       if {$dolist == 1} {
          catch {lappend lvs_final $lvs_out}
          set lvs_out {}
@@ -701,23 +566,12 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
          set endval [netgen::compare hierarchical]
       }
    }
+   netgen::log echo off
+   puts stdout "Result: " nonewline
    netgen::log echo on
-   netgen::log put "\nFinal result: "
-   if {$pinMismatch || $childMismatch} {
-      if {$childMismatch} {
-	 netgen::log put "Subcell(s) failed matching.\n"
-      }
-      if {$pinMismatch} {
-	 netgen::log put "Top level cell failed pin matching.\n"
-      }
-   } else {
-      verify only
-   }
+   verify only
    if {$properr != {}} {
-      netgen::log put "\nThe following cells had property errors:\n " [regsub -all { } $properr "\n "] "\n"
-   }
-   if {$matcherr != {}} {
-      netgen::log put "\nThe following subcells failed to match:\n " [regsub -all { } $matcherr "\n "] "\n"
+      netgen::log put "The following cells had property errors: $properr\n"
    }
    if {$dolog} {
       netgen::log end
@@ -769,19 +623,6 @@ set auto_noexec 1       ;# don't EVER call UNIX commands w/o "shell" in front
 # Cross-Application section
 #----------------------------------------------------------------------
 
-# For use with open_pdks, set PDK_ROOT from the environment.  If no
-# such environment variable exists, check some common locations.
-
-if {[catch {set PDK_ROOT $::env(PDK_ROOT)}]} {
-    if {[file isdir /usr/local/share/pdk] == 1} {
-	set PDK_ROOT /usr/local/share/pdk
-    } elseif {[file isdir /usr/share/pdk] == 1} {
-	set PDK_ROOT /usr/share/pdk
-    } elseif {[file isdir /foss/pdk] == 1} {
-	set PDK_ROOT /foss/pdk
-    }
-}
-
 # Setup IRSIM assuming that the Tcl version is installed.
 # We do not need to rename procedure irsim to NULL because it is
 # redefined in a script, which simply overwrites the original.

tcltk/tkcon.tcl

@@ -44,8 +44,6 @@ exec ${NETGEN_WISH:=wish} "$0" ${1+"$@"}
 if {$tcl_version < 8.0} {
     return -code error "tkcon requires at least Tcl/Tk8"
 } else {
-    # Prevent breaking on version 8.5.2
-    # package require -exact Tk $tcl_version
     package require Tk $tcl_version
 }
 
@@ -61,6 +59,18 @@ foreach pkg [info loaded {}] {
 }
 catch {unset pkg file name version}
 
+# Tk 8.4 makes previously exposed stuff private.
+# FIX: Update tkcon to not rely on the private Tk code.
+#
+if {![llength [info globals tkPriv]]} {
+    ::tk::unsupported::ExposePrivateVariable tkPriv
+}
+foreach cmd {SetCursor UpDownLine Transpose ScrollPages} {
+    if {![llength [info commands tkText$cmd]]} {
+        ::tk::unsupported::ExposePrivateCommand tkText$cmd
+    }
+}
+
 # Initialize the ::tkcon namespace
 #
 namespace eval ::tkcon {
@@ -186,7 +196,7 @@ proc ::tkcon::Init {} {
 	    tkcon_puts tkcon_gets observe observe_var unalias which what
 	}
 	version		2.3
-	RCS		{RCS: @(#) $Id: tkcon.tcl,v 1.2 2008/04/18 16:28:13 tim Exp $}
+	RCS		{RCS: @(#) $Id: tkcon.tcl,v 1.2 2008/05/23 00:20:17 tim Exp $}
 	HEADURL		{http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/tkcon/tkcon/tkcon.tcl?rev=HEAD}
 	docs		"http://tkcon.sourceforge.net/"
 	email		{jeff@hobbs.org}
@@ -731,11 +741,11 @@ proc ::tkcon::EvalCmd {w cmd} {
 		    set tag [UniqueTag $w]
 		    $w insert output $res [list stderr $tag] \n stderr
 		    $w tag bind $tag <Enter> \
-			    [list $w tag configure $tag -underline 1]
+			    [list $w tag configure $tag -under 1]
 		    $w tag bind $tag <Leave> \
-			    [list $w tag configure $tag -underline 0]
+			    [list $w tag configure $tag -under 0]
 		    $w tag bind $tag <ButtonRelease-1> \
-			    "if {!\[info exists ::tk::Priv(mouseMoved)\] || !\$::tk::Priv(mouseMoved)} \
+			    "if {!\[info exists tkPriv(mouseMoved)\] || !\$tkPriv(mouseMoved)} \
 			    {[list edit -attach [Attach] -type error -- $PRIV(errorInfo)]}"
 		} else {
 		    $w insert output $res\n stderr
@@ -2462,9 +2472,9 @@ proc ::tkcon::ErrorHighlight w {
 	    set tag [UniqueTag $w]
 	    $w tag add $tag $start+${c0}c $start+1c+${c1}c
 	    $w tag configure $tag -foreground $COLOR(stdout)
-	    $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
-	    $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
-	    $w tag bind $tag <ButtonRelease-1> "if {!\$::tk::Priv(mouseMoved)} \
+	    $w tag bind $tag <Enter> [list $w tag configure $tag -under 1]
+	    $w tag bind $tag <Leave> [list $w tag configure $tag -under 0]
+	    $w tag bind $tag <ButtonRelease-1> "if {!\$tkPriv(mouseMoved)} \
 		    {[list edit -attach $app -type proc -find $what -- $cmd]}"
 	}
 	set info [string range $info $c1 end]
@@ -2491,9 +2501,9 @@ proc ::tkcon::ErrorHighlight w {
 	    set tag [UniqueTag $w]
 	    $w tag add $tag $ix+1c $start
 	    $w tag configure $tag -foreground $COLOR(proc)
-	    $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
-	    $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
-	    $w tag bind $tag <ButtonRelease-1> "if {!\$::tk::Priv(mouseMoved)} \
+	    $w tag bind $tag <Enter> [list $w tag configure $tag -under 1]
+	    $w tag bind $tag <Leave> [list $w tag configure $tag -under 0]
+	    $w tag bind $tag <ButtonRelease-1> "if {!\$tkPriv(mouseMoved)} \
 		    {[list edit -attach $app -type proc -- $cmd]}"
 	}
     }
@@ -2542,8 +2552,8 @@ proc tkcon {cmd args} {
 	    ## 'congets' a replacement for [gets stdin]
 	    # Use the 'gets' alias of 'tkcon_gets' command instead of
 	    # calling the *get* methods directly for best compatability
-	    if {[llength $args] > 1} {
-		return -code error "wrong # args: must be \"tkcon congets [pfix]\""
+	    if {[llength $args]} {
+		return -code error "wrong # args: must be \"tkcon congets\""
 	    }
 	    tkcon show
 	    set old [bind TkConsole <<TkCon_Eval>>]
@@ -2551,12 +2561,7 @@ proc tkcon {cmd args} {
 	    set w $::tkcon::PRIV(console)
 	    # Make sure to move the limit to get the right data
 	    $w mark set insert end
-	    if {[llength $args]} {
-		$w mark set limit insert
-		$w insert end $args
-	    } else {
-	        $w mark set limit insert
-	    }
+	    $w mark set limit insert
 	    $w see end
 	    vwait ::tkcon::PRIV(wait)
 	    set line [::tkcon::CmdGet $w]
@@ -2793,19 +2798,13 @@ proc tkcon_puts args {
     foreach {arg1 arg2 arg3} $args { break }
 
     if {$len == 1} {
-	set sarg $arg1
-	set nl   1
-	set farg stdout
+	tkcon console insert output "$arg1\n" stdout
     } elseif {$len == 2} {
 	if {![string compare $arg1 -nonewline]} {
-	    set sarg $arg2
-	    set farg stdout
-	    set nl 0
+	    tkcon console insert output $arg2 stdout
 	} elseif {![string compare $arg1 stdout] \
 		|| ![string compare $arg1 stderr]} {
-	    set sarg $arg2
-	    set farg $arg1
-	    set nl 1
+	    tkcon console insert output "$arg2\n" $arg1
 	} else {
 	    set len 0
 	}
@@ -2813,15 +2812,11 @@ proc tkcon_puts args {
 	if {![string compare $arg1 -nonewline] \
 		&& (![string compare $arg2 stdout] \
 		|| ![string compare $arg2 stderr])} {
-	    set sarg $arg3
-	    set farg $arg2
-	    set nl 0
+	    tkcon console insert output $arg3 $arg2
 	} elseif {(![string compare $arg1 stdout] \
 		|| ![string compare $arg1 stderr]) \
 		&& ![string compare $arg3 nonewline]} {
-	    set sarg $arg2
-	    set farg $arg1
-	    set nl 0
+	    tkcon console insert output $arg2 $arg1
 	} else {
 	    set len 0
 	}
@@ -2831,42 +2826,7 @@ proc tkcon_puts args {
 
     ## $len == 0 means it wasn't handled by tkcon above.
     ##
-
-    if {$len != 0} {
-
-	## "poor man's" \r substitution---erase everything on the output
-	## line and print from character after the \r
-
-	set rpt [string last \r $sarg]
-	if {$rpt >= 0} {
-	    tkcon console delete "insert linestart" "insert lineend"
-	    set sarg [string range $sarg [expr {$rpt + 1}] end]
-	}
-
-	set bpt [string first \b $sarg]
-	if {$bpt >= 0} {
-	    set narg [string range $sarg [expr {$bpt + 1}] end]
-	    set sarg [string range $sarg 0 [expr {$bpt - 1}]]
-	    set nl 0
-	}
-
-
-	if {$nl == 0} {
-	    tkcon console insert output $sarg $farg
-	} else {
-	    tkcon console insert output "$sarg\n" $farg
-	}
-
-	if {$bpt >= 0} {
-	    tkcon console delete "insert -1 char" insert
-	    if {$nl == 0} {
-		tkcon_puts $farg $narg nonewline
-	    } else {
-		tkcon_puts $farg $narg
-	    }
-	}
-
-    } else {
+    if {$len == 0} {
 	global errorCode errorInfo
 	if {[catch "tkcon_tcl_puts $args" msg]} {
 	    regsub tkcon_tcl_puts $msg puts msg
@@ -2994,14 +2954,14 @@ proc edit {args} {
 	##
 	set text $w.text
 	set m [menu [::tkcon::MenuButton $menu Edit edit]]
-	$m add command -label "Cut"   -underline 2 \
+	$m add command -label "Cut"   -under 2 \
 		-command [list tk_textCut $text]
-	$m add command -label "Copy"  -underline 0 \
+	$m add command -label "Copy"  -under 0 \
 		-command [list tk_textCopy $text]
-	$m add command -label "Paste" -underline 0 \
+	$m add command -label "Paste" -under 0 \
 		-command [list tk_textPaste $text]
 	$m add separator
-	$m add command -label "Find" -underline 0 \
+	$m add command -label "Find" -under 0 \
 		-command [list ::tkcon::FindBox $text]
 
 	## Send To Menu
@@ -4146,7 +4106,7 @@ proc ::tkcon::Bindings {} {
     global tcl_platform tk_version
 
     #-----------------------------------------------------------------------
-    # Elements of ::tk::Priv that are used in this file:
+    # Elements of tkPriv that are used in this file:
     #
     # char -		Character position on the line;  kept in order
     #			to allow moving up or down past short lines while
@@ -4174,9 +4134,6 @@ proc ::tkcon::Bindings {} {
     foreach ev [bind Text] { bind TkConsole $ev [bind Text $ev] }	
     ## We really didn't want the newline insertion
     bind TkConsole <Control-Key-o> {}
-
-    ## in 8.6b3, the virtual events <<NextLine>> and <<PrevLine>>
-    #  mess up our history feature
     bind TkConsole <<NextLine>> {}
     bind TkConsole <<PrevLine>> {}
 
@@ -4385,9 +4342,9 @@ proc ::tkcon::Bindings {} {
 
     bind TkConsole <Control-a> {
 	if {[%W compare {limit linestart} == {insert linestart}]} {
-	    ::tk::TextSetCursor %W limit
+	    tkTextSetCursor %W limit
 	} else {
-	    ::tk::TextSetCursor %W {insert linestart}
+	    tkTextSetCursor %W {insert linestart}
 	}
     }
     bind TkConsole <Key-Home> [bind TkConsole <Control-a>]
@@ -4411,14 +4368,14 @@ proc ::tkcon::Bindings {} {
     }
     bind TkConsole <<TkCon_Previous>> {
 	if {[%W compare {insert linestart} != {limit linestart}]} {
-	    ::tk::TextSetCursor %W [::tk::TextUpDownLine %W -1]
+	    tkTextSetCursor %W [tkTextUpDownLine %W -1]
 	} else {
 	    ::tkcon::Event -1
 	}
     }
     bind TkConsole <<TkCon_Next>> {
 	if {[%W compare {insert linestart} != {end-1c linestart}]} {
-	    ::tk::TextSetCursor %W [::tk::TextUpDownLine %W 1]
+	    tkTextSetCursor %W [tkTextUpDownLine %W 1]
 	} else {
 	    ::tkcon::Event 1
 	}
@@ -4433,7 +4390,7 @@ proc ::tkcon::Bindings {} {
     }
     bind TkConsole <<TkCon_Transpose>>	{
 	## Transpose current and previous chars
-	if {[%W compare insert > "limit+1c"]} { ::tk::TextTranspose %W }
+	if {[%W compare insert > "limit+1c"]} { tkTextTranspose %W }
     }
     bind TkConsole <<TkCon_ClearLine>> {
 	## Clear command line (Unix shell staple)
@@ -4451,10 +4408,10 @@ proc ::tkcon::Bindings {} {
 	::tkcon::Insert %W $::tkcon::PRIV(tmp)
 	%W see end
     }
-    catch {bind TkConsole <Key-Page_Up>   { ::tk::TextScrollPages %W -1 }}
-    catch {bind TkConsole <Key-Prior>     { ::tk::TextScrollPages %W -1 }}
-    catch {bind TkConsole <Key-Page_Down> { ::tk::TextScrollPages %W 1 }}
-    catch {bind TkConsole <Key-Next>      { ::tk::TextScrollPages %W 1 }}
+    catch {bind TkConsole <Key-Page_Up>   { tkTextScrollPages %W -1 }}
+    catch {bind TkConsole <Key-Prior>     { tkTextScrollPages %W -1 }}
+    catch {bind TkConsole <Key-Page_Down> { tkTextScrollPages %W 1 }}
+    catch {bind TkConsole <Key-Next>      { tkTextScrollPages %W 1 }}
     bind TkConsole <$PRIV(meta)-d> {
 	if {[%W compare insert >= limit]} {
 	    %W delete insert {insert wordend}
@@ -4472,7 +4429,7 @@ proc ::tkcon::Bindings {} {
     }
     bind TkConsole <ButtonRelease-2> {
 	if {
-	    (!$::tk::Priv(mouseMoved) || $tk_strictMotif) &&
+	    (!$tkPriv(mouseMoved) || $tk_strictMotif) &&
 	    ![catch {::tkcon::GetSelection %W} ::tkcon::PRIV(tmp)]
 	} {
 	    if {[%W compare @%x,%y < limit]} {