update the tmpl_rules for argument parsing

so that we don't do casts, etc. of the function arguments

Author: alandekok

src/lib/unlang/xlat_tokenize.c

@@ -1342,6 +1342,8 @@ fr_slen_t xlat_tokenize_argv(TALLOC_CTX *ctx, xlat_exp_head_t **out, fr_sbuff_t
 	fr_sbuff_parse_rules_t		tmp_p_rules;
 	xlat_exp_head_t			*head;
 	xlat_arg_parser_t const		*arg = NULL, *arg_start;
+	tmpl_rules_t const		*our_t_rules = t_rules;
+	tmpl_rules_t			tmp_t_rules;
 
 	if (xlat && xlat->args) {
 		arg_start = arg = xlat->args;	/* Track the arguments as we parse */
@@ -1371,6 +1373,28 @@ fr_slen_t xlat_tokenize_argv(TALLOC_CTX *ctx, xlat_exp_head_t **out, fr_sbuff_t
 		fr_assert(p_rules->terminals);
 
 		our_p_rules = p_rules;
+
+		/*
+		 *	The arguments to a function are NOT the output data type of the function.
+		 *
+		 *	We do NOT check for quotation characters.  We DO update t_rules to strip any casts.  The
+		 *	OUTPUT of the function is cast to the relevant data type, but each ARGUMENT is just an
+		 *	expression with no given data type.  Parsing the expression is NOT done with the cast of
+		 *	arg->type, as that means each individual piece of the expression is parsed as the type.  We
+		 *	have to cast on the final _output_ of the expression, and we allow the _input_ pieces of the
+		 *	expression to be just about anything.
+		 */
+		if (!xlat_func_bare_words) {
+			tmp_t_rules = *t_rules;
+			our_t_rules = &tmp_t_rules;
+
+			tmp_t_rules.enumv = NULL;
+			tmp_t_rules.cast = FR_TYPE_NULL;
+			tmp_t_rules.attr.namespace = NULL;
+			tmp_t_rules.attr.request_def = NULL;
+			tmp_t_rules.attr.list_def = request_attr_request;
+			tmp_t_rules.attr.list_presence = TMPL_ATTR_LIST_ALLOW;
+		}
 	}
 
 	MEM(head = xlat_exp_head_alloc(ctx));
@@ -1395,13 +1419,19 @@ fr_slen_t xlat_tokenize_argv(TALLOC_CTX *ctx, xlat_exp_head_t **out, fr_sbuff_t
 		 */
 		if (!spaces) fr_sbuff_adv_past_whitespace(&our_in, SIZE_MAX, NULL);
 
-		fr_sbuff_out_by_longest_prefix(&slen, &quote, xlat_quote_table, &our_in, T_BARE_WORD);
-
 		/*
 		 *	Alloc a new node to hold the child nodes
 		 *	that make up the argument.
 		 */
 		MEM(node = xlat_exp_alloc(head, XLAT_GROUP, NULL, 0));
+
+		if (!spaces && !xlat_func_bare_words) {
+			quote = T_BARE_WORD;
+			node->quote = quote;
+			goto tokenize_expression;
+		}
+
+		fr_sbuff_out_by_longest_prefix(&slen, &quote, xlat_quote_table, &our_in, T_BARE_WORD);
 		node->quote = quote;
 
 		switch (quote) {
@@ -1433,14 +1463,17 @@ fr_slen_t xlat_tokenize_argv(TALLOC_CTX *ctx, xlat_exp_head_t **out, fr_sbuff_t
 				 */
 				slen = xlat_tokenize_input(node->group, &our_in, our_p_rules, t_rules, arg->safe_for);
 
-			} else if (fr_sbuff_is_char(&our_in, ')')) {
-				/*
-				 *	%foo()
-				 */
-				slen = 0;
-
 			} else {
-				slen = xlat_tokenize_expression(node, &node->group, &our_in, our_p_rules, t_rules);
+			tokenize_expression:
+				if (fr_sbuff_is_char(&our_in, ')')) {
+					/*
+					 *	%foo()
+					 */
+					slen = 0;
+
+				} else {
+					slen = xlat_tokenize_expression(node, &node->group, &our_in, our_p_rules, our_t_rules);
+				}
 			}
 			if (slen < 0) {
 			error: