Return to cmd1.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / window

Annotation of 43BSD/ucb/window/cmd1.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)cmd1.c     3.29 4/24/85";
                      3: #endif
                      4: 
                      5: /*
                      6:  * Copyright (c) 1983 Regents of the University of California,
                      7:  * All rights reserved.  Redistribution permitted subject to
                      8:  * the terms of the Berkeley Software License Agreement.
                      9:  */
                     10: 
                     11: #include "defs.h"
                     12: #include "char.h"
                     13: 
                     14: c_window()
                     15: {
                     16:        int col, row, xcol, xrow;
                     17:        int id;
                     18: 
                     19:        if ((id = findid()) < 0)
                     20:                return;
                     21:        if (!terse)
                     22:                wwputs("New window (upper left corner): ", cmdwin);
                     23:        col = 0;
                     24:        row = 1;
                     25:        wwadd(boxwin, framewin->ww_back);
                     26:        for (;;) {
                     27:                wwbox(boxwin, row - 1, col - 1, 3, 3);
                     28:                wwsetcursor(row, col);
                     29:                while (wwpeekc() < 0)
                     30:                        wwiomux();
                     31:                switch (getpos(&row, &col, row > 1, 0,
                     32:                        wwnrow - 1, wwncol - 1)) {
                     33:                case 3:
                     34:                        wwunbox(boxwin);
                     35:                        wwdelete(boxwin);
                     36:                        return;
                     37:                case 2:
                     38:                        wwunbox(boxwin);
                     39:                        break;
                     40:                case 1:
                     41:                        wwunbox(boxwin);
                     42:                case 0:
                     43:                        continue;
                     44:                }
                     45:                break;
                     46:        }
                     47:        if (!terse)
                     48:                wwputs("\nNew window (lower right corner): ", cmdwin);
                     49:        xcol = col;
                     50:        xrow = row;
                     51:        for (;;) {
                     52:                wwbox(boxwin, row - 1, col - 1,
                     53:                        xrow - row + 3, xcol - col + 3);
                     54:                wwsetcursor(xrow, xcol);
                     55:                wwflush();
                     56:                while (wwpeekc() < 0)
                     57:                        wwiomux();
                     58:                switch (getpos(&xrow, &xcol, row, col, wwnrow - 1, wwncol - 1))
                     59:                {
                     60:                case 3:
                     61:                        wwunbox(boxwin);
                     62:                        wwdelete(boxwin);
                     63:                        return;
                     64:                case 2:
                     65:                        wwunbox(boxwin);
                     66:                        break;
                     67:                case 1:
                     68:                        wwunbox(boxwin);
                     69:                case 0:
                     70:                        continue;
                     71:                }
                     72:                break;
                     73:        }
                     74:        wwdelete(boxwin);
                     75:        if (!terse)
                     76:                wwputc('\n', cmdwin);
                     77:        wwcurtowin(cmdwin);
                     78:        (void) openwin(id, row, col, xrow-row+1, xcol-col+1, nbufline,
                     79:                (char *) 0, 1, 1, shellfile, shell);
                     80: }
                     81: 
                     82: getpos(row, col, minrow, mincol, maxrow, maxcol)
                     83: register int *row, *col;
                     84: int minrow, mincol;
                     85: int maxrow, maxcol;
                     86: {
                     87:        static int scount;
                     88:        int count;
                     89:        char c;
                     90:        int oldrow = *row, oldcol = *col;
                     91: 
                     92:        while ((c = wwgetc()) >= 0) {
                     93:                switch (c) {
                     94:                case '0': case '1': case '2': case '3': case '4':
                     95:                case '5': case '6': case '7': case '8': case '9':
                     96:                        scount = scount * 10 + c - '0';
                     97:                        continue;
                     98:                }
                     99:                count = scount ? scount : 1;
                    100:                scount = 0;
                    101:                switch (c) {
                    102:                case 'h':
                    103:                        if ((*col -= count) < mincol)
                    104:                                *col = mincol;
                    105:                        break;
                    106:                case 'H':
                    107:                        *col = mincol;
                    108:                        break;
                    109:                case 'l':
                    110:                        if ((*col += count) > maxcol)
                    111:                                *col = maxcol;
                    112:                        break;
                    113:                case 'L':
                    114:                        *col = maxcol;
                    115:                        break;
                    116:                case 'j':
                    117:                        if ((*row += count) > maxrow)
                    118:                                *row = maxrow;
                    119:                        break;
                    120:                case 'J':
                    121:                        *row = maxrow;
                    122:                        break;
                    123:                case 'k':
                    124:                        if ((*row -= count) < minrow)
                    125:                                *row = minrow;
                    126:                        break;
                    127:                case 'K':
                    128:                        *row = minrow;
                    129:                        break;
                    130:                case ctrl([):
                    131:                        if (!terse)
                    132:                                wwputs("\nCanceled.  ", cmdwin);
                    133:                        return 3;
                    134:                case '\r':
                    135:                        return 2;
                    136:                default:
                    137:                        if (!terse)
                    138:                                wwputs("\nType [hjklHJKL] to move, return to enter position, escape to cancel.", cmdwin);
                    139:                        wwbell();
                    140:                }
                    141:        }
                    142:        return oldrow != *row || oldcol != *col;
                    143: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.