/[pspp]/pspp/src/data-list.c
ViewVC logotype

Diff of /pspp/src/data-list.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by blp, Tue Mar 1 08:16:15 2005 UTC revision 1.27 by blp, Mon Mar 7 03:04:50 2005 UTC
# Line 350  parse_fixed (struct data_list_pgm *dls) Line 350  parse_fixed (struct data_list_pgm *dls)
350        while (lex_match ('/'))        while (lex_match ('/'))
351          {          {
352            fx.recno++;            fx.recno++;
353            if (lex_integer_p ())            if (lex_is_integer ())
354              {              {
355                if (lex_integer () < fx.recno)                if (lex_integer () < fx.recno)
356                  {                  {
# Line 371  parse_fixed (struct data_list_pgm *dls) Line 371  parse_fixed (struct data_list_pgm *dls)
371        if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE))        if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE))
372          return 0;          return 0;
373    
374        if (token == T_NUM)        if (lex_is_number ())
375          {          {
376            if (!fixed_parse_compatible (&fx, &dls->first, &dls->last))            if (!fixed_parse_compatible (&fx, &dls->first, &dls->last))
377              goto fail;              goto fail;
# Line 501  fixed_parse_compatible (struct fixed_par Line 501  fixed_parse_compatible (struct fixed_par
501        else        else
502          input.type = FMT_F;          input.type = FMT_F;
503    
504        if (lex_integer_p ())        if (lex_is_integer ())
505          {          {
506            if (lex_integer () < 1)            if (lex_integer () < 1)
507              {              {
# Line 713  fixed_parse_fortran_internal (struct fix Line 713  fixed_parse_fortran_internal (struct fix
713        tail = new;        tail = new;
714    
715        /* Parse count. */        /* Parse count. */
716        if (lex_integer_p ())        if (lex_is_integer ())
717          {          {
718            new->count = lex_integer ();            new->count = lex_integer ();
719            lex_get ();            lex_get ();
# Line 1690  parse_num_or_var (struct rpd_num_or_var Line 1690  parse_num_or_var (struct rpd_num_or_var
1690            return 0;            return 0;
1691          }          }
1692      }      }
1693    else if (lex_integer_p ())    else if (lex_is_integer ())
1694      {      {
1695        value->num = lex_integer ();        value->num = lex_integer ();
1696                
# Line 1725  parse_repeating_data (struct dls_var_spe Line 1725  parse_repeating_data (struct dls_var_spe
1725        if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE))        if (!parse_DATA_LIST_vars (&fx.name, &fx.name_cnt, PV_NONE))
1726          return 0;          return 0;
1727    
1728        if (token == T_NUM)        if (lex_is_number ())
1729          {          {
1730            if (!fixed_parse_compatible (&fx, first, last))            if (!fixed_parse_compatible (&fx, first, last))
1731              goto fail;              goto fail;

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26