added the function lowercase()

[moira.git] / lib / strs.c

diff --git a/lib/strs.c b/lib/strs.c
index d40a8e5de203dfb2d9f1dd08cc2aff12fde4dc15..15459b47fb838f94eec127caff3395885c27d5cc 100644 (file)
--- a/lib/strs.c
+++ b/lib/strs.c
@@ -87,3 +87,15 @@ char *s;
        *p = toupper(*p);
     return(s);
 }
+
+
+char *lowercase(s)
+char *s;
+{
+    register char *p;
+
+    for (p = s; *p; p++)
+      if (isupper(*p))
+       *p = tolower(*p);
+    return(s);
+}