diplodocus.org Git - nmh/blob - uip/termsbr.c

   1
   2 /*
   3  * termsbr.c -- termcap support
   4  *
   5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
   6  * COPYRIGHT file in the root directory of the nmh distribution for
   7  * complete copyright information.
   8  */
   9
  10 #include <h/mh.h>
  11
  12 #include <termios.h>
  13
  14 /* It might be better to tie this to the termcap_curses_order in
  15    configure.ac.  It would be fine to check for ncurses/termcap.h
  16    first on Linux, it's a symlink to termcap.h.  */
  17 #ifdef HAVE_TERMCAP_H
  18 # include <termcap.h>
  19 #elif defined (HAVE_NCURSES_TERMCAP_H)
  20 # include <ncurses/termcap.h>
  21 #endif
  22
  23 /* <sys/ioctl.h> is need anyway for ioctl()
  24 #ifdef GWINSZ_IN_SYS_IOCTL
  25 */
  26 # include <sys/ioctl.h>
  27 /*
  28 #endif
  29 */
  30
  31 #ifdef WINSIZE_IN_PTEM
  32 # include <sys/stream.h>
  33 # include <sys/ptem.h>
  34 #endif
  35
  36 #if BUFSIZ<2048
  37 # define TXTSIZ 2048
  38 #else
  39 # define TXTSIZ BUFSIZ
  40 #endif
  41
  42 static long speedcode;
  43
  44 static int initLI = 0;
  45 static int initCO = 0;
  46
  47 static int HC = 0;       /* are we on a hardcopy terminal?        */
  48 static int LI = 40;      /* number of lines                       */
  49 static int CO = 80;      /* number of colums                      */
  50 static char *CL = NULL;  /* termcap string to clear screen        */
  51 static char *SE = NULL;  /* termcap string to end standout mode   */
  52 static char *SO = NULL;  /* termcap string to begin standout mode */
  53
  54 static char termcap[TXTSIZ];
  55
  56
  57 static void
  58 read_termcap(void)
  59 {
  60     char *cp;
  61     char *term;
  62
  63 #ifndef TGETENT_ACCEPTS_NULL
  64     char termbuf[TXTSIZ];
  65 #endif
  66
  67     struct termios tio;
  68     static int inited = 0;
  69
  70     if (inited++)
  71         return;
  72
  73     if (!(term = getenv ("TERM")))
  74         return;
  75
  76 /*
  77  * If possible, we let tgetent allocate its own termcap buffer
  78  */
  79 #ifdef TGETENT_ACCEPTS_NULL
  80     if (tgetent (NULL, term) != TGETENT_SUCCESS)
  81         return;
  82 #else
  83     if (tgetent (termbuf, term) != TGETENT_SUCCESS)
  84         return;
  85 #endif
  86
  87     speedcode = cfgetospeed(&tio);
  88
  89     HC = tgetflag ("hc");
  90
  91     if (!initCO && (CO = tgetnum ("co")) <= 0)
  92         CO = 80;
  93     if (!initLI && (LI = tgetnum ("li")) <= 0)
  94         LI = 24;
  95
  96     cp = termcap;
  97     CL = tgetstr ("cl", &cp);
  98     if (tgetnum ("sg") <= 0) {
  99         SE = tgetstr ("se", &cp);
 100         SO = tgetstr ("so", &cp);
 101     }
 102 }
 103
 104
 105 int
 106 sc_width (void)
 107 {
 108 #ifdef TIOCGWINSZ
 109     struct winsize win;
 110     int width;
 111
 112     if (ioctl (fileno (stderr), TIOCGWINSZ, &win) != NOTOK
 113             && (width = win.ws_col) > 0) {
 114         CO = width;
 115         initCO++;
 116     } else
 117 #endif /* TIOCGWINSZ */
 118         read_termcap();
 119
 120     return CO;
 121 }
 122
 123
 124 int
 125 sc_length (void)
 126 {
 127 #ifdef TIOCGWINSZ
 128     struct winsize win;
 129
 130     if (ioctl (fileno (stderr), TIOCGWINSZ, &win) != NOTOK
 131             && (LI = win.ws_row) > 0)
 132         initLI++;
 133     else
 134 #endif /* TIOCGWINSZ */
 135         read_termcap();
 136
 137     return LI;
 138 }
 139
 140
 141 static int
 142 outc (int c)
 143 {
 144     return putchar(c);
 145 }
 146
 147
 148 void
 149 clear_screen (void)
 150 {
 151     read_termcap ();
 152
 153     if (CL && speedcode)
 154         tputs (CL, LI, outc);
 155     else {
 156         printf ("\f");
 157         if (speedcode)
 158             printf ("\200");
 159     }
 160
 161     fflush (stdout);
 162 }
 163
 164
 165 /*
 166  * print in standout mode
 167  */
 168 int
 169 SOprintf (char *fmt, ...)
 170 {
 171     va_list ap;
 172
 173     read_termcap ();
 174     if (!(SO && SE))
 175         return NOTOK;
 176
 177     tputs (SO, 1, outc);
 178
 179     va_start(ap, fmt);
 180     vprintf (fmt, ap);
 181     va_end(ap);
 182
 183     tputs (SE, 1, outc);
 184
 185     return OK;
 186 }
 187
 188 /*
 189  * Is this a hardcopy terminal?
 190  */
 191
 192 int
 193 sc_hardcopy(void)
 194 {
 195     read_termcap();
 196     return HC;
 197 }
 198