src/compositor.c

   1 /*
   2  * Copyright © 2010-2011 Intel Corporation
   3  * Copyright © 2008-2011 Kristian Høgsberg
   4  * Copyright © 2012 Collabora, Ltd.
   5  *
   6  * Permission to use, copy, modify, distribute, and sell this software and
   7  * its documentation for any purpose is hereby granted without fee, provided
   8  * that the above copyright notice appear in all copies and that both that
   9  * copyright notice and this permission notice appear in supporting
  10  * documentation, and that the name of the copyright holders not be used in
  11  * advertising or publicity pertaining to distribution of the software
  12  * without specific, written prior permission.  The copyright holders make
  13  * no representations about the suitability of this software for any
  14  * purpose.  It is provided "as is" without express or implied warranty.
  15  *
  16  * THE COPYRIGHT HOLDERS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  17  * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  18  * FITNESS, IN NO EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY
  19  * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  20  * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  21  * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  22  * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  23  */
  24
  25 #define _GNU_SOURCE
  26
  27 #include "config.h"
  28
  29 #include <fcntl.h>
  30 #include <stdio.h>
  31 #include <string.h>
  32 #include <stdlib.h>
  33 #include <stdint.h>
  34 #include <limits.h>
  35 #include <stdarg.h>
  36 #include <assert.h>
  37 #include <sys/ioctl.h>
  38 #include <sys/mman.h>
  39 #include <sys/wait.h>
  40 #include <sys/socket.h>
  41 #include <sys/utsname.h>
  42 #include <sys/stat.h>
  43 #include <unistd.h>
  44 #include <math.h>
  45 #include <linux/input.h>
  46 #include <dlfcn.h>
  47 #include <signal.h>
  48 #include <setjmp.h>
  49 #include <sys/time.h>
  50 #include <time.h>
  51
  52 #ifdef HAVE_LIBUNWIND
  53 #define UNW_LOCAL_ONLY
  54 #include <libunwind.h>
  55 #endif
  56
  57 #include <wayland-server.h>
  58 #include "compositor.h"
  59 #include "../shared/os-compatibility.h"
  60 #include "git-version.h"
  61 #include "version.h"
  62
  63 static struct wl_list child_process_list;
  64 static struct weston_compositor *segv_compositor;
  65
  66 static int
  67 sigchld_handler(int signal_number, void *data)
  68 {
  69         struct weston_process *p;
  70         int status;
  71         pid_t pid;
  72
  73         pid = waitpid(-1, &status, WNOHANG);
  74         if (!pid)
  75                 return 1;
  76
  77         wl_list_for_each(p, &child_process_list, link) {
  78                 if (p->pid == pid)
  79                         break;
  80         }
  81
  82         if (&p->link == &child_process_list) {
  83                 weston_log("unknown child process exited\n");
  84                 return 1;
  85         }
  86
  87         wl_list_remove(&p->link);
  88         p->cleanup(p, status);
  89
  90         return 1;
  91 }
  92
  93 static void
  94 weston_output_transform_init(struct weston_output *output, uint32_t transform);
  95
  96 WL_EXPORT int
  97 weston_output_switch_mode(struct weston_output *output, struct weston_mode *mode)
  98 {
  99         struct weston_seat *seat;
 100         pixman_region32_t old_output_region;
 101         int ret;
 102
 103         if (!output->switch_mode)
 104                 return -1;
 105
 106         ret = output->switch_mode(output, mode);
 107         if (ret < 0)
 108                 return ret;
 109
 110         pixman_region32_init(&old_output_region);
 111         pixman_region32_copy(&old_output_region, &output->region);
 112
 113         /* Update output region and transformation matrix */
 114         weston_output_transform_init(output, output->transform);
 115
 116         pixman_region32_init(&output->previous_damage);
 117         pixman_region32_init_rect(&output->region, output->x, output->y,
 118                                   output->width, output->height);
 119
 120         weston_output_update_matrix(output);
 121
 122         /* If a pointer falls outside the outputs new geometry, move it to its
 123          * lower-right corner */
 124         wl_list_for_each(seat, &output->compositor->seat_list, link) {
 125                 struct wl_pointer *pointer = seat->seat.pointer;
 126                 int32_t x, y;
 127
 128                 if (!pointer)
 129                         continue;
 130
 131                 x = wl_fixed_to_int(pointer->x);
 132                 y = wl_fixed_to_int(pointer->y);
 133
 134                 if (!pixman_region32_contains_point(&old_output_region,
 135                                                     x, y, NULL) ||
 136                     pixman_region32_contains_point(&output->region,
 137                                                    x, y, NULL))
 138                         continue;
 139
 140                 if (x >= output->x + output->width)
 141                         x = output->x + output->width - 1;
 142                 if (y >= output->y + output->height)
 143                         y = output->y + output->height - 1;
 144
 145                 pointer->x = wl_fixed_from_int(x);
 146                 pointer->y = wl_fixed_from_int(y);
 147         }
 148
 149         pixman_region32_fini(&old_output_region);
 150
 151         return ret;
 152 }
 153
 154 WL_EXPORT void
 155 weston_watch_process(struct weston_process *process)
 156 {
 157         wl_list_insert(&child_process_list, &process->link);
 158 }
 159
 160 static void
 161 child_client_exec(int sockfd, const char *path)
 162 {
 163         int clientfd;
 164         char s[32];
 165         sigset_t allsigs;
 166
 167         /* do not give our signal mask to the new process */
 168         sigfillset(&allsigs);
 169         sigprocmask(SIG_UNBLOCK, &allsigs, NULL);
 170
 171         /* Launch clients as the user. */
 172         seteuid(getuid());
 173
 174         /* SOCK_CLOEXEC closes both ends, so we dup the fd to get a
 175          * non-CLOEXEC fd to pass through exec. */
 176         clientfd = dup(sockfd);
 177         if (clientfd == -1) {
 178                 weston_log("compositor: dup failed: %m\n");
 179                 return;
 180         }
 181
 182         snprintf(s, sizeof s, "%d", clientfd);
 183         setenv("WAYLAND_SOCKET", s, 1);
 184
 185         if (execl(path, path, NULL) < 0)
 186                 weston_log("compositor: executing '%s' failed: %m\n",
 187                         path);
 188 }
 189
 190 WL_EXPORT struct wl_client *
 191 weston_client_launch(struct weston_compositor *compositor,
 192                      struct weston_process *proc,
 193                      const char *path,
 194                      weston_process_cleanup_func_t cleanup)
 195 {
 196         int sv[2];
 197         pid_t pid;
 198         struct wl_client *client;
 199
 200         weston_log("launching '%s'\n", path);
 201
 202         if (os_socketpair_cloexec(AF_UNIX, SOCK_STREAM, 0, sv) < 0) {
 203                 weston_log("weston_client_launch: "
 204                         "socketpair failed while launching '%s': %m\n",
 205                         path);
 206                 return NULL;
 207         }
 208
 209         pid = fork();
 210         if (pid == -1) {
 211                 close(sv[0]);
 212                 close(sv[1]);
 213                 weston_log("weston_client_launch: "
 214                         "fork failed while launching '%s': %m\n", path);
 215                 return NULL;
 216         }
 217
 218         if (pid == 0) {
 219                 child_client_exec(sv[1], path);
 220                 exit(-1);
 221         }
 222
 223         close(sv[1]);
 224
 225         client = wl_client_create(compositor->wl_display, sv[0]);
 226         if (!client) {
 227                 close(sv[0]);
 228                 weston_log("weston_client_launch: "
 229                         "wl_client_create failed while launching '%s'.\n",
 230                         path);
 231                 return NULL;
 232         }
 233
 234         proc->pid = pid;
 235         proc->cleanup = cleanup;
 236         weston_watch_process(proc);
 237
 238         return client;
 239 }
 240
 241 static void
 242 surface_handle_pending_buffer_destroy(struct wl_listener *listener, void *data)
 243 {
 244         struct weston_surface *surface =
 245                 container_of(listener, struct weston_surface,
 246                              pending.buffer_destroy_listener);
 247
 248         surface->pending.buffer = NULL;
 249 }
 250
 251 static void
 252 empty_region(pixman_region32_t *region)
 253 {
 254         pixman_region32_fini(region);
 255         pixman_region32_init(region);
 256 }
 257
 258 static void
 259 region_init_infinite(pixman_region32_t *region)
 260 {
 261         pixman_region32_init_rect(region, INT32_MIN, INT32_MIN,
 262                                   UINT32_MAX, UINT32_MAX);
 263 }
 264
 265 WL_EXPORT struct weston_surface *
 266 weston_surface_create(struct weston_compositor *compositor)
 267 {
 268         struct weston_surface *surface;
 269
 270         surface = calloc(1, sizeof *surface);
 271         if (surface == NULL)
 272                 return NULL;
 273
 274         wl_signal_init(&surface->surface.resource.destroy_signal);
 275
 276         wl_list_init(&surface->link);
 277         wl_list_init(&surface->layer_link);
 278
 279         surface->surface.resource.client = NULL;
 280
 281         surface->compositor = compositor;
 282         surface->alpha = 1.0;
 283
 284         if (compositor->renderer->create_surface(surface) < 0) {
 285                 free(surface);
 286                 return NULL;
 287         }
 288
 289         surface->buffer_transform = WL_OUTPUT_TRANSFORM_NORMAL;
 290         surface->pending.buffer_transform = surface->buffer_transform;
 291         surface->output = NULL;
 292         surface->plane = &compositor->primary_plane;
 293         surface->pending.newly_attached = 0;
 294
 295         pixman_region32_init(&surface->damage);
 296         pixman_region32_init(&surface->opaque);
 297         pixman_region32_init(&surface->clip);
 298         region_init_infinite(&surface->input);
 299         pixman_region32_init(&surface->transform.opaque);
 300         wl_list_init(&surface->frame_callback_list);
 301
 302         wl_list_init(&surface->geometry.transformation_list);
 303         wl_list_insert(&surface->geometry.transformation_list,
 304                        &surface->transform.position.link);
 305         weston_matrix_init(&surface->transform.position.matrix);
 306         wl_list_init(&surface->geometry.child_list);
 307         pixman_region32_init(&surface->transform.boundingbox);
 308         surface->transform.dirty = 1;
 309
 310         surface->pending.buffer_destroy_listener.notify =
 311                 surface_handle_pending_buffer_destroy;
 312         pixman_region32_init(&surface->pending.damage);
 313         pixman_region32_init(&surface->pending.opaque);
 314         region_init_infinite(&surface->pending.input);
 315         wl_list_init(&surface->pending.frame_callback_list);
 316
 317         return surface;
 318 }
 319
 320 WL_EXPORT void
 321 weston_surface_set_color(struct weston_surface *surface,
 322                  float red, float green, float blue, float alpha)
 323 {
 324         surface->compositor->renderer->surface_set_color(surface, red, green, blue, alpha);
 325 }
 326
 327 WL_EXPORT void
 328 weston_surface_to_global_float(struct weston_surface *surface,
 329                                float sx, float sy, float *x, float *y)
 330 {
 331         if (surface->transform.enabled) {
 332                 struct weston_vector v = { { sx, sy, 0.0f, 1.0f } };
 333
 334                 weston_matrix_transform(&surface->transform.matrix, &v);
 335
 336                 if (fabsf(v.f[3]) < 1e-6) {
 337                         weston_log("warning: numerical instability in "
 338                                 "%s(), divisor = %g\n", __func__,
 339                                 v.f[3]);
 340                         *x = 0;
 341                         *y = 0;
 342                         return;
 343                 }
 344
 345                 *x = v.f[0] / v.f[3];
 346                 *y = v.f[1] / v.f[3];
 347         } else {
 348                 *x = sx + surface->geometry.x;
 349                 *y = sy + surface->geometry.y;
 350         }
 351 }
 352
 353 WL_EXPORT void
 354 weston_transformed_coord(int width, int height,
 355                          enum wl_output_transform transform,
 356                          float sx, float sy, float *bx, float *by)
 357 {
 358         switch (transform) {
 359         case WL_OUTPUT_TRANSFORM_NORMAL:
 360         default:
 361                 *bx = sx;
 362                 *by = sy;
 363                 break;
 364         case WL_OUTPUT_TRANSFORM_FLIPPED:
 365                 *bx = width - sx;
 366                 *by = sy;
 367                 break;
 368         case WL_OUTPUT_TRANSFORM_90:
 369                 *bx = height - sy;
 370                 *by = sx;
 371                 break;
 372         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
 373                 *bx = height - sy;
 374                 *by = width - sx;
 375                 break;
 376         case WL_OUTPUT_TRANSFORM_180:
 377                 *bx = width - sx;
 378                 *by = height - sy;
 379                 break;
 380         case WL_OUTPUT_TRANSFORM_FLIPPED_180:
 381                 *bx = sx;
 382                 *by = height - sy;
 383                 break;
 384         case WL_OUTPUT_TRANSFORM_270:
 385                 *bx = sy;
 386                 *by = width - sx;
 387                 break;
 388         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
 389                 *bx = sy;
 390                 *by = sx;
 391                 break;
 392         }
 393 }
 394
 395 WL_EXPORT pixman_box32_t
 396 weston_transformed_rect(int width, int height,
 397                         enum wl_output_transform transform,
 398                         pixman_box32_t rect)
 399 {
 400         float x1, x2, y1, y2;
 401
 402         pixman_box32_t ret;
 403
 404         weston_transformed_coord(width, height, transform,
 405                                  rect.x1, rect.y1, &x1, &y1);
 406         weston_transformed_coord(width, height, transform,
 407                                  rect.x2, rect.y2, &x2, &y2);
 408
 409         if (x1 <= x2) {
 410                 ret.x1 = x1;
 411                 ret.x2 = x2;
 412         } else {
 413                 ret.x1 = x2;
 414                 ret.x2 = x1;
 415         }
 416
 417         if (y1 <= y2) {
 418                 ret.y1 = y1;
 419                 ret.y2 = y2;
 420         } else {
 421                 ret.y1 = y2;
 422                 ret.y2 = y1;
 423         }
 424
 425         return ret;
 426 }
 427
 428 WL_EXPORT void
 429 weston_surface_to_buffer_float(struct weston_surface *surface,
 430                                float sx, float sy, float *bx, float *by)
 431 {
 432         weston_transformed_coord(surface->geometry.width,
 433                                  surface->geometry.height,
 434                                  surface->buffer_transform,
 435                                  sx, sy, bx, by);
 436 }
 437
 438 WL_EXPORT pixman_box32_t
 439 weston_surface_to_buffer_rect(struct weston_surface *surface,
 440                               pixman_box32_t rect)
 441 {
 442         return weston_transformed_rect(surface->geometry.width,
 443                                        surface->geometry.height,
 444                                        surface->buffer_transform, rect);
 445 }
 446
 447 WL_EXPORT void
 448 weston_surface_move_to_plane(struct weston_surface *surface,
 449                              struct weston_plane *plane)
 450 {
 451         if (surface->plane == plane)
 452                 return;
 453
 454         weston_surface_damage_below(surface);
 455         surface->plane = plane;
 456         weston_surface_damage(surface);
 457 }
 458
 459 WL_EXPORT void
 460 weston_surface_damage_below(struct weston_surface *surface)
 461 {
 462         pixman_region32_t damage;
 463
 464         pixman_region32_init(&damage);
 465         pixman_region32_subtract(&damage, &surface->transform.boundingbox,
 466                                  &surface->clip);
 467         pixman_region32_union(&surface->plane->damage,
 468                               &surface->plane->damage, &damage);
 469         pixman_region32_fini(&damage);
 470 }
 471
 472 static struct wl_resource *
 473 find_resource_for_client(struct wl_list *list, struct wl_client *client)
 474 {
 475         struct wl_resource *r;
 476
 477         wl_list_for_each(r, list, link) {
 478                 if (r->client == client)
 479                         return r;
 480         }
 481
 482         return NULL;
 483 }
 484
 485 static void
 486 weston_surface_update_output_mask(struct weston_surface *es, uint32_t mask)
 487 {
 488         uint32_t different = es->output_mask ^ mask;
 489         uint32_t entered = mask & different;
 490         uint32_t left = es->output_mask & different;
 491         struct weston_output *output;
 492         struct wl_resource *resource = NULL;
 493         struct wl_client *client = es->surface.resource.client;
 494
 495         es->output_mask = mask;
 496         if (es->surface.resource.client == NULL)
 497                 return;
 498         if (different == 0)
 499                 return;
 500
 501         wl_list_for_each(output, &es->compositor->output_list, link) {
 502                 if (1 << output->id & different)
 503                         resource =
 504                                 find_resource_for_client(&output->resource_list,
 505                                                          client);
 506                 if (resource == NULL)
 507                         continue;
 508                 if (1 << output->id & entered)
 509                         wl_surface_send_enter(&es->surface.resource, resource);
 510                 if (1 << output->id & left)
 511                         wl_surface_send_leave(&es->surface.resource, resource);
 512         }
 513 }
 514
 515 static void
 516 weston_surface_assign_output(struct weston_surface *es)
 517 {
 518         struct weston_compositor *ec = es->compositor;
 519         struct weston_output *output, *new_output;
 520         pixman_region32_t region;
 521         uint32_t max, area, mask;
 522         pixman_box32_t *e;
 523
 524         new_output = NULL;
 525         max = 0;
 526         mask = 0;
 527         pixman_region32_init(&region);
 528         wl_list_for_each(output, &ec->output_list, link) {
 529                 pixman_region32_intersect(&region, &es->transform.boundingbox,
 530                                           &output->region);
 531
 532                 e = pixman_region32_extents(&region);
 533                 area = (e->x2 - e->x1) * (e->y2 - e->y1);
 534
 535                 if (area > 0)
 536                         mask |= 1 << output->id;
 537
 538                 if (area >= max) {
 539                         new_output = output;
 540                         max = area;
 541                 }
 542         }
 543         pixman_region32_fini(&region);
 544
 545         es->output = new_output;
 546         weston_surface_update_output_mask(es, mask);
 547 }
 548
 549 static void
 550 surface_compute_bbox(struct weston_surface *surface, int32_t sx, int32_t sy,
 551                      int32_t width, int32_t height,
 552                      pixman_region32_t *bbox)
 553 {
 554         float min_x = HUGE_VALF,  min_y = HUGE_VALF;
 555         float max_x = -HUGE_VALF, max_y = -HUGE_VALF;
 556         int32_t s[4][2] = {
 557                 { sx,         sy },
 558                 { sx,         sy + height },
 559                 { sx + width, sy },
 560                 { sx + width, sy + height }
 561         };
 562         float int_x, int_y;
 563         int i;
 564
 565         if (width == 0 || height == 0) {
 566                 /* avoid rounding empty bbox to 1x1 */
 567                 pixman_region32_init(bbox);
 568                 return;
 569         }
 570
 571         for (i = 0; i < 4; ++i) {
 572                 float x, y;
 573                 weston_surface_to_global_float(surface,
 574                                                s[i][0], s[i][1], &x, &y);
 575                 if (x < min_x)
 576                         min_x = x;
 577                 if (x > max_x)
 578                         max_x = x;
 579                 if (y < min_y)
 580                         min_y = y;
 581                 if (y > max_y)
 582                         max_y = y;
 583         }
 584
 585         int_x = floorf(min_x);
 586         int_y = floorf(min_y);
 587         pixman_region32_init_rect(bbox, int_x, int_y,
 588                                   ceilf(max_x) - int_x, ceilf(max_y) - int_y);
 589 }
 590
 591 static void
 592 weston_surface_update_transform_disable(struct weston_surface *surface)
 593 {
 594         surface->transform.enabled = 0;
 595
 596         /* round off fractions when not transformed */
 597         surface->geometry.x = roundf(surface->geometry.x);
 598         surface->geometry.y = roundf(surface->geometry.y);
 599
 600         /* Otherwise identity matrix, but with x and y translation. */
 601         surface->transform.position.matrix.type = WESTON_MATRIX_TRANSFORM_TRANSLATE;
 602         surface->transform.position.matrix.d[12] = surface->geometry.x;
 603         surface->transform.position.matrix.d[13] = surface->geometry.y;
 604
 605         surface->transform.matrix = surface->transform.position.matrix;
 606
 607         surface->transform.inverse = surface->transform.position.matrix;
 608         surface->transform.inverse.d[12] = -surface->geometry.x;
 609         surface->transform.inverse.d[13] = -surface->geometry.y;
 610
 611         pixman_region32_init_rect(&surface->transform.boundingbox,
 612                                   surface->geometry.x,
 613                                   surface->geometry.y,
 614                                   surface->geometry.width,
 615                                   surface->geometry.height);
 616
 617         if (surface->alpha == 1.0) {
 618                 pixman_region32_copy(&surface->transform.opaque,
 619                                      &surface->opaque);
 620                 pixman_region32_translate(&surface->transform.opaque,
 621                                           surface->geometry.x,
 622                                           surface->geometry.y);
 623         }
 624 }
 625
 626 static int
 627 weston_surface_update_transform_enable(struct weston_surface *surface)
 628 {
 629         struct weston_surface *parent = surface->geometry.parent;
 630         struct weston_matrix *matrix = &surface->transform.matrix;
 631         struct weston_matrix *inverse = &surface->transform.inverse;
 632         struct weston_transform *tform;
 633
 634         surface->transform.enabled = 1;
 635
 636         /* Otherwise identity matrix, but with x and y translation. */
 637         surface->transform.position.matrix.type = WESTON_MATRIX_TRANSFORM_TRANSLATE;
 638         surface->transform.position.matrix.d[12] = surface->geometry.x;
 639         surface->transform.position.matrix.d[13] = surface->geometry.y;
 640
 641         weston_matrix_init(matrix);
 642         wl_list_for_each(tform, &surface->geometry.transformation_list, link)
 643                 weston_matrix_multiply(matrix, &tform->matrix);
 644
 645         if (parent)
 646                 weston_matrix_multiply(matrix, &parent->transform.matrix);
 647
 648         if (weston_matrix_invert(inverse, matrix) < 0) {
 649                 /* Oops, bad total transformation, not invertible */
 650                 weston_log("error: weston_surface %p"
 651                         " transformation not invertible.\n", surface);
 652                 return -1;
 653         }
 654
 655         surface_compute_bbox(surface, 0, 0, surface->geometry.width,
 656                              surface->geometry.height,
 657                              &surface->transform.boundingbox);
 658
 659         return 0;
 660 }
 661
 662 WL_EXPORT void
 663 weston_surface_update_transform(struct weston_surface *surface)
 664 {
 665         struct weston_surface *parent = surface->geometry.parent;
 666
 667         if (!surface->transform.dirty)
 668                 return;
 669
 670         if (parent)
 671                 weston_surface_update_transform(parent);
 672
 673         surface->transform.dirty = 0;
 674
 675         weston_surface_damage_below(surface);
 676
 677         pixman_region32_fini(&surface->transform.boundingbox);
 678         pixman_region32_fini(&surface->transform.opaque);
 679         pixman_region32_init(&surface->transform.opaque);
 680
 681         /* transform.position is always in transformation_list */
 682         if (surface->geometry.transformation_list.next ==
 683             &surface->transform.position.link &&
 684             surface->geometry.transformation_list.prev ==
 685             &surface->transform.position.link &&
 686             !parent) {
 687                 weston_surface_update_transform_disable(surface);
 688         } else {
 689                 if (weston_surface_update_transform_enable(surface) < 0)
 690                         weston_surface_update_transform_disable(surface);
 691         }
 692
 693         weston_surface_damage_below(surface);
 694
 695         weston_surface_assign_output(surface);
 696 }
 697
 698 WL_EXPORT void
 699 weston_surface_geometry_dirty(struct weston_surface *surface)
 700 {
 701         struct weston_surface *child;
 702
 703         /*
 704          * The invariant: if surface->geometry.dirty, then all surfaces
 705          * in surface->geometry.child_list have geometry.dirty too.
 706          * Corollary: if not parent->geometry.dirty, then all ancestors
 707          * are not dirty.
 708          */
 709
 710         if (surface->transform.dirty)
 711                 return;
 712
 713         surface->transform.dirty = 1;
 714
 715         wl_list_for_each(child, &surface->geometry.child_list,
 716                          geometry.parent_link)
 717                 weston_surface_geometry_dirty(child);
 718 }
 719
 720 WL_EXPORT void
 721 weston_surface_to_global_fixed(struct weston_surface *surface,
 722                                wl_fixed_t sx, wl_fixed_t sy,
 723                                wl_fixed_t *x, wl_fixed_t *y)
 724 {
 725         float xf, yf;
 726
 727         weston_surface_to_global_float(surface,
 728                                        wl_fixed_to_double(sx),
 729                                        wl_fixed_to_double(sy),
 730                                        &xf, &yf);
 731         *x = wl_fixed_from_double(xf);
 732         *y = wl_fixed_from_double(yf);
 733 }
 734
 735 WL_EXPORT void
 736 weston_surface_from_global_float(struct weston_surface *surface,
 737                                  float x, float y, float *sx, float *sy)
 738 {
 739         if (surface->transform.enabled) {
 740                 struct weston_vector v = { { x, y, 0.0f, 1.0f } };
 741
 742                 weston_matrix_transform(&surface->transform.inverse, &v);
 743
 744                 if (fabsf(v.f[3]) < 1e-6) {
 745                         weston_log("warning: numerical instability in "
 746                                 "weston_surface_from_global(), divisor = %g\n",
 747                                 v.f[3]);
 748                         *sx = 0;
 749                         *sy = 0;
 750                         return;
 751                 }
 752
 753                 *sx = v.f[0] / v.f[3];
 754                 *sy = v.f[1] / v.f[3];
 755         } else {
 756                 *sx = x - surface->geometry.x;
 757                 *sy = y - surface->geometry.y;
 758         }
 759 }
 760
 761 WL_EXPORT void
 762 weston_surface_from_global_fixed(struct weston_surface *surface,
 763                                  wl_fixed_t x, wl_fixed_t y,
 764                                  wl_fixed_t *sx, wl_fixed_t *sy)
 765 {
 766         float sxf, syf;
 767
 768         weston_surface_from_global_float(surface,
 769                                          wl_fixed_to_double(x),
 770                                          wl_fixed_to_double(y),
 771                                          &sxf, &syf);
 772         *sx = wl_fixed_from_double(sxf);
 773         *sy = wl_fixed_from_double(syf);
 774 }
 775
 776 WL_EXPORT void
 777 weston_surface_from_global(struct weston_surface *surface,
 778                            int32_t x, int32_t y, int32_t *sx, int32_t *sy)
 779 {
 780         float sxf, syf;
 781
 782         weston_surface_from_global_float(surface, x, y, &sxf, &syf);
 783         *sx = floorf(sxf);
 784         *sy = floorf(syf);
 785 }
 786
 787 WL_EXPORT void
 788 weston_surface_schedule_repaint(struct weston_surface *surface)
 789 {
 790         struct weston_output *output;
 791
 792         wl_list_for_each(output, &surface->compositor->output_list, link)
 793                 if (surface->output_mask & (1 << output->id))
 794                         weston_output_schedule_repaint(output);
 795 }
 796
 797 WL_EXPORT void
 798 weston_surface_damage(struct weston_surface *surface)
 799 {
 800         pixman_region32_union_rect(&surface->damage, &surface->damage,
 801                                    0, 0, surface->geometry.width,
 802                                    surface->geometry.height);
 803
 804         weston_surface_schedule_repaint(surface);
 805 }
 806
 807 WL_EXPORT void
 808 weston_surface_configure(struct weston_surface *surface,
 809                          float x, float y, int width, int height)
 810 {
 811         surface->geometry.x = x;
 812         surface->geometry.y = y;
 813         surface->geometry.width = width;
 814         surface->geometry.height = height;
 815         weston_surface_geometry_dirty(surface);
 816 }
 817
 818 WL_EXPORT void
 819 weston_surface_set_position(struct weston_surface *surface,
 820                             float x, float y)
 821 {
 822         surface->geometry.x = x;
 823         surface->geometry.y = y;
 824         weston_surface_geometry_dirty(surface);
 825 }
 826
 827 static void
 828 transform_parent_handle_parent_destroy(struct wl_listener *listener,
 829                                        void *data)
 830 {
 831         struct weston_surface *surface =
 832                 container_of(listener, struct weston_surface,
 833                              geometry.parent_destroy_listener);
 834
 835         weston_surface_set_transform_parent(surface, NULL);
 836 }
 837
 838 WL_EXPORT void
 839 weston_surface_set_transform_parent(struct weston_surface *surface,
 840                                     struct weston_surface *parent)
 841 {
 842         if (surface->geometry.parent) {
 843                 wl_list_remove(&surface->geometry.parent_destroy_listener.link);
 844                 wl_list_remove(&surface->geometry.parent_link);
 845         }
 846
 847         surface->geometry.parent = parent;
 848
 849         surface->geometry.parent_destroy_listener.notify =
 850                 transform_parent_handle_parent_destroy;
 851         if (parent) {
 852                 wl_signal_add(&parent->surface.resource.destroy_signal,
 853                               &surface->geometry.parent_destroy_listener);
 854                 wl_list_insert(&parent->geometry.child_list,
 855                                &surface->geometry.parent_link);
 856         }
 857
 858         weston_surface_geometry_dirty(surface);
 859 }
 860
 861 WL_EXPORT int
 862 weston_surface_is_mapped(struct weston_surface *surface)
 863 {
 864         if (surface->output)
 865                 return 1;
 866         else
 867                 return 0;
 868 }
 869
 870 WL_EXPORT int32_t
 871 weston_surface_buffer_width(struct weston_surface *surface)
 872 {
 873         switch (surface->buffer_transform) {
 874         case WL_OUTPUT_TRANSFORM_90:
 875         case WL_OUTPUT_TRANSFORM_270:
 876         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
 877         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
 878                 return surface->buffer_ref.buffer->height;
 879         default:
 880                 return surface->buffer_ref.buffer->width;
 881         }
 882 }
 883
 884 WL_EXPORT int32_t
 885 weston_surface_buffer_height(struct weston_surface *surface)
 886 {
 887         switch (surface->buffer_transform) {
 888         case WL_OUTPUT_TRANSFORM_90:
 889         case WL_OUTPUT_TRANSFORM_270:
 890         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
 891         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
 892                 return surface->buffer_ref.buffer->width;
 893         default:
 894                 return surface->buffer_ref.buffer->height;
 895         }
 896 }
 897
 898 WL_EXPORT uint32_t
 899 weston_compositor_get_time(void)
 900 {
 901        struct timeval tv;
 902
 903        gettimeofday(&tv, NULL);
 904
 905        return tv.tv_sec * 1000 + tv.tv_usec / 1000;
 906 }
 907
 908 struct weston_surface *
 909 weston_compositor_pick_surface(struct weston_compositor *compositor,
 910                                wl_fixed_t x, wl_fixed_t y,
 911                                wl_fixed_t *sx, wl_fixed_t *sy)
 912 {
 913         struct weston_surface *surface;
 914
 915         wl_list_for_each(surface, &compositor->surface_list, link) {
 916                 weston_surface_from_global_fixed(surface, x, y, sx, sy);
 917                 if (pixman_region32_contains_point(&surface->input,
 918                                                    wl_fixed_to_int(*sx),
 919                                                    wl_fixed_to_int(*sy),
 920                                                    NULL))
 921                         return surface;
 922         }
 923
 924         return NULL;
 925 }
 926
 927 static void
 928 weston_compositor_repick(struct weston_compositor *compositor)
 929 {
 930         struct weston_seat *seat;
 931
 932         if (!compositor->focus)
 933                 return;
 934
 935         wl_list_for_each(seat, &compositor->seat_list, link)
 936                 weston_seat_repick(seat);
 937 }
 938
 939 WL_EXPORT void
 940 weston_surface_unmap(struct weston_surface *surface)
 941 {
 942         struct weston_seat *seat;
 943
 944         weston_surface_damage_below(surface);
 945         surface->output = NULL;
 946         wl_list_remove(&surface->layer_link);
 947
 948         wl_list_for_each(seat, &surface->compositor->seat_list, link) {
 949                 if (seat->seat.keyboard &&
 950                     seat->seat.keyboard->focus == &surface->surface)
 951                         weston_keyboard_set_focus(seat->seat.keyboard, NULL);
 952                 if (seat->seat.pointer &&
 953                     seat->seat.pointer->focus == &surface->surface)
 954                         wl_pointer_set_focus(seat->seat.pointer,
 955                                              NULL,
 956                                              wl_fixed_from_int(0),
 957                                              wl_fixed_from_int(0));
 958         }
 959
 960         weston_surface_schedule_repaint(surface);
 961 }
 962
 963 struct weston_frame_callback {
 964         struct wl_resource resource;
 965         struct wl_list link;
 966 };
 967
 968 static void
 969 destroy_surface(struct wl_resource *resource)
 970 {
 971         struct weston_surface *surface =
 972                 container_of(resource,
 973                              struct weston_surface, surface.resource);
 974         struct weston_compositor *compositor = surface->compositor;
 975         struct weston_frame_callback *cb, *next;
 976
 977         assert(wl_list_empty(&surface->geometry.child_list));
 978
 979         if (weston_surface_is_mapped(surface))
 980                 weston_surface_unmap(surface);
 981
 982         wl_list_for_each_safe(cb, next,
 983                               &surface->pending.frame_callback_list, link)
 984                 wl_resource_destroy(&cb->resource);
 985
 986         pixman_region32_fini(&surface->pending.input);
 987         pixman_region32_fini(&surface->pending.opaque);
 988         pixman_region32_fini(&surface->pending.damage);
 989
 990         if (surface->pending.buffer)
 991                 wl_list_remove(&surface->pending.buffer_destroy_listener.link);
 992
 993         weston_buffer_reference(&surface->buffer_ref, NULL);
 994
 995         compositor->renderer->destroy_surface(surface);
 996
 997         pixman_region32_fini(&surface->transform.boundingbox);
 998         pixman_region32_fini(&surface->damage);
 999         pixman_region32_fini(&surface->opaque);
1000         pixman_region32_fini(&surface->clip);
1001         pixman_region32_fini(&surface->input);
1002
1003         wl_list_for_each_safe(cb, next, &surface->frame_callback_list, link)
1004                 wl_resource_destroy(&cb->resource);
1005
1006         weston_surface_set_transform_parent(surface, NULL);
1007
1008         free(surface);
1009 }
1010
1011 WL_EXPORT void
1012 weston_surface_destroy(struct weston_surface *surface)
1013 {
1014         /* Not a valid way to destroy a client surface */
1015         assert(surface->surface.resource.client == NULL);
1016
1017         wl_signal_emit(&surface->surface.resource.destroy_signal,
1018                        &surface->surface.resource);
1019         destroy_surface(&surface->surface.resource);
1020 }
1021
1022 static void
1023 weston_buffer_reference_handle_destroy(struct wl_listener *listener,
1024                                        void *data)
1025 {
1026         struct weston_buffer_reference *ref =
1027                 container_of(listener, struct weston_buffer_reference,
1028                              destroy_listener);
1029
1030         assert((struct wl_buffer *)data == ref->buffer);
1031         ref->buffer = NULL;
1032 }
1033
1034 WL_EXPORT void
1035 weston_buffer_reference(struct weston_buffer_reference *ref,
1036                         struct wl_buffer *buffer)
1037 {
1038         if (ref->buffer && buffer != ref->buffer) {
1039                 ref->buffer->busy_count--;
1040                 if (ref->buffer->busy_count == 0) {
1041                         assert(ref->buffer->resource.client != NULL);
1042                         wl_resource_queue_event(&ref->buffer->resource,
1043                                                 WL_BUFFER_RELEASE);
1044                 }
1045                 wl_list_remove(&ref->destroy_listener.link);
1046         }
1047
1048         if (buffer && buffer != ref->buffer) {
1049                 buffer->busy_count++;
1050                 wl_signal_add(&buffer->resource.destroy_signal,
1051                               &ref->destroy_listener);
1052         }
1053
1054         ref->buffer = buffer;
1055         ref->destroy_listener.notify = weston_buffer_reference_handle_destroy;
1056 }
1057
1058 static void
1059 weston_surface_attach(struct weston_surface *surface, struct wl_buffer *buffer)
1060 {
1061         weston_buffer_reference(&surface->buffer_ref, buffer);
1062
1063         if (!buffer) {
1064                 if (weston_surface_is_mapped(surface))
1065                         weston_surface_unmap(surface);
1066         }
1067
1068         surface->compositor->renderer->attach(surface, buffer);
1069 }
1070
1071 WL_EXPORT void
1072 weston_surface_restack(struct weston_surface *surface, struct wl_list *below)
1073 {
1074         wl_list_remove(&surface->layer_link);
1075         wl_list_insert(below, &surface->layer_link);
1076         weston_surface_damage_below(surface);
1077         weston_surface_damage(surface);
1078 }
1079
1080 WL_EXPORT void
1081 weston_compositor_damage_all(struct weston_compositor *compositor)
1082 {
1083         struct weston_output *output;
1084
1085         wl_list_for_each(output, &compositor->output_list, link)
1086                 weston_output_damage(output);
1087 }
1088
1089 WL_EXPORT void
1090 weston_output_damage(struct weston_output *output)
1091 {
1092         struct weston_compositor *compositor = output->compositor;
1093
1094         pixman_region32_union(&compositor->primary_plane.damage,
1095                               &compositor->primary_plane.damage,
1096                               &output->region);
1097         weston_output_schedule_repaint(output);
1098 }
1099
1100 static void
1101 surface_accumulate_damage(struct weston_surface *surface,
1102                           pixman_region32_t *opaque)
1103 {
1104         if (surface->buffer_ref.buffer &&
1105             wl_buffer_is_shm(surface->buffer_ref.buffer))
1106                 surface->compositor->renderer->flush_damage(surface);
1107
1108         if (surface->transform.enabled) {
1109                 pixman_box32_t *extents;
1110
1111                 extents = pixman_region32_extents(&surface->damage);
1112                 surface_compute_bbox(surface, extents->x1, extents->y1,
1113                                      extents->x2 - extents->x1,
1114                                      extents->y2 - extents->y1,
1115                                      &surface->damage);
1116                 pixman_region32_translate(&surface->damage,
1117                                           -surface->plane->x,
1118                                           -surface->plane->y);
1119         } else {
1120                 pixman_region32_translate(&surface->damage,
1121                                           surface->geometry.x - surface->plane->x,
1122                                           surface->geometry.y - surface->plane->y);
1123         }
1124
1125         pixman_region32_subtract(&surface->damage, &surface->damage, opaque);
1126         pixman_region32_union(&surface->plane->damage,
1127                               &surface->plane->damage, &surface->damage);
1128         empty_region(&surface->damage);
1129         pixman_region32_copy(&surface->clip, opaque);
1130         pixman_region32_union(opaque, opaque, &surface->transform.opaque);
1131 }
1132
1133 static void
1134 compositor_accumulate_damage(struct weston_compositor *ec)
1135 {
1136         struct weston_plane *plane;
1137         struct weston_surface *es;
1138         pixman_region32_t opaque, clip;
1139
1140         pixman_region32_init(&clip);
1141
1142         wl_list_for_each(plane, &ec->plane_list, link) {
1143                 pixman_region32_copy(&plane->clip, &clip);
1144
1145                 pixman_region32_init(&opaque);
1146
1147                 wl_list_for_each(es, &ec->surface_list, link) {
1148                         if (es->plane != plane)
1149                                 continue;
1150
1151                         surface_accumulate_damage(es, &opaque);
1152                 }
1153
1154                 pixman_region32_union(&clip, &clip, &opaque);
1155                 pixman_region32_fini(&opaque);
1156         }
1157
1158         pixman_region32_fini(&clip);
1159
1160         wl_list_for_each(es, &ec->surface_list, link) {
1161                 /* Both the renderer and the backend have seen the buffer
1162                  * by now. If renderer needs the buffer, it has its own
1163                  * reference set. If the backend wants to keep the buffer
1164                  * around for migrating the surface into a non-primary plane
1165                  * later, keep_buffer is true. Otherwise, drop the core
1166                  * reference now, and allow early buffer release. This enables
1167                  * clients to use single-buffering.
1168                  */
1169                 if (!es->keep_buffer)
1170                         weston_buffer_reference(&es->buffer_ref, NULL);
1171         }
1172 }
1173
1174 static void
1175 weston_output_repaint(struct weston_output *output, uint32_t msecs)
1176 {
1177         struct weston_compositor *ec = output->compositor;
1178         struct weston_surface *es;
1179         struct weston_layer *layer;
1180         struct weston_animation *animation, *next;
1181         struct weston_frame_callback *cb, *cnext;
1182         struct wl_list frame_callback_list;
1183         pixman_region32_t output_damage;
1184
1185         weston_compositor_update_drag_surfaces(ec);
1186
1187         /* Rebuild the surface list and update surface transforms up front. */
1188         wl_list_init(&ec->surface_list);
1189         wl_list_init(&frame_callback_list);
1190         wl_list_for_each(layer, &ec->layer_list, link) {
1191                 wl_list_for_each(es, &layer->surface_list, layer_link) {
1192                         weston_surface_update_transform(es);
1193                         wl_list_insert(ec->surface_list.prev, &es->link);
1194                         if (es->output == output) {
1195                                 wl_list_insert_list(&frame_callback_list,
1196                                                     &es->frame_callback_list);
1197                                 wl_list_init(&es->frame_callback_list);
1198                         }
1199                 }
1200         }
1201
1202         if (output->assign_planes && !output->disable_planes)
1203                 output->assign_planes(output);
1204         else
1205                 wl_list_for_each(es, &ec->surface_list, link)
1206                         weston_surface_move_to_plane(es, &ec->primary_plane);
1207
1208         compositor_accumulate_damage(ec);
1209
1210         pixman_region32_init(&output_damage);
1211         pixman_region32_intersect(&output_damage,
1212                                   &ec->primary_plane.damage, &output->region);
1213         pixman_region32_subtract(&output_damage,
1214                                  &output_damage, &ec->primary_plane.clip);
1215
1216         if (output->dirty)
1217                 weston_output_update_matrix(output);
1218
1219         output->repaint(output, &output_damage);
1220
1221         pixman_region32_fini(&output_damage);
1222
1223         output->repaint_needed = 0;
1224
1225         weston_compositor_repick(ec);
1226         wl_event_loop_dispatch(ec->input_loop, 0);
1227
1228         wl_list_for_each_safe(cb, cnext, &frame_callback_list, link) {
1229                 wl_callback_send_done(&cb->resource, msecs);
1230                 wl_resource_destroy(&cb->resource);
1231         }
1232
1233         wl_list_for_each_safe(animation, next, &output->animation_list, link) {
1234                 animation->frame_counter++;
1235                 animation->frame(animation, output, msecs);
1236         }
1237 }
1238
1239 static int
1240 weston_compositor_read_input(int fd, uint32_t mask, void *data)
1241 {
1242         struct weston_compositor *compositor = data;
1243
1244         wl_event_loop_dispatch(compositor->input_loop, 0);
1245
1246         return 1;
1247 }
1248
1249 WL_EXPORT void
1250 weston_output_finish_frame(struct weston_output *output, uint32_t msecs)
1251 {
1252         struct weston_compositor *compositor = output->compositor;
1253         struct wl_event_loop *loop =
1254                 wl_display_get_event_loop(compositor->wl_display);
1255         int fd;
1256
1257         output->frame_time = msecs;
1258         if (output->repaint_needed) {
1259                 weston_output_repaint(output, msecs);
1260                 return;
1261         }
1262
1263         output->repaint_scheduled = 0;
1264         if (compositor->input_loop_source)
1265                 return;
1266
1267         fd = wl_event_loop_get_fd(compositor->input_loop);
1268         compositor->input_loop_source =
1269                 wl_event_loop_add_fd(loop, fd, WL_EVENT_READABLE,
1270                                      weston_compositor_read_input, compositor);
1271 }
1272
1273 static void
1274 idle_repaint(void *data)
1275 {
1276         struct weston_output *output = data;
1277
1278         output->start_repaint_loop(output);
1279 }
1280
1281 WL_EXPORT void
1282 weston_layer_init(struct weston_layer *layer, struct wl_list *below)
1283 {
1284         wl_list_init(&layer->surface_list);
1285         if (below != NULL)
1286                 wl_list_insert(below, &layer->link);
1287 }
1288
1289 WL_EXPORT void
1290 weston_output_schedule_repaint(struct weston_output *output)
1291 {
1292         struct weston_compositor *compositor = output->compositor;
1293         struct wl_event_loop *loop;
1294
1295         if (compositor->state == WESTON_COMPOSITOR_SLEEPING ||
1296             compositor->state == WESTON_COMPOSITOR_OFFSCREEN)
1297                 return;
1298
1299         loop = wl_display_get_event_loop(compositor->wl_display);
1300         output->repaint_needed = 1;
1301         if (output->repaint_scheduled)
1302                 return;
1303
1304         wl_event_loop_add_idle(loop, idle_repaint, output);
1305         output->repaint_scheduled = 1;
1306
1307         if (compositor->input_loop_source) {
1308                 wl_event_source_remove(compositor->input_loop_source);
1309                 compositor->input_loop_source = NULL;
1310         }
1311 }
1312
1313 WL_EXPORT void
1314 weston_compositor_schedule_repaint(struct weston_compositor *compositor)
1315 {
1316         struct weston_output *output;
1317
1318         wl_list_for_each(output, &compositor->output_list, link)
1319                 weston_output_schedule_repaint(output);
1320 }
1321
1322 static void
1323 surface_destroy(struct wl_client *client, struct wl_resource *resource)
1324 {
1325         wl_resource_destroy(resource);
1326 }
1327
1328 static void
1329 surface_attach(struct wl_client *client,
1330                struct wl_resource *resource,
1331                struct wl_resource *buffer_resource, int32_t sx, int32_t sy)
1332 {
1333         struct weston_surface *surface = resource->data;
1334         struct wl_buffer *buffer = NULL;
1335
1336         if (buffer_resource)
1337                 buffer = buffer_resource->data;
1338
1339         /* Attach, attach, without commit in between does not send
1340          * wl_buffer.release. */
1341         if (surface->pending.buffer)
1342                 wl_list_remove(&surface->pending.buffer_destroy_listener.link);
1343
1344         surface->pending.sx = sx;
1345         surface->pending.sy = sy;
1346         surface->pending.buffer = buffer;
1347         surface->pending.newly_attached = 1;
1348         if (buffer) {
1349                 wl_signal_add(&buffer->resource.destroy_signal,
1350                               &surface->pending.buffer_destroy_listener);
1351         }
1352 }
1353
1354 static void
1355 surface_damage(struct wl_client *client,
1356                struct wl_resource *resource,
1357                int32_t x, int32_t y, int32_t width, int32_t height)
1358 {
1359         struct weston_surface *surface = resource->data;
1360
1361         pixman_region32_union_rect(&surface->pending.damage,
1362                                    &surface->pending.damage,
1363                                    x, y, width, height);
1364 }
1365
1366 static void
1367 destroy_frame_callback(struct wl_resource *resource)
1368 {
1369         struct weston_frame_callback *cb = resource->data;
1370
1371         wl_list_remove(&cb->link);
1372         free(cb);
1373 }
1374
1375 static void
1376 surface_frame(struct wl_client *client,
1377               struct wl_resource *resource, uint32_t callback)
1378 {
1379         struct weston_frame_callback *cb;
1380         struct weston_surface *surface = resource->data;
1381
1382         cb = malloc(sizeof *cb);
1383         if (cb == NULL) {
1384                 wl_resource_post_no_memory(resource);
1385                 return;
1386         }
1387
1388         cb->resource.object.interface = &wl_callback_interface;
1389         cb->resource.object.id = callback;
1390         cb->resource.destroy = destroy_frame_callback;
1391         cb->resource.client = client;
1392         cb->resource.data = cb;
1393
1394         wl_client_add_resource(client, &cb->resource);
1395         wl_list_insert(surface->pending.frame_callback_list.prev, &cb->link);
1396 }
1397
1398 static void
1399 surface_set_opaque_region(struct wl_client *client,
1400                           struct wl_resource *resource,
1401                           struct wl_resource *region_resource)
1402 {
1403         struct weston_surface *surface = resource->data;
1404         struct weston_region *region;
1405
1406         if (region_resource) {
1407                 region = region_resource->data;
1408                 pixman_region32_copy(&surface->pending.opaque,
1409                                      &region->region);
1410         } else {
1411                 empty_region(&surface->pending.opaque);
1412         }
1413 }
1414
1415 static void
1416 surface_set_input_region(struct wl_client *client,
1417                          struct wl_resource *resource,
1418                          struct wl_resource *region_resource)
1419 {
1420         struct weston_surface *surface = resource->data;
1421         struct weston_region *region;
1422
1423         if (region_resource) {
1424                 region = region_resource->data;
1425                 pixman_region32_copy(&surface->pending.input,
1426                                      &region->region);
1427         } else {
1428                 pixman_region32_fini(&surface->pending.input);
1429                 region_init_infinite(&surface->pending.input);
1430         }
1431 }
1432
1433 static void
1434 surface_commit(struct wl_client *client, struct wl_resource *resource)
1435 {
1436         struct weston_surface *surface = resource->data;
1437         pixman_region32_t opaque;
1438         int buffer_width = 0;
1439         int buffer_height = 0;
1440
1441         /* wl_surface.set_buffer_rotation */
1442         surface->buffer_transform = surface->pending.buffer_transform;
1443
1444         /* wl_surface.attach */
1445         if (surface->pending.buffer || surface->pending.newly_attached)
1446                 weston_surface_attach(surface, surface->pending.buffer);
1447
1448         if (surface->buffer_ref.buffer) {
1449                 buffer_width = weston_surface_buffer_width(surface);
1450                 buffer_height = weston_surface_buffer_height(surface);
1451         }
1452
1453         if (surface->configure && surface->pending.newly_attached)
1454                 surface->configure(surface,
1455                                    surface->pending.sx, surface->pending.sy,
1456                                    buffer_width, buffer_height);
1457
1458         if (surface->pending.buffer)
1459                 wl_list_remove(&surface->pending.buffer_destroy_listener.link);
1460         surface->pending.buffer = NULL;
1461         surface->pending.sx = 0;
1462         surface->pending.sy = 0;
1463         surface->pending.newly_attached = 0;
1464
1465         /* wl_surface.damage */
1466         pixman_region32_union(&surface->damage, &surface->damage,
1467                               &surface->pending.damage);
1468         pixman_region32_intersect_rect(&surface->damage, &surface->damage,
1469                                        0, 0,
1470                                        surface->geometry.width,
1471                                        surface->geometry.height);
1472         empty_region(&surface->pending.damage);
1473
1474         /* wl_surface.set_opaque_region */
1475         pixman_region32_init_rect(&opaque, 0, 0,
1476                                   surface->geometry.width,
1477                                   surface->geometry.height);
1478         pixman_region32_intersect(&opaque,
1479                                   &opaque, &surface->pending.opaque);
1480
1481         if (!pixman_region32_equal(&opaque, &surface->opaque)) {
1482                 pixman_region32_copy(&surface->opaque, &opaque);
1483                 weston_surface_geometry_dirty(surface);
1484         }
1485
1486         pixman_region32_fini(&opaque);
1487
1488         /* wl_surface.set_input_region */
1489         pixman_region32_fini(&surface->input);
1490         pixman_region32_init_rect(&surface->input, 0, 0,
1491                                   surface->geometry.width,
1492                                   surface->geometry.height);
1493         pixman_region32_intersect(&surface->input,
1494                                   &surface->input, &surface->pending.input);
1495
1496         /* wl_surface.frame */
1497         wl_list_insert_list(&surface->frame_callback_list,
1498                             &surface->pending.frame_callback_list);
1499         wl_list_init(&surface->pending.frame_callback_list);
1500
1501         weston_surface_schedule_repaint(surface);
1502 }
1503
1504 static void
1505 surface_set_buffer_transform(struct wl_client *client,
1506                              struct wl_resource *resource, int transform)
1507 {
1508         struct weston_surface *surface = resource->data;
1509
1510         surface->pending.buffer_transform = transform;
1511 }
1512
1513 static const struct wl_surface_interface surface_interface = {
1514         surface_destroy,
1515         surface_attach,
1516         surface_damage,
1517         surface_frame,
1518         surface_set_opaque_region,
1519         surface_set_input_region,
1520         surface_commit,
1521         surface_set_buffer_transform
1522 };
1523
1524 static void
1525 compositor_create_surface(struct wl_client *client,
1526                           struct wl_resource *resource, uint32_t id)
1527 {
1528         struct weston_compositor *ec = resource->data;
1529         struct weston_surface *surface;
1530
1531         surface = weston_surface_create(ec);
1532         if (surface == NULL) {
1533                 wl_resource_post_no_memory(resource);
1534                 return;
1535         }
1536
1537         surface->surface.resource.destroy = destroy_surface;
1538
1539         surface->surface.resource.object.id = id;
1540         surface->surface.resource.object.interface = &wl_surface_interface;
1541         surface->surface.resource.object.implementation =
1542                 (void (**)(void)) &surface_interface;
1543         surface->surface.resource.data = surface;
1544
1545         wl_client_add_resource(client, &surface->surface.resource);
1546 }
1547
1548 static void
1549 destroy_region(struct wl_resource *resource)
1550 {
1551         struct weston_region *region =
1552                 container_of(resource, struct weston_region, resource);
1553
1554         pixman_region32_fini(&region->region);
1555         free(region);
1556 }
1557
1558 static void
1559 region_destroy(struct wl_client *client, struct wl_resource *resource)
1560 {
1561         wl_resource_destroy(resource);
1562 }
1563
1564 static void
1565 region_add(struct wl_client *client, struct wl_resource *resource,
1566            int32_t x, int32_t y, int32_t width, int32_t height)
1567 {
1568         struct weston_region *region = resource->data;
1569
1570         pixman_region32_union_rect(&region->region, &region->region,
1571                                    x, y, width, height);
1572 }
1573
1574 static void
1575 region_subtract(struct wl_client *client, struct wl_resource *resource,
1576                 int32_t x, int32_t y, int32_t width, int32_t height)
1577 {
1578         struct weston_region *region = resource->data;
1579         pixman_region32_t rect;
1580
1581         pixman_region32_init_rect(&rect, x, y, width, height);
1582         pixman_region32_subtract(&region->region, &region->region, &rect);
1583         pixman_region32_fini(&rect);
1584 }
1585
1586 static const struct wl_region_interface region_interface = {
1587         region_destroy,
1588         region_add,
1589         region_subtract
1590 };
1591
1592 static void
1593 compositor_create_region(struct wl_client *client,
1594                          struct wl_resource *resource, uint32_t id)
1595 {
1596         struct weston_region *region;
1597
1598         region = malloc(sizeof *region);
1599         if (region == NULL) {
1600                 wl_resource_post_no_memory(resource);
1601                 return;
1602         }
1603
1604         region->resource.destroy = destroy_region;
1605
1606         region->resource.object.id = id;
1607         region->resource.object.interface = &wl_region_interface;
1608         region->resource.object.implementation =
1609                 (void (**)(void)) &region_interface;
1610         region->resource.data = region;
1611
1612         pixman_region32_init(&region->region);
1613
1614         wl_client_add_resource(client, &region->resource);
1615 }
1616
1617 static const struct wl_compositor_interface compositor_interface = {
1618         compositor_create_surface,
1619         compositor_create_region
1620 };
1621
1622 static void
1623 weston_compositor_dpms(struct weston_compositor *compositor,
1624                        enum dpms_enum state)
1625 {
1626         struct weston_output *output;
1627
1628         wl_list_for_each(output, &compositor->output_list, link)
1629                 if (output->set_dpms)
1630                         output->set_dpms(output, state);
1631 }
1632
1633 WL_EXPORT void
1634 weston_compositor_wake(struct weston_compositor *compositor)
1635 {
1636         switch (compositor->state) {
1637         case WESTON_COMPOSITOR_SLEEPING:
1638                 weston_compositor_dpms(compositor, WESTON_DPMS_ON);
1639                 /* fall through */
1640         case WESTON_COMPOSITOR_IDLE:
1641         case WESTON_COMPOSITOR_OFFSCREEN:
1642                 wl_signal_emit(&compositor->wake_signal, compositor);
1643                 /* fall through */
1644         default:
1645                 compositor->state = WESTON_COMPOSITOR_ACTIVE;
1646                 wl_event_source_timer_update(compositor->idle_source,
1647                                              compositor->idle_time * 1000);
1648         }
1649 }
1650
1651 WL_EXPORT void
1652 weston_compositor_offscreen(struct weston_compositor *compositor)
1653 {
1654         switch (compositor->state) {
1655         case WESTON_COMPOSITOR_OFFSCREEN:
1656                 return;
1657         case WESTON_COMPOSITOR_SLEEPING:
1658                 weston_compositor_dpms(compositor, WESTON_DPMS_ON);
1659                 /* fall through */
1660         default:
1661                 compositor->state = WESTON_COMPOSITOR_OFFSCREEN;
1662                 wl_event_source_timer_update(compositor->idle_source, 0);
1663         }
1664 }
1665
1666 WL_EXPORT void
1667 weston_compositor_sleep(struct weston_compositor *compositor)
1668 {
1669         if (compositor->state == WESTON_COMPOSITOR_SLEEPING)
1670                 return;
1671
1672         wl_event_source_timer_update(compositor->idle_source, 0);
1673         compositor->state = WESTON_COMPOSITOR_SLEEPING;
1674         weston_compositor_dpms(compositor, WESTON_DPMS_OFF);
1675 }
1676
1677 static int
1678 idle_handler(void *data)
1679 {
1680         struct weston_compositor *compositor = data;
1681
1682         if (compositor->idle_inhibit)
1683                 return 1;
1684
1685         compositor->state = WESTON_COMPOSITOR_IDLE;
1686         wl_signal_emit(&compositor->idle_signal, compositor);
1687
1688         return 1;
1689 }
1690
1691 WL_EXPORT void
1692 weston_plane_init(struct weston_plane *plane, int32_t x, int32_t y)
1693 {
1694         pixman_region32_init(&plane->damage);
1695         pixman_region32_init(&plane->clip);
1696         plane->x = x;
1697         plane->y = y;
1698 }
1699
1700 WL_EXPORT void
1701 weston_plane_release(struct weston_plane *plane)
1702 {
1703         pixman_region32_fini(&plane->damage);
1704         pixman_region32_fini(&plane->clip);
1705 }
1706
1707 WL_EXPORT void
1708 weston_compositor_stack_plane(struct weston_compositor *ec,
1709                               struct weston_plane *plane,
1710                               struct weston_plane *above)
1711 {
1712         if (above)
1713                 wl_list_insert(above->link.prev, &plane->link);
1714         else
1715                 wl_list_insert(&ec->plane_list, &plane->link);
1716 }
1717
1718 static void unbind_resource(struct wl_resource *resource)
1719 {
1720         wl_list_remove(&resource->link);
1721         free(resource);
1722 }
1723
1724 static void
1725 bind_output(struct wl_client *client,
1726             void *data, uint32_t version, uint32_t id)
1727 {
1728         struct weston_output *output = data;
1729         struct weston_mode *mode;
1730         struct wl_resource *resource;
1731
1732         resource = wl_client_add_object(client,
1733                                         &wl_output_interface, NULL, id, data);
1734
1735         wl_list_insert(&output->resource_list, &resource->link);
1736         resource->destroy = unbind_resource;
1737
1738         wl_output_send_geometry(resource,
1739                                 output->x,
1740                                 output->y,
1741                                 output->mm_width,
1742                                 output->mm_height,
1743                                 output->subpixel,
1744                                 output->make, output->model,
1745                                 output->transform);
1746
1747         wl_list_for_each (mode, &output->mode_list, link) {
1748                 wl_output_send_mode(resource,
1749                                     mode->flags,
1750                                     mode->width,
1751                                     mode->height,
1752                                     mode->refresh);
1753         }
1754 }
1755
1756 WL_EXPORT void
1757 weston_output_destroy(struct weston_output *output)
1758 {
1759         struct weston_compositor *c = output->compositor;
1760
1761         wl_signal_emit(&output->destroy_signal, output);
1762
1763         free(output->name);
1764         pixman_region32_fini(&output->region);
1765         pixman_region32_fini(&output->previous_damage);
1766         output->compositor->output_id_pool &= ~(1 << output->id);
1767
1768         wl_display_remove_global(c->wl_display, output->global);
1769 }
1770
1771 static void
1772 weston_output_compute_transform(struct weston_output *output)
1773 {
1774         struct weston_matrix transform;
1775         int flip;
1776
1777         weston_matrix_init(&transform);
1778         transform.type = WESTON_MATRIX_TRANSFORM_ROTATE;
1779
1780         switch(output->transform) {
1781         case WL_OUTPUT_TRANSFORM_FLIPPED:
1782         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
1783         case WL_OUTPUT_TRANSFORM_FLIPPED_180:
1784         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
1785                 transform.type |= WESTON_MATRIX_TRANSFORM_OTHER;
1786                 flip = -1;
1787                 break;
1788         default:
1789                 flip = 1;
1790                 break;
1791         }
1792
1793         switch(output->transform) {
1794         case WL_OUTPUT_TRANSFORM_NORMAL:
1795         case WL_OUTPUT_TRANSFORM_FLIPPED:
1796                 transform.d[0] = flip;
1797                 transform.d[1] = 0;
1798                 transform.d[4] = 0;
1799                 transform.d[5] = 1;
1800                 break;
1801         case WL_OUTPUT_TRANSFORM_90:
1802         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
1803                 transform.d[0] = 0;
1804                 transform.d[1] = -flip;
1805                 transform.d[4] = 1;
1806                 transform.d[5] = 0;
1807                 break;
1808         case WL_OUTPUT_TRANSFORM_180:
1809         case WL_OUTPUT_TRANSFORM_FLIPPED_180:
1810                 transform.d[0] = -flip;
1811                 transform.d[1] = 0;
1812                 transform.d[4] = 0;
1813                 transform.d[5] = -1;
1814                 break;
1815         case WL_OUTPUT_TRANSFORM_270:
1816         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
1817                 transform.d[0] = 0;
1818                 transform.d[1] = flip;
1819                 transform.d[4] = -1;
1820                 transform.d[5] = 0;
1821                 break;
1822         default:
1823                 break;
1824         }
1825
1826         weston_matrix_multiply(&output->matrix, &transform);
1827 }
1828
1829 WL_EXPORT void
1830 weston_output_update_matrix(struct weston_output *output)
1831 {
1832         float magnification;
1833         struct weston_matrix camera;
1834         struct weston_matrix modelview;
1835
1836         weston_matrix_init(&output->matrix);
1837         weston_matrix_translate(&output->matrix,
1838                                 -(output->x + (output->border.right + output->width - output->border.left) / 2.0),
1839                                 -(output->y + (output->border.bottom + output->height - output->border.top) / 2.0), 0);
1840
1841         weston_matrix_scale(&output->matrix,
1842                             2.0 / (output->width + output->border.left + output->border.right),
1843                             -2.0 / (output->height + output->border.top + output->border.bottom), 1);
1844
1845         weston_output_compute_transform(output);
1846
1847         if (output->zoom.active) {
1848                 magnification = 1 / (1 - output->zoom.spring_z.current);
1849                 weston_matrix_init(&camera);
1850                 weston_matrix_init(&modelview);
1851                 weston_output_update_zoom(output, output->zoom.type);
1852                 weston_matrix_translate(&camera, output->zoom.trans_x,
1853                                         -output->zoom.trans_y, 0);
1854                 weston_matrix_invert(&modelview, &camera);
1855                 weston_matrix_scale(&modelview, magnification, magnification, 1.0);
1856                 weston_matrix_multiply(&output->matrix, &modelview);
1857         }
1858
1859         output->dirty = 0;
1860 }
1861
1862 static void
1863 weston_output_transform_init(struct weston_output *output, uint32_t transform)
1864 {
1865         output->transform = transform;
1866
1867         switch (transform) {
1868         case WL_OUTPUT_TRANSFORM_90:
1869         case WL_OUTPUT_TRANSFORM_270:
1870         case WL_OUTPUT_TRANSFORM_FLIPPED_90:
1871         case WL_OUTPUT_TRANSFORM_FLIPPED_270:
1872                 /* Swap width and height */
1873                 output->width = output->current->height;
1874                 output->height = output->current->width;
1875                 break;
1876         case WL_OUTPUT_TRANSFORM_NORMAL:
1877         case WL_OUTPUT_TRANSFORM_180:
1878         case WL_OUTPUT_TRANSFORM_FLIPPED:
1879         case WL_OUTPUT_TRANSFORM_FLIPPED_180:
1880                 output->width = output->current->width;
1881                 output->height = output->current->height;
1882                 break;
1883         default:
1884                 break;
1885         }
1886 }
1887
1888 WL_EXPORT void
1889 weston_output_move(struct weston_output *output, int x, int y)
1890 {
1891         output->x = x;
1892         output->y = y;
1893
1894         pixman_region32_init(&output->previous_damage);
1895         pixman_region32_init_rect(&output->region, x, y,
1896                                   output->width,
1897                                   output->height);
1898 }
1899
1900 WL_EXPORT void
1901 weston_output_init(struct weston_output *output, struct weston_compositor *c,
1902                    int x, int y, int width, int height, uint32_t transform)
1903 {
1904         output->compositor = c;
1905         output->x = x;
1906         output->y = y;
1907         output->border.top = 0;
1908         output->border.bottom = 0;
1909         output->border.left = 0;
1910         output->border.right = 0;
1911         output->mm_width = width;
1912         output->mm_height = height;
1913         output->dirty = 1;
1914
1915         weston_output_transform_init(output, transform);
1916         weston_output_init_zoom(output);
1917
1918         weston_output_move(output, x, y);
1919         weston_output_damage(output);
1920
1921         wl_signal_init(&output->frame_signal);
1922         wl_signal_init(&output->destroy_signal);
1923         wl_list_init(&output->animation_list);
1924         wl_list_init(&output->resource_list);
1925
1926         output->id = ffs(~output->compositor->output_id_pool) - 1;
1927         output->compositor->output_id_pool |= 1 << output->id;
1928
1929         output->global =
1930                 wl_display_add_global(c->wl_display, &wl_output_interface,
1931                                       output, bind_output);
1932         wl_signal_emit(&c->output_created_signal, output);
1933 }
1934
1935 static void
1936 compositor_bind(struct wl_client *client,
1937                 void *data, uint32_t version, uint32_t id)
1938 {
1939         struct weston_compositor *compositor = data;
1940
1941         wl_client_add_object(client, &wl_compositor_interface,
1942                              &compositor_interface, id, compositor);
1943 }
1944
1945 static void
1946 log_uname(void)
1947 {
1948         struct utsname usys;
1949
1950         uname(&usys);
1951
1952         weston_log("OS: %s, %s, %s, %s\n", usys.sysname, usys.release,
1953                                                 usys.version, usys.machine);
1954 }
1955
1956 WL_EXPORT int
1957 weston_environment_get_fd(const char *env)
1958 {
1959         char *e, *end;
1960         int fd, flags;
1961
1962         e = getenv(env);
1963         if (!e)
1964                 return -1;
1965         fd = strtol(e, &end, 0);
1966         if (*end != '\0')
1967                 return -1;
1968
1969         flags = fcntl(fd, F_GETFD);
1970         if (flags == -1)
1971                 return -1;
1972
1973         fcntl(fd, F_SETFD, flags | FD_CLOEXEC);
1974         unsetenv(env);
1975
1976         return fd;
1977 }
1978
1979 WL_EXPORT int
1980 weston_compositor_init(struct weston_compositor *ec,
1981                        struct wl_display *display,
1982                        int *argc, char *argv[],
1983                        const char *config_file)
1984 {
1985         struct wl_event_loop *loop;
1986         struct xkb_rule_names xkb_names;
1987         const struct config_key keyboard_config_keys[] = {
1988                 { "keymap_rules", CONFIG_KEY_STRING, &xkb_names.rules },
1989                 { "keymap_model", CONFIG_KEY_STRING, &xkb_names.model },
1990                 { "keymap_layout", CONFIG_KEY_STRING, &xkb_names.layout },
1991                 { "keymap_variant", CONFIG_KEY_STRING, &xkb_names.variant },
1992                 { "keymap_options", CONFIG_KEY_STRING, &xkb_names.options },
1993         };
1994         const struct config_section cs[] = {
1995                 { "keyboard",
1996                   keyboard_config_keys, ARRAY_LENGTH(keyboard_config_keys) },
1997         };
1998
1999         memset(&xkb_names, 0, sizeof(xkb_names));
2000         parse_config_file(config_file, cs, ARRAY_LENGTH(cs), ec);
2001
2002         ec->wl_display = display;
2003         wl_signal_init(&ec->destroy_signal);
2004         wl_signal_init(&ec->activate_signal);
2005         wl_signal_init(&ec->kill_signal);
2006         wl_signal_init(&ec->idle_signal);
2007         wl_signal_init(&ec->wake_signal);
2008         wl_signal_init(&ec->show_input_panel_signal);
2009         wl_signal_init(&ec->hide_input_panel_signal);
2010         wl_signal_init(&ec->update_input_panel_signal);
2011         wl_signal_init(&ec->seat_created_signal);
2012         wl_signal_init(&ec->output_created_signal);
2013         ec->launcher_sock = weston_environment_get_fd("WESTON_LAUNCHER_SOCK");
2014
2015         ec->output_id_pool = 0;
2016
2017         if (!wl_display_add_global(display, &wl_compositor_interface,
2018                                    ec, compositor_bind))
2019                 return -1;
2020
2021         wl_list_init(&ec->surface_list);
2022         wl_list_init(&ec->plane_list);
2023         wl_list_init(&ec->layer_list);
2024         wl_list_init(&ec->seat_list);
2025         wl_list_init(&ec->output_list);
2026         wl_list_init(&ec->key_binding_list);
2027         wl_list_init(&ec->button_binding_list);
2028         wl_list_init(&ec->axis_binding_list);
2029         wl_list_init(&ec->debug_binding_list);
2030
2031         weston_plane_init(&ec->primary_plane, 0, 0);
2032         weston_compositor_stack_plane(ec, &ec->primary_plane, NULL);
2033
2034         if (weston_compositor_xkb_init(ec, &xkb_names) < 0)
2035                 return -1;
2036
2037         ec->ping_handler = NULL;
2038
2039         screenshooter_create(ec);
2040         text_cursor_position_notifier_create(ec);
2041         text_backend_init(ec);
2042
2043         wl_data_device_manager_init(ec->wl_display);
2044
2045         wl_display_init_shm(display);
2046
2047         loop = wl_display_get_event_loop(ec->wl_display);
2048         ec->idle_source = wl_event_loop_add_timer(loop, idle_handler, ec);
2049         wl_event_source_timer_update(ec->idle_source, ec->idle_time * 1000);
2050
2051         ec->input_loop = wl_event_loop_create();
2052
2053         weston_layer_init(&ec->fade_layer, &ec->layer_list);
2054         weston_layer_init(&ec->cursor_layer, &ec->fade_layer.link);
2055
2056         weston_compositor_schedule_repaint(ec);
2057
2058         return 0;
2059 }
2060
2061 WL_EXPORT void
2062 weston_compositor_shutdown(struct weston_compositor *ec)
2063 {
2064         struct weston_output *output, *next;
2065
2066         wl_event_source_remove(ec->idle_source);
2067         if (ec->input_loop_source)
2068                 wl_event_source_remove(ec->input_loop_source);
2069
2070         /* Destroy all outputs associated with this compositor */
2071         wl_list_for_each_safe(output, next, &ec->output_list, link)
2072                 output->destroy(output);
2073
2074         weston_binding_list_destroy_all(&ec->key_binding_list);
2075         weston_binding_list_destroy_all(&ec->button_binding_list);
2076         weston_binding_list_destroy_all(&ec->axis_binding_list);
2077         weston_binding_list_destroy_all(&ec->debug_binding_list);
2078
2079         weston_plane_release(&ec->primary_plane);
2080
2081         wl_array_release(&ec->vertices);
2082         wl_array_release(&ec->indices);
2083         wl_array_release(&ec->vtxcnt);
2084
2085         wl_event_loop_destroy(ec->input_loop);
2086 }
2087
2088 WL_EXPORT void
2089 weston_version(int *major, int *minor, int *micro)
2090 {
2091         *major = WESTON_VERSION_MAJOR;
2092         *minor = WESTON_VERSION_MINOR;
2093         *micro = WESTON_VERSION_MICRO;
2094 }
2095
2096 static int on_term_signal(int signal_number, void *data)
2097 {
2098         struct wl_display *display = data;
2099
2100         weston_log("caught signal %d\n", signal_number);
2101         wl_display_terminate(display);
2102
2103         return 1;
2104 }
2105
2106 #ifdef HAVE_LIBUNWIND
2107
2108 static void
2109 print_backtrace(void)
2110 {
2111         unw_cursor_t cursor;
2112         unw_context_t context;
2113         unw_word_t off;
2114         unw_proc_info_t pip;
2115         int ret, i = 0;
2116         char procname[256];
2117         const char *filename;
2118         Dl_info dlinfo;
2119
2120         pip.unwind_info = NULL;
2121         ret = unw_getcontext(&context);
2122         if (ret) {
2123                 weston_log("unw_getcontext: %d\n", ret);
2124                 return;
2125         }
2126
2127         ret = unw_init_local(&cursor, &context);
2128         if (ret) {
2129                 weston_log("unw_init_local: %d\n", ret);
2130                 return;
2131         }
2132
2133         ret = unw_step(&cursor);
2134         while (ret > 0) {
2135                 ret = unw_get_proc_info(&cursor, &pip);
2136                 if (ret) {
2137                         weston_log("unw_get_proc_info: %d\n", ret);
2138                         break;
2139                 }
2140
2141                 ret = unw_get_proc_name(&cursor, procname, 256, &off);
2142                 if (ret && ret != -UNW_ENOMEM) {
2143                         if (ret != -UNW_EUNSPEC)
2144                                 weston_log("unw_get_proc_name: %d\n", ret);
2145                         procname[0] = '?';
2146                         procname[1] = 0;
2147                 }
2148
2149                 if (dladdr((void *)(pip.start_ip + off), &dlinfo) && dlinfo.dli_fname &&
2150                     *dlinfo.dli_fname)
2151                         filename = dlinfo.dli_fname;
2152                 else
2153                         filename = "?";
2154
2155                 weston_log("%u: %s (%s%s+0x%x) [%p]\n", i++, filename, procname,
2156                            ret == -UNW_ENOMEM ? "..." : "", (int)off, (void *)(pip.start_ip + off));
2157
2158                 ret = unw_step(&cursor);
2159                 if (ret < 0)
2160                         weston_log("unw_step: %d\n", ret);
2161         }
2162 }
2163
2164 #else
2165
2166 static void
2167 print_backtrace(void)
2168 {
2169         void *buffer[32];
2170         int i, count;
2171         Dl_info info;
2172
2173         count = backtrace(buffer, ARRAY_LENGTH(buffer));
2174         for (i = 0; i < count; i++) {
2175                 dladdr(buffer[i], &info);
2176                 weston_log("  [%016lx]  %s  (%s)\n",
2177                         (long) buffer[i],
2178                         info.dli_sname ? info.dli_sname : "--",
2179                         info.dli_fname);
2180         }
2181 }
2182
2183 #endif
2184
2185 static void
2186 on_caught_signal(int s, siginfo_t *siginfo, void *context)
2187 {
2188         /* This signal handler will do a best-effort backtrace, and
2189          * then call the backend restore function, which will switch
2190          * back to the vt we launched from or ungrab X etc and then
2191          * raise SIGTRAP.  If we run weston under gdb from X or a
2192          * different vt, and tell gdb "handle *s* nostop", this
2193          * will allow weston to switch back to gdb on crash and then
2194          * gdb will catch the crash with SIGTRAP.*/
2195
2196         weston_log("caught signal: %d\n", s);
2197
2198         print_backtrace();
2199
2200         segv_compositor->restore(segv_compositor);
2201
2202         raise(SIGTRAP);
2203 }
2204
2205 static void *
2206 load_module(const char *name, const char *entrypoint)
2207 {
2208         char path[PATH_MAX];
2209         void *module, *init;
2210
2211         if (name[0] != '/')
2212                 snprintf(path, sizeof path, "%s/%s", MODULEDIR, name);
2213         else
2214                 snprintf(path, sizeof path, "%s", name);
2215
2216         module = dlopen(path, RTLD_NOW | RTLD_NOLOAD);
2217         if (module) {
2218                 weston_log("Module '%s' already loaded\n", path);
2219                 dlclose(module);
2220                 return NULL;
2221         }
2222
2223         weston_log("Loading module '%s'\n", path);
2224         module = dlopen(path, RTLD_NOW);
2225         if (!module) {
2226                 weston_log("Failed to load module: %s\n", dlerror());
2227                 return NULL;
2228         }
2229
2230         init = dlsym(module, entrypoint);
2231         if (!init) {
2232                 weston_log("Failed to lookup init function: %s\n", dlerror());
2233                 dlclose(module);
2234                 return NULL;
2235         }
2236
2237         return init;
2238 }
2239
2240 static int
2241 load_modules(struct weston_compositor *ec, const char *modules,
2242              int *argc, char *argv[], const char *config_file)
2243 {
2244         const char *p, *end;
2245         char buffer[256];
2246         int (*module_init)(struct weston_compositor *ec,
2247                            int *argc, char *argv[], const char *config_file);
2248
2249         if (modules == NULL)
2250                 return 0;
2251
2252         p = modules;
2253         while (*p) {
2254                 end = strchrnul(p, ',');
2255                 snprintf(buffer, sizeof buffer, "%.*s", (int) (end - p), p);
2256                 module_init = load_module(buffer, "module_init");
2257                 if (module_init)
2258                         module_init(ec, argc, argv, config_file);
2259                 p = end;
2260                 while (*p == ',')
2261                         p++;
2262
2263         }
2264
2265         return 0;
2266 }
2267
2268 static const char xdg_error_message[] =
2269         "fatal: environment variable XDG_RUNTIME_DIR is not set.\n";
2270
2271 static const char xdg_wrong_message[] =
2272         "fatal: environment variable XDG_RUNTIME_DIR\n"
2273         "is set to \"%s\", which is not a directory.\n";
2274
2275 static const char xdg_wrong_mode_message[] =
2276         "warning: XDG_RUNTIME_DIR \"%s\" is not configured\n"
2277         "correctly.  Unix access mode must be 0700 but is %o,\n"
2278         "and XDG_RUNTIME_DIR must be owned by the user, but is\n"
2279         "owned by UID %d.\n";
2280
2281 static const char xdg_detail_message[] =
2282         "Refer to your distribution on how to get it, or\n"
2283         "http://www.freedesktop.org/wiki/Specifications/basedir-spec\n"
2284         "on how to implement it.\n";
2285
2286 static void
2287 verify_xdg_runtime_dir(void)
2288 {
2289         char *dir = getenv("XDG_RUNTIME_DIR");
2290         struct stat s;
2291
2292         if (!dir) {
2293                 weston_log(xdg_error_message);
2294                 weston_log_continue(xdg_detail_message);
2295                 exit(EXIT_FAILURE);
2296         }
2297
2298         if (stat(dir, &s) || !S_ISDIR(s.st_mode)) {
2299                 weston_log(xdg_wrong_message, dir);
2300                 weston_log_continue(xdg_detail_message);
2301                 exit(EXIT_FAILURE);
2302         }
2303
2304         if ((s.st_mode & 0777) != 0700 || s.st_uid != getuid()) {
2305                 weston_log(xdg_wrong_mode_message,
2306                            dir, s.st_mode & 0777, s.st_uid);
2307                 weston_log_continue(xdg_detail_message);
2308         }
2309 }
2310
2311 static int
2312 usage(int error_code)
2313 {
2314         fprintf(stderr,
2315                 "Usage: weston [OPTIONS]\n\n"
2316                 "This is weston version " VERSION ", the Wayland reference compositor.\n"
2317                 "Weston supports multiple backends, and depending on which backend is in use\n"
2318                 "different options will be accepted.\n\n"
2319
2320
2321                 "Core options:\n\n"
2322                 "  --version\t\tPrint weston version\n"
2323                 "  -B, --backend=MODULE\tBackend module, one of drm-backend.so,\n"
2324                 "\t\t\t\tfbdev-backend.so, x11-backend.so or\n"
2325                 "\t\t\t\twayland-backend.so\n"
2326                 "  -S, --socket=NAME\tName of socket to listen on\n"
2327                 "  -i, --idle-time=SECS\tIdle time in seconds\n"
2328                 "  --modules\t\tLoad the comma-separated list of modules\n"
2329                 "  --log==FILE\t\tLog to the given file\n"
2330                 "  -h, --help\t\tThis help message\n\n");
2331
2332         fprintf(stderr,
2333                 "Options for drm-backend.so:\n\n"
2334                 "  --connector=ID\tBring up only this connector\n"
2335                 "  --seat=SEAT\t\tThe seat that weston should run on\n"
2336                 "  --tty=TTY\t\tThe tty to use\n"
2337                 "  --use-pixman\t\tUse the pixman (CPU) renderer\n"
2338                 "  --current-mode\tPrefer current KMS mode over EDID preferred mode\n\n");
2339
2340         fprintf(stderr,
2341                 "Options for fbdev-backend.so:\n\n"
2342                 "  --tty=TTY\t\tThe tty to use\n"
2343                 "  --device=DEVICE\tThe framebuffer device to use\n\n");
2344
2345         fprintf(stderr,
2346                 "Options for x11-backend.so:\n\n"
2347                 "  --width=WIDTH\t\tWidth of X window\n"
2348                 "  --height=HEIGHT\tHeight of X window\n"
2349                 "  --fullscreen\t\tRun in fullscreen mode\n"
2350                 "  --use-pixman\t\tUse the pixman (CPU) renderer\n"
2351                 "  --output-count=COUNT\tCreate multiple outputs\n"
2352                 "  --no-input\t\tDont create input devices\n\n");
2353
2354         fprintf(stderr,
2355                 "Options for wayland-backend.so:\n\n"
2356                 "  --width=WIDTH\t\tWidth of Wayland surface\n"
2357                 "  --height=HEIGHT\tHeight of Wayland surface\n"
2358                 "  --display=DISPLAY\tWayland display to connect to\n\n");
2359
2360         exit(error_code);
2361 }
2362
2363 static void
2364 catch_signals(void)
2365 {
2366         struct sigaction action;
2367
2368         action.sa_flags = SA_SIGINFO | SA_RESETHAND;
2369         action.sa_sigaction = on_caught_signal;
2370         sigemptyset(&action.sa_mask);
2371         sigaction(SIGSEGV, &action, NULL);
2372         sigaction(SIGABRT, &action, NULL);
2373 }
2374
2375 int main(int argc, char *argv[])
2376 {
2377         int ret = EXIT_SUCCESS;
2378         struct wl_display *display;
2379         struct weston_compositor *ec;
2380         struct wl_event_source *signals[4];
2381         struct wl_event_loop *loop;
2382         struct weston_compositor
2383                 *(*backend_init)(struct wl_display *display,
2384                                  int *argc, char *argv[], const char *config_file);
2385         int i;
2386         char *backend = NULL;
2387         const char *modules = "desktop-shell.so", *option_modules = NULL;
2388         char *log = NULL;
2389         int32_t idle_time = 300;
2390         int32_t help = 0;
2391         char *socket_name = "wayland-0";
2392         int32_t version = 0;
2393         char *config_file;
2394
2395         const struct config_key core_config_keys[] = {
2396                 { "modules", CONFIG_KEY_STRING, &modules },
2397         };
2398
2399         const struct config_section cs[] = {
2400                 { "core",
2401                   core_config_keys, ARRAY_LENGTH(core_config_keys) },
2402         };
2403
2404         const struct weston_option core_options[] = {
2405                 { WESTON_OPTION_STRING, "backend", 'B', &backend },
2406                 { WESTON_OPTION_STRING, "socket", 'S', &socket_name },
2407                 { WESTON_OPTION_INTEGER, "idle-time", 'i', &idle_time },
2408                 { WESTON_OPTION_STRING, "modules", 0, &option_modules },
2409                 { WESTON_OPTION_STRING, "log", 0, &log },
2410                 { WESTON_OPTION_BOOLEAN, "help", 'h', &help },
2411                 { WESTON_OPTION_BOOLEAN, "version", 0, &version },
2412         };
2413
2414         parse_options(core_options, ARRAY_LENGTH(core_options), &argc, argv);
2415
2416         if (help)
2417                 usage(EXIT_SUCCESS);
2418
2419         if (version) {
2420                 printf(PACKAGE_STRING "\n");
2421                 return EXIT_SUCCESS;
2422         }
2423
2424         weston_log_file_open(log);
2425
2426         weston_log("%s\n"
2427                    STAMP_SPACE "%s\n"
2428                    STAMP_SPACE "Bug reports to: %s\n"
2429                    STAMP_SPACE "Build: %s\n",
2430                    PACKAGE_STRING, PACKAGE_URL, PACKAGE_BUGREPORT,
2431                    BUILD_ID);
2432         log_uname();
2433
2434         verify_xdg_runtime_dir();
2435
2436         display = wl_display_create();
2437
2438         loop = wl_display_get_event_loop(display);
2439         signals[0] = wl_event_loop_add_signal(loop, SIGTERM, on_term_signal,
2440                                               display);
2441         signals[1] = wl_event_loop_add_signal(loop, SIGINT, on_term_signal,
2442                                               display);
2443         signals[2] = wl_event_loop_add_signal(loop, SIGQUIT, on_term_signal,
2444                                               display);
2445
2446         wl_list_init(&child_process_list);
2447         signals[3] = wl_event_loop_add_signal(loop, SIGCHLD, sigchld_handler,
2448                                               NULL);
2449
2450         if (!backend) {
2451                 if (getenv("WAYLAND_DISPLAY"))
2452                         backend = "wayland-backend.so";
2453                 else if (getenv("DISPLAY"))
2454                         backend = "x11-backend.so";
2455                 else
2456                         backend = WESTON_NATIVE_BACKEND;
2457         }
2458
2459         config_file = config_file_path("weston.ini");
2460         parse_config_file(config_file, cs, ARRAY_LENGTH(cs), NULL);
2461
2462         backend_init = load_module(backend, "backend_init");
2463         if (!backend_init)
2464                 exit(EXIT_FAILURE);
2465
2466         ec = backend_init(display, &argc, argv, config_file);
2467         if (ec == NULL) {
2468                 weston_log("fatal: failed to create compositor\n");
2469                 exit(EXIT_FAILURE);
2470         }
2471
2472         catch_signals();
2473         segv_compositor = ec;
2474
2475         ec->idle_time = idle_time;
2476
2477         setenv("WAYLAND_DISPLAY", socket_name, 1);
2478
2479         if (load_modules(ec, modules, &argc, argv, config_file) < 0)
2480                 goto out;
2481         if (load_modules(ec, option_modules, &argc, argv, config_file) < 0)
2482                 goto out;
2483
2484         free(config_file);
2485
2486         for (i = 1; i < argc; i++)
2487                 weston_log("fatal: unhandled option: %s\n", argv[i]);
2488         if (argc > 1) {
2489                 ret = EXIT_FAILURE;
2490                 goto out;
2491         }
2492
2493         if (wl_display_add_socket(display, socket_name)) {
2494                 weston_log("fatal: failed to add socket: %m\n");
2495                 ret = EXIT_FAILURE;
2496                 goto out;
2497         }
2498
2499         weston_compositor_wake(ec);
2500
2501         wl_display_run(display);
2502
2503  out:
2504         /* prevent further rendering while shutting down */
2505         ec->state = WESTON_COMPOSITOR_OFFSCREEN;
2506
2507         wl_signal_emit(&ec->destroy_signal, ec);
2508
2509         for (i = ARRAY_LENGTH(signals); i;)
2510                 wl_event_source_remove(signals[--i]);
2511
2512         weston_compositor_xkb_destroy(ec);
2513
2514         ec->destroy(ec);
2515         wl_display_destroy(display);
2516
2517         weston_log_file_close();
2518
2519         return ret;
2520 }