From 4c52777ca9e52edd0bff76168d886de9757ea457 Mon Sep 17 00:00:00 2001 From: Elias Fleckenstein Date: Thu, 30 Dec 2021 16:53:37 +0100 Subject: Add :ref module and refactor type handling --- std/ref.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 std/ref.c (limited to 'std/ref.c') diff --git a/std/ref.c b/std/ref.c new file mode 100644 index 0000000..f82bb50 --- /dev/null +++ b/std/ref.c @@ -0,0 +1,21 @@ +#include "../src/err.h" +#include "../api/ref.h" +#include "../api/util.h" + +UwUVMValue uwu_call(UwUVMArgs *args) +{ + if (args->num < 1) + error(":ref:call requires at least one argument\n"); + + UwUVMValue value = uwuvm_get_arg(args, 0); + + if (value.type != &uwuref_type) + error(":ref:call requires a function reference as $0\n"); + + return uwuvm_call_function(value.data, args->num - 1, &args->unevaluated[1], args->super); +} + +UwUVMValue uwu_is(UwUVMArgs *args) +{ + return uwuutil_is_type(":ref:is", args, &uwuref_type); +} -- cgit v1.2.3