Set.c
Click here to get the file
Size
4.4 kB
-
File type
text/plain
File contents
/*ident "@(#)Set:Set.c 3.1" */
/******************************************************************************
*
* C++ Standard Components, Release 3.0.
*
* Copyright (c) 1991, 1992 AT&T and Unix System Laboratories, Inc.
* Copyright (c) 1988, 1989, 1990 AT&T. All Rights Reserved.
*
* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T and Unix System
* Laboratories, Inc. The copyright notice above does not evidence
* any actual or intended publication of such source code.
*
******************************************************************************/
#include "Set.h"
#define A ((unsigned long)a)
#define B ((unsigned long)b)
#define CONST1 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC)
#define CONST2 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 1 * SET_SHIFT_INCR_ATTLC)
#define CONST3 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 2 * SET_SHIFT_INCR_ATTLC)
#define CONST4 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 3 * SET_SHIFT_INCR_ATTLC)
#define CONST5 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 4 * SET_SHIFT_INCR_ATTLC)
#define CONST6 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 5 * SET_SHIFT_INCR_ATTLC)
#define CONST7 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 6 * SET_SHIFT_INCR_ATTLC)
#define CONST8 (SET_MASK_BITS_ATTLC << SET_INITIAL_SHIFT_ATTLC + 7 * SET_SHIFT_INCR_ATTLC)
int
SET_LT_ATTLC(Set_or_Bag_hashval a, Set_or_Bag_hashval b)
{
register unsigned long twa;
register unsigned long twb;
twa = (A & CONST1);
twb = (B & CONST1);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST2);
twb = (B & CONST2);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST3);
twb = (B & CONST3);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST4);
twb = (B & CONST4);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST5);
twb = (B & CONST5);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST6);
twb = (B & CONST6);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & CONST7);
twb = (B & CONST7);
if (twa < twb) return 1;
if (twa > twb) return 0;
twa = (A & (unsigned long)CONST8);
twb = (B & (unsigned long)CONST8);
if (twa < twb) return 1;
return 0;
/* return (twa = (A & CONST1)) < (twb = (B & CONST1)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST2)) < (twb = (B & CONST2)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST3)) < (twb = (B & CONST3)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST4)) < (twb = (B & CONST4)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST5)) < (twb = (B & CONST5)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST6)) < (twb = (B & CONST6)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST7)) < (twb = (B & CONST7)) ? 1 :
(twa > twb ? 0 :
(twa = (A & CONST8)) < (twb = (B & CONST8)) ? 1 :
0)))))));*/
#undef A
#undef B
#undef CONST1
#undef CONST2
#undef CONST3
#undef CONST4
#undef CONST5
#undef CONST6
#undef CONST7
#undef CONST8
}
void
Internal_item_ATTLC::space(int level, Space_info_ATTLC& result) const
{
if ( is_leaf() ) {
result.leaf_count++;
result.leaves[level] += 1;
}
else if ( is_node() ) {
result.node_count++;
(next_node())->space(level+1,result);
}
}
void
Internal_node_ATTLC::initialize()
{
if ( internal_node_pool_ptr_ATTLC == 0 )
internal_node_pool_ptr_ATTLC = new Pool(sizeof(Internal_node_ATTLC));
}
void*
Internal_node_ATTLC::operator new(size_t i)
{
initialize();
if ( i == sizeof(Internal_node_ATTLC) )
return internal_node_pool_ptr_ATTLC->alloc();
else
return new char[i];
}
void
Internal_node_ATTLC::space(int level, Space_info_ATTLC& result) const
{
if ( level > result.max_level )
result.max_level = level;
for ( int i=0 ; i<SET_NODE_SIZE_ATTLC ; i++ ) {
if ( !item[i].is_null() ) {
result.occupancy[level]++;
(item[i]).space(level,result);
}
}
}
Internal_node_ATTLC::Internal_node_ATTLC()
{
register Internal_item_ATTLC* itemp = &item[0];
register int i = SET_NODE_SIZE_ATTLC;
while ( i-- )
(itemp++)->make_null();
busy_count = 0;
}