roza/lib/value.c

#include "value.h"

void value_init(value_t* value, type_t* type, int line)
{
  assert(value);
  assert(type);

  value->type = type;
  value->line = line;
}

void value_free(value_t* value)
{
  assert(value);

  if (value->type->kind == TYPE_STR)
    {
      free(value->value.str);
    }
}

int value_eq(value_t* value, value_t* rhs)
{
  if (!type_eq(value->type, rhs->type))
    {
      return 0;
    }

  switch (value->type->kind)
    {
    case TYPE_NUM: {
      return value->value.num == rhs->value.num;
    } break;

    case TYPE_BOOL: {
      return value->value.bool == rhs->value.bool;
    } break;

    case TYPE_STR: {
      return strcmp(value->value.str, rhs->value.str) == 0;
    } break;

    default: {
      fprintf(stderr, "Cannot compare value of type '%s'.\n",
              TypeKindStr[value->type->kind]);
      abort();
    };
    }

  return 0;
}

size_t value_str(value_t* value, char* buffer, size_t size)
{
  assert(value);
  assert(buffer);

  switch (value->type->kind)
    {
    case TYPE_NUM:
      return snprintf(buffer, size, "%lf", value->value.num);
      break;

    case TYPE_BOOL:
      return snprintf(buffer, size, "%s", value->value.bool ? "true" : "false");
      break;

    case TYPE_STR:
      return snprintf(buffer, size, "\"%s\"", value->value.str);
      break;

    default: {
      fprintf(stderr, "Cannot stringify unknown value of type '%s'.\n",
              TypeKindStr[value->type->kind]);
      abort();
    };
    }
}