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