home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / extra / strupper.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-05-30  |  226 b   |  22 lines
  1.  
  2. /*
  3.  *  Convert string to upper case
  4.  */
  5.  
  6. char *
  7. strupper(str)
  8. char *str;
  9. {
  10.     char c;
  11.     char *base = str;
  12.  
  13.     while (c = *str) {
  14.     if (c >= 'a' && c <= 'z')
  15.         *str = c + ('A' - 'a');
  16.     ++str;
  17.     }
  18.     return(base);
  19. }
  20.  
  21.  
  22.