src/meta/bgraph.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  bgraph.c - program to send plots to metafile graphics programs.
 *
 *     6/25/86
 *
 *     Greg Ward Larson
 */

#include  <stdio.h>

#include  "meta.h"

#define  istyp(s)       (s[0] == '-')

#define  isvar(s)       (s[0] == '+')

char  *progname;

char  *libpath[4];


main(argc, argv)
int  argc;
char  *argv[];
{
#if  UNIX || MAC
        char  *getenv();
#endif
        int  i, file0;
#ifdef  CPM
#define getenv(s) NULL
        fixargs("bgraph", &argc, &argv);
#endif
        progname = argv[0];
        libpath[0] = "";
        if ((libpath[i=1] = getenv("MDIR")) != NULL)
                i++;
        libpath[i++] = MDIR;
        libpath[i] = NULL;

        for (file0 = 1; file0 < argc; )
                if (istyp(argv[file0]))
                        file0++;
                else if (isvar(argv[file0]) && file0 < argc-1)
                        file0 += 2;
                else
                        break;

        if (file0 >= argc)
                dofile(argc-1, argv+1, NULL);
        else
                for (i = file0; i < argc; i++)
                        dofile(file0-1, argv+1, argv[i]);

        quit(0);
}


dofile(optc, optv, file)                /* plot a file */
int  optc;
char  *optv[];
char  *file;
{
        char  stmp[256];
        int  i;
                                                /* start fresh */
        mgclearall();
                                                /* type options first */
        for (i = 0; i < optc; i++)
                if (istyp(optv[i])) {
                        sprintf(stmp, "include=%s.plt", optv[i]+1);
                        setmgvar(progname, stdin, stmp);
                } else
                        i++;
                                                /* file next */
        mgload(file);
                                                /* variable options last */
        for (i = 0; i < optc; i++)
                if (isvar(optv[i])) {
                        sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
                        setmgvar(progname, stdin, stmp);
                        i++;
                }
                                                /* graph it */
        mgraph();
}


eputs(msg)                              /* print error message */
char  *msg;
{
        fputs(msg, stderr);
}


quit(code)                              /* quit program */
int  code;
{
        mdone();
        exit(code);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* bgraph.c - program to send plots to metafile graphics programs.
6			*
7			* 6/25/86
8			*
9			* Greg Ward Larson
10			*/
11
12			#include <stdio.h>
13
14			#include "meta.h"
15
16			#define istyp(s) (s[0] == '-')
17
18			#define isvar(s) (s[0] == '+')
19
20			char *progname;
21
22			char *libpath[4];
23
24
25			main(argc, argv)
26			int argc;
27			char *argv[];
28			{
29			#if UNIX \|\| MAC
30			char *getenv();
31			#endif
32			int i, file0;
33			#ifdef CPM
34			#define getenv(s) NULL
35			fixargs("bgraph", &argc, &argv);
36			#endif
37			progname = argv[0];
38			libpath[0] = "";
39			if ((libpath[i=1] = getenv("MDIR")) != NULL)
40			i++;
41			libpath[i++] = MDIR;
42			libpath[i] = NULL;
43
44			for (file0 = 1; file0 < argc; )
45			if (istyp(argv[file0]))
46			file0++;
47			else if (isvar(argv[file0]) && file0 < argc-1)
48			file0 += 2;
49			else
50			break;
51
52			if (file0 >= argc)
53			dofile(argc-1, argv+1, NULL);
54			else
55			for (i = file0; i < argc; i++)
56			dofile(file0-1, argv+1, argv[i]);
57
58			quit(0);
59			}
60
61
62			dofile(optc, optv, file) /* plot a file */
63			int optc;
64			char *optv[];
65			char *file;
66			{
67			char stmp[256];
68			int i;
69			/* start fresh */
70			mgclearall();
71			/* type options first */
72			for (i = 0; i < optc; i++)
73			if (istyp(optv[i])) {
74			sprintf(stmp, "include=%s.plt", optv[i]+1);
75			setmgvar(progname, stdin, stmp);
76			} else
77			i++;
78			/* file next */
79			mgload(file);
80			/* variable options last */
81			for (i = 0; i < optc; i++)
82			if (isvar(optv[i])) {
83			sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
84			setmgvar(progname, stdin, stmp);
85			i++;
86			}
87			/* graph it */
88			mgraph();
89			}
90
91
92			eputs(msg) /* print error message */
93			char *msg;
94			{
95			fputs(msg, stderr);
96			}
97
98
99			quit(code) /* quit program */
100			int code;
101			{
102			mdone();
103			exit(code);
104			}