1 /* PSPP - computes sample statistics.
2 Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
5 This program is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
32 /*#define DEBUGGING 1*/
33 #include "debug-print.h"
36 static void debug_print (void);
45 static int internal_cmd_formats (int);
48 cmd_print_formats (void)
50 lex_match_id ("FORMATS");
51 return internal_cmd_formats (FORMATS_PRINT);
55 cmd_write_formats (void)
57 lex_match_id ("FORMATS");
58 return internal_cmd_formats (FORMATS_WRITE);
64 lex_match_id ("FORMATS");
65 return internal_cmd_formats (FORMATS_PRINT | FORMATS_WRITE);
69 internal_cmd_formats (int which)
75 /* Format to set the variables to. */
78 /* Numeric or string. */
89 if (!parse_variables (NULL, &v, &cv, PV_SAME_TYPE))
90 return CMD_PART_SUCCESS_MAYBE;
95 msg (SE, _("`(' expected after variable list"));
98 if (!parse_format_specifier (&f, 0) || !check_output_specifier (&f))
101 /* Catch type mismatch errors. */
102 if ((type == ALPHA) ^ (0 != (formats[f.type].cat & FCAT_STRING)))
104 msg (SE, _("Format %s may not be assigned to a %s variable."),
105 fmt_to_string (&f), type == NUMERIC ? _("numeric") : _("string"));
109 /* This is an additional check for string variables. We can't
110 let the user specify an A8 format for a string variable with
114 /* Shortest string so far. */
115 int min_len = INT_MAX;
117 for (i = 0; i < cv; i++)
118 min_len = min (min_len, v[i]->width);
119 if (!check_string_specifier (&f, min_len))
123 if (!lex_match (')'))
125 msg (SE, _("`)' expected after output format."));
129 for (i = 0; i < cv; i++)
131 if (which & FORMATS_PRINT)
133 if (which & FORMATS_WRITE)
146 return CMD_PART_SUCCESS_MAYBE;
155 printf (_("Formats:\n"));
156 printf (_(" Name Print Write\n"));
157 printf (" -------- ------------ ------------\n");
158 for (i = 0; i < default_dict.nvar; i++)
160 struct variable *v = default_dict.var[i];
161 printf (" %-8s %-12s", v->name, fmt_to_string (&v->print));
162 printf (" %-12s\n", fmt_to_string (&v->write));
165 #endif /* DEBUGGING */