Commit | Line | Data |
---|---|---|
eb924362 BJ |
1 | fgoto() |
2 | { | |
3 | register int l, c; | |
4 | ||
5 | if (destcol > COLUMNS - 1) { | |
6 | destline += destcol / COLUMNS; | |
7 | destcol %= COLUMNS; | |
8 | } | |
9 | if (outcol > COLUMNS - 1) { | |
10 | l = (outcol + 1) / COLUMNS; | |
11 | outline += l; | |
12 | outcol %= COLUMNS; | |
13 | if (AM == 0) { | |
14 | while (l > 0) { | |
15 | if (pfast) | |
16 | putch('\r'); | |
17 | putch('\n'); | |
18 | l--; | |
19 | } | |
20 | outcol = 0; | |
21 | } | |
22 | if (outline > LINES - 1) { | |
23 | destline -= outline - (LINES - 1); | |
24 | outline = LINES - 1; | |
25 | } | |
26 | } | |
27 | if (destline > LINES - 1) { | |
28 | l = destline; | |
29 | destline = LINES - 1; | |
30 | if (outline < LINES - 1) { | |
31 | c = destcol; | |
32 | if (pfast == 0 && (!CA || holdcm)) | |
33 | destcol = 0; | |
34 | fgoto(); | |
35 | destcol = c; | |
36 | } | |
37 | while (l > LINES - 1) { | |
38 | putch('\n'); | |
39 | l--; | |
40 | if (pfast == 0) | |
41 | outcol = 0; | |
42 | } | |
43 | } | |
44 | if (destline < outline && !(CA && !holdcm || UP != NOSTR)) | |
45 | destline = outline; | |
46 | if (CA && !holdcm) { | |
47 | char *cgp; | |
48 | ||
49 | cgp = tgoto(CM, destcol, destline); | |
50 | if (plod(strlen(cgp)) > 0) | |
51 | plod(0); | |
52 | else | |
53 | tputs(cgp, 0, putch); | |
54 | } else | |
55 | plod(0); | |
56 | outline = destline; | |
57 | outcol = destcol; | |
58 | } | |
59 | ||
60 | /* | |
61 | * Tab to column col by flushing and then setting destcol. | |
62 | * Used by "set all". | |
63 | */ | |
64 | tab(col) | |
65 | int col; | |
66 | { | |
67 | ||
68 | flush1(); | |
69 | destcol = col; | |
70 | } | |
71 | ||
72 | /* | |
73 | * Move (slowly) to destination. | |
74 | * Hard thing here is using home cursor on really deficient terminals. | |
75 | * Otherwise just use cursor motions, hacking use of tabs and overtabbing | |
76 | * and backspace. | |
77 | */ | |
78 | ||
79 | static int plodcnt, plodflg; | |
80 | ||
81 | plodput(c) | |
82 | { | |
83 | if (plodflg) | |
84 | plodcnt--; | |
85 | else | |
86 | putch(c); | |
87 | } | |
88 | ||
89 | plod(cnt) | |
90 | { | |
91 | register int i, j, k; | |
92 | int soutcol, soutline, sdestcol, sdestline; | |
93 | ||
94 | plodcnt = plodflg = cnt; | |
95 | soutcol = outcol; | |
96 | soutline = outline; | |
97 | sdestcol = destcol; | |
98 | sdestline = destline; | |
99 | if (HO) { | |
100 | if (GT) | |
101 | i = (destcol >> 3) + (destcol & 07); | |
102 | else | |
103 | i = destcol; | |
104 | if (destcol >= outcol) | |
105 | if (GT && (j = ((destcol - (outcol &~ 07)) >> 3))) | |
106 | j += destcol & 07; | |
107 | else | |
108 | j = destcol - outcol; | |
109 | else | |
110 | if (outcol - destcol <= i && (BS || BC)) | |
111 | i = j = outcol - destcol; | |
112 | else | |
113 | j = i + 1; | |
114 | k = outline - destline; | |
115 | if (k < 0) | |
116 | k = -k; | |
117 | j += k; | |
118 | if (i + destline < j) { | |
119 | tputs(HO, 0, plodput); | |
120 | outcol = outline = 0; | |
121 | } else if (LL) { | |
122 | k = (LINES - 1) - destline; | |
123 | if (i + k + 2 < j) { | |
124 | tputs(LL, 0, plodput); | |
125 | outcol = 0; | |
126 | outline = LINES - 1; | |
127 | } | |
128 | } | |
129 | } | |
130 | if (GT) | |
131 | i = (destcol >> 3) + (destcol & 07); | |
132 | else | |
133 | i = destcol; | |
134 | if (BT && outcol > destcol) { | |
135 | j = (((outcol+7) & ~7) - destcol - 1) >> 3; | |
136 | j *= (k = strlen(BT)); | |
137 | if ((k = (destcol&7)+k) > 4) | |
138 | j += 8 - (destcol&7); | |
139 | else | |
140 | j += k; | |
141 | } | |
142 | else | |
143 | j = outcol - destcol; | |
144 | if ((!NONL || outline >= destline) && (!NC || outline < destline) && | |
145 | (j > i + 1 || outcol > destcol && !BS && !BC)) { | |
146 | plodput('\r'); | |
147 | if (NC) { | |
148 | plodput('\n'); | |
149 | outline++; | |
150 | } | |
151 | outcol = 0; | |
152 | } | |
153 | while (outline < destline) { | |
154 | outline++; | |
155 | plodput('\n'); | |
156 | if (plodflg && plodcnt < 0) | |
157 | goto out; | |
158 | if (NONL || pfast == 0) | |
159 | outcol = 0; | |
160 | } | |
161 | if (BT) | |
162 | k = strlen(BT); | |
163 | while (outcol > destcol) { | |
164 | if (plodflg && plodcnt < 0) | |
165 | goto out; | |
166 | if (BT && outcol - destcol > 4+k) { | |
167 | tputs(BT, 0, plodput); | |
168 | outcol--; | |
169 | outcol &= ~7; | |
170 | continue; | |
171 | } | |
172 | outcol--; | |
173 | if (BC) | |
174 | tputs(BC, 0, plodput); | |
175 | else | |
176 | plodput('\b'); | |
177 | } | |
178 | while (outline > destline) { | |
179 | outline--; | |
180 | tputs(UP, 0, plodput); | |
181 | if (plodflg && plodcnt < 0) | |
182 | goto out; | |
183 | } | |
184 | if (GT && destcol - outcol > 1) { | |
185 | while ((i = ((outcol + 8) &~ 7)) <= destcol) { | |
186 | if (TA) | |
187 | tputs(TA, 0, plodput); | |
188 | else | |
189 | plodput('\t'); | |
190 | outcol = i; | |
191 | } | |
192 | if (destcol - outcol > 4 && (BC || BS)) { | |
193 | if (TA) | |
194 | tputs(TA, 0, plodput); | |
195 | else | |
196 | plodput('\t'); | |
197 | outcol = i; | |
198 | while (outcol > destcol) { | |
199 | outcol--; | |
200 | if (BC) | |
201 | tputs(BC, 0, plodput); | |
202 | else | |
203 | plodput('\b'); | |
204 | } | |
205 | } | |
206 | } | |
207 | while (outcol < destcol) { | |
208 | if (inopen && ND) | |
209 | tputs(ND, 0, plodput); | |
210 | else | |
211 | plodput(' '); | |
212 | outcol++; | |
213 | if (plodflg && plodcnt < 0) | |
214 | goto out; | |
215 | } | |
216 | out: | |
217 | if (plodflg) { | |
218 | outcol = soutcol; | |
219 | outline = soutline; | |
220 | destcol = sdestcol; | |
221 | destline = sdestline; | |
222 | } | |
223 | return(plodcnt); | |
224 | } |