![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to band.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 band.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 the Suite corresponds to the 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: #define ANSI 1 /* This file follows ANSI arithmetic rules, which may not work in non-ANSI modes */ ! 11: #include "types.h" ! 12: #include "n.h" ! 13: int main() ! 14: { ! 15: extern char *Filename; ! 16: auto struct { ! 17: CHAR c; ! 18: SHORT s; ! 19: INT i; ! 20: UCHAR uc; ! 21: USHORT us; ! 22: UINT ui; ! 23: LONG l; ! 24: ULONG ul; ! 25: FLOAT f; ! 26: DOUBLE d; ! 27: #if ANSI ! 28: SCHAR sc; ! 29: LDOUBLE ld; ! 30: #endif ! 31: } G, *pG = &G; ! 32: pG->c = 7; ! 33: #if ANSI ! 34: pG->sc = 8; ! 35: #endif ! 36: pG->s = 9; ! 37: pG->i = 10; ! 38: pG->uc = 11; ! 39: pG->us = 12; ! 40: pG->ui = 13; ! 41: pG->l = 14; ! 42: pG->ul = 15; ! 43: pG->f = 16; ! 44: pG->d = 17; ! 45: #if ANSI ! 46: pG->ld = 18; ! 47: #endif ! 48: { ! 49: CHAR *Nc(); ! 50: #if ANSI ! 51: SCHAR *Nsc(); ! 52: #endif ! 53: SHORT *Ns(); ! 54: INT *Ni(); ! 55: UCHAR *Nuc(); ! 56: USHORT *Nus(); ! 57: UINT *Nui(); ! 58: LONG *Nl(); ! 59: ULONG *Nul(); ! 60: FLOAT *Nf(); ! 61: DOUBLE *Nd(); ! 62: #if ANSI ! 63: LDOUBLE *Nld(); ! 64: #endif ! 65: { ! 66: int true = 1, false = 0; ! 67: Filename = " auto pstruct1 auto funcrp band "; ! 68: iequals(__LINE__, pG->c & *Nc(), 7); ! 69: iequals(__LINE__, *Nc() & pG->c, 7); ! 70: #if ANSI ! 71: iequals(__LINE__, pG->c & *Nsc(), 0); ! 72: iequals(__LINE__, *Nsc() & pG->c, 0); ! 73: #endif ! 74: iequals(__LINE__, pG->c & *Ns(), 1); ! 75: iequals(__LINE__, *Ns() & pG->c, 1); ! 76: iequals(__LINE__, pG->c & *Ni(), 2); ! 77: iequals(__LINE__, *Ni() & pG->c, 2); ! 78: iequals(__LINE__, pG->c & *Nuc(), 3); ! 79: iequals(__LINE__, *Nuc() & pG->c, 3); ! 80: iequals(__LINE__, pG->c & *Nus(), 4); ! 81: iequals(__LINE__, *Nus() & pG->c, 4); ! 82: iequals(__LINE__, pG->c & *Nui(), 5); ! 83: iequals(__LINE__, *Nui() & pG->c, 5); ! 84: lequals(__LINE__, pG->c & *Nl(), 6L); ! 85: lequals(__LINE__, *Nl() & pG->c, 6L); ! 86: lequals(__LINE__, pG->c & *Nul(), 7L); ! 87: lequals(__LINE__, *Nul() & pG->c, 7L); ! 88: #if ANSI ! 89: iequals(__LINE__, pG->sc & *Nc(), 0); ! 90: iequals(__LINE__, *Nc() & pG->sc, 0); ! 91: #endif ! 92: #if ANSI ! 93: iequals(__LINE__, pG->sc & *Nsc(), 8); ! 94: iequals(__LINE__, *Nsc() & pG->sc, 8); ! 95: #endif ! 96: #if ANSI ! 97: iequals(__LINE__, pG->sc & *Ns(), 8); ! 98: iequals(__LINE__, *Ns() & pG->sc, 8); ! 99: #endif ! 100: #if ANSI ! 101: iequals(__LINE__, pG->sc & *Ni(), 8); ! 102: iequals(__LINE__, *Ni() & pG->sc, 8); ! 103: #endif ! 104: #if ANSI ! 105: iequals(__LINE__, pG->sc & *Nuc(), 8); ! 106: iequals(__LINE__, *Nuc() & pG->sc, 8); ! 107: #endif ! 108: #if ANSI ! 109: iequals(__LINE__, pG->sc & *Nus(), 8); ! 110: iequals(__LINE__, *Nus() & pG->sc, 8); ! 111: #endif ! 112: #if ANSI ! 113: iequals(__LINE__, pG->sc & *Nui(), 8); ! 114: iequals(__LINE__, *Nui() & pG->sc, 8); ! 115: #endif ! 116: #if ANSI ! 117: lequals(__LINE__, pG->sc & *Nl(), 8L); ! 118: lequals(__LINE__, *Nl() & pG->sc, 8L); ! 119: #endif ! 120: #if ANSI ! 121: lequals(__LINE__, pG->sc & *Nul(), 8L); ! 122: lequals(__LINE__, *Nul() & pG->sc, 8L); ! 123: #endif ! 124: iequals(__LINE__, pG->s & *Nc(), 1); ! 125: iequals(__LINE__, *Nc() & pG->s, 1); ! 126: #if ANSI ! 127: iequals(__LINE__, pG->s & *Nsc(), 8); ! 128: iequals(__LINE__, *Nsc() & pG->s, 8); ! 129: #endif ! 130: iequals(__LINE__, pG->s & *Ns(), 9); ! 131: iequals(__LINE__, *Ns() & pG->s, 9); ! 132: iequals(__LINE__, pG->s & *Ni(), 8); ! 133: iequals(__LINE__, *Ni() & pG->s, 8); ! 134: iequals(__LINE__, pG->s & *Nuc(), 9); ! 135: iequals(__LINE__, *Nuc() & pG->s, 9); ! 136: iequals(__LINE__, pG->s & *Nus(), 8); ! 137: iequals(__LINE__, *Nus() & pG->s, 8); ! 138: iequals(__LINE__, pG->s & *Nui(), 9); ! 139: iequals(__LINE__, *Nui() & pG->s, 9); ! 140: lequals(__LINE__, pG->s & *Nl(), 8L); ! 141: lequals(__LINE__, *Nl() & pG->s, 8L); ! 142: lequals(__LINE__, pG->s & *Nul(), 9L); ! 143: lequals(__LINE__, *Nul() & pG->s, 9L); ! 144: iequals(__LINE__, pG->i & *Nc(), 2); ! 145: iequals(__LINE__, *Nc() & pG->i, 2); ! 146: #if ANSI ! 147: iequals(__LINE__, pG->i & *Nsc(), 8); ! 148: iequals(__LINE__, *Nsc() & pG->i, 8); ! 149: #endif ! 150: iequals(__LINE__, pG->i & *Ns(), 8); ! 151: iequals(__LINE__, *Ns() & pG->i, 8); ! 152: iequals(__LINE__, pG->i & *Ni(), 10); ! 153: iequals(__LINE__, *Ni() & pG->i, 10); ! 154: iequals(__LINE__, pG->i & *Nuc(), 10); ! 155: iequals(__LINE__, *Nuc() & pG->i, 10); ! 156: iequals(__LINE__, pG->i & *Nus(), 8); ! 157: iequals(__LINE__, *Nus() & pG->i, 8); ! 158: iequals(__LINE__, pG->i & *Nui(), 8); ! 159: iequals(__LINE__, *Nui() & pG->i, 8); ! 160: lequals(__LINE__, pG->i & *Nl(), 10L); ! 161: lequals(__LINE__, *Nl() & pG->i, 10L); ! 162: lequals(__LINE__, pG->i & *Nul(), 10L); ! 163: lequals(__LINE__, *Nul() & pG->i, 10L); ! 164: iequals(__LINE__, pG->uc & *Nc(), 3); ! 165: iequals(__LINE__, *Nc() & pG->uc, 3); ! 166: #if ANSI ! 167: iequals(__LINE__, pG->uc & *Nsc(), 8); ! 168: iequals(__LINE__, *Nsc() & pG->uc, 8); ! 169: #endif ! 170: iequals(__LINE__, pG->uc & *Ns(), 9); ! 171: iequals(__LINE__, *Ns() & pG->uc, 9); ! 172: iequals(__LINE__, pG->uc & *Ni(), 10); ! 173: iequals(__LINE__, *Ni() & pG->uc, 10); ! 174: iequals(__LINE__, pG->uc & *Nuc(), 11); ! 175: iequals(__LINE__, *Nuc() & pG->uc, 11); ! 176: iequals(__LINE__, pG->uc & *Nus(), 8); ! 177: iequals(__LINE__, *Nus() & pG->uc, 8); ! 178: iequals(__LINE__, pG->uc & *Nui(), 9); ! 179: iequals(__LINE__, *Nui() & pG->uc, 9); ! 180: lequals(__LINE__, pG->uc & *Nl(), 10L); ! 181: lequals(__LINE__, *Nl() & pG->uc, 10L); ! 182: lequals(__LINE__, pG->uc & *Nul(), 11L); ! 183: lequals(__LINE__, *Nul() & pG->uc, 11L); ! 184: iequals(__LINE__, pG->us & *Nc(), 4); ! 185: iequals(__LINE__, *Nc() & pG->us, 4); ! 186: #if ANSI ! 187: iequals(__LINE__, pG->us & *Nsc(), 8); ! 188: iequals(__LINE__, *Nsc() & pG->us, 8); ! 189: #endif ! 190: iequals(__LINE__, pG->us & *Ns(), 8); ! 191: iequals(__LINE__, *Ns() & pG->us, 8); ! 192: iequals(__LINE__, pG->us & *Ni(), 8); ! 193: iequals(__LINE__, *Ni() & pG->us, 8); ! 194: iequals(__LINE__, pG->us & *Nuc(), 8); ! 195: iequals(__LINE__, *Nuc() & pG->us, 8); ! 196: iequals(__LINE__, pG->us & *Nus(), 12); ! 197: iequals(__LINE__, *Nus() & pG->us, 12); ! 198: iequals(__LINE__, pG->us & *Nui(), 12); ! 199: iequals(__LINE__, *Nui() & pG->us, 12); ! 200: lequals(__LINE__, pG->us & *Nl(), 12L); ! 201: lequals(__LINE__, *Nl() & pG->us, 12L); ! 202: lequals(__LINE__, pG->us & *Nul(), 12L); ! 203: lequals(__LINE__, *Nul() & pG->us, 12L); ! 204: iequals(__LINE__, pG->ui & *Nc(), 5); ! 205: iequals(__LINE__, *Nc() & pG->ui, 5); ! 206: #if ANSI ! 207: iequals(__LINE__, pG->ui & *Nsc(), 8); ! 208: iequals(__LINE__, *Nsc() & pG->ui, 8); ! 209: #endif ! 210: iequals(__LINE__, pG->ui & *Ns(), 9); ! 211: iequals(__LINE__, *Ns() & pG->ui, 9); ! 212: iequals(__LINE__, pG->ui & *Ni(), 8); ! 213: iequals(__LINE__, *Ni() & pG->ui, 8); ! 214: iequals(__LINE__, pG->ui & *Nuc(), 9); ! 215: iequals(__LINE__, *Nuc() & pG->ui, 9); ! 216: iequals(__LINE__, pG->ui & *Nus(), 12); ! 217: iequals(__LINE__, *Nus() & pG->ui, 12); ! 218: iequals(__LINE__, pG->ui & *Nui(), 13); ! 219: iequals(__LINE__, *Nui() & pG->ui, 13); ! 220: lequals(__LINE__, pG->ui & *Nl(), 12L); ! 221: lequals(__LINE__, *Nl() & pG->ui, 12L); ! 222: lequals(__LINE__, pG->ui & *Nul(), 13L); ! 223: lequals(__LINE__, *Nul() & pG->ui, 13L); ! 224: lequals(__LINE__, pG->l & *Nc(), 6L); ! 225: lequals(__LINE__, *Nc() & pG->l, 6L); ! 226: #if ANSI ! 227: lequals(__LINE__, pG->l & *Nsc(), 8L); ! 228: lequals(__LINE__, *Nsc() & pG->l, 8L); ! 229: #endif ! 230: lequals(__LINE__, pG->l & *Ns(), 8L); ! 231: lequals(__LINE__, *Ns() & pG->l, 8L); ! 232: lequals(__LINE__, pG->l & *Ni(), 10L); ! 233: lequals(__LINE__, *Ni() & pG->l, 10L); ! 234: lequals(__LINE__, pG->l & *Nuc(), 10L); ! 235: lequals(__LINE__, *Nuc() & pG->l, 10L); ! 236: lequals(__LINE__, pG->l & *Nus(), 12L); ! 237: lequals(__LINE__, *Nus() & pG->l, 12L); ! 238: lequals(__LINE__, pG->l & *Nui(), 12L); ! 239: lequals(__LINE__, *Nui() & pG->l, 12L); ! 240: lequals(__LINE__, pG->l & *Nl(), 14L); ! 241: lequals(__LINE__, *Nl() & pG->l, 14L); ! 242: lequals(__LINE__, pG->l & *Nul(), 14L); ! 243: lequals(__LINE__, *Nul() & pG->l, 14L); ! 244: lequals(__LINE__, pG->ul & *Nc(), 7L); ! 245: lequals(__LINE__, *Nc() & pG->ul, 7L); ! 246: #if ANSI ! 247: lequals(__LINE__, pG->ul & *Nsc(), 8L); ! 248: lequals(__LINE__, *Nsc() & pG->ul, 8L); ! 249: #endif ! 250: lequals(__LINE__, pG->ul & *Ns(), 9L); ! 251: lequals(__LINE__, *Ns() & pG->ul, 9L); ! 252: lequals(__LINE__, pG->ul & *Ni(), 10L); ! 253: lequals(__LINE__, *Ni() & pG->ul, 10L); ! 254: lequals(__LINE__, pG->ul & *Nuc(), 11L); ! 255: lequals(__LINE__, *Nuc() & pG->ul, 11L); ! 256: lequals(__LINE__, pG->ul & *Nus(), 12L); ! 257: lequals(__LINE__, *Nus() & pG->ul, 12L); ! 258: lequals(__LINE__, pG->ul & *Nui(), 13L); ! 259: lequals(__LINE__, *Nui() & pG->ul, 13L); ! 260: lequals(__LINE__, pG->ul & *Nl(), 14L); ! 261: lequals(__LINE__, *Nl() & pG->ul, 14L); ! 262: lequals(__LINE__, pG->ul & *Nul(), 15L); ! 263: lequals(__LINE__, *Nul() & pG->ul, 15L); ! 264: }} ! 265: return report(Filename); ! 266: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.