fish/microemacs/vt52.c

   1 /*
   2  * The routines in this file
   3  * provide support for VT52 style terminals
   4  * over a serial line. The serial I/O services are
   5  * provided by routines in "termio.c". It compiles
   6  * into nothing if not a VT52 style device. The
   7  * bell on the VT52 is terrible, so the "beep"
   8  * routine is conditionalized on defining BEL.
   9  */
  10 #include        <stdio.h>
  11 #include        "ed.h"
  12
  13 #if     VT52
  14
  15 #define NROW    24                      /* Screen size.                 */
  16 #define NCOL    80                      /* Edit if you want to.         */
  17 #define BIAS    0x20                    /* Origin 0 coordinate bias.    */
  18 #define ESC     0x1B                    /* ESC character.               */
  19 #define BEL     0x07                    /* ascii bell character         */
  20
  21 extern  int     ttopen();               /* Forward references.          */
  22 extern  int     ttgetc();
  23 extern  int     ttputc();
  24 extern  int     ttflush();
  25 extern  int     ttclose();
  26 extern  int     vt52move();
  27 extern  int     vt52eeol();
  28 extern  int     vt52eeop();
  29 extern  int     vt52beep();
  30 extern  int     vt52open();
  31
  32 /*
  33  * Dispatch table. All the
  34  * hard fields just point into the
  35  * terminal I/O code.
  36  */
  37 TERM    term    = {
  38         NROW-1,
  39         NCOL,
  40         &vt52open,
  41         &ttclose,
  42         &ttgetc,
  43         &ttputc,
  44         &ttflush,
  45         &vt52move,
  46         &vt52eeol,
  47         &vt52eeop,
  48         &vt52beep
  49 };
  50
  51 vt52move(row, col)
  52 {
  53         ttputc(ESC);
  54         ttputc('Y');
  55         ttputc(row+BIAS);
  56         ttputc(col+BIAS);
  57 }
  58
  59 vt52eeol()
  60 {
  61         ttputc(ESC);
  62         ttputc('K');
  63 }
  64
  65 vt52eeop()
  66 {
  67         ttputc(ESC);
  68         ttputc('J');
  69 }
  70
  71 vt52beep()
  72 {
  73 #ifdef  BEL
  74         ttputc(BEL);
  75         ttflush();
  76 #endif
  77 }
  78
  79 #endif
  80
  81 int vt52open(void)
  82 {
  83 #if     V7
  84         register char *cp;
  85         char *getenv();
  86
  87         if ((cp = getenv("TERM")) == NULL) {
  88                 puts("Shell variable TERM not defined!");
  89                 exit(1);
  90         }
  91         if (strcmp(cp, "vt52") != 0 && strcmp(cp, "z19") != 0) {
  92                 puts("Terminal type not 'vt52'or 'z19' !");
  93                 exit(1);
  94         }
  95 #endif
  96         return ttopen();
  97 }
  98