Daniel Richard G. wrote:
It's certainly not the default, but given the sort of history and longevity that surround many mainframe installations, I wouldn't be surprised if some folks do.
Given all the problems mentioned (including some in the proposed patches), let's give up on trying to support any such folks. If they want to build gnulib-using software on z/OS, they'll have to build with the default configuration in which char is unsigned. It wouldn't be practical for us to try to support char being signed when standard chars have the top bit set. With that in mind I installed the attached further patch, which simplifies the recent changes to c-ctype quite a bit.
From d25768c6961d9d94492c328035a35ceb140dec6f Mon Sep 17 00:00:00 2001 From: Paul Eggert <egg...@cs.ucla.edu> Date: Sat, 26 Sep 2015 23:55:07 -0700 Subject: [PATCH] c-ctype: do not worry about EBCDIC + char signed Drop support for EBCDIC with char being signed, as this breaks too many programs. Problem reported by Ben Pfaff in: http://lists.gnu.org/archive/html/bug-gnulib/2015-09/msg00053.html * lib/c-ctype.h: Verify that we are not using EBCDIC with char being signed. (_C_CTYPE_LOWER_A_THRU_F_N): New macro. (_C_CTYPE_LOWER_N, _C_CTYPE_A_THRU_F): Use it. (_C_CTYPE_DIGIT, _C_CTYPE_LOWER, _C_CTYPE_PUNCT, _C_CTYPE_UPPER): (c_isascii, c_isgraph, c_isprint, c_ispunct, c_tolower, c_toupper): * tests/test-c-ctype.c (test_all): Simplify by assuming standard char values cannot be negative. * tests/test-c-ctype.c (NCHARS, to_char): Remove; all uses removed. --- ChangeLog | 16 ++ lib/c-ctype.h | 490 ++++----------------------------------------------- tests/test-c-ctype.c | 137 +++++--------- 3 files changed, 88 insertions(+), 555 deletions(-) diff --git a/ChangeLog b/ChangeLog index a347908..1584e29 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,19 @@ +2015-09-26 Paul Eggert <egg...@cs.ucla.edu> + + c-ctype: do not worry about EBCDIC + char signed + Drop support for EBCDIC with char being signed, as this breaks too + many programs. Problem reported by Ben Pfaff in: + http://lists.gnu.org/archive/html/bug-gnulib/2015-09/msg00053.html + * lib/c-ctype.h: Verify that we are not using EBCDIC with + char being signed. + (_C_CTYPE_LOWER_A_THRU_F_N): New macro. + (_C_CTYPE_LOWER_N, _C_CTYPE_A_THRU_F): Use it. + (_C_CTYPE_DIGIT, _C_CTYPE_LOWER, _C_CTYPE_PUNCT, _C_CTYPE_UPPER): + (c_isascii, c_isgraph, c_isprint, c_ispunct, c_tolower, c_toupper): + * tests/test-c-ctype.c (test_all): + Simplify by assuming standard char values cannot be negative. + * tests/test-c-ctype.c (NCHARS, to_char): Remove; all uses removed. + 2015-09-25 Paul Eggert <egg...@cs.ucla.edu> c-ctype: port better to z/OS EBCDIC diff --git a/lib/c-ctype.h b/lib/c-ctype.h index 88e001f..907e1e2 100644 --- a/lib/c-ctype.h +++ b/lib/c-ctype.h @@ -78,7 +78,9 @@ extern "C" { # error "Only ASCII and EBCDIC are supported" #endif -#define _C_CTYPE_SIGNED_EBCDIC ('A' < 0) +#if 'A' < 0 +# error "EBCDIC and char is signed -- not supported" +#endif /* Cases for control characters. */ @@ -111,54 +113,30 @@ extern "C" { case '\x3d': case '\x3f' #endif -/* Cases for hex letter digits, digits, lower, and upper, offset by N. */ +/* Cases for lowercase hex letters, and lowercase letters, all offset by N. */ -#define _C_CTYPE_A_THRU_F_N(n) \ +#define _C_CTYPE_LOWER_A_THRU_F_N(n) \ case 'a' + (n): case 'b' + (n): case 'c' + (n): case 'd' + (n): \ - case 'e' + (n): case 'f' + (n): \ - case 'A' + (n): case 'B' + (n): case 'C' + (n): case 'D' + (n): \ - case 'E' + (n): case 'F' + (n) -#define _C_CTYPE_DIGIT_N(n) \ - case '0' + (n): case '1' + (n): case '2' + (n): case '3' + (n): \ - case '4' + (n): case '5' + (n): case '6' + (n): case '7' + (n): \ - case '8' + (n): case '9' + (n) + case 'e' + (n): case 'f' + (n) #define _C_CTYPE_LOWER_N(n) \ - case 'a' + (n): case 'b' + (n): case 'c' + (n): case 'd' + (n): \ - case 'e' + (n): case 'f' + (n): case 'g' + (n): case 'h' + (n): \ - case 'i' + (n): case 'j' + (n): case 'k' + (n): case 'l' + (n): \ - case 'm' + (n): case 'n' + (n): case 'o' + (n): case 'p' + (n): \ - case 'q' + (n): case 'r' + (n): case 's' + (n): case 't' + (n): \ - case 'u' + (n): case 'v' + (n): case 'w' + (n): case 'x' + (n): \ - case 'y' + (n): case 'z' + (n) -#define _C_CTYPE_UPPER_N(n) \ - case 'A' + (n): case 'B' + (n): case 'C' + (n): case 'D' + (n): \ - case 'E' + (n): case 'F' + (n): case 'G' + (n): case 'H' + (n): \ - case 'I' + (n): case 'J' + (n): case 'K' + (n): case 'L' + (n): \ - case 'M' + (n): case 'N' + (n): case 'O' + (n): case 'P' + (n): \ - case 'Q' + (n): case 'R' + (n): case 'S' + (n): case 'T' + (n): \ - case 'U' + (n): case 'V' + (n): case 'W' + (n): case 'X' + (n): \ - case 'Y' + (n): case 'Z' + (n) - -/* Given MACRO_N, expand to all the cases for the corresponding class. */ -#if _C_CTYPE_SIGNED_EBCDIC -# define _C_CTYPE_CASES(macro_n) macro_n (0): macro_n (256) -#else -# define _C_CTYPE_CASES(macro_n) macro_n (0) -#endif - -/* Cases for hex letter digits, digits, lower, and upper, with another - case for unsigned char if the original char is negative. */ - -#define _C_CTYPE_A_THRU_F _C_CTYPE_CASES (_C_CTYPE_A_THRU_F_N) -#define _C_CTYPE_DIGIT _C_CTYPE_CASES (_C_CTYPE_DIGIT_N) -#define _C_CTYPE_LOWER _C_CTYPE_CASES (_C_CTYPE_LOWER_N) -#define _C_CTYPE_UPPER _C_CTYPE_CASES (_C_CTYPE_UPPER_N) - -/* The punct class differs because some punctuation characters may be - negative while others are nonnegative. Instead of attempting to - define _C_CTYPE_PUNCT, define just the plain chars here, and do any - cases-plus-256 by hand after using this macro. */ -#define _C_CTYPE_PUNCT_PLAIN \ + _C_CTYPE_LOWER_A_THRU_F_N(n): \ + case 'g' + (n): case 'h' + (n): case 'i' + (n): case 'j' + (n): \ + case 'k' + (n): case 'l' + (n): case 'm' + (n): case 'n' + (n): \ + case 'o' + (n): case 'p' + (n): case 'q' + (n): case 'r' + (n): \ + case 's' + (n): case 't' + (n): case 'u' + (n): case 'v' + (n): \ + case 'w' + (n): case 'x' + (n): case 'y' + (n): case 'z' + (n) + +/* Cases for hex letters, digits, lower, punct, and upper. */ + +#define _C_CTYPE_A_THRU_F \ + _C_CTYPE_LOWER_A_THRU_F_N (0): \ + _C_CTYPE_LOWER_A_THRU_F_N ('A' - 'a') +#define _C_CTYPE_DIGIT \ + case '0': case '1': case '2': case '3': \ + case '4': case '5': case '6': case '7': \ + case '8': case '9' +#define _C_CTYPE_LOWER _C_CTYPE_LOWER_N (0) +#define _C_CTYPE_PUNCT \ case '!': case '"': case '#': case '$': \ case '%': case '&': case '\'': case '(': \ case ')': case '*': case '+': case ',': \ @@ -167,6 +145,8 @@ extern "C" { case '?': case '@': case '[': case '\\': \ case ']': case '^': case '_': case '`': \ case '{': case '|': case '}': case '~' +#define _C_CTYPE_UPPER _C_CTYPE_LOWER_N ('A' - 'a') + /* Function definitions. */ @@ -194,7 +174,6 @@ c_isalnum (int c) _C_CTYPE_LOWER: _C_CTYPE_UPPER: return true; - default: return false; } @@ -208,7 +187,6 @@ c_isalpha (int c) _C_CTYPE_LOWER: _C_CTYPE_UPPER: return true; - default: return false; } @@ -225,107 +203,9 @@ c_isascii (int c) _C_CTYPE_CNTRL: _C_CTYPE_DIGIT: _C_CTYPE_LOWER: + _C_CTYPE_PUNCT: _C_CTYPE_UPPER: - - _C_CTYPE_PUNCT_PLAIN: -#if '!' < 0 - case '!' + 256: -#endif -#if '"' < 0 - case '"' + 256: -#endif -#if '#' < 0 - case '#' + 256: -#endif -#if '$' < 0 - case '$' + 256: -#endif -#if '%' < 0 - case '%' + 256: -#endif -#if '&' < 0 - case '&' + 256: -#endif -#if '\'' < 0 - case '\'' + 256: -#endif -#if '(' < 0 - case '(' + 256: -#endif -#if ')' < 0 - case ')' + 256: -#endif -#if '*' < 0 - case '*' + 256: -#endif -#if '+' < 0 - case '+' + 256: -#endif -#if ',' < 0 - case ',' + 256: -#endif -#if '-' < 0 - case '-' + 256: -#endif -#if '.' < 0 - case '.' + 256: -#endif -#if '/' < 0 - case '/' + 256: -#endif -#if ':' < 0 - case ':' + 256: -#endif -#if ';' < 0 - case ';' + 256: -#endif -#if '<' < 0 - case '<' + 256: -#endif -#if '=' < 0 - case '=' + 256: -#endif -#if '>' < 0 - case '>' + 256: -#endif -#if '?' < 0 - case '?' + 256: -#endif -#if '@' < 0 - case '@' + 256: -#endif -#if '[' < 0 - case '[' + 256: -#endif -#if '\\' < 0 - case '\\' + 256: -#endif -#if ']' < 0 - case ']' + 256: -#endif -#if '^' < 0 - case '^' + 256: -#endif -#if '_' < 0 - case '_' + 256: -#endif -#if '`' < 0 - case '`' + 256: -#endif -#if '{' < 0 - case '{' + 256: -#endif -#if '|' < 0 - case '|' + 256: -#endif -#if '}' < 0 - case '}' + 256: -#endif -#if '~' < 0 - case '~' + 256: -#endif return true; - default: return false; } @@ -368,107 +248,9 @@ c_isgraph (int c) { _C_CTYPE_DIGIT: _C_CTYPE_LOWER: + _C_CTYPE_PUNCT: _C_CTYPE_UPPER: - - _C_CTYPE_PUNCT_PLAIN: -#if '!' < 0 - case '!' + 256: -#endif -#if '"' < 0 - case '"' + 256: -#endif -#if '#' < 0 - case '#' + 256: -#endif -#if '$' < 0 - case '$' + 256: -#endif -#if '%' < 0 - case '%' + 256: -#endif -#if '&' < 0 - case '&' + 256: -#endif -#if '\'' < 0 - case '\'' + 256: -#endif -#if '(' < 0 - case '(' + 256: -#endif -#if ')' < 0 - case ')' + 256: -#endif -#if '*' < 0 - case '*' + 256: -#endif -#if '+' < 0 - case '+' + 256: -#endif -#if ',' < 0 - case ',' + 256: -#endif -#if '-' < 0 - case '-' + 256: -#endif -#if '.' < 0 - case '.' + 256: -#endif -#if '/' < 0 - case '/' + 256: -#endif -#if ':' < 0 - case ':' + 256: -#endif -#if ';' < 0 - case ';' + 256: -#endif -#if '<' < 0 - case '<' + 256: -#endif -#if '=' < 0 - case '=' + 256: -#endif -#if '>' < 0 - case '>' + 256: -#endif -#if '?' < 0 - case '?' + 256: -#endif -#if '@' < 0 - case '@' + 256: -#endif -#if '[' < 0 - case '[' + 256: -#endif -#if '\\' < 0 - case '\\' + 256: -#endif -#if ']' < 0 - case ']' + 256: -#endif -#if '^' < 0 - case '^' + 256: -#endif -#if '_' < 0 - case '_' + 256: -#endif -#if '`' < 0 - case '`' + 256: -#endif -#if '{' < 0 - case '{' + 256: -#endif -#if '|' < 0 - case '|' + 256: -#endif -#if '}' < 0 - case '}' + 256: -#endif -#if '~' < 0 - case '~' + 256: -#endif return true; - default: return false; } @@ -494,107 +276,9 @@ c_isprint (int c) case ' ': _C_CTYPE_DIGIT: _C_CTYPE_LOWER: + _C_CTYPE_PUNCT: _C_CTYPE_UPPER: - - _C_CTYPE_PUNCT_PLAIN: -#if '!' < 0 - case '!' + 256: -#endif -#if '"' < 0 - case '"' + 256: -#endif -#if '#' < 0 - case '#' + 256: -#endif -#if '$' < 0 - case '$' + 256: -#endif -#if '%' < 0 - case '%' + 256: -#endif -#if '&' < 0 - case '&' + 256: -#endif -#if '\'' < 0 - case '\'' + 256: -#endif -#if '(' < 0 - case '(' + 256: -#endif -#if ')' < 0 - case ')' + 256: -#endif -#if '*' < 0 - case '*' + 256: -#endif -#if '+' < 0 - case '+' + 256: -#endif -#if ',' < 0 - case ',' + 256: -#endif -#if '-' < 0 - case '-' + 256: -#endif -#if '.' < 0 - case '.' + 256: -#endif -#if '/' < 0 - case '/' + 256: -#endif -#if ':' < 0 - case ':' + 256: -#endif -#if ';' < 0 - case ';' + 256: -#endif -#if '<' < 0 - case '<' + 256: -#endif -#if '=' < 0 - case '=' + 256: -#endif -#if '>' < 0 - case '>' + 256: -#endif -#if '?' < 0 - case '?' + 256: -#endif -#if '@' < 0 - case '@' + 256: -#endif -#if '[' < 0 - case '[' + 256: -#endif -#if '\\' < 0 - case '\\' + 256: -#endif -#if ']' < 0 - case ']' + 256: -#endif -#if '^' < 0 - case '^' + 256: -#endif -#if '_' < 0 - case '_' + 256: -#endif -#if '`' < 0 - case '`' + 256: -#endif -#if '{' < 0 - case '{' + 256: -#endif -#if '|' < 0 - case '|' + 256: -#endif -#if '}' < 0 - case '}' + 256: -#endif -#if '~' < 0 - case '~' + 256: -#endif return true; - default: return false; } @@ -605,105 +289,8 @@ c_ispunct (int c) { switch (c) { - _C_CTYPE_PUNCT_PLAIN: -#if '!' < 0 - case '!' + 256: -#endif -#if '"' < 0 - case '"' + 256: -#endif -#if '#' < 0 - case '#' + 256: -#endif -#if '$' < 0 - case '$' + 256: -#endif -#if '%' < 0 - case '%' + 256: -#endif -#if '&' < 0 - case '&' + 256: -#endif -#if '\'' < 0 - case '\'' + 256: -#endif -#if '(' < 0 - case '(' + 256: -#endif -#if ')' < 0 - case ')' + 256: -#endif -#if '*' < 0 - case '*' + 256: -#endif -#if '+' < 0 - case '+' + 256: -#endif -#if ',' < 0 - case ',' + 256: -#endif -#if '-' < 0 - case '-' + 256: -#endif -#if '.' < 0 - case '.' + 256: -#endif -#if '/' < 0 - case '/' + 256: -#endif -#if ':' < 0 - case ':' + 256: -#endif -#if ';' < 0 - case ';' + 256: -#endif -#if '<' < 0 - case '<' + 256: -#endif -#if '=' < 0 - case '=' + 256: -#endif -#if '>' < 0 - case '>' + 256: -#endif -#if '?' < 0 - case '?' + 256: -#endif -#if '@' < 0 - case '@' + 256: -#endif -#if '[' < 0 - case '[' + 256: -#endif -#if '\\' < 0 - case '\\' + 256: -#endif -#if ']' < 0 - case ']' + 256: -#endif -#if '^' < 0 - case '^' + 256: -#endif -#if '_' < 0 - case '_' + 256: -#endif -#if '`' < 0 - case '`' + 256: -#endif -#if '{' < 0 - case '{' + 256: -#endif -#if '|' < 0 - case '|' + 256: -#endif -#if '}' < 0 - case '}' + 256: -#endif -#if '~' < 0 - case '~' + 256: -#endif + _C_CTYPE_PUNCT: return true; - default: return false; } @@ -741,7 +328,6 @@ c_isxdigit (int c) _C_CTYPE_DIGIT: _C_CTYPE_A_THRU_F: return true; - default: return false; } @@ -752,14 +338,8 @@ c_tolower (int c) { switch (c) { - _C_CTYPE_UPPER_N (0): -#if _C_CTYPE_SIGNED_EBCDIC - c += 256; - /* Fall through. */ - _C_CTYPE_UPPER_N (256): -#endif + _C_CTYPE_UPPER: return c - 'A' + 'a'; - default: return c; } @@ -770,14 +350,8 @@ c_toupper (int c) { switch (c) { - _C_CTYPE_LOWER_N (0): -#if _C_CTYPE_SIGNED_EBCDIC - c += 256; - /* Fall through. */ - _C_CTYPE_LOWER_N (256): -#endif + _C_CTYPE_LOWER: return c - 'a' + 'A'; - default: return c; } diff --git a/tests/test-c-ctype.c b/tests/test-c-ctype.c index 544adeb..9780554 100644 --- a/tests/test-c-ctype.c +++ b/tests/test-c-ctype.c @@ -26,16 +26,6 @@ #include "macros.h" -enum { NCHARS = UCHAR_MAX + 1 }; - -static char -to_char (int c) -{ - if (CHAR_MIN < 0 && CHAR_MAX < c) - return c - CHAR_MAX - 1 + CHAR_MIN; - return c; -} - static void test_agree_with_C_locale (void) { @@ -72,27 +62,30 @@ test_all (void) for (c = CHAR_MIN; c <= UCHAR_MAX; c++) { - if (c < 0) + if (! (0 <= c && c <= CHAR_MAX)) { - ASSERT (c_isascii (c) == c_isascii (c + NCHARS)); - ASSERT (c_isalnum (c) == c_isalnum (c + NCHARS)); - ASSERT (c_isalpha (c) == c_isalpha (c + NCHARS)); - ASSERT (c_isblank (c) == c_isblank (c + NCHARS)); - ASSERT (c_iscntrl (c) == c_iscntrl (c + NCHARS)); - ASSERT (c_isdigit (c) == c_isdigit (c + NCHARS)); - ASSERT (c_islower (c) == c_islower (c + NCHARS)); - ASSERT (c_isgraph (c) == c_isgraph (c + NCHARS)); - ASSERT (c_isprint (c) == c_isprint (c + NCHARS)); - ASSERT (c_ispunct (c) == c_ispunct (c + NCHARS)); - ASSERT (c_isspace (c) == c_isspace (c + NCHARS)); - ASSERT (c_isupper (c) == c_isupper (c + NCHARS)); - ASSERT (c_isxdigit (c) == c_isxdigit (c + NCHARS)); - ASSERT (to_char (c_tolower (c)) == to_char (c_tolower (c + NCHARS))); - ASSERT (to_char (c_toupper (c)) == to_char (c_toupper (c + NCHARS))); + ASSERT (! c_isascii (c)); + ASSERT (! c_isalnum (c)); + ASSERT (! c_isalpha (c)); + ASSERT (! c_isblank (c)); + ASSERT (! c_iscntrl (c)); + ASSERT (! c_isdigit (c)); + ASSERT (! c_islower (c)); + ASSERT (! c_isgraph (c)); + ASSERT (! c_isprint (c)); + ASSERT (! c_ispunct (c)); + ASSERT (! c_isspace (c)); + ASSERT (! c_isupper (c)); + ASSERT (! c_isxdigit (c)); + ASSERT (c_tolower (c) == c); + ASSERT (c_toupper (c) == c); } - if (0 <= c) - n_isascii += c_isascii (c); + n_isascii += c_isascii (c); + +#ifdef C_CTYPE_ASCII + ASSERT (c_isascii (c) == (0 <= c && c <= 0x7f)); +#endif ASSERT (c_isascii (c) == (c_isprint (c) || c_iscntrl (c))); @@ -100,7 +93,7 @@ test_all (void) ASSERT (c_isalpha (c) == (c_islower (c) || c_isupper (c))); - switch (to_char (c)) + switch (c) { case '\t': case ' ': ASSERT (c_isblank (c) == 1); @@ -114,9 +107,17 @@ test_all (void) ASSERT (c_iscntrl (c) == ((c >= 0 && c < 0x20) || c == 0x7f)); #endif + switch (c) + { + case '\a': case '\b': case '\f': case '\n': + case '\r': case '\t': case '\v': + ASSERT (c_iscntrl (c)); + break; + } + ASSERT (! (c_iscntrl (c) && c_isprint (c))); - switch (to_char (c)) + switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': @@ -127,7 +128,7 @@ test_all (void) break; } - switch (to_char (c)) + switch (c) { case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': @@ -135,9 +136,11 @@ test_all (void) case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': ASSERT (c_islower (c) == 1); + ASSERT (c_toupper (c) == c - 'a' + 'A'); break; default: ASSERT (c_islower (c) == 0); + ASSERT (c_toupper (c) == c); break; } @@ -151,7 +154,7 @@ test_all (void) ASSERT (c_isprint (c) == (c_isgraph (c) || c == ' ')); - switch (to_char (c)) + switch (c) { case '!': case '"': case '#': case '$': case '%': case '&': case '\'': case '(': case ')': case '*': case '+': case ',': case '-': case '.': @@ -165,7 +168,7 @@ test_all (void) break; } - switch (to_char (c)) + switch (c) { case ' ': case '\t': case '\n': case '\v': case '\f': case '\r': ASSERT (c_isspace (c) == 1); @@ -175,7 +178,7 @@ test_all (void) break; } - switch (to_char (c)) + switch (c) { case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': @@ -183,13 +186,15 @@ test_all (void) case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': ASSERT (c_isupper (c) == 1); + ASSERT (c_tolower (c) == c - 'A' + 'a'); break; default: ASSERT (c_isupper (c) == 0); + ASSERT (c_tolower (c) == c); break; } - switch (to_char (c)) + switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': @@ -201,68 +206,6 @@ test_all (void) ASSERT (c_isxdigit (c) == 0); break; } - - switch (to_char (c)) - { - case 'A': ASSERT (to_char (c_tolower (c)) == 'a'); break; - case 'B': ASSERT (to_char (c_tolower (c)) == 'b'); break; - case 'C': ASSERT (to_char (c_tolower (c)) == 'c'); break; - case 'D': ASSERT (to_char (c_tolower (c)) == 'd'); break; - case 'E': ASSERT (to_char (c_tolower (c)) == 'e'); break; - case 'F': ASSERT (to_char (c_tolower (c)) == 'f'); break; - case 'G': ASSERT (to_char (c_tolower (c)) == 'g'); break; - case 'H': ASSERT (to_char (c_tolower (c)) == 'h'); break; - case 'I': ASSERT (to_char (c_tolower (c)) == 'i'); break; - case 'J': ASSERT (to_char (c_tolower (c)) == 'j'); break; - case 'K': ASSERT (to_char (c_tolower (c)) == 'k'); break; - case 'L': ASSERT (to_char (c_tolower (c)) == 'l'); break; - case 'M': ASSERT (to_char (c_tolower (c)) == 'm'); break; - case 'N': ASSERT (to_char (c_tolower (c)) == 'n'); break; - case 'O': ASSERT (to_char (c_tolower (c)) == 'o'); break; - case 'P': ASSERT (to_char (c_tolower (c)) == 'p'); break; - case 'Q': ASSERT (to_char (c_tolower (c)) == 'q'); break; - case 'R': ASSERT (to_char (c_tolower (c)) == 'r'); break; - case 'S': ASSERT (to_char (c_tolower (c)) == 's'); break; - case 'T': ASSERT (to_char (c_tolower (c)) == 't'); break; - case 'U': ASSERT (to_char (c_tolower (c)) == 'u'); break; - case 'V': ASSERT (to_char (c_tolower (c)) == 'v'); break; - case 'W': ASSERT (to_char (c_tolower (c)) == 'w'); break; - case 'X': ASSERT (to_char (c_tolower (c)) == 'x'); break; - case 'Y': ASSERT (to_char (c_tolower (c)) == 'y'); break; - case 'Z': ASSERT (to_char (c_tolower (c)) == 'z'); break; - default: ASSERT (c_tolower (c) == c); break; - } - - switch (to_char (c)) - { - case 'a': ASSERT (to_char (c_toupper (c)) == 'A'); break; - case 'b': ASSERT (to_char (c_toupper (c)) == 'B'); break; - case 'c': ASSERT (to_char (c_toupper (c)) == 'C'); break; - case 'd': ASSERT (to_char (c_toupper (c)) == 'D'); break; - case 'e': ASSERT (to_char (c_toupper (c)) == 'E'); break; - case 'f': ASSERT (to_char (c_toupper (c)) == 'F'); break; - case 'g': ASSERT (to_char (c_toupper (c)) == 'G'); break; - case 'h': ASSERT (to_char (c_toupper (c)) == 'H'); break; - case 'i': ASSERT (to_char (c_toupper (c)) == 'I'); break; - case 'j': ASSERT (to_char (c_toupper (c)) == 'J'); break; - case 'k': ASSERT (to_char (c_toupper (c)) == 'K'); break; - case 'l': ASSERT (to_char (c_toupper (c)) == 'L'); break; - case 'm': ASSERT (to_char (c_toupper (c)) == 'M'); break; - case 'n': ASSERT (to_char (c_toupper (c)) == 'N'); break; - case 'o': ASSERT (to_char (c_toupper (c)) == 'O'); break; - case 'p': ASSERT (to_char (c_toupper (c)) == 'P'); break; - case 'q': ASSERT (to_char (c_toupper (c)) == 'Q'); break; - case 'r': ASSERT (to_char (c_toupper (c)) == 'R'); break; - case 's': ASSERT (to_char (c_toupper (c)) == 'S'); break; - case 't': ASSERT (to_char (c_toupper (c)) == 'T'); break; - case 'u': ASSERT (to_char (c_toupper (c)) == 'U'); break; - case 'v': ASSERT (to_char (c_toupper (c)) == 'V'); break; - case 'w': ASSERT (to_char (c_toupper (c)) == 'W'); break; - case 'x': ASSERT (to_char (c_toupper (c)) == 'X'); break; - case 'y': ASSERT (to_char (c_toupper (c)) == 'Y'); break; - case 'z': ASSERT (to_char (c_toupper (c)) == 'Z'); break; - default: ASSERT (c_toupper (c) == c); break; - } } ASSERT (n_isascii == 128); -- 2.1.0
