www.pudn.com > pccp047.zip > TERMPLAY.C

/*	Copyright (C) 1992 Peter Edward Cann, all rights reserved. 
 */ 
 
#include 
#include 
#include 
#include 
#include 
#include"emu.h" 
#include"color.h" 
 
#define LISTSIZ 16 
 
struct 
	{ 
	short index; 
	short row; 
	char rowset; 
	short column; 
	char colset; 
	short list[LISTSIZ]; 
	short listindex; 
	} 
	funcstor[NFUNCS]; 
 
clrfuncstor(seqn) 
	short seqn; 
	{ 
	int i; 
	if(funcstor[seqn].listindex==LISTSIZ) 
		funcstor[seqn].listindex--; 
	for(i=funcstor[seqn].listindex;i>=0;i--) 
		funcstor[seqn].list[i]=0; 
	funcstor[seqn].row=funcstor[seqn].column=funcstor[seqn].listindex=funcstor[seqn].index=funcstor[seqn].rowset=funcstor[seqn].colset=0; 
	} 
 
int bold, faint, blink, inverse, bkcolor, fgcolor; 
struct videoconfig far *vconf; 
 
atthndl() 
	{ 
	int adds, workingbk, workingfg; 
	adds=0; 
	if((vconf->adapter!=_MDPA)&&(vconf->adapter!=_HGC)) 
		{ 
		workingbk=bkcolor; 
		workingfg=fgcolor; 
		if(faint) 
			if(inverse) 
				if(bkcolor==WHITE) 
					workingbk=GRAY; 
				else if(bkcolor==BLACK) 
					; 
				else 
					adds+=FAINTADD; 
			else 
				if(fgcolor==WHITE) 
					workingfg=GRAY; 
				else if(fgcolor==BLACK) 
					; 
				else 
					adds+=FAINTADD; 
		else 
			if(bold) 
				{ 
				if(bkcolor==WHITE) 
					workingbk=BWHITE; 
				if(fgcolor==WHITE) 
					workingfg=BWHITE; 
				} 
		if(blink) 
			adds+=BLINKADD; 
		if(inverse) 
			{ 
			_settextcolor(workingbk+adds); 
			_setbkcolor((long)(workingfg&0x07)); 
			} 
		else 
			{ 
			_settextcolor(workingfg+adds); 
			_setbkcolor((long)(workingbk&0x07)); 
			} 
		} 
	else 
		{ 
		workingbk=BLACK; 
		if(bold&&!inverse) 
			workingfg=M_UNDER; 
		else 
			if(inverse) 
				workingfg=WHITE; 
			else 
				workingfg=M_NORMAL; 
		if(faint) 
			if(inverse) 
				if(bkcolor!=BLACK) 
					adds+=FAINTADD; 
				else; 
			else 
				if(fgcolor!=BLACK) 
					adds+=FAINTADD; 
		if(blink) 
			adds+=BLINKADD; 
		if(inverse) 
			{ 
			_settextcolor(workingbk+adds); 
			_setbkcolor((long)(workingfg&0x07)); 
			} 
		else 
			{ 
			_settextcolor(workingfg+adds); 
			_setbkcolor((long)(workingbk&0x07)); 
			} 
		} 
	} 
 
 
ansiatthndl(seqn) 
	short seqn; 
	{ 
	int i, adds, workingbk, workingfg; 
	if(emu.funcs[seqn].func==ANSIATTRIB) 
		for(i=0;i1) 
				_settextposition(posptr.row-1, posptr.col); 
			break; 
		case DOWN: 
			posptr=_gettextposition(); 
			if(posptr.row<24) 
				_settextposition(posptr.row+1, posptr.col); 
			else 
				{ 
				showchar('\n'); 
				_settextposition(posptr.row, posptr.col); 
				} 
			break; 
		case LEFT: 
			posptr=_gettextposition(); 
			if(posptr.col>1) 
				_settextposition(posptr.row, posptr.col-1); 
			break; 
		case RIGHT: 
			posptr=_gettextposition(); 
			if(posptr.col<80) 
				_settextposition(posptr.row, posptr.col+1); 
			break; 
		case GOTO: 
			funcstor[seqn].row-=(emu.firstrowaddr-1); 
			funcstor[seqn].column-=(emu.firstcoladdr-1); 
			if(funcstor[seqn].row<1) 
				funcstor[seqn].row=1; 
			if(funcstor[seqn].row>24) 
				funcstor[seqn].row=24; 
			if(funcstor[seqn].column<1) 
				funcstor[seqn].column=1; 
			if(funcstor[seqn].column>80) 
				funcstor[seqn].row=80; 
			_settextposition((emu.tophi_p?25-funcstor[seqn].row:funcstor[seqn].row), funcstor[seqn].column); 
			break; 
		case NORMAL: 
			fgcolor=WHITE; 
			bkcolor=BLACK; 
			blink=faint=bold=inverse=0; 
			atthndl(); 
			break; 
		case BLINK: 
			blink=1; 
			atthndl(); 
			break; 
		case NOBLINK: 
			blink=0; 
			atthndl(); 
			break; 
		case BOLD: 
			bold=1; 
			atthndl(); 
			break; 
		case NOBOLD: 
			bold=0; 
			atthndl(); 
			break; 
		case FAINT: 
			faint=1; 
			atthndl(); 
			break; 
		case NOFAINT: 
			faint=0; 
			atthndl(); 
			break; 
		case INVERSE: 
			inverse=1; 
			atthndl(); 
			break; 
		case NOINVERSE: 
			inverse=0; 
			atthndl(); 
			break; 
		case UPN: 
			posptr=_gettextposition(); 
			if(posptr.row-funcstor[seqn].row<1) 
				_settextposition(1, posptr.col); 
			else 
				_settextposition(posptr.row-funcstor[seqn].row, posptr.col); 
			break; 
		case DOWNN: 
			posptr=_gettextposition(); 
			if(posptr.row+funcstor[seqn].row>24) 
				{ 
				_settextposition(24,1); 
				for(i=25-(posptr.row+funcstor[seqn].row);i<0;++i) 
					showchar('\n'); 
				_settextposition(24, posptr.col); 
				} 
			else 
				_settextposition(posptr.row+funcstor[seqn].row, posptr.col); 
			break; 
		case LEFTN: 
			posptr=_gettextposition(); 
			if(posptr.col-funcstor[seqn].column<1) 
				_settextposition(posptr.row, 1); 
			else 
				_settextposition(posptr.row, posptr.col-funcstor[seqn].column); 
			break; 
		case RIGHTN: 
			posptr=_gettextposition(); 
			if(posptr.col+funcstor[seqn].column>80) 
				_settextposition(posptr.row, 80); 
			else 
				_settextposition(posptr.row, posptr.col+funcstor[seqn].column); 
			break; 
		case ANSIATTRIB: 
			ansiatthndl(seqn); 
			break; 
		case WRAP: 
			wrap_p=1; 
			wrapctl(); 
			break; 
		case NOWRAP: 
			wrap_p=0; 
			wrapctl(); 
			break; 
		case GOTOLINE: 
			funcstor[seqn].row-=(emu.firstrowaddr-1); 
			posptr=_gettextposition(); 
			if(funcstor[seqn].row<1) 
				funcstor[seqn].row=1; 
			if(funcstor[seqn].row>24) 
				funcstor[seqn].row=24; 
			_settextposition(emu.tophi_p?25-funcstor[seqn].row:funcstor[seqn].row, 1); 
			break; 
		case GOTOCOL: 
			funcstor[seqn].column-=(emu.firstcoladdr-1); 
			posptr=_gettextposition(); 
			if(funcstor[seqn].column<1) 
				funcstor[seqn].column=1; 
			if(funcstor[seqn].column>80) 
				funcstor[seqn].row=80; 
			_settextposition(posptr.row, funcstor[seqn].column); 
			break; 
		case BINATTR: 
			if((funcstor[seqn].row-emu.attroffset)&emu.blinkmask) 
				blink=1; 
			else 
				blink=0; 
			if((funcstor[seqn].row-emu.attroffset)&emu.inversemask) 
				inverse=1; 
			else 
				inverse=0; 
			if((funcstor[seqn].row-emu.attroffset)&emu.boldmask) 
				bold=1; 
			else 
				bold=0; 
			if((funcstor[seqn].row-emu.attroffset)&emu.faintmask) 
				faint=1; 
			else 
				faint=0; 
			atthndl(); 
			break; 
		case GRAPHCHAR: 
			showchar(emu.gchars[funcstor[seqn].row]); 
			break; 
		case BEGGRAPH: 
			graphics=1; 
			break; 
		case ENDGRAPH: 
			graphics=0; 
			break; 
		case TAB: 
			posptr=_gettextposition(); 
			_settextposition(posptr.row, posptr.col+(8-((posptr.col-1)%8))); 
			break; 
		case BELL: 
			putch(7); 
			break; 
		case DTAB: 
			posptr=_gettextposition(); 
			for(i=0;i<(8-((posptr.col-1)%8));++i) 
				_outtext(" "); 
 
		case CRLF: 
			showchar('\n'); 
			break; 
		case SAVEPOS: 
			posptr=_gettextposition(); 
			savedrow=posptr.row; 
			savedcol=posptr.col; 
			break; 
		case RESTOREPOS: 
			_settextposition(savedrow, savedcol); 
			break; 
		default: 
			break; 
		} 
	} 
 
dispport(c) 
	unsigned char c; 
	{ 
	int seqn, done, ok; 
	done=0; 
	ok=0; 
	for(seqn=0;seqn='0')&&(c<='9')) 
						{ 
						ok=1; 
						funcstor[seqn].column*=10; 
						funcstor[seqn].column+=(c-'0'); 
						funcstor[seqn].colset=1; 
						} 
					else 
						if(funcstor[seqn].colset&&(c==emu.funcs[seqn].codes[++funcstor[seqn].index])) 
							{ 
							ok=1; 
							if(emu.funcs[seqn].codes[++funcstor[seqn].index]==END) 
								{ 
								done=1; 
								perffunc(seqn); 
								} 
							} 
						else 
							clrfuncstor(seqn); 
					break; 
				case ASCDECROW: 
					if((c>='0')&&(c<='9')) 
						{ 
						ok=1; 
						funcstor[seqn].row*=10; 
						funcstor[seqn].row+=(c-'0'); 
						funcstor[seqn].rowset=1; 
						} 
					else 
						if(funcstor[seqn].rowset&&(c==emu.funcs[seqn].codes[++funcstor[seqn].index])) 
							{ 
							ok=1; 
							if(emu.funcs[seqn].codes[++funcstor[seqn].index]==END) 
								{ 
								done=1; 
								perffunc(seqn); 
								} 
							} 
						else 
							clrfuncstor(seqn); 
					break; 
				case ASCDECSEMILIST: 
					if((c>='0')&&(c<='9')&&(funcstor[seqn].listindex