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