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

Diff of /pspp/src/moments.c

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

revision 1.3 by blp, Wed Apr 14 02:26:38 2004 UTC revision 1.4 by blp, Mon Mar 7 03:04:50 2005 UTC
# Line 501  read_values (double **values, double **w Line 501  read_values (double **values, double **w
501    *values = NULL;    *values = NULL;
502    *weights = NULL;    *weights = NULL;
503    *cnt = 0;    *cnt = 0;
504    while (token == T_NUM)    while (lex_is_number ())
505      {      {
506        double value = tokval;        double value = tokval;
507        double weight = 1.;        double weight = 1.;
508        lex_get ();        lex_get ();
509        if (lex_match ('*'))        if (lex_match ('*'))
510          {          {
511            if (token != T_NUM)            if (!lex_is_number ())
512              {              {
513                lex_error (_("expecting weight value"));                lex_error (_("expecting weight value"));
514                return 0;                return 0;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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