symbols.c

Go to the documentation of this file.

/* -*- C -*-
 * Serene programming language
 * Copyright (C) 2019-2026 Sameer Rahmani <[email protected]>
 *
 * This library is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this library.  If not, see <https://www.gnu.org/licenses/>.
 */
 
#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"
 
srn_value_t *srn_symbol_make(srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns,
                             srn_string_t *name) {
  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);
}
 
srn_value_t *srn_symbol_intern(srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns,
                               srn_string_t *symbol_name) {
  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;
}
 
srn_value_t *srn_symbol_gen(srn_context_t *ctx, srn_metadata_t *metadata, srn_namespace_t *ns,
                            srn_string_t *optional_name) {
  // 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));
}