compositor/compositor.c

   1 /*
   2  * Copyright © 2008 Kristian Høgsberg
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software Foundation,
  16  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17  */
  18
  19 #define _GNU_SOURCE
  20
  21 #include "config.h"
  22
  23 #include <stdio.h>
  24 #include <string.h>
  25 #include <stdlib.h>
  26 #include <stdint.h>
  27 #include <limits.h>
  28 #include <stdarg.h>
  29 #include <sys/ioctl.h>
  30 #include <fcntl.h>
  31 #include <unistd.h>
  32 #include <gdk-pixbuf/gdk-pixbuf.h>
  33 #include <math.h>
  34 #include <linux/input.h>
  35
  36 #include "wayland-server.h"
  37 #include "compositor.h"
  38
  39 /* The plan here is to generate a random anonymous socket name and
  40  * advertise that through a service on the session dbus.
  41  */
  42 static const char *option_socket_name = NULL;
  43 static const char *option_background = "background.jpg";
  44 static const char *option_geometry = "1024x640";
  45 static int option_idle_time = 5;
  46 static int option_connector = 0;
  47
  48 static const GOptionEntry option_entries[] = {
  49         { "background", 'b', 0, G_OPTION_ARG_STRING,
  50           &option_background, "Background image" },
  51         { "connector", 'c', 0, G_OPTION_ARG_INT,
  52           &option_connector, "KMS connector" },
  53         { "geometry", 'g', 0, G_OPTION_ARG_STRING,
  54           &option_geometry, "Geometry" },
  55         { "socket", 's', 0, G_OPTION_ARG_STRING,
  56           &option_socket_name, "Socket Name" },
  57         { "idle-time", 'i', 0, G_OPTION_ARG_INT,
  58           &option_idle_time, "Screensaver idle time" },
  59         { NULL }
  60 };
  61
  62 static void
  63 wlsc_matrix_init(struct wlsc_matrix *matrix)
  64 {
  65         static const struct wlsc_matrix identity = {
  66                 { 1, 0, 0, 0,  0, 1, 0, 0,  0, 0, 1, 0,  0, 0, 0, 1 }
  67         };
  68
  69         memcpy(matrix, &identity, sizeof identity);
  70 }
  71
  72 static void
  73 wlsc_matrix_multiply(struct wlsc_matrix *m, const struct wlsc_matrix *n)
  74 {
  75         struct wlsc_matrix tmp;
  76         const GLfloat *row, *column;
  77         div_t d;
  78         int i, j;
  79
  80         for (i = 0; i < 16; i++) {
  81                 tmp.d[i] = 0;
  82                 d = div(i, 4);
  83                 row = m->d + d.quot * 4;
  84                 column = n->d + d.rem;
  85                 for (j = 0; j < 4; j++)
  86                         tmp.d[i] += row[j] * column[j * 4];
  87         }
  88         memcpy(m, &tmp, sizeof tmp);
  89 }
  90
  91 static void
  92 wlsc_matrix_translate(struct wlsc_matrix *matrix, GLfloat x, GLfloat y, GLfloat z)
  93 {
  94         struct wlsc_matrix translate = {
  95                 { 1, 0, 0, 0,  0, 1, 0, 0,  0, 0, 1, 0,  x, y, z, 1 }
  96         };
  97
  98         wlsc_matrix_multiply(matrix, &translate);
  99 }
 100
 101 static void
 102 wlsc_matrix_scale(struct wlsc_matrix *matrix, GLfloat x, GLfloat y, GLfloat z)
 103 {
 104         struct wlsc_matrix scale = {
 105                 { x, 0, 0, 0,  0, y, 0, 0,  0, 0, z, 0,  0, 0, 0, 1 }
 106         };
 107
 108         wlsc_matrix_multiply(matrix, &scale);
 109 }
 110
 111 static void
 112 wlsc_matrix_transform(struct wlsc_matrix *matrix, struct wlsc_vector *v)
 113 {
 114         int i, j;
 115         struct wlsc_vector t;
 116
 117         for (i = 0; i < 4; i++) {
 118                 t.f[i] = 0;
 119                 for (j = 0; j < 4; j++)
 120                         t.f[i] += v->f[j] * matrix->d[i + j * 4];
 121         }
 122
 123         *v = t;
 124 }
 125
 126 struct wlsc_surface *
 127 wlsc_surface_create(struct wlsc_compositor *compositor,
 128                     int32_t x, int32_t y, int32_t width, int32_t height)
 129 {
 130         struct wlsc_surface *surface;
 131
 132         surface = malloc(sizeof *surface);
 133         if (surface == NULL)
 134                 return NULL;
 135
 136         wl_list_init(&surface->surface.destroy_listener_list);
 137         wl_list_init(&surface->link);
 138         wl_list_init(&surface->buffer_link);
 139         surface->map_type = WLSC_SURFACE_MAP_UNMAPPED;
 140
 141         glGenTextures(1, &surface->texture);
 142         glBindTexture(GL_TEXTURE_2D, surface->texture);
 143         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
 144         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
 145         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
 146         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
 147
 148         surface->compositor = compositor;
 149         surface->visual = NULL;
 150         surface->image = EGL_NO_IMAGE_KHR;
 151         surface->saved_texture = 0;
 152         surface->buffer = NULL;
 153         surface->x = x;
 154         surface->y = y;
 155         surface->width = width;
 156         surface->height = height;
 157         wlsc_matrix_init(&surface->matrix);
 158         wlsc_matrix_scale(&surface->matrix, width, height, 1);
 159         wlsc_matrix_translate(&surface->matrix, x, y, 0);
 160
 161         wlsc_matrix_init(&surface->matrix_inv);
 162         wlsc_matrix_translate(&surface->matrix_inv, -x, -y, 0);
 163         wlsc_matrix_scale(&surface->matrix_inv, 1.0 / width, 1.0 / height, 1);
 164
 165         return surface;
 166 }
 167
 168 void
 169 wlsc_surface_damage_rectangle(struct wlsc_surface *surface,
 170                               int32_t x, int32_t y,
 171                               int32_t width, int32_t height)
 172 {
 173         struct wlsc_compositor *compositor = surface->compositor;
 174
 175         pixman_region32_union_rect(&compositor->damage_region,
 176                                    &compositor->damage_region,
 177                                    surface->x + x, surface->y + y,
 178                                    width, height);
 179         wlsc_compositor_schedule_repaint(compositor);
 180 }
 181
 182 void
 183 wlsc_surface_damage(struct wlsc_surface *surface)
 184 {
 185         wlsc_surface_damage_rectangle(surface, 0, 0,
 186                                       surface->width, surface->height);
 187 }
 188
 189 uint32_t
 190 get_time(void)
 191 {
 192         struct timeval tv;
 193
 194         gettimeofday(&tv, NULL);
 195
 196         return tv.tv_sec * 1000 + tv.tv_usec / 1000;
 197 }
 198
 199 static void
 200 destroy_surface(struct wl_resource *resource, struct wl_client *client)
 201 {
 202         struct wlsc_surface *surface =
 203                 container_of(resource, struct wlsc_surface, surface.resource);
 204         struct wl_listener *l, *next;
 205         uint32_t time;
 206
 207         wlsc_surface_damage(surface);
 208
 209         wl_list_remove(&surface->link);
 210         if (surface->saved_texture == 0)
 211                 glDeleteTextures(1, &surface->texture);
 212         else
 213                 glDeleteTextures(1, &surface->saved_texture);
 214
 215
 216         if (surface->image != EGL_NO_IMAGE_KHR)
 217                 eglDestroyImageKHR(surface->compositor->display,
 218                                    surface->image);
 219
 220         wl_list_remove(&surface->buffer_link);
 221
 222         time = get_time();
 223         wl_list_for_each_safe(l, next,
 224                               &surface->surface.destroy_listener_list, link)
 225                 l->func(l, &surface->surface, time);
 226
 227         free(surface);
 228 }
 229
 230 uint32_t *
 231 wlsc_load_image(const char *filename, int width, int height)
 232 {
 233         GdkPixbuf *pixbuf;
 234         GError *error = NULL;
 235         int stride, i, n_channels;
 236         unsigned char *pixels, *end, *argb_pixels, *s, *d;
 237
 238         pixbuf = gdk_pixbuf_new_from_file_at_scale(filename,
 239                                                    width, height,
 240                                                    FALSE, &error);
 241         if (error != NULL) {
 242                 fprintf(stderr, "failed to load image: %s\n", error->message);
 243                 g_error_free(error);
 244                 return NULL;
 245         }
 246
 247         stride = gdk_pixbuf_get_rowstride(pixbuf);
 248         pixels = gdk_pixbuf_get_pixels(pixbuf);
 249         n_channels = gdk_pixbuf_get_n_channels(pixbuf);
 250
 251         argb_pixels = malloc (height * width * 4);
 252         if (argb_pixels == NULL) {
 253                 g_object_unref(pixbuf);
 254                 return NULL;
 255         }
 256
 257         if (n_channels == 4) {
 258                 for (i = 0; i < height; i++) {
 259                         s = pixels + i * stride;
 260                         end = s + width * 4;
 261                         d = argb_pixels + i * width * 4;
 262                         while (s < end) {
 263                                 unsigned int t;
 264
 265 #define MULT(_d,c,a,t) \
 266         do { t = c * a + 0x7f; _d = ((t >> 8) + t) >> 8; } while (0)
 267
 268                                 MULT(d[0], s[2], s[3], t);
 269                                 MULT(d[1], s[1], s[3], t);
 270                                 MULT(d[2], s[0], s[3], t);
 271                                 d[3] = s[3];
 272                                 s += 4;
 273                                 d += 4;
 274                         }
 275                 }
 276         } else if (n_channels == 3) {
 277                 for (i = 0; i < height; i++) {
 278                         s = pixels + i * stride;
 279                         end = s + width * 3;
 280                         d = argb_pixels + i * width * 4;
 281                         while (s < end) {
 282                                 d[0] = s[2];
 283                                 d[1] = s[1];
 284                                 d[2] = s[0];
 285                                 d[3] = 0xff;
 286                                 s += 3;
 287                                 d += 4;
 288                         }
 289                 }
 290         }
 291
 292         g_object_unref(pixbuf);
 293
 294         return (uint32_t *) argb_pixels;
 295 }
 296
 297 static void
 298 wlsc_buffer_attach(struct wl_buffer *buffer, struct wl_surface *surface)
 299 {
 300         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 301         struct wlsc_compositor *ec = es->compositor;
 302         struct wl_list *surfaces_attached_to;
 303
 304         if (es->saved_texture != 0)
 305                 es->texture = es->saved_texture;
 306
 307         glBindTexture(GL_TEXTURE_2D, es->texture);
 308
 309         if (wl_buffer_is_shm(buffer)) {
 310                 /* Unbind any EGLImage texture that may be bound, so we don't
 311                  * overwrite it.*/
 312                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
 313                              0, 0, 0, GL_BGRA_EXT, GL_UNSIGNED_BYTE, NULL);
 314                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
 315                              buffer->width, buffer->height, 0,
 316                              GL_BGRA_EXT, GL_UNSIGNED_BYTE,
 317                              wl_shm_buffer_get_data(buffer));
 318                 es->visual = buffer->visual;
 319
 320                 surfaces_attached_to = buffer->user_data;
 321
 322                 if (es->buffer)
 323                         wl_list_remove(&es->buffer_link);
 324                 wl_list_insert(surfaces_attached_to, &es->buffer_link);
 325         } else {
 326                 es->image = eglCreateImageKHR(ec->display, NULL,
 327                                               EGL_WAYLAND_BUFFER_WL,
 328                                               buffer, NULL);
 329
 330                 glEGLImageTargetTexture2DOES(GL_TEXTURE_2D, es->image);
 331                 es->visual = buffer->visual;
 332         }
 333 }
 334
 335 static void
 336 wlsc_sprite_attach(struct wlsc_sprite *sprite, struct wl_surface *surface)
 337 {
 338         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 339
 340         es->image = sprite->image;
 341         if (sprite->image != EGL_NO_IMAGE_KHR) {
 342                 glBindTexture(GL_TEXTURE_2D, es->texture);
 343                 glEGLImageTargetTexture2DOES(GL_TEXTURE_2D, es->image);
 344         } else {
 345                 if (es->saved_texture == 0)
 346                         es->saved_texture = es->texture;
 347                 es->texture = sprite->texture;
 348         }
 349
 350         es->visual = sprite->visual;
 351 }
 352
 353 enum sprite_usage {
 354         SPRITE_USE_CURSOR = (1 << 0),
 355 };
 356
 357 static struct wlsc_sprite *
 358 create_sprite_from_png(struct wlsc_compositor *ec,
 359                        const char *filename, int width, int height,
 360                        uint32_t usage)
 361 {
 362         uint32_t *pixels;
 363         struct wlsc_sprite *sprite;
 364
 365         pixels = wlsc_load_image(filename, width, height);
 366         if(pixels == NULL)
 367                 return NULL;
 368
 369         sprite = malloc(sizeof *sprite);
 370         if (sprite == NULL) {
 371                 free(pixels);
 372                 return NULL;
 373         }
 374
 375         sprite->visual = &ec->compositor.premultiplied_argb_visual;
 376         sprite->width = width;
 377         sprite->height = height;
 378         sprite->image = EGL_NO_IMAGE_KHR;
 379
 380         if (usage & SPRITE_USE_CURSOR && ec->create_cursor_image != NULL)
 381                 sprite->image = ec->create_cursor_image(ec, width, height);
 382
 383         glGenTextures(1, &sprite->texture);
 384         glBindTexture(GL_TEXTURE_2D, sprite->texture);
 385         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
 386         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
 387         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
 388         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
 389
 390         if (sprite->image != EGL_NO_IMAGE_KHR) {
 391                 glEGLImageTargetTexture2DOES(GL_TEXTURE_2D, sprite->image);
 392                 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, width, height,
 393                                 GL_BGRA_EXT, GL_UNSIGNED_BYTE, pixels);
 394         } else {
 395                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT, width, height, 0,
 396                              GL_BGRA_EXT, GL_UNSIGNED_BYTE, pixels);
 397         }
 398
 399         free(pixels);
 400
 401         return sprite;
 402 }
 403
 404 static const struct {
 405         const char *filename;
 406         int hotspot_x, hotspot_y;
 407 } pointer_images[] = {
 408         { DATADIR "/wayland/bottom_left_corner.png",     6, 30 },
 409         { DATADIR "/wayland/bottom_right_corner.png",   28, 28 },
 410         { DATADIR "/wayland/bottom_side.png",           16, 20 },
 411         { DATADIR "/wayland/grabbing.png",              20, 17 },
 412         { DATADIR "/wayland/left_ptr.png",              10,  5 },
 413         { DATADIR "/wayland/left_side.png",             10, 20 },
 414         { DATADIR "/wayland/right_side.png",            30, 19 },
 415         { DATADIR "/wayland/top_left_corner.png",        8,  8 },
 416         { DATADIR "/wayland/top_right_corner.png",      26,  8 },
 417         { DATADIR "/wayland/top_side.png",              18,  8 },
 418         { DATADIR "/wayland/xterm.png",                 15, 15 }
 419 };
 420
 421 static void
 422 create_pointer_images(struct wlsc_compositor *ec)
 423 {
 424         int i, count;
 425         const int width = 32, height = 32;
 426
 427         count = ARRAY_LENGTH(pointer_images);
 428         ec->pointer_sprites = malloc(count * sizeof *ec->pointer_sprites);
 429         for (i = 0; i < count; i++) {
 430                 ec->pointer_sprites[i] =
 431                         create_sprite_from_png(ec,
 432                                                pointer_images[i].filename,
 433                                                width, height,
 434                                                SPRITE_USE_CURSOR);
 435         }
 436 }
 437
 438 static struct wlsc_surface *
 439 background_create(struct wlsc_output *output, const char *filename)
 440 {
 441         struct wlsc_surface *background;
 442         struct wlsc_sprite *sprite;
 443
 444         background = wlsc_surface_create(output->compositor,
 445                                          output->x, output->y,
 446                                          output->width, output->height);
 447         if (background == NULL)
 448                 return NULL;
 449
 450         sprite = create_sprite_from_png(output->compositor, filename,
 451                                         output->width, output->height, 0);
 452         if (sprite == NULL) {
 453                 free(background);
 454                 return NULL;
 455         }
 456
 457         wlsc_sprite_attach(sprite, &background->surface);
 458
 459         return background;
 460 }
 461
 462 static void
 463 wlsc_surface_draw(struct wlsc_surface *es,
 464                   struct wlsc_output *output, pixman_region32_t *clip)
 465 {
 466         struct wlsc_compositor *ec = es->compositor;
 467         GLfloat *v, inv_width, inv_height;
 468         unsigned int *p;
 469         pixman_region32_t repaint;
 470         pixman_box32_t *rectangles;
 471         int i, n;
 472
 473         pixman_region32_init_rect(&repaint,
 474                                   es->x, es->y, es->width, es->height);
 475         pixman_region32_intersect(&repaint, &repaint, clip);
 476         if (!pixman_region32_not_empty(&repaint))
 477                 return;
 478
 479         if (es->visual == &ec->compositor.argb_visual) {
 480                 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
 481                 glEnable(GL_BLEND);
 482         } else if (es->visual == &ec->compositor.premultiplied_argb_visual) {
 483                 glBlendFunc(GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
 484                 glEnable(GL_BLEND);
 485         } else {
 486                 glDisable(GL_BLEND);
 487         }
 488
 489         rectangles = pixman_region32_rectangles(&repaint, &n);
 490         v = wl_array_add(&ec->vertices, n * 16 * sizeof *v);
 491         p = wl_array_add(&ec->indices, n * 6 * sizeof *p);
 492         inv_width = 1.0 / es->width;
 493         inv_height = 1.0 / es->height;
 494         for (i = 0; i < n; i++, v += 16, p += 6) {
 495                 v[ 0] = rectangles[i].x1;
 496                 v[ 1] = rectangles[i].y1;
 497                 v[ 2] = (GLfloat) (rectangles[i].x1 - es->x) * inv_width;
 498                 v[ 3] = (GLfloat) (rectangles[i].y1 - es->y) * inv_height;
 499
 500                 v[ 4] = rectangles[i].x1;
 501                 v[ 5] = rectangles[i].y2;
 502                 v[ 6] = v[ 2];
 503                 v[ 7] = (GLfloat) (rectangles[i].y2 - es->y) * inv_height;
 504
 505                 v[ 8] = rectangles[i].x2;
 506                 v[ 9] = rectangles[i].y1;
 507                 v[10] = (GLfloat) (rectangles[i].x2 - es->x) * inv_width;
 508                 v[11] = v[ 3];
 509
 510                 v[12] = rectangles[i].x2;
 511                 v[13] = rectangles[i].y2;
 512                 v[14] = v[10];
 513                 v[15] = v[ 7];
 514
 515                 p[0] = i * 4 + 0;
 516                 p[1] = i * 4 + 1;
 517                 p[2] = i * 4 + 2;
 518                 p[3] = i * 4 + 2;
 519                 p[4] = i * 4 + 1;
 520                 p[5] = i * 4 + 3;
 521         }
 522
 523         glBindTexture(GL_TEXTURE_2D, es->texture);
 524         v = ec->vertices.data;
 525         glVertexAttribPointer(0, 2, GL_FLOAT, GL_FALSE, 4 * sizeof *v, &v[0]);
 526         glVertexAttribPointer(1, 2, GL_FLOAT, GL_FALSE, 4 * sizeof *v, &v[2]);
 527         glEnableVertexAttribArray(0);
 528         glEnableVertexAttribArray(1);
 529         glDrawElements(GL_TRIANGLES, n * 6, GL_UNSIGNED_INT, ec->indices.data);
 530
 531         ec->vertices.size = 0;
 532         ec->indices.size = 0;
 533         pixman_region32_fini(&repaint);
 534 }
 535
 536 static void
 537 wlsc_surface_raise(struct wlsc_surface *surface)
 538 {
 539         struct wlsc_compositor *compositor = surface->compositor;
 540
 541         wl_list_remove(&surface->link);
 542         wl_list_insert(&compositor->surface_list, &surface->link);
 543 }
 544
 545 void
 546 wlsc_surface_update_matrix(struct wlsc_surface *es)
 547 {
 548         wlsc_matrix_init(&es->matrix);
 549         wlsc_matrix_scale(&es->matrix, es->width, es->height, 1);
 550         wlsc_matrix_translate(&es->matrix, es->x, es->y, 0);
 551
 552         wlsc_matrix_init(&es->matrix_inv);
 553         wlsc_matrix_translate(&es->matrix_inv, -es->x, -es->y, 0);
 554         wlsc_matrix_scale(&es->matrix_inv,
 555                           1.0 / es->width, 1.0 / es->height, 1);
 556 }
 557
 558 void
 559 wlsc_compositor_damage_all(struct wlsc_compositor *compositor)
 560 {
 561         struct wlsc_output *output;
 562
 563         wl_list_for_each(output, &compositor->output_list, link)
 564                 wlsc_output_damage(output);
 565 }
 566
 567 void
 568 wlsc_output_finish_frame(struct wlsc_output *output, int msecs)
 569 {
 570         struct wlsc_compositor *compositor = output->compositor;
 571         struct wlsc_surface *es;
 572
 573         wl_list_for_each(es, &compositor->surface_list, link) {
 574                 if (es->output == output) {
 575                         wl_display_post_frame(compositor->wl_display,
 576                                               &es->surface, msecs);
 577                 }
 578         }
 579
 580         output->finished = 1;
 581
 582         wl_event_source_timer_update(compositor->timer_source, 5);
 583         compositor->repaint_on_timeout = 1;
 584 }
 585
 586 void
 587 wlsc_output_damage(struct wlsc_output *output)
 588 {
 589         struct wlsc_compositor *compositor = output->compositor;
 590
 591         pixman_region32_union_rect(&compositor->damage_region,
 592                                    &compositor->damage_region,
 593                                    output->x, output->y,
 594                                    output->width, output->height);
 595         wlsc_compositor_schedule_repaint(compositor);
 596 }
 597
 598 static void
 599 wlsc_output_repaint(struct wlsc_output *output)
 600 {
 601         struct wlsc_compositor *ec = output->compositor;
 602         struct wlsc_surface *es;
 603         struct wlsc_input_device *eid;
 604         pixman_region32_t new_damage, total_damage, repaint;
 605         int using_hardware_cursor = 1;
 606
 607         output->prepare_render(output);
 608
 609         glViewport(0, 0, output->width, output->height);
 610
 611         glUseProgram(ec->texture_shader.program);
 612         glUniformMatrix4fv(ec->texture_shader.proj_uniform,
 613                            1, GL_FALSE, output->matrix.d);
 614         glUniform1i(ec->texture_shader.tex_uniform, 0);
 615
 616         pixman_region32_init(&new_damage);
 617         pixman_region32_init(&total_damage);
 618         pixman_region32_intersect_rect(&new_damage,
 619                                        &ec->damage_region,
 620                                        output->x, output->y,
 621                                        output->width, output->height);
 622         pixman_region32_subtract(&ec->damage_region,
 623                                  &ec->damage_region, &new_damage);
 624         pixman_region32_union(&total_damage, &new_damage,
 625                               &output->previous_damage_region);
 626         pixman_region32_copy(&output->previous_damage_region, &new_damage);
 627
 628         if (ec->state == WLSC_COMPOSITOR_SLEEPING) {
 629                 glClear(GL_COLOR_BUFFER_BIT);
 630                 return;
 631         }
 632
 633         if (ec->focus)
 634                 if (output->set_hardware_cursor(output, ec->input_device) < 0)
 635                         using_hardware_cursor = 0;
 636
 637         es = container_of(ec->surface_list.next, struct wlsc_surface, link);
 638         if (es->map_type == WLSC_SURFACE_MAP_FULLSCREEN &&
 639             es->fullscreen_output == output) {
 640                 if (es->visual == &ec->compositor.rgb_visual &&
 641                     using_hardware_cursor) {
 642                         if (output->prepare_scanout_surface(output, es) == 0) {
 643                                 /* We're drawing nothing now,
 644                                  * draw the damaged regions later. */
 645                                 pixman_region32_union(&ec->damage_region,
 646                                                       &ec->damage_region,
 647                                                       &total_damage);
 648                                 return;
 649                         }
 650                 }
 651
 652                 if (es->width < output->width ||
 653                     es->height < output->height)
 654                         glClear(GL_COLOR_BUFFER_BIT);
 655                 wlsc_surface_draw(es, output, &total_damage);
 656         } else {
 657                 wl_list_for_each(es, &ec->surface_list, link) {
 658                         if (es->visual != &ec->compositor.rgb_visual)
 659                                 continue;
 660
 661                         pixman_region32_init_rect(&repaint,
 662                                                   es->x, es->y,
 663                                                   es->width, es->height);
 664                         wlsc_surface_draw(es, output, &total_damage);
 665                         pixman_region32_subtract(&total_damage,
 666                                                  &total_damage, &repaint);
 667                 }
 668
 669                 if (output->background)
 670                         wlsc_surface_draw(output->background,
 671                                           output, &total_damage);
 672                 else
 673                         glClear(GL_COLOR_BUFFER_BIT);
 674
 675                 wl_list_for_each_reverse(es, &ec->surface_list, link) {
 676                         if (ec->overlay == es)
 677                                 continue;
 678
 679                         if (es->visual == &ec->compositor.rgb_visual) {
 680                                 pixman_region32_union_rect(&total_damage,
 681                                                            &total_damage,
 682                                                            es->x, es->y,
 683                                                            es->width, es->height);
 684                                 continue;
 685                         }
 686
 687                         wlsc_surface_draw(es, output, &total_damage);
 688                 }
 689         }
 690
 691         if (ec->overlay)
 692                 wlsc_surface_draw(ec->overlay, output, &total_damage);
 693
 694         if (ec->focus)
 695                 wl_list_for_each(eid, &ec->input_device_list, link) {
 696                         if (&eid->input_device != ec->input_device ||
 697                             !using_hardware_cursor)
 698                                 wlsc_surface_draw(eid->sprite, output,
 699                                                   &total_damage);
 700                 }
 701 }
 702
 703 static int
 704 repaint(void *data)
 705 {
 706         struct wlsc_compositor *ec = data;
 707         struct wlsc_output *output;
 708         int repainted_all_outputs = 1;
 709
 710         wl_list_for_each(output, &ec->output_list, link) {
 711                 if (!output->repaint_needed)
 712                         continue;
 713
 714                 if (!output->finished) {
 715                         repainted_all_outputs = 0;
 716                         continue;
 717                 }
 718
 719                 wlsc_output_repaint(output);
 720                 output->finished = 0;
 721                 output->repaint_needed = 0;
 722                 output->present(output);
 723         }
 724
 725         if (repainted_all_outputs)
 726                 ec->repaint_on_timeout = 0;
 727         else
 728                 wl_event_source_timer_update(ec->timer_source, 1);
 729
 730         return 1;
 731 }
 732
 733 void
 734 wlsc_compositor_schedule_repaint(struct wlsc_compositor *compositor)
 735 {
 736         struct wlsc_output *output;
 737
 738         if (compositor->state == WLSC_COMPOSITOR_SLEEPING)
 739                 return;
 740
 741         wl_list_for_each(output, &compositor->output_list, link)
 742                 output->repaint_needed = 1;
 743
 744         if (compositor->repaint_on_timeout)
 745                 return;
 746
 747         wl_event_source_timer_update(compositor->timer_source, 1);
 748         compositor->repaint_on_timeout = 1;
 749 }
 750
 751 static void
 752 surface_destroy(struct wl_client *client,
 753                 struct wl_surface *surface)
 754 {
 755         wl_resource_destroy(&surface->resource, client);
 756 }
 757
 758 void
 759 wlsc_surface_assign_output(struct wlsc_surface *es)
 760 {
 761         struct wlsc_compositor *ec = es->compositor;
 762         struct wlsc_output *output;
 763
 764         struct wlsc_output *tmp = es->output;
 765         es->output = NULL;
 766
 767         wl_list_for_each(output, &ec->output_list, link) {
 768                 if (output->x < es->x && es->x < output->x + output->width &&
 769                     output->y < es->y && es->y < output->y + output->height) {
 770                         if (output != tmp)
 771                                 printf("assiging surface %p to output %p\n",
 772                                        es, output);
 773                         es->output = output;
 774                 }
 775         }
 776
 777         if (es->output == NULL) {
 778                 printf("no output found\n");
 779                 es->output = container_of(ec->output_list.next,
 780                                           struct wlsc_output, link);
 781         }
 782 }
 783
 784 static void
 785 surface_attach(struct wl_client *client,
 786                struct wl_surface *surface, struct wl_buffer *buffer,
 787                int32_t x, int32_t y)
 788 {
 789         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 790
 791         /* FIXME: This damages the entire old surface, but we should
 792          * really just damage the part that's no longer covered by the
 793          * surface.  Anything covered by the new surface will be
 794          * damaged by the client. */
 795         wlsc_surface_damage(es);
 796
 797         wlsc_buffer_attach(buffer, surface);
 798
 799         es->buffer = buffer;
 800         es->x += x;
 801         es->y += y;
 802         es->width = buffer->width;
 803         es->height = buffer->height;
 804         if (x != 0 || y != 0)
 805                 wlsc_surface_assign_output(es);
 806         wlsc_surface_update_matrix(es);
 807 }
 808
 809 static void
 810 surface_map_toplevel(struct wl_client *client,
 811                      struct wl_surface *surface)
 812 {
 813         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 814         struct wlsc_compositor *ec = es->compositor;
 815
 816         switch (es->map_type) {
 817         case WLSC_SURFACE_MAP_UNMAPPED:
 818                 es->x = 10 + random() % 400;
 819                 es->y = 10 + random() % 400;
 820                 wlsc_surface_update_matrix(es);
 821                 /* assign to first output */
 822                 es->output = container_of(ec->output_list.next,
 823                                           struct wlsc_output, link);
 824                 wl_list_insert(&es->compositor->surface_list, &es->link);
 825                 break;
 826         case WLSC_SURFACE_MAP_TOPLEVEL:
 827                 return;
 828         case WLSC_SURFACE_MAP_FULLSCREEN:
 829                 es->fullscreen_output = NULL;
 830                 es->x = es->saved_x;
 831                 es->y = es->saved_y;
 832                 wlsc_surface_update_matrix(es);
 833                 break;
 834         default:
 835                 break;
 836         }
 837
 838         wlsc_surface_damage(es);
 839         es->map_type = WLSC_SURFACE_MAP_TOPLEVEL;
 840 }
 841
 842 static void
 843 surface_map_transient(struct wl_client *client,
 844                       struct wl_surface *surface, struct wl_surface *parent,
 845                       int x, int y, uint32_t flags)
 846 {
 847         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 848         struct wlsc_surface *pes = (struct wlsc_surface *) parent;
 849
 850         switch (es->map_type) {
 851         case WLSC_SURFACE_MAP_UNMAPPED:
 852                 wl_list_insert(&es->compositor->surface_list, &es->link);
 853                 /* assign to parents output  */
 854                 es->output = pes->output;
 855                 break;
 856         case WLSC_SURFACE_MAP_FULLSCREEN:
 857                 es->fullscreen_output = NULL;
 858                 break;
 859         default:
 860                 break;
 861         }
 862
 863         es->x = pes->x + x;
 864         es->y = pes->y + y;
 865
 866         wlsc_surface_update_matrix(es);
 867         wlsc_surface_damage(es);
 868         es->map_type = WLSC_SURFACE_MAP_TRANSIENT;
 869 }
 870
 871 static void
 872 surface_map_fullscreen(struct wl_client *client, struct wl_surface *surface)
 873 {
 874         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 875         struct wlsc_output *output;
 876
 877         /* FIXME: Fullscreen on first output */
 878         /* FIXME: Handle output going away */
 879         output = container_of(es->compositor->output_list.next,
 880                               struct wlsc_output, link);
 881
 882         switch (es->map_type) {
 883         case WLSC_SURFACE_MAP_UNMAPPED:
 884                 es->x = 10 + random() % 400;
 885                 es->y = 10 + random() % 400;
 886                 /* assign to first output */
 887                 es->output = output;
 888                 wl_list_insert(&es->compositor->surface_list, &es->link);
 889                 break;
 890         case WLSC_SURFACE_MAP_FULLSCREEN:
 891                 return;
 892         default:
 893                 break;
 894         }
 895
 896         es->saved_x = es->x;
 897         es->saved_y = es->y;
 898         es->x = (output->width - es->width) / 2;
 899         es->y = (output->height - es->height) / 2;
 900         es->fullscreen_output = output;
 901         wlsc_surface_update_matrix(es);
 902         wlsc_surface_damage(es);
 903         es->map_type = WLSC_SURFACE_MAP_FULLSCREEN;
 904 }
 905
 906 static void
 907 surface_damage(struct wl_client *client,
 908                struct wl_surface *surface,
 909                int32_t x, int32_t y, int32_t width, int32_t height)
 910 {
 911         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 912
 913         wlsc_surface_damage_rectangle(es, x, y, width, height);
 914 }
 915
 916 const static struct wl_surface_interface surface_interface = {
 917         surface_destroy,
 918         surface_attach,
 919         surface_map_toplevel,
 920         surface_map_transient,
 921         surface_map_fullscreen,
 922         surface_damage
 923 };
 924
 925 static void
 926 wlsc_input_device_attach(struct wlsc_input_device *device,
 927                          int x, int y, int width, int height)
 928 {
 929         wlsc_surface_damage(device->sprite);
 930
 931         device->hotspot_x = x;
 932         device->hotspot_y = y;
 933
 934         device->sprite->x = device->input_device.x - device->hotspot_x;
 935         device->sprite->y = device->input_device.y - device->hotspot_y;
 936         device->sprite->width = width;
 937         device->sprite->height = height;
 938         wlsc_surface_update_matrix(device->sprite);
 939
 940         wlsc_surface_damage(device->sprite);
 941 }
 942
 943 static void
 944 wlsc_input_device_attach_buffer(struct wlsc_input_device *device,
 945                                 struct wl_buffer *buffer, int x, int y)
 946 {
 947         wlsc_buffer_attach(buffer, &device->sprite->surface);
 948         wlsc_input_device_attach(device, x, y, buffer->width, buffer->height);
 949 }
 950
 951 static void
 952 wlsc_input_device_attach_sprite(struct wlsc_input_device *device,
 953                                 struct wlsc_sprite *sprite, int x, int y)
 954 {
 955         wlsc_sprite_attach(sprite, &device->sprite->surface);
 956         wlsc_input_device_attach(device, x, y, sprite->width, sprite->height);
 957 }
 958
 959 void
 960 wlsc_input_device_set_pointer_image(struct wlsc_input_device *device,
 961                                     enum wlsc_pointer_type type)
 962 {
 963         struct wlsc_compositor *compositor =
 964                 (struct wlsc_compositor *) device->input_device.compositor;
 965
 966         wlsc_input_device_attach_sprite(device,
 967                                         compositor->pointer_sprites[type],
 968                                         pointer_images[type].hotspot_x,
 969                                         pointer_images[type].hotspot_y);
 970 }
 971
 972 static void
 973 compositor_create_surface(struct wl_client *client,
 974                           struct wl_compositor *compositor, uint32_t id)
 975 {
 976         struct wlsc_compositor *ec = (struct wlsc_compositor *) compositor;
 977         struct wlsc_surface *surface;
 978
 979         surface = wlsc_surface_create(ec, 0, 0, 0, 0);
 980         if (surface == NULL) {
 981                 wl_client_post_no_memory(client);
 982                 return;
 983         }
 984
 985         surface->surface.resource.destroy = destroy_surface;
 986
 987         surface->surface.resource.object.id = id;
 988         surface->surface.resource.object.interface = &wl_surface_interface;
 989         surface->surface.resource.object.implementation =
 990                 (void (**)(void)) &surface_interface;
 991         surface->surface.client = client;
 992
 993         wl_client_add_resource(client, &surface->surface.resource);
 994 }
 995
 996 const static struct wl_compositor_interface compositor_interface = {
 997         compositor_create_surface,
 998 };
 999
1000 static void
1001 wlsc_surface_transform(struct wlsc_surface *surface,
1002                        int32_t x, int32_t y, int32_t *sx, int32_t *sy)
1003 {
1004         struct wlsc_vector v = { { x, y, 0, 1 } };
1005
1006         wlsc_matrix_transform(&surface->matrix_inv, &v);
1007         *sx = v.f[0] * surface->width;
1008         *sy = v.f[1] * surface->height;
1009 }
1010
1011 struct wlsc_surface *
1012 pick_surface(struct wl_input_device *device, int32_t *sx, int32_t *sy)
1013 {
1014         struct wlsc_compositor *ec =
1015                 (struct wlsc_compositor *) device->compositor;
1016         struct wlsc_surface *es;
1017
1018         wl_list_for_each(es, &ec->surface_list, link) {
1019                 wlsc_surface_transform(es, device->x, device->y, sx, sy);
1020                 if (0 <= *sx && *sx < es->width &&
1021                     0 <= *sy && *sy < es->height)
1022                         return es;
1023         }
1024
1025         return NULL;
1026 }
1027
1028
1029 static void
1030 motion_grab_motion(struct wl_grab *grab,
1031                    uint32_t time, int32_t x, int32_t y)
1032 {
1033         struct wlsc_input_device *device =
1034                 (struct wlsc_input_device *) grab->input_device;
1035         struct wlsc_surface *es =
1036                 (struct wlsc_surface *) device->input_device.pointer_focus;
1037         int32_t sx, sy;
1038
1039         wlsc_surface_transform(es, x, y, &sx, &sy);
1040         wl_client_post_event(es->surface.client,
1041                              &device->input_device.object,
1042                              WL_INPUT_DEVICE_MOTION,
1043                              time, x, y, sx, sy);
1044 }
1045
1046 static void
1047 motion_grab_button(struct wl_grab *grab,
1048                    uint32_t time, int32_t button, int32_t state)
1049 {
1050         wl_client_post_event(grab->input_device->pointer_focus->client,
1051                              &grab->input_device->object,
1052                              WL_INPUT_DEVICE_BUTTON,
1053                              time, button, state);
1054 }
1055
1056 static void
1057 motion_grab_end(struct wl_grab *grab, uint32_t time)
1058 {
1059 }
1060
1061 static const struct wl_grab_interface motion_grab_interface = {
1062         motion_grab_motion,
1063         motion_grab_button,
1064         motion_grab_end
1065 };
1066
1067 void
1068 wlsc_compositor_wake(struct wlsc_compositor *compositor)
1069 {
1070         if (compositor->idle_inhibit)
1071                 return;
1072
1073         if (compositor->state == WLSC_COMPOSITOR_SLEEPING) {
1074                 compositor->state = WLSC_COMPOSITOR_ACTIVE;
1075                 wlsc_compositor_damage_all(compositor);
1076         }
1077
1078         wl_event_source_timer_update(compositor->idle_source,
1079                                      option_idle_time * 1000);
1080 }
1081
1082 static void
1083 wlsc_compositor_idle_inhibit(struct wlsc_compositor *compositor)
1084 {
1085         wlsc_compositor_wake(compositor);
1086         compositor->idle_inhibit++;
1087 }
1088
1089 static void
1090 wlsc_compositor_idle_release(struct wlsc_compositor *compositor)
1091 {
1092         compositor->idle_inhibit--;
1093         wlsc_compositor_wake(compositor);
1094 }
1095
1096 static int
1097 idle_handler(void *data)
1098 {
1099         struct wlsc_compositor *compositor = data;
1100
1101         if (compositor->idle_inhibit)
1102                 return 1;
1103
1104         wlsc_compositor_damage_all(compositor);
1105         compositor->state = WLSC_COMPOSITOR_SLEEPING;
1106
1107         return 1;
1108 }
1109
1110 void
1111 notify_motion(struct wl_input_device *device, uint32_t time, int x, int y)
1112 {
1113         struct wlsc_surface *es;
1114         struct wlsc_compositor *ec =
1115                 (struct wlsc_compositor *) device->compositor;
1116         struct wlsc_output *output;
1117         const struct wl_grab_interface *interface;
1118         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1119         int32_t sx, sy;
1120         int x_valid = 0, y_valid = 0;
1121         int min_x = INT_MAX, min_y = INT_MAX, max_x = INT_MIN, max_y = INT_MIN;
1122
1123         wlsc_compositor_wake(ec);
1124
1125         wl_list_for_each(output, &ec->output_list, link) {
1126                 if (output->x <= x && x <= output->x + output->width)
1127                         x_valid = 1;
1128
1129                 if (output->y <= y && y <= output->y + output->height)
1130                         y_valid = 1;
1131
1132                 /* FIXME: calculate this only on output addition/deletion */
1133                 if (output->x < min_x)
1134                         min_x = output->x;
1135                 if (output->y < min_y)
1136                         min_y = output->y;
1137
1138                 if (output->x + output->width > max_x)
1139                         max_x = output->x + output->width;
1140                 if (output->y + output->height > max_y)
1141                         max_y = output->y + output->height;
1142         }
1143
1144         if (!x_valid) {
1145                 if (x < min_x)
1146                         x = min_x;
1147                 else if (x >= max_x)
1148                         x = max_x;
1149         }
1150         if (!y_valid) {
1151                 if (y < min_y)
1152                         y = min_y;
1153                 else  if (y >= max_y)
1154                         y = max_y;
1155         }
1156
1157         device->x = x;
1158         device->y = y;
1159
1160         if (device->grab) {
1161                 interface = device->grab->interface;
1162                 interface->motion(device->grab, time, x, y);
1163         } else {
1164                 es = pick_surface(device, &sx, &sy);
1165                 wl_input_device_set_pointer_focus(device,
1166                                                   &es->surface,
1167                                                   time, x, y, sx, sy);
1168                 if (es)
1169                         wl_client_post_event(es->surface.client,
1170                                              &device->object,
1171                                              WL_INPUT_DEVICE_MOTION,
1172                                              time, x, y, sx, sy);
1173         }
1174
1175         wlsc_surface_damage(wd->sprite);
1176
1177         wd->sprite->x = device->x - wd->hotspot_x;
1178         wd->sprite->y = device->y - wd->hotspot_y;
1179         wlsc_surface_update_matrix(wd->sprite);
1180
1181         wlsc_surface_damage(wd->sprite);
1182 }
1183
1184 void
1185 wlsc_surface_activate(struct wlsc_surface *surface,
1186                       struct wlsc_input_device *device, uint32_t time)
1187 {
1188         wlsc_surface_raise(surface);
1189         if (device->selection)
1190                 wlsc_selection_set_focus(device->selection,
1191                                          &surface->surface, time);
1192
1193         wl_input_device_set_keyboard_focus(&device->input_device,
1194                                            &surface->surface,
1195                                            time);
1196 }
1197
1198 struct wlsc_binding {
1199         uint32_t key;
1200         uint32_t button;
1201         uint32_t modifier;
1202         wlsc_binding_handler_t handler;
1203         void *data;
1204         struct wl_list link;
1205 };
1206
1207 void
1208 notify_button(struct wl_input_device *device,
1209               uint32_t time, int32_t button, int32_t state)
1210 {
1211         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1212         struct wlsc_compositor *compositor =
1213                 (struct wlsc_compositor *) device->compositor;
1214         struct wlsc_binding *b;
1215         struct wlsc_surface *surface =
1216                 (struct wlsc_surface *) device->pointer_focus;
1217
1218         if (state)
1219                 wlsc_compositor_idle_inhibit(compositor);
1220         else
1221                 wlsc_compositor_idle_release(compositor);
1222
1223         if (state && surface && device->grab == NULL) {
1224                 wlsc_surface_activate(surface, wd, time);
1225                 wl_input_device_start_grab(device,
1226                                            &device->motion_grab,
1227                                            button, time);
1228         }
1229
1230         wl_list_for_each(b, &compositor->binding_list, link) {
1231                 if (b->button == button &&
1232                     b->modifier == wd->modifier_state && state) {
1233                         b->handler(&wd->input_device,
1234                                    time, 0, button, state, b->data);
1235                         break;
1236                 }
1237         }
1238
1239         if (device->grab)
1240                 device->grab->interface->button(device->grab, time,
1241                                                 button, state);
1242
1243         if (!state && device->grab && device->grab_button == button)
1244                 wl_input_device_end_grab(device, time);
1245 }
1246
1247 static void
1248 terminate_binding(struct wl_input_device *device, uint32_t time,
1249                   uint32_t key, uint32_t button, uint32_t state, void *data)
1250 {
1251         struct wlsc_compositor *compositor = data;
1252
1253         if (state)
1254                 wl_display_terminate(compositor->wl_display);
1255 }
1256
1257 struct wlsc_binding *
1258 wlsc_compositor_add_binding(struct wlsc_compositor *compositor,
1259                             uint32_t key, uint32_t button, uint32_t modifier,
1260                             wlsc_binding_handler_t handler, void *data)
1261 {
1262         struct wlsc_binding *binding;
1263
1264         binding = malloc(sizeof *binding);
1265         if (binding == NULL)
1266                 return NULL;
1267
1268         binding->key = key;
1269         binding->button = button;
1270         binding->modifier = modifier;
1271         binding->handler = handler;
1272         binding->data = data;
1273         wl_list_insert(compositor->binding_list.prev, &binding->link);
1274
1275         return binding;
1276 }
1277
1278 void
1279 wlsc_binding_destroy(struct wlsc_binding *binding)
1280 {
1281         wl_list_remove(&binding->link);
1282         free(binding);
1283 }
1284
1285 static void
1286 update_modifier_state(struct wlsc_input_device *device,
1287                       uint32_t key, uint32_t state)
1288 {
1289         uint32_t modifier;
1290
1291         switch (key) {
1292         case KEY_LEFTCTRL:
1293         case KEY_RIGHTCTRL:
1294                 modifier = MODIFIER_CTRL;
1295                 break;
1296
1297         case KEY_LEFTALT:
1298         case KEY_RIGHTALT:
1299                 modifier = MODIFIER_ALT;
1300                 break;
1301
1302         case KEY_LEFTMETA:
1303         case KEY_RIGHTMETA:
1304                 modifier = MODIFIER_SUPER;
1305                 break;
1306
1307         default:
1308                 modifier = 0;
1309                 break;
1310         }
1311
1312         if (state)
1313                 device->modifier_state |= modifier;
1314         else
1315                 device->modifier_state &= ~modifier;
1316 }
1317
1318 void
1319 notify_key(struct wl_input_device *device,
1320            uint32_t time, uint32_t key, uint32_t state)
1321 {
1322         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1323         struct wlsc_compositor *compositor =
1324                 (struct wlsc_compositor *) device->compositor;
1325         uint32_t *k, *end;
1326         struct wlsc_binding *b;
1327
1328         if (state)
1329                 wlsc_compositor_idle_inhibit(compositor);
1330         else
1331                 wlsc_compositor_idle_release(compositor);
1332
1333         wl_list_for_each(b, &compositor->binding_list, link) {
1334                 if (b->key == key &&
1335                     b->modifier == wd->modifier_state) {
1336                         b->handler(&wd->input_device,
1337                                    time, key, 0, state, b->data);
1338                         break;
1339                 }
1340         }
1341
1342         update_modifier_state(wd, key, state);
1343         end = device->keys.data + device->keys.size;
1344         for (k = device->keys.data; k < end; k++) {
1345                 if (*k == key)
1346                         *k = *--end;
1347         }
1348         device->keys.size = (void *) end - device->keys.data;
1349         if (state) {
1350                 k = wl_array_add(&device->keys, sizeof *k);
1351                 *k = key;
1352         }
1353
1354         if (device->keyboard_focus != NULL)
1355                 wl_client_post_event(device->keyboard_focus->client,
1356                                      &device->object,
1357                                      WL_INPUT_DEVICE_KEY, time, key, state);
1358 }
1359
1360 void
1361 notify_pointer_focus(struct wl_input_device *device,
1362                      uint32_t time, struct wlsc_output *output,
1363                      int32_t x, int32_t y)
1364 {
1365         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1366         struct wlsc_compositor *compositor =
1367                 (struct wlsc_compositor *) device->compositor;
1368         struct wlsc_surface *es;
1369         int32_t sx, sy;
1370
1371         if (output) {
1372                 device->x = x;
1373                 device->y = y;
1374                 es = pick_surface(device, &sx, &sy);
1375                 wl_input_device_set_pointer_focus(device,
1376                                                   &es->surface,
1377                                                   time, x, y, sx, sy);
1378
1379                 compositor->focus = 1;
1380
1381                 wd->sprite->x = device->x - wd->hotspot_x;
1382                 wd->sprite->y = device->y - wd->hotspot_y;
1383                 wlsc_surface_update_matrix(wd->sprite);
1384         } else {
1385                 wl_input_device_set_pointer_focus(device, NULL,
1386                                                   time, 0, 0, 0, 0);
1387                 compositor->focus = 0;
1388         }
1389
1390         wlsc_surface_damage(wd->sprite);
1391 }
1392
1393 void
1394 notify_keyboard_focus(struct wl_input_device *device,
1395                       uint32_t time, struct wlsc_output *output,
1396                       struct wl_array *keys)
1397 {
1398         struct wlsc_input_device *wd =
1399                 (struct wlsc_input_device *) device;
1400         struct wlsc_compositor *compositor =
1401                 (struct wlsc_compositor *) device->compositor;
1402         struct wlsc_surface *es;
1403         uint32_t *k, *end;
1404
1405         if (!wl_list_empty(&compositor->surface_list))
1406                 es = container_of(compositor->surface_list.next,
1407                                   struct wlsc_surface, link);
1408         else
1409                 es = NULL;
1410
1411         if (output) {
1412                 wl_array_copy(&wd->input_device.keys, keys);
1413                 wd->modifier_state = 0;
1414                 end = device->keys.data + device->keys.size;
1415                 for (k = device->keys.data; k < end; k++) {
1416                         wlsc_compositor_idle_inhibit(compositor);
1417                         update_modifier_state(wd, *k, 1);
1418                 }
1419
1420                 wl_input_device_set_keyboard_focus(&wd->input_device,
1421                                                    &es->surface, time);
1422         } else {
1423                 end = device->keys.data + device->keys.size;
1424                 for (k = device->keys.data; k < end; k++)
1425                         wlsc_compositor_idle_release(compositor);
1426
1427                 wd->modifier_state = 0;
1428                 wl_input_device_set_keyboard_focus(&wd->input_device,
1429                                                    NULL, time);
1430         }
1431 }
1432
1433
1434 static void
1435 input_device_attach(struct wl_client *client,
1436                     struct wl_input_device *device_base,
1437                     uint32_t time,
1438                     struct wl_buffer *buffer, int32_t x, int32_t y)
1439 {
1440         struct wlsc_input_device *device =
1441                 (struct wlsc_input_device *) device_base;
1442
1443         if (time < device->input_device.pointer_focus_time)
1444                 return;
1445         if (device->input_device.pointer_focus == NULL)
1446                 return;
1447         if (device->input_device.pointer_focus->client != client)
1448                 return;
1449
1450         if (buffer == NULL) {
1451                 wlsc_input_device_set_pointer_image(device,
1452                                                     WLSC_POINTER_LEFT_PTR);
1453                 return;
1454         }
1455
1456         wlsc_input_device_attach_buffer(device, buffer, x, y);
1457 }
1458
1459 const static struct wl_input_device_interface input_device_interface = {
1460         input_device_attach,
1461 };
1462
1463 void
1464 wlsc_input_device_init(struct wlsc_input_device *device,
1465                        struct wlsc_compositor *ec)
1466 {
1467         wl_input_device_init(&device->input_device, &ec->compositor);
1468
1469         device->input_device.object.interface = &wl_input_device_interface;
1470         device->input_device.object.implementation =
1471                 (void (**)(void)) &input_device_interface;
1472         wl_display_add_object(ec->wl_display, &device->input_device.object);
1473         wl_display_add_global(ec->wl_display, &device->input_device.object, NULL);
1474
1475         device->sprite = wlsc_surface_create(ec,
1476                                              device->input_device.x,
1477                                              device->input_device.y, 32, 32);
1478         device->hotspot_x = 16;
1479         device->hotspot_y = 16;
1480         device->modifier_state = 0;
1481
1482         device->input_device.motion_grab.interface = &motion_grab_interface;
1483
1484         wl_list_insert(ec->input_device_list.prev, &device->link);
1485
1486         wlsc_input_device_set_pointer_image(device, WLSC_POINTER_LEFT_PTR);
1487 }
1488
1489 static void
1490 wlsc_output_post_geometry(struct wl_client *client,
1491                           struct wl_object *global, uint32_t version)
1492 {
1493         struct wlsc_output *output =
1494                 container_of(global, struct wlsc_output, object);
1495
1496         wl_client_post_event(client, global,
1497                              WL_OUTPUT_GEOMETRY,
1498                              output->x, output->y,
1499                              output->width, output->height);
1500 }
1501
1502 static const char vertex_shader[] =
1503         "uniform mat4 proj;\n"
1504         "attribute vec2 position;\n"
1505         "attribute vec2 texcoord;\n"
1506         "varying vec2 v_texcoord;\n"
1507         "void main()\n"
1508         "{\n"
1509         "   gl_Position = proj * vec4(position, 0.0, 1.0);\n"
1510         "   v_texcoord = texcoord;\n"
1511         "}\n";
1512
1513 static const char texture_fragment_shader[] =
1514         "precision mediump float;\n"
1515         "varying vec2 v_texcoord;\n"
1516         "uniform sampler2D tex;\n"
1517         "void main()\n"
1518         "{\n"
1519         "   gl_FragColor = texture2D(tex, v_texcoord)\n;"
1520         "}\n";
1521
1522 static int
1523 compile_shader(GLenum type, const char *source)
1524 {
1525         GLuint s;
1526         char msg[512];
1527         GLint status;
1528
1529         s = glCreateShader(type);
1530         glShaderSource(s, 1, &source, NULL);
1531         glCompileShader(s);
1532         glGetShaderiv(s, GL_COMPILE_STATUS, &status);
1533         if (!status) {
1534                 glGetShaderInfoLog(s, sizeof msg, NULL, msg);
1535                 fprintf(stderr, "shader info: %s\n", msg);
1536                 return GL_NONE;
1537         }
1538
1539         return s;
1540 }
1541
1542 static int
1543 wlsc_shader_init(struct wlsc_shader *shader,
1544                  const char *vertex_source, const char *fragment_source)
1545 {
1546         char msg[512];
1547         GLint status;
1548
1549         shader->vertex_shader =
1550                 compile_shader(GL_VERTEX_SHADER, vertex_source);
1551         shader->fragment_shader =
1552                 compile_shader(GL_FRAGMENT_SHADER, fragment_source);
1553
1554         shader->program = glCreateProgram();
1555         glAttachShader(shader->program, shader->vertex_shader);
1556         glAttachShader(shader->program, shader->fragment_shader);
1557         glBindAttribLocation(shader->program, 0, "position");
1558         glBindAttribLocation(shader->program, 1, "texcoord");
1559
1560         glLinkProgram(shader->program);
1561         glGetProgramiv(shader->program, GL_LINK_STATUS, &status);
1562         if (!status) {
1563                 glGetProgramInfoLog(shader->program, sizeof msg, NULL, msg);
1564                 fprintf(stderr, "link info: %s\n", msg);
1565                 return -1;
1566         }
1567
1568         shader->proj_uniform = glGetUniformLocation(shader->program, "proj");
1569         shader->tex_uniform = glGetUniformLocation(shader->program, "tex");
1570
1571         return 0;
1572 }
1573
1574 void
1575 wlsc_output_destroy(struct wlsc_output *output)
1576 {
1577         destroy_surface(&output->background->surface.resource, NULL);
1578 }
1579
1580 void
1581 wlsc_output_move(struct wlsc_output *output, int x, int y)
1582 {
1583         struct wlsc_compositor *c = output->compositor;
1584         int flip;
1585
1586         output->x = x;
1587         output->y = y;
1588
1589         if (output->background) {
1590                 output->background->x = x;
1591                 output->background->y = y;
1592                 wlsc_surface_update_matrix(output->background);
1593         }
1594
1595         pixman_region32_init(&output->previous_damage_region);
1596
1597         wlsc_matrix_init(&output->matrix);
1598         wlsc_matrix_translate(&output->matrix,
1599                               -output->x - output->width / 2.0,
1600                               -output->y - output->height / 2.0, 0);
1601
1602         flip = (output->flags & WL_OUTPUT_FLIPPED) ? -1 : 1;
1603         wlsc_matrix_scale(&output->matrix,
1604                           2.0 / output->width,
1605                           flip * 2.0 / output->height, 1);
1606
1607         pixman_region32_union_rect(&c->damage_region,
1608                                    &c->damage_region,
1609                                    x, y, output->width, output->height);
1610 }
1611
1612 void
1613 wlsc_output_init(struct wlsc_output *output, struct wlsc_compositor *c,
1614                  int x, int y, int width, int height, uint32_t flags)
1615 {
1616         output->compositor = c;
1617         output->x = x;
1618         output->y = y;
1619         output->width = width;
1620         output->height = height;
1621
1622         output->background =
1623                 background_create(output, option_background);
1624
1625         output->flags = flags;
1626         output->finished = 1;
1627         wlsc_output_move(output, x, y);
1628
1629         output->object.interface = &wl_output_interface;
1630         wl_display_add_object(c->wl_display, &output->object);
1631         wl_display_add_global(c->wl_display, &output->object,
1632                               wlsc_output_post_geometry);
1633 }
1634
1635 static void
1636 shm_buffer_created(struct wl_buffer *buffer)
1637 {
1638         struct wl_list *surfaces_attached_to;
1639
1640         surfaces_attached_to = malloc(sizeof *surfaces_attached_to);
1641         if (!surfaces_attached_to) {
1642                 buffer->user_data = NULL;
1643                 return;
1644         }
1645
1646         wl_list_init(surfaces_attached_to);
1647
1648         buffer->user_data = surfaces_attached_to;
1649 }
1650
1651 static void
1652 shm_buffer_damaged(struct wl_buffer *buffer,
1653                    int32_t x, int32_t y, int32_t width, int32_t height)
1654 {
1655         struct wl_list *surfaces_attached_to = buffer->user_data;
1656         struct wlsc_surface *es;
1657
1658         wl_list_for_each(es, surfaces_attached_to, buffer_link) {
1659                 glBindTexture(GL_TEXTURE_2D, es->texture);
1660                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
1661                              buffer->width, buffer->height, 0,
1662                              GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1663                              wl_shm_buffer_get_data(buffer));
1664                 /* Hmm, should use glTexSubImage2D() here but GLES2 doesn't
1665                  * support any unpack attributes except GL_UNPACK_ALIGNMENT. */
1666         }
1667 }
1668
1669 static void
1670 shm_buffer_destroyed(struct wl_buffer *buffer)
1671 {
1672         struct wl_list *surfaces_attached_to = buffer->user_data;
1673         struct wlsc_surface *es, *next;
1674
1675         wl_list_for_each_safe(es, next, surfaces_attached_to, buffer_link) {
1676                 es->buffer = NULL;
1677                 wl_list_remove(&es->buffer_link);
1678         }
1679
1680         free(surfaces_attached_to);
1681 }
1682
1683 const static struct wl_shm_callbacks shm_callbacks = {
1684         shm_buffer_created,
1685         shm_buffer_damaged,
1686         shm_buffer_destroyed
1687 };
1688
1689 int
1690 wlsc_compositor_init(struct wlsc_compositor *ec, struct wl_display *display)
1691 {
1692         struct wl_event_loop *loop;
1693         const char *extensions;
1694
1695         ec->wl_display = display;
1696
1697         wl_compositor_init(&ec->compositor, &compositor_interface, display);
1698
1699         ec->shm = wl_shm_init(display, &shm_callbacks);
1700         eglBindWaylandDisplayWL(ec->display, ec->wl_display);
1701
1702         wl_list_init(&ec->surface_list);
1703         wl_list_init(&ec->input_device_list);
1704         wl_list_init(&ec->output_list);
1705         wl_list_init(&ec->binding_list);
1706
1707         wlsc_shell_init(ec);
1708         wlsc_switcher_init(ec);
1709
1710         wlsc_compositor_add_binding(ec, KEY_BACKSPACE, 0,
1711                                     MODIFIER_CTRL | MODIFIER_ALT,
1712                                     terminate_binding, ec);
1713
1714         create_pointer_images(ec);
1715
1716         screenshooter_create(ec);
1717
1718         extensions = (const char *) glGetString(GL_EXTENSIONS);
1719         if (!strstr(extensions, "GL_EXT_texture_format_BGRA8888")) {
1720                 fprintf(stderr,
1721                         "GL_EXT_texture_format_BGRA8888 not available\n");
1722                 return -1;
1723         }
1724
1725         glActiveTexture(GL_TEXTURE0);
1726
1727         if (wlsc_shader_init(&ec->texture_shader,
1728                              vertex_shader, texture_fragment_shader) < 0)
1729                 return -1;
1730
1731         loop = wl_display_get_event_loop(ec->wl_display);
1732         ec->idle_source = wl_event_loop_add_timer(loop, idle_handler, ec);
1733         wl_event_source_timer_update(ec->idle_source, option_idle_time * 1000);
1734
1735         ec->timer_source = wl_event_loop_add_timer(loop, repaint, ec);
1736         pixman_region32_init(&ec->damage_region);
1737         wlsc_compositor_schedule_repaint(ec);
1738
1739         return 0;
1740 }
1741
1742 static int on_term_signal(int signal_number, void *data)
1743 {
1744         struct wlsc_compositor *ec = data;
1745
1746         wl_display_terminate(ec->wl_display);
1747
1748         return 1;
1749 }
1750
1751 int main(int argc, char *argv[])
1752 {
1753         struct wl_display *display;
1754         struct wlsc_compositor *ec;
1755         struct wl_event_loop *loop;
1756         GError *error = NULL;
1757         GOptionContext *context;
1758         int width, height;
1759
1760         g_type_init(); /* GdkPixbuf needs this, it seems. */
1761
1762         context = g_option_context_new(NULL);
1763         g_option_context_add_main_entries(context, option_entries, "Wayland");
1764         if (!g_option_context_parse(context, &argc, &argv, &error)) {
1765                 fprintf(stderr, "option parsing failed: %s\n", error->message);
1766                 exit(EXIT_FAILURE);
1767         }
1768         if (sscanf(option_geometry, "%dx%d", &width, &height) != 2) {
1769                 fprintf(stderr, "invalid geometry option: %s \n",
1770                         option_geometry);
1771                 exit(EXIT_FAILURE);
1772         }
1773
1774         display = wl_display_create();
1775
1776         ec = NULL;
1777
1778 #if BUILD_WAYLAND_COMPOSITOR
1779         if (getenv("WAYLAND_DISPLAY"))
1780                 ec = wayland_compositor_create(display, width, height);
1781 #endif
1782
1783 #if BUILD_X11_COMPOSITOR
1784         if (ec == NULL && getenv("DISPLAY"))
1785                 ec = x11_compositor_create(display, width, height);
1786 #endif
1787
1788 #if BUILD_OPENWFD_COMPOSITOR
1789         if (ec == NULL && getenv("OPENWFD"))
1790                 ec = wfd_compositor_create(display, option_connector);
1791 #endif
1792
1793 #if BUILD_DRM_COMPOSITOR
1794         if (ec == NULL)
1795                 ec = drm_compositor_create(display, option_connector);
1796 #endif
1797
1798         if (ec == NULL) {
1799                 fprintf(stderr, "failed to create compositor\n");
1800                 exit(EXIT_FAILURE);
1801         }
1802
1803         if (wl_display_add_socket(display, option_socket_name)) {
1804                 fprintf(stderr, "failed to add socket: %m\n");
1805                 exit(EXIT_FAILURE);
1806         }
1807
1808         loop = wl_display_get_event_loop(ec->wl_display);
1809         wl_event_loop_add_signal(loop, SIGTERM, on_term_signal, ec);
1810         wl_event_loop_add_signal(loop, SIGINT, on_term_signal, ec);
1811
1812         wl_display_run(display);
1813
1814         eglUnbindWaylandDisplayWL(ec->display, display);
1815         wl_display_destroy(display);
1816
1817         ec->destroy(ec);
1818
1819         return 0;
1820 }