/[pspp]/pspp/src/expressions/evaluate.c
ViewVC logotype

Diff of /pspp/src/expressions/evaluate.c

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

revision 1.1 by blp, Tue Mar 1 08:16:16 2005 UTC revision 1.2 by blp, Mon Mar 7 03:04:50 2005 UTC
# Line 140  cmd_debug_evaluate (void) Line 140  cmd_debug_evaluate (void)
140            if (!lex_force_match ('='))            if (!lex_force_match ('='))
141              goto done;              goto done;
142    
143            if (token == T_NUM)            if (lex_is_number ())
144              {              {
145                width = 0;                width = 0;
146                fprintf (stderr, "(%s = %.2f)", name, tokval);                fprintf (stderr, "(%s = %.2f)", name, tokval);
# Line 174  cmd_debug_evaluate (void) Line 174  cmd_debug_evaluate (void)
174              }              }
175            case_resize (c, old_value_cnt, dict_get_next_value_idx (d));            case_resize (c, old_value_cnt, dict_get_next_value_idx (d));
176    
177            if (token == T_NUM)            if (lex_is_number ())
178              case_data_rw (c, v->fv)->f = tokval;              case_data_rw (c, v->fv)->f = tokval;
179            else            else
180              memcpy (case_data_rw (c, v->fv)->s, ds_data (&tokstr),              memcpy (case_data_rw (c, v->fv)->s, ds_data (&tokstr),
# Line 198  cmd_debug_evaluate (void) Line 198  cmd_debug_evaluate (void)
198    lex_get ();    lex_get ();
199    
200    expr = expr_parse_any (d, optimize);    expr = expr_parse_any (d, optimize);
201    if (!expr || token != '.')    if (!expr || lex_end_of_command () != CMD_SUCCESS)
202      {      {
203        if (expr != NULL)        if (expr != NULL)
204          expr_free (expr);          expr_free (expr);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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