ncurses 5.9 - patch 20121117
[ncurses.git] / test / clip_printw.c
1 /****************************************************************************
2  * Copyright (c) 2008-2010,2012 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28 /*
29  * $Id: clip_printw.c,v 1.9 2012/11/18 00:39:48 tom Exp $
30  *
31  * demonstrate how to use printw without wrapping.
32  */
33
34 #include <test.priv.h>
35
36 #ifdef HAVE_VW_PRINTW
37
38 #define SHOW(n) ((n) == ERR ? "ERR" : "OK")
39 #define COLOR_DEFAULT (-1)
40
41 typedef struct {
42     unsigned c;
43     unsigned v;
44     int status;
45     int pair;
46     attr_t attr;
47     int count;
48     int ch;
49     const char *c_msg;
50     const char *v_msg;
51     int y_val;
52     int x_val;
53     int y_beg, x_beg;
54     int y_max, x_max;
55 } STATUS;
56
57 static int
58 clip_wprintw(WINDOW *win, NCURSES_CONST char *fmt,...)
59 {
60     int y0, x0, y1, x1, width;
61     WINDOW *sub;
62     va_list ap;
63     int rc;
64
65     /*
66      * Allocate a single-line derived window extending from the current
67      * cursor position to the end of the current line in the given window.
68      * Disable scrolling in the derived window.
69      */
70     getyx(win, y0, x0);
71     width = getmaxx(win) - x0;
72     sub = derwin(win, 1, width, y0, x0);
73     scrollok(sub, FALSE);
74
75     /*
76      * Print the text.
77      */
78     va_start(ap, fmt);
79     rc = vw_printw(sub, fmt, ap);
80     va_end(ap);
81
82     getyx(sub, y1, x1);
83     delwin(sub);
84
85     wmove(win, y1 + y0, x1 + x0);
86
87     return rc;
88 }
89
90 static const char *
91 color_params(unsigned state, int *pair)
92 {
93     /* *INDENT-OFF* */
94     static struct {
95         int pair;
96         int fg, bg;
97         const char *msg;
98     } table[] = {
99         { 0, COLOR_DEFAULT, COLOR_DEFAULT, "default" },
100         { 1, COLOR_RED,     COLOR_BLACK,   "red/black" },
101         { 2, COLOR_WHITE,   COLOR_BLUE,    "white/blue" },
102     };
103     /* *INDENT-ON* */
104
105     static bool first = TRUE;
106     const char *result = 0;
107
108     if (has_colors()) {
109         if (first) {
110             unsigned n;
111
112             start_color();
113             for (n = 0; n < SIZEOF(table); ++n) {
114                 init_pair((short) table[n].pair,
115                           (short) table[n].fg,
116                           (short) table[n].bg);
117             }
118         }
119         if (state < SIZEOF(table)) {
120             *pair = table[state].pair;
121             result = table[state].msg;
122         }
123     }
124     return result;
125 }
126
127 static const char *
128 video_params(unsigned state, attr_t *attr)
129 {
130     /* *INDENT-OFF* */
131     static struct {
132         attr_t attr;
133         const char *msg;
134     } table[] = {
135         { A_NORMAL,     "normal" },
136         { A_BOLD,       "bold" },
137         { A_REVERSE,    "reverse" },
138         { A_UNDERLINE,  "underline" },
139         { A_BLINK,      "blink" },
140     };
141     /* *INDENT-ON* */
142
143     const char *result = 0;
144
145     if (state < SIZEOF(table)) {
146         *attr = table[state].attr;
147         result = table[state].msg;
148     }
149     return result;
150 }
151
152 /* fill the window with a test-pattern */
153 static void
154 fill_window(WINDOW *win)
155 {
156     int y, x;
157     int y0 = -1, x0 = -1;
158
159     getyx(win, y, x);
160     wmove(win, 0, 0);
161     while (waddstr(win, "0123456789 abcdefghijklmnopqrstuvwxyz ") != ERR) {
162         int y1, x1;
163         getyx(win, y1, x1);
164         if (y1 == y0 && x1 == x0)
165             break;
166         x0 = x1;
167         y0 = y1;
168     }
169     wmove(win, y, x);
170 }
171
172 static void
173 show_status(WINDOW *win, STATUS * sp)
174 {
175     int y, x;
176
177     getyx(win, y, x);
178     wmove(win, 0, 0);
179     wprintw(win, "Count %d", sp->count);
180     if (sp->v_msg != 0)
181         wprintw(win, " Video %s", sp->v_msg);
182     if (sp->c_msg != 0)
183         wprintw(win, " Color %s", sp->c_msg);
184     wprintw(win, " (%d)", sp->status);
185     wclrtoeol(win);
186     wmove(win, y, x);
187 }
188
189 static void
190 do_subwindow(WINDOW *win, STATUS * sp, void func(WINDOW *))
191 {
192     WINDOW *win1 = newwin(sp->y_max - 2, sp->x_max - 2,
193                           sp->y_beg + 1, sp->x_beg + 1);
194
195     if (win1 != 0 && sp->y_max > 4 && sp->x_max > 4) {
196         WINDOW *win2 = derwin(win1, sp->y_max - 4, sp->x_max - 4, 1, 1);
197
198         if (win2 != 0) {
199             box(win1, 0, 0);
200             wrefresh(win1);
201             func(win2);
202
203             delwin(win2);
204         } else {
205             beep();
206         }
207         delwin(win1);
208         touchwin(win);
209     } else {
210         if (win1)
211             delwin(win1);
212         beep();
213     }
214 }
215
216 static void
217 init_status(WINDOW *win, STATUS * sp)
218 {
219     memset(sp, 0, sizeof(*sp));
220     sp->c = 99;
221     sp->v = 99;
222     sp->ch = ' ';
223
224     keypad(win, TRUE);
225     fill_window(win);
226
227     getbegyx(win, sp->y_beg, sp->x_beg);
228     getmaxyx(win, sp->y_max, sp->x_max);
229 }
230
231 static void
232 show_help(WINDOW *win)
233 {
234     static const char *table[] =
235     {
236         "Basic commands:"
237         ,"Use h/j/k/l or arrow keys to move the cursor."
238         ,"Set the count parameter for clip_wprintw by entering digits 0-9."
239         ,""
240         ,"Other commands:"
241         ,"space toggles through the set of video attributes and colors."
242         ,"t     touches (forces repaint) of the current line."
243         ,".     calls clip_wprintw at the current position with the given count."
244         ,"=     resets count to zero."
245         ,"?     shows this help-window"
246         ,""
247     };
248
249     int y_max, x_max;
250     int row;
251
252     getmaxyx(win, y_max, x_max);
253     for (row = 0; row < (int) SIZEOF(table) && row < y_max; ++row) {
254         MvWPrintw(win, row, 0, "%.*s", x_max, table[row]);
255     }
256     while (wgetch(win) != 'q')
257         beep();
258 }
259
260 static void
261 update_status(WINDOW *win, STATUS * sp)
262 {
263     switch (sp->ch) {
264     case ' ':                   /* next test-iteration */
265         if (has_colors()) {
266             if ((sp->c_msg = color_params(++(sp->c), &(sp->pair))) == 0) {
267                 sp->c_msg = color_params(sp->c = 0, &(sp->pair));
268                 if ((sp->v_msg = video_params(++(sp->v), &(sp->attr))) == 0) {
269                     sp->v_msg = video_params(sp->v = 0, &(sp->attr));
270                 }
271             }
272         } else {
273             if ((sp->v_msg = video_params(++(sp->v), &(sp->attr))) == 0) {
274                 sp->v_msg = video_params(sp->v = 0, &(sp->attr));
275             }
276         }
277         sp->count = 0;
278         show_status(win, sp);
279         break;
280     case KEY_LEFT:
281     case 'h':
282         if (sp->x_val > 0)
283             wmove(win, sp->y_val, --(sp->x_val));
284         break;
285     case KEY_DOWN:
286     case 'j':
287         if (sp->y_val < sp->y_max)
288             wmove(win, ++(sp->y_val), sp->x_val);
289         break;
290     case KEY_UP:
291     case 'k':
292         if (sp->y_val > 0)
293             wmove(win, --(sp->y_val), sp->x_val);
294         break;
295     case KEY_RIGHT:
296     case 'l':
297         if (sp->x_val < sp->x_max)
298             wmove(win, sp->y_val, ++(sp->x_val));
299         break;
300     case 't':
301         touchline(win, sp->y_val, 1);
302         break;
303     case '=':
304         sp->count = 0;
305         show_status(win, sp);
306         break;
307     case '?':
308         do_subwindow(win, sp, show_help);
309         break;
310     default:
311         if (isdigit(sp->ch)) {
312             sp->count = (sp->count * 10) + (sp->ch - '0');
313             show_status(win, sp);
314         } else {
315             beep();
316         }
317         break;
318     }
319 }
320
321 static void
322 test_clipping(WINDOW *win)
323 {
324     STATUS st;
325     char fmt[80];
326     char *buffer;
327     unsigned j, need;
328
329     init_status(win, &st);
330
331     do {
332         switch (st.ch) {
333         case '.':               /* change from current position */
334             (void) wattrset(win, (int) (st.attr | (chtype) COLOR_PAIR(st.pair)));
335             if (st.count > 0) {
336                 need = (unsigned) st.count + 1;
337                 sprintf(fmt, "%%c%%%ds%%c", st.count);
338             } else {
339                 need = (unsigned) getmaxx(win) - 1;
340                 strcpy(fmt, "%c%s%c");
341             }
342             if ((buffer = typeMalloc(char, need + 1)) != 0) {
343                 for (j = 0; j < need; ++j) {
344                     buffer[j] = (char) ('A' + (j % 26));
345                 }
346                 buffer[need - 1] = '\0';
347                 st.status = clip_wprintw(win, fmt, '[', buffer, ']');
348                 free(buffer);
349             }
350             break;
351         case 'w':
352             do_subwindow(win, &st, test_clipping);
353             break;
354         case 'q':
355             return;
356         default:
357             update_status(win, &st);
358             break;
359         }
360     } while ((st.ch = wgetch(win)) != ERR);
361 }
362
363 int
364 main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
365 {
366     initscr();
367     cbreak();
368     noecho();
369
370     test_clipping(stdscr);
371     endwin();
372
373     ExitProgram(EXIT_SUCCESS);
374 }
375
376 #else
377 int
378 main(void)
379 {
380     printf("This program requires the curses vw_printw function\n");
381     ExitProgram(EXIT_FAILURE);
382 }
383 #endif