ansi.c

ncurses 库 可能有用酒用 没用就算了 我觉得还可以用

/*
** Copyright (C) 1991, 1997 Free Software Foundation, Inc.
** 
** This file is part of TACK.
** 
** TACK is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2, or (at your option)
** any later version.
** 
** TACK is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
** 
** You should have received a copy of the GNU General Public License
** along with TACK; see the file COPYING.  If not, write to
** the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
** Boston, MA 02110-1301, USA
*/

#include <tack.h>

MODULE_ID("$Id: ansi.c,v 1.10 2005/09/17 19:49:16 tom Exp $")

/*
 * Standalone tests for ANSI terminals.  Three entry points:
 * test_ansi_graphics(), test_ansi_reports() and test_ansi_sgr().
 */

/*****************************************************************************
 *
 * Test ANSI status reports
 *
 *****************************************************************************/

/* ASCII control characters */
#define A_DC1 0x11		/* Control Q */
#define A_DC3 0x13		/* Control S */
#define A_ESC 0x1b
#define A_DCS 0x90
#define A_CSI 0x9b
#define A_ST  0x9c

#define MAX_MODES 256

static char default_bank[] = "\033(B\017";
static int private_use, ape, terminal_class;
static short ansi_value[256];
static unsigned char ansi_buf[512], pack_buf[512];

struct ansi_reports {
	int lvl, final;
	const char *text;
	const char *request;
};

static struct ansi_reports report_list[] = {
	{0, 'c', "(DA) Primary device attributes", "\033[0c"},
	{1, 0, "(DSR) Terminal status", "\033[5n"},
	{1, 'R', "(DSR) Cursor position", "\033[6n"},
	{62, 0, "(DA) Secondary device attributes", "\033[>0c"},
	{62, 0, "(DSR) Printer status", "\033[?15n"},
	{62, 0, "(DSR) Function key definition", "\033[?25n"},
	{62, 0, "(DSR) Keyboard language", "\033[?26n"},
	{63, 0, "(DECRQSS) Data destination", "\033P$q$}\033\\"},
	{63, 0, "(DECRQSS) Status line type", "\033P$q$~\033\\"},
	{63, 0, "(DECRQSS) Erase attribute", "\033P$q\"q\033\\"},
	{63, 0, "(DECRQSS) Personality", "\033P$q\"p\033\\"},
	{63, 0, "(DECRQSS) Top and bottom margins", "\033P$qr\033\\"},
	{63, 0, "(DECRQSS) Character attributes", "\033P$qm\033\\"},
	{63, 0, "(DECRQSS) Illegal request", "\033P$q@\033\\"},
	{63, 0, "(DECRQUPSS) User pref supplemental set", "\033[&u"},
	{63, 0, "(DECRQPSR) Cursor information", "\033[1$w"},
	{63, 0, "(DECRQPSR) Tab stop information", "\033[2$w"},
	{64, 0, "(DA) Tertiary device attributes", "\033[=0c"},
	{64, 0, "(DSR) Extended cursor position", "\033[?6n"},
	{64, 0, "(DSR) Macro space", "\033[?62n"},
	{64, 0, "(DSR) Memory checksum", "\033[?63n"},
	{64, 0, "(DSR) Data integrity", "\033[?75n"},
	{64, 0, "(DSR) Multiple session status", "\033[?85n"},
	{64, 0, "(DECRQSS) Attribute change extent", "\033P$q*x\033\\"},
	{64, 0, "(DECRQSS) Columns per page", "\033P$q$|\033\\"},
	{64, 0, "(DECRQSS) Lines per page", "\033P$qt\033\\"},
	{64, 0, "(DECRQSS) Lines per screen", "\033P$q*|\033\\"},
	{64, 0, "(DECRQSS) Left and right margins", "\033P$qs\033\\"},
	{64, 0, "(DECRQSS) Local functions", "\033P$q+q\033\\"},
	{64, 0, "(DECRQSS) Local function key control", "\033P$q=}\033\\"},
	{64, 0, "(DECRQSS) Select modifier key reporting", "\033P$q+r\033\\"},
	{64, 0, "(DECRQDE) Window report", "\033[\"v"},
	{0, 0, 0, 0}
};

struct request_control {
	const char *text;
	const char *expect;
	const char *request;
	const char *set_mode;
	const char *reset_mode;
};

/* Request control function selection or setting */
static const struct request_control rqss[] = {
	{"Data sent to screen", "0", "$}", "\033[0$}", 0},
	{"Data sent to disabled status line", "0", "$}", 0, 0},
	{"\033[0$~\033[1$}", "\033[0$}", 0, 0, 0},
	{"Data sent to enabled status line", "1", "$}", 0, 0},
	{"\033[2$~\033[1$}", "\033[0$}", 0, 0, 0},
	{"Disable status line", "0", "$~", "\033[0$~", 0},
	{"Top status line", "1", "$~", "\033[1$~", 0},
	{"Bottom status line", "2", "$~", "\033[2$~", 0},
	{"Erasable character", "0", "\"q", "\033[0\"q", 0},
	{"Nonerasable character", "1", "\"q", "\033[1\"q", "\033[0\"q"},
	{"Top and bottom margins", "3;10", "r", "\0337\033[3;10r", 0},
	{"\033[r\0338", 0, 0, 0, 0},
	{"Top and bottom margins", "default", "r", "\0337\033[r", "\0338"},
	{"Character attributes, dim, bold", "1", "m", "\033[2;1m", "\033[m"},
	{"Character attributes, bold, dim", "2", "m", "\033[1;2m", "\033[m"},
	{"Character attributes, under, rev", "4;7", "m", "\033[4;7m", "\033[m"},
	{"Character attributes, color", "35;42", "m", "\033[35;42m", "\033[m"},
	{"All character attributes", "", "m", "\033[1;2;3;4;5;6;7;8;9m", 0},
	{"\033[m", 0, 0, 0, 0},
	{0, 0, 0, 0, 0}
};


/*
**	read_ansi()
**
**	read an ANSI status report from terminal
*/
static void
read_ansi(void)
{
	int ch, i, j, last_escape;

	fflush(stdout);
	read_key((char *)ansi_buf, sizeof(ansi_buf));
	/* Throw away control characters inside CSI sequences.
	   Convert two character 7-bit sequences into 8-bit sequences. */
	for (i = j = last_escape = 0; (ch = ansi_buf[i]) != 0; i++) {
		if (ch == A_ESC) {
			if (last_escape == A_ESC) {
				pack_buf[j++] = A_ESC;
			}
			last_escape = A_ESC;
		} else
		if (last_escape == A_ESC && ch >= '@' && ch <= '_') {
			pack_buf[j++] = last_escape = ch + 0x40;
		} else
		if (last_escape != A_CSI || (ch > 0x20 && ch != 0x80)) {
			if (last_escape == A_ESC) {
				pack_buf[j++] = A_ESC;
			}
			if (ch > 0x80 && ch < 0xa0) {
				last_escape = ch;
			}
			pack_buf[j++] = ch;
		}
	}
	if (last_escape == A_ESC) {
		pack_buf[j++] = A_ESC;
	}
	pack_buf[j] = '\0';
	return;
}

/*
**	valid_mode(expected)
**
**	read a terminal mode status report and parse the result
**	Return TRUE if we got the expected terminating character.
*/
static int
valid_mode(int expected)
{
	unsigned char *s;
	int ch, terminator;

	read_ansi();

	ape = 0;
	ch = UChar(pack_buf[0]);
	ansi_value[0] = 0;
	if (ch != A_CSI && ch != A_DCS)
		return FALSE;

	s = pack_buf + 1;
	private_use = 0;
	if ((*s >= '<') & (*s <= '?')) {
		private_use = *s++;
	}
	terminator = 0;
	for (; (ch = *s); s++) {
		if (ch >= '0' && ch <= '9')
			ansi_value[ape] = ansi_value[ape] * 10 + ch - '0';
		else if (ch == ';' || ch == ':')
			ansi_value[++ape] = 0;
		else if (ch >= '<' && ch <= '?')
			private_use = ch;
		else if (ch >= ' ')
			terminator = (terminator << 8) | ch;
		else
			break;
	}
	return terminator == expected;
}

/*
**	read_reports()
**
**	read all the reports in the ANSI report structure
*/
static int
read_reports(void)
{
	int i, j, k, tc, vcr, lc;
	char *s;
	const char *t;

	lc = 5;
	terminal_class = tc = 0;
	for (i = 0; report_list[i].text; i++, lc++) {
		if (terminal_class < report_list[i].lvl &&
			tc < report_list[i].lvl) {
			put_crlf();
			menu_prompt();
			ptext("/status [q] > ");
			j = wait_here();
			if (j != 'n' && j != 'N')
				return 0;
			tc = report_list[i].lvl;
			lc = 1;
		} else if (lc + 2 >= lines) {
			put_crlf();
			ptext("Hit any key to continue ");
			(void) wait_here();
			lc = 1;
		}
		sprintf(temp, "%s (%s) ", report_list[i].text,
			expand_command(report_list[i].request));
		ptext(temp);
		for (j = strlen(temp); j < 49; j++)
			putchp(' ');
		tc_putp(report_list[i].request);
		vcr = 0;
		if (report_list[i].final == 0) {
			read_ansi();
		} else if (valid_mode(report_list[i].final))
			switch (report_list[i].final) {
			case 'c':
				terminal_class = ansi_value[0];
				break;
			case 'R':
				vcr = TRUE;
				break;
			}
		j = UChar(pack_buf[0]);
		if (j != A_CSI && j != A_DCS) {
			put_crlf();
			t = "*** The above request gives illegal response ***";
			ptext(t);
			for (j = strlen(t); j < 49; j++)
				putchp(' ');
		}
		s = expand((const char *)ansi_buf);
		if (char_count + expand_chars >= columns) {
			put_str("\r\n        ");
			lc++;
		}
		putln(s);
		if (vcr) {	/* find out how big the screen is */
			tc_putp(report_list[i].request);
			if (!valid_mode('R'))
				continue;
			j = ansi_value[0];
			k = ansi_value[1];
			tc_putp("\033[255B\033[255C\033[6n");
			if (!valid_mode('R'))
				continue;
			sprintf(temp, "\033[%d;%dH", j, k);
			tc_putp(temp);
			ptext("(DSR) Screen size (CSI 6 n)");
			for (j = char_count; j < 50; j++)
				putchp(' ');
			sprintf(temp, "%d x %d", ansi_value[1], ansi_value[0]);
			ptextln(temp);

		}
	}
	menu_prompt();
	ptext("/status r->repeat test, <return> to continue > ");
	return wait_here();
}

/*
**	request_cfss()
**
**	Request Control function selection or settings
*/
static int
request_cfss(void)
{
	int i, j, k, l, ch;
	char *s;

	put_clear();
	ptextln("Request                         Expected  Received");
	put_crlf();
	for (i = 0; rqss[i].text; i++) {
		ptext(rqss[i].text);
		j = strlen(rqss[i].text) + strlen(rqss[i].expect);
		putchp(' ');
		for (j++; j < 40; j++)
			putchp(' ');
		ptext(rqss[i].expect);
		putchp(' ');
		tc_putp(rqss[i].set_mode);
		sprintf(temp, "\033P$q%s\033\\", rqss[i].request);
		tc_putp(temp);
		read_ansi();
		tc_putp(rqss[i].reset_mode);
		putchp(' ');
		for (j = 0; ansi_buf[j]; j++) {
			if (ansi_buf[j] == 'r') {
				for (k = j++; (ch = UChar(ansi_buf[k])) != 0; k++)
					if (ch == A_ESC) {
						break;
					} else if (ch == A_ST) {
						break;
					}
				ansi_buf[k] = '\0';
				s = expand((const char *)&ansi_buf[j]);
				if (char_count + expand_chars >= columns)
					put_str("\r\n        ");
				put_str(s);
			}
		}
		put_crlf();
	}
	/* calculate the valid attributes */
	ptext("Valid attributes:         0");
	j = 0;
	for (i = 1; i < 20; i++) {
		sprintf(temp, "\033[0;%dm\033P$qm\033\\", i);
		tc_putp(temp);
		(void) valid_mode('m');
		if (ape > 0) {
			j = i;
			sprintf(temp, "\033[0m; %d", i);
			tc_putp(temp);
		}
	}
	put_crlf();
	/* calculate how many parameters can be sent */
	ptext("Max number of parameters: ");
	sprintf(temp, "%dm\033P$qm\033\\", j);
	l = -1;
	if (j > 0)
		for (l = 1; l < 33; l++) {
			tc_putp("\033[0");
			for (ch = 1; ch <= l; ch++)
				put_this(';');
			tc_putp(temp);
			(void) valid_mode('m');
			if (ape == 0)
				break;
		}
	tc_putp("\033[m");
	if (l >= 0) {
		sprintf(temp, "%d", l);
		ptext(temp);
	} else
		ptext("unknown");
	put_crlf();
	return wait_here();
}

/*
**	mode_display(puc, mode, initial, set, reset)
**
**	print the mode display entry
*/
static void
mode_display(const char *p, int n, int c, char s, char r)
{
	int k;

	sprintf(temp, "%s%d (%c, %c, %c)", p, n, c, s, r);
	k = strlen(temp);
	if (char_count + k >= columns)
		put_crlf();
	for (; k < 14; k++)
		putchp(' ');
	put_str(temp);
}

/*
**	terminal_state()
**
**	test DECRQM status reports
*/
static void
terminal_state(void)
{
	static const char *puc[] = {"", "<", "=", ">", "?", 0};

	int i, j, k, l, modes_found;
	char *s;
	char buf[256], tms[256];
	int mode_puc[MAX_MODES], mode_number[MAX_MODES];
	char set_value[MAX_MODES], reset_value[MAX_MODES];
	char current_value[MAX_MODES];

	ptext("Testing terminal mode status. (CSI 0 $ p)");
	tc_putp("\033[0$p");
	modes_found = 0;
	tms[0] = '\0';
	if (valid_mode(('$' << 8) | 'y')) {
		for (i = 0; puc[i]; i++) {
			put_crlf();
			if (i) {
				sprintf(temp, "Private use: %c", puc[i][0]);
			} else {
				strcpy(temp, "Standard modes:");
			}
			k = strlen(temp);
			ptext(temp);