src/cal/calc.c

#ifndef lint
static const char       RCSid[] = "$Id: calc.c,v 1.9 2023/02/09 21:54:10 greg Exp $";
#endif
/*
 *  calc.c - simple algebraic desk calculator program.
 *
 *     4/1/86
 */

#include  <stdlib.h>
#include  <setjmp.h>
#include  <ctype.h>

#include  "rtio.h"
#include  "rterror.h"
#include  "calcomp.h"

#define  MAXRES         100

double  result[MAXRES];
int     nres = 0;

jmp_buf  env;
int  recover = 0;


int
main(int argc, char *argv[])
{
        char  expr[2048];
        char  *epos;
        FILE  *fp;
        int  i;
        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++) {
                cp = getpath(argv[i], getrlibpath(), 0);
                if (cp == NULL) {
                        eputs(argv[0]);
                        eputs(": cannot find file '");
                        eputs(argv[i]);
                        eputs("'\n");
                        quit(1);
                }
                fcompile(cp);
        }
        setjmp(env);
        recover = 1;
        eclock++;

        epos = expr;
        while (fgets(epos, sizeof(expr)-(epos-expr), stdin) != NULL) {
                while (*epos && *epos != '\n')
                        epos++;
                if (*epos && epos > expr && epos[-1] == '\\') {
                        epos[-1] = ' ';
                        continue;               /* escaped newline */
                }
                while (epos > expr && isspace(epos[-1]))
                        epos--;                 /* eliminate end spaces */
                *epos = '\0';
                epos = expr;
                switch (expr[0]) {
                case '\0':
                        continue;
                case '?':
                        for (cp = expr+1; isspace(*cp); cp++)
                                ;
                        if (*calcontext(NULL))
                                printf("context is: %s\n", calcontext(NULL));
                        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;
                        }
                        cp = getpath(cp, getrlibpath(), 0);
                        if (cp == NULL) {
                                eputs("cannot find file\n");
                                continue;
                        }
                        fcompile(cp);
                        eclock++;
                        continue;
                case '[':
                        for (cp = expr+1; isspace(*cp); cp++)
                                ;
                        if (!isalpha(*cp)) {
                                eputs("context name required\n");
                                continue;
                        }
                        printf("context now: %s\n", pushcontext(cp));
                        continue;
                case ']':
                        cp = popcontext();
                        if (*cp)
                                printf("context now: %s\n", cp);
                        else
                                printf("at global context\n");
                        continue;
                }
                if ((cp = strchr(expr, '=')) != NULL ||
                                (cp = strchr(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);
        return 0; /* pro forma exit */
}


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(const char *msg)
{
        fputs(msg, stderr);
}


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


void
quit(int code)
{
        if (recover)                    /* a cavalier approach */
                longjmp(env, 1);
        exit(code);
}
Revision:	1.10
Committed:	Tue Sep 26 18:09:08 2023 UTC (7 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R4, HEAD
Changes since 1.9:	+21 -1 lines
Log Message:	feat(icalc): Added [context and ] for pushing/popping contexts (mostly to test)
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.10	static const char RCSid[] = "$Id: calc.c,v 1.9 2023/02/09 21:54:10 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* calc.c - simple algebraic desk calculator program.
6			*
7			* 4/1/86
8			*/
9
10	schorsch	1.2	#include <stdlib.h>
11	greg	1.1	#include <setjmp.h>
12			#include <ctype.h>
13
14	greg	1.7	#include "rtio.h"
15	schorsch	1.4	#include "rterror.h"
16	greg	1.1	#include "calcomp.h"
17
18			#define MAXRES 100
19
20			double result[MAXRES];
21			int nres = 0;
22
23			jmp_buf env;
24			int recover = 0;
25
26
27	schorsch	1.5	int
28	greg	1.9	main(int argc, char *argv[])
29	greg	1.1	{
30	greg	1.6	char expr[2048];
31			char *epos;
32	greg	1.1	FILE *fp;
33			int i;
34	greg	1.8	char *cp;
35	greg	1.1
36			esupport \|= E_VARIABLE\|E_INCHAN\|E_FUNCTION;
37			esupport &= ~(E_REDEFW\|E_RCONST\|E_OUTCHAN);
38			#ifdef BIGGERLIB
39			biggerlib();
40			#endif
41			varset("PI", ':', 3.14159265358979323846);
42
43	greg	1.7	for (i = 1; i < argc; i++) {
44	greg	1.8	cp = getpath(argv[i], getrlibpath(), 0);
45			if (cp == NULL) {
46	greg	1.7	eputs(argv[0]);
47			eputs(": cannot find file '");
48			eputs(argv[i]);
49			eputs("'\n");
50			quit(1);
51			}
52	greg	1.8	fcompile(cp);
53	greg	1.7	}
54	greg	1.1	setjmp(env);
55			recover = 1;
56			eclock++;
57
58	greg	1.6	epos = expr;
59			while (fgets(epos, sizeof(expr)-(epos-expr), stdin) != NULL) {
60			while (epos && epos != '\n')
61			epos++;
62			if (*epos && epos > expr && epos[-1] == '\\') {
63			epos[-1] = ' ';
64			continue; /* escaped newline */
65			}
66	greg	1.10	while (epos > expr && isspace(epos[-1]))
67			epos--; /* eliminate end spaces */
68	greg	1.6	*epos = '\0';
69			epos = expr;
70	greg	1.1	switch (expr[0]) {
71			case '\0':
72			continue;
73			case '?':
74			for (cp = expr+1; isspace(*cp); cp++)
75			;
76	greg	1.10	if (*calcontext(NULL))
77			printf("context is: %s\n", calcontext(NULL));
78	greg	1.1	if (*cp)
79			dprint(cp, stdout);
80			else
81			dprint(NULL, stdout);
82			continue;
83			case '>':
84			for (cp = expr+1; isspace(*cp); cp++)
85			;
86			if (!*cp) {
87			eputs("file name required\n");
88			continue;
89			}
90			if ((fp = fopen(cp, "w")) == NULL) {
91			eputs(cp);
92			eputs(": cannot open\n");
93			continue;
94			}
95			dprint(NULL, fp);
96			fclose(fp);
97			continue;
98			case '<':
99			for (cp = expr+1; isspace(*cp); cp++)
100			;
101			if (!*cp) {
102			eputs("file name required\n");
103			continue;
104			}
105	greg	1.8	cp = getpath(cp, getrlibpath(), 0);
106			if (cp == NULL) {
107			eputs("cannot find file\n");
108			continue;
109			}
110	greg	1.1	fcompile(cp);
111			eclock++;
112			continue;
113	greg	1.10	case '[':
114			for (cp = expr+1; isspace(*cp); cp++)
115			;
116			if (!isalpha(*cp)) {
117			eputs("context name required\n");
118			continue;
119			}
120			printf("context now: %s\n", pushcontext(cp));
121			continue;
122			case ']':
123			cp = popcontext();
124			if (*cp)
125			printf("context now: %s\n", cp);
126			else
127			printf("at global context\n");
128			continue;
129	greg	1.1	}
130	schorsch	1.3	if ((cp = strchr(expr, '=')) != NULL \|\|
131			(cp = strchr(expr, ':')) != NULL) {
132	greg	1.1	if (cp[1])
133			scompile(expr, NULL, 0);
134			else if (*cp == '=') {
135			*cp = '\0';
136			if (!strcmp(expr, "*"))
137			dcleanup(1);
138			else
139			dclear(expr);
140			} else {
141			*cp = '\0';
142			if (!strcmp(expr, "*"))
143			dcleanup(2);
144			else
145			dremove(expr);
146			}
147			eclock++;
148			} else {
149			printf("$%d=%.9g\n", nres+1,
150			result[nres%MAXRES] = eval(expr));
151			nres++;
152			}
153			}
154
155			recover = 0;
156			quit(0);
157	schorsch	1.5	return 0; /* pro forma exit */
158	greg	1.1	}
159
160
161			double
162			chanvalue(n) /* return channel value */
163			int n;
164			{
165			if (n == 0)
166			n = nres;
167			else if (n > nres \|\| nres-n >= MAXRES) {
168			fprintf(stderr, "$%d: illegal result\n", n);
169			return(0.0);
170			}
171			return(result[(n-1)%MAXRES]);
172			}
173
174
175			void
176	greg	1.9	eputs(const char *msg)
177	greg	1.1	{
178			fputs(msg, stderr);
179			}
180
181
182			void
183	greg	1.9	wputs(const char *msg)
184	greg	1.1	{
185			eputs(msg);
186			}
187
188
189			void
190	greg	1.9	quit(int code)
191	greg	1.1	{
192			if (recover) /* a cavalier approach */
193			longjmp(env, 1);
194			exit(code);
195			}