source: trunk/ncurses/test/edit_field.c@ 2946

Last change on this file since 2946 was 2621, checked in by bird, 20 years ago

GNU ncurses 5.5
File size: 9.0 KB
Line 
1/*
2 * $Id: edit_field.c,v 1.11 2005/10/01 16:21:55 tom Exp $
3 *
4 * A wrapper for form_driver() which keeps track of the user's editing changes
5 * for each field, and makes the result available as a null-terminated string
6 * in field_buffer(field,1).
7 *
8 * Thomas Dickey - 2003/4/26.
9 */
10
11#include <test.priv.h>
12
13#if USE_LIBFORM
14
15#include <edit_field.h>
16
17static struct {
18 int code;
19 int result;
20 const char *help;
21} commands[] = {
22
23 {
24 CTRL('A'), REQ_NEXT_CHOICE, ""
25 },
26 {
27 CTRL('B'), REQ_PREV_WORD, "go to previous word"
28 },
29 {
30 CTRL('C'), REQ_CLR_EOL, "clear to end of line"
31 },
32 {
33 CTRL('D'), REQ_DOWN_FIELD, "move downward to field"
34 },
35 {
36 CTRL('E'), REQ_END_FIELD, "go to end of field"
37 },
38 {
39 CTRL('F'), REQ_NEXT_PAGE, "go to next page"
40 },
41 {
42 CTRL('G'), REQ_DEL_WORD, "delete current word"
43 },
44 {
45 CTRL('H'), REQ_DEL_PREV, "delete previous character"
46 },
47 {
48 CTRL('I'), REQ_INS_CHAR, "insert character"
49 },
50 {
51 CTRL('K'), REQ_CLR_EOF, "clear to end of field"
52 },
53 {
54 CTRL('L'), REQ_LEFT_FIELD, "go to field to left"
55 },
56 {
57 CTRL('M'), REQ_NEW_LINE, "insert/overlay new line"
58 },
59 {
60 CTRL('N'), REQ_NEXT_FIELD, "go to next field"
61 },
62 {
63 CTRL('O'), REQ_INS_LINE, "insert blank line at cursor"
64 },
65 {
66 CTRL('P'), REQ_PREV_FIELD, "go to previous field"
67 },
68 {
69 CTRL('Q'), MY_QUIT, "exit form"
70 },
71 {
72 CTRL('R'), REQ_RIGHT_FIELD, "go to field to right"
73 },
74 {
75 CTRL('S'), REQ_BEG_FIELD, "go to beginning of field"
76 },
77 {
78 CTRL('T'), MY_EDT_MODE, "toggle O_EDIT mode, clear field status",
79 },
80 {
81 CTRL('U'), REQ_UP_FIELD, "move upward to field"
82 },
83 {
84 CTRL('V'), REQ_DEL_CHAR, "delete character"
85 },
86 {
87 CTRL('W'), REQ_NEXT_WORD, "go to next word"
88 },
89 {
90 CTRL('X'), REQ_CLR_FIELD, "clear field"
91 },
92 {
93 CTRL('Y'), REQ_DEL_LINE, "delete line"
94 },
95 {
96 CTRL('Z'), REQ_PREV_CHOICE, ""
97 },
98 {
99 CTRL('['), MY_QUIT, "exit form"
100 },
101 {
102 CTRL(']'), MY_INS_MODE, "toggle REQ_INS_MODE/REQ_OVL_MODE",
103 },
104 {
105 KEY_F(1), MY_HELP, "show this screen",
106 },
107 {
108 KEY_BACKSPACE, REQ_DEL_PREV, "delete previous character"
109 },
110 {
111 KEY_DOWN, REQ_DOWN_CHAR, "move down 1 character"
112 },
113 {
114 KEY_END, REQ_LAST_FIELD, "go to last field"
115 },
116 {
117 KEY_HOME, REQ_FIRST_FIELD, "go to first field"
118 },
119 {
120 KEY_LEFT, REQ_LEFT_CHAR, "move left 1 character"
121 },
122 {
123 KEY_LL, REQ_LAST_FIELD, "go to last field"
124 },
125 {
126 KEY_NEXT, REQ_NEXT_FIELD, "go to next field"
127 },
128 {
129 KEY_NPAGE, REQ_NEXT_PAGE, "go to next page"
130 },
131 {
132 KEY_PPAGE, REQ_PREV_PAGE, "go to previous page"
133 },
134 {
135 KEY_PREVIOUS, REQ_PREV_FIELD, "go to previous field"
136 },
137 {
138 KEY_RIGHT, REQ_RIGHT_CHAR, "move right 1 character"
139 },
140 {
141 KEY_UP, REQ_UP_CHAR, "move up 1 character"
142 }
143};
144
145static WINDOW *old_window;
146
147static void
148begin_popup(void)
149{
150 doupdate();
151 old_window = dupwin(curscr);
152}
153
154static void
155end_popup(void)
156{
157 touchwin(old_window);
158 wnoutrefresh(old_window);
159 doupdate();
160 delwin(old_window);
161}
162
163/*
164 * Display a temporary window listing the keystroke-commands we recognize.
165 */
166void
167help_edit_field(void)
168{
169 int x0 = 4;
170 int y0 = 2;
171 int y1 = 0;
172 int y2 = 0;
173 int wide = COLS - ((x0 + 1) * 2);
174 int high = LINES - ((y0 + 1) * 2);
175 WINDOW *help = newwin(high, wide, y0, x0);
176 WINDOW *data = newpad(2 + SIZEOF(commands), wide - 4);
177 unsigned n;
178 int ch = ERR;
179
180 begin_popup();
181
182 keypad(help, TRUE);
183 keypad(data, TRUE);
184 waddstr(data, "Defined form edit/traversal keys:\n");
185 for (n = 0; n < SIZEOF(commands); ++n) {
186 const char *name;
187#ifdef NCURSES_VERSION
188 if ((name = form_request_name(commands[n].result)) == 0)
189#endif
190 name = commands[n].help;
191 wprintw(data, "%s -- %s\n",
192 keyname(commands[n].code),
193 name != 0 ? name : commands[n].help);
194 }
195 waddstr(data, "Arrow keys move within a field as you would expect.");
196 y2 = getcury(data);
197
198 do {
199 switch (ch) {
200 case KEY_HOME:
201 y1 = 0;
202 break;
203 case KEY_END:
204 y1 = y2;
205 break;
206 case KEY_PREVIOUS:
207 case KEY_PPAGE:
208 if (y1 > 0) {
209 y1 -= high / 2;
210 if (y1 < 0)
211 y1 = 0;
212 } else {
213 beep();
214 }
215 break;
216 case KEY_NEXT:
217 case KEY_NPAGE:
218 if (y1 < y2) {
219 y1 += high / 2;
220 if (y1 >= y2)
221 y1 = y2;
222 } else {
223 beep();
224 }
225 break;
226 case CTRL('P'):
227 case KEY_UP:
228 if (y1 > 0)
229 --y1;
230 else
231 beep();
232 break;
233 case CTRL('N'):
234 case KEY_DOWN:
235 if (y1 < y2)
236 ++y1;
237 else
238 beep();
239 break;
240 default:
241 beep();
242 break;
243 case ERR:
244 break;
245 }
246 werase(help);
247 box(help, 0, 0);
248 wnoutrefresh(help);
249 pnoutrefresh(data, y1, 0, y0 + 1, x0 + 1, high, wide);
250 doupdate();
251 } while ((ch = wgetch(data)) != ERR && ch != QUIT && ch != ESCAPE);
252 werase(help);
253 wrefresh(help);
254 delwin(help);
255 delwin(data);
256
257 end_popup();
258}
259
260static int
261offset_in_field(FORM * form)
262{
263 FIELD *field = current_field(form);
264 return form->curcol + form->currow * field->dcols;
265}
266
267int
268edit_field(FORM * form, int *result)
269{
270 int ch = wgetch(form_win(form));
271 int status;
272 FIELD *before;
273 FIELD *after;
274 unsigned n;
275 char lengths[80];
276 int length;
277 char *buffer;
278 int before_row = form->currow;
279 int before_col = form->curcol;
280 int before_off = offset_in_field(form);
281
282 before = current_field(form);
283 set_field_back(before, A_NORMAL);
284 if (ch <= KEY_MAX) {
285 set_field_back(before, A_REVERSE);
286 } else if (ch <= MAX_FORM_COMMAND) {
287 set_field_back(before, A_UNDERLINE);
288 }
289
290 *result = ch;
291 for (n = 0; n < SIZEOF(commands); ++n) {
292 if (commands[n].code == ch) {
293 *result = commands[n].result;
294 break;
295 }
296 }
297
298 status = form_driver(form, *result);
299
300 if (status == E_OK) {
301 bool modified = TRUE;
302
303 length = 0;
304 if ((buffer = field_buffer(before, 1)) != 0)
305 length = atoi(buffer);
306 if (length < before_off)
307 length = before_off;
308 switch (*result) {
309 case REQ_CLR_EOF:
310 length = before_off;
311 break;
312 case REQ_CLR_EOL:
313 if (before_row + 1 == before->rows)
314 length = before_off;
315 break;
316 case REQ_CLR_FIELD:
317 length = 0;
318 break;
319 case REQ_DEL_CHAR:
320 if (length > before_off)
321 --length;
322 break;
323 case REQ_DEL_PREV:
324 if (length > 0) {
325 if (before_col > 0) {
326 --length;
327 } else if (before_row > 0) {
328 length -= before->cols + before_col;
329 }
330 }
331 break;
332 case REQ_NEW_LINE:
333 length += before->cols;
334 break;
335#if 0
336 /* FIXME: finish these */
337 case REQ_DEL_LINE: /* delete line */
338 case REQ_DEL_WORD: /* delete word at cursor */
339 case REQ_INS_CHAR: /* insert blank char at cursor */
340 case REQ_INS_LINE: /* insert blank line at cursor */
341 case REQ_INS_MODE: /* begin insert mode */
342 case REQ_OVL_MODE: /* begin overlay mode */
343#endif
344 /* ignore all of the motion commands */
345 case REQ_SCR_BCHAR: /* FALLTHRU */
346 case REQ_SCR_BHPAGE: /* FALLTHRU */
347 case REQ_SCR_BLINE: /* FALLTHRU */
348 case REQ_SCR_BPAGE: /* FALLTHRU */
349 case REQ_SCR_FCHAR: /* FALLTHRU */
350 case REQ_SCR_FHPAGE: /* FALLTHRU */
351 case REQ_SCR_FLINE: /* FALLTHRU */
352 case REQ_SCR_FPAGE: /* FALLTHRU */
353 case REQ_SCR_HBHALF: /* FALLTHRU */
354 case REQ_SCR_HBLINE: /* FALLTHRU */
355 case REQ_SCR_HFHALF: /* FALLTHRU */
356 case REQ_SCR_HFLINE: /* FALLTHRU */
357 case REQ_BEG_FIELD: /* FALLTHRU */
358 case REQ_BEG_LINE: /* FALLTHRU */
359 case REQ_DOWN_CHAR: /* FALLTHRU */
360 case REQ_DOWN_FIELD: /* FALLTHRU */
361 case REQ_END_FIELD: /* FALLTHRU */
362 case REQ_END_LINE: /* FALLTHRU */
363 case REQ_FIRST_FIELD: /* FALLTHRU */
364 case REQ_FIRST_PAGE: /* FALLTHRU */
365 case REQ_LAST_FIELD: /* FALLTHRU */
366 case REQ_LAST_PAGE: /* FALLTHRU */
367 case REQ_LEFT_CHAR: /* FALLTHRU */
368 case REQ_LEFT_FIELD: /* FALLTHRU */
369 case REQ_NEXT_CHAR: /* FALLTHRU */
370 case REQ_NEXT_CHOICE: /* FALLTHRU */
371 case REQ_NEXT_FIELD: /* FALLTHRU */
372 case REQ_NEXT_LINE: /* FALLTHRU */
373 case REQ_NEXT_PAGE: /* FALLTHRU */
374 case REQ_NEXT_WORD: /* FALLTHRU */
375 case REQ_PREV_CHAR: /* FALLTHRU */
376 case REQ_PREV_CHOICE: /* FALLTHRU */
377 case REQ_PREV_FIELD: /* FALLTHRU */
378 case REQ_PREV_LINE: /* FALLTHRU */
379 case REQ_PREV_PAGE: /* FALLTHRU */
380 case REQ_PREV_WORD: /* FALLTHRU */
381 case REQ_RIGHT_CHAR: /* FALLTHRU */
382 case REQ_RIGHT_FIELD: /* FALLTHRU */
383 case REQ_SFIRST_FIELD: /* FALLTHRU */
384 case REQ_SLAST_FIELD: /* FALLTHRU */
385 case REQ_SNEXT_FIELD: /* FALLTHRU */
386 case REQ_SPREV_FIELD: /* FALLTHRU */
387 case REQ_UP_CHAR: /* FALLTHRU */
388 case REQ_UP_FIELD: /* FALLTHRU */
389 case REQ_VALIDATION: /* FALLTHRU */
390 modified = FALSE;
391 break;
392
393 default:
394 modified = FALSE;
395 if (ch >= MIN_FORM_COMMAND) {
396 beep();
397 } else if (isprint(ch)) {
398 modified = TRUE;
399 }
400 break;
401 }
402
403 /*
404 * If we do not force a re-validation, then field_buffer 0 will
405 * be lagging by one character.
406 */
407 if (modified && form_driver(form, REQ_VALIDATION) == E_OK && *result
408 < MIN_FORM_COMMAND)
409 ++length;
410
411 sprintf(lengths, "%d", length);
412 set_field_buffer(before, 1, lengths);
413 }
414
415 if ((after = current_field(form)) != before)
416 set_field_back(before, A_UNDERLINE);
417 return status;
418}
419#else
420
421extern void no_edit_field(void);
422
423void
424no_edit_field(void)
425{
426}
427
428#endif
Note: See TracBrowser for help on using the repository browser.