Commit | Line | Data |
---|---|---|
47787d5b | 1 | #ifndef lint |
60de5df9 | 2 | static char sccsid[] = "@(#)wwbox.c 3.4 %G%"; |
47787d5b EW |
3 | #endif |
4 | ||
60de5df9 EW |
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 | ||
47787d5b EW |
11 | #include "ww.h" |
12 | #include "tt.h" | |
13 | ||
14 | wwbox(w, r, c, nr, nc) | |
15 | register struct ww *w; | |
16 | register r, c; | |
17 | int nr, nc; | |
18 | { | |
19 | register r1, c1; | |
20 | register i; | |
21 | ||
22 | r1 = r + nr - 1; | |
23 | c1 = c + nc - 1; | |
2357b64e | 24 | wwframec(w, r, c, WWF_D|WWF_R); |
47787d5b | 25 | for (i = c + 1; i < c1; i++) |
2357b64e EW |
26 | wwframec(w, r, i, WWF_L|WWF_R); |
27 | wwframec(w, r, i, WWF_L|WWF_D); | |
47787d5b | 28 | for (i = r + 1; i < r1; i++) |
2357b64e EW |
29 | wwframec(w, i, c1, WWF_U|WWF_D); |
30 | wwframec(w, i, c1, WWF_U|WWF_L); | |
47787d5b | 31 | for (i = c1 - 1; i > c; i--) |
2357b64e EW |
32 | wwframec(w, r1, i, WWF_R|WWF_L); |
33 | wwframec(w, r1, i, WWF_R|WWF_U); | |
47787d5b | 34 | for (i = r1 - 1; i > r; i--) |
2357b64e | 35 | wwframec(w, i, c, WWF_D|WWF_U); |
47787d5b | 36 | } |