home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / drdobbs / c_spec / execute / stoupper.c < prev    next >
Text File  |  1986-02-20  |  248b  |  16 lines
  1. char    *stoupper(str)
  2. char    *str;
  3. {
  4.     /*    Map all lower case letters in s to upper case.
  5.      *    Returns its argument.
  6.      */
  7.  
  8.     register char *s;
  9.  
  10.     for( s = str ; *s ; s++ )
  11.         if( 'a' <= *s  &&  *s <= 'z' )
  12.             *s -= ('a'-'A');
  13.  
  14.     return str;
  15. }
  16.