summaryrefslogtreecommitdiff
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, 2031 insertions, 0 deletions
diff --git a/newlib/libm/test/test_is.c b/newlib/libm/test/test_is.c
new file mode 100644
index 00000000000..2e99becbf91
--- /dev/null
+++ b/newlib/libm/test/test_is.c
@@ -0,0 +1,2031 @@
+#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);
+}
View Lorry Controller Status