hashdump.c revision 7c2fbfb345896881c631598ee3852ce9ce33fb07
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* Copyright (c) 1985-2008 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Bell Laboratories
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * hash table library
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * dump HASH_* flags
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & HASH_ALLOCATE) sfprintf(sfstderr, "allocate ");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & HASH_BUCKET) sfprintf(sfstderr, "bucket ");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & HASH_HASHED) sfprintf(sfstderr, "hashed ");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & HASH_RESIZE) sfprintf(sfstderr, "resize ");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & HASH_STATIC) sfprintf(sfstderr, "static ");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * dump hash table bucket info
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char* s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(b->hash & HASH_DELETED) && (!(tab->flags & HASH_VALUE) || b->value))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(b->hash & HASH_DELETED) && (!(tab->flags & HASH_VALUE) || b->value))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = (unsigned char*)hashname(b);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (n-- > 0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (b->hash & HASH_HIDES) sfprintf(sfstderr, "hides|");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (b->hash & HASH_HIDDEN) sfprintf(sfstderr, "hidden|");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (b->hash & HASH_OPAQUED) sfprintf(sfstderr, "opaque|");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (tab->flags & HASH_VALUE) sfprintf(sfstderr, "=0x%08lx", (long)b->value);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * dump info on a single table
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindumptable(register Hash_table_t* tab, register int flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " name: %s", tab->name ? tab->name : "*no name*");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " level %d scope on 0x%08lx", level, (unsigned long)tab->scope);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " address: 0x%08lx\n", (unsigned long)tab);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (tab->frozen) sfprintf(sfstderr, "frozen=%d ", tab->frozen);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " bucketsize: %d\n", tab->bucketsize * sizeof(char*));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((flags | tab->flags) & HASH_BUCKET) dumpbucket(tab, flags);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * dump hash table root info
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindumproot(register Hash_root_t* root, register int flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " address: 0x%08lx\n", (unsigned long)root);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->namesize) sfprintf(sfstderr, "namesize=%d ", root->namesize);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->local->alloc) sfprintf(sfstderr, "alloc=0x%08lx ", (unsigned long)root->local->alloc);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->local->compare) sfprintf(sfstderr, "compare=0x%08lx ", (unsigned long)root->local->compare);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->local->free) sfprintf(sfstderr, "free=0x%08lx ", (unsigned long)root->local->free);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->local->hash) sfprintf(sfstderr, "hash=0x%08lx ", (unsigned long)root->local->hash);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (root->local->region) sfprintf(sfstderr, "region=0x%08lx handle=0x%08lx ", (unsigned long)root->local->region, (unsigned long)root->local->handle);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " meanchain: %d\n", root->meanchain);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(sfstderr, " collisions: %d\n", root->collisions);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * dump hash table accounting info
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if tab is 0 then dump all tables in hash_info.list
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * flags are HASH_* flags that specifiy optional dump info