1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 1997-9, 2000, 2006 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/>. */
24 #include <data/data-in.h>
25 #include <data/data-out.h>
26 #include <data/dictionary.h>
27 #include <data/format.h>
28 #include <data/procedure.h>
29 #include <data/settings.h>
30 #include <data/value.h>
31 #include <data/variable.h>
32 #include <language/command.h>
33 #include <language/lexer/format-parser.h>
34 #include <language/lexer/lexer.h>
35 #include <language/prompt.h>
36 #include <libpspp/compiler.h>
37 #include <libpspp/copyleft.h>
38 #include <libpspp/float-format.h>
39 #include <libpspp/integer-format.h>
40 #include <libpspp/message.h>
41 #include <math/random.h>
42 #include <output/journal.h>
43 #include <output/output.h>
48 #else /* !HAVE_TERMCAP_H */
49 int tgetent (char *, const char *);
50 int tgetnum (const char *);
51 #endif /* !HAVE_TERMCAP_H */
52 #endif /* !HAVE_LIBTERMCAP */
57 #define _(msgid) gettext (msgid)
62 block=string "x==1" "one character long";
63 boxstring=string "x==3 || x==11" "3 or 11 characters long";
64 case=size:upper/uplow;
70 compression=compress:on/off;
71 cpi=integer "x>0" "%s must be greater than 0";
73 decimal=dec:dot/comma;
77 endcmd=string "x==1" "one character long";
79 errorbreak=errbrk:on/off;
80 errors=errors:terminal/listing/both/on/none/off;
82 headers=headers:no/yes/blank;
84 histogram=string "x==1" "one character long";
90 lowres=lores:auto/on/off;
91 lpi=integer "x>0" "%s must be greater than 0";
92 menus=menus:standard/extended;
93 messages=messages:on/off/terminal/listing/both/on/none/off;
95 miterate=integer "x>0" "%s must be greater than 0";
96 mnest=integer "x>0" "%s must be greater than 0";
98 mxerrs=integer "x >= 1" "%s must be at least 1";
99 mxloops=integer "x >=1" "%s must be at least 1";
103 printback=prtbck:on/off;
105 results=res:on/off/terminal/listing/both/on/none/off;
106 rib=rib:msbfirst/lsbfirst/vax/native;
107 rrb=rrb:native/isl/isb/idl/idb/vf/vd/vg/zs/zl;
109 scompression=scompress:on/off;
110 scripttab=string "x==1" "one character long";
112 tb1=string "x==3 || x==11" "3 or 11 characters long";
114 undefined=undef:warn/nowarn;
115 wib=wib:msbfirst/lsbfirst/vax/native;
116 wrb=wrb:native/isl/isb/idl/idb/vf/vd/vg/zs/zl;
118 workspace=integer "x>0" "%s must be positive";
128 static enum integer_format stc_to_integer_format (int stc);
129 static enum float_format stc_to_float_format (int stc);
132 cmd_set (struct lexer *lexer, struct dataset *ds)
136 if (!parse_set (lexer, ds, &cmd, NULL))
143 settings_set_cc ( cmd.s_cca, FMT_CCA);
145 settings_set_cc ( cmd.s_ccb, FMT_CCB);
147 settings_set_cc ( cmd.s_ccc, FMT_CCC);
149 settings_set_cc ( cmd.s_ccd, FMT_CCD);
151 settings_set_cc ( cmd.s_cce, FMT_CCE);
154 prompt_set (PROMPT_FIRST, cmd.s_prompt);
156 prompt_set (PROMPT_LATER, cmd.s_cprompt);
158 prompt_set (PROMPT_DATA, cmd.s_dprompt);
161 settings_set_decimal_char (cmd.dec == STC_DOT ? '.' : ',');
164 settings_set_echo (cmd.echo == STC_ON);
166 settings_set_endcmd (cmd.s_endcmd[0]);
167 if (cmd.sbc_errorbreak)
168 settings_set_errorbreak (cmd.errbrk == STC_ON);
171 bool both = cmd.errors == STC_BOTH || cmd.errors == STC_ON;
172 settings_set_error_routing_to_terminal (cmd.errors == STC_TERMINAL || both);
173 settings_set_error_routing_to_listing (cmd.errors == STC_LISTING || both);
176 settings_set_include (cmd.inc == STC_ON);
178 settings_set_mxerrs (cmd.n_mxerrs[0]);
180 settings_set_mxwarns (cmd.n_mxwarns[0]);
182 settings_set_nulline (cmd.null == STC_ON);
184 settings_set_input_integer_format (stc_to_integer_format (cmd.rib));
186 settings_set_input_float_format (stc_to_float_format (cmd.rrb));
188 settings_set_safer_mode ();
189 if (cmd.sbc_scompression)
190 settings_set_scompression (cmd.scompress == STC_ON);
191 if (cmd.sbc_undefined)
192 settings_set_undefined (cmd.undef == STC_WARN);
194 settings_set_output_integer_format (stc_to_integer_format (cmd.wib));
196 settings_set_output_float_format (stc_to_float_format (cmd.wrb));
197 if (cmd.sbc_workspace)
199 if ( cmd.n_workspace[0] < 1024 && ! settings_get_testing_mode ())
200 msg (SE, _("WORKSPACE must be at least 1MB"));
202 settings_set_workspace (cmd.n_workspace[0] * 1024L);
206 msg (SW, _("%s is obsolete."), "BLOCK");
207 if (cmd.sbc_boxstring)
208 msg (SW, _("%s is obsolete."), "BOXSTRING");
209 if (cmd.sbc_histogram)
210 msg (SW, _("%s is obsolete."), "HISTOGRAM");
212 msg (SW, _("%s is obsolete."), "MENUS");
214 msg (SW, _("%s is obsolete."), "XSORT");
215 if (cmd.sbc_mxmemory)
216 msg (SE, _("%s is obsolete."), "MXMEMORY");
217 if (cmd.sbc_scripttab)
218 msg (SE, _("%s is obsolete."), "SCRIPTTAB");
220 msg (SW, _("%s is obsolete."), "TBFONTS");
221 if (cmd.sbc_tb1 && cmd.s_tb1)
222 msg (SW, _("%s is obsolete."), "TB1");
225 msg (SW, _("%s is not implemented."), "CASE");
227 if (cmd.sbc_compression)
228 msg (SW, _("Active file compression is not implemented."));
235 /* Returns the integer_format value corresponding to STC,
236 which should be the value of cmd.rib or cmd.wib. */
237 static enum integer_format
238 stc_to_integer_format (int stc)
240 return (stc == STC_MSBFIRST ? INTEGER_MSB_FIRST
241 : stc == STC_LSBFIRST ? INTEGER_LSB_FIRST
242 : stc == STC_VAX ? INTEGER_VAX
246 /* Returns the float_format value corresponding to STC,
247 which should be the value of cmd.rrb or cmd.wrb. */
248 static enum float_format
249 stc_to_float_format (int stc)
254 return FLOAT_NATIVE_DOUBLE;
257 return FLOAT_IEEE_SINGLE_LE;
259 return FLOAT_IEEE_SINGLE_BE;
261 return FLOAT_IEEE_DOUBLE_LE;
263 return FLOAT_IEEE_DOUBLE_BE;
273 return FLOAT_Z_SHORT;
283 /* Parses the BLANKS subcommand, which controls the value that
284 completely blank fields in numeric data imply. X, Wnd: Syntax is
285 SYSMIS or a numeric value. */
287 stc_custom_blanks (struct lexer *lexer,
288 struct dataset *ds UNUSED,
289 struct cmd_set *cmd UNUSED, void *aux UNUSED)
291 lex_match (lexer, '=');
292 if (lex_match_id (lexer, "SYSMIS"))
295 settings_set_blanks (SYSMIS);
299 if (!lex_force_num (lexer))
301 settings_set_blanks (lex_number (lexer));
307 /* Parses the EPOCH subcommand, which controls the epoch used for
308 parsing 2-digit years. */
310 stc_custom_epoch (struct lexer *lexer,
311 struct dataset *ds UNUSED,
312 struct cmd_set *cmd UNUSED, void *aux UNUSED)
314 lex_match (lexer, '=');
315 if (lex_match_id (lexer, "AUTOMATIC"))
316 settings_set_epoch (-1);
317 else if (lex_is_integer (lexer))
319 int new_epoch = lex_integer (lexer);
321 if (new_epoch < 1500)
323 msg (SE, _("EPOCH must be 1500 or later."));
326 settings_set_epoch (new_epoch);
330 lex_error (lexer, _("expecting AUTOMATIC or year"));
338 stc_custom_length (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
342 lex_match (lexer, '=');
343 if (lex_match_id (lexer, "NONE"))
347 if (!lex_force_int (lexer))
349 if (lex_integer (lexer) < 1)
351 msg (SE, _("LENGTH must be at least 1."));
354 page_length = lex_integer (lexer);
358 if (page_length != -1)
359 settings_set_viewlength (page_length);
365 stc_custom_seed (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
367 lex_match (lexer, '=');
368 if (lex_match_id (lexer, "RANDOM"))
372 if (!lex_force_num (lexer))
374 set_rng (lex_number (lexer));
382 stc_custom_width (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
384 lex_match (lexer, '=');
385 if (lex_match_id (lexer, "NARROW"))
386 settings_set_viewwidth (79);
387 else if (lex_match_id (lexer, "WIDE"))
388 settings_set_viewwidth (131);
391 if (!lex_force_int (lexer))
393 if (lex_integer (lexer) < 40)
395 msg (SE, _("WIDTH must be at least 40."));
398 settings_set_viewwidth (lex_integer (lexer));
405 /* Parses FORMAT subcommand, which consists of a numeric format
408 stc_custom_format (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
412 lex_match (lexer, '=');
413 if (!parse_format_specifier (lexer, &fmt))
415 if (fmt_is_string (fmt.type))
417 char str[FMT_STRING_LEN_MAX + 1];
418 msg (SE, _("FORMAT requires numeric output format as an argument. "
419 "Specified format %s is of type string."),
420 fmt_to_string (&fmt, str));
424 settings_set_format (&fmt);
429 stc_custom_journal (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
431 lex_match (lexer, '=');
432 if (lex_match_id (lexer, "ON") || lex_match_id (lexer, "YES"))
434 else if (lex_match_id (lexer, "OFF") || lex_match_id (lexer, "NO"))
436 else if (lex_token (lexer) == T_STRING || lex_token (lexer) == T_ID)
438 journal_set_file_name (ds_cstr (lex_tokstr (lexer)));
443 lex_error (lexer, NULL);
450 stc_custom_log (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
452 return stc_custom_journal (lexer, ds, cmd, aux);
456 stc_custom_listing (struct lexer *lexer, struct dataset *ds UNUSED, struct cmd_set *cmd UNUSED, void *aux UNUSED)
460 lex_match (lexer, '=');
461 if (lex_match_id (lexer, "ON") || lex_match_id (lexer, "YES"))
463 else if (lex_match_id (lexer, "OFF") || lex_match_id (lexer, "NO"))
470 outp_enable_device (listing, OUTP_DEV_LISTING);
476 stc_custom_disk (struct lexer *lexer, struct dataset *ds, struct cmd_set *cmd UNUSED, void *aux)
478 return stc_custom_listing (lexer, ds, cmd, aux);
482 show_blanks (const struct dataset *ds UNUSED)
484 if (settings_get_blanks () == SYSMIS)
485 msg (SN, _("BLANKS is SYSMIS."));
487 msg (SN, _("BLANKS is %g."), settings_get_blanks ());
492 format_cc (struct substring in, char grouping, char *out)
494 while (!ss_is_empty (in))
496 char c = ss_get_char (&in);
497 if (c == grouping || c == '\'')
507 show_cc (enum fmt_type type)
509 const struct fmt_number_style *cc = settings_get_style (type);
510 char cc_string[FMT_STYLE_AFFIX_MAX * 4 * 2 + 3 + 1];
513 out = format_cc (cc->neg_prefix, cc->grouping, cc_string);
514 *out++ = cc->grouping;
515 out = format_cc (cc->prefix, cc->grouping, out);
516 *out++ = cc->grouping;
517 out = format_cc (cc->suffix, cc->grouping, out);
518 *out++ = cc->grouping;
519 out = format_cc (cc->neg_suffix, cc->grouping, out);
522 msg (SN, _("%s is \"%s\"."), fmt_name (type), cc_string);
526 show_cca (const struct dataset *ds UNUSED)
532 show_ccb (const struct dataset *ds UNUSED)
538 show_ccc (const struct dataset *ds UNUSED)
544 show_ccd (const struct dataset *ds UNUSED)
550 show_cce (const struct dataset *ds UNUSED)
556 show_decimals (const struct dataset *ds UNUSED)
558 msg (SN, _("DECIMAL is \"%c\"."), settings_get_decimal_char (FMT_F));
562 show_endcmd (const struct dataset *ds UNUSED)
564 msg (SN, _("ENDCMD is \"%c\"."), settings_get_endcmd ());
568 show_errors (const struct dataset *ds UNUSED)
570 bool terminal = settings_get_error_routing_to_terminal ();
571 bool listing = settings_get_error_routing_to_listing ();
572 msg (SN, _("ERRORS is \"%s\"."),
573 terminal && listing ? "BOTH"
574 : terminal ? "TERMINAL"
575 : listing ? "LISTING"
580 show_format (const struct dataset *ds UNUSED)
582 char str[FMT_STRING_LEN_MAX + 1];
583 msg (SN, _("FORMAT is %s."), fmt_to_string (settings_get_format (), str));
587 show_length (const struct dataset *ds UNUSED)
589 msg (SN, _("LENGTH is %d."), settings_get_viewlength ());
593 show_mxerrs (const struct dataset *ds UNUSED)
595 msg (SN, _("MXERRS is %d."), settings_get_mxerrs ());
599 show_mxloops (const struct dataset *ds UNUSED)
601 msg (SN, _("MXLOOPS is %d."), settings_get_mxloops ());
605 show_mxwarns (const struct dataset *ds UNUSED)
607 msg (SN, _("MXWARNS is %d."), settings_get_mxwarns ());
610 /* Outputs that SETTING has the given INTEGER_FORMAT value. */
612 show_integer_format (const char *setting, enum integer_format integer_format)
614 msg (SN, _("%s is %s (%s)."),
616 (integer_format == INTEGER_MSB_FIRST ? "MSBFIRST"
617 : integer_format == INTEGER_LSB_FIRST ? "LSBFIRST"
619 integer_format == INTEGER_NATIVE ? "NATIVE" : "nonnative");
622 /* Outputs that SETTING has the given FLOAT_FORMAT value. */
624 show_float_format (const char *setting, enum float_format float_format)
626 const char *format_name = "";
628 switch (float_format)
630 case FLOAT_IEEE_SINGLE_LE:
631 format_name = "ISL (32-bit IEEE 754 single, little-endian)";
633 case FLOAT_IEEE_SINGLE_BE:
634 format_name = "ISB (32-bit IEEE 754 single, big-endian)";
636 case FLOAT_IEEE_DOUBLE_LE:
637 format_name = "IDL (64-bit IEEE 754 double, little-endian)";
639 case FLOAT_IEEE_DOUBLE_BE:
640 format_name = "IDB (64-bit IEEE 754 double, big-endian)";
644 format_name = "VF (32-bit VAX F, VAX-endian)";
647 format_name = "VD (64-bit VAX D, VAX-endian)";
650 format_name = "VG (64-bit VAX G, VAX-endian)";
654 format_name = "ZS (32-bit IBM Z hexadecimal short, big-endian)";
657 format_name = "ZL (64-bit IBM Z hexadecimal long, big-endian)";
665 msg (SN, _("%s is %s (%s)."),
666 setting, format_name,
667 float_format == FLOAT_NATIVE_DOUBLE ? "NATIVE" : "nonnative");
671 show_rib (const struct dataset *ds UNUSED)
673 show_integer_format ("RIB", settings_get_input_integer_format ());
677 show_rrb (const struct dataset *ds UNUSED)
679 show_float_format ("RRB", settings_get_input_float_format ());
683 show_scompression (const struct dataset *ds UNUSED)
685 if (settings_get_scompression ())
686 msg (SN, _("SCOMPRESSION is ON."));
688 msg (SN, _("SCOMPRESSION is OFF."));
692 show_undefined (const struct dataset *ds UNUSED)
694 if (settings_get_undefined ())
695 msg (SN, _("UNDEFINED is WARN."));
697 msg (SN, _("UNDEFINED is NOWARN."));
701 show_weight (const struct dataset *ds)
703 const struct variable *var = dict_get_weight (dataset_dict (ds));
705 msg (SN, _("WEIGHT is off."));
707 msg (SN, _("WEIGHT is variable %s."), var_get_name (var));
711 show_wib (const struct dataset *ds UNUSED)
713 show_integer_format ("WIB", settings_get_output_integer_format ());
717 show_wrb (const struct dataset *ds UNUSED)
719 show_float_format ("WRB", settings_get_output_float_format ());
723 show_width (const struct dataset *ds UNUSED)
725 msg (SN, _("WIDTH is %d."), settings_get_viewwidth ());
731 void (*function) (const struct dataset *);
734 const struct show_sbc show_table[] =
736 {"BLANKS", show_blanks},
742 {"DECIMALS", show_decimals},
743 {"ENDCMD", show_endcmd},
744 {"ERRORS", show_errors},
745 {"FORMAT", show_format},
746 {"LENGTH", show_length},
747 {"MXERRS", show_mxerrs},
748 {"MXLOOPS", show_mxloops},
749 {"MXWARNS", show_mxwarns},
752 {"SCOMPRESSION", show_scompression},
753 {"UNDEFINED", show_undefined},
754 {"WEIGHT", show_weight},
757 {"WIDTH", show_width},
761 show_all (const struct dataset *ds)
765 for (i = 0; i < sizeof show_table / sizeof *show_table; i++)
766 show_table[i].function (ds);
774 for (i = 0; i < 5; i++)
779 show_warranty (const struct dataset *ds UNUSED)
781 fputs (lack_of_warranty, stdout);
785 show_copying (const struct dataset *ds UNUSED)
787 fputs (copyleft, stdout);
791 cmd_show (struct lexer *lexer, struct dataset *ds)
793 if (lex_token (lexer) == '.')
801 if (lex_match (lexer, T_ALL))
803 else if (lex_match_id (lexer, "CC"))
805 else if (lex_match_id (lexer, "WARRANTY"))
807 else if (lex_match_id (lexer, "COPYING"))
809 else if (lex_token (lexer) == T_ID)
813 for (i = 0; i < sizeof show_table / sizeof *show_table; i++)
814 if (lex_match_id (lexer, show_table[i].name))
816 show_table[i].function (ds);
819 lex_error (lexer, NULL);
826 lex_error (lexer, NULL);
830 lex_match (lexer, '/');
832 while (lex_token (lexer) != '.');