You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
#include <config.h>
-
+#include "format.h"
#include <ctype.h>
-#include <assert.h>
+#include "error.h"
#include <stdlib.h>
#include "error.h"
-#include "format.h"
#include "lexer.h"
#include "misc.h"
#include "str.h"
+#include "var.h"
#define DEFFMT(LABEL, NAME, N_ARGS, IMIN_W, IMAX_W, OMIN_W, OMAX_W, CAT, \
OUTPUT, SPSS_FMT) \
{"", -1, -1, -1, -1, -1, 0000, -1, -1},
};
-const int translate_fmt[40] =
- {
- -1, FMT_A, FMT_AHEX, FMT_COMMA, FMT_DOLLAR, FMT_F, FMT_IB,
- FMT_PIBHEX, FMT_P, FMT_PIB, FMT_PK, FMT_RB, FMT_RBHEX, -1,
- -1, FMT_Z, FMT_N, FMT_E, -1, -1, FMT_DATE, FMT_TIME,
- FMT_DATETIME, FMT_ADATE, FMT_JDATE, FMT_DTIME, FMT_WKDAY,
- FMT_MONTH, FMT_MOYR, FMT_QYR, FMT_WKYR, FMT_PCT, FMT_DOT,
- FMT_CCA, FMT_CCB, FMT_CCC, FMT_CCD, FMT_CCE, FMT_EDATE,
- FMT_SDATE,
- };
-
+/* Parses the alphabetic prefix of the current token as a format
+ specifier name. Returns the corresponding format specifier
+ type if successful, or -1 on failure. If ALLOW_XT is zero,
+ then X and T format specifiers are not allowed. If CP is
+ nonzero, then *CP is set to the first non-alphabetic character
+ in the current token on success or to a null pointer on
+ failure. */
int
-parse_format_specifier_name (const char **cp, int allow_xt)
+parse_format_specifier_name (const char **cp, enum fmt_parse_flags flags)
{
- struct fmt_desc *f;
- char *ep;
- int x;
+ char *sp, *ep;
+ int idx;
- ep = ds_value (&tokstr);
+ sp = ep = ds_c_str (&tokstr);
while (isalpha ((unsigned char) *ep))
ep++;
- x = *ep;
- *ep = 0;
-
- for (f = formats; f->name[0]; f++)
- if (!strcmp (f->name, ds_value (&tokstr)))
- {
- int indx = f - formats;
- *ep = x;
- if (cp)
- *cp = ep;
+ if (sp != ep)
+ {
+ /* Find format. */
+ for (idx = 0; idx < FMT_NUMBER_OF_FORMATS; idx++)
+ if (strlen (formats[idx].name) == ep - sp
+ && !mm_case_compare (formats[idx].name, sp, ep - sp))
+ break;
- if (!allow_xt && (indx == FMT_T || indx == FMT_X))
- {
- msg (SE, _("X and T format specifiers not allowed here."));
- return -1;
- }
- return indx;
- }
+ /* Check format. */
+ if (idx < FMT_NUMBER_OF_FORMATS)
+ {
+ if (!(flags & FMTP_ALLOW_XT) && (idx == FMT_T || idx == FMT_X))
+ {
+ if (!(flags & FMTP_SUPPRESS_ERRORS))
+ msg (SE, _("X and T format specifiers not allowed here."));
+ idx = -1;
+ }
+ }
+ else
+ {
+ /* No match. */
+ if (!(flags & FMTP_SUPPRESS_ERRORS))
+ msg (SE, _("%.*s is not a valid data format."),
+ (int) (ep - sp), ds_c_str (&tokstr));
+ idx = -1;
+ }
+ }
+ else
+ {
+ lex_error ("expecting data format");
+ idx = -1;
+ }
+
+ if (cp != NULL)
+ {
+ if (idx != -1)
+ *cp = ep;
+ else
+ *cp = NULL;
+ }
- msg (SE, _("%s is not a valid data format."), ds_value (&tokstr));
- *ep = x;
- return -1;
+ return idx;
}
/* Converts F to its string representation (for instance, "F8.2") and
return buf;
}
+/* Does checks in common betwen check_input_specifier() and
+ check_output_specifier() and returns true if so. Otherwise,
+ emits an error message (if EMIT_ERROR is nonzero) and returns
+ false. */
+static bool
+check_common_specifier (const struct fmt_spec *spec, bool emit_error)
+{
+ struct fmt_desc *f = &formats[spec->type];
+ char *str = fmt_to_string (spec);
+
+ if ((f->cat & FCAT_EVEN_WIDTH) && spec->w % 2)
+ {
+ if (emit_error)
+ msg (SE, _("Format %s specifies an odd width %d, but "
+ "format %s requires an even width."),
+ str, spec->w, f->name, f->Imin_w, f->Imax_w);
+ return false;
+ }
+ if (f->n_args > 1 && (spec->d < 0 || spec->d > 16))
+ {
+ if (emit_error)
+ msg (SE, _("Format %s specifies a bad number of "
+ "implied decimal places %d. Input format %s allows "
+ "up to 16 implied decimal places."), str, spec->d, f->name);
+ return false;
+ }
+ return true;
+}
+
+/* Checks whether SPEC is valid as an input format and returns
+ nonzero if so. Otherwise, emits an error message (if
+ EMIT_ERROR is nonzero) and returns zero. */
int
-check_input_specifier (const struct fmt_spec *spec)
+check_input_specifier (const struct fmt_spec *spec, int emit_error)
{
- struct fmt_desc *f;
- char *str;
+ struct fmt_desc *f = &formats[spec->type];
+ char *str = fmt_to_string (spec);
- f = &formats[spec->type];
- str = fmt_to_string (spec);
+ if (!check_common_specifier (spec, emit_error))
+ return false;
if (spec->type == FMT_X)
return 1;
if (f->cat & FCAT_OUTPUT_ONLY)
{
- msg (SE, _("Format %s may not be used as an input format."), f->name);
+ if (emit_error)
+ msg (SE, _("Format %s may not be used as an input format."), f->name);
return 0;
}
if (spec->w < f->Imin_w || spec->w > f->Imax_w)
{
- msg (SE, _("Input format %s specifies a bad width %d. "
- "Format %s requires a width between %d and %d."),
- str, spec->w, f->name, f->Imin_w, f->Imax_w);
- return 0;
- }
- if ((f->cat & FCAT_EVEN_WIDTH) && spec->w % 2)
- {
- msg (SE, _("Input format %s specifies an odd width %d, but "
- "format %s requires an even width between %d and "
- "%d."), str, spec->w, f->name, f->Imin_w, f->Imax_w);
- return 0;
- }
- if (f->n_args > 1 && (spec->d < 0 || spec->d > 16))
- {
- msg (SE, _("Input format %s specifies a bad number of "
- "implied decimal places %d. Input format %s allows "
- "up to 16 implied decimal places."), str, spec->d, f->name);
+ if (emit_error)
+ msg (SE, _("Input format %s specifies a bad width %d. "
+ "Format %s requires a width between %d and %d."),
+ str, spec->w, f->name, f->Imin_w, f->Imax_w);
return 0;
}
return 1;
}
+/* Checks whether SPEC is valid as an output format and returns
+ nonzero if so. Otherwise, emits an error message (if
+ EMIT_ERROR is nonzero) and returns zero. */
int
-check_output_specifier (const struct fmt_spec *spec)
+check_output_specifier (const struct fmt_spec *spec, int emit_error)
{
- struct fmt_desc *f;
- char *str;
+ struct fmt_desc *f = &formats[spec->type];
+ char *str = fmt_to_string (spec);
- f = &formats[spec->type];
- str = fmt_to_string (spec);
+ if (!check_common_specifier (spec, emit_error))
+ return false;
if (spec->type == FMT_X)
return 1;
if (spec->w < f->Omin_w || spec->w > f->Omax_w)
{
- msg (SE, _("Output format %s specifies a bad width %d. "
- "Format %s requires a width between %d and %d."),
- str, spec->w, f->name, f->Omin_w, f->Omax_w);
+ if (emit_error)
+ msg (SE, _("Output format %s specifies a bad width %d. "
+ "Format %s requires a width between %d and %d."),
+ str, spec->w, f->name, f->Omin_w, f->Omax_w);
return 0;
}
if (spec->d > 1
|| spec->type == FMT_DOLLAR)
&& spec->w < f->Omin_w + 1 + spec->d)
{
- msg (SE, _("Output format %s requires minimum width %d to allow "
- "%d decimal places. Try %s%d.%d instead of %s."),
- f->name, f->Omin_w + 1 + spec->d, spec->d, f->name,
- f->Omin_w + 1 + spec->d, spec->d, str);
- return 0;
- }
- if ((f->cat & FCAT_EVEN_WIDTH) && spec->w % 2)
- {
- msg (SE, _("Output format %s specifies an odd width %d, but "
- "output format %s requires an even width between %d and "
- "%d."), str, spec->w, f->name, f->Omin_w, f->Omax_w);
- return 0;
- }
- if (f->n_args > 1 && (spec->d < 0 || spec->d > 16))
- {
- msg (SE, _("Output format %s specifies a bad number of "
- "implied decimal places %d. Output format %s allows "
- "a number of implied decimal places between 1 "
- "and 16."), str, spec->d, f->name);
+ if (emit_error)
+ msg (SE, _("Output format %s requires minimum width %d to allow "
+ "%d decimal places. Try %s%d.%d instead of %s."),
+ f->name, f->Omin_w + 1 + spec->d, spec->d, f->name,
+ f->Omin_w + 1 + spec->d, spec->d, str);
return 0;
}
return 1;
}
-/* If a string variable has width W, you can't display it with a
- format specifier with a required width MIN_LEN>W. */
-int
-check_string_specifier (const struct fmt_spec *f, int min_len)
+/* Checks that FORMAT is appropriate for a variable of the given
+ TYPE and returns true if so. Otherwise returns false and (if
+ EMIT_ERROR is true) emits an error message. */
+bool
+check_specifier_type (const struct fmt_spec *format,
+ int type, bool emit_error)
{
- if ((f->type == FMT_A && min_len > f->w)
- || (f->type == FMT_AHEX && min_len * 2 > f->w))
+ const struct fmt_desc *f = &formats[format->type];
+ assert (type == NUMERIC || type == ALPHA);
+ if ((type == ALPHA) != ((f->cat & FCAT_STRING) != 0))
{
- msg (SE, _("Can't display a string variable of width %d with "
- "format specifier %s."), min_len, fmt_to_string (f));
- return 0;
+ if (emit_error)
+ msg (SE, _("%s variables are not compatible with %s format %s."),
+ type == ALPHA ? _("String") : _("Numeric"),
+ type == ALPHA ? _("numeric") : _("string"),
+ fmt_to_string (format));
+ return false;
}
- return 1;
+ return true;
+}
+
+/* Checks that FORMAT is appropriate for a variable of the given
+ WIDTH and returns true if so. Otherwise returns false and (if
+ EMIT_ERROR is true) emits an error message. */
+bool
+check_specifier_width (const struct fmt_spec *format,
+ int width, bool emit_error)
+{
+ if (!check_specifier_type (format, width != 0 ? ALPHA : NUMERIC, emit_error))
+ return false;
+ if (get_format_var_width (format) != width)
+ {
+ if (emit_error)
+ msg (SE, _("String variable with width %d not compatible with "
+ "format %s."),
+ width, fmt_to_string (format));
+ return false;
+ }
+ return true;
}
+/* Converts input format specifier INPUT into output format
+ specifier OUTPUT. */
void
convert_fmt_ItoO (const struct fmt_spec *input, struct fmt_spec *output)
{
}
}
+/* Parses a format specifier from the token stream and returns
+ nonzero only if successful. Emits an error message on
+ failure. Allows X and T format specifiers only if ALLOW_XT is
+ nonzero. The caller should call check_input_specifier() or
+ check_output_specifier() on the parsed format as
+ necessary. */
int
-parse_format_specifier (struct fmt_spec *input, int allow_xt)
+parse_format_specifier (struct fmt_spec *input, enum fmt_parse_flags flags)
{
struct fmt_spec spec;
struct fmt_desc *f;
if (token != T_ID)
{
- msg (SE, _("Format specifier expected."));
+ if (!(flags & FMTP_SUPPRESS_ERRORS))
+ msg (SE, _("Format specifier expected."));
return 0;
}
- type = parse_format_specifier_name (&cp, allow_xt);
+ type = parse_format_specifier_name (&cp, flags);
if (type == -1)
return 0;
f = &formats[type];
w = strtol (cp, &cp2, 10);
if (cp2 == cp && type != FMT_X)
{
- msg (SE, _("Data format %s does not specify a width."),
- ds_value (&tokstr));
+ if (!(flags & FMTP_SUPPRESS_ERRORS))
+ msg (SE, _("Data format %s does not specify a width."),
+ ds_c_str (&tokstr));
return 0;
}
if (*cp)
{
- msg (SE, _("Data format %s is not valid."), ds_value (&tokstr));
+ if (!(flags & FMTP_SUPPRESS_ERRORS))
+ msg (SE, _("Data format %s is not valid."), ds_c_str (&tokstr));
return 0;
}
lex_get ();
return 1;
}
+/* Returns the width corresponding to the format specifier. The
+ return value is the value of the `width' member of a `struct
+ variable' for such an input format. */
+int
+get_format_var_width (const struct fmt_spec *spec)
+{
+ if (spec->type == FMT_AHEX)
+ return spec->w / 2;
+ else if (spec->type == FMT_A)
+ return spec->w;
+ else
+ return 0;
+}
+
+/* Returns the PSPP format corresponding to the given SPSS
+ format. */
+int
+translate_fmt (int spss)
+{
+ int type;
+
+ for (type = 0; type < FMT_NUMBER_OF_FORMATS; type++)
+ if (formats[type].spss == spss)
+ return type;
+ return -1;
+}