From 288727f09a1b3458c268497d111349e608c3f9fa Mon Sep 17 00:00:00 2001 From: "bozo.kopic" Date: Tue, 2 Aug 2022 01:20:12 +0200 Subject: init --- src_c/builtin.c | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 65 insertions(+) create mode 100644 src_c/builtin.c (limited to 'src_c/builtin.c') diff --git a/src_c/builtin.c b/src_c/builtin.c new file mode 100644 index 0000000..92e1fa8 --- /dev/null +++ b/src_c/builtin.c @@ -0,0 +1,65 @@ +#include "builtin.h" + + +lsp_status_t lsp_builtin_get_args_1(lsp_mem_t *m, lsp_addr_t args, + lsp_addr_t *arg1) { + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg1 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args != m->nil) + return LSP_ERR_ARG_COUNT; + + return LSP_SUCCESS; +} + + +lsp_status_t lsp_builtin_get_args_2(lsp_mem_t *m, lsp_addr_t args, + lsp_addr_t *arg1, lsp_addr_t *arg2) { + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg1 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg2 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args != m->nil) + return LSP_ERR_ARG_COUNT; + + return LSP_SUCCESS; +} + + +lsp_status_t lsp_builtin_get_args_3(lsp_mem_t *m, lsp_addr_t args, + lsp_addr_t *arg1, lsp_addr_t *arg2, + lsp_addr_t *arg3) { + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg1 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg2 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args == m->nil) + return LSP_ERR_ARG_COUNT; + + *arg3 = lsp_mem_get_pair_first(m, args); + + args = lsp_mem_get_pair_second(m, args); + if (args != m->nil) + return LSP_ERR_ARG_COUNT; + + return LSP_SUCCESS; +} -- cgit v1.2.3-70-g09d2