1 /*-----------------------------------------------------------------------*/
2 /* formats.c --- input file support for xcircuit */
3 /* Copyright (c) 2001 Tim Edwards, Johns Hopkins University */
4 /*-----------------------------------------------------------------------*/
5
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include <string.h>
9 #include <ctype.h>
10 #ifndef _MSC_VER
11 #include <X11/Intrinsic.h>
12 #include <X11/StringDefs.h>
13 #endif
14
15 /*------------------------------------------------------------------------*/
16 /* Local includes */
17 /*------------------------------------------------------------------------*/
18
19 #ifdef TCL_WRAPPER
20 #include <tk.h>
21 #endif
22
23 #include "colordefs.h"
24 #include "xcircuit.h"
25
26 /*----------------------------------------------------------------------*/
27 /* Function prototype declarations */
28 /*----------------------------------------------------------------------*/
29 #include "prototypes.h"
30
31 /*------------------------------------------------------------------------*/
32 /* Useful (local) defines */
33 /*------------------------------------------------------------------------*/
34
35 #define xmat(a) (((a) - 3300) << 4)
36 #define ymat(a) ((3300 - (a)) << 4)
37 #define S_OBLIQUE 13 /* position of Symbol-Oblique in font array */
38
39 /*------------------------------------------------------------------------*/
40 /* External Variable definitions */
41 /*------------------------------------------------------------------------*/
42
43 extern char _STR[150];
44 extern Globaldata xobjs;
45 extern XCWindowData *areawin;
46 extern Display *dpy;
47
48 /*----------------------------------------------*/
49 #ifdef LGF
50
51 /*----------------------------------------------*/
52 /* loadlgf: Load an analog LGF file */
53 /* mode = 1: import into current page; */
54 /* mode = 0 clear current page and load */
55 /*----------------------------------------------*/
56
loadlgf(int mode)57 void loadlgf(int mode)
58 {
59 FILE *ps;
60 char inname[150], temp[500], *pdchar;
61 char **signals;
62 short *signets;
63 objectptr *libobj;
64 genericptr *iolabel;
65 int i, sigs;
66
67 sscanf(_STR, "%149s", inname);
68
69 ps = fopen(inname, "r");
70 if (ps == NULL) {
71 sprintf(inname, "%s.lgf", _STR);
72 ps = fopen(inname, "r");
73 if (ps == NULL) {
74 sprintf(inname, "%s.lfo", _STR);
75 ps = fopen(inname, "r");
76 if (ps == NULL) {
77 Wprintf("Can't open LGF file %s", inname);
78 return;
79 }
80 }
81 }
82
83 /* for PostScript file, remove ".lgf" or ".lfo" (to be replaced with ".ps") */
84
85 if ((pdchar = strstr(inname, ".l")) != NULL) *pdchar = '\0';
86
87 Wprintf("Loaded file: %s", inname);
88
89 /* Make sure that LGF object library has been loaded by loading it now. */
90
91 if (NameToLibrary(LGF_LIB) < 0) {
92 int ilib;
93 strcpy(_STR, LGF_LIB);
94 ilib = createlibrary(FALSE);
95 loadlibrary(ilib);
96 }
97
98 /* Read header information */
99
100 if (fgets(temp, 149, ps) == NULL) {
101 Wprintf("Error: end of file.");
102 return;
103 }
104 for (pdchar = temp; *pdchar != '-' && *pdchar != '\n'; pdchar++);
105 if (*pdchar == '\n') {
106 Wprintf("Not an LGF file?");
107 return;
108 }
109 if (*(++pdchar) != '5') {
110 Wprintf("Don't know how to read version %c.", *pdchar);
111 return;
112 }
113 if (fgets(temp, 149, ps) == NULL) {
114 Wprintf("Error: end of file.");
115 return;
116 }
117 for (pdchar = temp; *pdchar != 'f' && *pdchar != '\n'; pdchar++);
118 for (; *pdchar != 's' && *pdchar != '\n'; pdchar++);
119 if (*pdchar == '\n') {
120 Wprintf("Something wrong with the LGF file?");
121 return;
122 }
123
124 /* Done with header. . . okay to clear current page now unless importing */
125
126 if (mode == 0) {
127 reset(topobject, NORMAL);
128 pagereset(areawin->page);
129 }
130
131 /* Set up filename and object (page) name */
132
133 xobjs.pagelist[areawin->page]->filename = (char *) realloc (
134 xobjs.pagelist[areawin->page]->filename, (strlen(inname) + 1) * sizeof(char));
135 strcpy(xobjs.pagelist[areawin->page]->filename, inname);
136
137 /* If the filename has a path component, use only the root */
138
139 if ((pdchar = strrchr(inname, '/')) != NULL)
140 sprintf(topobject->name, "%s", pdchar + 1);
141 else
142 sprintf(topobject->name, "%s", inname);
143
144 renamepage(areawin->page);
145 printname(topobject);
146
147 /* Read objects */
148
149 for(;;) {
150 char *lineptr, keyptr, tmpstring[256];
151 int dval;
152 short pvalx, pvaly, pvalx2, pvaly2;
153
154 if (fgets(temp, 499, ps) == NULL) break; /* End-Of-File */
155
156 /* ignore whitespace */
157 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
158 if (*lineptr == '\n') continue; /* ignore blank lines */
159 switch(keyptr = *lineptr) {
160
161 case '#': /* comment */
162 break;
163
164 case 'n': /* nodes */
165 sscanf(++lineptr, "%d", &dval);
166 for (i = 0; i < dval; i++) {
167 do {
168 if (fgets(temp, 499, ps) == NULL) {
169 Wprintf("End of file in node section");
170 return;
171 }
172 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
173 } while (*lineptr == '\n');
174 }
175 break;
176
177 case 's': /* signal names --- save for future reference */
178
179 sscanf(++lineptr, "%d", &sigs);
180 signals = (char **) malloc(sigs * sizeof(char *));
181 signets = (short *) malloc(sigs * sizeof(short));
182 for (i = 0; i < sigs; i++) {
183 do {
184 if (fgets(temp, 499, ps) == NULL) {
185 Wprintf("End of file in signal section");
186 return;
187 }
188 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
189 } while (*lineptr == '\n');
190
191 sscanf(lineptr, "%hd %249s", &signets[i], tmpstring);
192
193 signals[i] = (char *)malloc((strlen(tmpstring) + 1) * sizeof(char));
194 sprintf(signals[i], "%s", tmpstring);
195 }
196 break;
197
198 case 'l': { /* labels */
199
200 labelptr *newlabel;
201 char *tstrp;
202
203 sscanf(++lineptr, "%d", &dval);
204 for (i = 0; i < dval; i++) {
205 do {
206 if (fgets(temp, 499, ps) == NULL) {
207 Wprintf("End of file in signal section");
208 return;
209 }
210 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
211 } while (*lineptr == '\n');
212
213 /* Allocate label, and put node number into X value, to be replaced */
214 /* Flag it using an inappropriate rotation value (= 500) */
215
216 sscanf(lineptr, "%hd %hd", &pvalx, &pvaly);
217
218 /* Get rid of newline character, if any */
219
220 ridnewline(lineptr);
221
222 /* forward to the label part of the input line */
223
224 tstrp = lineptr - 1;
225 while (isdigit(*(++tstrp)));
226 while (isspace(*(++tstrp)));
227 while (isdigit(*(++tstrp)));
228 while (isspace(*(++tstrp)));
229 while (isdigit(*(++tstrp)));
230 while (isspace(*(++tstrp)));
231
232 if (tstrp != NULL) { /* could be a blank line */
233 stringpart *strptr;
234
235 NEW_LABEL(newlabel, topobject);
236
237 labeldefaults(*newlabel, False, xmat(pvalx), ymat(pvaly));
238 (*newlabel)->anchor = TOP | NOTBOTTOM;
239 (*newlabel)->color = DEFAULTCOLOR;
240 (*newlabel)->string->data.font = 0;
241 strptr = makesegment(&((*newlabel)->string), NULL);
242 strptr->type = TEXT_STRING;
243 strptr->data.string = (char *)malloc(1 + strlen(tstrp));
244 strcpy(strptr->data.string, tstrp);
245 (*newlabel)->pin = NORMAL;
246 }
247 }}
248 break;
249
250 case 'w': { /* wires, implemented as single-segment polygons */
251 polyptr *newwire;
252 XPoint *tmppnts;
253
254 sscanf(++lineptr, "%d", &dval);
255 for (i = 0; i < dval; i++) {
256 do {
257 if (fgets(temp, 499, ps) == NULL) {
258 Wprintf("End of file in wire section");
259 return;
260 }
261 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
262 } while (*lineptr == '\n');
263
264 /* Allocate wire */
265
266 NEW_POLY(newwire, topobject);
267
268 sscanf(lineptr, "%hd %hd %hd %hd", &pvalx, &pvaly, &pvalx2, &pvaly2);
269 (*newwire)->number = 2;
270 (*newwire)->points = (XPoint *)malloc(2 * sizeof(XPoint));
271 (*newwire)->width = 1.0;
272 (*newwire)->style = UNCLOSED;
273 (*newwire)->color = DEFAULTCOLOR;
274 (*newwire)->passed = NULL;
275 tmppnts = (*newwire)->points;
276 tmppnts->x = xmat(pvalx);
277 tmppnts->y = ymat(pvaly);
278 (++tmppnts)->x = xmat(pvalx2);
279 tmppnts->y = ymat(pvaly2);
280
281 }}
282 break;
283
284 case 'p': /* solder dot */
285 sscanf(++lineptr, "%d", &dval);
286 for (i = 0; i < dval; i++) {
287 do {
288 if (fgets(temp, 499, ps) == NULL) {
289 Wprintf("End of file in solder dot section");
290 return;
291 }
292 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
293 } while (*lineptr == '\n');
294
295 /* Allocate arc */
296
297 sscanf(lineptr, "%hd %hd", &pvalx, &pvaly);
298 drawdot(xmat(pvalx), ymat(pvaly));
299 }
300 break;
301
302 case 'b': { /* boxes */
303 polyptr *newpoly;
304 pointlist newpoints;
305
306 sscanf(++lineptr, "%d", &dval);
307 for (i = 0; i < dval; i++) {
308 do {
309 if (fgets(temp, 499, ps) == NULL) {
310 Wprintf("End of file in box section");
311 return;
312 }
313 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
314 } while (*lineptr == '\n');
315
316 NEW_POLY(newpoly, topobject);
317
318 (*newpoly)->style = DASHED;
319 (*newpoly)->color = DEFAULTCOLOR;
320 (*newpoly)->width = 1.0;
321 (*newpoly)->number = 4;
322 (*newpoly)->points = (pointlist) malloc(4 * sizeof(XPoint));
323 (*newpoly)->passed = NULL;
324
325 newpoints = (*newpoly)->points;
326 sscanf(lineptr, "%hd %hd %hd %hd", &pvalx, &pvaly, &pvalx2, &pvaly2);
327 newpoints->x = xmat(pvalx);
328 newpoints->y = ymat(pvaly);
329 (newpoints + 1)->x = xmat(pvalx2);
330 (newpoints + 2)->y = ymat(pvaly2);
331
332 (newpoints + 2)->x = (newpoints + 1)->x;
333 (newpoints + 3)->x = newpoints->x;
334 (newpoints + 1)->y = newpoints->y;
335 (newpoints + 3)->y = (newpoints + 2)->y;
336 }}
337 break;
338
339 case 'g': { /* gates */
340
341 objinstptr *newinst;
342 labelptr *newlabel;
343 int j, k, hval, flip;
344
345 sscanf(++lineptr, "%d", &dval);
346 for (i = 0; i < dval; i++) {
347 do {
348 if (fgets(temp, 499, ps) == NULL) {
349 Wprintf("End of file in gates section");
350 return;
351 }
352 for (lineptr = temp; *lineptr != '\n'; lineptr++); *lineptr = '\0';
353 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\0'; lineptr++);
354 } while (*lineptr == '\0');
355
356 /* double loop through user libraries */
357
358 for (j = 0; j < xobjs.numlibs; j++) {
359 for (k = 0; k < xobjs.userlibs[j].number; k++) {
360 libobj = xobjs.userlibs[j].library + k;
361 if (!strcmp(lineptr, (*libobj)->name)) break;
362 }
363 if (k < xobjs.userlibs[j].number) break;
364 }
365 strcpy(tmpstring, lineptr);
366
367 /* read gate definition */
368
369 if (fgets(temp, 499, ps) == NULL) {
370 Wprintf("End of file during gate read");
371 return;
372 }
373 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
374
375 if (j < xobjs.numlibs || k < xobjs.userlibs[xobjs.numlibs - 1].number) {
376
377 NEW_OBJINST(newinst, topobject);
378
379 sscanf(lineptr, "%hd %hd %hd %*d %*d %*d %d", &pvalx, &pvaly,
380 &pvalx2, &hval);
381
382 flip = (pvalx2 >= 4) ? 1 : 0;
383 if (!strcmp(tmpstring, "FROM")) flip = 1 - flip;
384
385 (*newinst)->position.x = xmat(pvalx);
386 (*newinst)->position.y = ymat(pvaly);
387 (*newinst)->scale = 1.0;
388 (*newinst)->color = DEFAULTCOLOR;
389 (*newinst)->params = NULL;
390 (*newinst)->passed = NULL;
391
392 if (pvalx2 & 0x01) pvalx2 ^= 0x02;
393 if (pvalx2 >= 4)
394 (*newinst)->rotation = (float)(-((pvalx2 - 4) * 90) + 1);
395 else
396 (*newinst)->rotation = (float)((pvalx2 * 90) + 1);
397 (*newinst)->thisobject = *libobj;
398 (*newinst)->bbox.lowerleft.x = (*libobj)->bbox.lowerleft.x;
399 (*newinst)->bbox.lowerleft.y = (*libobj)->bbox.lowerleft.y;
400 (*newinst)->bbox.width = (*libobj)->bbox.width;
401 (*newinst)->bbox.height = (*libobj)->bbox.height;
402
403 /* Add label to "TO" and "FROM" */
404
405 if (!strcmp(tmpstring, "FROM") || !strcmp(tmpstring, "TO")) {
406 int nval;
407
408 hval--;
409 fgets(temp, 499, ps);
410 sscanf(temp, "%d", &nval);
411
412 for (k = 0; k < sigs; k++)
413 if (signets[k] == nval) {
414 stringpart *strptr;
415
416 NEW_LABEL(newlabel, topobject);
417 /* reconnect newinst if displaced by realloc() */
418 newinst = (objinstptr *)(topobject->plist
419 + topobject->parts - 2);
420
421 labeldefaults(*newlabel, False, (*newinst)->position.x,
422 (*newinst)->position.y);
423 (*newlabel)->color = DEFAULTCOLOR;
424 (*newlabel)->pin = LOCAL;
425 (*newlabel)->color = LOCALPINCOLOR;
426 if (!strcmp(tmpstring, "TO"))
427 (*newlabel)->position.x += ((flip) ? 48 : -48);
428 else
429 (*newlabel)->position.x += ((flip) ? 54 : -54);
430
431 (*newlabel)->anchor = NOTBOTTOM;
432 if (flip) (*newlabel)->anchor |= (RIGHT | NOTLEFT);
433 (*newlabel)->string->data.font = 0;
434 strptr = makesegment(&((*newlabel)->string), NULL);
435 strptr->type = TEXT_STRING;
436 strptr->data.string = (char *)malloc(1 + strlen(signals[k]));
437 strcpy(strptr->data.string, signals[k]);
438 break;
439 }
440 }
441 }
442
443 /* read through list of attributes */
444
445 else {
446 sscanf(lineptr, "%*d %*d %*d %*d %*d %*d %d", &hval);
447 Wprintf("No library object %s", tmpstring);
448 }
449
450 for (j = 0; j < hval + 1; j++) {
451 if (fgets(temp, 499, ps) == NULL) {
452 Wprintf("Unexpected end of file");
453 return;
454 }
455 }
456 /* read to next blank line */
457 do {
458 if (fgets(temp, 499, ps) == NULL) break;
459 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
460 } while (*lineptr != '\n');
461 }}
462 break;
463
464 case 'h': { /* history */
465 int j, hval;
466
467 sscanf(++lineptr, "%d", &dval);
468 for (i = 0; i < dval; i++) {
469 do {
470 if (fgets(temp, 499, ps) == NULL) {
471 Wprintf("End of file in history section");
472 return;
473 }
474 for (lineptr = temp; isspace(*lineptr) && *lineptr != '\n'; lineptr++);
475 } while (*lineptr == '\n');
476
477 /* read through history */
478
479 sscanf(lineptr, "%*d %d", &hval);
480 for (j = 0; j < hval; j++)
481 if (fgets(temp, 499, ps) == NULL) {
482 Wprintf("Unexpected end of file");
483 return;
484 }
485 }}
486 break;
487
488 case '.': /* blank, don't use for EOF */
489 break;
490
491 default:
492 Wprintf("Don't understand statement '%c'", *lineptr);
493 break;
494 }
495 }
496
497 /* check for unattached labels and delete them */
498
499 for (iolabel = topobject->plist; iolabel < topobject->plist +
500 topobject->parts; iolabel++)
501 if (IS_LABEL(*iolabel)) {
502 if (TOLABEL(iolabel)->rotation == 500.0) {
503 genericptr *tmplabel;
504
505 free(TOLABEL(iolabel)->string);
506 free(*iolabel);
507 for (tmplabel = iolabel + 1; tmplabel < topobject->plist +
508 topobject->parts; tmplabel++) *(tmplabel - 1) = *tmplabel;
509 topobject->parts--;
510 iolabel--;
511 }
512 }
513
514 calcbbox(areawin->topinstance);
515 centerview(areawin->topinstance);
516
517 for (i = 0; i < sigs; i++) free(signals[i]);
518 free(signals);
519 free(signets);
520 }
521
522 #endif
523 /* (LGF) */
524
525 /*-------------------------*/
526 #ifdef MATLAB_4X
527
528 /*------------------------*/
529 /* Load a Matlab .ps file */
530 /*------------------------*/
531 /*------------------------------------------------------------------*/
532 /* This is unfinished. . . needs a lot of thought and a lot of work */
533 /*------------------------------------------------------------------*/
534
loadmat4(caddr_t nullval)535 void loadmat4(caddr_t nullval)
536 {
537 char inname[150], *temp, *buffer, keyword[30], percentc, *pdchar;
538 int bufsize = 256;
539 short curcolor = DEFAULTCOLOR;
540 char colorstr[100][5];
541 short matcolors = 0;
542 float curwidth = 1.0;
543 int tmpstyle = UNCLOSED;
544
545 sscanf(_STR, "%149s", inname);
546
547 ps = fopen(inname, "r");
548 if (ps == NULL) {
549 sprintf(inname, "%s.ps", _STR);
550 ps = fopen(inname, "r");
551 if (ps == NULL) {
552 sprintf(inname, "%s.eps", _STR);
553 ps = fopen(inname, "r");
554 if (ps == NULL) {
555 Wprintf("Can't open Matlab PostScript file %s", inname);
556 return;
557 }
558 }
559 }
560
561 /* Keep same filename---overwriting file is end-user's own risk */
562
563 if ((pdchar = strstr(_STR, ".ps")) != NULL) *pdchar = '\0';
564 sprintf(topobject->name, "%s", _STR);
565 Wprintf("Loaded file: %s", inname);
566 renamepage(areawin->page);
567 printname(topobject);
568
569 /* Create input string buffer */
570
571 buffer = (char *)malloc(bufsize * sizeof(char));
572 temp = buffer;
573
574 /* Read header information */
575
576 if (fgets(temp, 149, ps) == NULL) {
577 Wprintf("Error: end of file.");
578 return;
579 }
580 if (*temp != '%' || *(temp + 1) != '!') {
581 Wprintf("Not a PostScript file?");
582 return;
583 }
584 if (fgets(temp, 149, ps) == NULL) {
585 Wprintf("Error: end of file.");
586 return;
587 }
588 if (!strstr(temp, "MATLAB")) {
589 Wprintf("Not a Matlab PostScript file?");
590 return;
591 }
592
593 /* Read through to Page start */
594
595 do {
596 if (fgets(temp, 149, ps) == NULL) {
597 Wprintf("Error: no pages in input.");
598 return;
599 }
600 if (strstr(temp, "%%Page:") != NULL) break;
601 } while (1);
602
603 /* Read objects */
604
605 do {
606 char *lineptr, keyptr;
607
608 if (fgets(temp, 255, ps) == NULL) break; /* End-Of-File */
609 temp = buffer;
610
611 /* scan from the end; ignore blank lines. */
612
613 for (lineptr = buffer; (*lineptr != '\n') && (*lineptr != '\0'); lineptr++);
614
615 /* ignore any blank lines and PostScript comment lines */
616
617 if (lineptr != buffer && *buffer != '%') {
618 for (keyptr = lineptr - 1; isspace(*keyptr) && keyptr != buffer; keyptr--);
619 for (; !isspace(*keyptr) && keyptr != buffer; keyptr--);
620 sscanf(keyptr, "%29s", keyword);
621
622 if (!strcmp(keyword, "showpage")) {
623 free(buffer);
624 return False; /* end of page */
625 }
626
627 else if (!strcmp(keyword, "bdef")) { /* new color definition */
628 char *bb;
629 float red, green, blue;
630 if ((bb = strchr(buffer, '{')) != NULL) {
631 sscanf(bb + 1, "%f %f %f", &red, &green, &blue);
632 curcolor = rgb_alloccolor((int)(red * 65535), (int)(green * 65535),
633 (int)(blue * 65535));
634 }
635 if ((bb = strchr(buffer, '/')) != NULL) {
636 sscanf(bb, "%4s", &colorstr[matcolors]);
637 matcolors++;
638 }
639 }
640
641 else if (!strcmp(keyword, "w")) { /* linewidth */
642 float tmpwidth;
643 sscanf(buffer, "%f", &tmpwidth)
644 }
645 else if (!strcmp(keyword, "DO")) { /* style */
646 tmpstyle = DOTTED | UNCLOSED;
647 }
648 else if (!strcmp(keyword, "SO")) { /* style */
649 tmpstyle = UNCLOSED;
650 }
651 else if (!strcmp(keyword, "DA")) { /* style */
652 tmpstyle = DASHED | UNCLOSED;
653 }
654 else if (!strcmp(keyword, "FMSR")) ; /* ignore font spec for now */
655 else if (!strcmp(keyword, "j")) ; /* ignore line join */
656 else if (!strcmp(keyword, "def")) ; /* ignore */
657 else if (!strcmp(keyword, "dictionary")) ; /* ignore */
658 else if (!strcmp(keyword, "np")) ; /* ignore clip paths */
659 else { /* continuation line ? */
660 for (lineptr = buffer; (*lineptr != '\n') && (*lineptr != '\0');
661 lineptr++);
662 if (*lineptr == '\n') *lineptr = ' ';
663
664 bufsize = (int)(lineptr - buffer) + 256;
665 buffer = (char *)realloc(buffer, bufsize * sizeof(char));
666 temp = buffer + (bufsize - 256);
667 }
668 }
669 } while (1);
670
671 free(buffer);
672 }
673
674 #endif
675 /* (MATLAB_4X) */
676 /*---------------------------------------------------------------------------*/
677