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 WL_EXPORT void
1129 weston_surface_assign_output(struct weston_surface *es)
1130 {
1131         struct weston_compositor *ec = es->compositor;
1132         struct weston_output *output, *new_output;
1133         pixman_region32_t region;
1134         uint32_t max, area;
1135         pixman_box32_t *e;
1136
1137         weston_surface_update_transform(es);
1138
1139         new_output = NULL;
1140         max = 0;
1141         pixman_region32_init(&region);
1142         wl_list_for_each(output, &ec->output_list, link) {
1143                 pixman_region32_intersect(&region, &es->transform.boundingbox,
1144                                           &output->region);
1145
1146                 e = pixman_region32_extents(&region);
1147                 area = (e->x2 - e->x1) * (e->y2 - e->y1);
1148
1149                 if (area >= max) {
1150                         new_output = output;
1151                         max = area;
1152                 }
1153         }
1154         pixman_region32_fini(&region);
1155
1156         es->output = new_output;
1157         if (!wl_list_empty(&es->frame_callback_list)) {
1158                 wl_list_insert_list(new_output->frame_callback_list.prev,
1159                                     &es->frame_callback_list);
1160                 wl_list_init(&es->frame_callback_list);
1161         }
1162 }
1163
1164 static void
1165 surface_attach(struct wl_client *client,
1166                struct wl_resource *resource,
1167                struct wl_resource *buffer_resource, int32_t sx, int32_t sy)
1168 {
1169         struct weston_surface *es = resource->data;
1170         struct wl_buffer *buffer = NULL;
1171
1172         if (buffer_resource)
1173                 buffer = buffer_resource->data;
1174
1175         weston_surface_attach(&es->surface, buffer);
1176
1177         if (buffer && es->configure)
1178                 es->configure(es, sx, sy);
1179 }
1180
1181 static void
1182 texture_set_subimage(struct weston_surface *surface,
1183                      int32_t x, int32_t y, int32_t width, int32_t height)
1184 {
1185         glBindTexture(GL_TEXTURE_2D, surface->texture);
1186
1187 #ifdef GL_UNPACK_ROW_LENGTH
1188         /* Mesa does not define GL_EXT_unpack_subimage */
1189
1190         if (surface->compositor->has_unpack_subimage) {
1191                 glPixelStorei(GL_UNPACK_ROW_LENGTH, surface->pitch);
1192                 glPixelStorei(GL_UNPACK_SKIP_PIXELS, x);
1193                 glPixelStorei(GL_UNPACK_SKIP_ROWS, y);
1194
1195                 glTexSubImage2D(GL_TEXTURE_2D, 0, x, y, width, height,
1196                                 GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1197                                 wl_shm_buffer_get_data(surface->buffer));
1198                 return;
1199         }
1200 #endif
1201
1202         glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
1203                      surface->pitch, surface->buffer->height, 0,
1204                      GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1205                      wl_shm_buffer_get_data(surface->buffer));
1206 }
1207
1208 static void
1209 surface_damage(struct wl_client *client,
1210                struct wl_resource *resource,
1211                int32_t x, int32_t y, int32_t width, int32_t height)
1212 {
1213         struct weston_surface *es = resource->data;
1214
1215         weston_surface_damage_rectangle(es, x, y, width, height);
1216
1217         if (es->buffer && wl_buffer_is_shm(es->buffer))
1218                 texture_set_subimage(es, x, y, width, height);
1219 }
1220
1221 static void
1222 destroy_frame_callback(struct wl_resource *resource)
1223 {
1224         struct weston_frame_callback *cb = resource->data;
1225
1226         wl_list_remove(&cb->link);
1227         free(cb);
1228 }
1229
1230 static void
1231 surface_frame(struct wl_client *client,
1232               struct wl_resource *resource, uint32_t callback)
1233 {
1234         struct weston_frame_callback *cb;
1235         struct weston_surface *es = resource->data;
1236
1237         cb = malloc(sizeof *cb);
1238         if (cb == NULL) {
1239                 wl_resource_post_no_memory(resource);
1240                 return;
1241         }
1242
1243         cb->resource.object.interface = &wl_callback_interface;
1244         cb->resource.object.id = callback;
1245         cb->resource.destroy = destroy_frame_callback;
1246         cb->resource.client = client;
1247         cb->resource.data = cb;
1248
1249         wl_client_add_resource(client, &cb->resource);
1250
1251         if (es->output) {
1252                 wl_list_insert(es->output->frame_callback_list.prev,
1253                                &cb->link);
1254         } else {
1255                 wl_list_insert(es->frame_callback_list.prev, &cb->link);
1256         }
1257 }
1258
1259 static void
1260 surface_set_opaque_region(struct wl_client *client,
1261                           struct wl_resource *resource,
1262                           struct wl_resource *region_resource)
1263 {
1264         struct weston_surface *surface = resource->data;
1265         struct weston_region *region;
1266
1267         pixman_region32_fini(&surface->opaque);
1268
1269         if (region_resource) {
1270                 region = region_resource->data;
1271                 pixman_region32_init_rect(&surface->opaque, 0, 0,
1272                                           surface->geometry.width,
1273                                           surface->geometry.height);
1274                 pixman_region32_intersect(&surface->opaque,
1275                                           &surface->opaque, &region->region);
1276         } else {
1277                 pixman_region32_init(&surface->opaque);
1278         }
1279
1280         surface->geometry.dirty = 1;
1281 }
1282
1283 static void
1284 surface_set_input_region(struct wl_client *client,
1285                          struct wl_resource *resource,
1286                          struct wl_resource *region_resource)
1287 {
1288         struct weston_surface *surface = resource->data;
1289         struct weston_region *region;
1290
1291         if (region_resource) {
1292                 region = region_resource->data;
1293                 pixman_region32_init_rect(&surface->input, 0, 0,
1294                                           surface->geometry.width,
1295                                           surface->geometry.height);
1296                 pixman_region32_intersect(&surface->input,
1297                                           &surface->input, &region->region);
1298         } else {
1299                 pixman_region32_init_rect(&surface->input, 0, 0,
1300                                           surface->geometry.width,
1301                                           surface->geometry.height);
1302         }
1303
1304         weston_compositor_schedule_repaint(surface->compositor);
1305 }
1306
1307 static const struct wl_surface_interface surface_interface = {
1308         surface_destroy,
1309         surface_attach,
1310         surface_damage,
1311         surface_frame,
1312         surface_set_opaque_region,
1313         surface_set_input_region
1314 };
1315
1316 static void
1317 compositor_create_surface(struct wl_client *client,
1318                           struct wl_resource *resource, uint32_t id)
1319 {
1320         struct weston_compositor *ec = resource->data;
1321         struct weston_surface *surface;
1322
1323         surface = weston_surface_create(ec);
1324         if (surface == NULL) {
1325                 wl_resource_post_no_memory(resource);
1326                 return;
1327         }
1328
1329         surface->surface.resource.destroy = destroy_surface;
1330
1331         surface->surface.resource.object.id = id;
1332         surface->surface.resource.object.interface = &wl_surface_interface;
1333         surface->surface.resource.object.implementation =
1334                 (void (**)(void)) &surface_interface;
1335         surface->surface.resource.data = surface;
1336
1337         wl_client_add_resource(client, &surface->surface.resource);
1338 }
1339
1340 static void
1341 destroy_region(struct wl_resource *resource)
1342 {
1343         struct weston_region *region =
1344                 container_of(resource, struct weston_region, resource);
1345
1346         pixman_region32_fini(&region->region);
1347         free(region);
1348 }
1349
1350 static void
1351 region_destroy(struct wl_client *client, struct wl_resource *resource)
1352 {
1353         wl_resource_destroy(resource);
1354 }
1355
1356 static void
1357 region_add(struct wl_client *client, struct wl_resource *resource,
1358            int32_t x, int32_t y, int32_t width, int32_t height)
1359 {
1360         struct weston_region *region = resource->data;
1361
1362         pixman_region32_union_rect(&region->region, &region->region,
1363                                    x, y, width, height);
1364 }
1365
1366 static void
1367 region_subtract(struct wl_client *client, struct wl_resource *resource,
1368                 int32_t x, int32_t y, int32_t width, int32_t height)
1369 {
1370         struct weston_region *region = resource->data;
1371         pixman_region32_t rect;
1372
1373         pixman_region32_init_rect(&rect, x, y, width, height);
1374         pixman_region32_subtract(&region->region, &region->region, &rect);
1375         pixman_region32_fini(&rect);
1376 }
1377
1378 static const struct wl_region_interface region_interface = {
1379         region_destroy,
1380         region_add,
1381         region_subtract
1382 };
1383
1384 static void
1385 compositor_create_region(struct wl_client *client,
1386                          struct wl_resource *resource, uint32_t id)
1387 {
1388         struct weston_region *region;
1389
1390         region = malloc(sizeof *region);
1391         if (region == NULL) {
1392                 wl_resource_post_no_memory(resource);
1393                 return;
1394         }
1395
1396         region->resource.destroy = destroy_region;
1397
1398         region->resource.object.id = id;
1399         region->resource.object.interface = &wl_region_interface;
1400         region->resource.object.implementation =
1401                 (void (**)(void)) &region_interface;
1402         region->resource.data = region;
1403
1404         pixman_region32_init(&region->region);
1405
1406         wl_client_add_resource(client, &region->resource);
1407 }
1408
1409 static const struct wl_compositor_interface compositor_interface = {
1410         compositor_create_surface,
1411         compositor_create_region
1412 };
1413
1414 WL_EXPORT void
1415 weston_compositor_wake(struct weston_compositor *compositor)
1416 {
1417         compositor->state = WESTON_COMPOSITOR_ACTIVE;
1418         weston_compositor_fade(compositor, 0.0);
1419
1420         wl_event_source_timer_update(compositor->idle_source,
1421                                      compositor->idle_time * 1000);
1422 }
1423
1424 static void
1425 weston_compositor_dpms_on(struct weston_compositor *compositor)
1426 {
1427         struct weston_output *output;
1428
1429         wl_list_for_each(output, &compositor->output_list, link)
1430                 if (output->set_dpms)
1431                         output->set_dpms(output, WESTON_DPMS_ON);
1432 }
1433
1434 WL_EXPORT void
1435 weston_compositor_activity(struct weston_compositor *compositor)
1436 {
1437         if (compositor->state == WESTON_COMPOSITOR_ACTIVE) {
1438                 weston_compositor_wake(compositor);
1439         } else {
1440                 weston_compositor_dpms_on(compositor);
1441                 wl_signal_emit(&compositor->unlock_signal, compositor);
1442         }
1443 }
1444
1445 static void
1446 weston_compositor_idle_inhibit(struct weston_compositor *compositor)
1447 {
1448         weston_compositor_activity(compositor);
1449         compositor->idle_inhibit++;
1450 }
1451
1452 static void
1453 weston_compositor_idle_release(struct weston_compositor *compositor)
1454 {
1455         compositor->idle_inhibit--;
1456         weston_compositor_activity(compositor);
1457 }
1458
1459 static int
1460 idle_handler(void *data)
1461 {
1462         struct weston_compositor *compositor = data;
1463
1464         if (compositor->idle_inhibit)
1465                 return 1;
1466
1467         weston_compositor_fade(compositor, 1.0);
1468
1469         return 1;
1470 }
1471
1472 static  void
1473 weston_input_update_drag_surface(struct wl_input_device *input_device,
1474                                  int dx, int dy);
1475
1476 WL_EXPORT void
1477 notify_motion(struct wl_input_device *device, uint32_t time, int x, int y)
1478 {
1479         struct weston_output *output;
1480         const struct wl_pointer_grab_interface *interface;
1481         struct weston_input_device *wd = (struct weston_input_device *) device;
1482         struct weston_compositor *ec = wd->compositor;
1483         int x_valid = 0, y_valid = 0;
1484         int min_x = INT_MAX, min_y = INT_MAX, max_x = INT_MIN, max_y = INT_MIN;
1485
1486         weston_compositor_activity(ec);
1487
1488         wl_list_for_each(output, &ec->output_list, link) {
1489                 if (output->x <= x && x < output->x + output->current->width)
1490                         x_valid = 1;
1491
1492                 if (output->y <= y && y < output->y + output->current->height)
1493                         y_valid = 1;
1494
1495                 /* FIXME: calculate this only on output addition/deletion */
1496                 if (output->x < min_x)
1497                         min_x = output->x;
1498                 if (output->y < min_y)
1499                         min_y = output->y;
1500
1501                 if (output->x + output->current->width > max_x)
1502                         max_x = output->x + output->current->width - 1;
1503                 if (output->y + output->current->height > max_y)
1504                         max_y = output->y + output->current->height - 1;
1505         }
1506
1507         if (!x_valid) {
1508                 if (x < min_x)
1509                         x = min_x;
1510                 else if (x >= max_x)
1511                         x = max_x;
1512         }
1513         if (!y_valid) {
1514                 if (y < min_y)
1515                         y = min_y;
1516                 else  if (y >= max_y)
1517                         y = max_y;
1518         }
1519
1520         weston_input_update_drag_surface(device,
1521                                          x - device->x, y - device->y);
1522
1523         device->x = x;
1524         device->y = y;
1525
1526         wl_list_for_each(output, &ec->output_list, link)
1527                 if (output->zoom.active &&
1528                     pixman_region32_contains_point(&output->region, x, y, NULL))
1529                         weston_output_update_zoom(output, x, y);
1530
1531         weston_device_repick(device);
1532         interface = device->pointer_grab->interface;
1533         interface->motion(device->pointer_grab, time,
1534                           device->pointer_grab->x, device->pointer_grab->y);
1535
1536         if (wd->sprite) {
1537                 weston_surface_set_position(wd->sprite,
1538                                             device->x - wd->hotspot_x,
1539                                             device->y - wd->hotspot_y);
1540
1541                 weston_compositor_schedule_repaint(ec);
1542         }
1543 }
1544
1545 WL_EXPORT void
1546 weston_surface_activate(struct weston_surface *surface,
1547                         struct weston_input_device *device)
1548 {
1549         struct weston_compositor *compositor = device->compositor;
1550
1551         wl_input_device_set_keyboard_focus(&device->input_device,
1552                                            &surface->surface);
1553         wl_data_device_set_keyboard_focus(&device->input_device);
1554
1555         wl_signal_emit(&compositor->activate_signal, surface);
1556 }
1557
1558 WL_EXPORT void
1559 notify_button(struct wl_input_device *device,
1560               uint32_t time, int32_t button, int32_t state)
1561 {
1562         struct weston_input_device *wd = (struct weston_input_device *) device;
1563         struct weston_compositor *compositor = wd->compositor;
1564         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1565         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1566
1567         if (state) {
1568                 if (compositor->ping_handler && focus)
1569                         compositor->ping_handler(focus, serial);
1570                 weston_compositor_idle_inhibit(compositor);
1571                 if (device->button_count == 0) {
1572                         device->grab_button = button;
1573                         device->grab_time = time;
1574                         device->grab_x = device->x;
1575                         device->grab_y = device->y;
1576                 }
1577                 device->button_count++;
1578         } else {
1579                 weston_compositor_idle_release(compositor);
1580                 device->button_count--;
1581         }
1582
1583         weston_compositor_run_binding(compositor, wd, time, 0, button, 0, state);
1584
1585         device->pointer_grab->interface->button(device->pointer_grab, time, button, state);
1586
1587         if (device->button_count == 1)
1588                 device->grab_serial =
1589                         wl_display_get_serial(compositor->wl_display);
1590 }
1591
1592 WL_EXPORT void
1593 notify_axis(struct wl_input_device *device,
1594               uint32_t time, uint32_t axis, int32_t value)
1595 {
1596         struct weston_input_device *wd = (struct weston_input_device *) device;
1597         struct weston_compositor *compositor = wd->compositor;
1598         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1599         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1600
1601         if (compositor->ping_handler && focus)
1602                 compositor->ping_handler(focus, serial);
1603
1604         weston_compositor_activity(compositor);
1605
1606         if (value)
1607                 weston_compositor_run_binding(compositor, wd,
1608                                                 time, 0, 0, axis, value);
1609         else
1610                 return;
1611
1612         if (device->pointer_focus_resource)
1613                 wl_resource_post_event(device->pointer_focus_resource,
1614                                 WL_INPUT_DEVICE_AXIS, time, axis, value);
1615 }
1616
1617 static void
1618 update_modifier_state(struct weston_input_device *device,
1619                       uint32_t key, uint32_t state)
1620 {
1621         uint32_t modifier;
1622
1623         switch (key) {
1624         case KEY_LEFTCTRL:
1625         case KEY_RIGHTCTRL:
1626                 modifier = MODIFIER_CTRL;
1627                 break;
1628
1629         case KEY_LEFTALT:
1630         case KEY_RIGHTALT:
1631                 modifier = MODIFIER_ALT;
1632                 break;
1633
1634         case KEY_LEFTMETA:
1635         case KEY_RIGHTMETA:
1636                 modifier = MODIFIER_SUPER;
1637                 break;
1638
1639         default:
1640                 modifier = 0;
1641                 break;
1642         }
1643
1644         if (state)
1645                 device->modifier_state |= modifier;
1646         else
1647                 device->modifier_state &= ~modifier;
1648 }
1649
1650 WL_EXPORT void
1651 notify_key(struct wl_input_device *device,
1652            uint32_t time, uint32_t key, uint32_t state)
1653 {
1654         struct weston_input_device *wd = (struct weston_input_device *) device;
1655         struct weston_compositor *compositor = wd->compositor;
1656         struct weston_surface *focus = (struct weston_surface *) device->pointer_focus;
1657         uint32_t serial = wl_display_next_serial(compositor->wl_display);
1658         uint32_t *k, *end;
1659
1660         if (state) {
1661                 if (compositor->ping_handler && focus)
1662                         compositor->ping_handler(focus, serial);
1663
1664                 weston_compositor_idle_inhibit(compositor);
1665                 device->grab_key = key;
1666                 device->grab_time = time;
1667         } else {
1668                 weston_compositor_idle_release(compositor);
1669         }
1670
1671         update_modifier_state(wd, key, state);
1672         end = device->keys.data + device->keys.size;
1673         for (k = device->keys.data; k < end; k++) {
1674                 if (*k == key)
1675                         *k = *--end;
1676         }
1677         device->keys.size = (void *) end - device->keys.data;
1678         if (state) {
1679                 k = wl_array_add(&device->keys, sizeof *k);
1680                 *k = key;
1681         }
1682
1683         if (device->keyboard_grab == &device->default_keyboard_grab)
1684                 weston_compositor_run_binding(compositor, wd,
1685                                               time, key, 0, 0, state);
1686
1687         device->keyboard_grab->interface->key(device->keyboard_grab,
1688                                               time, key, state);
1689 }
1690
1691 WL_EXPORT void
1692 notify_pointer_focus(struct wl_input_device *device,
1693                      struct weston_output *output, int32_t x, int32_t y)
1694 {
1695         struct weston_input_device *wd = (struct weston_input_device *) device;
1696         struct weston_compositor *compositor = wd->compositor;
1697
1698         if (output) {
1699                 weston_input_update_drag_surface(device, x - device->x,
1700                                                  y - device->y);
1701
1702                 device->x = x;
1703                 device->y = y;
1704                 compositor->focus = 1;
1705                 weston_compositor_repick(compositor);
1706         } else {
1707                 compositor->focus = 0;
1708                 weston_compositor_repick(compositor);
1709         }
1710 }
1711
1712 static void
1713 destroy_device_saved_kbd_focus(struct wl_listener *listener, void *data)
1714 {
1715         struct weston_input_device *wd;
1716
1717         wd = container_of(listener, struct weston_input_device,
1718                           saved_kbd_focus_listener);
1719
1720         wd->saved_kbd_focus = NULL;
1721 }
1722
1723 WL_EXPORT void
1724 notify_keyboard_focus(struct wl_input_device *device, struct wl_array *keys)
1725 {
1726         struct weston_input_device *wd =
1727                 (struct weston_input_device *) device;
1728         struct weston_compositor *compositor = wd->compositor;
1729         struct wl_surface *surface;
1730         uint32_t *k;
1731
1732         if (keys) {
1733                 wl_array_copy(&wd->input_device.keys, keys);
1734                 wd->modifier_state = 0;
1735                 wl_array_for_each(k, &device->keys) {
1736                         weston_compositor_idle_inhibit(compositor);
1737                         update_modifier_state(wd, *k, 1);
1738                 }
1739
1740                 surface = wd->saved_kbd_focus;
1741
1742                 if (surface) {
1743                         wl_list_remove(&wd->saved_kbd_focus_listener.link);
1744                         wl_input_device_set_keyboard_focus(&wd->input_device,
1745                                                            surface);
1746                         wd->saved_kbd_focus = NULL;
1747                 }
1748         } else {
1749                 wl_array_for_each(k, &device->keys)
1750                         weston_compositor_idle_release(compositor);
1751
1752                 wd->modifier_state = 0;
1753
1754                 surface = wd->input_device.keyboard_focus;
1755
1756                 if (surface) {
1757                         wd->saved_kbd_focus = surface;
1758                         wd->saved_kbd_focus_listener.notify =
1759                                 destroy_device_saved_kbd_focus;
1760                         wl_signal_add(&surface->resource.destroy_signal,
1761                                       &wd->saved_kbd_focus_listener);
1762                 }
1763
1764                 wl_input_device_set_keyboard_focus(&wd->input_device, NULL);
1765                 /* FIXME: We really need keyboard grab cancel here to
1766                  * let the grab shut down properly.  As it is we leak
1767                  * the grab data. */
1768                 wl_input_device_end_keyboard_grab(&wd->input_device);
1769         }
1770 }
1771
1772 /* TODO: share this function with wayland-server.c */
1773 static struct wl_resource *
1774 find_resource_for_surface(struct wl_list *list, struct wl_surface *surface)
1775 {
1776         struct wl_resource *r;
1777
1778         if (!surface)
1779                 return NULL;
1780
1781         wl_list_for_each(r, list, link) {
1782                 if (r->client == surface->resource.client)
1783                         return r;
1784         }
1785
1786         return NULL;
1787 }
1788
1789 static void
1790 lose_touch_focus_resource(struct wl_listener *listener, void *data)
1791 {
1792         struct weston_input_device *device =
1793                 container_of(listener, struct weston_input_device,
1794                              touch_focus_resource_listener);
1795
1796         device->touch_focus_resource = NULL;
1797 }
1798
1799 static void
1800 lose_touch_focus(struct wl_listener *listener, void *data)
1801 {
1802         struct weston_input_device *device =
1803                 container_of(listener, struct weston_input_device,
1804                              touch_focus_listener);
1805
1806         device->touch_focus = NULL;
1807 }
1808
1809 static void
1810 touch_set_focus(struct weston_input_device *device,
1811                 struct wl_surface *surface)
1812 {
1813         struct wl_input_device *input_device = &device->input_device;
1814         struct wl_resource *resource;
1815
1816         if (device->touch_focus == surface)
1817                 return;
1818
1819         if (surface) {
1820                 resource =
1821                         find_resource_for_surface(&input_device->resource_list,
1822                                                   surface);
1823                 if (!resource) {
1824                         fprintf(stderr, "couldn't find resource\n");
1825                         return;
1826                 }
1827
1828                 device->touch_focus_resource_listener.notify =
1829                         lose_touch_focus_resource;
1830                 wl_signal_add(&resource->destroy_signal,
1831                               &device->touch_focus_resource_listener);
1832                 device->touch_focus_listener.notify = lose_touch_focus;
1833                 wl_signal_add(&surface->resource.destroy_signal,
1834                                &device->touch_focus_listener);
1835
1836                 device->touch_focus = surface;
1837                 device->touch_focus_resource = resource;
1838         } else {
1839                 if (device->touch_focus)
1840                         wl_list_remove(&device->touch_focus_listener.link);
1841                 if (device->touch_focus_resource)
1842                         wl_list_remove(&device->touch_focus_resource_listener.link);
1843                 device->touch_focus = NULL;
1844                 device->touch_focus_resource = NULL;
1845         }
1846 }
1847
1848 /**
1849  * notify_touch - emulates button touches and notifies surfaces accordingly.
1850  *
1851  * It assumes always the correct cycle sequence until it gets here: touch_down
1852  * → touch_update → ... → touch_update → touch_end. The driver is responsible
1853  * for sending along such order.
1854  *
1855  */
1856 WL_EXPORT void
1857 notify_touch(struct wl_input_device *device, uint32_t time, int touch_id,
1858              int x, int y, int touch_type)
1859 {
1860         struct weston_input_device *wd = (struct weston_input_device *) device;
1861         struct weston_compositor *ec = wd->compositor;
1862         struct weston_surface *es;
1863         int32_t sx, sy;
1864         uint32_t serial = 0;
1865
1866         switch (touch_type) {
1867         case WL_INPUT_DEVICE_TOUCH_DOWN:
1868                 weston_compositor_idle_inhibit(ec);
1869
1870                 wd->num_tp++;
1871
1872                 /* the first finger down picks the surface, and all further go
1873                  * to that surface for the remainder of the touch session i.e.
1874                  * until all touch points are up again. */
1875                 if (wd->num_tp == 1) {
1876                         es = weston_compositor_pick_surface(ec, x, y, &sx, &sy);
1877                         touch_set_focus(wd, &es->surface);
1878                 } else if (wd->touch_focus) {
1879                         es = (struct weston_surface *) wd->touch_focus;
1880                         weston_surface_from_global(es, x, y, &sx, &sy);
1881                 }
1882
1883                 if (wd->touch_focus_resource && wd->touch_focus)
1884                         wl_input_device_send_touch_down(wd->touch_focus_resource,
1885                                                         serial, time, &wd->touch_focus->resource,
1886                                                         touch_id, sx, sy);
1887                 break;
1888         case WL_INPUT_DEVICE_TOUCH_MOTION:
1889                 es = (struct weston_surface *) wd->touch_focus;
1890                 if (!es)
1891                         break;
1892
1893                 weston_surface_from_global(es, x, y, &sx, &sy);
1894                 if (wd->touch_focus_resource)
1895                         wl_input_device_send_touch_motion(wd->touch_focus_resource,
1896                                                           time, touch_id, sx, sy);
1897                 break;
1898         case WL_INPUT_DEVICE_TOUCH_UP:
1899                 weston_compositor_idle_release(ec);
1900                 wd->num_tp--;
1901
1902                 if (wd->touch_focus_resource)
1903                         wl_input_device_send_touch_up(wd->touch_focus_resource,
1904                                                       serial, time, touch_id);
1905                 if (wd->num_tp == 0)
1906                         touch_set_focus(wd, NULL);
1907                 break;
1908         }
1909 }
1910
1911 static void
1912 input_device_attach(struct wl_client *client,
1913                     struct wl_resource *resource,
1914                     uint32_t serial,
1915                     struct wl_resource *buffer_resource, int32_t x, int32_t y)
1916 {
1917         struct weston_input_device *device = resource->data;
1918         struct weston_compositor *compositor = device->compositor;
1919         struct wl_buffer *buffer = NULL;
1920
1921         if (serial < device->input_device.pointer_focus_serial)
1922                 return;
1923         if (device->input_device.pointer_focus == NULL)
1924                 return;
1925         if (device->input_device.pointer_focus->resource.client != client)
1926                 return;
1927
1928         if (buffer_resource)
1929                 buffer = buffer_resource->data;
1930
1931         weston_surface_attach(&device->sprite->surface, buffer);
1932
1933         if (!buffer)
1934                 return;
1935
1936         if (!weston_surface_is_mapped(device->sprite)) {
1937                 wl_list_insert(&compositor->cursor_layer.surface_list,
1938                                &device->sprite->layer_link);
1939                 weston_surface_assign_output(device->sprite);
1940         }
1941
1942
1943         device->hotspot_x = x;
1944         device->hotspot_y = y;
1945         weston_surface_configure(device->sprite,
1946                                  device->input_device.x - device->hotspot_x,
1947                                  device->input_device.y - device->hotspot_y,
1948                                  buffer->width, buffer->height);
1949
1950         surface_damage(NULL, &device->sprite->surface.resource,
1951                        0, 0, buffer->width, buffer->height);
1952 }
1953
1954 static const struct wl_input_device_interface input_device_interface = {
1955         input_device_attach,
1956 };
1957
1958 static void
1959 handle_drag_surface_destroy(struct wl_listener *listener, void *data)
1960 {
1961         struct weston_input_device *device;
1962
1963         device = container_of(listener, struct weston_input_device,
1964                               drag_surface_destroy_listener);
1965
1966         device->drag_surface = NULL;
1967 }
1968
1969 static void unbind_input_device(struct wl_resource *resource)
1970 {
1971         wl_list_remove(&resource->link);
1972         free(resource);
1973 }
1974
1975 static void
1976 bind_input_device(struct wl_client *client,
1977                   void *data, uint32_t version, uint32_t id)
1978 {
1979         struct wl_input_device *device = data;
1980         struct wl_resource *resource;
1981
1982         resource = wl_client_add_object(client, &wl_input_device_interface,
1983                                         &input_device_interface, id, data);
1984         wl_list_insert(&device->resource_list, &resource->link);
1985         resource->destroy = unbind_input_device;
1986 }
1987
1988 static void
1989 device_handle_new_drag_icon(struct wl_listener *listener, void *data)
1990 {
1991         struct weston_input_device *device;
1992
1993         device = container_of(listener, struct weston_input_device,
1994                               new_drag_icon_listener);
1995
1996         weston_input_update_drag_surface(&device->input_device, 0, 0);
1997 }
1998
1999 WL_EXPORT void
2000 weston_input_device_init(struct weston_input_device *device,
2001                          struct weston_compositor *ec)
2002 {
2003         wl_input_device_init(&device->input_device);
2004
2005         wl_display_add_global(ec->wl_display, &wl_input_device_interface,
2006                               device, bind_input_device);
2007
2008         device->sprite = weston_surface_create(ec);
2009         device->sprite->surface.resource.data = device->sprite;
2010
2011         device->compositor = ec;
2012         device->hotspot_x = 16;
2013         device->hotspot_y = 16;
2014         device->modifier_state = 0;
2015         device->num_tp = 0;
2016
2017         device->drag_surface_destroy_listener.notify =
2018                 handle_drag_surface_destroy;
2019
2020         wl_list_insert(ec->input_device_list.prev, &device->link);
2021
2022         device->new_drag_icon_listener.notify = device_handle_new_drag_icon;
2023         wl_signal_add(&device->input_device.drag_icon_signal,
2024                       &device->new_drag_icon_listener);
2025 }
2026
2027 WL_EXPORT void
2028 weston_input_device_release(struct weston_input_device *device)
2029 {
2030         wl_list_remove(&device->link);
2031         /* The global object is destroyed at wl_display_destroy() time. */
2032
2033         if (device->sprite)
2034                 destroy_surface(&device->sprite->surface.resource);
2035
2036         wl_input_device_release(&device->input_device);
2037 }
2038
2039 static void
2040 drag_surface_configure(struct weston_surface *es, int32_t sx, int32_t sy)
2041 {
2042         weston_surface_configure(es,
2043                                  es->geometry.x + sx, es->geometry.y + sy,
2044                                  es->buffer->width, es->buffer->height);
2045 }
2046
2047 static int
2048 device_setup_new_drag_surface(struct weston_input_device *device,
2049                               struct weston_surface *surface)
2050 {
2051         struct wl_input_device *input_device = &device->input_device;
2052
2053         if (surface->configure) {
2054                 wl_resource_post_error(&surface->surface.resource,
2055                                        WL_DISPLAY_ERROR_INVALID_OBJECT,
2056                                        "surface->configure already set");
2057                 return 0;
2058         }
2059
2060         device->drag_surface = surface;
2061
2062         weston_surface_set_position(device->drag_surface,
2063                                     input_device->x, input_device->y);
2064
2065         surface->configure = drag_surface_configure;
2066
2067         wl_signal_add(&surface->surface.resource.destroy_signal,
2068                        &device->drag_surface_destroy_listener);
2069
2070         return 1;
2071 }
2072
2073 static void
2074 device_release_drag_surface(struct weston_input_device *device)
2075 {
2076         device->drag_surface->configure = NULL;
2077         undef_region(&device->drag_surface->input);
2078         wl_list_remove(&device->drag_surface_destroy_listener.link);
2079         device->drag_surface = NULL;
2080 }
2081
2082 static void
2083 device_map_drag_surface(struct weston_input_device *device)
2084 {
2085         if (weston_surface_is_mapped(device->drag_surface) ||
2086             !device->drag_surface->buffer)
2087                 return;
2088
2089         wl_list_insert(&device->sprite->layer_link,
2090                        &device->drag_surface->layer_link);
2091         weston_surface_assign_output(device->drag_surface);
2092         empty_region(&device->drag_surface->input);
2093 }
2094
2095 static  void
2096 weston_input_update_drag_surface(struct wl_input_device *input_device,
2097                                  int dx, int dy)
2098 {
2099         int surface_changed = 0;
2100         struct weston_input_device *device = (struct weston_input_device *)
2101                 input_device;
2102
2103         if (!device->drag_surface && !input_device->drag_surface)
2104                 return;
2105
2106         if (device->drag_surface && input_device->drag_surface &&
2107             (&device->drag_surface->surface.resource !=
2108              &input_device->drag_surface->resource))
2109                 /* between calls to this funcion we got a new drag_surface */
2110                 surface_changed = 1;
2111
2112         if (!input_device->drag_surface || surface_changed) {
2113                 device_release_drag_surface(device);
2114                 if (!surface_changed)
2115                         return;
2116         }
2117
2118         if (!device->drag_surface || surface_changed) {
2119                 struct weston_surface *surface = (struct weston_surface *)
2120                         input_device->drag_surface;
2121                 if (!device_setup_new_drag_surface(device, surface))
2122                         return;
2123         }
2124
2125         /* the client may not have attached a buffer to the drag surface
2126          * when we setup it up, so check if map is needed on every update */
2127         device_map_drag_surface(device);
2128
2129         /* the client may have attached a buffer with a different size to
2130          * the drag surface, causing the input region to be reset */
2131         if (region_is_undefined(&device->drag_surface->input))
2132                 empty_region(&device->drag_surface->input);
2133
2134         if (!dx && !dy)
2135                 return;
2136
2137         weston_surface_set_position(device->drag_surface,
2138                                     device->drag_surface->geometry.x + dx,
2139                                     device->drag_surface->geometry.y + dy);
2140 }
2141
2142 WL_EXPORT void
2143 weston_compositor_update_drag_surfaces(struct weston_compositor *compositor)
2144 {
2145         weston_input_update_drag_surface(compositor->input_device, 0, 0);
2146 }
2147
2148 static void
2149 bind_output(struct wl_client *client,
2150             void *data, uint32_t version, uint32_t id)
2151 {
2152         struct weston_output *output = data;
2153         struct weston_mode *mode;
2154         struct wl_resource *resource;
2155
2156         resource = wl_client_add_object(client,
2157                                         &wl_output_interface, NULL, id, data);
2158
2159         wl_output_send_geometry(resource,
2160                                 output->x,
2161                                 output->y,
2162                                 output->mm_width,
2163                                 output->mm_height,
2164                                 output->subpixel,
2165                                 output->make, output->model);
2166
2167         wl_list_for_each (mode, &output->mode_list, link) {
2168                 wl_output_send_mode(resource,
2169                                     mode->flags,
2170                                     mode->width,
2171                                     mode->height,
2172                                     mode->refresh);
2173         }
2174 }
2175
2176 static const char vertex_shader[] =
2177         "uniform mat4 proj;\n"
2178         "attribute vec2 position;\n"
2179         "attribute vec2 texcoord;\n"
2180         "varying vec2 v_texcoord;\n"
2181         "void main()\n"
2182         "{\n"
2183         "   gl_Position = proj * vec4(position, 0.0, 1.0);\n"
2184         "   v_texcoord = texcoord;\n"
2185         "}\n";
2186
2187 static const char texture_fragment_shader[] =
2188         "precision mediump float;\n"
2189         "varying vec2 v_texcoord;\n"
2190         "uniform sampler2D tex;\n"
2191         "uniform float alpha;\n"
2192         "uniform float bright;\n"
2193         "uniform float saturation;\n"
2194         "uniform float texwidth;\n"
2195         "void main()\n"
2196         "{\n"
2197         "   if (v_texcoord.x < 0.0 || v_texcoord.x > texwidth ||\n"
2198         "       v_texcoord.y < 0.0 || v_texcoord.y > 1.0)\n"
2199         "      discard;\n"
2200         "   gl_FragColor = texture2D(tex, v_texcoord)\n;"
2201         "   float gray = dot(gl_FragColor.rgb, vec3(0.299, 0.587, 0.114));\n"
2202         "   vec3 range = (gl_FragColor.rgb - vec3 (gray, gray, gray)) * saturation;\n"
2203         "   gl_FragColor = vec4(vec3(gray + range), gl_FragColor.a);\n"
2204         "   gl_FragColor = vec4(vec3(bright, bright, bright) * gl_FragColor.rgb, gl_FragColor.a);\n"
2205         "   gl_FragColor = alpha * gl_FragColor;\n"
2206         "}\n";
2207
2208 static const char solid_fragment_shader[] =
2209         "precision mediump float;\n"
2210         "uniform vec4 color;\n"
2211         "uniform float alpha;\n"
2212         "void main()\n"
2213         "{\n"
2214         "   gl_FragColor = alpha * color\n;"
2215         "}\n";
2216
2217 static int
2218 compile_shader(GLenum type, const char *source)
2219 {
2220         GLuint s;
2221         char msg[512];
2222         GLint status;
2223
2224         s = glCreateShader(type);
2225         glShaderSource(s, 1, &source, NULL);
2226         glCompileShader(s);
2227         glGetShaderiv(s, GL_COMPILE_STATUS, &status);
2228         if (!status) {
2229                 glGetShaderInfoLog(s, sizeof msg, NULL, msg);
2230                 fprintf(stderr, "shader info: %s\n", msg);
2231                 return GL_NONE;
2232         }
2233
2234         return s;
2235 }
2236
2237 static int
2238 weston_shader_init(struct weston_shader *shader,
2239                    const char *vertex_source, const char *fragment_source)
2240 {
2241         char msg[512];
2242         GLint status;
2243
2244         shader->vertex_shader =
2245                 compile_shader(GL_VERTEX_SHADER, vertex_source);
2246         shader->fragment_shader =
2247                 compile_shader(GL_FRAGMENT_SHADER, fragment_source);
2248
2249         shader->program = glCreateProgram();
2250         glAttachShader(shader->program, shader->vertex_shader);
2251         glAttachShader(shader->program, shader->fragment_shader);
2252         glBindAttribLocation(shader->program, 0, "position");
2253         glBindAttribLocation(shader->program, 1, "texcoord");
2254
2255         glLinkProgram(shader->program);
2256         glGetProgramiv(shader->program, GL_LINK_STATUS, &status);
2257         if (!status) {
2258                 glGetProgramInfoLog(shader->program, sizeof msg, NULL, msg);
2259                 fprintf(stderr, "link info: %s\n", msg);
2260                 return -1;
2261         }
2262
2263         shader->proj_uniform = glGetUniformLocation(shader->program, "proj");
2264         shader->tex_uniform = glGetUniformLocation(shader->program, "tex");
2265         shader->alpha_uniform = glGetUniformLocation(shader->program, "alpha");
2266         shader->brightness_uniform = glGetUniformLocation(shader->program, "bright");
2267         shader->saturation_uniform = glGetUniformLocation(shader->program, "saturation");
2268         shader->color_uniform = glGetUniformLocation(shader->program, "color");
2269         shader->texwidth_uniform = glGetUniformLocation(shader->program,
2270                                                         "texwidth");
2271
2272         return 0;
2273 }
2274
2275 WL_EXPORT void
2276 weston_output_destroy(struct weston_output *output)
2277 {
2278         struct weston_compositor *c = output->compositor;
2279
2280         pixman_region32_fini(&output->region);
2281         pixman_region32_fini(&output->previous_damage);
2282
2283         wl_display_remove_global(c->wl_display, output->global);
2284 }
2285
2286 WL_EXPORT void
2287 weston_output_update_zoom(struct weston_output *output, int x, int y)
2288 {
2289         float ratio;
2290
2291         if (output->zoom.level <= 0)
2292                 return;
2293
2294         output->zoom.magnification = 1 / output->zoom.level;
2295         ratio = 1 - (1 / output->zoom.magnification);
2296
2297         output->zoom.trans_x = (((float)(x - output->x) / output->current->width) * (ratio * 2)) - ratio;
2298         output->zoom.trans_y = (((float)(y - output->y) / output->current->height) * (ratio * 2)) - ratio;
2299
2300         output->dirty = 1;
2301         weston_output_damage(output);
2302 }
2303
2304 WL_EXPORT void
2305 weston_output_update_matrix(struct weston_output *output)
2306 {
2307         int flip;
2308         struct weston_matrix camera;
2309         struct weston_matrix modelview;
2310
2311         weston_matrix_init(&output->matrix);
2312         weston_matrix_translate(&output->matrix,
2313                                 -(output->x + (output->border.right + output->current->width - output->border.left) / 2.0),
2314                                 -(output->y + (output->border.bottom + output->current->height - output->border.top) / 2.0), 0);
2315
2316         flip = (output->flags & WL_OUTPUT_FLIPPED) ? -1 : 1;
2317         weston_matrix_scale(&output->matrix,
2318                             2.0 / (output->current->width + output->border.left + output->border.right),
2319                             flip * 2.0 / (output->current->height + output->border.top + output->border.bottom), 1);
2320         if (output->zoom.active) {
2321                 weston_matrix_init(&camera);
2322                 weston_matrix_init(&modelview);
2323                 weston_matrix_translate(&camera, output->zoom.trans_x, flip * output->zoom.trans_y, 0);
2324                 weston_matrix_invert(&modelview, &camera);
2325                 weston_matrix_scale(&modelview, output->zoom.magnification, output->zoom.magnification, 1.0);
2326                 weston_matrix_multiply(&output->matrix, &modelview);
2327         }
2328
2329         output->dirty = 0;
2330 }
2331
2332 WL_EXPORT void
2333 weston_output_move(struct weston_output *output, int x, int y)
2334 {
2335         output->x = x;
2336         output->y = y;
2337
2338         pixman_region32_init(&output->previous_damage);
2339         pixman_region32_init_rect(&output->region, x, y,
2340                                   output->current->width,
2341                                   output->current->height);
2342 }
2343
2344 WL_EXPORT void
2345 weston_output_init(struct weston_output *output, struct weston_compositor *c,
2346                    int x, int y, int width, int height, uint32_t flags)
2347 {
2348         output->compositor = c;
2349         output->x = x;
2350         output->y = y;
2351         output->border.top = 0;
2352         output->border.bottom = 0;
2353         output->border.left = 0;
2354         output->border.right = 0;
2355         output->mm_width = width;
2356         output->mm_height = height;
2357         output->dirty = 1;
2358
2359         output->zoom.active = 0;
2360         output->zoom.increment = 0.05;
2361         output->zoom.level = 1.0;
2362         output->zoom.magnification = 1.0;
2363         output->zoom.trans_x = 0.0;
2364         output->zoom.trans_y = 0.0;
2365
2366         output->flags = flags;
2367         weston_output_move(output, x, y);
2368         weston_output_damage(output);
2369
2370         wl_list_init(&output->frame_callback_list);
2371
2372         output->global =
2373                 wl_display_add_global(c->wl_display, &wl_output_interface,
2374                                       output, bind_output);
2375 }
2376
2377 static void
2378 compositor_bind(struct wl_client *client,
2379                 void *data, uint32_t version, uint32_t id)
2380 {
2381         struct weston_compositor *compositor = data;
2382
2383         wl_client_add_object(client, &wl_compositor_interface,
2384                              &compositor_interface, id, compositor);
2385 }
2386
2387 WL_EXPORT int
2388 weston_compositor_init(struct weston_compositor *ec, struct wl_display *display)
2389 {
2390         struct wl_event_loop *loop;
2391         const char *extensions;
2392
2393         ec->wl_display = display;
2394         wl_signal_init(&ec->destroy_signal);
2395         wl_signal_init(&ec->activate_signal);
2396         wl_signal_init(&ec->lock_signal);
2397         wl_signal_init(&ec->unlock_signal);
2398         ec->launcher_sock = weston_environment_get_fd("WESTON_LAUNCHER_SOCK");
2399
2400         if (!wl_display_add_global(display, &wl_compositor_interface,
2401                                    ec, compositor_bind))
2402                 return -1;
2403
2404         wl_display_init_shm(display);
2405
2406         ec->image_target_texture_2d =
2407                 (void *) eglGetProcAddress("glEGLImageTargetTexture2DOES");
2408         ec->image_target_renderbuffer_storage = (void *)
2409                 eglGetProcAddress("glEGLImageTargetRenderbufferStorageOES");
2410         ec->create_image = (void *) eglGetProcAddress("eglCreateImageKHR");
2411         ec->destroy_image = (void *) eglGetProcAddress("eglDestroyImageKHR");
2412         ec->bind_display =
2413                 (void *) eglGetProcAddress("eglBindWaylandDisplayWL");
2414         ec->unbind_display =
2415                 (void *) eglGetProcAddress("eglUnbindWaylandDisplayWL");
2416
2417         extensions = (const char *) glGetString(GL_EXTENSIONS);
2418         if (!extensions) {
2419                 fprintf(stderr, "Retrieving GL extension string failed.\n");
2420                 return -1;
2421         }
2422
2423         if (!strstr(extensions, "GL_EXT_texture_format_BGRA8888")) {
2424                 fprintf(stderr,
2425                         "GL_EXT_texture_format_BGRA8888 not available\n");
2426                 return -1;
2427         }
2428
2429         if (strstr(extensions, "GL_EXT_read_format_bgra"))
2430                 ec->read_format = GL_BGRA_EXT;
2431         else
2432                 ec->read_format = GL_RGBA;
2433
2434         if (strstr(extensions, "GL_EXT_unpack_subimage"))
2435                 ec->has_unpack_subimage = 1;
2436
2437         extensions =
2438                 (const char *) eglQueryString(ec->display, EGL_EXTENSIONS);
2439         if (!extensions) {
2440                 fprintf(stderr, "Retrieving EGL extension string failed.\n");
2441                 return -1;
2442         }
2443
2444         if (strstr(extensions, "EGL_WL_bind_wayland_display"))
2445                 ec->has_bind_display = 1;
2446         if (ec->has_bind_display)
2447                 ec->bind_display(ec->display, ec->wl_display);
2448
2449         wl_list_init(&ec->surface_list);
2450         wl_list_init(&ec->layer_list);
2451         wl_list_init(&ec->input_device_list);
2452         wl_list_init(&ec->output_list);
2453         wl_list_init(&ec->binding_list);
2454         wl_list_init(&ec->animation_list);
2455         weston_spring_init(&ec->fade.spring, 30.0, 1.0, 1.0);
2456         ec->fade.animation.frame = fade_frame;
2457         wl_list_init(&ec->fade.animation.link);
2458
2459         weston_layer_init(&ec->fade_layer, &ec->layer_list);
2460         weston_layer_init(&ec->cursor_layer, &ec->fade_layer.link);
2461
2462         screenshooter_create(ec);
2463
2464         ec->ping_handler = NULL;
2465
2466         wl_data_device_manager_init(ec->wl_display);
2467
2468         glActiveTexture(GL_TEXTURE0);
2469
2470         if (weston_shader_init(&ec->texture_shader,
2471                              vertex_shader, texture_fragment_shader) < 0)
2472                 return -1;
2473         if (weston_shader_init(&ec->solid_shader,
2474                              vertex_shader, solid_fragment_shader) < 0)
2475                 return -1;
2476
2477         loop = wl_display_get_event_loop(ec->wl_display);
2478         ec->idle_source = wl_event_loop_add_timer(loop, idle_handler, ec);
2479         wl_event_source_timer_update(ec->idle_source, ec->idle_time * 1000);
2480
2481         ec->input_loop = wl_event_loop_create();
2482
2483         weston_compositor_schedule_repaint(ec);
2484
2485         return 0;
2486 }
2487
2488 WL_EXPORT void
2489 weston_compositor_shutdown(struct weston_compositor *ec)
2490 {
2491         struct weston_output *output, *next;
2492
2493         wl_event_source_remove(ec->idle_source);
2494         if (ec->input_loop_source)
2495                 wl_event_source_remove(ec->input_loop_source);
2496
2497         /* Destroy all outputs associated with this compositor */
2498         wl_list_for_each_safe(output, next, &ec->output_list, link)
2499                 output->destroy(output);
2500
2501         weston_binding_list_destroy_all(&ec->binding_list);
2502
2503         wl_array_release(&ec->vertices);
2504         wl_array_release(&ec->indices);
2505
2506         wl_event_loop_destroy(ec->input_loop);
2507 }
2508
2509 static int on_term_signal(int signal_number, void *data)
2510 {
2511         struct wl_display *display = data;
2512
2513         fprintf(stderr, "caught signal %d\n", signal_number);
2514         wl_display_terminate(display);
2515
2516         return 1;
2517 }
2518
2519 static void
2520 on_segv_signal(int s, siginfo_t *siginfo, void *context)
2521 {
2522         void *buffer[32];
2523         int i, count;
2524         Dl_info info;
2525
2526         fprintf(stderr, "caught segv\n");
2527
2528         count = backtrace(buffer, ARRAY_LENGTH(buffer));
2529         for (i = 0; i < count; i++) {
2530                 dladdr(buffer[i], &info);
2531                 fprintf(stderr, "  [%016lx]  %s  (%s)\n",
2532                         (long) buffer[i],
2533                         info.dli_sname ? info.dli_sname : "--",
2534                         info.dli_fname);
2535         }
2536
2537         longjmp(segv_jmp_buf, 1);
2538 }
2539
2540
2541 static void *
2542 load_module(const char *name, const char *entrypoint, void **handle)
2543 {
2544         char path[PATH_MAX];
2545         void *module, *init;
2546
2547         if (name[0] != '/')
2548                 snprintf(path, sizeof path, MODULEDIR "/%s", name);
2549         else
2550                 snprintf(path, sizeof path, "%s", name);
2551
2552         module = dlopen(path, RTLD_LAZY);
2553         if (!module) {
2554                 fprintf(stderr,
2555                         "failed to load module: %s\n", dlerror());
2556                 return NULL;
2557         }
2558
2559         init = dlsym(module, entrypoint);
2560         if (!init) {
2561                 fprintf(stderr,
2562                         "failed to lookup init function: %s\n", dlerror());
2563                 return NULL;
2564         }
2565
2566         return init;
2567 }
2568
2569 int main(int argc, char *argv[])
2570 {
2571         struct wl_display *display;
2572         struct weston_compositor *ec;
2573         struct wl_event_source *signals[4];
2574         struct wl_event_loop *loop;
2575         struct sigaction segv_action;
2576         void *shell_module, *backend_module, *xserver_module;
2577         int (*shell_init)(struct weston_compositor *ec);
2578         int (*xserver_init)(struct weston_compositor *ec);
2579         struct weston_compositor
2580                 *(*backend_init)(struct wl_display *display,
2581                                  int argc, char *argv[]);
2582         int i;
2583         char *backend = NULL;
2584         char *shell = NULL;
2585         int32_t idle_time = 300;
2586         int32_t xserver;
2587         char *socket_name = NULL;
2588         char *config_file;
2589
2590         const struct config_key shell_config_keys[] = {
2591                 { "type", CONFIG_KEY_STRING, &shell },
2592         };
2593
2594         const struct config_section cs[] = {
2595                 { "shell",
2596                   shell_config_keys, ARRAY_LENGTH(shell_config_keys) },
2597         };
2598
2599         const struct weston_option core_options[] = {
2600                 { WESTON_OPTION_STRING, "backend", 'B', &backend },
2601                 { WESTON_OPTION_STRING, "socket", 'S', &socket_name },
2602                 { WESTON_OPTION_INTEGER, "idle-time", 'i', &idle_time },
2603                 { WESTON_OPTION_BOOLEAN, "xserver", 0, &xserver },
2604         };
2605
2606         argc = parse_options(core_options,
2607                              ARRAY_LENGTH(core_options), argc, argv);
2608
2609         display = wl_display_create();
2610
2611         loop = wl_display_get_event_loop(display);
2612         signals[0] = wl_event_loop_add_signal(loop, SIGTERM, on_term_signal,
2613                                               display);
2614         signals[1] = wl_event_loop_add_signal(loop, SIGINT, on_term_signal,
2615                                               display);
2616         signals[2] = wl_event_loop_add_signal(loop, SIGQUIT, on_term_signal,
2617                                               display);
2618
2619         wl_list_init(&child_process_list);
2620         signals[3] = wl_event_loop_add_signal(loop, SIGCHLD, sigchld_handler,
2621                                               NULL);
2622
2623         segv_action.sa_flags = SA_SIGINFO | SA_RESETHAND;
2624         segv_action.sa_sigaction = on_segv_signal;
2625         sigemptyset(&segv_action.sa_mask);
2626         sigaction(SIGSEGV, &segv_action, NULL);
2627
2628         if (!backend) {
2629                 if (getenv("WAYLAND_DISPLAY"))
2630                         backend = "wayland-backend.so";
2631                 else if (getenv("DISPLAY"))
2632                         backend = "x11-backend.so";
2633                 else if (getenv("OPENWFD"))
2634                         backend = "openwfd-backend.so";
2635                 else
2636                         backend = "drm-backend.so";
2637         }
2638
2639         config_file = config_file_path("weston.ini");
2640         parse_config_file(config_file, cs, ARRAY_LENGTH(cs), shell);
2641         free(config_file);
2642
2643         if (!shell)
2644                 shell = "desktop-shell.so";
2645
2646         backend_init = load_module(backend, "backend_init", &backend_module);
2647         if (!backend_init)
2648                 exit(EXIT_FAILURE);
2649
2650         shell_init = load_module(shell, "shell_init", &shell_module);
2651         if (!shell_init)
2652                 exit(EXIT_FAILURE);
2653
2654         ec = backend_init(display, argc, argv);
2655         if (ec == NULL) {
2656                 fprintf(stderr, "failed to create compositor\n");
2657                 exit(EXIT_FAILURE);
2658         }
2659
2660         for (i = 1; argv[i]; i++)
2661                 fprintf(stderr, "unhandled option: %s\n", argv[i]);
2662         if (argv[1])
2663                 exit(EXIT_FAILURE);
2664
2665         ec->option_idle_time = idle_time;
2666         ec->idle_time = idle_time;
2667
2668         xserver_init = NULL;
2669         if (xserver)
2670                 xserver_init = load_module("xserver-launcher.so",
2671                                            "weston_xserver_init",
2672                                            &xserver_module);
2673         if (xserver_init)
2674                 xserver_init(ec);
2675
2676         if (shell_init(ec) < 0)
2677                 exit(EXIT_FAILURE);
2678
2679         if (wl_display_add_socket(display, socket_name)) {
2680                 fprintf(stderr, "failed to add socket: %m\n");
2681                 exit(EXIT_FAILURE);
2682         }
2683
2684         weston_compositor_dpms_on(ec);
2685         weston_compositor_wake(ec);
2686         if (setjmp(segv_jmp_buf) == 0)
2687                 wl_display_run(display);
2688
2689         /* prevent further rendering while shutting down */
2690         ec->state = WESTON_COMPOSITOR_SLEEPING;
2691
2692         wl_signal_emit(&ec->destroy_signal, ec);
2693
2694         if (ec->has_bind_display)
2695                 ec->unbind_display(ec->display, display);
2696
2697         for (i = ARRAY_LENGTH(signals); i;)
2698                 wl_event_source_remove(signals[--i]);
2699
2700         ec->destroy(ec);
2701         wl_display_destroy(display);
2702
2703         return 0;
2704 }