![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to d411b.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / ph|
Return to d411b.c CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / ph |
1.1 ! root 1: /* The Plum Hall Validation Suite for C ! 2: * Unpublished copyright (c) 1986-1991, Chiron Systems Inc and Plum Hall Inc. ! 3: * VERSION: 4 ! 4: * DATE: 1993-01-01 ! 5: * The "ANSI" mode of this suite corresponds to official ANSI C, X3.159-1989. ! 6: * As per your license agreement, your distribution is not to be moved or copied outside the Designated Site ! 7: * without specific permission from Plum Hall Inc. ! 8: */ ! 9: ! 10: ! 11: #include "flags.h" ! 12: #ifndef SKIP411 ! 13: #define LIB_TEST 1 ! 14: #include "defs.h" ! 15: ! 16: /* ! 17: * 4.11(b) - String Handling (continued) ! 18: */ ! 19: ! 20: #if ANSI ! 21: #include <stddef.h> ! 22: #include <string.h> ! 23: #else ! 24: #if ALL_STRING_FNS ! 25: char *memcpy(); ! 26: char *memset(); ! 27: char *strcpy(); ! 28: char *strncpy(); ! 29: char *strcat(); ! 30: char *strncat(); ! 31: char *memchr(); ! 32: char *strchr(); ! 33: char *strrchr(); ! 34: char *strpbrk(); ! 35: char *strtok(); ! 36: int strspn(); ! 37: int strcspn(); ! 38: #endif ! 39: #endif ! 40: ! 41: static char mem1[15] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14}; ! 42: static char mem2[15] = {9,9,9,9,9,9,9,9,9,9,9,9,9,9,9}; ! 43: static char string1[] = "aaaaaaaaaa"; ! 44: static char string2[] = "aaaa\0bbbb"; ! 45: static char string3[] = "cccccccccc"; ! 46: static char string4[21] = "dddddddddd"; ! 47: static char string5[] = "abcdefgX\0Y"; ! 48: static char string6[] = "abcXabcX\0Y"; ! 49: static char string7[] = "oneXtwoYXthreeYYXXZZfourGFGF"; ! 50: static char string8[] = "oneXtwoYXthreeYYXXZZfourGFGF"; ! 51: static char string9[60]; ! 52: static void d4_11_4(); ! 53: static void d4_11_5(); ! 54: static void d4_11_6(); ! 55: void d4_11b() ! 56: { ! 57: Filename = "d411b.c"; ! 58: d4_11_4(); ! 59: d4_11_5(); ! 60: d4_11_6(); ! 61: } ! 62: ! 63: ! 64: /* ! 65: * 4.11.4 - Comparison functions ! 66: */ ! 67: static void d4_11_4() ! 68: { ! 69: #ifndef SKIP4_114 ! 70: int i; ! 71: char *p; ! 72: ! 73: /* 4.11.4.1 memcmp ! 74: * memory compare ! 75: */ ! 76: checkthat(__LINE__, memcmp(string4, string3, 5) > 0); ! 77: checkthat(__LINE__, memcmp(string3, string4, 5) < 0); ! 78: checkthat(__LINE__, memcmp(string1, string2, 4) == 0); ! 79: ! 80: /* 4.11.4.2 strcmp ! 81: * string compare ! 82: */ ! 83: checkthat(__LINE__, strcmp("bbc", "abc") > 0); ! 84: checkthat(__LINE__, strcmp("abc", "bbc") < 0); ! 85: checkthat(__LINE__, strcmp("hi ma", "hi ma") == 0); ! 86: ! 87: /* 4.11.4.4 strncmp ! 88: * string compare with length ! 89: */ ! 90: checkthat(__LINE__, strncmp("bbc", "abc", 1) > 0); ! 91: checkthat(__LINE__, strncmp("abc", "bbc", 1) < 0); ! 92: checkthat(__LINE__, strncmp("hi max", "hi may", 5) == 0); ! 93: ! 94: #if ANSI8612 ! 95: /* 4.11.4.5 strxfrm ! 96: * make the string collatable through strcmp, memcmp. ! 97: * This is implementation dependent. For the "C" locale, this ! 98: * just copies the source into the target, if space permits. ! 99: */ ! 100: ! 101: checkthat(__LINE__, strxfrm(string9, string8, 60) > 0); ! 102: iequals(- __LINE__, strcmp(string9, string8), 0); ! 103: ! 104: /* 4.11.4.3 strcoll ! 105: * implementation dependent ! 106: */ ! 107: iequals(- __LINE__, strcoll(string9, string8), 0); ! 108: #if ANSI8706 ! 109: checkthat(__LINE__, strxfrm(string9, "abc", 2) == 3); /* ANSI8706: now returns required length */ ! 110: #endif ! 111: #endif ! 112: #endif /* SKIP4_114 */ ! 113: } ! 114: ! 115: ! 116: /* ! 117: * 4.11.5 - Search functions ! 118: */ ! 119: static void d4_11_5() ! 120: { ! 121: #ifndef SKIP4_115 ! 122: int i; ! 123: char *p; ! 124: ! 125: /* 4.11.5.1 memchr ! 126: * search memory ! 127: */ ! 128: p = memchr(string5, 'X', 10); ! 129: aequals(__LINE__, p, string5+7); ! 130: p = memchr(string5, 'X', 3); ! 131: aequals(__LINE__, p, (char *)0); ! 132: p = memchr(string5, 'Y', 10); ! 133: aequals(__LINE__, p, string5+9); ! 134: p = memchr(string5, 'Z', 8); ! 135: aequals(__LINE__, p, (char *)0); ! 136: ! 137: /* 4.11.5.2 strchr ! 138: * search strings ! 139: */ ! 140: p = strchr(string5, 'X'); ! 141: aequals(__LINE__, p, string5+7); ! 142: p = strchr(string5, 'Y'); ! 143: aequals(__LINE__, p, (char *)0); ! 144: ! 145: /* 4.11.5.3 strcspn ! 146: * count number of leading characters not in set ! 147: */ ! 148: iequals(__LINE__, strcspn(string5, string5), 0); ! 149: iequals(__LINE__, strcspn(string5, "ABC"), 8); ! 150: iequals(__LINE__, strcspn(string5, "ABCX"), 7); ! 151: ! 152: /* 4.11.5.4 strpbrk ! 153: * get pointer to first character in the set ! 154: */ ! 155: p = strpbrk(string5, string5); ! 156: aequals(__LINE__, p, string5); ! 157: p = strpbrk(string5, "ABC"); ! 158: aequals(__LINE__, p, (char *)0); ! 159: p = strpbrk(string5, "ABCX"); ! 160: aequals(__LINE__, p, string5+7); ! 161: ! 162: /* 4.11.5.5 strrchr ! 163: * locate last occurrence of character in a string ! 164: */ ! 165: p = strrchr(string6, 'Y'); ! 166: aequals(__LINE__, p, (char *)0); ! 167: p = strrchr(string6, 'X'); ! 168: aequals(__LINE__, p, string6+7); ! 169: ! 170: /* 4.11.5.6 strspn ! 171: * length of segment consisting of characters in set ! 172: */ ! 173: iequals(__LINE__, strspn(string6, "ABC"), 0); ! 174: iequals(__LINE__, strspn(string6, "cba"), 3); ! 175: iequals(__LINE__, strspn(string6, "cXba"), 8); ! 176: ! 177: /* 4.11.5.7 strstr ! 178: * locate a substring ! 179: */ ! 180: #if ANSI ! 181: aequals(__LINE__, strstr(string8, "one"), string8+0); ! 182: aequals(__LINE__, strstr(string8, "YX"), string8+7); ! 183: aequals(__LINE__, strstr(string8, "GFGF"), string8+24); ! 184: aequals(__LINE__, strstr(string8, "not there"), NULL); ! 185: aequals(__LINE__, strstr(string8, ""), string8); /* ANSI8703: was previously vague */ ! 186: ! 187: #endif ! 188: /* 4.11.5.8 strtok ! 189: * string parsing ! 190: */ ! 191: p = strtok(string7, "YX"); ! 192: checkthat(__LINE__, strcmp(p, "one") == 0); ! 193: p = strtok((char *)0, "YZ"); ! 194: checkthat(__LINE__, strcmp(p, "two") == 0); ! 195: p = strtok((char *)0, "ZYX"); ! 196: checkthat(__LINE__, strcmp(p, "three") == 0); ! 197: p = strtok((char *)0, "ZYXFGHIJ"); ! 198: checkthat(__LINE__, strcmp(p, "four") == 0); ! 199: /* this should detect that despite the "space", no token remains */ ! 200: p = strtok((char *)0, "FGHIJ"); ! 201: aequals(__LINE__, p, (char *)0); ! 202: /* re-initialize */ ! 203: p = strtok(string8, "XY"); ! 204: checkthat(__LINE__, strcmp(p, "one") == 0); ! 205: /* check for nothing available at first parse */ ! 206: p = strtok("XYZ", "XYZ"); ! 207: aequals(__LINE__, p, (char *)0); ! 208: #endif /* SKIP4_115 */ ! 209: } ! 210: ! 211: /* ! 212: * 4.11.6 - Miscellaneous functions ! 213: */ ! 214: static void d4_11_6() ! 215: { ! 216: #ifndef SKIP4_116 ! 217: int i; ! 218: char *p; ! 219: ! 220: /* 4.11.6.1 memset ! 221: * memory fill ! 222: */ ! 223: memcpy(mem2, mem1, 15); ! 224: p = memset(mem2+1, 99, 4); ! 225: aequals(__LINE__, mem2+1, p); ! 226: for (i = 0; i < 15; ++i) ! 227: if (1 <= i && i <= 4) ! 228: iequals(__LINE__, mem2[i], 99); ! 229: else ! 230: iequals(__LINE__, mem1[i], mem2[i]); ! 231: #if ANSI ! 232: /* 4.11.6.2 strerror ! 233: * map to an error message string. Since the string ! 234: * is implementation defined, we can only check for existance. ! 235: */ ! 236: p = strerror(0); ! 237: #endif ! 238: /* 4.11.6.3 strlen ! 239: * find string length ! 240: */ ! 241: iequals(__LINE__, strlen("123456789"), 9); ! 242: iequals(__LINE__, strlen(""), 0); ! 243: #endif /* SKIP4_116 */ ! 244: } ! 245: ! 246: ! 247: #endif /* SKIP411 */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.