Death talks in CAPITAL LETTERS

src/hacklib.c

@@ -17,6 +17,7 @@ NetHack, except that rounddiv may call panic().
 	char		highc		(char)
 	char		lowc		(char)
 	char *		lcase		(char *)
+	char *		ucase		(char *)
 	char *		upstart		(char *)
 	char *		mungspaces	(char *)
 	char *		eos		(char *)
@@ -99,6 +100,17 @@ lcase(s)		/* convert a string into all lowercase */
     return s;
 }
 
+char *
+ucase(s)		/* convert a string into all uppercase */
+    char *s;
+{
+    register char *p;
+
+    for (p = s; *p; p++)
+	if ('a' <= *p && *p <= 'z') *p &= ~040;
+    return s;
+}
+
 char *
 upstart(s)		/* convert first character of a string to uppercase */
     char *s;