Return to ucase.c CVS log

Up to [MW Coherent from dump] / coherent / a / usr / src / misc

Annotation of coherent/a/usr/src/misc/ucase.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Convert a string to upper case.
                      3:  */
                      4: char *
                      5: ucase(s)
                      6: char *s;
                      7: {
                      8:        register char *p, c;
                      9: 
                     10:        for(p = s; c = *p; p++)
                     11:                if((c >= 'a') && (c <= 'z'))
                     12:                        *p = c + 'A' - 'a';
                     13:        return(s);
                     14: }

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