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

Diff of /pspp/src/recode.c

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

revision 1.17 by blp, Mon Nov 15 09:51:22 2004 UTC revision 1.18 by blp, Mon Mar 7 03:04:50 2005 UTC
# Line 445  parse_dest_spec (struct rcd_var * rcd, u Line 445  parse_dest_spec (struct rcd_var * rcd, u
445    
446    v->c = NULL;    v->c = NULL;
447    
448    if (token == T_NUM)    if (lex_is_number ())
449      {      {
450        v->f = tokval;        v->f = tokval;
451        lex_get ();        lex_get ();
# Line 540  parse_src_spec (struct rcd_var * rcd, in Line 540  parse_src_spec (struct rcd_var * rcd, in
540                      return 0;                      return 0;
541                    if (lex_match_id ("HI") || lex_match_id ("HIGHEST"))                    if (lex_match_id ("HI") || lex_match_id ("HIGHEST"))
542                      c->type = RCD_ELSE;                      c->type = RCD_ELSE;
543                    else if (token == T_NUM)                    else if (lex_is_number ())
544                      {                      {
545                        c->type = RCD_LOW;                        c->type = RCD_LOW;
546                        c->f1.f = tokval;                        c->f1.f = tokval;
# Line 568  parse_src_spec (struct rcd_var * rcd, in Line 568  parse_src_spec (struct rcd_var * rcd, in
568                    return 0;                    return 0;
569                  }                  }
570              }              }
571            else if (token == T_NUM)            else if (lex_is_number ())
572              {              {
573                c->f1.f = tokval;                c->f1.f = tokval;
574                lex_get ();                lex_get ();
# Line 576  parse_src_spec (struct rcd_var * rcd, in Line 576  parse_src_spec (struct rcd_var * rcd, in
576                  {                  {
577                    if (lex_match_id ("HI") || lex_match_id ("HIGHEST"))                    if (lex_match_id ("HI") || lex_match_id ("HIGHEST"))
578                      c->type = RCD_HIGH;                      c->type = RCD_HIGH;
579                    else if (token == T_NUM)                    else if (lex_is_number ())
580                      {                      {
581                        c->type = RCD_RANGE;                        c->type = RCD_RANGE;
582                        c->f2.f = tokval;                        c->f2.f = tokval;

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