Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / obp / obp / os / unix / termcap.c

/*
* ========== Copyright Header Begin ==========================================
*
* Hypervisor Software File: termcap.c
* 
* Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
* 
*  - Do no alter or remove copyright notices
* 
*  - Redistribution and use of this software in source and binary forms, with 
*    or without modification, are permitted provided that the following 
*    conditions are met: 
* 
*  - Redistribution of source code must retain the above copyright notice, 
*    this list of conditions and the following disclaimer.
* 
*  - Redistribution in binary form must reproduce the above copyright notice,
*    this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution. 
* 
*    Neither the name of Sun Microsystems, Inc. or the names of contributors 
* may be used to endorse or promote products derived from this software 
* without specific prior written permission. 
* 
*     This software is provided "AS IS," without a warranty of any kind. 
* ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, 
* INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
* PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN 
* MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR 
* ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR 
* DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN 
* OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR 
* FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE 
* DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, 
* ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF 
* SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
* 
* You acknowledge that this software is not designed, licensed or
* intended for use in the design, construction, operation or maintenance of
* any nuclear facility. 
* 
* ========== Copyright Header End ============================================
*/
/*
 * termcap.c 2.5 01/05/18
 * Copyright 1985-1990 Bradley Forthware
 * Copyright 1990-2001 Sun Microsystems, Inc.  All Rights Reserved
 */

/*
 * Interface to the Unix "termcap" facility for use by Forthmacs running
 * under the C wrapper program.
 * Operations:
 *
 * int t_init()		Called once to initialize things.  Returns 0 if
 *			okay, nonzero if an error occurred.
 *
 * t_op(op)		"Generic" no-arguments terminal operation.  Op is
 *			a number between 0 and 12, corresponding to an
 *			operation in the "opnames" table.
 *
 * t_move(col, row)	Move the cursor to the indicated postion. (0 origin)
 *
 * int t_rows()		The number of rows (lines) on the terminal screen
 *
 * int t_cols()		The number of columns on the terminal screen
 */

#include <stdio.h>
#include <stdlib.h>

#ifdef SYS5
#include <curses.h>
#include <term.h>
#endif SYS5

char *opnames[] = {
	"",		/* 0 left */
	"nd",	/* 1 right */
	"up",	/* 2 up */
	"do",	/* 3 down */
	"ic",	/* 4 insert char */
	"dc",	/* 5 delete char */
	"ce",	/* 6 clear rest of line */
	"cd",	/* 7 clear rest of screen */
	"al",	/* 8 insert line */
	"dl",	/* 9 delete line */
	"cl",	/* 10 clear screen */
	"so",	/* 11 start stand-out mode */
	"se",	/* 12 end stand-out mode */
	"cm",	/* 13 move cursor */
};
char *opstrings[14];

#define	TCAPSLEN 315

extern char *tgoto();
char tcapbuf[TCAPSLEN];

char PC;

#define	PUTC ((int (*)(char))putchar)

static void
putstring(char *str)
{
	char c;

	while (c = *str++)
		PUTC(c);
	fflush(stdout);
}

static int t_inited;
static int nrows = 24;
static int ncols = 80;

void
t_op(int op)
{
	tputs(opstrings[op], 1, PUTC);
}

void
t_move(int col, int row)
{
	tputs(tgoto(opstrings[13], col, row), 1, PUTC);
}

int
t_rows(void)
{
	return (nrows);
}

int
t_cols(void)
{
	return (ncols);
}

int
t_init(void)
{
	char *getenv();
	char *t, *p, *tgetstr();
	char tcbuf[1024];
	char *tv_stype;
	int  i, num;

	if (t_inited)
		return (0);

	if ((tv_stype = getenv("TERM")) == 0) {
		putstring("Environment variable TERM not defined!\n");
		return (-1);
	}

	if ((tgetent(tcbuf, tv_stype)) != 1) {
		putstring("Unknown terminal type ");
		putstring(tv_stype);
		putstring("\n");
		if ((tgetent(tcbuf, "dumb")) != 1)	/* Default to "dumb" */
			return (-2);
	}

	p = tcapbuf;
	t = tgetstr("pc", &p);
	if (t)
		PC = *t;

	/* Entry 0 (left) is a special case */
	i = 0;
	if (tgetflag("bs")) {
		opstrings[0] = "\b";
		i = 1;
	}

	for (; i <= 13; i++) {
		t = tgetstr(opnames[i], &p);
		opstrings[i] = t ? t : "";
	}

	/* Unfortunately, the tty driver may turn the lf into crlf. Sigh. */
	if (*opstrings[3] == '\0')
		opstrings[3] = "\12";

	if ((num = tgetnum("li")) != -1)
		nrows = num - 1;
	if ((num = tgetnum("co")) != -1)
		ncols = num;

	if (p >= &tcapbuf[TCAPSLEN]) {
		putstring("Terminal description too big!\n");
		return (-3);
	}

	t_inited = 1;
	return (0);
}