/[pspp]/pspp/src/print.c
ViewVC logotype

Diff of /pspp/src/print.c

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

revision 1.17 by blp, Tue Mar 1 08:16:15 2005 UTC revision 1.18 by blp, Mon Mar 7 03:04:50 2005 UTC
# Line 287  parse_specs (void) Line 287  parse_specs (void)
287            int prev_recno = fx.recno;            int prev_recno = fx.recno;
288    
289            fx.recno++;            fx.recno++;
290            if (token == T_NUM)            if (lex_is_number ())
291              {              {
292                if (!lex_force_int ())                if (!lex_force_int ())
293                  return 0;                  return 0;
# Line 349  parse_string_argument (void) Line 349  parse_string_argument (void)
349    lex_get ();    lex_get ();
350    
351    /* Parse the included column range. */    /* Parse the included column range. */
352    if (token == T_NUM)    if (lex_is_number ())
353      {      {
354        /* Width of column range in characters. */        /* Width of column range in characters. */
355        int c_len;        int c_len;
# Line 360  parse_string_argument (void) Line 360  parse_string_argument (void)
360        /* 1-based index of last column in range. */        /* 1-based index of last column in range. */
361        int lc;        int lc;
362    
363        if (!lex_integer_p () || lex_integer () <= 0)        if (!lex_is_integer () || lex_integer () <= 0)
364          {          {
365            msg (SE, _("%g is not a valid column location."), tokval);            msg (SE, _("%g is not a valid column location."), tokval);
366            goto fail;            goto fail;
# Line 371  parse_string_argument (void) Line 371  parse_string_argument (void)
371        lex_negative_to_dash ();        lex_negative_to_dash ();
372        if (lex_match ('-'))        if (lex_match ('-'))
373          {          {
374            if (!lex_integer_p ())            if (!lex_is_integer ())
375              {              {
376                msg (SE, _("Column location expected following `%d-'."),                msg (SE, _("Column location expected following `%d-'."),
377                     fx.spec.fc + 1);                     fx.spec.fc + 1);
# Line 434  parse_variable_argument (void) Line 434  parse_variable_argument (void)
434    if (!parse_variables (default_dict, &fx.v, &fx.nv, PV_DUPLICATE))    if (!parse_variables (default_dict, &fx.v, &fx.nv, PV_DUPLICATE))
435      return 0;      return 0;
436    
437    if (token == T_NUM)    if (lex_is_number ())
438      {      {
439        if (!fixed_parse_compatible ())        if (!fixed_parse_compatible ())
440          goto fail;          goto fail;
# Line 553  fixed_parse_compatible (void) Line 553  fixed_parse_compatible (void)
553        else        else
554          fx.spec.u.v.f.type = FMT_F;          fx.spec.u.v.f.type = FMT_F;
555    
556        if (token == T_NUM)        if (lex_is_number ())
557          {          {
558            if (!lex_force_int ())            if (!lex_force_int ())
559              return 0;              return 0;
# Line 727  fixed_parse_fortran (void) Line 727  fixed_parse_fortran (void)
727        else        else
728          head = fl = xmalloc (sizeof *fl);          head = fl = xmalloc (sizeof *fl);
729    
730        if (token == T_NUM)        if (lex_is_number ())
731          {          {
732            if (!lex_integer_p ())            if (!lex_is_integer ())
733              goto fail;              goto fail;
734            fl->count = lex_integer ();            fl->count = lex_integer ();
735            lex_get ();            lex_get ();

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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