Return to len.c CVS log

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

Annotation of researchv10no/cmd/basic/bite/src/len.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     //////////////// len ////////////////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Tue Feb 17 13:59:27 1981 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10:  *     @(#) len.c: V1.2 3/4/81
                     11:  *
                     12:  * len(string)
                     13:  * returns length of string expression
                     14:  */
                     15: 
                     16: char   scratch[132];
                     17: double
                     18: len(exp)
                     19: char   *exp;
                     20: {
                     21:        evals(exp,scratch);
                     22:        return((double)strlen(scratch));
                     23: }

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