The FreeRADIUS server $Id: 15bac2a4c627c01d1aa2047687b3418955ac7f00 $
Loading...
Searching...
No Matches
xlat.h
Go to the documentation of this file.
1#pragma once
2/*
3 * This program is free software; you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation; either version 2 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
16 */
17
18/**
19 * $Id: 6a418b6d4c9211a5b48d783f32366c33790a05d7 $
20 *
21 * @file lib/unlang/xlat.h
22 * @brief xlat expansion parsing and evaluation API.
23 *
24 * @copyright 2015 The FreeRADIUS server project
25 */
26RCSIDH(xlat_h, "$Id: 6a418b6d4c9211a5b48d783f32366c33790a05d7 $")
27
28#ifdef __cplusplus
29extern "C" {
30#endif
31
32#include <freeradius-devel/util/retry.h>
33
34/*
35 * Forward declarations
36 */
37typedef enum {
38 XLAT_ACTION_PUSH_CHILD = 1, //!< A deeper level of nesting needs to be evaluated.
39 XLAT_ACTION_PUSH_UNLANG, //!< An xlat function pushed an unlang frame onto the unlang stack.
40 ///< This frame needs to be evaluated, and then we need to call
41 ///< the xlat's resume function.
42 XLAT_ACTION_YIELD, //!< An xlat function pushed a resume frame onto the stack.
43 XLAT_ACTION_DONE, //!< We're done evaluating this level of nesting.
44 XLAT_ACTION_FAIL //!< An xlat function failed.
46
47typedef struct xlat_inst_s xlat_inst_t;
49
50#include <freeradius-devel/server/request.h>
51
52typedef ssize_t (*xlat_escape_legacy_t)(request_t *request, char *out, size_t outlen, char const *in, void *arg);
53
54#include <freeradius-devel/server/cf_util.h>
55#include <freeradius-devel/server/signal.h>
56#include <freeradius-devel/server/tmpl.h>
57
58#include <freeradius-devel/util/heap.h>
59#include <freeradius-devel/util/pair.h>
60#include <freeradius-devel/util/sbuff.h>
61#include <freeradius-devel/util/time.h>
62#include <freeradius-devel/util/value.h>
63
64#include <freeradius-devel/unlang/call_env.h>
65#include <freeradius-devel/unlang/xlat_ctx.h>
66
67/** Instance data for an xlat expansion node
68 *
69 */
71 fr_heap_index_t idx; //!< Entry in heap of xlat instances.
72 ///< Identical instances are used for
73 ///< global instance data and thread-specific
74 ///< instance data.
75
76 xlat_exp_t *node; //!< Node this data relates to.
77 void *data; //!< xlat node specific instance data.
78 call_env_t const *call_env; //!< Per call environment.
79};
80
81/** Thread specific instance data for xlat expansion node
82 *
83 */
85 fr_heap_index_t idx; //!< Entry in heap of xlat thread instances.
86 ///< Identical instances are used for
87 ///< global instance data and thread-specific
88 ///< instance data.
89
90 fr_event_list_t *el; //!< Event list associated with this thread.
91
92 xlat_exp_t const *node; //!< Node this data relates to.
93 void *data; //!< Thread specific instance data.
94
95 module_ctx_t const *mctx; //!< A synthesised module calling ctx containing
96 ///< module global and thread instance data.
97
98 uint64_t total_calls; //! total number of times we've been called
99 uint64_t active_callers; //! number of active callers. i.e. number of current yields
100};
101
102typedef struct xlat_s xlat_t;
103
104/** Flags that control resolution and evaluation
105 *
106 */
107typedef struct {
108 uint8_t needs_resolving : 1; //!< Needs pass2 resolution.
109 uint8_t pure : 1; //!< has no external side effects, true for BOX, LITERAL, and some functions
110 uint8_t impure_func : 1; //!< xlat contains an impure function
111 uint8_t can_purify : 1; //!< if the xlat has a pure function with pure arguments.
112
113 uint8_t constant : 1; //!< xlat is just tmpl_attr_tail_data, or XLAT_BOX
114 uint8_t xlat : 1; //!< it's an xlat wrapper
116
117#define XLAT_FLAGS_INIT ((xlat_flags_t) { .pure = true, .can_purify = true, .constant = true, })
118
120extern size_t xlat_action_table_len;
121
122/** A function used to escape an argument passed to an xlat
123 *
124 * @param[in] request being processed. Used mostly for debugging.
125 * @param[in,out] vb to escape
126 * @param[in] uctx a "context" for the escaping
127 * @return
128 * - 0 on success.
129 * - -1 on failure.
130 */
131typedef int (*xlat_escape_func_t)(request_t *request, fr_value_box_t *vb, void *uctx);
132
133typedef enum {
135 XLAT_ARG_VARIADIC_EMPTY_SQUASH = 1, //!< Empty argument groups are removed.
136 XLAT_ARG_VARIADIC_EMPTY_KEEP = 2, //!< Empty argument groups are left alone,
137 ///< and either passed through as empty groups
138 ///< or null boxes.
140
141/** Definition for a single argument consumend by an xlat function
142 *
143 */
144typedef struct {
145 bool required; //!< Argument must be present, and non-empty.
146 bool concat; //!< Concat boxes together.
147 bool single; //!< Argument must only contain a single box
148 bool will_escape; //!< the function will do escaping and concatenation.
149 xlat_arg_parser_variadic_t variadic; //!< All additional boxes should be processed
150 ///< using this definition.
151 bool always_escape; //!< Pass all arguments to escape function not just
152 ///< tainted ones.
153 fr_type_t type; //!< Type to cast argument to.
154 xlat_escape_func_t func; //!< Function to handle tainted values.
155 fr_value_box_safe_for_t safe_for; //!< Escaped value to set for boxes processed by
156 ///< this escape function.
157 void *uctx; //!< Argument to pass to escape callback.
159
160typedef struct {
161 tmpl_res_rules_t const *tr_rules; //!< tmpl resolution rules.
162 bool allow_unresolved; //!< If false, all resolution steps must be completed
163 ///< this round, otherwise an error will be produced.
165
166#define XLAT_ARG_PARSER_TERMINATOR { .required = false, .concat = false, .single = false, .variadic = false, \
167 .type = FR_TYPE_NULL, .func = NULL, .uctx = NULL }
168
169/** A callback when the the timeout occurs
170 *
171 * Used when a xlat needs wait for an event.
172 * Typically the callback is set, and then the xlat returns unlang_xlat_yield().
173 *
174 * @note The callback is automatically removed on unlang_interpret_mark_runnable(), i.e. if an event
175 * on a registered FD occurs before the timeout event fires.
176 *
177 * @param[in] xctx xlat calling ctx. Contains all instance data.
178 * @param[in] request the request.
179 * @param[in] fired the time the timeout event actually fired.
180 */
181typedef void (*fr_unlang_xlat_timeout_t)(xlat_ctx_t const *xctx, request_t *request, fr_time_t fired);
182
183/** A callback when the the timeout occurs
184 *
185 * Used when a xlat needs wait for an event.
186 * Typically the callback is set, and then the xlat returns unlang_xlat_yield().
187 *
188 * @note The callback is automatically removed on unlang_interpret_mark_runnable(), i.e. if an event
189 * on a registered FD occurs before the timeout event fires.
190 *
191 * @param[in] xctx xlat calling ctx. Contains all instance data.
192 * @param[in] request the request.
193 * @param[in] retry retry status. "now" is in retry->updated
194 */
195typedef void (*fr_unlang_xlat_retry_t)(xlat_ctx_t const *xctx, request_t *request, fr_retry_t const *retry);
196
197/** A callback when the FD is ready for reading
198 *
199 * Used when a xlat needs to read from an FD. Typically the callback is set, and then the
200 * xlat returns unlang_xlat_yield().
201 *
202 * @note The callback is automatically removed on unlang_interpret_mark_runnable(), so
203 *
204 * @param[in] xctx xlat calling ctx. Contains all instance data.
205 * @param[in] request the current request.
206 * @param[in] fd the file descriptor.
207 */
208typedef void (*fr_unlang_xlat_fd_event_t)(xlat_ctx_t const *xctx, request_t *request, int fd);
209
210/** xlat callback function
211 *
212 * Ingests a list of value boxes as arguments.
213 *
214 * @param[in] ctx to allocate any fr_value_box_t in.
215 * @param[out] out Where to append #fr_value_box_t containing the output of
216 * this function.
217 * @param[in] xctx xlat calling ctx. Contains all instance data and the resume
218 * ctx if this function is being resumed.
219 * @param[in] request The current request.
220 * @param[in] in Input arguments.
221 * @return
222 * - XLAT_ACTION_YIELD xlat function is waiting on an I/O event and
223 * has pushed a resumption function onto the stack.
224 * - XLAT_ACTION_DONE xlat function completed. This does not necessarily
225 * mean it turned a result.
226 * - XLAT_ACTION_FAIL the xlat function failed.
227 */
228typedef xlat_action_t (*xlat_func_t)(TALLOC_CTX *ctx, fr_dcursor_t *out,
229 xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in);
230
231/** A callback when the request gets a fr_signal_t.
232 *
233 * @note The callback is automatically removed on unlang_interpret_mark_runnable().
234 *
235 * @param[in] request The current request.
236 * @param[in] xctx xlat calling ctx. Contains all instance data.
237 * @param[in] action which is signalling the request.
238 */
239typedef void (*xlat_func_signal_t)(xlat_ctx_t const *xctx, request_t *request, fr_signal_t action);
240
241/** Allocate new instance data for an xlat instance
242 *
243 * @param[in] xctx instantiate/detach calling ctx.
244
245 * @return
246 * - 0 on success.
247 * - -1 on failure.
248 */
249typedef int (*xlat_instantiate_t)(xlat_inst_ctx_t const *xctx);
250
251/** Allocate new thread instance data for an xlat instance
252 *
253 * @param[in] xctx thread instantiate/detach ctx.
254 * @return
255 * - 0 on success.
256 * - -1 on failure.
257 */
259
260/** xlat detach callback
261 *
262 * Is called whenever an xlat_node_t is freed.
263 *
264 * Detach should close all handles associated with the xlat instance, and
265 * free any memory allocated during instantiate.
266 *
267 * @param[in] xctx instantiate/detach calling ctx.
268 * @return
269 * - 0 on success.
270 * - -1 if detach failed.
271 */
272typedef int (*xlat_detach_t)(xlat_inst_ctx_t const *xctx);
273
274/** xlat thread detach callback
275 *
276 * Is called whenever an xlat_node_t is freed (if ephemeral),
277 * or when a thread exits.
278 *
279 * Detach should close all handles associated with the xlat instance, and
280 * free any memory allocated during instantiate.
281 *
282 * @param[in] xctx thread instantiate/detach calling ctx.
283 * @return
284 * - 0 on success.
285 * - -1 if detach failed.
286 */
288
289/** Set the next argument to the next item in the input list or NULL
290 *
291 * @param[in] _list we're extracting arguments from.
292 * @param[in] _prev argument.
293 * @param[in] _curr argument we're populating.
294 */
295#define XLAT_ARGS_NEXT(_list, _prev, _curr) *(_curr) = likely(*(_prev) != NULL) ? fr_value_box_list_next(_list, *(_prev)) : NULL
296
297#define XLAT_ARGS_1(_list, _a) \
298 *(_a) = fr_value_box_list_head(_list)
299
300#define XLAT_ARGS_2(_list, _a, _b) \
301 do { \
302 *(_a) = fr_value_box_list_head(_list); \
303 XLAT_ARGS_NEXT(_list, _a, _b); \
304 } while (0)
305
306#define XLAT_ARGS_3(_list, _a, _b, _c) \
307 do { \
308 *(_a) = fr_value_box_list_head(_list); \
309 XLAT_ARGS_NEXT(_list, _a, _b); \
310 XLAT_ARGS_NEXT(_list, _b, _c); \
311 } while (0)
312
313#define XLAT_ARGS_4(_list, _a, _b, _c, _d) \
314 do { \
315 *(_a) = fr_value_box_list_head(_list); \
316 XLAT_ARGS_NEXT(_list, _a, _b); \
317 XLAT_ARGS_NEXT(_list, _b, _c); \
318 XLAT_ARGS_NEXT(_list, _c, _d); \
319 } while (0)
320
321#define XLAT_ARGS_5(_list, _a, _b, _c, _d, _e) \
322 do { \
323 *(_a) = fr_value_box_list_head(_list); \
324 XLAT_ARGS_NEXT(_list, _a, _b); \
325 XLAT_ARGS_NEXT(_list, _b, _c); \
326 XLAT_ARGS_NEXT(_list, _c, _d); \
327 XLAT_ARGS_NEXT(_list, _d, _e); \
328 } while (0)
329
330#define XLAT_ARGS_6(_list, _a, _b, _c, _d, _e, _f) \
331 do { \
332 *(_a) = fr_value_box_list_head(_list); \
333 XLAT_ARGS_NEXT(_list, _a, _b); \
334 XLAT_ARGS_NEXT(_list, _b, _c); \
335 XLAT_ARGS_NEXT(_list, _c, _d); \
336 XLAT_ARGS_NEXT(_list, _d, _e); \
337 XLAT_ARGS_NEXT(_list, _e, _f); \
338 } while (0)
339
340#define XLAT_ARGS_7(_list, _a, _b, _c, _d, _e, _f, _g) \
341 do { \
342 *(_a) = fr_value_box_list_head(_list); \
343 XLAT_ARGS_NEXT(_list, _a, _b); \
344 XLAT_ARGS_NEXT(_list, _b, _c); \
345 XLAT_ARGS_NEXT(_list, _c, _d); \
346 XLAT_ARGS_NEXT(_list, _d, _e); \
347 XLAT_ARGS_NEXT(_list, _e, _f); \
348 XLAT_ARGS_NEXT(_list, _f, _g); \
349 } while (0)
350
351#define XLAT_ARGS_8(_list, _a, _b, _c, _d, _e, _f, _g, _h) \
352 do { \
353 *(_a) = fr_value_box_list_head(_list); \
354 XLAT_ARGS_NEXT(_list, _a, _b); \
355 XLAT_ARGS_NEXT(_list, _b, _c); \
356 XLAT_ARGS_NEXT(_list, _c, _d); \
357 XLAT_ARGS_NEXT(_list, _d, _e); \
358 XLAT_ARGS_NEXT(_list, _e, _f); \
359 XLAT_ARGS_NEXT(_list, _f, _g); \
360 XLAT_ARGS_NEXT(_list, _g, _h); \
361 } while (0)
362
363/** Trampoline macro for selecting which ``XLAT_ARGS_<num>`` macro to expand
364 *
365 *
366 * @param[in] XLAT_ARGS_N the name of the macro to expand.
367 * Created by concatenating ``XLAT_ARGS_ + <number of variadic arguments>``.
368 * @param[in] _list The input list of value boxes.
369 * @param[in] ... The variadic arguments themselves.
370 */
371#define _XLAT_ARGS_X(XLAT_ARGS_N, _list, ...) XLAT_ARGS_N(_list, __VA_ARGS__)
372
373/** Populate local variables with value boxes from the input list
374 *
375 * @param[in] _list input list to pull arguments from.
376 * @param[in] ... 1-8 output boxes pointers `fr_value_box_t **`
377 * e.g. `XLAT_ARGS(in, &arg0, &arg1, &argN)``.
378 */
379#define XLAT_ARGS(_list, ...) _XLAT_ARGS_X(JOIN(XLAT_ARGS_, VA_NARG(__VA_ARGS__)), _list, __VA_ARGS__)
380
381ssize_t xlat_eval(char *out, size_t outlen, request_t *request, char const *fmt, xlat_escape_legacy_t escape,
382 void const *escape_ctx)
383 CC_HINT(nonnull (1 ,3 ,4));
384
385ssize_t xlat_eval_compiled(char *out, size_t outlen, request_t *request, xlat_exp_head_t const *head,
386 xlat_escape_legacy_t escape, void const *escape_ctx)
387 CC_HINT(nonnull (1 ,3 ,4));
388
389ssize_t xlat_aeval(TALLOC_CTX *ctx, char **out, request_t *request,
390 char const *fmt, xlat_escape_legacy_t escape, void const *escape_ctx)
391 CC_HINT(nonnull(2, 3, 4));
392
393ssize_t xlat_aeval_compiled(TALLOC_CTX *ctx, char **out, request_t *request,
394 xlat_exp_head_t const *head, xlat_escape_legacy_t escape, void const *escape_ctx)
395 CC_HINT(nonnull (2, 3, 4));
396
397int xlat_flatten_to_argv(TALLOC_CTX *ctx, xlat_exp_head_t ***argv, xlat_exp_head_t *head);
398
400 fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules) CC_HINT(nonnull(1,2,3));
401
403 fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules) CC_HINT(nonnull(1,2,3));
404
406 xlat_t const *xlat, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules,
407 bool spaces) CC_HINT(nonnull(1,2,3,6));
408
410 fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules);
411
413
414static inline fr_slen_t xlat_aprint(TALLOC_CTX *ctx, char **out, xlat_exp_head_t const *head,
415 fr_sbuff_escape_rules_t const *e_rules)
417
418bool xlat_is_truthy(xlat_exp_head_t const *head, bool *out);
419
421
422void xlat_debug(xlat_exp_t const *node);
423
425
427
429
430bool xlat_to_string(TALLOC_CTX *ctx, char **str, xlat_exp_head_t **head);
431
433
434void xlat_debug_attr_list(request_t *request, fr_pair_list_t const *list);
435void xlat_debug_attr_vp(request_t *request, fr_pair_t *vp, tmpl_t const *vpt);
436
438 UNUSED xlat_ctx_t const *xctx,
439 request_t *request, fr_value_box_list_t *args);
440
441/*
442 * xlat_tokenize.c
443 */
444tmpl_t *xlat_to_tmpl_attr(TALLOC_CTX *ctx, xlat_exp_head_t *xlat);
445
446bool xlat_impure_func(xlat_exp_head_t const *head) CC_HINT(nonnull);
447
449
450/*
451 * xlat_alloc.c
452 */
454#define xlat_copy(_ctx, _out, _in) _xlat_copy(NDEBUG_LOCATION_EXP _ctx, _out, _in)
455#ifdef WITH_VERIFY_PTR
456void xlat_exp_verify(xlat_exp_t const *node);
457void xlat_exp_head_verify(xlat_exp_head_t const *head);
458
459# define XLAT_VERIFY(_node) xlat_exp_verify(_node)
460# define XLAT_HEAD_VERIFY(_head) xlat_exp_head_verify(_head)
461#else
462# define XLAT_VERIFY(_node)
463# define XLAT_HEAD_VERIFY(_head)
464#endif
465
466/*
467 * xlat_inst.c
468 */
470
471int xlat_thread_instantiate(TALLOC_CTX *ctx, fr_event_list_t *el);
472
473int xlat_instantiate(void);
474
475void xlat_thread_detach(void);
476
478
480
481int xlat_finalize(xlat_exp_head_t *head, fr_event_list_t *runtime_el); /* xlat_instance_register() or xlat_instantiate_ephemeral() */
482
483void xlat_instances_free(void);
484
485/*
486 * xlat_purify.c
487 */
490
491int xlat_purify_op(TALLOC_CTX *ctx, xlat_exp_t **out, xlat_exp_t *lhs, fr_token_t op, xlat_exp_t *rhs);
492
493/*
494 * xlat.c
495 */
497 void const *rctx, fr_time_t when);
498
499int unlang_xlat_push(TALLOC_CTX *ctx, bool *p_success, fr_value_box_list_t *out,
500 request_t *request, xlat_exp_head_t const *head, bool top_frame)
501 CC_HINT(warn_unused_result);
502
503int unlang_xlat_eval(TALLOC_CTX *ctx, fr_value_box_list_t *out,
504 request_t *request, xlat_exp_head_t const *head)
505 CC_HINT(warn_unused_result);
506
507int unlang_xlat_eval_type(TALLOC_CTX *ctx, fr_value_box_t *out, fr_type_t type, fr_dict_attr_t const *enumv,
508 request_t *request, xlat_exp_head_t const *head)
509 CC_HINT(warn_unused_result);
510
512 xlat_func_t callback, xlat_func_signal_t signal, fr_signal_t sigmask,
513 void *rctx);
514
516 xlat_func_signal_t signal, fr_signal_t sigmask, void *rctx,
517 fr_retry_config_t const *retry_cfg);
518
519/*
520 * xlat_builtin.c
521 */
523int xlat_global_init(void);
525
526#ifdef __cplusplus
527}
528#endif
va_list args
Definition acutest.h:770
static int const char * fmt
Definition acutest.h:573
#define RCSIDH(h, id)
Definition build.h:486
#define NDEBUG_LOCATION_ARGS
Pass caller information to the function.
Definition build.h:263
#define UNUSED
Definition build.h:317
Structure containing both a talloc pool, a list of parsed call_env_pairs.
Definition call_env.h:252
static char const * spaces
Definition dependency.c:371
static fr_slen_t in
Definition dict.h:833
unsigned int fr_heap_index_t
Definition heap.h:80
Stores all information relating to an event list.
Definition event.c:380
fr_type_t
long int ssize_t
unsigned char uint8_t
ssize_t fr_slen_t
Temporary structure to hold arguments for module calls.
Definition module_ctx.h:41
#define SBUFF_OUT_TALLOC_FUNC_NO_LEN_DEF(_func,...)
static fr_slen_t vpt
Definition tmpl.h:1269
Similar to tmpl_rules_t, but used to specify parameters that may change during subsequent resolution ...
Definition tmpl.h:364
Optional arguments passed to vp_tmpl functions.
Definition tmpl.h:332
fr_signal_t
Signals that can be generated/processed by request signal handlers.
Definition signal.h:38
fr_aka_sim_id_type_t type
fr_pair_t * vp
Stores an attribute, a value and various bits of other data.
Definition pair.h:68
An element in a lexicographically sorted array of name to num mappings.
Definition table.h:49
"server local" time.
Definition time.h:69
enum fr_token fr_token_t
static fr_event_list_t * el
bool xlat_needs_resolving(xlat_exp_head_t const *head)
Check to see if the expansion needs resolving.
fr_heap_index_t idx
Entry in heap of xlat instances.
Definition xlat.h:71
tmpl_res_rules_t const * tr_rules
tmpl resolution rules.
Definition xlat.h:161
tmpl_t * xlat_to_tmpl_attr(TALLOC_CTX *ctx, xlat_exp_head_t *xlat)
Try to convert an xlat to a tmpl for efficiency.
fr_type_t type
Type to cast argument to.
Definition xlat.h:153
int(* xlat_thread_detach_t)(xlat_thread_inst_ctx_t const *xctx)
xlat thread detach callback
Definition xlat.h:287
xlat_exp_t * node
Node this data relates to.
Definition xlat.h:76
int unlang_xlat_eval(TALLOC_CTX *ctx, fr_value_box_list_t *out, request_t *request, xlat_exp_head_t const *head)
Evaluate a "pure" (or not impure) xlat.
Definition xlat.c:741
void * data
Thread specific instance data.
Definition xlat.h:93
uint8_t xlat
it's an xlat wrapper
Definition xlat.h:114
xlat_thread_inst_t * xlat_thread_instance_find(xlat_exp_t const *node)
Retrieve xlat/thread specific instance data.
Definition xlat_inst.c:407
bool xlat_is_literal(xlat_exp_head_t const *head)
Check to see if the expansion consists entirely of value-box elements.
xlat_exp_t const * node
Node this data relates to.
Definition xlat.h:92
int(* xlat_detach_t)(xlat_inst_ctx_t const *xctx)
xlat detach callback
Definition xlat.h:272
void(* fr_unlang_xlat_fd_event_t)(xlat_ctx_t const *xctx, request_t *request, int fd)
A callback when the FD is ready for reading.
Definition xlat.h:208
fr_slen_t xlat_tokenize_condition(TALLOC_CTX *ctx, xlat_exp_head_t **head, fr_sbuff_t *in, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules))
Definition xlat_expr.c:3059
fr_heap_index_t idx
Entry in heap of xlat thread instances.
Definition xlat.h:85
int xlat_validate_function_args(xlat_exp_t *node)
int xlat_instance_register_func(xlat_exp_t *node)
Callback for creating "permanent" instance data for a xlat_exp_t.
Definition xlat_inst.c:595
uint64_t active_callers
total number of times we've been called
Definition xlat.h:99
static fr_slen_t e_rules bool xlat_is_truthy(xlat_exp_head_t const *head, bool *out)
Allow callers to see if an xlat is truthy.
Definition xlat_expr.c:3094
fr_slen_t xlat_print(fr_sbuff_t *in, xlat_exp_head_t const *node, fr_sbuff_escape_rules_t const *e_rules)
Reconstitute an xlat expression from its constituent nodes.
void * uctx
Argument to pass to escape callback.
Definition xlat.h:157
void xlat_debug_head(xlat_exp_head_t const *head)
void xlat_thread_detach(void)
Destroy any thread specific xlat instances.
Definition xlat_inst.c:489
bool required
Argument must be present, and non-empty.
Definition xlat.h:145
fr_table_num_sorted_t const xlat_action_table[]
Definition xlat_eval.c:80
bool xlat_impure_func(xlat_exp_head_t const *head)
xlat_escape_func_t func
Function to handle tainted values.
Definition xlat.h:154
fr_event_list_t * el
Event list associated with this thread.
Definition xlat.h:90
fr_slen_t xlat_tokenize(TALLOC_CTX *ctx, xlat_exp_head_t **head, fr_sbuff_t *in, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules)
Tokenize an xlat expansion.
ssize_t(* xlat_escape_legacy_t)(request_t *request, char *out, size_t outlen, char const *in, void *arg)
Definition xlat.h:52
ssize_t xlat_eval_compiled(char *out, size_t outlen, request_t *request, xlat_exp_head_t const *head, xlat_escape_legacy_t escape, void const *escape_ctx))
Definition xlat_eval.c:1713
bool allow_unresolved
If false, all resolution steps must be completed.
Definition xlat.h:162
ssize_t xlat_eval(char *out, size_t outlen, request_t *request, char const *fmt, xlat_escape_legacy_t escape, void const *escape_ctx))
xlat_action_t xlat_transparent(UNUSED TALLOC_CTX *ctx, fr_dcursor_t *out, UNUSED xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *args)
xlat_arg_parser_variadic_t
Definition xlat.h:133
@ XLAT_ARG_VARIADIC_EMPTY_KEEP
Empty argument groups are left alone, and either passed through as empty groups or null boxes.
Definition xlat.h:136
@ XLAT_ARG_VARIADIC_EMPTY_SQUASH
Empty argument groups are removed.
Definition xlat.h:135
@ XLAT_ARG_VARIADIC_DISABLED
Definition xlat.h:134
static fr_slen_t head
Definition xlat.h:416
xlat_arg_parser_variadic_t variadic
All additional boxes should be processed using this definition.
Definition xlat.h:149
int xlat_instantiate(void)
Call instantiation functions for all registered, "permanent" xlats.
Definition xlat_inst.c:513
xlat_action_t unlang_xlat_yield_to_retry(request_t *request, xlat_func_t resume, fr_unlang_xlat_retry_t retry, xlat_func_signal_t signal, fr_signal_t sigmask, void *rctx, fr_retry_config_t const *retry_cfg)
Yield a request back to the interpreter, with retries.
Definition xlat.c:692
bool concat
Concat boxes together.
Definition xlat.h:146
bool will_escape
the function will do escaping and concatenation.
Definition xlat.h:148
bool single
Argument must only contain a single box.
Definition xlat.h:147
size_t xlat_action_table_len
Definition xlat_eval.c:86
int xlat_protocols_register(void)
Register xlats for any loaded dictionaries.
void xlat_debug_attr_list(request_t *request, fr_pair_list_t const *list)
bool always_escape
Pass all arguments to escape function not just tainted ones.
Definition xlat.h:151
void(* xlat_func_signal_t)(xlat_ctx_t const *xctx, request_t *request, fr_signal_t action)
A callback when the request gets a fr_signal_t.
Definition xlat.h:239
static fr_slen_t xlat_aprint(TALLOC_CTX *ctx, char **out, xlat_exp_head_t const *head, fr_sbuff_escape_rules_t const *e_rules) 1(xlat_print
ssize_t xlat_aeval_compiled(TALLOC_CTX *ctx, char **out, request_t *request, xlat_exp_head_t const *head, xlat_escape_legacy_t escape, void const *escape_ctx))
Definition xlat_eval.c:1730
fr_value_box_safe_for_t safe_for
Escaped value to set for boxes processed by this escape function.
Definition xlat.h:155
bool xlat_to_string(TALLOC_CTX *ctx, char **str, xlat_exp_head_t **head)
Convert an xlat node to an unescaped literal string and free the original node.
fr_slen_t xlat_tokenize_argv(TALLOC_CTX *ctx, xlat_exp_head_t **head, fr_sbuff_t *in, xlat_t const *xlat, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules, bool spaces))
Tokenize an xlat expansion into a series of XLAT_TYPE_CHILD arguments.
int xlat_global_init(void)
int xlat_thread_instantiate(TALLOC_CTX *ctx, fr_event_list_t *el)
Create thread specific instance tree and create thread instances.
Definition xlat_inst.c:444
int xlat_purify_op(TALLOC_CTX *ctx, xlat_exp_t **out, xlat_exp_t *lhs, fr_token_t op, xlat_exp_t *rhs)
void(* fr_unlang_xlat_retry_t)(xlat_ctx_t const *xctx, request_t *request, fr_retry_t const *retry)
A callback when the the timeout occurs.
Definition xlat.h:195
int xlat_purify(xlat_exp_head_t *head, unlang_interpret_t *intp)
Purify an xlat.
xlat_action_t(* xlat_func_t)(TALLOC_CTX *ctx, fr_dcursor_t *out, xlat_ctx_t const *xctx, request_t *request, fr_value_box_list_t *in)
xlat callback function
Definition xlat.h:228
void xlat_debug(xlat_exp_t const *node)
int xlat_flatten_to_argv(TALLOC_CTX *ctx, xlat_exp_head_t ***argv, xlat_exp_head_t *head)
Turn am xlat list into an argv[] array, and nuke the input list.
Definition xlat_eval.c:1744
int _xlat_copy(NDEBUG_LOCATION_ARGS TALLOC_CTX *ctx, xlat_exp_head_t *out, xlat_exp_head_t const *in)
Definition xlat_alloc.c:437
void * data
xlat node specific instance data.
Definition xlat.h:77
uint8_t needs_resolving
Needs pass2 resolution.
Definition xlat.h:108
void xlat_debug_attr_vp(request_t *request, fr_pair_t *vp, tmpl_t const *vpt)
int unlang_xlat_eval_type(TALLOC_CTX *ctx, fr_value_box_t *out, fr_type_t type, fr_dict_attr_t const *enumv, request_t *request, xlat_exp_head_t const *head)
Evaluate a "pure" (or not impure) xlat.
Definition xlat.c:771
uint8_t can_purify
if the xlat has a pure function with pure arguments.
Definition xlat.h:111
xlat_action_t unlang_xlat_yield(request_t *request, xlat_func_t callback, xlat_func_signal_t signal, fr_signal_t sigmask, void *rctx)
Yield a request back to the interpreter from within a module.
Definition xlat.c:574
uint8_t pure
has no external side effects, true for BOX, LITERAL, and some functions
Definition xlat.h:109
void xlat_instances_free(void)
Walk over all registered instance data and free them explicitly.
Definition xlat_inst.c:709
int unlang_xlat_push(TALLOC_CTX *ctx, bool *p_success, fr_value_box_list_t *out, request_t *request, xlat_exp_head_t const *head, bool top_frame)
Push a pre-compiled xlat onto the stack for evaluation.
Definition xlat.c:287
int(* xlat_thread_instantiate_t)(xlat_thread_inst_ctx_t const *xctx)
Allocate new thread instance data for an xlat instance.
Definition xlat.h:258
void(* fr_unlang_xlat_timeout_t)(xlat_ctx_t const *xctx, request_t *request, fr_time_t fired)
A callback when the the timeout occurs.
Definition xlat.h:181
int xlat_resolve(xlat_exp_head_t *head, xlat_res_rules_t const *xr_rules)
Walk over an xlat tree recursively, resolving any unresolved functions or references.
uint64_t total_calls
Definition xlat.h:98
uint8_t impure_func
xlat contains an impure function
Definition xlat.h:110
int unlang_xlat_timeout_add(request_t *request, fr_unlang_xlat_timeout_t callback, void const *rctx, fr_time_t when)
Add a timeout for an xlat handler.
Definition xlat.c:152
int xlat_finalize(xlat_exp_head_t *head, fr_event_list_t *runtime_el)
Bootstrap static xlats, or instantiate ephemeral ones.
Definition xlat_inst.c:695
xlat_action_t
Definition xlat.h:37
@ XLAT_ACTION_FAIL
An xlat function failed.
Definition xlat.h:44
@ XLAT_ACTION_YIELD
An xlat function pushed a resume frame onto the stack.
Definition xlat.h:42
@ XLAT_ACTION_PUSH_UNLANG
An xlat function pushed an unlang frame onto the unlang stack.
Definition xlat.h:39
@ XLAT_ACTION_PUSH_CHILD
A deeper level of nesting needs to be evaluated.
Definition xlat.h:38
@ XLAT_ACTION_DONE
We're done evaluating this level of nesting.
Definition xlat.h:43
call_env_t const * call_env
Per call environment.
Definition xlat.h:78
int(* xlat_escape_func_t)(request_t *request, fr_value_box_t *vb, void *uctx)
A function used to escape an argument passed to an xlat.
Definition xlat.h:131
uint8_t constant
xlat is just tmpl_attr_tail_data, or XLAT_BOX
Definition xlat.h:113
fr_slen_t xlat_tokenize_expression(TALLOC_CTX *ctx, xlat_exp_head_t **head, fr_sbuff_t *in, fr_sbuff_parse_rules_t const *p_rules, tmpl_rules_t const *t_rules))
Definition xlat_expr.c:3031
int xlat_instance_unregister_func(xlat_exp_t *node)
Remove a node from the list of xlat instance data.
Definition xlat_inst.c:550
ssize_t xlat_aeval(TALLOC_CTX *ctx, char **out, request_t *request, char const *fmt, xlat_escape_legacy_t escape, void const *escape_ctx))
Definition xlat_eval.c:1721
void xlat_global_free(void)
int(* xlat_instantiate_t)(xlat_inst_ctx_t const *xctx)
Allocate new instance data for an xlat instance.
Definition xlat.h:249
module_ctx_t const * mctx
A synthesised module calling ctx containing module global and thread instance data.
Definition xlat.h:95
fr_type_t xlat_data_type(xlat_exp_head_t const *head)
Definition for a single argument consumend by an xlat function.
Definition xlat.h:144
Flags that control resolution and evaluation.
Definition xlat.h:107
Instance data for an xlat expansion node.
Definition xlat.h:70
Thread specific instance data for xlat expansion node.
Definition xlat.h:84
uintptr_t fr_value_box_safe_for_t
Escaping that's been applied to a value box.
Definition value.h:155
int nonnull(2, 5))
static size_t char ** out
Definition value.h:1012
An xlat calling ctx.
Definition xlat_ctx.h:49
An xlat instantiation ctx.
Definition xlat_ctx.h:61
An xlat thread instantiation ctx.
Definition xlat_ctx.h:72
An xlat expansion node.
Definition xlat_priv.h:146