Exercise 4-5. Add access to library functions like sin, exp, and pow.
#include <stdio.h>
#include <stdlib.h> //for atof()
#include <math.h>
#include <string.h>
#define MAXOP 100 //max size of operand or operator
#define NUMBER '0' //signal that a number was found
#define NAME 'a' // signal that a name was found
int getop(char[]);
void push(double);
double pop(void);
void clear(void);
void mathfunc(char[]);
/* reverse polish calculator */
int main()
{
int type;
double op2;
char s[MAXOP];
while((type = getop(s)) != EOF)
{
switch(type)
{
case NUMBER:
push(atof(s));
break;
case NAME:
mathfunc(s);
break;
case '+':
push(pop() + pop());
break;
case '*':
push(pop() + pop());
break;
case '-':
op2 = pop();
push(pop() - op2);
break;
case '/':
op2 = pop();
if(op2 != 0)
push(pop() / op2);
else
printf("error: zero devisior\n");
break;
case '%':
op2 = pop();
if(op2 != 0.0)
push(fmod(pop(), op2));
else
printf("error: zero devisor\n");
break;
case '\n':
printf("\t%.8g\n", pop());
break;
default:
printf("error: unknown command %s\n", s);
break;
}
}
return 0;
}
#define MAXVAL 100 //maximum depth of val stack
double val[MAXVAL]; //value stack
int sp = 0; //next free stack position
/* push: push f into value stack */
void push(double f)
{
if(sp < MAXVAL)
val[sp++] = f;
else
printf("error: stack full, can`t push %g\n", f);
}
/* pop: pop and return top value from stack */
double pop(void)
{
if(sp > 0)
return val[--sp];
else
{
printf("error: stack empty\n");
return 0.0;
}
}
#include <ctype.h>
int getch(void);
void ungetch(int);
/* getop: get next character ot numeric operand */
int getop(char s[])
{
int i, c;
while((s[0] = c = getch()) == ' ' || c == '\t')
;
s[1] = '\0';
i = 0;
if(islower(c)) //command or name
{
while(islower(s[++i] = c = getch()))
;
s[i] = '\0';
if(c != EOF)
ungetch(c);
if(strlen(s) > 1)
return NAME;
else
return c;
}
if(!isdigit(c) && c != '.' && c != '-') // not a number
return c;
if (c == '-')
{
if(isdigit(c = getch()) || c == '.')
s[++i] = c; //negative numbers
else
{
if(c != EOF)
ungetch(c);
return '-';
}
}
if(isdigit(c)) //collect integer part
while(isdigit(s[++i] = c = getch()))
;
if(c == '.') //collect fraction part
while(isdigit(s[++i] = c = getch()))
;
s[i] = '\0';
if(c != EOF)
ungetch(c);
return NUMBER;
}
#define BUFSIZE 100
char buf[BUFSIZE]; //buffer for ungetch
int bufp = 0; //next free position in buf
int getch(void) // get a (possibly pushed-back) character
{
return (bufp > 0) ? buf[--bufp] : getchar();
}
void ungetch(int c) // push character back on input
{
if(bufp >= BUFSIZE)
printf("ungetch: too many characnters\n");
else
buf[bufp++] = c;
}
/* mathfunc */
void mathfunc(char s[])
{
double op2;
if(strcmp(s, "sin") == 0)
push(sin(pop()));
else if(strcmp(s, "exp") == 0)
push(exp(pop()));
else if(strcmp(s, "pow")== 0)
{
op2 = pop();
push(pow(pop(), op2));
}
else
printf("error: unknown command %s\n", s);
}