ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/ev.c
Revision: 1.1
Committed: Sat Feb 22 02:07:20 2003 UTC (21 years, 1 month 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

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id$";
3 #endif
4 /*
5 * ev.c - program to evaluate expression arguments
6 *
7 * 1/29/87
8 */
9
10 #include <stdio.h>
11
12 #include "calcomp.h"
13
14
15 main(argc, argv)
16 int argc;
17 char *argv[];
18 {
19 extern int errno;
20 int i;
21
22 esupport |= E_FUNCTION;
23 esupport &= ~(E_VARIABLE|E_INCHAN|E_OUTCHAN|E_RCONST);
24
25 #ifdef BIGGERLIB
26 biggerlib();
27 #endif
28
29 errno = 0;
30 for (i = 1; i < argc; i++)
31 printf("%.9g\n", eval(argv[i]));
32
33 quit(errno ? 2 : 0);
34 }
35
36
37 void
38 eputs(msg)
39 char *msg;
40 {
41 fputs(msg, stderr);
42 }
43
44
45 void
46 wputs(msg)
47 char *msg;
48 {
49 eputs(msg);
50 }
51
52
53 void
54 quit(code)
55 int code;
56 {
57 exit(code);
58 }