window(1): Remove __RCSID & friends.
[dragonfly.git] / usr.bin / window / cmd1.c
CommitLineData
2c872e05 1/* @(#)cmd1.c 8.1 (Berkeley) 6/6/93 */
abecab39
SW
2/* $NetBSD: cmd1.c,v 1.7 2003/08/07 11:17:22 agc Exp $ */
3
984263bc
MD
4/*
5 * Copyright (c) 1983, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * This code is derived from software contributed to Berkeley by
9 * Edward Wang at The University of California, Berkeley.
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
abecab39 19 * 3. Neither the name of the University nor the names of its contributors
984263bc
MD
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
984263bc
MD
36#include "defs.h"
37#include "char.h"
38
abecab39
SW
39void
40c_window(void)
984263bc
MD
41{
42 int col, row, xcol, xrow;
43 int id;
44
45 if ((id = findid()) < 0)
46 return;
47 if (!terse)
48 wwputs("New window (upper left corner): ", cmdwin);
49 col = 0;
50 row = 1;
51 wwadd(boxwin, framewin->ww_back);
52 for (;;) {
53 wwbox(boxwin, row - 1, col - 1, 3, 3);
54 wwsetcursor(row, col);
55 while (wwpeekc() < 0)
56 wwiomux();
57 switch (getpos(&row, &col, row > 1, 0,
58 wwnrow - 1, wwncol - 1)) {
59 case 3:
60 wwunbox(boxwin);
61 wwdelete(boxwin);
62 return;
63 case 2:
64 wwunbox(boxwin);
65 break;
66 case 1:
67 wwunbox(boxwin);
68 case 0:
69 continue;
70 }
71 break;
72 }
73 if (!terse)
74 wwputs("\nNew window (lower right corner): ", cmdwin);
75 xcol = col;
76 xrow = row;
77 for (;;) {
78 wwbox(boxwin, row - 1, col - 1,
79 xrow - row + 3, xcol - col + 3);
80 wwsetcursor(xrow, xcol);
81 while (wwpeekc() < 0)
82 wwiomux();
83 switch (getpos(&xrow, &xcol, row, col, wwnrow - 1, wwncol - 1))
84 {
85 case 3:
86 wwunbox(boxwin);
87 wwdelete(boxwin);
88 return;
89 case 2:
90 wwunbox(boxwin);
91 break;
92 case 1:
93 wwunbox(boxwin);
94 case 0:
95 continue;
96 }
97 break;
98 }
99 wwdelete(boxwin);
100 if (!terse)
101 wwputc('\n', cmdwin);
102 wwcurtowin(cmdwin);
103 (void) openwin(id, row, col, xrow-row+1, xcol-col+1, default_nline,
abecab39
SW
104 (char *) 0, WWT_PTY, WWU_HASFRAME, default_shellfile,
105 default_shell);
984263bc
MD
106}
107
abecab39
SW
108int
109getpos(int *row, int *col, int minrow, int mincol, int maxrow, int maxcol)
984263bc
MD
110{
111 static int scount;
112 int count;
113 int c;
114 int oldrow = *row, oldcol = *col;
115
116 while ((c = wwgetc()) >= 0) {
117 switch (c) {
118 case '0': case '1': case '2': case '3': case '4':
119 case '5': case '6': case '7': case '8': case '9':
120 scount = scount * 10 + c - '0';
121 continue;
122 }
123 count = scount ? scount : 1;
124 scount = 0;
125 switch (c) {
126 case 'h':
127 if ((*col -= count) < mincol)
128 *col = mincol;
129 break;
130 case 'H':
131 *col = mincol;
132 break;
133 case 'l':
134 if ((*col += count) > maxcol)
135 *col = maxcol;
136 break;
137 case 'L':
138 *col = maxcol;
139 break;
140 case 'j':
141 if ((*row += count) > maxrow)
142 *row = maxrow;
143 break;
144 case 'J':
145 *row = maxrow;
146 break;
147 case 'k':
148 if ((*row -= count) < minrow)
149 *row = minrow;
150 break;
151 case 'K':
152 *row = minrow;
153 break;
154 case ctrl('['):
155 if (!terse)
156 wwputs("\nCancelled. ", cmdwin);
157 return 3;
158 case '\r':
159 return 2;
160 default:
161 if (!terse)
162 wwputs("\nType [hjklHJKL] to move, return to enter position, escape to cancel.", cmdwin);
163 wwbell();
164 }
165 }
166 return oldrow != *row || oldcol != *col;
167}