Annotation of OpenXM_contrib/gnuplot/term/openstep.trm, Revision 1.1.1.1
1.1 maekawa 1: /* -*- objc -*-
2: * $Id: openstep.trm,v 1.5.2.1 1999/08/20 12:09:47 lhecking Exp $
3: *
4: */
5:
6: /* GNUPLOT - openstep.trm */
7:
8: /*[
9: * Copyright 1991 - 1993, 1998
10: *
11: * Permission to use, copy, and distribute this software and its
12: * documentation for any purpose with or without fee is hereby granted,
13: * provided that the above copyright notice appear in all copies and
14: * that both that copyright notice and this permission notice appear
15: * in supporting documentation.
16: *
17: * Permission to modify the software is granted, but not the right to
18: * distribute the complete modified source code. Modifications are to
19: * be distributed as patches to the released version. Permission to
20: * distribute binaries produced by compiling modified sources is granted,
21: * provided you
22: * 1. distribute the corresponding source modifications from the
23: * released version in the form of a patch file along with the binaries,
24: * 2. add special version identification to distinguish your version
25: * in addition to the base release version number,
26: * 3. provide your name and address as the primary contact for the
27: * support of your modified version, and
28: * 4. retain our contact information in regard to use of the base
29: * software.
30: * Permission to distribute the released version of the source code along
31: * with corresponding source modifications in the form of a patch file is
32: * granted with same provisions 2 through 4 for binary distributions.
33: *
34: * This software is provided "as is" without express or implied warranty
35: * to the extent permitted by applicable law.
36: ]*/
37:
38: /*
39: * This file is included by ../term.c via ../term.h.
40: *
41: * This terminal driver supports:
42: * next
43: *
44: * AUTHORS
45: * Robert Lutwak from Russell Lang's post.trm
46: * 'old' option invokes Nick Strobel's original, single viewport terminal
47: *
48: * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
49: *
50: * This terminal attempts to connect, via the NeXTstep Distributed
51: * Objects system, to the "gnuplotServer." If there is no such
52: * service registered with the OS, the terminal attempts to fire
53: * up GnuTerm.app. If the user has not set the environment variable
54: * GNUTERMPATH, the terminal uses the users ApplicationPaths Workspace
55: * dwrite to search for GnuTerm.app (Note: this is usually something
56: * like ~/Apps, ~/LocalApps, ~/NextApps, etc.).
57: * In order to use this filter, you MUST have GnuTerm.app installed
58: * on your system.
59: *
60: * Once connected to the server, this filter is basically Russell Lang's
61: * Postscript filter, except that the resultant postscript code
62: * is sent, via the D.O. system, to GnuTerm.app, which manages
63: * the windows which produce the postscript output on the screen.
64: *
65: *
66: * Defaults are
67: * 'set term next new dashed auto "Helvetica" 14'
68: *
69: * To change font to Times-Roman and font size to 20pts use
70: * 'set term next "Times-Roman" 20'.
71: *
72: * to choose window by title
73: * 'set term next title "Window title"
74: *
75: * Monitor Options:
76: * monochrome, color
77: *
78: * To invoke Nick Strobel's old terminal
79: * 'set term next old'
80: */
81:
82: #include "driver.h"
83:
84: #ifdef TERM_REGISTER
85: register_term(next)
86: #endif
87:
88: #ifdef TERM_PROTO
89:
90: #import <Foundation/Foundation.h>
91: #import <AppKit/AppKit.h>
92: #import <stdarg.h>
93:
94:
95: TERM_PUBLIC void NEXT_options __PROTO((void));
96: TERM_PUBLIC void NEXT_common_init __PROTO((int uses_fonts, unsigned int xoff, unsigned int yoff, unsigned int xsize, unsigned int ysize, char **dict));
97: TERM_PUBLIC void NEXT_init __PROTO((void));
98: TERM_PUBLIC void NEXT_graphics __PROTO((void));
99: TERM_PUBLIC void NEXT_text __PROTO((void));
100: TERM_PUBLIC void NEXT_reset __PROTO((void));
101: TERM_PUBLIC void NEXT_linetype __PROTO((int linetype));
102: TERM_PUBLIC void NEXT_move __PROTO((unsigned int x, unsigned int y));
103: TERM_PUBLIC void NEXT_vector __PROTO((unsigned int x, unsigned int y));
104: TERM_PUBLIC void NEXT_put_text __PROTO((unsigned int x, unsigned int y, const char *str));
105: TERM_PUBLIC int NEXT_text_angle __PROTO((int ang));
106: TERM_PUBLIC int NEXT_justify_text __PROTO((enum JUSTIFY mode));
107: TERM_PUBLIC void NEXT_point __PROTO((unsigned int x, unsigned int y, int number));
108: TERM_PUBLIC int NEXT_set_font __PROTO((const char *font));
109: TERM_PUBLIC char *NEXT_RememberFont __PROTO((char *fname));
110: TERM_PUBLIC void NEXT_set_pointsize __PROTO((double size));
111:
112:
113: #define NEXT_POINT_TYPES 8 /* div */
114: #define NEXT_XOFF 1 /* page offset in pts */
115: #define NEXT_YOFF 1
116: #define NEXT_XMAX 6400
117: #define NEXT_YMAX 4800
118: #define NEXT_XLAST (NEXT_XMAX - 1)
119: #define NEXT_YLAST (NEXT_YMAX - 1)
120: #define NEXT_VTIC (NEXT_YMAX/80)
121: #define NEXT_HTIC (NEXT_YMAX/80)
122: #define NEXT_SC (10) /* scale is 1pt = 10 units */
123: #define NEXT_LW (0.5*NEXT_SC) /* linewidth = 0.5 pts */
124: #define NEXT_VCHAR (14*NEXT_SC) /* default is 14 point characters */
125: #define NEXT_HCHAR (14*NEXT_SC*6/10)
126:
127: #define GOT_NEXT_PROTO
128: #endif
129:
130:
131: #ifndef TERM_PROTO_ONLY
132:
133: #ifdef TERM_BODY
134:
135: @interface GnuTermDriver:NSObject
136: {
137: id server;
138: }
139:
140: - (void)senderIsInvalid:(NSNotification *)sender;
141: - (void)plot:(char *)PSstr;
142: -init;
143: @end
144:
145:
146: #define DEFAULTNEXTSIZE 10000
147:
148: static NSAutoreleasePool *arpool; // our autorelease pool
149: static id gnuTermAccess; /* local object manages the D.O. connection */
150:
151: static char *NEXTBuffer, *NEXTBufAt, *NEXTBufEnd;
152: static int NEXTsize;
153: static char NEXTTmpBuf[1000];
154: static void NEXTPrintf(char *,...);
155: static TBOOLEAN NEXT_oldterminal = FALSE;
156: /*static TBOOLEAN NEXT_colordetect();*/
157:
158: static char NEXT_title[MAX_LINE_LEN + 1]; /* name of font */
159:
160: static char NEXT_font[MAX_LINE_LEN + 1] = "Helvetica"; /* name of font */
161: static int NEXT_fontsize = 14; /* size of font in pts */
162: static TBOOLEAN NEXT_color = FALSE;
163: static TBOOLEAN NEXT_solid = FALSE; /* use dashed lines */
164: static int NEXT_path_count = 0; /* count of lines in path */
165: static int NEXT_ang = 0; /* text angle */
166: static enum JUSTIFY NEXT_justify = LEFT; /* text is flush left */
167:
168: static TBOOLEAN NEXT_duplex_state = FALSE;
169: static TBOOLEAN NEXT_duplex_option = FALSE;
170:
171: static char GPFAR *GPFAR NEXT_header[] =
172: {
173: "/M {moveto} bind def\n",
174: "/L {lineto} bind def\n",
175: "/R {rmoveto} bind def\n",
176: "/V {rlineto} bind def\n",
177: "/vpt2 vpt 2 mul def\n",
178: "/hpt2 hpt 2 mul def\n",
179: /* flush left show */
180: "/Lshow { currentpoint stroke M\n",
181: " 0 vshift R show } def\n",
182: /* flush right show */
183: "/Rshow { currentpoint stroke M\n",
184: " dup stringwidth pop neg vshift R show } def\n",
185: /* centred show */
186: "/Cshow { currentpoint stroke M\n",
187: " dup stringwidth pop -2 div vshift R show } def\n",
188: /* Dash or Color Line */
189: "/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }\n",
190: " {pop pop pop Solid {pop []} if 0 setdash} ifelse } def\n",
191: /* Border Lines */
192: "/BL { stroke gnulinewidth 2 mul setlinewidth } def\n",
193: /* Axes Lines */
194: "/AL { stroke gnulinewidth 2 div setlinewidth } def\n",
195: /* Plot Lines */
196: "/PL { stroke gnulinewidth setlinewidth } def\n",
197: /* Line Types */
198: "/LTb { BL [] 0 0 0 DL } def\n", /* border */
199: "/LTa { AL [1 dl 2 dl] 0 setdash 0 0 0 setrgbcolor } def\n", /* axes */
200: "/LT0 { PL [] 0 1 0 DL } def\n",
201: "/LT1 { PL [4 dl 2 dl] 0 0 1 DL } def\n",
202: "/LT2 { PL [2 dl 3 dl] 1 0 0 DL } def\n",
203: "/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def\n",
204: "/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def\n",
205: "/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def\n",
206: "/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def\n",
207: "/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def\n",
208: "/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def\n",
209: /* Point (Round) *//* Matt Heffron make it round */
210: "/Pnt { stroke [] 0 setdash\n",
211: " gsave 1 setlinecap M 0 0 V stroke grestore } def\n",
212:
213: /* Diamond */
214: "/Dia { stroke [] 0 setdash 2 copy vpt add M\n",
215: " hpt neg vpt neg V hpt vpt neg V\n",
216: " hpt vpt V hpt neg vpt V closepath stroke\n",
217: " Pnt } def\n",
218:
219: /* Plus */
220: "/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V\n",
221: " currentpoint stroke M\n",
222: " hpt neg vpt neg R hpt2 0 V stroke\n",
223: " } def\n",
224:
225: /* Box */
226: "/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M\n",
227: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
228: " hpt2 neg 0 V closepath stroke\n",
229: " Pnt } def\n",
230:
231: /* Cross (X) */
232: "/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
233: " hpt2 vpt2 neg V currentpoint stroke M\n",
234: " hpt2 neg 0 R hpt2 vpt2 V stroke } def\n",
235:
236: /* Triangle Up*/
237: "/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M\n",
238: " hpt neg vpt -1.62 mul V\n",
239: " hpt 2 mul 0 V\n",
240: " hpt neg vpt 1.62 mul V closepath stroke\n",
241: " Pnt } def\n",
242:
243: /* Star */
244: "/Star { 2 copy Pls Crs } def\n",
245:
246: /* div added filed box */
247: /* Filled Box */
248: "/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
249: " 0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
250: " hpt2 neg 0 V closepath fill } def\n",
251:
252: /* div added filled triangle */
253: /* Triangle Up, Filled */
254: "/TriUF { stroke [] 0 setdash vpt 1.12 mul add M\n",
255: " hpt neg vpt -1.62 mul V\n",
256: " hpt 2 mul 0 V\n",
257: " hpt neg vpt 1.62 mul V closepath fill } def\n",
258:
259: /* Matt Heffron: added a few more types */
260: /* Triangle Down */
261: "/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M\n",
262: " hpt neg vpt 1.62 mul V\n",
263: " hpt 2 mul 0 V\n",
264: " hpt neg vpt -1.62 mul V closepath stroke\n",
265: " Pnt } def\n",
266:
267: /* Triangle Down, Filled*/
268: "/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M\n",
269: " hpt neg vpt 1.62 mul V\n",
270: " hpt 2 mul 0 V\n",
271: " hpt neg vpt -1.62 mul V closepath fill} def\n",
272:
273: /* Diamond, Filled */
274: "/DiaF { stroke [] 0 setdash vpt add M\n",
275: " hpt neg vpt neg V hpt vpt neg V\n",
276: " hpt vpt V hpt neg vpt V closepath fill } def\n",
277:
278: /* Pentagon */
279: "/Pent { stroke [] 0 setdash 2 copy gsave\n",
280: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
281: " closepath stroke grestore Pnt } def\n",
282:
283: /* Pentagon, Filled */
284: "/PentF { stroke [] 0 setdash gsave\n",
285: " translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
286: " closepath fill grestore } def\n",
287:
288: /* Circle */
289: "/Circle { stroke [] 0 setdash 2 copy\n",
290: " hpt 0 360 arc stroke Pnt } def\n",
291:
292: /* Circle,Filled */
293: "/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def\n",
294: /* 16 differently filled circles */
295: "/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450 arc } bind def\n",
296: "/C1 { BL [] 0 setdash 2 copy moveto\n",
297: " 2 copy vpt 0 90 arc closepath fill\n",
298: " vpt 0 360 arc closepath } bind def\n",
299: "/C2 { BL [] 0 setdash 2 copy moveto\n",
300: " 2 copy vpt 90 180 arc closepath fill\n",
301: " vpt 0 360 arc closepath } bind def\n",
302: "/C3 { BL [] 0 setdash 2 copy moveto\n",
303: " 2 copy vpt 0 180 arc closepath fill\n",
304: " vpt 0 360 arc closepath } bind def\n",
305: "/C4 { BL [] 0 setdash 2 copy moveto\n",
306: " 2 copy vpt 180 270 arc closepath fill\n",
307: " vpt 0 360 arc closepath } bind def\n",
308: "/C5 { BL [] 0 setdash 2 copy moveto\n",
309: " 2 copy vpt 0 90 arc\n",
310: " 2 copy moveto\n",
311: " 2 copy vpt 180 270 arc closepath fill\n",
312: " vpt 0 360 arc } bind def\n",
313: "/C6 { BL [] 0 setdash 2 copy moveto\n",
314: " 2 copy vpt 90 270 arc closepath fill\n",
315: " vpt 0 360 arc closepath } bind def\n",
316: "/C7 { BL [] 0 setdash 2 copy moveto\n",
317: " 2 copy vpt 0 270 arc closepath fill\n",
318: " vpt 0 360 arc closepath } bind def\n",
319: "/C8 { BL [] 0 setdash 2 copy moveto\n",
320: " 2 copy vpt 270 360 arc closepath fill\n",
321: " vpt 0 360 arc closepath } bind def\n",
322: "/C9 { BL [] 0 setdash 2 copy moveto\n",
323: " 2 copy vpt 270 450 arc closepath fill\n",
324: " vpt 0 360 arc closepath } bind def\n",
325: "/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill\n",
326: " 2 copy moveto\n",
327: " 2 copy vpt 90 180 arc closepath fill\n",
328: " vpt 0 360 arc closepath } bind def\n",
329: "/C11 { BL [] 0 setdash 2 copy moveto\n",
330: " 2 copy vpt 0 90 arc closepath fill\n",
331: " 2 copy moveto\n",
332: " 2 copy vpt 180 360 arc closepath fill\n",
333: " vpt 0 360 arc closepath } bind def\n",
334: "/C12 { BL [] 0 setdash 2 copy moveto\n",
335: " 2 copy vpt 180 360 arc closepath fill\n",
336: " vpt 0 360 arc closepath } bind def\n",
337: "/C13 { BL [] 0 setdash 2 copy moveto\n",
338: " 2 copy vpt 0 90 arc closepath fill\n",
339: " 2 copy moveto\n",
340: " 2 copy vpt 180 360 arc closepath fill\n",
341: " vpt 0 360 arc closepath } bind def\n",
342: "/C14 { BL [] 0 setdash 2 copy moveto\n",
343: " 2 copy vpt 90 360 arc closepath fill\n",
344: " vpt 0 360 arc } bind def\n",
345: "/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill\n",
346: " vpt 0 360 arc closepath } bind def\n",
347:
348: /* Auxiliary definitions for rectangles */
349:
350: "/Rec { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n",
351: " neg 0 rlineto closepath } bind def\n",
352: "/Square { dup Rec } bind def\n",
353: "/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def\n",
354:
355: /* 16 differently filled squares */
356:
357: "/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def\n",
358: "/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def\n",
359: "/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
360: "/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def\n",
361: "/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
362: "/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill\n",
363: " exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
364: "/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
365: "/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill\n",
366: " 2 copy vpt Square fill\n",
367: " Bsquare } bind def\n",
368: "/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def\n",
369: "/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
370: "/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill\n",
371: " Bsquare } bind def\n",
372: "/S11 { 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill\n",
373: " Bsquare } bind def\n",
374: "/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def\n",
375: "/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
376: " 2 copy vpt Square fill Bsquare } bind def\n",
377: "/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
378: " 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
379: "/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def\n",
380:
381: /* 16 different diamonds (actually just rotated squares) */
382:
383: "/D0 { gsave translate 45 rotate 0 0 Box stroke grestore } bind def\n",
384: "/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def\n",
385: "/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def\n",
386: "/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def\n",
387: "/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def\n",
388: "/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def\n",
389: "/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def\n",
390: "/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def\n",
391: "/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def\n",
392: "/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def\n",
393: "/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def\n",
394: "/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def\n",
395: "/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def\n",
396: "/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def\n",
397: "/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def\n",
398: "/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def\n",
399:
400: NULL
401: };
402:
403: static char GPFAR *GPFAR ENHNEXT_header[] =
404: {
405: /* For MFshow and MFwidth the tos is an array with the string and font info: */
406: /* [<fontname (a string)> <fontsize> <vertical offset> <width significant?> <text string>] */
407:
408: "/MFshow {{dup dup 0 get findfont exch 1 get scalefont setfont\n",
409: " [ currentpoint ] exch dup 2 get 0 exch rmoveto dup 4 get show dup\n",
410: " 3 get {2 get neg 0 exch rmoveto pop} {pop aload pop moveto}ifelse} forall} bind def\n",
411: "/MFwidth {0 exch {dup 3 get{dup dup 0 get findfont exch 1 get scalefont setfont\n",
412: " 4 get stringwidth pop add}\n",
413: " {pop} ifelse} forall} bind def\n",
414:
415: /* flush left show */
416: "/MLshow { currentpoint stroke M\n",
417: " 0 exch R MFshow } bind def\n",
418:
419: /* flush right show */
420: "/MRshow { currentpoint stroke M\n",
421: " exch dup MFwidth neg 3 -1 roll R MFshow } def\n",
422:
423: /* centred show */
424: "/MCshow { currentpoint stroke M\n",
425: " exch dup MFwidth -2 div 3 -1 roll R MFshow } def\n",
426: NULL
427: };
428:
429: /* added to post by Matt Heffron <heffron@falstaff.css.beckman.com> */
430: /* moved to post.trm by drd */
431:
432: struct NEXT_FontName {
433: char *name;
434: struct NEXT_FontName *next;
435: } *NEXT_DocFonts = NULL;
436:
437: TERM_PUBLIC char *
438: NEXT_RememberFont(fname)
439: char *fname;
440: {
441: struct NEXT_FontName *fnp;
442:
443: for (fnp = NEXT_DocFonts; fnp && strcmp(fnp->name, fname); fnp = fnp->next);
444: if (fnp)
445: return fnp->name; /* we must have found it in the list */
446:
447: if (encoding == ENCODING_ISO_8859_1) {
448: NEXTPrintf("/%s reencodeISO def\n", fname);
449: }
450: fnp = (struct NEXT_FontName *) gp_alloc(sizeof(struct NEXT_FontName), "PostScript Font record");
451: fnp->name = gp_alloc(1 + strlen(fname), "PostScript Font name");
452: strcpy(fnp->name, fname);
453: fnp->next = NEXT_DocFonts;
454: NEXT_DocFonts = fnp;
455: return fnp->name;
456: }
457:
458: int NEXT_pen_x, NEXT_pen_y;
459: int NEXT_taken;
460: int NEXT_linetype_last;
461: TBOOLEAN NEXT_relative_ok;
462:
463: TERM_PUBLIC void
464: NEXT_options()
465: {
466: char buf[40];
467: for (; !END_OF_COMMAND; ++c_token) {
468: if (almost_equals(c_token, "d$efault")) {
469: NEXT_oldterminal = FALSE;
470: /*NEXT_color=NEXT_colordetect(); */
471: NEXT_color = FALSE;
472: NEXT_solid = FALSE;
473: NEXT_duplex_option = FALSE;
474: strcpy(NEXT_font, "Helvetica");
475: NEXT_fontsize = 14;
476: term->v_char = (unsigned int) (NEXT_fontsize * NEXT_SC);
477: term->h_char = (unsigned int) (NEXT_fontsize * NEXT_SC * 6 / 10);
478: term->put_text = NEXT_put_text;
479: } else if (almost_equals(c_token, "mono$chrome")) {
480: NEXT_color = FALSE;
481: } else if (almost_equals(c_token, "col$or")
482: || almost_equals(c_token, "col$our")) {
483: NEXT_color = TRUE;
484: }
485: /*
486: else if (almost_equals(c_token,"auto$detect")) {
487: NEXT_color = NEXT_colordetect();
488: }
489: */
490:
491: else if (almost_equals(c_token, "so$lid")) {
492: NEXT_solid = TRUE;
493: } else if (almost_equals(c_token, "da$shed")) {
494: NEXT_solid = FALSE;
495: } else if (almost_equals(c_token, "si$mplex")) {
496: NEXT_duplex_state = FALSE;
497: NEXT_duplex_option = TRUE;
498: } else if (almost_equals(c_token, "du$plex")) {
499: NEXT_duplex_state = TRUE;
500: NEXT_duplex_option = TRUE;
501: } else if (almost_equals(c_token, "defaultp$lex")) {
502: NEXT_duplex_option = FALSE;
503: } else if (isstring(c_token)) {
504: quote_str(NEXT_font, c_token, MAX_LINE_LEN + 1);
505:
506: /* We must have font size specified */
507: copy_str(buf, ++c_token, 40);
508: NEXT_fontsize = atoi(buf);
509: term->v_char = (unsigned int) (NEXT_fontsize * NEXT_SC);
510: term->h_char = (unsigned int) (NEXT_fontsize * NEXT_SC * 6 / 10);
511: sprintf(default_font, "%s,%d", NEXT_font, NEXT_fontsize);
512: } else if (almost_equals(c_token, "ti$tle")) {
513: if (!isstring(++c_token)) {
514: fprintf(stderr, "usage: set term next title \"newtitle\"\n");
515: --c_token;
516: }
517: quote_str(NEXT_title, c_token, MAX_LINE_LEN + 1);
518: } else if (almost_equals(c_token, "old")) {
519: NEXT_oldterminal = TRUE;
520: } else if (almost_equals(c_token, "new")) {
521: NEXT_oldterminal = FALSE;
522: }
523: }
524:
525:
526:
527: sprintf(term_options, "%s %s %s %s \"%s\" %d title \"%s\"",
528: NEXT_oldterminal ? "old" : "new",
529: NEXT_color ? "color" : "monochrome",
530: NEXT_solid ? "solid" : "dashed",
531: NEXT_duplex_option ? (NEXT_duplex_state ? "duplex" : "simplex")
532: : "defaultplex",
533: NEXT_font,
534: NEXT_fontsize,
535: NEXT_title);
536: }
537:
538: /* store settings passed to common_init() for use in NEXT_graphics()
539: * are reserved for storing the term options
540: */
541: static int NEXT_common_uses_fonts;
542: static unsigned int NEXT_common_xoff, NEXT_common_yoff;
543:
544:
545: TERM_PUBLIC void
546: NEXT_common_init(uses_fonts, xoff, yoff, width, height, dict)
547: int uses_fonts; /* 0 for NEXT(la)tex */
548: unsigned int xoff, yoff; /* offset - 50 for /post, 0 for NEXT(la)tex */
549: unsigned int width, height; /* for bounding box */
550: char **dict; /* extra entries for the dictionary */
551: {
552: static char GPFAR NEXTi1[] = "%%%%Creator: gnuplot\n\
553: %%%%DocumentFonts: %s\n";
554: static char GPFAR NEXTi2[] = "%%%%EndComments\n\
555: /gnudict 120 dict def\ngnudict begin\n\
556: /Color %s def\n\
557: /Solid %s def\n\
558: /gnulinewidth %.3f def\n\
559: /vshift %d def\n\
560: /dl {%d mul} def\n\
561: /hpt %.1f def\n\
562: /vpt %.1f def\n";
563: static char GPFAR *NEXT_iso_8859_1_encoding[] =
564: {
565: "/reencodeISO {\n",
566: "dup dup findfont dup length dict begin\n",
567: "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
568: "/Encoding ISOLatin1Encoding def\n",
569: "currentdict end definefont\n",
570: "} def\n",
571: "/ISOLatin1Encoding [\n",
572: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
573: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
574: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
575: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
576: "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
577: "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
578: "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
579: "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
580: "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
581: "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
582: "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n",
583: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
584: "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
585: "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n",
586: "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n",
587: "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n",
588: "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n",
589: "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n",
590: "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n",
591: "/guillemotright/onequarter/onehalf/threequarters/questiondown\n",
592: "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n",
593: "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n",
594: "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n",
595: "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n",
596: "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n",
597: "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n",
598: "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n",
599: "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n",
600: "/yacute/thorn/ydieresis\n",
601: "] def\n",
602: NULL};
603:
604:
605: struct termentry *t = term;
606: int i;
607:
608: NEXT_common_uses_fonts = uses_fonts;
609: NEXT_common_xoff = xoff;
610: NEXT_common_yoff = yoff;
611:
612:
613: NEXTPrintf("%%!NEXT-Adobe-2.0\n");
614:
615: NEXTPrintf(NEXTi1, uses_fonts ? "(atend)" : "");
616:
617: NEXTPrintf("%%%%BoundingBox: %d %d %d %d\n", xoff, yoff,
618: (int) (xsize * width / NEXT_SC + 0.5 + xoff),
619: (int) (ysize * height / NEXT_SC + 0.5 + yoff));
620:
621: NEXTPrintf(NEXTi2,
622: NEXT_color ? "true" : "false",
623: NEXT_solid ? "true" : "false",
624: NEXT_LW, /* line width */
625: (int) (t->v_char) / (-3), /* shift for vertical centring */
626: NEXT_SC, /* dash length */
627: NEXT_HTIC / 2.0, /* half point width */
628: NEXT_VTIC / 2.0); /* half point height */
629:
630: if (uses_fonts && (encoding == ENCODING_ISO_8859_1)) {
631: for (i = 0; NEXT_iso_8859_1_encoding[i] != NULL; i++) {
632: NEXTPrintf("%s", NEXT_iso_8859_1_encoding[i]);
633: }
634: }
635: for (i = 0; NEXT_header[i] != NULL; i++)
636: NEXTPrintf("%s", NEXT_header[i]);
637: if (NEXT_duplex_option)
638: NEXTPrintf("statusdict begin %s setduplexmode end\n",
639: NEXT_duplex_state ? "true" : "false");
640: NEXT_RememberFont(NEXT_font);
641:
642: if (dict)
643: while (*dict)
644: NEXTPrintf("%s", *(dict++));
645:
646: NEXTPrintf("end\n%%%%EndProlog\n");
647: }
648:
649: /* the init fn for the NeXT Terminal driver */
650: TERM_PUBLIC void
651: NEXT_init()
652: {
653: // is this called more than once?
654: arpool = [[NSAutoreleasePool alloc] init];
655:
656: /* Initialize output string */
657: NEXTsize = DEFAULTNEXTSIZE;
658: if ((NEXTBuffer = malloc(NEXTsize)) == NULL) {
659: printf("Malloc error in next filter init\n");
660: exit(1);
661: }
662: NEXTBufEnd = NEXTBuffer + NEXTsize;
663: NEXTBufAt = NEXTBuffer;
664:
665:
666: term->xmax = NEXT_XMAX;
667: term->ymax = NEXT_YMAX;
668:
669: gnuTermAccess = [[GnuTermDriver alloc] init];
670: // [gnuTermAccess retain]; // since we hold it privately.
671: }
672:
673:
674: TERM_PUBLIC void
675: NEXT_graphics()
676: {
677: static char GPFAR NEXTg1[] = "0 setgray\nnewpath\n";
678: struct termentry *t = term;
679:
680: *NEXTBuffer = 0;
681: NEXTBufAt = NEXTBuffer;
682:
683: NEXT_common_init(1, NEXT_XOFF, NEXT_YOFF, term->xmax, term->ymax,
684: ENHNEXT_header);
685:
686: NEXTPrintf("gnudict begin\ngsave\n");
687: NEXTPrintf("%d %d translate\n", NEXT_common_xoff, NEXT_common_yoff);
688: NEXTPrintf("%.3f %.3f scale\n", 1.0 / NEXT_SC, 1.0 / NEXT_SC);
689:
690:
691: NEXTPrintf(NEXTg1);
692: if (NEXT_common_uses_fonts)
693: NEXTPrintf("(%s) findfont %d scalefont setfont\n", NEXT_font, (t->v_char));
694: NEXT_path_count = 0;
695: NEXT_relative_ok = FALSE;
696: NEXT_pen_x = NEXT_pen_y = -4000;
697: NEXT_taken = 0;
698: NEXT_linetype_last = -1;
699: }
700:
701:
702: TERM_PUBLIC voidNEXT_text()
703: {
704: static DPSContext d;
705:
706: NEXT_path_count = 0;
707: NEXTPrintf("stroke\ngrestore\nend\n");
708:
709: /* Terminate string */
710: *NEXTBufAt = 0;
711:
712: if (NEXT_oldterminal) {
713: d = DPSGetCurrentContext();
714: DPSPrintf(d, NEXTBuffer);
715: DPSFlushContext(d);
716: }
717: else {
718: /* Here's the call that dumps the string to the server */
719: [gnuTermAccess plot:NEXTBuffer];
720: }
721: }
722:
723:
724: TERM_PUBLIC void
725: NEXT_reset()
726: {
727: NEXTPrintf("%%%%Trailer\n");
728: if (!NEXT_common_uses_fonts) {
729: NEXTPrintf("%%%%DocumentFonts: ");
730: while (NEXT_DocFonts) {
731: struct NEXT_FontName *fnp;
732: fnp = NEXT_DocFonts->next;
733: NEXTPrintf("%s%s", NEXT_DocFonts->name, fnp ? ", " : "\n");
734: free(NEXT_DocFonts->name);
735: free(NEXT_DocFonts);
736: NEXT_DocFonts = fnp;
737: }
738: }
739: }
740:
741:
742: TERM_PUBLIC void
743: NEXT_linetype(linetype)
744: int linetype;
745: {
746: linetype = (linetype % 9) + 2;
747: if (linetype < 0)
748: linetype = 0;
749: NEXT_relative_ok = FALSE;
750: if (NEXT_linetype_last == linetype)
751: return;
752: NEXT_linetype_last = linetype;
753: NEXTPrintf("LT%c\n", "ba012345678"[linetype]);
754: NEXT_path_count = 0;
755: }
756:
757:
758: TERM_PUBLIC void
759: NEXT_move(x, y)
760: unsigned int x, y;
761: {
762: int dx, dy;
763: char abso[20], rel[20];
764: dx = x - NEXT_pen_x;
765: dy = y - NEXT_pen_y;
766: /* can't cancel all null moves--need a move after stroke'ing */
767: if (dx == 0 && dy == 0 && NEXT_relative_ok)
768: return;
769: sprintf(abso, "%d %d M\n", x, y);
770: sprintf(rel, "%d %d R\n", dx, dy);
771: if (strlen(rel) < strlen(abso) && NEXT_relative_ok) {
772: NEXTPrintf("%s", rel);
773: NEXT_taken++;
774: } else
775: NEXTPrintf("%s", abso);
776: NEXT_relative_ok = TRUE;
777: NEXT_path_count += 1;
778:
779: NEXT_pen_x = x;
780: NEXT_pen_y = y;
781: }
782:
783: TERM_PUBLIC void
784: NEXT_vector(x, y)
785: unsigned int x, y;
786: {
787: int dx, dy;
788: char abso[20], rel[20];
789: dx = x - NEXT_pen_x;
790: dy = y - NEXT_pen_y;
791: if (dx == 0 && dy == 0)
792: return;
793: sprintf(abso, "%d %d L\n", x, y);
794: sprintf(rel, "%d %d V\n", dx, dy);
795: if (strlen(rel) < strlen(abso) && NEXT_relative_ok) {
796: NEXTPrintf("%s", rel);
797: NEXT_taken++;
798: } else
799: NEXTPrintf("%s", abso);
800: NEXT_relative_ok = TRUE;
801: NEXT_path_count += 1;
802: NEXT_pen_x = x;
803: NEXT_pen_y = y;
804: if (NEXT_path_count >= 400) {
805: NEXTPrintf("currentpoint stroke M\n");
806: NEXT_path_count = 0;
807: }
808: }
809:
810:
811:
812:
813: TERM_PUBLIC int
814: NEXT_text_angle(ang)
815: int ang;
816: {
817: NEXT_ang = ang;
818: return TRUE;
819: }
820:
821:
822: TERM_PUBLIC int
823: NEXT_justify_text(mode)
824: enum JUSTIFY mode;
825: {
826: NEXT_justify = mode;
827: return TRUE;
828: }
829:
830:
831: TERM_PUBLIC int
832: NEXT_set_font(font) /* Entry font added by DJL */
833: const char *font;
834: {
835: char name[32];
836: int size, sep;
837:
838: sep = strcspn(font, ",");
839: strncpy(name, font, sep);
840: name[sep] = NUL;
841: size = NEXT_fontsize;
842: sscanf(&(font[sep + 1]), "%d", &size);
843: NEXTPrintf("/%s findfont %d scalefont setfont\n", name, size * NEXT_SC);
844: NEXT_RememberFont(name);
845: return TRUE;
846: }
847:
848:
849: /* postscript point routines */
850:
851: TERM_PUBLIC void
852: NEXT_set_pointsize(size)
853: double size;
854: {
855: NEXTPrintf("/vpt %.1f def /hpt %.1f def /vpt2 vpt 2 mul def /hpt2 hpt 2 mul def\n",
856: pointsize * NEXT_VTIC * 0.5, pointsize * NEXT_HTIC * 0.5);
857: }
858:
859: TERM_PUBLIC void
860: NEXT_point(x, y, number)
861: unsigned int x, y;
862: int number;
863: {
864: static char *pointFNS[] =
865: {"Pnt", "Pls", "Crs", "Star",
866: "Box", "BoxF", "Circle", "CircleF",
867: "TriU", "TriUF", "TriD", "TriDF",
868: "Dia", "DiaF", "Pent", "PentF",
869: "C0", "C1", "C2", "C3",
870: "C4", "C5", "C6", "C7",
871: "C8", "C9", "C10", "C11",
872: "C12", "C13", "C14", "C15",
873: "S0", "S1", "S2", "S3",
874: "S4", "S5", "S6", "S7",
875: "S8", "S9", "S10", "S11",
876: "S12", "S13", "S14", "S15",
877: "D0", "D1", "D2", "D3",
878: "D4", "D5", "D6", "D7",
879: "D8", "D9", "D10", "D11",
880: "D12", "D13", "D14", "D15"
881: };
882: if (number < 0)
883: number = -1; /* negative types are all 'dot' */
884: else
885: number %= sizeof(pointFNS) / sizeof(pointFNS[0]) - 1;
886: NEXTPrintf("%d %d %s\n", x, y, pointFNS[number + 1]);
887:
888: NEXT_relative_ok = 0;
889: NEXT_path_count = 0;
890: NEXT_linetype_last = -1; /* force next linetype change */
891: }
892:
893: /* All lifted from the enhanced postscript driver */
894:
895: static TBOOLEAN NEXT_opened_string; /* try to cut out empty ()'s */
896:
897: /* used in determining height of processed text */
898:
899: static float NEXT_max_height, NEXT_min_height;
900:
901:
902: /* process a bit of string, and return the last character used.
903: * p is start of string
904: * brace is TRUE to keep processing to }, FALSE for do one character
905: * fontname & fontsize are obvious
906: * base is the current baseline
907: * widthflag is TRUE if the width of this should count,
908: * FALSE for zero width boxes
909: */
910:
911: static char *
912: NEXT_recurse(p, brace, fontname, fontsize, base, widthflag)
913: char *p, *fontname;
914: TBOOLEAN brace, widthflag;
915: double fontsize, base;
916: {
917:
918: /* close a postscript string if it has been opened */
919: #define NEXT_FLUSH \
920: { if (NEXT_opened_string) \
921: { NEXTPrintf("%s", ")]\n"); \
922: NEXT_opened_string = FALSE; \
923: } \
924: }
925:
926: #define NEXT_OPEN \
927: { if (!NEXT_opened_string) \
928: { NEXTPrintf( "[(%s) %.1f %.1f %s (", \
929: fontname, fontsize, base, \
930: widthflag ? "true" : "false"); \
931: NEXT_opened_string = TRUE; \
932: } \
933: }
934:
935:
936: /* Start each recursion with a clean string */
937: NEXT_FLUSH
938:
939: if (base + fontsize > NEXT_max_height) {
940: NEXT_max_height = base + fontsize;
941: }
942: if (base < NEXT_min_height) {
943: NEXT_min_height = base;
944: }
945: for (; *p; ++p) {
946: float shift;
947: float f = 0; /* used for getting new font size */
948: char *localfontname, ch;
949:
950: switch (*p) {
951: case '}':
952: if (brace)
953: return (p);
954:
955: fprintf(stderr, "next driver - spurious }\n");
956: break;
957:
958: case '_':
959: case '^':
960: shift = (*p == '^') ? 0.5 : -0.3;
961:
962: NEXT_FLUSH
963:
964: p = NEXT_recurse(p + 1, FALSE, fontname, fontsize * 0.8, base + shift * fontsize, widthflag);
965:
966: break;
967:
968: case '{':
969: /*{{{ recurse (possibly with a new font) */
970:
971: if (*++p == '/') { /* then parse a fontname, optional fontsize */
972: while (*++p == ' ');
973: localfontname = p;
974: while ((ch = *p) > ' ' && ch != '=')
975: ++p;
976: if (ch == '=') {
977: *p++ = '\0';
978: /*{{{ get optional font size */
979: f = (float) strtod(p, &p);
980:
981: if (f)
982: f *= NEXT_SC; /* remember the scaling */
983: else
984: f = fontsize;
985:
986: /*}}} */
987: } else {
988: *p++ = '\0';
989: f = fontsize;
990: }
991:
992: while (*p == ' ')
993: ++p;
994: if (*localfontname)
995: localfontname = NEXT_RememberFont(localfontname);
996: else
997: localfontname = fontname;
998: } else {
999: localfontname = fontname;
1000: f = fontsize;
1001: }
1002: /*}}} */
1003:
1004:
1005: p = NEXT_recurse(p, TRUE, localfontname, f, base, widthflag);
1006:
1007:
1008: NEXT_FLUSH
1009:
1010: break;
1011:
1012: case '@':
1013: /*{{{ phantom box - prints next 'char', then restores currentpoint */
1014:
1015: NEXT_FLUSH
1016:
1017: p = NEXT_recurse(++p, FALSE, fontname, fontsize, base, FALSE);
1018:
1019: break;
1020: /*}}} */
1021:
1022: case '(':
1023: case ')':
1024: /* special cases */
1025: NEXT_OPEN
1026: NEXTPrintf("\\");
1027: NEXTPrintf("%c", *p);
1028: break;
1029: /*}}} */
1030:
1031: case '\\':
1032: /*{{{ is it an escape */
1033: /* special cases */
1034:
1035: if (p[1] == '\\' || p[1] == '(' || p[1] == ')') {
1036: NEXT_OPEN
1037: NEXTPrintf("%c", '\\');
1038: } else if ((ch = p[1]) >= '0' && ch <= '7') {
1039: /* up to 3 octal digits */
1040: NEXT_OPEN
1041: NEXTPrintf("%c", '\\');
1042: NEXTPrintf("%c", ch);
1043: ++p;
1044: if ((ch = p[1]) >= '0' && ch <= '7') {
1045: NEXTPrintf("%c", ch);
1046: ++p;
1047: if ((ch = p[1]) >= '0' && ch <= '7') {
1048: NEXTPrintf("%c", ch);
1049: ++p;
1050: }
1051: }
1052: break;
1053: }
1054: ++p;
1055: /* just go and print it (fall into the 'default' case) */
1056:
1057: /*}}} */
1058: default:
1059: NEXT_OPEN
1060:
1061: NEXTPrintf("%c", *p);
1062: }
1063:
1064: /* like TeX, we only do one character in a recursion, unless it's
1065: * in braces
1066: */
1067:
1068: if (!brace) {
1069: NEXT_FLUSH
1070: return (p); /* the ++p in the outer copy will increment us */
1071: }
1072: }
1073: NEXT_FLUSH
1074: return p;
1075: }
1076:
1077:
1078: TERM_PUBLIC void
1079: NEXT_put_text(x, y, str)
1080: unsigned int x, y;
1081: const char *str;
1082: {
1083: /* flush any pending graphics (all the XShow routines do this...) */
1084:
1085: if (!strlen(str))
1086: return;
1087:
1088: if (NEXT_path_count) {
1089: NEXTPrintf(" stroke\n");
1090: NEXT_path_count = 0;
1091: NEXT_relative_ok = FALSE;
1092: }
1093: NEXT_move(x, y);
1094:
1095: if (NEXT_ang != 0)
1096: NEXTPrintf("currentpoint gsave translate %d rotate 0 0 moveto\n",
1097: NEXT_ang * 90);
1098:
1099: NEXTPrintf("[ ");
1100:
1101: /* set up the globals */
1102:
1103: NEXT_opened_string = FALSE;
1104: NEXT_max_height = -1000;
1105: NEXT_min_height = 1000;
1106:
1107: while (*(str = NEXT_recurse(str, TRUE, NEXT_font,
1108: (double) term->v_char,
1109: 0.0, TRUE)));
1110:
1111: NEXT_max_height += NEXT_min_height;
1112:
1113: NEXTPrintf("] %.1f ", -NEXT_max_height / 3);
1114:
1115: switch (NEXT_justify) {
1116: case LEFT:
1117: NEXTPrintf("MLshow\n");
1118: break;
1119: case CENTRE:
1120: NEXTPrintf("MCshow\n");
1121: break;
1122: case RIGHT:
1123: NEXTPrintf("MRshow\n");
1124: break;
1125: }
1126:
1127: if (NEXT_ang != 0)
1128: NEXTPrintf("grestore\n");
1129: NEXT_path_count = 0;
1130: NEXT_relative_ok = FALSE;
1131: }
1132:
1133:
1134:
1135: /*
1136: static TBOOLEAN
1137: NEXT_colordetect()
1138: {
1139: NXScreen * mainscreen;
1140:
1141: mainscreen = [Application mainScreen];
1142: if (mainscreen->depth == NX_TwoBitGrayDepth) return(FALSE);
1143: return(TRUE);
1144: }
1145: */
1146:
1147: /* This just packs all the postscript into one (possibly huge) string
1148: * which will be passed (as a fake pointer) via D.O. to the server
1149: */
1150:
1151: void
1152: NEXTPrintf(char *fmt,...)
1153: {
1154: va_list ap;
1155: char *pb;
1156: int NEXToff;
1157:
1158: /* Process formatting instructions */
1159: va_start(ap, fmt);
1160: vsprintf(NEXTTmpBuf, fmt, ap);
1161: va_end(ap);
1162:
1163: /* Add to buffer */
1164: for (pb = NEXTTmpBuf; (*pb != 0); ++pb, ++NEXTBufAt) {
1165: /* reallocate if necessary */
1166: if (NEXTBufAt >= NEXTBufEnd) {
1167: NEXToff = NEXTBufAt - NEXTBuffer;
1168: NEXTsize *= 2;
1169: NEXTBuffer = realloc(NEXTBuffer, NEXTsize);
1170: NEXTBufEnd = NEXTBuffer + NEXTsize;
1171: NEXTBufAt = NEXTBuffer + NEXToff;
1172: }
1173: *NEXTBufAt = *pb;
1174: }
1175:
1176: return;
1177:
1178: }
1179:
1180: /* This next section implements the GnuTermDriver object which manages
1181: the D.O. connection and interface to Obj-C
1182: */
1183:
1184:
1185: @protocol GnuTermServerMethods
1186: /*- (oneway) executePScode:(in char *)PStext termTitle:(in char *)title;*/
1187: - (void) executePScode:(NSString *) PStext termTitle:(NSString *) title;
1188: @end
1189:
1190:
1191: @implementation GnuTermDriver
1192:
1193: - init
1194: {
1195: NSConnection *myConnection;
1196: char serverpath[100], *envstring;
1197: int GnuTermPathSet = 0;
1198:
1199:
1200: /* Ask OS for connection to server */
1201: server = [NSConnection rootProxyForConnectionWithRegisteredName: @"gnuplotServer" host:nil];
1202:
1203: [server retain];
1204:
1205: /* Server is running ready to go */
1206: if (server) printf("Connected to server\n")
1207: ;
1208:
1209: /* Server isn't running, we must fire it up */
1210: else {
1211: printf("Launching GnuTerm\n");
1212: *serverpath = 0;
1213:
1214: /* Check for path set in environment */
1215: if ((envstring = getenv("GNUTERMPATH")) != (char *) NULL) {
1216: sprintf(serverpath, "%s/GnuTerm.app/GnuTerm", envstring);
1217: GnuTermPathSet = 1;
1218: }
1219: /* Not in environment */
1220: else
1221: strcpy(serverpath, "GnuTerm");
1222:
1223: /* Try to launch application */
1224: if ([[NSWorkspace sharedWorkspace] launchApplication:[NSString stringWithCString:serverpath]] == NO) {
1225: printf("Failed to launch %s.\n", serverpath);
1226: /* Offer a little advice */
1227: if (GnuTermPathSet) {
1228: printf("You must have setenv GNUTERMPATH to something wrong\n");
1229: printf("I recommend you exit gnuplot and fix this.\n");
1230: } else {
1231: printf("It must be located in ~/Apps or /LocalApps\n");
1232: printf("I recommend that you either\n");
1233: printf("- move GnuTerm.app to one of these locations\n");
1234: printf("- set GNUTERMPATH with host%% setenv GNUTERMPATH /directory/containing_GnuTerm.app\n");
1235: printf("- start GnuTerm ahead of the first plot command\n");
1236: }
1237: }
1238: /* I wish the gnuplot terminal interface would
1239: let me return an error here.
1240: */
1241:
1242: /* Application is launching */
1243: else {
1244: /* Wait for it to register Server methods with OS */
1245: do {
1246: server =[[NSConnection
1247: rootProxyForConnectionWithRegisteredName: @"gnuplotServer" host:nil] retain];
1248: } while (!server); /* This could result in a hang,
1249: but I've never seen it fail */
1250: }
1251: }
1252:
1253:
1254: /* By limiting ourselves to known protocol
1255: * we speed up the messaging
1256: */
1257: [server setProtocolForProxy:@protocol(GnuTermServerMethods)];
1258:
1259: myConnection = [server connectionForProxy];
1260:
1261: /* If the server dies we want to know about it */
1262: [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(senderIsInvalid:) name:NSConnectionDidDieNotification object:myConnection];
1263: /* In fact, we'll worry about it */
1264: ;
1265:
1266: return self;
1267: }
1268:
1269:
1270: - (void) plot:(char *)PSstr;
1271: {
1272: /* If server has become invalid, re-initialize */
1273: if (!server)
1274: [self init];
1275:
1276: /* This is where we send the huge postscript string to the server
1277: Note:
1278: The D.O. system doesn't actually give this pointer to the server.
1279: The pointer is dereferenced on the client side and the
1280: resulting data is sent to the server. On the server side,
1281: space for the data is automatically allocated, and a pointer to
1282: the local data is received.
1283: For details check out:
1284: /NextLibrary/Documentation/NextDev/GeneralRef/06_DistributedObjects/IntroDistObjects.rtf
1285: */
1286:
1287: printf("Calling server...");
1288: [server executePScode: [NSString stringWithCString: PSstr]
1289: termTitle: [NSString stringWithCString: NEXT_title]];
1290: printf("returned\n");
1291: *NEXT_title = 0;
1292: }
1293:
1294: /* This gets called by OS if server goes down */
1295: - (void) senderIsInvalid: (NSNotification *) sender
1296: {
1297: server = 0;
1298: }
1299:
1300: @end
1301:
1302:
1303:
1304: #endif /* TERM_BODY */
1305:
1306: #ifdef TERM_TABLE
1307:
1308:
1309: TERM_TABLE_START(next_driver)
1310: "next",
1311: "Interface to GnuTerm.app under NeXTstep",
1312: NEXT_XMAX, NEXT_YMAX, NEXT_VCHAR, NEXT_HCHAR,
1313: NEXT_VTIC, NEXT_HTIC, NEXT_options, NEXT_init, NEXT_reset,
1314: NEXT_text, null_scale, NEXT_graphics, NEXT_move, NEXT_vector,
1315: NEXT_linetype, NEXT_put_text, NEXT_text_angle,
1316: NEXT_justify_text, NEXT_point, do_arrow, NEXT_set_font,
1317: NEXT_set_pointsize
1318: TERM_TABLE_END(next_driver)
1319:
1320: #undef LAST_TERM
1321: #define LAST_TERM next_driver
1322:
1323: #endif /* TERM_TABLE */
1324: #endif /* TERM_PROTO_ONLY */
1325:
1326:
1327:
1328: #ifdef TERM_HELP
1329: START_HELP(next)
1330: "1 next",
1331: "?commands set terminal next",
1332: "?set terminal next",
1333: "?set term next",
1334: "?terminal next",
1335: "?term next",
1336: "?next",
1337: "?NeXT",
1338: " Several options may be set in the next driver.",
1339: "",
1340: " Syntax:",
1341: " set terminal next {<mode>} {<type> } {<color>} {<dashed>}",
1342: " {\"<fontname>\"} {<fontsize>} title {\"<newtitle>\"}",
1343: "",
1344: " where <mode> is `default`, which sets all options to their defaults;",
1345: " <type> is either `new` or `old`, where `old` invokes the old single window;",
1346: " <color> is either `color` or `monochrome`;",
1347: " <dashed> is either `solid` or `dashed`;",
1348: " \"<fontname>\" is the name of a valid PostScript font;",
1349: " <fontsize> is the size of the font in PostScript points; and",
1350: " <title> is the title for the GnuTerm window.",
1351: " Defaults are `new`, `monochrome`, `dashed`, \"Helvetica\", 14pt.",
1352: "",
1353: " Examples:",
1354: " set term next default",
1355: " set term next 22",
1356: " set term next color \"Times-Roman\" 14",
1357: " set term next color \"Helvetica\" 12 title \"MyPlot\"",
1358: " set term next old",
1359: "",
1360: " Pointsizes may be changed with `set linestyle`."
1361: END_HELP(next)
1362: #endif /* TERM_HELP */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to openstep.trm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / term