added uppercase()

diff --git a/lib/strs.c b/lib/strs.c
index 88b0178687fbe314621e552480b63676fd0493a6..d40a8e5de203dfb2d9f1dd08cc2aff12fde4dc15 100644 (file)
--- a/lib/strs.c
+++ b/lib/strs.c
@@ -73,3 +73,17 @@ char *strtrim(save)
     *t = '\0';
     return s;
 }
+
+
+/* Modify a string for all of the letters to be uppercase. */
+
+char *uppercase(s)
+char *s;
+{
+    register char *p;
+
+    for (p = s; *p; p++)
+      if (islower(*p))
+       *p = toupper(*p);
+    return(s);
+}