strings.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/strings.h"
 
#include <string.h>
 
#include "serene/rt/context.h"
#include "serene/rt/core.h"
#include "serene/rt/engine.h"
#include "serene/rt/errors.h"
#include "serene/utils.h"
 
size_t srn_string_size(const srn_string_t *s) {
  PANIC_IF_NULL(s);
  return s->size;
}
 
size_t srn_string_length(const srn_string_t *s) {
  PANIC_IF_NULL(s);
  return s->len;
}
 
srn_string_t *srn_string_copy(srn_context_t *ctx, const srn_string_t *src) {
  PANIC_IF_NULL(ctx);
  size_t alloc_size  = sizeof(srn_string_t) + src->size;
  srn_string_t *copy = srn_allocate(ctx, alloc_size, alignof(srn_string_t));
  memcpy(copy->buffer, src->buffer, src->size);
  copy->size = src->size;
  copy->len  = src->len;
  return copy;
}
 
bool srn_string_is_empty(const srn_string_t *s) { return s->len == 0; }
 
srn_value_t *srn_string_make(srn_context_t *ctx, srn_metadata_t *metadata, const char *src) {
  PANIC_IF_NULL(ctx);
  const size_t max_len = ctx->engine->config.limits.string_max_len;
  size_t size          = strnlen(src, max_len);
  if (size == max_len) {
    return srn_errors_make_error(
      ctx, metadata, STRING_LENGTH_LIMIT_EXCEEDED,
      "Check your string to be null terminated and within the string length limit"
    );
  }
 
  // The one is there for '\0'. We include the null terminator to have easier
  // time dealing with C strings
  size_t alloc_size    = sizeof(srn_string_t) + size + 1;
  srn_string_t *string = srn_allocate(ctx, alloc_size, alignof(srn_string_t));
  // For now we only handle ASCII, but when we implement WTF8 we should
  // handel len here
 
  string->len  = size;
  string->size = size + 1; // Again null terminator
  memcpy(&string->buffer, src, size);
  // Inject the null terminator at the end of the buffer to make it C friendly
  string->buffer[string->len] = '\0';
 
  srn_value_t *string_value = srn_value_make(ctx, VString, metadata, (void *)string);
  return string_value;
}
 
bool srn_string_eq(const srn_string_t *a, const srn_string_t *b) {
  if (a == nullptr || b == nullptr || (a->size != b->size)) {
    return false;
  }
 
  return memcmp(&a->buffer, &b->buffer, a->size) == 0;
}