Wrapper for Clustal Omega.

[jabaws.git] / binaries / src / clustalo / src / squid / sre_ctype.c

diff --git a/binaries/src/clustalo/src/squid/sre_ctype.c b/binaries/src/clustalo/src/squid/sre_ctype.c
new file mode 100644 (file)
index 0000000..c010ca7
--- /dev/null
+++ b/binaries/src/clustalo/src/squid/sre_ctype.c
@@ -0,0 +1,34 @@
+/*****************************************************************
+ * SQUID - a library of functions for biological sequence analysis
+ * Copyright (C) 1992-2002 Washington University School of Medicine
+ * 
+ *     This source code is freely distributed under the terms of the
+ *     GNU General Public License. See the files COPYRIGHT and LICENSE
+ *     for details.
+ *****************************************************************/
+
+/* sre_ctype.c
+ * 
+ * For portability. Some systems have functions tolower, toupper
+ * as macros (for instance, MIPS M-2000 RISC/os!)
+ * 
+ * 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)
+ */
+
+#include <ctype.h>
+#include "squid.h"
+
+int
+sre_tolower(int c)
+{
+  if (isupper(c)) return tolower(c);
+  else return c;
+}
+
+int
+sre_toupper(int c)
+{
+  if (islower(c)) return toupper(c);
+  else return c;
+}
+