Annotation of OpenXM_contrib/pari-2.2/src/graph/Gnuplot.h, Revision 1.1.1.1
1.1 noro 1: /* $Id: Gnuplot.h,v 1.5 2001/03/13 17:56:52 karim Exp $
2:
3: Copyright (C) 2000 The PARI group.
4:
5: This file is part of the PARI/GP package.
6:
7: PARI/GP is free software; you can redistribute it and/or modify it under the
8: terms of the GNU General Public License as published by the Free Software
9: Foundation. It is distributed in the hope that it will be useful, but WITHOUT
10: ANY WARRANTY WHATSOEVER.
11:
12: Check the License for details. You should have received a copy of it, along
13: with the package; see the file 'COPYING'. If not, write to the Free Software
14: Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
15:
16: /* This header should be included in one C file only! */
17:
18: #include <stdio.h>
19: #include <stdlib.h>
20: #include <setjmp.h>
21:
22: #ifdef __cplusplus
23: extern "C" {
24: #endif
25:
26: /* CAT2:
27: * This macro catenates 2 tokens together.
28: */
29: /* STRINGIFY:
30: * This macro surrounds its token with double quotes.
31: */
32: #ifndef CAT2
33: # if 42 == 1
34: # define CAT2(a,b)a/**/b
35: # define CAT3(a,b,c)a/**/b/**/c
36: # define CAT4(a,b,c,d)a/**/b/**/c/**/d
37: # define CAT5(a,b,c,d,e)a/**/b/**/c/**/d/**/e
38: # define STRINGIFY(a)"a"
39: /* If you can get stringification with catify, tell me how! */
40: # endif
41: # if 42 == 42
42: # define CAT2(a,b)a ## b
43: # define CAT3(a,b,c)a ## b ## c
44: # define CAT4(a,b,c,d)a ## b ## c ## d
45: # define CAT5(a,b,c,d,e)a ## b ## c ## d ## e
46: # define StGiFy(a)# a
47: # define STRINGIFY(a)StGiFy(a)
48: # define SCAT2(a,b)StGiFy(a) StGiFy(b)
49: # define SCAT3(a,b,c)StGiFy(a) StGiFy(b) StGiFy(c)
50: # define SCAT4(a,b,c,d)StGiFy(a) StGiFy(b) StGiFy(c) StGiFy(d)
51: # define SCAT5(a,b,c,d,e)StGiFy(a) StGiFy(b) StGiFy(c) StGiFy(d) StGiFy(e)
52: # endif
53: # ifndef CAT2
54: # include "Bletch: How does this C preprocessor catenate tokens?"
55: # endif
56: #endif /* CAT2 */
57:
58:
59: #define TERM_CAN_MULTIPLOT 1 /* tested if stdout not redirected */
60: #define TERM_CANNOT_MULTIPLOT 2 /* tested if stdout is redirected */
61: #define TERM_BINARY 4 /* open output file with "b" */
62:
63: #ifndef NO_JUNK_SMALL
64:
65: /* Compatibility with the old gnuplot: */
66: extern FILE *outfile;
67: FILE *outfile = NULL;
68:
69: extern FILE *gpoutfile;
70: FILE *gpoutfile = NULL;
71:
72: static outfile_set;
73: static void
74: set_gpoutfile(void)
75: {
76: outfile = stdout;
77: gpoutfile = stdout;
78: }
79:
80: #define SET_OUTFILE (outfile_set++ ? 1 : (set_gpoutfile(), 1))
81:
82: extern int encoding;
83: int encoding = 0;
84: extern float xoffset; /* x origin */
85: extern float yoffset; /* y origin */
86: float xoffset = 0.0; /* x origin */
87: float yoffset = 0.0; /* y origin */
88: extern int multiplot;
89: int multiplot = 0;
90:
91: extern char *outstr;
92: #define MAX_ID_LEN 50
93: /* char outstr[MAX_ID_LEN+1] = "STDOUT"; */
94: char *outstr = NULL;
95: extern double ticscale; /* scale factor for tic marks (was (0..1])*/
96: double ticscale = 1.0; /* scale factor for tic mark */
97:
98: char *input_line = NULL;
99: int inline_num; /* from command.c */
100:
101: float xsize=1.0, ysize=1.0;
102: double pointsize=1.0; /* During test! */
103:
104: int interactive; /* from plot.c */
105: char *infile_name; /* from plot.c */
106: extern char default_font[];
107: char default_font[MAX_ID_LEN+1] = "\0"; /* Entry added by DJL */
108:
109: typedef int TBOOLEAN;
110:
111: enum DATA_TYPES {
112: INTGR, CMPLX
113: };
114:
115: #if !(defined(ATARI)&&defined(__GNUC__)&&defined(_MATH_H)) && !(defined(MTOS)&&defined(__GNUC__)&&defined(_MATH_H)) /* FF's math.h has the type already */
116: struct cmplx {
117: double real, imag;
118: };
119: #endif
120:
121: struct value {
122: enum DATA_TYPES type;
123: union {
124: int int_val;
125: struct cmplx cmplx_val;
126: } v;
127: };
128:
129: struct lexical_unit { /* produced by scanner */
130: TBOOLEAN is_token; /* true if token, false if a value */
131: struct value l_val;
132: int start_index; /* index of first char in token */
133: int length; /* length of token in chars */
134: };
135:
136: /* char *token; */
137: #define MAX_TOKENS 20
138: extern struct lexical_unit *token;
139: struct lexical_unit tokens[MAX_TOKENS]; /* We only process options,
140: there should not be many */
141: struct lexical_unit *token = tokens;
142: long c_token = 0, num_tokens = 0;
143: char term_options[200] = "";
144:
145: /* New with 3.7.1: */
146:
147: #define FIRST_Z_AXIS 0
148: #define FIRST_Y_AXIS 1
149: #define FIRST_X_AXIS 2
150: #define SECOND_Z_AXIS 4 /* for future expansion ;-) */
151: #define SECOND_Y_AXIS 5
152: #define SECOND_X_AXIS 6
153: /* extend list for datatype[] for t,u,v,r though IMHO
154: * they are not relevant to time data [being parametric dummies]
155: */
156: #define T_AXIS 3 /* fill gap */
157: #define R_AXIS 7 /* never used ? */
158: #define U_AXIS 8
159: #define V_AXIS 9
160:
161: #define AXIS_ARRAY_SIZE 10
162: #define DATATYPE_ARRAY_SIZE 10
163:
164: extern double base_array[], log_base_array[];
165: extern TBOOLEAN log_array[];
166: /* graphics.c */
167: extern TBOOLEAN is_3d_plot;
168:
169: double min_array[AXIS_ARRAY_SIZE], max_array[AXIS_ARRAY_SIZE], base_array[AXIS_ARRAY_SIZE], log_base_array[AXIS_ARRAY_SIZE];
170: TBOOLEAN log_array[AXIS_ARRAY_SIZE];
171: int xleft, xright, ybot, ytop;
172: TBOOLEAN is_3d_plot;
173:
174: /* End of 3.7.1 additions */
175:
176: /* 3.7.0-devel additions */
177:
178: extern float surface_rot_z;
179: extern TBOOLEAN polar;
180: extern double base_log_x, base_log_y, base_log_z;
181: extern TBOOLEAN is_log_x, is_log_y, is_log_z;
182: extern double log_base_log_x2, log_base_log_y2;
183: extern double base_z;
184: extern TBOOLEAN screen_ok;
185:
186: float surface_rot_z = 30.0;
187: TBOOLEAN polar = 0;
188: TBOOLEAN is_log_x = 0;
189: TBOOLEAN is_log_y = 0;
190: TBOOLEAN is_log_z = 0;
191: double base_log_x = 0.0;
192: double base_log_y = 0.0;
193: double base_log_z = 0.0;
194: double log_base_log_x = 0.0;
195: double log_base_log_y = 0.0;
196: double log_base_log_z = 0.0;
197: double base_z = 0.0;
198: TBOOLEAN screen_ok;
199:
200: void map3d_xy (double x, double y, double z, unsigned int *xt, unsigned int *yt)
201: {
202: croak("Unsupported function map3d_xy called");
203: }
204:
205: /* End of 3.7.0-devel additions */
206:
207: /* Here are the only missing functions: */
208:
209: struct value*
210: const_express(struct value*v)
211: {
212: if (token[c_token].is_token)
213: croak("Expect a number, got a string");
214: *v = token[c_token++].l_val;
215: return v;
216: }
217:
218: void*
219: gp_alloc(unsigned long size, char *usage)
220: {
221: (void)usage;
222: return malloc(size);
223: }
224:
225: void*
226: gp_realloc(void *old, unsigned long size, char *usage)
227: {
228: (void)usage;
229: return realloc(old,size);
230: }
231:
232: void
233: bail_to_command_line()
234: {
235: croak("panic: gnuplot");
236: }
237:
238: #endif /* NO_JUNK_SMALL */
239:
240: /* Cannot pull the whole plot.h, too many contradictions. */
241:
242: #ifdef __ZTC__
243: typedef int (*FUNC_PTR)(...);
244: #else
245: typedef int (*FUNC_PTR)();
246: #endif
247:
248: struct TERMENTRY {
249: char *name;
250: #if defined(_Windows) && !defined(WIN32)
251: char GPFAR description[80]; /* to make text go in FAR segment */
252: #else
253: char *description;
254: #endif
255: unsigned int xmax,ymax,v_char,h_char,v_tic,h_tic;
256: FUNC_PTR options,init,reset,text,scale,graphics,move,vector,linetype,
257: put_text,text_angle,justify_text,point,arrow,set_font,
258: pointsize;
259: int flags;
260: FUNC_PTR suspend,resume,fillbox,linewidth;
261: };
262:
263: #ifdef _Windows
264: # define termentry TERMENTRY far
265: #else
266: # define termentry TERMENTRY
267: #endif
268:
269: extern struct termentry *term;
270: struct termentry *term;
271:
272: #define RETVOID
273: #define RETINT , 1
274:
275: #define F_0 void(*)()
276: #define F_1 void(*)(int)
277: #define F_1I int(*)(int)
278: #define F_1D void(*)(double)
279: #define F_1IP int(*)(char*)
280: #define F_2 void(*)(unsigned int,unsigned int)
281: #define F_2D int(*)(double,double)
282: #define F_3 void(*)(unsigned int,unsigned int,int)
283: #define F_3T void(*)(int,int,char*)
284: #define F_4 void(*)(int,int,int,int)
285: #define F_5 void(*)(int,int,int,int,int)
286:
287: #define CALL_G_METH0(method) CALL_G_METH(method,0,(),RETVOID)
288: #define CALL_G_METH1(method,arg1) CALL_G_METH(method,1,(arg1),RETVOID)
289: #define CALL_G_METH1I(method,arg1) CALL_G_METH(method,1I,(arg1),RETINT)
290: #define CALL_G_METH1D(method,arg1) CALL_G_METH(method,1D,(arg1),RETVOID)
291: #define CALL_G_METH1IP(method,arg1) CALL_G_METH(method,1IP,(arg1),RETINT)
292: #define CALL_G_METH2(method,arg1,arg2) \
293: CALL_G_METH(method,2,((arg1),(arg2)),RETVOID)
294: #define CALL_G_METH2D(method,arg1,arg2) \
295: CALL_G_METH(method,2D,((arg1),(arg2)),RETINT)
296: #define CALL_G_METH3(method,arg1,arg2,arg3) \
297: CALL_G_METH(method,3,((arg1),(arg2),(arg3)),RETVOID)
298: #define CALL_G_METH3T(method,arg1,arg2,arg3) \
299: CALL_G_METH(method,3T,((arg1),(arg2),(arg3)),RETVOID)
300: #define CALL_G_METH4(method,arg1,arg2,arg3,arg4) \
301: CALL_G_METH(method,4,((arg1),(arg2),(arg3),(arg4)),RETVOID)
302: #define CALL_G_METH5(method,arg1,arg2,arg3,arg4,arg5) \
303: CALL_G_METH(method,5,((arg1),(arg2),(arg3),(arg4),(arg5)),RETVOID)
304:
305: #define CALL_G_METH(method,mult,args,returnval) ( \
306: (term==0) ? ( \
307: croak("No terminal specified") returnval \
308: ) : \
309: (*(CAT2(F_,mult))term->method)args \
310: )
311:
312: #define GET_G_FLAG(mask) ( \
313: (term==0) ? ( \
314: croak("No terminal specified") RETINT \
315: ) : \
316: (term->flags & (mask)))
317:
318: #ifdef DONT_POLLUTE_INIT
319: # define gptable_init() CALL_G_METH0(init)
320: #else
321: # define init() CALL_G_METH0(init)
322: # define gptable_init init
323: #endif
324: #define reset() CALL_G_METH0(reset)
325: #define text() CALL_G_METH0(text)
326: #define options() CALL_G_METH0(options)
327: #define graphics() CALL_G_METH0(graphics)
328: #define linetype(lt) CALL_G_METH1(linetype,lt)
329: #define justify_text(mode) CALL_G_METH1I(justify_text,mode)
330: #define text_angle(ang) CALL_G_METH1I(text_angle,ang)
331: #define scale(xs,ys) CALL_G_METH2D(scale,xs,ys)
332: #define move(x,y) CALL_G_METH2(move,x,y)
333: #define vector(x,y) CALL_G_METH2(vector,x,y)
334: #define put_text(x,y,str) CALL_G_METH3T(put_text,x,y,str)
335: #define point(x,y,p) CALL_G_METH3(point,x,y,p)
336: #define arrow(sx,sy,ex,ey,head) CALL_G_METH5(arrow,sx,sy,ex,ey,head)
337: #define set_font(font) CALL_G_METH1IP(set_font,font)
338: #define setpointsize(size) CALL_G_METH1D(pointsize,size)
339: #define suspend() CALL_G_METH0(suspend)
340: #define resume() CALL_G_METH0(resume)
341: #define fillbox(sx,sy,ex,ey,head) CALL_G_METH5(fillbox,sx,sy,ex,ey,head)
342: #define linewidth(size) CALL_G_METH1D(linewidth,size)
343: #define can_multiplot() GET_G_FLAG(TERM_CAN_MULTIPLOT)
344: #define cannot_multiplot() GET_G_FLAG(TERM_CANNOT_MULTIPLOT)
345: #define is_binary() GET_G_FLAG(TERM_BINARY)
346:
347: #define termprop(prop) (term->prop)
348: #define termset(term) my_change_term(term,strlen(term))
349:
350: struct termentry * change_term(char*,int);
351:
352: #define TTABLE_STARTPLOT 0
353: #define TTABLE_ENDPLOT 1
354: #define TTABLE_STARTMPLOT 2
355: #define TTABLE_ENDMPLOT 3
356: #define TTABLE_INIT 4
357: #define TTABLE_LIST 5
358: #define TTABLE_COUNT 6
359:
360: typedef void (*TSET_FP)(char *s);
361: typedef void (*TST_END_FP)(void);
362: typedef void (*SET_SIZES_t)(double x, double y);
363: typedef double (*GET_SIZES_t)(int flag);
364: typedef void (*SET_MOUSE_FEEDBACK_RECTAGLE_t)(int term_xmin, int term_xmax,
365: int term_ymin, int term_ymax,
366: double plot_xmin, double plot_xmax,
367: double plot_ymin, double plot_ymax);
368:
369: struct t_ftable {
370: int loaded;
371: FUNC_PTR change_term_p;
372: TSET_FP term_set_outputp;
373: SET_SIZES_t set_sizesp;
374: GET_SIZES_t get_sizesp;
375: TST_END_FP term_funcs[TTABLE_COUNT];
376: SET_MOUSE_FEEDBACK_RECTAGLE_t mouse_feedback_func;
377: };
378:
379: #ifdef DYNAMIC_PLOTTING /* Can load plotting DLL later */
380:
381: int
382: UNKNOWN_null()
383: {
384: croak("gnuplot-like plotting environment not loaded yet");
385: return 0;
386: }
387:
388: static void myterm_table_not_loaded_v(void);
389: static void myterm_table_not_loaded(char*);
390: static int myterm_table_not_loaded_u();
391: static void myterm_table_not_loaded_vdd(double x, double y);
392: static double myterm_table_not_loaded_di(int flag);
393: static void myterm_table_not_loaded_v4i4d(int term_xmin, int term_xmax,
394: int term_ymin, int term_ymax,
395: double plot_xmin, double plot_xmax,
396: double plot_ymin, double plot_ymax);
397: #if 0
398: static int ftable_warned;
399: static void
400: tmp_my_term_init
401: {
402: if (!warned++)
403: warn("This runtime link with gnuplot-shim does not implement midlevel start/end functions");
404: shim_myinit();
405: }
406: #endif
407:
408: static struct t_ftable my_term_ftable =
409: {
410: 0, &myterm_table_not_loaded_u, &myterm_table_not_loaded,
411: &myterm_table_not_loaded_vdd,
412: &myterm_table_not_loaded_di,
413: {&myterm_table_not_loaded_v, &myterm_table_not_loaded_v,
414: &myterm_table_not_loaded_v, &myterm_table_not_loaded_v,
415: &myterm_table_not_loaded_v, &myterm_table_not_loaded_v},
416: myterm_table_not_loaded_v4i4d
417: };
418:
419: static struct t_ftable *my_term_ftablep = &my_term_ftable;
420:
421: static void
422: myterm_table_not_loaded_v(void)
423: {
424: if (!my_term_ftablep->loaded) {
425: UNKNOWN_null();
426: return;
427: }
428: croak("This runtime link with gnuplot-shim does not implement midlevel start/end functions");
429: }
430:
431: static void
432: myterm_table_not_loaded(char *s)
433: {
434: myterm_table_not_loaded_v();
435: }
436:
437: static void
438: myterm_table_not_loaded_vdd(double x, double y)
439: {
440: myterm_table_not_loaded_v();
441: }
442:
443: static double
444: myterm_table_not_loaded_di(int flag)
445: {
446: myterm_table_not_loaded_v();
447: return 0; /* NOT REACHED */
448: }
449:
450: static int
451: myterm_table_not_loaded_u()
452: {
453: myterm_table_not_loaded_v();
454: return 0;
455: }
456:
457: void myterm_table_not_loaded_v4i4d(int term_xmin, int term_xmax,
458: int term_ymin, int term_ymax,
459: double plot_xmin, double plot_xmax,
460: double plot_ymin, double plot_ymax)
461: {
462: myterm_table_not_loaded_v();
463: }
464:
465: # define change_term (*my_term_ftablep->change_term_p)
466: # define term_set_output (*my_term_ftablep->term_set_outputp)
467: # define term_start_plot (*my_term_ftablep->term_funcs[TTABLE_STARTPLOT])
468: # define term_end_plot (*my_term_ftablep->term_funcs[TTABLE_ENDPLOT])
469: # define term_start_multiplot (*my_term_ftablep->term_funcs[TTABLE_STARTMPLOT])
470: # define term_end_multiplot (*my_term_ftablep->term_funcs[TTABLE_ENDMPLOT])
471: # define term_init (*my_term_ftablep->term_funcs[TTABLE_INIT])
472: # define list_terms (*my_term_ftablep->term_funcs[TTABLE_LIST])
473: # define plotsizes_scale (*my_term_ftablep->set_sizesp)
474: # define plotsizes_scale_get (*my_term_ftablep->get_sizesp)
475: # define set_mouse_feedback_rectangle (*my_term_ftablep->mouse_feedback_func)
476:
477: # define scaled_xmax() ((int)termprop(xmax)*plotsizes_scale_get(0))
478: # define scaled_ymax() ((int)termprop(ymax)*plotsizes_scale_get(1))
479:
480: #define USE_FUNCTION_FROM_TABLE
481:
482: static struct termentry *
483: my_change_term(char*s,int l)
484: {
485: SET_OUTFILE;
486: if (!my_term_ftablep->change_term_p)
487: UNKNOWN_null();
488: return term = (struct termentry *)(*my_term_ftablep->change_term_p)(s,l);
489: }
490:
491: #if 0
492: static struct termentry dummy_term_tbl[] = {
493: {"unknown", "Unknown terminal type - not a plotting device",
494: 100, 100, 1, 1,
495: 1, 1, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
496: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
497: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
498: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, 0,
499: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null},
500: };
501: #endif
502:
503: #define set_term_funcp(change_p, term_p) set_term_funcp2((change_p), 0)
504: /* #define set_term_funcp3(change_p, term_p, tchange) \
505: set_term_funcp2((change_p), (tchange)) */
506:
507: /* This function should be called before any graphic code can be used... */
508: void
509: set_term_funcp2(FUNC_PTR change_p, TSET_FP tchange)
510: {
511: SET_OUTFILE;
512: my_term_ftable.change_term_p = change_p;
513: my_term_ftable.loaded = 1;
514: if (tchange) {
515: my_term_ftable.term_set_outputp = tchange;
516: }
517: }
518:
519: /* Used from Math::Pari */
520: void
521: set_term_funcp3(FUNC_PTR change_p, void *term_p, TSET_FP tchange)
522: {
523: set_term_funcp2(change_p, tchange);
524: }
525:
526: void
527: set_term_ftable(struct t_ftable *p)
528: {
529: SET_OUTFILE;
530: my_term_ftablep = p;
531: }
532:
533: extern struct t_ftable *get_term_ftable();
534:
535: #else /* !DYNAMIC_PLOTTING */
536:
537: extern struct termentry term_tbl[];
538: extern double min_array[], max_array[];
539: extern int xleft, xright, ybot, ytop;
540:
541: void
542: mys_mouse_feedback_rectangle(int term_xmin, int term_xmax,
543: int term_ymin, int term_ymax,
544: double plot_xmin, double plot_xmax,
545: double plot_ymin, double plot_ymax)
546: {
547: xleft = term_xmin, xright = term_xmax;
548: ybot = term_ymin, ytop = term_ymax;
549: min_array[FIRST_X_AXIS] = min_array[SECOND_X_AXIS] = plot_xmin;
550: max_array[FIRST_X_AXIS] = max_array[SECOND_X_AXIS] = plot_xmax;
551: min_array[FIRST_Y_AXIS] = min_array[SECOND_Y_AXIS] = plot_ymin;
552: max_array[FIRST_Y_AXIS] = max_array[SECOND_Y_AXIS] = plot_ymax;
553: }
554:
555: # define my_change_term change_term
556: # define my_term_tbl term_tbl
557:
558: extern void term_set_output(char *s);
559: extern void term_start_plot(void);
560: extern void term_end_plot(void);
561: extern void term_start_multiplot(void);
562: extern void term_end_multiplot(void);
563: extern void term_init(void);
564: extern void list_terms(void);
565:
566: static void
567: plotsizes_scale(double x, double y) { xsize=x; ysize=y; }
568:
569: static double
570: plotsizes_get(int flag) { return (flag ? ysize : xsize); }
571:
572: struct t_ftable my_term_ftable =
573: {
574: 1, (FUNC_PTR)&change_term, &term_set_output,
575: &plotsizes_scale, &plotsizes_get,
576: {&term_start_plot, &term_end_plot,
577: &term_start_multiplot, &term_end_multiplot, &term_init, &list_terms},
578: &mys_mouse_feedback_rectangle
579: };
580:
581: struct t_ftable *get_term_ftable() { SET_OUTFILE; return &my_term_ftable; }
582: void set_term_ftable() { SET_OUTFILE; }
583:
584: void
585: set_term_funcp3(FUNC_PTR change_p, void *term_p, TSET_FP tchange)
586: {
587: SET_OUTFILE;
588: (void)term_p;
589: my_term_ftable.change_term_p = change_p;
590: my_term_ftable.loaded = 1;
591: if (tchange) {
592: my_term_ftable.term_set_outputp = tchange;
593: }
594: }
595:
596: #define scaled_xmax() ((int)termprop(xmax)*xsize)
597: #define scaled_ymax() ((int)termprop(ymax)*ysize)
598:
599: #endif /* !DYNAMIC_PLOTTING */
600:
601: #define int_get_term_ftable() ((IV)get_term_ftable())
602: #define int_set_term_ftable(a) (v_set_term_ftable((void*)a))
603:
604: void
605: v_set_term_ftable(void *a) { set_term_ftable((struct t_ftable*)a); }
606:
607: typedef void (*set_term_ftable_t)(struct t_ftable *p);
608: typedef struct t_ftable *(get_term_ftable_t)(void);
609:
610: extern get_term_ftable_t *get_term_ftable_get(void);
611:
612: static int shim_set;
613:
614: void
615: setup_gpshim(void) {
616: #if 0
617: if (shim_set++)
618: return;
619: #endif
620:
621: if (!shim_set++) {
622: #ifdef DYNAMIC_PLOTTING_RUNTIME_LINK
623: get_term_ftable_t *f = get_term_ftable_get(); /* Resolve the getter */
624:
625: if (f)
626: v_set_term_ftable(f()); /* Get the external table */
627: #endif
628:
629: #ifdef DYNAMIC_PLOTTING_STATIC_LINK
630: void *a = get_term_ftable(); /* Get the external one */
631: v_set_term_ftable(get_term_ftable());
632: #endif
633: }
634: SET_OUTFILE;
635: }
636:
637: #ifdef SET_OPTIONS_FROM_STRING
638: /* This sets the tokens for the options */
639: void
640: set_tokens_string(char *start)
641: {
642: char *s = start;
643: char *tstart;
644: int is_real, is_integer, has_exp;
645:
646: num_tokens = 0;
647: while (num_tokens < MAX_TOKENS) {
648: while (*s == ' ' || *s == '\t' || *s == '\n')
649: s++;
650: if (!*s)
651: return;
652: tstart = s;
653: if (*s == ',') {
654: s++;
655: is_integer = is_real = 0;
656: goto process;
657: }
658: is_integer = is_real = ((*s) != 0);
659: if (*s == '+' || *s == '-')
660: s++;
661: has_exp = 0;
662: while (*s && !(*s == ' ' || *s == '\t' || *s == '\n')) {
663: if (!(*s <= '9' && *s >= '0')) {
664: if (*s == '.') {
665: if (!is_integer)
666: is_real = 0;
667: else if (is_integer == 1 && !(s[1] <= '9' && s[1] >= '0'))
668: is_real = 0;
669: } else if (*s == 'e' || *s == 'E') {
670: if (has_exp)
671: is_real = 0;
672: has_exp = 1;
673: if (s[1] == '+' || s[1] == '-')
674: s++;
675: } else if (*s == ',' && (is_integer || is_real))
676: break;
677: else
678: is_real = 0;
679: is_integer = 0;
680: } else if (is_integer)
681: is_integer++;
682: s++;
683: }
684: process:
685: token[num_tokens].start_index = tstart - input_line;
686: token[num_tokens].length = s - tstart;
687: if (is_integer) {
688: token[num_tokens].is_token = 0;
689: token[num_tokens].l_val.type = INTGR;
690: token[num_tokens].l_val.v.int_val = atoi(tstart);
691: } else if (is_real) {
692: token[num_tokens].is_token = 0;
693: token[num_tokens].l_val.type = CMPLX;
694: token[num_tokens].l_val.v.cmplx_val.real = atof(tstart);
695: token[num_tokens].l_val.v.cmplx_val.imag = 0;
696: } else {
697: token[num_tokens].is_token = 1;
698: }
699: num_tokens++;
700: }
701: if (num_tokens >= MAX_TOKENS) {
702: char buf[80];
703: sprintf(buf, "panic: more than %d tokens for options", MAX_TOKENS);
704: croak(buf);
705: }
706: }
707:
708: void
709: set_options_from(char *s)
710: {
711: char *o = input_line;
712:
713: input_line = s; /* for error reports */
714: set_tokens_string(s);
715: options();
716: input_line = o;
717: c_token = num_tokens = 0;
718: }
719: #endif
720:
721: #ifdef GNUPLOT_OUTLINE_STDOUT
722: int
723: StartOutput() { return 0; }
724:
725: int
726: EndOutput() { return 0; }
727:
728: int
729: OutLine(char *s)
730: {
731: return fprintf(stdout, "%s", s);
732: }
733: #endif
734:
735: #ifdef __cplusplus
736: }
737: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Gnuplot.h CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari-2.2 / src / graph