diff --git a/Makefile b/Makefile
index 917cfcab7ef22ca0e21d1a51c927fbdfd9e6b4f3..b0da43adc8992ebdab25d66e0717755fcebe62a4 100644
--- a/Makefile
+++ b/Makefile
@@ -112,7 +112,7 @@ ANAOBJ = $(TARGET_DIR)/ana/globals.o $(TARGET_DIR)/ana/nsolver.o \
$(TARGET_DIR)/ana/pwl.o $(TARGET_DIR)/ana/rtd.o
SIMOBJ = $(TARGET_DIR)/logcom.o $(DIGOBJ) $(ANAOBJ)
-TOOLOBJ = $(SIMOBJ) $(TARGET_DIR)/logntk.o \
+TOOLOBJ = $(SIMOBJ) \
$(TARGET_DIR)/label.o $(TARGET_DIR)/wire.o \
$(TARGET_DIR)/page.o $(TARGET_DIR)/gate.o \
$(TARGET_DIR)/screen.o $(TARGET_DIR)/node.o \
diff --git a/include/logntk.h b/include/logntk.h
deleted file mode 100644
index 429c06db30cdbca9b848aa0300940bb09ecde4bd..0000000000000000000000000000000000000000
--- a/include/logntk.h
+++ /dev/null
@@ -1,17 +0,0 @@
-#ifndef LOGNTK_H
-#define LOGNTK_H
-
-#include "logdef.h"
-#include "loghier.h"
-#include <utils/newasm.h>
-#include <graphics/newkbd.h>
-#include <graphics/newci.h>
-#include <graphics/newcrt.h>
-#include <graphics/mylib.h>
-#include <utils/regex.h>
-
-extern void Log_logntk_proc (log_action_t *act);
-
-#endif /*LOGNTK_H*/
-
-
diff --git a/src/logntk.c b/src/logntk.c
deleted file mode 100644
index 5b97674639b19b88c40eaded92fe40572c831cf5..0000000000000000000000000000000000000000
--- a/src/logntk.c
+++ /dev/null
@@ -1,1745 +0,0 @@
-/* Output from p2c, the Pascal-to-C translator */
-/* From input file "logntk.text" */
-
-
-/* "LOG", the circuit editing and simulation system,
- "DigLOG", the digital simulator for LOG.
- Copyright (C) 1985, 1990 David Gillespie.
- Author's address: daveg@csvax.caltech.edu; 256-80 Caltech/Pasadena CA 91125.
-
- "AnaLOG", the analog simulator for LOG.
- Copyright (C) 1985, 1990 John Lazzaro.
- Author's address: lazzaro@csvax.caltech.edu; 256-80 Caltech.
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation (any version).
-
-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
-
-
-/*caged_process='newcom -g $F$M'*/
-
-/* LOG-to-NTK converter David Gillespie 2/14/86 */
-/* version for LOG 4.1 */
-
-/* Modified 11/13/86 to fix case-sensitivity problems */
-/* Modified 12/16/86 to fix mossim problems */
-/* Modified 7/27/88 to support digital hierarchy */
-
-#include <string.h>
-#include <utils/p2c.h>
-#include <utils/strings.h>
-#include "logntk.h"
-#include "node.h"
-
-
-#define main_name "-Main-"
-
-
-
-typedef enum {
- top_yes, top_maybe, top_no
-} topnesskind;
-
-
-
-typedef struct transrec {
- char name[82];
- char kind;
- signed char strength;
- struct transrec *next;
-} transrec;
-
-typedef struct cellrec {
- char name[82], cname[82];
- char fname[256];
- strlist_t *port;
- long ccount;
- unsigned loaded : 1, complain1 : 1;
- struct cellrec *next;
-} cellrec;
-
-typedef struct primrec {
- char name[82], cname[82];
- long ccount;
- struct primrec *next;
-} primrec;
-
-
-static transrec *transbase, *savetransbase;
-static cellrec *cellbase, *savecellbase;
-static primrec *primbase, *saveprimbase;
-static strlist_t *filebase, *filecellbase;
-static int autotop, maincell;
-static long default_size, default_strength;
-static strlist_t *saveglobals, *saveorphans, *saveignored, *saveprims,
- *savetrans, *savelibdirs, *ports, *globals, *orphans,
- *ignored, *prims, *trans, *libdirs, *notfoundlist,
- *wignlist;
-static log_grec *gtempl;
-static log_brec *mybox;
-static topnesskind topness, savetopness;
-static int john_L_mode, savejohn;
-static short identifycolor, nodecount;
-static char *filename, *cellname;
-static char nodeprefix[11];
-
-
-
-
-
-static strlist_t *strlist_find_r(l1, wrd_)
-strlist_t *l1;
-char *wrd_;
-{
- char wrd[256];
-
- strcpy(wrd, wrd_);
- while (l1 != NULL && !re_compare(wrd, l1->s))
- l1 = l1->next;
- return l1;
-}
-
-
-
-
-
-
-
-static int tryreset(f, fn)
-FILE **f;
-char *fn;
-{
- strlist_t *l1;
- char buf[256];
- int found;
-
- if (strlist_find(notfoundlist, fn) != NULL) {
- found = false;
- return found;
- }
- if (*f != NULL)
- *f = freopen(fn, "r", *f);
- else
- *f = fopen(fn, "r");
- _SETIO(*f != NULL, FileNotFound);
- found = (P_ioresult == 0);
- l1 = libdirs;
- while (!found && l1 != NULL) {
- strcpy(buf, l1->s);
- if (!strends(buf, ":") && !strends(buf, "/"))
- strcat(buf, "/");
- strcat(buf, fn);
- if (*f != NULL)
- *f = freopen(buf, "r", *f);
- else
- *f = fopen(buf, "r");
- _SETIO(*f != NULL, FileNotFound);
- if (P_ioresult == 0) {
- found = true;
- strcpy(fn, buf);
- }
- l1 = l1->next;
- }
- if (!found)
- l1 = strlist_add(¬foundlist, fn);
- return found;
-}
-
-
-/* Local variables for Log_logntk_proc: */
-struct LOC_Log_logntk_proc {
- log_action_t *act;
- int errflag;
-} ;
-
-
-static void message(s_, LINK)
-char *s_;
-struct LOC_Log_logntk_proc *LINK;
-{
- char s[256];
- char STR1[256];
-
- strcpy(s, s_);
- sprintf(STR1, "LOGNTK: %s", s);
- (*LINK->act->hook.message)(STR1);
-}
-
-
-static void emessage(s_, LINK)
-char *s_;
-struct LOC_Log_logntk_proc *LINK;
-{
- char s[256];
- char STR1[256];
-
- strcpy(s, s_);
- sprintf(STR1, "LOGNTK: %s", s);
- (*LINK->act->hook.message)(STR1);
- LINK->errflag = true;
-}
-
-
-static void vmessage(s_, LINK)
-char *s_;
-struct LOC_Log_logntk_proc *LINK;
-{
- char s[256];
- char STR1[256];
-
- strcpy(s, s_);
- sprintf(STR1, "LOGNTK: %s", s);
- (*LINK->act->hook.vmessage)(STR1);
-}
-
-
-static void addlabel(s_, LINK)
-char *s_;
-struct LOC_Log_logntk_proc *LINK;
-{
- char s[256];
- log_lrec *l1;
-
- strcpy(s, s_);
- (*LINK->act->hook.addlabel)(&l1, s);
-}
-
-
-static void getword(buf, w, LINK)
-char *buf, *w;
-struct LOC_Log_logntk_proc *LINK;
-{
- (*LINK->act->hook.getword)(buf, w); /*converts to upper case*/
-}
-
-
-static void getint(buf, i, def, LINK)
-char *buf;
-long *i, def;
-struct LOC_Log_logntk_proc *LINK;
-{
- (*LINK->act->hook.getint)(buf, i, def);
-}
-
-
-static void readstrlist(buf, l1, LINK)
-char *buf;
-strlist_t **l1;
-struct LOC_Log_logntk_proc *LINK;
-{
- strlist_t *l2;
- char arg[256];
-
- do {
- strword(buf, arg);
- if (*arg != '\0')
- l2 = strlist_append(l1, arg);
- } while (*buf != '\0');
-}
-
-
-static void readstrlista(buf, l1, LINK)
-char *buf;
-strlist_t **l1;
-struct LOC_Log_logntk_proc *LINK;
-{
- strlist_t *l2;
- char arg[256];
-
- do {
- strword(buf, arg);
- if (*arg != '\0') {
- if (strlist_find(*l1, arg) == NULL)
- l2 = strlist_append(l1, arg);
- }
- } while (*buf != '\0');
-}
-
-
-static void readstrlistr(buf, l1, named, LINK)
-char *buf;
-strlist_t **l1;
-int named;
-struct LOC_Log_logntk_proc *LINK;
-{
- strlist_t *l2;
- char arg[256], rex[256];
-
- do {
- strword(buf, arg);
- if (*arg != '\0') {
- re_cicompile(arg, rex, re_shellchars);
- if (strlist_find(*l1, rex) == NULL) {
- l2 = strlist_append(l1, rex);
- if (named)
- *(char **)((char **)(&l2->value)) = strdup(arg);
- }
- }
- } while (*buf != '\0');
-}
-
-
-static void addcell(c1, name, cname, fname, LINK)
-cellrec **c1;
-char *name, *cname, *fname;
-struct LOC_Log_logntk_proc *LINK;
-{
- *c1 = (cellrec *)Malloc(sizeof(cellrec));
- strcpy((*c1)->name, name);
- strcpy((*c1)->cname, cname);
- strcpy((*c1)->fname, fname);
- (*c1)->port = NULL;
- (*c1)->loaded = false;
- (*c1)->complain1 = false;
- (*c1)->ccount = 0;
- (*c1)->next = cellbase;
- cellbase = *c1;
-}
-
-static void docommand(buf1_, buf_, complain, LINK)
-char *buf1_, *buf_;
-int complain;
-struct LOC_Log_logntk_proc *LINK;
-{
- char buf1[256], buf[256], buf2[256], buf3[256];
- cellrec *c1;
- transrec *t1;
- primrec *p1;
- strlist_t *l1;
- long i;
- char STR1[256];
- char STR3[256];
-
- strcpy(buf1, buf1_);
- strcpy(buf, buf_);
- if (*buf1 == '\0')
- getword(buf, buf1, LINK);
- if (strends(buf1, ":"))
- buf1[strlen(buf1) - 1] = '\0';
- if (!strcmp(buf1, "PORT") || !strcmp(buf1, "PORTS")) {
- do {
- strword(buf, buf2);
- if (*buf2 != '\0') {
- if (strlist_cifind(ports, buf2) != NULL) {
- sprintf(STR3, "Warning: %s appears more than once on port list",
- strupper(STR1, buf2));
- message(STR3, LINK);
- } else
- l1 = strlist_append(&ports, buf2);
- }
- } while (*buf2 != '\0');
- return;
- }
- if (!strcmp(buf1, "GLOBAL") || !strcmp(buf1, "GLOBALS")) {
- readstrlistr(buf, &globals, false, LINK);
- return;
- }
- if (!strcmp(buf1, "ORPHAN") || !strcmp(buf1, "ORPHANS")) {
- readstrlistr(buf, &orphans, false, LINK);
- return;
- }
- if (!strcmp(buf1, "IGNORE")) {
- readstrlistr(buf, &ignored, false, LINK);
- return;
- }
- if (!strcmp(buf1, "LIB")) {
- readstrlista(buf, &libdirs, LINK);
- return;
- }
- if (!strcmp(buf1, "FILE")) {
- strword2(buf, filename);
- return;
- }
- if (!strcmp(buf1, "NAME"))
- return;
- /*handled elsewhere*/
- if (!strcmp(buf1, "SIZE")) {
- getint(buf, &default_size, default_size, LINK);
- return;
- }
- if (!strcmp(buf1, "STRENGTH")) {
- getint(buf, &default_strength, default_strength, LINK);
- return;
- }
- if (!strcmp(buf1, "CELL")) {
- strword2(buf, buf1);
- strword2(buf, buf2);
- strword2(buf, buf3);
- if (*buf1 == '\0')
- return;
- if (*buf2 == '\0')
- strcpy(buf2, buf1);
- if (*buf3 == '\0')
- strcpy(buf3, buf2);
- newci_fixfname(buf3, "ntk", "");
- addcell(&c1, buf1, buf2, buf3, LINK);
- return;
- }
- if (!strcmp(buf1, "TRANS")) {
- getword(buf, buf1, LINK);
- getword(buf, buf2, LINK);
- if (strlen(buf2) != 1 ||
- (buf2[0] != 'D' && buf2[0] != 'P' && buf2[0] != 'N')) {
- message("Syntax error in TRANS command", LINK);
- return;
- }
- t1 = (transrec *)Malloc(sizeof(transrec));
- strcpy(t1->name, buf1);
- t1->kind = buf2[0];
- getint(buf, &i, 0L, LINK);
- t1->strength = i;
- t1->next = transbase;
- transbase = t1;
- l1 = strlist_add(&trans, buf1);
- return;
- }
- if (!strcmp(buf1, "PRIM") || !strcmp(buf1, "PRIMITIVE")) {
- getword(buf, buf1, LINK);
- getword(buf, buf2, LINK);
- if (*buf1 == '\0')
- return;
- p1 = (primrec *)Malloc(sizeof(primrec));
- re_cicompile(buf1, buf3, re_shellchars);
- strcpy(p1->name, buf3);
- l1 = strlist_add(&prims, buf3);
- if (*buf2 != '\0') {
- re_cicompile(buf2, buf3, re_shellchars);
- strcpy(p1->cname, buf3);
- } else
- *p1->cname = '\0';
- p1->ccount = 0;
- p1->next = primbase;
- primbase = p1;
- return;
- }
- if (!strcmp(buf1, "DIGITAL"))
- return;
- /* ignore -- obsolete */
- if (!strcmp(buf1, "TOP")) {
- topness = top_yes;
- john_L_mode = false;
- return;
- }
- if (!strcmp(buf1, "LEAF")) {
- topness = top_no;
- return;
- }
- if (!strcmp(buf1, "NOTOP"))
- john_L_mode = true;
- else if (complain) {
- sprintf(STR3, "Can't understand command: %s", buf1);
- message(STR3, LINK);
- }
-}
-
-
-static void namenode(n, LINK)
-log_nrec *n;
-struct LOC_Log_logntk_proc *LINK;
-{
- char buf[256], buf2[256];
- strlist_t *l1;
- long i, FORLIM;
-
- if ((char *)n->temp != NULL)
- return;
- *buf = '\0';
- *buf2 = '\0';
- FORLIM = LINK->act->lastsignal;
- for (i = 0; i < FORLIM; i++) {
- if (LINK->act->signaltab[i].np == n) {
- strcpy(buf, LINK->act->signaltab[i].name);
- l1 = strlist_cifind(ports, buf);
- if (l1 != NULL)
- strcpy(buf2, l1->s);
- }
- }
- if (*buf2 != '\0') {
- *(char **)((char **)(&n->temp)) = strdup(buf2);
- return;
- }
- if (*buf != '\0') {
- *(char **)((char **)(&n->temp)) = strdup(buf);
- return;
- }
- nodecount++;
- if (!strcmp(nodeprefix, "node"))
- sprintf(buf, "%s%d", nodeprefix, nodecount);
- else if (nodecount <= 26)
- sprintf(buf, "%s%c", nodeprefix, nodecount + 64);
- else {
- sprintf(buf, "%s%c%c",
- nodeprefix, (nodecount - 1) / 26 + 65, (nodecount - 1) % 26 + 65);
-/* p2c: logntk.text, line 408:
- * Note: Using % for possibly-negative arguments [317] */
- }
- *(char **)((char **)(&n->temp)) = strdup(buf);
-}
-
-
-static int trynamegate(g, LINK)
-log_grec *g;
-struct LOC_Log_logntk_proc *LINK;
-{
- char name[256];
-
- if ((char *)g->temp != NULL)
- return true;
- else {
- gateinstname(name, g);
- if (*name != '\0') {
- *(char **)((char **)(&g->temp)) = strdup(name);
- return true;
- } else
- return false;
- }
-}
-
-
-static void namecellgates(c, LINK)
-cellrec *c;
-struct LOC_Log_logntk_proc *LINK;
-{
- log_grec *g;
- log_nrec **portlist;
- long lastn, laste, lasts, lastw;
- short *pnumlist;
- short i;
- char STR1[256];
- char STR3[256];
-
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g) && strcicmp(c->name, gateinstof(STR1, g)) == 0) {
- if (!trynamegate(g, LINK)) {
- c->ccount++;
- sprintf(STR3, "%s%ld", c->cname, c->ccount);
- *(char **)((char **)(&g->temp)) = strdup(STR3);
- }
- portlist = (log_nrec **)Malloc(g->kind->numpins * sizeof(log_nrec *));
- pnumlist = NULL;
- examinetemplate(g, portlist, (long)g->kind->numpins, isgenericinstgate(g),
- &pnumlist, &lastn, &laste, &lasts, &lastw);
- for (i = 0; i < lastw; i++)
- namenode(portlist[i], LINK);
- Free(portlist);
- Free(pnumlist);
- }
- g = g->next;
- }
-}
-
-
-static void nameprimgates(p, LINK)
-primrec *p;
-struct LOC_Log_logntk_proc *LINK;
-{
- char buf[256];
- log_grec *g;
- short i;
- long pos, last;
- char STR3[256];
- short FORLIM;
-
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g) && re_compare(g->kind->name, p->name)) {
- if (!trynamegate(g, LINK)) {
- strcpy(buf, g->kind->name);
- if (*p->cname != '\0') {
- pos = 1;
- re_replace(buf, p->name, p->cname, &pos, &last);
- }
- p->ccount++;
- sprintf(STR3, "%s_%ld", buf, p->ccount);
- *(char **)((char **)(&g->temp)) = strdup(STR3);
- }
- FORLIM = g->kind->numpins;
- for (i = 0; i < FORLIM; i++)
- namenode(g->pin[i], LINK);
- }
- g = g->next;
- }
-}
-
-
-static void prolog(args_, bp, LINK)
-char *args_;
-log_brec *bp;
-struct LOC_Log_logntk_proc *LINK;
-{
- char args[256];
- log_lrec *lb1;
- cellrec *c;
- transrec *t;
- primrec *p;
- char buf[256], buf2[256];
- log_nrec **portlist;
- strlist_t *l1;
- long i, tcount, lastn, laste, lasts, lastw;
- short pnum;
- short *pnumlist;
- log_nrec *n;
- log_grec *g;
- char STR1[256];
- char STR3[256];
- long FORLIM;
-
- strcpy(args, args_);
- strlist_empty(&ports);
- strlist_copy(&saveglobals, globals);
- strlist_copy(&saveorphans, orphans);
- strlist_copy(&saveignored, ignored);
- strlist_copy(&saveprims, prims);
- strlist_copy(&savetrans, trans);
- strlist_copy(&savelibdirs, libdirs);
- savetopness = topness;
- savejohn = john_L_mode;
- *filename = '\0';
- strcpy(cellname, args);
- mybox = bp;
- c = cellbase;
- while (c != NULL) {
- c->port = NULL;
- c->ccount = 0;
- c->loaded = false;
- c->complain1 = false;
- c = c->next;
- }
- p = primbase;
- while (p != NULL) {
- p->ccount = 0;
- p = p->next;
- }
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- g->temp = (na_long)NULL;
- g = g->next;
- }
- n = LINK->act->nbase;
- while (n != NULL) {
- n->temp = (na_long)NULL;
- n = n->next;
- }
- savecellbase = cellbase;
- savetransbase = transbase;
- saveprimbase = primbase;
- filebase = NULL;
- filecellbase = NULL;
- notfoundlist = NULL;
- wignlist = NULL;
- maincell = (strcmp(cellname, main_name) == 0);
- lb1 = LINK->act->pages[LINK->act->curpage - 1]->lbase;
- while (lb1 != NULL) {
- if (labelinbox(mybox, lb1) && commandlabel(lb1, buf, buf2))
- docommand(buf, buf2, false, LINK);
- lb1 = lb1->next;
- }
- tcount = 0;
- nodecount = 0;
- strcpy(nodeprefix, "port");
- gtempl = NULL;
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- if (!maincell) {
- while (g != NULL) {
- if (gateinbox(mybox, g)) {
- if (strcicmp(gateinstof(STR1, g), cellname) == 0) {
- if (gtempl != NULL || ports != NULL) {
- sprintf(STR3, "Cell %s is recursively defined!", cellname);
- emessage(STR3, LINK);
- } else {
- gtempl = g;
- portlist = (log_nrec **)Malloc(g->kind->numpins * sizeof(log_nrec *));
- pnumlist = NULL;
- examinetemplate(g, portlist, (long)g->kind->numpins, true,
- &pnumlist, &lastn, &laste, &lasts, &lastw);
- for (i = 0; i < lastw; i++) {
- if ((char *)portlist[i]->temp != NULL)
- emessage("Template has pins shorted together", LINK);
- else {
- namenode(portlist[i], LINK);
- l1 = strlist_append(&ports, (char *)portlist[i]->temp);
- }
- }
- Free(portlist);
- Free(pnumlist);
- }
- }
- }
- g = g->next;
- }
- }
- if (gtempl != NULL && ports == NULL) {
- vmessage("Warning: Template gate has no connections", LINK);
- /* gtempl := nil; */
- }
- if (maincell && ports != NULL) {
- vmessage("Port list ignored for top-level NTK file", LINK);
- strlist_empty(&ports);
- }
- nodecount = 0;
- strcpy(nodeprefix, "node");
- FORLIM = LINK->act->lastsignal;
- for (i = 0; i < FORLIM; i++) {
- if (LINK->act->signaltab[i].name != NULL &&
- strlist_cifind(ports, LINK->act->signaltab[i].name) != NULL)
- namenode(LINK->act->signaltab[i].np, LINK);
- }
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g)) {
- t = transbase;
- while (t != NULL && strcicmp(t->name, g->kind->name) != 0)
- t = t->next;
- if (t != NULL) {
- tcount++;
- sprintf(STR3, "Transistor-#%ld", tcount);
- *(char **)((char **)(&g->temp)) = strdup(STR3);
- FORLIM = g->kind->numpins;
- for (i = 0; i < FORLIM; i++)
- namenode(g->pin[i], LINK);
- }
- }
- g = g->next;
- }
- c = cellbase;
- while (c != NULL) {
- namecellgates(c, LINK);
- c = c->next;
- }
- p = primbase;
- while (p != NULL) {
- nameprimgates(p, LINK);
- p = p->next;
- }
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g)) {
- LINK->act->actstrlist = NULL;
- LINK->act->actflag = false;
- (*LINK->act->hook2->send_gengate)(g, "CONSTPINS");
- if (LINK->act->actstrlist != NULL || LINK->act->actflag) {
- if ((char *)g->temp == NULL &&
- strlist_find_r(orphans, g->kind->name) == NULL &&
- strlist_find_r(ignored, g->kind->name) == NULL)
- /*suppress "gate was ignored" message*/
- l1 = strlist_add(&wignlist, g->kind->name);
- l1 = LINK->act->actstrlist;
- while (l1 != NULL) {
- (*LINK->act->hook2->findpinnum)(g->kind, l1->s, &pnum);
- if (pnum != 0) {
- n = (log_nrec *)l1->value;
- namenode(n, LINK);
- *(char **)((char **)(&g->pin[pnum - 1]->temp)) = strdup((char *)n->temp);
- }
- l1 = l1->next;
- }
- strlist_empty(&LINK->act->actstrlist);
- }
- }
- g = g->next;
- }
- if (gtempl == NULL)
- return;
- n = LINK->act->nbase;
- while (n != NULL) {
- if ((char *)n->temp != NULL &&
- strlist_find_r(globals, (char *)n->temp) != NULL &&
- strlist_cifind(ports, (char *)n->temp) == NULL)
- l1 = strlist_append(&ports, (char *)n->temp);
- n = n->next;
- }
-}
-
-
-static void epilog(LINK)
-struct LOC_Log_logntk_proc *LINK;
-{
- cellrec *c;
- transrec *t;
- primrec *p;
- log_nrec *n;
- log_grec *g;
-
- n = LINK->act->nbase;
- while (n != NULL) {
- strdispose((char **)((char **)(&n->temp)));
- n = n->next;
- }
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- strdispose((char **)((char **)(&g->temp)));
- g = g->next;
- }
- c = cellbase;
- while (c != NULL) {
- strlist_empty(&c->port);
- c = c->next;
- }
- strlist_empty(&ports);
- strlist_empty(&globals);
- strlist_empty(&orphans);
- strlist_empty(&ignored);
- strlist_empty(&prims);
- strlist_empty(&trans);
- strlist_empty(&libdirs);
- strlist_empty(&filebase);
- strlist_empty(&filecellbase);
- strlist_empty(¬foundlist);
- strlist_empty(&wignlist);
- while (cellbase != savecellbase) {
- c = cellbase->next;
- Free(cellbase);
- cellbase = c;
- }
- while (transbase != savetransbase) {
- t = transbase->next;
- Free(transbase);
- transbase = t;
- }
- while (primbase != saveprimbase) {
- p = primbase->next;
- Free(primbase);
- primbase = p;
- }
- globals = saveglobals;
- orphans = saveorphans;
- ignored = saveignored;
- prims = saveprims;
- trans = savetrans;
- libdirs = savelibdirs;
- topness = savetopness;
- john_L_mode = savejohn;
-}
-
-
-
-
-static void addbogusname(newcmd, newthing, LINK)
-char *newcmd, *newthing;
-struct LOC_Log_logntk_proc *LINK;
-{
- log_lrec *l1;
- char cmd[256], args[256];
- char STR2[256];
-
- l1 = LINK->act->pages[LINK->act->curpage - 1]->lbase;
- while (l1 != NULL && !(commandlabel(l1, cmd, args) &&
- strcicmp(cmd, newcmd) == 0 && *args == '('))
- l1 = l1->next;
- if (l1 == NULL) {
- sprintf(STR2, "<%s: (place %s here)>", newcmd, newthing);
- addlabel(STR2, LINK);
- }
-}
-
-
-static strlist_t *mydefndirectory(pg, LINK)
-short pg;
-struct LOC_Log_logntk_proc *LINK;
-{
- strlist_t *l1;
-
- l1 = defndirectory(pg);
- if (l1 != NULL)
- return l1;
- if (john_L_mode) {
- vmessage("No cell name!", LINK);
- addbogusname("name", "cell name", LINK);
- } else
- l1 = strlist_append(&l1, main_name);
- return l1;
-}
-
-/* Local variables for dologntk: */
-struct LOC_dologntk {
- struct LOC_Log_logntk_proc *LINK;
- FILE *outf;
-} ;
-
-/* Local variables for readcells: */
-struct LOC_readcells {
- struct LOC_dologntk *LINK;
- FILE *f2;
- char s[256], s2[256], name[256];
-} ;
-
-static void readcellfile(fn, LINK)
-char *fn;
-struct LOC_readcells *LINK;
-{
- strlist_t *l1;
- int done, copying;
- char *TEMP;
-
- if (strlist_find(filebase, fn) != NULL)
- return;
- l1 = strlist_add(&filebase, fn);
- fprintf(LINK->LINK->outf, "| LOGNTK copying from file %s ;\n", fn);
- if (LINK->f2 != NULL)
- LINK->f2 = freopen(fn, "r", LINK->f2);
- else
- LINK->f2 = fopen(fn, "r");
- if (LINK->f2 == NULL)
- _EscIO(FileNotFound);
- done = false;
- copying = true;
- while (!P_eof(LINK->f2) && !done) {
- do {
- fgets(LINK->s, 256, LINK->f2);
- TEMP = (char *) strchr(LINK->s, '\n');
- if (TEMP != NULL)
- *TEMP = 0;
- if (*LINK->s == '|')
- fprintf(LINK->LINK->outf, "|%s\n", LINK->s);
- } while (*LINK->s == '|');
- if (*LINK->s != 'c') {
- done = true;
- break;
- }
- strcpy(LINK->s2, LINK->s);
- getword(LINK->s2, LINK->name, LINK->LINK->LINK);
- getword(LINK->s2, LINK->name, LINK->LINK->LINK);
- if (strlist_find(filecellbase, LINK->name) == NULL) {
- copying = true;
- fprintf(LINK->LINK->outf, "%s\n", LINK->s);
- l1 = strlist_add(&filecellbase, LINK->name);
- } else
- copying = false;
- do {
- fgets(LINK->s, 256, LINK->f2);
- TEMP = (char *) strchr(LINK->s, '\n');
- if (TEMP != NULL)
- *TEMP = 0;
- if (copying) {
- if (*LINK->s == '|')
- putc('|', LINK->LINK->outf);
- fprintf(LINK->LINK->outf, "%s\n", LINK->s);
- }
- } while (strcmp(LINK->s, "."));
- }
-}
-
-static void readcells(LINK)
-struct LOC_dologntk *LINK;
-{
- struct LOC_readcells V;
- log_grec *g;
- cellrec *c;
- strlist_t *p, *l1;
- int found;
- char STR1[256];
- char STR2[256];
- char STR3[256];
- char STR4[256];
- char *TEMP;
-
- V.LINK = LINK;
- V.f2 = NULL;
- g = LINK->LINK->act->pages[LINK->LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g)) {
- gateinstof(V.s, g);
- c = cellbase;
- while (c != NULL && strcicmp(c->name, V.s) != 0)
- c = c->next;
- found = false;
- if (c != NULL) {
- if (c->loaded)
- found = true;
- else {
- if (tryreset(&V.f2, c->fname))
- found = true;
- else {
- sprintf(STR2, "Cell file %s not found", c->fname);
- message(STR2, LINK->LINK);
- }
- }
- }
- if (!found && g != gtempl &&
- strlist_find_r(ignored, g->kind->name) == NULL &&
- strlist_find_r(orphans, g->kind->name) == NULL &&
- strlist_find_r(prims, g->kind->name) == NULL &&
- strlist_find(trans, g->kind->name) == NULL) {
- newci_fixfname(V.s, "ntk", "");
- if (tryreset(&V.f2, V.s))
- found = true;
- if (found) {
- if (c != NULL) {
- sprintf(STR2, "Using file %s instead of %s", V.s, c->fname);
- message(STR2, LINK->LINK);
- strcpy(c->fname, V.s);
- } else {
- addcell(&c, gateinstof(STR1, g), gateinstof(STR3, g), V.s,
- LINK->LINK);
- namecellgates(c, LINK->LINK);
- sprintf(STR4, "<cell: %s>", gateinstof(STR1, g));
- addlabel(STR4, LINK->LINK);
- }
- }
- }
- if (c != NULL && !found)
- LINK->LINK->errflag = true;
- if (found && !c->loaded) {
- autotop = true;
- c->loaded = true;
- found = false;
- while (!found && !P_eof(V.f2)) {
- fgets(V.s, 256, V.f2);
- TEMP = (char *) strchr(V.s, '\n');
- if (TEMP != NULL)
- *TEMP = 0;
- if (*V.s != 'c')
- continue;
- strcpy(V.s2, V.s);
- strword(V.s2, V.name);
- strword(V.s2, V.name);
- if (strcicmp(V.name, c->cname) != 0)
- continue;
- strcpy(c->cname, V.name);
- do {
- strword(V.s2, V.name);
- if (*V.name == '\0') {
- do {
- fgets(V.s2, 256, V.f2);
- TEMP = (char *) strchr(V.s2, '\n');
- if (TEMP != NULL)
- *TEMP = 0;
- } while (*V.s == '\0' || V.s[0] == '|');
- strword(V.s2, V.name);
- }
- if (strcmp(V.name, ";")) {
- p = strlist_append(&c->port, V.name);
- if (strlist_find_r(globals, V.name) != NULL &&
- strlist_cifind(ports, V.name) == NULL)
- l1 = strlist_append(&ports, V.name);
- }
- } while (strcmp(V.name, ";") && *V.name != '\0');
- found = true;
- }
- if (V.f2 != NULL)
- fclose(V.f2);
- V.f2 = NULL;
- if (found)
- readcellfile(c->fname, &V);
- }
- }
- g = g->next;
- }
- if (V.f2 != NULL)
- fclose(V.f2);
-}
-
-/* Local variables for writefile: */
-struct LOC_writefile {
- struct LOC_dologntk *LINK;
- long linelen;
-} ;
-
-static void writeword(w, LINK)
-char *w;
-struct LOC_writefile *LINK;
-{
- if (LINK->linelen + strlen(w) > 78) {
- fprintf(LINK->LINK->outf, "\n ");
- LINK->linelen = 2;
- }
- fprintf(LINK->LINK->outf, " %s", w);
- LINK->linelen += strlen(w) + 1;
-}
-
-static void writefile(LINK)
-struct LOC_dologntk *LINK;
-{
- struct LOC_writefile V;
- log_grec *g;
- log_nrec *n;
- transrec *t;
- cellrec *c;
- primrec *p;
- strlist_t *havedone, *l1;
- char s[256], w[256], ginstname[256];
- log_nrec **portlist;
- long lastn, laste, lasts, lastw;
- short *pnumlist;
- int handled;
- long i, j;
- char STR1[256], STR2[256];
- char STR3[110];
- char STR4[112];
- long FORLIM;
-
- V.LINK = LINK;
- if (ports != NULL) {
- if (gtempl == NULL) {
- l1 = ports;
- while (l1 != NULL) {
- g = LINK->LINK->act->pages[LINK->LINK->act->curpage - 1]->gbase;
- while (g != NULL &&
- (g->sig == 0 || !gateinbox(mybox, g) ||
- strcicmp(LINK->LINK->act->signaltab[g->sig - 1].name, l1->s) != 0))
- g = g->next;
- if (g == NULL) {
- sprintf(STR2, "Warning: Port %s does not appear in the circuit",
- l1->s);
- vmessage(STR2, LINK->LINK);
- }
- l1 = l1->next;
- }
- }
- } else {
- g = LINK->LINK->act->pages[LINK->LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g) && g->sig != 0) {
- strcpy(w, LINK->LINK->act->signaltab[g->sig - 1].name);
- l1 = strlist_add(&ports, w);
- }
- g = g->next;
- }
- if (!maincell) {
- strcpy(s, "<port:");
- l1 = ports;
- while (l1 != NULL) {
- sprintf(STR2, " %s", l1->s);
- strsafeappend(s, STR2);
- l1 = l1->next;
- }
- strsafeappend(s, ">");
- addlabel(s, LINK->LINK);
- }
- }
- if (!maincell) {
- putc('c', LINK->outf);
- V.linelen = 1;
- writeword(cellname, &V);
- l1 = ports;
- while (l1 != NULL) {
- writeword(l1->s, &V);
- l1 = l1->next;
- }
- fprintf(LINK->outf, " ;\n");
- }
- havedone = NULL;
- n = LINK->LINK->act->nbase;
- while (n != NULL) {
- if ((char *)n->temp != NULL &&
- strlist_cifind(havedone, (char *)n->temp) == NULL &&
- (maincell || strlist_cifind(ports, (char *)n->temp) == NULL))
- l1 = strlist_add(&havedone, (char *)n->temp);
- n = n->next;
- }
- l1 = havedone;
- while (l1 != NULL) {
- if (strlist_find_r(globals, l1->s) != NULL) {
- sprintf(STR1, "Warning: Global node %s is not a port", l1->s);
- vmessage(STR1, LINK->LINK);
- } else
- fprintf(LINK->outf, "s %ld %s ;\n", default_size, l1->s);
- l1 = l1->next;
- }
- strlist_empty(&havedone);
- j = 0;
- g = LINK->LINK->act->pages[LINK->LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g) && strlist_find_r(orphans, g->kind->name) != NULL) {
- j++;
- fprintf(LINK->outf, "s %ld orphan%ld ;\n", default_size, j);
- }
- g = g->next;
- }
- g = LINK->LINK->act->pages[LINK->LINK->act->curpage - 1]->gbase;
- while (g != NULL) {
- if (gateinbox(mybox, g)) {
- gateinstof(ginstname, g);
- handled = (strlist_find_r(orphans, g->kind->name) != NULL ||
- strlist_find_r(ignored, g->kind->name) != NULL ||
- g == gtempl);
- t = transbase;
- while (t != NULL && strcicmp(t->name, g->kind->name) != 0)
- t = t->next;
- if (t != NULL && !handled) {
- i = default_strength;
- if (t->strength > 0)
- i = t->strength;
- else if (t->strength < 0) {
- if (-t->strength <= g->kind->numattrs &&
- g->kind->attr[-t->strength - 1].dtype == 'I')
- i = g->attr[-t->strength - 1].UU.U73.i1;
- }
- if ( g->kind->numpins == 3)
- {
- fprintf(LINK->outf, "%c %ld %s %s %s ;\n",
- tolower(t->kind), i, (char *)g->pin[0]->temp,
- (char *)g->pin[2]->temp, (char *)g->pin[1]->temp);
- handled = true;
- }
- else
- {
- fprintf(LINK->outf, "%c %ld %s %s %s %s ;\n",
- tolower(t->kind), i, (char *)g->pin[0]->temp,
- (char *)g->pin[2]->temp,(char *)g->pin[1]->temp,
- (char *)g->pin[3]->temp );
- handled = true;
- }
- handled = true;
- }
- c = cellbase;
- while (c != NULL && strcicmp(c->name, ginstname) != 0)
- c = c->next;
- if (c != NULL && !handled) {
- putc('h', LINK->outf);
- V.linelen = 1;
- writeword(c->cname, &V);
- writeword((char *)g->temp, &V);
- portlist = (log_nrec **)Malloc(g->kind->numpins * sizeof(log_nrec *));
- pnumlist = NULL;
- examinetemplate(g, portlist, (long)g->kind->numpins, isgenericinstgate(g),
- &pnumlist, &lastn, &laste, &lasts, &lastw);
- l1 = c->port;
- i = 0;
- while (l1 != NULL) {
- if (strlist_find_r(globals, l1->s) == NULL) {
- i++;
- if (i <= lastw) {
- if ((char *)portlist[i - 1]->temp == NULL) {
- sprintf(STR1, "Internal error: node on %s was never named",
- (char *)g->temp);
- emessage(STR1, LINK->LINK);
- } else
- writeword((char *)portlist[i - 1]->temp, &V);
- }
- } else {
- j = 1;
- while (j <= LINK->LINK->act->lastsignal &&
- (LINK->LINK->act->signaltab[j - 1].name == NULL ||
- strcicmp(LINK->LINK->act->signaltab[j - 1].name, l1->s) != 0))
- j++;
- if (j <= LINK->LINK->act->lastsignal &&
- (char *)LINK->LINK->act->signaltab[j - 1].np->temp != NULL)
- writeword((char *)LINK->LINK->act->signaltab[j - 1].np->temp,
- &V);
- else
- writeword(l1->s, &V);
- if (strlist_cifind(ports, l1->s) == NULL) {
- sprintf(STR2, "Global signal %s is missing from the port list",
- l1->s);
- emessage(STR2, LINK->LINK);
- }
- }
- l1 = l1->next;
- }
- Free(portlist);
- Free(pnumlist);
- fprintf(LINK->outf, " ;\n");
- if (!c->complain1 && i != lastw) {
- if (isinstgate(g)) {
- if (i > lastw) {
- sprintf(STR3, "Too few connections in cell %s", c->cname);
- emessage(STR3, LINK->LINK);
- } else {
- sprintf(STR4, "Too many connections in cell %s", c->cname);
- emessage(STR4, LINK->LINK);
- }
- } else {
- c->complain1 = true;
- if (i > lastw) {
- sprintf(STR4, "More ports than pins in cell %s", c->cname);
- emessage(STR4, LINK->LINK);
- } else {
- sprintf(STR4, "More pins than ports in cell %s", c->cname);
- emessage(STR4, LINK->LINK);
- }
- }
- }
- handled = true;
- }
- p = primbase;
- while (p != NULL && !re_compare(g->kind->name, p->name))
- p = p->next;
- if (p != NULL && !handled) {
- strcpy(s, g->kind->name);
- if (*p->cname != '\0') {
- i = 1;
- re_replace(s, p->name, p->cname, &i, &j);
- }
- putc('h', LINK->outf);
- V.linelen = 1;
- writeword(s, &V);
- writeword((char *)g->temp, &V);
- FORLIM = g->kind->numpins;
- for (i = 0; i < FORLIM; i++)
- writeword((char *)g->pin[i]->temp, &V);
- fprintf(LINK->outf, " ;\n");
- handled = true;
- }
- LINK->LINK->act->actfile = &LINK->outf;
- LINK->LINK->act->actstrlist = globals;
- LINK->LINK->act->actflag = handled;
- (*LINK->LINK->act->hook2->send_gengate)(g, "LOGNTK");
- if (LINK->LINK->act->actflag)
- handled = true;
- if (!handled && strlist_find(wignlist, ginstname) == NULL) {
- l1 = strlist_add(&wignlist, ginstname);
- sprintf(STR1, "Warning: Gate %s was ignored", ginstname);
- vmessage(STR1, LINK->LINK);
- }
- }
- g = g->next;
- }
- if (!(topness == top_yes || (topness == top_maybe && autotop)) || maincell)
- return;
- fprintf(LINK->outf, ".\n");
- i = 0;
- l1 = ports;
- while (l1 != NULL) {
- i++;
- fprintf(LINK->outf, "s %ld %s #%ld ;\n", default_size, l1->s, i);
- l1 = l1->next;
- }
- fprintf(LINK->outf, "h %s %s", cellname, cellname);
- l1 = ports;
- while (l1 != NULL) {
- fprintf(LINK->outf, " %s", l1->s);
- l1 = l1->next;
- }
- fprintf(LINK->outf, " ;\n");
-}
-
-static void showports(LINK)
-struct LOC_dologntk *LINK;
-{
- char buf[256];
- strlist_t *l1;
- char STR1[256];
-
- strcpy(buf, "Using port list:");
- l1 = ports;
- while (l1 != NULL) {
- sprintf(STR1, " %s", l1->s);
- strsafeappend(buf, STR1);
- l1 = l1->next;
- }
- vmessage(buf, LINK->LINK);
-}
-
-
-static void dologntk(args_, LINK)
-char *args_;
-struct LOC_Log_logntk_proc *LINK;
-{
- struct LOC_dologntk V;
- char args[256];
- strlist_t *l1, *defndir, *argslist;
- log_nrec *n1; /*pointer to "node" record*/
- log_grec *g1; /*pointer to "gate instance" record*/
- log_krec *k1; /*pointer to "gate kind" record*/
- char STR1[256], STR2[256];
- char STR3[256];
-
- V.LINK = LINK;
- strcpy(args, args_);
- V.outf = NULL;
- argslist = NULL;
- readstrlistr(args, &argslist, true, LINK);
- defndir = mydefndirectory((int)LINK->act->curpage, LINK);
- while (defndir != NULL) {
- l1 = strlist_find_r(argslist, defndir->s);
- if (argslist == NULL || l1 != NULL) {
- if (l1 != NULL)
- strdispose((char **)((char **)(&l1->value)));
- prolog(defndir->s, (log_brec *)defndir->value, LINK);
- autotop = false;
- if (*filename == '\0' && strcmp(cellname, main_name)) {
- sprintf(filename, "%s.ntk", cellname);
- sprintf(STR2, "<file: %s>", filename);
- addlabel(STR2, LINK);
- }
- if (*filename == '\0' || filename[0] == '(') {
- if (!strcmp(cellname, main_name)) {
- emessage("No cell or file name!", LINK);
- vmessage(
- "To create a top-level NTK file, fill in the <file> command below;",
- LINK);
- vmessage(
- "To create an NTK cell, make a label of the form: \"cellname\"",
- LINK);
- vmessage(
- " (If you delete the <file> label, LOGNTK will use cellname.NTK)",
- LINK);
- addbogusname("file", "file name", LINK);
- } else {
- sprintf(STR1,
- "Please fill in the <file> label, or delete it to use the default of %s.ntk",
- cellname);
- vmessage(STR1, LINK);
- }
- } else if (strciends(filename, ".LGF"))
- emessage("Output file should be .NTK, not .LGF", LINK);
- else {
- newci_fixfname(filename, "ntk", "");
- if (maincell) {
- sprintf(STR1, "Writing top-level file %s", filename);
- vmessage(STR1, LINK);
- } else {
- sprintf(STR1, "Writing cell %s to file %s", cellname, filename);
- vmessage(STR1, LINK);
- }
- if (V.outf != NULL)
- V.outf = freopen(filename, "w", V.outf);
- else
- V.outf = fopen(filename, "w");
- if (V.outf == NULL)
- _EscIO(FileNotFound);
- readcells(&V);
- if (gtempl != NULL)
- showports(&V);
- fprintf(V.outf, "| LOGNTK output to file %s on %s ;\n",
- filename, strdate(STR3, ""));
- writefile(&V);
- if (LINK->errflag) {
- vmessage("Warning: Output file may be bad or incomplete", LINK);
- fprintf(V.outf,
- "| LOGNTK errors occurred while writing this file ;\n");
- LINK->errflag = false;
- }
- fprintf(V.outf, ".\n");
- if (V.outf != NULL)
- fclose(V.outf);
- V.outf = NULL;
- vmessage("Done.", LINK);
- }
- epilog(LINK);
- }
- strlist_delete(&defndir, &defndir);
- }
- l1 = argslist;
- while (l1 != NULL) {
- if ((char *)l1->value != NULL) {
- sprintf(STR2, "Unable to find cell %s", (char *)l1->value);
- message(STR2, LINK);
- strdispose((char **)((char **)(&l1->value)));
- }
- l1 = l1->next;
- }
- strlist_empty(&argslist);
- if (V.outf != NULL)
- fclose(V.outf);
-}
-
-
-static void probecommand(LINK)
-struct LOC_Log_logntk_proc *LINK;
-{
- strlist_t *defndir, *l1, *curdef;
- int exitflag, boxed;
- char buf[256], obuf[256], temp[256];
- log_grec *probegate, *redgate, *g;
- log_nrec *probenode, *rednode;
- log_brec *curbox;
- long i, xpos, ypos, FORLIM;
-
- (*LINK->act->hook.clearfunc)();
- defndir = mydefndirectory((int)LINK->act->curpage, LINK);
- curdef = NULL;
- curbox = NULL;
- if (defndir != NULL) {
- boxed = (defndir->value != NULL);
- if (!boxed) {
- curdef = defndir;
- prolog(curdef->s, NULL, LINK);
- }
- (*LINK->act->hook.beginbottom)();
- m_alpha_on();
- nc_printf(
- "Move to a gate/node to see its name; press left button to finish.\n");
- nc_getXY(&xpos, &ypos);
- exitflag = true;
- *buf = '\0';
- redgate = NULL;
- rednode = NULL;
- do {
- (*LINK->act->hook.pass)();
- (*LINK->act->hook.pen)();
- (*LINK->act->hook.trykbd)();
- if (!strcmp(LINK->act->func, "REFR")) {
- redgate = NULL;
- rednode = NULL;
- (*LINK->act->hook.scroll)();
- }
- m_alpha_on();
- probegate = NULL;
- probenode = NULL;
- if (LINK->act->t.near_) {
- if (curdef == NULL ||
- !pointinbox(curbox, LINK->act->gridx, LINK->act->gridy)) {
- if (curdef != NULL)
- epilog(LINK);
- l1 = defndir;
- while (l1 != NULL &&
- !pointinbox((log_brec *)l1->value, LINK->act->gridx,
- LINK->act->gridy))
- l1 = l1->next;
- curdef = l1;
- if (curdef != NULL) {
- curbox = (log_brec *)curdef->value;
- prolog(curdef->s, curbox, LINK);
- } else
- curbox = NULL;
- }
- if (curdef != NULL) {
- (*LINK->act->hook.findobject)(LINK->act->gridx, LINK->act->gridy);
- (*LINK->act->hook.findwire)(LINK->act->gridx, LINK->act->gridy);
- if (LINK->act->nearhw != NULL){
- probenode = LINK->act->nearhw->node;
- }
- else if (LINK->act->nearvw != NULL){
- probenode = LINK->act->nearvw->node;
- }
- if (LINK->act->neargate != NULL){
- probegate = LINK->act->neargate;
- }
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL && probenode == NULL) {
- if (gateinbox(mybox, g)) {
- FORLIM = g->kind->numpins;
- for (i = 0; i < FORLIM; i++) {
- if (g->pinpos[i].x == LINK->act->gridx &&
- g->pinpos[i].y == LINK->act->gridy)
- {probenode = g->pin[i];
- }
- }
- }
- g = g->next;
- }
- }
- }
- if (probegate != redgate) {
- (*LINK->act->hook.clip)();
- if (redgate != NULL)
- (*LINK->act->hook.drawgate)(redgate);
- if (probegate != NULL)
- (*LINK->act->hook.gdrawgate)(probegate->x, probegate->y,
- probegate->g, identifycolor);
- (*LINK->act->hook.noclip)();
- redgate = probegate;
- }
- if (probenode != rednode) {
- (*LINK->act->hook.clip)();
- if (rednode != NULL)
- (*LINK->act->hook.drawnode)(rednode, -1);
- if (probenode != NULL)
- (*LINK->act->hook.drawnode)(probenode, identifycolor);
- (*LINK->act->hook.noclip)();
- rednode = probenode;
- }
- strcpy(obuf, buf);
- if (curdef == NULL)
- strcpy(buf,
- "(not in a definition) ");
- else {
- strcpy(buf,
- "Gate: Node: ");
- strcpy(temp, "---");
- if (probegate != NULL) {
- if ((char *)probegate->temp == NULL) {
- if (probegate == gtempl)
- strcpy(temp, "(template)");
- else
- strcpy(temp, "(unnamed)");
- } else
- strcpy(temp, (char *)(probegate->temp));
- }
- if (strlen(temp) > 30)
- temp[30] = '\0';
- strmove(strlen(temp), temp, 1, buf, 7);
- strcpy(temp, "---");
- if (probenode != NULL) {
- if ((char *)probenode->temp == NULL)
- strcpy(temp, "(unnamed)");
- else
- strcpy(temp, (char *)(probenode->temp));
- }
- if (strlen(temp) > 30)
- temp[30] = '\0';
- strmove(strlen(temp), temp, 1, buf, 47);
- }
- if (strcmp(buf, obuf)) {
- nc_gotoXY((int)xpos, (int)ypos);
- nc_puts(buf);
- }
- } while (!(*LINK->act->func != '\0' || LINK->act->t.dn));
- (*LINK->act->hook.endbottom)();
- if (curdef != NULL)
- epilog(LINK);
- }
- strlist_empty(&defndir);
-}
-
-
-static void identifycommand(args_, LINK)
-char *args_;
-struct LOC_Log_logntk_proc *LINK;
-{
- char args[256];
- strlist_t *defndir, *arglist, *argl;
- char buf[256];
- log_grec *g;
- log_nrec *n;
- int first;
- char STR1[256];
-
- strcpy(args, args_);
- (*LINK->act->hook.clearfunc)();
- defndir = mydefndirectory((int)LINK->act->curpage, LINK);
- first = true;
- arglist = NULL;
- do {
- getword(args, buf, LINK);
- if (*buf != '\0')
- argl = strlist_append(&arglist, buf);
- } while (*buf != '\0');
- while (defndir != NULL) {
- prolog(defndir->s, (log_brec *)defndir->value, LINK);
- argl = arglist;
- while (argl != NULL) {
- strcpy(buf, argl->s);
- g = LINK->act->pages[LINK->act->curpage - 1]->gbase;
- while (g != NULL && (!gateinbox(mybox, g) || (char *)g->temp == NULL ||
- strcicmp((char *)g->temp, buf) != 0))
- g = g->next;
- if (g != NULL) {
- sprintf(STR1, "Identifying gate %s", (char *)g->temp);
- vmessage(STR1, LINK);
- argl->value = (na_long)1;
- (*LINK->act->hook.clip)();
- (*LINK->act->hook.gdrawgate)(g->x, g->y, g->g, identifycolor);
- (*LINK->act->hook.noclip)();
- } else {
- n = LINK->act->nbase;
- while (n != NULL && ((char *)n->temp == NULL ||
- strcicmp((char *)n->temp, buf) != 0))
- n = n->next;
- if (n != NULL) {
- sprintf(STR1, "Identifying node %s", (char *)n->temp);
- vmessage(STR1, LINK);
- argl->value = (na_long)1;
- (*LINK->act->hook.clip)();
- (*LINK->act->hook.drawnode)(n, identifycolor);
- (*LINK->act->hook.noclip)();
- }
- }
- argl = argl->next;
- }
- epilog(LINK);
- first = false;
- strlist_delete(&defndir, &defndir);
- }
- while (arglist != NULL) {
- if ((long)arglist->value == 0) {
- sprintf(STR1, "No nodes or gates called %s", arglist->s);
- message(STR1, LINK);
- }
- strlist_delete(&arglist, &arglist);
- }
-}
-
-
-void Log_logntk_proc(act_)
-log_action_t *act_;
-{
- struct LOC_Log_logntk_proc V;
- long esc, ior;
- log_action_t *WITH;
- char STR1[256];
-
-
- V.act = act_;
- WITH = V.act;
- switch (WITH->action) {
-
- case act_init:
- WITH->acttool->ready = true; /*yes, I am here*/
- WITH->acttool->keep = true; /*initialize me permanently*/
- strcpy(WITH->acttool->shortname, "LOGNTK"); /*this is my brief name*/
- if (*WITH->acttool->comment == '\0') /*this is my long name*/
- strcpy(WITH->acttool->comment, "LOG-to-NTK converter");
- filename = (char *)Malloc(256);
- *filename = '\0';
- cellname = (char *)Malloc(256);
- *cellname = '\0';
- ports = NULL;
- globals = NULL;
- orphans = NULL;
- ignored = NULL;
- prims = NULL;
- trans = NULL;
- libdirs = NULL;
- transbase = NULL;
- cellbase = NULL;
- primbase = NULL;
- default_size = 1;
- default_strength = 2;
- /* topness := top_maybe; */
- topness = top_yes;
- john_L_mode = false;
- hier_init(V.act);
- break;
-
- case act_color:
- (*WITH->hook.getcolor)("IDENTIFY", &identifycolor, log_red);
- break;
-
- case act_cnf:
- docommand(WITH->func, WITH->funcarg, true, &V);
- (*WITH->hook.clearfunc)();
- break;
-
- case act_func: /*ignore actions we don't care about*/
- if (!strcmp(WITH->func, "LOGNTK")) {
- V.errflag = false;
- m_graphics_on();
- TRY(try1);
- dologntk(WITH->funcarg, &V);
- RECOVER(try1);
- if (P_escapecode == -20)
- _Escape(P_escapecode);
- if (P_escapecode != 1) {
- esc = P_escapecode;
- ior = P_ioresult;
- (*WITH->hook.beginerror)();
- nc_puts(_ShowEscape(STR1, esc, ior, "Error during LOGNTK"));
- (*WITH->hook.enderror)();
- }
- ENDTRY(try1);
- (*WITH->hook.clearfunc)();
- } else if (!strcmp(WITH->func, "IDENTIFY")) {
- V.errflag = false;
- if (*WITH->funcarg == '\0')
- probecommand(&V);
- else
- identifycommand(WITH->funcarg, &V);
- } else if (!strcmp(WITH->func, "LOGNTK:")) {
- V.errflag = false;
- docommand("", WITH->funcarg, true, &V);
- (*WITH->hook.clearfunc)();
- }
- break;
-
- default:
- break;
- }
-
- /*else let someone else handle it*/
-}
-
-
-