home *** CD-ROM | disk | FTP | other *** search
- /* tcap: Unix V5, V7 and BS4.2 Termcap video driver
- for beav
- */
-
- #include "def.h"
-
- #ifdef UNIX
-
- #define MARGIN 8
- #define SCRSIZ 64
- #define NPAUSE 10 /* # times thru update to pause */
- #define BEL 0x07
- #define ESC 0x1B
-
- extern char *tgoto();
-
- #ifdef NOPROTO
- extern int ttputc();
- void putpad();
- #endif
-
- #ifdef COLOR
- extern int tcapfcol();
- extern int tcapbcol();
- #endif
-
- #define TCAPSLEN 315
- char tcapbuf[TCAPSLEN];
- char *UP, PC, *CM, *CE, *CL, *SO, *SE;
-
- #ifdef BSD
- #include <sys/ioctl.h>
- struct ttysize ttysize;
- #endif /* BSD */
- #ifdef ULTRIX
- struct ttysize ttysize;
- #endif
-
- void putpad(str)
- char *str;
- {
- tputs(str, 1, ttputc);
- }
-
- void tcapopen()
- {
- char *getenv();
- char *t, *p, *tgetstr();
- char tcbuf[1024];
- char *tv_stype;
- char err_str[NCOL];
- #ifdef ULTRIX
- struct winsize ttysize;
- #endif
-
- if ((tv_stype = getenv("TERM")) == NULL)
- {
- puts("Environment variable TERM not defined!\r");
- ttclose();
- exit(1);
- }
-
- if ((tgetent(tcbuf, tv_stype)) != 1)
- {
- sprintf(err_str, "Unknown terminal type %s!\r", tv_stype);
- puts(err_str);
- ttclose(); /* fix in 1.13 */
- exit(1);
- }
-
-
- #ifdef BSD
- #ifdef ULTRIX
- if (ioctl(0, TIOCGWINSZ, &ttysize) == 0
- && ttysize.ws_row > 0) {
- nrow = ttysize.ws_row;
- } else
- #else
- if (ioctl(0, TIOCGSIZE, &ttysize) == 0
- && ttysize.ts_lines > 0) {
- nrow = ttysize.ts_lines;
- }
- else
- #endif /* ULTRIX */
- #endif /* BSD */
- if ((nrow=(short)tgetnum("li")-1) == -1){
- puts("termcap entry incomplete (lines)\r");
- ttclose(); /* fix in 1.13 */
- exit(1);
- }
- printf ("nrow %d, ncol %d\n", nrow, ncol);
- /* don't allow to specify a larger number of rows than we can handle 1.13 */
- if (nrow > NROW)
- nrow = NROW;
-
- if ((ncol=(short)tgetnum("co")) == -1){
- puts("Termcap entry incomplete (columns)\r");
- ttclose(); /* fix in 1.13 */
- exit(1);
- }
- /* don't allow to specify a larger number of cols than we can handle 1.13 */
- if (ncol > NCOL)
- ncol = NCOL;
-
- p = tcapbuf;
- t = tgetstr("pc", &p);
- if(t)
- PC = *t;
-
- CL = tgetstr("cl", &p);
- CM = tgetstr("cm", &p);
- CE = tgetstr("ce", &p);
- UP = tgetstr("up", &p);
- SE = tgetstr("se", &p);
- SO = tgetstr("so", &p);
-
- if(CL == NULL || CM == NULL || UP == NULL)
- {
- puts("Incomplete termcap entry\r");
- ttclose(); /* fix in 1.13 */
- exit(1);
- }
-
- if (p >= &tcapbuf[TCAPSLEN])
- {
- puts("Terminal description too big!\r");
- ttclose(); /* fix in 1.13 */
- exit(1);
- }
- }
-
- void tcapmove(row, col)
- register int row, col;
- {
- putpad(tgoto(CM, col, row));
- }
-
- void tcapeeol()
- {
- putpad(CE);
- }
-
- void tcapeeop()
- {
- putpad(CL);
- }
-
- void tcaprev(state) /* change reverse video status */
- int state; /* FALSE = normal video, TRUE = reverse video */
-
- {
- if (state) {
- if (SO != NULL)
- putpad(SO);
- } else
- if (SE != NULL)
- putpad(SE);
- }
-
- void putnpad(str, n)
- char *str;
- {
- tputs(str, n, ttputc);
- }
-
- #endif
-