2032 lines
38 KiB
C
2032 lines
38 KiB
C
#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);
|
|
}
|