website/archive/binaries/mac/src/clustalo/src/squid/sre_ctype.c

   1 /*****************************************************************
   2  * SQUID - a library of functions for biological sequence analysis
   3  * Copyright (C) 1992-2002 Washington University School of Medicine
   4  *
   5  *     This source code is freely distributed under the terms of the
   6  *     GNU General Public License. See the files COPYRIGHT and LICENSE
   7  *     for details.
   8  *****************************************************************/
   9
  10 /* sre_ctype.c
  11  *
  12  * For portability. Some systems have functions tolower, toupper
  13  * as macros (for instance, MIPS M-2000 RISC/os!)
  14  *
  15  * RCS $Id: sre_ctype.c 217 2011-03-19 10:27:10Z andreas $ (Original squid RCS Id: sre_ctype.c,v 1.3 2001/09/02 23:43:19 eddy Exp)
  16  */
  17
  18 #include <ctype.h>
  19 #include "squid.h"
  20
  21 int
  22 sre_tolower(int c)
  23 {
  24   if (isupper(c)) return tolower(c);
  25   else return c;
  26 }
  27
  28 int
  29 sre_toupper(int c)
  30 {
  31   if (islower(c)) return toupper(c);
  32   else return c;
  33 }
  34