1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 1997-9, 2000, 2006, 2010, 2011 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 #include "language/lexer/format-parser.h"
25 #include "data/format.h"
26 #include "data/variable.h"
27 #include "language/lexer/format-parser.h"
28 #include "language/lexer/lexer.h"
29 #include "libpspp/message.h"
30 #include "libpspp/misc.h"
31 #include "libpspp/str.h"
34 #define _(msgid) gettext (msgid)
37 parse_abstract_format_specifier__ (struct lexer *lexer,
38 char type[FMT_TYPE_LEN_MAX + 1],
39 int *width, int *decimals)
42 struct substring type_ss, width_ss, decimals_ss;
45 if (lex_token (lexer) != T_ID)
49 s = ss_cstr (lex_tokcstr (lexer));
50 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_LETTERS)), &type_ss);
51 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &width_ss);
52 if (ss_match_byte (&s, '.'))
55 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &decimals_ss);
61 if (ss_is_empty (type_ss) || ss_length (type_ss) > FMT_TYPE_LEN_MAX)
63 if (has_decimals && ss_is_empty (decimals_ss))
69 These uses of strtol are valid only because we know that
70 their substrings are followed by non-digit characters. */
71 str_copy_buf_trunc (type, FMT_TYPE_LEN_MAX + 1,
72 ss_data (type_ss), ss_length (type_ss));
73 *width = strtol (ss_data (width_ss), NULL, 10);
74 *decimals = has_decimals ? strtol (ss_data (decimals_ss), NULL, 10) : 0;
79 lex_error (lexer, _("expecting valid format specifier"));
83 /* Parses a token taking the form of a format specifier and
84 returns true only if successful. Emits an error message on
85 failure. Stores a null-terminated string representing the
86 format type in TYPE, and the width and number of decimal
87 places in *WIDTH and *DECIMALS.
89 TYPE is not checked as to whether it is really the name of a
90 format. Both width and decimals are considered optional. If
91 missing, *WIDTH or *DECIMALS or both will be set to 0. */
93 parse_abstract_format_specifier (struct lexer *lexer,
94 char type[FMT_TYPE_LEN_MAX + 1],
95 int *width, int *decimals)
97 bool ok = parse_abstract_format_specifier__ (lexer, type, width, decimals);
103 /* Parses a format specifier from the token stream and returns
104 true only if successful. Emits an error message on
105 failure. The caller should call check_input_specifier() or
106 check_output_specifier() on the parsed format as
109 parse_format_specifier (struct lexer *lexer, struct fmt_spec *format)
111 char type[FMT_TYPE_LEN_MAX + 1];
113 if (!parse_abstract_format_specifier__ (lexer, type, &format->w, &format->d))
116 if (!fmt_from_name (type, &format->type))
118 msg (SE, _("Unknown format type `%s'."), type);
126 /* Parses a token containing just the name of a format type and
127 returns true if successful. */
129 parse_format_specifier_name (struct lexer *lexer, enum fmt_type *type)
131 if (lex_token (lexer) != T_ID)
133 lex_error (lexer, _("expecting format type"));
136 if (!fmt_from_name (lex_tokcstr (lexer), type))
138 msg (SE, _("Unknown format type `%s'."), lex_tokcstr (lexer));