projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
l_time(): give the rss fields more room
[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 8b0bed0..50f484d 100644 (file)
--- a/usr/src/usr.bin/window/tth19.c
+++ b/usr/src/usr.bin/window/tth19.c
@@ -1,9 +1,27 @@
+/*
+ * Copyright (c) 1983 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley.  The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
 #ifndef lint
 #ifndef lint
-static char *sccsid = "@(#)tth19.c     3.10 83/12/02";
-#endif
+static char sccsid[] = "@(#)tth19.c    3.23 (Berkeley) %G%";
+#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:
@@ -20,67 +38,66 @@ kb|h19|heath|h19-b|h19b|heathkit|heath-19|z19|zenith:
 #define NCOL   80
 #define NROW   24
 
 #define NCOL   80
 #define NROW   24
 
-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 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
 };
 
 };
 
-extern char *gen_VS;
-extern char *gen_VE;
+extern struct tt_str *gen_VS;
+extern struct tt_str *gen_VE;
 
 
-char h19_graphics;                     /* in graphics mode */
-short h19_msp10c;
+int h19_msp10c;
 
 
-#define pc(c)  putchar('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 SETINSERT(m) \
-       ((m) != tt.tt_insert \
-               ? (esc(), (tt.tt_insert = (m)) ? pc(@) : pc(O)) : 0)
-#define SETMODES(m) \
-       ((m) != tt.tt_modes \
-               ? (esc(), (tt.tt_modes = (m)) ? pc(p) : pc(q)) : 0)
-#define SETGRAPHICS(m) \
-       ((m) != h19_graphics \
-               ? (esc(), (h19_graphics = (m)) ? pc(F) : pc(G)) : 0)
+#define H19_SETINSERT(m) ttesc((tt.tt_insert = (m)) ? '@' : 'O')
+
+h19_setmodes(new)
+register new;
+{
+       register diff;
+
+       diff = new ^ tt.tt_modes;
+       if (diff & WWM_REV)
+               ttesc(new & WWM_REV ? 'p' : 'q');
+       if (diff & WWM_GRP)
+               ttesc(new & WWM_REV ? 'F' : 'G');
+       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)
 register char c;
 {
 }
 
 h19_putc(c)
 register char c;
 {
-       SETMODES(tt.tt_nmodes);
-       SETINSERT(tt.tt_ninsert);
-       if (c & 0x80) {
-               SETGRAPHICS(1);
-               putchar(c & 0x7f);
-       } else {
-               SETGRAPHICS(0);
-               putchar(c);
-       }
+       if (tt.tt_nmodes != tt.tt_modes)
+               (*tt.tt_setmodes)(tt.tt_nmodes);
        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;
 }
@@ -89,33 +106,12 @@ h19_write(p, n)
 register char *p;
 register n;
 {
 register char *p;
 register n;
 {
-       register char c;
-
-       SETMODES(tt.tt_nmodes);
-       SETINSERT(tt.tt_ninsert);
-       if (tt.tt_insert) {
-               while (--n >= 0) {
-                       if ((c = *p++) & 0x80) {
-                               SETGRAPHICS(1);
-                               putchar(c & 0x7f);
-                       } else {
-                               SETGRAPHICS(0);
-                               putchar(c);
-                       }
-                       ICPAD();
-                       tt.tt_col++;
-               }
-       } else {
-               tt.tt_col += n;
-               while (--n >= 0)
-                       if ((c = *p++) & 0x80) {
-                               SETGRAPHICS(1);
-                               putchar(c & 0x7f);
-                       } else {
-                               SETGRAPHICS(0);
-                               putchar(c);
-                       }
-       }
+       if (tt.tt_nmodes != tt.tt_modes)
+               (*tt.tt_setmodes)(tt.tt_nmodes);
+       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;
 }
@@ -126,86 +122,108 @@ 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);
-       putchar(' ' + row);
-       putchar(' ' + col);
+       ttesc('Y');
+       ttputc(' ' + row);
+       ttputc(' ' + col);
 out:
        tt.tt_col = col;
        tt.tt_row = row;
 }
 
 out:
        tt.tt_col = col;
        tt.tt_row = row;
 }
 
-h19_init()
+h19_start()
 {
        if (gen_VS)
 {
        if (gen_VS)
-               fputs(gen_VS, stdout);
-       esc();
-       pc(w);
-       esc();
-       pc(E);
+               ttxputs(gen_VS);
+       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;
        tt.tt_nmodes = tt.tt_modes = 0;
-       h19_graphics = 0;
 }
 
 h19_end()
 {
 }
 
 h19_end()
 {
-       SETMODES(0);
-       SETINSERT(0);
-       SETGRAPHICS(0);
+       if (tt.tt_insert)
+               H19_SETINSERT(0);
        if (gen_VE)
        if (gen_VE)
-               fputs(gen_VE, stdout);
-       esc();
-       pc(v);
+               ttxputs(gen_VE);
+       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()
@@ -213,14 +231,15 @@ 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 */
-       gen_VS = tt_xgetstr("vs");
-       gen_VE = tt_xgetstr("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;
@@ -228,11 +247,13 @@ 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_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_ncol = NCOL;
        tt.tt_nrow = NROW;
-       tt.tt_hasinsert = 1;
-       tt.tt_availmodes = WWM_REV;
+       tt.tt_availmodes = WWM_REV|WWM_GRP;
        tt.tt_frame = h19_frame;
        return 0;
 }
        tt.tt_frame = h19_frame;
        return 0;
 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.