Annotation of OpenXM_contrib/gnuplot/term/cgi.trm, Revision 1.1.1.1
1.1 maekawa 1: /*
2: * $Id: cgi.trm,v 1.12 1998/04/14 00:17:32 drd Exp $
3: *
4: */
5:
6: /* GNUPLOT - cgi.trm */
7: /*
8: * Copyright (C) 1990 - 1993 Ronald Florence
9: *
10: * Permission is hereby granted for unlimited non-commercial
11: * use of this code, on condition that the copyright
12: * notices are left intact and any modifications to the source
13: * code are noted as such. No warranty of any kind is implied
14: * or granted for this material.
15: *
16: * This file is included by ../term.h.
17: *
18: * This terminal driver supports SCO CGI drivers
19: *
20: * AUTHOR
21: * Ronald Florence <ron@mlfarm.com>
22: */
23:
24: /*
25: * adapted to the new terminal layout by Stefan Bodewig (Dec. 1995)
26: */
27:
28: #include "driver.h"
29:
30: #ifdef TERM_REGISTER
31: register_term(cgi)
32: register_term(hcgi)
33: #endif
34:
35: #ifdef TERM_PROTO
36: TERM_PUBLIC void CGI_init __PROTO((void));
37: TERM_PUBLIC void HCGI_init __PROTO((void));
38: TERM_PUBLIC void CGI_graphics __PROTO((void));
39: TERM_PUBLIC void CGI_text __PROTO((void));
40: TERM_PUBLIC void CGI_reset __PROTO((void));
41: TERM_PUBLIC void CGI_move __PROTO((unsigned int x, unsigned int y));
42: TERM_PUBLIC void CGI_vector __PROTO((unsigned int x, unsigned int y));
43: TERM_PUBLIC void CGI_linetype __PROTO((int linetype));
44: TERM_PUBLIC void CGI_put_text __PROTO((unsigned int x, unsigned int y, char *str));
45: TERM_PUBLIC int CGI_text_angle __PROTO((int ang));
46: TERM_PUBLIC int CGI_justify_text __PROTO((enum JUSTIFY mode));
47: TERM_PUBLIC void CGI_point __PROTO((unsigned int x, unsigned int y, int num));
48: #define CGI_XMAX 32767
49: #define CGI_YMAX 32767
50: #define CGI_VTIC (CGI_YMAX / 75)
51: #define CGI_HTIC term->h_tic
52: #define CGI_VCHAR term->v_char
53: #define CGI_HCHAR term->h_char
54: #endif
55:
56: #ifndef TERM_PROTO_ONLY
57: #ifdef TERM_BODY
58:
59: #ifdef VGA_MONO
60: static short rgb[16][3] =
61: {
62: 0, 0, 0, /* Black */
63: 1000, 1000, 1000, /* White */
64: 800, 800, 0, /* Red */
65: 0, 600, 0, /* Green */
66: 0, 800, 800, /* Blue */
67: 1000, 1000, 400, /* Yellow */
68: 0, 600, 600, /* Cyan */
69: 600, 600, 600, /* Magenta */
70: 800, 800, 0, /* Brown */
71: 600, 600, 600, /* Lt. Grey */
72: 400, 600, 400, /* Dark Grey */
73: 400, 600, 1000, /* Lt. Blue */
74: 400, 1000, 400, /* Lt Green */
75: 400, 1000, 1000, /* Lt Cyan */
76: 1000, 600, 400, /* Lt Red */
77: 600, 600, 1000 /* Lt Magenta */
78: };
79: #endif
80:
81: #define CRT (gout[45] == 0)
82: #define CGICOLORS gout[13]
83: #define CGILINES gout[6]
84: #define CGIROTATES gout[36]
85: #define CGITEXTALIGN gout[48]
86:
87: static short gout[66];
88: static short cgidev;
89: static short vect[4];
90: static short gin[19] =
91: {
92: 0, /* default aspect ratio */
93: 1, /* solid line */
94: 1, /* line color */
95: 1, /* marker type . */
96: 1, /* marker color */
97: 1, /* graphics text font */
98: 1, /* graphics text color */
99: 0, /* fill interior style */
100: 0, /* fill style index */
101: 1, /* fill color index */
102: 1 /* prompt for paper changes */
103: };
104:
105: char *cgidriver, *getenv();
106:
107:
108: TERM_PUBLIC void CGI_init()
109: {
110: if (getenv(cgidriver = "CGIDISP") == NULL)
111: HCGI_init();
112: }
113:
114:
115: TERM_PUBLIC void HCGI_init()
116: {
117: if (getenv(cgidriver = "CGIPRNT") == NULL)
118: int_error("no CGI driver", NO_CARET);
119: }
120:
121:
122: TERM_PUBLIC void CGI_graphics()
123: {
124: int i, aspect;
125: char *s;
126: short font_cap[9];
127: char err_str[80];
128:
129: if ((s = getenv("ASPECT")) != NULL && (aspect = atoi(s)) >= 0 && aspect <= 3)
130: gin[0] = aspect;
131: for (i = 0; cgidriver[i]; i++)
132: gin[11 + i] = cgidriver[i];
133: gin[18] = ' ';
134:
135: if (v_opnwk(gin, &cgidev, gout) < 0) {
136: sprintf(err_str, "CGI error %d opening %s", -vq_error(), cgidriver);
137: int_error(err_str, NO_CARET);
138: }
139: vqt_representation(cgidev, 9, font_cap);
140: CGI_VCHAR = font_cap[8] * 3 / 2;
141: CGI_HCHAR = font_cap[7];
142: CGI_HTIC = CGI_VTIC * ((double) gout[1] / (double) gout[4]) /
143: ((double) gout[0] / (double) gout[3]);
144: #ifdef VGA_MONO
145: if (CGICOLORS > 2)
146: vsc_table(cgidev, 0, CGICOLORS, rgb);
147: #endif
148: }
149:
150:
151: TERM_PUBLIC void CGI_text()
152: {
153: if (CRT) {
154: short ptin[2];
155: char strin[2];
156:
157: ptin[0] = 0;
158: ptin[1] = 0;
159: vrq_string(cgidev, 1, 0, ptin, strin);
160: }
161: v_clswk(cgidev);
162: }
163:
164:
165: TERM_PUBLIC void CGI_reset()
166: {
167: }
168:
169:
170: TERM_PUBLIC void CGI_move(x, y)
171: unsigned int x, y;
172: {
173: vect[0] = x;
174: vect[1] = y;
175: }
176:
177: TERM_PUBLIC void CGI_vector(x, y)
178: unsigned int x, y;
179: {
180: vect[2] = x;
181: vect[3] = y;
182: v_pline(cgidev, 2, vect);
183: vect[0] = x;
184: vect[1] = y;
185: }
186:
187:
188: TERM_PUBLIC void CGI_linetype(linetype)
189: int linetype;
190: {
191: short lcolor;
192:
193: if (CGICOLORS > 2) {
194: lcolor = (linetype + 2) % CGICOLORS + 1;
195: vsl_color(cgidev, lcolor);
196: vsm_color(cgidev, lcolor);
197: }
198: vsl_type(cgidev, (linetype < 1) ? 1 : (linetype % CGILINES) + 1);
199: }
200:
201:
202: TERM_PUBLIC void CGI_put_text(x, y, str)
203: unsigned int x, y;
204: char *str;
205: {
206: v_gtext(cgidev, (short) x, (short) y, str);
207: }
208:
209:
210: TERM_PUBLIC CGI_text_angle(ang)
211: int ang;
212: {
213: if (!CGIROTATES)
214: return FALSE;
215: /* angles are 1/10 degree ccw */
216: vst_rotation(cgidev, (ang) ? 900 : 0);
217: return TRUE;
218: }
219:
220:
221: TERM_PUBLIC CGI_justify_text(mode)
222: enum JUSTIFY mode;
223: {
224: short hor_in, hor_out, vert_out;
225:
226: if (!CGITEXTALIGN)
227: return FALSE;
228:
229: switch (mode) {
230: case LEFT:
231: hor_in = 0;
232: break;
233: case CENTRE:
234: hor_in = 1;
235: break;
236: case RIGHT:
237: hor_in = 2;
238: break;
239: }
240: vst_alignment(cgidev, hor_in, 1, &hor_out, &vert_out);
241: return TRUE;
242: }
243:
244:
245: #define POINT_TYPES 6
246:
247: TERM_PUBLIC void CGI_point(x, y, num)
248: unsigned int x, y;
249: int num;
250: {
251: short point[2];
252: static short cgimarker[POINT_TYPES] = { 1, 2, 6, 4, 5, 3 };
253: /* . + <> [] X * */
254: if (num < 0) {
255: CGI_move(x, y);
256: CGI_vector(x, y);
257: } else {
258: vsm_type(cgidev, cgimarker[num % POINT_TYPES]);
259: point[0] = x;
260: point[1] = y;
261: v_pmarker(cgidev, 1, point);
262: }
263: }
264:
265: #endif /* TERM_BODY */
266:
267: #ifdef TERM_TABLE
268:
269: TERM_TABLE_START(cgi_driver)
270: "cgi", "SCO CGI drivers (requires CGIDISP or CGIPRNT env variable)",
271: CGI_XMAX, CGI_YMAX, 0, 0,
272: CGI_VTIC, 0, options_null, CGI_init, CGI_reset,
273: CGI_text, null_scale, CGI_graphics, CGI_move, CGI_vector,
274: CGI_linetype, CGI_put_text, CGI_text_angle,
275: CGI_justify_text, CGI_point, do_arrow, set_font_null
276: TERM_TABLE_END(cgi_driver)
277:
278: #undef LAST_TERM
279: #define LAST_TERM cgi_driver
280:
281: TERM_TABLE_START(hcgi_driver)
282: "hcgi", "SCO CGI drivers (hardcopy, requires CGIPRNT env variable)",
283: CGI_XMAX, CGI_YMAX, 0, 0,
284: CGI_VTIC, 0, options_null, HCGI_init, CGI_reset,
285: CGI_text, null_scale, CGI_graphics, CGI_move, CGI_vector,
286: CGI_linetype, CGI_put_text, CGI_text_angle,
287: CGI_justify_text, CGI_point, do_arrow, set_font_null
288: TERM_TABLE_END(hcgi_driver)
289:
290: #undef LAST_TERM
291: #define LAST_TERM hcgi_driver
292:
293: #endif /* TERM_TABLE */
294: #endif /* TERM_PROTO_ONLY */
295:
296: #ifdef TERM_HELP
297: START_HELP(cgi)
298: "1 cgi",
299: "?commands set terminal cgi",
300: "?set terminal cgi",
301: "?set term cgi",
302: "?terminal cgi",
303: "?term cgi",
304: "?cgi",
305: "?commands set terminal hcgi",
306: "?set terminal hcgi",
307: "?set term hcgi",
308: "?terminal hcgi",
309: "?term hcgi",
310: "?hcgi",
311: " The `cgi` and `hcgi` terminal drivers support SCO CGI drivers. `hcgi` is for",
312: " printers; the environment variable CGIPRNT must be set. `cgi` may be used",
313: " for either a display or hardcopy; if the environment variable CGIDISP is set,",
314: " then that display is used. Otherwise CGIPRNT is used.",
315: "",
316: " These terminals have no options."
317: END_HELP(cgi)
318: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to cgi.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term