pintos: Avoid literal control character in Perl variable name.

[pintos-anon] / src / lib / ctype.h

diff --git a/src/lib/ctype.h b/src/lib/ctype.h
index 71b432cb00942477f15fde9b6cf03fa897f2d203..9096aca4dbc7f0cded660d624dd364b831cdbfc5 100644 (file)
--- a/src/lib/ctype.h
+++ b/src/lib/ctype.h
@@ -14,12 +14,15 @@ static inline int isspace (int c) {
           || c == '\r' || c == '\t' || c == '\v');
 }
 static inline int isblank (int c) { return c == ' ' || c == '\t'; }
-static inline int isgraph (int c) { return c >= 33 && c < 127; }
+static inline int isgraph (int c) { return c > 32 && c < 127; }
 static inline int isprint (int c) { return c >= 32 && c < 127; }
-static inline int iscntrl (int c) { return c >= 0 && c < 32; }
+static inline int iscntrl (int c) { return (c >= 0 && c < 32) || c == 127; }
 static inline int isascii (int c) { return c >= 0 && c < 128; }
 static inline int ispunct (int c) {
   return isprint (c) && !isalnum (c) && !isspace (c);
 }
 
+static inline int tolower (int c) { return isupper (c) ? c - 'A' + 'a' : c; }
+static inline int toupper (int c) { return islower (c) ? c - 'a' + 'A' : c; }
+
 #endif /* lib/ctype.h */