src/compositor.c

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