X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fnumeric.c;h=25b2ecf8f06719fb43cceb3ba0467448fc17049e;hb=81579d9e9f994fb2908f50af41c3eb033d216e58;hp=41f3c79a67b8bcc3ea5b1194f770a93535f86713;hpb=726b2e7b2b7a79f0cf860efe43e349762bf3f44e;p=pspp-builds.git diff --git a/src/language/dictionary/numeric.c b/src/language/dictionary/numeric.c index 41f3c79a..25b2ecf8 100644 --- a/src/language/dictionary/numeric.c +++ b/src/language/dictionary/numeric.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2006, 2010 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2006, 2010, 2011 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 @@ -18,17 +18,17 @@ #include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include +#include "data/dictionary.h" +#include "data/procedure.h" +#include "data/variable.h" +#include "data/format.h" +#include "language/command.h" +#include "language/lexer/format-parser.h" +#include "language/lexer/lexer.h" +#include "language/lexer/variable-parser.h" +#include "libpspp/assertion.h" +#include "libpspp/message.h" +#include "libpspp/str.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -53,7 +53,7 @@ cmd_numeric (struct lexer *lexer, struct dataset *ds) return CMD_FAILURE; /* Get the optional format specification. */ - if (lex_match (lexer, '(')) + if (lex_match (lexer, T_LPAREN)) { if (!parse_format_specifier (lexer, &f)) goto fail; @@ -69,7 +69,7 @@ cmd_numeric (struct lexer *lexer, struct dataset *ds) goto fail; } - if (!lex_match (lexer, ')')) + if (!lex_match (lexer, T_RPAREN)) { msg (SE, _("`)' expected after output format.")); goto fail; @@ -96,7 +96,7 @@ cmd_numeric (struct lexer *lexer, struct dataset *ds) free (v[i]); free (v); } - while (lex_match (lexer, '/')); + while (lex_match (lexer, T_SLASH)); return lex_end_of_command (lexer); @@ -130,9 +130,9 @@ cmd_string (struct lexer *lexer, struct dataset *ds) if (!parse_DATA_LIST_vars (lexer, &v, &nv, PV_NO_DUPLICATE)) return CMD_FAILURE; - if (!lex_force_match (lexer, '(') + if (!lex_force_match (lexer, T_LPAREN) || !parse_format_specifier (lexer, &f) - || !lex_force_match (lexer, ')')) + || !lex_force_match (lexer, T_RPAREN)) goto fail; if (!fmt_is_string (f.type)) { @@ -162,7 +162,7 @@ cmd_string (struct lexer *lexer, struct dataset *ds) free (v[i]); free (v); } - while (lex_match (lexer, '/')); + while (lex_match (lexer, T_SLASH)); return lex_end_of_command (lexer);