added "more" command

[unix-history] / usr / src / usr.bin / window / tth19.c

diff --git a/usr/src/usr.bin/window/tth19.c b/usr/src/usr.bin/window/tth19.c
index bad08d3..cda00af 100644 (file)
--- a/usr/src/usr.bin/window/tth19.c
+++ b/usr/src/usr.bin/window/tth19.c
@@ -1,7 +1,13 @@
 #ifndef lint
 #ifndef lint

-static char *sccsid = "@(#)tth19.c     3.8 83/08/17";
+static char sccsid[] = "@(#)tth19.c    3.14 %G%";

 #endif
 
 #endif
 

+/*
+ * Copyright (c) 1983 Regents of the University of California,
+ * All rights reserved.  Redistribution permitted subject to
+ * the terms of the Berkeley Software License Agreement.
+ */
+

 #include "ww.h"
 #include "tt.h"
 
 #include "ww.h"
 #include "tt.h"
 


@@ -17,50 +23,55 @@ kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith:
        es:hs:ts=\Ej\Ex5\Ex1\EY8%+ \Eo:fs=\Ek\Ey5:ds=\Ey1:
 */
 
        es:hs:ts=\Ej\Ex5\Ex1\EY8%+ \Eo:fs=\Ek\Ey5:ds=\Ey1:
 */
 

-char h19_frame[16] = {
-       ' ',      '`'|0x80, 'a'|0x80, 'e'|0x80,
-       '`'|0x80, '`'|0x80, 'f'|0x80, 'v'|0x80,
-       'a'|0x80, 'd'|0x80, 'a'|0x80, 'u'|0x80,
-       'c'|0x80, 't'|0x80, 's'|0x80, 'b'|0x80
+#define NCOL   80
+#define NROW   24
+
+#define G (WWM_GRP << WWC_MSHIFT)
+short h19_frame[16] = {
+       ' ',    '`'|G,  'a'|G,  'e'|G,
+       '`'|G,  '`'|G,  'f'|G,  'v'|G,
+       'a'|G,  'd'|G,  'a'|G,  'u'|G,
+       'c'|G,  't'|G,  's'|G,  'b'|G

 };
 
 };
 

-char h19_row, h19_col;
-char h19_modes, h19_nmodes;
-char h19_insert, h19_ninsert;
-char h19_graphics;
-short h19_msp10c;
-char *h19_VS;
-char *h19_VE;
+extern char *gen_VS;
+extern char *gen_VE;
+
+int h19_msp10c;

 
 

-#define pc(c)  putchar('c')
+#define pc(c)  ttputc('c')

 #define esc()  pc(\033)
 #define PAD(ms10) { \
        register i; \
        for (i = ((ms10) + 5) / h19_msp10c; --i >= 0;) \
                pc(\0); \
 }
 #define esc()  pc(\033)
 #define PAD(ms10) { \
        register i; \
        for (i = ((ms10) + 5) / h19_msp10c; --i >= 0;) \
                pc(\0); \
 }

-#define ICPAD() PAD((80 - h19_col) * 1)                /* 0.1 ms per char */
-#define ILPAD() PAD((24 - h19_row) * 10);      /* 1 ms per char */
+#define ICPAD() PAD((NCOL - tt.tt_col) * 1)    /* 0.1 ms per char */
+#define ILPAD() PAD((NROW - tt.tt_row) * 10)   /* 1 ms per char */

 
 

-#define SETINSERT(m) \
-       ((m) != h19_insert \
-               ? (esc(), (h19_insert = (m)) ? pc(@) : pc(O)) : 0)
-#define SETMODES(m) \
-       ((m) != h19_modes \
-               ? (esc(), (h19_modes = (m)) ? pc(p) : pc(q)) : 0)
-#define SETGRAPHICS(m) \
-       ((m) != h19_graphics \
-               ? (esc(), (h19_graphics = (m)) ? pc(F) : pc(G)) : 0)
-
-h19_setinsert(new)
-char new;
-{
-       h19_ninsert = new;
-}
+#define h19_setinsert(m) (esc(), (tt.tt_insert = (m)) ? pc(@) : pc(O))

 
 h19_setmodes(new)
 
 h19_setmodes(new)

+register new;

 {
 {

-       h19_nmodes = new & WWM_REV;
+       register diff;
+
+       diff = new ^ tt.tt_modes;
+       if (diff & WWM_REV) {
+               esc();
+               if (new & WWM_REV)
+                       pc(p);
+               else
+                       pc(q);
+       }
+       if (diff & WWM_GRP) {
+               esc();
+               if (new & WWM_GRP)
+                       pc(F);
+               else
+                       pc(G);
+       }
+       tt.tt_modes = new;

 }
 
 h19_insline()
 }
 
 h19_insline()


@@ -80,98 +91,61 @@ h19_delline()
 h19_putc(c)
 register char c;
 {
 h19_putc(c)
 register char c;
 {

-       SETMODES(h19_nmodes);
-       SETINSERT(h19_ninsert);
-       if (c & 0x80) {
-               SETGRAPHICS(1);
-               putchar(c & 0x7f);
-       } else {
-               SETGRAPHICS(0);
-               putchar(c);
-       }
-       if (h19_insert)
+       if (tt.tt_nmodes != tt.tt_modes)
+               h19_setmodes(tt.tt_nmodes);
+       if (tt.tt_ninsert != tt.tt_insert)
+               h19_setinsert(tt.tt_ninsert);
+       ttputc(c);
+       if (tt.tt_insert)

                ICPAD();
                ICPAD();

-       if (++h19_col == 80)
-               h19_col = 79;
+       if (++tt.tt_col == NCOL)
+               tt.tt_col = NCOL - 1;

 }
 
 }
 

-h19_write(start, end)
-register char *start, *end;
-{
-       register char c;
-
-       SETMODES(h19_nmodes);
-       SETINSERT(h19_ninsert);
-       if (h19_insert) {
-               while (start <= end) {
-                       if ((c = *start++) & 0x80) {
-                               SETGRAPHICS(1);
-                               putchar(c & 0x7f);
-                       } else {
-                               SETGRAPHICS(0);
-                               putchar(c);
-                       }
-                       ICPAD();
-                       h19_col++;
-               }
-       } else {
-               h19_col += end - start + 1;
-               while (start <= end)
-                       if ((c = *start++) & 0x80) {
-                               SETGRAPHICS(1);
-                               putchar(c & 0x7f);
-                       } else {
-                               SETGRAPHICS(0);
-                               putchar(c);
-                       }
-       }
-       if (h19_col == 80)
-               h19_col = 79;
-}
-
-h19_blank(n)
+h19_write(p, n)
+register char *p;

 register n;
 {
 register n;
 {

-       if (n <= 0)
-               return;
-       SETMODES(h19_nmodes);
-       SETINSERT(h19_ninsert);
-       if (h19_insert) {
+       if (tt.tt_nmodes != tt.tt_modes)
+               h19_setmodes(tt.tt_nmodes);
+       if (tt.tt_ninsert != tt.tt_insert)
+               h19_setinsert(tt.tt_ninsert);
+       if (tt.tt_insert) {

                while (--n >= 0) {
                while (--n >= 0) {

-                       putchar(' ');
+                       ttputc(*p++);

                        ICPAD();
                        ICPAD();

-                       h19_col++;
+                       tt.tt_col++;

                }
        } else {
                }
        } else {

-               h19_col += n;
+               tt.tt_col += n;

                while (--n >= 0)
                while (--n >= 0)

-                       putchar(' ');
+                       ttputc(*p++);

        }
        }

-       if (h19_col == 80)
-               h19_col = 79;
+       if (tt.tt_col == NCOL)
+               tt.tt_col = NCOL - 1;

 }
 
 h19_move(row, col)
 register char row, col;
 {
 }
 
 h19_move(row, col)
 register char row, col;
 {

-       if (h19_row == row) {
-               if (h19_col == col)
+       if (tt.tt_row == row) {
+               if (tt.tt_col == col)

                        return;
                        return;

-               if (h19_col == col - 1) {
+               if (tt.tt_col == col - 1) {

                        esc();
                        pc(C);
                        goto out;
                        esc();
                        pc(C);
                        goto out;

-               } else if (h19_col == col + 1) {
+               } else if (tt.tt_col == col + 1) {

                        pc(\b);
                        goto out;
                }
        }
                        pc(\b);
                        goto out;
                }
        }

-       if (h19_col == col) {
-               if (h19_row == row + 1) {
+       if (tt.tt_col == col) {
+               if (tt.tt_row == row + 1) {

                        esc();
                        pc(A);
                        goto out;
                        esc();
                        pc(A);
                        goto out;

-               } else if (h19_row == row + 1) {
+               } else if (tt.tt_row == row - 1) {

                        pc(\n);
                        goto out;
                }
                        pc(\n);
                        goto out;
                }


@@ -183,34 +157,32 @@ register char row, col;
        }
        esc();
        pc(Y);
        }
        esc();
        pc(Y);

-       putchar(' ' + row);
-       putchar(' ' + col);
+       ttputc(' ' + row);
+       ttputc(' ' + col);

 out:
 out:

-       h19_col = col;
-       h19_row = row;
+       tt.tt_col = col;
+       tt.tt_row = row;

 }
 
 h19_init()
 {
 }
 
 h19_init()
 {

-       if (h19_VS)
-               fputs(h19_VS, stdout);
+       if (gen_VS)
+               ttputs(gen_VS);

        esc();
        pc(w);
        esc();
        pc(E);
        esc();
        pc(w);
        esc();
        pc(E);

-       h19_col = h19_row = 0;
-       h19_insert = 0;
-       h19_graphics = 0;
-       h19_modes = 0;
+       tt.tt_col = tt.tt_row = 0;
+       tt.tt_ninsert = tt.tt_insert = 0;
+       tt.tt_nmodes = tt.tt_modes = 0;

 }
 
 h19_end()
 {
 }
 
 h19_end()
 {

-       SETMODES(0);
-       SETINSERT(0);
-       SETGRAPHICS(0);
-       if (h19_VE)
-               fputs(h19_VE, stdout);
+       h19_setmodes(0);
+       h19_setinsert(0);
+       if (gen_VE)
+               ttputs(gen_VE);

        esc();
        pc(v);
 }
        esc();
        pc(v);
 }


@@ -244,25 +216,26 @@ tt_h19()
        float cpms = (float) wwbaud / 10000;    /* char per ms */
 
        h19_msp10c = 10 / cpms;                 /* ms per 10 char */
        float cpms = (float) wwbaud / 10000;    /* char per ms */
 
        h19_msp10c = 10 / cpms;                 /* ms per 10 char */

-       h19_VS = tt_xgetstr("vs");
-       h19_VE = tt_xgetstr("ve");
-       tt.tt_setinsert = h19_setinsert;
-       tt.tt_setmodes = h19_setmodes;
+       gen_VS = ttxgetstr("vs");
+       gen_VE = ttxgetstr("ve");
+
+       tt.tt_init = h19_init;
+       tt.tt_end = h19_end;
+

        tt.tt_insline = h19_insline;
        tt.tt_delline = h19_delline;
        tt.tt_delchar = h19_delchar;
        tt.tt_insline = h19_insline;
        tt.tt_delline = h19_delline;
        tt.tt_delchar = h19_delchar;

-       tt.tt_blank = h19_blank;
-       tt.tt_init = h19_init;
-       tt.tt_end = h19_end;

        tt.tt_clreol = h19_clreol;
        tt.tt_clreos = h19_clreos;
        tt.tt_clear = h19_clear;
        tt.tt_move = h19_move;
        tt.tt_write = h19_write;
        tt.tt_putc = h19_putc;
        tt.tt_clreol = h19_clreol;
        tt.tt_clreos = h19_clreos;
        tt.tt_clear = h19_clear;
        tt.tt_move = h19_move;
        tt.tt_write = h19_write;
        tt.tt_putc = h19_putc;

-       tt.tt_ncol = 80;
-       tt.tt_nrow = 24;
-       tt.tt_availmodes = WWM_REV;
+
+       tt.tt_ncol = NCOL;
+       tt.tt_nrow = NROW;
+       tt.tt_hasinsert = 1;
+       tt.tt_availmodes = WWM_REV|WWM_GRP;

        tt.tt_frame = h19_frame;
        return 0;
 }
        tt.tt_frame = h19_frame;
        return 0;
 }