ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/calc.c
Revision: 1.4
Committed: Thu Jul 17 09:21:29 2003 UTC (21 years, 4 months ago) by schorsch
Content type: text/plain
Branch: MAIN
Changes since 1.3: +2 -2 lines
Log Message:
Added prototypes and includes from patch by Randolph Fritz.
Added more required includes and reduced other compile warnings.

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: calc.c,v 1.3 2003/06/30 14:59:10 schorsch Exp $";
3 #endif
4 /*
5 * calc.c - simple algebraic desk calculator program.
6 *
7 * 4/1/86
8 */
9
10 #include <stdlib.h>
11 #include <stdio.h>
12 #include <string.h>
13 #include <setjmp.h>
14 #include <ctype.h>
15
16 #include "rterror.h"
17 #include "calcomp.h"
18
19 #define MAXRES 100
20
21 double result[MAXRES];
22 int nres = 0;
23
24 jmp_buf env;
25 int recover = 0;
26
27
28 main(argc, argv)
29 int argc;
30 char *argv[];
31 {
32 char expr[512];
33 FILE *fp;
34 int i;
35 register char *cp;
36
37 esupport |= E_VARIABLE|E_INCHAN|E_FUNCTION;
38 esupport &= ~(E_REDEFW|E_RCONST|E_OUTCHAN);
39 #ifdef BIGGERLIB
40 biggerlib();
41 #endif
42 varset("PI", ':', 3.14159265358979323846);
43
44 for (i = 1; i < argc; i++)
45 fcompile(argv[i]);
46
47 setjmp(env);
48 recover = 1;
49 eclock++;
50
51 while (fgets(expr, sizeof(expr), stdin) != NULL) {
52 for (cp = expr; *cp && *cp != '\n'; cp++)
53 ;
54 *cp = '\0';
55 switch (expr[0]) {
56 case '\0':
57 continue;
58 case '?':
59 for (cp = expr+1; isspace(*cp); cp++)
60 ;
61 if (*cp)
62 dprint(cp, stdout);
63 else
64 dprint(NULL, stdout);
65 continue;
66 case '>':
67 for (cp = expr+1; isspace(*cp); cp++)
68 ;
69 if (!*cp) {
70 eputs("file name required\n");
71 continue;
72 }
73 if ((fp = fopen(cp, "w")) == NULL) {
74 eputs(cp);
75 eputs(": cannot open\n");
76 continue;
77 }
78 dprint(NULL, fp);
79 fclose(fp);
80 continue;
81 case '<':
82 for (cp = expr+1; isspace(*cp); cp++)
83 ;
84 if (!*cp) {
85 eputs("file name required\n");
86 continue;
87 }
88 fcompile(cp);
89 eclock++;
90 continue;
91 }
92 if ((cp = strchr(expr, '=')) != NULL ||
93 (cp = strchr(expr, ':')) != NULL) {
94 if (cp[1])
95 scompile(expr, NULL, 0);
96 else if (*cp == '=') {
97 *cp = '\0';
98 if (!strcmp(expr, "*"))
99 dcleanup(1);
100 else
101 dclear(expr);
102 } else {
103 *cp = '\0';
104 if (!strcmp(expr, "*"))
105 dcleanup(2);
106 else
107 dremove(expr);
108 }
109 eclock++;
110 } else {
111 printf("$%d=%.9g\n", nres+1,
112 result[nres%MAXRES] = eval(expr));
113 nres++;
114 }
115 }
116
117 recover = 0;
118 quit(0);
119 }
120
121
122 double
123 chanvalue(n) /* return channel value */
124 int n;
125 {
126 if (n == 0)
127 n = nres;
128 else if (n > nres || nres-n >= MAXRES) {
129 fprintf(stderr, "$%d: illegal result\n", n);
130 return(0.0);
131 }
132 return(result[(n-1)%MAXRES]);
133 }
134
135
136 void
137 eputs(msg)
138 char *msg;
139 {
140 fputs(msg, stderr);
141 }
142
143
144 void
145 wputs(msg)
146 char *msg;
147 {
148 eputs(msg);
149 }
150
151
152 void
153 quit(code)
154 int code;
155 {
156 if (recover) /* a cavalier approach */
157 longjmp(env, 1);
158 exit(code);
159 }