Subversion Repositories or1k

#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);
}