OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [ecos-3.0/] [packages/] [services/] [curses/] [pdcurses/] [current/] [tests/] [ptest.c] - Blame information for rev 819

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 786 skrzyp 
/* $Id: ptest.c,v 1.1 2009/05/10 08:29:53 jld Exp $ */
2 
 
3 
#include <curses.h>
4 
#include <panel.h>
5 
#include <stdlib.h>
6 
 
7 
PANEL *p1, *p2, *p3, *p4, *p5;
8 
WINDOW *w4, *w5;
9 
 
10 
long nap_msec = 1;
11 
 
12 
char *mod[] =
13 
{
14 
    "test ", "TEST ", "(**) ", "*()* ", "<--> ", "LAST "
15 
};
16 
 
17 
void pflush(void)
18 
{
19 
    update_panels();
20 
    doupdate();
21 
}
22 
 
23 
void backfill(void)
24 
{
25 
    int y, x;
26 
 
27 
    erase();
28 
 
29 
    for (y = 0; y < LINES - 1; y++)
30 
        for (x = 0; x < COLS; x++)
31 
            printw("%d", (y + x) % 10);
32 
}
33 
 
34 
void wait_a_while(long msec)
35 
{
36 
    int c;
37 
 
38 
    if (msec != 1)
39 
        timeout(msec);
40 
 
41 
    c = getch();
42 
 
43 
    if (c == 'q')
44 
    {
45 
        endwin();
46 
        exit(1);
47 
    }
48 
}
49 
 
50 
void saywhat(const char *text)
51 
{
52 
    mvprintw(LINES - 1, 0, "%-20.20s", text);
53 
}
54 
 
55 
/* mkpanel - alloc a win and panel and associate them */
56 
 
57 
PANEL *mkpanel(int rows, int cols, int tly, int tlx)
58 
{
59 
    WINDOW *win = newwin(rows, cols, tly, tlx);
60 
    PANEL *pan = (PANEL *)0;
61 
 
62 
    if (win)
63 
    {
64 
        pan = new_panel(win);
65 
 
66 
        if (!pan)
67 
            delwin(win);
68 
    }
69 
 
70 
    return pan;
71 
}
72 
 
73 
void rmpanel(PANEL *pan)
74 
{
75 
    WINDOW *win = pan->win;
76 
 
77 
    del_panel(pan);
78 
    delwin(win);
79 
}
80 
 
81 
void fill_panel(PANEL *pan)
82 
{
83 
    WINDOW *win = pan->win;
84 
    char num = *((char *)pan->user + 1);
85 
    int y, x, maxy, maxx;
86 
 
87 
    box(win, 0, 0);
88 
    mvwprintw(win, 1, 1, "-pan%c-", num);
89 
    getmaxyx(win, maxy, maxx);
90 
 
91 
    for (y = 2; y < maxy - 1; y++)
92 
        for (x = 1; x < maxx - 1; x++)
93 
            mvwaddch(win, y, x, num);
94 
}
95 
 
96 
int main(int argc, char **argv)
97 
{
98 
    int itmp, y;
99 
 
100 
    if (argc > 1 && atol(argv[1]))
101 
        nap_msec = atol(argv[1]);
102 
 
103 
#ifdef XCURSES
104 
    Xinitscr(argc, argv);
105 
#else
106 
    initscr();
107 
#endif
108 
    backfill();
109 
 
110 
    for (y = 0; y < 5; y++)
111 
    {
112 
        p1 = mkpanel(10, 10, 0, 0);
113 
        set_panel_userptr(p1, "p1");
114 
 
115 
        p2 = mkpanel(14, 14, 5, 5);
116 
        set_panel_userptr(p2, "p2");
117 
 
118 
        p3 = mkpanel(6, 8, 12, 12);
119 
        set_panel_userptr(p3, "p3");
120 
 
121 
        p4 = mkpanel(10, 10, 10, 30);
122 
        w4 = panel_window(p4);
123 
        set_panel_userptr(p4, "p4");
124 
 
125 
        p5 = mkpanel(10, 10, 13, 37);
126 
        w5 = panel_window(p5);
127 
        set_panel_userptr(p5, "p5");
128 
 
129 
        fill_panel(p1);
130 
        fill_panel(p2);
131 
        fill_panel(p3);
132 
        fill_panel(p4);
133 
        fill_panel(p5);
134 
        hide_panel(p4);
135 
        hide_panel(p5);
136 
        pflush();
137 
        wait_a_while(nap_msec);
138 
 
139 
        saywhat("h3 s1 s2 s4 s5;");
140 
        move_panel(p1, 0, 0);
141 
        hide_panel(p3);
142 
        show_panel(p1);
143 
        show_panel(p2);
144 
        show_panel(p4);
145 
        show_panel(p5);
146 
        pflush();
147 
        wait_a_while(nap_msec);
148 
 
149 
        saywhat("s1;");
150 
        show_panel(p1);
151 
        pflush();
152 
        wait_a_while(nap_msec);
153 
 
154 
        saywhat("s2;");
155 
        show_panel(p2);
156 
        pflush();
157 
        wait_a_while(nap_msec);
158 
 
159 
        saywhat("m2;");
160 
        move_panel(p2, 10, 10);
161 
        pflush();
162 
        wait_a_while(nap_msec);
163 
 
164 
        saywhat("s3;");
165 
        show_panel(p3);
166 
        pflush();
167 
        wait_a_while(nap_msec);
168 
 
169 
        saywhat("m3;");
170 
        move_panel(p3, 5, 5);
171 
        pflush();
172 
        wait_a_while(nap_msec);
173 
 
174 
        saywhat("b3;");
175 
        bottom_panel(p3);
176 
        pflush();
177 
        wait_a_while(nap_msec);
178 
 
179 
        saywhat("s4;");
180 
        show_panel(p4);
181 
        pflush();
182 
        wait_a_while(nap_msec);
183 
 
184 
        saywhat("s5;");
185 
        show_panel(p5);
186 
        pflush();
187 
        wait_a_while(nap_msec);
188 
 
189 
        saywhat("t3;");
190 
        top_panel(p3);
191 
        pflush();
192 
        wait_a_while(nap_msec);
193 
 
194 
        saywhat("t1;");
195 
        top_panel(p1);
196 
        pflush();
197 
        wait_a_while(nap_msec);
198 
 
199 
        saywhat("t2;");
200 
        top_panel(p2);
201 
        pflush();
202 
        wait_a_while(nap_msec);
203 
 
204 
        saywhat("t3;");
205 
        top_panel(p3);
206 
        pflush();
207 
        wait_a_while(nap_msec);
208 
 
209 
        saywhat("t4;");
210 
        top_panel(p4);
211 
        pflush();
212 
        wait_a_while(nap_msec);
213 
 
214 
        for (itmp = 0; itmp < 6; itmp++)
215 
        {
216 
            saywhat("m4;");
217 
            mvwaddstr(w4, 3, 1, mod[itmp]);
218 
            move_panel(p4, 4, itmp * 10);
219 
            mvwaddstr(w5, 4, 1, mod[itmp]);
220 
            pflush();
221 
            wait_a_while(nap_msec);
222 
 
223 
            saywhat("m5;");
224 
            mvwaddstr(w4, 4, 1, mod[itmp]);
225 
            move_panel(p5, 7, itmp * 10 + 6);
226 
            mvwaddstr(w5, 3, 1, mod[itmp]);
227 
            pflush();
228 
            wait_a_while(nap_msec);
229 
        }
230 
 
231 
        saywhat("m4;");
232 
        move_panel(p4, 4, itmp * 10);
233 
        pflush();
234 
        wait_a_while(nap_msec);
235 
 
236 
        saywhat("t5;");
237 
        top_panel(p5);
238 
        pflush();
239 
        wait_a_while(nap_msec);
240 
 
241 
        saywhat("t2;");
242 
        top_panel(p2);
243 
        pflush();
244 
        wait_a_while(nap_msec);
245 
 
246 
        saywhat("t1;");
247 
        top_panel(p1);
248 
        pflush();
249 
        wait_a_while(nap_msec);
250 
 
251 
        saywhat("d2;");
252 
        rmpanel(p2);
253 
        pflush();
254 
        wait_a_while(nap_msec);
255 
 
256 
        saywhat("h3;");
257 
        hide_panel(p3);
258 
        pflush();
259 
        wait_a_while(nap_msec);
260 
 
261 
        saywhat("d1;");
262 
        rmpanel(p1);
263 
        pflush();
264 
        wait_a_while(nap_msec);
265 
 
266 
        saywhat("d4; ");
267 
        rmpanel(p4);
268 
        pflush();
269 
        wait_a_while(nap_msec);
270 
 
271 
        saywhat("d5; ");
272 
        rmpanel(p5);
273 
        pflush();
274 
        wait_a_while(nap_msec);
275 
 
276 
        if (nap_msec == 1)
277 
            break;
278 
 
279 
        nap_msec = 100L;
280 
    }
281 
 
282 
    endwin();
283 
 
284 
    return 0;
285 
}   /* end of main */

powered by: WebSVN 2.1.0

© copyright 1999-2025 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.