1 /*************************************************
2 * Exim - an Internet mail transport agent *
3 *************************************************/
5 /* Copyright (c) Jeremy Harris 2019 */
6 /* See the file NOTICE for conditions of use and distribution. */
9 #include "lf_functions.h"
14 /* All use of allocations will be done against the POOL_SEARCH memory,
15 which is freed once by search_tidyup(). Make the free call a dummy.
16 This burns some 300kB in handling a 37kB JSON file, for the benefit of
17 a fast free. The alternative of staying with malloc is nearly as bad,
18 eyeballing the activity there are 20% the number of free vs. alloc
19 calls (before the big bunch at the end).
21 Assume that the file is trusted, so no tainting */
24 json_malloc(size_t nbytes
)
26 void * p
= store_get((int)nbytes
, FALSE
);
27 /* debug_printf("%s %d: %p\n", __FUNCTION__, (int)nbytes, p); */
33 /* debug_printf("%s: %p\n", __FUNCTION__, p); */
36 /*************************************************
38 *************************************************/
40 /* See local README for interface description */
43 json_open(const uschar
* filename
, uschar
** errmsg
)
47 json_set_alloc_funcs(json_malloc
, json_free
);
49 if (!(f
= Ufopen(filename
, "rb")))
51 int save_errno
= errno
;
52 *errmsg
= string_open_failed(errno
, "%s for json search", filename
);
61 /*************************************************
63 *************************************************/
66 json_check(void *handle
, const uschar
*filename
, int modemask
, uid_t
*owners
,
67 gid_t
*owngroups
, uschar
**errmsg
)
69 return lf_check_file(fileno((FILE *)handle
), filename
, S_IFREG
, modemask
,
70 owners
, owngroups
, "json", errmsg
) == 0;
75 /*************************************************
76 * Find entry point for lsearch *
77 *************************************************/
79 /* See local README for interface description */
82 json_find(void * handle
, const uschar
* filename
, const uschar
* keystring
,
83 int length
, uschar
** result
, uschar
** errmsg
, uint
* do_cache
,
92 length
= length
; /* Keep picky compilers happy */
93 do_cache
= do_cache
; /* Keep picky compilers happy */
96 if (!(j
= json_loadf(f
, 0, &jerr
)))
98 *errmsg
= string_sprintf("json error on open: %.*s\n",
99 JSON_ERROR_TEXT_LENGTH
, jerr
.text
);
104 for (int k
= 1; (key
= string_nextinlist(&keystring
, &sep
, NULL
, 0)); k
++)
107 for (uschar
* s
= key
; *s
; s
++) if (!isdigit(*s
)) { numeric
= FALSE
; break; }
110 ? json_array_get(j
, (size_t) strtoul(CS key
, NULL
, 10))
111 : json_object_get(j
, CCS key
)
114 DEBUG(D_lookup
) debug_printf_indent("%s, for key %d: '%s'\n",
116 ? US
"bad index, or not json array"
117 : US
"no such key, or not json object",
124 switch (json_typeof(j
))
127 *result
= string_copyn(CUS
json_string_value(j
), json_string_length(j
));
130 *result
= string_sprintf("%" JSON_INTEGER_FORMAT
, json_integer_value(j
));
133 *result
= string_sprintf("%f", json_real_value(j
));
135 case JSON_TRUE
: *result
= US
"true"; break;
136 case JSON_FALSE
: *result
= US
"false"; break;
137 case JSON_NULL
: *result
= NULL
; break;
138 default: *result
= US
json_dumps(j
, 0); break;
146 /*************************************************
147 * Close entry point *
148 *************************************************/
150 /* See local README for interface description */
153 json_close(void *handle
)
155 (void)fclose((FILE *)handle
);
160 /*************************************************
161 * Version reporting entry point *
162 *************************************************/
164 /* See local README for interface description. */
166 #include "../version.h"
169 json_version_report(FILE *f
)
171 fprintf(f
, "Library version: json: Jansonn version %s\n", JANSSON_VERSION
);
175 static lookup_info json_lookup_info
= {
176 US
"json", /* lookup name */
177 lookup_absfile
, /* uses absolute file name */
178 json_open
, /* open function */
179 json_check
, /* check function */
180 json_find
, /* find function */
181 json_close
, /* close function */
182 NULL
, /* no tidy function */
183 NULL
, /* no quoting function */
184 json_version_report
/* version reporting */
189 #define json_lookup_module_info _lookup_module_info
192 static lookup_info
*_lookup_list
[] = { &json_lookup_info
};
193 lookup_module_info json_lookup_module_info
= { LOOKUP_MODULE_INFO_MAGIC
, _lookup_list
, 1 };
195 /* End of lookups/json.c */