Return to len.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

researchv10 Norman

/* Copyright Bell Telephone Laboratories Whippany, N.J.

 *	/////////////////////////////////////
 *	/////////////////////////////////////
 *	//////////////// len ////////////////
 *	/// J. P. Hawkins WH X4610 8C-001 ///
 *	///// Tue Feb 17 13:59:27 1981 //////
 *	/////////////////////////////////////
 *	/////////////////////////////////////
 *	@(#) len.c: V1.2 3/4/81
 *
 * len(string)
 * returns length of string expression
 */

char	scratch[132];
double
len(exp)
char	*exp;
{
	evals(exp,scratch);
	return((double)strlen(scratch));
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.