Mercurial > repos > rhope

comparison window.c @ 0:76568becd6d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rhope Alpha 2a source import
author Mike Pavone <pavone@retrodev.com>
date Tue, 28 Apr 2009 23:06:07 +0000
parents
children 94c885692eb5
comparison
equal deleted inserted replaced
-1:000000000000 0:76568becd6d6
1 #include <stdlib.h>
2 #include <string.h>
3 #include "structs.h"
4 #include "datum.h"
5 #include "interp.h"
6 #include "vis_threading.h"
7 #include "debugmacros.h"
8
9 #ifdef SYLLABLE
10 #include "syl_window.h"
11 VIS_CRITICAL_SECTION(app_lock);
12 #else
13 #ifdef WIN32
14 #include "ms_window.h"
15 VIS_CRITICAL_SECTION(hwnd_lock);
16 #endif
17 #endif
18
19 /*
20 typedef struct
21 {
22 os::Window * wind;
23 int refcount;
24 VIS_CRITICAL_SECTION(lock)
25 } os_window;
26
27 typedef struct
28 {
29 os_window * os_wind;
30 datum * title;
31 double width;
32 double height;
33 double xpos;
34 double ypos;
35 } vis_window_shown;*/
36
37 void vis_window_init()
38 {
39 #ifdef SYLLABLE
40 DEBUGPUTS("Initializing app_lock");
41
42 VIS_InitializeCriticalSection(app_lock);
43 #else
44 #ifdef WIN32
45 VIS_InitializeCriticalSection(hwnd_lock);
46 #endif
47 #endif
48 }
49
50 int vis_window_new(datum ** inputlist, queue_entry * worker_entry)
51 {
52 vis_window * window;
53 datum * window_datum = new_datum(BUILTIN_TYPE_WINDOW, 1, sizeof(vis_window), worker_entry->instance->def->program);
54 window = (vis_window *)(window_datum->c.generic.data);
55 window->title = inputlist[0];
56 DEBUGPRINTF("Type: %d\n", window->title->company->type_id);
57 DEBUGPRINTF("Length: %d\n", window->title->c.generic.len);
58 window->width = inputlist[1]->c.real;
59 window->height = inputlist[2]->c.real;
60
61 window->widget_dict = create_dict(worker_entry->instance->def->program);
62 window->widget_xpos = create_dict(worker_entry->instance->def->program);
63 window->widget_ypos = create_dict(worker_entry->instance->def->program);
64 window->id_list = create_list(worker_entry->instance->def->program);
65 release_ref(inputlist[1]);
66 release_ref(inputlist[2]);
67 inputlist[0] = window_datum;
68 return 0;
69 }
70
71 int vis_window_add_widget(datum ** inputlist, queue_entry * worker_entry)
72 {
73 datum * params[3];
74 vis_window * window;
75 inputlist[0] = copy_datum(inputlist[0], 0);
76 window = (vis_window *)(inputlist[0]->c.generic.data);
77 DEBUGPRINTF("xpos nodes: %d\n", ((dict_data *)window->widget_xpos->c.generic.data)->num_nodes);
78 params[0] = window->widget_dict;
79 params[1] = add_ref(inputlist[1]);
80 params[2] = inputlist[2];
81 DEBUGPUTS("Adding widget to widget_dict\n");
82 DEBUGPRINTF("xpos nodes: %d\n", ((dict_data *)window->widget_xpos->c.generic.data)->num_nodes);
83 DEBUGPRINTF("widget_dict->datas: %X, xpos->datas: %X\n", window->widget_dict->c.generic.data, window->widget_xpos->c.generic.data);
84 DEBUGPRINTF("sizeof(dict_data): %d, sizeof(ternary_node), %d\n", sizeof(dict_data), sizeof(ternary_node));
85 vis_dict_set(params, NULL);
86 DEBUGPRINTF("xpos nodes: %d\n", ((dict_data *)window->widget_xpos->c.generic.data)->num_nodes);
87 window->widget_dict = params[0];
88 params[0] = window->widget_xpos;
89 params[1] = add_ref(inputlist[1]);
90 params[2] = inputlist[3];
91 DEBUGPUTS("Adding xpos to xpos_dict\n");
92 vis_dict_set(params, NULL);
93 window->widget_xpos = params[0];
94 params[0] = window->widget_ypos;
95 params[1] = add_ref(inputlist[1]);
96 params[2] = inputlist[4];
97 DEBUGPUTS("Adding ypos to ypos_dict\n");
98 vis_dict_set(params, NULL);
99 window->widget_ypos = params[0];
100 params[0] = window->id_list;
101 params[1] = inputlist[1];
102 DEBUGPUTS("Adding id to id list\n");
103 DEBUGPRINTF("xpos nodes: %d\n", ((dict_data *)window->widget_xpos->c.generic.data)->num_nodes);
104 vis_list_append(params, NULL);
105 window->id_list = params[0];
106 return 0;
107 }
108
109 int vis_window_wait_close(datum ** inputlist, queue_entry * worker_entry)
110 {
111 vis_window_shown * window = (vis_window_shown *)(inputlist[0]->c.generic.data);
112 VIS_EnterCriticalSection(window->lock);
113 if(window->is_open && !window->wait_entry)
114 {
115 window->wait_entry = (queue_entry *)malloc(sizeof(queue_entry));
116 memcpy(window->wait_entry, worker_entry, sizeof(queue_entry));
117 VIS_LeaveCriticalSection(window->lock);
118 release_ref(inputlist[0]);
119 return 1;
120 }
121 else
122 {
123 VIS_LeaveCriticalSection(window->lock);
124 release_ref(inputlist[0]);
125 inputlist[0] = new_datum(BUILTIN_TYPE_YESNO, 2, 0, worker_entry->instance->def->program);
126 datum_set_yesno(inputlist[0], DATUM_NO);
127 return 0;
128 }
129 }
130
131
132
133 void vis_window_closed(datum * window_datum)
134 {
135 datum * params[1];
136 queue_entry * temp;
137 vis_window_shown * window = (vis_window_shown *)(window_datum->c.generic.data);
138
139 VIS_EnterCriticalSection(window->lock);
140 window->is_open = FALSE;
141 //window->wind = NULL;
142 temp = window->wait_entry;
143 window->wait_entry = NULL;
144 VIS_LeaveCriticalSection(window->lock);
145 release_ref(window_datum);
146 if(temp)
147 {
148 //TODO send YESNO output
149 params[0] = new_datum(BUILTIN_TYPE_YESNO, 2, 0, temp->instance->def->program);
150 datum_set_yesno(params[0], DATUM_YES);
151 process_outputs(params, temp->worker_num, temp->instance);
152 //worker_complete(*temp);
153 cleanup_check(*temp);
154 free(temp);
155 }
156
157 }
158
159 void widget_new(datum ** inputlist, int type, program * prog)
160 {
161 vis_widget * widget;
162 datum * output = new_datum(type, 1, sizeof(vis_widget), prog);
163 widget = (vis_widget *)(output->c.generic.data);
164 widget->label = inputlist[0];
165 widget->width = inputlist[1]->c.real;
166 release_ref(inputlist[1]);
167 widget->height = inputlist[2]->c.real;
168 release_ref(inputlist[2]);
169 widget->handler_dict = create_dict(prog);
170 widget->value = NULL;
171 DEBUGPRINTF("widget_new: type = %d, handler_dict = %X\n", type, widget->handler_dict);
172 inputlist[0] = output;
173 }
174
175 int vis_button_new(datum ** inputlist, queue_entry * worker_entry)
176 {
177 widget_new(inputlist, BUILTIN_TYPE_BUTTON, worker_entry->instance->def->program);
178 return 0;
179 }
180
181 int vis_button_set_handler(datum ** inputlist, queue_entry * workere_entry)
182 {
183 vis_widget * widget;
184 datum * params[3];
185 inputlist[0] = copy_datum(inputlist[0], 0);
186 widget = (vis_widget *)(inputlist[0]->c.generic.data);
187 params[0] = widget->handler_dict;
188 params[1] = inputlist[1];
189 params[2] = inputlist[2];
190 //DEBUGPUTS("\n\nvis_button_set_handler vis_dict_set\n");
191 vis_dict_set(params, NULL);
192 DEBUGPUTS("after vis_dict_set\n\n\n");
193 widget->handler_dict = params[0];
194 return 0;
195 }
196
197 int vis_inputbox_new(datum ** inputlist, queue_entry * worker_entry)
198 {
199 vis_widget * widget;
200 datum * output = new_datum(BUILTIN_TYPE_INPUTBOX, 1, sizeof(vis_widget), worker_entry->instance->def->program);
201 widget = (vis_widget *)(output->c.generic.data);
202 widget->value = inputlist[0];
203 widget->width = inputlist[1]->c.real;
204 release_ref(inputlist[1]);
205 widget->height = inputlist[2]->c.real;
206 release_ref(inputlist[2]);
207 widget->label = NULL;
208 widget->handler_dict = NULL;
209 widget->flags = 0;
210 inputlist[0] = output;
211 return 0;
212 }
213
214 int vis_inputbox_settype(datum ** inputlist, queue_entry * worker_entry)
215 {
216 vis_widget * widget;
217 inputlist[0] = copy_datum(inputlist[0], 0);
218 widget = (vis_widget *)(inputlist[0]->c.generic.data);
219 if(!strcmp((char *)(inputlist[1]->c.generic.data), "multiline"))
220 widget->flags = 1;
221 else if(!strcmp((char *)(inputlist[1]->c.generic.data), "numeric"))
222 widget->flags = 2;
223 else if(!strcmp((char *)(inputlist[1]->c.generic.data), "password"))
224 widget->flags = 3;
225 else if(!strcmp((char *)(inputlist[1]->c.generic.data), "read only"))
226 widget->flags = 4;
227 else
228 widget->flags = 0;
229 return 0;
230 }
231
232 int vis_customwidget_new(datum ** inputlist, queue_entry * worker_entry)
233 {
234 widget_new(inputlist, BUILTIN_TYPE_CUSTOM_WIDGET, worker_entry->instance->def->program);
235 return 0;
236 }
237
238
239 int vis_checkbox_new(datum ** params, queue_entry * entry)
240 {
241 vis_widget * widget;
242 widget_new(params, BUILTIN_TYPE_CHECKBOX, entry->instance->def->program);
243 widget = params[0]->c.generic.data;
244 widget->value = params[3];
245 return 0;
246 }
247
248 int vis_dropdown_new(datum ** params, queue_entry * entry)
249 {
250 vis_widget * widget;
251 widget_new(params, BUILTIN_TYPE_DROPDOWN, entry->instance->def->program);
252 widget = params[0]->c.generic.data;
253 widget->selected_index = -1;
254 return 0;
255 }
256
257 int vis_dropdown_settext(datum ** params, queue_entry * entry)
258 {
259 vis_widget * widget;
260 params[0] = copy_datum(params[0], 0);
261 widget = params[0]->c.generic.data;
262 widget->selected_index = -1;
263 release_ref(widget->value);
264 widget->value = params[1];
265 return 0;
266 }
267
268 int vis_dropdown_select(datum ** params, queue_entry * entry)
269 {
270 vis_widget * widget;
271 params[0] = copy_datum(params[0], 0);
272 widget = params[0]->c.generic.data;
273 release_ref(widget->value);
274 widget->value = NULL;
275 widget->selected_index = params[1]->c.integers.num_a;
276 release_ref(params[1]);
277 return 0;
278 }
279
280
281
282
283
284
285
286
287
288
289
290
291