git.oblomov.eu Git - mplib/blob - src/texk/kpathsea/uppercasify.c

   1 /* uppercasify.c: change all lowercase letters to uppercase.
   2
   3     Copyright 1993 Karl Berry.
   4
   5     This library is free software; you can redistribute it and/or
   6     modify it under the terms of the GNU Lesser General Public
   7     License as published by the Free Software Foundation; either
   8     version 2.1 of the License, or (at your option) any later version.
   9
  10     This library is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13     Lesser General Public License for more details.
  14
  15     You should have received a copy of the GNU Lesser General Public
  16     License along with this library; if not, write to the Free Software
  17     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18
  19 */
  20
  21 #include <kpathsea/config.h>
  22
  23 #include <kpathsea/c-ctype.h>
  24
  25
  26 string
  27 uppercasify P1C(const_string, s)
  28 {
  29   string target;
  30   string ret = xstrdup (s);
  31
  32   for (target = ret; *target; target++)
  33     {
  34       *target = TOUPPER (*target);
  35     }
  36
  37   return ret;
  38 }