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