home *** CD-ROM | disk | FTP | other *** search
- #if !defined(DOS)
- static char rcsid[] = "$Id: ansi.c,v 4.3 1993/04/15 00:18:07 mikes Exp $";
- #endif
- /*
- * Program: ANSI terminal driver routines
- *
- *
- * Michael Seibel
- * Networks and Distributed Computing
- * Computing and Communications
- * University of Washington
- * Administration Builiding, AG-44
- * Seattle, Washington, 98195, USA
- * Internet: mikes@cac.washington.edu
- *
- * Please address all bugs and comments to "pine-bugs@cac.washington.edu"
- *
- * Copyright 1991-1993 University of Washington
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee to the University of
- * Washington is hereby granted, provided that the above copyright notice
- * appears in all copies and that both the above copyright notice and this
- * permission notice appear in supporting documentation, and that the name
- * of the University of Washington not be used in advertising or publicity
- * pertaining to distribution of the software without specific, written
- * prior permission. This software is made available "as is", and
- * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
- * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
- * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
- * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
- * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
- * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
- * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- * Pine and Pico are trademarks of the University of Washington.
- * No commercial use of these trademarks may be made without prior
- * written permission of the University of Washington.
- */
- /*
- * The routines in this file provide support for ANSI style terminals
- * over a serial line. The serial I/O services are provided by routines in
- * "termio.c". It compiles into nothing if not an ANSI device.
- */
-
- #define termdef 1 /* don't define "term" external */
-
- #include <stdio.h>
- #include "estruct.h"
- #include "edef.h"
- #include "osdep.h"
-
- #ifdef VMS
- #include "pico.h"
- #ifdef HEBREW
- #include "hebrew.h"
- #endif
- #endif /* VMS */
-
- #if ANSI_DRIVER
-
- #define MARGIN 8 /* size of minimim margin and */
- #define SCRSIZ 64 /* scroll size for extended lines */
- #define BEL 0x07 /* BEL character. */
- #define ESC 0x1B /* ESC character. */
-
- extern int ttopen(); /* Forward references. */
- extern int ttgetc();
- extern int ttputc();
- extern int ttflush();
- extern int ttclose();
- extern int ansimove();
- extern int ansieeol();
- extern int ansieeop();
- extern int ansibeep();
- extern int ansiopen();
- extern int ansirev();
- /*
- * Standard terminal interface dispatch table. Most of the fields point into
- * "termio" code.
- */
- #ifdef VMS
- #ifdef __ALPHA
- TERM term = {
- #else
- globaldef TERM term = {
- #endif
- #endif
- NROW-1,
- NCOL,
- MARGIN,
- SCRSIZ,
- ansiopen,
- ttclose,
- ttgetc,
- ttputc,
- ttflush,
- ansimove,
- ansieeol,
- ansieeop,
- ansibeep,
- ansirev
- };
-
- #ifdef VMS
- /* The functions here call TTmove which calls AnsiMove in Hebrew mode...
- Hence, we call directly the output routine which is __ttputc.
- This decleration MUST NOT be moved upper, as TTPUTC in TERM array must point
- to the generic one.
- */
- #define ttputc __ttputc
- #endif
-
- ansimove(row, col)
- {
- #ifdef VMS
- #ifdef HEBREW
- if(compose_heb && hebmode)
- col = term.t_ncol - col - 1;
- #endif
- #endif
- ttputc(ESC);
- ttputc('[');
- ansiparm(row+1);
- ttputc(';');
- ansiparm(col+1);
- ttputc('H');
- }
-
- ansieeol()
- {
- ttputc(ESC);
- ttputc('[');
- ttputc('K');
- }
-
- ansieeop()
- {
- ttputc(ESC);
- ttputc('[');
- ttputc('J');
- }
-
- ansirev(state) /* change reverse video state */
-
- int state; /* TRUE = reverse, FALSE = normal */
-
- {
- #ifdef VMS
- static int PrevState = 0;
-
- if(state == PrevState)
- return; /* Nothing to do */
- else PrevState = state; /* remember it */
- #endif /* VMS */
- ttputc(ESC);
- ttputc('[');
- ttputc(state ? '7': '0');
- ttputc('m');
- }
-
- ansibeep()
- {
- ttputc(BEL);
- ttflush();
- }
-
- ansiparm(n)
- register int n;
- {
- register int q;
-
- q = n/10;
- if (q != 0)
- ansiparm(q);
- ttputc((n%10) + '0');
- }
-
- #endif
-
- ansiopen()
- {
- #if V7
- register char *cp;
- char *getenv();
-
- if ((cp = getenv("TERM")) == NULL) {
- puts("Shell variable TERM not defined!");
- exit(1);
- }
- if (strcmp(cp, "vt100") != 0) {
- puts("Terminal type not 'vt100'!");
- exit(1);
- }
- #endif
-
- revexist = TRUE;
- ttopen();
- }
-