entered into RCS

This commit is contained in:
Roland McGrath 1994-06-28 23:23:44 +00:00
parent 008f66e870
commit 27c462cdd0
2 changed files with 373 additions and 360 deletions

View File

@ -1,4 +1,4 @@
/* Copyright (C) 1991 Free Software Foundation, Inc.
/* Copyright (C) 1991, 1994 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
@ -22,6 +22,10 @@ Cambridge, MA 02139, USA. */
#include <stdio.h>
#include <stdlib.h>
#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
#define XOR(e,f) (((e) && !(f)) || (!(e) && (f)))
#ifdef __GNUC__
__inline
#endif
@ -39,41 +43,50 @@ int
DEFUN(main, (argc, argv), int argc AND char **argv)
{
register unsigned short int c;
int lose = 0;
for (c = 0; c <= UCHAR_MAX; ++c) {
print_char(c);
if (isascii(c))
fputs(" isascii", stdout);
if (isalnum(c))
fputs(" isalnum", stdout);
if (isalpha(c))
fputs(" isalpha", stdout);
if (iscntrl(c))
fputs(" iscntrl", stdout);
if (isdigit(c))
fputs(" isdigit", stdout);
if (isgraph(c))
fputs(" isgraph", stdout);
if (islower(c))
fputs(" islower", stdout);
if (isprint(c))
fputs(" isprint", stdout);
if (ispunct(c))
fputs(" ispunct", stdout);
if (isspace(c))
fputs(" isspace", stdout);
if (isupper(c))
fputs(" isupper", stdout);
if (isxdigit(c))
fputs(" isxdigit", stdout);
if (isblank(c))
fputs(" isblank", stdout);
fputs("; lower = ", stdout);
print_char(tolower(c));
fputs("; upper = ", stdout);
print_char(toupper(c));
putchar('\n');
}
for (c = 0; c <= UCHAR_MAX; ++c)
{
print_char (c);
exit(EXIT_SUCCESS);
if (XOR (islower (c), ISLOWER (c)) || toupper (c) != TOUPPER (c))
{
fputs (" BOGUS", stdout);
++lose;
}
if (isascii(c))
fputs(" isascii", stdout);
if (isalnum(c))
fputs(" isalnum", stdout);
if (isalpha(c))
fputs(" isalpha", stdout);
if (iscntrl(c))
fputs(" iscntrl", stdout);
if (isdigit(c))
fputs(" isdigit", stdout);
if (isgraph(c))
fputs(" isgraph", stdout);
if (islower(c))
fputs(" islower", stdout);
if (isprint(c))
fputs(" isprint", stdout);
if (ispunct(c))
fputs(" ispunct", stdout);
if (isspace(c))
fputs(" isspace", stdout);
if (isupper(c))
fputs(" isupper", stdout);
if (isxdigit(c))
fputs(" isxdigit", stdout);
if (isblank(c))
fputs(" isblank", stdout);
fputs("; lower = ", stdout);
print_char(tolower(c));
fputs("; upper = ", stdout);
print_char(toupper(c));
putchar('\n');
}
exit (lose ? EXIT_FAILURE : EXIT_SUCCESS);
}

View File

@ -266,39 +266,39 @@ CONST unsigned short int __ctype_b_C[] =
CONST short int __ctype_tolower_C[] =
{
-1,
'\000',
'\001',
'\002',
'\003',
'\004',
'\005',
'\006',
'\007',
'\010',
'\011',
'\012',
'\013',
'\014',
'\015',
'\016',
'\017',
'\020',
'\021',
'\022',
'\023',
'\024',
'\025',
'\026',
'\027',
'\030',
'\031',
'\032',
'\033',
'\034',
'\035',
'\036',
'\037',
'\040',
0000,
0001,
0002,
0003,
0004,
0005,
0006,
0007,
0010,
0011,
0012,
0013,
0014,
0015,
0016,
0017,
0020,
0021,
0022,
0023,
0024,
0025,
0026,
0027,
0030,
0031,
0032,
0033,
0034,
0035,
0036,
0037,
0040,
'!',
'"',
'#',
@ -393,172 +393,172 @@ CONST short int __ctype_tolower_C[] =
'|',
'}',
'~',
'\177',
'\200',
'\201',
'\202',
'\203',
'\204',
'\205',
'\206',
'\207',
'\210',
'\211',
'\212',
'\213',
'\214',
'\215',
'\216',
'\217',
'\220',
'\221',
'\222',
'\223',
'\224',
'\225',
'\226',
'\227',
'\230',
'\231',
'\232',
'\233',
'\234',
'\235',
'\236',
'\237',
'\240',
'\241',
'\242',
'\243',
'\244',
'\245',
'\246',
'\247',
'\250',
'\251',
'\252',
'\253',
'\254',
'\255',
'\256',
'\257',
'\260',
'\261',
'\262',
'\263',
'\264',
'\265',
'\266',
'\267',
'\270',
'\271',
'\272',
'\273',
'\274',
'\275',
'\276',
'\277',
'\300',
'\301',
'\302',
'\303',
'\304',
'\305',
'\306',
'\307',
'\310',
'\311',
'\312',
'\313',
'\314',
'\315',
'\316',
'\317',
'\320',
'\321',
'\322',
'\323',
'\324',
'\325',
'\326',
'\327',
'\330',
'\331',
'\332',
'\333',
'\334',
'\335',
'\336',
'\337',
'\340',
'\341',
'\342',
'\343',
'\344',
'\345',
'\346',
'\347',
'\350',
'\351',
'\352',
'\353',
'\354',
'\355',
'\356',
'\357',
'\360',
'\361',
'\362',
'\363',
'\364',
'\365',
'\366',
'\367',
'\370',
'\371',
'\372',
'\373',
'\374',
'\375',
'\376',
'\377',
0177,
0200,
0201,
0202,
0203,
0204,
0205,
0206,
0207,
0210,
0211,
0212,
0213,
0214,
0215,
0216,
0217,
0220,
0221,
0222,
0223,
0224,
0225,
0226,
0227,
0230,
0231,
0232,
0233,
0234,
0235,
0236,
0237,
0240,
0241,
0242,
0243,
0244,
0245,
0246,
0247,
0250,
0251,
0252,
0253,
0254,
0255,
0256,
0257,
0260,
0261,
0262,
0263,
0264,
0265,
0266,
0267,
0270,
0271,
0272,
0273,
0274,
0275,
0276,
0277,
0300,
0301,
0302,
0303,
0304,
0305,
0306,
0307,
0310,
0311,
0312,
0313,
0314,
0315,
0316,
0317,
0320,
0321,
0322,
0323,
0324,
0325,
0326,
0327,
0330,
0331,
0332,
0333,
0334,
0335,
0336,
0337,
0340,
0341,
0342,
0343,
0344,
0345,
0346,
0347,
0350,
0351,
0352,
0353,
0354,
0355,
0356,
0357,
0360,
0361,
0362,
0363,
0364,
0365,
0366,
0367,
0370,
0371,
0372,
0373,
0374,
0375,
0376,
0377,
};
CONST short int __ctype_toupper_C[] =
{
-1,
'\000',
'\001',
'\002',
'\003',
'\004',
'\005',
'\006',
'\007',
'\010',
'\011',
'\012',
'\013',
'\014',
'\015',
'\016',
'\017',
'\020',
'\021',
'\022',
'\023',
'\024',
'\025',
'\026',
'\027',
'\030',
'\031',
'\032',
'\033',
'\034',
'\035',
'\036',
'\037',
'\040',
0000,
0001,
0002,
0003,
0004,
0005,
0006,
0007,
0010,
0011,
0012,
0013,
0014,
0015,
0016,
0017,
0020,
0021,
0022,
0023,
0024,
0025,
0026,
0027,
0030,
0031,
0032,
0033,
0034,
0035,
0036,
0037,
0040,
'!',
'"',
'#',
@ -653,135 +653,135 @@ CONST short int __ctype_toupper_C[] =
'|',
'}',
'~',
'\177',
'\200',
'\201',
'\202',
'\203',
'\204',
'\205',
'\206',
'\207',
'\210',
'\211',
'\212',
'\213',
'\214',
'\215',
'\216',
'\217',
'\220',
'\221',
'\222',
'\223',
'\224',
'\225',
'\226',
'\227',
'\230',
'\231',
'\232',
'\233',
'\234',
'\235',
'\236',
'\237',
'\240',
'\241',
'\242',
'\243',
'\244',
'\245',
'\246',
'\247',
'\250',
'\251',
'\252',
'\253',
'\254',
'\255',
'\256',
'\257',
'\260',
'\261',
'\262',
'\263',
'\264',
'\265',
'\266',
'\267',
'\270',
'\271',
'\272',
'\273',
'\274',
'\275',
'\276',
'\277',
'\300',
'\301',
'\302',
'\303',
'\304',
'\305',
'\306',
'\307',
'\310',
'\311',
'\312',
'\313',
'\314',
'\315',
'\316',
'\317',
'\320',
'\321',
'\322',
'\323',
'\324',
'\325',
'\326',
'\327',
'\330',
'\331',
'\332',
'\333',
'\334',
'\335',
'\336',
'\337',
'\340',
'\341',
'\342',
'\343',
'\344',
'\345',
'\346',
'\347',
'\350',
'\351',
'\352',
'\353',
'\354',
'\355',
'\356',
'\357',
'\360',
'\361',
'\362',
'\363',
'\364',
'\365',
'\366',
'\367',
'\370',
'\371',
'\372',
'\373',
'\374',
'\375',
'\376',
'\377',
0177,
0200,
0201,
0202,
0203,
0204,
0205,
0206,
0207,
0210,
0211,
0212,
0213,
0214,
0215,
0216,
0217,
0220,
0221,
0222,
0223,
0224,
0225,
0226,
0227,
0230,
0231,
0232,
0233,
0234,
0235,
0236,
0237,
0240,
0241,
0242,
0243,
0244,
0245,
0246,
0247,
0250,
0251,
0252,
0253,
0254,
0255,
0256,
0257,
0260,
0261,
0262,
0263,
0264,
0265,
0266,
0267,
0270,
0271,
0272,
0273,
0274,
0275,
0276,
0277,
0300,
0301,
0302,
0303,
0304,
0305,
0306,
0307,
0310,
0311,
0312,
0313,
0314,
0315,
0316,
0317,
0320,
0321,
0322,
0323,
0324,
0325,
0326,
0327,
0330,
0331,
0332,
0333,
0334,
0335,
0336,
0337,
0340,
0341,
0342,
0343,
0344,
0345,
0346,
0347,
0350,
0351,
0352,
0353,
0354,
0355,
0356,
0357,
0360,
0361,
0362,
0363,
0364,
0365,
0366,
0367,
0370,
0371,
0372,
0373,
0374,
0375,
0376,
0377,
};