void loadlgf(int mode)
{
FILE *ps;
char inname[150], temp[500], *pdchar;
char **signals;
short *signets;
objectptr *libobj;
genericptr *iolabel;
int i, sigs;
sscanf(_STR, "%149s", inname);
ps = fopen(inname, "r");
if (ps == NULL) {
sprintf(inname, "%s.lgf", _STR);
ps = fopen(inname, "r");
if (ps == NULL) {
sprintf(inname, "%s.lfo", _STR);
ps = fopen(inname, "r");
if (ps == NULL) {
Wprintf("Can't open LGF file %s", inname);
return;
}
}
}
/* for PostScript file, remove ".lgf" or ".lfo" (to be replaced with ".ps") */
if ((pdchar = strstr(inname, ".l")) != NULL) *pdchar = '\0';
Wprintf("Loaded file: %s", inname);
/* Make sure that LGF object library has been loaded by loading it now. */
if (NameToLibrary(LGF_LIB) < 0) {
int ilib;
strcpy(_STR, LGF_LIB);
ilib = createlibrary(FALSE);
loadlibrary(ilib);
}
/* Read header information */
if (fgets(temp, 149, ps) == NULL) {
Wprintf("Error: end of file.");
return;
}
for (pdchar = temp; *pdchar != '-' && *pdchar != '\n'; pdchar++);
if (*pdchar == '\n') {
Wprintf("Not an LGF file?");
return;
}
if (*(++pdchar) != '5') {
Wprintf("Don't know how to read version %c.", *pdchar);
return;
}
if (fgets(temp, 149, ps) == NULL) {
Wprintf("Error: end of file.");
return;
}
for (pdchar = temp; *pdchar != 'f' && *pdchar != '\n'; pdchar++);
for (; *pdchar != 's' && *pdchar != '\n'; pdchar++);
if (*pdchar == '\n') {
Wprintf("Something wrong with the LGF file?");
return;
}
/* Done with header. . . okay to clear current page now unless importing */
if (mode == 0) {
reset(topobject, NORMAL);
pagereset(areawin->page);
}
/* Set up filename and object (page) name */
xobjs.pagelist[areawin->page]->filename = (char *) realloc (
xobjs.pagelist[areawin->page]->filename, (strlen(inname) + 1) * sizeof(char));
strcpy(xobjs.pagelist[areawin->page]->filename, inname);
/* If the filename has a path component, use only the root */
if ((pdchar = strrchr(inname, '/')) != NULL)
sprintf(topobject->name, "%s", pdchar + 1);
else
sprintf(topobject->name, "%s", inname);
renamepage(areawin->page);
printname(topobject);
/* Read objects */
for(;;) {
char *lineptr, keyptr, tmpstring[256];
int dval;
short pvalx, pvaly, pvalx2, pvaly2;
if (fgets(temp, 499, ps) == NULL) break; /* End-Of-File */
/* ignore whitespace */
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
if (*lineptr == '\n') continue; /* ignore blank lines */
switch(keyptr = *lineptr) {
case '#': /* comment */
break;
case 'n': /* nodes */
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in node section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
}
break;
case 's': /* signal names --- save for future reference */
sscanf(++lineptr, "%d", &sigs);
signals = (char **) malloc(sigs * sizeof(char *));
signets = (short *) malloc(sigs * sizeof(short));
for (i = 0; i < sigs; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in signal section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
sscanf(lineptr, "%hd %249s", &signets[i], tmpstring);
signals[i] = (char *)malloc((strlen(tmpstring) + 1) * sizeof(char));
sprintf(signals[i], "%s", tmpstring);
}
break;
case 'l': { /* labels */
labelptr *newlabel;
char *tstrp;
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in signal section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
/* Allocate label, and put node number into X value, to be replaced */
/* Flag it using an inappropriate rotation value (= 500) */
sscanf(lineptr, "%hd %hd", &pvalx, &pvaly);
/* Get rid of newline character, if any */
ridnewline(lineptr);
/* forward to the label part of the input line */
tstrp = lineptr - 1;
while (isdigit(*(++tstrp)));
while (isspace(*(++tstrp)));
while (isdigit(*(++tstrp)));
while (isspace(*(++tstrp)));
while (isdigit(*(++tstrp)));
while (isspace(*(++tstrp)));
if (tstrp != NULL) { /* could be a blank line */
stringpart *strptr;
NEW_LABEL(newlabel, topobject);
labeldefaults(*newlabel, False, xmat(pvalx), ymat(pvaly));
(*newlabel)->justify = TOP | NOTBOTTOM;
(*newlabel)->color = DEFAULTCOLOR;
(*newlabel)->string->data.font = 0;
strptr = makesegment(&((*newlabel)->string), NULL);
strptr->type = TEXT_STRING;
strptr->data.string = (char *)malloc(1 + strlen(tstrp));
strcpy(strptr->data.string, tstrp);
(*newlabel)->pin = NORMAL;
}
}}
break;
case 'w': { /* wires, implemented as single-segment polygons */
polyptr *newwire;
XPoint *tmppnts;
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in wire section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
/* Allocate wire */
NEW_POLY(newwire, topobject);
sscanf(lineptr, "%hd %hd %hd %hd", &pvalx, &pvaly, &pvalx2, &pvaly2);
(*newwire)->number = 2;
(*newwire)->points = (XPoint *)malloc(2 * sizeof(XPoint));
(*newwire)->width = 1.0;
(*newwire)->style = UNCLOSED;
(*newwire)->color = DEFAULTCOLOR;
(*newwire)->passed = NULL;
tmppnts = (*newwire)->points;
tmppnts->x = xmat(pvalx);
tmppnts->y = ymat(pvaly);
(++tmppnts)->x = xmat(pvalx2);
tmppnts->y = ymat(pvaly2);
}}
break;
case 'p': /* solder dot */
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in solder dot section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
/* Allocate arc */
sscanf(lineptr, "%hd %hd", &pvalx, &pvaly);
drawdot(xmat(pvalx), ymat(pvaly));
}
break;
case 'b': { /* boxes */
polyptr *newpoly;
pointlist newpoints;
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in box section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
NEW_POLY(newpoly, topobject);
(*newpoly)->style = DASHED;
(*newpoly)->color = DEFAULTCOLOR;
(*newpoly)->width = 1.0;
(*newpoly)->number = 4;
(*newpoly)->points = (pointlist) malloc(4 * sizeof(XPoint));
(*newpoly)->passed = NULL;
newpoints = (*newpoly)->points;
sscanf(lineptr, "%hd %hd %hd %hd", &pvalx, &pvaly, &pvalx2, &pvaly2);
newpoints->x = xmat(pvalx);
newpoints->y = ymat(pvaly);
(newpoints + 1)->x = xmat(pvalx2);
(newpoints + 2)->y = ymat(pvaly2);
(newpoints + 2)->x = (newpoints + 1)->x;
(newpoints + 3)->x = newpoints->x;
(newpoints + 1)->y = newpoints->y;
(newpoints + 3)->y = (newpoints + 2)->y;
}}
break;
case 'g': { /* gates */
objinstptr *newinst;
labelptr *newlabel;
int j, k, hval, flip;
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in gates section");
return;
}
for (lineptr = temp; *lineptr != '\n'; lineptr++); *lineptr = '\0';
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\0'; lineptr++);
} while (*lineptr == '\0');
/* double loop through user libraries */
for (j = 0; j < xobjs.numlibs; j++) {
for (k = 0; k < xobjs.userlibs[j].number; k++) {
libobj = xobjs.userlibs[j].library + k;
if (!strcmp(lineptr, (*libobj)->name)) break;
}
if (k < xobjs.userlibs[j].number) break;
}
strcpy(tmpstring, lineptr);
/* read gate definition */
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file during gate read");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
if (j < xobjs.numlibs || k < xobjs.userlibs[xobjs.numlibs - 1].number) {
NEW_OBJINST(newinst, topobject);
sscanf(lineptr, "%hd %hd %hd %*d %*d %*d %d", &pvalx, &pvaly,
&pvalx2, &hval);
flip = (pvalx2 >= 4) ? 1 : 0;
if (!strcmp(tmpstring, "FROM")) flip = 1 - flip;
(*newinst)->position.x = xmat(pvalx);
(*newinst)->position.y = ymat(pvaly);
(*newinst)->scale = 1.0;
(*newinst)->color = DEFAULTCOLOR;
(*newinst)->params = NULL;
(*newinst)->passed = NULL;
if (pvalx2 & 0x01) pvalx2 ^= 0x02;
if (pvalx2 >= 4) (*newinst)->rotation = -(((pvalx2 - 4) * 90) + 1);
else (*newinst)->rotation = (pvalx2 * 90) + 1;
(*newinst)->thisobject = *libobj;
(*newinst)->bbox.lowerleft.x = (*libobj)->bbox.lowerleft.x;
(*newinst)->bbox.lowerleft.y = (*libobj)->bbox.lowerleft.y;
(*newinst)->bbox.width = (*libobj)->bbox.width;
(*newinst)->bbox.height = (*libobj)->bbox.height;
/* Add label to "TO" and "FROM" */
if (!strcmp(tmpstring, "FROM") || !strcmp(tmpstring, "TO")) {
int nval;
hval--;
fgets(temp, 499, ps);
sscanf(temp, "%d", &nval);
for (k = 0; k < sigs; k++)
if (signets[k] == nval) {
stringpart *strptr;
NEW_LABEL(newlabel, topobject);
/* reconnect newinst if displaced by realloc() */
newinst = (objinstptr *)(topobject->plist
+ topobject->parts - 2);
labeldefaults(*newlabel, False, (*newinst)->position.x,
(*newinst)->position.y);
(*newlabel)->color = DEFAULTCOLOR;
(*newlabel)->pin = LOCAL;
(*newlabel)->color = LOCALPINCOLOR;
if (!strcmp(tmpstring, "TO"))
(*newlabel)->position.x += ((flip) ? 48 : -48);
else
(*newlabel)->position.x += ((flip) ? 54 : -54);
(*newlabel)->justify = NOTBOTTOM;
if (flip) (*newlabel)->justify |= (RIGHT | NOTLEFT);
(*newlabel)->string->data.font = 0;
strptr = makesegment(&((*newlabel)->string), NULL);
strptr->type = TEXT_STRING;
strptr->data.string = (char *)malloc(1 + strlen(signals[k]));
strcpy(strptr->data.string, signals[k]);
break;
}
}
}
/* read through list of attributes */
else {
sscanf(lineptr, "%*d %*d %*d %*d %*d %*d %d", &hval);
Wprintf("No library object %s", tmpstring);
}
for (j = 0; j < hval + 1; j++) {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("Unexpected end of file");
return;
}
}
/* read to next blank line */
do {
if (fgets(temp, 499, ps) == NULL) break;
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr != '\n');
}}
break;
case 'h': { /* history */
int j, hval;
sscanf(++lineptr, "%d", &dval);
for (i = 0; i < dval; i++) {
do {
if (fgets(temp, 499, ps) == NULL) {
Wprintf("End of file in history section");
return;
}
for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
} while (*lineptr == '\n');
/* read through history */
sscanf(lineptr, "%*d %d", &hval);
for (j = 0; j < hval; j++)
if (fgets(temp, 499, ps) == NULL) {
Wprintf("Unexpected end of file");
return;
}
}}
break;
case '.': /* blank, don't use for EOF */
break;
default:
Wprintf("Don't understand statement '%c'", *lineptr);
break;
}
}
/* check for unattached labels and delete them */
for (iolabel = topobject->plist; iolabel < topobject->plist +
topobject->parts; iolabel++)
if (IS_LABEL(*iolabel)) {
if (TOLABEL(iolabel)->rotation == 500) {
genericptr *tmplabel;
free(TOLABEL(iolabel)->string);
free(*iolabel);
for (tmplabel = iolabel + 1; tmplabel < topobject->plist +
topobject->parts; tmplabel++) *(tmplabel - 1) = *tmplabel;
topobject->parts--;
iolabel--;
}
}
calcbbox(areawin->topinstance);
centerview(areawin->topinstance);
for (i = 0; i < sigs; i++) free(signals[i]);
free(signals);
free(signets);
}
int main (int argc, char **argv) {
int norun;
char *startbrk, *endbrk;
char *indir, *outdir, *outprefix;
int attr;
int splicemode;
float digits;
int bboxflag;
startbrk = (char *) sbrk (0);
indir = ".";
outdir = ".";
outprefix = "tiger";
attr = T_EATTR_STATE;
splicemode = 1;
digits = 6;
bboxflag = 0;
savemask = 15;
norun = 0;
for (;;) {
switch (optget (argv, usage)) {
case -100:
indir = opt_info.arg;
continue;
case -101:
outdir = opt_info.arg;
continue;
case -200:
splicemode = opt_info.num;
continue;
case -201:
if ((digits = atof (opt_info.arg)) < 0)
digits = -1;
continue;
case -300:
if (strcmp (opt_info.arg, "zip") == 0)
attr = T_EATTR_ZIP;
else if (strcmp (opt_info.arg, "npanxxloc") == 0)
attr = T_EATTR_NPANXXLOC;
else if (strcmp (opt_info.arg, "state") == 0)
attr = T_EATTR_STATE;
else if (strcmp (opt_info.arg, "county") == 0)
attr = T_EATTR_COUNTY;
else if (strcmp (opt_info.arg, "ctbna") == 0)
attr = T_EATTR_CTBNA;
else if (strcmp (opt_info.arg, "blkg") == 0)
attr = T_EATTR_BLKG;
else if (strcmp (opt_info.arg, "blk") == 0)
attr = T_EATTR_BLK;
else if (strcmp (opt_info.arg, "blks") == 0)
attr = T_EATTR_BLKS;
else if (strcmp (opt_info.arg, "country") == 0)
attr = T_EATTR_COUNTRY;
else
SUerror ("tiger2ps", "bad argument for -a option");
continue;
case -302:
outprefix = opt_info.arg;
continue;
case -306:
bboxflag = 1;
continue;
case -600:
savemask &= 14;
continue;
case -601:
savemask &= 13;
continue;
case -602:
savemask &= 11;
continue;
case -603:
savemask &= 7;
continue;
case -999:
SUwarnlevel++;
continue;
case '?':
SUusage (0, "tiger2ps", opt_info.arg);
norun = 1;
continue;
case ':':
SUusage (1, "tiger2ps", opt_info.arg);
norun = 2;
continue;
}
break;
}
if (norun)
return norun - 1;
argc -= opt_info.index, argv += opt_info.index;
initrecords ();
if (!(itemdict = dtopen (&itemdisc, Dtset)))
SUerror ("tiger2ps", "dtopen failed");
if (loaddata (indir) == -1)
SUerror ("tiger2ps", "loaddata failed");
if (splicemode > 0 && removedegree2vertices (splicemode) == -1)
SUerror ("tiger2ps", "removedegree2vertices");
if (digits >= 0 && simplifyxys (digits) == -1)
SUerror ("tiger2ps", "simplifyxys failed");
if (genpoints (attr) == -1)
SUerror ("tiger2ps", "genpoints failed");
calcbbox ();
if (bboxflag)
printbbox ();
if ((savemask & 1) && savepoints (outdir, outprefix) == -1)
SUerror ("tiger2ps", "savepoints failed for %s/%s", outdir, outprefix);
if ((savemask & 2) && savelines (outdir, outprefix) == -1)
SUerror ("tiger2ps", "savelines failed for %s/%s", outdir, outprefix);
if ((savemask & 4) && savepolys (outdir, outprefix) == -1)
SUerror ("tiger2ps", "savepolys failed for %s/%s", outdir, outprefix);
if ((savemask & 8) && gentris () == -1)
SUerror ("tiger2ps", "gentris failed");
if ((savemask & 8) && savetris (outdir, outprefix) == -1)
SUerror ("tiger2ps", "savetris failed for %s/%s", outdir, outprefix);
printstats ();
endbrk = (char *) sbrk (0);
SUmessage (1, "tiger2ps", "memory usage %d", endbrk - startbrk);
return 0;
}