Annotation of OpenXM_contrib/pari/src/graph/Gnuplot.h, Revision 1.1
1.1 ! maekawa 1: /* This header should be included in one C file only! */
! 2:
! 3: #include <stdio.h>
! 4: #include <stdlib.h>
! 5: #include <setjmp.h>
! 6:
! 7: #ifdef __cplusplus
! 8: extern "C" {
! 9: #endif
! 10:
! 11: /* CAT2:
! 12: * This macro catenates 2 tokens together.
! 13: */
! 14: /* STRINGIFY:
! 15: * This macro surrounds its token with double quotes.
! 16: */
! 17: #ifndef CAT2
! 18: # if 42 == 1
! 19: # define CAT2(a,b)a/**/b
! 20: # define CAT3(a,b,c)a/**/b/**/c
! 21: # define CAT4(a,b,c,d)a/**/b/**/c/**/d
! 22: # define CAT5(a,b,c,d,e)a/**/b/**/c/**/d/**/e
! 23: # define STRINGIFY(a)"a"
! 24: /* If you can get stringification with catify, tell me how! */
! 25: # endif
! 26: # if 42 == 42
! 27: # define CAT2(a,b)a ## b
! 28: # define CAT3(a,b,c)a ## b ## c
! 29: # define CAT4(a,b,c,d)a ## b ## c ## d
! 30: # define CAT5(a,b,c,d,e)a ## b ## c ## d ## e
! 31: # define StGiFy(a)# a
! 32: # define STRINGIFY(a)StGiFy(a)
! 33: # define SCAT2(a,b)StGiFy(a) StGiFy(b)
! 34: # define SCAT3(a,b,c)StGiFy(a) StGiFy(b) StGiFy(c)
! 35: # define SCAT4(a,b,c,d)StGiFy(a) StGiFy(b) StGiFy(c) StGiFy(d)
! 36: # define SCAT5(a,b,c,d,e)StGiFy(a) StGiFy(b) StGiFy(c) StGiFy(d) StGiFy(e)
! 37: # endif
! 38: # ifndef CAT2
! 39: # include "Bletch: How does this C preprocessor catenate tokens?"
! 40: # endif
! 41: #endif /* CAT2 */
! 42:
! 43:
! 44: #define TERM_CAN_MULTIPLOT 1 /* tested if stdout not redirected */
! 45: #define TERM_CANNOT_MULTIPLOT 2 /* tested if stdout is redirected */
! 46: #define TERM_BINARY 4 /* open output file with "b" */
! 47:
! 48: #ifndef NO_JUNK_SMALL
! 49:
! 50: /* Compatibility with the old gnuplot: */
! 51: extern FILE *outfile;
! 52: FILE *outfile = NULL;
! 53:
! 54: extern FILE *gpoutfile;
! 55: FILE *gpoutfile = NULL;
! 56:
! 57: static outfile_set;
! 58: static void
! 59: set_gpoutfile(void)
! 60: {
! 61: outfile = stdout;
! 62: gpoutfile = stdout;
! 63: }
! 64:
! 65: #define SET_OUTFILE (outfile_set++ ? 1 : (set_gpoutfile(), 1))
! 66:
! 67: extern int encoding;
! 68: int encoding = 0;
! 69: extern float xoffset; /* x origin */
! 70: extern float yoffset; /* y origin */
! 71: float xoffset = 0.0; /* x origin */
! 72: float yoffset = 0.0; /* y origin */
! 73: extern int multiplot;
! 74: int multiplot = 0;
! 75:
! 76: extern char *outstr;
! 77: #define MAX_ID_LEN 50
! 78: /* char outstr[MAX_ID_LEN+1] = "STDOUT"; */
! 79: char *outstr = NULL;
! 80: extern double ticscale; /* scale factor for tic marks (was (0..1])*/
! 81: double ticscale = 1.0; /* scale factor for tic mark */
! 82:
! 83: char *input_line = NULL;
! 84: int inline_num; /* from command.c */
! 85:
! 86: float xsize=1.0, ysize=1.0;
! 87: double pointsize=1.0; /* During test! */
! 88:
! 89: int interactive; /* from plot.c */
! 90: char *infile_name; /* from plot.c */
! 91: extern char default_font[];
! 92: char default_font[MAX_ID_LEN+1] = "\0"; /* Entry added by DJL */
! 93:
! 94: typedef int TBOOLEAN;
! 95:
! 96: enum DATA_TYPES {
! 97: INTGR, CMPLX
! 98: };
! 99:
! 100: #if !(defined(ATARI)&&defined(__GNUC__)&&defined(_MATH_H)) && !(defined(MTOS)&&defined(__GNUC__)&&defined(_MATH_H)) /* FF's math.h has the type already */
! 101: struct cmplx {
! 102: double real, imag;
! 103: };
! 104: #endif
! 105:
! 106: struct value {
! 107: enum DATA_TYPES type;
! 108: union {
! 109: int int_val;
! 110: struct cmplx cmplx_val;
! 111: } v;
! 112: };
! 113:
! 114: struct lexical_unit { /* produced by scanner */
! 115: TBOOLEAN is_token; /* true if token, false if a value */
! 116: struct value l_val;
! 117: int start_index; /* index of first char in token */
! 118: int length; /* length of token in chars */
! 119: };
! 120:
! 121: /* char *token; */
! 122: #define MAX_TOKENS 20
! 123: extern struct lexical_unit *token;
! 124: struct lexical_unit tokens[MAX_TOKENS]; /* We only process options,
! 125: there should not be many */
! 126: struct lexical_unit *token = tokens;
! 127: long c_token = 0, num_tokens = 0;
! 128: char term_options[200] = "";
! 129:
! 130: /* Here are the only missing functions: */
! 131:
! 132: struct value*
! 133: const_express(struct value*v)
! 134: {
! 135: if (token[c_token].is_token)
! 136: croak("Expect a number, got a string");
! 137: *v = token[c_token++].l_val;
! 138: return v;
! 139: }
! 140:
! 141: void*
! 142: gp_alloc(unsigned long size, char *usage)
! 143: {
! 144: return malloc(size);
! 145: }
! 146:
! 147: void*
! 148: gp_realloc(void *old, unsigned long size, char *usage)
! 149: {
! 150: return realloc(old,size);
! 151: }
! 152:
! 153: void
! 154: bail_to_command_line()
! 155: {
! 156: croak("panic: gnuplot");
! 157: }
! 158:
! 159: #endif /* NO_JUNK_SMALL */
! 160:
! 161: /* Cannot pull the whole plot.h, too many contradictions. */
! 162:
! 163: #ifdef __ZTC__
! 164: typedef int (*FUNC_PTR)(...);
! 165: #else
! 166: typedef int (*FUNC_PTR)();
! 167: #endif
! 168:
! 169: struct TERMENTRY {
! 170: char *name;
! 171: #if defined(_Windows) && !defined(WIN32)
! 172: char GPFAR description[80]; /* to make text go in FAR segment */
! 173: #else
! 174: char *description;
! 175: #endif
! 176: unsigned int xmax,ymax,v_char,h_char,v_tic,h_tic;
! 177: FUNC_PTR options,init,reset,text,scale,graphics,move,vector,linetype,
! 178: put_text,text_angle,justify_text,point,arrow,set_font,
! 179: pointsize;
! 180: int flags;
! 181: FUNC_PTR suspend,resume,fillbox,linewidth;
! 182: };
! 183:
! 184: #ifdef _Windows
! 185: # define termentry TERMENTRY far
! 186: #else
! 187: # define termentry TERMENTRY
! 188: #endif
! 189:
! 190: extern struct termentry *term;
! 191: struct termentry *term;
! 192:
! 193: #define RETVOID
! 194: #define RETINT , 1
! 195:
! 196: #define F_0 void(*)()
! 197: #define F_1 void(*)(int)
! 198: #define F_1I int(*)(int)
! 199: #define F_1D void(*)(double)
! 200: #define F_1IP int(*)(char*)
! 201: #define F_2 void(*)(unsigned int,unsigned int)
! 202: #define F_2D int(*)(double,double)
! 203: #define F_3 void(*)(unsigned int,unsigned int,int)
! 204: #define F_3T void(*)(int,int,char*)
! 205: #define F_4 void(*)(int,int,int,int)
! 206: #define F_5 void(*)(int,int,int,int,int)
! 207:
! 208: #define CALL_G_METH0(method) CALL_G_METH(method,0,(),RETVOID)
! 209: #define CALL_G_METH1(method,arg1) CALL_G_METH(method,1,(arg1),RETVOID)
! 210: #define CALL_G_METH1I(method,arg1) CALL_G_METH(method,1I,(arg1),RETINT)
! 211: #define CALL_G_METH1D(method,arg1) CALL_G_METH(method,1D,(arg1),RETVOID)
! 212: #define CALL_G_METH1IP(method,arg1) CALL_G_METH(method,1IP,(arg1),RETINT)
! 213: #define CALL_G_METH2(method,arg1,arg2) \
! 214: CALL_G_METH(method,2,((arg1),(arg2)),RETVOID)
! 215: #define CALL_G_METH2D(method,arg1,arg2) \
! 216: CALL_G_METH(method,2D,((arg1),(arg2)),RETINT)
! 217: #define CALL_G_METH3(method,arg1,arg2,arg3) \
! 218: CALL_G_METH(method,3,((arg1),(arg2),(arg3)),RETVOID)
! 219: #define CALL_G_METH3T(method,arg1,arg2,arg3) \
! 220: CALL_G_METH(method,3T,((arg1),(arg2),(arg3)),RETVOID)
! 221: #define CALL_G_METH4(method,arg1,arg2,arg3,arg4) \
! 222: CALL_G_METH(method,4,((arg1),(arg2),(arg3),(arg4)),RETVOID)
! 223: #define CALL_G_METH5(method,arg1,arg2,arg3,arg4,arg5) \
! 224: CALL_G_METH(method,5,((arg1),(arg2),(arg3),(arg4),(arg5)),RETVOID)
! 225:
! 226: #define CALL_G_METH(method,mult,args,returnval) ( \
! 227: (term==0) ? ( \
! 228: croak("No terminal specified") returnval \
! 229: ) : \
! 230: (*(CAT2(F_,mult))term->method)args \
! 231: )
! 232:
! 233: #define GET_G_FLAG(mask) ( \
! 234: (term==0) ? ( \
! 235: croak("No terminal specified") RETINT \
! 236: ) : \
! 237: (term->flags & (mask)))
! 238:
! 239: #ifdef DONT_POLLUTE_INIT
! 240: # define gptable_init() CALL_G_METH0(init)
! 241: #else
! 242: # define init() CALL_G_METH0(init)
! 243: # define gptable_init init
! 244: #endif
! 245: #define reset() CALL_G_METH0(reset)
! 246: #define text() CALL_G_METH0(text)
! 247: #define options() CALL_G_METH0(options)
! 248: #define graphics() CALL_G_METH0(graphics)
! 249: #define linetype(lt) CALL_G_METH1(linetype,lt)
! 250: #define justify_text(mode) CALL_G_METH1I(justify_text,mode)
! 251: #define text_angle(ang) CALL_G_METH1I(text_angle,ang)
! 252: #define scale(xs,ys) CALL_G_METH2D(scale,xs,ys)
! 253: #define move(x,y) CALL_G_METH2(move,x,y)
! 254: #define vector(x,y) CALL_G_METH2(vector,x,y)
! 255: #define put_text(x,y,str) CALL_G_METH3T(put_text,x,y,str)
! 256: #define point(x,y,p) CALL_G_METH3(point,x,y,p)
! 257: #define arrow(sx,sy,ex,ey,head) CALL_G_METH5(arrow,sx,sy,ex,ey,head)
! 258: #define set_font(font) CALL_G_METH1IP(set_font,font)
! 259: #define setpointsize(size) CALL_G_METH1D(pointsize,size)
! 260: #define suspend() CALL_G_METH0(suspend)
! 261: #define resume() CALL_G_METH0(resume)
! 262: #define fillbox(sx,sy,ex,ey,head) CALL_G_METH5(fillbox,sx,sy,ex,ey,head)
! 263: #define linewidth(size) CALL_G_METH1D(linewidth,size)
! 264: #define can_multiplot() GET_G_FLAG(TERM_CAN_MULTIPLOT)
! 265: #define cannot_multiplot() GET_G_FLAG(TERM_CANNOT_MULTIPLOT)
! 266: #define is_binary() GET_G_FLAG(TERM_BINARY)
! 267:
! 268: #define termprop(prop) (term->prop)
! 269: #define termset(term) my_change_term(term,strlen(term))
! 270:
! 271: struct termentry * change_term(char*,int);
! 272:
! 273: #define TTABLE_STARTPLOT 0
! 274: #define TTABLE_ENDPLOT 1
! 275: #define TTABLE_STARTMPLOT 2
! 276: #define TTABLE_ENDMPLOT 3
! 277: #define TTABLE_INIT 4
! 278: #define TTABLE_LIST 5
! 279: #define TTABLE_COUNT 6
! 280:
! 281: typedef void (*TSET_FP)(char *s);
! 282: typedef void (*TST_END_FP)(void);
! 283: typedef void (*SET_SIZES_t)(double x, double y);
! 284: typedef double (*GET_SIZES_t)(int flag);
! 285:
! 286: struct t_ftable {
! 287: int loaded;
! 288: FUNC_PTR change_term_p;
! 289: TSET_FP term_set_outputp;
! 290: SET_SIZES_t set_sizesp;
! 291: GET_SIZES_t get_sizesp;
! 292: TST_END_FP term_funcs[TTABLE_COUNT];
! 293: };
! 294:
! 295: #ifdef DYNAMIC_PLOTTING /* Can load plotting DLL later */
! 296:
! 297: UNKNOWN_null()
! 298: {
! 299: croak("gnuplot-like plotting environment not loaded yet");
! 300: }
! 301:
! 302: static void myterm_table_not_loaded_v(void);
! 303: static void myterm_table_not_loaded(char*);
! 304: static int myterm_table_not_loaded_u();
! 305: static void myterm_table_not_loaded_vdd(double x, double y);
! 306: static double myterm_table_not_loaded_di(int flag);
! 307:
! 308: #if 0
! 309: static int ftable_warned;
! 310: static void
! 311: tmp_my_term_init
! 312: {
! 313: if (!warned++)
! 314: warn("This runtime link with gnuplot-shim does not implement midlevel start/end functions");
! 315: shim_myinit();
! 316: }
! 317: #endif
! 318:
! 319: static struct t_ftable my_term_ftable =
! 320: {
! 321: 0, &myterm_table_not_loaded_u, &myterm_table_not_loaded,
! 322: &myterm_table_not_loaded_vdd,
! 323: &myterm_table_not_loaded_di,
! 324: {&myterm_table_not_loaded_v, &myterm_table_not_loaded_v,
! 325: &myterm_table_not_loaded_v, &myterm_table_not_loaded_v,
! 326: &myterm_table_not_loaded_v, &myterm_table_not_loaded_v}
! 327: };
! 328:
! 329: static struct t_ftable *my_term_ftablep = &my_term_ftable;
! 330:
! 331: static void
! 332: myterm_table_not_loaded_v(void)
! 333: {
! 334: if (!my_term_ftablep->loaded) {
! 335: UNKNOWN_null();
! 336: return;
! 337: }
! 338: croak("This runtime link with gnuplot-shim does not implement midlevel start/end functions");
! 339: }
! 340:
! 341: static void
! 342: myterm_table_not_loaded(char *s)
! 343: {
! 344: myterm_table_not_loaded_v();
! 345: }
! 346:
! 347: static void
! 348: myterm_table_not_loaded_vdd(double x, double y)
! 349: {
! 350: myterm_table_not_loaded_v();
! 351: }
! 352:
! 353: static double
! 354: myterm_table_not_loaded_di(int flag)
! 355: {
! 356: myterm_table_not_loaded_v();
! 357: }
! 358:
! 359: static int
! 360: myterm_table_not_loaded_u()
! 361: {
! 362: myterm_table_not_loaded_v();
! 363: return 0;
! 364: }
! 365:
! 366: # define change_term (*my_term_ftablep->change_term_p)
! 367: # define term_set_output (*my_term_ftablep->term_set_outputp)
! 368: # define term_start_plot (*my_term_ftablep->term_funcs[TTABLE_STARTPLOT])
! 369: # define term_end_plot (*my_term_ftablep->term_funcs[TTABLE_ENDPLOT])
! 370: # define term_start_multiplot (*my_term_ftablep->term_funcs[TTABLE_STARTMPLOT])
! 371: # define term_end_multiplot (*my_term_ftablep->term_funcs[TTABLE_ENDMPLOT])
! 372: # define term_init (*my_term_ftablep->term_funcs[TTABLE_INIT])
! 373: # define list_terms (*my_term_ftablep->term_funcs[TTABLE_LIST])
! 374: # define plotsizes_scale (*my_term_ftablep->set_sizesp)
! 375: # define plotsizes_scale_get (*my_term_ftablep->get_sizesp)
! 376:
! 377: # define scaled_xmax() ((int)termprop(xmax)*plotsizes_scale_get(0))
! 378: # define scaled_ymax() ((int)termprop(ymax)*plotsizes_scale_get(1))
! 379:
! 380: #define USE_FUNCTION_FROM_TABLE
! 381:
! 382: static struct termentry *
! 383: my_change_term(char*s,int l)
! 384: {
! 385: SET_OUTFILE;
! 386: if (!my_term_ftablep->change_term_p)
! 387: UNKNOWN_null();
! 388: return term = (struct termentry *)(*my_term_ftablep->change_term_p)(s,l);
! 389: }
! 390:
! 391: static struct termentry dummy_term_tbl[] = {
! 392: {"unknown", "Unknown terminal type - not a plotting device",
! 393: 100, 100, 1, 1,
! 394: 1, 1, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
! 395: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
! 396: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null,
! 397: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, 0,
! 398: UNKNOWN_null, UNKNOWN_null, UNKNOWN_null, UNKNOWN_null},
! 399: };
! 400:
! 401: #define set_term_funcp(change_p, term_p) set_term_funcp2((change_p), 0)
! 402: /* #define set_term_funcp3(change_p, term_p, tchange) \
! 403: set_term_funcp2((change_p), (tchange)) */
! 404:
! 405: /* This function should be called before any graphic code can be used... */
! 406: void
! 407: set_term_funcp2(FUNC_PTR change_p, TSET_FP tchange)
! 408: {
! 409: SET_OUTFILE;
! 410: my_term_ftable.change_term_p = change_p;
! 411: my_term_ftable.loaded = 1;
! 412: if (tchange) {
! 413: my_term_ftable.term_set_outputp = tchange;
! 414: }
! 415: }
! 416:
! 417: /* Used from Math::Pari */
! 418: void
! 419: set_term_funcp3(FUNC_PTR change_p, void *term_p, TSET_FP tchange)
! 420: {
! 421: set_term_funcp2(change_p, tchange);
! 422: }
! 423:
! 424: void
! 425: set_term_ftable(struct t_ftable *p)
! 426: {
! 427: SET_OUTFILE;
! 428: my_term_ftablep = p;
! 429: }
! 430:
! 431: #else /* !DYNAMIC_PLOTTING */
! 432:
! 433: extern struct termentry term_tbl[];
! 434:
! 435: # define my_change_term change_term
! 436: # define my_term_tbl term_tbl
! 437:
! 438: extern void term_set_output(char *s);
! 439: extern void term_start_plot(void);
! 440: extern void term_end_plot(void);
! 441: extern void term_start_multiplot(void);
! 442: extern void term_end_multiplot(void);
! 443: extern void term_init(void);
! 444: extern void list_terms(void);
! 445:
! 446: static void
! 447: plotsizes_scale(double x, double y) { xsize=x; ysize=y; }
! 448:
! 449: static double
! 450: plotsizes_get(int flag) { return (flag ? ysize : xsize); }
! 451:
! 452: struct t_ftable my_term_ftable =
! 453: {
! 454: 1, (FUNC_PTR)&change_term, &term_set_output,
! 455: &plotsizes_scale, &plotsizes_get,
! 456: {&term_start_plot, &term_end_plot,
! 457: &term_start_multiplot, &term_end_multiplot, &term_init, &list_terms}
! 458: };
! 459:
! 460: struct t_ftable *get_term_ftable() { SET_OUTFILE; return &my_term_ftable; }
! 461: void set_term_ftable() { SET_OUTFILE; }
! 462:
! 463:
! 464: void
! 465: set_term_funcp3(FUNC_PTR change_p, void *term_p, TSET_FP tchange)
! 466: {
! 467: SET_OUTFILE;
! 468: my_term_ftable.change_term_p = change_p;
! 469: my_term_ftable.loaded = 1;
! 470: if (tchange) {
! 471: my_term_ftable.term_set_outputp = tchange;
! 472: }
! 473: }
! 474:
! 475: #define scaled_xmax() ((int)termprop(xmax)*xsize)
! 476: #define scaled_ymax() ((int)termprop(ymax)*ysize)
! 477:
! 478: #endif /* !DYNAMIC_PLOTTING */
! 479:
! 480: #define int_get_term_ftable() ((IV)get_term_ftable())
! 481: #define int_set_term_ftable(a) (v_set_term_ftable((void*)a))
! 482:
! 483: void
! 484: v_set_term_ftable(void *a) { set_term_ftable((struct t_ftable*)a); }
! 485:
! 486: void
! 487: setup_gpshim(void) { SET_OUTFILE; }
! 488:
! 489: #ifdef SET_OPTIONS_FROM_STRING
! 490: /* This sets the tokens for the options */
! 491: void
! 492: set_tokens_string(char *start)
! 493: {
! 494: char *s = start;
! 495: char *tstart;
! 496: int is_real, is_integer, has_exp;
! 497:
! 498: num_tokens = 0;
! 499: while (num_tokens < MAX_TOKENS) {
! 500: while (*s == ' ' || *s == '\t' || *s == '\n')
! 501: s++;
! 502: if (!*s)
! 503: return;
! 504: tstart = s;
! 505: if (*s == ',') {
! 506: s++;
! 507: is_integer = is_real = 0;
! 508: goto process;
! 509: }
! 510: is_integer = is_real = ((*s) != 0);
! 511: if (*s == '+' || *s == '-')
! 512: s++;
! 513: has_exp = 0;
! 514: while (*s && !(*s == ' ' || *s == '\t' || *s == '\n')) {
! 515: if (!(*s <= '9' && *s >= '0')) {
! 516: if (*s == '.') {
! 517: if (!is_integer)
! 518: is_real = 0;
! 519: else if (is_integer == 1 && !(s[1] <= '9' && s[1] >= '0'))
! 520: is_real = 0;
! 521: } else if (*s == 'e' || *s == 'E') {
! 522: if (has_exp)
! 523: is_real = 0;
! 524: has_exp = 1;
! 525: if (s[1] == '+' || s[1] == '-')
! 526: s++;
! 527: } else if (*s == ',' && (is_integer || is_real))
! 528: break;
! 529: else
! 530: is_real = 0;
! 531: is_integer = 0;
! 532: } else if (is_integer)
! 533: is_integer++;
! 534: s++;
! 535: }
! 536: process:
! 537: token[num_tokens].start_index = tstart - input_line;
! 538: token[num_tokens].length = s - tstart;
! 539: if (is_integer) {
! 540: token[num_tokens].is_token = 0;
! 541: token[num_tokens].l_val.type = INTGR;
! 542: token[num_tokens].l_val.v.int_val = atoi(tstart);
! 543: } else if (is_real) {
! 544: token[num_tokens].is_token = 0;
! 545: token[num_tokens].l_val.type = CMPLX;
! 546: token[num_tokens].l_val.v.cmplx_val.real = atof(tstart);
! 547: token[num_tokens].l_val.v.cmplx_val.imag = 0;
! 548: } else {
! 549: token[num_tokens].is_token = 1;
! 550: }
! 551: num_tokens++;
! 552: }
! 553: if (num_tokens >= MAX_TOKENS) {
! 554: char buf[80];
! 555: sprintf(buf, "panic: more than %d tokens for options", MAX_TOKENS);
! 556: croak(buf);
! 557: }
! 558: }
! 559:
! 560: void
! 561: set_options_from(char *s)
! 562: {
! 563: char *o = input_line;
! 564:
! 565: input_line = s; /* for error reports */
! 566: set_tokens_string(s);
! 567: options();
! 568: input_line = o;
! 569: c_token = num_tokens = 0;
! 570: }
! 571: #endif
! 572:
! 573: #ifdef GNUPLOT_OUTLINE_STDOUT
! 574: int
! 575: StartOutput() {}
! 576:
! 577: int
! 578: EndOutput() {}
! 579:
! 580: int
! 581: OutLine(char *s)
! 582: {
! 583: return fprintf(stdout, "%s", s);
! 584: }
! 585: #endif
! 586:
! 587: #ifdef __cplusplus
! 588: }
! 589: #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 / src / graph