代码转自 C程序设计语言
#include <stdio.h>
#include <stdlib.h> /* 为了使用atof()函数 */
#define MAXOP 100 /* 操作数或运算符的最大长度 */
#define NUMBER '0' /* 标识找到一个数 */
#define MAXLINE 100 /* 最大输入行长度 */
int gettop(char []);
void push(double);
double pop(void);
/* 逆波兰计算器 */
int reverse_poland_counter()
{
int type;
double op2;
char s[MAXOP];
while ((type = gettop(s)) != EOF) {
switch (type) {
case NUMBER:
push(atof(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.0)
push(pop() / op2);
else
printf("error: zero divisor!\n");
break;
case '\n':
printf("\t%.8g\n", pop());
break;
default:
printf("error: unknown command %s \n", s);
break;
}
}
return 0;
}
#define MAXVAL 100 /* 栈val的最大深度 */
int sp = 0; /* 下一个空闲栈位置 */
double val[MAXVAL]; /* 值栈 */
/* push函数:把f压入到值栈中 */
void push(double f)
{
if (sp < MAXVAL)
val[sp++] = f;
else
printf("error: stack full , can't push %g\n", f);
}
/* pop函数:弹出并返回栈顶的值 */
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函数:获取下一个运算符或数值操作数 */
int gettop(char s[])
{
int i, c;
while ((s[0] = c = getch()) == ' ' || c == '\t')
;
s[1] = '\0';
if (!isdigit(c) && c != '.')
return c; /* 不是数(或小数) */
i = 0;
if (isdigit(c)) /* 收集整数部分 */
while (isdigit(s[++i] = c = getch()))
;
if (c == '.') /* 收集小数部分 */
while (isdigit(s[++i] = c = getch()))
;
s[i] = '\0';
if (c != EOF)
ungetch(c);
return NUMBER;
}
#define BUFSIZE 100
char buf[BUFSIZE]; /* 用于ungetch函数的缓冲区 */
int bufp = 0; /* buf中下一个空闲位置 */
/* 取一个字符(可能是压回的字符) */
int getch(void)
{
return (bufp > 0) ? buf[--bufp] : getchar();
}
/* 把字符压回到输入中 */
void ungetch(int c)
{
if (bufp >= BUFSIZE)
printf("ungetch: too many characters \n");
else
buf[bufp++] = c;
}
int main()
{
reverse_poland_counter();
return 0;
}
/* 逆波兰计算器 ending */
int getline(char line[], int max);
int strindex(char source[], char searchfor[]);
int strrindex_first(char source[], char searchfor[]);
int strrindex_second(char source[], char searchfor[]);
char pattern[] = "ould"; /* 待查找的模式 */
/* 找出所有与模式匹配的行 */
int find_line_match_mode(void)
{
char line[MAXLINE];
int found = 0;
int pos;
while (getline(line, MAXLINE))
if ((pos = strrindex_second(line, pattern)) >= 0) {
printf("%s", line);
printf("the pos is : %d\n\n", pos);
found++;
}
return found;
}
/* strindex函数: 返回t(=pattern)在s中的位置, 若未找到则返回-1 */
int strindex(char s[], char t[])
{
int i, j, k;
for (i = 0; s[i] != '\0'; i++) {
for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)
;
if (k > 0 && t[k] == '\0')
return i;
}
return -1;
}
/* strrindex函数: 返回t(=pattern)在s中的位置(最右边出现的位置), 若未找到则返回-1 */
/* strrindex: returuns rightmost index of t in s, -1 if none */
int strrindex_first(char s[], char t[])
{
int i, j, k, pos;
pos = -1;
for (i = 0; s[i] != '\0'; i++) {
for (j = i, k = 0;t[k] != '\0' && s[j] == t[k]; j++, k++)
;
if (k > 0 && t[k] == '\0')
pos = i;
}
return pos;
}
#include <string.h>
int strrindex_second(char s[], char t[])
{
int i, j, k;
for (i = strlen(s) - strlen(t); i >= 0; i--) {
for (j = i, k = 0; t[k] != '\0' && s[j] == t[k]; j++, k++)
;
if (k > 0 && t[k] == '\0')
return i;
}
return -1;
}
#include <ctype.h>
/* atof函数: 把字符串s转换为相应的双精度浮点数 */
double atof(char s[])
{
double val, power;
int i, sign;
for (i = 0; isspace(s[i]); i++)
;
sign = (s[i] == '-') ? -1 : 1;
if (s[i] == '+' || s[i] == '-')
i++;
for (val = 0.0; isdigit(s[i]); i++)
val = 10.0 * val + (s[i] - '0');
if (s[i] == '.')
i++;
for (power = 1.0; isdigit(s[i]); i++) {
val = 10.0 * val + (s[i] - '0');
power *= 10.0;
}
return sign * val / power;
}
//#define MAXLINE 100 /* 最大输入行长度 */
/* getline 函数: 将行保存到s中,并返回该行的长度 */
int getline(char s[], int lim)
{
int c, i;
i = 0;
while (--lim > 0 && (c=getchar()) != EOF && c!= '\n')
s[i++] = c;
if (c == '\n')
s[i++] = c;
s[i] = '\0';
return i;
}
double atof_modified(char s[])
{
double val, power;
int i, sign, exp;
for (i = 0; isspace(s[i]); i++)
;
sign = (s[i] == '-') ? -1 : 1;
if (s[i] == '+' || s[i] == '-')
i++;
for (val = 0.0; isdigit(s[i]); i++)
val = 10.0 * val + (s[i] - '0');
if (s[i] == '.')
i++;
for (power = 1.0; isdigit(s[i]); i++) {
val = 10.0 * val + (s[i] - '0');
power *= 10.0;
}
val = sign * val / power; /* 此处已算出除指数外的数值 */
sign = 0;/* 以防e(E)后面出现+/-以外的字符 */
if ((s[i] == 'e' || s[i] == 'E')) {
if(s[i + 1] == '+' || s[i + 1] == '-')
sign = (s[++i] == '-') ? -1 : 1;
for (exp = 0, i++; isdigit(s[i]); i++)
exp = 10* exp + s[i] - '0';
if (sign == 1)
while (exp-- > 0)
val *= 10;
else if (sign == -1)
while (exp-- > 0)
val /= 10;
}
return val;
}
int main_copy()
{
char line[MAXLINE];
double sum;
sum = 0;
while (getline(line, MAXLINE) > 0)
printf("\t%g\n", atof_modified(line));
return 0;
}