Return to up-lo.c CVS log

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

Annotation of researchv10no/cmd/basic/bite/src/up-lo.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     /////////////////////////////////////
                      4:  *     /////////////////////////////////////
                      5:  *     ////////////// up-lo.c //////////////
                      6:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      7:  *     ///// Thu Mar  5 11:38:41 1981 //////
                      8:  *     /////////////////////////////////////
                      9:  *     /////////////////////////////////////
                     10:  *     @(#) up-lo.c: V1.1 3/5/81
                     11: 
                     12: */
                     13: 
                     14: /*
                     15:  * Change lower case to upper case
                     16:  */
                     17: char   *
                     18: upc(str)
                     19: char   str[];
                     20: {
                     21:        register i;
                     22:        char    work[80];
                     23: 
                     24:        evals(str,work);
                     25:        for(i=0; work[i] != '\0'; i++)
                     26:        {
                     27:                if(work[i] >= 'a' && work[i] <= 'z')
                     28:                        work[i] -= ('a'-'A');
                     29:        }
                     30:        return(work);
                     31: }
                     32: 
                     33: /*
                     34:  * Change upper case to lower case
                     35:  */
                     36: char   *
                     37: loc(str)
                     38: char   str[];
                     39: {
                     40:        register i;
                     41:        char    work[80];
                     42: 
                     43:        evals(str,work);
                     44:        for(i=0; work[i] != '\0'; i++)
                     45:        {
                     46:                if(work[i] >= 'A' && work[i] <= 'Z')
                     47:                        work[i] += ('a'-'A');
                     48:        }
                     49:        return(work);
                     50: }

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