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