/* setterm.c, set terminal attributes.
*
* Copyright (C) 1990 Gordon Irlam (gordoni@cs.ua.oz.au). Conditions of use,
* modification, and redistribution are contained in the file COPYRIGHT that
* forms part of this distribution.
*
* Adaption to Linux by Peter MacDonald.
*
* Enhancements by Mika Liljeberg (liljeber@cs.Helsinki.FI)
*
* Beep modifications by Christophe Jolif (cjolif@storm.gatelink.fr.net)
*
* Sanity increases by Cafeine Addict [sic].
*
* Powersave features by todd j. derr <tjd@wordsmith.org>
*
* Converted to terminfo by Kars de Jong (jongk@cs.utwente.nl)
*
* 1999-02-22 Arkadiusz Mi¶kiewicz <misiek@pld.ORG.PL>
* - added Native Language Support
*
*
* Syntax:
*
* setterm
* [ -term terminal_name ]
* [ -reset ]
* [ -initialize ]
* [ -cursor [on|off] ]
* [ -repeat [on|off] ]
* [ -appcursorkeys [on|off] ]
* [ -linewrap [on|off] ]
* [ -snow [on|off] ]
* [ -softscroll [on|off] ]
* [ -defaults ]
* [ -foreground black|red|green|yellow|blue|magenta|cyan|white|default ]
* [ -background black|red|green|yellow|blue|magenta|cyan|white|default ]
* [ -ulcolor black|grey|red|green|yellow|blue|magenta|cyan|white ]
* [ -ulcolor bright red|green|yellow|blue|magenta|cyan|white ]
* [ -hbcolor black|grey|red|green|yellow|blue|magenta|cyan|white ]
* [ -hbcolor bright red|green|yellow|blue|magenta|cyan|white ]
* [ -inversescreen [on|off] ]
* [ -bold [on|off] ]
* [ -half-bright [on|off] ]
* [ -blink [on|off] ]
* [ -reverse [on|off] ]
* [ -underline [on|off] ]
* [ -store ]
* [ -clear [ all|rest ] ]
* [ -tabs [tab1 tab2 tab3 ... ] ] (tabn = 1-160)
* [ -clrtabs [ tab1 tab2 tab3 ... ] (tabn = 1-160)
* [ -regtabs [1-160] ]
* [ -blank [0-60|force|poke|] ]
* [ -dump [1-NR_CONS ] ]
* [ -append [1-NR_CONS ] ]
* [ -file dumpfilename ]
* [ -standout [attr] ]
* [ -msg [on|off] ]
* [ -msglevel [0-8] ]
* [ -powersave [on|vsync|hsync|powerdown|off] ]
* [ -powerdown [0-60] ]
* [ -blength [0-2000] ]
* [ -bfreq freq ]
* [ -version ]
* [ -help ]
*
*
* Semantics:
*
* Setterm writes to standard output a character string that will
* invoke the specified terminal capabilities. Where possible
* terminfo is consulted to find the string to use. Some options
* however do not correspond to a terminfo capability. In this case if
* the terminal type is "con*", or "linux*" the string that invokes
* the specified capabilities on the PC Linux virtual console driver
* is output. Options that are not implemented by the terminal are
* ignored.
*
* The following options are non-obvious.
*
* -term can be used to override the TERM environment variable.
*
* -reset displays the terminal reset string, which typically resets the
* terminal to its power on state.
*
* -initialize displays the terminal initialization string, which typically
* sets the terminal's rendering options, and other attributes to the
* default values.
*
* -default sets the terminal's rendering options to the default values.
*
* -store stores the terminal's current rendering options as the default
* values. */
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <ctype.h>
#include <unistd.h>
#include <termios.h>
#include <string.h>
#include <fcntl.h>
#ifndef NCURSES_CONST
#define NCURSES_CONST const /* define before including term.h */
#endif
#include <term.h>
#ifdef HAVE_NCURSES_H
#include <ncurses.h>
#elif defined(HAVE_NCURSES_NCURSES_H)
#include <ncurses/ncurses.h>
#endif
#include <sys/param.h> /* for MAXPATHLEN */
#include <sys/ioctl.h>
#include <sys/time.h>
#ifdef HAVE_LINUX_TIOCL_H
#include <linux/tiocl.h>
#endif
#include "c.h"
#include "xalloc.h"
#include "nls.h"
#include "closestream.h"
#if __GNU_LIBRARY__ < 5
#ifndef __alpha__
# include <linux/unistd.h>
#define __NR_klogctl __NR_syslog
_syscall3(int, klogctl, int, type, char*, buf, int, len);
#else /* __alpha__ */
#define klogctl syslog
#endif
#endif
extern int klogctl(int type, char *buf, int len);
/* Constants. */
/* Non-standard return values. */
#define EXIT_DUMPFILE -1
/* Keyboard types. */
#define PC 0
#define OLIVETTI 1
#define DUTCH 2
#define EXTENDED 3
/* Colors. */
#define BLACK 0
#define RED 1
#define GREEN 2
#define YELLOW 3
#define BLUE 4
#define MAGENTA 5
#define CYAN 6
#define WHITE 7
#define GREY 8
#define DEFAULT 9
/* Blank commands */
#define BLANKSCREEN -1
#define UNBLANKSCREEN -2
#define BLANKEDSCREEN -3
/* <linux/tiocl.h> fallback */
#ifndef TIOCL_BLANKSCREEN
# define TIOCL_UNBLANKSCREEN 4 /* unblank screen */
# define TIOCL_SETVESABLANK 10 /* set vesa blanking mode */
# define TIOCL_BLANKSCREEN 14 /* keep screen blank even if a key is pressed */
# define TIOCL_BLANKEDSCREEN 15 /* return which vt was blanked */
#endif
/* Control sequences. */
#define ESC "\033"
#define DCS "\033P"
#define ST "\033\\"
/* Static variables. */
/* Option flags. Set if the option is to be invoked. */
int opt_term, opt_reset, opt_initialize, opt_cursor;
int opt_linewrap, opt_snow, opt_softscroll, opt_default, opt_foreground;
int opt_background, opt_bold, opt_blink, opt_reverse, opt_underline;
int opt_store, opt_clear, opt_blank, opt_snap, opt_snapfile, opt_standout;
int opt_append, opt_ulcolor, opt_hbcolor, opt_halfbright, opt_repeat;
int opt_tabs, opt_clrtabs, opt_regtabs, opt_appcursorkeys, opt_inversescreen;
int opt_msg, opt_msglevel, opt_powersave, opt_powerdown;
int opt_blength, opt_bfreq;
/* Option controls. The variable names have been contracted to ensure
* uniqueness.
*/
char *opt_te_terminal_name; /* Terminal name. */
int opt_cu_on, opt_li_on, opt_sn_on, opt_so_on, opt_bo_on, opt_hb_on, opt_bl_on;
int opt_re_on, opt_un_on, opt_rep_on, opt_appck_on, opt_invsc_on;
int opt_msg_on; /* Boolean switches. */
int opt_ke_type; /* Keyboard type. */
int opt_fo_color, opt_ba_color; /* Colors. */
int opt_ul_color, opt_hb_color;
int opt_cl_all; /* Clear all or rest. */
int opt_bl_min; /* Blank screen. */
int opt_blength_l;
int opt_bfreq_f;
int opt_sn_num; /* Snap screen. */
int opt_st_attr;
int opt_rt_len; /* regular tab length */
int opt_tb_array[161]; /* Array for tab list */
int opt_msglevel_num;
int opt_ps_mode, opt_pd_min; /* powersave mode/powerdown time */
char opt_sn_name[PATH_MAX + 1] = "screen.dump";
static void screendump(int vcnum, FILE *F);
/* Command line parsing routines.
*
* Note that it is an error for a given option to be invoked more than once.
*/
static void
parse_term(int argc, char **argv, int *option, char **ttyname, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Term flag to set. */
/* ttyname: Terminal name to set. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -term specification. */
if (argc != 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1)
*ttyname = argv[0];
}
static void
parse_none(int argc, char **argv __attribute__ ((__unused__)), int *option, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Term flag to set. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a parameterless specification. */
if (argc != 0 || *option)
*bad_arg = TRUE;
*option = TRUE;
}
static void
parse_switch(int argc, char **argv, int *option, int *opt_on, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Option flag to set. */
/* opt_on: Boolean option switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a boolean (on/off) specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
if (strcmp(argv[0], "on") == 0)
*opt_on = TRUE;
else if (strcmp(argv[0], "off") == 0)
*opt_on = FALSE;
else
*bad_arg = TRUE;
} else {
*opt_on = TRUE;
}
}
static void
par_color(int argc, char **argv, int *option, int *opt_color, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Color flag to set. */
/* opt_color: Color to set. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -foreground or -background specification. */
if (argc != 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
if (strcmp(argv[0], "black") == 0)
*opt_color = BLACK;
else if (strcmp(argv[0], "red") == 0)
*opt_color = RED;
else if (strcmp(argv[0], "green") == 0)
*opt_color = GREEN;
else if (strcmp(argv[0], "yellow") == 0)
*opt_color = YELLOW;
else if (strcmp(argv[0], "blue") == 0)
*opt_color = BLUE;
else if (strcmp(argv[0], "magenta") == 0)
*opt_color = MAGENTA;
else if (strcmp(argv[0], "cyan") == 0)
*opt_color = CYAN;
else if (strcmp(argv[0], "white") == 0)
*opt_color = WHITE;
else if (strcmp(argv[0], "default") == 0)
*opt_color = DEFAULT;
else if (isdigit(argv[0][0]))
*opt_color = atoi(argv[0]);
else
*bad_arg = TRUE;
if(*opt_color < 0 || *opt_color > 9 || *opt_color == 8)
*bad_arg = TRUE;
}
}
static void
par_color2(int argc, char **argv, int *option, int *opt_color, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Color flag to set. */
/* opt_color: Color to set. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -ulcolor or -hbcolor specification. */
if (!argc || argc > 2 || *option)
*bad_arg = TRUE;
*option = TRUE;
*opt_color = 0;
if (argc == 2) {
if (strcmp(argv[0], "bright") == 0)
*opt_color = 8;
else {
*bad_arg = TRUE;
return;
}
}
if (argc) {
if (strcmp(argv[argc-1], "black") == 0) {
if(*opt_color)
*bad_arg = TRUE;
else
*opt_color = BLACK;
} else if (strcmp(argv[argc-1], "grey") == 0) {
if(*opt_color)
*bad_arg = TRUE;
else
*opt_color = GREY;
} else if (strcmp(argv[argc-1], "red") == 0)
*opt_color |= RED;
else if (strcmp(argv[argc-1], "green") == 0)
*opt_color |= GREEN;
else if (strcmp(argv[argc-1], "yellow") == 0)
*opt_color |= YELLOW;
else if (strcmp(argv[argc-1], "blue") == 0)
*opt_color |= BLUE;
else if (strcmp(argv[argc-1], "magenta") == 0)
*opt_color |= MAGENTA;
else if (strcmp(argv[argc-1], "cyan") == 0)
*opt_color |= CYAN;
else if (strcmp(argv[argc-1], "white") == 0)
*opt_color |= WHITE;
else if (isdigit(argv[argc-1][0]))
*opt_color = atoi(argv[argc-1]);
else
*bad_arg = TRUE;
if(*opt_color < 0 || *opt_color > 15)
*bad_arg = TRUE;
}
}
static void
parse_clear(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -clear specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
if (strcmp(argv[0], "all") == 0)
*opt_all = TRUE;
else if (strcmp(argv[0], "rest") == 0)
*opt_all = FALSE;
else
*bad_arg = TRUE;
} else {
*opt_all = TRUE;
}
}
static void
parse_blank(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -blank specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
if (!strcmp(argv[0], "force"))
*opt_all = BLANKSCREEN;
else if (!strcmp(argv[0], "poke"))
*opt_all = UNBLANKSCREEN;
else {
*opt_all = atoi(argv[0]);
if ((*opt_all > 60) || (*opt_all < 0))
*bad_arg = TRUE;
}
} else {
*opt_all = BLANKEDSCREEN;
}
}
static void
parse_powersave(int argc, char **argv, int *option, int *opt_mode, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: powersave flag to set. */
/* opt_mode: Powersaving mode, defined in vesa_blank.c */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -powersave mode specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
if (strcmp(argv[0], "on") == 0)
*opt_mode = 1;
else if (strcmp(argv[0], "vsync") == 0)
*opt_mode = 1;
else if (strcmp(argv[0], "hsync") == 0)
*opt_mode = 2;
else if (strcmp(argv[0], "powerdown") == 0)
*opt_mode = 3;
else if (strcmp(argv[0], "off") == 0)
*opt_mode = 0;
else
*bad_arg = TRUE;
} else {
*opt_mode = 0;
}
}
#if 0
static void
parse_standout(int argc, char *argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -standout specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1)
*opt_all = atoi(argv[0]);
else
*opt_all = -1;
}
#endif
static void
parse_msglevel(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
*opt_all = atoi(argv[0]);
if (*opt_all < 0 || *opt_all > 8)
*bad_arg = TRUE;
} else {
*opt_all = -1;
}
}
static void
parse_snap(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -dump or -append specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
*opt_all = atoi(argv[0]);
if ((*opt_all <= 0))
*bad_arg = TRUE;
} else {
*opt_all = 0;
}
}
static void
parse_snapfile(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all: Clear all switch to set or reset. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a -file specification. */
if (argc != 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
memset(opt_all, 0, PATH_MAX + 1);
if (argc == 1)
strncpy((char *)opt_all, argv[0], PATH_MAX);
}
static void
parse_tabs(int argc, char **argv, int *option, int *tab_array, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* tab_array: Array of tabs */
/* bad_arg: Set to true if an error is detected. */
if (*option || argc > 160)
*bad_arg = TRUE;
*option = TRUE;
tab_array[argc] = -1;
while(argc--) {
tab_array[argc] = atoi(argv[argc]);
if(tab_array[argc] < 1 || tab_array[argc] > 160) {
*bad_arg = TRUE;
return;
}
}
}
static void
parse_clrtabs(int argc, char **argv, int *option, int *tab_array, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* tab_array: Array of tabs */
/* bad_arg: Set to true if an error is detected. */
if (*option || argc > 160)
*bad_arg = TRUE;
*option = TRUE;
if(argc == 0) {
tab_array[0] = -1;
return;
}
tab_array[argc] = -1;
while(argc--) {
tab_array[argc] = atoi(argv[argc]);
if(tab_array[argc] < 1 || tab_array[argc] > 160) {
*bad_arg = TRUE;
return;
}
}
}
static void
parse_regtabs(int argc, char **argv, int *option, int *opt_len, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_len: Regular tab length. */
/* bad_arg: Set to true if an error is detected. */
if (*option || argc > 1)
*bad_arg = TRUE;
*option = TRUE;
if(argc == 0) {
*opt_len = 8;
return;
}
*opt_len = atoi(argv[0]);
if(*opt_len < 1 || *opt_len > 160) {
*bad_arg = TRUE;
return;
}
}
static void
parse_blength(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all */
/* bad_arg: Set to true if an error is detected. */
/* Parse -blength specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
*opt_all = atoi(argv[0]);
if (*opt_all > 2000)
*bad_arg = TRUE;
} else {
*opt_all = 0;
}
}
static void
parse_bfreq(int argc, char **argv, int *option, int *opt_all, int *bad_arg) {
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* option: Clear flag to set. */
/* opt_all */
/* bad_arg: Set to true if an error is detected. */
/* Parse -bfreq specification. */
if (argc > 1 || *option)
*bad_arg = TRUE;
*option = TRUE;
if (argc == 1) {
*opt_all = atoi(argv[0]);
} else {
*opt_all = 0;
}
}
static void
show_tabs(void) {
int i, co = tigetnum("cols");
if(co > 0) {
printf("\r ");
for(i = 10; i < co-2; i+=10)
printf("%-10d", i);
putchar('\n');
for(i = 1; i <= co; i++)
putchar(i%10+'0');
putchar('\n');
for(i = 1; i < co; i++)
printf("\tT\b");
putchar('\n');
}
}
static void __attribute__ ((__noreturn__))
usage(FILE *out) {
/* Print error message about arguments, and the command's syntax. */
if (out == stderr)
warnx(_("Argument error."));
fputs(_("\nUsage:\n"), out);
fprintf(out,
_(" %s [options]\n"), program_invocation_short_name);
fputs(_("\nOptions:\n"), out);
fputs(_(" -term <terminal_name>\n"
" -reset\n"
" -initialize\n"
" -cursor <on|off>\n"
" -repeat <on|off>\n"
" -appcursorkeys <on|off>\n"
" -linewrap <on|off>\n"
" -default\n"
" -foreground <black|blue|green|cyan|red|magenta|yellow|white|default>\n"
" -background <black|blue|green|cyan|red|magenta|yellow|white|default>\n"
" -ulcolor <black|grey|blue|green|cyan|red|magenta|yellow|white>\n"
" -ulcolor <bright blue|green|cyan|red|magenta|yellow|white>\n"
" -hbcolor <black|grey|blue|green|cyan|red|magenta|yellow|white>\n"
" -hbcolor <bright blue|green|cyan|red|magenta|yellow|white>\n"
" -inversescreen <on|off>\n"
" -bold <on|off>\n"
" -half-bright <on|off>\n"
" -blink <on|off>\n"
" -reverse <on|off>\n"
" -underline <on|off>\n"
" -store >\n"
" -clear <all|rest>\n"
" -tabs < tab1 tab2 tab3 ... > (tabn = 1-160)\n"
" -clrtabs < tab1 tab2 tab3 ... > (tabn = 1-160)\n"
" -regtabs <1-160>\n"
" -blank <0-60|force|poke>\n"
" -dump <1-NR_CONSOLES>\n"
" -append <1-NR_CONSOLES>\n"
" -file dumpfilename\n"
" -msg <on|off>\n"
" -msglevel <0-8>\n"
" -powersave <on|vsync|hsync|powerdown|off>\n"
" -powerdown <0-60>\n"
" -blength <0-2000>\n"
" -bfreq freqnumber\n"
" -version\n"
" -help\n"), out);
fprintf(out, USAGE_MAN_TAIL("setterm(1)"));
exit(out == stderr ? EXIT_FAILURE : EXIT_SUCCESS);
}
#define STRCMP(str1,str2) strncmp(str1,str2,strlen(str1))
static void
parse_option(char *option, int argc, char **argv, int *bad_arg) {
/* option: Option with leading '-' removed. */
/* argc: Number of arguments for this option. */
/* argv: Arguments for this option. */
/* bad_arg: Set to true if an error is detected. */
/* Parse a single specification. */
if (STRCMP(option, "term") == 0)
parse_term(argc, argv, &opt_term, &opt_te_terminal_name, bad_arg);
else if (STRCMP(option, "reset") == 0)
parse_none(argc, argv, &opt_reset, bad_arg);
else if (STRCMP(option, "initialize") == 0)
parse_none(argc, argv, &opt_initialize, bad_arg);
else if (STRCMP(option, "cursor") == 0)
parse_switch(argc, argv, &opt_cursor, &opt_cu_on, bad_arg);
else if (STRCMP(option, "repeat") == 0)
parse_switch(argc, argv, &opt_repeat, &opt_rep_on, bad_arg);
else if (STRCMP(option, "appcursorkeys") == 0)
parse_switch(argc, argv, &opt_appcursorkeys, &opt_appck_on, bad_arg);
else if (STRCMP(option, "linewrap") == 0)
parse_switch(argc, argv, &opt_linewrap, &opt_li_on, bad_arg);
#if 0
else if (STRCMP(option, "snow") == 0)
parse_switch(argc, argv, &opt_snow, &opt_sn_on, bad_arg);
else if (STRCMP(option, "softscroll") == 0)
parse_switch(argc, argv, &opt_softscroll, &opt_so_on, bad_arg);
#endif
else if (STRCMP(option, "default") == 0)
parse_none(argc, argv, &opt_default, bad_arg);
else if (STRCMP(option, "foreground") == 0)
par_color(argc, argv, &opt_foreground, &opt_fo_color, bad_arg);
else if (STRCMP(option, "background") == 0)
par_color(argc, argv, &opt_background, &opt_ba_color, bad_arg);
else if (STRCMP(option, "ulcolor") == 0)
par_color2(argc, argv, &opt_ulcolor, &opt_ul_color, bad_arg);
else if (STRCMP(option, "hbcolor") == 0)
par_color2(argc, argv, &opt_hbcolor, &opt_hb_color, bad_arg);
else if (STRCMP(option, "inversescreen") == 0)
parse_switch(argc, argv, &opt_inversescreen, &opt_invsc_on, bad_arg);
else if (STRCMP(option, "bold") == 0)
parse_switch(argc, argv, &opt_bold, &opt_bo_on, bad_arg);
else if (STRCMP(option, "half-bright") == 0)
parse_switch(argc, argv, &opt_halfbright, &opt_hb_on, bad_arg);
else if (STRCMP(option, "blink") == 0)
parse_switch(argc, argv, &opt_blink, &opt_bl_on, bad_arg);
else if (STRCMP(option, "reverse") == 0)
parse_switch(argc, argv, &opt_reverse, &opt_re_on, bad_arg);
else if (STRCMP(option, "underline") == 0)
parse_switch(argc, argv, &opt_underline, &opt_un_on, bad_arg);
else if (STRCMP(option, "store") == 0)
parse_none(argc, argv, &opt_store, bad_arg);
else if (STRCMP(option, "clear") == 0)
parse_clear(argc, argv, &opt_clear, &opt_cl_all, bad_arg);
else if (STRCMP(option, "tabs") == 0)
parse_tabs(argc, argv, &opt_tabs, opt_tb_array, bad_arg);
else if (STRCMP(option, "clrtabs") == 0)
parse_clrtabs(argc, argv, &opt_clrtabs, opt_tb_array, bad_arg);
else if (STRCMP(option, "regtabs") == 0)
parse_regtabs(argc, argv, &opt_regtabs, &opt_rt_len, bad_arg);
else if (STRCMP(option, "blank") == 0)
parse_blank(argc, argv, &opt_blank, &opt_bl_min, bad_arg);
else if (STRCMP(option, "dump") == 0)
parse_snap(argc, argv, &opt_snap, &opt_sn_num, bad_arg);
else if (STRCMP(option, "append") == 0)
parse_snap(argc, argv, &opt_append, &opt_sn_num, bad_arg);
else if (STRCMP(option, "file") == 0)
parse_snapfile(argc, argv, &opt_snapfile, (int *)opt_sn_name, bad_arg);
else if (STRCMP(option, "msg") == 0)
parse_switch(argc, argv, &opt_msg, &opt_msg_on, bad_arg);
else if (STRCMP(option, "msglevel") == 0)
parse_msglevel(argc, argv, &opt_msglevel, &opt_msglevel_num, bad_arg);
else if (STRCMP(option, "powersave") == 0)
parse_powersave(argc, argv, &opt_powersave, &opt_ps_mode, bad_arg);
else if (STRCMP(option, "powerdown") == 0)
parse_blank(argc, argv, &opt_powerdown, &opt_pd_min, bad_arg);
else if (STRCMP(option, "blength") == 0)
parse_blength(argc, argv, &opt_blength, &opt_blength_l, bad_arg);
else if (STRCMP(option, "bfreq") == 0)
parse_bfreq(argc, argv, &opt_bfreq, &opt_bfreq_f, bad_arg);
#if 0
else if (STRCMP(option, "standout") == 0)
parse_standout(argc, argv, &opt_standout, &opt_st_attr, bad_arg);
#endif
else if (STRCMP(option, "version") == 0) {
printf(_("%s from %s\n"), program_invocation_short_name,
PACKAGE_STRING);
exit(EXIT_SUCCESS);
} else if (STRCMP(option, "help") == 0)
usage(stdout);
else
*bad_arg = TRUE;
}
/* End of command line parsing routines. */
static char *ti_entry(const char *name) {
/* name: Terminfo capability string to lookup. */
/* Return the specified terminfo string, or an empty string if no such terminfo
* capability exists.
*/
char *buf_ptr;
if ((buf_ptr = tigetstr((char *)name)) == (char *)-1)
buf_ptr = NULL;
return buf_ptr;
}
static void
perform_sequence(int vcterm) {
/* vcterm: Set if terminal is a virtual console. */
int result;
/* Perform the selected options. */
/* -reset. */
if (opt_reset) {
putp(ti_entry("rs1"));
}
/* -initialize. */
if (opt_initialize) {
putp(ti_entry("is2"));
}
/* -cursor [on|off]. */
if (opt_cursor) {
if (opt_cu_on)
putp(ti_entry("cnorm"));
else
putp(ti_entry("civis"));
}
/* -linewrap [on|off]. Vc only (vt102) */
if (opt_linewrap && vcterm) {
if (opt_li_on)
printf("\033[?7h");
else
printf("\033[?7l");
}
/* -repeat [on|off]. Vc only (vt102) */
if (opt_repeat && vcterm) {
if (opt_rep_on)
printf("\033[?8h");
else
printf("\033[?8l");
}
/* -appcursorkeys [on|off]. Vc only (vt102) */
if (opt_appcursorkeys && vcterm) {
if (opt_appck_on)
printf("\033[?1h");
else
printf("\033[?1l");
}
#if 0
/* -snow [on|off]. Vc only. */
if (opt_snow && vcterm) {
if (opt_sn_on)
printf("%s%s%s", DCS, "snow.on", ST);
else
printf("%s%s%s", DCS, "snow.off", ST);
}
/* -softscroll [on|off]. Vc only. */
if (opt_softscroll && vcterm) {
if (opt_so_on)
printf("%s%s%s", DCS, "softscroll.on", ST);
else
printf("%s%s%s", DCS, "softscroll.off", ST);
}
#endif
/* -default. Vc sets default rendition, otherwise clears all
* attributes.
*/
if (opt_default) {
if (vcterm)
printf("\033[0m");
else
putp(ti_entry("sgr0"));
}
/* -foreground black|red|green|yellow|blue|magenta|cyan|white|default.
* Vc only (ANSI).
*/
if (opt_foreground && vcterm) {
printf("%s%s%c%s", ESC, "[3", '0' + opt_fo_color, "m");
}
/* -background black|red|green|yellow|blue|magenta|cyan|white|default.
* Vc only (ANSI).
*/
if (opt_background && vcterm) {
printf("%s%s%c%s", ESC, "[4", '0' + opt_ba_color, "m");
}
/* -ulcolor black|red|green|yellow|blue|magenta|cyan|white|default.
* Vc only.
*/
if (opt_ulcolor && vcterm) {
printf("\033[1;%d]", opt_ul_color);
}
/* -hbcolor black|red|green|yellow|blue|magenta|cyan|white|default.
* Vc only.
*/
if (opt_hbcolor && vcterm) {
printf("\033[2;%d]", opt_hb_color);
}
/* -inversescreen [on|off]. Vc only (vt102).
*/
if (opt_inversescreen) {
if (vcterm) {
if (opt_invsc_on)
printf("\033[?5h");
else
printf("\033[?5l");
}
}
/* -bold [on|off]. Vc behaves as expected, otherwise off turns off
* all attributes.
*/
if (opt_bold) {
if (opt_bo_on)
putp(ti_entry("bold"));
else {
if (vcterm)
printf("%s%s", ESC, "[22m");
else
putp(ti_entry("sgr0"));
}
}
/* -half-bright [on|off]. Vc behaves as expected, otherwise off turns off
* all attributes.
*/
if (opt_halfbright) {
if (opt_hb_on)
putp(ti_entry("dim"));
else {
if (vcterm)
printf("%s%s", ESC, "[22m");
else
putp(ti_entry("sgr0"));
}
}
/* -blink [on|off]. Vc behaves as expected, otherwise off turns off
* all attributes.
*/
if (opt_blink) {
if (opt_bl_on)
putp(ti_entry("blink"));
else {
if (vcterm)
printf("%s%s", ESC, "[25m");
else
putp(ti_entry("sgr0"));
}
}
/* -reverse [on|off]. Vc behaves as expected, otherwise off turns
* off all attributes.
*/
if (opt_reverse) {
if (opt_re_on)
putp(ti_entry("rev"));
else {
if (vcterm)
printf("%s%s", ESC, "[27m");
else
putp(ti_entry("sgr0"));
}
}
/* -underline [on|off]. */
if (opt_underline) {
if (opt_un_on)
putp(ti_entry("smul"));
else
putp(ti_entry("rmul"));
}
/* -store. Vc only. */
if (opt_store && vcterm) {
printf("\033[8]");
}
/* -clear [all|rest]. */
if (opt_clear) {
if (opt_cl_all)
putp(ti_entry("clear"));
else
putp(ti_entry("ed"));
}
/* -tabs Vc only. */
if (opt_tabs && vcterm) {
int i;
if (opt_tb_array[0] == -1)
show_tabs();
else {
for(i=0; opt_tb_array[i] > 0; i++)
printf("\033[%dG\033H", opt_tb_array[i]);
putchar('\r');
}
}
/* -clrtabs Vc only. */
if (opt_clrtabs && vcterm) {
int i;
if (opt_tb_array[0] == -1)
printf("\033[3g");
else
for(i=0; opt_tb_array[i] > 0; i++)
printf("\033[%dG\033[g", opt_tb_array[i]);
putchar('\r');
}
/* -regtabs Vc only. */
if (opt_regtabs && vcterm) {
int i;
printf("\033[3g\r");
for(i=opt_rt_len+1; i<=160; i+=opt_rt_len)
printf("\033[%dC\033H",opt_rt_len);
putchar('\r');
}
/* -blank [0-60]. */
if (opt_blank && vcterm) {
if (opt_bl_min >= 0)
printf("\033[9;%d]", opt_bl_min);
else if (opt_bl_min == BLANKSCREEN) {
char ioctlarg = TIOCL_BLANKSCREEN;
if (ioctl(0,TIOCLINUX,&ioctlarg))
warn(_("cannot force blank"));
} else if (opt_bl_min == UNBLANKSCREEN) {
char ioctlarg = TIOCL_UNBLANKSCREEN;
if (ioctl(0,TIOCLINUX,&ioctlarg))
warn(_("cannot force unblank"));
} else if (opt_bl_min == BLANKEDSCREEN) {
char ioctlarg = TIOCL_BLANKEDSCREEN;
int ret;
ret = ioctl(0,TIOCLINUX,&ioctlarg);
if (ret < 0)
warn(_("cannot get blank status"));
else
printf("%d\n",ret);
}
}
/* -powersave [on|vsync|hsync|powerdown|off] (console) */
if (opt_powersave) {
char ioctlarg[2];
ioctlarg[0] = TIOCL_SETVESABLANK;
ioctlarg[1] = opt_ps_mode;
if (ioctl(0,TIOCLINUX,ioctlarg))
warn(_("cannot (un)set powersave mode"));
}
/* -powerdown [0-60]. */
if (opt_powerdown) {
printf("\033[14;%d]", opt_pd_min);
}
#if 0
/* -standout [num]. */
if (opt_standout)
/* nothing */;
#endif
/* -snap [1-NR_CONS]. */
if (opt_snap || opt_append) {
FILE *F;
F = fopen(opt_sn_name, opt_snap ? "w" : "a");
if (!F)
err(EXIT_DUMPFILE, _("can not open dump file %s for output"),
opt_sn_name);
screendump(opt_sn_num, F);
if (close_stream(F) != 0)
errx(EXIT_FAILURE, _("write error"));
}
/* -msg [on|off]. */
if (opt_msg && vcterm) {
if (opt_msg_on)
/* 7 -- Enable printk's to console */
result = klogctl(7, NULL, 0);
else
/* 6 -- Disable printk's to console */
result = klogctl(6, NULL, 0);
if (result != 0)
warn(_("klogctl error"));
}
/* -msglevel [0-8] */
if (opt_msglevel && vcterm) {
/* 8 -- Set level of messages printed to console */
result = klogctl(8, NULL, opt_msglevel_num);
if (result != 0)
warn(_("klogctl error"));
}
/* -blength [0-2000] */
if (opt_blength && vcterm) {
printf("\033[11;%d]", opt_blength_l);
}
/* -bfreq freqnumber */
if (opt_bfreq && vcterm) {
printf("\033[10;%d]", opt_bfreq_f);
}
}
static void
screendump(int vcnum, FILE * F)
{
char infile[MAXPATHLEN];
unsigned char header[4];
unsigned int rows, cols;
int fd;
size_t i, j;
ssize_t rc;
char *inbuf, *outbuf, *p, *q;
sprintf(infile, "/dev/vcsa%d", vcnum);
fd = open(infile, O_RDONLY);
if (fd < 0 && vcnum == 0) {
/* vcsa0 is often called vcsa */
sprintf(infile, "/dev/vcsa");
fd = open(infile, O_RDONLY);
}
if (fd < 0) {
/* try devfs name - for zero vcnum just /dev/vcc/a */
/* some gcc's warn for %.u - add 0 */
sprintf(infile, "/dev/vcc/a%.0u", vcnum);
fd = open(infile, O_RDONLY);
}
if (fd < 0) {
sprintf(infile, "/dev/vcsa%d", vcnum);
goto read_error;
}
if (read(fd, header, 4) != 4)
goto read_error;
rows = header[0];
cols = header[1];
if (rows * cols == 0)
goto read_error;
inbuf = xmalloc(rows * cols * 2);
outbuf = xmalloc(rows * (cols + 1));
rc = read(fd, inbuf, rows * cols * 2);
if (rc < 0 || (size_t) rc != rows * cols * 2)
goto read_error;
p = inbuf;
q = outbuf;
for (i = 0; i < rows; i++) {
for (j = 0; j < cols; j++) {
*q++ = *p;
p += 2;
}
while (j-- > 0 && q[-1] == ' ')
q--;
*q++ = '\n';
}
if (fwrite(outbuf, 1, q - outbuf, F) != (size_t) (q - outbuf)) {
warnx(_("Error writing screendump"));
goto error;
}
close(fd);
return;
read_error:
if (vcnum != 0)
warnx(_("Couldn't read %s"), infile);
else
warnx(_("Couldn't read neither /dev/vcsa0 nor /dev/vcsa"));
error:
if (fd >= 0)
close(fd);
exit(EXIT_FAILURE);
}
int
main(int argc, char **argv) {
int bad_arg = FALSE; /* Set if error in arguments. */
int arg, modifier;
char *term; /* Terminal type. */
int vcterm; /* Set if terminal is a virtual console. */
int errret;
setlocale(LC_ALL, "");
bindtextdomain(PACKAGE, LOCALEDIR);
textdomain(PACKAGE);
atexit(close_stdout);
if (argc < 2)
bad_arg = TRUE;
/* Parse arguments. */
for (arg = 1; arg < argc;) {
if (*argv[arg] == '-') {
/* Parse a single option. */
for (modifier = arg + 1; modifier < argc; modifier++) {
if (*argv[modifier] == '-') break;
}
parse_option(argv[arg] + 1, modifier - arg - 1,
&argv[arg + 1], &bad_arg);
arg = modifier;
} else {
bad_arg = TRUE;
arg++;
}
}
/* Display syntax message if error in arguments. */
if (bad_arg)
usage(stderr);
/* Find out terminal name. */
if (opt_term) {
term = opt_te_terminal_name;
} else {
term = getenv("TERM");
if (term == NULL)
errx(EXIT_FAILURE, _("$TERM is not defined."));
}
/* Find terminfo entry. */
if (setupterm(term, 1, &errret))
switch(errret) {
case -1:
errx(EXIT_FAILURE, _("terminfo database cannot be found"));
case 0:
errx(EXIT_FAILURE, _("%s: unknown terminal type"), term);
case 1:
errx(EXIT_FAILURE, _("terminal is hardcopy"));
}
/* See if the terminal is a virtual console terminal. */
vcterm = (!strncmp(term, "con", 3) || !strncmp(term, "linux", 5));
/* Perform the selected options. */
perform_sequence(vcterm);
return EXIT_SUCCESS;
}
