pair.h

Go to the documentation of this file.

#pragma once
/*
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 */
 
/** AVP manipulation and search API
 *
 * @file src/lib/util/pair.h
 *
 * @copyright 2020 The FreeRADIUS server project
 */
RCSIDH(dpair_h, "$Id: 0a9e98d212b120b5d4dff46598c298d100b99a83 $")
 
#include <freeradius-devel/build.h>
#include <freeradius-devel/missing.h>
#include <freeradius-devel/util/dcursor.h>
#include <freeradius-devel/util/value.h>
#include <freeradius-devel/util/tlist.h>
 
#ifdef __cplusplus
extern "C" {
#endif
 
/*
 *      Allow public and private versions of the same structures
 */
#ifdef _CONST
#  error _CONST can only be defined in the local header
#endif
#ifndef _PAIR_PRIVATE
#  define _CONST const
#else
#  define _CONST
#endif
 
typedef struct value_pair_s fr_pair_t;
 
FR_TLIST_TYPES(fr_pair_order_list)
 
typedef struct pair_list_s {
        FR_TLIST_HEAD(fr_pair_order_list)       order;                  //!< Maintains the relative order of pairs in a list.
 
        bool                             _CONST is_child;               //!< is a child of a VP
 
#ifdef WITH_VERIFY_PTR
        unsigned int            verified : 1;                           //!< hack to avoid O(N^3) issues
#endif
} fr_pair_list_t;
 
/** Stores an attribute, a value and various bits of other data
 *
 * fr_pair_ts are the main data structure used in the server
 *
 * They also specify what behaviour should be used when the attribute is merged into a new list/tree.
 */
struct value_pair_s {
        fr_dict_attr_t const * _CONST da;                       //!< Dictionary attribute defines the attribute
                                                                //!< number, vendor and type of the pair.
                                                                ///< Note: This should not be modified outside
                                                                ///< of pair.c except via #fr_pair_reinit_from_da.
 
        FR_TLIST_ENTRY(fr_pair_order_list) _CONST       order_entry;    //!< Entry to maintain relative order within a list
                                                                ///< of pairs.  This ensures pairs within the list
                                                                ///< are encoded in the same order as they were
                                                                ///< received or inserted.
 
 
        /*
         *      Pairs can have children or data but not both.
         */
        union {
                fr_value_box_t          data;                   //!< The value of this pair.
 
                struct {
                        /** Force children field to come _after_ the type field in the fr_value_box_t
                         *
                         * This works no matter where type appears in fr_value_box_t, whereas just
                         * listing another fr_type_t field here does not.
                         *
                         * This hack allows the majority of the fr_pair_list_t to overlap with the
                         * fr_value_box_t which gives us much greater packing efficiency.
                         */
                        uint8_t         pad[offsetof(fr_value_box_t, type) + sizeof(fr_type_t)];
 
                        fr_pair_list_t  children;               //!< Nested attributes of this pair.
                };
        };
 
        /*
         *      Legacy stuff that needs to die.
         */
        struct {
                fr_token_t              op;                     //!< Operator to use when moving or inserting
        };
};
 
#define vp_strvalue             data.vb_strvalue
#define vp_octets               data.vb_octets
#define vp_ptr                  data.datum.ptr                  //!< Either octets or strvalue
#define vp_length               data.vb_length
 
#define vp_ipv4addr             data.vb_ip.addr.v4.s_addr
#define vp_ipv6addr             data.vb_ip.addr.v6.s6_addr
#define vp_ip                   data.vb_ip
#define vp_ifid                 data.vb_ifid
#define vp_ether                data.vb_ether
 
#define vp_bool                 data.datum.boolean
#define vp_uint8                data.vb_uint8
#define vp_uint16               data.vb_uint16
#define vp_uint32               data.vb_uint32
#define vp_uint64               data.vb_uint64
 
#define vp_int8                 data.vb_int8
#define vp_int16                data.vb_int16
#define vp_int32                data.vb_int32
#define vp_int64                data.vb_int64
 
#define vp_float32              data.vb_float32
#define vp_float64              data.vb_float64
 
#define vp_date                 data.vb_date
#define vp_time_delta           data.vb_time_delta
 
#define vp_group                children
 
#define vp_size                 data.datum.size
#define vp_filter               data.datum.filter
 
#define vp_type                 data.type
#define vp_tainted              data.tainted
#define vp_immutable            data.immutable
#define vp_raw                  da->flags.is_raw
 
#define ATTRIBUTE_EQ(_x, _y) ((_x && _y) && (_x->da == _y->da))
 
/** If WITH_VERIFY_PTR is defined, we perform runtime checks to ensure the fr_pair_t are sane
 *
 */
#ifdef WITH_VERIFY_PTR
void            fr_pair_verify(char const *file, int line, fr_pair_list_t const *list, fr_pair_t const *vp) CC_HINT(nonnull(4));
 
void            fr_pair_list_verify(char const *file, int line,
                                    TALLOC_CTX const *expected, fr_pair_list_t const *list) CC_HINT(nonnull(4));
 
#  define PAIR_VERIFY(_x)               fr_pair_verify(__FILE__, __LINE__, NULL, _x)
#  define PAIR_VERIFY_WITH_LIST(_l, _x)         fr_pair_verify(__FILE__, __LINE__, _l, _x)
#  define PAIR_LIST_VERIFY(_x)  fr_pair_list_verify(__FILE__, __LINE__, NULL, _x)
#else
DIAG_OFF(nonnull-compare)
/** Wrapper function to defeat nonnull checks
 *
 * We may sprinkle PAIR_VERIFY and PAIR_LIST_VERIFY in functions which
 * have their pair argument marked up as nonnull.
 *
 * This would usually generate errors when WITH_VERIFY_PTR is not
 * defined, as the assert macros check for an arguments NULLness.
 *
 * This function wraps the assert but has nonnull-compare disabled
 * meaning a warning won't be emitted.
 */
static inline bool fr_pair_nonnull_assert(fr_pair_t const *vp)
{
        return fr_cond_assert(vp);
}
 
static inline bool fr_pair_list_nonnull_assert(fr_pair_list_t const *pair_list)
{
        return fr_cond_assert(pair_list);
}
DIAG_ON(nonnull-compare)
 
/*
 *      Even if were building without WITH_VERIFY_PTR
 *      the pointer must not be NULL when these various macros are used
 *      so we can add some sneaky soft asserts.
 */
#  define PAIR_VERIFY(_x)               fr_pair_nonnull_assert(_x)
#  define PAIR_VERIFY_WITH_LIST(_l, _x) fr_pair_list_nonnull_assert(_l); \
                                        fr_pair_nonnull_assert(_x)
#  define PAIR_LIST_VERIFY(_x)  fr_pair_list_nonnull_assert(_x)
#endif
 
 
#ifdef TEST_CHECK
/** Macro for use in acutest tests
 */
#define TEST_CHECK_PAIR(_got, _exp) \
do { \
        fr_pair_t const *_our_got = (_got); \
        fr_pair_t const *_our_exp = (_exp); \
        TEST_CHECK_(_our_exp == _our_got, "%s", #_got); \
        if (_our_exp) { \
                TEST_MSG("Expected pair : %s - %p (%s)", (_our_exp)->da->name, _our_exp, talloc_get_name(_our_exp)); \
        } else { \
                TEST_MSG("Expected pair : NULL"); \
        } \
        if (_our_got) { \
                TEST_MSG("Got pair      : %s - %p (%s)", (_our_got)->da->name, _our_got, talloc_get_name(_our_got)); \
        } else { \
                TEST_MSG("Got Pair      : NULL"); \
        } \
} while(0)
 
#define TEST_CHECK_PAIR_NEQ(_got, _neq) \
do { \
        fr_pair_t const *_our_got = (_got); \
        fr_pair_t const *_our_neq = (_neq); \
        TEST_CHECK_(_our_got != _our_neq, "%s", #_got); \
        if (_our_neq) { \
                TEST_MSG("Pair must not equal : %s - %p (%s)", (_our_neq)->da->name, _our_neq, talloc_get_name(_our_neq)); \
        } else { \
                TEST_MSG("Pair must not equal : NULL"); \
        } \
} while(0)
#endif
 
/*
 *      Helper macros for adding pairs to lists and assigning a value to them
 */
 
/** Check a pair's data type matches the DA data type
 *
 * @param[in] vp        to check consistency of.
 * @return
 *      - true for match
 *      - false for error
 */
static inline bool vp_da_data_type_check(fr_pair_t *vp)
{
        if (vp->vp_type == vp->da->type) return true;
 
        fr_strerror_printf("fr_pair_t attribute %p \"%s\" data type (%s) does not match da type (%s)",
                           vp->da, vp->da->name,
                           fr_table_str_by_value(fr_type_table, vp->vp_type, "invalid"),
                           fr_table_str_by_value(fr_type_table, vp->da->type, "invalid"));
        return false;
}
 
/** Iterate over the contents of a #fr_pair_list_t
 *
 *  The iteration variable can be safely removed from the list at each pass.
 *
 * @param[in] _list_head        to iterate over.
 * @param[in] _iter             Name of iteration variable.
 *                              Will be declared in the scope of the loop.
 */
#define fr_pair_list_foreach(_list_head, _iter) \
        for (fr_pair_t *JOIN(_next,_iter), *_iter = fr_pair_list_head(_list_head); JOIN(_next,_iter) = fr_pair_list_next(_list_head, _iter), _iter != NULL; _iter = JOIN(_next,_iter))
 
/** Iterate over the leaf nodes of a #fr_pair_list_t
 *
 *  The iteration variable CANNOT be modified.  This is a read-only operation.
 *
 * @param[in] _list_head        to iterate over.
 * @param[in] _iter             Name of iteration variable.
 *                              Will be declared in the scope of the loop.
 */
#define fr_pair_list_foreach_leaf(_list_head, _iter) \
        for (fr_pair_t *_iter = fr_pair_list_iter_leaf(_list_head, NULL); _iter != NULL; _iter = fr_pair_list_iter_leaf(_list_head, _iter))
 
/** Append a pair to a list, assigning its value.
 *
 * Version for simple C data types
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to append the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_append_by_da(_ctx, _vp, _list, _attr, _val, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_append_by_da(_ctx, &_vp, _list, _attr) < 0) break; \
        fr_value_box(&_vp->data, _val, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
/** Append a pair to a list, assigning its value.
 *
 * Version for char* and uint8_t*
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to append the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _len      of value
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_append_by_da_len(_ctx, _vp, _list, _attr, _val, _len, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_append_by_da(_ctx, &_vp, _list, _attr) < 0) break; \
        fr_value_box_len(_vp, &_vp->data, _val, _len, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
#define fr_pair_list_append_by_da_parent(_ctx, _vp, _list, _attr, _val, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_append_by_da_parent(_ctx, &_vp, _list, _attr) < 0) break; \
        fr_value_box(&_vp->data, _val, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
#define fr_pair_list_append_by_da_parent_len(_ctx, _vp, _list, _attr, _val, _len, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_append_by_da_parent(_ctx, &vp, _list, _attr) < 0) break; \
        fr_value_box_len(_vp, &_vp->data, _val, _len, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
/** Prepend a pair to a list, assigning its value
 *
 * Version for simple C data types
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to prepend the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_prepend_by_da(_ctx, _vp, _list, _attr, _val, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_prepend_by_da(_ctx, &_vp, _list, _attr) < 0) break; \
        fr_value_box(&_vp->data, _val, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
/** Prepend a pair to a list, assigning its value.
 *
 * Version for char* and uint8_t*
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to prepend the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _len      of value
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_prepend_by_da_len(_ctx, _vp, _list, _attr, _val, _len, _tainted) \
do { \
        _vp = NULL; \
        if (fr_pair_prepend_by_da(_ctx, &_vp, _list, _attr) < 0) break; \
        fr_value_box_len(_vp, &_vp->data, _val, _len, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
/** Replace a pair in a list, assigning its value
 *
 * Version for simple C data types.
 * If the pair does not already exist, a new one is allocated.
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to append the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_replace_by_da(_ctx, _vp, _list, _attr, _val, _tainted) \
do { \
        fr_pair_update_by_da(_ctx, _vp, _list, _attr, 0); \
        if (!vp) break; \
        fr_value_box(&_vp->data, _val, _tainted); \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
} while (0)
 
/** Replace a pair in a list, assigning its value
 *
 * Version for char* and uint8_t*
 * If the pair does not already exist, a new one is allocated.
 *
 * @param[in] _ctx      to allocate the pair in
 * @param[out] _vp      the allocated pair
 * @param[in] _list     to append the pair to
 * @param[in] _attr     to use when creating pair
 * @param[in] _val      to assign to the pair
 * @param[in] _len      of value
 * @param[in] _tainted  does the value come from a trusted source
 */
#define fr_pair_list_replace_by_da_len(_ctx, _vp, _list, _attr, _val, _len, _tainted) \
do { \
        fr_pair_t *oldvp = fr_pair_find_by_da(_list, NULL, _attr); \
        fr_pair_list_append_by_da_len(_ctx, _vp_, _list, _attr, _val, _len, _tainted) \
        if (!vp_da_data_type_check(_vp)) { \
                fr_pair_delete(_list, _vp); \
                _vp = NULL; \
        } \
        if (!_vp) break; \
        if (oldvp) fr_pair_delete(_list, oldvp); \
} while (0)
 
/* Initialisation */
/** @hidecallergraph */
void fr_pair_list_init(fr_pair_list_t *head) CC_HINT(nonnull);
 
void fr_pair_init_null(fr_pair_t *vp) CC_HINT(nonnull);
 
/* Allocation and management */
fr_pair_t       *fr_pair_alloc_null(TALLOC_CTX *ctx) CC_HINT(warn_unused_result);
 
fr_pair_list_t  *fr_pair_list_alloc(TALLOC_CTX *ctx) CC_HINT(warn_unused_result);
 
fr_pair_t       *fr_pair_root_afrom_da(TALLOC_CTX *ctx, fr_dict_attr_t const *da) CC_HINT(warn_unused_result) CC_HINT(nonnull(2));
 
/** @hidecallergraph */
fr_pair_t       *fr_pair_afrom_da(TALLOC_CTX *ctx, fr_dict_attr_t const *da) CC_HINT(warn_unused_result) CC_HINT(nonnull(2));
 
int             fr_pair_reinit_from_da(fr_pair_list_t *list, fr_pair_t *vp, fr_dict_attr_t const *da)
                CC_HINT(nonnull(2, 3));
 
fr_pair_t       *fr_pair_afrom_child_num(TALLOC_CTX *ctx, fr_dict_attr_t const *parent, unsigned int attr) CC_HINT(warn_unused_result);
 
fr_pair_t       *fr_pair_afrom_da_nested(TALLOC_CTX *ctx, fr_pair_list_t *list, fr_dict_attr_t const *da) CC_HINT(warn_unused_result) CC_HINT(nonnull(2,3));
 
fr_pair_t       *fr_pair_afrom_da_depth_nested(TALLOC_CTX *ctx, fr_pair_list_t *list, fr_dict_attr_t const *da, int start) CC_HINT(warn_unused_result) CC_HINT(nonnull(2,3));
 
fr_pair_t       *fr_pair_copy(TALLOC_CTX *ctx, fr_pair_t const *vp) CC_HINT(nonnull(2)) CC_HINT(warn_unused_result);
 
int             fr_pair_steal(TALLOC_CTX *ctx, fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_steal_append(TALLOC_CTX *nctx, fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_steal_prepend(TALLOC_CTX *nctx, fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
/* Searching and list modification */
int             fr_pair_raw_afrom_pair(fr_pair_t *vp, uint8_t const *data, size_t data_len) CC_HINT(nonnull);
 
bool            fr_pair_matches_da(void const *item, void const *uctx) CC_HINT(nonnull);
 
/** @hidecallergraph */
unsigned int    fr_pair_count_by_da(fr_pair_list_t const *list, fr_dict_attr_t const *da)
                                    CC_HINT(nonnull);
 
/** @hidecallergraph */
fr_pair_t       *fr_pair_find_by_da(fr_pair_list_t const *list,
                                    fr_pair_t const *prev, fr_dict_attr_t const *da) CC_HINT(nonnull(1,3));
 
fr_pair_t       *fr_pair_find_by_da_idx(fr_pair_list_t const *list,
                                        fr_dict_attr_t const *da, unsigned int idx) CC_HINT(nonnull);
 
fr_pair_t       *fr_pair_find_by_da_nested(fr_pair_list_t const *list, fr_pair_t const *prev,
                                           fr_dict_attr_t const *da) CC_HINT(nonnull(1,3));
 
fr_pair_t       *fr_pair_find_last_by_da(fr_pair_list_t const *list,
                                         fr_pair_t const *prev, fr_dict_attr_t const *da) CC_HINT(nonnull(1,3));
 
fr_pair_t       *fr_pair_find_by_child_num(fr_pair_list_t const *list, fr_pair_t const *prev,
                                           fr_dict_attr_t const *parent, unsigned int attr) CC_HINT(nonnull(1,3));
 
fr_pair_t       *fr_pair_find_by_child_num_idx(fr_pair_list_t const *list,
                                               fr_dict_attr_t const *parent, unsigned int attr,
                                               unsigned int idx) CC_HINT(nonnull);
 
/** @hidecallergraph */
int             fr_pair_append(fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_prepend(fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_insert_after(fr_pair_list_t *list, fr_pair_t *pos, fr_pair_t *to_add) CC_HINT(nonnull(1,3));
 
int             fr_pair_insert_before(fr_pair_list_t *list, fr_pair_t *pos, fr_pair_t *to_add) CC_HINT(nonnull(1,3));
 
void            fr_pair_replace(fr_pair_list_t *list, fr_pair_t *to_replace, fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_delete_by_child_num(fr_pair_list_t *list,
                                            fr_dict_attr_t const *parent, unsigned int attr) CC_HINT(nonnull);
 
int             fr_pair_append_by_da(TALLOC_CTX *ctx, fr_pair_t **out, fr_pair_list_t *list,
                                     fr_dict_attr_t const *da) CC_HINT(nonnull(3,4));
 
int             fr_pair_prepend_by_da(TALLOC_CTX *ctx, fr_pair_t **out, fr_pair_list_t *list,
                                      fr_dict_attr_t const *da) CC_HINT(nonnull(3,4));
 
int             fr_pair_append_by_da_parent(TALLOC_CTX *ctx, fr_pair_t **out, fr_pair_list_t *list,
                                            fr_dict_attr_t const *da) CC_HINT(nonnull(3,4));
 
int             fr_pair_update_by_da_parent(fr_pair_t *parent, fr_pair_t **out,
                                            fr_dict_attr_t const *da) CC_HINT(nonnull(1,3));
 
static inline CC_HINT(nonnull(3,4)) int fr_pair_find_or_append_by_da(TALLOC_CTX *ctx, fr_pair_t **out, fr_pair_list_t *list,
                                                                     fr_dict_attr_t const *da)
{
        fr_pair_t *vp;
 
        vp = fr_pair_find_by_da(list, NULL, da);
        if (vp) {
                *out = vp;
                return 0;
        }
 
        return fr_pair_append_by_da(ctx, out, list, da);
}
 
 
int             fr_pair_delete_by_da(fr_pair_list_t *head, fr_dict_attr_t const *da) CC_HINT(nonnull);
 
int             fr_pair_delete_by_da_nested(fr_pair_list_t *list, fr_dict_attr_t const *da) CC_HINT(nonnull);
 
fr_pair_t       *fr_pair_delete(fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
/* functions for FR_TYPE_STRUCTURAL */
fr_pair_list_t  *fr_pair_children(fr_pair_t *head) CC_HINT(nonnull);
 
fr_pair_list_t  *fr_pair_parent_list(fr_pair_t const *vp);
 
fr_pair_t       *fr_pair_parent(fr_pair_t const *vp);
 
fr_pair_t       *fr_pair_list_parent(fr_pair_list_t const *list);
 
fr_pair_t       *fr_pair_list_iter_leaf(fr_pair_list_t *list, fr_pair_t *vp);
 
/** Initialises a special dcursor with callbacks that will maintain the attr sublists correctly
 *
 * Filters can be applied later with fr_dcursor_filter_set.
 *
 * @note This is the only way to use a dcursor in non-const mode with fr_pair_list_t.
 *
 * @param[out] _cursor  to initialise.
 * @param[in] _list     to iterate over.
 * @param[in] _iter     Iterator to use when filtering pairs.
 * @param[in] _uctx     To pass to iterator.
 * @return
 *      - NULL if src does not point to any items.
 *      - The first pair in the list.
 */
#define         fr_pair_dcursor_iter_init(_cursor, _list, _iter, _uctx) \
                _fr_pair_dcursor_iter_init(_cursor, \
                                           _list, \
                                           _iter, \
                                           _uctx, \
                                           IS_CONST(fr_pair_list_t *, _list))
fr_pair_t       *_fr_pair_dcursor_iter_init(fr_dcursor_t *cursor, fr_pair_list_t const *list,
                                            fr_dcursor_iter_t iter, void const *uctx,
                                            bool is_const) CC_HINT(nonnull);
 
/** Initialises a special dcursor with callbacks that will maintain the attr sublists correctly
 *
 * Filters can be applied later with fr_dcursor_filter_set.
 *
 * @note This is the only way to use a dcursor in non-const mode with fr_pair_list_t.
 *
 * @param[out] _cursor  to initialise.
 * @param[in] _list     to iterate over.
 * @return
 *      - NULL if src does not point to any items.
 *      - The first pair in the list.
 */
#define         fr_pair_dcursor_init(_cursor, _list) \
                _fr_pair_dcursor_init(_cursor, \
                                      _list, \
                                      IS_CONST(fr_pair_list_t *, _list))
fr_pair_t       *_fr_pair_dcursor_init(fr_dcursor_t *cursor, fr_pair_list_t const *list,
                                       bool is_const) CC_HINT(nonnull);
 
/** Initializes a child dcursor from a parent cursor, with an iteration function.
 *
 * Filters can be applied later with fr_dcursor_filter_set.
 *
 * @note This is the only way to use a dcursor in non-const mode with fr_pair_list_t.
 *
 * @param[out] cursor   to initialise.
 * @param[in] list      to iterate over.
 * @param[in] parent    parent cursor to take the iterator from
 * @return
 *      - NULL if src does not point to any items.
 *      - The first pair in the list.
 */
static inline fr_pair_t *fr_pair_dcursor_child_iter_init(fr_dcursor_t *cursor, fr_pair_list_t const *list, fr_dcursor_t const *parent)
{
        fr_pair_t *vp = fr_pair_dcursor_init(cursor, list);
 
        fr_dcursor_copy_iter(cursor, parent);
        return vp;
}
 
/** Initialise a cursor that will return only attributes matching the specified #fr_dict_attr_t
 *
 * @param[in] _cursor   to initialise.
 * @param[in] _list     to iterate over.
 * @param[in] _da       to search for.
 * @return
 *      - The first matching pair.
 *      - NULL if no pairs match.
 */
#define         fr_pair_dcursor_by_da_init(_cursor, _list, _da) \
                _fr_pair_dcursor_by_da_init(_cursor, \
                                            _list, \
                                            _da, \
                                            IS_CONST(fr_pair_list_t *, _list))
fr_pair_t       *_fr_pair_dcursor_by_da_init(fr_dcursor_t *cursor,
                                             fr_pair_list_t const *list, fr_dict_attr_t const *da,
                                             bool is_const) CC_HINT(nonnull);
 
/** Initialise a cursor that will return only attributes descended from the specified #fr_dict_attr_t
 *
 * @param[in] _cursor   to initialise.
 * @param[in] _list     to iterate over.
 * @param[in] _da       who's decentness to search for.
 * @return
 *      - The first matching pair.
 *      - NULL if no pairs match.
 */
#define         fr_pair_dcursor_by_ancestor_init(_cursor, _list, _da) \
                _fr_pair_dcursor_by_ancestor_init(_cursor, \
                                                  _list, \
                                                  _da, \
                                                  IS_CONST(fr_pair_list_t *, _list))
fr_pair_t       *_fr_pair_dcursor_by_ancestor_init(fr_dcursor_t *cursor,
                                                   fr_pair_list_t const *list, fr_dict_attr_t const *da,
                                                   bool is_const) CC_HINT(nonnull);
 
fr_value_box_t  *fr_pair_dcursor_value_init(fr_dcursor_t *cursor) CC_HINT(nonnull);
 
fr_value_box_t  *fr_pair_dcursor_nested_init(fr_dcursor_t *cursor, fr_dcursor_t *parent) CC_HINT(nonnull);
 
/** Compare two attributes using and operator.
 *
 * @return
 *      - 1 if equal.
 *      - 0 if not equal.
 *      - -1 on failure.
 */
#define         fr_pair_cmp_op(_op, _a, _b)     fr_value_box_cmp_op(_op, &_a->data, &_b->data)
 
int8_t          fr_pair_cmp_by_da(void const *a, void const *b);
 
int8_t          fr_pair_cmp_by_parent_num(void const *a, void const *b);
 
int             fr_pair_cmp(fr_pair_t const *a, fr_pair_t const *b);
 
int             fr_pair_list_cmp(fr_pair_list_t const *a, fr_pair_list_t const *b) CC_HINT(nonnull);
 
/* Filtering */
void            fr_pair_validate_debug(fr_pair_t const *failed[2]) CC_HINT(nonnull);
 
bool            fr_pair_validate(fr_pair_t const *failed[2], fr_pair_list_t *filter,
                                 fr_pair_list_t *list) CC_HINT(nonnull(2,3));
 
bool            fr_pair_validate_relaxed(fr_pair_t const *failed[2], fr_pair_list_t *filter,
                                         fr_pair_list_t *list) CC_HINT(nonnull(2,3));
 
bool            fr_pair_immutable(fr_pair_t const *vp) CC_HINT(nonnull);
 
static inline CC_HINT(nonnull, always_inline)
void fr_pair_set_immutable(fr_pair_t *vp)
{
        fr_value_box_set_immutable(&vp->data);
}
 
 
/* Lists */
int             fr_pair_list_copy(TALLOC_CTX *ctx, fr_pair_list_t *to, fr_pair_list_t const *from);
 
void            fr_pair_list_steal(TALLOC_CTX *ctx, fr_pair_list_t *list);
 
int             fr_pair_list_copy_to_box(fr_value_box_t *dst, fr_pair_list_t *from);
 
int             fr_pair_list_copy_by_da(TALLOC_CTX *ctx, fr_pair_list_t *to,
                                        fr_pair_list_t const *from, fr_dict_attr_t const *da, unsigned int count);
 
int             fr_pair_list_copy_by_ancestor(TALLOC_CTX *ctx, fr_pair_list_t *to,
                                              fr_pair_list_t const *from,
                                              fr_dict_attr_t const *parent_da) CC_HINT(nonnull);
 
int             fr_pair_sublist_copy(TALLOC_CTX *ctx, fr_pair_list_t *to,
                                     fr_pair_list_t const *from,
                                     fr_pair_t const *start, unsigned int count) CC_HINT(nonnull(2,3));
 
#ifndef _PAIR_INLINE
/** @hidecallergraph */
void            fr_pair_list_free(fr_pair_list_t *list) CC_HINT(nonnull);
 
fr_pair_t       *fr_pair_remove(fr_pair_list_t *list, fr_pair_t *vp) CC_HINT(nonnull);
 
 
/** @hidecallergraph */
bool            fr_pair_list_empty(fr_pair_list_t const *list) CC_HINT(nonnull);
 
size_t          fr_pair_list_num_elements(fr_pair_list_t const *list) CC_HINT(nonnull);
 
fr_dlist_head_t *fr_pair_list_to_dlist(fr_pair_list_t const *list) CC_HINT(nonnull);
 
fr_pair_list_t  *fr_pair_list_from_dlist(fr_dlist_head_t const *list) CC_HINT(nonnull);
 
void            fr_pair_list_sort(fr_pair_list_t *list, fr_cmp_t cmp) CC_HINT(nonnull);
 
void            fr_pair_list_append(fr_pair_list_t *dst, fr_pair_list_t *src) CC_HINT(nonnull);
 
void            fr_pair_list_prepend(fr_pair_list_t *dst, fr_pair_list_t *src) CC_HINT(nonnull);
 
/** @hidecallergraph */
fr_pair_t       *fr_pair_list_head(fr_pair_list_t const *list) CC_HINT(nonnull);
 
/** @hidecallergraph */
fr_pair_t       *fr_pair_list_next(fr_pair_list_t const *list, fr_pair_t const *item) CC_HINT(nonnull(1));
 
fr_pair_t       *fr_pair_list_prev(fr_pair_list_t const *list, fr_pair_t const *item) CC_HINT(nonnull(1));
 
fr_pair_t       *fr_pair_list_tail(fr_pair_list_t const *list) CC_HINT(nonnull);
#endif
 
/** @name Pair to pair copying
 *
 * @{
 */
void            fr_pair_value_clear(fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_value_copy(fr_pair_t *dst, fr_pair_t *src) CC_HINT(nonnull);
/** @} */
 
/** @name Assign and manipulate binary-unsafe C strings
 *
 * @{
 */
int             fr_pair_value_from_str(fr_pair_t *vp,
                                       char const *value, size_t len, fr_sbuff_unescape_rules_t const *erules,
                                       bool tainted) CC_HINT(nonnull(1,2));
 
int             fr_pair_value_strdup(fr_pair_t *vp, char const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_strdup_shallow(fr_pair_t *vp, char const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_strtrim(fr_pair_t *vp) CC_HINT(nonnull);
 
int             fr_pair_value_aprintf(fr_pair_t *vp,
                                      char const *fmt, ...) CC_HINT(nonnull) CC_HINT(format (printf, 2, 3));
/** @} */
 
/** @name Assign and manipulate binary-safe strings
 *
 * @{
 */
int             fr_pair_value_bstr_alloc(fr_pair_t *vp, char **out, size_t size, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_bstr_realloc(fr_pair_t *vp, char **out, size_t size) CC_HINT(nonnull(1));
 
int             fr_pair_value_bstrndup(fr_pair_t *vp, char const *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_bstrdup_buffer(fr_pair_t *vp, char const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_bstrndup_shallow(fr_pair_t *vp, char const *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_bstrdup_buffer_shallow(fr_pair_t *vp, char const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_bstrn_append(fr_pair_t *vp, char const *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_bstr_append_buffer(fr_pair_t *vp, char const *src, bool tainted) CC_HINT(nonnull);
 /** @} */
 
/** @name Assign and manipulate octets strings
 *
 * @{
 */
int             fr_pair_value_mem_alloc(fr_pair_t *vp, uint8_t **out, size_t size, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_mem_realloc(fr_pair_t *vp, uint8_t **out, size_t size) CC_HINT(nonnull(1));
 
int             fr_pair_value_memdup(fr_pair_t *vp, uint8_t const *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_memdup_buffer(fr_pair_t *vp, uint8_t const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_memdup_shallow(fr_pair_t *vp, uint8_t const *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_memdup_buffer_shallow(fr_pair_t *vp, uint8_t const *src, bool tainted) CC_HINT(nonnull);
 
int             fr_pair_value_mem_append(fr_pair_t *vp, uint8_t *src, size_t len, bool tainted) CC_HINT(nonnull(1));
 
int             fr_pair_value_mem_append_buffer(fr_pair_t *vp, uint8_t *src, bool tainted) CC_HINT(nonnull);
 /** @} */
 
/** @name Enum functions
 *
 * @{
 */
char const      *fr_pair_value_enum(fr_pair_t const *vp, char buff[static 20]) CC_HINT(nonnull);
 
int             fr_pair_value_enum_box(fr_value_box_t const **out, fr_pair_t *vp) CC_HINT(nonnull);
/** @} */
 
/** @name Printing functions
 *
 * @{
 */
ssize_t         fr_pair_print_value_quoted(fr_sbuff_t *out,
                                           fr_pair_t const *vp, fr_token_t quote) CC_HINT(nonnull);
 
static inline fr_slen_t CC_HINT(nonnull(2,3))
                fr_pair_aprint_value_quoted(TALLOC_CTX *ctx, char **out,
                                            fr_pair_t const *vp, fr_token_t quote)
                SBUFF_OUT_TALLOC_FUNC_NO_LEN_DEF(fr_pair_print_value_quoted, vp, quote)
 
ssize_t         fr_pair_print(fr_sbuff_t *out, fr_dict_attr_t const *parent,
                              fr_pair_t const *vp) CC_HINT(nonnull(1,3));
 
ssize_t         fr_pair_print_secure(fr_sbuff_t *out, fr_dict_attr_t const *parent,
                                     fr_pair_t const *vp) CC_HINT(nonnull(1,3));
 
ssize_t         fr_pair_list_print(fr_sbuff_t *out, fr_dict_attr_t const *parent, fr_pair_list_t const *list);
 
static inline fr_slen_t CC_HINT(nonnull(2,4))
                fr_pair_aprint(TALLOC_CTX *ctx, char **out, fr_dict_attr_t const *parent, fr_pair_t const *vp)
                SBUFF_OUT_TALLOC_FUNC_NO_LEN_DEF(fr_pair_print, parent, vp)
 
static inline fr_slen_t CC_HINT(nonnull(2,4))
                fr_pair_aprint_secure(TALLOC_CTX *ctx, char **out, fr_dict_attr_t const *parent, fr_pair_t const *vp)
                SBUFF_OUT_TALLOC_FUNC_NO_LEN_DEF(fr_pair_print_secure, parent, vp)
 
#define         fr_pair_list_log(_log, _lvl, _list) _fr_pair_list_log(_log, _lvl, NULL, _list, __FILE__, __LINE__)
void            _fr_pair_list_log(fr_log_t const *log, int lvl, fr_pair_t *parent,
                                  fr_pair_list_t const *list, char const *file, int line) CC_HINT(nonnull(1,4));
 
void            fr_pair_list_debug(fr_pair_list_t const *list) CC_HINT(nonnull);
void            fr_pair_debug(fr_pair_t const *pair) CC_HINT(nonnull);
 
/** @} */
 
void            fr_pair_list_tainted(fr_pair_list_t *vps) CC_HINT(nonnull);
 
void            fr_pair_list_afrom_box(TALLOC_CTX *ctx, fr_pair_list_t *out,
                                       fr_dict_t const *dict, fr_value_box_t *box) CC_HINT(nonnull);
 
/* Tokenization */
typedef struct {
        TALLOC_CTX              *ctx;                   //!< to allocate VPs in
        fr_dict_attr_t  const   *parent;                //!< current attribute to allocate VPs in
        fr_pair_list_t          *list;                  //!< of VPs to add
} fr_pair_ctx_t;
 
ssize_t         fr_pair_ctx_afrom_str(fr_pair_ctx_t *pair_ctx, char const *in, size_t inlen) CC_HINT(nonnull);
void            fr_pair_ctx_reset(fr_pair_ctx_t *pair_ctx, fr_dict_t const *dict) CC_HINT(nonnull);
 
void            fr_fprintf_pair(FILE *fp, char const *msg, fr_pair_t const *vp);
void            fr_fprintf_pair_list(FILE *fp, fr_pair_list_t const *list);
 
#undef _CONST
#ifdef __cplusplus
}
#endif