/*!
* \param[in] name Name of the parameter to search.
* \param[in] method Method to search for the parameter.
* \returns Pointer to the parameter in the
* \ref gmx_ana_selmethod_t::param "method->param" array,
* or NULL if no parameter with name \p name was found.
*
* This is a simple wrapper for gmx_ana_selparam_find().
*/
gmx_ana_selparam_t *
gmx_ana_selmethod_find_param(const char *name, gmx_ana_selmethod_t *method)
{
return gmx_ana_selparam_find(name, method->nparams, method->param);
}
/*!
* \param pparams List of parameters from the selection parser.
* \param[in] nparam Number of parameters in \p params.
* \param params Array of parameters to parse.
* \param root Selection element to which child expressions are added.
* \param[in] scanner Scanner data structure.
* \returns TRUE if the parameters were parsed successfully, FALSE otherwise.
*
* Initializes the \p params array based on the parameters in \p pparams.
* See the documentation of \c gmx_ana_selparam_t for different options
* available for parsing.
*
* The list \p pparams and any associated values are freed after the parameters
* have been processed, no matter is there was an error or not.
*/
gmx_bool
_gmx_sel_parse_params(t_selexpr_param *pparams, int nparam, gmx_ana_selparam_t *params,
t_selelem *root, void *scanner)
{
t_selexpr_param *pparam;
gmx_ana_selparam_t *oparam;
gmx_bool bOk, rc;
int i;
/* Check that the value pointers of SPAR_VARNUM parameters are NULL and
* that they are not NULL for other parameters */
bOk = TRUE;
for (i = 0; i < nparam; ++i)
{
if (params[i].val.type != POS_VALUE && (params[i].flags & (SPAR_VARNUM | SPAR_ATOMVAL)))
{
if (params[i].val.u.ptr != NULL)
{
_gmx_selparser_error("warning: value pointer of parameter '%s' is not NULL\n"
" although it should be for SPAR_VARNUM and SPAR_ATOMVAL parameters\n",
params[i].name);
}
if ((params[i].flags & SPAR_VARNUM)
&& (params[i].flags & SPAR_DYNAMIC) && !params[i].nvalptr)
{
_gmx_selparser_error("error: nvalptr of parameter '%s' is NULL\n"
" but both SPAR_VARNUM and SPAR_DYNAMIC are specified\n",
params[i].name);
bOk = FALSE;
}
}
else
{
if (params[i].val.u.ptr == NULL)
{
_gmx_selparser_error("error: value pointer of parameter '%s' is NULL\n",
params[i].name);
bOk = FALSE;
}
}
}
if (!bOk)
{
_gmx_selexpr_free_params(pparams);
return FALSE;
}
/* Parse the parameters */
pparam = pparams;
i = 0;
while (pparam)
{
/* Find the parameter and make some checks */
if (pparam->name != NULL)
{
i = -1;
oparam = gmx_ana_selparam_find(pparam->name, nparam, params);
}
else if (i >= 0)
{
oparam = ¶ms[i];
if (oparam->name != NULL)
{
oparam = NULL;
_gmx_selparser_error("too many NULL parameters provided");
bOk = FALSE;
goto next_param;
}
++i;
}
else
{
_gmx_selparser_error("all NULL parameters should appear in the beginning of the list");
bOk = FALSE;
pparam = pparam->next;
continue;
}
if (!oparam)
{
_gmx_selparser_error("unknown parameter '%s' skipped", pparam->name);
bOk = FALSE;
goto next_param;
}
if (oparam->flags & SPAR_SET)
{
_gmx_selparser_error("parameter '%s' set multiple times, extra values skipped", pparam->name);
bOk = FALSE;
goto next_param;
}
oparam->flags |= SPAR_SET;
/* Process the values for the parameter */
convert_const_values(pparam->value);
if (convert_values(pparam->value, oparam->val.type, scanner) != 0)
{
_gmx_selparser_error("invalid value for parameter '%s'", pparam->name);
bOk = FALSE;
goto next_param;
}
if (oparam->val.type == NO_VALUE)
{
rc = parse_values_gmx_bool(pparam->name, pparam->nval, pparam->value, oparam);
}
else if (oparam->flags & SPAR_RANGES)
{
rc = parse_values_range(pparam->nval, pparam->value, oparam);
}
else if (oparam->flags & SPAR_VARNUM)
{
if (pparam->nval == 1 && pparam->value->bExpr)
{
rc = parse_values_varnum_expr(pparam->nval, pparam->value, oparam, root);
}
else
{
rc = parse_values_varnum(pparam->nval, pparam->value, oparam, root);
}
}
else if (oparam->flags & SPAR_ENUMVAL)
{
rc = parse_values_enum(pparam->nval, pparam->value, oparam);
}
else
{
rc = parse_values_std(pparam->nval, pparam->value, oparam, root);
}
if (!rc)
{
bOk = FALSE;
}
/* Advance to the next parameter */
next_param:
pparam = pparam->next;
}
/* Check that all required parameters are present */
for (i = 0; i < nparam; ++i)
{
if (!(params[i].flags & SPAR_OPTIONAL) && !(params[i].flags & SPAR_SET))
{
_gmx_selparser_error("required parameter '%s' not specified", params[i].name);
bOk = FALSE;
}
}
_gmx_selexpr_free_params(pparams);
return bOk;
}
