1 /*************************************************
2 * Exim - an Internet mail transport agent *
3 *************************************************/
5 /* Copyright (c) Jeremy Harris 2019-2020 */
6 /* Copyright (c) The Exim Maintainers 2021 */
7 /* See the file NOTICE for conditions of use and distribution. */
10 #include "lf_functions.h"
15 /* All use of allocations will be done against the POOL_SEARCH memory,
16 which is freed once by search_tidyup(). Make the free call a dummy.
17 This burns some 300kB in handling a 37kB JSON file, for the benefit of
18 a fast free. The alternative of staying with malloc is nearly as bad,
19 eyeballing the activity there are 20% the number of free vs. alloc
20 calls (before the big bunch at the end).
22 Assume that the file is trusted, so no tainting */
25 json_malloc(size_t nbytes)
27 void * p = store_get((int)nbytes, FALSE);
28 /* debug_printf("%s %d: %p\n", __FUNCTION__, (int)nbytes, p); */
34 /* debug_printf("%s: %p\n", __FUNCTION__, p); */
37 /*************************************************
39 *************************************************/
41 /* See local README for interface description */
44 json_open(const uschar * filename, uschar ** errmsg)
48 json_set_alloc_funcs(json_malloc, json_free);
50 if (!(f = Ufopen(filename, "rb")))
51 *errmsg = string_open_failed("%s for json search", filename);
57 /*************************************************
59 *************************************************/
62 json_check(void *handle, const uschar *filename, int modemask, uid_t *owners,
63 gid_t *owngroups, uschar **errmsg)
65 return lf_check_file(fileno((FILE *)handle), filename, S_IFREG, modemask,
66 owners, owngroups, "json", errmsg) == 0;
71 /*************************************************
72 * Find entry point for lsearch *
73 *************************************************/
75 /* See local README for interface description */
78 json_find(void * handle, const uschar * filename, const uschar * keystring,
79 int length, uschar ** result, uschar ** errmsg, uint * do_cache,
89 if (!(j = json_loadf(f, 0, &jerr)))
91 *errmsg = string_sprintf("json error on open: %.*s\n",
92 JSON_ERROR_TEXT_LENGTH, jerr.text);
97 for (int k = 1; (key = string_nextinlist(&keystring, &sep, NULL, 0)); k++)
100 for (uschar * s = key; *s; s++) if (!isdigit(*s)) { numeric = FALSE; break; }
103 ? json_array_get(j, (size_t) strtoul(CS key, NULL, 10))
104 : json_object_get(j, CCS key)
107 DEBUG(D_lookup) debug_printf_indent("%s, for key %d: '%s'\n",
109 ? US"bad index, or not json array"
110 : US"no such key, or not json object",
117 switch (json_typeof(j))
120 *result = string_copyn(CUS json_string_value(j), json_string_length(j));
123 *result = string_sprintf("%" JSON_INTEGER_FORMAT, json_integer_value(j));
126 *result = string_sprintf("%f", json_real_value(j));
128 case JSON_TRUE: *result = US"true"; break;
129 case JSON_FALSE: *result = US"false"; break;
130 case JSON_NULL: *result = NULL; break;
131 default: *result = US json_dumps(j, 0); break;
139 /*************************************************
140 * Close entry point *
141 *************************************************/
143 /* See local README for interface description */
146 json_close(void *handle)
148 (void)fclose((FILE *)handle);
153 /*************************************************
154 * Version reporting entry point *
155 *************************************************/
157 /* See local README for interface description. */
159 #include "../version.h"
162 json_version_report(gstring * g)
164 return string_fmt_append(g, "Library version: json: Jansonn version %s\n", JANSSON_VERSION);
168 static lookup_info json_lookup_info = {
169 .name = US"json", /* lookup name */
170 .type = lookup_absfile, /* uses absolute file name */
171 .open = json_open, /* open function */
172 .check = json_check, /* check function */
173 .find = json_find, /* find function */
174 .close = json_close, /* close function */
175 .tidy = NULL, /* no tidy function */
176 .quote = NULL, /* no quoting function */
177 .version_report = json_version_report /* version reporting */
182 #define json_lookup_module_info _lookup_module_info
185 static lookup_info *_lookup_list[] = { &json_lookup_info };
186 lookup_module_info json_lookup_module_info = { LOOKUP_MODULE_INFO_MAGIC, _lookup_list, 1 };
188 /* End of lookups/json.c */