test_is.c

标准c库代码,可以应用于各个系统提供了大量的基本函数

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