#include <config.h>
#include <assert.h>
#include <stdlib.h>
-#include "cases.h"
#include "command.h"
#include "error.h"
#include "lexer.h"
/* Create each variable. */
for (i = 0; i < nv; i++)
{
- struct variable *new_var = create_variable (&default_dict, v[i],
- NUMERIC, 0);
+ struct variable *new_var = dict_create_var (default_dict, v[i], 0);
if (!new_var)
msg (SE, _("There is already a variable named %s."), v[i]);
else
{
if (f.type != -1)
new_var->print = new_var->write = f;
- envector (new_var);
}
}
/* Create each variable. */
for (i = 0; i < nv; i++)
{
- struct variable *new_var = create_variable (&default_dict, v[i],
- ALPHA, width);
+ struct variable *new_var = dict_create_var (default_dict, v[i],
+ width);
if (!new_var)
msg (SE, _("There is already a variable named %s."), v[i]);
else
- {
- new_var->print = new_var->write = f;
- envector (new_var);
- }
+ new_var->print = new_var->write = f;
}
/* Clean up. */
int i;
lex_match_id ("LEAVE");
- if (!parse_variables (NULL, &v, &nv, PV_NONE))
+ if (!parse_variables (default_dict, &v, &nv, PV_NONE))
return CMD_FAILURE;
for (i = 0; i < nv; i++)
{
- if (v[i]->left)
+ if (!v[i]->reinit)
continue;
- devector (v[i]);
- v[i]->left = 1;
- envector (v[i]);
+ v[i]->reinit = 0;
+ v[i]->init = 1;
}
free (v);