src/meta/gcomp.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  gcomp.c - program to calculate things from graph files.
 *
 *     7/7/86
 *
 *     Greg Ward Larson
 */

#include  <stdio.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
        fixargs("gcomp", &argc, &argv);
        progname = argv[0];
        libpath[0] = "";
        libpath[1] = "0/";
        libpath[2] = NULL;
#endif
#ifdef  MAC
        progname = argv[0];
        libpath[0] = "./";
        if ((libpath[i=1] = getenv("MDIR")) != NULL)
                i++;
        libpath[i++] = "/meta/";
        libpath[i] = NULL;
#endif
#ifdef  UNIX
        progname = argv[0];
        libpath[0] = "./";
        if ((libpath[i=1] = getenv("MDIR")) != NULL)
                i++;
        libpath[i++] = MDIR;
        libpath[i] = NULL;
#endif

        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  types[16], stmp[256], *strcat();
        int  i;

        mgclearall();

        mgload(file);

        types[0] = '\0';
        for (i = 0; i < optc; i++)
                if (istyp(optv[i]))
                        strcat(types, optv[i]+1);
                else {
                        sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
                        setmgvar("command line", stdin, stmp);
                        i++;
                }

        gcalc(types);
}


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


quit(code)                              /* quit program */
int  code;
{
        exit(code);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 2 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
#	Content
1	#ifndef lint
2	static const char RCSid[] = "$Id$";
3	#endif
4	/*
5	* gcomp.c - program to calculate things from graph files.
6	*
7	* 7/7/86
8	*
9	* Greg Ward Larson
10	*/
11
12	#include <stdio.h>
13
14	#define istyp(s) (s[0] == '-')
15
16	#define isvar(s) (s[0] == '+')
17
18	char *progname;
19
20	char *libpath[4];
21
22
23	main(argc, argv)
24	int argc;
25	char *argv[];
26	{
27	#if UNIX \|\| MAC
28	char *getenv();
29	#endif
30	int i, file0;
31
32	#ifdef CPM
33	fixargs("gcomp", &argc, &argv);
34	progname = argv[0];
35	libpath[0] = "";
36	libpath[1] = "0/";
37	libpath[2] = NULL;
38	#endif
39	#ifdef MAC
40	progname = argv[0];
41	libpath[0] = "./";
42	if ((libpath[i=1] = getenv("MDIR")) != NULL)
43	i++;
44	libpath[i++] = "/meta/";
45	libpath[i] = NULL;
46	#endif
47	#ifdef UNIX
48	progname = argv[0];
49	libpath[0] = "./";
50	if ((libpath[i=1] = getenv("MDIR")) != NULL)
51	i++;
52	libpath[i++] = MDIR;
53	libpath[i] = NULL;
54	#endif
55
56	for (file0 = 1; file0 < argc; )
57	if (istyp(argv[file0]))
58	file0++;
59	else if (isvar(argv[file0]) && file0 < argc-1)
60	file0 += 2;
61	else
62	break;
63
64	if (file0 >= argc)
65	dofile(argc-1, argv+1, NULL);
66	else
67	for (i = file0; i < argc; i++)
68	dofile(file0-1, argv+1, argv[i]);
69
70	quit(0);
71	}
72
73
74	dofile(optc, optv, file) /* plot a file */
75	int optc;
76	char *optv[];
77	char *file;
78	{
79	char types[16], stmp[256], *strcat();
80	int i;
81
82	mgclearall();
83
84	mgload(file);
85
86	types[0] = '\0';
87	for (i = 0; i < optc; i++)
88	if (istyp(optv[i]))
89	strcat(types, optv[i]+1);
90	else {
91	sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
92	setmgvar("command line", stdin, stmp);
93	i++;
94	}
95
96	gcalc(types);
97	}
98
99
100	eputs(msg) /* print error message */
101	char *msg;
102	{
103	fputs(msg, stderr);
104	}
105
106
107	quit(code) /* quit program */
108	int code;
109	{
110	exit(code);
111	}