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