BSD 1 development

[unix-history] / ex-1.1 / exz.c

#include "ex.h"
#include "ex_tty.h"
/*
* Ex - a text editor
* Bill Joy UCB June 1977
*/

char    znoclear, zhadpr, zweight;

zop(hadpr)
       char hadpr;
{
       register int c, lines, op;

       zhadpr = hadpr;
       notempty();
       znoclear = 0;
       zweight = 0;
       switch(c = op = getchar()) {
               case '^':
                       zweight = 1;
               case '-':
               case '+':
                       while (peekchar() == op) {
                               getchar();
                               zweight++;
                       }
               case '=':
               case '.':
                       c = getchar();
                       break;
               case EOF:
                       znoclear++;
                       break;
               default:
                       op = 0;
                       break;
       }
       if (digit(c)) {
               lines = c - '0';
               for(;;) {
                       c = getchar();
                       if (!digit(c))
                               break;
                       lines =* 10;
                       lines =+ c - '0';
               }
               if (lines < value(WINDOW))
                       znoclear++;
               if (op == '=')
                       lines =+ 2;
       } else
               lines = op == EOF ? value(SCROLL) : value(WINDOW);
       if (c != EOF) {
               ungetchar(c);
               newline();
       }
       addr1 = addr2;
       setdot();
       zop2(lines, op);
}

zop2(lines, op)
       register int lines;
       register char op;
{
       register int *split;

       split = NIL;
       switch(op) {
               case EOF:
                       if (addr2 == dol)
                               error("\nAt EOF");
               case '+':
                       if (addr2 == dol)
                               error("At EOF");
                       addr2 =+ lines * zweight;
                       if (addr2 > dol)
                               error("Hit BOTTOM");
                       addr2++;
               default:
                       addr1 = addr2;
                       addr2 =+ lines-1;
                       dot = addr2;
                       break;
               case '=':
               case '.':
                       lines--;
                       lines =>> 1;
                       if (op == '=')
                               lines--;
                       addr1 = addr2-lines;
                       if (op == '=')
                               dot = split = addr2;
                       addr2 =+ lines;
                       if (op == '.') {
                               markDOT();
                               dot = addr2;
                       }
                       break;
               case '^':
               case '-':
                       addr2 =- lines * zweight;
                       if (addr2 < one)
                               error("Hit TOP");
                       lines--;
                       addr1 = addr2 - lines;
                       dot = addr2;
                       break;
       }
       if (addr1 <= zero)
               addr1 = one;
       if (addr2 > dol)
               addr2 = dol;
       if (dot > dol)
               dot = dol;
       if (addr1 > addr2)
               return;
       if (addr2 - addr1 > 1 /* && really wanna do this */)
               pstart();
       if (op == EOF && zhadpr) {
               getline(*addr1);
               putchar('\r' | QUOTE);
               shudclob = 1;
       } else if (znoclear == 0 && CLEAR)
               putchar('\032' | QUOTE);
       if (split) {
               plines(addr1, split - 1, 0);
               splitit();
               plines(split, split, 0);
               splitit();
               addr1 = split + 1;
       }
       plines(addr1, addr2, 0);
}

splitit()
{
       register int l;
       register char *lp;

       for (l = COLUMNS == 1000 ? 72 : COLUMNS, lp = linebuf; l > 0; l--)
               *lp++ = '-';
       *lp = 0;
       printf("%s\n", linebuf);
}

zeq(cnt)
       int cnt;
{

       znoclear = 0;
       zop2(cnt, '=');
       putNFL();
}