![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd / cifplot|
Return to main.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd / cifplot |
1.1 root 1: /*******************************************************************
2: * *
3: * File: CIFPLOT/main.c *
4: * Written by Dan Fitzpatrick *
5: * copyright 1980 -- Regents of the University of California *
6: * *
7: ********************************************************************/
8:
9: #include <stdio.h>
10: #include "defs.h"
11: #include "globals.h"
12: #include "structs.h"
13: #include "scanner.h"
14: #include "alloc.h"
15:
16: IMPORT InitInput();
17: IMPORT InitError();
18: IMPORT InitInter();
19: IMPORT InitText();
20: IMPORT yyparser();
21: IMPORT string Concat();
22: IMPORT ErrorSummary();
23: IMPORT AllocSummary();
24: IMPORT InterSummary();
25: IMPORT float PlotSize();
26: IMPORT float PlotScale();
27: IMPORT transform *MakeTransform();
28: IMPORT transform *Rotate();
29: IMPORT point *MakePoint();
30:
31: extern int FatalError;
32:
33: main(n,v)
34: int n;
35: char **v;
36: {
37: int b;
38: char ch;
39: InitGet();
40: InitError();
41: InitInter();
42: b = options(1,n,v);
43: if(extractor) InitExtractor();
44: InitInput(b,n,v);
45: InitText();
46: if(parser())
47: Error("Unrecoverable Syntax Error-Quit\n",FATAL);
48: Summary();
49: if(FatalError) exit(1);
50: if(output == NOPLOT) Intermediate();
51: InitFill();
52: FixScale();
53: AdjustWindow();
54: InitPlotter();
55: Grid();
56: fprintf(stderr,"Window %d %d %d %d\n",(int) GWindow.xmin,(int) GWindow.xmax,
57: (int) GWindow.ymin,(int) GWindow.ymax);
58: fprintf(stderr,"Scale: 1 micron is %f inches\n",scale);
59: if(MoreToPlot == 0)
60: fprintf(stderr,"The plot will be %4.2f feet\n",PlotSize());
61: else
62: fprintf(stderr,"The plot will be %d pages, %4.2f feet each\n",
63: MoreToPlot+1,PlotSize());
64: if(ask) {
65: fprintf(stderr,"Do you want a plot? ");
66: ch = getchar();
67: if(!(ch == 'y' || ch == 'Y' || ch == EOF)) exit(0);
68: if(ch == EOF) {
69: fprintf(stderr,"\n");
70: }
71: }
72: if(extractor) OpenExtractor();
73: Plot();
74: while(MoreToPlot) {
75: AdjustWindow();
76: ReStartPlotter();
77: Grid();
78: Plot();
79: }
80: if(debug) {
81: AllocSummary();
82: SortSummary();
83: CheckUnAct();
84: }
85: if(extractor) Extract();
86: }
87:
88: options(b,n,v)
89: int b,n;
90: char **v;
91: {
92: programName = "cifplot*";
93: debug = 0;
94: depth = 0;
95: list = 0;
96: standard = 0;
97: banner = "";
98: outline = 1;
99: SetScale = 0;
100: plot = 1;
101: extractor = 0;
102: baseName = "";
103: symbox = 1;
104: circle = 8;
105: RetCmt = 1;
106: text = 1;
107: printSymbolName = 1;
108: grid = 0;
109: ask = 1;
110: output = VARIAN;
111: NoPixcels = 2000;
112: GlobalTransform = MakeTransform();
113: while (v[b][0] == '-') {
114: switch(v[b][1]) {
115: case 'a':
116: if('0' <= v[b][2] && v[b][2] <= '9') {
117: sscanf(&v[b][2],"%d",&circle);
118: if(circle < 4) circle = 8;
119: }
120: else {
121: sscanf(v[++b],"%d",&circle);
122: if(circle < 4) circle = 8;
123: }
124: break;
125: case 'B':
126: symbox = 0;
127: break;
128: case 'b':
129: banner = v[++b];
130: if(b >= n) {
131: fprintf(stderr,"Banner must appear after the -b option\n");
132: abort();
133: }
134: break;
135: case 'C':
136: RetCmt = 0;
137: break;
138: case 'd':
139: if(v[b][2] != '\0') depth = atoi(&v[b][2]);
140: else depth = atoi(v[++b]);
141: break;
142: case 'D':
143: debug = 1;
144: if(v[b][2] != '\0') debug += v[b][2] - '0';
145: break;
146: case 'f':
147: outline = 0;
148: break;
149: case 'F':
150: if(v[b][2] != '\0')
151: fontfile = &(v[b][2]);
152: else
153: fontfile = v[++b];
154: break;
155: case 'g':
156: if(v[b][2] != '\0')
157: grid = atoi(&(v[b][2]));
158: else
159: grid = atoi(v[++b]);
160: break;
161: case 'H':
162: output = HP2648A;
163: break;
164: case 'i':
165: circle = 0;
166: break;
167: case 'I':
168: ask = 0;
169: break;
170: case 'l':
171: if(v[b][2] != '\0') Invisible(&v[b][2]);
172: else Invisible(v[++b]);
173: break;
174: case 'L':
175: list = 1;
176: break;
177: case 'r':
178: { transform *temp;
179: point pt;
180: pt.x = 0; pt.y = -1;
181: temp = Rotate(&pt,GlobalTransform);
182: FreeTransform(GlobalTransform);
183: GlobalTransform = temp;
184: }
185: break;
186: case 's':
187: SetScale = 1;
188: if(v[b][2] != '\0') {
189: if(EOF == sscanf(&(v[b][2]),"%f",&scale)) {
190: fprintf(stderr,"bad format on -s option\n");
191: abort();
192: }
193: }
194: else if(EOF == sscanf(v[++b],"%f",&scale)) {
195: fprintf(stderr,"bad format on -s option\n");
196: abort();
197: }
198: break;
199: case 't':
200: text = 0;
201: break;
202: case 'e':
203: standard = 1;
204: break;
205: case 'O':
206: output = NOPLOT;
207: if(v[b][2] != '\0') outfile = &(v[b][2]);
208: else outfile = v[++b];
209: if(b >= n) {
210: fprintf(stderr,"file name must appear after -O option\n");
211: abort();
212: }
213: break;
214: case 'p':
215: if(v[b][2] != '\0') {
216: readpat(&(v[b][2]));
217: break;
218: }
219: if(b+2 >= n) {
220: fprintf(stderr,"usage: %s -p file.stipple file.cif\n",v[0]);
221: abort();
222: }
223: readpat(v[++b]);
224: break;
225: case 'P':
226: output = LINEPRINTER;
227: break;
228: case 'S':
229: output = VSPOOL;
230: break;
231: case 'V':
232: output = VARIAN;
233: break;
234: case 'w':
235: if(b+5 >= n) {
236: fprintf(stderr,"usage: %s -w xmin xmax ymin ymax file.cif\n",v[0]);
237: abort();
238: }
239: GWindow.xmin = atoi(v[++b]);
240: GWindow.xmax = atoi(v[++b]);
241: GWindow.ymin = atoi(v[++b]);
242: GWindow.ymax = atoi(v[++b]);
243: if(GWindow.xmin > GWindow.xmax) {
244: fprintf(stderr,"error: xmin must be less than xmax\n");
245: abort();
246: }
247: if(GWindow.ymin > GWindow.ymax) {
248: fprintf(stderr,"error: ymin must be less than ymax\n");
249: abort();
250: }
251: break;
252: case 'W':
253: output = VERSATEC;
254: break;
255: case 'n':
256: plot = 0;
257: break;
258: case 'X':
259: plot = 0;
260: extractor = 1;
261: SetScale = 1;
262: scale = 0.02;
263: baseName = v[++b];
264: break;
265: default:
266: fprintf(stderr,"%s: Unknown option-Ignored\n",v[b]);
267: break;
268: }
269: b++;
270: }
271: file1 = Concat(v[b],0);
272: return(b);
273: }
274:
275: Summary()
276: {
277: ErrorSummary();
278: if(debug) AllocSummary();
279: InterSummary();
280: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.