test_is.c

标准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;