BSD 4_4 release

[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 4469247..b6dbcfe 100644 (file)
--- a/usr/src/usr.bin/window/tth19.c
+++ b/usr/src/usr.bin/window/tth19.c
@@ -1,15 +1,46 @@
-#ifndef lint
-static char sccsid[] = "@(#)tth19.c    3.16 %G%";
-#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.
+ * Copyright (c) 1983, 1993
+ *     The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Edward Wang at The University of California, Berkeley.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  */
 
  */
 

+#ifndef lint
+static char sccsid[] = "@(#)tth19.c    8.1 (Berkeley) 6/6/93";
+#endif /* not lint */
+

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

+#include "char.h"

 
 /*
 kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith:
 
 /*
 kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith:


@@ -39,22 +70,15 @@ extern struct tt_str *gen_VE;
 
 int h19_msp10c;
 
 
 int h19_msp10c;
 

-#define pc(c)  ttputc('c')
-#define esc()  pc(\033)

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

-               pc(\0); \
+               ttputc('\0'); \

 }
 #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 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 H19_SETINSERT(m) (esc(), (tt.tt_insert = (m)) ? pc(@) : pc(O))
-
-h19_setinsert(new)
-{
-       H19_SETINSERT(new);
-}
+#define H19_SETINSERT(m) ttesc((tt.tt_insert = (m)) ? '@' : 'O')

 
 h19_setmodes(new)
 register new;
 
 h19_setmodes(new)
 register new;


@@ -62,35 +86,27 @@ register new;
        register diff;
 
        diff = new ^ tt.tt_modes;
        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);
-       }
+       if (diff & WWM_REV)
+               ttesc(new & WWM_REV ? 'p' : 'q');
+       if (diff & WWM_GRP)
+               ttesc(new & WWM_REV ? 'F' : 'G');

        tt.tt_modes = new;
 }
 
        tt.tt_modes = new;
 }
 

-h19_insline()
+h19_insline(n)

 {
 {

-       esc();
-       pc(L);
-       ILPAD();
+       while (--n >= 0) {
+               ttesc('L');
+               ILPAD();
+       }

 }
 
 }
 

-h19_delline()
+h19_delline(n)

 {
 {

-       esc();
-       pc(M);
-       ILPAD();
+       while (--n >= 0) {
+               ttesc('M');
+               ILPAD();
+       }

 }
 
 h19_putc(c)
 }
 
 h19_putc(c)


@@ -98,11 +114,9 @@ register char c;
 {
        if (tt.tt_nmodes != tt.tt_modes)
                (*tt.tt_setmodes)(tt.tt_nmodes);
 {
        if (tt.tt_nmodes != tt.tt_modes)
                (*tt.tt_setmodes)(tt.tt_nmodes);

-       if (tt.tt_ninsert != tt.tt_insert)
-               H19_SETINSERT(tt.tt_ninsert);
-       ttputc(c);

        if (tt.tt_insert)
        if (tt.tt_insert)

-               ICPAD();
+               H19_SETINSERT(0);
+       ttputc(c);

        if (++tt.tt_col == NCOL)
                tt.tt_col = NCOL - 1;
 }
        if (++tt.tt_col == NCOL)
                tt.tt_col = NCOL - 1;
 }


@@ -113,18 +127,10 @@ register n;
 {
        if (tt.tt_nmodes != tt.tt_modes)
                (*tt.tt_setmodes)(tt.tt_nmodes);
 {
        if (tt.tt_nmodes != tt.tt_modes)
                (*tt.tt_setmodes)(tt.tt_nmodes);

-       if (tt.tt_ninsert != tt.tt_insert)
-               H19_SETINSERT(tt.tt_ninsert);
-       if (tt.tt_insert) {
-               while (--n >= 0) {
-                       ttputc(*p++);
-                       ICPAD();
-                       tt.tt_col++;
-               }
-       } else {
-               tt.tt_col += n;
-               ttwrite(p, n);
-       }
+       if (tt.tt_insert)
+               H19_SETINSERT(0);
+       ttwrite(p, n);
+       tt.tt_col += n;

        if (tt.tt_col == NCOL)
                tt.tt_col = NCOL - 1;
 }
        if (tt.tt_col == NCOL)
                tt.tt_col = NCOL - 1;
 }


@@ -135,32 +141,34 @@ register char row, col;
        if (tt.tt_row == row) {
                if (tt.tt_col == col)
                        return;
        if (tt.tt_row == row) {
                if (tt.tt_col == col)
                        return;

+               if (col == 0) {
+                       ttctrl('m');
+                       goto out;
+               }

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

-                       esc();
-                       pc(C);
+                       ttesc('C');

                        goto out;
                        goto out;

-               } else if (tt.tt_col == col + 1) {
-                       pc(\b);
+               }
+               if (tt.tt_col == col + 1) {
+                       ttctrl('h');

                        goto out;
                }
        }
        if (tt.tt_col == col) {
                if (tt.tt_row == row + 1) {
                        goto out;
                }
        }
        if (tt.tt_col == col) {
                if (tt.tt_row == row + 1) {

-                       esc();
-                       pc(A);
+                       ttesc('A');

                        goto out;
                        goto out;

-               } else if (tt.tt_row == row - 1) {
-                       pc(\n);
+               }
+               if (tt.tt_row == row - 1) {
+                       ttctrl('j');

                        goto out;
                }
        }
        if (col == 0 && row == 0) {
                        goto out;
                }
        }
        if (col == 0 && row == 0) {

-               esc();
-               pc(H);
+               ttesc('H');

                goto out;
        }
                goto out;
        }

-       esc();
-       pc(Y);
+       ttesc('Y');

        ttputc(' ' + row);
        ttputc(' ' + col);
 out:
        ttputc(' ' + row);
        ttputc(' ' + col);
 out:


@@ -168,49 +176,73 @@ out:
        tt.tt_row = row;
 }
 
        tt.tt_row = row;
 }
 

-h19_init()
+h19_start()

 {
        if (gen_VS)
                ttxputs(gen_VS);
 {
        if (gen_VS)
                ttxputs(gen_VS);

-       esc();
-       pc(w);
-       esc();
-       pc(E);
+       ttesc('w');
+       ttesc('E');

        tt.tt_col = tt.tt_row = 0;
        tt.tt_col = tt.tt_row = 0;

-       tt.tt_ninsert = tt.tt_insert = 0;
+       tt.tt_insert = 0;

        tt.tt_nmodes = tt.tt_modes = 0;
 }
 
 h19_end()
 {
        tt.tt_nmodes = tt.tt_modes = 0;
 }
 
 h19_end()
 {

+       if (tt.tt_insert)
+               H19_SETINSERT(0);

        if (gen_VE)
                ttxputs(gen_VE);
        if (gen_VE)
                ttxputs(gen_VE);

-       esc();
-       pc(v);
+       ttesc('v');

 }
 
 h19_clreol()
 {
 }
 
 h19_clreol()
 {

-       esc();
-       pc(K);
+       ttesc('K');

 }
 
 h19_clreos()
 {
 }
 
 h19_clreos()
 {

-       esc();
-       pc(J);
+       ttesc('J');

 }
 
 h19_clear()
 {
 }
 
 h19_clear()
 {

-       esc();
-       pc(E);
+       ttesc('E');
+}
+
+h19_inschar(c)
+register char c;
+{
+       if (tt.tt_nmodes != tt.tt_modes)
+               (*tt.tt_setmodes)(tt.tt_nmodes);
+       if (!tt.tt_insert)
+               H19_SETINSERT(1);
+       ttputc(c);
+       if (tt.tt_insert)
+               ICPAD();
+       if (++tt.tt_col == NCOL)
+               tt.tt_col = NCOL - 1;
+}
+
+h19_delchar(n)
+{
+       while (--n >= 0)
+               ttesc('N');
+}
+
+h19_scroll_down(n)
+{
+       h19_move(NROW - 1, 0);
+       while (--n >= 0)
+               ttctrl('j');

 }
 
 }
 

-h19_delchar()
+h19_scroll_up(n)

 {
 {

-       esc();
-       pc(N);
+       h19_move(0, 0);
+       while (--n >= 0)
+               ttesc('I');

 }
 
 tt_h19()
 }
 
 tt_h19()


@@ -221,11 +253,12 @@ tt_h19()
        gen_VS = ttxgetstr("vs");
        gen_VE = ttxgetstr("ve");
 
        gen_VS = ttxgetstr("vs");
        gen_VE = ttxgetstr("ve");
 

-       tt.tt_init = h19_init;
+       tt.tt_start = h19_start;

        tt.tt_end = h19_end;
 
        tt.tt_insline = h19_insline;
        tt.tt_delline = h19_delline;
        tt.tt_end = h19_end;
 
        tt.tt_insline = h19_insline;
        tt.tt_delline = h19_delline;

+       tt.tt_inschar = h19_inschar;

        tt.tt_delchar = h19_delchar;
        tt.tt_clreol = h19_clreol;
        tt.tt_clreos = h19_clreos;
        tt.tt_delchar = h19_delchar;
        tt.tt_clreol = h19_clreol;
        tt.tt_clreos = h19_clreos;


@@ -233,12 +266,12 @@ tt_h19()
        tt.tt_move = h19_move;
        tt.tt_write = h19_write;
        tt.tt_putc = h19_putc;
        tt.tt_move = h19_move;
        tt.tt_write = h19_write;
        tt.tt_putc = h19_putc;

-       tt.tt_setinsert = h19_setinsert;
+       tt.tt_scroll_down = h19_scroll_down;
+       tt.tt_scroll_up = h19_scroll_up;

        tt.tt_setmodes = h19_setmodes;
 
        tt.tt_ncol = NCOL;
        tt.tt_nrow = NROW;
        tt.tt_setmodes = h19_setmodes;
 
        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_availmodes = WWM_REV|WWM_GRP;
        tt.tt_frame = h19_frame;
        return 0;