screenshooter: Grab pixel data directly before buffer swap
[profile/ivi/weston-ivi-shell.git] / src / compositor.c
1 /*
2  * Copyright © 2010-2011 Intel Corporation
3  * Copyright © 2008-2011 Kristian Høgsberg
4  * Copyright © 2012 Collabora, Ltd.
5  *
6  * Permission to use, copy, modify, distribute, and sell this software and
7  * its documentation for any purpose is hereby granted without fee, provided
8  * that the above copyright notice appear in all copies and that both that
9  * copyright notice and this permission notice appear in supporting
10  * documentation, and that the name of the copyright holders not be used in
11  * advertising or publicity pertaining to distribution of the software
12  * without specific, written prior permission.  The copyright holders make
13  * no representations about the suitability of this software for any
14  * purpose.  It is provided "as is" without express or implied warranty.
15  *
16  * THE COPYRIGHT HOLDERS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
17  * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
18  * FITNESS, IN NO EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY
19  * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
20  * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
21  * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
22  * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
23  */
24
25 #define _GNU_SOURCE
26
27 #include "config.h"
28
29 #include <stdio.h>
30 #include <string.h>
31 #include <stdlib.h>
32 #include <stdint.h>
33 #include <limits.h>
34 #include <stdarg.h>
35 #include <assert.h>
36 #include <sys/ioctl.h>
37 #include <sys/wait.h>
38 #include <sys/types.h>
39 #include <sys/socket.h>
40 #include <fcntl.h>
41 #include <unistd.h>
42 #include <math.h>
43 #include <linux/input.h>
44 #include <dlfcn.h>
45 #include <signal.h>
46 #include <setjmp.h>
47 #include <execinfo.h>
48
49 #include <wayland-server.h>
50 #include "compositor.h"
51
52 static struct wl_list child_process_list;
53 static jmp_buf segv_jmp_buf;
54
55 static int
56 sigchld_handler(int signal_number, void *data)
57 {
58         struct weston_process *p;
59         int status;
60         pid_t pid;
61
62         pid = waitpid(-1, &status, WNOHANG);
63         if (!pid)
64                 return 1;
65
66         wl_list_for_each(p, &child_process_list, link) {
67                 if (p->pid == pid)
68                         break;
69         }
70
71         if (&p->link == &child_process_list) {
72                 fprintf(stderr, "unknown child process exited\n");
73                 return 1;
74         }
75
76         wl_list_remove(&p->link);
77         p->cleanup(p, status);
78
79         return 1;
80 }
81
82 WL_EXPORT int
83 weston_output_switch_mode(struct weston_output *output, struct weston_mode *mode)
84 {
85         if (!output->switch_mode)
86                 return -1;
87
88         return output->switch_mode(output, mode);
89 }
90
91 WL_EXPORT void
92 weston_watch_process(struct weston_process *process)
93 {
94         wl_list_insert(&child_process_list, &process->link);
95 }
96
97 static void
98 child_client_exec(int sockfd, const char *path)
99 {
100         int clientfd;
101         char s[32];
102         sigset_t allsigs;
103
104         /* do not give our signal mask to the new process */
105         sigfillset(&allsigs);
106         sigprocmask(SIG_UNBLOCK, &allsigs, NULL);
107
108         /* Launch clients as the user. */
109         seteuid(getuid());
110
111         /* SOCK_CLOEXEC closes both ends, so we dup the fd to get a
112          * non-CLOEXEC fd to pass through exec. */
113         clientfd = dup(sockfd);
114         if (clientfd == -1) {
115                 fprintf(stderr, "compositor: dup failed: %m\n");
116                 return;
117         }
118
119         snprintf(s, sizeof s, "%d", clientfd);
120         setenv("WAYLAND_SOCKET", s, 1);
121
122         if (execl(path, path, NULL) < 0)
123                 fprintf(stderr, "compositor: executing '%s' failed: %m\n",
124                         path);
125 }
126
127 WL_EXPORT struct wl_client *
128 weston_client_launch(struct weston_compositor *compositor,
129                      struct weston_process *proc,
130                      const char *path,
131                      weston_process_cleanup_func_t cleanup)
132 {
133         int sv[2];
134         pid_t pid;
135         struct wl_client *client;
136
137         if (socketpair(AF_UNIX, SOCK_STREAM | SOCK_CLOEXEC, 0, sv) < 0) {
138                 fprintf(stderr, "weston_client_launch: "
139                         "socketpair failed while launching '%s': %m\n",
140                         path);
141                 return NULL;
142         }
143
144         pid = fork();
145         if (pid == -1) {
146                 close(sv[0]);
147                 close(sv[1]);
148                 fprintf(stderr,  "weston_client_launch: "
149                         "fork failed while launching '%s': %m\n", path);
150                 return NULL;
151         }
152
153         if (pid == 0) {
154                 child_client_exec(sv[1], path);
155                 exit(-1);
156         }
157
158         close(sv[1]);
159
160         client = wl_client_create(compositor->wl_display, sv[0]);
161         if (!client) {
162                 close(sv[0]);
163                 fprintf(stderr, "weston_client_launch: "
164                         "wl_client_create failed while launching '%s'.\n",
165                         path);
166                 return NULL;
167         }
168
169         proc->pid = pid;
170         proc->cleanup = cleanup;
171         weston_watch_process(proc);
172
173         return client;
174 }
175
176 static void
177 surface_handle_buffer_destroy(struct wl_listener *listener, void *data)
178 {
179         struct weston_surface *es =
180                 container_of(listener, struct weston_surface, 
181                              buffer_destroy_listener);
182
183         es->buffer = NULL;
184 }
185
186 static const pixman_region32_data_t undef_region_data;
187
188 static void
189 undef_region(pixman_region32_t *region)
190 {
191         pixman_region32_fini(region);
192         region->data = (pixman_region32_data_t *) &undef_region_data;
193 }
194
195 static int
196 region_is_undefined(pixman_region32_t *region)
197 {
198         return region->data == &undef_region_data;
199 }
200
201 static void
202 empty_region(pixman_region32_t *region)
203 {
204         if (!region_is_undefined(region))
205                 pixman_region32_fini(region);
206
207         pixman_region32_init(region);
208 }
209
210 WL_EXPORT struct weston_surface *
211 weston_surface_create(struct weston_compositor *compositor)
212 {
213         struct weston_surface *surface;
214
215         surface = calloc(1, sizeof *surface);
216         if (surface == NULL)
217                 return NULL;
218
219         wl_signal_init(&surface->surface.resource.destroy_signal);
220
221         wl_list_init(&surface->link);
222         wl_list_init(&surface->layer_link);
223
224         surface->surface.resource.client = NULL;
225
226         surface->compositor = compositor;
227         surface->image = EGL_NO_IMAGE_KHR;
228         surface->alpha = 255;
229         surface->brightness = 255;
230         surface->saturation = 255;
231         surface->pitch = 1;
232
233         surface->buffer = NULL;
234         surface->output = NULL;
235
236         pixman_region32_init(&surface->damage);
237         pixman_region32_init(&surface->opaque);
238         pixman_region32_init(&surface->clip);
239         undef_region(&surface->input);
240         pixman_region32_init(&surface->transform.opaque);
241         wl_list_init(&surface->frame_callback_list);
242
243         surface->buffer_destroy_listener.notify =
244                 surface_handle_buffer_destroy;
245
246         wl_list_init(&surface->geometry.transformation_list);
247         wl_list_insert(&surface->geometry.transformation_list,
248                        &surface->transform.position.link);
249         weston_matrix_init(&surface->transform.position.matrix);
250         pixman_region32_init(&surface->transform.boundingbox);
251         surface->geometry.dirty = 1;
252
253         return surface;
254 }
255
256 WL_EXPORT void
257 weston_surface_set_color(struct weston_surface *surface,
258                  GLfloat red, GLfloat green, GLfloat blue, GLfloat alpha)
259 {
260         surface->color[0] = red;
261         surface->color[1] = green;
262         surface->color[2] = blue;
263         surface->color[3] = alpha;
264         surface->shader = &surface->compositor->solid_shader;
265 }
266
267 static void
268 surface_to_global_float(struct weston_surface *surface,
269                         int32_t sx, int32_t sy, GLfloat *x, GLfloat *y)
270 {
271         if (surface->transform.enabled) {
272                 struct weston_vector v = { { sx, sy, 0.0f, 1.0f } };
273
274                 weston_matrix_transform(&surface->transform.matrix, &v);
275
276                 if (fabsf(v.f[3]) < 1e-6) {
277                         fprintf(stderr, "warning: numerical instability in "
278                                 "weston_surface_to_global(), divisor = %g\n",
279                                 v.f[3]);
280                         *x = 0;
281                         *y = 0;
282                         return;
283                 }
284
285                 *x = v.f[0] / v.f[3];
286                 *y = v.f[1] / v.f[3];
287         } else {
288                 *x = sx + surface->geometry.x;
289                 *y = sy + surface->geometry.y;
290         }
291 }
292
293 WL_EXPORT void
294 weston_surface_damage_below(struct weston_surface *surface)
295 {
296         struct weston_compositor *compositor = surface->compositor;
297         pixman_region32_t damage;
298
299         pixman_region32_init(&damage);
300         pixman_region32_subtract(&damage, &surface->transform.boundingbox,
301                                  &surface->clip);
302         pixman_region32_union(&compositor->damage,
303                               &compositor->damage, &damage);
304         pixman_region32_fini(&damage);
305 }
306
307 static void
308 surface_compute_bbox(struct weston_surface *surface, int32_t sx, int32_t sy,
309                      int32_t width, int32_t height,
310                      pixman_region32_t *bbox)
311 {
312         GLfloat min_x = HUGE_VALF,  min_y = HUGE_VALF;
313         GLfloat max_x = -HUGE_VALF, max_y = -HUGE_VALF;
314         int32_t s[4][2] = {
315                 { sx,         sy },
316                 { sx,         sy + height },
317                 { sx + width, sy },
318                 { sx + width, sy + height }
319         };
320         GLfloat int_x, int_y;
321         int i;
322
323         for (i = 0; i < 4; ++i) {
324                 GLfloat x, y;
325                 surface_to_global_float(surface, s[i][0], s[i][1], &x, &y);
326                 if (x < min_x)
327                         min_x = x;
328                 if (x > max_x)
329                         max_x = x;
330                 if (y < min_y)
331                         min_y = y;
332                 if (y > max_y)
333                         max_y = y;
334         }
335
336         int_x = floorf(min_x);
337         int_y = floorf(min_y);
338         pixman_region32_init_rect(bbox, int_x, int_y,
339                                   ceilf(max_x) - int_x, ceilf(max_y) - int_y);
340 }
341
342 static void
343 weston_surface_update_transform_disable(struct weston_surface *surface)
344 {
345         surface->transform.enabled = 0;
346
347         /* round off fractions when not transformed */
348         surface->geometry.x = roundf(surface->geometry.x);
349         surface->geometry.y = roundf(surface->geometry.y);
350
351         pixman_region32_init_rect(&surface->transform.boundingbox,
352                                   surface->geometry.x,
353                                   surface->geometry.y,
354                                   surface->geometry.width,
355                                   surface->geometry.height);
356
357         if (surface->alpha == 255) {
358                 pixman_region32_copy(&surface->transform.opaque,
359                                      &surface->opaque);
360                 pixman_region32_translate(&surface->transform.opaque,
361                                           surface->geometry.x,
362                                           surface->geometry.y);
363         }
364 }
365
366 static int
367 weston_surface_update_transform_enable(struct weston_surface *surface)
368 {
369         struct weston_matrix *matrix = &surface->transform.matrix;
370         struct weston_matrix *inverse = &surface->transform.inverse;
371         struct weston_transform *tform;
372
373         surface->transform.enabled = 1;
374
375         /* Otherwise identity matrix, but with x and y translation. */
376         surface->transform.position.matrix.d[12] = surface->geometry.x;
377         surface->transform.position.matrix.d[13] = surface->geometry.y;
378
379         weston_matrix_init(matrix);
380         wl_list_for_each(tform, &surface->geometry.transformation_list, link)
381                 weston_matrix_multiply(matrix, &tform->matrix);
382
383         if (weston_matrix_invert(inverse, matrix) < 0) {
384                 /* Oops, bad total transformation, not invertible */
385                 fprintf(stderr, "error: weston_surface %p"
386                         " transformation not invertible.\n", surface);
387                 return -1;
388         }
389
390         surface_compute_bbox(surface, 0, 0, surface->geometry.width,
391                              surface->geometry.height,
392                              &surface->transform.boundingbox);
393
394         return 0;
395 }
396
397 WL_EXPORT void
398 weston_surface_update_transform(struct weston_surface *surface)
399 {
400         if (!surface->geometry.dirty)
401                 return;
402
403         surface->geometry.dirty = 0;
404
405         weston_surface_damage_below(surface);
406
407         pixman_region32_fini(&surface->transform.boundingbox);
408         pixman_region32_fini(&surface->transform.opaque);
409         pixman_region32_init(&surface->transform.opaque);
410
411         if (region_is_undefined(&surface->input))
412                 pixman_region32_init_rect(&surface->input, 0, 0, 
413                                           surface->geometry.width,
414                                           surface->geometry.height);
415
416         /* transform.position is always in transformation_list */
417         if (surface->geometry.transformation_list.next ==
418             &surface->transform.position.link &&
419             surface->geometry.transformation_list.prev ==
420             &surface->transform.position.link) {
421                 weston_surface_update_transform_disable(surface);
422         } else {
423                 if (weston_surface_update_transform_enable(surface) < 0)
424                         weston_surface_update_transform_disable(surface);
425         }
426
427         /* weston_surface_damage() without update */
428         pixman_region32_union(&surface->damage, &surface->damage,
429                               &surface->transform.boundingbox);
430
431         if (weston_surface_is_mapped(surface))
432                 weston_surface_assign_output(surface);
433
434         weston_compositor_schedule_repaint(surface->compositor);
435 }
436
437 WL_EXPORT void
438 weston_surface_to_global_float(struct weston_surface *surface,
439                                int32_t sx, int32_t sy, GLfloat *x, GLfloat *y)
440 {
441         weston_surface_update_transform(surface);
442
443         surface_to_global_float(surface, sx, sy, x, y);
444 }
445
446 WL_EXPORT void
447 weston_surface_to_global(struct weston_surface *surface,
448                          int32_t sx, int32_t sy, int32_t *x, int32_t *y)
449 {
450         GLfloat xf, yf;
451
452         weston_surface_to_global_float(surface, sx, sy, &xf, &yf);
453         *x = floorf(xf);
454         *y = floorf(yf);
455 }
456
457 static void
458 surface_from_global_float(struct weston_surface *surface,
459                           int32_t x, int32_t y, GLfloat *sx, GLfloat *sy)
460 {
461         if (surface->transform.enabled) {
462                 struct weston_vector v = { { x, y, 0.0f, 1.0f } };
463
464                 weston_matrix_transform(&surface->transform.inverse, &v);
465
466                 if (fabsf(v.f[3]) < 1e-6) {
467                         fprintf(stderr, "warning: numerical instability in "
468                                 "weston_surface_from_global(), divisor = %g\n",
469                                 v.f[3]);
470                         *sx = 0;
471                         *sy = 0;
472                         return;
473                 }
474
475                 *sx = v.f[0] / v.f[3];
476                 *sy = v.f[1] / v.f[3];
477         } else {
478                 *sx = x - surface->geometry.x;
479                 *sy = y - surface->geometry.y;
480         }
481 }
482
483 WL_EXPORT void
484 weston_surface_from_global(struct weston_surface *surface,
485                            int32_t x, int32_t y, int32_t *sx, int32_t *sy)
486 {
487         GLfloat sxf, syf;
488
489         weston_surface_update_transform(surface);
490
491         surface_from_global_float(surface, x, y, &sxf, &syf);
492         *sx = floorf(sxf);
493         *sy = floorf(syf);
494 }
495
496 static void
497 weston_surface_damage_rectangle(struct weston_surface *surface,
498                                 int32_t sx, int32_t sy,
499                                 int32_t width, int32_t height)
500 {
501         weston_surface_update_transform(surface);
502
503         if (surface->transform.enabled) {
504                 pixman_region32_t box;
505                 surface_compute_bbox(surface, sx, sy, width, height, &box);
506                 pixman_region32_union(&surface->damage, &surface->damage,
507                                       &box);
508                 pixman_region32_fini(&box);
509         } else {
510                 pixman_region32_union_rect(&surface->damage, &surface->damage,
511                                            surface->geometry.x + sx,
512                                            surface->geometry.y + sy,
513                                            width, height);
514         }
515
516         weston_compositor_schedule_repaint(surface->compositor);
517 }
518
519 WL_EXPORT void
520 weston_surface_damage(struct weston_surface *surface)
521 {
522         weston_surface_update_transform(surface);
523
524         pixman_region32_union(&surface->damage, &surface->damage,
525                               &surface->transform.boundingbox);
526
527         weston_compositor_schedule_repaint(surface->compositor);
528 }
529
530 WL_EXPORT void
531 weston_surface_configure(struct weston_surface *surface,
532                          GLfloat x, GLfloat y, int width, int height)
533 {
534         surface->geometry.x = x;
535         surface->geometry.y = y;
536         surface->geometry.width = width;
537         surface->geometry.height = height;
538         surface->geometry.dirty = 1;
539 }
540
541 WL_EXPORT void
542 weston_surface_set_position(struct weston_surface *surface,
543                             GLfloat x, GLfloat y)
544 {
545         surface->geometry.x = x;
546         surface->geometry.y = y;
547         surface->geometry.dirty = 1;
548 }
549
550 WL_EXPORT int
551 weston_surface_is_mapped(struct weston_surface *surface)
552 {
553         if (surface->output)
554                 return 1;
555         else
556                 return 0;
557 }
558
559 WL_EXPORT uint32_t
560 weston_compositor_get_time(void)
561 {
562        struct timeval tv;
563
564        gettimeofday(&tv, NULL);
565
566        return tv.tv_sec * 1000 + tv.tv_usec / 1000;
567 }
568
569 static struct weston_surface *
570 weston_compositor_pick_surface(struct weston_compositor *compositor,
571                                int32_t x, int32_t y, int32_t *sx, int32_t *sy)
572 {
573         struct weston_surface *surface;
574
575         wl_list_for_each(surface, &compositor->surface_list, link) {
576                 weston_surface_from_global(surface, x, y, sx, sy);
577                 if (pixman_region32_contains_point(&surface->input,
578                                                    *sx, *sy, NULL))
579                         return surface;
580         }
581
582         return NULL;
583 }
584
585 static void
586 weston_device_repick(struct wl_input_device *device)
587 {
588         struct weston_input_device *wd = (struct weston_input_device *) device;
589         const struct wl_pointer_grab_interface *interface;
590         struct weston_surface *surface, *focus;
591
592         surface = weston_compositor_pick_surface(wd->compositor,
593                                                  device->x, device->y,
594                                                  &device->current_x,
595                                                  &device->current_y);
596
597         if (&surface->surface != device->current) {
598                 interface = device->pointer_grab->interface;
599                 interface->focus(device->pointer_grab, &surface->surface,
600                                  device->current_x, device->current_y);
601                 device->current = &surface->surface;
602         }
603
604         focus = (struct weston_surface *) device->pointer_grab->focus;
605         if (focus)
606                 weston_surface_from_global(focus, device->x, device->y,
607                                            &device->pointer_grab->x, &device->pointer_grab->y);
608 }
609
610 WL_EXPORT void
611 weston_compositor_repick(struct weston_compositor *compositor)
612 {
613         struct weston_input_device *device;
614
615         if (!compositor->focus)
616                 return;
617
618         wl_list_for_each(device, &compositor->input_device_list, link)
619                 weston_device_repick(&device->input_device);
620 }
621
622 static void
623 weston_surface_unmap(struct weston_surface *surface)
624 {
625         struct wl_input_device *device = surface->compositor->input_device;
626
627         weston_surface_damage_below(surface);
628         surface->output = NULL;
629         wl_list_remove(&surface->link);
630         wl_list_remove(&surface->layer_link);
631
632         if (device->keyboard_focus == &surface->surface)
633                 wl_input_device_set_keyboard_focus(device, NULL);
634         if (device->pointer_focus == &surface->surface)
635                 wl_input_device_set_pointer_focus(device, NULL, 0, 0);
636
637         weston_compositor_schedule_repaint(surface->compositor);
638 }
639
640 static void
641 destroy_surface(struct wl_resource *resource)
642 {
643         struct weston_surface *surface =
644                 container_of(resource,
645                              struct weston_surface, surface.resource);
646         struct weston_compositor *compositor = surface->compositor;
647
648         if (weston_surface_is_mapped(surface))
649                 weston_surface_unmap(surface);
650
651         if (surface->texture)
652                 glDeleteTextures(1, &surface->texture);
653
654         if (surface->buffer)
655                 wl_list_remove(&surface->buffer_destroy_listener.link);
656
657         if (surface->image != EGL_NO_IMAGE_KHR)
658                 compositor->destroy_image(compositor->display,
659                                           surface->image);
660
661         pixman_region32_fini(&surface->transform.boundingbox);
662         pixman_region32_fini(&surface->damage);
663         pixman_region32_fini(&surface->opaque);
664         pixman_region32_fini(&surface->clip);
665         if (!region_is_undefined(&surface->input))
666                 pixman_region32_fini(&surface->input);
667
668         free(surface);
669 }
670
671 WL_EXPORT void
672 weston_surface_destroy(struct weston_surface *surface)
673 {
674         /* Not a valid way to destroy a client surface */
675         assert(surface->surface.resource.client == NULL);
676
677         destroy_surface(&surface->surface.resource);
678 }
679
680 static void
681 weston_surface_attach(struct wl_surface *surface, struct wl_buffer *buffer)
682 {
683         struct weston_surface *es = (struct weston_surface *) surface;
684         struct weston_compositor *ec = es->compositor;
685
686         if (es->buffer) {
687                 weston_buffer_post_release(es->buffer);
688                 wl_list_remove(&es->buffer_destroy_listener.link);
689         }
690
691         es->buffer = buffer;
692
693         if (!buffer) {
694                 if (weston_surface_is_mapped(es))
695                         weston_surface_unmap(es);
696                 return;
697         }
698
699         buffer->busy_count++;
700         wl_signal_add(&es->buffer->resource.destroy_signal,
701                       &es->buffer_destroy_listener);
702
703         if (es->geometry.width != buffer->width ||
704             es->geometry.height != buffer->height) {
705                 undef_region(&es->input);
706                 pixman_region32_fini(&es->opaque);
707                 pixman_region32_init(&es->opaque);
708         }
709
710         if (!es->texture) {
711                 glGenTextures(1, &es->texture);
712                 glBindTexture(GL_TEXTURE_2D, es->texture);
713                 glTexParameteri(GL_TEXTURE_2D,
714                                 GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
715                 glTexParameteri(GL_TEXTURE_2D,
716                                 GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
717                 es->shader = &ec->texture_shader;
718         } else {
719                 glBindTexture(GL_TEXTURE_2D, es->texture);
720         }
721
722         if (wl_buffer_is_shm(buffer)) {
723                 es->pitch = wl_shm_buffer_get_stride(buffer) / 4;
724                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
725                              es->pitch, es->buffer->height, 0,
726                              GL_BGRA_EXT, GL_UNSIGNED_BYTE, NULL);
727         } else {
728                 if (es->image != EGL_NO_IMAGE_KHR)
729                         ec->destroy_image(ec->display, es->image);
730                 es->image = ec->create_image(ec->display, NULL,
731                                              EGL_WAYLAND_BUFFER_WL,
732                                              buffer, NULL);
733
734                 ec->image_target_texture_2d(GL_TEXTURE_2D, es->image);
735
736                 es->pitch = buffer->width;
737         }
738 }
739
740 static int
741 texture_region(struct weston_surface *es, pixman_region32_t *region)
742 {
743         struct weston_compositor *ec = es->compositor;
744         GLfloat *v, inv_width, inv_height;
745         GLfloat sx, sy;
746         pixman_box32_t *rectangles;
747         unsigned int *p;
748         int i, n;
749
750         rectangles = pixman_region32_rectangles(region, &n);
751         v = wl_array_add(&ec->vertices, n * 16 * sizeof *v);
752         p = wl_array_add(&ec->indices, n * 6 * sizeof *p);
753         inv_width = 1.0 / es->pitch;
754         inv_height = 1.0 / es->geometry.height;
755
756         for (i = 0; i < n; i++, v += 16, p += 6) {
757                 surface_from_global_float(es, rectangles[i].x1,
758                                           rectangles[i].y1, &sx, &sy);
759                 v[ 0] = rectangles[i].x1;
760                 v[ 1] = rectangles[i].y1;
761                 v[ 2] = sx * inv_width;
762                 v[ 3] = sy * inv_height;
763
764                 surface_from_global_float(es, rectangles[i].x1,
765                                           rectangles[i].y2, &sx, &sy);
766                 v[ 4] = rectangles[i].x1;
767                 v[ 5] = rectangles[i].y2;
768                 v[ 6] = sx * inv_width;
769                 v[ 7] = sy * inv_height;
770
771                 surface_from_global_float(es, rectangles[i].x2,
772                                           rectangles[i].y1, &sx, &sy);
773                 v[ 8] = rectangles[i].x2;
774                 v[ 9] = rectangles[i].y1;
775                 v[10] = sx * inv_width;
776                 v[11] = sy * inv_height;
777
778                 surface_from_global_float(es, rectangles[i].x2,
779                                           rectangles[i].y2, &sx, &sy);
780                 v[12] = rectangles[i].x2;
781                 v[13] = rectangles[i].y2;
782                 v[14] = sx * inv_width;
783                 v[15] = sy * inv_height;
784
785                 p[0] = i * 4 + 0;
786                 p[1] = i * 4 + 1;
787                 p[2] = i * 4 + 2;
788                 p[3] = i * 4 + 2;
789                 p[4] = i * 4 + 1;
790                 p[5] = i * 4 + 3;
791         }
792
793         return n;
794 }
795
796 WL_EXPORT void
797 weston_surface_draw(struct weston_surface *es, struct weston_output *output,
798                     pixman_region32_t *damage)
799 {
800         struct weston_compositor *ec = es->compositor;
801         GLfloat *v;
802         pixman_region32_t repaint;
803         GLint filter;
804         int n;
805
806         pixman_region32_init(&repaint);
807         pixman_region32_intersect(&repaint,
808                                   &es->transform.boundingbox, damage);
809         pixman_region32_subtract(&repaint, &repaint, &es->clip);
810
811         if (!pixman_region32_not_empty(&repaint))
812                 goto out;
813
814         glBlendFunc(GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
815         glEnable(GL_BLEND);
816
817         if (ec->current_shader != es->shader) {
818                 glUseProgram(es->shader->program);
819                 ec->current_shader = es->shader;
820         }
821
822         glUniformMatrix4fv(es->shader->proj_uniform,
823                            1, GL_FALSE, output->matrix.d);
824         glUniform1i(es->shader->tex_uniform, 0);
825         glUniform4fv(es->shader->color_uniform, 1, es->color);
826         glUniform1f(es->shader->alpha_uniform, es->alpha / 255.0);
827         glUniform1f(es->shader->brightness_uniform, es->brightness / 255.0);
828         glUniform1f(es->shader->saturation_uniform, es->saturation / 255.0);
829         glUniform1f(es->shader->texwidth_uniform,
830                     (GLfloat)es->geometry.width / es->pitch);
831
832         if (es->transform.enabled || output->zoom.active)
833                 filter = GL_LINEAR;
834         else
835                 filter = GL_NEAREST;
836
837         n = texture_region(es, &repaint);
838
839         glBindTexture(GL_TEXTURE_2D, es->texture);
840         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, filter);
841         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, filter);
842
843         v = ec->vertices.data;
844         glVertexAttribPointer(0, 2, GL_FLOAT, GL_FALSE, 4 * sizeof *v, &v[0]);
845         glVertexAttribPointer(1, 2, GL_FLOAT, GL_FALSE, 4 * sizeof *v, &v[2]);
846         glEnableVertexAttribArray(0);
847         glEnableVertexAttribArray(1);
848
849         glDrawElements(GL_TRIANGLES, n * 6, GL_UNSIGNED_INT, ec->indices.data);
850
851         glDisableVertexAttribArray(1);
852         glDisableVertexAttribArray(0);
853
854         ec->vertices.size = 0;
855         ec->indices.size = 0;
856
857 out:
858         pixman_region32_fini(&repaint);
859 }
860
861 WL_EXPORT void
862 weston_surface_restack(struct weston_surface *surface, struct wl_list *below)
863 {
864         wl_list_remove(&surface->layer_link);
865         wl_list_insert(below, &surface->layer_link);
866         weston_surface_damage_below(surface);
867         weston_surface_damage(surface);
868 }
869
870 WL_EXPORT void
871 weston_compositor_damage_all(struct weston_compositor *compositor)
872 {
873         struct weston_output *output;
874
875         wl_list_for_each(output, &compositor->output_list, link)
876                 weston_output_damage(output);
877 }
878
879 WL_EXPORT void
880 weston_buffer_post_release(struct wl_buffer *buffer)
881 {
882         if (--buffer->busy_count > 0)
883                 return;
884
885         assert(buffer->resource.client != NULL);
886         wl_resource_queue_event(&buffer->resource, WL_BUFFER_RELEASE);
887 }
888
889 WL_EXPORT void
890 weston_output_damage(struct weston_output *output)
891 {
892         struct weston_compositor *compositor = output->compositor;
893
894         pixman_region32_union(&compositor->damage,
895                               &compositor->damage, &output->region);
896         weston_compositor_schedule_repaint(compositor);
897 }
898
899 static void
900 fade_frame(struct weston_animation *animation,
901            struct weston_output *output, uint32_t msecs)
902 {
903         struct weston_compositor *compositor =
904                 container_of(animation,
905                              struct weston_compositor, fade.animation);
906         struct weston_surface *surface;
907
908         surface = compositor->fade.surface;
909         weston_spring_update(&compositor->fade.spring, msecs);
910         weston_surface_set_color(surface, 0.0, 0.0, 0.0,
911                                  compositor->fade.spring.current);
912         weston_surface_damage(surface);
913
914         if (weston_spring_done(&compositor->fade.spring)) {
915                 compositor->fade.spring.current =
916                         compositor->fade.spring.target;
917                 wl_list_remove(&animation->link);
918                 wl_list_init(&animation->link);
919
920                 if (compositor->fade.spring.current < 0.001) {
921                         destroy_surface(&surface->surface.resource);
922                         compositor->fade.surface = NULL;
923                 } else if (compositor->fade.spring.current > 0.999) {
924                         compositor->state = WESTON_COMPOSITOR_SLEEPING;
925                         wl_signal_emit(&compositor->lock_signal, compositor);
926                 }
927         }
928 }
929
930 struct weston_frame_callback {
931         struct wl_resource resource;
932         struct wl_list link;
933 };
934
935 static void
936 weston_output_repaint(struct weston_output *output, int msecs)
937 {
938         struct weston_compositor *ec = output->compositor;
939         struct weston_surface *es;
940         struct weston_layer *layer;
941         struct weston_animation *animation, *next;
942         struct weston_frame_callback *cb, *cnext;
943         pixman_region32_t opaque, new_damage, output_damage;
944         int32_t width, height;
945
946         weston_compositor_update_drag_surfaces(ec);
947
948         width = output->current->width +
949                 output->border.left + output->border.right;
950         height = output->current->height +
951                 output->border.top + output->border.bottom;
952         glViewport(0, 0, width, height);
953
954         /* Rebuild the surface list and update surface transforms up front. */
955         wl_list_init(&ec->surface_list);
956         wl_list_for_each(layer, &ec->layer_list, link) {
957                 wl_list_for_each(es, &layer->surface_list, layer_link) {
958                         weston_surface_update_transform(es);
959                         wl_list_insert(ec->surface_list.prev, &es->link);
960                 }
961         }
962
963         if (output->assign_planes)
964                 /*
965                  * This will queue flips for the fbs and sprites where
966                  * applicable and clear the damage for those surfaces.
967                  * The repaint loop below will repaint everything
968                  * else.
969                  */
970                 output->assign_planes(output);
971
972         pixman_region32_init(&new_damage);
973         pixman_region32_init(&opaque);
974
975         wl_list_for_each(es, &ec->surface_list, link) {
976                 pixman_region32_subtract(&es->damage, &es->damage, &opaque);
977                 pixman_region32_union(&new_damage, &new_damage, &es->damage);
978                 empty_region(&es->damage);
979                 pixman_region32_copy(&es->clip, &opaque);
980                 pixman_region32_union(&opaque, &opaque, &es->transform.opaque);
981         }
982
983         pixman_region32_union(&ec->damage, &ec->damage, &new_damage);
984
985         pixman_region32_init(&output_damage);
986         pixman_region32_union(&output_damage,
987                               &ec->damage, &output->previous_damage);
988         pixman_region32_copy(&output->previous_damage, &ec->damage);
989         pixman_region32_intersect(&output_damage,
990                                   &output_damage, &output->region);
991         pixman_region32_subtract(&ec->damage, &ec->damage, &output->region);
992
993         pixman_region32_fini(&opaque);
994         pixman_region32_fini(&new_damage);
995
996         if (output->dirty)
997                 weston_output_update_matrix(output);
998
999         output->repaint(output, &output_damage);
1000
1001         pixman_region32_fini(&output_damage);
1002
1003         output->repaint_needed = 0;
1004
1005         weston_compositor_repick(ec);
1006         wl_event_loop_dispatch(ec->input_loop, 0);
1007
1008         wl_list_for_each_safe(cb, cnext, &output->frame_callback_list, link) {
1009                 wl_callback_send_done(&cb->resource, msecs);
1010                 wl_resource_destroy(&cb->resource);
1011         }
1012
1013         wl_list_for_each_safe(animation, next, &ec->animation_list, link)
1014                 animation->frame(animation, output, msecs);
1015 }
1016
1017 static int
1018 weston_compositor_read_input(int fd, uint32_t mask, void *data)
1019 {
1020         struct weston_compositor *compositor = data;
1021
1022         wl_event_loop_dispatch(compositor->input_loop, 0);
1023
1024         return 1;
1025 }
1026
1027 WL_EXPORT void
1028 weston_output_finish_frame(struct weston_output *output, int msecs)
1029 {
1030         struct weston_compositor *compositor = output->compositor;
1031         struct wl_event_loop *loop =
1032                 wl_display_get_event_loop(compositor->wl_display);
1033         int fd;
1034
1035         if (output->repaint_needed) {
1036                 weston_output_repaint(output, msecs);
1037                 return;
1038         }
1039
1040         output->repaint_scheduled = 0;
1041         if (compositor->input_loop_source)
1042                 return;
1043
1044         fd = wl_event_loop_get_fd(compositor->input_loop);
1045         compositor->input_loop_source =
1046                 wl_event_loop_add_fd(loop, fd, WL_EVENT_READABLE,
1047                                      weston_compositor_read_input, compositor);
1048 }
1049
1050 static void
1051 idle_repaint(void *data)
1052 {
1053         struct weston_output *output = data;
1054
1055         weston_output_finish_frame(output, weston_compositor_get_time());
1056 }
1057
1058 WL_EXPORT void
1059 weston_layer_init(struct weston_layer *layer, struct wl_list *below)
1060 {
1061         wl_list_init(&layer->surface_list);
1062         wl_list_insert(below, &layer->link);
1063 }
1064
1065 WL_EXPORT void
1066 weston_compositor_schedule_repaint(struct weston_compositor *compositor)
1067 {
1068         struct weston_output *output;
1069         struct wl_event_loop *loop;
1070
1071         if (compositor->state == WESTON_COMPOSITOR_SLEEPING)
1072                 return;
1073
1074         loop = wl_display_get_event_loop(compositor->wl_display);
1075         wl_list_for_each(output, &compositor->output_list, link) {
1076                 output->repaint_needed = 1;
1077                 if (output->repaint_scheduled)
1078                         continue;
1079
1080                 wl_event_loop_add_idle(loop, idle_repaint, output);
1081                 output->repaint_scheduled = 1;
1082         }
1083
1084         if (compositor->input_loop_source) {
1085                 wl_event_source_remove(compositor->input_loop_source);
1086                 compositor->input_loop_source = NULL;
1087         }
1088 }
1089
1090 WL_EXPORT void
1091 weston_compositor_fade(struct weston_compositor *compositor, float tint)
1092 {
1093         struct weston_surface *surface;
1094         int done;
1095
1096         done = weston_spring_done(&compositor->fade.spring);
1097         compositor->fade.spring.target = tint;
1098         if (weston_spring_done(&compositor->fade.spring))
1099                 return;
1100
1101         if (done)
1102                 compositor->fade.spring.timestamp =
1103                         weston_compositor_get_time();
1104
1105         if (compositor->fade.surface == NULL) {
1106                 surface = weston_surface_create(compositor);
1107                 weston_surface_configure(surface, 0, 0, 8192, 8192);
1108                 weston_surface_set_color(surface, 0.0, 0.0, 0.0, 0.0);
1109                 wl_list_insert(&compositor->fade_layer.surface_list,
1110                                &surface->layer_link);
1111                 weston_surface_assign_output(surface);
1112                 compositor->fade.surface = surface;
1113                 pixman_region32_init(&surface->input);
1114         }
1115
1116         weston_surface_damage(compositor->fade.surface);
1117         if (wl_list_empty(&compositor->fade.animation.link))
1118                 wl_list_insert(compositor->animation_list.prev,
1119                                &compositor->fade.animation.link);
1120 }
1121
1122 static void
1123 surface_destroy(struct wl_client *client, struct wl_resource *resource)
1124 {
1125         wl_resource_destroy(resource);
1126 }
1127
1128 static struct wl_resource *
1129 find_resource_for_client(struct wl_list *list, struct wl_client *client)
1130 {
1131         struct wl_resource *r;
1132
1133         wl_list_for_each(r, list, link) {
1134                 if (r->client == client)
1135                         return r;
1136         }
1137
1138         return NULL;
1139 }
1140
1141 static void
1142 weston_surface_update_output_mask(struct weston_surface *es, uint32_t mask)
1143 {
1144         uint32_t different = es->output_mask ^ mask;
1145         uint32_t entered = mask & different;
1146         uint32_t left = es->output_mask & different;
1147         struct weston_output *output;
1148         struct wl_resource *resource;
1149         struct wl_client *client = es->surface.resource.client;
1150
1151         if (es->surface.resource.client == NULL)
1152                 return;
1153         if (different == 0)
1154                 return;
1155
1156         es->output_mask = mask;
1157         wl_list_for_each(output, &es->compositor->output_list, link) {
1158                 if (1 << output->id & different)
1159                         resource =
1160                                 find_resource_for_client(&output->resource_list,
1161                                                          client);
1162                 if (1 << output->id & entered)
1163                         wl_surface_send_enter(&es->surface.resource, resource);
1164                 if (1 << output->id & left)
1165                         wl_surface_send_leave(&es->surface.resource, resource);
1166         }
1167 }
1168
1169 WL_EXPORT void
1170 weston_surface_assign_output(struct weston_surface *es)
1171 {
1172         struct weston_compositor *ec = es->compositor;
1173         struct weston_output *output, *new_output;
1174         pixman_region32_t region;
1175         uint32_t max, area, mask;
1176         pixman_box32_t *e;
1177
1178         weston_surface_update_transform(es);
1179
1180         new_output = NULL;
1181         max = 0;
1182         mask = 0;
1183         pixman_region32_init(&region);
1184         wl_list_for_each(output, &ec->output_list, link) {
1185                 pixman_region32_intersect(&region, &es->transform.boundingbox,
1186                                           &output->region);
1187
1188                 e = pixman_region32_extents(&region);
1189                 area = (e->x2 - e->x1) * (e->y2 - e->y1);
1190
1191                 if (area > 0)
1192                         mask |= 1 << output->id;
1193
1194                 if (area >= max) {
1195                         new_output = output;
1196                         max = area;
1197                 }
1198         }
1199         pixman_region32_fini(&region);
1200
1201         es->output = new_output;
1202         weston_surface_update_output_mask(es, mask);
1203
1204         if (!wl_list_empty(&es->frame_callback_list)) {
1205                 wl_list_insert_list(new_output->frame_callback_list.prev,
1206                                     &es->frame_callback_list);
1207                 wl_list_init(&es->frame_callback_list);
1208         }
1209 }
1210
1211 static void
1212 surface_attach(struct wl_client *client,
1213                struct wl_resource *resource,
1214                struct wl_resource *buffer_resource, int32_t sx, int32_t sy)
1215 {
1216         struct weston_surface *es = resource->data;
1217         struct wl_buffer *buffer = NULL;
1218
1219         if (buffer_resource)
1220                 buffer = buffer_resource->data;
1221
1222         weston_surface_attach(&es->surface, buffer);
1223
1224         if (buffer && es->configure)
1225                 es->configure(es, sx, sy);
1226 }
1227
1228 static void
1229 texture_set_subimage(struct weston_surface *surface,
1230                      int32_t x, int32_t y, int32_t width, int32_t height)
1231 {
1232         glBindTexture(GL_TEXTURE_2D, surface->texture);
1233
1234 #ifdef GL_UNPACK_ROW_LENGTH
1235         /* Mesa does not define GL_EXT_unpack_subimage */
1236
1237         if (surface->compositor->has_unpack_subimage) {
1238                 glPixelStorei(GL_UNPACK_ROW_LENGTH, surface->pitch);
1239                 glPixelStorei(GL_UNPACK_SKIP_PIXELS, x);
1240                 glPixelStorei(GL_UNPACK_SKIP_ROWS, y);
1241
1242                 glTexSubImage2D(GL_TEXTURE_2D, 0, x, y, width, height,
1243                                 GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1244                                 wl_shm_buffer_get_data(surface->buffer));
1245                 return;
1246         }
1247 #endif
1248
1249         glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
1250                      surface->pitch, surface->buffer->height, 0,
1251                      GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1252                      wl_shm_buffer_get_data(surface->buffer));
1253 }
1254
1255 static void
1256 surface_damage(struct wl_client *client,
1257                struct wl_resource *resource,
1258                int32_t x, int32_t y, int32_t width, int32_t height)
1259 {
1260         struct weston_surface *es = resource->data;
1261
1262         weston_surface_damage_rectangle(es, x, y, width, height);
1263
1264         if (es->buffer && wl_buffer_is_shm(es->buffer))
1265                 texture_set_subimage(es, x, y, width, height);
1266 }
1267
1268 static void
1269 destroy_frame_callback(struct wl_resource *resource)
1270 {
1271         struct weston_frame_callback *cb = resource->data;
1272
1273         wl_list_remove(&cb->link);
1274         free(cb);
1275 }
1276
1277 static void
1278 surface_frame(struct wl_client *client,
1279               struct wl_resource *resource, uint32_t callback)
1280 {
1281         struct weston_frame_callback *cb;
1282         struct weston_surface *es = resource->data;
1283
1284         cb = malloc(sizeof *cb);
1285         if (cb == NULL) {
1286                 wl_resource_post_no_memory(resource);
1287                 return;
1288         }
1289                 
1290         cb->resource.object.interface = &wl_callback_interface;
1291         cb->resource.object.id = callback;
1292         cb->resource.destroy = destroy_frame_callback;
1293         cb->resource.client = client;
1294         cb->resource.data = cb;
1295
1296         wl_client_add_resource(client, &cb->resource);
1297
1298         if (es->output) {
1299                 wl_list_insert(es->output->frame_callback_list.prev,
1300                                &cb->link);
1301         } else {
1302                 wl_list_insert(es->frame_callback_list.prev, &cb->link);
1303         }
1304 }
1305
1306 static void
1307 surface_set_opaque_region(struct wl_client *client,
1308                           struct wl_resource *resource,
1309                           struct wl_resource *region_resource)
1310 {
1311         struct weston_surface *surface = resource->data;
1312         struct weston_region *region;
1313
1314         pixman_region32_fini(&surface->opaque);
1315
1316         if (region_resource) {
1317                 region = region_resource->data;
1318                 pixman_region32_init_rect(&surface->opaque, 0, 0,
1319                                           surface->geometry.width,
1320                                           surface->geometry.height);
1321                 pixman_region32_intersect(&surface->opaque,
1322                                           &surface->opaque, &region->region);
1323         } else {
1324                 pixman_region32_init(&surface->opaque);
1325         }
1326
1327         surface->geometry.dirty = 1;
1328 }
1329
1330 static void
1331 surface_set_input_region(struct wl_client *client,
1332                          struct wl_resource *resource,
1333                          struct wl_resource *region_resource)
1334 {
1335         struct weston_surface *surface = resource->data;
1336         struct weston_region *region;
1337
1338         if (region_resource) {
1339                 region = region_resource->data;
1340                 pixman_region32_init_rect(&surface->input, 0, 0,
1341                                           surface->geometry.width,
1342                                           surface->geometry.height);
1343                 pixman_region32_intersect(&surface->input,
1344                                           &surface->input, &region->region);
1345         } else {
1346                 pixman_region32_init_rect(&surface->input, 0, 0,
1347                                           surface->geometry.width,
1348                                           surface->geometry.height);
1349         }
1350
1351         weston_compositor_schedule_repaint(surface->compositor);
1352 }
1353
1354 static const struct wl_surface_interface surface_interface = {
1355         surface_destroy,
1356         surface_attach,
1357         surface_damage,
1358         surface_frame,
1359         surface_set_opaque_region,
1360         surface_set_input_region
1361 };
1362
1363 static void
1364 compositor_create_surface(struct wl_client *client,
1365                           struct wl_resource *resource, uint32_t id)
1366 {
1367         struct weston_compositor *ec = resource->data;
1368         struct weston_surface *surface;
1369
1370         surface = weston_surface_create(ec);
1371         if (surface == NULL) {
1372                 wl_resource_post_no_memory(resource);
1373                 return;
1374         }
1375
1376         surface->surface.resource.destroy = destroy_surface;
1377
1378         surface->surface.resource.object.id = id;
1379         surface->surface.resource.object.interface = &wl_surface_interface;
1380         surface->surface.resource.object.implementation =
1381                 (void (**)(void)) &surface_interface;
1382         surface->surface.resource.data = surface;
1383
1384         wl_client_add_resource(client, &surface->surface.resource);
1385 }
1386
1387 static void
1388 destroy_region(struct wl_resource *resource)
1389 {
1390         struct weston_region *region =
1391                 container_of(resource, struct weston_region, resource);
1392
1393         pixman_region32_fini(&region->region);
1394         free(region);
1395 }
1396
1397 static void
1398 region_destroy(struct wl_client *client, struct wl_resource *resource)
1399 {
1400         wl_resource_destroy(resource);
1401 }
1402
1403 static void
1404 region_add(struct wl_client *client, struct wl_resource *resource,
1405            int32_t x, int32_t y, int32_t width, int32_t height)
1406 {
1407         struct weston_region *region = resource->data;
1408
1409         pixman_region32_union_rect(&region->region, &region->region,
1410                                    x, y, width, height);
1411 }
1412
1413 static void
1414 region_subtract(struct wl_client *client, struct wl_resource *resource,
1415                 int32_t x, int32_t y, int32_t width, int32_t height)
1416 {
1417         struct weston_region *region = resource->data;
1418         pixman_region32_t rect;
1419
1420         pixman_region32_init_rect(&rect, x, y, width, height);
1421         pixman_region32_subtract(&region->region, &region->region, &rect);
1422         pixman_region32_fini(&rect);
1423 }
1424
1425 static const struct wl_region_interface region_interface = {
1426         region_destroy,
1427         region_add,
1428         region_subtract
1429 };
1430
1431 static void
1432 compositor_create_region(struct wl_client *client,
1433                          struct wl_resource *resource, uint32_t id)
1434 {
1435         struct weston_region *region;
1436
1437         region = malloc(sizeof *region);
1438         if (region == NULL) {
1439                 wl_resource_post_no_memory(resource);
1440                 return;
1441         }
1442
1443         region->resource.destroy = destroy_region;
1444
1445         region->resource.object.id = id;
1446         region->resource.object.interface = &wl_region_interface;
1447         region->resource.object.implementation =
1448                 (void (**)(void)) &region_interface;
1449         region->resource.data = region;
1450
1451         pixman_region32_init(&region->region);
1452
1453         wl_client_add_resource(client, &region->resource);
1454 }
1455
1456 static const struct wl_compositor_interface compositor_interface = {
1457         compositor_create_surface,
1458         compositor_create_region
1459 };
1460
1461 WL_EXPORT void
1462 weston_compositor_wake(struct weston_compositor *compositor)
1463 {
1464         compositor->state = WESTON_COMPOSITOR_ACTIVE;
1465         weston_compositor_fade(compositor, 0.0);
1466
1467         wl_event_source_timer_update(compositor->idle_source,
1468                                      compositor->idle_time * 1000);
1469 }
1470
1471 static void
1472 weston_compositor_dpms_on(struct weston_compositor *compositor)
1473 {
1474         struct weston_output *output;
1475
1476         wl_list_for_each(output, &compositor->output_list, link)
1477                 if (output->set_dpms)
1478                         output->set_dpms(output, WESTON_DPMS_ON);
1479 }
1480
1481 WL_EXPORT void
1482 weston_compositor_activity(struct weston_compositor *compositor)
1483 {
1484         if (compositor->state == WESTON_COMPOSITOR_ACTIVE) {
1485                 weston_compositor_wake(compositor);
1486         } else {
1487                 weston_compositor_dpms_on(compositor);
1488                 wl_signal_emit(&compositor->unlock_signal, compositor);
1489         }
1490 }
1491
1492 static void
1493 weston_compositor_idle_inhibit(struct weston_compositor *compositor)
1494 {
1495         weston_compositor_activity(compositor);
1496         compositor->idle_inhibit++;
1497 }
1498
1499 static void
1500 weston_compositor_idle_release(struct weston_compositor *compositor)
1501 {
1502         compositor->idle_inhibit--;
1503         weston_compositor_activity(compositor);
1504 }
1505
1506 static int
1507 idle_handler(void *data)
1508 {
1509         struct weston_compositor *compositor = data;
1510
1511         if (compositor->idle_inhibit)
1512                 return 1;
1513
1514         weston_compositor_fade(compositor, 1.0);
1515
1516         return 1;
1517 }
1518
1519 static  void
1520 weston_input_update_drag_surface(struct wl_input_device *input_device,
1521                                  int dx, int dy);
1522
1523 WL_EXPORT void
1524 notify_motion(struct wl_input_device *device, uint32_t time, int x, int y)
1525 {
1526         struct weston_output *output;
1527         const struct wl_pointer_grab_interface *interface;
1528         struct weston_input_device *wd = (struct weston_input_device *) device;
1529         struct weston_compositor *ec = wd->compositor;
1530         int x_valid = 0, y_valid = 0;
1531         int min_x = INT_MAX, min_y = INT_MAX, max_x = INT_MIN, max_y = INT_MIN;
1532
1533         weston_compositor_activity(ec);
1534
1535         wl_list_for_each(output, &ec->output_list, link) {
1536                 if (output->x <= x && x < output->x + output->current->width)
1537                         x_valid = 1;
1538
1539                 if (output->y <= y && y < output->y + output->current->height)
1540                         y_valid = 1;
1541
1542                 /* FIXME: calculate this only on output addition/deletion */
1543                 if (output->x < min_x)
1544                         min_x = output->x;
1545                 if (output->y < min_y)
1546                         min_y = output->y;
1547
1548                 if (output->x + output->current->width > max_x)
1549                         max_x = output->x + output->current->width - 1;
1550                 if (output->y + output->current->height > max_y)
1551                         max_y = output->y + output->current->height - 1;
1552         }
1553         
1554         if (!x_valid) {
1555                 if (x < min_x)
1556                         x = min_x;
1557                 else if (x >= max_x)
1558                         x = max_x;
1559         }
1560         if (!y_valid) {
1561                 if (y < min_y)
1562                         y = min_y;
1563                 else  if (y >= max_y)
1564                         y = max_y;
1565         }
1566
1567         weston_input_update_drag_surface(device,
1568                                          x - device->x, y - device->y);
1569
1570         device->x = x;
1571         device->y = y;
1572
1573         wl_list_for_each(output, &ec->output_list, link)
1574                 if (output->zoom.active &&
1575                     pixman_region32_contains_point(&output->region, x, y, NULL))
1576                         weston_output_update_zoom(output, x, y);
1577
1578         weston_device_repick(device);
1579         interface = device->pointer_grab->interface;
1580         interface->motion(device->pointer_grab, time,
1581                           device->pointer_grab->x, device->pointer_grab->y);
1582
1583         if (wd->sprite) {
1584                 weston_surface_set_position(wd->sprite,
1585                                             device->x - wd->hotspot_x,
1586                                             device->y - wd->hotspot_y);
1587
1588                 weston_compositor_schedule_repaint(ec);
1589         }
1590 }
1591
1592 WL_EXPORT void
1593 weston_surface_activate(struct weston_surface *surface,
1594                         struct weston_input_device *device)
1595 {
1596         struct weston_compositor *compositor = device->compositor;
1597
1598         wl_input_device_set_keyboard_focus(&device->input_device,
1599                                            &surface->surface);
1600         wl_data_device_set_keyboard_focus(&device->input_device);
1601
1602         wl_signal_emit(&compositor->activate_signal, surface);
1603 }
1604
1605 WL_EXPORT void
1606 notify_button(struct wl_input_device *device,
1607               uint32_t time, int32_t button, int32_t state)
1608 {
1609         struct weston_input_device *wd = (struct weston_input_device *) device;
1610         struct weston_compositor *compositor = wd->compositor;
1611         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1612         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1613
1614         if (state) {
1615                 if (compositor->ping_handler && focus)
1616                         compositor->ping_handler(focus, serial);
1617                 weston_compositor_idle_inhibit(compositor);
1618                 if (device->button_count == 0) {
1619                         device->grab_button = button;
1620                         device->grab_time = time;
1621                         device->grab_x = device->x;
1622                         device->grab_y = device->y;
1623                 }
1624                 device->button_count++;
1625         } else {
1626                 weston_compositor_idle_release(compositor);
1627                 device->button_count--;
1628         }
1629
1630         weston_compositor_run_binding(compositor, wd, time, 0, button, 0, state);
1631
1632         device->pointer_grab->interface->button(device->pointer_grab, time, button, state);
1633
1634         if (device->button_count == 1)
1635                 device->grab_serial =
1636                         wl_display_get_serial(compositor->wl_display);
1637 }
1638
1639 WL_EXPORT void
1640 notify_axis(struct wl_input_device *device,
1641               uint32_t time, uint32_t axis, int32_t value)
1642 {
1643         struct weston_input_device *wd = (struct weston_input_device *) device;
1644         struct weston_compositor *compositor = wd->compositor;
1645         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1646         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1647
1648         if (compositor->ping_handler && focus)
1649                 compositor->ping_handler(focus, serial);
1650
1651         weston_compositor_activity(compositor);
1652
1653         if (value)
1654                 weston_compositor_run_binding(compositor, wd,
1655                                                 time, 0, 0, axis, value);
1656         else
1657                 return;
1658
1659         if (device->pointer_focus_resource)
1660                 wl_resource_post_event(device->pointer_focus_resource,
1661                                 WL_INPUT_DEVICE_AXIS, time, axis, value);
1662 }
1663
1664 static void
1665 update_modifier_state(struct weston_input_device *device,
1666                       uint32_t key, uint32_t state)
1667 {
1668         uint32_t modifier;
1669
1670         switch (key) {
1671         case KEY_LEFTCTRL:
1672         case KEY_RIGHTCTRL:
1673                 modifier = MODIFIER_CTRL;
1674                 break;
1675
1676         case KEY_LEFTALT:
1677         case KEY_RIGHTALT:
1678                 modifier = MODIFIER_ALT;
1679                 break;
1680
1681         case KEY_LEFTMETA:
1682         case KEY_RIGHTMETA:
1683                 modifier = MODIFIER_SUPER;
1684                 break;
1685
1686         default:
1687                 modifier = 0;
1688                 break;
1689         }
1690
1691         if (state)
1692                 device->modifier_state |= modifier;
1693         else
1694                 device->modifier_state &= ~modifier;
1695 }
1696
1697 WL_EXPORT void
1698 notify_key(struct wl_input_device *device,
1699            uint32_t time, uint32_t key, uint32_t state)
1700 {
1701         struct weston_input_device *wd = (struct weston_input_device *) device;
1702         struct weston_compositor *compositor = wd->compositor;
1703         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1704         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1705         uint32_t *k, *end;
1706
1707         if (state) {
1708                 if (compositor->ping_handler && focus)
1709                         compositor->ping_handler(focus, serial);
1710
1711                 weston_compositor_idle_inhibit(compositor);
1712                 device->grab_key = key;
1713                 device->grab_time = time;
1714         } else {
1715                 weston_compositor_idle_release(compositor);
1716         }
1717
1718         update_modifier_state(wd, key, state);
1719         end = device->keys.data + device->keys.size;
1720         for (k = device->keys.data; k < end; k++) {
1721                 if (*k == key)
1722                         *k = *--end;
1723         }
1724         device->keys.size = (void *) end - device->keys.data;
1725         if (state) {
1726                 k = wl_array_add(&device->keys, sizeof *k);
1727                 *k = key;
1728         }
1729
1730         if (device->keyboard_grab == &device->default_keyboard_grab)
1731                 weston_compositor_run_binding(compositor, wd,
1732                                               time, key, 0, 0, state);
1733
1734         device->keyboard_grab->interface->key(device->keyboard_grab,
1735                                               time, key, state);
1736 }
1737
1738 WL_EXPORT void
1739 notify_pointer_focus(struct wl_input_device *device,
1740                      struct weston_output *output, int32_t x, int32_t y)
1741 {
1742         struct weston_input_device *wd = (struct weston_input_device *) device;
1743         struct weston_compositor *compositor = wd->compositor;
1744
1745         if (output) {
1746                 weston_input_update_drag_surface(device, x - device->x,
1747                                                  y - device->y);
1748
1749                 device->x = x;
1750                 device->y = y;
1751                 compositor->focus = 1;
1752                 weston_compositor_repick(compositor);
1753         } else {
1754                 compositor->focus = 0;
1755                 weston_compositor_repick(compositor);
1756         }
1757 }
1758
1759 static void
1760 destroy_device_saved_kbd_focus(struct wl_listener *listener, void *data)
1761 {
1762         struct weston_input_device *wd;
1763
1764         wd = container_of(listener, struct weston_input_device,
1765                           saved_kbd_focus_listener);
1766
1767         wd->saved_kbd_focus = NULL;
1768 }
1769
1770 WL_EXPORT void
1771 notify_keyboard_focus(struct wl_input_device *device, struct wl_array *keys)
1772 {
1773         struct weston_input_device *wd =
1774                 (struct weston_input_device *) device;
1775         struct weston_compositor *compositor = wd->compositor;
1776         struct wl_surface *surface;
1777         uint32_t *k;
1778
1779         if (keys) {
1780                 wl_array_copy(&wd->input_device.keys, keys);
1781                 wd->modifier_state = 0;
1782                 wl_array_for_each(k, &device->keys) {
1783                         weston_compositor_idle_inhibit(compositor);
1784                         update_modifier_state(wd, *k, 1);
1785                 }
1786
1787                 surface = wd->saved_kbd_focus;
1788
1789                 if (surface) {
1790                         wl_list_remove(&wd->saved_kbd_focus_listener.link);
1791                         wl_input_device_set_keyboard_focus(&wd->input_device,
1792                                                            surface);
1793                         wd->saved_kbd_focus = NULL;
1794                 }
1795         } else {
1796                 wl_array_for_each(k, &device->keys)
1797                         weston_compositor_idle_release(compositor);
1798
1799                 wd->modifier_state = 0;
1800
1801                 surface = wd->input_device.keyboard_focus;
1802
1803                 if (surface) {
1804                         wd->saved_kbd_focus = surface;
1805                         wd->saved_kbd_focus_listener.notify =
1806                                 destroy_device_saved_kbd_focus;
1807                         wl_signal_add(&surface->resource.destroy_signal,
1808                                       &wd->saved_kbd_focus_listener);
1809                 }
1810
1811                 wl_input_device_set_keyboard_focus(&wd->input_device, NULL);
1812                 /* FIXME: We really need keyboard grab cancel here to
1813                  * let the grab shut down properly.  As it is we leak
1814                  * the grab data. */
1815                 wl_input_device_end_keyboard_grab(&wd->input_device);
1816         }
1817 }
1818
1819 static void
1820 lose_touch_focus_resource(struct wl_listener *listener, void *data)
1821 {
1822         struct weston_input_device *device =
1823                 container_of(listener, struct weston_input_device,
1824                              touch_focus_resource_listener);
1825
1826         device->touch_focus_resource = NULL;
1827 }
1828
1829 static void
1830 lose_touch_focus(struct wl_listener *listener, void *data)
1831 {
1832         struct weston_input_device *device =
1833                 container_of(listener, struct weston_input_device,
1834                              touch_focus_listener);
1835
1836         device->touch_focus = NULL;
1837 }
1838
1839 static void
1840 touch_set_focus(struct weston_input_device *device,
1841                 struct wl_surface *surface)
1842 {
1843         struct wl_input_device *input_device = &device->input_device;
1844         struct wl_resource *resource;
1845
1846         if (device->touch_focus == surface)
1847                 return;
1848
1849         if (surface) {
1850                 resource =
1851                         find_resource_for_client(&input_device->resource_list,
1852                                                  surface->resource.client);
1853                 if (!resource) {
1854                         fprintf(stderr, "couldn't find resource\n");
1855                         return;
1856                 }
1857
1858                 device->touch_focus_resource_listener.notify =
1859                         lose_touch_focus_resource;
1860                 wl_signal_add(&resource->destroy_signal,
1861                               &device->touch_focus_resource_listener);
1862                 device->touch_focus_listener.notify = lose_touch_focus;
1863                 wl_signal_add(&surface->resource.destroy_signal,
1864                                &device->touch_focus_listener);
1865
1866                 device->touch_focus = surface;
1867                 device->touch_focus_resource = resource;
1868         } else {
1869                 if (device->touch_focus)
1870                         wl_list_remove(&device->touch_focus_listener.link);
1871                 if (device->touch_focus_resource)
1872                         wl_list_remove(&device->touch_focus_resource_listener.link);
1873                 device->touch_focus = NULL;
1874                 device->touch_focus_resource = NULL;
1875         }
1876 }
1877
1878 /**
1879  * notify_touch - emulates button touches and notifies surfaces accordingly.
1880  *
1881  * It assumes always the correct cycle sequence until it gets here: touch_down
1882  * → touch_update → ... → touch_update → touch_end. The driver is responsible
1883  * for sending along such order.
1884  *
1885  */
1886 WL_EXPORT void
1887 notify_touch(struct wl_input_device *device, uint32_t time, int touch_id,
1888              int x, int y, int touch_type)
1889 {
1890         struct weston_input_device *wd = (struct weston_input_device *) device;
1891         struct weston_compositor *ec = wd->compositor;
1892         struct weston_surface *es;
1893         int32_t sx, sy;
1894         uint32_t serial = 0;
1895
1896         switch (touch_type) {
1897         case WL_INPUT_DEVICE_TOUCH_DOWN:
1898                 weston_compositor_idle_inhibit(ec);
1899
1900                 wd->num_tp++;
1901
1902                 /* the first finger down picks the surface, and all further go
1903                  * to that surface for the remainder of the touch session i.e.
1904                  * until all touch points are up again. */
1905                 if (wd->num_tp == 1) {
1906                         es = weston_compositor_pick_surface(ec, x, y, &sx, &sy);
1907                         touch_set_focus(wd, &es->surface);
1908                 } else if (wd->touch_focus) {
1909                         es = (struct weston_surface *) wd->touch_focus;
1910                         weston_surface_from_global(es, x, y, &sx, &sy);
1911                 }
1912
1913                 if (wd->touch_focus_resource && wd->touch_focus)
1914                         wl_input_device_send_touch_down(wd->touch_focus_resource,
1915                                                         serial, time, &wd->touch_focus->resource,
1916                                                         touch_id, sx, sy);
1917                 break;
1918         case WL_INPUT_DEVICE_TOUCH_MOTION:
1919                 es = (struct weston_surface *) wd->touch_focus;
1920                 if (!es)
1921                         break;
1922
1923                 weston_surface_from_global(es, x, y, &sx, &sy);
1924                 if (wd->touch_focus_resource)
1925                         wl_input_device_send_touch_motion(wd->touch_focus_resource,
1926                                                           time, touch_id, sx, sy);
1927                 break;
1928         case WL_INPUT_DEVICE_TOUCH_UP:
1929                 weston_compositor_idle_release(ec);
1930                 wd->num_tp--;
1931
1932                 if (wd->touch_focus_resource)
1933                         wl_input_device_send_touch_up(wd->touch_focus_resource,
1934                                                       serial, time, touch_id);
1935                 if (wd->num_tp == 0)
1936                         touch_set_focus(wd, NULL);
1937                 break;
1938         }
1939 }
1940
1941 static void
1942 input_device_attach(struct wl_client *client,
1943                     struct wl_resource *resource,
1944                     uint32_t serial,
1945                     struct wl_resource *buffer_resource, int32_t x, int32_t y)
1946 {
1947         struct weston_input_device *device = resource->data;
1948         struct weston_compositor *compositor = device->compositor;
1949         struct wl_buffer *buffer = NULL;
1950
1951         if (serial < device->input_device.pointer_focus_serial)
1952                 return;
1953         if (device->input_device.pointer_focus == NULL)
1954                 return;
1955         if (device->input_device.pointer_focus->resource.client != client)
1956                 return;
1957
1958         if (buffer_resource)
1959                 buffer = buffer_resource->data;
1960
1961         weston_surface_attach(&device->sprite->surface, buffer);
1962
1963         if (!buffer)
1964                 return;
1965
1966         if (!weston_surface_is_mapped(device->sprite)) {
1967                 wl_list_insert(&compositor->cursor_layer.surface_list,
1968                                &device->sprite->layer_link);
1969                 weston_surface_assign_output(device->sprite);
1970         }
1971
1972
1973         device->hotspot_x = x;
1974         device->hotspot_y = y;
1975         weston_surface_configure(device->sprite,
1976                                  device->input_device.x - device->hotspot_x,
1977                                  device->input_device.y - device->hotspot_y,
1978                                  buffer->width, buffer->height);
1979
1980         surface_damage(NULL, &device->sprite->surface.resource,
1981                        0, 0, buffer->width, buffer->height);
1982 }
1983
1984 static const struct wl_input_device_interface input_device_interface = {
1985         input_device_attach,
1986 };
1987
1988 static void
1989 handle_drag_surface_destroy(struct wl_listener *listener, void *data)
1990 {
1991         struct weston_input_device *device;
1992
1993         device = container_of(listener, struct weston_input_device,
1994                               drag_surface_destroy_listener);
1995
1996         device->drag_surface = NULL;
1997 }
1998
1999 static void unbind_resource(struct wl_resource *resource)
2000 {
2001         wl_list_remove(&resource->link);
2002         free(resource);
2003 }
2004
2005 static void
2006 bind_input_device(struct wl_client *client,
2007                   void *data, uint32_t version, uint32_t id)
2008 {
2009         struct wl_input_device *device = data;
2010         struct wl_resource *resource;
2011
2012         resource = wl_client_add_object(client, &wl_input_device_interface,
2013                                         &input_device_interface, id, data);
2014         wl_list_insert(&device->resource_list, &resource->link);
2015         resource->destroy = unbind_resource;
2016 }
2017
2018 static void
2019 device_handle_new_drag_icon(struct wl_listener *listener, void *data)
2020 {
2021         struct weston_input_device *device;
2022
2023         device = container_of(listener, struct weston_input_device,
2024                               new_drag_icon_listener);
2025
2026         weston_input_update_drag_surface(&device->input_device, 0, 0);
2027 }
2028
2029 WL_EXPORT void
2030 weston_input_device_init(struct weston_input_device *device,
2031                          struct weston_compositor *ec)
2032 {
2033         wl_input_device_init(&device->input_device);
2034
2035         wl_display_add_global(ec->wl_display, &wl_input_device_interface,
2036                               device, bind_input_device);
2037
2038         device->sprite = weston_surface_create(ec);
2039         device->sprite->surface.resource.data = device->sprite;
2040
2041         device->compositor = ec;
2042         device->hotspot_x = 16;
2043         device->hotspot_y = 16;
2044         device->modifier_state = 0;
2045         device->num_tp = 0;
2046
2047         device->drag_surface_destroy_listener.notify =
2048                 handle_drag_surface_destroy;
2049
2050         wl_list_insert(ec->input_device_list.prev, &device->link);
2051
2052         device->new_drag_icon_listener.notify = device_handle_new_drag_icon;
2053         wl_signal_add(&device->input_device.drag_icon_signal,
2054                       &device->new_drag_icon_listener);
2055 }
2056
2057 WL_EXPORT void
2058 weston_input_device_release(struct weston_input_device *device)
2059 {
2060         wl_list_remove(&device->link);
2061         /* The global object is destroyed at wl_display_destroy() time. */
2062
2063         if (device->sprite)
2064                 destroy_surface(&device->sprite->surface.resource);
2065
2066         wl_input_device_release(&device->input_device);
2067 }
2068
2069 static void
2070 drag_surface_configure(struct weston_surface *es, int32_t sx, int32_t sy)
2071 {
2072         weston_surface_configure(es,
2073                                  es->geometry.x + sx, es->geometry.y + sy,
2074                                  es->buffer->width, es->buffer->height);
2075 }
2076
2077 static int
2078 device_setup_new_drag_surface(struct weston_input_device *device,
2079                               struct weston_surface *surface)
2080 {
2081         struct wl_input_device *input_device = &device->input_device;
2082
2083         if (surface->configure) {
2084                 wl_resource_post_error(&surface->surface.resource,
2085                                        WL_DISPLAY_ERROR_INVALID_OBJECT,
2086                                        "surface->configure already set");
2087                 return 0;
2088         }
2089
2090         device->drag_surface = surface;
2091
2092         weston_surface_set_position(device->drag_surface,
2093                                     input_device->x, input_device->y);
2094
2095         surface->configure = drag_surface_configure;
2096
2097         wl_signal_add(&surface->surface.resource.destroy_signal,
2098                        &device->drag_surface_destroy_listener);
2099
2100         return 1;
2101 }
2102
2103 static void
2104 device_release_drag_surface(struct weston_input_device *device)
2105 {
2106         device->drag_surface->configure = NULL;
2107         undef_region(&device->drag_surface->input);
2108         wl_list_remove(&device->drag_surface_destroy_listener.link);
2109         device->drag_surface = NULL;
2110 }
2111
2112 static void
2113 device_map_drag_surface(struct weston_input_device *device)
2114 {
2115         if (weston_surface_is_mapped(device->drag_surface) ||
2116             !device->drag_surface->buffer)
2117                 return;
2118
2119         wl_list_insert(&device->sprite->layer_link,
2120                        &device->drag_surface->layer_link);
2121         weston_surface_assign_output(device->drag_surface);
2122         empty_region(&device->drag_surface->input);
2123 }
2124
2125 static  void
2126 weston_input_update_drag_surface(struct wl_input_device *input_device,
2127                                  int dx, int dy)
2128 {
2129         int surface_changed = 0;
2130         struct weston_input_device *device = (struct weston_input_device *)
2131                 input_device;
2132
2133         if (!device->drag_surface && !input_device->drag_surface)
2134                 return;
2135
2136         if (device->drag_surface && input_device->drag_surface &&
2137             (&device->drag_surface->surface.resource !=
2138              &input_device->drag_surface->resource))
2139                 /* between calls to this funcion we got a new drag_surface */
2140                 surface_changed = 1;
2141
2142         if (!input_device->drag_surface || surface_changed) {
2143                 device_release_drag_surface(device);
2144                 if (!surface_changed)
2145                         return;
2146         }
2147
2148         if (!device->drag_surface || surface_changed) {
2149                 struct weston_surface *surface = (struct weston_surface *)
2150                         input_device->drag_surface;
2151                 if (!device_setup_new_drag_surface(device, surface))
2152                         return;
2153         }
2154
2155         /* the client may not have attached a buffer to the drag surface
2156          * when we setup it up, so check if map is needed on every update */
2157         device_map_drag_surface(device);
2158
2159         /* the client may have attached a buffer with a different size to
2160          * the drag surface, causing the input region to be reset */
2161         if (region_is_undefined(&device->drag_surface->input))
2162                 empty_region(&device->drag_surface->input);
2163
2164         if (!dx && !dy)
2165                 return;
2166
2167         weston_surface_set_position(device->drag_surface,
2168                                     device->drag_surface->geometry.x + dx,
2169                                     device->drag_surface->geometry.y + dy);
2170 }
2171
2172 WL_EXPORT void
2173 weston_compositor_update_drag_surfaces(struct weston_compositor *compositor)
2174 {
2175         weston_input_update_drag_surface(compositor->input_device, 0, 0);
2176 }
2177
2178 static void
2179 bind_output(struct wl_client *client,
2180             void *data, uint32_t version, uint32_t id)
2181 {
2182         struct weston_output *output = data;
2183         struct weston_mode *mode;
2184         struct wl_resource *resource;
2185
2186         resource = wl_client_add_object(client,
2187                                         &wl_output_interface, NULL, id, data);
2188
2189         wl_list_insert(&output->resource_list, &resource->link);
2190         resource->destroy = unbind_resource;
2191
2192         wl_output_send_geometry(resource,
2193                                 output->x,
2194                                 output->y,
2195                                 output->mm_width,
2196                                 output->mm_height,
2197                                 output->subpixel,
2198                                 output->make, output->model);
2199
2200         wl_list_for_each (mode, &output->mode_list, link) {
2201                 wl_output_send_mode(resource,
2202                                     mode->flags,
2203                                     mode->width,
2204                                     mode->height,
2205                                     mode->refresh);
2206         }
2207 }
2208
2209 static const char vertex_shader[] =
2210         "uniform mat4 proj;\n"
2211         "attribute vec2 position;\n"
2212         "attribute vec2 texcoord;\n"
2213         "varying vec2 v_texcoord;\n"
2214         "void main()\n"
2215         "{\n"
2216         "   gl_Position = proj * vec4(position, 0.0, 1.0);\n"
2217         "   v_texcoord = texcoord;\n"
2218         "}\n";
2219
2220 static const char texture_fragment_shader[] =
2221         "precision mediump float;\n"
2222         "varying vec2 v_texcoord;\n"
2223         "uniform sampler2D tex;\n"
2224         "uniform float alpha;\n"
2225         "uniform float bright;\n"
2226         "uniform float saturation;\n"
2227         "uniform float texwidth;\n"
2228         "void main()\n"
2229         "{\n"
2230         "   if (v_texcoord.x < 0.0 || v_texcoord.x > texwidth ||\n"
2231         "       v_texcoord.y < 0.0 || v_texcoord.y > 1.0)\n"
2232         "      discard;\n"
2233         "   gl_FragColor = texture2D(tex, v_texcoord)\n;"
2234         "   float gray = dot(gl_FragColor.rgb, vec3(0.299, 0.587, 0.114));\n"
2235         "   vec3 range = (gl_FragColor.rgb - vec3 (gray, gray, gray)) * saturation;\n"
2236         "   gl_FragColor = vec4(vec3(gray + range), gl_FragColor.a);\n"
2237         "   gl_FragColor = vec4(vec3(bright, bright, bright) * gl_FragColor.rgb, gl_FragColor.a);\n"
2238         "   gl_FragColor = alpha * gl_FragColor;\n"
2239         "}\n";
2240
2241 static const char solid_fragment_shader[] =
2242         "precision mediump float;\n"
2243         "uniform vec4 color;\n"
2244         "uniform float alpha;\n"
2245         "void main()\n"
2246         "{\n"
2247         "   gl_FragColor = alpha * color\n;"
2248         "}\n";
2249
2250 static int
2251 compile_shader(GLenum type, const char *source)
2252 {
2253         GLuint s;
2254         char msg[512];
2255         GLint status;
2256
2257         s = glCreateShader(type);
2258         glShaderSource(s, 1, &source, NULL);
2259         glCompileShader(s);
2260         glGetShaderiv(s, GL_COMPILE_STATUS, &status);
2261         if (!status) {
2262                 glGetShaderInfoLog(s, sizeof msg, NULL, msg);
2263                 fprintf(stderr, "shader info: %s\n", msg);
2264                 return GL_NONE;
2265         }
2266
2267         return s;
2268 }
2269
2270 static int
2271 weston_shader_init(struct weston_shader *shader,
2272                    const char *vertex_source, const char *fragment_source)
2273 {
2274         char msg[512];
2275         GLint status;
2276
2277         shader->vertex_shader =
2278                 compile_shader(GL_VERTEX_SHADER, vertex_source);
2279         shader->fragment_shader =
2280                 compile_shader(GL_FRAGMENT_SHADER, fragment_source);
2281
2282         shader->program = glCreateProgram();
2283         glAttachShader(shader->program, shader->vertex_shader);
2284         glAttachShader(shader->program, shader->fragment_shader);
2285         glBindAttribLocation(shader->program, 0, "position");
2286         glBindAttribLocation(shader->program, 1, "texcoord");
2287
2288         glLinkProgram(shader->program);
2289         glGetProgramiv(shader->program, GL_LINK_STATUS, &status);
2290         if (!status) {
2291                 glGetProgramInfoLog(shader->program, sizeof msg, NULL, msg);
2292                 fprintf(stderr, "link info: %s\n", msg);
2293                 return -1;
2294         }
2295
2296         shader->proj_uniform = glGetUniformLocation(shader->program, "proj");
2297         shader->tex_uniform = glGetUniformLocation(shader->program, "tex");
2298         shader->alpha_uniform = glGetUniformLocation(shader->program, "alpha");
2299         shader->brightness_uniform = glGetUniformLocation(shader->program, "bright");
2300         shader->saturation_uniform = glGetUniformLocation(shader->program, "saturation");
2301         shader->color_uniform = glGetUniformLocation(shader->program, "color");
2302         shader->texwidth_uniform = glGetUniformLocation(shader->program,
2303                                                         "texwidth");
2304
2305         return 0;
2306 }
2307
2308 WL_EXPORT void
2309 weston_output_destroy(struct weston_output *output)
2310 {
2311         struct weston_compositor *c = output->compositor;
2312
2313         pixman_region32_fini(&output->region);
2314         pixman_region32_fini(&output->previous_damage);
2315         output->compositor->output_id_pool &= ~(1 << output->id);
2316
2317         wl_display_remove_global(c->wl_display, output->global);
2318 }
2319
2320 WL_EXPORT void
2321 weston_output_update_zoom(struct weston_output *output, int x, int y)
2322 {
2323         float ratio;
2324
2325         if (output->zoom.level <= 0)
2326                 return;
2327
2328         output->zoom.magnification = 1 / output->zoom.level;
2329         ratio = 1 - (1 / output->zoom.magnification);
2330
2331         output->zoom.trans_x = (((float)(x - output->x) / output->current->width) * (ratio * 2)) - ratio;
2332         output->zoom.trans_y = (((float)(y - output->y) / output->current->height) * (ratio * 2)) - ratio;
2333
2334         output->dirty = 1;
2335         weston_output_damage(output);
2336 }
2337
2338 WL_EXPORT void
2339 weston_output_update_matrix(struct weston_output *output)
2340 {
2341         int flip;
2342         struct weston_matrix camera;
2343         struct weston_matrix modelview;
2344
2345         weston_matrix_init(&output->matrix);
2346         weston_matrix_translate(&output->matrix,
2347                                 -(output->x + (output->border.right + output->current->width - output->border.left) / 2.0),
2348                                 -(output->y + (output->border.bottom + output->current->height - output->border.top) / 2.0), 0);
2349
2350         flip = (output->flags & WL_OUTPUT_FLIPPED) ? -1 : 1;
2351         weston_matrix_scale(&output->matrix,
2352                             2.0 / (output->current->width + output->border.left + output->border.right),
2353                             flip * 2.0 / (output->current->height + output->border.top + output->border.bottom), 1);
2354         if (output->zoom.active) {
2355                 weston_matrix_init(&camera);
2356                 weston_matrix_init(&modelview);
2357                 weston_matrix_translate(&camera, output->zoom.trans_x, flip * output->zoom.trans_y, 0);
2358                 weston_matrix_invert(&modelview, &camera);
2359                 weston_matrix_scale(&modelview, output->zoom.magnification, output->zoom.magnification, 1.0);
2360                 weston_matrix_multiply(&output->matrix, &modelview);
2361         }
2362
2363         output->dirty = 0;
2364 }
2365
2366 WL_EXPORT void
2367 weston_output_move(struct weston_output *output, int x, int y)
2368 {
2369         output->x = x;
2370         output->y = y;
2371
2372         pixman_region32_init(&output->previous_damage);
2373         pixman_region32_init_rect(&output->region, x, y,
2374                                   output->current->width,
2375                                   output->current->height);
2376 }
2377
2378 WL_EXPORT void
2379 weston_output_init(struct weston_output *output, struct weston_compositor *c,
2380                    int x, int y, int width, int height, uint32_t flags)
2381 {
2382         output->compositor = c;
2383         output->x = x;
2384         output->y = y;
2385         output->border.top = 0;
2386         output->border.bottom = 0;
2387         output->border.left = 0;
2388         output->border.right = 0;
2389         output->mm_width = width;
2390         output->mm_height = height;
2391         output->dirty = 1;
2392         wl_list_init(&output->read_pixels_list);
2393
2394         output->zoom.active = 0;
2395         output->zoom.increment = 0.05;
2396         output->zoom.level = 1.0;
2397         output->zoom.magnification = 1.0;
2398         output->zoom.trans_x = 0.0;
2399         output->zoom.trans_y = 0.0;
2400
2401         output->flags = flags;
2402         weston_output_move(output, x, y);
2403         weston_output_damage(output);
2404
2405         wl_list_init(&output->frame_callback_list);
2406         wl_list_init(&output->resource_list);
2407
2408         output->id = ffs(~output->compositor->output_id_pool) - 1;
2409         output->compositor->output_id_pool |= 1 << output->id;
2410
2411         output->global =
2412                 wl_display_add_global(c->wl_display, &wl_output_interface,
2413                                       output, bind_output);
2414 }
2415
2416 WL_EXPORT void
2417 weston_output_do_read_pixels(struct weston_output *output)
2418 {
2419         struct weston_read_pixels *r, *next;
2420
2421         glPixelStorei(GL_PACK_ALIGNMENT, 1);
2422         wl_list_for_each_safe(r, next, &output->read_pixels_list, link) {
2423                 glReadPixels(r->x, r->y, r->width, r->height,
2424                              output->compositor->read_format,
2425                              GL_UNSIGNED_BYTE, r->data);
2426                 r->done(r, output);
2427         }
2428 }
2429
2430 static void
2431 compositor_bind(struct wl_client *client,
2432                 void *data, uint32_t version, uint32_t id)
2433 {
2434         struct weston_compositor *compositor = data;
2435
2436         wl_client_add_object(client, &wl_compositor_interface,
2437                              &compositor_interface, id, compositor);
2438 }
2439
2440 WL_EXPORT int
2441 weston_compositor_init(struct weston_compositor *ec, struct wl_display *display)
2442 {
2443         struct wl_event_loop *loop;
2444         const char *extensions;
2445
2446         ec->wl_display = display;
2447         wl_signal_init(&ec->destroy_signal);
2448         wl_signal_init(&ec->activate_signal);
2449         wl_signal_init(&ec->lock_signal);
2450         wl_signal_init(&ec->unlock_signal);
2451         ec->launcher_sock = weston_environment_get_fd("WESTON_LAUNCHER_SOCK");
2452
2453         ec->output_id_pool = 0;
2454
2455         if (!wl_display_add_global(display, &wl_compositor_interface,
2456                                    ec, compositor_bind))
2457                 return -1;
2458
2459         wl_display_init_shm(display);
2460
2461         ec->image_target_texture_2d =
2462                 (void *) eglGetProcAddress("glEGLImageTargetTexture2DOES");
2463         ec->image_target_renderbuffer_storage = (void *)
2464                 eglGetProcAddress("glEGLImageTargetRenderbufferStorageOES");
2465         ec->create_image = (void *) eglGetProcAddress("eglCreateImageKHR");
2466         ec->destroy_image = (void *) eglGetProcAddress("eglDestroyImageKHR");
2467         ec->bind_display =
2468                 (void *) eglGetProcAddress("eglBindWaylandDisplayWL");
2469         ec->unbind_display =
2470                 (void *) eglGetProcAddress("eglUnbindWaylandDisplayWL");
2471
2472         extensions = (const char *) glGetString(GL_EXTENSIONS);
2473         if (!extensions) {
2474                 fprintf(stderr, "Retrieving GL extension string failed.\n");
2475                 return -1;
2476         }
2477
2478         if (!strstr(extensions, "GL_EXT_texture_format_BGRA8888")) {
2479                 fprintf(stderr,
2480                         "GL_EXT_texture_format_BGRA8888 not available\n");
2481                 return -1;
2482         }
2483
2484         if (strstr(extensions, "GL_EXT_read_format_bgra"))
2485                 ec->read_format = GL_BGRA_EXT;
2486         else
2487                 ec->read_format = GL_RGBA;
2488
2489         if (strstr(extensions, "GL_EXT_unpack_subimage"))
2490                 ec->has_unpack_subimage = 1;
2491
2492         extensions =
2493                 (const char *) eglQueryString(ec->display, EGL_EXTENSIONS);
2494         if (!extensions) {
2495                 fprintf(stderr, "Retrieving EGL extension string failed.\n");
2496                 return -1;
2497         }
2498
2499         if (strstr(extensions, "EGL_WL_bind_wayland_display"))
2500                 ec->has_bind_display = 1;
2501         if (ec->has_bind_display)
2502                 ec->bind_display(ec->display, ec->wl_display);
2503
2504         wl_list_init(&ec->surface_list);
2505         wl_list_init(&ec->layer_list);
2506         wl_list_init(&ec->input_device_list);
2507         wl_list_init(&ec->output_list);
2508         wl_list_init(&ec->binding_list);
2509         wl_list_init(&ec->animation_list);
2510         weston_spring_init(&ec->fade.spring, 30.0, 1.0, 1.0);
2511         ec->fade.animation.frame = fade_frame;
2512         wl_list_init(&ec->fade.animation.link);
2513
2514         weston_layer_init(&ec->fade_layer, &ec->layer_list);
2515         weston_layer_init(&ec->cursor_layer, &ec->fade_layer.link);
2516
2517         screenshooter_create(ec);
2518
2519         ec->ping_handler = NULL;
2520
2521         wl_data_device_manager_init(ec->wl_display);
2522
2523         glActiveTexture(GL_TEXTURE0);
2524
2525         if (weston_shader_init(&ec->texture_shader,
2526                              vertex_shader, texture_fragment_shader) < 0)
2527                 return -1;
2528         if (weston_shader_init(&ec->solid_shader,
2529                              vertex_shader, solid_fragment_shader) < 0)
2530                 return -1;
2531
2532         loop = wl_display_get_event_loop(ec->wl_display);
2533         ec->idle_source = wl_event_loop_add_timer(loop, idle_handler, ec);
2534         wl_event_source_timer_update(ec->idle_source, ec->idle_time * 1000);
2535
2536         ec->input_loop = wl_event_loop_create();
2537
2538         weston_compositor_schedule_repaint(ec);
2539
2540         return 0;
2541 }
2542
2543 WL_EXPORT void
2544 weston_compositor_shutdown(struct weston_compositor *ec)
2545 {
2546         struct weston_output *output, *next;
2547
2548         wl_event_source_remove(ec->idle_source);
2549         if (ec->input_loop_source)
2550                 wl_event_source_remove(ec->input_loop_source);
2551
2552         /* Destroy all outputs associated with this compositor */
2553         wl_list_for_each_safe(output, next, &ec->output_list, link)
2554                 output->destroy(output);
2555
2556         weston_binding_list_destroy_all(&ec->binding_list);
2557
2558         wl_array_release(&ec->vertices);
2559         wl_array_release(&ec->indices);
2560
2561         wl_event_loop_destroy(ec->input_loop);
2562 }
2563
2564 static int on_term_signal(int signal_number, void *data)
2565 {
2566         struct wl_display *display = data;
2567
2568         fprintf(stderr, "caught signal %d\n", signal_number);
2569         wl_display_terminate(display);
2570
2571         return 1;
2572 }
2573
2574 static void
2575 on_segv_signal(int s, siginfo_t *siginfo, void *context)
2576 {
2577         void *buffer[32];
2578         int i, count;
2579         Dl_info info;
2580
2581         fprintf(stderr, "caught segv\n");
2582
2583         count = backtrace(buffer, ARRAY_LENGTH(buffer));
2584         for (i = 0; i < count; i++) {
2585                 dladdr(buffer[i], &info);
2586                 fprintf(stderr, "  [%016lx]  %s  (%s)\n",
2587                         (long) buffer[i],
2588                         info.dli_sname ? info.dli_sname : "--",
2589                         info.dli_fname);
2590         }
2591
2592         longjmp(segv_jmp_buf, 1);
2593 }
2594
2595
2596 static void *
2597 load_module(const char *name, const char *entrypoint, void **handle)
2598 {
2599         char path[PATH_MAX];
2600         void *module, *init;
2601
2602         if (name[0] != '/')
2603                 snprintf(path, sizeof path, MODULEDIR "/%s", name);
2604         else
2605                 snprintf(path, sizeof path, "%s", name);
2606
2607         module = dlopen(path, RTLD_LAZY);
2608         if (!module) {
2609                 fprintf(stderr,
2610                         "failed to load module: %s\n", dlerror());
2611                 return NULL;
2612         }
2613
2614         init = dlsym(module, entrypoint);
2615         if (!init) {
2616                 fprintf(stderr,
2617                         "failed to lookup init function: %s\n", dlerror());
2618                 return NULL;
2619         }
2620
2621         return init;
2622 }
2623
2624 int main(int argc, char *argv[])
2625 {
2626         struct wl_display *display;
2627         struct weston_compositor *ec;
2628         struct wl_event_source *signals[4];
2629         struct wl_event_loop *loop;
2630         struct sigaction segv_action;
2631         void *shell_module, *backend_module, *xserver_module;
2632         int (*shell_init)(struct weston_compositor *ec);
2633         int (*xserver_init)(struct weston_compositor *ec);
2634         struct weston_compositor
2635                 *(*backend_init)(struct wl_display *display,
2636                                  int argc, char *argv[]);
2637         int i;
2638         char *backend = NULL;
2639         char *shell = NULL;
2640         int32_t idle_time = 300;
2641         int32_t xserver;
2642         char *socket_name = NULL;
2643         char *config_file;
2644
2645         const struct config_key shell_config_keys[] = {
2646                 { "type", CONFIG_KEY_STRING, &shell },
2647         };
2648
2649         const struct config_section cs[] = {
2650                 { "shell",
2651                   shell_config_keys, ARRAY_LENGTH(shell_config_keys) },
2652         };
2653
2654         const struct weston_option core_options[] = {
2655                 { WESTON_OPTION_STRING, "backend", 'B', &backend },
2656                 { WESTON_OPTION_STRING, "socket", 'S', &socket_name },
2657                 { WESTON_OPTION_INTEGER, "idle-time", 'i', &idle_time },
2658                 { WESTON_OPTION_BOOLEAN, "xserver", 0, &xserver },
2659         };
2660
2661         argc = parse_options(core_options,
2662                              ARRAY_LENGTH(core_options), argc, argv);
2663
2664         display = wl_display_create();
2665
2666         loop = wl_display_get_event_loop(display);
2667         signals[0] = wl_event_loop_add_signal(loop, SIGTERM, on_term_signal,
2668                                               display);
2669         signals[1] = wl_event_loop_add_signal(loop, SIGINT, on_term_signal,
2670                                               display);
2671         signals[2] = wl_event_loop_add_signal(loop, SIGQUIT, on_term_signal,
2672                                               display);
2673
2674         wl_list_init(&child_process_list);
2675         signals[3] = wl_event_loop_add_signal(loop, SIGCHLD, sigchld_handler,
2676                                               NULL);
2677
2678         segv_action.sa_flags = SA_SIGINFO | SA_RESETHAND;
2679         segv_action.sa_sigaction = on_segv_signal;
2680         sigemptyset(&segv_action.sa_mask);
2681         sigaction(SIGSEGV, &segv_action, NULL);
2682
2683         if (!backend) {
2684                 if (getenv("WAYLAND_DISPLAY"))
2685                         backend = "wayland-backend.so";
2686                 else if (getenv("DISPLAY"))
2687                         backend = "x11-backend.so";
2688                 else if (getenv("OPENWFD"))
2689                         backend = "openwfd-backend.so";
2690                 else
2691                         backend = "drm-backend.so";
2692         }
2693
2694         config_file = config_file_path("weston.ini");
2695         parse_config_file(config_file, cs, ARRAY_LENGTH(cs), shell);
2696         free(config_file);
2697
2698         if (!shell)
2699                 shell = "desktop-shell.so";
2700
2701         backend_init = load_module(backend, "backend_init", &backend_module);
2702         if (!backend_init)
2703                 exit(EXIT_FAILURE);
2704
2705         shell_init = load_module(shell, "shell_init", &shell_module);
2706         if (!shell_init)
2707                 exit(EXIT_FAILURE);
2708
2709         ec = backend_init(display, argc, argv);
2710         if (ec == NULL) {
2711                 fprintf(stderr, "failed to create compositor\n");
2712                 exit(EXIT_FAILURE);
2713         }
2714
2715         for (i = 1; argv[i]; i++)
2716                 fprintf(stderr, "unhandled option: %s\n", argv[i]);
2717         if (argv[1])
2718                 exit(EXIT_FAILURE);
2719
2720         ec->option_idle_time = idle_time;
2721         ec->idle_time = idle_time;
2722
2723         xserver_init = NULL;
2724         if (xserver)
2725                 xserver_init = load_module("xserver-launcher.so",
2726                                            "weston_xserver_init",
2727                                            &xserver_module);
2728         if (xserver_init)
2729                 xserver_init(ec);
2730
2731         if (shell_init(ec) < 0)
2732                 exit(EXIT_FAILURE);
2733
2734         if (wl_display_add_socket(display, socket_name)) {
2735                 fprintf(stderr, "failed to add socket: %m\n");
2736                 exit(EXIT_FAILURE);
2737         }
2738
2739         weston_compositor_dpms_on(ec);
2740         weston_compositor_wake(ec);
2741         if (setjmp(segv_jmp_buf) == 0)
2742                 wl_display_run(display);
2743
2744         /* prevent further rendering while shutting down */
2745         ec->state = WESTON_COMPOSITOR_SLEEPING;
2746
2747         wl_signal_emit(&ec->destroy_signal, ec);
2748
2749         if (ec->has_bind_display)
2750                 ec->unbind_display(ec->display, display);
2751
2752         for (i = ARRAY_LENGTH(signals); i;)
2753                 wl_event_source_remove(signals[--i]);
2754
2755         ec->destroy(ec);
2756         wl_display_destroy(display);
2757
2758         return 0;
2759 }