aboutsummaryrefslogtreecommitdiff
path: root/newlib/libm/test/test_is.c
diff options
context:
space:
mode:
Diffstat (limited to 'newlib/libm/test/test_is.c')
-rw-r--r--newlib/libm/test/test_is.c2031
1 files changed, 0 insertions, 2031 deletions
diff --git a/newlib/libm/test/test_is.c b/newlib/libm/test/test_is.c
deleted file mode 100644
index 2e99bec..0000000
--- a/newlib/libm/test/test_is.c
+++ /dev/null
@@ -1,2031 +0,0 @@
-#include "test.h"
-#include <ctype.h>
-
-int setascii;
-int setlower;
-int setupper;
-int myascii;
-int mycntrl;
-int myspace;
-int myprint;
-int myalnum;
-int mydigit;
-int myxdigit;
-int myalpha;
-int myupper;
-int mylower;
-int mygraph;
-int mypunct;
-
-void
-_DEFUN(test_is_single,(i),
- int i)
-{
- setascii = 0;
- setlower = 0;
- setupper = 0;
-
- myascii = 0;
- mycntrl = 0;
- myspace = 0;
- myprint = 0;
- myalnum = 0;
- mydigit = 0;
- myxdigit = 0;
- myalpha = 0;
- myupper = 0;
- mylower = 0;
- mygraph = 0;
- mypunct = 0;
-
- switch (i) {
- case 0000:
- myascii = 1;
- mycntrl = 1;
- setascii = 0;
- setlower = 0;
- setupper = 0;
- break;
- case 0001:
- myascii = 1;
- mycntrl = 1;
- setascii = 1;
- setlower = 1;
- setupper = 1;
- break;
- case 0002:
- myascii = 1;
- mycntrl = 1;
- setascii = 2;
- setlower = 2;
- setupper = 2;
- break;
- case 0003:
- myascii = 1;
- mycntrl = 1;
- setascii = 3;
- setlower = 3;
- setupper = 3;
- break;
- case 0004:
- myascii = 1;
- mycntrl = 1;
- setascii = 4;
- setlower = 4;
- setupper = 4;
- break;
- case 0005:
- myascii = 1;
- mycntrl = 1;
- setascii = 5;
- setlower = 5;
- setupper = 5;
- break;
- case 0006:
- myascii = 1;
- mycntrl = 1;
- setascii = 6;
- setlower = 6;
- setupper = 6;
- break;
- case 0007:
- myascii = 1;
- mycntrl = 1;
- setascii = 7;
- setlower = 7;
- setupper = 7;
- break;
- case 0010:
- myascii = 1;
- mycntrl = 1;
- setascii = 8;
- setlower = 8;
- setupper = 8;
- break;
- case 0011:
- myascii = 1;
- mycntrl = 1;
- myspace = 1;
- setascii = 9;
- setlower = 9;
- setupper = 9;
- break;
- case 0012:
- myascii = 1;
- mycntrl = 1;
- myspace = 1;
- setascii = 10;
- setlower = 10;
- setupper = 10;
- break;
- case 0013:
- myascii = 1;
- mycntrl = 1;
- myspace = 1;
- setascii = 11;
- setlower = 11;
- setupper = 11;
- break;
- case 0014:
- myascii = 1;
- mycntrl = 1;
- myspace = 1;
- setascii = 12;
- setlower = 12;
- setupper = 12;
- break;
- case 0015:
- myascii = 1;
- mycntrl = 1;
- myspace = 1;
- setascii = 13;
- setlower = 13;
- setupper = 13;
- break;
- case 0016:
- myascii = 1;
- mycntrl = 1;
- setascii = 14;
- setlower = 14;
- setupper = 14;
- break;
- case 0017:
- myascii = 1;
- mycntrl = 1;
- setascii = 15;
- setlower = 15;
- setupper = 15;
- break;
- case 0020:
- myascii = 1;
- mycntrl = 1;
- setascii = 16;
- setlower = 16;
- setupper = 16;
- break;
- case 0021:
- myascii = 1;
- mycntrl = 1;
- setascii = 17;
- setlower = 17;
- setupper = 17;
- break;
- case 0022:
- myascii = 1;
- mycntrl = 1;
- setascii = 18;
- setlower = 18;
- setupper = 18;
- break;
- case 0023:
- myascii = 1;
- mycntrl = 1;
- setascii = 19;
- setlower = 19;
- setupper = 19;
- break;
- case 0024:
- myascii = 1;
- mycntrl = 1;
- setascii = 20;
- setlower = 20;
- setupper = 20;
- break;
- case 0025:
- myascii = 1;
- mycntrl = 1;
- setascii = 21;
- setlower = 21;
- setupper = 21;
- break;
- case 0026:
- myascii = 1;
- mycntrl = 1;
- setascii = 22;
- setlower = 22;
- setupper = 22;
- break;
- case 0027:
- myascii = 1;
- mycntrl = 1;
- setascii = 23;
- setlower = 23;
- setupper = 23;
- break;
- case 0030:
- myascii = 1;
- mycntrl = 1;
- setascii = 24;
- setlower = 24;
- setupper = 24;
- break;
- case 0031:
- myascii = 1;
- mycntrl = 1;
- setascii = 25;
- setlower = 25;
- setupper = 25;
- break;
- case 0032:
- myascii = 1;
- mycntrl = 1;
- setascii = 26;
- setlower = 26;
- setupper = 26;
- break;
- case 0033:
- myascii = 1;
- mycntrl = 1;
- setascii = 27;
- setlower = 27;
- setupper = 27;
- break;
- case 0034:
- myascii = 1;
- mycntrl = 1;
- setascii = 28;
- setlower = 28;
- setupper = 28;
- break;
- case 0035:
- myascii = 1;
- mycntrl = 1;
- setascii = 29;
- setlower = 29;
- setupper = 29;
- break;
- case 0036:
- myascii = 1;
- mycntrl = 1;
- setascii = 30;
- setlower = 30;
- setupper = 30;
- break;
- case 0037:
- myascii = 1;
- mycntrl = 1;
- setascii = 31;
- setlower = 31;
- setupper = 31;
- break;
- case ' ':
- myascii = 1;
- myprint = 1;
- myspace = 1;
- setascii = 32;
- setlower = 32;
- setupper = 32;
- break;
- case '!':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 33;
- setlower = 33;
- setupper = 33;
- break;
- case '"':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 34;
- setlower = 34;
- setupper = 34;
- break;
- case '#':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 35;
- setlower = 35;
- setupper = 35;
- break;
- case '$':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 36;
- setlower = 36;
- setupper = 36;
- break;
- case '%':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 37;
- setlower = 37;
- setupper = 37;
- break;
- case '&':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 38;
- setlower = 38;
- setupper = 38;
- break;
- case '\'':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 39;
- setlower = 39;
- setupper = 39;
- break;
- case '\(':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 40;
- setlower = 40;
- setupper = 40;
- break;
- case ')':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 41;
- setlower = 41;
- setupper = 41;
- break;
- case '*':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 42;
- setlower = 42;
- setupper = 42;
- break;
- case '+':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 43;
- setlower = 43;
- setupper = 43;
- break;
- case ',':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 44;
- setlower = 44;
- setupper = 44;
- break;
- case '-':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 45;
- setlower = 45;
- setupper = 45;
- break;
- case '.':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 46;
- setlower = 46;
- setupper = 46;
- break;
- case '/':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 47;
- setlower = 47;
- setupper = 47;
- break;
- case '0':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 48;
- setlower = 48;
- setupper = 48;
- break;
- case '1':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 49;
- setlower = 49;
- setupper = 49;
- break;
- case '2':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 50;
- setlower = 50;
- setupper = 50;
- break;
- case '3':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 51;
- setlower = 51;
- setupper = 51;
- break;
- case '4':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 52;
- setlower = 52;
- setupper = 52;
- break;
- case '5':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 53;
- setlower = 53;
- setupper = 53;
- break;
- case '6':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 54;
- setlower = 54;
- setupper = 54;
- break;
- case '7':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 55;
- setlower = 55;
- setupper = 55;
- break;
- case '8':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 56;
- setlower = 56;
- setupper = 56;
- break;
- case '9':
- myalnum = 1;
- myascii = 1;
- mydigit = 1;
- mygraph = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 57;
- setlower = 57;
- setupper = 57;
- break;
- case ':':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 58;
- setlower = 58;
- setupper = 58;
- break;
- case ';':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 59;
- setlower = 59;
- setupper = 59;
- break;
- case '<':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 60;
- setlower = 60;
- setupper = 60;
- break;
- case '=':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 61;
- setlower = 61;
- setupper = 61;
- break;
- case '>':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 62;
- setlower = 62;
- setupper = 62;
- break;
- case '?':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 63;
- setlower = 63;
- setupper = 63;
- break;
- case '@':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 64;
- setlower = 64;
- setupper = 64;
- break;
- case 'A':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 65;
- setlower = 97;
- setupper = 65;
- break;
- case 'B':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 66;
- setlower = 98;
- setupper = 66;
- break;
- case 'C':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 67;
- setlower = 99;
- setupper = 67;
- break;
- case 'D':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 68;
- setlower = 100;
- setupper = 68;
- break;
- case 'E':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 69;
- setlower = 101;
- setupper = 69;
- break;
- case 'F':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- myxdigit = 1;
- setascii = 70;
- setlower = 102;
- setupper = 70;
- break;
- case 'G':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 71;
- setlower = 103;
- setupper = 71;
- break;
- case 'H':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 72;
- setlower = 104;
- setupper = 72;
- break;
- case 'I':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 73;
- setlower = 105;
- setupper = 73;
- break;
- case 'J':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 74;
- setlower = 106;
- setupper = 74;
- break;
- case 'K':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 75;
- setlower = 107;
- setupper = 75;
- break;
- case 'L':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 76;
- setlower = 108;
- setupper = 76;
- break;
- case 'M':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 77;
- setlower = 109;
- setupper = 77;
- break;
- case 'N':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 78;
- setlower = 110;
- setupper = 78;
- break;
- case 'O':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 79;
- setlower = 111;
- setupper = 79;
- break;
- case 'P':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 80;
- setlower = 112;
- setupper = 80;
- break;
- case 'Q':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 81;
- setlower = 113;
- setupper = 81;
- break;
- case 'R':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 82;
- setlower = 114;
- setupper = 82;
- break;
- case 'S':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 83;
- setlower = 115;
- setupper = 83;
- break;
- case 'T':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 84;
- setlower = 116;
- setupper = 84;
- break;
- case 'U':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 85;
- setlower = 117;
- setupper = 85;
- break;
- case 'V':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 86;
- setlower = 118;
- setupper = 86;
- break;
- case 'W':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 87;
- setlower = 119;
- setupper = 87;
- break;
- case 'X':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 88;
- setlower = 120;
- setupper = 88;
- break;
- case 'Y':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 89;
- setlower = 121;
- setupper = 89;
- break;
- case 'Z':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- myupper = 1;
- setascii = 90;
- setlower = 122;
- setupper = 90;
- break;
- case '[':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 91;
- setlower = 91;
- setupper = 91;
- break;
- case '\\':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 92;
- setlower = 92;
- setupper = 92;
- break;
- case ']':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 93;
- setlower = 93;
- setupper = 93;
- break;
- case '^':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 94;
- setlower = 94;
- setupper = 94;
- break;
- case '_':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 95;
- setlower = 95;
- setupper = 95;
- break;
- case '`':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 96;
- setlower = 96;
- setupper = 96;
- break;
- case 'a':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 97;
- setlower = 97;
- setupper = 65;
- break;
- case 'b':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 98;
- setlower = 98;
- setupper = 66;
- break;
- case 'c':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 99;
- setlower = 99;
- setupper = 67;
- break;
- case 'd':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 100;
- setlower = 100;
- setupper = 68;
- break;
- case 'e':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 101;
- setlower = 101;
- setupper = 69;
- break;
- case 'f':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- myxdigit = 1;
- setascii = 102;
- setlower = 102;
- setupper = 70;
- break;
- case 'g':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 103;
- setlower = 103;
- setupper = 71;
- break;
- case 'h':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 104;
- setlower = 104;
- setupper = 72;
- break;
- case 'i':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 105;
- setlower = 105;
- setupper = 73;
- break;
- case 'j':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 106;
- setlower = 106;
- setupper = 74;
- break;
- case 'k':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 107;
- setlower = 107;
- setupper = 75;
- break;
- case 'l':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 108;
- setlower = 108;
- setupper = 76;
- break;
- case 'm':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 109;
- setlower = 109;
- setupper = 77;
- break;
- case 'n':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 110;
- setlower = 110;
- setupper = 78;
- break;
- case 'o':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 111;
- setlower = 111;
- setupper = 79;
- break;
- case 'p':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 112;
- setlower = 112;
- setupper = 80;
- break;
- case 'q':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 113;
- setlower = 113;
- setupper = 81;
- break;
- case 'r':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 114;
- setlower = 114;
- setupper = 82;
- break;
- case 's':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 115;
- setlower = 115;
- setupper = 83;
- break;
- case 't':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 116;
- setlower = 116;
- setupper = 84;
- break;
- case 'u':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 117;
- setlower = 117;
- setupper = 85;
- break;
- case 'v':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 118;
- setlower = 118;
- setupper = 86;
- break;
- case 'w':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 119;
- setlower = 119;
- setupper = 87;
- break;
- case 'x':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 120;
- setlower = 120;
- setupper = 88;
- break;
- case 'y':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 121;
- setlower = 121;
- setupper = 89;
- break;
- case 'z':
- myalnum = 1;
- myalpha = 1;
- myascii = 1;
- mygraph = 1;
- mylower = 1;
- myprint = 1;
- setascii = 122;
- setlower = 122;
- setupper = 90;
- break;
- case '{':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 123;
- setlower = 123;
- setupper = 123;
- break;
- case '|':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 124;
- setlower = 124;
- setupper = 124;
- break;
- case '}':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 125;
- setlower = 125;
- setupper = 125;
- break;
- case '~':
- myascii = 1;
- mygraph = 1;
- myprint = 1;
- mypunct = 1;
- setascii = 126;
- setlower = 126;
- setupper = 126;
- break;
- case 0177:
- myascii = 1;
- mycntrl = 1;
- setascii = 127;
- setlower = 127;
- setupper = 127;
- break;
- case 0200:
- setascii = 0;
- setlower = 128;
- setupper = 128;
- break;
- case 0201:
- setascii = 1;
- setlower = 129;
- setupper = 129;
- break;
- case 0202:
- setascii = 2;
- setlower = 130;
- setupper = 130;
- break;
- case 0203:
- setascii = 3;
- setlower = 131;
- setupper = 131;
- break;
- case 0204:
- setascii = 4;
- setlower = 132;
- setupper = 132;
- break;
- case 0205:
- setascii = 5;
- setlower = 133;
- setupper = 133;
- break;
- case 0206:
- setascii = 6;
- setlower = 134;
- setupper = 134;
- break;
- case 0207:
- setascii = 7;
- setlower = 135;
- setupper = 135;
- break;
- case 0210:
- setascii = 8;
- setlower = 136;
- setupper = 136;
- break;
- case 0211:
- setascii = 9;
- setlower = 137;
- setupper = 137;
- break;
- case 0212:
- setascii = 10;
- setlower = 138;
- setupper = 138;
- break;
- case 0213:
- setascii = 11;
- setlower = 139;
- setupper = 139;
- break;
- case 0214:
- setascii = 12;
- setlower = 140;
- setupper = 140;
- break;
- case 0215:
- setascii = 13;
- setlower = 141;
- setupper = 141;
- break;
- case 0216:
- setascii = 14;
- setlower = 142;
- setupper = 142;
- break;
- case 0217:
- setascii = 15;
- setlower = 143;
- setupper = 143;
- break;
- case 0220:
- setascii = 16;
- setlower = 144;
- setupper = 144;
- break;
- case 0221:
- setascii = 17;
- setlower = 145;
- setupper = 145;
- break;
- case 0222:
- setascii = 18;
- setlower = 146;
- setupper = 146;
- break;
- case 0223:
- setascii = 19;
- setlower = 147;
- setupper = 147;
- break;
- case 0224:
- setascii = 20;
- setlower = 148;
- setupper = 148;
- break;
- case 0225:
- setascii = 21;
- setlower = 149;
- setupper = 149;
- break;
- case 0226:
- setascii = 22;
- setlower = 150;
- setupper = 150;
- break;
- case 0227:
- setascii = 23;
- setlower = 151;
- setupper = 151;
- break;
- case 0230:
- setascii = 24;
- setlower = 152;
- setupper = 152;
- break;
- case 0231:
- setascii = 25;
- setlower = 153;
- setupper = 153;
- break;
- case 0232:
- setascii = 26;
- setlower = 154;
- setupper = 154;
- break;
- case 0233:
- setascii = 27;
- setlower = 155;
- setupper = 155;
- break;
- case 0234:
- setascii = 28;
- setlower = 156;
- setupper = 156;
- break;
- case 0235:
- setascii = 29;
- setlower = 157;
- setupper = 157;
- break;
- case 0236:
- setascii = 30;
- setlower = 158;
- setupper = 158;
- break;
- case 0237:
- setascii = 31;
- setlower = 159;
- setupper = 159;
- break;
- case 0240:
- setascii = 32;
- setlower = 160;
- setupper = 160;
- break;
- case 0241:
- setascii = 33;
- setlower = 161;
- setupper = 161;
- break;
- case 0242:
- setascii = 34;
- setlower = 162;
- setupper = 162;
- break;
- case 0243:
- setascii = 35;
- setlower = 163;
- setupper = 163;
- break;
- case 0244:
- setascii = 36;
- setlower = 164;
- setupper = 164;
- break;
- case 0245:
- setascii = 37;
- setlower = 165;
- setupper = 165;
- break;
- case 0246:
- setascii = 38;
- setlower = 166;
- setupper = 166;
- break;
- case 0247:
- setascii = 39;
- setlower = 167;
- setupper = 167;
- break;
- case 0250:
- setascii = 40;
- setlower = 168;
- setupper = 168;
- break;
- case 0251:
- setascii = 41;
- setlower = 169;
- setupper = 169;
- break;
- case 0252:
- setascii = 42;
- setlower = 170;
- setupper = 170;
- break;
- case 0253:
- setascii = 43;
- setlower = 171;
- setupper = 171;
- break;
- case 0254:
- setascii = 44;
- setlower = 172;
- setupper = 172;
- break;
- case 0255:
- setascii = 45;
- setlower = 173;
- setupper = 173;
- break;
- case 0256:
- setascii = 46;
- setlower = 174;
- setupper = 174;
- break;
- case 0257:
- setascii = 47;
- setlower = 175;
- setupper = 175;
- break;
- case 0260:
- setascii = 48;
- setlower = 176;
- setupper = 176;
- break;
- case 0261:
- setascii = 49;
- setlower = 177;
- setupper = 177;
- break;
- case 0262:
- setascii = 50;
- setlower = 178;
- setupper = 178;
- break;
- case 0263:
- setascii = 51;
- setlower = 179;
- setupper = 179;
- break;
- case 0264:
- setascii = 52;
- setlower = 180;
- setupper = 180;
- break;
- case 0265:
- setascii = 53;
- setlower = 181;
- setupper = 181;
- break;
- case 0266:
- setascii = 54;
- setlower = 182;
- setupper = 182;
- break;
- case 0267:
- setascii = 55;
- setlower = 183;
- setupper = 183;
- break;
- case 0270:
- setascii = 56;
- setlower = 184;
- setupper = 184;
- break;
- case 0271:
- setascii = 57;
- setlower = 185;
- setupper = 185;
- break;
- case 0272:
- setascii = 58;
- setlower = 186;
- setupper = 186;
- break;
- case 0273:
- setascii = 59;
- setlower = 187;
- setupper = 187;
- break;
- case 0274:
- setascii = 60;
- setlower = 188;
- setupper = 188;
- break;
- case 0275:
- setascii = 61;
- setlower = 189;
- setupper = 189;
- break;
- case 0276:
- setascii = 62;
- setlower = 190;
- setupper = 190;
- break;
- case 0277:
- setascii = 63;
- setlower = 191;
- setupper = 191;
- break;
- case 0300:
- setascii = 64;
- setlower = 192;
- setupper = 192;
- break;
- case 0301:
- setascii = 65;
- setlower = 193;
- setupper = 193;
- break;
- case 0302:
- setascii = 66;
- setlower = 194;
- setupper = 194;
- break;
- case 0303:
- setascii = 67;
- setlower = 195;
- setupper = 195;
- break;
- case 0304:
- setascii = 68;
- setlower = 196;
- setupper = 196;
- break;
- case 0305:
- setascii = 69;
- setlower = 197;
- setupper = 197;
- break;
- case 0306:
- setascii = 70;
- setlower = 198;
- setupper = 198;
- break;
- case 0307:
- setascii = 71;
- setlower = 199;
- setupper = 199;
- break;
- case 0310:
- setascii = 72;
- setlower = 200;
- setupper = 200;
- break;
- case 0311:
- setascii = 73;
- setlower = 201;
- setupper = 201;
- break;
- case 0312:
- setascii = 74;
- setlower = 202;
- setupper = 202;
- break;
- case 0313:
- setascii = 75;
- setlower = 203;
- setupper = 203;
- break;
- case 0314:
- setascii = 76;
- setlower = 204;
- setupper = 204;
- break;
- case 0315:
- setascii = 77;
- setlower = 205;
- setupper = 205;
- break;
- case 0316:
- setascii = 78;
- setlower = 206;
- setupper = 206;
- break;
- case 0317:
- setascii = 79;
- setlower = 207;
- setupper = 207;
- break;
- case 0320:
- setascii = 80;
- setlower = 208;
- setupper = 208;
- break;
- case 0321:
- setascii = 81;
- setlower = 209;
- setupper = 209;
- break;
- case 0322:
- setascii = 82;
- setlower = 210;
- setupper = 210;
- break;
- case 0323:
- setascii = 83;
- setlower = 211;
- setupper = 211;
- break;
- case 0324:
- setascii = 84;
- setlower = 212;
- setupper = 212;
- break;
- case 0325:
- setascii = 85;
- setlower = 213;
- setupper = 213;
- break;
- case 0326:
- setascii = 86;
- setlower = 214;
- setupper = 214;
- break;
- case 0327:
- setascii = 87;
- setlower = 215;
- setupper = 215;
- break;
- case 0330:
- setascii = 88;
- setlower = 216;
- setupper = 216;
- break;
- case 0331:
- setascii = 89;
- setlower = 217;
- setupper = 217;
- break;
- case 0332:
- setascii = 90;
- setlower = 218;
- setupper = 218;
- break;
- case 0333:
- setascii = 91;
- setlower = 219;
- setupper = 219;
- break;
- case 0334:
- setascii = 92;
- setlower = 220;
- setupper = 220;
- break;
- case 0335:
- setascii = 93;
- setlower = 221;
- setupper = 221;
- break;
- case 0336:
- setascii = 94;
- setlower = 222;
- setupper = 222;
- break;
- case 0337:
- setascii = 95;
- setlower = 223;
- setupper = 223;
- break;
- case 0340:
- setascii = 96;
- setlower = 224;
- setupper = 224;
- break;
- case 0341:
- setascii = 97;
- setlower = 225;
- setupper = 225;
- break;
- case 0342:
- setascii = 98;
- setlower = 226;
- setupper = 226;
- break;
- case 0343:
- setascii = 99;
- setlower = 227;
- setupper = 227;
- break;
- case 0344:
- setascii = 100;
- setlower = 228;
- setupper = 228;
- break;
- case 0345:
- setascii = 101;
- setlower = 229;
- setupper = 229;
- break;
- case 0346:
- setascii = 102;
- setlower = 230;
- setupper = 230;
- break;
- case 0347:
- setascii = 103;
- setlower = 231;
- setupper = 231;
- break;
- case 0350:
- setascii = 104;
- setlower = 232;
- setupper = 232;
- break;
- case 0351:
- setascii = 105;
- setlower = 233;
- setupper = 233;
- break;
- case 0352:
- setascii = 106;
- setlower = 234;
- setupper = 234;
- break;
- case 0353:
- setascii = 107;
- setlower = 235;
- setupper = 235;
- break;
- case 0354:
- setascii = 108;
- setlower = 236;
- setupper = 236;
- break;
- case 0355:
- setascii = 109;
- setlower = 237;
- setupper = 237;
- break;
- case 0356:
- setascii = 110;
- setlower = 238;
- setupper = 238;
- break;
- case 0357:
- setascii = 111;
- setlower = 239;
- setupper = 239;
- break;
- case 0360:
- setascii = 112;
- setlower = 240;
- setupper = 240;
- break;
- case 0361:
- setascii = 113;
- setlower = 241;
- setupper = 241;
- break;
- case 0362:
- setascii = 114;
- setlower = 242;
- setupper = 242;
- break;
- case 0363:
- setascii = 115;
- setlower = 243;
- setupper = 243;
- break;
- case 0364:
- setascii = 116;
- setlower = 244;
- setupper = 244;
- break;
- case 0365:
- setascii = 117;
- setlower = 245;
- setupper = 245;
- break;
- case 0366:
- setascii = 118;
- setlower = 246;
- setupper = 246;
- break;
- case 0367:
- setascii = 119;
- setlower = 247;
- setupper = 247;
- break;
- case 0370:
- setascii = 120;
- setlower = 248;
- setupper = 248;
- break;
- case 0371:
- setascii = 121;
- setlower = 249;
- setupper = 249;
- break;
- case 0372:
- setascii = 122;
- setlower = 250;
- setupper = 250;
- break;
- case 0373:
- setascii = 123;
- setlower = 251;
- setupper = 251;
- break;
- case 0374:
- setascii = 124;
- setlower = 252;
- setupper = 252;
- break;
- case 0375:
- setascii = 125;
- setlower = 253;
- setupper = 253;
- break;
- case 0376:
- setascii = 126;
- setlower = 254;
- setupper = 254;
- break;
- case 0377:
- setascii = 127;
- setlower = 255;
- setupper = 255;
- break;
- default:
- abort();
-
- }
-
-}
-
-
-int _DEFUN(def_isascii,(i), int i) { return isascii(i); }
-int _DEFUN(def_iscntrl,(i), int i) { return iscntrl(i); }
-int _DEFUN(def_isspace,(i), int i) { return isspace(i); }
-int _DEFUN(def_isprint,(i), int i) { return isprint(i); }
-int _DEFUN(def_isalnum,(i), int i) { return isalnum(i); }
-int _DEFUN(def_isdigit,(i), int i) { return isdigit(i); }
-int _DEFUN(def_isxdigit,(i), int i) { return isxdigit(i); }
-int _DEFUN(def_isalpha,(i), int i) { return isalpha(i); }
-int _DEFUN(def_isupper,(i), int i) { return isupper(i); }
-int _DEFUN(def_islower,(i), int i) { return islower(i); }
-int _DEFUN(def_isgraph,(i), int i) { return isgraph(i); }
-int _DEFUN(def_ispunct,(i), int i) { return ispunct(i); }
-int _DEFUN(def_tolower,(i), int i) { return tolower(i); }
-int _DEFUN(def_toupper,(i), int i) { return toupper(i); }
-int _DEFUN(def_toascii,(i), int i) { return toascii(i); }
-int _DEFUN(def__tolower,(i), int i) { return _tolower(i); }
-int _DEFUN(def__toupper,(i), int i) { return _toupper(i); }
-
-extern int inacc;
-void
-_DEFUN(test_is_set,(func, name, p),
- int (*func)() _AND
- char *name _AND
- int *p)
-{
- int i;
- newfunc(name);
- for (i = 0; i < 255; i++) {
- int r = func(i) != 0;
- line(i);
- test_is_single(i);
- if (*p != r)
- {
- printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p);
- inacc++;
- }
- }
-}
-void
-_DEFUN(test_to_set,(func, name, p, low, high),
- int (*func)() _AND
- char *name _AND
- int *p _AND
- int low _AND
- int high)
-{
- int i;
- newfunc(name);
- for (i = low; i <= high; i++) {
- int r = func(i) ;
- line(i);
- test_is_single(i);
- if (*p != r)
- {
- printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p);
- inacc++;
- }
- }
-}
-
-
-#undef isascii
-#undef iscntrl
-#undef isspace
-#undef isprint
-#undef isalnum
-#undef isdigit
-#undef isxdigit
-#undef isalpha
-#undef isupper
-#undef islower
-#undef isgraph
-#undef ispunct
-#undef tolower
-#undef toupper
-#undef toascii
-#undef _tolower
-#undef _toupper
-
-void
-_DEFUN_VOID(test_is)
-{
- test_is_set(def_isalnum, "isalnum define", &myalnum);
- test_is_set(def_isalpha, "isalpha define", &myalpha);
- test_is_set(def_isascii, "isascii define", &myascii);
- test_is_set(def_iscntrl, "iscntrl define", &mycntrl);
- test_is_set(def_isdigit, "isdigit define", &mydigit);
- test_is_set(def_isgraph, "isgraph define", &mygraph);
- test_is_set(def_islower, "islower define", &mylower);
- test_is_set(def_isprint, "isprint define", &myprint);
- test_is_set(def_ispunct, "ispunct define", &mypunct);
- test_is_set(def_isspace, "isspace define", &myspace);
- test_is_set(def_isupper, "isupper define", &myupper);
- test_is_set(def_isxdigit, "isxdigit define", &myxdigit);
- test_is_set(isalnum, "isalnum function", &myalnum);
- test_is_set(isalpha, "isalpha function", &myalpha);
- test_is_set(isascii, "isascii function", &myascii);
- test_is_set(iscntrl, "iscntrl function", &mycntrl);
- test_is_set(isgraph, "isgraph function", &mygraph);
- test_is_set(islower, "islower function", &mylower);
- test_is_set(isprint, "isprint function", &myprint);
- test_is_set(ispunct, "ispunct function", &mypunct);
- test_is_set(isspace, "isspace function", &myspace);
- test_is_set(isupper, "isupper function", &myupper);
- test_is_set(isxdigit, "isxdigit function", &myxdigit);
- test_to_set(_tolower, "_tolower function", &setlower, 'A','Z');
- test_to_set(_toupper, "_toupper function", &setupper, 'a','z');
- test_to_set(def__tolower, "_tolower define", &setlower, 'A','Z');
- test_to_set(def__toupper, "_toupper define", &setupper, 'a','z');
- test_to_set(def_toascii, "toascii define", &setascii, 0,255);
- test_to_set(def_tolower, "tolower define", &setlower, 0,255);
- test_to_set(def_toupper, "toupper define", &setupper, 0,255);
- test_to_set(toascii, "toascii function", &setascii, 0,255);
- test_to_set(tolower, "tolower function", &setlower, 0,255);
- test_to_set(toupper, "toupper function", &setupper, 0,255);
-}