1 /*
2  * Copyright (c) 1994 Cygnus Support.
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms are permitted
6  * provided that the above copyright notice and this paragraph are
7  * duplicated in all such forms and that any documentation,
8  * and/or other materials related to such
9  * distribution and use acknowledge that the software was developed
10  * at Cygnus Support, Inc.  Cygnus Support, Inc. may not be used to
11  * endorse or promote products derived from this software without
12  * specific prior written permission.
13  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16  */
17 #include "test.h"
18 #include <ctype.h>
19 #include <stdlib.h>
20 
21 int setascii;
22 int setlower;
23 int setupper;
24 int myascii;
25 int mycntrl;
26 int myspace;
27 int myprint;
28 int myalnum;
29 int mydigit;
30 int myxdigit;
31 int myalpha;
32 int myupper;
33 int mylower;
34 int mygraph;
35 int mypunct;
36 
37 void
test_is_single(int i)38 test_is_single (int i)
39 {
40   setascii = 0;
41   setlower = 0;
42   setupper = 0;
43 
44   myascii = 0;
45   mycntrl = 0;
46   myspace = 0;
47   myprint = 0;
48   myalnum = 0;
49   mydigit = 0;
50   myxdigit = 0;
51   myalpha = 0;
52   myupper = 0;
53   mylower = 0;
54   mygraph = 0;
55   mypunct = 0;
56 
57   switch (i) {
58     case 0000:
59       myascii = 1;
60       mycntrl = 1;
61       setascii = 0;
62       setlower = 0;
63       setupper = 0;
64       break;
65     case 0001:
66       myascii = 1;
67       mycntrl = 1;
68       setascii = 1;
69       setlower = 1;
70       setupper = 1;
71       break;
72     case 0002:
73       myascii = 1;
74       mycntrl = 1;
75       setascii = 2;
76       setlower = 2;
77       setupper = 2;
78       break;
79     case 0003:
80       myascii = 1;
81       mycntrl = 1;
82       setascii = 3;
83       setlower = 3;
84       setupper = 3;
85       break;
86     case 0004:
87       myascii = 1;
88       mycntrl = 1;
89       setascii = 4;
90       setlower = 4;
91       setupper = 4;
92       break;
93     case 0005:
94       myascii = 1;
95       mycntrl = 1;
96       setascii = 5;
97       setlower = 5;
98       setupper = 5;
99       break;
100     case 0006:
101       myascii = 1;
102       mycntrl = 1;
103       setascii = 6;
104       setlower = 6;
105       setupper = 6;
106       break;
107     case 0007:
108       myascii = 1;
109       mycntrl = 1;
110       setascii = 7;
111       setlower = 7;
112       setupper = 7;
113       break;
114     case 0010:
115       myascii = 1;
116       mycntrl = 1;
117       setascii = 8;
118       setlower = 8;
119       setupper = 8;
120       break;
121     case 0011:
122       myascii = 1;
123       mycntrl = 1;
124       myspace = 1;
125       setascii = 9;
126       setlower = 9;
127       setupper = 9;
128       break;
129     case 0012:
130       myascii = 1;
131       mycntrl = 1;
132       myspace = 1;
133       setascii = 10;
134       setlower = 10;
135       setupper = 10;
136       break;
137     case 0013:
138       myascii = 1;
139       mycntrl = 1;
140       myspace = 1;
141       setascii = 11;
142       setlower = 11;
143       setupper = 11;
144       break;
145     case 0014:
146       myascii = 1;
147       mycntrl = 1;
148       myspace = 1;
149       setascii = 12;
150       setlower = 12;
151       setupper = 12;
152       break;
153     case 0015:
154       myascii = 1;
155       mycntrl = 1;
156       myspace = 1;
157       setascii = 13;
158       setlower = 13;
159       setupper = 13;
160       break;
161     case 0016:
162       myascii = 1;
163       mycntrl = 1;
164       setascii = 14;
165       setlower = 14;
166       setupper = 14;
167       break;
168     case 0017:
169       myascii = 1;
170       mycntrl = 1;
171       setascii = 15;
172       setlower = 15;
173       setupper = 15;
174       break;
175     case 0020:
176       myascii = 1;
177       mycntrl = 1;
178       setascii = 16;
179       setlower = 16;
180       setupper = 16;
181       break;
182     case 0021:
183       myascii = 1;
184       mycntrl = 1;
185       setascii = 17;
186       setlower = 17;
187       setupper = 17;
188       break;
189     case 0022:
190       myascii = 1;
191       mycntrl = 1;
192       setascii = 18;
193       setlower = 18;
194       setupper = 18;
195       break;
196     case 0023:
197       myascii = 1;
198       mycntrl = 1;
199       setascii = 19;
200       setlower = 19;
201       setupper = 19;
202       break;
203     case 0024:
204       myascii = 1;
205       mycntrl = 1;
206       setascii = 20;
207       setlower = 20;
208       setupper = 20;
209       break;
210     case 0025:
211       myascii = 1;
212       mycntrl = 1;
213       setascii = 21;
214       setlower = 21;
215       setupper = 21;
216       break;
217     case 0026:
218       myascii = 1;
219       mycntrl = 1;
220       setascii = 22;
221       setlower = 22;
222       setupper = 22;
223       break;
224     case 0027:
225       myascii = 1;
226       mycntrl = 1;
227       setascii = 23;
228       setlower = 23;
229       setupper = 23;
230       break;
231     case 0030:
232       myascii = 1;
233       mycntrl = 1;
234       setascii = 24;
235       setlower = 24;
236       setupper = 24;
237       break;
238     case 0031:
239       myascii = 1;
240       mycntrl = 1;
241       setascii = 25;
242       setlower = 25;
243       setupper = 25;
244       break;
245     case 0032:
246       myascii = 1;
247       mycntrl = 1;
248       setascii = 26;
249       setlower = 26;
250       setupper = 26;
251       break;
252     case 0033:
253       myascii = 1;
254       mycntrl = 1;
255       setascii = 27;
256       setlower = 27;
257       setupper = 27;
258       break;
259     case 0034:
260       myascii = 1;
261       mycntrl = 1;
262       setascii = 28;
263       setlower = 28;
264       setupper = 28;
265       break;
266     case 0035:
267       myascii = 1;
268       mycntrl = 1;
269       setascii = 29;
270       setlower = 29;
271       setupper = 29;
272       break;
273     case 0036:
274       myascii = 1;
275       mycntrl = 1;
276       setascii = 30;
277       setlower = 30;
278       setupper = 30;
279       break;
280     case 0037:
281       myascii = 1;
282       mycntrl = 1;
283       setascii = 31;
284       setlower = 31;
285       setupper = 31;
286       break;
287     case ' ':
288       myascii = 1;
289       myprint = 1;
290       myspace = 1;
291       setascii = 32;
292       setlower = 32;
293       setupper = 32;
294       break;
295     case '!':
296       myascii = 1;
297       mygraph = 1;
298       myprint = 1;
299       mypunct = 1;
300       setascii = 33;
301       setlower = 33;
302       setupper = 33;
303       break;
304     case '"':
305       myascii = 1;
306       mygraph = 1;
307       myprint = 1;
308       mypunct = 1;
309       setascii = 34;
310       setlower = 34;
311       setupper = 34;
312       break;
313     case '#':
314       myascii = 1;
315       mygraph = 1;
316       myprint = 1;
317       mypunct = 1;
318       setascii = 35;
319       setlower = 35;
320       setupper = 35;
321       break;
322     case '$':
323       myascii = 1;
324       mygraph = 1;
325       myprint = 1;
326       mypunct = 1;
327       setascii = 36;
328       setlower = 36;
329       setupper = 36;
330       break;
331     case '%':
332       myascii = 1;
333       mygraph = 1;
334       myprint = 1;
335       mypunct = 1;
336       setascii = 37;
337       setlower = 37;
338       setupper = 37;
339       break;
340     case '&':
341       myascii = 1;
342       mygraph = 1;
343       myprint = 1;
344       mypunct = 1;
345       setascii = 38;
346       setlower = 38;
347       setupper = 38;
348       break;
349     case '\'':
350       myascii = 1;
351       mygraph = 1;
352       myprint = 1;
353       mypunct = 1;
354       setascii = 39;
355       setlower = 39;
356       setupper = 39;
357       break;
358     case '(':
359       myascii = 1;
360       mygraph = 1;
361       myprint = 1;
362       mypunct = 1;
363       setascii = 40;
364       setlower = 40;
365       setupper = 40;
366       break;
367     case ')':
368       myascii = 1;
369       mygraph = 1;
370       myprint = 1;
371       mypunct = 1;
372       setascii = 41;
373       setlower = 41;
374       setupper = 41;
375       break;
376     case '*':
377       myascii = 1;
378       mygraph = 1;
379       myprint = 1;
380       mypunct = 1;
381       setascii = 42;
382       setlower = 42;
383       setupper = 42;
384       break;
385     case '+':
386       myascii = 1;
387       mygraph = 1;
388       myprint = 1;
389       mypunct = 1;
390       setascii = 43;
391       setlower = 43;
392       setupper = 43;
393       break;
394     case ',':
395       myascii = 1;
396       mygraph = 1;
397       myprint = 1;
398       mypunct = 1;
399       setascii = 44;
400       setlower = 44;
401       setupper = 44;
402       break;
403     case '-':
404       myascii = 1;
405       mygraph = 1;
406       myprint = 1;
407       mypunct = 1;
408       setascii = 45;
409       setlower = 45;
410       setupper = 45;
411       break;
412     case '.':
413       myascii = 1;
414       mygraph = 1;
415       myprint = 1;
416       mypunct = 1;
417       setascii = 46;
418       setlower = 46;
419       setupper = 46;
420       break;
421     case '/':
422       myascii = 1;
423       mygraph = 1;
424       myprint = 1;
425       mypunct = 1;
426       setascii = 47;
427       setlower = 47;
428       setupper = 47;
429       break;
430     case '0':
431       myalnum = 1;
432       myascii = 1;
433       mydigit = 1;
434       mygraph = 1;
435       myprint = 1;
436       myxdigit = 1;
437       setascii = 48;
438       setlower = 48;
439       setupper = 48;
440       break;
441     case '1':
442       myalnum = 1;
443       myascii = 1;
444       mydigit = 1;
445       mygraph = 1;
446       myprint = 1;
447       myxdigit = 1;
448       setascii = 49;
449       setlower = 49;
450       setupper = 49;
451       break;
452     case '2':
453       myalnum = 1;
454       myascii = 1;
455       mydigit = 1;
456       mygraph = 1;
457       myprint = 1;
458       myxdigit = 1;
459       setascii = 50;
460       setlower = 50;
461       setupper = 50;
462       break;
463     case '3':
464       myalnum = 1;
465       myascii = 1;
466       mydigit = 1;
467       mygraph = 1;
468       myprint = 1;
469       myxdigit = 1;
470       setascii = 51;
471       setlower = 51;
472       setupper = 51;
473       break;
474     case '4':
475       myalnum = 1;
476       myascii = 1;
477       mydigit = 1;
478       mygraph = 1;
479       myprint = 1;
480       myxdigit = 1;
481       setascii = 52;
482       setlower = 52;
483       setupper = 52;
484       break;
485     case '5':
486       myalnum = 1;
487       myascii = 1;
488       mydigit = 1;
489       mygraph = 1;
490       myprint = 1;
491       myxdigit = 1;
492       setascii = 53;
493       setlower = 53;
494       setupper = 53;
495       break;
496     case '6':
497       myalnum = 1;
498       myascii = 1;
499       mydigit = 1;
500       mygraph = 1;
501       myprint = 1;
502       myxdigit = 1;
503       setascii = 54;
504       setlower = 54;
505       setupper = 54;
506       break;
507     case '7':
508       myalnum = 1;
509       myascii = 1;
510       mydigit = 1;
511       mygraph = 1;
512       myprint = 1;
513       myxdigit = 1;
514       setascii = 55;
515       setlower = 55;
516       setupper = 55;
517       break;
518     case '8':
519       myalnum = 1;
520       myascii = 1;
521       mydigit = 1;
522       mygraph = 1;
523       myprint = 1;
524       myxdigit = 1;
525       setascii = 56;
526       setlower = 56;
527       setupper = 56;
528       break;
529     case '9':
530       myalnum = 1;
531       myascii = 1;
532       mydigit = 1;
533       mygraph = 1;
534       myprint = 1;
535       myxdigit = 1;
536       setascii = 57;
537       setlower = 57;
538       setupper = 57;
539       break;
540     case ':':
541       myascii = 1;
542       mygraph = 1;
543       myprint = 1;
544       mypunct = 1;
545       setascii = 58;
546       setlower = 58;
547       setupper = 58;
548       break;
549     case ';':
550       myascii = 1;
551       mygraph = 1;
552       myprint = 1;
553       mypunct = 1;
554       setascii = 59;
555       setlower = 59;
556       setupper = 59;
557       break;
558     case '<':
559       myascii = 1;
560       mygraph = 1;
561       myprint = 1;
562       mypunct = 1;
563       setascii = 60;
564       setlower = 60;
565       setupper = 60;
566       break;
567     case '=':
568       myascii = 1;
569       mygraph = 1;
570       myprint = 1;
571       mypunct = 1;
572       setascii = 61;
573       setlower = 61;
574       setupper = 61;
575       break;
576     case '>':
577       myascii = 1;
578       mygraph = 1;
579       myprint = 1;
580       mypunct = 1;
581       setascii = 62;
582       setlower = 62;
583       setupper = 62;
584       break;
585     case '?':
586       myascii = 1;
587       mygraph = 1;
588       myprint = 1;
589       mypunct = 1;
590       setascii = 63;
591       setlower = 63;
592       setupper = 63;
593       break;
594     case '@':
595       myascii = 1;
596       mygraph = 1;
597       myprint = 1;
598       mypunct = 1;
599       setascii = 64;
600       setlower = 64;
601       setupper = 64;
602       break;
603     case 'A':
604       myalnum = 1;
605       myalpha = 1;
606       myascii = 1;
607       mygraph = 1;
608       myprint = 1;
609       myupper = 1;
610       myxdigit = 1;
611       setascii = 65;
612       setlower = 97;
613       setupper = 65;
614       break;
615     case 'B':
616       myalnum = 1;
617       myalpha = 1;
618       myascii = 1;
619       mygraph = 1;
620       myprint = 1;
621       myupper = 1;
622       myxdigit = 1;
623       setascii = 66;
624       setlower = 98;
625       setupper = 66;
626       break;
627     case 'C':
628       myalnum = 1;
629       myalpha = 1;
630       myascii = 1;
631       mygraph = 1;
632       myprint = 1;
633       myupper = 1;
634       myxdigit = 1;
635       setascii = 67;
636       setlower = 99;
637       setupper = 67;
638       break;
639     case 'D':
640       myalnum = 1;
641       myalpha = 1;
642       myascii = 1;
643       mygraph = 1;
644       myprint = 1;
645       myupper = 1;
646       myxdigit = 1;
647       setascii = 68;
648       setlower = 100;
649       setupper = 68;
650       break;
651     case 'E':
652       myalnum = 1;
653       myalpha = 1;
654       myascii = 1;
655       mygraph = 1;
656       myprint = 1;
657       myupper = 1;
658       myxdigit = 1;
659       setascii = 69;
660       setlower = 101;
661       setupper = 69;
662       break;
663     case 'F':
664       myalnum = 1;
665       myalpha = 1;
666       myascii = 1;
667       mygraph = 1;
668       myprint = 1;
669       myupper = 1;
670       myxdigit = 1;
671       setascii = 70;
672       setlower = 102;
673       setupper = 70;
674       break;
675     case 'G':
676       myalnum = 1;
677       myalpha = 1;
678       myascii = 1;
679       mygraph = 1;
680       myprint = 1;
681       myupper = 1;
682       setascii = 71;
683       setlower = 103;
684       setupper = 71;
685       break;
686     case 'H':
687       myalnum = 1;
688       myalpha = 1;
689       myascii = 1;
690       mygraph = 1;
691       myprint = 1;
692       myupper = 1;
693       setascii = 72;
694       setlower = 104;
695       setupper = 72;
696       break;
697     case 'I':
698       myalnum = 1;
699       myalpha = 1;
700       myascii = 1;
701       mygraph = 1;
702       myprint = 1;
703       myupper = 1;
704       setascii = 73;
705       setlower = 105;
706       setupper = 73;
707       break;
708     case 'J':
709       myalnum = 1;
710       myalpha = 1;
711       myascii = 1;
712       mygraph = 1;
713       myprint = 1;
714       myupper = 1;
715       setascii = 74;
716       setlower = 106;
717       setupper = 74;
718       break;
719     case 'K':
720       myalnum = 1;
721       myalpha = 1;
722       myascii = 1;
723       mygraph = 1;
724       myprint = 1;
725       myupper = 1;
726       setascii = 75;
727       setlower = 107;
728       setupper = 75;
729       break;
730     case 'L':
731       myalnum = 1;
732       myalpha = 1;
733       myascii = 1;
734       mygraph = 1;
735       myprint = 1;
736       myupper = 1;
737       setascii = 76;
738       setlower = 108;
739       setupper = 76;
740       break;
741     case 'M':
742       myalnum = 1;
743       myalpha = 1;
744       myascii = 1;
745       mygraph = 1;
746       myprint = 1;
747       myupper = 1;
748       setascii = 77;
749       setlower = 109;
750       setupper = 77;
751       break;
752     case 'N':
753       myalnum = 1;
754       myalpha = 1;
755       myascii = 1;
756       mygraph = 1;
757       myprint = 1;
758       myupper = 1;
759       setascii = 78;
760       setlower = 110;
761       setupper = 78;
762       break;
763     case 'O':
764       myalnum = 1;
765       myalpha = 1;
766       myascii = 1;
767       mygraph = 1;
768       myprint = 1;
769       myupper = 1;
770       setascii = 79;
771       setlower = 111;
772       setupper = 79;
773       break;
774     case 'P':
775       myalnum = 1;
776       myalpha = 1;
777       myascii = 1;
778       mygraph = 1;
779       myprint = 1;
780       myupper = 1;
781       setascii = 80;
782       setlower = 112;
783       setupper = 80;
784       break;
785     case 'Q':
786       myalnum = 1;
787       myalpha = 1;
788       myascii = 1;
789       mygraph = 1;
790       myprint = 1;
791       myupper = 1;
792       setascii = 81;
793       setlower = 113;
794       setupper = 81;
795       break;
796     case 'R':
797       myalnum = 1;
798       myalpha = 1;
799       myascii = 1;
800       mygraph = 1;
801       myprint = 1;
802       myupper = 1;
803       setascii = 82;
804       setlower = 114;
805       setupper = 82;
806       break;
807     case 'S':
808       myalnum = 1;
809       myalpha = 1;
810       myascii = 1;
811       mygraph = 1;
812       myprint = 1;
813       myupper = 1;
814       setascii = 83;
815       setlower = 115;
816       setupper = 83;
817       break;
818     case 'T':
819       myalnum = 1;
820       myalpha = 1;
821       myascii = 1;
822       mygraph = 1;
823       myprint = 1;
824       myupper = 1;
825       setascii = 84;
826       setlower = 116;
827       setupper = 84;
828       break;
829     case 'U':
830       myalnum = 1;
831       myalpha = 1;
832       myascii = 1;
833       mygraph = 1;
834       myprint = 1;
835       myupper = 1;
836       setascii = 85;
837       setlower = 117;
838       setupper = 85;
839       break;
840     case 'V':
841       myalnum = 1;
842       myalpha = 1;
843       myascii = 1;
844       mygraph = 1;
845       myprint = 1;
846       myupper = 1;
847       setascii = 86;
848       setlower = 118;
849       setupper = 86;
850       break;
851     case 'W':
852       myalnum = 1;
853       myalpha = 1;
854       myascii = 1;
855       mygraph = 1;
856       myprint = 1;
857       myupper = 1;
858       setascii = 87;
859       setlower = 119;
860       setupper = 87;
861       break;
862     case 'X':
863       myalnum = 1;
864       myalpha = 1;
865       myascii = 1;
866       mygraph = 1;
867       myprint = 1;
868       myupper = 1;
869       setascii = 88;
870       setlower = 120;
871       setupper = 88;
872       break;
873     case 'Y':
874       myalnum = 1;
875       myalpha = 1;
876       myascii = 1;
877       mygraph = 1;
878       myprint = 1;
879       myupper = 1;
880       setascii = 89;
881       setlower = 121;
882       setupper = 89;
883       break;
884     case 'Z':
885       myalnum = 1;
886       myalpha = 1;
887       myascii = 1;
888       mygraph = 1;
889       myprint = 1;
890       myupper = 1;
891       setascii = 90;
892       setlower = 122;
893       setupper = 90;
894       break;
895     case '[':
896       myascii = 1;
897       mygraph = 1;
898       myprint = 1;
899       mypunct = 1;
900       setascii = 91;
901       setlower = 91;
902       setupper = 91;
903       break;
904     case '\\':
905       myascii = 1;
906       mygraph = 1;
907       myprint = 1;
908       mypunct = 1;
909       setascii = 92;
910       setlower = 92;
911       setupper = 92;
912       break;
913     case ']':
914       myascii = 1;
915       mygraph = 1;
916       myprint = 1;
917       mypunct = 1;
918       setascii = 93;
919       setlower = 93;
920       setupper = 93;
921       break;
922     case '^':
923       myascii = 1;
924       mygraph = 1;
925       myprint = 1;
926       mypunct = 1;
927       setascii = 94;
928       setlower = 94;
929       setupper = 94;
930       break;
931     case '_':
932       myascii = 1;
933       mygraph = 1;
934       myprint = 1;
935       mypunct = 1;
936       setascii = 95;
937       setlower = 95;
938       setupper = 95;
939       break;
940     case '`':
941       myascii = 1;
942       mygraph = 1;
943       myprint = 1;
944       mypunct = 1;
945       setascii = 96;
946       setlower = 96;
947       setupper = 96;
948       break;
949     case 'a':
950       myalnum = 1;
951       myalpha = 1;
952       myascii = 1;
953       mygraph = 1;
954       mylower = 1;
955       myprint = 1;
956       myxdigit = 1;
957       setascii = 97;
958       setlower = 97;
959       setupper = 65;
960       break;
961     case 'b':
962       myalnum = 1;
963       myalpha = 1;
964       myascii = 1;
965       mygraph = 1;
966       mylower = 1;
967       myprint = 1;
968       myxdigit = 1;
969       setascii = 98;
970       setlower = 98;
971       setupper = 66;
972       break;
973     case 'c':
974       myalnum = 1;
975       myalpha = 1;
976       myascii = 1;
977       mygraph = 1;
978       mylower = 1;
979       myprint = 1;
980       myxdigit = 1;
981       setascii = 99;
982       setlower = 99;
983       setupper = 67;
984       break;
985     case 'd':
986       myalnum = 1;
987       myalpha = 1;
988       myascii = 1;
989       mygraph = 1;
990       mylower = 1;
991       myprint = 1;
992       myxdigit = 1;
993       setascii = 100;
994       setlower = 100;
995       setupper = 68;
996       break;
997     case 'e':
998       myalnum = 1;
999       myalpha = 1;
1000       myascii = 1;
1001       mygraph = 1;
1002       mylower = 1;
1003       myprint = 1;
1004       myxdigit = 1;
1005       setascii = 101;
1006       setlower = 101;
1007       setupper = 69;
1008       break;
1009     case 'f':
1010       myalnum = 1;
1011       myalpha = 1;
1012       myascii = 1;
1013       mygraph = 1;
1014       mylower = 1;
1015       myprint = 1;
1016       myxdigit = 1;
1017       setascii = 102;
1018       setlower = 102;
1019       setupper = 70;
1020       break;
1021     case 'g':
1022       myalnum = 1;
1023       myalpha = 1;
1024       myascii = 1;
1025       mygraph = 1;
1026       mylower = 1;
1027       myprint = 1;
1028       setascii = 103;
1029       setlower = 103;
1030       setupper = 71;
1031       break;
1032     case 'h':
1033       myalnum = 1;
1034       myalpha = 1;
1035       myascii = 1;
1036       mygraph = 1;
1037       mylower = 1;
1038       myprint = 1;
1039       setascii = 104;
1040       setlower = 104;
1041       setupper = 72;
1042       break;
1043     case 'i':
1044       myalnum = 1;
1045       myalpha = 1;
1046       myascii = 1;
1047       mygraph = 1;
1048       mylower = 1;
1049       myprint = 1;
1050       setascii = 105;
1051       setlower = 105;
1052       setupper = 73;
1053       break;
1054     case 'j':
1055       myalnum = 1;
1056       myalpha = 1;
1057       myascii = 1;
1058       mygraph = 1;
1059       mylower = 1;
1060       myprint = 1;
1061       setascii = 106;
1062       setlower = 106;
1063       setupper = 74;
1064       break;
1065     case 'k':
1066       myalnum = 1;
1067       myalpha = 1;
1068       myascii = 1;
1069       mygraph = 1;
1070       mylower = 1;
1071       myprint = 1;
1072       setascii = 107;
1073       setlower = 107;
1074       setupper = 75;
1075       break;
1076     case 'l':
1077       myalnum = 1;
1078       myalpha = 1;
1079       myascii = 1;
1080       mygraph = 1;
1081       mylower = 1;
1082       myprint = 1;
1083       setascii = 108;
1084       setlower = 108;
1085       setupper = 76;
1086       break;
1087     case 'm':
1088       myalnum = 1;
1089       myalpha = 1;
1090       myascii = 1;
1091       mygraph = 1;
1092       mylower = 1;
1093       myprint = 1;
1094       setascii = 109;
1095       setlower = 109;
1096       setupper = 77;
1097       break;
1098     case 'n':
1099       myalnum = 1;
1100       myalpha = 1;
1101       myascii = 1;
1102       mygraph = 1;
1103       mylower = 1;
1104       myprint = 1;
1105       setascii = 110;
1106       setlower = 110;
1107       setupper = 78;
1108       break;
1109     case 'o':
1110       myalnum = 1;
1111       myalpha = 1;
1112       myascii = 1;
1113       mygraph = 1;
1114       mylower = 1;
1115       myprint = 1;
1116       setascii = 111;
1117       setlower = 111;
1118       setupper = 79;
1119       break;
1120     case 'p':
1121       myalnum = 1;
1122       myalpha = 1;
1123       myascii = 1;
1124       mygraph = 1;
1125       mylower = 1;
1126       myprint = 1;
1127       setascii = 112;
1128       setlower = 112;
1129       setupper = 80;
1130       break;
1131     case 'q':
1132       myalnum = 1;
1133       myalpha = 1;
1134       myascii = 1;
1135       mygraph = 1;
1136       mylower = 1;
1137       myprint = 1;
1138       setascii = 113;
1139       setlower = 113;
1140       setupper = 81;
1141       break;
1142     case 'r':
1143       myalnum = 1;
1144       myalpha = 1;
1145       myascii = 1;
1146       mygraph = 1;
1147       mylower = 1;
1148       myprint = 1;
1149       setascii = 114;
1150       setlower = 114;
1151       setupper = 82;
1152       break;
1153     case 's':
1154       myalnum = 1;
1155       myalpha = 1;
1156       myascii = 1;
1157       mygraph = 1;
1158       mylower = 1;
1159       myprint = 1;
1160       setascii = 115;
1161       setlower = 115;
1162       setupper = 83;
1163       break;
1164     case 't':
1165       myalnum = 1;
1166       myalpha = 1;
1167       myascii = 1;
1168       mygraph = 1;
1169       mylower = 1;
1170       myprint = 1;
1171       setascii = 116;
1172       setlower = 116;
1173       setupper = 84;
1174       break;
1175     case 'u':
1176       myalnum = 1;
1177       myalpha = 1;
1178       myascii = 1;
1179       mygraph = 1;
1180       mylower = 1;
1181       myprint = 1;
1182       setascii = 117;
1183       setlower = 117;
1184       setupper = 85;
1185       break;
1186     case 'v':
1187       myalnum = 1;
1188       myalpha = 1;
1189       myascii = 1;
1190       mygraph = 1;
1191       mylower = 1;
1192       myprint = 1;
1193       setascii = 118;
1194       setlower = 118;
1195       setupper = 86;
1196       break;
1197     case 'w':
1198       myalnum = 1;
1199       myalpha = 1;
1200       myascii = 1;
1201       mygraph = 1;
1202       mylower = 1;
1203       myprint = 1;
1204       setascii = 119;
1205       setlower = 119;
1206       setupper = 87;
1207       break;
1208     case 'x':
1209       myalnum = 1;
1210       myalpha = 1;
1211       myascii = 1;
1212       mygraph = 1;
1213       mylower = 1;
1214       myprint = 1;
1215       setascii = 120;
1216       setlower = 120;
1217       setupper = 88;
1218       break;
1219     case 'y':
1220       myalnum = 1;
1221       myalpha = 1;
1222       myascii = 1;
1223       mygraph = 1;
1224       mylower = 1;
1225       myprint = 1;
1226       setascii = 121;
1227       setlower = 121;
1228       setupper = 89;
1229       break;
1230     case 'z':
1231       myalnum = 1;
1232       myalpha = 1;
1233       myascii = 1;
1234       mygraph = 1;
1235       mylower = 1;
1236       myprint = 1;
1237       setascii = 122;
1238       setlower = 122;
1239       setupper = 90;
1240       break;
1241     case '{':
1242       myascii = 1;
1243       mygraph = 1;
1244       myprint = 1;
1245       mypunct = 1;
1246       setascii = 123;
1247       setlower = 123;
1248       setupper = 123;
1249       break;
1250     case '|':
1251       myascii = 1;
1252       mygraph = 1;
1253       myprint = 1;
1254       mypunct = 1;
1255       setascii = 124;
1256       setlower = 124;
1257       setupper = 124;
1258       break;
1259     case '}':
1260       myascii = 1;
1261       mygraph = 1;
1262       myprint = 1;
1263       mypunct = 1;
1264       setascii = 125;
1265       setlower = 125;
1266       setupper = 125;
1267       break;
1268     case '~':
1269       myascii = 1;
1270       mygraph = 1;
1271       myprint = 1;
1272       mypunct = 1;
1273       setascii = 126;
1274       setlower = 126;
1275       setupper = 126;
1276       break;
1277     case 0177:
1278       myascii = 1;
1279       mycntrl = 1;
1280       setascii = 127;
1281       setlower = 127;
1282       setupper = 127;
1283       break;
1284     case 0200:
1285       setascii = 0;
1286       setlower = 128;
1287       setupper = 128;
1288       break;
1289     case 0201:
1290       setascii = 1;
1291       setlower = 129;
1292       setupper = 129;
1293       break;
1294     case 0202:
1295       setascii = 2;
1296       setlower = 130;
1297       setupper = 130;
1298       break;
1299     case 0203:
1300       setascii = 3;
1301       setlower = 131;
1302       setupper = 131;
1303       break;
1304     case 0204:
1305       setascii = 4;
1306       setlower = 132;
1307       setupper = 132;
1308       break;
1309     case 0205:
1310       setascii = 5;
1311       setlower = 133;
1312       setupper = 133;
1313       break;
1314     case 0206:
1315       setascii = 6;
1316       setlower = 134;
1317       setupper = 134;
1318       break;
1319     case 0207:
1320       setascii = 7;
1321       setlower = 135;
1322       setupper = 135;
1323       break;
1324     case 0210:
1325       setascii = 8;
1326       setlower = 136;
1327       setupper = 136;
1328       break;
1329     case 0211:
1330       setascii = 9;
1331       setlower = 137;
1332       setupper = 137;
1333       break;
1334     case 0212:
1335       setascii = 10;
1336       setlower = 138;
1337       setupper = 138;
1338       break;
1339     case 0213:
1340       setascii = 11;
1341       setlower = 139;
1342       setupper = 139;
1343       break;
1344     case 0214:
1345       setascii = 12;
1346       setlower = 140;
1347       setupper = 140;
1348       break;
1349     case 0215:
1350       setascii = 13;
1351       setlower = 141;
1352       setupper = 141;
1353       break;
1354     case 0216:
1355       setascii = 14;
1356       setlower = 142;
1357       setupper = 142;
1358       break;
1359     case 0217:
1360       setascii = 15;
1361       setlower = 143;
1362       setupper = 143;
1363       break;
1364     case 0220:
1365       setascii = 16;
1366       setlower = 144;
1367       setupper = 144;
1368       break;
1369     case 0221:
1370       setascii = 17;
1371       setlower = 145;
1372       setupper = 145;
1373       break;
1374     case 0222:
1375       setascii = 18;
1376       setlower = 146;
1377       setupper = 146;
1378       break;
1379     case 0223:
1380       setascii = 19;
1381       setlower = 147;
1382       setupper = 147;
1383       break;
1384     case 0224:
1385       setascii = 20;
1386       setlower = 148;
1387       setupper = 148;
1388       break;
1389     case 0225:
1390       setascii = 21;
1391       setlower = 149;
1392       setupper = 149;
1393       break;
1394     case 0226:
1395       setascii = 22;
1396       setlower = 150;
1397       setupper = 150;
1398       break;
1399     case 0227:
1400       setascii = 23;
1401       setlower = 151;
1402       setupper = 151;
1403       break;
1404     case 0230:
1405       setascii = 24;
1406       setlower = 152;
1407       setupper = 152;
1408       break;
1409     case 0231:
1410       setascii = 25;
1411       setlower = 153;
1412       setupper = 153;
1413       break;
1414     case 0232:
1415       setascii = 26;
1416       setlower = 154;
1417       setupper = 154;
1418       break;
1419     case 0233:
1420       setascii = 27;
1421       setlower = 155;
1422       setupper = 155;
1423       break;
1424     case 0234:
1425       setascii = 28;
1426       setlower = 156;
1427       setupper = 156;
1428       break;
1429     case 0235:
1430       setascii = 29;
1431       setlower = 157;
1432       setupper = 157;
1433       break;
1434     case 0236:
1435       setascii = 30;
1436       setlower = 158;
1437       setupper = 158;
1438       break;
1439     case 0237:
1440       setascii = 31;
1441       setlower = 159;
1442       setupper = 159;
1443       break;
1444     case 0240:
1445       setascii = 32;
1446       setlower = 160;
1447       setupper = 160;
1448       break;
1449     case 0241:
1450       setascii = 33;
1451       setlower = 161;
1452       setupper = 161;
1453       break;
1454     case 0242:
1455       setascii = 34;
1456       setlower = 162;
1457       setupper = 162;
1458       break;
1459     case 0243:
1460       setascii = 35;
1461       setlower = 163;
1462       setupper = 163;
1463       break;
1464     case 0244:
1465       setascii = 36;
1466       setlower = 164;
1467       setupper = 164;
1468       break;
1469     case 0245:
1470       setascii = 37;
1471       setlower = 165;
1472       setupper = 165;
1473       break;
1474     case 0246:
1475       setascii = 38;
1476       setlower = 166;
1477       setupper = 166;
1478       break;
1479     case 0247:
1480       setascii = 39;
1481       setlower = 167;
1482       setupper = 167;
1483       break;
1484     case 0250:
1485       setascii = 40;
1486       setlower = 168;
1487       setupper = 168;
1488       break;
1489     case 0251:
1490       setascii = 41;
1491       setlower = 169;
1492       setupper = 169;
1493       break;
1494     case 0252:
1495       setascii = 42;
1496       setlower = 170;
1497       setupper = 170;
1498       break;
1499     case 0253:
1500       setascii = 43;
1501       setlower = 171;
1502       setupper = 171;
1503       break;
1504     case 0254:
1505       setascii = 44;
1506       setlower = 172;
1507       setupper = 172;
1508       break;
1509     case 0255:
1510       setascii = 45;
1511       setlower = 173;
1512       setupper = 173;
1513       break;
1514     case 0256:
1515       setascii = 46;
1516       setlower = 174;
1517       setupper = 174;
1518       break;
1519     case 0257:
1520       setascii = 47;
1521       setlower = 175;
1522       setupper = 175;
1523       break;
1524     case 0260:
1525       setascii = 48;
1526       setlower = 176;
1527       setupper = 176;
1528       break;
1529     case 0261:
1530       setascii = 49;
1531       setlower = 177;
1532       setupper = 177;
1533       break;
1534     case 0262:
1535       setascii = 50;
1536       setlower = 178;
1537       setupper = 178;
1538       break;
1539     case 0263:
1540       setascii = 51;
1541       setlower = 179;
1542       setupper = 179;
1543       break;
1544     case 0264:
1545       setascii = 52;
1546       setlower = 180;
1547       setupper = 180;
1548       break;
1549     case 0265:
1550       setascii = 53;
1551       setlower = 181;
1552       setupper = 181;
1553       break;
1554     case 0266:
1555       setascii = 54;
1556       setlower = 182;
1557       setupper = 182;
1558       break;
1559     case 0267:
1560       setascii = 55;
1561       setlower = 183;
1562       setupper = 183;
1563       break;
1564     case 0270:
1565       setascii = 56;
1566       setlower = 184;
1567       setupper = 184;
1568       break;
1569     case 0271:
1570       setascii = 57;
1571       setlower = 185;
1572       setupper = 185;
1573       break;
1574     case 0272:
1575       setascii = 58;
1576       setlower = 186;
1577       setupper = 186;
1578       break;
1579     case 0273:
1580       setascii = 59;
1581       setlower = 187;
1582       setupper = 187;
1583       break;
1584     case 0274:
1585       setascii = 60;
1586       setlower = 188;
1587       setupper = 188;
1588       break;
1589     case 0275:
1590       setascii = 61;
1591       setlower = 189;
1592       setupper = 189;
1593       break;
1594     case 0276:
1595       setascii = 62;
1596       setlower = 190;
1597       setupper = 190;
1598       break;
1599     case 0277:
1600       setascii = 63;
1601       setlower = 191;
1602       setupper = 191;
1603       break;
1604     case 0300:
1605       setascii = 64;
1606       setlower = 192;
1607       setupper = 192;
1608       break;
1609     case 0301:
1610       setascii = 65;
1611       setlower = 193;
1612       setupper = 193;
1613       break;
1614     case 0302:
1615       setascii = 66;
1616       setlower = 194;
1617       setupper = 194;
1618       break;
1619     case 0303:
1620       setascii = 67;
1621       setlower = 195;
1622       setupper = 195;
1623       break;
1624     case 0304:
1625       setascii = 68;
1626       setlower = 196;
1627       setupper = 196;
1628       break;
1629     case 0305:
1630       setascii = 69;
1631       setlower = 197;
1632       setupper = 197;
1633       break;
1634     case 0306:
1635       setascii = 70;
1636       setlower = 198;
1637       setupper = 198;
1638       break;
1639     case 0307:
1640       setascii = 71;
1641       setlower = 199;
1642       setupper = 199;
1643       break;
1644     case 0310:
1645       setascii = 72;
1646       setlower = 200;
1647       setupper = 200;
1648       break;
1649     case 0311:
1650       setascii = 73;
1651       setlower = 201;
1652       setupper = 201;
1653       break;
1654     case 0312:
1655       setascii = 74;
1656       setlower = 202;
1657       setupper = 202;
1658       break;
1659     case 0313:
1660       setascii = 75;
1661       setlower = 203;
1662       setupper = 203;
1663       break;
1664     case 0314:
1665       setascii = 76;
1666       setlower = 204;
1667       setupper = 204;
1668       break;
1669     case 0315:
1670       setascii = 77;
1671       setlower = 205;
1672       setupper = 205;
1673       break;
1674     case 0316:
1675       setascii = 78;
1676       setlower = 206;
1677       setupper = 206;
1678       break;
1679     case 0317:
1680       setascii = 79;
1681       setlower = 207;
1682       setupper = 207;
1683       break;
1684     case 0320:
1685       setascii = 80;
1686       setlower = 208;
1687       setupper = 208;
1688       break;
1689     case 0321:
1690       setascii = 81;
1691       setlower = 209;
1692       setupper = 209;
1693       break;
1694     case 0322:
1695       setascii = 82;
1696       setlower = 210;
1697       setupper = 210;
1698       break;
1699     case 0323:
1700       setascii = 83;
1701       setlower = 211;
1702       setupper = 211;
1703       break;
1704     case 0324:
1705       setascii = 84;
1706       setlower = 212;
1707       setupper = 212;
1708       break;
1709     case 0325:
1710       setascii = 85;
1711       setlower = 213;
1712       setupper = 213;
1713       break;
1714     case 0326:
1715       setascii = 86;
1716       setlower = 214;
1717       setupper = 214;
1718       break;
1719     case 0327:
1720       setascii = 87;
1721       setlower = 215;
1722       setupper = 215;
1723       break;
1724     case 0330:
1725       setascii = 88;
1726       setlower = 216;
1727       setupper = 216;
1728       break;
1729     case 0331:
1730       setascii = 89;
1731       setlower = 217;
1732       setupper = 217;
1733       break;
1734     case 0332:
1735       setascii = 90;
1736       setlower = 218;
1737       setupper = 218;
1738       break;
1739     case 0333:
1740       setascii = 91;
1741       setlower = 219;
1742       setupper = 219;
1743       break;
1744     case 0334:
1745       setascii = 92;
1746       setlower = 220;
1747       setupper = 220;
1748       break;
1749     case 0335:
1750       setascii = 93;
1751       setlower = 221;
1752       setupper = 221;
1753       break;
1754     case 0336:
1755       setascii = 94;
1756       setlower = 222;
1757       setupper = 222;
1758       break;
1759     case 0337:
1760       setascii = 95;
1761       setlower = 223;
1762       setupper = 223;
1763       break;
1764     case 0340:
1765       setascii = 96;
1766       setlower = 224;
1767       setupper = 224;
1768       break;
1769     case 0341:
1770       setascii = 97;
1771       setlower = 225;
1772       setupper = 225;
1773       break;
1774     case 0342:
1775       setascii = 98;
1776       setlower = 226;
1777       setupper = 226;
1778       break;
1779     case 0343:
1780       setascii = 99;
1781       setlower = 227;
1782       setupper = 227;
1783       break;
1784     case 0344:
1785       setascii = 100;
1786       setlower = 228;
1787       setupper = 228;
1788       break;
1789     case 0345:
1790       setascii = 101;
1791       setlower = 229;
1792       setupper = 229;
1793       break;
1794     case 0346:
1795       setascii = 102;
1796       setlower = 230;
1797       setupper = 230;
1798       break;
1799     case 0347:
1800       setascii = 103;
1801       setlower = 231;
1802       setupper = 231;
1803       break;
1804     case 0350:
1805       setascii = 104;
1806       setlower = 232;
1807       setupper = 232;
1808       break;
1809     case 0351:
1810       setascii = 105;
1811       setlower = 233;
1812       setupper = 233;
1813       break;
1814     case 0352:
1815       setascii = 106;
1816       setlower = 234;
1817       setupper = 234;
1818       break;
1819     case 0353:
1820       setascii = 107;
1821       setlower = 235;
1822       setupper = 235;
1823       break;
1824     case 0354:
1825       setascii = 108;
1826       setlower = 236;
1827       setupper = 236;
1828       break;
1829     case 0355:
1830       setascii = 109;
1831       setlower = 237;
1832       setupper = 237;
1833       break;
1834     case 0356:
1835       setascii = 110;
1836       setlower = 238;
1837       setupper = 238;
1838       break;
1839     case 0357:
1840       setascii = 111;
1841       setlower = 239;
1842       setupper = 239;
1843       break;
1844     case 0360:
1845       setascii = 112;
1846       setlower = 240;
1847       setupper = 240;
1848       break;
1849     case 0361:
1850       setascii = 113;
1851       setlower = 241;
1852       setupper = 241;
1853       break;
1854     case 0362:
1855       setascii = 114;
1856       setlower = 242;
1857       setupper = 242;
1858       break;
1859     case 0363:
1860       setascii = 115;
1861       setlower = 243;
1862       setupper = 243;
1863       break;
1864     case 0364:
1865       setascii = 116;
1866       setlower = 244;
1867       setupper = 244;
1868       break;
1869     case 0365:
1870       setascii = 117;
1871       setlower = 245;
1872       setupper = 245;
1873       break;
1874     case 0366:
1875       setascii = 118;
1876       setlower = 246;
1877       setupper = 246;
1878       break;
1879     case 0367:
1880       setascii = 119;
1881       setlower = 247;
1882       setupper = 247;
1883       break;
1884     case 0370:
1885       setascii = 120;
1886       setlower = 248;
1887       setupper = 248;
1888       break;
1889     case 0371:
1890       setascii = 121;
1891       setlower = 249;
1892       setupper = 249;
1893       break;
1894     case 0372:
1895       setascii = 122;
1896       setlower = 250;
1897       setupper = 250;
1898       break;
1899     case 0373:
1900       setascii = 123;
1901       setlower = 251;
1902       setupper = 251;
1903       break;
1904     case 0374:
1905       setascii = 124;
1906       setlower = 252;
1907       setupper = 252;
1908       break;
1909     case 0375:
1910       setascii = 125;
1911       setlower = 253;
1912       setupper = 253;
1913       break;
1914     case 0376:
1915       setascii = 126;
1916       setlower = 254;
1917       setupper = 254;
1918       break;
1919     case 0377:
1920       setascii = 127;
1921       setlower = 255;
1922       setupper = 255;
1923       break;
1924     default:
1925       abort();
1926 
1927     }
1928 
1929 }
1930 
1931 
def_isascii(int i)1932 int def_isascii (int i) { return isascii(i); }
def_iscntrl(int i)1933 int def_iscntrl (int i) { return iscntrl(i); }
def_isspace(int i)1934 int def_isspace (int i) { return isspace(i); }
def_isprint(int i)1935 int def_isprint (int i) { return isprint(i); }
def_isalnum(int i)1936 int def_isalnum (int i) { return isalnum(i); }
def_isdigit(int i)1937 int def_isdigit (int i) { return isdigit(i); }
def_isxdigit(int i)1938 int def_isxdigit (int i) { return isxdigit(i); }
def_isalpha(int i)1939 int def_isalpha (int i) { return isalpha(i); }
def_isupper(int i)1940 int def_isupper (int i) { return isupper(i); }
def_islower(int i)1941 int def_islower (int i) { return islower(i); }
def_isgraph(int i)1942 int def_isgraph (int i) { return isgraph(i); }
def_ispunct(int i)1943 int def_ispunct (int i) { return ispunct(i); }
def_tolower(int i)1944 int def_tolower (int i) { return tolower(i); }
def_toupper(int i)1945 int def_toupper (int i) { return toupper(i); }
def_toascii(int i)1946 int def_toascii (int i) { return toascii(i); }
def__tolower(int i)1947 int def__tolower (int i) { return _tolower(i); }
def__toupper(int i)1948 int def__toupper (int i) { return _toupper(i); }
1949 
1950 void
test_is_set(int (* func)(),char * name,int * p)1951 test_is_set (int (*func)(),
1952        char *name,
1953        int *p)
1954 {
1955   int i;
1956   newfunc(name);
1957   for (i = 0; i < 255; i++) {
1958     int r = func(i) != 0;
1959     line(i);
1960     test_is_single(i);
1961     if (*p  != r)
1962       {
1963 	printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p);
1964 	inacc++;
1965       }
1966   }
1967 }
1968 void
test_to_set(int (* func)(),char * name,int * p,int low,int high)1969 test_to_set (int (*func)(),
1970        char *name,
1971        int *p,
1972        int low,
1973        int high)
1974 {
1975   int i;
1976   newfunc(name);
1977   for (i = low; i <= high; i++) {
1978     int r = func(i) ;
1979     line(i);
1980     test_is_single(i);
1981     if (*p  != r)
1982       {
1983 	printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p);
1984 	inacc++;
1985       }
1986   }
1987 }
1988 
1989 
1990 #undef isascii
1991 #undef iscntrl
1992 #undef isspace
1993 #undef isprint
1994 #undef isalnum
1995 #undef isdigit
1996 #undef isxdigit
1997 #undef isalpha
1998 #undef isupper
1999 #undef islower
2000 #undef isgraph
2001 #undef ispunct
2002 #undef tolower
2003 #undef toupper
2004 #undef toascii
2005 #undef _tolower
2006 #undef _toupper
2007 
2008 void
test_is(void)2009 test_is (void)
2010 {
2011   test_is_set(def_isalnum, "isalnum define", &myalnum);
2012   test_is_set(def_isalpha, "isalpha define", &myalpha);
2013   test_is_set(def_isascii, "isascii define", &myascii);
2014   test_is_set(def_iscntrl, "iscntrl define", &mycntrl);
2015   test_is_set(def_isdigit, "isdigit define", &mydigit);
2016   test_is_set(def_isgraph, "isgraph define", &mygraph);
2017   test_is_set(def_islower, "islower define", &mylower);
2018   test_is_set(def_isprint, "isprint define", &myprint);
2019   test_is_set(def_ispunct, "ispunct define", &mypunct);
2020   test_is_set(def_isspace, "isspace define", &myspace);
2021   test_is_set(def_isupper, "isupper define", &myupper);
2022   test_is_set(def_isxdigit, "isxdigit define", &myxdigit);
2023   test_is_set(isalnum, "isalnum function", &myalnum);
2024   test_is_set(isalpha, "isalpha function", &myalpha);
2025   test_is_set(isascii, "isascii function", &myascii);
2026   test_is_set(iscntrl, "iscntrl function", &mycntrl);
2027   test_is_set(isgraph, "isgraph function", &mygraph);
2028   test_is_set(islower, "islower function", &mylower);
2029   test_is_set(isprint, "isprint function", &myprint);
2030   test_is_set(ispunct, "ispunct function", &mypunct);
2031   test_is_set(isspace, "isspace function", &myspace);
2032   test_is_set(isupper, "isupper function", &myupper);
2033   test_is_set(isxdigit, "isxdigit function", &myxdigit);
2034   test_to_set(tolower, "tolower function", &setlower, 'A','Z');
2035   test_to_set(toupper, "toupper function", &setupper, 'a','z');
2036   test_to_set(def__tolower, "_tolower define", &setlower, 'A','Z');
2037   test_to_set(def__toupper, "_toupper define", &setupper, 'a','z');
2038   test_to_set(def_toascii, "toascii define", &setascii, 0,255);
2039   test_to_set(def_tolower, "tolower define", &setlower, 0,255);
2040   test_to_set(def_toupper, "toupper define", &setupper, 0,255);
2041   test_to_set(toascii, "toascii function", &setascii, 0,255);
2042   test_to_set(tolower, "tolower function", &setlower, 0,255);
2043   test_to_set(toupper, "toupper function", &setupper, 0,255);
2044 }
2045