rd_amt.c

unix环境下c语言屏幕编程开发

/*
 * read_je(col,row,je,pattern) read a double
 *	argument
 * 		col,row:	position
 *		je:		point of double it is used to save je
 *		pattern:	string,it can include "+0-"
 *	return
 *		1:	correct return
 *		-1:	press Esc return
 */
#include "../inc/screen.h"

int	rd_amt(iCol,iRow,dpJe,cpPattern)
int	iCol,iRow;
char	*cpPattern;
double	*dpJe;
{
	return(read_dou(iCol,iRow,dpJe,cpPattern,14,2));
}

int rd_rate(iCol,iRow,dpLl)
int iCol,iRow;
double *dpLl;
{
	return(read_dou(iCol,iRow,dpLl,"+0",6,3));
}

int	read_dou(iCol,iRow,dpJe,cpPattern,iLength,iRight)
int	iCol,iRow,iLength,iRight;
char	*cpPattern;
double	*dpJe;
{
	int	num;
	double	je;
	char	cpFmt[10];

	sprintf(cpFmt,"%c%d%c%dlf",'%',iLength,'.',iRight);
	je = 0.00;
	while(1){
		do {
			num = rddouble(iCol,iRow,iRight,&je,FALSE,TRUE,TRUE);
		}while(!(num==BKABORT || num==TRUE || num==QUIT || num==NEGSIGN));
		
		scp(iCol,iRow);
		if(num==BKABORT){		/*Press Esc return*/
			printf(cpFmt,*dpJe);
			return(-1);
			}
		if(num==QUIT)		je=*dpJe;		/*direct press Enter*/
		printf(cpFmt,je);
		if(strchr(cpPattern,'+')==NULL && je>0.001){
			writerror("不能录入正数");
			beep();
			continue;
			}
		if(strchr(cpPattern,'0')==NULL && (je>-0.001 && je<0.001)){
			writerror("不能录入0");
			beep();
			continue;
			}
		if(strchr(cpPattern,'-')==NULL && je<-0.001){
			writerror("不能录入负数");
			beep();
			continue;
			}
		break;
		}
	writerror("");
	*dpJe=je;
	return(1);
}