src/meta/dgraph.c

#ifndef lint
static const char       RCSid[] = "$Id: dgraph.c,v 1.2 2003/08/01 14:14:24 schorsch Exp $";
#endif
/*
 *  dgraph.c - program to send plots to dumb terminal.
 *
 *     7/7/86
 *
 *     Greg Ward Larson
 */

#include  <stdlib.h>
#include  <stdio.h>

#include  "rterror.h"
#include  "mgvars.h"
#include  "meta.h"

#define  isopt(s)       (s[0] == '+' || s[0] == '-')

char  *progname;

char  *libpath[4];

static void dofile(int  optc, char  *optv[], char  *file);


int
main(
        int  argc,
        char  *argv[]
)
{
        char  *getenv();
        int  i, file0;

        progname = argv[0];
        libpath[0] = "./";
        if ((libpath[i=1] = getenv("MDIR")) != NULL)
                i++;
        libpath[i++] = "/usr/local/lib/meta/";
        libpath[i] = NULL;

        for (file0 = 1; file0 < argc-1; file0 += 2)
                if (!isopt(argv[file0]))
                        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);
        return 0; /* pro forma return */
}


void
dofile(         /* plot a file */
        int  optc,
        char  *optv[],
        char  *file
)
{
        int  width = 79;
        int  length = 21;
        char  stmp[256];
        int  i;
                                                /* start fresh */
        mgclearall();
                                                /* load file */
        mgload(file);
                                                /* do options */
        for (i = 0; i < optc; i += 2)
                if (optv[i][0] == '+') {
                        sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
                        setmgvar("command line", stdin, stmp);
                } else
                        switch (optv[i][1]) {
                        case 'w':
                                width = atoi(optv[i+1]);
                                break;
                        case 'l':
                                length = atoi(optv[i+1]);
                                break;
                        default:
                                fprintf(stderr, "%s: unknown option: %s\n",
                                                progname, optv[i]);
                                quit(1);
                        }

                                                /* graph it */
        cgraph(width, length);
}


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


void
quit(                           /* quit program */
        int  code
)
{
        exit(code);
}
Revision:	1.3
Committed:	Sat Nov 15 02:13:36 2003 UTC (20 years, 5 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1, rad5R3
Changes since 1.2:	+27 -12 lines
Log Message:	Continued ANSIfication, and reduced other compile warnings.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	1.3	static const char RCSid[] = "$Id: dgraph.c,v 1.2 2003/08/01 14:14:24 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* dgraph.c - program to send plots to dumb terminal.
6			*
7			* 7/7/86
8			*
9			* Greg Ward Larson
10			*/
11
12	schorsch	1.3	#include <stdlib.h>
13	greg	1.1	#include <stdio.h>
14
15	schorsch	1.3	#include "rterror.h"
16			#include "mgvars.h"
17			#include "meta.h"
18	greg	1.1
19			#define isopt(s) (s[0] == '+' \|\| s[0] == '-')
20
21			char *progname;
22
23			char *libpath[4];
24
25	schorsch	1.3	static void dofile(int optc, char optv[], char file);
26	greg	1.1
27	schorsch	1.3
28			int
29			main(
30			int argc,
31			char *argv[]
32			)
33	greg	1.1	{
34			char *getenv();
35			int i, file0;
36
37			progname = argv[0];
38			libpath[0] = "./";
39			if ((libpath[i=1] = getenv("MDIR")) != NULL)
40			i++;
41			libpath[i++] = "/usr/local/lib/meta/";
42			libpath[i] = NULL;
43
44			for (file0 = 1; file0 < argc-1; file0 += 2)
45			if (!isopt(argv[file0]))
46			break;
47
48			if (file0 >= argc)
49			dofile(argc-1, argv+1, NULL);
50			else
51			for (i = file0; i < argc; i++)
52			dofile(file0-1, argv+1, argv[i]);
53
54			quit(0);
55	schorsch	1.3	return 0; /* pro forma return */
56	greg	1.1	}
57
58
59	schorsch	1.3	void
60			dofile( /* plot a file */
61			int optc,
62			char *optv[],
63			char *file
64			)
65	greg	1.1	{
66			int width = 79;
67			int length = 21;
68			char stmp[256];
69			int i;
70			/* start fresh */
71			mgclearall();
72			/* load file */
73			mgload(file);
74			/* do options */
75			for (i = 0; i < optc; i += 2)
76			if (optv[i][0] == '+') {
77			sprintf(stmp, "%s=%s", optv[i]+1, optv[i+1]);
78			setmgvar("command line", stdin, stmp);
79			} else
80			switch (optv[i][1]) {
81			case 'w':
82			width = atoi(optv[i+1]);
83			break;
84			case 'l':
85			length = atoi(optv[i+1]);
86			break;
87			default:
88			fprintf(stderr, "%s: unknown option: %s\n",
89			progname, optv[i]);
90			quit(1);
91			}
92
93			/* graph it */
94			cgraph(width, length);
95			}
96
97
98	schorsch	1.3	void
99			eputs( /* print error message */
100			char *msg
101			)
102	greg	1.1	{
103			fputs(msg, stderr);
104			}
105
106
107	schorsch	1.3	void
108			quit( /* quit program */
109			int code
110			)
111	greg	1.1	{
112			exit(code);
113			}