shrub/f/nash.c

/* f/nash.c
**
** This file is in the public domain.
*/
#include "all.h"
#include "f/nash.h"
#include <bitmapped_patricia_tree.h>

/* structures
*/
  /* u2_nair: bucket node.
  */
  struct u2_nair {
    u2_noun key;
    void*   val;
  };

  /* u2_buck: realloced bucket.
  */
  struct u2_buck {
    c3_w            con_w;
    struct u2_nair* sto_u;
  };

  /* u2_nash: wrapper around Patricia trie.
  */
  struct u2_nash {
    bpt_t sto;
  };

void u2_na_dump(struct u2_nash* nas_u);

/* u2_na_make(): create a new nounhash-table.
**
** nashtables live in C memory and do not take refs.
*/
struct u2_nash*
u2_na_make()
{
  struct u2_nash* nas_u = calloc(1, sizeof(*nas_u));
  c3_assert(nas_u);
  //  fprintf(stderr, "[%%nash-make %p]\r\n", nas_u);
  return nas_u;
}

/* u2_na_put(): put into nash, replacing.
*/
void
u2_na_put(struct u2_nash* nas_u, u2_noun key, void* val)
{
  struct u2_buck* buc_u = 0;
  struct u2_nair* nuu_u = 0;
  c3_w     sot_w = 0;
  c3_w     i = 0;

  u2_noun tom = u2_mug(key);
  
  if ( !bpt_has_key(nas_u->sto, tom)) {
    bpt_t ots;

    buc_u = calloc(1, sizeof(*buc_u));
    c3_assert(buc_u);
    ots = bpt_assoc(nas_u->sto, tom, buc_u);
    bpt_release(nas_u->sto);
    nas_u->sto = ots;
#if 0
    fprintf(stderr, "[%%nash-sto %p %p]\r\n", nas_u->sto, tom);
    if (!bpt_has_key(nas_u->sto, tom)) {
      u2_na_dump(nas_u);
      assert(0);
    }
#endif
  }

  buc_u = bpt_get(nas_u->sto, tom);

  if ( 0 == buc_u->con_w ) {
    c3_assert(buc_u->sto_u == 0);
  }
  else {
    for(i = 0; i < buc_u->con_w; i++) {
      if (u2_sing(buc_u->sto_u[i].key, key) == u2_yes) {
        buc_u->sto_u[i].val = val;
#if 0
        fprintf(stderr, "[%%nash-rep %p %p %d]\r\n",
                (void*)key, (void*)val, i);
#endif
        return;
      }
    }
  }

  sot_w = buc_u->con_w;
  buc_u->con_w++;

  nuu_u = realloc(buc_u->sto_u, buc_u->con_w * sizeof(struct u2_nair));
  c3_assert(nuu_u);

  nuu_u[sot_w].key = key;
  nuu_u[sot_w].val = val;
  buc_u->sto_u = nuu_u;
#if 0
  fprintf(stderr, "[%%nash-put %p %p %d]\r\n",
          (void*)key, (void*)val, sot_w);
#endif
}

/* u2_na_get(): get a noun from a nounhash table.
*/
u2_weak
u2_na_get(struct u2_nash* nas_u, u2_noun key)
{
  u2_weak may;
  c3_b    fon;
  may = (u2_noun)u2_na_get_ptr(nas_u, key, &fon);
  if (fon == u2_no) {
    return u2_none;
  }
  return (u2_noun)may;
}

/* u2_na_get_ptr(): get a pointer from a nounhash table, along with a
** bean indicating found status.
*/
void*
u2_na_get_ptr(struct u2_nash* nas_u, u2_noun key, c3_b* found)
{
  struct u2_buck* buc_u = 0;
  c3_w i;
  u2_noun tom = u2_mug(key);
  *found = u2_no;

  if ( !bpt_has_key(nas_u->sto, tom) ) {
    //  fprintf(stderr, "[%%nash-get-none %p %p]\r\n", nas_u->sto, tom);
    return 0;
  }
    
  buc_u = bpt_get(nas_u->sto, tom);
  for(i = 0; i < buc_u->con_w; i++) {
    if (u2_sing(buc_u->sto_u[i].key, key) == u2_yes) {
#if 0
      fprintf(stderr, "[%%nash-get %p %p %d]\r\n",
              (void*)key, (void*)buc_u->sto_u[i].val, i);
#endif
      *found = u2_yes;
      return buc_u->sto_u[i].val;
    }
  }
  return 0;
}

/* _na_drop(): deallocate a node.
*/
static void
_na_drop(bpt_key_t x, void* a, void* b)
{
  struct u2_buck* buc = a;
  free(buc->sto_u);
  free(buc);
}

/* _na_dump(): debugging dump.
*/
void
_na_dump(bpt_key_t x, void* a, void* b)
{
  struct u2_buck* buc = a;
  int i;
  fprintf(stderr, "[%%nash-dump %x ", x);
  for(i=0;i<buc->con_w;i++) {
    fprintf(stderr, "%x->%p%s", buc->sto_u[i].key, buc->sto_u[i].val,
            i+1==buc->con_w?"":" ");
  }
  fprintf(stderr, "]\r\n");
}

/* u2_na_dump(): debugging dump.
*/
void u2_na_dump(struct u2_nash* nas_u)
{
  if(nas_u->sto) bpt_for_mappings(nas_u->sto, _na_dump, 0);
}

/* u2_na_take(): destroy a nounhash table.
*/
void
u2_na_take(struct u2_nash* nas_u)
{
  if (nas_u->sto) bpt_for_mappings(nas_u->sto, _na_drop, 0);
  bpt_release(nas_u->sto);
  free(nas_u);

  //  fprintf(stderr, "[%%nash-take %p]\r\n", nash);
}