-static int
-aux_stc_custom_blanks(struct cmd_set *cmd UNUSED)
-{
- if ( set_blanks == SYSMIS )
- msg(MM, "SYSMIS");
- else
- msg(MM, "%g", set_blanks);
- return 0;
-}
-
-
-static int
-aux_stc_custom_color(struct cmd_set *cmd UNUSED)
-{
- msg (MW, _("%s is obsolete."),"COLOR");
- return 0;
-}
-
-static int
-aux_stc_custom_listing(struct cmd_set *cmd UNUSED)
-{
- if ( set_listing )
- msg(MM, _("LISTING is ON"));
- else
- msg(MM, _("LISTING is OFF"));
-
- return 0;
-}
-
-static int
-aux_stc_custom_disk(struct cmd_set *cmd UNUSED)
-{
- return aux_stc_custom_listing(cmd);
-}
-
-static int
-aux_stc_custom_format(struct cmd_set *cmd UNUSED)
-{
- msg(MM, fmt_to_string(&set_format));
- return 0;
-}
-
-
-
-static int
-aux_stc_custom_journal(struct cmd_set *cmd UNUSED)
-{
- if (set_journaling)
- msg(MM, set_journal);
- else
- msg(MM, _("Journalling is off") );
-
- return 0;
-}
-
-static int
-aux_stc_custom_length(struct cmd_set *cmd UNUSED)
-{
- msg(MM, "%d", set_viewlength);
- return 0;
-}
-
-static int
-aux_stc_custom_log(struct cmd_set *cmd )
-{
- return aux_stc_custom_journal (cmd);
-}
-
-static int
-aux_stc_custom_pager(struct cmd_set *cmd UNUSED)
-{
-#if !USE_INTERNAL_PAGER
- if ( set_pager )
- msg(MM, set_pager);
- else
- msg(MM, "No pager");
-#else /* USE_INTERNAL_PAGER */
- msg (MM, "Internal pager.");
-#endif /* USE_INTERNAL_PAGER */
-
- return 0;
-}
-
-static int
-aux_stc_custom_rcolor(struct cmd_set *cmd UNUSED)
-{
- msg (SW, _("%s is obsolete."),"RCOLOR");
- return 0;
-}
-
-static int
-aux_stc_custom_results(struct cmd_set *cmd UNUSED)
-{
-
- msg(MM, route_to_string(set_results) );
-
- return 0;
-}
-
-static int
-aux_stc_custom_seed(struct cmd_set *cmd UNUSED)
-{
- return 0;
-}
-
-static int
-aux_stc_custom_viewlength(struct cmd_set *cmd UNUSED)
-{
- msg(MM, "%d", set_viewlength);
- return 0;
-}
-
-static int
-aux_stc_custom_viewwidth(struct cmd_set *cmd UNUSED)
-{
- msg(MM, "%d", set_viewwidth);
- return 0;
-}
-
-static int
-aux_stc_custom_width(struct cmd_set *cmd UNUSED)
-{
- msg(MM, "%d", set_viewwidth);
- return 0;
-}
-
-static int
-aux_stc_custom_workdev(struct cmd_set *cmd UNUSED)
-{
- msg (SW, _("%s is obsolete."),"WORKDEV");
- return 0;
-}
-
-
-
-/* (aux_functions)
- warranty=show_warranty;
- copying=show_copying.
-*/
-
-
-static struct cmd_set cmd;
-
-int
-cmd_show (void)
-{
- lex_match_id ("SHOW");
-
- if (!aux_parse_set (&cmd))
- return CMD_FAILURE;
-
- return CMD_SUCCESS;
-}