lib/ack/libm2/cap.c

   1 /*
   2   (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3   See the copyright notice in the ACK home directory, in the file "Copyright".
   4 */
   5
   6 /*
   7   Module:       cap; implementation of CAP
   8   Author:       Ceriel J.H. Jacobs
   9   Version:      $Header$
  10 */
  11
  12 cap(u)
  13         unsigned u;
  14 {
  15         register unsigned *p = &u;
  16
  17         if (*p >= 'a' && *p <= 'z') *p += 'A'-'a';
  18 }