home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / gutil / capital.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  342 b   |  29 lines
  1. # include    <sccs.h>
  2.  
  3. SCCSID(@(#)capital.c    8.1    12/31/84)
  4.  
  5. capital(lower, upper)
  6. char *lower, *upper;
  7. {
  8.     register char    *l, *u;
  9.  
  10.     l = lower;
  11.     u = upper;
  12.     while (*l)
  13.     {
  14.         if (*l == ' ')
  15.         {
  16.             do
  17.             {
  18.                 *u++ = *l++;
  19.             } while (*l);
  20.             break;
  21.         }
  22.         if (*l >= 'a' && *l <= 'z')
  23.             *u++ = *l++ + 'A' - 'a';
  24.         else
  25.             *u++ = *l++;
  26.     }
  27.     *u = '\0';
  28. }
  29.