1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
/*
* Copyright (C) 2020 Jo-Philipp Wich <jo@mein.io>
*
* Permission to use, copy, modify, and/or distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
#ifndef __LIB_H_
#define __LIB_H_
#include "ast.h"
#include "lexer.h"
typedef struct json_object *(ut_c_fn)(struct ut_state *, struct ut_opcode *, struct json_object *);
static inline int
ut_c_fn_to_string(struct json_object *v, struct printbuf *pb, int level, int flags)
{
return sprintbuf(pb, "%sfunction(...) { [native code] }%s",
level ? "\"" : "", level ? "\"" : "");
}
static inline bool
ut_add_function(struct ut_state *state, struct json_object *scope, const char *name, ut_c_fn *fn)
{
struct ut_opcode *op = ut_new_op(state, T_CFUNC,
json_object_new_boolean(0), (struct ut_opcode *)fn, (void *)1);
json_object_set_serializer(op->val, ut_c_fn_to_string, op, NULL);
return json_object_object_add(scope, name, json_object_get(op->val));
}
void ut_lib_init(struct ut_state *state, struct json_object *scope);
char *ut_format_error(struct ut_state *state, const char *expr);
#endif /* __LIB_H_ */
|
