|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T p
Length: 5074 (0x13d2) Types: TextFile Names: »plot.c«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12 └─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z« └─⟦036c765ac⟧ └─⟦this⟧ »TeX3.0/TeXcontrib/gnutex/plot.c«
/* * * G N U P L O T -- plot.c * * Copyright (C) 1986 Thomas Williams, Colin Kelley * * You may use this code as you wish if credit is given and this message * is retained. * * Please e-mail any useful additions to vu-vlsi!plot so they may be * included in later releases. * * This file should be edited with 4-column tabs! (:set ts=4 sw=4 in vi) */ /* * Modifications for LaTeX and other support by David Kotz, 1988. * Department of Computer Science, Duke University, Durham, NC 27706. * Mail to dfk@cs.duke.edu. */ #include <stdio.h> #include <setjmp.h> #include <signal.h> #include "plot.h" extern FILE *outfile; extern int term; #ifndef STDOUT #define STDOUT 1 #endif jmp_buf env; struct value stack[STACK_DEPTH]; struct lexical_unit token[MAX_TOKENS]; struct value *integer(),*complex(); extern struct termentry term_tbl[]; extern f_push(),f_pushc(),f_pushd(),f_call(),f_terniary(),f_lnot(),f_bnot(), f_uminus(),f_lor(),f_land(),f_bor(),f_xor(),f_band(),f_eq(),f_ne(), f_gt(),f_lt(),f_ge(),f_le(),f_plus(),f_minus(),f_mult(),f_div(), f_mod(),f_power(); extern f_real(),f_imag(),f_arg(),f_conjg(),f_sin(),f_cos(),f_tan(),f_asin(), f_acos(),f_atan(),f_sinh(),f_cosh(),f_tanh(),f_int(),f_abs(),f_sgn(), f_sqrt(),f_exp(),f_log10(),f_log(),f_besj0(),f_besj1(),f_besy0(),f_besy1(), f_floor(),f_ceil(); struct ft_entry ft[] = { /* built-in function table */ /* internal functions: */ {"push", f_push}, {"pushc", f_pushc}, {"pushd", f_pushd}, {"call", f_call}, {"?:", f_terniary}, {"lnot", f_lnot}, {"bnot", f_bnot}, {"uminus", f_uminus}, {"lor", f_lor}, {"land", f_land}, {"bor", f_bor}, {"xor", f_xor}, {"band", f_band}, {"eq", f_eq}, {"ne", f_ne}, {"gt", f_gt}, {"lt", f_lt}, {"ge", f_ge}, {"le", f_le}, {"plus", f_plus}, {"minus", f_minus}, {"mult", f_mult}, {"div", f_div}, {"mod", f_mod}, {"power", f_power}, /* standard functions: */ {"real", f_real}, {"imag", f_imag}, {"arg", f_arg}, {"conjg", f_conjg}, {"sin", f_sin}, {"cos", f_cos}, {"tan", f_tan}, {"asin", f_asin}, {"acos", f_acos}, {"atan", f_atan}, {"sinh", f_sinh}, {"cosh", f_cosh}, {"tanh", f_tanh}, {"int", f_int}, {"abs", f_abs}, {"sgn", f_sgn}, {"sqrt", f_sqrt}, {"exp", f_exp}, {"log10", f_log10}, {"log", f_log}, {"besj0", f_besj0}, {"besj1", f_besj1}, {"besy0", f_besy0}, {"besy1", f_besy1}, {"floor", f_floor}, {"ceil", f_ceil}, {NULL, NULL} }; struct udft_entry udft[MAX_UDFS+1]; struct vt_entry vt[MAX_VALUES] = { {"pi"}, {"xmin"}, {"xmax"}, {"ymin"}, {"ymax"}, {"autoscale"} }; struct st_entry st[MAX_STYLES] = { /* include the fixed styles by default */ /* These must match the positions in enum PLOT_STYLE */ {"lines"}, {"points"}, {"impulses"}, {"linespoints"}, {"dots"} }; int next_style = FIXED_STYLES+1; #ifdef vms #define HOME "sys$login:" #else /* vms */ #ifdef MSDOS #define HOME "GNUTEX" #else /* MSDOS */ #define HOME "HOME" #endif /* MSDOS */ #endif /* vms */ #ifdef unix #define PLOTRC ".gnutex" #else #define PLOTRC "gnutex.ini" #endif int put_label=0; int debug=0; BOOLEAN printer=0; /* DFK 6/8/87 */ #define print_debug(a) if (debug) fprintf(stderr, a) catch() /* interrupts */ { (void) signal(SIGINT, catch); (void) signal(SIGFPE, SIG_DFL); /* turn off FPE trapping */ if (term) (*term_tbl[term].text)(); /* hopefully reset text mode */ (void) fflush(outfile); (void) putc('\n',stderr); longjmp(env, TRUE); /* return to prompt */ } main(argc, argv) char *argv[]; int argc; { char *getenv(),*strcat(),*strcpy(); FILE *plotrc; static char home[sizeof(PLOTRC)+40]; /* Changes made 16 February 1987 by Nathan Hillery (nhh@duke) * - to offer command line selection of various options, including: * labels on plot * * Changes made 8 June 87 by David Kotz (dfk@duke) * - to offer command line flag indicating output intended for printer, * so first plot will not clear "screen" and waste paper */ char *s; /* Initialize flags */ while (--argc>0 && (*++argv)[0]=='-') for (s=argv[0]+1; *s!='\0'; s++) switch (*s) { case 'l': case 'L': put_label=1; print_debug("labels on\n"); break; case 'p': /* DFK 6/8/87 Don't waste page */ printer=1; /* if we are on a printer */ print_debug("printer mode on\n"); break; case 'x': debug=1; print_debug("debugging on\n"); break; default: break; } /* End changes made 16 February 1987 by Nathan Hillery (nhh@duke) */ setbuf(stderr,NULL); outfile = fdopen(dup(STDOUT),"w"); (void) complex(&vt[(int)C_PI].vt_value, Pi, 0.0); pointmem(SAMPLES); /* malloc memory to keep plot points in */ if (!setjmp(env)) { /* come back here from printerror() */ (void) signal(SIGINT, catch); /* go there on interrupt char */ if (!(plotrc = (fopen(PLOTRC,"r")))) { #ifdef vms (void) strcpy(home,HOME); plotrc = fopen(strcat(home,PLOTRC),"r"); #else (void) strcat(strcpy(home,getenv(HOME)),"/"); plotrc = fopen(strcat(home,PLOTRC),"r"); #endif /* vms */ } if (plotrc) load_file(plotrc); } loop: com_line(); goto loop; }