1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 1997-9, 2000, 2006, 2010, 2011, 2012 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/lexer.h"
28 #include "libpspp/message.h"
29 #include "libpspp/misc.h"
30 #include "libpspp/str.h"
33 #define _(msgid) gettext (msgid)
36 parse_abstract_format_specifier__ (struct lexer *lexer,
37 char type[FMT_TYPE_LEN_MAX + 1],
38 uint16_t *width, uint8_t *decimals)
41 struct substring type_ss, width_ss, decimals_ss;
44 if (lex_token (lexer) != T_ID && lex_token (lexer) != T_STRING)
48 s = ss_cstr (lex_tokcstr (lexer));
49 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_LETTERS)), &type_ss);
50 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &width_ss);
51 if (ss_match_byte (&s, '.'))
54 ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &decimals_ss);
60 if (ss_is_empty (type_ss) || ss_length (type_ss) > FMT_TYPE_LEN_MAX)
62 if (has_decimals && ss_is_empty (decimals_ss))
68 These uses of strtol are valid only because we know that
69 their substrings are followed by non-digit characters. */
70 str_copy_buf_trunc (type, FMT_TYPE_LEN_MAX + 1,
71 ss_data (type_ss), ss_length (type_ss));
72 *width = strtol (ss_data (width_ss), NULL, 10);
73 *decimals = has_decimals ? strtol (ss_data (decimals_ss), NULL, 10) : 0;
78 lex_error (lexer, _("expecting valid format specifier"));
82 /* Parses a token taking the form of a format specifier and
83 returns true only if successful. Emits an error message on
84 failure. Stores a null-terminated string representing the
85 format type in TYPE, and the width and number of decimal
86 places in *WIDTH and *DECIMALS.
88 TYPE is not checked as to whether it is really the name of a
89 format. Both width and decimals are considered optional. If
90 missing, *WIDTH or *DECIMALS or both will be set to 0. */
92 parse_abstract_format_specifier (struct lexer *lexer,
93 char type[FMT_TYPE_LEN_MAX + 1],
94 uint16_t *width, uint8_t *decimals)
96 bool ok = parse_abstract_format_specifier__ (lexer, type, width, decimals);
102 /* Parses a format specifier from the token stream and returns
103 true only if successful. Emits an error message on
104 failure. The caller should call check_input_specifier() or
105 check_output_specifier() on the parsed format as
108 parse_format_specifier (struct lexer *lexer, struct fmt_spec *format)
110 char type[FMT_TYPE_LEN_MAX + 1];
112 if (!parse_abstract_format_specifier__ (lexer, type, &format->w, &format->d))
115 if (!fmt_from_name (type, &format->type))
117 msg (SE, _("Unknown format type `%s'."), type);
121 if (format->w == 0 && !strchr (lex_tokcstr (lexer), '0'))
123 msg (SE, _("Format specifier `%s' lacks required width."),
124 lex_tokcstr (lexer));
132 /* Parses a token containing just the name of a format type and
133 returns true if successful. */
135 parse_format_specifier_name (struct lexer *lexer, enum fmt_type *type)
137 if (lex_token (lexer) != T_ID)
139 lex_error (lexer, _("expecting format type"));
142 if (!fmt_from_name (lex_tokcstr (lexer), type))
144 msg (SE, _("Unknown format type `%s'."), lex_tokcstr (lexer));