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     ! 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.