#ifndef lint
static const char	RCSid[] = "$Id: ev.c,v 1.8 2023/02/09 21:54:10 greg 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"


int
main(int argc, char *argv[])
{
	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]));

	if (errno != EDOM && errno != ERANGE)
		errno = 0;

	quit(errno ? 2 : 0);
	return (errno ? 2 : 0); /* pro forma return */
}


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


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


void
quit(int code)
{
	exit(code);
}