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(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
, 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
, uschar
*filename
, const uschar
*keystring
, int length
,
83 uschar
**result
, uschar
**errmsg
, uint
*do_cache
)
91 length
= length
; /* Keep picky compilers happy */
92 do_cache
= do_cache
; /* Keep picky compilers happy */
95 if (!(j
= json_loadf(f
, 0, &jerr
)))
97 *errmsg
= string_sprintf("json error on open: %.*s\n",
98 JSON_ERROR_TEXT_LENGTH
, jerr
.text
);
103 for (int k
= 1; (key
= string_nextinlist(&keystring
, &sep
, NULL
, 0)); k
++)
106 for (uschar
* s
= key
; *s
; s
++) if (!isdigit(*s
)) { numeric
= FALSE
; break; }
109 ? json_array_get(j
, (size_t) strtoul(CS key
, NULL
, 10))
110 : json_object_get(j
, CCS key
)
113 DEBUG(D_lookup
) debug_printf_indent("%s, for key %d: '%s'\n",
115 ? US
"bad index, or not json array"
116 : US
"no such key, or not json object",
123 switch (json_typeof(j
))
126 *result
= string_copyn(CUS
json_string_value(j
), json_string_length(j
));
129 *result
= string_sprintf("%" JSON_INTEGER_FORMAT
, json_integer_value(j
));
132 *result
= string_sprintf("%f", json_real_value(j
));
134 case JSON_TRUE
: *result
= US
"true"; break;
135 case JSON_FALSE
: *result
= US
"false"; break;
136 case JSON_NULL
: *result
= NULL
; break;
137 default: *result
= US
json_dumps(j
, 0); break;
145 /*************************************************
146 * Close entry point *
147 *************************************************/
149 /* See local README for interface description */
152 json_close(void *handle
)
154 (void)fclose((FILE *)handle
);
159 /*************************************************
160 * Version reporting entry point *
161 *************************************************/
163 /* See local README for interface description. */
165 #include "../version.h"
168 json_version_report(FILE *f
)
170 fprintf(f
, "Library version: json: Jansonn version %s\n", JANSSON_VERSION
);
174 static lookup_info json_lookup_info
= {
175 US
"json", /* lookup name */
176 lookup_absfile
, /* uses absolute file name */
177 json_open
, /* open function */
178 json_check
, /* check function */
179 json_find
, /* find function */
180 json_close
, /* close function */
181 NULL
, /* no tidy function */
182 NULL
, /* no quoting function */
183 json_version_report
/* version reporting */
188 #define json_lookup_module_info _lookup_module_info
191 static lookup_info
*_lookup_list
[] = { &json_lookup_info
};
192 lookup_module_info json_lookup_module_info
= { LOOKUP_MODULE_INFO_MAGIC
, _lookup_list
, 1 };
194 /* End of lookups/json.c */