Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |