Return to ttest.c CVS log

Up to [Research Unix] / researchv9 / cmd / emacs

researchv9-SUN3(old)

#include <stdio.h>

/* EMACS_MODES: c, !fill */

/* terminal type tester.  exercises terminal capabilities to dest
 * their definition and use. */

extern char *UP;					/* cursor up line */
extern char *DOWN;
extern char *BACK;
extern char *FORWARD;
extern char *HOME;
extern char *CLEAR;
extern char *CLREST;
extern char *CLINE;
extern char *BELL;
extern char *CURAD;
extern char *TMAP;
extern char *NOP;
extern char *LOPEN;
extern char *LDEL;
extern char *INSERTC;
extern char *INSERTM;
extern char *OSERTC;
extern char *INSERTP;
extern char *DELC;
extern char *SSCROLL;
extern char *RSCROLL;
extern char *CR;
extern char *SCREG;
extern char *ULINE;
extern int EOVER;
extern char *SCINIT;
extern char *VEXIT;
extern int XBASE;
extern int YBASE;
extern int SCRWID;
extern int SCRNLIN;
extern int SCRWRAP;
extern int VCOST;
extern int SRCADD;
extern int MI;
extern int IN;
extern int DELMODE;
extern char *RELUP;
extern char *RELDOWN;
extern char *RELFORW;
extern char *RELBACK;

extern int scrlin,scrcol;

pause()
{
	mgetchar();
}

main()
{
	int i;
	
	ttystart();			/* start terminal processing */
	
/* Clear screen test */
	
	xprintf ("\n\n       Clear Screen Test");
	pause();
	clear();
	xprintf (
		"*\n Screen was cleared, astrick @ upper left of screen");
	pause();
	
/* Cursor addressing: */

	clear();

	if (CURAD) {
		for (i = 0; i <= SCRWID;  i++) {
			scrlin = -100;		/* make sure we do cursor movement */
			mgo(10,i);
			putchar((i&07)+'0');
		}
		mgo(12,10);
		xprintf ("Above line should count accross the screen 0-7");
		pause();
		clear();
		for (i = 0; i < SCRNLIN; i++) {
			scrlin = -100;
			mgo(i,SCRWID/2);
			xprintf ("%d",i);
		}
		mgo(0,0);
		xprintf ("Screen should");
		mgo(1,0);
		xprintf ("have a line");
		mgo(2,0);
		xprintf ("counting down");
		mgo(3,0);
		xprintf ("the middle");
		pause();
		clear();
	}
	if (!CURAD) {
		switch ((RELUP!=0)+
			(RELDOWN!=0)+
			(RELFORW!=0)+
			(RELBACK!=0)) {
				
		default:
			xprintf("ru, rd, rr and rl must all be defined");
			pause();
			clear();
			die(0);

		case 4 : ;
		/* Need some relative addressing tests here */

		case 0: ;
		}
	}
	if ((!CURAD)&&(!RELUP)&&((!UP)||(!DOWN)||((!CR)&&(!BACK)))) {
		xprintf(
		"Must have cursor addressing, or up, do & (cr or bc)");
		pause();
		clear();
		die(0);
	}
/* RELATIVE SCREEN MOTION */
	
	if (BACK) {
		mgo(5,0);
		xprintf ("Drawing backwards from 10,20 to 10,0");
		mgo(10,20);
		for (i = 0; i < 20; i++) {
			putchar('x');
			eprintf(BACK);
			eprintf(BACK);
		}
		putchar('x');
		eprintf(BACK);
		pause();
		clear();
	}
	if (FORWARD) {
		mgo(5,0);
		xprintf ("Drawing Forwards from 10,0 to 10,20");
		if (BACK==0) {
			mgo(6,0);
			xprintf("Skipping everyother character");
		}
		mgo(10,0);
		for (i = 0; i < 20; i++) {
			putchar('x');
			if (BACK) eprintf(BACK);
			else i++;
			eprintf(FORWARD);
		}
		putchar('x');
		eprintf(BACK);
		pause();
		clear();
	}
	if (DOWN) {
		mgo(0,5);
		if (BACK) xprintf ("Drawing down from 1,20 to 21,20");
		else xprintf("Drawing down diagonal from 1,20 to 21,40");
		mgo(1,20);
		for (i = 0; i < 20; i++) {
			putchar('x');
			eprintf(BACK);
			eprintf(DOWN);
		}
		putchar('x');
		eprintf(BACK);
		pause();
		clear();
	}
	if (UP) {
		mgo(0,5);
		if (BACK) xprintf ("Drawing UP from 21,20 to 1,20");
		else xprintf("Drawing up diagonal from 21,20 to 1,40");
		mgo(21,20);
		for (i = 0; i < 20; i++) {
			putchar('x');
			eprintf(BACK);
			eprintf(UP);
		}
		putchar('x');
		eprintf(BACK);
		pause();
		clear();
	}
/* Carriage Return  */
	
	if (CR) {
		mgo(10,25);
		xprintf ("Carriage");
		mgo(10,0);
		xprintf ("Return");
		pause();
		clear();
	}
	
/* HOME */
	
	if (HOME) {
		mgo(10,25);
		xprintf ("Going");
		eprintf (HOME);
		printf("Home");
		pause();
		clear();
	}
	
/* Wrapping */
	
	if (SCRWRAP) {
		mgo(5,SCRWID-6);
		printf("cursor wraps");
		if (CURAD) {
			scrlin = -100;
			mgo(7,0);
		} else {
			printf("\r\n"); /* PUNT for terminal with no CM */
		}
		printf("wraps under wraps");
		pause();
		clear();
	}
	
	if (CLINE) {
		mgo(10,0);
		xprintf ("clearing everything after clear");
		mgo(11,0);
		xprintf ("clearing everything after clear");
		mgo(10,5);
		clrl();
		pause();
		clear();
	}
/* BELL */
	
	if (BELL) {
		xprintf ("beep beep beep");
		beep();
		sdelay(1000);
		beep();
		sdelay(1000);
		beep();
		clear();
	}
	if (SSCROLL){
		mgo(SCRNLIN-1,0);
		printf ("scrolling");
		eprintf(SSCROLL);
		mgo(SCRNLIN-1,0);
		printf("up");
		eprintf(SSCROLL);
		mgo(SCRNLIN-1,0);
		printf("the");
		eprintf(SSCROLL);
		mgo(SCRNLIN-1,0);
		printf("screen");
		pause();
		clear();
	}
	if (INSERTC||INSERTM) { 
		
		mgo(10,0);
		xprintf("Testing insert character.");
		if (IN) {
			xprintf ("		These won't move unless pushed\n");
			xprintf("These move when you push them\n");
		}
		else xprintf ("		These move too\n");
		xprintf("  all characters except ^G insert after test");
		mgo(10,4);
		if (INSERTM) {
			eprintf(INSERTM);
		}
		while ((i = mgetchar()) != '') {
			if (INSERTC) eprintf(INSERTC);
			putchar(i);
			if (INSERTP) eprintf(INSERTP);
		}
		if (OSERTC) eprintf(OSERTC);
		clear();
	}
	if (DELC) { 
		mgo(10,0);
		xprintf("Testing delete character.");
		if (IN) {
			xprintf(" All of these characters, including the wrap to the new line, should move");
			xprintf ("		These won't move\n");
		}
		else xprintf ("		These move too\n");
		xprintf("  all characters except ^G delete after test");
		mgo(10,4);
		if (DELMODE) {
			eprintf(INSERTM);
		}
		while ((i = mgetchar()) != '') {
			eprintf(DELC);
		}
		if (DELMODE) eprintf(OSERTC);
		clear();
	}
	if ((SCREG)&&((!SSCROLL)||(!RSCROLL)||(!CURAD))) {
		mgo(1,1);
		xprintf("Region scrolling requires sf, sr and cm");
		pause();
		clear();
		goto skipscroll;
	}
	if (LOPEN) {
		for (i = 0; i < SCRNLIN; i++) {
			mgo(i,0);
			xprintf ("Line %d",i);
		}
		mgo(0,10);
		xprintf("u to scroll lines %d through %d up",2,SCRNLIN-2);
		mgo(1,10);
		xprintf("d to scroll down");
again:		i = mgetchar();
		if (i == 'u') {
			vadjust(2,SCRNLIN-2,-1);
			goto again;
		}
		if (i == 'd') {
			vadjust(2,SCRNLIN-2,1);
			goto again;
		}
		clear();
	}
skipscroll:
	if (ULINE) {
		
		if (EOVER) {
			mgo(4,0);
			uprint("Underlined_Characters");
			mgo(6,0);
			uprint("These won't wind up underlined");
			mgo(6,0);
			xprintf("These won't wind up underlined");
		} else {
			mgo(6,0);
			EOVER = 1;
			uprint("...............................");
			EOVER = 0;
			mgo(6,0);
			xprintf("These characters are underlined");
		}
		pause();
		clear();
	}
	die(0);
		
}

uprint(sp)
register char *sp;
{
	int lie = 0;
	if (!EOVER) {
		/* terminal does not overwrite underscores! */
		/* What a mess, tell handler it will */
		lie = 1;
		EOVER = 0;
	}
	while (*sp) {
			xputc('_');
			xputc('\b');
			xputc(*sp++);
	}
	if (lie) EOVER=1;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.