/* PSPP - a program for statistical analysis.
- Copyright (C) 1997-9, 2000, 2006, 2009-2011, 2013 Free Software Foundation, Inc.
+ Copyright (C) 1997-9, 2000, 2006, 2009-2011, 2013, 2014, 2016 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
while (casegrouper_get_next_group (grouper, &group))
{
struct ccase *ccase;
- struct table *t;
+ struct table *t = NULL;
ccase = casereader_peek (group, 0);
if (ccase != NULL)
casereader_destroy (group);
- table_item_submit (table_item_create (t, "Data List"));
+ if (t)
+ table_item_submit (table_item_create (t, "Data List", NULL));
}
ok = casegrouper_destroy (grouper);
ok = proc_commit (ds) && ok;
else if (lex_match_id (lexer, "CASES"))
{
lex_match (lexer, T_EQUALS);
- lex_force_match_id (lexer, "FROM");
-
- if (lex_force_int (lexer))
+ if (lex_match_id (lexer, "FROM") && lex_force_int (lexer))
{
- cmd.first = lex_integer (lexer);
+ cmd.first = lex_integer (lexer);
lex_get (lexer);
}
- lex_force_match (lexer, T_TO);
-
- if (lex_force_int (lexer))
+ if ((lex_match (lexer, T_TO) && lex_force_int (lexer))
+ || lex_is_integer (lexer))
{
cmd.last = lex_integer (lexer);
lex_get (lexer);
}
- lex_force_match (lexer, T_BY);
-
- if (lex_force_int (lexer))
+ if (lex_match (lexer, T_BY) && lex_force_int (lexer))
{
cmd.step = lex_integer (lexer);
lex_get (lexer);
if (cmd.first < 1)
{
- msg (SW, _("The first case (%ld) to list is less than 1. The value is "
- "being reset to 1."), cmd.first);
+ msg (SW, _("The first case (%ld) to list is numbered less than 1. "
+ "The value is being reset to 1."), cmd.first);
cmd.first = 1;
}
if (cmd.last < 1)
{
- msg (SW, _("The last case (%ld) to list is less than 1. The value is "
- "being reset to 1."), cmd.last);
+ msg (SW, _("The last case (%ld) to list is numbered less than 1. "
+ "The value is being reset to 1."), cmd.last);
cmd.last = 1;
}