pp04.c

开放源码的编译器open watcom 1.6.0版的源代码

xstr(xglue(T050,T083)),
xstr(xglue(T040,T052)),
xstr(xglue(T121,T108)),
xstr(xglue(T094,T017)),
xstr(xglue(T106,T007)),
xstr(xglue(T126,T104)),
xstr(xglue(T057,T066)),
xstr(xglue(T009,T118)),
xstr(xglue(T097,T006)),
xstr(xglue(T038,T115)),
xstr(xglue(T116,T056)),
xstr(xglue(T134,T105)),
xstr(xglue(T102,T066)),
xstr(xglue(T063,T015)),
xstr(xglue(T097,T129)),
xstr(xglue(T138,T045)),
xstr(xglue(T004,T001)),
xstr(xglue(T098,T125)),
xstr(xglue(T015,T081)),
xstr(xglue(T137,T094)),
xstr(xglue(T005,T015)),
xstr(xglue(T139,T019)),
xstr(xglue(T072,T136)),
xstr(xglue(T111,T053)),
xstr(xglue(T095,T107)),
xstr(xglue(T035,T053)),
xstr(xglue(T129,T133)),
xstr(xglue(T068,T061)),
xstr(xglue(T064,T114)),
xstr(xglue(T042,T058)),
xstr(xglue(T060,T123)),
xstr(xglue(T049,T122)),
xstr(xglue(T062,T127)),
xstr(xglue(T025,T136)),
xstr(xglue(T054,T084)),
xstr(xglue(T022,T117)),
xstr(xglue(T122,T092)),
xstr(xglue(T134,T062)),
xstr(xglue(T006,T044)),
xstr(xglue(T098,T054)),
xstr(xglue(T073,T118)),
xstr(xglue(T104,T051)),
xstr(xglue(T036,T065)),
xstr(xglue(T056,T123)),
xstr(xglue(T116,T060)),
xstr(xglue(T015,T032)),
xstr(xglue(T014,T140)),
xstr(xglue(T090,T016)),
xstr(xglue(T006,T009)),
xstr(xglue(T036,T055)),
xstr(xglue(T067,T038)),
xstr(xglue(T051,T108)),
xstr(xglue(T060,T118)),
xstr(xglue(T105,T057)),
xstr(xglue(T111,T059)),
xstr(xglue(T092,T050)),
xstr(xglue(T002,T124)),
xstr(xglue(T121,T067)),
xstr(xglue(T088,T045)),
xstr(xglue(T060,T105)),
xstr(xglue(T096,T063)),
xstr(xglue(T087,T082)),
xstr(xglue(T007,T017)),
xstr(xglue(T009,T117)),
xstr(xglue(T131,T069)),
xstr(xglue(T082,T084)),
xstr(xglue(T029,T065)),
xstr(xglue(T136,T119)),
xstr(xglue(T018,T067)),
xstr(xglue(T050,T016)),
xstr(xglue(T122,T013)),
xstr(xglue(T097,T119)),
xstr(xglue(T064,T032)),
xstr(xglue(T134,T037)),
xstr(xglue(T011,T050)),
xstr(xglue(T102,T106)),
xstr(xglue(T075,T025)),
xstr(xglue(T078,T126)),
xstr(xglue(T082,T132)),
xstr(xglue(T071,T020)),
xstr(xglue(T124,T077)),
xstr(xglue(T135,T022)),
xstr(xglue(T117,T031)),
xstr(xglue(T077,T074)),
xstr(xglue(T010,T045)),
xstr(xglue(T066,T052)),
xstr(xglue(T010,T140)),
xstr(xglue(T017,T030)),
xstr(xglue(T058,T111)),
xstr(xglue(T046,T096)),
xstr(xglue(T125,T025)),
xstr(xglue(T107,T129)),
xstr(xglue(T060,T004)),
xstr(xglue(T139,T043)),
xstr(xglue(T117,T136)),
xstr(xglue(T053,T040)),
xstr(xglue(T018,T060)),
xstr(xglue(T089,T081)),
xstr(xglue(T104,T070)),
xstr(xglue(T069,T031)),
xstr(xglue(T056,T035)),
xstr(xglue(T012,T104)),
xstr(xglue(T093,T076)),
xstr(xglue(T132,T093)),
xstr(xglue(T001,T002)),
xstr(xglue(T016,T042)),
xstr(xglue(T022,T041)),
xstr(xglue(T038,T134)),
xstr(xglue(T066,T111)),
xstr(xglue(T080,T084)),
xstr(xglue(T122,T088)),
xstr(xglue(T088,T095)),
xstr(xglue(T076,T083)),
xstr(xglue(T080,T122)),
xstr(xglue(T106,T062)),
xstr(xglue(T019,T140)),
xstr(xglue(T095,T049)),
xstr(xglue(T064,T095)),
xstr(xglue(T126,T111)),
xstr(xglue(T128,T051)),
xstr(xglue(T026,T129)),
xstr(xglue(T029,T060)),
xstr(xglue(T133,T025)),
xstr(xglue(T031,T088)),
xstr(xglue(T100,T065)),
xstr(xglue(T113,T014)),
xstr(xglue(T026,T137)),
xstr(xglue(T097,T115)),
xstr(xglue(T123,T113)),
xstr(xglue(T098,T044)),
xstr(xglue(T053,T138)),
xstr(xglue(T045,T058)),
xstr(xglue(T112,T041)),
xstr(xglue(T113,T111)),
xstr(xglue(T051,T065)),
xstr(xglue(T020,T030)),
xstr(xglue(T045,T112)),
xstr(xglue(T027,T059)),
xstr(xglue(T116,T038)),
xstr(xglue(T099,T008)),
xstr(xglue(T005,T085)),
xstr(xglue(T098,T081)),
xstr(xglue(T086,T099)),
xstr(xglue(T000,T032)),
xstr(xglue(T139,T082)),
xstr(xglue(T026,T011)),
xstr(xglue(T128,T044)),
xstr(xglue(T117,T025)),
xstr(xglue(T036,T099)),
xstr(xglue(T084,T061)),
xstr(xglue(T085,T067)),
xstr(xglue(T113,T101)),
xstr(xglue(T076,T035)),
xstr(xglue(T131,T044)),
xstr(xglue(T094,T112)),
xstr(xglue(T102,T118)),
xstr(xglue(T079,T094)),
xstr(xglue(T025,T103)),
xstr(xglue(T054,T122)),
xstr(xglue(T095,T072)),
xstr(xglue(T019,T095)),
xstr(xglue(T017,T106)),
xstr(xglue(T105,T043)),
xstr(xglue(T134,T089)),
xstr(xglue(T122,T060)),
xstr(xglue(T072,T051)),
xstr(xglue(T003,T023)),
xstr(xglue(T018,T043)),
xstr(xglue(T140,T031)),
xstr(xglue(T128,T102)),
xstr(xglue(T126,T091)),
xstr(xglue(T029,T119)),
xstr(xglue(T019,T030)),
xstr(xglue(T077,T123)),
xstr(xglue(T017,T138)),
xstr(xglue(T030,T097)),
xstr(xglue(T104,T009)),
xstr(xglue(T091,T044)),
xstr(xglue(T121,T012)),
xstr(xglue(T085,T058)),
xstr(xglue(T083,T129)),
xstr(xglue(T134,T079)),
xstr(xglue(T112,T003)),
xstr(xglue(T002,T048)),
xstr(xglue(T050,T092)),
xstr(xglue(T002,T023)),
xstr(xglue(T021,T094)),
xstr(xglue(T134,T005)),
xstr(xglue(T087,T127)),
xstr(xglue(T014,T114)),
xstr(xglue(T055,T129)),
xstr(xglue(T132,T060)),
xstr(xglue(T116,T065)),
xstr(xglue(T032,T031)),
xstr(xglue(T027,T078)),
xstr(xglue(T093,T106)),
xstr(xglue(T095,T080)),
xstr(xglue(T139,T087)),
xstr(xglue(T137,T052)),
xstr(xglue(T087,T122)),
xstr(xglue(T081,T134)),
xstr(xglue(T029,T139)),
xstr(xglue(T121,T055)),
xstr(xglue(T116,T040)),
xstr(xglue(T094,T122)),
xstr(xglue(T127,T024)),
xstr(xglue(T107,T008)),
xstr(xglue(T035,T116)),
xstr(xglue(T125,T051)),
xstr(xglue(T025,T067)),
xstr(xglue(T101,T078)),
xstr(xglue(T011,T133)),
xstr(xglue(T024,T025)),
xstr(xglue(T092,T091)),
xstr(xglue(T014,T120)),
xstr(xglue(T008,T092)),
xstr(xglue(T090,T112)),
xstr(xglue(T065,T106)),
xstr(xglue(T004,T068)),
xstr(xglue(T115,T107)),
xstr(xglue(T075,T056)),
xstr(xglue(T027,T138)),
xstr(xglue(T058,T102)),
xstr(xglue(T075,T128)),
xstr(xglue(T057,T016)),
xstr(xglue(T041,T004)),
xstr(xglue(T137,T026)),
xstr(xglue(T067,T009)),
xstr(xglue(T112,T121)),
xstr(xglue(T073,T119)),
xstr(xglue(T057,T067)),
xstr(xglue(T048,T056)),
xstr(xglue(T037,T114)),
xstr(xglue(T098,T067)),
xstr(xglue(T042,T076)),
xstr(xglue(T014,T048)),
xstr(xglue(T044,T035)),
xstr(xglue(T000,T103)),
xstr(xglue(T140,T051)),
xstr(xglue(T105,T126)),
xstr(xglue(T086,T056)),
xstr(xglue(T099,T007)),
xstr(xglue(T064,T082)),
xstr(xglue(T010,T104)),
xstr(xglue(T106,T095)),
xstr(xglue(T123,T010)),
xstr(xglue(T026,T025)),
xstr(xglue(T072,T069)),
xstr(xglue(T104,T066)),
xstr(xglue(T050,T047)),
xstr(xglue(T007,T008)),
xstr(xglue(T030,T069)),
xstr(xglue(T062,T056)),
xstr(xglue(T041,T078)),
xstr(xglue(T081,T062)),
xstr(xglue(T028,T118)),
xstr(xglue(T026,T048)),
xstr(xglue(T027,T013)),
xstr(xglue(T116,T138)),
xstr(xglue(T119,T103)),
xstr(xglue(T064,T120)),
xstr(xglue(T058,T120)),
xstr(xglue(T068,T071)),
xstr(xglue(T075,T007)),
xstr(xglue(T060,T043)),
xstr(xglue(T020,T124)),
xstr(xglue(T082,T033)),
xstr(xglue(T032,T030)),
xstr(xglue(T050,T050)),
xstr(xglue(T029,T027)),
xstr(xglue(T106,T063)),
xstr(xglue(T028,T135)),
xstr(xglue(T089,T009)),
xstr(xglue(T048,T131)),
xstr(xglue(T021,T042)),
xstr(xglue(T119,T065)),
xstr(xglue(T072,T030)),
xstr(xglue(T068,T026)),
xstr(xglue(T002,T072)),
xstr(xglue(T001,T049)),
xstr(xglue(T043,T098)),
xstr(xglue(T087,T097)),
xstr(xglue(T072,T053)),
xstr(xglue(T100,T048)),
xstr(xglue(T032,T042)),
xstr(xglue(T109,T043)),
xstr(xglue(T093,T120)),
xstr(xglue(T040,T060)),
xstr(xglue(T000,T012)),
xstr(xglue(T069,T097)),
xstr(xglue(T048,T067)),
xstr(xglue(T033,T115)),
xstr(xglue(T018,T028)),
xstr(xglue(T082,T082)),
xstr(xglue(T108,T045)),
xstr(xglue(T093,T096)),
xstr(xglue(T030,T003)),
xstr(xglue(T119,T087)),
xstr(xglue(T032,T029)),
xstr(xglue(T134,T001)),
xstr(xglue(T015,T073)),
xstr(xglue(T122,T048)),
xstr(xglue(T014,T058)),
xstr(xglue(T029,T132)),
xstr(xglue(T088,T129)),
xstr(xglue(T002,T024)),
xstr(xglue(T061,T048)),
xstr(xglue(T099,T071)),
xstr(xglue(T053,T072)),
xstr(xglue(T127,T128)),
xstr(xglue(T030,T132)),
xstr(xglue(T061,T050)),
xstr(xglue(T037,T037)),
xstr(xglue(T033,T135)),
xstr(xglue(T129,T075)),
xstr(xglue(T057,T055)),
xstr(xglue(T132,T075)),
xstr(xglue(T094,T079)),
xstr(xglue(T081,T085)),
xstr(xglue(T133,T061)),
xstr(xglue(T082,T082)),
xstr(xglue(T094,T132)),
xstr(xglue(T083,T120)),
xstr(xglue(T042,T084)),
xstr(xglue(T022,T094)),
xstr(xglue(T130,T044)),
xstr(xglue(T020,T049)),
xstr(xglue(T086,T046)),
xstr(xglue(T004,T096)),
xstr(xglue(T003,T066)),
xstr(xglue(T014,T101)),
xstr(xglue(T049,T118)),
xstr(xglue(T091,T132)),
xstr(xglue(T089,T076)),
xstr(xglue(T139,T097)),
xstr(xglue(T098,T006)),
xstr(xglue(T002,T123)),
xstr(xglue(T040,T082)),
xstr(xglue(T054,T028)),
xstr(xglue(T033,T099)),
xstr(xglue(T118,T130)),
xstr(xglue(T069,T034)),
xstr(xglue(T101,T113)),
xstr(xglue(T081,T004)),
xstr(xglue(T076,T126)),
xstr(xglue(T006,T012)),
xstr(xglue(T012,T065)),
xstr(xglue(T058,T048)),
xstr(xglue(T094,T082)),
xstr(xglue(T134,T002)),
xstr(xglue(T132,T022)),
xstr(xglue(T077,T049)),
xstr(xglue(T074,T063)),
xstr(xglue(T065,T107)),
xstr(xglue(T000,T107)),
xstr(xglue(T024,T028)),
xstr(xglue(T059,T117)),
xstr(xglue(T008,T096)),
xstr(xglue(T102,T003)),
xstr(xglue(T032,T060)),
xstr(xglue(T125,T023)),
xstr(xglue(T098,T007)),
xstr(xglue(T005,T067)),
xstr(xglue(T005,T033)),
xstr(xglue(T035,T088)),
xstr(xglue(T060,T068)),
xstr(xglue(T073,T094)),
xstr(xglue(T020,T090)),
xstr(xglue(T140,T101)),
xstr(xglue(T121,T094)),
xstr(xglue(T010,T082)),
xstr(xglue(T137,T033)),
xstr(xglue(T039,T006)),
xstr(xglue(T129,T092)),
xstr(xglue(T050,T092)),
xstr(xglue(T054,T047)),
xstr(xglue(T132,T089)),
xstr(xglue(T011,T046)),
xstr(xglue(T134,T115)),
xstr(xglue(T056,T140)),
xstr(xglue(T133,T055)),
xstr(xglue(T121,T004)),
xstr(xglue(T092,T018)),
xstr(xglue(T018,T048)),
xstr(xglue(T047,T108)),
xstr(xglue(T115,T094)),
xstr(xglue(T001,T016)),
xstr(xglue(T009,T126)),
xstr(xglue(T037,T070)),
xstr(xglue(T026,T138)),
xstr(xglue(T051,T063)),
xstr(xglue(T015,T005)),
xstr(xglue(T061,T122)),
xstr(xglue(T067,T044)),
xstr(xglue(T056,T005)),
xstr(xglue(T003,T012)),
xstr(xglue(T021,T004)),
xstr(xglue(T073,T031)),
xstr(xglue(T130,T016)),
xstr(xglue(T002,T073)),
xstr(xglue(T081,T023)),
xstr(xglue(T134,T127)),
xstr(xglue(T017,T127)),
xstr(xglue(T071,T067)),
xstr(xglue(T115,T079)),
xstr(xglue(T085,T058)),
xstr(xglue(T047,T044)),
xstr(xglue(T101,T014)),
xstr(xglue(T032,T106)),
xstr(xglue(T055,T015)),
xstr(xglue(T087,T137)),
xstr(xglue(T036,T121)),
xstr(xglue(T079,T023)),
xstr(xglue(T082,T010)),
xstr(xglue(T100,T081)),
xstr(xglue(T099,T092)),
xstr(xglue(T039,T138)),
xstr(xglue(T056,T079)),
xstr(xglue(T129,T120)),
xstr(xglue(T035,T008)),
xstr(xglue(T011,T029)),
xstr(xglue(T077,T099)),
xstr(xglue(T106,T140)),
xstr(xglue(T043,T081)),
xstr(xglue(T091,T069)),
xstr(xglue(T075,T043)),
xstr(xglue(T133,T090)),
xstr(xglue(T050,T083)),
xstr(xglue(T040,T052)),
xstr(xglue(T121,T108)),
xstr(xglue(T094,T017)),
xstr(xglue(T106,T007)),
xstr(xglue(T126,T104)),
xstr(xglue(T057,T066)),
xstr(xglue(T009,T118)),
xstr(xglue(T097,T006)),
xstr(xglue(T038,T115)),
xstr(xglue(T116,T056)),
xstr(xglue(T134,T105)),
xstr(xglue(T102,T066)),
xstr(xglue(T063,T015)),
xstr(xglue(T097,T129)),
xstr(xglue(T138,T045)),
xstr(xglue(T004,T001)),
xstr(xglue(T098,T125)),
xstr(xglue(T015,T081)),
xstr(xglue(T137,T094)),
xstr(xglue(T005,T015)),
xstr(xglue(T139,T019)),
xstr(xglue(T072,T136)),
xstr(xglue(T111,T053)),
xstr(xglue(T095,T107)),
xstr(xglue(T035,T053)),
xstr(xglue(T129,T133)),
xstr(xglue(T068,T061)),
xstr(xglue(T064,T114)),
xstr(xglue(T042,T058)),
xstr(xglue(T060,T123)),
xstr(xglue(T049,T122)),
xstr(xglue(T062,T127)),
xstr(xglue(T025,T136)),
xstr(xglue(T054,T084)),
xstr(xglue(T022,T117)),
xstr(xglue(T122,T092)),
xstr(xglue(T134,T062)),
xstr(xglue(T006,T044)),
xstr(xglue(T098,T054)),
xstr(xglue(T073,T118)),
xstr(xglue(T104,T051)),
xstr(xglue(T036,T065)),
xstr(xglue(T056,T123)),
xstr(xglue(T116,T060)),
xstr(xglue(T015,T032)),
xstr(xglue(T014,T140)),
xstr(xglue(T090,T016)),
xstr(xglue(T006,T009)),
xstr(xglue(T036,T055)),
xstr(xglue(T067,T038)),
xstr(xglue(T051,T108)),
xstr(xglue(T060,T118)),
xstr(xglue(T105,T057)),
xstr(xglue(T111,T059)),
xstr(xglue(T092,T050)),
xstr(xglue(T002,T124)),
xstr(xglue(T121,T067)),
xstr(xglue(T088,T045)),
xstr(xglue(T060,T105)),
xstr(xglue(T096,T063)),
xstr(xglue(T087,T082)),
xstr(xglue(T007,T017)),
xstr(xglue(T009,T117)),
xstr(xglue(T131,T069)),
xstr(xglue(T082,T084)),
xstr(xglue(T029,T065)),
xstr(xglue(T136,T119)),
xstr(xglue(T018,T067)),
xstr(xglue(T050,T016)),
xstr(xglue(T122,T013)),
xstr(xglue(T097,T119)),
xstr(xglue(T064,T032)),
xstr(xglue(T134,T037)),
xstr(xglue(T011,T050)),
xstr(xglue(T102,T106)),
xstr(xglue(T075,T025)),
xstr(xglue(T078,T126)),
xstr(xglue(T082,T132)),
xstr(xglue(T071,T020)),
xstr(xglue(T124,T077)),
xstr(xglue(T135,T022)),
xstr(xglue(T117,T031)),
xstr(xglue(T077,T074)),
xstr(xglue(T010,T045)),
xstr(xglue(T066,T052)),
xstr(xglue(T010,T140)),
xstr(xglue(T017,T030)),
xstr(xglue(T058,T111)),
xstr(xglue(T046,T096)),
xstr(xglue(T125,T025)),
xstr(xglue(T107,T129)),
xstr(xglue(T060,T004)),
xstr(xglue(T139,T043)),
xstr(xglue(T117,T136)),
xstr(xglue(T053,T040)),
xstr(xglue(T018,T060)),
xstr(xglue(T089,T081)),
xstr(xglue(T104,T070)),
xstr(xglue(T069,T031)),
xstr(xglue(T056,T035)),
xstr(xglue(T012,T104)),
xstr(xglue(T093,T076)),
xstr(xglue(T132,T093)),
xstr(xglue(T001,T002)),
xstr(xglue(T016,T042)),
xstr(xglue(T022,T041)),
xstr(xglue(T038,T134)),
xstr(xglue(T066,T111)),
xstr(xglue(T080,T084)),
xstr(xglue(T122,T088)),
xstr(xglue(T088,T095)),
xstr(xglue(T076,T083)),
NULL };

unsigned calc_hash( char *id, size_t *plen )
{
    unsigned c;
    unsigned g;
    unsigned h;
    size_t len;

    len = 0;
    h = *id;
    h += h + h;
    for(;;) {
        /* ( h & ~0x0fff ) == 0 is always true here */
	c = *(id++);
        if( c == '\0' ) break;
	++len;
	h = ( h << 4 ) + c;
        g = h & ~0x0fff;
	h ^= g;
	h ^= (g >> 12)&0x0f;
    }
    *plen = len;
    return( h );
}

int main()
{
    unsigned errors = 0;
    unsigned hash;
    size_t len;
    char **p;

    hash = 0;
    for( p = results; *p != NULL; ++p ) {
	hash += calc_hash( *p, &len );
	hash %= 10000;
	hash += len;
	hash %= 10000;
    }
    if( hash != 2012 ) fail(__LINE__);
    _PASS;
}