src/stdlib/hashtab.c
/*======================
 * find_hashtab -- Find and return value
 *  set optional present arg to indicate whether value was found
 *====================*/
- Find and return value
set optional present arg to indicate whether value was found
- Find and return value set optional present arg to indicate whether value was found
HVALUE
find_hashtab (HASHTAB tab, CNSTRING key, BOOLEAN * present)
{
	HASHENT entry=0;
	ASSERT(tab);
	ASSERT(tab->magic == hashtab_magic);
	entry = fndentry(tab, key);
	if (present) *present = !!entry;
	if (!entry) return 0;
	ASSERT(entry->magic == hashent_magic);
	return entry->val;
}
HVALUE find_hashtab ( HASHTAB tab , CNSTRING key , BOOLEAN * present ) { HASHENT entry = 0 ; ASSERT ( tab ) ; ASSERT ( tab -> magic == hashtab_magic ) ; entry = fndentry ( tab , key ) ; if ( present ) * present = ! ! entry ; if ( ! entry ) return 0 ; ASSERT ( entry -> magic == hashent_magic ) ; return entry -> val ; }
find_hashtab -- Find and return value
  set optional present arg to indicate whether value was found
find_hashtab -- Find and return value set optional present arg to indicate whether value was found