Newer
Older
Tardis / lang / boolean.c
// SPDX-License-Identifier: MIT
// Copyright (c) 2023 John Watts and the LuminaSensum contributors

#include "boolean.h"
#include "error.h"
#include "object.h"
#include "vm.h"
#include <stddef.h>

static struct object_class boolean_class;

struct boolean {
	bool value;
};

Object boolean_create(bool value) {
	Object obj = object_create(&boolean_class, sizeof(struct boolean));
	abort_if(!obj, "unable to allocate boolean");
	struct boolean *boolean =
		(struct boolean *)object_priv(obj, &boolean_class);
	boolean->value = value;
	return obj;
}

static void boolean_cleanup(Object obj) { (void)obj; }

bool boolean_value(Object obj) {
	struct boolean *boolean =
		(struct boolean *)object_priv(obj, &boolean_class);
	return boolean->value;
}

static void boolean_invert(VmState state, Object obj, void *priv) {
	(void)priv;
	int arg_count = vm_stack_depth(state);
	abort_if(arg_count != 1, "boolean_invert called with extra arguments");
	bool value = boolean_value(obj);
	bool invert = !value;
	vm_stack_set(state, 0, boolean_create(invert ));
}

static struct object_call calls[] = {
	{.name = "Invert", .handler = boolean_invert, .priv = NULL},
	{.name = NULL, /* end */}};

static struct object_class boolean_class = {
	.cleanup = boolean_cleanup,
	.calls = &calls[0],
};