#include <data/procedure.h>
#include <language/lexer/variable-parser.h>
#include <language/lexer/value-parser.h>
#include <data/procedure.h>
#include <language/lexer/variable-parser.h>
#include <language/lexer/value-parser.h>
if (!parse_variables_const (lexer, dict, &roc.vars, &roc.n_vars,
PV_APPEND | PV_NO_DUPLICATE | PV_NUMERIC))
if (!parse_variables_const (lexer, dict, &roc.vars, &roc.n_vars,
PV_APPEND | PV_NO_DUPLICATE | PV_NUMERIC))
}
roc.state_var = parse_variable (lexer, dict);
if ( !lex_force_match (lexer, '('))
{
}
roc.state_var = parse_variable (lexer, dict);
if ( !lex_force_match (lexer, '('))
{
for ( ; (cpc = casereader_read (r) ); case_unref (cpc))
{
struct ccase *new_case;
const double cp = case_data_idx (cpc, CUTPOINT)->f;
for ( ; (cpc = casereader_read (r) ); case_unref (cpc))
{
struct ccase *new_case;
const double cp = case_data_idx (cpc, CUTPOINT)->f;