symbols.c File Reference

#include "serene/rt/symbols.h"
#include "serene/rt/context.h"
#include "serene/rt/engine.h"
#include "serene/rt/errors.h"
#include "serene/rt/impl/hashmap.h"
#include "serene/rt/namespaces.h"
#include "serene/rt/strings.h"
#include "serene/utils.h"

Include dependency graph for symbols.c:

Go to the source code of this file.

Functions
srn_value_t *	srn_symbol_make (srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns, srn_string_t *name)
	Create a new symbol. IT DOES NOT INTERNALIZE THE SYMBOL.
srn_value_t *	srn_symbol_intern (srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns, srn_string_t *symbol_name)
srn_value_t *	srn_symbol_gen (srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns, srn_string_t *optional_name)

Function Documentation

srn_symbol_gen()

srn_value_t * srn_symbol_gen	(	srn_context_t *	ctx,
		srn_metadata_t *	metadata,
		srn_namespace_t *	ns,
		srn_string_t *	optional_name )

Definition at line 72 of file symbols.c.

                                                         {
  // We don't use the optional name for now
  UNUSED(optional_name);
  PANIC_IF_NULL(ctx);
  object_id_t id = srn_allocate_object_id(ctx->engine);
 
  // Calculate the length
  int len = snprintf(nullptr, 0, "gensym_%" PRIu64, id);
  PANIC_IF(len < 0, "This should never happen!");
 
  // Including the null terminator
  char *name = srn_allocate(ctx, len + 1, alignof(char));
  (void)snprintf(name, len + 1, "gensym_%" PRIu64, id);
 
  srn_value_t *sym_name = srn_string_make(ctx, metadata, name);
  return srn_symbol_intern(ctx, metadata, ns, AS_STRING(sym_name));
}

Here is the call graph for this function:

Here is the caller graph for this function:

srn_symbol_intern()

srn_value_t * srn_symbol_intern	(	srn_context_t *	ctx,
		srn_metadata_t *	metadata,
		srn_namespace_t *	ns,
		srn_string_t *	symbol_name )

Definition at line 43 of file symbols.c.

                                                          {
  PANIC_IF_NULL(ctx);
  PANIC_IF_NULL(ns);
  PANIC_IF_NULL(symbol_name);
 
  if (srn_string_is_empty(symbol_name)) {
    return srn_errors_make_error(ctx, metadata, EMPTY_SYMBOL_NAME, nullptr);
  };
 
  hmap_key_t *lookup_key = hmap_make_key(ctx, &symbol_name->buffer, symbol_name->size);
 
  void *result = hmap_lookup(ctx, &ns->sym_table, lookup_key, nullptr);
 
  if (result != nullptr) {
    // found the symbol, we just have to return it.
    return (srn_value_t *)result;
  }
 
  srn_spinlock_lock(&ns->sym_table_lock);
  // Couldn't find the symbol in the sym table, so it's a new symbol, insert it
  // in the table and return it
  srn_value_t *sym = srn_symbol_make(ctx, metadata, ns, symbol_name);
 
  ns->sym_table = hmap_insert(ctx, &ns->sym_table, lookup_key, (void *)sym);
  srn_spinlock_unlock(&ns->sym_table_lock);
  return sym;
}

Here is the call graph for this function:

Here is the caller graph for this function:

srn_symbol_make()

srn_value_t * srn_symbol_make	(	srn_context_t *	ctx,
		srn_metadata_t *	metadata,
		srn_namespace_t *	ns,
		srn_string_t *	name )

Create a new symbol. IT DOES NOT INTERNALIZE THE SYMBOL.

Definition at line 29 of file symbols.c.

                                                 {
  PANIC_IF_NULL(ctx);
  PANIC_IF_NULL(ns);
  PANIC_IF_NULL(name);
 
  srn_symbol_t *sym = ALLOC(ctx, srn_symbol_t);
  sym->name = srn_string_copy(ctx, name);
 
  sym->ns = ns;
 
  return srn_value_make(ctx, VSymbol, metadata, (void *)sym);
}

Here is the call graph for this function:

Here is the caller graph for this function: