namespaces.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/namespaces.h"
 
#include "serene/rt/core.h"
#include "serene/rt/engine.h"
#include "serene/rt/errors.h"
#include "serene/rt/impl/hashmap.h"
#include "serene/rt/strings.h"
#include "serene/rt/symbols.h"
#include "serene/utils.h"
 
srn_value_t *srn_namespace_make(srn_context_t *ctx, srn_metadata_t *metadata, srn_string_t *name) {
  PANIC_IF_NULL(ctx);
  PANIC_IF_NULL(name);
 
  // Empty string is not a valid namespace name
  if (srn_string_is_empty(name)) {
    return srn_errors_make_error(ctx, metadata, EMPTY_NAMESPACE_NAME, nullptr);
  };
 
  if (srn_string_length(name) > ctx->engine->config.limits.ns_name_max_len) {
    return srn_errors_make_error(
      ctx, metadata, STRING_LENGTH_LIMIT_EXCEEDED, "Namespace name exceeds the length limit"
    );
  }
 
  srn_namespace_t *ns = ALLOC(ctx, srn_namespace_t);
  ns->name            = srn_string_copy(ctx, name);
 
  ns->id           = srn_allocate_object_id(ctx->engine);
  ns->root_context = srn_context_make(ctx->engine);
  // The symbol table outlives the creating context, so it is pinned to the
  // namespace's own root context; the table's keys and trie nodes land in
  // that chain rather than in the creating caller's block.
  ns->sym_table  = hmap_empty(ns->root_context);
  ns->src_buffer = nullptr;
 
  srn_spinlock_init(&ns->sym_table_lock);
  srn_spinlock_init(&ns->src_buffer_lock);
 
  return srn_value_make(ctx, VNamespace, metadata, (void *)ns);
}
 
srn_namespace_t *srn_namespace_load(srn_namespace_t *ns) {
  PANIC_IF_NULL(ns);
  return nullptr;
}