Net2/usr/src/contrib/isode/quipu/turbo_debug.c
/* turbo_debug.c */
#ifndef lint
static char *rcsid = "$Header: /f/osi/quipu/RCS/turbo_debug.c,v 7.1 91/02/22 09:40:06 mrose Interim $";
#endif
/*
* $Header: /f/osi/quipu/RCS/turbo_debug.c,v 7.1 91/02/22 09:40:06 mrose Interim $
*
*
* $Log: turbo_debug.c,v $
* Revision 7.1 91/02/22 09:40:06 mrose
* Interim 6.8
*
*/
/*
* NOTICE
*
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
* this agreement.
*
*/
#include <sys/types.h>
#include <stdio.h>
#include "manifest.h"
#include "psap.h"
#include "quipu/commonarg.h"
#include "quipu/util.h"
#include "quipu/attr.h"
#include "quipu/entry.h"
#include "quipu/turbo.h"
extern LLog *log_dsap;
int turbo_index_num;
AttributeType *turbo_index;
PS ps;
static rsavl_print( root, fn, fps, depth )
Avlnode *root;
IFP fn;
FILE *fps;
int depth;
{
int i;
if ( root == 0 )
return;
rsavl_print( root->avl_right, fn, fps, depth+1 );
for ( i = 0; i < depth; i++ )
(*fn)( fps, " " );
(*fn)( fps, ((Index_node *)root->avl_data)->in_value );
(*fn)( fps, " %d\n", root->avl_bf );
rsavl_print( root->avl_left, fn, fps, depth+1 );
}
savl_print( root )
Avlnode *root;
{
int fprintf();
(void) printf( "**** soundex avl_print ****\n" );
if ( root == 0 ) {
(void) printf( "NULL\n" );
return;
}
( void ) rsavl_print( root, fprintf, (FILE *)stdout, 0 );
(void) printf( "**** soundex avl_print end ****\n" );
}
static ravl_print( root, fn, fps, format, depth )
Avlnode *root;
IFP fn;
PS fps;
int format;
{
int i;
if ( root == 0 )
return;
ravl_print( root->avl_right, fn, fps, format, depth+1 );
for ( i = 0; i < depth; i++ )
ps_print( fps, " " );
(*fn)( fps, (( Entry )(root->avl_data))->e_name, format );
ps_printf( fps, " %d\n", root->avl_bf );
ravl_print( root->avl_left, fn, fps, format, depth+1 );
}
avl_print( root )
Avlnode *root;
{
PS fps;
int rdn_print();
(void) printf( "**** avl_print ****\n" );
if ( root == 0 ) {
(void) printf( "NULL\n" );
return;
}
if ( (fps = ps_alloc( std_open )) == NULLPS ) {
(void) printf( "avl_print: ps_alloc failed\n" );
return;
}
if ( std_setup( fps, stdout ) == NOTOK ) {
(void) printf( "avl_print: std_setup failed\n" );
return;
}
( void ) ravl_print( root, rdn_print, fps, EDBOUT, 0 );
(void) printf( "**** avl_print end ****\n" );
ps_free( fps );
}
static rprint_directory( node, depth )
Entry node;
int depth;
{
int i;
for ( i = 0; i < depth; i++ )
ps_print( ps, "\t" );
rdn_print( ps, node->e_name, EDBOUT );
ps_print( ps, "\n" );
if ( node->e_children != NULLAVL )
(void) avl_apply( node->e_children, rprint_directory, (caddr_t) (depth + 1),
NOTOK, AVL_INORDER );
}
print_directory( node )
Entry node;
{
if ( (ps = ps_alloc( std_open )) == NULLPS ) {
(void) printf( "avl_print: ps_alloc failed\n" );
return;
}
if ( std_setup( ps, stdout ) == NOTOK ) {
(void) printf( "avl_print: std_setup failed\n" );
return;
}
rprint_directory( node, 0 );
ps_free( ps );
(void) fflush( stdout );
}
/*
* print_optimized_attrs -- print out a list of attributes being optimized.
* for debugging...
*/
print_optimized_attrs()
{
int i;
PS fps;
if ( (fps = ps_alloc( std_open )) == NULLPS ) {
(void) printf( "turbo_index_print: ps_alloc failed\n" );
return;
}
if ( std_setup( fps, stdout ) == NOTOK ) {
(void) printf( "turbo_index_print: std_setup failed\n" );
return;
}
ps_print( fps, "Optimized attributes:\n" );
for ( i = 0; i < turbo_index_num; i++ ) {
ps_printf( fps, "\t" );
AttrT_print( fps, turbo_index[ i ], EDBOUT );
ps_printf( fps, "\n" );
}
ps_printf( fps, "End of Optimized Attributes:\n" );
ps_free( fps );
}
static print_index_node( node, fps )
Index_node *node;
PS fps;
{
int i;
ps_print( fps, "\t" );
AttrV_print( fps, (AttributeValue)node->in_value, EDBOUT );
ps_print( fps, "\n" );
for ( i = 0; i < node->in_num; i++ ) {
ps_print( fps, "\t\t" );
rdn_print( fps, node->in_entries[ i ]->e_name,
EDBOUT );
ps_print( fps, "\n" );
}
return( OK );
}
static print_soundex_node( node, fps )
Index_node *node;
PS fps;
{
int i;
ps_print( fps, "\t" );
ps_print( fps, node->in_value );
ps_print( fps, "\n" );
for ( i = 0; i < node->in_num; i++ ) {
ps_print( fps, "\t\t" );
rdn_print( fps, node->in_entries[ i ]->e_name,
EDBOUT );
ps_print( fps, "\n" );
}
return( OK );
}
/*
* print_index -- print the given attribute index.
*/
print_index( pindex )
Index *pindex;
{
PS fps;
int i;
if ( pindex == (Index *) 0 ) {
(void) printf("NULLINDEX\n");
return;
}
if ( (fps = ps_alloc( std_open )) == NULLPS ) {
(void) printf( "turbo_index_print: ps_alloc failed\n" );
return;
}
if ( std_setup( fps, stdout ) == NOTOK ) {
(void) printf( "turbo_index_print: std_setup failed\n" );
return;
}
ps_print( fps, "*******\n" );
for ( i = 0; i < turbo_index_num; i++ ) {
ps_printf( fps, " Index for attribute (%s)\n",
pindex[i].i_attr->oa_ot.ot_name );
(void) avl_apply( pindex[i].i_root, print_index_node, (caddr_t) fps,
NOTOK, AVL_INORDER );
ps_printf( fps, " Soundex index for attribute (%s)\n",
pindex[i].i_attr->oa_ot.ot_name );
(void) avl_apply( pindex[i].i_sroot, print_soundex_node, (caddr_t) fps,
NOTOK, AVL_INORDER );
ps_print( fps, " Endof index\n" );
}
ps_print( fps, "*******\n" );
ps_free( fps );
}
print_eis_list( e )
EntryInfo *e;
{
DN dnend;
if ( e == NULLENTRYINFO ) {
(void) printf("\tNULL\n");
return;
}
while ( e != NULLENTRYINFO ) {
for ( dnend = e->ent_dn; dnend->dn_parent != NULLDN;
dnend = dnend->dn_parent )
; /* NULL */
(void) printf("\t(%s)\n", dnend->dn_rdn->rdn_av.av_struct);
e = e->ent_next;
}
(void) printf("(end)\n");
}
print_dn( dn )
DN dn;
{
PS fps;
if ( (fps = ps_alloc( std_open )) == NULLPS ) {
(void) printf( "turbo_index_print: ps_alloc failed\n" );
return;
}
if ( std_setup( fps, stdout ) == NOTOK ) {
(void) printf( "turbo_index_print: std_setup failed\n" );
return;
}
ps_print( fps, "\tDN= " );
dn_print( fps, dn, EDBOUT );
ps_print( fps, "\n" );
(void) ps_flush( fps );
ps_free( fps );
}