68 lines
4.8 KiB
C
68 lines
4.8 KiB
C
#ifndef _UCLISP_LISP_H_
|
|
#define _UCLISP_LISP_H_
|
|
|
|
#include "common.h"
|
|
|
|
#define LISP_FUNC_0(func_name, ucl_name, scope_name) \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl, struct ucl_scope *scope); \
|
|
struct ucl_object *func_name(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *args) { \
|
|
if (args->cell.car != NULL) { \
|
|
return NULL; \
|
|
} \
|
|
return func_name##_impl(ucl, scope); \
|
|
} \
|
|
static struct ucl_object *func_name##_impl(struct ucl *ucl_name, struct ucl_scope *scope)
|
|
|
|
#define LISP_FUNC_1(func_name, ucl_name, scope_name, arg0_name) \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *arg0_name); \
|
|
struct ucl_object *func_name(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *args) { \
|
|
struct ucl_object *len_obj = ucl_list_length(ucl, args); \
|
|
if (len_obj->type != UCL_TYPE_INT) { \
|
|
return NULL; \
|
|
} \
|
|
if (len_obj->integer != 1) { \
|
|
return NULL; \
|
|
} \
|
|
struct ucl_object *arg0 = ucl_car(ucl, args); \
|
|
return func_name##_impl(ucl, scope_name, arg0); \
|
|
} \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl_name, struct ucl_scope *scope, struct ucl_object *arg0_name)
|
|
|
|
// TODO: Unroll the args more efficiently, this is O(n^2)
|
|
#define LISP_FUNC_2(func_name, ucl_name, scope_name, arg0_name, arg1_name) \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *arg0_name, struct ucl_object *arg1_name); \
|
|
struct ucl_object *func_name(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *args) { \
|
|
struct ucl_object *len_obj = ucl_list_length(ucl, args); \
|
|
if (len_obj->type != UCL_TYPE_INT) { \
|
|
return NULL; \
|
|
} \
|
|
if (len_obj->integer != 2) { \
|
|
return NULL; \
|
|
} \
|
|
struct ucl_object *arg0 = ucl_list_nth(ucl, args, 0); \
|
|
struct ucl_object *arg1 = ucl_list_nth(ucl, args, 1); \
|
|
return func_name##_impl(ucl, scope, arg0, arg1); \
|
|
} \
|
|
static struct ucl_object *func_name##_impl(struct ucl *ucl_name, struct ucl_scope *scope, struct ucl_object *arg0_name, struct ucl_object *arg1_name)
|
|
|
|
// TODO: Unroll the args more efficiently, this is O(n^2)
|
|
#define LISP_FUNC_3(func_name, ucl_name, scope_name, arg0_name, arg1_name, arg2_name) \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *arg0_name, struct ucl_object *arg1_name, struct ucl_object *arg2_name); \
|
|
struct ucl_object *func_name(struct ucl* ucl, struct ucl_scope *scope, struct ucl_object *args) { \
|
|
struct ucl_object *len_obj = ucl_list_length(ucl, args); \
|
|
if (len_obj->type != UCL_TYPE_INT) { \
|
|
return NULL; \
|
|
} \
|
|
if (len_obj->integer != 3) { \
|
|
return NULL; \
|
|
} \
|
|
struct ucl_object *arg0 = ucl_list_nth(ucl, args, 0); \
|
|
struct ucl_object *arg1 = ucl_list_nth(ucl, args, 1); \
|
|
struct ucl_object *arg2 = ucl_list_nth(ucl, args, 2); \
|
|
return func_name##_impl(ucl, scope, arg0, arg1, arg2); \
|
|
} \
|
|
static struct ucl_object *func_name##_impl(struct ucl* ucl_name, struct ucl_scope *scope_name, struct ucl_object *arg0_name, struct ucl_object *arg1_name, struct ucl_object *arg2_name)
|
|
|
|
|
|
#endif
|