Return to capital.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ingres / source / gutil

Annotation of 43BSD/ingres/source/gutil/capital.c, revision 1.1.1.1

1.1       root        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: }

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