-parse_DATA_LIST_vars (struct lexer *lexer, char ***names, size_t *nnames, int pv_opts)
+parse_DATA_LIST_vars (struct lexer *lexer, char ***names,
+ size_t *nnames, int pv_opts)
size_t nvar, mvar;
char name1[VAR_NAME_LEN + 1], name2[VAR_NAME_LEN + 1];
char root1[VAR_NAME_LEN + 1], root2[VAR_NAME_LEN + 1];
size_t nvar, mvar;
char name1[VAR_NAME_LEN + 1], name2[VAR_NAME_LEN + 1];
char root1[VAR_NAME_LEN + 1], root2[VAR_NAME_LEN + 1];
&& (pv_opts & PV_NO_SCRATCH))
{
msg (SE, _("Scratch variables not allowed here."));
goto fail;
}
&& (pv_opts & PV_NO_SCRATCH))
{
msg (SE, _("Scratch variables not allowed here."));
goto fail;
}
lex_get (lexer);
if (!extract_num (name1, root1, &n1, &d1)
lex_get (lexer);
if (!extract_num (name1, root1, &n1, &d1)
{
char name[VAR_NAME_LEN + 1];
sprintf (name, "%s%0*d", root1, d1, n);
{
char name[VAR_NAME_LEN + 1];
sprintf (name, "%s%0*d", root1, d1, n);