symbol.c File Reference

#include "gwion_util.h"

Go to the source code of this file.

Macros
#define	TABLE_SZ(sz)   (sizeof(struct SymTable_) + sz * SZ_INT)

Functions
ANN SymTable *	new_symbol_table (MemPool p, const size_t sz)
static ANN void	free_symbol (MemPool p, const Symbol s)
ANN void	free_symbols (SymTable *const ht)
static Symbol	mksymbol (MemPool p, const m_str name, const Symbol next)
ANN Symbol	insert_symbol (SymTable *const ht, const m_str name)

Macro Definition Documentation

TABLE_SZ

#define TABLE_SZ

(

sz

)

(sizeof(struct SymTable_) + sz * SZ_INT)

Definition at line 3 of file symbol.c.

Function Documentation

free_symbol()

static ANN void free_symbol ( MemPool p, const Symbol s )

static

Definition at line 13 of file symbol.c.

                                                       {
  const Symbol next = s->next;
  mp_free2(p, sizeof(struct Symbol_ *) + strlen(s->name) + 1, s);
  if (next) free_symbol(p, next);
}

free_symbols()

ANN void free_symbols

(

SymTable *const

ht

)

Definition at line 19 of file symbol.c.

                                          {
  LOOP_OPTIM
  for (uint i = ht->sz + 1; --i;) {
    const Symbol s = ht->sym[i - 1];
    if (s) free_symbol(ht->p, s);
  }
  gwt_lock_end(&ht->mutex);
  mp_free2(ht->p, TABLE_SZ(ht->sz), ht);
}

insert_symbol()

ANN Symbol insert_symbol	(	SymTable *const	ht,
		const m_str	name )

Definition at line 39 of file symbol.c.

                                                               {
  const uint    index = hash(name) % ht->sz;
  const Symbol  syms  = ht->sym[index];
  Symbol *const addr  = &ht->sym[index];
  LOOP_OPTIM
  for (Symbol sym = syms; sym; sym = sym->next)
    if (!strcmp(sym->name, name)) return sym;
  gwt_lock(&ht->mutex);
  *addr = mksymbol(ht->p, name, syms);
  gwt_unlock(&ht->mutex);
  return ht->sym[index];
}

mksymbol()

static Symbol mksymbol ( MemPool p, const m_str name, const Symbol next )

inlinestatic

Definition at line 32 of file symbol.c.

                                                                              {
  const Symbol s = mp_malloc2(p, sizeof(struct Symbol_ *) + strlen(name) + 1);
  s->next        = next;
  strcpy(s->name, name);
  return s;
}

new_symbol_table()

ANN SymTable * new_symbol_table	(	MemPool	p,
		const size_t	sz )

Definition at line 5 of file symbol.c.

                                                           {
  SymTable *const st = mp_malloc2(p, TABLE_SZ(sz));
  st->sz             = sz;
  gwt_lock_ini(&st->mutex);
  st->p = p;
  return st;
}