www.pudn.com > c_editor.rar > ED9.C

/* ED9.C */ 
 
#include "ed0.c" 
#include "ed1.ccc" 
toupper(c) int c; 
{ 
	if ((c<'a')|(c>'z')) { 
		return(c); 
	} 
	else { 
		return(c-32); 
	} 
} 
tolower(c) int c; 
{ 
	if ((c<'A')|(c>'Z')) { 
		return(c); 
	} 
	else { 
		return(c+32); 
	} 
} 
number(args,val) char *args; int *val; 
{ 
char c; 
	c= *args++; 
	if ((c<'0')|(c>'9')) { 
		return(NO); 
	} 
	*val=c-'0'; 
	while (c= *args++) { 
		if ((c<'0')|(c>'9')) { 
			break; 
		} 
		*val=(*val*10)+c-'0'; 
	} 
	return(YES); 
} 
ctoi(buf,index) char *buf; int index; 
{ 
int k; 
	while ((buf[index]==' ')| 
		(buf[index]==TAB)){ 
		index++; 
	} 
	k=0; 
	while ((buf[index]>='0')&(buf[index]<='9')) { 
		k=(k*10)+buf[index]-'0'; 
		index++; 
	} 
	return(k); 
} 
max(m,n) int m,n; 
{ 
	if (m>=n) { 
		return(m); 
	} 
	else { 
		return(n); 
	} 
} 
min(m,n) int m,n; 
{ 
	if (m<=n) { 
		return(m); 
	} 
	else { 
		return(n); 
	} 
} 
putdec(n,w) int n,w; 
{ 
char chars[10]; 
int i,nd; 
	nd=itoc(n,chars,10); 
	i=0; 
	while (i0) { 
		if (syspshch(*p++,file)==ERR) { 
			return(ERR); 
		} 
	} 
	return(syspshch(CR,file)); 
} 
popline(file,p,n) int file; char *p; int n; 
{ 
int c; 
int k, kmax, t; 
	c=syspopch(file); 
	if (c==EOF) { 
		return(EOF); 
	} 
	if (c==CR) { 
		*p++ =CR; 
		k=1; 
	} 
	else { 
		syserr("popline:  missing CR"); 
		return(ERR); 
	} 
	while (1) { 
		c=syspopch(file); 
		if (c==ERR) { 
			return(ERR); 
		} 
		if (c==EOF) { 
			break; 
		} 
		if (c==CR) { 
			if (syspshch(CR,file)==ERR) { 
				return(ERR); 
			} 
			break; 
		} 
		if (kt) { 
		c=p[k]; 
		p[k]=p[t]; 
		p[t]=c; 
		k--; 
		t++; 
	} 
	return(kmax); 
}