src/cal/ev.c

#ifndef lint
static const char       RCSid[] = "$Id: ev.c,v 1.3 2003/07/27 22:12:01 schorsch Exp $";
#endif
/*
 *  ev.c - program to evaluate expression arguments
 *
 *     1/29/87
 */

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

#include  "calcomp.h"
#include  "rterror.h"


main(argc, argv)
int  argc;
char  *argv[];
{
        extern int  errno;
        int  i;

        esupport |= E_FUNCTION;
        esupport &= ~(E_VARIABLE|E_INCHAN|E_OUTCHAN|E_RCONST);

#ifdef  BIGGERLIB
        biggerlib();
#endif

        errno = 0;
        for (i = 1; i < argc; i++)
                printf("%.9g\n", eval(argv[i]));

        quit(errno ? 2 : 0);
}


void
eputs(msg)
char  *msg;
{
        fputs(msg, stderr);
}


void
wputs(msg)
char  *msg;
{
        eputs(msg);
}


void
quit(code)
int  code;
{
        exit(code);
}
Revision:	1.4
Committed:	Wed Aug 20 09:30:16 2003 UTC (21 years, 2 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
Changes since 1.3:	+2 -1 lines
Log Message:	Added include for errno.h.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	1.4	static const char RCSid[] = "$Id: ev.c,v 1.3 2003/07/27 22:12:01 schorsch Exp $";
3	greg	1.1	#endif
4			/*
5			* ev.c - program to evaluate expression arguments
6			*
7			* 1/29/87
8			*/
9
10	schorsch	1.2	#include <stdlib.h>
11	greg	1.1	#include <stdio.h>
12	schorsch	1.4	#include <errno.h>
13	greg	1.1
14			#include "calcomp.h"
15	schorsch	1.3	#include "rterror.h"
16	greg	1.1
17
18			main(argc, argv)
19			int argc;
20			char *argv[];
21			{
22			extern int errno;
23			int i;
24
25			esupport \|= E_FUNCTION;
26			esupport &= ~(E_VARIABLE\|E_INCHAN\|E_OUTCHAN\|E_RCONST);
27
28			#ifdef BIGGERLIB
29			biggerlib();
30			#endif
31
32			errno = 0;
33			for (i = 1; i < argc; i++)
34			printf("%.9g\n", eval(argv[i]));
35
36			quit(errno ? 2 : 0);
37			}
38
39
40			void
41			eputs(msg)
42			char *msg;
43			{
44			fputs(msg, stderr);
45			}
46
47
48			void
49			wputs(msg)
50			char *msg;
51			{
52			eputs(msg);
53			}
54
55
56			void
57			quit(code)
58			int code;
59			{
60			exit(code);
61			}