/*用带命令行参数的主函数实现逆波兰计算器*/
/**题目2:在对栈的操作中添加几个命令,用于:1 在不弹出元素的情况下打印栈顶元素**/
/**2. 复制栈顶元素 3. 交换栈顶两个元素的值 4. 清空栈**/
#include <stdio.h>
#include <ctype.h>
#include <stdlib.h> //使用atof函数 ,将字符串转化为double 类型
#define MAXOP 100
#define MAXVAL 100
#define NUMBER '0'
/*程序进入了死循环,错误待查证*/
int getop(char[]);
void push(double f);
double pop (void);
int getch(void);
void ungetch (int);
int sp=0; //栈顶指针
double val[MAXVAL]; //字符栈,储存输入的有效字符
main(int argc, char *argv[])
{
int type;
double op2;
argv++;
while ((type=getop(*(argv++)))!=EOF){
switch (type){
case NUMBER:
push (atof(*(argv-1)));
break;
case '+':{
push (pop()+pop());
break;
}
case '-':{
op2=pop();
push (pop()-op2);
break;
}
case '*':{
push (pop()*pop());
break;
}
case '/':{
op2=pop();
if (op2!=0.0)
push (pop()/op2);
else
printf ("ERROR: 0 DIVISOR");
break;
}
case '%':{
op2=pop();
if (op2!=0.0)
push ((int)pop()%(int)op2);
else
printf ("ERROR: 0 DIVISOR");
break;
}
case 'p':{ //print打印栈顶元素的命令
printf ("\t%.8g\n",val[sp]);
break;
}
case 'c':{ //copy复制栈顶元素
val[sp+1]=val[sp];
break;
}
case 's':{ //swap交换栈顶2个元素
val[sp+1]=val[sp-1];
val[sp-1]=val[sp];
val[sp]=val[sp+1];
break;
}
case 'd':{ //delete清空栈
sp=0;
break;
}
case 'r':
printf ("\t%.8g\n", pop());
break;
default:
printf ("ERROR: UNKNOWN COMMAND %s\n",*argv);
}
}
return 0;
}
/**PUSH f onto value stack**/
void push (double f)
{
if (sp<MAXVAL)
val[sp++]=f;
else
printf ("OUT OF MAXSTACK");
}
/**POP pop and return top value from stack**/
double pop (void)
{
if (sp>0)
return val[--sp];
else
printf ("EMPTY STACK");
}
/***预读下一个输入的字符***/
int getop(char s[])
{
if (*s!='-'&&(*s>'9'||*s<'0'))
return *s;
else
return NUMBER;
}
#define BUFFSIZE 100
char buf[BUFFSIZE];
int bufp=0;
int getch(void)
{
return (bufp>0)?buf[--bufp]:getchar();
}
void ungetch (int c)
{
if (bufp>BUFFSIZE)
printf ("ungetch:too many char\n");
else
buf[bufp++]=c;
}