ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/ev.c
Revision: 1.6
Committed: Fri Nov 14 17:31:24 2003 UTC (20 years, 4 months ago) by schorsch
Content type: text/plain
Branch: MAIN
CVS Tags: rad3R7P2, rad3R7P1, rad3R6, rad3R6P1, rad3R8, rad3R9
Changes since 1.5: +3 -1 lines
Log Message:
Reduced compile warnings.

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 schorsch 1.6 static const char RCSid[] = "$Id: ev.c,v 1.5 2003/10/14 16:46:20 greg 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 schorsch 1.6 int
19 greg 1.1 main(argc, argv)
20     int argc;
21     char *argv[];
22     {
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 schorsch 1.6 return (errno ? 2 : 0); /* pro forma return */
38 greg 1.1 }
39    
40    
41     void
42     eputs(msg)
43     char *msg;
44     {
45     fputs(msg, stderr);
46     }
47    
48    
49     void
50     wputs(msg)
51     char *msg;
52     {
53     eputs(msg);
54     }
55    
56    
57     void
58     quit(code)
59     int code;
60     {
61     exit(code);
62     }