Gitiles
Code Review Sign In
gerrit.cesnet.cz / github / CESNET / libyang / 4217459addf82c105dc24fa2ba394036d7aecb63 / . / src / printer_tree.c
blob: 36daa4dfb351c3ba7c970160b617995b44f6333d [file] [log] [blame]
/**
* @file printer_tree.c
* @author Adam Piecek <piecek@cesnet.cz>
* @brief RFC tree printer for libyang data structure
*
* Copyright (c) 2015 - 2021 CESNET, z.s.p.o.
*
* This source code is licensed under BSD 3-Clause License (the "License").
* You may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* https://opensource.org/licenses/BSD-3-Clause
*
* @section TRP_DESIGN Design
*
* @code
* +---------+ +---------+ +---------+
* output | trp | | trb | | tro |
* <---+ Print +<---+ Browse +<-->+ Obtain |
* | | | | | |
* +---------+ +----+----+ +---------+
* ^
* |
* +----+----+
* | trm |
* | Manager |
* | |
* +----+----+
* ^
* | input
* +
* @endcode
*
* @subsection TRP_GLOSSARY Glossary
*
* @subsubsection TRP_trm trm
* Manager functions are at the peak of abstraction. They are
* able to print individual sections of the YANG tree diagram
* (eg module, notifications, rpcs ...) and they call
* Browse functions (@ref TRP_trb).
*
* @subsubsection TRP_trb trb
* Browse functions contain a general algorithm (Preorder DFS)
* for traversing the tree. It does not matter what data type
* the tree contains (@ref lysc_node or @ref lysp_node), because it
* requires a ready-made getter functions for traversing the tree
* (@ref trt_fp_all) and transformation function to its own node
* data type (@ref trt_node). These getter functions are generally
* referred to as @ref TRP_tro. Browse functions can repeatedly
* traverse nodes in the tree, for example, to calculate the alignment
* gap before the nodes \<type\> in the YANG Tree Diagram.
* The obtained @ref trt_node is passed to the @ref TRP_trp functions
* to print the Tree diagram.
*
* @subsubsection TRP_tro tro
* Functions that provide an extra wrapper for the libyang library.
* The Obtain functions are further specialized according to whether
* they operate on lysp_tree (@ref TRP_trop) or lysc_tree
* (@ref TRP_troc). If they are general algorithms, then they have the
* prefix \b tro_. The Obtain functions provide information to
* @ref TRP_trb functions for printing the Tree diagram.
*
* @subsubsection TRP_trop trop
* Functions for Obtaining information from Parsed schema tree.
*
* @subsubsection TRP_troc troc
* Functions for Obtaining information from Compiled schema tree.
*
* @subsubsection TRP_trp trp
* Print functions take care of the printing YANG diagram. They can
* also split one node into multiple lines if the node does not fit
* on one line.
*
* @subsubsection TRP_trt trt
* Data type marking in the printer_tree module.
*
* @subsubsection TRP_trg trg
* General functions.
*
* @subsection TRP_ADJUSTMENTS Adjustments
* It is assumed that the changes are likely to take place mainly for
* @ref TRP_tro, @ref TRP_trop or @ref TRP_troc functions because
* they are the only ones dependent on libyang implementation.
* In special cases, changes will also need to be made to the
* @ref TRP_trp functions if a special algorithm is needed to print
* (right now this is prepared for printing list's keys
* and if-features).
*/
#include <assert.h>
#include <string.h>
#include "common.h"
#include "compat.h"
#include "out_internal.h"
#include "plugins_exts.h"
#include "plugins_types.h"
#include "printer_schema.h"
#include "tree_schema_internal.h"
#include "xpath.h"
/**
* @brief List of available actions.
*/
typedef enum {
TRD_PRINT = 0, /**< Normal behavior. It just prints. */
TRD_CHAR_COUNT /**< Characters will be counted instead of printing. */
} trt_ly_out_clb_arg_flag;
/**
* @brief Structure is passed as 'writeclb' argument
* to the ::ly_out_new_clb().
*/
struct ly_out_clb_arg {
trt_ly_out_clb_arg_flag mode; /**< flag specifying which action to take. */
struct ly_out *out; /**< The ly_out pointer delivered to the printer tree module via the main interface. */
size_t counter; /**< Counter of printed characters. */
LY_ERR last_error; /**< The last error that occurred. If no error has occurred, it will be ::LY_SUCCESS. */
};
/**
* @brief Initialize struct ly_out_clb_arg with default settings.
*/
#define TRP_INIT_LY_OUT_CLB_ARG(MODE, OUT, COUNTER, LAST_ERROR) \
(struct ly_out_clb_arg) { \
.mode = MODE, .out = OUT, \
.counter = COUNTER, .last_error = LAST_ERROR \
}
/**********************************************************************
* Print getters
*********************************************************************/
/**
* @brief Callback functions that prints special cases.
*
* It just groups together tree context with trt_fp_print.
*/
struct trt_cf_print {
const struct trt_tree_ctx *ctx; /**< Context of libyang tree. */
void (*pf)(const struct trt_tree_ctx *, struct ly_out *); /**< Pointing to function which printing list's keys or features. */
};
/**
* @brief Callback functions for printing special cases.
*
* Functions with the suffix 'trp' can print most of the text on
* output, just by setting the pointer to the string. But in some
* cases, it's not that simple, because its entire string is fragmented
* in memory. For example, for printing list's keys or if-features.
* However, this depends on how the libyang library is implemented.
* This implementation of the printer_tree module goes through
* a lysp tree, but if it goes through a lysc tree, these special cases
* would be different.
* Functions must print including spaces or delimiters between names.
*/
struct trt_fp_print {
void (*print_features_names)(const struct trt_tree_ctx *, struct ly_out *); /**< Print list of features without {}? wrapper. */
void (*print_keys)(const struct trt_tree_ctx *, struct ly_out *); /**< Print list's keys without [] wrapper. */
};
/**
* @brief Package which only groups getter function.
*/
struct trt_pck_print {
const struct trt_tree_ctx *tree_ctx; /**< Context of libyang tree. */
struct trt_fp_print fps; /**< Print function. */
};
/**
* @brief Initialize struct trt_pck_print by parameters.
*/
#define TRP_INIT_PCK_PRINT(TREE_CTX, FP_PRINT) \
(struct trt_pck_print) {.tree_ctx = TREE_CTX, .fps = FP_PRINT}
/**********************************************************************
* Indent
*********************************************************************/
/**
* @brief Constants which are defined in the RFC or are observable
* from the pyang tool.
*/
typedef enum {
TRD_INDENT_EMPTY = 0, /**< If the node is a case node, there is no space before the \<name\>. */
TRD_INDENT_LONG_LINE_BREAK = 2, /**< The new line should be indented so that it starts below \<name\> with
a whitespace offset of at least two characters. */
TRD_INDENT_LINE_BEGIN = 2, /**< Indent below the keyword (module, augment ...). */
TRD_INDENT_BTW_SIBLINGS = 2, /**< Indent between | and | characters. */
TRD_INDENT_BEFORE_KEYS = 1, /**< "..."___\<keys\>. */
TRD_INDENT_BEFORE_TYPE = 4, /**< "..."___\<type\>, but if mark is set then indent == 3. */
TRD_INDENT_BEFORE_IFFEATURES = 1 /**< "..."___\<iffeatures\>. */
} trt_cnf_indent;
/**
* @brief Type of indent in node.
*/
typedef enum {
TRD_INDENT_IN_NODE_NORMAL = 0, /**< Node fits on one line. */
TRD_INDENT_IN_NODE_DIVIDED, /**< The node must be split into multiple rows. */
TRD_INDENT_IN_NODE_FAILED /**< Cannot be crammed into one line. The condition for the maximum line length is violated. */
} trt_indent_in_node_type;
/** Constant to indicate the need to break a line. */
#define TRD_LINEBREAK -1
/**
* @brief Records the alignment between the individual
* elements of the node.
*
* @see trp_default_indent_in_node, trp_try_normal_indent_in_node
*/
struct trt_indent_in_node {
trt_indent_in_node_type type; /**< Type of indent in node. */
int16_t btw_name_opts; /**< Indent between node name and \<opts\>. */
int16_t btw_opts_type; /**< Indent between \<opts\> and \<type\>. */
int16_t btw_type_iffeatures; /**< Indent between type and features. Ignored if \<type\> missing. */
};
/**
* @brief Type of wrappers to be printed.
*/
typedef enum {
TRD_WRAPPER_TOP = 0, /**< Related to the module. */
TRD_WRAPPER_BODY /**< Related to e.g. Augmentations or Groupings */
} trd_wrapper_type;
/**
* @brief For resolving sibling symbol ('|') placement.
*
* Bit indicates where the sibling symbol must be printed.
* This place is in multiples of ::TRD_INDENT_BTW_SIBLINGS.
*
* @see TRP_INIT_WRAPPER_TOP, TRP_INIT_WRAPPER_BODY,
* trp_wrapper_set_mark, trp_wrapper_set_shift,
* trp_wrapper_if_last_sibling, trp_wrapper_eq, trp_print_wrapper
*/
struct trt_wrapper {
trd_wrapper_type type; /**< Location of the wrapper. */
uint64_t bit_marks1; /**< The set bits indicate where the '|' character is to be printed.
It follows that the maximum immersion of the printable node is 64. */
uint32_t actual_pos; /**< Actual position in bit_marks. */
};
/**
* @brief Get wrapper related to the module section.
*
* @code
* module: <module-name>
* +--<node>
* |
* @endcode
*/
#define TRP_INIT_WRAPPER_TOP \
(struct trt_wrapper) { \
.type = TRD_WRAPPER_TOP, .actual_pos = 0, .bit_marks1 = 0 \
}
/**
* @brief Get wrapper related to subsection
* e.g. Augmenations or Groupings.
*
* @code
* module: <module-name>
* +--<node>
*
* augment <target-node>:
* +--<node>
* @endcode
*/
#define TRP_INIT_WRAPPER_BODY \
(struct trt_wrapper) { \
.type = TRD_WRAPPER_BODY, .actual_pos = 0, .bit_marks1 = 0 \
}
/**
* @brief Package which only groups wrapper and indent in node.
*/
struct trt_pck_indent {
struct trt_wrapper wrapper; /**< Coded " | | " sequence. */
struct trt_indent_in_node in_node; /**< Indent in node. */
};
/**
* @brief Initialize struct trt_pck_indent by parameters.
*/
#define TRP_INIT_PCK_INDENT(WRAPPER, INDENT_IN_NODE) \
(struct trt_pck_indent){ \
.wrapper = WRAPPER, .in_node = INDENT_IN_NODE \
}
/**********************************************************************
* status
*********************************************************************/
/**
* @brief Status of the node.
*
* @see trp_print_status
*/
typedef enum {
TRD_STATUS_TYPE_EMPTY = 0,
TRD_STATUS_TYPE_CURRENT, /**< ::LYS_STATUS_CURR */
TRD_STATUS_TYPE_DEPRECATED, /**< ::LYS_STATUS_DEPRC */
TRD_STATUS_TYPE_OBSOLETE /**< ::LYS_STATUS_OBSLT */
} trt_status_type;
/**********************************************************************
* flags
*********************************************************************/
/**
* @brief Flag of the node.
*
* @see trp_print_flags, trp_get_flags_strlen
*/
typedef enum {
TRD_FLAGS_TYPE_EMPTY = 0, /**< -- */
TRD_FLAGS_TYPE_RW, /**< rw */
TRD_FLAGS_TYPE_RO, /**< ro */
TRD_FLAGS_TYPE_RPC_INPUT_PARAMS, /**< -w */
TRD_FLAGS_TYPE_USES_OF_GROUPING, /**< -u */
TRD_FLAGS_TYPE_RPC, /**< -x */
TRD_FLAGS_TYPE_NOTIF, /**< -n */
TRD_FLAGS_TYPE_MOUNT_POINT /**< mp */
} trt_flags_type;
/**********************************************************************
* node_name and opts
*********************************************************************/
#define TRD_NODE_NAME_PREFIX_CHOICE "("
#define TRD_NODE_NAME_PREFIX_CASE ":("
#define TRD_NODE_NAME_TRIPLE_DOT "..."
/**
* @brief Type of the node.
*
* Used mainly to complete the correct \<opts\> next to or
* around the \<name\>.
*/
typedef enum {
TRD_NODE_ELSE = 0, /**< For some node which does not require special treatment. \<name\> */
TRD_NODE_CASE, /**< For case node. :(\<name\>) */
TRD_NODE_CHOICE, /**< For choice node. (\<name\>) */
TRD_NODE_OPTIONAL_CHOICE, /**< For choice node with optional mark. (\<name\>)? */
TRD_NODE_OPTIONAL, /**< For an optional leaf, anydata, or anyxml. \<name\>? */
TRD_NODE_CONTAINER, /**< For a presence container. \<name\>! */
TRD_NODE_LISTLEAFLIST, /**< For a leaf-list or list. \<name\>* */
TRD_NODE_TOP_LEVEL1, /**< For a top-level data node in a mounted module. \<name\>/ */
TRD_NODE_TOP_LEVEL2, /**< For a top-level data node of a module identified in a mount point parent reference. \<name\>@ */
TRD_NODE_TRIPLE_DOT /**< For collapsed sibling nodes and their children. Special case which doesn't belong here very well. */
} trt_node_type;
/**
* @brief Type of node and his name.
*
* @see TRP_EMPTY_NODE_NAME, TRP_NODE_NAME_IS_EMPTY,
* trp_print_node_name, trp_mark_is_used, trp_print_opts_keys
*/
struct trt_node_name {
trt_node_type type; /**< Type of the node relevant for printing. */
ly_bool keys; /**< Set to 1 if [\<keys\>] are to be printed. Valid for some types only. */
const char *module_prefix; /**< If the node is augmented into the tree from another module,
so this is the prefix of that module. */
const char *str; /**< Name of the node. */
};
/**
* @brief Create struct trt_node_name as empty.
*/
#define TRP_EMPTY_NODE_NAME \
(struct trt_node_name) { \
.type = TRD_NODE_ELSE, .keys = 0, .module_prefix = NULL, .str = NULL \
}
/**
* @brief Check if struct trt_node_name is empty.
*/
#define TRP_NODE_NAME_IS_EMPTY(NODE_NAME) \
!NODE_NAME.str
/**
* @brief Every \<opts\> mark except string of list's keys
* has a length of one.
*/
#define TRD_OPTS_MARK_LENGTH 1
/**********************************************************************
* type
*********************************************************************/
/**
* @brief Type of the \<type\>
*/
typedef enum {
TRD_TYPE_NAME = 0, /**< Type is just a name that does not require special treatment. */
TRD_TYPE_TARGET, /**< Should have a form "-> TARGET", where TARGET is the leafref path. */
TRD_TYPE_LEAFREF, /**< This type is set automatically by the 'trp' algorithm.
So set type as ::TRD_TYPE_TARGET. */
TRD_TYPE_EMPTY /**< Type is not used at all. */
} trt_type_type;
/**
* @brief \<type\> in the \<node\>.
*
* @see TRP_EMPTY_TRT_TYPE, TRP_TRT_TYPE_IS_EMPTY, trp_print_type
*/
struct trt_type {
trt_type_type type; /**< Type of the \<type\>. */
const char *str; /**< Path or name of the type. */
};
/**
* @brief Create empty struct trt_type.
*/
#define TRP_EMPTY_TRT_TYPE \
(struct trt_type) {.type = TRD_TYPE_EMPTY, .str = NULL}
/**
* @brief Check if struct trt_type is empty.
*/
#define TRP_TRT_TYPE_IS_EMPTY(TYPE_OF_TYPE) \
TYPE_OF_TYPE.type == TRD_TYPE_EMPTY
/**
* @brief Initialize struct trt_type by parameters.
*/
#define TRP_INIT_TRT_TYPE(TYPE_OF_TYPE, STRING) \
(struct trt_type) {.type = TYPE_OF_TYPE, .str = STRING}
/**********************************************************************
* node
*********************************************************************/
/**
* @brief \<node\> data for printing.
*
* It contains RFC's:
* \<status\>--\<flags\> \<name\>\<opts\> \<type\> \<if-features\>.
* Item \<opts\> is moved to part struct trt_node_name.
* For printing [\<keys\>] and if-features is required special
* functions which prints them.
*
* @see TRP_EMPTY_NODE, trp_node_is_empty, trp_node_body_is_empty,
* trp_print_node_up_to_name, trp_print_divided_node_up_to_name,
* trp_print_node
*/
struct trt_node {
trt_status_type status; /**< \<status\>. */
trt_flags_type flags; /**< \<flags\>. */
struct trt_node_name name; /**< \<node\> with \<opts\> mark or [\<keys\>]. */
struct trt_type type; /**< \<type\> contains the name of the type or type for leafref. */
ly_bool iffeatures; /**< \<if-features\>. Value 1 means that iffeatures are present and
will be printed by trt_fp_print.print_features_names callback. */
ly_bool last_one; /**< Information about whether the node is the last. */
struct lysc_ext_instance *mount; /**< Mount-point extension if flags == TRD_FLAGS_TYPE_MOUNT_POINT */
};
/**
* @brief Create struct trt_node as empty.
*/
#define TRP_EMPTY_NODE \
(struct trt_node) { \
.status = TRD_STATUS_TYPE_EMPTY, \
.flags = TRD_FLAGS_TYPE_EMPTY, \
.name = TRP_EMPTY_NODE_NAME, \
.type = TRP_EMPTY_TRT_TYPE, \
.iffeatures = 0, \
.last_one = 1, \
.mount = NULL \
}
/**
* @brief Package which only groups indent and node.
*/
struct trt_pair_indent_node {
struct trt_indent_in_node indent;
struct trt_node node;
};
/**
* @brief Initialize struct trt_pair_indent_node by parameters.
*/
#define TRP_INIT_PAIR_INDENT_NODE(INDENT_IN_NODE, NODE) \
(struct trt_pair_indent_node) { \
.indent = INDENT_IN_NODE, .node = NODE \
}
/**********************************************************************
* statement
*********************************************************************/
#define TRD_TOP_KEYWORD_MODULE "module"
#define TRD_TOP_KEYWORD_SUBMODULE "submodule"
#define TRD_BODY_KEYWORD_AUGMENT "augment"
#define TRD_BODY_KEYWORD_RPC "rpcs"
#define TRD_BODY_KEYWORD_NOTIF "notifications"
#define TRD_BODY_KEYWORD_GROUPING "grouping"
#define TRD_BODY_KEYWORD_YANG_DATA "yang-data"
/**
* @brief Type of the trt_keyword.
*/
typedef enum {
TRD_KEYWORD_EMPTY = 0,
TRD_KEYWORD_MODULE,
TRD_KEYWORD_SUBMODULE,
TRD_KEYWORD_AUGMENT,
TRD_KEYWORD_RPC,
TRD_KEYWORD_NOTIF,
TRD_KEYWORD_GROUPING,
TRD_KEYWORD_YANG_DATA
} trt_keyword_type;
/**
* @brief Main sign of the tree nodes.
*
* @see TRP_EMPTY_KEYWORD_STMT, TRP_KEYWORD_STMT_IS_EMPTY
* trt_print_keyword_stmt_begin, trt_print_keyword_stmt_str,
* trt_print_keyword_stmt_end, trp_print_keyword_stmt
* trp_keyword_type_strlen
*
*/
struct trt_keyword_stmt {
trt_keyword_type type; /**< String containing some of the top or body keyword. */
const char *str; /**< Name or path, it determines the type. */
};
/**
* @brief Create struct trt_keyword_stmt as empty.
*/
#define TRP_EMPTY_KEYWORD_STMT \
(struct trt_keyword_stmt) {.type = TRD_KEYWORD_EMPTY, .str = NULL}
/**
* @brief Check if struct trt_keyword_stmt is empty.
*/
#define TRP_KEYWORD_STMT_IS_EMPTY(KEYWORD_TYPE) \
KEYWORD_TYPE.type == TRD_KEYWORD_EMPTY
/**
* @brief Initialize struct trt_keyword_stmt by parameters.
*/
#define TRP_INIT_KEYWORD_STMT(KEYWORD_TYPE, STRING) \
(struct trt_keyword_stmt) {.type = KEYWORD_TYPE, .str = STRING}
/**********************************************************************
* Modify getters
*********************************************************************/
struct trt_parent_cache;
/**
* @brief Functions that change the state of the tree_ctx structure.
*
* The 'trop' or 'troc' functions are set here, which provide data
* for the 'trp' printing functions and are also called from the
* 'trb' browsing functions when walking through a tree. These callback
* functions need to be checked or reformulated if changes to the
* libyang library affect the printing tree. For all, if the value
* cannot be returned, its empty version obtained by relevant TRP_EMPTY
* macro is returned.
*/
struct trt_fp_modify_ctx {
ly_bool (*parent)(struct trt_tree_ctx *); /**< Jump to parent node. Return true if parent exists. */
void (*first_sibling)(struct trt_tree_ctx *); /**< Jump on the first of the siblings. */
struct trt_node (*next_sibling)(struct trt_parent_cache, struct trt_tree_ctx *); /**< Jump to next sibling of the current node. */
struct trt_node (*next_child)(struct trt_parent_cache, struct trt_tree_ctx *); /**< Jump to the child of the current node. */
};
/**********************************************************************
* Read getters
*********************************************************************/
/**
* @brief Functions that do not change the state of the tree_structure.
*
* For details see trt_fp_modify_ctx.
*/
struct trt_fp_read {
struct trt_keyword_stmt (*module_name)(const struct trt_tree_ctx *); /**< Get name of the module. */
struct trt_node (*node)(struct trt_parent_cache, const struct trt_tree_ctx *); /**< Get current node. */
ly_bool (*if_sibling_exists)(const struct trt_tree_ctx *); /**< Check if node's sibling exists. */
};
/**********************************************************************
* All getters
*********************************************************************/
/**
* @brief A set of all necessary functions that must be provided
* for the printer.
*/
struct trt_fp_all {
struct trt_fp_modify_ctx modify; /**< Function pointers which modify state of trt_tree_ctx. */
struct trt_fp_read read; /**< Function pointers which only reads state of trt_tree_ctx. */
struct trt_fp_print print; /**< Functions pointers for printing special items in node. */
};
/**********************************************************************
* Printer context
*********************************************************************/
/**
* @brief Main structure for @ref TRP_trp part.
*/
struct trt_printer_ctx {
struct ly_out *out; /**< Handler to printing. */
struct trt_fp_all fp; /**< @ref TRP_tro functions callbacks. */
size_t max_line_length; /**< The maximum number of characters that can be
printed on one line, including the last. */
};
/**********************************************************************
* Tro functions
*********************************************************************/
/**
* @brief The name of the section to which the node belongs.
*/
typedef enum {
TRD_SECT_MODULE = 0, /**< The node belongs to the "module: <module_name>:" label. */
TRD_SECT_AUGMENT, /**< The node belongs to some "augment <target-node>:" label. */
TRD_SECT_RPCS, /**< The node belongs to the "rpcs:" label. */
TRD_SECT_NOTIF, /**< The node belongs to the "notifications:" label. */
TRD_SECT_GROUPING, /**< The node belongs to some "grouping <grouping-name>:" label. */
TRD_SECT_YANG_DATA /**< The node belongs to some "yang-data <yang-data-name>:" label. */
} trt_actual_section;
/**
* @brief Types of nodes that have some effect on their children.
*/
typedef enum {
TRD_ANCESTOR_ELSE = 0, /**< Everything not listed. */
TRD_ANCESTOR_RPC_INPUT, /**< ::LYS_INPUT */
TRD_ANCESTOR_RPC_OUTPUT, /**< ::LYS_OUTPUT */
TRD_ANCESTOR_NOTIF /**< ::LYS_NOTIF */
} trt_ancestor_type;
/**
* @brief Saved information when browsing the tree downwards.
*
* This structure helps prevent frequent retrieval of information
* from the tree. Functions @ref TRP_trb are designed to preserve
* this structures during their recursive calls. This functions do not
* interfere in any way with this data. This structure
* is used by @ref TRP_trop functions which, thanks to this
* structure, can return a node with the correct data. The word
* \b parent is in the structure name, because this data refers to
* the last parent and at the same time the states of its
* ancestors data. Only the function jumping on the child
* (next_child(...)) creates this structure, because the pointer
* to the current node moves down the tree. It's like passing
* the genetic code to children. Some data must be inherited and
* there are two approaches to this problem. Either it will always
* be determined which inheritance states belong to the current node
* (which can lead to regular travel to the root node) or
* the inheritance states will be stored during the recursive calls.
* So the problem was solved by the second option. Why does
* the structure contain this data? Because it walks through
* the lysp tree. For walks through the lysc tree is trt_parent_cache
* useless.
*
* @see TRO_EMPTY_PARENT_CACHE, tro_parent_cache_for_child
*/
struct trt_parent_cache {
trt_ancestor_type ancestor; /**< Some types of nodes have a special effect on their children. */
uint16_t lys_status; /**< Inherited status CURR, DEPRC, OBSLT. */
uint16_t lys_config; /**< Inherited config W or R. */
const struct lysp_node_list *last_list; /**< The last ::LYS_LIST passed. */
};
/**
* @brief Return trt_parent_cache filled with default values.
*/
#define TRP_EMPTY_PARENT_CACHE \
(struct trt_parent_cache) { \
.ancestor = TRD_ANCESTOR_ELSE, .lys_status = LYS_STATUS_CURR, \
.lys_config = LYS_CONFIG_W, .last_list = NULL \
}
/**
* @brief Main structure for browsing the libyang tree
*/
struct trt_tree_ctx {
ly_bool lysc_tree; /**< The lysc nodes are used for browsing through the tree.
It is assumed that once set, it does not change.
If it is true then trt_tree_ctx.pn and
trt_tree_ctx.tpn are not used.
If it is false then trt_tree_ctx.cn is not used. */
ly_bool mounted; /**< This tree is a mounted schema */
trt_actual_section section; /**< To which section pn points. */
const struct lysp_module *pmod; /**< Parsed YANG schema tree. */
const struct lysc_module *cmod; /**< Compiled YANG schema tree. */
const struct lysp_node *pn; /**< Actual pointer to parsed node. */
union {
const struct lysp_node *tpn; /**< Pointer to actual top-node. */
const struct lysp_ext_instance *tpn_ext; /**< Actual top-node is extension. Item trt_tree_ctx.section
is set to TRD_SECT_YANG_DATA. */
};
const struct lysc_node *cn; /**< Actual pointer to compiled node. */
const struct ly_set *parent_refs; /**< List of schema nodes for top-level nodes found in mount
point parent references */
};
/**
* @brief Check if lysp node is available from
* the current compiled node.
*
* Use only if trt_tree_ctx.lysc_tree is set to true.
*/
#define TRP_TREE_CTX_LYSP_NODE_PRESENT(CN) \
(CN->priv)
/**
* @brief Get lysp_node from trt_tree_ctx.cn.
*
* Use only if :TRP_TREE_CTX_LYSP_NODE_PRESENT returns true
* for that node.
*/
#define TRP_TREE_CTX_GET_LYSP_NODE(CN) \
((const struct lysp_node *)CN->priv)
/** Getter function for ::trop_node_charptr(). */
typedef const char *(*trt_get_charptr_func)(const struct lysp_node *pn);
/**
* @brief Simple getter functions for lysp and lysc nodes.
*
* This structure is useful if we have a general algorithm
* (tro function) that can be used for both lysc and lysp nodes.
* Thanks to this structure, we prevent code redundancy.
* We don't have to write basically the same algorithm twice
* for lysp and lysc trees.
*/
struct tro_getters {
uint16_t (*nodetype)(const void *); /**< Get nodetype. */
const void *(*next)(const void *); /**< Get sibling. */
const void *(*parent)(const void *); /**< Get parent. */
const void *(*child)(const void *); /**< Get child. */
const void *(*actions)(const void *); /**< Get actions. */
const void *(*action_input)(const void *); /**< Get input action from action node. */
const void *(*action_output)(const void *); /**< Get output action from action node. */
const void *(*notifs)(const void *); /**< Get notifs. */
};
/**********************************************************************
* Forward declarations
*********************************************************************/
static LY_ERR trb_print_mount_point(const struct lysc_ext_instance *ext, const struct trt_wrapper wr, struct trt_printer_ctx *pc);
/**********************************************************************
* Definition of the general Trg functions
*********************************************************************/
/**
* @brief Print a substring but limited to the maximum length.
* @param[in] str is pointer to source.
* @param[in] len is number of characters to be printed.
* @param[in,out] out is output handler.
* @return str parameter shifted by len.
*/
static const char *
trg_print_substr(const char *str, size_t len, struct ly_out *out)
{
for (size_t i = 0; i < len; i++) {
ly_print_(out, "%c", str[0]);
str++;
}
return str;
}
/**
* @brief Pointer is not NULL and does not point to an empty string.
* @param[in] str is pointer to string to be checked.
* @return 1 if str pointing to non empty string otherwise 0.
*/
static ly_bool
trg_charptr_has_data(const char *str)
{
return (str) && (str[0] != '\0');
}
/**
* @brief Check if @p word in @p src is present where words are
* delimited by @p delim.
* @param[in] src is source where words are separated by @p delim.
* @param[in] word to be searched.
* @param[in] delim is delimiter between @p words in @p src.
* @return 1 if src contains @p word otherwise 0.
*/
static ly_bool
trg_word_is_present(const char *src, const char *word, char delim)
{
const char *hit;
if ((!src) || (src[0] == '\0') || (!word)) {
return 0;
}
hit = strstr(src, word);
if (hit) {
/* word was founded at the begin of src
* OR it match somewhere after delim
*/
if ((hit == src) || (hit[-1] == delim)) {
/* end of word was founded at the end of src
* OR end of word was match somewhere before delim
*/
char delim_or_end = (hit + strlen(word))[0];
if ((delim_or_end == '\0') || (delim_or_end == delim)) {
return 1;
}
}
/* after -> hit is just substr and it's not the whole word */
/* jump to the next word */
for ( ; (src[0] != '\0') && (src[0] != delim); src++) {}
/* skip delim */
src = src[0] == '\0' ? src : src + 1;
/* continue with searching */
return trg_word_is_present(src, word, delim);
} else {
return 0;
}
}
/**********************************************************************
* Definition of printer functions
*********************************************************************/
/**
* @brief Write callback for ::ly_out_new_clb().
*
* @param[in] user_data is type of struct ly_out_clb_arg.
* @param[in] buf contains input characters
* @param[in] count is number of characters in buf.
* @return Number of printed bytes.
* @return Negative value in case of error.
*/
static ssize_t
trp_ly_out_clb_func(void *user_data, const void *buf, size_t count)
{
LY_ERR erc = LY_SUCCESS;
struct ly_out_clb_arg *data = (struct ly_out_clb_arg *)user_data;
switch (data->mode) {
case TRD_PRINT:
erc = ly_write_(data->out, buf, count);
break;
case TRD_CHAR_COUNT:
data->counter = data->counter + count;
break;
default:
break;
}
if (erc != LY_SUCCESS) {
data->last_error = erc;
return -1;
} else {
return count;
}
}
/**
* @brief Check that indent in node can be considered as equivalent.
* @param[in] first is the first indent in node.
* @param[in] second is the second indent in node.
* @return 1 if indents are equivalent otherwise 0.
*/
static ly_bool
trp_indent_in_node_are_eq(struct trt_indent_in_node first, struct trt_indent_in_node second)
{
const ly_bool a = first.type == second.type;
const ly_bool b = first.btw_name_opts == second.btw_name_opts;
const ly_bool c = first.btw_opts_type == second.btw_opts_type;
const ly_bool d = first.btw_type_iffeatures == second.btw_type_iffeatures;
return a && b && c && d;
}
/**
* @brief Setting space character because node is last sibling.
* @param[in] wr is wrapper over which the shift operation
* is to be performed.
* @return New shifted wrapper.
*/
static struct trt_wrapper
trp_wrapper_set_shift(struct trt_wrapper wr)
{
assert(wr.actual_pos < 64);
/* +--<node>
* +--<node>
*/
wr.actual_pos++;
return wr;
}
/**
* @brief Setting '|' symbol because node is divided or
* it is not last sibling.
* @param[in] wr is source of wrapper.
* @return New wrapper which is marked at actual position and shifted.
*/
static struct trt_wrapper
trp_wrapper_set_mark(struct trt_wrapper wr)
{
assert(wr.actual_pos < 64);
wr.bit_marks1 |= 1U << wr.actual_pos;
return trp_wrapper_set_shift(wr);
}
/**
* @brief Set '|' symbol to connect current level nodes in a module.
* This is only used to connect all top-level nodes in all modules under
* a schema mount point.
* @param[in] wr is the wrapper to be marked
* @return New wrapper which is marked at actual position.
*/
static struct trt_wrapper
trp_wrapper_set_mark_top(struct trt_wrapper wr)
{
wr.bit_marks1 |= 1U << wr.actual_pos;
return wr;
}
/**
* @brief Setting ' ' symbol if node is last sibling otherwise set '|'.
* @param[in] wr is actual wrapper.
* @param[in] last_one is flag. Value 1 saying if the node is the last
* and has no more siblings.
* @return New wrapper for the actual node.
*/
static struct trt_wrapper
trp_wrapper_if_last_sibling(struct trt_wrapper wr, ly_bool last_one)
{
return last_one ? trp_wrapper_set_shift(wr) : trp_wrapper_set_mark(wr);
}
/**
* @brief Test if the wrappers are equivalent.
* @param[in] first is the first wrapper.
* @param[in] second is the second wrapper.
* @return 1 if the wrappers are equivalent otherwise 0.
*/
static ly_bool
trp_wrapper_eq(struct trt_wrapper first, struct trt_wrapper second)
{
const ly_bool a = first.type == second.type;
const ly_bool b = first.bit_marks1 == second.bit_marks1;
const ly_bool c = first.actual_pos == second.actual_pos;
return a && b && c;
}
/**
* @brief Print " | " sequence on line.
* @param[in] wr is wrapper to be printed.
* @param[in,out] out is output handler.
*/
static void
trp_print_wrapper(struct trt_wrapper wr, struct ly_out *out)
{
uint32_t lb;
if (wr.type == TRD_WRAPPER_TOP) {
lb = TRD_INDENT_LINE_BEGIN;
} else if (wr.type == TRD_WRAPPER_BODY) {
lb = TRD_INDENT_LINE_BEGIN * 2;
} else {
lb = TRD_INDENT_LINE_BEGIN;
}
ly_print_(out, "%*c", lb, ' ');
if (trp_wrapper_eq(wr, TRP_INIT_WRAPPER_TOP)) {
return;
}
for (uint32_t i = 0; i < wr.actual_pos; i++) {
/** Test if the bit on the index is set. */
if ((wr.bit_marks1 >> i) & 1U) {
ly_print_(out, "|");
} else {
ly_print_(out, " ");
}
if (i != wr.actual_pos) {
ly_print_(out, "%*c", TRD_INDENT_BTW_SIBLINGS, ' ');
}
}
}
/**
* @brief Check if struct trt_node is empty.
* @param[in] node is item to test.
* @return 1 if node is considered empty otherwise 0.
*/
static ly_bool
trp_node_is_empty(struct trt_node node)
{
const ly_bool a = !node.iffeatures;
const ly_bool b = TRP_TRT_TYPE_IS_EMPTY(node.type);
const ly_bool c = TRP_NODE_NAME_IS_EMPTY(node.name);
const ly_bool d = node.flags == TRD_FLAGS_TYPE_EMPTY;
const ly_bool e = node.status == TRD_STATUS_TYPE_EMPTY;
return a && b && c && d && e;
}
/**
* @brief Check if [\<keys\>], \<type\> and
* \<iffeatures\> are empty/not_set.
* @param[in] node is item to test.
* @return 1 if node has no \<keys\> \<type\> or \<iffeatures\>
* otherwise 0.
*/
static ly_bool
trp_node_body_is_empty(struct trt_node node)
{
const ly_bool a = !node.iffeatures;
const ly_bool b = TRP_TRT_TYPE_IS_EMPTY(node.type);
const ly_bool c = !node.name.keys;
return a && b && c;
}
/**
* @brief Print \<status\> of the node.
* @param[in] status_type is type of status.
* @param[in,out] out is output handler.
*/
static void
trp_print_status(trt_status_type status_type, struct ly_out *out)
{
switch (status_type) {
case TRD_STATUS_TYPE_CURRENT:
ly_print_(out, "%c", '+');
break;
case TRD_STATUS_TYPE_DEPRECATED:
ly_print_(out, "%c", 'x');
break;
case TRD_STATUS_TYPE_OBSOLETE:
ly_print_(out, "%c", 'o');
break;
default:
break;
}
}
/**
* @brief Print \<flags\>.
* @param[in] flags_type is type of \<flags\>.
* @param[in,out] out is output handler.
*/
static void
trp_print_flags(trt_flags_type flags_type, struct ly_out *out)
{
switch (flags_type) {
case TRD_FLAGS_TYPE_RW:
ly_print_(out, "%s", "rw");
break;
case TRD_FLAGS_TYPE_RO:
ly_print_(out, "%s", "ro");
break;
case TRD_FLAGS_TYPE_RPC_INPUT_PARAMS:
ly_print_(out, "%s", "-w");
break;
case TRD_FLAGS_TYPE_USES_OF_GROUPING:
ly_print_(out, "%s", "-u");
break;
case TRD_FLAGS_TYPE_RPC:
ly_print_(out, "%s", "-x");
break;
case TRD_FLAGS_TYPE_NOTIF:
ly_print_(out, "%s", "-n");
break;
case TRD_FLAGS_TYPE_MOUNT_POINT:
ly_print_(out, "%s", "mp");
break;
default:
ly_print_(out, "%s", "--");
break;
}
}
/**
* @brief Get size of the \<flags\>.
* @param[in] flags_type is type of \<flags\>.
* @return 0 if flags_type is not set otherwise 2.
*/
static size_t
trp_get_flags_strlen(trt_flags_type flags_type)
{
return flags_type == TRD_FLAGS_TYPE_EMPTY ? 0 : 2;
}
/**
* @brief Print entire struct trt_node_name structure.
* @param[in] node_name is item to print.
* @param[in,out] out is output handler.
*/
static void
trp_print_node_name(struct trt_node_name node_name, struct ly_out *out)
{
const char *mod_prefix;
const char *colon;
const char trd_node_name_suffix_choice[] = ")";
const char trd_node_name_suffix_case[] = ")";
const char trd_opts_optional[] = "?"; /**< For an optional leaf, choice, anydata, or anyxml. */
const char trd_opts_container[] = "!"; /**< For a presence container. */
const char trd_opts_list[] = "*"; /**< For a leaf-list or list. */
const char trd_opts_slash[] = "/"; /**< For a top-level data node in a mounted module. */
const char trd_opts_at_sign[] = "@"; /**< For a top-level data node of a module identified in a mount point parent reference. */
if (TRP_NODE_NAME_IS_EMPTY(node_name)) {
return;
}
if (node_name.module_prefix) {
mod_prefix = node_name.module_prefix;
colon = ":";
} else {
mod_prefix = "";
colon = "";
}
switch (node_name.type) {
case TRD_NODE_ELSE:
ly_print_(out, "%s%s%s", mod_prefix, colon, node_name.str);
break;
case TRD_NODE_CASE:
ly_print_(out, "%s%s%s%s%s", TRD_NODE_NAME_PREFIX_CASE, mod_prefix, colon, node_name.str, trd_node_name_suffix_case);
break;
case TRD_NODE_CHOICE:
ly_print_(out, "%s%s%s%s%s", TRD_NODE_NAME_PREFIX_CHOICE, mod_prefix, colon, node_name.str, trd_node_name_suffix_choice);
break;
case TRD_NODE_OPTIONAL_CHOICE:
ly_print_(out, "%s%s%s%s%s%s", TRD_NODE_NAME_PREFIX_CHOICE, mod_prefix, colon, node_name.str, trd_node_name_suffix_choice, trd_opts_optional);
break;
case TRD_NODE_OPTIONAL:
ly_print_(out, "%s%s%s%s", mod_prefix, colon, node_name.str, trd_opts_optional);
break;
case TRD_NODE_CONTAINER:
ly_print_(out, "%s%s%s%s", mod_prefix, colon, node_name.str, trd_opts_container);
break;
case TRD_NODE_LISTLEAFLIST:
ly_print_(out, "%s%s%s%s", mod_prefix, colon, node_name.str, trd_opts_list);
break;
case TRD_NODE_TOP_LEVEL1:
ly_print_(out, "%s%s%s%s", mod_prefix, colon, node_name.str, trd_opts_slash);
break;
case TRD_NODE_TOP_LEVEL2:
ly_print_(out, "%s%s%s%s", mod_prefix, colon, node_name.str, trd_opts_at_sign);
break;
case TRD_NODE_TRIPLE_DOT:
ly_print_(out, "%s", TRD_NODE_NAME_TRIPLE_DOT);
break;
default:
break;
}
}
/**
* @brief Check if mark (?, !, *, /, @) is implicitly contained in
* struct trt_node_name.
* @param[in] node_name is structure containing the 'mark'.
* @return 1 if contain otherwise 0.
*/
static ly_bool
trp_mark_is_used(struct trt_node_name node_name)
{
if (TRP_NODE_NAME_IS_EMPTY(node_name)) {
return 0;
} else if (node_name.keys) {
return 0;
}
switch (node_name.type) {
case TRD_NODE_ELSE:
case TRD_NODE_CASE:
return 0;
default:
return 1;
}
}
/**
* @brief Print opts keys.
* @param[in] node_name contains type of the node with his name.
* @param[in] btw_name_opts is number of spaces between name and [keys].
* @param[in] cf is basically a pointer to the function that prints
* the keys.
* @param[in,out] out is output handler.
*/
static void
trp_print_opts_keys(struct trt_node_name node_name, int16_t btw_name_opts, struct trt_cf_print cf, struct ly_out *out)
{
if (!node_name.keys) {
return;
}
/* <name><mark>___<keys>*/
if (btw_name_opts > 0) {
ly_print_(out, "%*c", btw_name_opts, ' ');
}
ly_print_(out, "[");
cf.pf(cf.ctx, out);
ly_print_(out, "]");
}
/**
* @brief Print entire struct trt_type structure.
* @param[in] type is item to print.
* @param[in,out] out is output handler.
*/
static void
trp_print_type(struct trt_type type, struct ly_out *out)
{
if (TRP_TRT_TYPE_IS_EMPTY(type)) {
return;
}
switch (type.type) {
case TRD_TYPE_NAME:
ly_print_(out, "%s", type.str);
break;
case TRD_TYPE_TARGET:
ly_print_(out, "-> %s", type.str);
break;
case TRD_TYPE_LEAFREF:
ly_print_(out, "leafref");
default:
break;
}
}
/**
* @brief Print all iffeatures of node
*
* @param[in] iffeature_flag contains if if-features is present.
* @param[in] cf is basically a pointer to the function that prints
* the list of features.
* @param[in,out] out is output handler.
*/
static void
trp_print_iffeatures(ly_bool iffeature_flag, struct trt_cf_print cf, struct ly_out *out)
{
if (iffeature_flag) {
ly_print_(out, "{");
cf.pf(cf.ctx, out);
ly_print_(out, "}?");
}
}
/**
* @brief Print just \<status\>--\<flags\> \<name\> with opts mark.
* @param[in] node contains items to print.
* @param[in] out is output handler.
*/
static void
trp_print_node_up_to_name(struct trt_node node, struct ly_out *out)
{
if (node.name.type == TRD_NODE_TRIPLE_DOT) {
trp_print_node_name(node.name, out);
return;
}
/* <status>--<flags> */
trp_print_status(node.status, out);
ly_print_(out, "--");
/* If the node is a case node, there is no space before the <name>
* also case node has no flags.
*/
if (node.name.type != TRD_NODE_CASE) {
trp_print_flags(node.flags, out);
ly_print_(out, " ");
}
/* <name> */
trp_print_node_name(node.name, out);
}
/**
* @brief Print alignment (spaces) instead of
* \<status\>--\<flags\> \<name\> for divided node.
* @param[in] node contains items to print.
* @param[in] out is output handler.
*/
static void
trp_print_divided_node_up_to_name(struct trt_node node, struct ly_out *out)
{
uint32_t space = trp_get_flags_strlen(node.flags);
if (node.name.type == TRD_NODE_CASE) {
/* :(<name> */
space += strlen(TRD_NODE_NAME_PREFIX_CASE);
} else if (node.name.type == TRD_NODE_CHOICE) {
/* (<name> */
space += strlen(TRD_NODE_NAME_PREFIX_CHOICE);
} else {
/* _<name> */
space += strlen(" ");
}
/* <name>
* __
*/
space += TRD_INDENT_LONG_LINE_BREAK;
ly_print_(out, "%*c", space, ' ');
}
/**
* @brief Print struct trt_node structure.
* @param[in] node is item to print.
* @param[in] pck package of functions for
* printing [\<keys\>] and \<iffeatures\>.
* @param[in] indent is the indent in node.
* @param[in,out] out is output handler.
*/
static void
trp_print_node(struct trt_node node, struct trt_pck_print pck, struct trt_indent_in_node indent, struct ly_out *out)
{
ly_bool triple_dot;
ly_bool divided;
struct trt_cf_print cf_print_keys;
struct trt_cf_print cf_print_iffeatures;
if (trp_node_is_empty(node)) {
return;
}
/* <status>--<flags> <name><opts> <type> <if-features> */
triple_dot = node.name.type == TRD_NODE_TRIPLE_DOT;
divided = indent.type == TRD_INDENT_IN_NODE_DIVIDED;
if (triple_dot) {
trp_print_node_name(node.name, out);
return;
} else if (!divided) {
trp_print_node_up_to_name(node, out);
} else {
trp_print_divided_node_up_to_name(node, out);
}
/* <opts> */
/* <name>___<opts>*/
cf_print_keys.ctx = pck.tree_ctx;
cf_print_keys.pf = pck.fps.print_keys;
trp_print_opts_keys(node.name, indent.btw_name_opts, cf_print_keys, out);
/* <opts>__<type> */
if (indent.btw_opts_type > 0) {
ly_print_(out, "%*c", indent.btw_opts_type, ' ');
}
/* <type> */
trp_print_type(node.type, out);
/* <type>__<iffeatures> */
if (indent.btw_type_iffeatures > 0) {
ly_print_(out, "%*c", indent.btw_type_iffeatures, ' ');
}
/* <iffeatures> */
cf_print_iffeatures.ctx = pck.tree_ctx;
cf_print_iffeatures.pf = pck.fps.print_features_names;
trp_print_iffeatures(node.iffeatures, cf_print_iffeatures, out);
}
/**
* @brief Print keyword based on trt_keyword_stmt.type.
* @param[in] ks is keyword statement to print.
* @param[in,out] out is output handler
*/
static void
trt_print_keyword_stmt_begin(struct trt_keyword_stmt ks, struct ly_out *out)
{
switch (ks.type) {
case TRD_KEYWORD_MODULE:
ly_print_(out, "%s: ", TRD_TOP_KEYWORD_MODULE);
return;
case TRD_KEYWORD_SUBMODULE:
ly_print_(out, "%s: ", TRD_TOP_KEYWORD_SUBMODULE);
return;
default:
ly_print_(out, "%*c", TRD_INDENT_LINE_BEGIN, ' ');
switch (ks.type) {
case TRD_KEYWORD_AUGMENT:
ly_print_(out, "%s ", TRD_BODY_KEYWORD_AUGMENT);
break;
case TRD_KEYWORD_RPC:
ly_print_(out, "%s", TRD_BODY_KEYWORD_RPC);
break;
case TRD_KEYWORD_NOTIF:
ly_print_(out, "%s", TRD_BODY_KEYWORD_NOTIF);
break;
case TRD_KEYWORD_GROUPING:
ly_print_(out, "%s ", TRD_BODY_KEYWORD_GROUPING);
break;
case TRD_KEYWORD_YANG_DATA:
ly_print_(out, "%s ", TRD_BODY_KEYWORD_YANG_DATA);
break;
default:
break;
}
break;
}
}
/**
* @brief Get string length of stored keyword.
* @param[in] type is type of the keyword statement.
* @return length of the keyword statement name.
*/
static size_t
trp_keyword_type_strlen(trt_keyword_type type)
{
switch (type) {
case TRD_KEYWORD_MODULE:
return sizeof(TRD_TOP_KEYWORD_MODULE) - 1;
case TRD_KEYWORD_SUBMODULE:
return sizeof(TRD_TOP_KEYWORD_SUBMODULE) - 1;
case TRD_KEYWORD_AUGMENT:
return sizeof(TRD_BODY_KEYWORD_AUGMENT) - 1;
case TRD_KEYWORD_RPC:
return sizeof(TRD_BODY_KEYWORD_RPC) - 1;
case TRD_KEYWORD_NOTIF:
return sizeof(TRD_BODY_KEYWORD_NOTIF) - 1;
case TRD_KEYWORD_GROUPING:
return sizeof(TRD_BODY_KEYWORD_GROUPING) - 1;
case TRD_KEYWORD_YANG_DATA:
return sizeof(TRD_BODY_KEYWORD_YANG_DATA) - 1;
default:
return 0;
}
}
/**
* @brief Print trt_keyword_stmt.str which is string of name or path.
* @param[in] ks is keyword statement structure.
* @param[in] mll is max line length.
* @param[in,out] out is output handler.
*/
static void
trt_print_keyword_stmt_str(struct trt_keyword_stmt ks, size_t mll, struct ly_out *out)
{
uint32_t ind_initial;
uint32_t ind_divided;
/* flag if path must be splitted to more lines */
ly_bool linebreak_was_set;
/* flag if at least one subpath was printed */
ly_bool subpath_printed;
/* the sum of the sizes of the substrings on the current line */
uint32_t how_far;
/* pointer to start of the subpath */
const char *sub_ptr;
/* size of subpath from sub_ptr */
size_t sub_len;
if ((!ks.str) || (ks.str[0] == '\0')) {
return;
}
/* module name cannot be splitted */
if ((ks.type == TRD_KEYWORD_MODULE) || (ks.type == TRD_KEYWORD_SUBMODULE)) {
ly_print_(out, "%s", ks.str);
return;
}
/* after -> for trd_keyword_stmt_body do */
/* set begin indentation */
ind_initial = TRD_INDENT_LINE_BEGIN + trp_keyword_type_strlen(ks.type) + 1;
ind_divided = ind_initial + TRD_INDENT_LONG_LINE_BREAK;
linebreak_was_set = 0;
subpath_printed = 0;
how_far = 0;
sub_ptr = ks.str;
sub_len = 0;
while (sub_ptr[0] != '\0') {
uint32_t ind;
/* skip slash */
const char *tmp = sub_ptr[0] == '/' ? sub_ptr + 1 : sub_ptr;
/* get position of the end of substr */
tmp = strchr(tmp, '/');
/* set correct size if this is a last substring */
sub_len = !tmp ? strlen(sub_ptr) : (size_t)(tmp - sub_ptr);
/* actualize sum of the substring's sizes on the current line */
how_far += sub_len;
/* correction due to colon character if it this is last substring */
how_far = *(sub_ptr + sub_len) == '\0' ? how_far + 1 : how_far;
/* choose indentation which depends on
* whether the string is printed on multiple lines or not
*/
ind = linebreak_was_set ? ind_divided : ind_initial;
if (ind + how_far <= mll) {
/* printing before max line length */
sub_ptr = trg_print_substr(sub_ptr, sub_len, out);
subpath_printed = 1;
} else {
/* printing on new line */
if (subpath_printed == 0) {
/* first subpath is too long
* but print it at first line anyway
*/
sub_ptr = trg_print_substr(sub_ptr, sub_len, out);
subpath_printed = 1;
continue;
}
ly_print_(out, "\n");
ly_print_(out, "%*c", ind_divided, ' ');
linebreak_was_set = 1;
sub_ptr = trg_print_substr(sub_ptr, sub_len, out);
how_far = sub_len;
subpath_printed = 1;
}
}
}
/**
* @brief Print separator based on trt_keyword_stmt.type
* @param[in] ks is keyword statement structure.
* @param[in] grp_has_data is flag only for grouping section.
* Set to 1 if grouping section has some nodes.
* Set to 0 if it doesn't have nodes or it's not grouping section.
* @param[in,out] out is output handler.
*/
static void
trt_print_keyword_stmt_end(struct trt_keyword_stmt ks, ly_bool grp_has_data, struct ly_out *out)
{
if ((ks.type != TRD_KEYWORD_MODULE) && (ks.type != TRD_KEYWORD_SUBMODULE)) {
if ((ks.type == TRD_KEYWORD_GROUPING) && !grp_has_data) {
return;
} else {
ly_print_(out, ":");
}
}
}
/**
* @brief Print entire struct trt_keyword_stmt structure.
* @param[in] ks is item to print.
* @param[in] mll is max line length.
* @param[in] grp_has_data is flag only for grouping section.
* Set to 1 if grouping section has some nodes.
* Set to 0 if it doesn't have nodes or it's not grouping section.
* @param[in,out] out is output handler.
*/
static void
trp_print_keyword_stmt(struct trt_keyword_stmt ks, size_t mll, ly_bool grp_has_data, struct ly_out *out)
{
if (TRP_KEYWORD_STMT_IS_EMPTY(ks)) {
return;
}
trt_print_keyword_stmt_begin(ks, out);
trt_print_keyword_stmt_str(ks, mll, out);
trt_print_keyword_stmt_end(ks, grp_has_data, out);
}
/**********************************************************************
* Main trp functions
*********************************************************************/
/**
* @brief Printing one line including wrapper and node
* which can be incomplete (divided).
* @param[in] node is \<node\> representation.
* @param[in] pck contains special printing functions callback.
* @param[in] indent contains wrapper and indent in node numbers.
* @param[in,out] out is output handler.
*/
static void
trp_print_line(struct trt_node node, struct trt_pck_print pck, struct trt_pck_indent indent, struct ly_out *out)
{
trp_print_wrapper(indent.wrapper, out);
trp_print_node(node, pck, indent.in_node, out);
}
/**
* @brief Printing one line including wrapper and
* \<status\>--\<flags\> \<name\>\<option_mark\>.
* @param[in] node is \<node\> representation.
* @param[in] wr is wrapper for printing indentation before node.
* @param[in] out is output handler.
*/
static void
trp_print_line_up_to_node_name(struct trt_node node, struct trt_wrapper wr, struct ly_out *out)
{
trp_print_wrapper(wr, out);
trp_print_node_up_to_name(node, out);
}
/**
* @brief Check if leafref target must be change to string 'leafref'
* because his target string is too long.
* @param[in] node containing leafref target.
* @param[in] wr is wrapper for printing indentation before node.
* @param[in] mll is max line length.
* @param[in] out is output handler.
* @return true if leafref must be changed to string 'leafref'.
*/
static ly_bool
trp_leafref_target_is_too_long(struct trt_node node, struct trt_wrapper wr, size_t mll, struct ly_out *out)
{
struct ly_out_clb_arg *data;
if (node.type.type != TRD_TYPE_TARGET) {
return 0;
}
/* set ly_out to counting characters */
data = out->method.clb.arg;
data->counter = 0;
data->mode = TRD_CHAR_COUNT;
/* count number of printed bytes */
trp_print_wrapper(wr, out);
ly_print_(out, "%*c", TRD_INDENT_BTW_SIBLINGS, ' ');
trp_print_divided_node_up_to_name(node, out);
data->mode = TRD_PRINT;
return data->counter + strlen(node.type.str) > mll;
}
/**
* @brief Get default indent in node based on node values.
* @param[in] node is \<node\> representation.
* @return Default indent in node assuming that the node
* will not be divided.
*/
static struct trt_indent_in_node
trp_default_indent_in_node(struct trt_node node)
{
struct trt_indent_in_node ret;
ret.type = TRD_INDENT_IN_NODE_NORMAL;
/* btw_name_opts */
ret.btw_name_opts = node.name.keys ? TRD_INDENT_BEFORE_KEYS : 0;
/* btw_opts_type */
if (!(TRP_TRT_TYPE_IS_EMPTY(node.type))) {
ret.btw_opts_type = trp_mark_is_used(node.name) ?
TRD_INDENT_BEFORE_TYPE - TRD_OPTS_MARK_LENGTH :
TRD_INDENT_BEFORE_TYPE;
} else {
ret.btw_opts_type = 0;
}
/* btw_type_iffeatures */
ret.btw_type_iffeatures = node.iffeatures ? TRD_INDENT_BEFORE_IFFEATURES : 0;
return ret;
}
/**
* @brief Setting linebreaks in trt_indent_in_node.
*
* The order where the linebreak tag can be placed is from the end.
*
* @param[in] indent containing alignment lengths
* or already linebreak marks.
* @return indent with a newly placed linebreak tag.
* @return .type set to TRD_INDENT_IN_NODE_FAILED if it is not possible
* to place a more linebreaks.
*/
static struct trt_indent_in_node
trp_indent_in_node_place_break(struct trt_indent_in_node indent)
{
/* somewhere must be set a line break in node */
struct trt_indent_in_node ret = indent;
/* gradually break the node from the end */
if ((indent.btw_type_iffeatures != TRD_LINEBREAK) && (indent.btw_type_iffeatures != 0)) {
ret.btw_type_iffeatures = TRD_LINEBREAK;
} else if ((indent.btw_opts_type != TRD_LINEBREAK) && (indent.btw_opts_type != 0)) {
ret.btw_opts_type = TRD_LINEBREAK;
} else if ((indent.btw_name_opts != TRD_LINEBREAK) && (indent.btw_name_opts != 0)) {
/* set line break between name and opts */
ret.btw_name_opts = TRD_LINEBREAK;
} else {
/* it is not possible to place a more line breaks,
* unfortunately the max_line_length constraint is violated
*/
ret.type = TRD_INDENT_IN_NODE_FAILED;
}
return ret;
}
/**
* @brief Get the first half of the node based on the linebreak mark.
*
* Items in the second half of the node will be empty.
*
* @param[in] node the whole \<node\> to be split.
* @param[in] indent contains information in which part of the \<node\>
* the first half ends.
* @return first half of the node, indent is unchanged.
*/
static struct trt_pair_indent_node
trp_first_half_node(struct trt_node node, struct trt_indent_in_node indent)
{
struct trt_pair_indent_node ret = TRP_INIT_PAIR_INDENT_NODE(indent, node);
if (indent.btw_name_opts == TRD_LINEBREAK) {
ret.node.name.type = node.name.type;
ret.node.type = TRP_EMPTY_TRT_TYPE;
ret.node.iffeatures = 0;
} else if (indent.btw_opts_type == TRD_LINEBREAK) {
ret.node.type = TRP_EMPTY_TRT_TYPE;
ret.node.iffeatures = 0;
} else if (indent.btw_type_iffeatures == TRD_LINEBREAK) {
ret.node.iffeatures = 0;
}
return ret;
}
/**
* @brief Get the second half of the node based on the linebreak mark.
*
* Items in the first half of the node will be empty.
* Indentations belonging to the first node will be reset to zero.
*
* @param[in] node the whole \<node\> to be split.
* @param[in] indent contains information in which part of the \<node\>
* the second half starts.
* @return second half of the node, indent is newly set.
*/
static struct trt_pair_indent_node
trp_second_half_node(struct trt_node node, struct trt_indent_in_node indent)
{
struct trt_pair_indent_node ret = TRP_INIT_PAIR_INDENT_NODE(indent, node);
if (indent.btw_name_opts < 0) {
/* Logically, the information up to token <opts> should
* be deleted, but the the trp_print_node function needs it to
* create the correct indent.
*/
ret.indent.btw_name_opts = 0;
ret.indent.btw_opts_type = TRP_TRT_TYPE_IS_EMPTY(node.type) ? 0 : TRD_INDENT_BEFORE_TYPE;
ret.indent.btw_type_iffeatures = !node.iffeatures ? 0 : TRD_INDENT_BEFORE_IFFEATURES;
} else if (indent.btw_opts_type == TRD_LINEBREAK) {
ret.node.name.type = node.name.type;
ret.indent.btw_name_opts = 0;
ret.indent.btw_opts_type = 0;
ret.indent.btw_type_iffeatures = !node.iffeatures ? 0 : TRD_INDENT_BEFORE_IFFEATURES;
} else if (indent.btw_type_iffeatures == TRD_LINEBREAK) {
ret.node.name.type = node.name.type;
ret.node.type = TRP_EMPTY_TRT_TYPE;
ret.indent.btw_name_opts = 0;
ret.indent.btw_opts_type = 0;
ret.indent.btw_type_iffeatures = 0;
}
return ret;
}
/**
* @brief Get the correct alignment for the node.
*
* This function is recursively called itself. It's like a backend
* function for a function ::trp_try_normal_indent_in_node().
*
* @param[in] node is \<node\> representation.
* @param[in] pck contains speciall callback functions for printing.
* @param[in] indent contains wrapper and indent in node numbers.
* @param[in] mll is max line length.
* @param[in,out] cnt counting number of characters to print.
* @param[in,out] out is output handler.
* @return pair of node and indentation numbers of that node.
*/
static struct trt_pair_indent_node
trp_try_normal_indent_in_node_(struct trt_node node, struct trt_pck_print pck, struct trt_pck_indent indent, size_t mll, size_t *cnt, struct ly_out *out)
{
struct trt_pair_indent_node ret = TRP_INIT_PAIR_INDENT_NODE(indent.in_node, node);
trp_print_line(node, pck, indent, out);
if (*cnt <= mll) {
/* success */
return ret;
} else {
ret.indent = trp_indent_in_node_place_break(ret.indent);
if (ret.indent.type != TRD_INDENT_IN_NODE_FAILED) {
/* erase information in node due to line break */
ret = trp_first_half_node(node, ret.indent);
/* check if line fits, recursive call */
*cnt = 0;
ret = trp_try_normal_indent_in_node_(ret.node, pck, TRP_INIT_PCK_INDENT(indent.wrapper, ret.indent), mll, cnt, out);
/* make sure that the result will be with the status divided
* or eventually with status failed */
ret.indent.type = ret.indent.type == TRD_INDENT_IN_NODE_FAILED ? TRD_INDENT_IN_NODE_FAILED : TRD_INDENT_IN_NODE_DIVIDED;
}
return ret;
}
}
/**
* @brief Get the correct alignment for the node.
*
* @param[in] node is \<node\> representation.
* @param[in] pck contains speciall callback functions for printing.
* @param[in] indent contains wrapper and indent in node numbers.
* @param[in] mll is max line length.
* @param[in,out] out is output handler.
* @return ::TRD_INDENT_IN_NODE_DIVIDED - the node does not fit in the
* line, some indent variable has negative value as a line break sign.
* @return ::TRD_INDENT_IN_NODE_NORMAL - the node fits into the line,
* all indent variables values has non-negative number.
* @return ::TRD_INDENT_IN_NODE_FAILED - the node does not fit into the
* line, all indent variables has negative or zero values,
* function failed.
*/
static struct trt_pair_indent_node
trp_try_normal_indent_in_node(struct trt_node node, struct trt_pck_print pck, struct trt_pck_indent indent, size_t mll, struct ly_out *out)
{
struct trt_pair_indent_node ret = TRP_INIT_PAIR_INDENT_NODE(indent.in_node, node);
struct ly_out_clb_arg *data;
/* set ly_out to counting characters */
data = out->method.clb.arg;
data->counter = 0;
data->mode = TRD_CHAR_COUNT;
ret = trp_try_normal_indent_in_node_(node, pck, indent, mll, &data->counter, out);
data->mode = TRD_PRINT;
return ret;
}
/**
* @brief Auxiliary function for ::trp_print_entire_node()
* that prints split nodes.
* @param[in] node is node representation.
* @param[in] ppck contains speciall callback functions for printing.
* @param[in] ipck contains wrapper and indent in node numbers.
* @param[in] mll is max line length.
* @param[in,out] out is output handler.
*/
static void
trp_print_divided_node(struct trt_node node, struct trt_pck_print ppck, struct trt_pck_indent ipck, size_t mll, struct ly_out *out)
{
ly_bool entire_node_was_printed;
struct trt_pair_indent_node ind_node = trp_try_normal_indent_in_node(node, ppck, ipck, mll, out);
if (ind_node.indent.type == TRD_INDENT_IN_NODE_FAILED) {
/* nothing can be done, continue as usual */
ind_node.indent.type = TRD_INDENT_IN_NODE_DIVIDED;
}
trp_print_line(ind_node.node, ppck, TRP_INIT_PCK_INDENT(ipck.wrapper, ind_node.indent), out);
entire_node_was_printed = trp_indent_in_node_are_eq(ipck.in_node, ind_node.indent);
if (!entire_node_was_printed) {
ly_print_(out, "\n");
/* continue with second half node */
ind_node = trp_second_half_node(node, ind_node.indent);
/* continue with printing node */
trp_print_divided_node(ind_node.node, ppck, TRP_INIT_PCK_INDENT(ipck.wrapper, ind_node.indent), mll, out);
} else {
return;
}
}
/**
* @brief Printing of the wrapper and the whole node,
* which can be divided into several lines.
* @param[in] node is node representation.
* @param[in] ppck contains speciall callback functions for printing.
* @param[in] ipck contains wrapper and indent in node numbers.
* @param[in] mll is max line length.
* @param[in,out] out is output handler.
*/
static void
trp_print_entire_node(struct trt_node node, struct trt_pck_print ppck, struct trt_pck_indent ipck, size_t mll, struct ly_out *out)
{
struct trt_pair_indent_node ind_node1;
struct trt_pair_indent_node ind_node2;
struct trt_pck_indent tmp;
if (trp_leafref_target_is_too_long(node, ipck.wrapper, mll, out)) {
node.type.type = TRD_TYPE_LEAFREF;
}
/* check if normal indent is possible */
ind_node1 = trp_try_normal_indent_in_node(node, ppck, ipck, mll, out);
if (ind_node1.indent.type == TRD_INDENT_IN_NODE_NORMAL) {
/* node fits to one line */
trp_print_line(node, ppck, ipck, out);
} else if (ind_node1.indent.type == TRD_INDENT_IN_NODE_DIVIDED) {
/* node will be divided */
/* print first half */
tmp = TRP_INIT_PCK_INDENT(ipck.wrapper, ind_node1.indent);
/* pretend that this is normal node */
tmp.in_node.type = TRD_INDENT_IN_NODE_NORMAL;
trp_print_line(ind_node1.node, ppck, tmp, out);
ly_print_(out, "\n");
/* continue with second half on new line */
ind_node2 = trp_second_half_node(node, ind_node1.indent);
tmp = TRP_INIT_PCK_INDENT(trp_wrapper_if_last_sibling(ipck.wrapper, node.last_one), ind_node2.indent);
trp_print_divided_node(ind_node2.node, ppck, tmp, mll, out);
} else if (ind_node1.indent.type == TRD_INDENT_IN_NODE_FAILED) {
/* node name is too long */
trp_print_line_up_to_node_name(node, ipck.wrapper, out);
if (trp_node_body_is_empty(node)) {
return;
} else {
ly_print_(out, "\n");
ind_node2 = trp_second_half_node(node, ind_node1.indent);
ind_node2.indent.type = TRD_INDENT_IN_NODE_DIVIDED;
tmp = TRP_INIT_PCK_INDENT(trp_wrapper_if_last_sibling(ipck.wrapper, node.last_one), ind_node2.indent);
trp_print_divided_node(ind_node2.node, ppck, tmp, mll, out);
}
}
}
/**********************************************************************
* trop and troc getters
*********************************************************************/
/**
* @brief Get nodetype.
* @param[in] node is any lysp_node.
*/
static uint16_t
trop_nodetype(const void *node)
{
return ((const struct lysp_node *)node)->nodetype;
}
/**
* @brief Get sibling.
* @param[in] node is any lysp_node.
*/
static const void *
trop_next(const void *node)
{
return ((const struct lysp_node *)node)->next;
}
/**
* @brief Get parent.
* @param[in] node is any lysp_node.
*/
static const void *
trop_parent(const void *node)
{
return ((const struct lysp_node *)node)->parent;
}
/**
* @brief Try to get child.
* @param[in] node is any lysp_node.
*/
static const void *
trop_child(const void *node)
{
return lysp_node_child(node);
}
/**
* @brief Try to get action.
* @param[in] node is any lysp_node.
*/
static const void *
trop_actions(const void *node)
{
return lysp_node_actions(node);
}
/**
* @brief Try to get action.
* @param[in] node must be of type lysp_node_action.
*/
static const void *
trop_action_input(const void *node)
{
return &((const struct lysp_node_action *)node)->input;
}
/**
* @brief Try to get action.
* @param[in] node must be of type lysp_node_action.
*/
static const void *
trop_action_output(const void *node)
{
return &((const struct lysp_node_action *)node)->output;
}
/**
* @brief Try to get action.
* @param[in] node is any lysp_node.
*/
static const void *
trop_notifs(const void *node)
{
return lysp_node_notifs(node);
}
/**
* @brief Fill struct tro_getters with @ref TRP_trop getters
* which are adapted to lysp nodes.
*/
static struct tro_getters
trop_init_getters()
{
return (struct tro_getters) {
.nodetype = trop_nodetype,
.next = trop_next,
.parent = trop_parent,
.child = trop_child,
.actions = trop_actions,
.action_input = trop_action_input,
.action_output = trop_action_output,
.notifs = trop_notifs
};
}
/**
* @brief Get nodetype.
* @param[in] node is any lysc_node.
*/
static uint16_t
troc_nodetype(const void *node)
{
return ((const struct lysc_node *)node)->nodetype;
}
/**
* @brief Get sibling.
* @param[in] node is any lysc_node.
*/
static const void *
troc_next(const void *node)
{
return ((const struct lysc_node *)node)->next;
}
/**
* @brief Get parent.
* @param[in] node is any lysc_node.
*/
static const void *
troc_parent(const void *node)
{
return ((const struct lysc_node *)node)->parent;
}
/**
* @brief Try to get child.
* @param[in] node is any lysc_node.
*/
static const void *
troc_child(const void *node)
{
return lysc_node_child(node);
}
/**
* @brief Try to get action.
* @param[in] node is any lysc_node.
*/
static const void *
troc_actions(const void *node)
{
return lysc_node_actions(node);
}
/**
* @brief Try to get action.
* @param[in] node must be of type lysc_node_action.
*/
static const void *
troc_action_input(const void *node)
{
return &((const struct lysc_node_action *)node)->input;
}
/**
* @brief Try to get action.
* @param[in] node must be of type lysc_node_action.
*/
static const void *
troc_action_output(const void *node)
{
return &((const struct lysc_node_action *)node)->output;
}
/**
* @brief Try to get action.
* @param[in] node is any lysc_node.
*/
static const void *
troc_notifs(const void *node)
{
return lysc_node_notifs(node);
}
/**
* @brief Fill struct tro_getters with @ref TRP_troc getters
* which are adapted to lysc nodes.
*/
static struct tro_getters
troc_init_getters()
{
return (struct tro_getters) {
.nodetype = troc_nodetype,
.next = troc_next,
.parent = troc_parent,
.child = troc_child,
.actions = troc_actions,
.action_input = troc_action_input,
.action_output = troc_action_output,
.notifs = troc_notifs
};
}
/**********************************************************************
* tro functions
*********************************************************************/
/**
* @brief Get next sibling of the current node.
*
* This is a general algorithm that is able to
* work with lysp_node or lysc_node.
*
* @param[in] node points to lysp_node or lysc_node.
* @param[in] lysc_tree flag to determine what type the @p node is.
* If set to true, then @p points to lysc_node otherwise lysp_node.
* This flag should be the same as trt_tree_ctx.lysc_tree.
*/
static const void *
tro_next_sibling(const void *node, ly_bool lysc_tree)
{
struct tro_getters get;
const void *tmp, *parent;
const void *ret;
assert(node);
get = lysc_tree ? troc_init_getters() : trop_init_getters();
if (get.nodetype(node) & (LYS_RPC | LYS_ACTION)) {
if ((tmp = get.next(node))) {
/* next action exists */
ret = tmp;
} else if ((parent = get.parent(node))) {
/* maybe if notif exists as sibling */
ret = get.notifs(parent);
} else {
ret = NULL;
}
} else if (get.nodetype(node) & LYS_INPUT) {
if ((parent = get.parent(node))) {
/* if output action has data */
if (get.child(get.action_output(parent))) {
/* then next sibling is output action */
ret = get.action_output(parent);
} else {
/* input action cannot have siblings other
* than output action.
*/
ret = NULL;
}
} else {
/* there is no way how to get output action */
ret = NULL;
}
} else if (get.nodetype(node) & LYS_OUTPUT) {
/* output action cannot have siblings */
ret = NULL;
} else if (get.nodetype(node) & LYS_NOTIF) {
/* must have as a sibling only notif */
ret = get.next(node);
} else {
/* for rest of nodes */
if ((tmp = get.next(node))) {
/* some sibling exists */
ret = tmp;
} else if ((parent = get.parent(node))) {
/* Action and notif are siblings too.
* They can be reached through parent.
*/
if ((tmp = get.actions(parent))) {
/* next sibling is action */
ret = tmp;
} else if ((tmp = get.notifs(parent))) {
/* next sibling is notif */
ret = tmp;
} else {
/* sibling not exists */
ret = NULL;
}
} else {
/* sibling not exists */
ret = NULL;
}
}
return ret;
}
/**
* @brief Get child of the current node.
*
* This is a general algorithm that is able to
* work with lysp_node or lysc_node.
*
* @param[in] node points to lysp_node or lysc_node.
* @param[in] lysc_tree flag to determine what type the @p node is.
* If set to true, then @p points to lysc_node otherwise lysp_node.
* This flag should be the same as trt_tree_ctx.lysc_tree.
*/
static const void *
tro_next_child(const void *node, ly_bool lysc_tree)
{
struct tro_getters get;
const void *tmp;
const void *ret;
assert(node);
get = lysc_tree ? troc_init_getters() : trop_init_getters();
if (get.nodetype(node) & (LYS_ACTION | LYS_RPC)) {
if (get.child(get.action_input(node))) {
/* go to LYS_INPUT */
ret = get.action_input(node);
} else if (get.child(get.action_output(node))) {
/* go to LYS_OUTPUT */
ret = get.action_output(node);
} else {
/* input action and output action have no data */
ret = NULL;
}
} else {
if ((tmp = get.child(node))) {
ret = tmp;
} else {
/* current node can't have children or has no children */
/* but maybe has some actions or notifs */
if ((tmp = get.actions(node))) {
ret = tmp;
} else if ((tmp = get.notifs(node))) {
ret = tmp;
} else {
ret = NULL;
}
}
}
return ret;
}
/**
* @brief Get new trt_parent_cache if we apply the transfer
* to the child node in the tree.
* @param[in] ca is parent cache for current node.
* @param[in] tc contains current tree node.
* @return Cache for the current node.
*/
static struct trt_parent_cache
tro_parent_cache_for_child(struct trt_parent_cache ca, const struct trt_tree_ctx *tc)
{
struct trt_parent_cache ret = TRP_EMPTY_PARENT_CACHE;
if (!tc->lysc_tree) {
const struct lysp_node *pn = tc->pn;
ret.ancestor =
pn->nodetype & (LYS_INPUT) ? TRD_ANCESTOR_RPC_INPUT :
pn->nodetype & (LYS_OUTPUT) ? TRD_ANCESTOR_RPC_OUTPUT :
pn->nodetype & (LYS_NOTIF) ? TRD_ANCESTOR_NOTIF :
ca.ancestor;
ret.lys_status =
pn->flags & (LYS_STATUS_CURR | LYS_STATUS_DEPRC | LYS_STATUS_OBSLT) ? pn->flags :
ca.lys_status;
ret.lys_config =
ca.ancestor == TRD_ANCESTOR_RPC_INPUT ? 0 : /* because <flags> will be -w */
ca.ancestor == TRD_ANCESTOR_RPC_OUTPUT ? LYS_CONFIG_R :
pn->flags & (LYS_CONFIG_R | LYS_CONFIG_W) ? pn->flags :
ca.lys_config;
ret.last_list =
pn->nodetype & (LYS_LIST) ? (struct lysp_node_list *)pn :
ca.last_list;
}
return ret;
}
/**
* @brief Transformation of the Schema nodes flags to
* Tree diagram \<status\>.
* @param[in] flags is node's flags obtained from the tree.
*/
static trt_status_type
tro_flags2status(uint16_t flags)
{
return flags & LYS_STATUS_OBSLT ? TRD_STATUS_TYPE_OBSOLETE :
flags & LYS_STATUS_DEPRC ? TRD_STATUS_TYPE_DEPRECATED :
TRD_STATUS_TYPE_CURRENT;
}
/**
* @brief Transformation of the Schema nodes flags to Tree diagram
* \<flags\> but more specifically 'ro' or 'rw'.
* @param[in] flags is node's flags obtained from the tree.
*/
static trt_flags_type
tro_flags2config(uint16_t flags)
{
return flags & LYS_CONFIG_R ? TRD_FLAGS_TYPE_RO :
flags & LYS_CONFIG_W ? TRD_FLAGS_TYPE_RW :
TRD_FLAGS_TYPE_EMPTY;
}
/**
* @brief Print current node's iffeatures.
* @param[in] tc is tree context.
* @param[in,out] out is output handler.
*/
static void
tro_print_features_names(const struct trt_tree_ctx *tc, struct ly_out *out)
{
const struct lysp_qname *iffs;
if (tc->lysc_tree) {
assert(TRP_TREE_CTX_LYSP_NODE_PRESENT(tc->cn));
iffs = TRP_TREE_CTX_GET_LYSP_NODE(tc->cn)->iffeatures;
} else {
iffs = tc->pn->iffeatures;
}
LY_ARRAY_COUNT_TYPE i;
LY_ARRAY_FOR(iffs, i) {
if (i == 0) {
ly_print_(out, "%s", iffs[i].str);
} else {
ly_print_(out, ",%s", iffs[i].str);
}
}
}
/**
* @brief Print current list's keys.
*
* Well, actually printing keys in the lysp_tree is trivial,
* because char* points to all keys. However, special functions have
* been reserved for this, because in principle the list of elements
* can have more implementations.
*
* @param[in] tc is tree context.
* @param[in,out] out is output handler.
*/
static void
tro_print_keys(const struct trt_tree_ctx *tc, struct ly_out *out)
{
const struct lysp_node_list *list;
if (tc->lysc_tree) {
assert(TRP_TREE_CTX_LYSP_NODE_PRESENT(tc->cn));
list = (const struct lysp_node_list *)TRP_TREE_CTX_GET_LYSP_NODE(tc->cn);
} else {
list = (const struct lysp_node_list *)tc->pn;
}
assert(list->nodetype & LYS_LIST);
if (trg_charptr_has_data(list->key)) {
ly_print_(out, "%s", list->key);
}
}
/**
* @brief Get rpcs section if exists.
* @param[in,out] tc is tree context.
* @return Section representation if it exists. The @p tc is modified
* and his pointer points to the first node in rpcs section.
* @return Empty section representation otherwise.
*/
static struct trt_keyword_stmt
tro_modi_get_rpcs(struct trt_tree_ctx *tc)
{
assert(tc);
const void *actions;
if (tc->lysc_tree) {
actions = tc->cmod->rpcs;
if (actions) {
tc->cn = actions;
}
} else {
actions = tc->pmod->rpcs;
if (actions) {
tc->pn = actions;
tc->tpn = tc->pn;
}
}
if (actions) {
tc->section = TRD_SECT_RPCS;
return TRP_INIT_KEYWORD_STMT(TRD_KEYWORD_RPC, NULL);
} else {
return TRP_EMPTY_KEYWORD_STMT;
}
}
/**
* @brief Get notification section if exists
* @param[in,out] tc is tree context.
* @return Section representation if it exists.
* The @p tc is modified and his pointer points to the
* first node in notification section.
* @return Empty section representation otherwise.
*/
static struct trt_keyword_stmt
tro_modi_get_notifications(struct trt_tree_ctx *tc)
{
assert(tc);
const void *notifs;
if (tc->lysc_tree) {
notifs = tc->cmod->notifs;
if (notifs) {
tc->cn = notifs;
}
} else {
notifs = tc->pmod->notifs;
if (notifs) {
tc->pn = notifs;
tc->tpn = tc->pn;
}
}
if (notifs) {
tc->section = TRD_SECT_NOTIF;
return TRP_INIT_KEYWORD_STMT(TRD_KEYWORD_NOTIF, NULL);
} else {
return TRP_EMPTY_KEYWORD_STMT;
}
}
/**
* @brief Get next yang-data section if it is possible.
*
* @param[in,out] tc is tree context.
* @param[in] u is index to the array of extensions (lysc_ext_instance
* or struct lysp_ext_instance).
* @return Section representation if it exists.
* @return Empty section representation otherwise.
*/
static struct trt_keyword_stmt
tro_modi_next_yang_data(struct trt_tree_ctx *tc, LY_ARRAY_COUNT_TYPE u)
{
assert(tc);
const void *node;
const char *yang_data_name;
if (tc->lysc_tree) {
struct lysc_ext_instance *exts;
struct lysc_ext_substmt *substmts;
exts = tc->cmod->exts;
substmts = exts[u].substmts;
if (!substmts) {
return TRP_EMPTY_KEYWORD_STMT;
}
node = *(const struct lysc_node **)substmts->storage;
yang_data_name = exts[u].argument;
} else {
struct lysp_ext_instance *exts;
exts = tc->pmod->exts;
node = exts[u].parsed;
yang_data_name = exts[u].argument;
}
if (tc->lysc_tree) {
tc->cn = node;
} else {
tc->tpn_ext = &tc->pmod->exts[u];
tc->pn = node;
}
if (node) {
tc->section = TRD_SECT_YANG_DATA;
return TRP_INIT_KEYWORD_STMT(TRD_KEYWORD_YANG_DATA, yang_data_name);
} else {
return TRP_EMPTY_KEYWORD_STMT;
}
}
/**
* @brief Get name of the module.
* @param[in] tc is context of the tree.
*/
static struct trt_keyword_stmt
tro_read_module_name(const struct trt_tree_ctx *tc)
{
assert(tc);
struct trt_keyword_stmt ret;
ret.type = !tc->lysc_tree && tc->pmod->is_submod ?
TRD_KEYWORD_SUBMODULE :
TRD_KEYWORD_MODULE;
ret.str = !tc->lysc_tree ?
LYSP_MODULE_NAME(tc->pmod) :
tc->cmod->mod->name;
return ret;
}
/**
* @brief Create implicit "case" node as parent of @p node.
* @param[in] node child of implicit case node.
* @return The case node ready to print.
*/
static struct trt_node
tro_create_implicit_case_node(struct trt_node node)
{
struct trt_node ret;
ret.status = node.status;
ret.flags = TRD_FLAGS_TYPE_EMPTY;
ret.name.type = TRD_NODE_CASE;
ret.name.keys = node.name.keys;
ret.name.module_prefix = node.name.module_prefix;
ret.name.str = node.name.str;
ret.type = TRP_EMPTY_TRT_TYPE;
ret.iffeatures = 0;
ret.last_one = node.last_one;
ret.mount = NULL;
return ret;
}
/**********************************************************************
* Definition of trop reading functions
*********************************************************************/
/**
* @brief Check if list statement has keys.
* @param[in] pn is pointer to the list.
* @return 1 if has keys, otherwise 0.
*/
static ly_bool
trop_list_has_keys(const struct lysp_node *pn)
{
return trg_charptr_has_data(((const struct lysp_node_list *)pn)->key);
}
/**
* @brief Check if it contains at least one feature.
* @param[in] pn is current node.
* @return 1 if has if-features, otherwise 0.
*/
static ly_bool
trop_node_has_iffeature(const struct lysp_node *pn)
{
LY_ARRAY_COUNT_TYPE u;
const struct lysp_qname *iffs;
ly_bool ret = 0;
iffs = pn->iffeatures;
LY_ARRAY_FOR(iffs, u) {
ret = 1;
break;
}
return ret;
}
/**
* @brief Find out if leaf is also the key in last list.
* @param[in] pn is pointer to leaf.
* @param[in] ca_last_list is pointer to last visited list.
* Obtained from trt_parent_cache.
* @return 1 if leaf is also the key, otherwise 0.
*/
static ly_bool
trop_leaf_is_key(const struct lysp_node *pn, const struct lysp_node_list *ca_last_list)
{
const struct lysp_node_leaf *leaf = (const struct lysp_node_leaf *)pn;
const struct lysp_node_list *list = ca_last_list;
if (!list) {
return 0;
}
return trg_charptr_has_data(list->key) ?
trg_word_is_present(list->key, leaf->name, ' ') : 0;
}
/**
* @brief Check if container's type is presence.
* @param[in] pn is pointer to container.
* @return 1 if container has presence statement, otherwise 0.
*/
static ly_bool
trop_container_has_presence(const struct lysp_node *pn)
{
return trg_charptr_has_data(((struct lysp_node_container *)pn)->presence);
}
/**
* @brief Check if container has mount-point extension.
* @param[in] cn is pointer to container or list.
* @param[out] mount is assigned a pointer to the extension instance, if found
* @return 1 if node has mount-point.
*/
static ly_bool
troc_node_has_mount(const struct lysc_node *cn, struct lysc_ext_instance **mount)
{
struct lysc_ext_instance *ext;
uint64_t u;
/* The schema-mount extension plugin has already made sure that
* there is only one mount-point here.
*/
LY_ARRAY_FOR(cn->exts, u) {
ext = &cn->exts[u];
if (strcmp(ext->def->module->name, "ietf-yang-schema-mount") ||
strcmp(ext->def->name, "mount-point")) {
continue;
}
*mount = ext;
return 1;
}
return 0;
}
/**
* @brief Check if node has mount-point extension.
*
* @param[in] pn is pointer to container or list.
* @return 1 if node has mount-point.
*/
static ly_bool
trop_node_has_mount(const struct lysp_node *pn)
{
struct lysp_ext_instance *ext;
uint64_t u;
LY_ARRAY_FOR(pn->exts, u) {
ext = &pn->exts[u];
if (strcmp(ext->name, "yangmnt:mount-point")) {
continue;
}
return 1;
}
return 0;
}
/**
* @brief Get leaflist's path without lysp_node type control.
* @param[in] pn is pointer to the leaflist.
*/
static const char *
trop_leaflist_refpath(const struct lysp_node *pn)
{
const struct lysp_node_leaflist *list = (const struct lysp_node_leaflist *)pn;
return list->type.path ? list->type.path->expr : NULL;
}
/**
* @brief Get leaflist's type name without lysp_node type control.
* @param[in] pn is pointer to the leaflist.
*/
static const char *
trop_leaflist_type_name(const struct lysp_node *pn)
{
const struct lysp_node_leaflist *list = (const struct lysp_node_leaflist *)pn;
return list->type.name;
}
/**
* @brief Get leaf's path without lysp_node type control.
* @param[in] pn is pointer to the leaf node.
*/
static const char *
trop_leaf_refpath(const struct lysp_node *pn)
{
const struct lysp_node_leaf *leaf = (const struct lysp_node_leaf *)pn;
return leaf->type.path ? leaf->type.path->expr : NULL;
}
/**
* @brief Get leaf's type name without lysp_node type control.
* @param[in] pn is pointer to the leaf's type name.
*/
static const char *
trop_leaf_type_name(const struct lysp_node *pn)
{
const struct lysp_node_leaf *leaf = (const struct lysp_node_leaf *)pn;
return leaf->type.name;
}
/**
* @brief Get pointer to data using node type specification
* and getter function.
*
* @param[in] flags is node type specification.
* If it is the correct node, the getter function is called.
* @param[in] f is getter function which provides the desired
* char pointer from the structure.
* @param[in] pn pointer to node.
* @return NULL if node has wrong type or getter function return
* pointer to NULL.
* @return Pointer to desired char pointer obtained from the node.
*/
static const char *
trop_node_charptr(uint16_t flags, trt_get_charptr_func f, const struct lysp_node *pn)
{
if (pn->nodetype & flags) {
const char *ret = f(pn);
return trg_charptr_has_data(ret) ? ret : NULL;
} else {
return NULL;
}
}
/**
* @brief Resolve \<status\> of the current node.
* @param[in] nodetype is node's type obtained from the tree.
* @param[in] flags is node's flags obtained from the tree.
* @param[in] ca_lys_status is inherited status
* obtained from trt_parent_cache.
* @return The status type.
*/
static trt_status_type
trop_resolve_status(uint16_t nodetype, uint16_t flags, uint16_t ca_lys_status)
{
/* LYS_INPUT and LYS_OUTPUT is special case */
if (nodetype & (LYS_INPUT | LYS_OUTPUT)) {
return tro_flags2status(ca_lys_status);
/* if ancestor's status is deprc or obslt
* and also node's status is not set
*/
} else if ((ca_lys_status & (LYS_STATUS_DEPRC | LYS_STATUS_OBSLT)) && !(flags & (LYS_STATUS_CURR | LYS_STATUS_DEPRC | LYS_STATUS_OBSLT))) {
/* get ancestor's status */
return tro_flags2status(ca_lys_status);
} else {
/* else get node's status */
return tro_flags2status(flags);
}
}
/**
* @brief Resolve \<flags\> of the current node.
* @param[in] nodetype is node's type obtained from the tree.
* @param[in] flags is node's flags obtained from the tree.
* @param[in] ca_ancestor is ancestor type obtained
* from trt_parent_cache.
* @param[in] ca_lys_config is inherited config item
* obtained from trt_parent_cache.
* @return The flags type.
*/
static trt_flags_type
trop_resolve_flags(uint16_t nodetype, uint16_t flags, trt_ancestor_type ca_ancestor, uint16_t ca_lys_config)
{
if ((nodetype & LYS_INPUT) || (ca_ancestor == TRD_ANCESTOR_RPC_INPUT)) {
return TRD_FLAGS_TYPE_RPC_INPUT_PARAMS;
} else if ((nodetype & LYS_OUTPUT) || (ca_ancestor == TRD_ANCESTOR_RPC_OUTPUT)) {
return TRD_FLAGS_TYPE_RO;
} else if (ca_ancestor == TRD_ANCESTOR_NOTIF) {
return TRD_FLAGS_TYPE_RO;
} else if (nodetype & LYS_NOTIF) {
return TRD_FLAGS_TYPE_NOTIF;
} else if (nodetype & LYS_USES) {
return TRD_FLAGS_TYPE_USES_OF_GROUPING;
} else if (nodetype & (LYS_RPC | LYS_ACTION)) {
return TRD_FLAGS_TYPE_RPC;
} else if (!(flags & (LYS_CONFIG_R | LYS_CONFIG_W))) {
/* config is not set. Look at ancestor's config */
return tro_flags2config(ca_lys_config);
} else {
return tro_flags2config(flags);
}
}
/**
* @brief Resolve node type of the current node.
* @param[in] pn is pointer to the current node in the tree.
* @param[in] ca_last_list is pointer to the last visited list.
* Obtained from the trt_parent_cache.
*/
static trt_node_type
trop_resolve_node_type(const struct trt_tree_ctx *tc, const struct lysp_node_list *ca_last_list)
{
const struct lysp_node *pn = tc->pn;
if (pn->nodetype & (LYS_INPUT | LYS_OUTPUT)) {
return TRD_NODE_ELSE;
} else if (pn->nodetype & LYS_CASE) {
return TRD_NODE_CASE;
} else if ((pn->nodetype & LYS_CHOICE) && !(pn->flags & LYS_MAND_TRUE)) {
return TRD_NODE_OPTIONAL_CHOICE;
} else if (pn->nodetype & LYS_CHOICE) {
return TRD_NODE_CHOICE;
} else if (tc->mounted && (tc->pn->parent == NULL)) {
if (tc->parent_refs) {
for (uint32_t v = 0; v < tc->parent_refs->count; v++) {
if (!strcmp(tc->pmod->mod->ns, tc->parent_refs->snodes[v]->module->ns)) {
return TRD_NODE_TOP_LEVEL2;
}
}
}
return TRD_NODE_TOP_LEVEL1;
} else if ((pn->nodetype & LYS_CONTAINER) && (trop_container_has_presence(pn))) {
return TRD_NODE_CONTAINER;
} else if (pn->nodetype & (LYS_LIST | LYS_LEAFLIST)) {
return TRD_NODE_LISTLEAFLIST;
} else if ((pn->nodetype & (LYS_ANYDATA | LYS_ANYXML)) && !(pn->flags & LYS_MAND_TRUE)) {
return TRD_NODE_OPTIONAL;
} else if ((pn->nodetype & LYS_LEAF) && !(pn->flags & LYS_MAND_TRUE) && (!trop_leaf_is_key(pn, ca_last_list))) {
return TRD_NODE_OPTIONAL;
} else {
return TRD_NODE_ELSE;
}
}
/**
* @brief Resolve \<type\> of the current node.
* @param[in] pn is current node.
*/
static struct trt_type
trop_resolve_type(const struct lysp_node *pn)
{
const char *tmp = NULL;
if ((tmp = trop_node_charptr(LYS_LEAFLIST, trop_leaflist_refpath, pn))) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_TARGET, tmp);
} else if ((tmp = trop_node_charptr(LYS_LEAFLIST, trop_leaflist_type_name, pn))) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_NAME, tmp);
} else if ((tmp = trop_node_charptr(LYS_LEAF, trop_leaf_refpath, pn))) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_TARGET, tmp);
} else if ((tmp = trop_node_charptr(LYS_LEAF, trop_leaf_type_name, pn))) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_NAME, tmp);
} else if (pn->nodetype == LYS_ANYDATA) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_NAME, "anydata");
} else if (pn->nodetype & LYS_ANYXML) {
return TRP_INIT_TRT_TYPE(TRD_TYPE_NAME, "anyxml");
} else {
return TRP_EMPTY_TRT_TYPE;
}
}
/**
* @brief Transformation of current lysp_node to struct trt_node.
* @param[in] ca contains stored important data
* when browsing the tree downwards.
* @param[in] tc is context of the tree.
*/
static struct trt_node
trop_read_node(struct trt_parent_cache ca, const struct trt_tree_ctx *tc)
{
const struct lysp_node *pn;
struct trt_node ret;
assert(tc && tc->pn && tc->pn->nodetype != LYS_UNKNOWN);
pn = tc->pn;
ret = TRP_EMPTY_NODE;
/* <status> */
ret.status = trop_resolve_status(pn->nodetype, pn->flags, ca.lys_status);
/* <flags> */
if (trop_node_has_mount(pn)) {
ret.flags = TRD_FLAGS_TYPE_MOUNT_POINT;
} else {
ret.flags = trop_resolve_flags(pn->nodetype, pn->flags, ca.ancestor, ca.lys_config);
}
/* set type of the node */
ret.name.type = trop_resolve_node_type(tc, ca.last_list);
ret.name.keys = (tc->pn->nodetype & LYS_LIST) && trop_list_has_keys(tc->pn);
/* The parsed tree is not compiled, so no node can be augmented
* from another module. This means that nodes from the parsed tree
* will never have the prefix.
*/
ret.name.module_prefix = NULL;
/* set node's name */
ret.name.str = pn->name;
/* <type> */
ret.type = trop_resolve_type(pn);
/* <iffeature> */
ret.iffeatures = trop_node_has_iffeature(pn);
ret.last_one = !tro_next_sibling(pn, tc->lysc_tree);
return ret;
}
/**
* @brief Find out if the current node has siblings.
* @param[in] tc is context of the tree.
* @return 1 if sibling exists otherwise 0.
*/
static ly_bool
trop_read_if_sibling_exists(const struct trt_tree_ctx *tc)
{
return tro_next_sibling(tc->pn, tc->lysc_tree) != NULL;
}
/**
* @brief Print all yang-data sections and print three dots instead
* of nodes.
* @param[in] exts is array of YANG extension instances from parsed
* module (@ref sizedarrays).
* @param[in] mll is maximum number of characters that can be printed
* on one line.
* @param[in,out] out is output handler.
*/
static void
trop_yang_data_sections(const struct lysp_ext_instance *exts, size_t mll, struct ly_out *out)
{
struct trt_keyword_stmt ks;
LY_ARRAY_COUNT_TYPE u;
struct trt_wrapper wr;
if (!exts) {
return;
}
ly_print_(out, "\n");
ks.type = TRD_KEYWORD_YANG_DATA;
wr = TRP_INIT_WRAPPER_BODY;
LY_ARRAY_FOR(exts, u) {
ly_print_(out, "\n");
/* yang-data <yang-data-name>: */
ks.str = exts[u].argument;
trp_print_keyword_stmt(ks, mll, 0, out);
ly_print_(out, "\n");
/* ... */
trp_print_wrapper(wr, out);
ly_print_(out, "%s", TRD_NODE_NAME_TRIPLE_DOT);
}
}
/**********************************************************************
* Modify trop getters
*********************************************************************/
/**
* @brief Change current node pointer to its parent
* but only if parent exists.
* @param[in,out] tc is tree context.
* Contains pointer to the current node.
* @return 1 if the node had parents and the change was successful.
* @return 0 if the node did not have parents.
* The pointer to the current node did not change.
*/
static ly_bool
trop_modi_parent(struct trt_tree_ctx *tc)
{
assert(tc && tc->pn);
/* If no parent exists, stay in actual node. */
if ((tc->pn != tc->tpn) && (tc->pn->parent)) {
tc->pn = tc->pn->parent;
return 1;
} else {
return 0;
}
}
/**
* @brief Change the current node pointer to its child
* but only if exists.
* @param[in] ca contains inherited data from ancestors.
* @param[in,out] tc is context of the tree.
* Contains pointer to the current node.
* @return Non-empty \<node\> representation of the current
* node's child. The @p tc is modified.
* @return Empty \<node\> representation if child don't exists.
* The @p tc is not modified.
*/
static struct trt_node
trop_modi_next_child(struct trt_parent_cache ca, struct trt_tree_ctx *tc)
{
const struct lysp_node *tmp;
assert(tc && tc->pn);
if ((tmp = tro_next_child(tc->pn, tc->lysc_tree))) {
tc->pn = tmp;
return trop_read_node(tro_parent_cache_for_child(ca, tc), tc);
} else {
return TRP_EMPTY_NODE;
}
}
/**
* @brief Change the current node pointer to the first child of node's
* parent. If current node is already first sibling/child then nothing
* will change.
* @param[in,out] tc is tree context.
*/
static void
trop_modi_first_sibling(struct trt_tree_ctx *tc)
{
assert(tc && tc->pn && tc->pmod);
if (trop_modi_parent(tc)) {
trop_modi_next_child(TRP_EMPTY_PARENT_CACHE, tc);
} else {
/* current node is top-node */
switch (tc->section) {
case TRD_SECT_MODULE:
tc->pn = tc->pmod->data;
tc->tpn = tc->pn;
break;
case TRD_SECT_AUGMENT:
tc->pn = (const struct lysp_node *)tc->pmod->augments;
tc->tpn = tc->pn;
break;
case TRD_SECT_RPCS:
tc->pn = (const struct lysp_node *)tc->pmod->rpcs;
tc->tpn = tc->pn;
break;
case TRD_SECT_NOTIF:
tc->pn = (const struct lysp_node *)tc->pmod->notifs;
tc->tpn = tc->pn;
break;
case TRD_SECT_GROUPING:
tc->pn = (const struct lysp_node *)tc->pmod->groupings;
tc->tpn = tc->pn;
break;
case TRD_SECT_YANG_DATA:
/* tpn in this case is of type lysp_ext_instance */
tc->pn = tc->tpn_ext->parsed;
break;
default:
assert(0);
}
}
}
/**
* @brief Change the pointer to the current node to its next sibling
* only if exists.
* @param[in] ca contains inherited data from ancestors.
* @param[in,out] tc is tree context.
* Contains pointer to the current node.
* @return Non-empty \<node\> representation if sibling exists.
* The @p tc is modified.
* @return Empty \<node\> representation otherwise.
* The @p tc is not modified.
*/
static struct trt_node
trop_modi_next_sibling(struct trt_parent_cache ca, struct trt_tree_ctx *tc)
{
const struct lysp_node *pn;
assert(tc && tc->pn);
pn = tro_next_sibling(tc->pn, tc->lysc_tree);
if (pn) {
if ((tc->tpn == tc->pn) && (tc->section != TRD_SECT_YANG_DATA)) {
tc->tpn = pn;
}
tc->pn = pn;
return trop_read_node(ca, tc);
} else {
return TRP_EMPTY_NODE;
}
}
/**
* @brief Get next (or first) augment section if exists.
* @param[in,out] tc is tree context. It is modified and his current
* node is set to the lysp_node_augment.
* @return Section's representation if (next augment) section exists.
* @return Empty section structure otherwise.
*/
static struct trt_keyword_stmt
trop_modi_next_augment(struct trt_tree_ctx *tc)
{
assert(tc);
const struct lysp_node_augment *augs;
/* if next_augment func was called for the first time */
if (tc->section != TRD_SECT_AUGMENT) {
tc->section = TRD_SECT_AUGMENT;
augs = tc->pmod->augments;
} else {
/* get augment sibling from top-node pointer */
augs = (const struct lysp_node_augment *)tc->tpn->next;
}
if (augs) {
tc->pn = &augs->node;
tc->tpn = tc->pn;
return TRP_INIT_KEYWORD_STMT(TRD_KEYWORD_AUGMENT, augs->nodeid);
} else {
return TRP_EMPTY_KEYWORD_STMT;
}
}
/**
* @brief Get next (or first) grouping section if exists
* @param[in,out] tc is tree context. It is modified and his current
* node is set to the lysp_node_grp.
* @return The next (or first) section representation if it exists.
* @return Empty section representation otherwise.
*/
static struct trt_keyword_stmt
trop_modi_next_grouping(struct trt_tree_ctx *tc)
{
assert(tc);
const struct lysp_node_grp *grps;
if (tc->section != TRD_SECT_GROUPING) {
tc->section = TRD_SECT_GROUPING;
grps = tc->pmod->groupings;
} else {
grps = (const struct lysp_node_grp *)tc->tpn->next;
}
if (grps) {
tc->pn = &grps->node;
tc->tpn = tc->pn;
return TRP_INIT_KEYWORD_STMT(TRD_KEYWORD_GROUPING, grps->name);
} else {
return TRP_EMPTY_KEYWORD_STMT;
}
}
/**********************************************************************
* Definition of troc reading functions
*********************************************************************/
/**
* @copydoc trop_read_if_sibling_exists
*/
static ly_bool
troc_read_if_sibling_exists(const struct trt_tree_ctx *tc)
{
return tro_next_sibling(tc->cn, tc->lysc_tree) != NULL;
}
/**
* @brief Resolve \<flags\> of the current node.
*
* Use this function only if trt_tree_ctx.lysc_tree is true.
*
* @param[in] nodetype is current lysc_node.nodetype.
* @param[in] flags is current lysc_node.flags.
* @return The flags type.
*/
static trt_flags_type
troc_resolve_flags(uint16_t nodetype, uint16_t flags)
{
if ((nodetype & LYS_INPUT) || (flags & LYS_IS_INPUT)) {
return TRD_FLAGS_TYPE_RPC_INPUT_PARAMS;
} else if ((nodetype & LYS_OUTPUT) || (flags & LYS_IS_OUTPUT)) {
return TRD_FLAGS_TYPE_RO;
} else if (nodetype & LYS_IS_NOTIF) {
return TRD_FLAGS_TYPE_RO;
} else if (nodetype & LYS_NOTIF) {
return TRD_FLAGS_TYPE_NOTIF;
} else if (nodetype & LYS_USES) {
return TRD_FLAGS_TYPE_USES_OF_GROUPING;
} else if (nodetype & (LYS_RPC | LYS_ACTION)) {
return TRD_FLAGS_TYPE_RPC;
} else {
return tro_flags2config(flags);
}
}
/**
* @brief Resolve node type of the current node.
*
* Use this function only if trt_tree_ctx.lysc_tree is true.
*
* @param[in] nodetype is current lysc_node.nodetype.
* @param[in] flags is current lysc_node.flags.
*/
static trt_node_type
troc_resolve_node_type(const struct trt_tree_ctx *tc, uint16_t nodetype, uint16_t flags)
{
if (nodetype & (LYS_INPUT | LYS_OUTPUT)) {
return TRD_NODE_ELSE;
} else if (nodetype & LYS_CASE) {
return TRD_NODE_CASE;
} else if ((nodetype & LYS_CHOICE) && !(flags & LYS_MAND_TRUE)) {
return TRD_NODE_OPTIONAL_CHOICE;
} else if (nodetype & LYS_CHOICE) {
return TRD_NODE_CHOICE;
} else if (tc->mounted && (tc->cn->parent == NULL)) {
if (tc->parent_refs) {
for (uint32_t v = 0; v < tc->parent_refs->count; v++) {
if (!strcmp(tc->cn->module->ns, tc->parent_refs->snodes[v]->module->ns)) {
return TRD_NODE_TOP_LEVEL2;
}
}
}
return TRD_NODE_TOP_LEVEL1;
} else if ((nodetype & LYS_CONTAINER) && (flags & LYS_PRESENCE)) {
return TRD_NODE_CONTAINER;
} else if (nodetype & (LYS_LIST | LYS_LEAFLIST)) {
return TRD_NODE_LISTLEAFLIST;
} else if ((nodetype & (LYS_ANYDATA | LYS_ANYXML)) && !(flags & LYS_MAND_TRUE)) {
return TRD_NODE_OPTIONAL;
} else if ((nodetype & LYS_LEAF) && !(flags & (LYS_MAND_TRUE | LYS_KEY))) {
return TRD_NODE_OPTIONAL;
} else {
return TRD_NODE_ELSE;
}
}
/**
* @brief Resolve prefix (<prefix>:<name>) of node that has been
* placed from another module via an augment statement.
*
* @param[in] cn is current compiled node.
* @param[in] current_compiled_module is module whose nodes are
* currently being printed.
* @return Prefix of foreign module or NULL.
*/
static const char *
troc_resolve_node_prefix(const struct lysc_node *cn, const struct lysc_module *current_compiled_module)
{
const struct lys_module *node_module;
const char *ret = NULL;
node_module = cn->module;
if (node_module->compiled != current_compiled_module) {
ret = node_module->prefix;
}
return ret;
}
/**
* @brief Transformation of current lysc_node to struct trt_node.
* @param[in] ca is not used.
* @param[in] tc is context of the tree.
*/
static struct trt_node
troc_read_node(struct trt_parent_cache ca, const struct trt_tree_ctx *tc)
{
(void) ca;
const struct lysc_node *cn;
struct trt_node ret;
assert(tc && tc->cn);
cn = tc->cn;
ret = TRP_EMPTY_NODE;
/* <status> */
ret.status = tro_flags2status(cn->flags);
/* <flags> */
if (troc_node_has_mount(cn, &ret.mount)) {
ret.flags = TRD_FLAGS_TYPE_MOUNT_POINT;
} else {
ret.flags = troc_resolve_flags(cn->nodetype, cn->flags);
}
/* set type of the node */
ret.name.type = troc_resolve_node_type(tc, cn->nodetype, cn->flags);
ret.name.keys = (cn->nodetype & LYS_LIST) && !(cn->flags & LYS_KEYLESS);
/* <prefix> */
ret.name.module_prefix = troc_resolve_node_prefix(cn, tc->cmod);
/* set node's name */
ret.name.str = cn->name;
if (TRP_TREE_CTX_LYSP_NODE_PRESENT(cn)) {
/* <type> */
ret.type = trop_resolve_type(TRP_TREE_CTX_GET_LYSP_NODE(cn));
/* <iffeature> */
ret.iffeatures = trop_node_has_iffeature(TRP_TREE_CTX_GET_LYSP_NODE(cn));
} else {
/* only the implicit case node doesn't have access to lysp node */
assert(tc->cn->nodetype & LYS_CASE);
/* <type> */
ret.type = TRP_EMPTY_TRT_TYPE;
/* <iffeature> */
ret.iffeatures = 0;
}
ret.last_one = !tro_next_sibling(cn, tc->lysc_tree);
return ret;
}
/**********************************************************************
* Modify troc getters
*********************************************************************/
/**
* @copydoc ::trop_modi_parent()
*/
static ly_bool
troc_modi_parent(struct trt_tree_ctx *tc)
{
assert(tc && tc->cn);
/* If no parent exists, stay in actual node. */
if (tc->cn->parent) {
tc->cn = tc->cn->parent;
return 1;
} else {
return 0;
}
}
/**
* @copydoc ::trop_modi_next_sibling()
*/
static struct trt_node
troc_modi_next_sibling(struct trt_parent_cache ca, struct trt_tree_ctx *tc)
{
const struct lysc_node *cn;
assert(tc && tc->cn);
cn = tro_next_sibling(tc->cn, tc->lysc_tree);
/* if next sibling exists */
if (cn) {
/* update trt_tree_ctx */
tc->cn = cn;
return troc_read_node(ca, tc);
} else {
return TRP_EMPTY_NODE;
}
}
/**
* @copydoc trop_modi_next_child()
*/
static struct trt_node
troc_modi_next_child(struct trt_parent_cache ca, struct trt_tree_ctx *tc)
{
const struct lysc_node *tmp;
assert(tc && tc->cn);
if ((tmp = tro_next_child(tc->cn, tc->lysc_tree))) {
tc->cn = tmp;
return troc_read_node(ca, tc);
} else {
return TRP_EMPTY_NODE;
}
}
/**
* @copydoc ::trop_modi_first_sibling()
*/
static void
troc_modi_first_sibling(struct trt_tree_ctx *tc)
{
assert(tc && tc->cn);
if (troc_modi_parent(tc)) {
troc_modi_next_child(TRP_EMPTY_PARENT_CACHE, tc);
} else {
/* current node is top-node */
switch (tc->section) {
case TRD_SECT_MODULE:
tc->cn = tc->cmod->data;
break;
case TRD_SECT_RPCS:
tc->cn = (const struct lysc_node *)tc->cmod->rpcs;
break;
case TRD_SECT_NOTIF:
tc->cn = (const struct lysc_node *)tc->cmod->notifs;
break;
case TRD_SECT_YANG_DATA:
/* nothing to do */
break;
default:
assert(0);
}
}
}
/**********************************************************************
* Definition of tree browsing functions
*********************************************************************/
/**
* @brief Get size of node name.
* @param[in] name contains name and mark.
* @return positive value total size of the node name.
* @return negative value as an indication that option mark
* is included in the total size.
*/
static int32_t
trb_strlen_of_name_and_mark(struct trt_node_name name)
{
size_t name_len = strlen(name.str);
if ((name.type == TRD_NODE_CHOICE) || (name.type == TRD_NODE_CASE)) {
/* counting also parentheses */
name_len += 2;
}
return trp_mark_is_used(name) ?
((int32_t)(name_len + TRD_OPTS_MARK_LENGTH)) * (-1) :
(int32_t)name_len;
}
/**
* @brief Calculate the trt_indent_in_node.btw_opts_type indent size
* for a particular node.
* @param[in] name is the node for which we get btw_opts_type.
* @param[in] max_len4all is the maximum value of btw_opts_type
* that it can have.
* @return Indent between \<opts\> and \<type\> for node.
*/
static int16_t
trb_calc_btw_opts_type(struct trt_node_name name, int16_t max_len4all)
{
int32_t name_len;
int16_t min_len;
int16_t ret;
name_len = trb_strlen_of_name_and_mark(name);
/* negative value indicate that in name is some opt mark */
min_len = name_len < 0 ?
TRD_INDENT_BEFORE_TYPE - TRD_OPTS_MARK_LENGTH :
TRD_INDENT_BEFORE_TYPE;
ret = abs(max_len4all) - abs(name_len);
/* correction -> negative indicate that name is too long. */
return ret < 0 ? min_len : ret;
}
/**
* @brief Print node.
*
* This function is wrapper for ::trp_print_entire_node().
* But difference is that take @p max_gap_before_type which will be
* used to set the unified alignment.
*
* @param[in] node to print.
* @param[in] max_gap_before_type is number of indent before \<type\>.
* @param[in] wr is wrapper for printing indentation before node.
* @param[in] pc contains mainly functions for printing.
* @param[in] tc is tree context.
*/
static void
trb_print_entire_node(struct trt_node node, uint32_t max_gap_before_type, struct trt_wrapper wr, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_indent_in_node ind = trp_default_indent_in_node(node);
if ((max_gap_before_type > 0) && (node.type.type != TRD_TYPE_EMPTY)) {
/* print actual node with unified indent */
ind.btw_opts_type = trb_calc_btw_opts_type(node.name, max_gap_before_type);
}
/* after -> print actual node with default indent */
trp_print_entire_node(node, TRP_INIT_PCK_PRINT(tc, pc->fp.print),
TRP_INIT_PCK_INDENT(wr, ind), pc->max_line_length, pc->out);
if ((node.flags == TRD_FLAGS_TYPE_MOUNT_POINT) && node.mount) {
struct trt_wrapper wr_mount;
struct tro_getters get;
wr_mount = pc->fp.read.if_sibling_exists(tc) ?
trp_wrapper_set_mark(wr) : trp_wrapper_set_shift(wr);
get = tc->lysc_tree ? troc_init_getters() : trop_init_getters();
if (get.child(tc->lysc_tree ? (void *)tc->cn : (void *)tc->pn)) {
/* If this node has a child, we need to draw a vertical line
* from the last mounted module to the first child
*/
wr_mount = trp_wrapper_set_mark_top(wr_mount);
}
trb_print_mount_point(node.mount, wr_mount, pc);
}
}
/**
* @brief Check if parent of the current node is the last
* of his siblings.
*
* To mantain stability use this function only if the current node is
* the first of the siblings.
* Side-effect -> current node is set to the first sibling
* if node has a parent otherwise no side-effect.
*
* @param[in] fp contains all @ref TRP_tro callback functions.
* @param[in,out] tc is tree context.
* @return 1 if parent is last sibling otherwise 0.
*/
static ly_bool
trb_parent_is_last_sibling(struct trt_fp_all fp, struct trt_tree_ctx *tc)
{
if (fp.modify.parent(tc)) {
ly_bool ret = fp.read.if_sibling_exists(tc);
fp.modify.next_child(TRP_EMPTY_PARENT_CACHE, tc);
return !ret;
} else {
return !fp.read.if_sibling_exists(tc);
}
}
/**
* @brief Find sibling with the biggest node name and return that size.
*
* Side-effect -> Current node is set to the first sibling.
*
* @param[in] ca contains inherited data from ancestors.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is tree context.
* @return positive number as a sign that only the node name is
* included in the size.
* @return negative number sign that node name and his opt mark is
* included in the size.
*/
static int32_t
trb_maxlen_node_name(struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
int32_t ret = 0;
pc->fp.modify.first_sibling(tc);
for (struct trt_node node = pc->fp.read.node(ca, tc);
!trp_node_is_empty(node);
node = pc->fp.modify.next_sibling(ca, tc)) {
int32_t maxlen = trb_strlen_of_name_and_mark(node.name);
ret = abs(maxlen) > abs(ret) ? maxlen : ret;
}
pc->fp.modify.first_sibling(tc);
return ret;
}
/**
* @brief Find maximal indent between
* \<opts\> and \<type\> for siblings.
*
* Side-effect -> Current node is set to the first sibling.
*
* @param[in] ca contains inherited data from ancestors.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is tree context.
* @return max btw_opts_type value for rest of the siblings
*/
static int16_t
trb_max_btw_opts_type4siblings(struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
int32_t maxlen_node_name = trb_maxlen_node_name(ca, pc, tc);
int16_t ind_before_type = maxlen_node_name < 0 ?
TRD_INDENT_BEFORE_TYPE - 1 : /* mark was present */
TRD_INDENT_BEFORE_TYPE;
return abs(maxlen_node_name) + ind_before_type;
}
/**
* @brief Find out if it is possible to unify
* the alignment before \<type\>.
*
* The goal is for all node siblings to have the same alignment
* for \<type\> as if they were in a column. All siblings who cannot
* adapt because they do not fit on the line at all are ignored.
* Side-effect -> Current node is set to the first sibling.
*
* @param[in] ca contains inherited data from ancestors.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is tree context.
* @return 0 if all siblings cannot fit on the line.
* @return positive number indicating the maximum number of spaces
* before \<type\> if the length of the node name is 0. To calculate
* the trt_indent_in_node.btw_opts_type indent size for a particular
* node, use the ::trb_calc_btw_opts_type().
*/
static uint32_t
trb_try_unified_indent(struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
return trb_max_btw_opts_type4siblings(ca, pc, tc);
}
/**
* @brief Check if there is no case statement
* under the choice statement.
*
* It can return true only if the Parsed schema tree
* is used for browsing.
*
* @param[in] tc is tree context.
* @return 1 if implicit case statement is present otherwise 0.
*/
static ly_bool
trb_need_implicit_node_case(struct trt_tree_ctx *tc)
{
return !tc->lysc_tree && tc->pn->parent &&
(tc->pn->parent->nodetype & LYS_CHOICE) &&
(tc->pn->nodetype & (LYS_ANYDATA | LYS_CHOICE | LYS_CONTAINER |
LYS_LEAF | LYS_LEAFLIST));
}
static void trb_print_subtree_nodes(struct trt_node node, uint32_t max_gap_before_type,
struct trt_wrapper wr, struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc);
/**
* @brief Print implicit case node and his subtree.
*
* @param[in] node is child of implicit case.
* @param[in] wr is wrapper for printing identation before node.
* @param[in] ca contains inherited data from ancestors.
* @param[in] pc contains mainly functions for printing.
* @param[in] tc is tree context. Its settings should be the same as
* before the function call.
*/
static void
trb_print_implicit_node_case_subtree(struct trt_node node, struct trt_wrapper wr,
struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_node case_node;
struct trt_wrapper wr_case_child;
case_node = tro_create_implicit_case_node(node);
ly_print_(pc->out, "\n");
trb_print_entire_node(case_node, 0, wr, pc, tc);
wr_case_child = pc->fp.read.if_sibling_exists(tc) ?
trp_wrapper_set_mark(wr) : trp_wrapper_set_shift(wr);
ly_print_(pc->out, "\n");
trb_print_subtree_nodes(node, 0, wr_case_child, ca, pc, tc);
}
/**
* @brief For the current node: recursively print all of its child
* nodes and all of its siblings, including their children.
*
* This function is an auxiliary function for ::trb_print_subtree_nodes().
* The parent of the current node is expected to exist.
* Nodes are printed, including unified sibling node alignment
* (align \<type\> to column).
* Side-effect -> current node is set to the last sibling.
*
* @param[in] wr is wrapper for printing identation before node.
* @param[in] ca contains inherited data from ancestors.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is tree context.
*/
static void
trb_print_nodes(struct trt_wrapper wr, struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
uint32_t max_gap_before_type;
ly_bool sibling_flag = 0;
ly_bool child_flag = 0;
/* if node is last sibling, then do not add '|' to wrapper */
wr = trb_parent_is_last_sibling(pc->fp, tc) ?
trp_wrapper_set_shift(wr) : trp_wrapper_set_mark(wr);
/* try unified indentation in node */
max_gap_before_type = trb_try_unified_indent(ca, pc, tc);
/* print all siblings */
do {
struct trt_parent_cache new_ca;
struct trt_node node;
node = pc->fp.read.node(ca, tc);
if (!trb_need_implicit_node_case(tc)) {
/* normal behavior */
ly_print_(pc->out, "\n");
trb_print_entire_node(node, max_gap_before_type, wr, pc, tc);
new_ca = tro_parent_cache_for_child(ca, tc);
/* go to the actual node's child or stay in actual node */
node = pc->fp.modify.next_child(ca, tc);
child_flag = !trp_node_is_empty(node);
if (child_flag) {
/* print all childs - recursive call */
trb_print_nodes(wr, new_ca, pc, tc);
/* get back from child node to actual node */
pc->fp.modify.parent(tc);
}
} else {
/* The case statement is omitted (shorthand).
* Print implicit case node and his subtree.
*/
trb_print_implicit_node_case_subtree(node, wr, ca, pc, tc);
}
/* go to the actual node's sibling */
node = pc->fp.modify.next_sibling(ca, tc);
sibling_flag = !trp_node_is_empty(node);
/* go to the next sibling or stay in actual node */
} while (sibling_flag);
}
/**
* @brief Calculate the wrapper about how deep in the tree the node is.
* @param[in] wr_in A wrapper to use as a starting point
* @param[in] node from which to count.
* @return wrapper for @p node.
*/
static struct trt_wrapper
trb_count_depth(const struct trt_wrapper *wr_in, const struct lysc_node *node)
{
struct trt_wrapper wr = wr_in ? *wr_in : TRP_INIT_WRAPPER_TOP;
const struct lysc_node *parent;
if (!node) {
return wr;
}
for (parent = node->parent; parent; parent = parent->parent) {
wr = trp_wrapper_set_shift(wr);
}
return wr;
}
/**
* @brief Print all parent nodes of @p node and the @p node itself.
*
* Side-effect -> trt_tree_ctx.cn will be set to @p node.
*
* @param[in] node on which the function is focused.
* @param[in] wr_in for printing identation before node.
* @param[in] pc is @ref TRP_trp settings.
* @param[in,out] tc is context of tree printer.
* @return wrapper for @p node.
*/
static void
trb_print_parents(const struct lysc_node *node, struct trt_wrapper *wr_in, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_wrapper wr;
struct trt_node print_node;
assert(pc && tc && tc->section == TRD_SECT_MODULE);
/* stop recursion */
if (!node) {
return;
}
trb_print_parents(node->parent, wr_in, pc, tc);
/* setup for printing */
tc->cn = node;
wr = trb_count_depth(wr_in, node);
/* print node */
ly_print_(pc->out, "\n");
print_node = pc->fp.read.node(TRP_EMPTY_PARENT_CACHE, tc);
trb_print_entire_node(print_node, 0, wr, pc, tc);
}
/**
* @brief Get address of the current node.
* @param[in] tc contains current node.
* @return Address of lysc_node or lysp_node, or NULL.
*/
static const void *
trb_tree_ctx_get_node(struct trt_tree_ctx *tc)
{
return tc->lysc_tree ?
(const void *)tc->cn :
(const void *)tc->pn;
}
/**
* @brief Get address of current node's child.
* @param[in,out] tc contains current node.
*/
static const void *
trb_tree_ctx_get_child(struct trt_tree_ctx *tc)
{
if (!trb_tree_ctx_get_node(tc)) {
return NULL;
}
if (tc->lysc_tree) {
return lysc_node_child(tc->cn);
} else {
return lysp_node_child(tc->pn);
}
}
/**
* @brief Set current node on its child.
* @param[in,out] tc contains current node.
*/
static void
trb_tree_ctx_set_child(struct trt_tree_ctx *tc)
{
const void *node = trb_tree_ctx_get_child(tc);
if (tc->lysc_tree) {
tc->cn = node;
} else {
tc->pn = node;
}
}
/**
* @brief Print subtree of nodes.
*
* The current node is expected to be the root of the subtree.
* Before root node is no linebreak printing. This must be addressed by
* the caller. Root node will also be printed. Behind last printed node
* is no linebreak.
*
* @param[in] node is root of the subtree.
* @param[in] max_gap_before_type is result from
* ::trb_try_unified_indent() function for root node.
* Set parameter to 0 if distance does not matter.
* @param[in] wr is wrapper saying how deep in the whole tree
* is the root of the subtree.
* @param[in] ca is parent_cache from root's parent.
* If root is top-level node, insert ::TRP_EMPTY_PARENT_CACHE.
* @param[in] pc is @ref TRP_trp settings.
* @param[in,out] tc is context of tree printer.
*/
static void
trb_print_subtree_nodes(struct trt_node node, uint32_t max_gap_before_type, struct trt_wrapper wr,
struct trt_parent_cache ca, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_parent_cache new_ca;
trb_print_entire_node(node, max_gap_before_type, wr, pc, tc);
/* go to the actual node's child */
new_ca = tro_parent_cache_for_child(ca, tc);
node = pc->fp.modify.next_child(ca, tc);
if (!trp_node_is_empty(node)) {
/* print root's nodes */
trb_print_nodes(wr, new_ca, pc, tc);
/* get back from child node to actual node */
pc->fp.modify.parent(tc);
}
}
/**
* @brief Get number of siblings.
*
* Side-effect -> current node is set to the first sibling.
*
* @param[in] fp contains callback functions which modify tree context
* @param[in,out] tc is the tree context.
* @return Number of siblings of the current node.
*/
static uint32_t
trb_get_number_of_siblings(struct trt_fp_modify_ctx fp, struct trt_tree_ctx *tc)
{
uint32_t ret = 1;
struct trt_node node = TRP_EMPTY_NODE;
/* including actual node */
fp.first_sibling(tc);
while (!trp_node_is_empty(node = fp.next_sibling(TRP_EMPTY_PARENT_CACHE, tc))) {
ret++;
}
fp.first_sibling(tc);
return ret;
}
/**
* @brief Print all parents and their children.
*
* This function is suitable for printing top-level nodes that
* do not have ancestors. Function call ::trb_print_subtree_nodes()
* for all top-level siblings. Use this function after 'module' keyword
* or 'augment' and so. The nodes may not be exactly top-level in the
* tree, but the function considers them that way.
*
* @param[in] wr is wrapper saying how deeply the top-level nodes are
* immersed in the tree.
* @param[pc] pc contains mainly functions for printing.
* @param[in,out] tc is tree context.
*/
static void
trb_print_family_tree(struct trt_wrapper wr, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_parent_cache ca;
struct trt_node node;
uint32_t total_parents;
uint32_t max_gap_before_type;
if (!trb_tree_ctx_get_node(tc)) {
return;
}
ca = TRP_EMPTY_PARENT_CACHE;
total_parents = trb_get_number_of_siblings(pc->fp.modify, tc);
max_gap_before_type = trb_try_unified_indent(ca, pc, tc);
if (!tc->lysc_tree) {
if (((tc->section == TRD_SECT_GROUPING) && (tc->tpn == tc->pn->parent)) ||
(tc->section == TRD_SECT_YANG_DATA)) {
ca.lys_config = 0x0;
}
}
for (uint32_t i = 0; i < total_parents; i++) {
ly_print_(pc->out, "\n");
node = pc->fp.read.node(ca, tc);
trb_print_subtree_nodes(node, max_gap_before_type, wr, ca, pc, tc);
pc->fp.modify.next_sibling(ca, tc);
}
}
/**
* @brief Mounted module iterator.
*
* Omit internal modules, modules with no nodes (e.g., iana-if-types)
* and modules that were loaded as the result of a parent-reference.
*
* @param[in] ext_ctx is special context of mount-point extension.
* @param[in] parent_refs is set of parent-references. Can be NULL for case of 'inline' schema-ref.
* @param[in,out] state of the iterator. Set the value to zero for initialization.
* @return First/next mounted module or NULL.
*/
static const struct lys_module *
trb_mounted_module_iter(struct ly_ctx *ext_ctx, struct ly_set *parent_refs, uint32_t *state)
{
const struct lys_module *mod = NULL;
ly_bool from_parent_ref;
uint32_t j;
if (!(*state)) {
/* Get first non-internal module. */
*state = ly_ctx_internal_modules_count(ext_ctx);
}
while ((mod = ly_ctx_get_module_iter(ext_ctx, state))) {
if (mod->compiled && !mod->compiled->data) {
/* Compiled module with no data-nodes. */
continue;
} else if (mod->parsed && !mod->parsed->data) {
/* Parsed module with no data-nodes. */
continue;
} else if (!parent_refs) {
/* Mounting in 'inline' mode. Success. */
break;
}
/* Check if the module is not in parent-reference. */
from_parent_ref = 0;
for (j = 0; j < parent_refs->count; j++) {
if (!strcmp(mod->ns, parent_refs->snodes[j]->module->ns)) {
from_parent_ref = 1;
break;
}
}
if (!from_parent_ref) {
/* Success. */
break;
}
}
return mod;
}
/**********************************************************************
* Definition of trm main functions
*********************************************************************/
/**
* @brief Settings if lysp_node are used for browsing through the tree.
*
* @param[in] module YANG schema tree structure representing
* YANG module.
* @param[in] out is output handler.
* @param[in] max_line_length is the maximum line length limit
* that should not be exceeded.
* @param[in] mounted context is used for printing the YANG Schema mount.
* @param[in] parent_refs context is used for printing the YANG Schema mount and its parent-reference is set.
* @param[in,out] pc will be adapted to lysp_tree.
* @param[in,out] tc will be adapted to lysp_tree.
*/
static void
trm_lysp_tree_ctx(const struct lys_module *module, struct ly_out *out, size_t max_line_length, ly_bool mounted,
const struct ly_set *parent_refs, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
*tc = (struct trt_tree_ctx) {
.lysc_tree = 0,
.mounted = mounted || parent_refs,
.section = TRD_SECT_MODULE,
.pmod = module->parsed,
.cmod = NULL,
.pn = module->parsed ? module->parsed->data : NULL,
.tpn = module->parsed ? module->parsed->data : NULL,
.cn = NULL,
.parent_refs = parent_refs
};
pc->out = out;
pc->fp.modify = (struct trt_fp_modify_ctx) {
.parent = trop_modi_parent,
.first_sibling = trop_modi_first_sibling,
.next_sibling = trop_modi_next_sibling,
.next_child = trop_modi_next_child,
};
pc->fp.read = (struct trt_fp_read) {
.module_name = tro_read_module_name,
.node = trop_read_node,
.if_sibling_exists = trop_read_if_sibling_exists
};
pc->fp.print = (struct trt_fp_print) {
.print_features_names = tro_print_features_names,
.print_keys = tro_print_keys
};
pc->max_line_length = max_line_length;
}
/**
* @brief Settings if lysc_node are used for browsing through the tree.
*
* Pointers to current nodes will be set to module data.
*
* @param[in] module YANG schema tree structure representing
* YANG module.
* @param[in] out is output handler.
* @param[in] max_line_length is the maximum line length limit
* that should not be exceeded.
* @param[in] mounted context is used for printing the YANG Schema mount.
* @param[in] parent_refs context is used for printing the YANG Schema mount and its parent-reference is set.
* @param[in,out] pc will be adapted to lysc_tree.
* @param[in,out] tc will be adapted to lysc_tree.
*/
static void
trm_lysc_tree_ctx(const struct lys_module *module, struct ly_out *out, size_t max_line_length, ly_bool mounted,
const struct ly_set *parent_refs, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
*tc = (struct trt_tree_ctx) {
.lysc_tree = 1,
.mounted = mounted || parent_refs,
.section = TRD_SECT_MODULE,
.pmod = module->parsed,
.cmod = module->compiled,
.tpn = NULL,
.pn = NULL,
.cn = module->compiled->data,
.parent_refs = parent_refs
};
pc->out = out;
pc->fp.modify = (struct trt_fp_modify_ctx) {
.parent = troc_modi_parent,
.first_sibling = troc_modi_first_sibling,
.next_sibling = troc_modi_next_sibling,
.next_child = troc_modi_next_child,
};
pc->fp.read = (struct trt_fp_read) {
.module_name = tro_read_module_name,
.node = troc_read_node,
.if_sibling_exists = troc_read_if_sibling_exists
};
pc->fp.print = (struct trt_fp_print) {
.print_features_names = tro_print_features_names,
.print_keys = tro_print_keys
};
pc->max_line_length = max_line_length;
}
/**
* @brief Reset settings to browsing through the lysc tree.
* @param[in,out] pc resets to @ref TRP_troc functions.
* @param[in,out] tc resets to lysc browsing.
*/
static void
trm_reset_to_lysc_tree_ctx(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
trm_lysc_tree_ctx(tc->pmod->mod, pc->out, pc->max_line_length, tc->mounted, tc->parent_refs, pc, tc);
}
/**
* @brief Reset settings to browsing through the lysp tree.
* @param[in,out] pc resets to @ref TRP_trop functions.
* @param[in,out] tc resets to lysp browsing.
*/
static void
trm_reset_to_lysp_tree_ctx(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
trm_lysp_tree_ctx(tc->pmod->mod, pc->out, pc->max_line_length, tc->mounted, tc->parent_refs, pc, tc);
}
/**
* @brief If augment's target node is located on the current module.
* @param[in] pn is examined augment.
* @param[in] pmod is current module.
* @return 1 if nodeid refers to the local node, otherwise 0.
*/
static ly_bool
trm_nodeid_target_is_local(const struct lysp_node_augment *pn, const struct lysp_module *pmod)
{
const char *id, *prefix, *name;
size_t prefix_len, name_len;
const struct lys_module *mod;
ly_bool ret = 0;
if (pn == NULL) {
return ret;
}
id = pn->nodeid;
if (!id) {
return ret;
}
/* only absolute-schema-nodeid is taken into account */
assert(id[0] == '/');
++id;
ly_parse_nodeid(&id, &prefix, &prefix_len, &name, &name_len);
if (prefix) {
mod = ly_resolve_prefix(pmod->mod->ctx, prefix, prefix_len, LY_VALUE_SCHEMA, pmod);
ret = mod ? (mod->parsed == pmod) : 0;
} else {
ret = 1;
}
return ret;
}
/**
* @brief Printing section module, rpcs, notifications or yang-data.
*
* First node must be the first child of 'module',
* 'rpcs', 'notifications' or 'yang-data'.
*
* @param[in] ks is section representation.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_section_as_family_tree(struct trt_keyword_stmt ks, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
if (TRP_KEYWORD_STMT_IS_EMPTY(ks)) {
return;
}
trp_print_keyword_stmt(ks, pc->max_line_length, 0, pc->out);
if ((ks.type == TRD_KEYWORD_MODULE) || (ks.type == TRD_KEYWORD_SUBMODULE)) {
trb_print_family_tree(TRP_INIT_WRAPPER_TOP, pc, tc);
} else {
trb_print_family_tree(TRP_INIT_WRAPPER_BODY, pc, tc);
}
}
/**
* @brief Printing section augment or grouping.
*
* First node is 'augment' or 'grouping' itself.
*
* @param[in] ks is section representation.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_section_as_subtree(struct trt_keyword_stmt ks, struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
ly_bool grp_has_data = 0;
if (TRP_KEYWORD_STMT_IS_EMPTY(ks)) {
return;
}
if (ks.type == TRD_KEYWORD_GROUPING) {
grp_has_data = trb_tree_ctx_get_child(tc) ? 1 : 0;
}
trp_print_keyword_stmt(ks, pc->max_line_length, grp_has_data, pc->out);
trb_tree_ctx_set_child(tc);
trb_print_family_tree(TRP_INIT_WRAPPER_BODY, pc, tc);
}
/**
* @brief Print 'module' keyword, its name and all nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_module_section(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
trm_print_section_as_family_tree(pc->fp.read.module_name(tc), pc, tc);
}
/**
* @brief For all augment sections: print 'augment' keyword,
* its target node and all nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_augmentations(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
ly_bool once;
ly_bool origin_was_lysc_tree = 0;
if (tc->lysc_tree) {
origin_was_lysc_tree = 1;
trm_reset_to_lysp_tree_ctx(pc, tc);
}
once = 1;
for (struct trt_keyword_stmt ks = trop_modi_next_augment(tc);
!(TRP_KEYWORD_STMT_IS_EMPTY(ks));
ks = trop_modi_next_augment(tc)) {
if (origin_was_lysc_tree) {
/* if lysc tree is used, then only augments targeting
* another module are printed
*/
if (trm_nodeid_target_is_local((const struct lysp_node_augment *)tc->tpn, tc->pmod)) {
continue;
}
}
if (once) {
ly_print_(pc->out, "\n");
ly_print_(pc->out, "\n");
once = 0;
} else {
ly_print_(pc->out, "\n");
}
trm_print_section_as_subtree(ks, pc, tc);
}
if (origin_was_lysc_tree) {
trm_reset_to_lysc_tree_ctx(pc, tc);
}
}
/**
* @brief For rpcs section: print 'rpcs' keyword and all its nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_rpcs(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_keyword_stmt rpc;
rpc = tro_modi_get_rpcs(tc);
if (!(TRP_KEYWORD_STMT_IS_EMPTY(rpc))) {
ly_print_(pc->out, "\n");
ly_print_(pc->out, "\n");
trm_print_section_as_family_tree(rpc, pc, tc);
}
}
/**
* @brief For notifications section: print 'notifications' keyword
* and all its nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_notifications(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
struct trt_keyword_stmt notifs;
notifs = tro_modi_get_notifications(tc);
if (!(TRP_KEYWORD_STMT_IS_EMPTY(notifs))) {
ly_print_(pc->out, "\n");
ly_print_(pc->out, "\n");
trm_print_section_as_family_tree(notifs, pc, tc);
}
}
/**
* @brief For all grouping sections: print 'grouping' keyword, its name
* and all nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_groupings(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
ly_bool once;
if (tc->lysc_tree) {
return;
}
once = 1;
for (struct trt_keyword_stmt ks = trop_modi_next_grouping(tc);
!(TRP_KEYWORD_STMT_IS_EMPTY(ks));
ks = trop_modi_next_grouping(tc)) {
if (once) {
ly_print_(pc->out, "\n");
ly_print_(pc->out, "\n");
once = 0;
} else {
ly_print_(pc->out, "\n");
}
trm_print_section_as_subtree(ks, pc, tc);
}
}
/**
* @brief For all yang-data sections: print 'yang-data' keyword
* and all its nodes.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_yang_data(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
ly_bool once;
LY_ARRAY_COUNT_TYPE count;
count = LY_ARRAY_COUNT(tc->pmod->exts);
if (count == 0) {
return;
}
once = 1;
for (LY_ARRAY_COUNT_TYPE u = 0; u < count; ++u) {
struct trt_keyword_stmt ks;
/* Only ::lys_compile_extension_instance() can set item
* ::lysp_ext_instance.parsed.
*/
if (!tc->pmod->exts[u].parsed) {
/* print at least the yang-data names */
trop_yang_data_sections(tc->pmod->exts, pc->max_line_length, pc->out);
continue;
}
ks = tro_modi_next_yang_data(tc, u);
if (TRP_KEYWORD_STMT_IS_EMPTY(ks)) {
break;
}
if (once) {
ly_print_(pc->out, "\n");
ly_print_(pc->out, "\n");
once = 0;
} else {
ly_print_(pc->out, "\n");
}
trm_print_section_as_family_tree(ks, pc, tc);
}
}
/**
* @brief Print sections module, augment, rpcs, notifications,
* grouping, yang-data.
* @param[in] pc contains mainly functions for printing.
* @param[in,out] tc is the tree context.
*/
static void
trm_print_sections(struct trt_printer_ctx *pc, struct trt_tree_ctx *tc)
{
trm_print_module_section(pc, tc);
trm_print_augmentations(pc, tc);
trm_print_rpcs(pc, tc);
trm_print_notifications(pc, tc);
trm_print_groupings(pc, tc);
trm_print_yang_data(pc, tc);
ly_print_(pc->out, "\n");
}
/**********************************************************************
* Definition of module interface
*********************************************************************/
LY_ERR
tree_print_module(struct ly_out *out, const struct lys_module *module, uint32_t UNUSED(options), size_t line_length)
{
struct trt_printer_ctx pc;
struct trt_tree_ctx tc;
struct ly_out *new_out;
LY_ERR erc;
struct ly_out_clb_arg clb_arg = TRP_INIT_LY_OUT_CLB_ARG(TRD_PRINT, out, 0, LY_SUCCESS);
LY_CHECK_ARG_RET3(module->ctx, out, module, module->parsed, LY_EINVAL);
if ((erc = ly_out_new_clb(&trp_ly_out_clb_func, &clb_arg, &new_out))) {
return erc;
}
line_length = line_length == 0 ? SIZE_MAX : line_length;
if ((module->ctx->flags & LY_CTX_SET_PRIV_PARSED) && module->compiled) {
trm_lysc_tree_ctx(module, new_out, line_length, 0, NULL, &pc, &tc);
} else {
trm_lysp_tree_ctx(module, new_out, line_length, 0, NULL, &pc, &tc);
}
trm_print_sections(&pc, &tc);
erc = clb_arg.last_error;
ly_out_free(new_out, NULL, 1);
return erc;
}
LY_ERR
tree_print_compiled_node(struct ly_out *out, const struct lysc_node *node, uint32_t options, size_t line_length)
{
struct trt_printer_ctx pc;
struct trt_tree_ctx tc;
struct ly_out *new_out;
struct trt_wrapper wr;
LY_ERR erc;
struct ly_out_clb_arg clb_arg = TRP_INIT_LY_OUT_CLB_ARG(TRD_PRINT, out, 0, LY_SUCCESS);
assert(out && node);
if (!(node->module->ctx->flags & LY_CTX_SET_PRIV_PARSED)) {
return LY_EINVAL;
}
if ((erc = ly_out_new_clb(&trp_ly_out_clb_func, &clb_arg, &new_out))) {
return erc;
}
line_length = line_length == 0 ? SIZE_MAX : line_length;
trm_lysc_tree_ctx(node->module, new_out, line_length, 0, NULL, &pc, &tc);
trp_print_keyword_stmt(pc.fp.read.module_name(&tc), pc.max_line_length, 0, pc.out);
trb_print_parents(node, NULL, &pc, &tc);
if (!(options & LYS_PRINT_NO_SUBSTMT)) {
tc.cn = lysc_node_child(node);
wr = trb_count_depth(NULL, tc.cn);
trb_print_family_tree(wr, &pc, &tc);
}
ly_print_(out, "\n");
erc = clb_arg.last_error;
ly_out_free(new_out, NULL, 1);
return erc;
}
LY_ERR
tree_print_parsed_submodule(struct ly_out *out, const struct lysp_submodule *submodp, uint32_t UNUSED(options),
size_t line_length)
{
struct trt_printer_ctx pc;
struct trt_tree_ctx tc;
struct ly_out *new_out;
LY_ERR erc;
struct ly_out_clb_arg clb_arg = TRP_INIT_LY_OUT_CLB_ARG(TRD_PRINT, out, 0, LY_SUCCESS);
assert(submodp);
LY_CHECK_ARG_RET(submodp->mod->ctx, out, LY_EINVAL);
if ((erc = ly_out_new_clb(&trp_ly_out_clb_func, &clb_arg, &new_out))) {
return erc;
}
line_length = line_length == 0 ? SIZE_MAX : line_length;
trm_lysp_tree_ctx(submodp->mod, new_out, line_length, 0, NULL, &pc, &tc);
tc.pmod = (struct lysp_module *)submodp;
tc.tpn = submodp->data;
tc.pn = tc.tpn;
trm_print_sections(&pc, &tc);
erc = clb_arg.last_error;
ly_out_free(new_out, NULL, 1);
return erc;
}
/**
* @brief Print all mounted nodes ('/') and parent-referenced nodes ('@').
*
* @param[in] ext is mount-point extension.
* @param[in] wr is wrapper to be printed.
* @param[in] pc contains mainly functions for printing.
* @return LY_ERR value.
*/
static LY_ERR
trb_print_mount_point(const struct lysc_ext_instance *ext, const struct trt_wrapper wr, struct trt_printer_ctx *pc)
{
LY_ERR ret = LY_SUCCESS;
struct ly_ctx *ext_ctx = NULL;
const struct lys_module *mod, *last_mod;
struct trt_tree_ctx tmptc;
struct trt_wrapper tmpwr;
struct trt_printer_ctx tmppc;
struct ly_set *refs = NULL;
uint32_t i, iter_state;
if (lyplg_ext_schema_mount_create_context(ext, &ext_ctx)) {
/* Void mount point */
return LY_SUCCESS;
}
lyplg_ext_schema_mount_get_parent_ref(ext, &refs);
/* Get the last mounted module which will be printed. */
iter_state = 0;
while ((mod = trb_mounted_module_iter(ext_ctx, refs, &iter_state))) {
last_mod = mod;
}
tmppc = *pc;
iter_state = 0;
while ((mod = trb_mounted_module_iter(ext_ctx, refs, &iter_state))) {
/* Prepare printer tree context. */
if ((ext_ctx->flags & LY_CTX_SET_PRIV_PARSED) && mod->compiled) {
trm_lysc_tree_ctx(mod, pc->out, pc->max_line_length, 1, refs, &tmppc, &tmptc);
} else {
trm_lysp_tree_ctx(mod, pc->out, pc->max_line_length, 1, refs, &tmppc, &tmptc);
}
/* Decide whether to print the symbol '|'. */
tmpwr = (mod == last_mod) && !refs ? wr : trp_wrapper_set_mark_top(wr);
/* Print top-level nodes of mounted module which are denoted by the symbol '/'. */
trb_print_family_tree(tmpwr, &tmppc, &tmptc);
}
/* Print parent-referenced nodes which are denoted by the symbol '@'. */
for (i = 0; refs && i < refs->count; i++) {
trm_lysc_tree_ctx(refs->snodes[i]->module, pc->out, pc->max_line_length, 1, refs, &tmppc, &tmptc);
tmpwr = ((i + 1) == refs->count) ? wr : trp_wrapper_set_mark_top(wr);
trb_print_parents(refs->snodes[i], &tmpwr, pc, &tmptc);
}
ly_set_free(refs, NULL);
ly_ctx_destroy(ext_ctx);
return ret;
}