|
|
1.1 root 1: /*
2: * Convert a string to lower case.
3: */
4: char *
5: lcase(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.