URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-newlib/] [newlib-1.17.0/] [newlib/] [libm/] [test/] [test_is.c] - Rev 14
Go to most recent revision | Compare with Previous | Blame | View Log
#include "test.h" #include <ctype.h> int setascii; int setlower; int setupper; int myascii; int mycntrl; int myspace; int myprint; int myalnum; int mydigit; int myxdigit; int myalpha; int myupper; int mylower; int mygraph; int mypunct; void _DEFUN(test_is_single,(i), int i) { setascii = 0; setlower = 0; setupper = 0; myascii = 0; mycntrl = 0; myspace = 0; myprint = 0; myalnum = 0; mydigit = 0; myxdigit = 0; myalpha = 0; myupper = 0; mylower = 0; mygraph = 0; mypunct = 0; switch (i) { case 0000: myascii = 1; mycntrl = 1; setascii = 0; setlower = 0; setupper = 0; break; case 0001: myascii = 1; mycntrl = 1; setascii = 1; setlower = 1; setupper = 1; break; case 0002: myascii = 1; mycntrl = 1; setascii = 2; setlower = 2; setupper = 2; break; case 0003: myascii = 1; mycntrl = 1; setascii = 3; setlower = 3; setupper = 3; break; case 0004: myascii = 1; mycntrl = 1; setascii = 4; setlower = 4; setupper = 4; break; case 0005: myascii = 1; mycntrl = 1; setascii = 5; setlower = 5; setupper = 5; break; case 0006: myascii = 1; mycntrl = 1; setascii = 6; setlower = 6; setupper = 6; break; case 0007: myascii = 1; mycntrl = 1; setascii = 7; setlower = 7; setupper = 7; break; case 0010: myascii = 1; mycntrl = 1; setascii = 8; setlower = 8; setupper = 8; break; case 0011: myascii = 1; mycntrl = 1; myspace = 1; setascii = 9; setlower = 9; setupper = 9; break; case 0012: myascii = 1; mycntrl = 1; myspace = 1; setascii = 10; setlower = 10; setupper = 10; break; case 0013: myascii = 1; mycntrl = 1; myspace = 1; setascii = 11; setlower = 11; setupper = 11; break; case 0014: myascii = 1; mycntrl = 1; myspace = 1; setascii = 12; setlower = 12; setupper = 12; break; case 0015: myascii = 1; mycntrl = 1; myspace = 1; setascii = 13; setlower = 13; setupper = 13; break; case 0016: myascii = 1; mycntrl = 1; setascii = 14; setlower = 14; setupper = 14; break; case 0017: myascii = 1; mycntrl = 1; setascii = 15; setlower = 15; setupper = 15; break; case 0020: myascii = 1; mycntrl = 1; setascii = 16; setlower = 16; setupper = 16; break; case 0021: myascii = 1; mycntrl = 1; setascii = 17; setlower = 17; setupper = 17; break; case 0022: myascii = 1; mycntrl = 1; setascii = 18; setlower = 18; setupper = 18; break; case 0023: myascii = 1; mycntrl = 1; setascii = 19; setlower = 19; setupper = 19; break; case 0024: myascii = 1; mycntrl = 1; setascii = 20; setlower = 20; setupper = 20; break; case 0025: myascii = 1; mycntrl = 1; setascii = 21; setlower = 21; setupper = 21; break; case 0026: myascii = 1; mycntrl = 1; setascii = 22; setlower = 22; setupper = 22; break; case 0027: myascii = 1; mycntrl = 1; setascii = 23; setlower = 23; setupper = 23; break; case 0030: myascii = 1; mycntrl = 1; setascii = 24; setlower = 24; setupper = 24; break; case 0031: myascii = 1; mycntrl = 1; setascii = 25; setlower = 25; setupper = 25; break; case 0032: myascii = 1; mycntrl = 1; setascii = 26; setlower = 26; setupper = 26; break; case 0033: myascii = 1; mycntrl = 1; setascii = 27; setlower = 27; setupper = 27; break; case 0034: myascii = 1; mycntrl = 1; setascii = 28; setlower = 28; setupper = 28; break; case 0035: myascii = 1; mycntrl = 1; setascii = 29; setlower = 29; setupper = 29; break; case 0036: myascii = 1; mycntrl = 1; setascii = 30; setlower = 30; setupper = 30; break; case 0037: myascii = 1; mycntrl = 1; setascii = 31; setlower = 31; setupper = 31; break; case ' ': myascii = 1; myprint = 1; myspace = 1; setascii = 32; setlower = 32; setupper = 32; break; case '!': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 33; setlower = 33; setupper = 33; break; case '"': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 34; setlower = 34; setupper = 34; break; case '#': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 35; setlower = 35; setupper = 35; break; case '$': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 36; setlower = 36; setupper = 36; break; case '%': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 37; setlower = 37; setupper = 37; break; case '&': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 38; setlower = 38; setupper = 38; break; case '\'': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 39; setlower = 39; setupper = 39; break; case '\(': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 40; setlower = 40; setupper = 40; break; case ')': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 41; setlower = 41; setupper = 41; break; case '*': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 42; setlower = 42; setupper = 42; break; case '+': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 43; setlower = 43; setupper = 43; break; case ',': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 44; setlower = 44; setupper = 44; break; case '-': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 45; setlower = 45; setupper = 45; break; case '.': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 46; setlower = 46; setupper = 46; break; case '/': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 47; setlower = 47; setupper = 47; break; case '0': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 48; setlower = 48; setupper = 48; break; case '1': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 49; setlower = 49; setupper = 49; break; case '2': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 50; setlower = 50; setupper = 50; break; case '3': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 51; setlower = 51; setupper = 51; break; case '4': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 52; setlower = 52; setupper = 52; break; case '5': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 53; setlower = 53; setupper = 53; break; case '6': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 54; setlower = 54; setupper = 54; break; case '7': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 55; setlower = 55; setupper = 55; break; case '8': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 56; setlower = 56; setupper = 56; break; case '9': myalnum = 1; myascii = 1; mydigit = 1; mygraph = 1; myprint = 1; myxdigit = 1; setascii = 57; setlower = 57; setupper = 57; break; case ':': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 58; setlower = 58; setupper = 58; break; case ';': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 59; setlower = 59; setupper = 59; break; case '<': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 60; setlower = 60; setupper = 60; break; case '=': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 61; setlower = 61; setupper = 61; break; case '>': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 62; setlower = 62; setupper = 62; break; case '?': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 63; setlower = 63; setupper = 63; break; case '@': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 64; setlower = 64; setupper = 64; break; case 'A': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 65; setlower = 97; setupper = 65; break; case 'B': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 66; setlower = 98; setupper = 66; break; case 'C': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 67; setlower = 99; setupper = 67; break; case 'D': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 68; setlower = 100; setupper = 68; break; case 'E': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 69; setlower = 101; setupper = 69; break; case 'F': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; myxdigit = 1; setascii = 70; setlower = 102; setupper = 70; break; case 'G': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 71; setlower = 103; setupper = 71; break; case 'H': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 72; setlower = 104; setupper = 72; break; case 'I': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 73; setlower = 105; setupper = 73; break; case 'J': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 74; setlower = 106; setupper = 74; break; case 'K': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 75; setlower = 107; setupper = 75; break; case 'L': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 76; setlower = 108; setupper = 76; break; case 'M': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 77; setlower = 109; setupper = 77; break; case 'N': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 78; setlower = 110; setupper = 78; break; case 'O': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 79; setlower = 111; setupper = 79; break; case 'P': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 80; setlower = 112; setupper = 80; break; case 'Q': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 81; setlower = 113; setupper = 81; break; case 'R': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 82; setlower = 114; setupper = 82; break; case 'S': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 83; setlower = 115; setupper = 83; break; case 'T': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 84; setlower = 116; setupper = 84; break; case 'U': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 85; setlower = 117; setupper = 85; break; case 'V': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 86; setlower = 118; setupper = 86; break; case 'W': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 87; setlower = 119; setupper = 87; break; case 'X': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 88; setlower = 120; setupper = 88; break; case 'Y': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 89; setlower = 121; setupper = 89; break; case 'Z': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; myprint = 1; myupper = 1; setascii = 90; setlower = 122; setupper = 90; break; case '[': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 91; setlower = 91; setupper = 91; break; case '\\': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 92; setlower = 92; setupper = 92; break; case ']': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 93; setlower = 93; setupper = 93; break; case '^': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 94; setlower = 94; setupper = 94; break; case '_': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 95; setlower = 95; setupper = 95; break; case '`': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 96; setlower = 96; setupper = 96; break; case 'a': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 97; setlower = 97; setupper = 65; break; case 'b': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 98; setlower = 98; setupper = 66; break; case 'c': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 99; setlower = 99; setupper = 67; break; case 'd': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 100; setlower = 100; setupper = 68; break; case 'e': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 101; setlower = 101; setupper = 69; break; case 'f': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; myxdigit = 1; setascii = 102; setlower = 102; setupper = 70; break; case 'g': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 103; setlower = 103; setupper = 71; break; case 'h': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 104; setlower = 104; setupper = 72; break; case 'i': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 105; setlower = 105; setupper = 73; break; case 'j': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 106; setlower = 106; setupper = 74; break; case 'k': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 107; setlower = 107; setupper = 75; break; case 'l': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 108; setlower = 108; setupper = 76; break; case 'm': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 109; setlower = 109; setupper = 77; break; case 'n': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 110; setlower = 110; setupper = 78; break; case 'o': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 111; setlower = 111; setupper = 79; break; case 'p': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 112; setlower = 112; setupper = 80; break; case 'q': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 113; setlower = 113; setupper = 81; break; case 'r': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 114; setlower = 114; setupper = 82; break; case 's': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 115; setlower = 115; setupper = 83; break; case 't': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 116; setlower = 116; setupper = 84; break; case 'u': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 117; setlower = 117; setupper = 85; break; case 'v': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 118; setlower = 118; setupper = 86; break; case 'w': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 119; setlower = 119; setupper = 87; break; case 'x': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 120; setlower = 120; setupper = 88; break; case 'y': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 121; setlower = 121; setupper = 89; break; case 'z': myalnum = 1; myalpha = 1; myascii = 1; mygraph = 1; mylower = 1; myprint = 1; setascii = 122; setlower = 122; setupper = 90; break; case '{': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 123; setlower = 123; setupper = 123; break; case '|': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 124; setlower = 124; setupper = 124; break; case '}': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 125; setlower = 125; setupper = 125; break; case '~': myascii = 1; mygraph = 1; myprint = 1; mypunct = 1; setascii = 126; setlower = 126; setupper = 126; break; case 0177: myascii = 1; mycntrl = 1; setascii = 127; setlower = 127; setupper = 127; break; case 0200: setascii = 0; setlower = 128; setupper = 128; break; case 0201: setascii = 1; setlower = 129; setupper = 129; break; case 0202: setascii = 2; setlower = 130; setupper = 130; break; case 0203: setascii = 3; setlower = 131; setupper = 131; break; case 0204: setascii = 4; setlower = 132; setupper = 132; break; case 0205: setascii = 5; setlower = 133; setupper = 133; break; case 0206: setascii = 6; setlower = 134; setupper = 134; break; case 0207: setascii = 7; setlower = 135; setupper = 135; break; case 0210: setascii = 8; setlower = 136; setupper = 136; break; case 0211: setascii = 9; setlower = 137; setupper = 137; break; case 0212: setascii = 10; setlower = 138; setupper = 138; break; case 0213: setascii = 11; setlower = 139; setupper = 139; break; case 0214: setascii = 12; setlower = 140; setupper = 140; break; case 0215: setascii = 13; setlower = 141; setupper = 141; break; case 0216: setascii = 14; setlower = 142; setupper = 142; break; case 0217: setascii = 15; setlower = 143; setupper = 143; break; case 0220: setascii = 16; setlower = 144; setupper = 144; break; case 0221: setascii = 17; setlower = 145; setupper = 145; break; case 0222: setascii = 18; setlower = 146; setupper = 146; break; case 0223: setascii = 19; setlower = 147; setupper = 147; break; case 0224: setascii = 20; setlower = 148; setupper = 148; break; case 0225: setascii = 21; setlower = 149; setupper = 149; break; case 0226: setascii = 22; setlower = 150; setupper = 150; break; case 0227: setascii = 23; setlower = 151; setupper = 151; break; case 0230: setascii = 24; setlower = 152; setupper = 152; break; case 0231: setascii = 25; setlower = 153; setupper = 153; break; case 0232: setascii = 26; setlower = 154; setupper = 154; break; case 0233: setascii = 27; setlower = 155; setupper = 155; break; case 0234: setascii = 28; setlower = 156; setupper = 156; break; case 0235: setascii = 29; setlower = 157; setupper = 157; break; case 0236: setascii = 30; setlower = 158; setupper = 158; break; case 0237: setascii = 31; setlower = 159; setupper = 159; break; case 0240: setascii = 32; setlower = 160; setupper = 160; break; case 0241: setascii = 33; setlower = 161; setupper = 161; break; case 0242: setascii = 34; setlower = 162; setupper = 162; break; case 0243: setascii = 35; setlower = 163; setupper = 163; break; case 0244: setascii = 36; setlower = 164; setupper = 164; break; case 0245: setascii = 37; setlower = 165; setupper = 165; break; case 0246: setascii = 38; setlower = 166; setupper = 166; break; case 0247: setascii = 39; setlower = 167; setupper = 167; break; case 0250: setascii = 40; setlower = 168; setupper = 168; break; case 0251: setascii = 41; setlower = 169; setupper = 169; break; case 0252: setascii = 42; setlower = 170; setupper = 170; break; case 0253: setascii = 43; setlower = 171; setupper = 171; break; case 0254: setascii = 44; setlower = 172; setupper = 172; break; case 0255: setascii = 45; setlower = 173; setupper = 173; break; case 0256: setascii = 46; setlower = 174; setupper = 174; break; case 0257: setascii = 47; setlower = 175; setupper = 175; break; case 0260: setascii = 48; setlower = 176; setupper = 176; break; case 0261: setascii = 49; setlower = 177; setupper = 177; break; case 0262: setascii = 50; setlower = 178; setupper = 178; break; case 0263: setascii = 51; setlower = 179; setupper = 179; break; case 0264: setascii = 52; setlower = 180; setupper = 180; break; case 0265: setascii = 53; setlower = 181; setupper = 181; break; case 0266: setascii = 54; setlower = 182; setupper = 182; break; case 0267: setascii = 55; setlower = 183; setupper = 183; break; case 0270: setascii = 56; setlower = 184; setupper = 184; break; case 0271: setascii = 57; setlower = 185; setupper = 185; break; case 0272: setascii = 58; setlower = 186; setupper = 186; break; case 0273: setascii = 59; setlower = 187; setupper = 187; break; case 0274: setascii = 60; setlower = 188; setupper = 188; break; case 0275: setascii = 61; setlower = 189; setupper = 189; break; case 0276: setascii = 62; setlower = 190; setupper = 190; break; case 0277: setascii = 63; setlower = 191; setupper = 191; break; case 0300: setascii = 64; setlower = 192; setupper = 192; break; case 0301: setascii = 65; setlower = 193; setupper = 193; break; case 0302: setascii = 66; setlower = 194; setupper = 194; break; case 0303: setascii = 67; setlower = 195; setupper = 195; break; case 0304: setascii = 68; setlower = 196; setupper = 196; break; case 0305: setascii = 69; setlower = 197; setupper = 197; break; case 0306: setascii = 70; setlower = 198; setupper = 198; break; case 0307: setascii = 71; setlower = 199; setupper = 199; break; case 0310: setascii = 72; setlower = 200; setupper = 200; break; case 0311: setascii = 73; setlower = 201; setupper = 201; break; case 0312: setascii = 74; setlower = 202; setupper = 202; break; case 0313: setascii = 75; setlower = 203; setupper = 203; break; case 0314: setascii = 76; setlower = 204; setupper = 204; break; case 0315: setascii = 77; setlower = 205; setupper = 205; break; case 0316: setascii = 78; setlower = 206; setupper = 206; break; case 0317: setascii = 79; setlower = 207; setupper = 207; break; case 0320: setascii = 80; setlower = 208; setupper = 208; break; case 0321: setascii = 81; setlower = 209; setupper = 209; break; case 0322: setascii = 82; setlower = 210; setupper = 210; break; case 0323: setascii = 83; setlower = 211; setupper = 211; break; case 0324: setascii = 84; setlower = 212; setupper = 212; break; case 0325: setascii = 85; setlower = 213; setupper = 213; break; case 0326: setascii = 86; setlower = 214; setupper = 214; break; case 0327: setascii = 87; setlower = 215; setupper = 215; break; case 0330: setascii = 88; setlower = 216; setupper = 216; break; case 0331: setascii = 89; setlower = 217; setupper = 217; break; case 0332: setascii = 90; setlower = 218; setupper = 218; break; case 0333: setascii = 91; setlower = 219; setupper = 219; break; case 0334: setascii = 92; setlower = 220; setupper = 220; break; case 0335: setascii = 93; setlower = 221; setupper = 221; break; case 0336: setascii = 94; setlower = 222; setupper = 222; break; case 0337: setascii = 95; setlower = 223; setupper = 223; break; case 0340: setascii = 96; setlower = 224; setupper = 224; break; case 0341: setascii = 97; setlower = 225; setupper = 225; break; case 0342: setascii = 98; setlower = 226; setupper = 226; break; case 0343: setascii = 99; setlower = 227; setupper = 227; break; case 0344: setascii = 100; setlower = 228; setupper = 228; break; case 0345: setascii = 101; setlower = 229; setupper = 229; break; case 0346: setascii = 102; setlower = 230; setupper = 230; break; case 0347: setascii = 103; setlower = 231; setupper = 231; break; case 0350: setascii = 104; setlower = 232; setupper = 232; break; case 0351: setascii = 105; setlower = 233; setupper = 233; break; case 0352: setascii = 106; setlower = 234; setupper = 234; break; case 0353: setascii = 107; setlower = 235; setupper = 235; break; case 0354: setascii = 108; setlower = 236; setupper = 236; break; case 0355: setascii = 109; setlower = 237; setupper = 237; break; case 0356: setascii = 110; setlower = 238; setupper = 238; break; case 0357: setascii = 111; setlower = 239; setupper = 239; break; case 0360: setascii = 112; setlower = 240; setupper = 240; break; case 0361: setascii = 113; setlower = 241; setupper = 241; break; case 0362: setascii = 114; setlower = 242; setupper = 242; break; case 0363: setascii = 115; setlower = 243; setupper = 243; break; case 0364: setascii = 116; setlower = 244; setupper = 244; break; case 0365: setascii = 117; setlower = 245; setupper = 245; break; case 0366: setascii = 118; setlower = 246; setupper = 246; break; case 0367: setascii = 119; setlower = 247; setupper = 247; break; case 0370: setascii = 120; setlower = 248; setupper = 248; break; case 0371: setascii = 121; setlower = 249; setupper = 249; break; case 0372: setascii = 122; setlower = 250; setupper = 250; break; case 0373: setascii = 123; setlower = 251; setupper = 251; break; case 0374: setascii = 124; setlower = 252; setupper = 252; break; case 0375: setascii = 125; setlower = 253; setupper = 253; break; case 0376: setascii = 126; setlower = 254; setupper = 254; break; case 0377: setascii = 127; setlower = 255; setupper = 255; break; default: abort(); } } int _DEFUN(def_isascii,(i), int i) { return isascii(i); } int _DEFUN(def_iscntrl,(i), int i) { return iscntrl(i); } int _DEFUN(def_isspace,(i), int i) { return isspace(i); } int _DEFUN(def_isprint,(i), int i) { return isprint(i); } int _DEFUN(def_isalnum,(i), int i) { return isalnum(i); } int _DEFUN(def_isdigit,(i), int i) { return isdigit(i); } int _DEFUN(def_isxdigit,(i), int i) { return isxdigit(i); } int _DEFUN(def_isalpha,(i), int i) { return isalpha(i); } int _DEFUN(def_isupper,(i), int i) { return isupper(i); } int _DEFUN(def_islower,(i), int i) { return islower(i); } int _DEFUN(def_isgraph,(i), int i) { return isgraph(i); } int _DEFUN(def_ispunct,(i), int i) { return ispunct(i); } int _DEFUN(def_tolower,(i), int i) { return tolower(i); } int _DEFUN(def_toupper,(i), int i) { return toupper(i); } int _DEFUN(def_toascii,(i), int i) { return toascii(i); } int _DEFUN(def__tolower,(i), int i) { return _tolower(i); } int _DEFUN(def__toupper,(i), int i) { return _toupper(i); } extern int inacc; void _DEFUN(test_is_set,(func, name, p), int (*func)() _AND char *name _AND int *p) { int i; newfunc(name); for (i = 0; i < 255; i++) { int r = func(i) != 0; line(i); test_is_single(i); if (*p != r) { printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p); inacc++; } } } void _DEFUN(test_to_set,(func, name, p, low, high), int (*func)() _AND char *name _AND int *p _AND int low _AND int high) { int i; newfunc(name); for (i = low; i <= high; i++) { int r = func(i) ; line(i); test_is_single(i); if (*p != r) { printf("%s:%d wrong result, is %d shouldbe %d\n", name, i, r,*p); inacc++; } } } #undef isascii #undef iscntrl #undef isspace #undef isprint #undef isalnum #undef isdigit #undef isxdigit #undef isalpha #undef isupper #undef islower #undef isgraph #undef ispunct #undef tolower #undef toupper #undef toascii #undef _tolower #undef _toupper void _DEFUN_VOID(test_is) { test_is_set(def_isalnum, "isalnum define", &myalnum); test_is_set(def_isalpha, "isalpha define", &myalpha); test_is_set(def_isascii, "isascii define", &myascii); test_is_set(def_iscntrl, "iscntrl define", &mycntrl); test_is_set(def_isdigit, "isdigit define", &mydigit); test_is_set(def_isgraph, "isgraph define", &mygraph); test_is_set(def_islower, "islower define", &mylower); test_is_set(def_isprint, "isprint define", &myprint); test_is_set(def_ispunct, "ispunct define", &mypunct); test_is_set(def_isspace, "isspace define", &myspace); test_is_set(def_isupper, "isupper define", &myupper); test_is_set(def_isxdigit, "isxdigit define", &myxdigit); test_is_set(isalnum, "isalnum function", &myalnum); test_is_set(isalpha, "isalpha function", &myalpha); test_is_set(isascii, "isascii function", &myascii); test_is_set(iscntrl, "iscntrl function", &mycntrl); test_is_set(isgraph, "isgraph function", &mygraph); test_is_set(islower, "islower function", &mylower); test_is_set(isprint, "isprint function", &myprint); test_is_set(ispunct, "ispunct function", &mypunct); test_is_set(isspace, "isspace function", &myspace); test_is_set(isupper, "isupper function", &myupper); test_is_set(isxdigit, "isxdigit function", &myxdigit); test_to_set(_tolower, "_tolower function", &setlower, 'A','Z'); test_to_set(_toupper, "_toupper function", &setupper, 'a','z'); test_to_set(def__tolower, "_tolower define", &setlower, 'A','Z'); test_to_set(def__toupper, "_toupper define", &setupper, 'a','z'); test_to_set(def_toascii, "toascii define", &setascii, 0,255); test_to_set(def_tolower, "tolower define", &setlower, 0,255); test_to_set(def_toupper, "toupper define", &setupper, 0,255); test_to_set(toascii, "toascii function", &setascii, 0,255); test_to_set(tolower, "tolower function", &setlower, 0,255); test_to_set(toupper, "toupper function", &setupper, 0,255); }
Go to most recent revision | Compare with Previous | Blame | View Log