src/cal/calc.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  calc.c - simple algebraic desk calculator program.
 *
 *     4/1/86
 */

#include  <stdio.h>

#include  <setjmp.h>

#include  <ctype.h>

#include  "calcomp.h"


#define  MAXRES         100

double  result[MAXRES];
int     nres = 0;

#ifndef BSD
#define  index          strchr
#endif
extern char  *index(), *fgets();


jmp_buf  env;
int  recover = 0;


main(argc, argv)
int  argc;
char  *argv[];
{
        char  expr[512];
        FILE  *fp;
        int  i;
        register char  *cp;

        esupport |= E_VARIABLE|E_INCHAN|E_FUNCTION;
        esupport &= ~(E_REDEFW|E_RCONST|E_OUTCHAN);
#ifdef  BIGGERLIB
        biggerlib();
#endif
        varset("PI", ':', 3.14159265358979323846);

        for (i = 1; i < argc; i++)
                fcompile(argv[i]);

        setjmp(env);
        recover = 1;
        eclock++;

        while (fgets(expr, sizeof(expr), stdin) != NULL) {
                for (cp = expr; *cp && *cp != '\n'; cp++)
                        ;
                *cp = '\0';
                switch (expr[0]) {
                case '\0':
                        continue;
                case '?':
                        for (cp = expr+1; isspace(*cp); cp++)
                                ;
                        if (*cp)
                                dprint(cp, stdout);
                        else
                                dprint(NULL, stdout);
                        continue;
                case '>':
                        for (cp = expr+1; isspace(*cp); cp++)
                                ;
                        if (!*cp) {
                                eputs("file name required\n");
                                continue;
                        }
                        if ((fp = fopen(cp, "w")) == NULL) {
                                eputs(cp);
                                eputs(": cannot open\n");
                                continue;
                        }
                        dprint(NULL, fp);
                        fclose(fp);
                        continue;
                case '<':
                        for (cp = expr+1; isspace(*cp); cp++)
                                ;
                        if (!*cp) {
                                eputs("file name required\n");
                                continue;
                        }
                        fcompile(cp);
                        eclock++;
                        continue;
                }
                if ((cp = index(expr, '=')) != NULL ||
                                (cp = index(expr, ':')) != NULL) {
                        if (cp[1])
                                scompile(expr, NULL, 0);
                        else if (*cp == '=') {
                                *cp = '\0';
                                if (!strcmp(expr, "*"))
                                        dcleanup(1);
                                else
                                        dclear(expr);
                        } else {
                                *cp = '\0';
                                if (!strcmp(expr, "*"))
                                        dcleanup(2);
                                else
                                        dremove(expr);
                        }
                        eclock++;
                } else {
                        printf("$%d=%.9g\n", nres+1,
                                        result[nres%MAXRES] = eval(expr));
                        nres++;
                }
        }

        recover = 0;
        quit(0);
}


double
chanvalue(n)                    /* return channel value */
int  n;
{
        if (n == 0)
                n = nres;
        else if (n > nres || nres-n >= MAXRES) {
                fprintf(stderr, "$%d: illegal result\n", n);
                return(0.0);
        }
        return(result[(n-1)%MAXRES]);
}


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


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


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