간단한 계산기 프로그램

간단한 계산기 프로그램을 만들어 봤는데요.

우분투 리눅스 gcc 4.0에서 컴파일 하였음.

사용한 함수는 오로지 printf, gets뿐이며, gets는 바꿀예정임. 경고 발생...

나머지 함수는 직접 제작해 보았습니다.

한번에입력가능 문자 128개 정도이며, 빈 칸은 빈칸을 없애므로 사용가능...

계산 가능 연산 +,-,*,/과 ( )모두 사용가능함.

한 번 써 보시고 무슨 문제가 있는지 테스트를 부탁드립니다.

차후 sin, cos, exp 등을 제공하면 제대로 된 버전 1.0이 될 겁니다.

그리고 디버그하기 위해 변수의 내용을 출력하는 부분이 들어있어요, 즉, 아직 최적화
된 상태는 아닙니다.

/* This program is calculation program for all
	Made by dooseon.choi
	date 2006.01.06. 16:40
	version 0.1.1
	
*/
#include <stdio.h>


#define MAX_STRING (128)
#define ST_MAX (50)

char input[MAX_STRING];
int errornum;

double calculate(char str[],double ans);
double tonumber(char str[]);
double tonumericonechar(char str);
double power(int base,int sub);
int notnumeric(char str[]);

int main(int argc,char *argv,char *env[])
{
int i,j=0;
double result=0.;
char temp[MAX_STRING];

printf("This program is calculation program for all\n");
printf("It can only translate ONLY integer\n");
printf(" NOT exponential expression!\n");
printf("It can read ONLY %d characters! first put number!\n",MAX_STRING);
printf("EXIT is Q\n");
do {
printf("enter expression :");
gets(temp); /* IT will be change because it cause warning */

if (temp[0]=='Q') return 0;

/* delete blank */
for (i=0,j=0;temp[i] != '\0';i++) {
   if (temp[i]!=' ') {
	input[j]=temp[i];
	printf("%c \n", input[j]);
	j++;
	}
}
input[j] = '\0';


result = calculate(input,result);
printf("result : %f\n", result);

} while (input[0] != 'Q');
return 1;
}

/* This calculates string form to double */
double calculate(char str[],double ans)
{
int i, j,n;
int strlen=0,token1=0,token2=0;
char str1[MAX_STRING],str2[MAX_STRING];
double stack[ST_MAX];
int st_pointer=0;
double temp1,temp2;
double ret=0;

strlen=stringlength(str);

do {
token2=get_token(str,token1);
printf("token %d, %d \n",token1, token2);
for (i=token1;i<=token2-1;i++)
	str1[i-token1]=str[i];
str1[i-token1]='\0';

token1=token2;
printf("first token is %s \n",str1);

switch (str1[0]) {
	case '0' :
	case '1' :
	case '2' :
	case '3' :
	case '4' :
	case '5' :
	case '6' :
	case '7' :
	case '8' :
	case '9' :
	case '-' :
	case '+' :   /*push */
				
		if (st_pointer >=ST_MAX) {
			printf("Stack over flow!\n");
			return 0;
		}

		if (str1[1]=='(') {
			for(i=0;i<=stringlength(str1)-1;i++)
				str2[i]=str1[i+2];
			str2[i]='\0';
			if (str1[0]=='-') stack[st_pointer]=-calculate(str2,0);
			else stack[st_pointer]=calculate(str2,0);
		}
		else stack[st_pointer]=tonumber(str1);

		printf("%f of %d\n",stack[st_pointer],st_pointer);
		st_pointer++;
		break;
	case '*' : /* pop and multiply it and push it */
		if (st_pointer <=0) {
			printf("Stack under flow!\n");
			return 0;
		}
		st_pointer--;
		temp1 = stack[st_pointer];

		if (str1[1]=='(') {
			for(i=0;i<=stringlength(str1)-1;i++)
				str2[i]=str1[i+2];
			str2[i]='\0';
			if (str1[0]=='-') temp2=-calculate(str2,0);
			else temp2=calculate(str2,0);
		}
		else {
			for (i=0;str1[i] != '\0';i++)
				str2[i]=str1[i+1];
			str2[i]='\0';

			temp2 = tonumber(str2);
		}

		if (st_pointer >=ST_MAX) {
			printf("Stack over flow!\n");
			return 0;
		}
		stack[st_pointer]=temp1*temp2;
		printf("%f of %d\n",stack[st_pointer],st_pointer);
		st_pointer++;
		break;
	case '/' : /* pop and divide it and push it */
		if (st_pointer <=0) {
			printf("Stack under flow!\n");
			return 0;
		}
		st_pointer--;
		temp1 = stack[st_pointer];

		if (str1[1]=='(') {
			for(i=0;i<=stringlength(str1)-1;i++)
				str2[i]=str1[i+2];
			str2[i]='\0';
			if (str1[0]=='-') temp2=-calculate(str2,0);
			else temp2=calculate(str2,0);
		}
		else {
			for (i=0;str1[i] != '\0';i++)
				str2[i]=str1[i+1];
			str2[i]='\0';

			temp2 = tonumber(str2);
		}

		if (st_pointer >=ST_MAX) {
			printf("Stack over flow!\n");
			return 0;
		}
		stack[st_pointer]=temp1/temp2;
		printf("%f of %d\n",stack[st_pointer],st_pointer);
		st_pointer++;
		break;
	case '(' :
		if (st_pointer >=ST_MAX) {
			printf("Stack over flow!\n");
			return 0;
		}

		for(i=0;i<=stringlength(str1)-2;i++)
			str1[i]=str1[i+1];
		str1[i]='\0';
		stack[st_pointer]= calculate(str1,0);
		st_pointer++;
		break;
}

} while (token1<strlen-1);

for (i = 0 ; i < st_pointer;i++) ret = ret + stack[i];

return ret;
}

/* return number of string */
int get_token(char str[],int ftoken)
{
int reti, n=0;
for (reti=ftoken;;)
switch (str[reti]) {
	case '.' :
	case '0' :
	case '1' :
	case '2' :
	case '3' :
	case '4' :
	case '5' :
	case '6' :
	case '7' :
	case '8' :
	case '9' :
	case 'e' :
	case 'E' : reti++;
		break;
	case '-' : if (reti==ftoken || str[reti-1] == 'e' || str[reti-1] =='E') reti++;
		else return reti;
		break;
	case '+' : if (reti==ftoken) reti++;
		else return reti;
		break;
	case '*' : if (reti==ftoken) reti++;
		else return reti;
		break;
	case '/' : if (reti==ftoken) reti++;
		else return reti;
		break;
	case '(' : 
		n++;
		for (reti=reti+1;n>0;reti++) {
			if (str[reti]=='(') n++;
			if (str[reti]==')') n--;
		}

		return reti;
		break;
	case '\0' : return reti;
	default : return reti;
}

}

int stringlength(char str[])
{
int reti = 0;
for (reti=0;str[reti]!='\0';reti++) ;

return reti;
}

/* This return double number from string */
double tonumber(char str[])
{
int i=0,j;
int negati=0;
double ret=0;
char str1[MAX_STRING];
if (str[0]=='\0') return ret;

if (str[0]=='-') {
	negati = 1;
	i += 1;
}

if (str[0]=='+') {
	negati =0;
	i += 1;
}

ret = (double) tonumericonechar(str[i]);
i++;

for (;str[i]!='\0'&&str[i]!='.'&&str[i]!='e'&&str[i]!='E';i++) {
	ret = ret*10.;
	ret = ret + tonumericonechar(str[i]);
}
i++;
if ((str[i-1]=='.')&&(str[i]>='0')&&(str[i]<='9'))
	for(j=1;str[i]!='\0'&&(str[i]!='e'||str[i]!='E');i++,j++)
		ret= ret+tonumericonechar(str[i])*power(10,-j);

if (str[i-1]=='e' || str[i-1]=='E') {
	for(j=0;str[i]!='\0';i++,j++)
		str1[j]=str[i];
		str1[j]='\0';
	ret = ret*power(10,(int) tonumber(str1));
	printf("%f\n",tonumber(str1));
	}

if (negati==1) return -ret;
else return ret;
}

double power(int base, int super)
{
int i;
double ret=1;
if (super >=0)
	for (i=1;i<=super;i++) ret =ret*(double)base;
if (super <0){
	for (i=1;i<=-super;i++) ret = ret*(double)base;
	ret = 1/ret;
}
return ret;
}

double tonumericonechar(char str)
{
return str-'0';
}