/* emu-rops,v 1.2 1994/05/26 21:02:07 me Exp */

/*
 * This file is part of the Emu system.
 *
 * Copyright 1990 by PCS Computer Systeme, GmbH. Munich, West Germany.
 * 
 * Copyright 1994 by Jordan K. Hubbard and Michael W. Elbel
 *
 * Permission is hereby granted, free of charge, to any person obtaining
 * a copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, sublicense, and/or sell copies of the Software, and to
 * permit persons to whom the Software is furnished to do so, subject to
 * the following conditions:
 * 
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 * IN NO EVENT SHALL PCS, THE AUTHORS, OR THEIR HOUSEPETS BE LIABLE FOR
 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. SO DON'T SUE US.
 * THANK YOU.
 */

/*
 * Various reverse operations for the "emu" terminal.
 *
 * Author: Michael Elbel, Jordan Hubbard.
 * Date: June 28th, 1990
 * Description: Here are the reverse ops for emu inquiries and
 *		initialization
 *
 * Revision History:
 *
 * emu-rops,v
 * Revision 1.2  1994/05/26  21:02:07  me
 * New copyright
 *
 * Revision 1.1.1.1  1994/05/22  11:22:42  me
 * Initial import into CVS
 */

*term.emu-rops:								\
ROP_INSERT_CHAR		<%gA%c>						\
ROP_SCREEN_SIZE		<\\E[%gy%d;%gx%dS>				\
ROP_CURSOR_POS		<\\E[%{gy,1,+,d};%{gx,1,+,d}R>			\
									\
/* Setup stuff */							\
									\
/* Request to initialize the emulation				*/	\
/* Initialize the tty to get the state from the caller		*/	\
/*								*/	\
/* Initialize the canvas:					*/	\
/* Add Translations 						*/	\
/*								*/	\
/* Map the graphics characters into the upper half of the	*/	\
/* character set to allow easier access.			*/	\
/*								*/	\
/* For the font menu, set register F to 0 			*/	\
/* (doesn't really belong here, but there's no rop to		*/	\
/*  initialize the menus yet)					*/	\
/*								*/	\
/* IF we have more than 2 colors				*/	\
/* Initialize colors 1 to 15 to be 				*/	\
/*	 1 black						*/	\
/*	 2 red							*/	\
/*	 3 green						*/	\
/*	 4 yellow						*/	\
/*	 5 blue							*/	\
/*	 6 magenta						*/	\
/*	 7 cyan							*/	\
/*	 8 white						*/	\
/*	 9 gray20						*/	\
/*	10 gray30						*/	\
/*	11 gray40						*/	\
/*	12 gray50						*/	\
/*	13 gray60						*/	\
/*	14 gray70						*/	\
/*	15 gray80						*/	\
/* both on background and foreground				*/	\
/*								*/	\
ROP_INIT_CANVAS		<%{						\
			"numKeypad" pa OP_OVERRIDE_TRANSLATIONS C	\
			"CKeys" pa OP_OVERRIDE_TRANSLATIONS C		\
			"fkeys" pa OP_OVERRIDE_TRANSLATIONS C		\
			"miscFkeys" pa OP_OVERRIDE_TRANSLATIONS C	\
			"multiKeys" pa OP_OVERRIDE_TRANSLATIONS C	\
			"graphics" pa  128 pb OP_CHANGE_FLUT C		\
			0 pF						\
			OP_CANVAS_DISPLAY_CELLS C ga 2 = ! ?		\
			   1 pa "black" D pb pc OP_SET_CIT_CELL C	\
			   2 pa "red" D pb pc OP_SET_CIT_CELL C		\
			   3 pa "green" D pb pc OP_SET_CIT_CELL C	\
			   4 pa "yellow" D pb pc OP_SET_CIT_CELL C	\
			   5 pa "blue" D pb pc OP_SET_CIT_CELL C	\
			   6 pa "magenta" D pb pc OP_SET_CIT_CELL C	\
			   7 pa "cyan" D pb pc OP_SET_CIT_CELL C	\
			   8 pa "white" D pb pc OP_SET_CIT_CELL C	\
			   9 pa "gray20" D pb pc OP_SET_CIT_CELL C	\
			   10 pa "gray30" D pb pc OP_SET_CIT_CELL C	\
			   11 pa "gray40" D pb pc OP_SET_CIT_CELL C	\
			   12 pa "gray50" D pb pc OP_SET_CIT_CELL C	\
			   13 pa "gray60" D pb pc OP_SET_CIT_CELL C	\
			   14 pa "gray70" D pb pc OP_SET_CIT_CELL C	\
			   15 pa "gray80" D pb pc OP_SET_CIT_CELL C	\
			;						\
			}>
