X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Ftests%2Fmoments-test.c;h=f5fc858dd4d2b130f0af647f14ad7483e92dc311;hb=01b8f463e64469622cfe56f123e23a45d36d5d52;hp=0e10b7fdab67b96b2698a402f2c9dc665660ccde;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp-builds.git diff --git a/src/language/tests/moments-test.c b/src/language/tests/moments-test.c index 0e10b7fd..f5fc858d 100644 --- a/src/language/tests/moments-test.c +++ b/src/language/tests/moments-test.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2010 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -40,7 +40,7 @@ read_values (struct lexer *lexer, double **values, double **weights, size_t *cnt double value = lex_tokval (lexer); double weight = 1.; lex_get (lexer); - if (lex_match (lexer, '*')) + if (lex_match (lexer, T_ASTERISK)) { if (!lex_is_number (lexer)) { @@ -79,12 +79,11 @@ cmd_debug_moments (struct lexer *lexer, struct dataset *ds UNUSED) if (lex_match_id (lexer, "ONEPASS")) two_pass = 0; - if (lex_token (lexer) != '/') + if (lex_token (lexer) != T_SLASH) { - lex_force_match (lexer, '/'); + lex_force_match (lexer, T_SLASH); goto done; } - fprintf (stderr, "%s => ", lex_rest_of_line (lexer)); lex_get (lexer); if (two_pass) @@ -123,7 +122,7 @@ cmd_debug_moments (struct lexer *lexer, struct dataset *ds UNUSED) fprintf (stderr, "W=%.3f", weight); for (i = 0; i < 4; i++) { - fprintf (stderr, " M%d=", (int) i + 1); + fprintf (stderr, " M%zu=", i + 1); if (M[i] == SYSMIS) fprintf (stderr, "sysmis"); else if (fabs (M[i]) <= 0.0005)