kb_symbol.c

Go to the documentation of this file.

/*--------------------------------------------------------------------
 * kb_symbol.c - KoreBot Library - Symbol Management
 *--------------------------------------------------------------------
 * $Id: kb_symbol.c,v 1.4 2004/09/22 08:29:14 pbureau Exp $
 *--------------------------------------------------------------------
 * $Author: pbureau $
 * $Revision: 1.4 $
 * $Date: 2004/09/22 08:29:14 $
 *--------------------------------------------------------------------*/

#include "korebot.h"

/*--------------------------------------------------------------------*/
const char *kb_symbol_type_names[] = {
  "section" , "alias" , "device" , "register" , NULL
};

/*--------------------------------------------------------------------*/
kb_symbol_table_t * kb_create_symbol_table( kb_symbol_table_t * table )
{
  unsigned int index;

  if ( table == NULL ) 
    table = KB_ALLOC(kb_symbol_table_t,1);
 
  (void)pthread_mutex_init( &table->lock , 0 );
  table->count = 0;

  for (index=0; index<KB_SYMBOL_TABLE_SIZE; index++) {
    table->symbols[index] = NULL;
  }
  
  return table;
}

/*--------------------------------------------------------------------*/
void kb_destroy_symbol_table( kb_symbol_table_t * table )
{
  unsigned int index;
  kb_symbol_t * sym , *next;

  (void)pthread_mutex_destroy( &table->lock );
  table->count = 0;
 
  for (index=0; index<KB_SYMBOL_TABLE_SIZE; index++) {
  
    sym = table->symbols[index];
    
    while ( sym != NULL ) {
      //printf("toto\n");
      //printf("sym=%08X\n" , sym );
      //printf("sym->name=%s\n"  , sym->name );
      //printf("sym->type=%u\n" , sym->type );
      //printf("sym->alloc=%u\n" , sym->alloc );
      //printf("sym->value=%u\n" , sym->value );
      //printf("sym->next=%08X\n" , sym->next );

      next = sym->next;
      if ( sym->alloc != 0 ) {
        kb_free( (void *)sym->value );
      }
      kb_free( sym );
      sym = next;
    }
  }
}

/*--------------------------------------------------------------------*/
unsigned long kb_hash( const char * name )
{
  unsigned long h = 0;

  while ( *name != '\0' ) {
    h = ( h << 2 ) + ( tolower(*name) );
    name++;
  }
  return h;
}

/*--------------------------------------------------------------------*/
int kb_add_symbol( kb_symbol_table_t * table , kb_symbol_t * new ) 
{
  unsigned int index;
  kb_symbol_t * sym;

  new->next = NULL;

  index = ( kb_hash( new->name ) % KB_SYMBOL_TABLE_SIZE );

  sym = table->symbols[index];

  while ( sym != NULL ) {
    if ( !strcasecmp( sym->name , new->name ) ) 
      return 0;
    sym = sym->next;
  }

  pthread_mutex_lock( &table->lock );
  new->next = table->symbols[index];
  
  table->symbols[index] = new;
  table->count++;
  pthread_mutex_unlock( &table->lock );

  return 1;
}

/*--------------------------------------------------------------------*/
kb_symbol_t * kb_lookup_symbol( kb_symbol_table_t * table , 
                                const char * name )
{
  unsigned int index;
  kb_symbol_t * sym;

  index = ( kb_hash(name) % KB_SYMBOL_TABLE_SIZE );
  
  sym = table->symbols[index];

  while ( sym != NULL ) {

    if ( !strcasecmp( sym->name , name ) ) 
      return sym;
   
    sym = sym->next;
  }
  
  return sym;
}

/*--------------------------------------------------------------------*/
void kb_dump_symbol_table( kb_symbol_table_t * table )
{
  unsigned int index;
  kb_symbol_t * sym;
  
  kb_msg("------------------------------------------------------------------\n");
  kb_msg(" Name                             Type                            \n");
  kb_msg("------------------------------------------------------------------\n");
  
  for (index=0; index<KB_SYMBOL_TABLE_SIZE; index++) {

    sym = table->symbols[index];
    while (sym != NULL) {
      kb_msg( " %-32s %-32s\n" , 
              sym->name , 
              kb_symbol_type_names[sym->type] );
      
      sym = sym->next;
    }
  }

  kb_msg("==================================================================\n");
}

---