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         glUniformMatrix4fv(ec->proj_uniform, 1, GL_FALSE, output->matrix.d);
 612         glUniform1i(ec->tex_uniform, 0);
 613
 614         pixman_region32_init(&new_damage);
 615         pixman_region32_init(&total_damage);
 616         pixman_region32_intersect_rect(&new_damage,
 617                                        &ec->damage_region,
 618                                        output->x, output->y,
 619                                        output->width, output->height);
 620         pixman_region32_subtract(&ec->damage_region,
 621                                  &ec->damage_region, &new_damage);
 622         pixman_region32_union(&total_damage, &new_damage,
 623                               &output->previous_damage_region);
 624         pixman_region32_copy(&output->previous_damage_region, &new_damage);
 625
 626         if (ec->state == WLSC_COMPOSITOR_SLEEPING) {
 627                 glClear(GL_COLOR_BUFFER_BIT);
 628                 return;
 629         }
 630
 631         if (ec->focus)
 632                 if (output->set_hardware_cursor(output, ec->input_device) < 0)
 633                         using_hardware_cursor = 0;
 634
 635         es = container_of(ec->surface_list.next, struct wlsc_surface, link);
 636         if (es->map_type == WLSC_SURFACE_MAP_FULLSCREEN &&
 637             es->fullscreen_output == output) {
 638                 if (es->visual == &ec->compositor.rgb_visual &&
 639                     using_hardware_cursor) {
 640                         if (output->prepare_scanout_surface(output, es) == 0) {
 641                                 /* We're drawing nothing now,
 642                                  * draw the damaged regions later. */
 643                                 pixman_region32_union(&ec->damage_region,
 644                                                       &ec->damage_region,
 645                                                       &total_damage);
 646                                 return;
 647                         }
 648                 }
 649
 650                 if (es->width < output->width ||
 651                     es->height < output->height)
 652                         glClear(GL_COLOR_BUFFER_BIT);
 653                 wlsc_surface_draw(es, output, &total_damage);
 654         } else {
 655                 wl_list_for_each(es, &ec->surface_list, link) {
 656                         if (es->visual != &ec->compositor.rgb_visual)
 657                                 continue;
 658
 659                         pixman_region32_init_rect(&repaint,
 660                                                   es->x, es->y,
 661                                                   es->width, es->height);
 662                         wlsc_surface_draw(es, output, &total_damage);
 663                         pixman_region32_subtract(&total_damage,
 664                                                  &total_damage, &repaint);
 665                 }
 666
 667                 if (output->background)
 668                         wlsc_surface_draw(output->background,
 669                                           output, &total_damage);
 670                 else
 671                         glClear(GL_COLOR_BUFFER_BIT);
 672
 673                 wl_list_for_each_reverse(es, &ec->surface_list, link) {
 674                         if (ec->overlay == es)
 675                                 continue;
 676
 677                         if (es->visual == &ec->compositor.rgb_visual) {
 678                                 pixman_region32_union_rect(&total_damage,
 679                                                            &total_damage,
 680                                                            es->x, es->y,
 681                                                            es->width, es->height);
 682                                 continue;
 683                         }
 684
 685                         wlsc_surface_draw(es, output, &total_damage);
 686                 }
 687         }
 688
 689         if (ec->overlay)
 690                 wlsc_surface_draw(ec->overlay, output, &total_damage);
 691
 692         if (ec->focus)
 693                 wl_list_for_each(eid, &ec->input_device_list, link) {
 694                         if (&eid->input_device != ec->input_device ||
 695                             !using_hardware_cursor)
 696                                 wlsc_surface_draw(eid->sprite, output,
 697                                                   &total_damage);
 698                 }
 699 }
 700
 701 static int
 702 repaint(void *data)
 703 {
 704         struct wlsc_compositor *ec = data;
 705         struct wlsc_output *output;
 706         int repainted_all_outputs = 1;
 707
 708         wl_list_for_each(output, &ec->output_list, link) {
 709                 if (!output->repaint_needed)
 710                         continue;
 711
 712                 if (!output->finished) {
 713                         repainted_all_outputs = 0;
 714                         continue;
 715                 }
 716
 717                 wlsc_output_repaint(output);
 718                 output->finished = 0;
 719                 output->repaint_needed = 0;
 720                 output->present(output);
 721         }
 722
 723         if (repainted_all_outputs)
 724                 ec->repaint_on_timeout = 0;
 725         else
 726                 wl_event_source_timer_update(ec->timer_source, 1);
 727
 728         return 1;
 729 }
 730
 731 void
 732 wlsc_compositor_schedule_repaint(struct wlsc_compositor *compositor)
 733 {
 734         struct wlsc_output *output;
 735
 736         if (compositor->state == WLSC_COMPOSITOR_SLEEPING)
 737                 return;
 738
 739         wl_list_for_each(output, &compositor->output_list, link)
 740                 output->repaint_needed = 1;
 741
 742         if (compositor->repaint_on_timeout)
 743                 return;
 744
 745         wl_event_source_timer_update(compositor->timer_source, 1);
 746         compositor->repaint_on_timeout = 1;
 747 }
 748
 749 static void
 750 surface_destroy(struct wl_client *client,
 751                 struct wl_surface *surface)
 752 {
 753         wl_resource_destroy(&surface->resource, client);
 754 }
 755
 756 void
 757 wlsc_surface_assign_output(struct wlsc_surface *es)
 758 {
 759         struct wlsc_compositor *ec = es->compositor;
 760         struct wlsc_output *output;
 761
 762         struct wlsc_output *tmp = es->output;
 763         es->output = NULL;
 764
 765         wl_list_for_each(output, &ec->output_list, link) {
 766                 if (output->x < es->x && es->x < output->x + output->width &&
 767                     output->y < es->y && es->y < output->y + output->height) {
 768                         if (output != tmp)
 769                                 printf("assiging surface %p to output %p\n",
 770                                        es, output);
 771                         es->output = output;
 772                 }
 773         }
 774
 775         if (es->output == NULL) {
 776                 printf("no output found\n");
 777                 es->output = container_of(ec->output_list.next,
 778                                           struct wlsc_output, link);
 779         }
 780 }
 781
 782 static void
 783 surface_attach(struct wl_client *client,
 784                struct wl_surface *surface, struct wl_buffer *buffer,
 785                int32_t x, int32_t y)
 786 {
 787         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 788
 789         /* FIXME: This damages the entire old surface, but we should
 790          * really just damage the part that's no longer covered by the
 791          * surface.  Anything covered by the new surface will be
 792          * damaged by the client. */
 793         wlsc_surface_damage(es);
 794
 795         wlsc_buffer_attach(buffer, surface);
 796
 797         es->buffer = buffer;
 798         es->x += x;
 799         es->y += y;
 800         es->width = buffer->width;
 801         es->height = buffer->height;
 802         if (x != 0 || y != 0)
 803                 wlsc_surface_assign_output(es);
 804         wlsc_surface_update_matrix(es);
 805 }
 806
 807 static void
 808 surface_map_toplevel(struct wl_client *client,
 809                      struct wl_surface *surface)
 810 {
 811         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 812         struct wlsc_compositor *ec = es->compositor;
 813
 814         switch (es->map_type) {
 815         case WLSC_SURFACE_MAP_UNMAPPED:
 816                 es->x = 10 + random() % 400;
 817                 es->y = 10 + random() % 400;
 818                 wlsc_surface_update_matrix(es);
 819                 /* assign to first output */
 820                 es->output = container_of(ec->output_list.next,
 821                                           struct wlsc_output, link);
 822                 wl_list_insert(&es->compositor->surface_list, &es->link);
 823                 break;
 824         case WLSC_SURFACE_MAP_TOPLEVEL:
 825                 return;
 826         case WLSC_SURFACE_MAP_FULLSCREEN:
 827                 es->fullscreen_output = NULL;
 828                 es->x = es->saved_x;
 829                 es->y = es->saved_y;
 830                 wlsc_surface_update_matrix(es);
 831                 break;
 832         default:
 833                 break;
 834         }
 835
 836         wlsc_surface_damage(es);
 837         es->map_type = WLSC_SURFACE_MAP_TOPLEVEL;
 838 }
 839
 840 static void
 841 surface_map_transient(struct wl_client *client,
 842                       struct wl_surface *surface, struct wl_surface *parent,
 843                       int x, int y, uint32_t flags)
 844 {
 845         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 846         struct wlsc_surface *pes = (struct wlsc_surface *) parent;
 847
 848         switch (es->map_type) {
 849         case WLSC_SURFACE_MAP_UNMAPPED:
 850                 wl_list_insert(&es->compositor->surface_list, &es->link);
 851                 /* assign to parents output  */
 852                 es->output = pes->output;
 853                 break;
 854         case WLSC_SURFACE_MAP_FULLSCREEN:
 855                 es->fullscreen_output = NULL;
 856                 break;
 857         default:
 858                 break;
 859         }
 860
 861         es->x = pes->x + x;
 862         es->y = pes->y + y;
 863
 864         wlsc_surface_update_matrix(es);
 865         wlsc_surface_damage(es);
 866         es->map_type = WLSC_SURFACE_MAP_TRANSIENT;
 867 }
 868
 869 static void
 870 surface_map_fullscreen(struct wl_client *client, struct wl_surface *surface)
 871 {
 872         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 873         struct wlsc_output *output;
 874
 875         /* FIXME: Fullscreen on first output */
 876         /* FIXME: Handle output going away */
 877         output = container_of(es->compositor->output_list.next,
 878                               struct wlsc_output, link);
 879
 880         switch (es->map_type) {
 881         case WLSC_SURFACE_MAP_UNMAPPED:
 882                 es->x = 10 + random() % 400;
 883                 es->y = 10 + random() % 400;
 884                 /* assign to first output */
 885                 es->output = output;
 886                 wl_list_insert(&es->compositor->surface_list, &es->link);
 887                 break;
 888         case WLSC_SURFACE_MAP_FULLSCREEN:
 889                 return;
 890         default:
 891                 break;
 892         }
 893
 894         es->saved_x = es->x;
 895         es->saved_y = es->y;
 896         es->x = (output->width - es->width) / 2;
 897         es->y = (output->height - es->height) / 2;
 898         es->fullscreen_output = output;
 899         wlsc_surface_update_matrix(es);
 900         wlsc_surface_damage(es);
 901         es->map_type = WLSC_SURFACE_MAP_FULLSCREEN;
 902 }
 903
 904 static void
 905 surface_damage(struct wl_client *client,
 906                struct wl_surface *surface,
 907                int32_t x, int32_t y, int32_t width, int32_t height)
 908 {
 909         struct wlsc_surface *es = (struct wlsc_surface *) surface;
 910
 911         wlsc_surface_damage_rectangle(es, x, y, width, height);
 912 }
 913
 914 const static struct wl_surface_interface surface_interface = {
 915         surface_destroy,
 916         surface_attach,
 917         surface_map_toplevel,
 918         surface_map_transient,
 919         surface_map_fullscreen,
 920         surface_damage
 921 };
 922
 923 static void
 924 wlsc_input_device_attach(struct wlsc_input_device *device,
 925                          int x, int y, int width, int height)
 926 {
 927         wlsc_surface_damage(device->sprite);
 928
 929         device->hotspot_x = x;
 930         device->hotspot_y = y;
 931
 932         device->sprite->x = device->input_device.x - device->hotspot_x;
 933         device->sprite->y = device->input_device.y - device->hotspot_y;
 934         device->sprite->width = width;
 935         device->sprite->height = height;
 936         wlsc_surface_update_matrix(device->sprite);
 937
 938         wlsc_surface_damage(device->sprite);
 939 }
 940
 941 static void
 942 wlsc_input_device_attach_buffer(struct wlsc_input_device *device,
 943                                 struct wl_buffer *buffer, int x, int y)
 944 {
 945         wlsc_buffer_attach(buffer, &device->sprite->surface);
 946         wlsc_input_device_attach(device, x, y, buffer->width, buffer->height);
 947 }
 948
 949 static void
 950 wlsc_input_device_attach_sprite(struct wlsc_input_device *device,
 951                                 struct wlsc_sprite *sprite, int x, int y)
 952 {
 953         wlsc_sprite_attach(sprite, &device->sprite->surface);
 954         wlsc_input_device_attach(device, x, y, sprite->width, sprite->height);
 955 }
 956
 957 void
 958 wlsc_input_device_set_pointer_image(struct wlsc_input_device *device,
 959                                     enum wlsc_pointer_type type)
 960 {
 961         struct wlsc_compositor *compositor =
 962                 (struct wlsc_compositor *) device->input_device.compositor;
 963
 964         wlsc_input_device_attach_sprite(device,
 965                                         compositor->pointer_sprites[type],
 966                                         pointer_images[type].hotspot_x,
 967                                         pointer_images[type].hotspot_y);
 968 }
 969
 970 static void
 971 compositor_create_surface(struct wl_client *client,
 972                           struct wl_compositor *compositor, uint32_t id)
 973 {
 974         struct wlsc_compositor *ec = (struct wlsc_compositor *) compositor;
 975         struct wlsc_surface *surface;
 976
 977         surface = wlsc_surface_create(ec, 0, 0, 0, 0);
 978         if (surface == NULL) {
 979                 wl_client_post_no_memory(client);
 980                 return;
 981         }
 982
 983         surface->surface.resource.destroy = destroy_surface;
 984
 985         surface->surface.resource.object.id = id;
 986         surface->surface.resource.object.interface = &wl_surface_interface;
 987         surface->surface.resource.object.implementation =
 988                 (void (**)(void)) &surface_interface;
 989         surface->surface.client = client;
 990
 991         wl_client_add_resource(client, &surface->surface.resource);
 992 }
 993
 994 const static struct wl_compositor_interface compositor_interface = {
 995         compositor_create_surface,
 996 };
 997
 998 static void
 999 wlsc_surface_transform(struct wlsc_surface *surface,
1000                        int32_t x, int32_t y, int32_t *sx, int32_t *sy)
1001 {
1002         struct wlsc_vector v = { { x, y, 0, 1 } };
1003
1004         wlsc_matrix_transform(&surface->matrix_inv, &v);
1005         *sx = v.f[0] * surface->width;
1006         *sy = v.f[1] * surface->height;
1007 }
1008
1009 struct wlsc_surface *
1010 pick_surface(struct wl_input_device *device, int32_t *sx, int32_t *sy)
1011 {
1012         struct wlsc_compositor *ec =
1013                 (struct wlsc_compositor *) device->compositor;
1014         struct wlsc_surface *es;
1015
1016         wl_list_for_each(es, &ec->surface_list, link) {
1017                 wlsc_surface_transform(es, device->x, device->y, sx, sy);
1018                 if (0 <= *sx && *sx < es->width &&
1019                     0 <= *sy && *sy < es->height)
1020                         return es;
1021         }
1022
1023         return NULL;
1024 }
1025
1026
1027 static void
1028 motion_grab_motion(struct wl_grab *grab,
1029                    uint32_t time, int32_t x, int32_t y)
1030 {
1031         struct wlsc_input_device *device =
1032                 (struct wlsc_input_device *) grab->input_device;
1033         struct wlsc_surface *es =
1034                 (struct wlsc_surface *) device->input_device.pointer_focus;
1035         int32_t sx, sy;
1036
1037         wlsc_surface_transform(es, x, y, &sx, &sy);
1038         wl_client_post_event(es->surface.client,
1039                              &device->input_device.object,
1040                              WL_INPUT_DEVICE_MOTION,
1041                              time, x, y, sx, sy);
1042 }
1043
1044 static void
1045 motion_grab_button(struct wl_grab *grab,
1046                    uint32_t time, int32_t button, int32_t state)
1047 {
1048         wl_client_post_event(grab->input_device->pointer_focus->client,
1049                              &grab->input_device->object,
1050                              WL_INPUT_DEVICE_BUTTON,
1051                              time, button, state);
1052 }
1053
1054 static void
1055 motion_grab_end(struct wl_grab *grab, uint32_t time)
1056 {
1057 }
1058
1059 static const struct wl_grab_interface motion_grab_interface = {
1060         motion_grab_motion,
1061         motion_grab_button,
1062         motion_grab_end
1063 };
1064
1065 void
1066 wlsc_compositor_wake(struct wlsc_compositor *compositor)
1067 {
1068         if (compositor->idle_inhibit)
1069                 return;
1070
1071         if (compositor->state == WLSC_COMPOSITOR_SLEEPING) {
1072                 compositor->state = WLSC_COMPOSITOR_ACTIVE;
1073                 wlsc_compositor_damage_all(compositor);
1074         }
1075
1076         wl_event_source_timer_update(compositor->idle_source,
1077                                      option_idle_time * 1000);
1078 }
1079
1080 static void
1081 wlsc_compositor_idle_inhibit(struct wlsc_compositor *compositor)
1082 {
1083         wlsc_compositor_wake(compositor);
1084         compositor->idle_inhibit++;
1085 }
1086
1087 static void
1088 wlsc_compositor_idle_release(struct wlsc_compositor *compositor)
1089 {
1090         compositor->idle_inhibit--;
1091         wlsc_compositor_wake(compositor);
1092 }
1093
1094 static int
1095 idle_handler(void *data)
1096 {
1097         struct wlsc_compositor *compositor = data;
1098
1099         if (compositor->idle_inhibit)
1100                 return 1;
1101
1102         wlsc_compositor_damage_all(compositor);
1103         compositor->state = WLSC_COMPOSITOR_SLEEPING;
1104
1105         return 1;
1106 }
1107
1108 void
1109 notify_motion(struct wl_input_device *device, uint32_t time, int x, int y)
1110 {
1111         struct wlsc_surface *es;
1112         struct wlsc_compositor *ec =
1113                 (struct wlsc_compositor *) device->compositor;
1114         struct wlsc_output *output;
1115         const struct wl_grab_interface *interface;
1116         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1117         int32_t sx, sy;
1118         int x_valid = 0, y_valid = 0;
1119         int min_x = INT_MAX, min_y = INT_MAX, max_x = INT_MIN, max_y = INT_MIN;
1120
1121         wlsc_compositor_wake(ec);
1122
1123         wl_list_for_each(output, &ec->output_list, link) {
1124                 if (output->x <= x && x <= output->x + output->width)
1125                         x_valid = 1;
1126
1127                 if (output->y <= y && y <= output->y + output->height)
1128                         y_valid = 1;
1129
1130                 /* FIXME: calculate this only on output addition/deletion */
1131                 if (output->x < min_x)
1132                         min_x = output->x;
1133                 if (output->y < min_y)
1134                         min_y = output->y;
1135
1136                 if (output->x + output->width > max_x)
1137                         max_x = output->x + output->width;
1138                 if (output->y + output->height > max_y)
1139                         max_y = output->y + output->height;
1140         }
1141
1142         if (!x_valid) {
1143                 if (x < min_x)
1144                         x = min_x;
1145                 else if (x >= max_x)
1146                         x = max_x;
1147         }
1148         if (!y_valid) {
1149                 if (y < min_y)
1150                         y = min_y;
1151                 else  if (y >= max_y)
1152                         y = max_y;
1153         }
1154
1155         device->x = x;
1156         device->y = y;
1157
1158         if (device->grab) {
1159                 interface = device->grab->interface;
1160                 interface->motion(device->grab, time, x, y);
1161         } else {
1162                 es = pick_surface(device, &sx, &sy);
1163                 wl_input_device_set_pointer_focus(device,
1164                                                   &es->surface,
1165                                                   time, x, y, sx, sy);
1166                 if (es)
1167                         wl_client_post_event(es->surface.client,
1168                                              &device->object,
1169                                              WL_INPUT_DEVICE_MOTION,
1170                                              time, x, y, sx, sy);
1171         }
1172
1173         wlsc_surface_damage(wd->sprite);
1174
1175         wd->sprite->x = device->x - wd->hotspot_x;
1176         wd->sprite->y = device->y - wd->hotspot_y;
1177         wlsc_surface_update_matrix(wd->sprite);
1178
1179         wlsc_surface_damage(wd->sprite);
1180 }
1181
1182 void
1183 wlsc_surface_activate(struct wlsc_surface *surface,
1184                       struct wlsc_input_device *device, uint32_t time)
1185 {
1186         wlsc_surface_raise(surface);
1187         if (device->selection)
1188                 wlsc_selection_set_focus(device->selection,
1189                                          &surface->surface, time);
1190
1191         wl_input_device_set_keyboard_focus(&device->input_device,
1192                                            &surface->surface,
1193                                            time);
1194 }
1195
1196 struct wlsc_binding {
1197         uint32_t key;
1198         uint32_t button;
1199         uint32_t modifier;
1200         wlsc_binding_handler_t handler;
1201         void *data;
1202         struct wl_list link;
1203 };
1204
1205 void
1206 notify_button(struct wl_input_device *device,
1207               uint32_t time, int32_t button, int32_t state)
1208 {
1209         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1210         struct wlsc_compositor *compositor =
1211                 (struct wlsc_compositor *) device->compositor;
1212         struct wlsc_binding *b;
1213         struct wlsc_surface *surface =
1214                 (struct wlsc_surface *) device->pointer_focus;
1215
1216         if (state)
1217                 wlsc_compositor_idle_inhibit(compositor);
1218         else
1219                 wlsc_compositor_idle_release(compositor);
1220
1221         if (state && surface && device->grab == NULL) {
1222                 wlsc_surface_activate(surface, wd, time);
1223                 wl_input_device_start_grab(device,
1224                                            &device->motion_grab,
1225                                            button, time);
1226         }
1227
1228         wl_list_for_each(b, &compositor->binding_list, link) {
1229                 if (b->button == button &&
1230                     b->modifier == wd->modifier_state && state) {
1231                         b->handler(&wd->input_device,
1232                                    time, 0, button, state, b->data);
1233                         break;
1234                 }
1235         }
1236
1237         if (device->grab)
1238                 device->grab->interface->button(device->grab, time,
1239                                                 button, state);
1240
1241         if (!state && device->grab && device->grab_button == button)
1242                 wl_input_device_end_grab(device, time);
1243 }
1244
1245 static void
1246 terminate_binding(struct wl_input_device *device, uint32_t time,
1247                   uint32_t key, uint32_t button, uint32_t state, void *data)
1248 {
1249         struct wlsc_compositor *compositor = data;
1250
1251         if (state)
1252                 wl_display_terminate(compositor->wl_display);
1253 }
1254
1255 struct wlsc_binding *
1256 wlsc_compositor_add_binding(struct wlsc_compositor *compositor,
1257                             uint32_t key, uint32_t button, uint32_t modifier,
1258                             wlsc_binding_handler_t handler, void *data)
1259 {
1260         struct wlsc_binding *binding;
1261
1262         binding = malloc(sizeof *binding);
1263         if (binding == NULL)
1264                 return NULL;
1265
1266         binding->key = key;
1267         binding->button = button;
1268         binding->modifier = modifier;
1269         binding->handler = handler;
1270         binding->data = data;
1271         wl_list_insert(compositor->binding_list.prev, &binding->link);
1272
1273         return binding;
1274 }
1275
1276 void
1277 wlsc_binding_destroy(struct wlsc_binding *binding)
1278 {
1279         wl_list_remove(&binding->link);
1280         free(binding);
1281 }
1282
1283 static void
1284 update_modifier_state(struct wlsc_input_device *device,
1285                       uint32_t key, uint32_t state)
1286 {
1287         uint32_t modifier;
1288
1289         switch (key) {
1290         case KEY_LEFTCTRL:
1291         case KEY_RIGHTCTRL:
1292                 modifier = MODIFIER_CTRL;
1293                 break;
1294
1295         case KEY_LEFTALT:
1296         case KEY_RIGHTALT:
1297                 modifier = MODIFIER_ALT;
1298                 break;
1299
1300         case KEY_LEFTMETA:
1301         case KEY_RIGHTMETA:
1302                 modifier = MODIFIER_SUPER;
1303                 break;
1304
1305         default:
1306                 modifier = 0;
1307                 break;
1308         }
1309
1310         if (state)
1311                 device->modifier_state |= modifier;
1312         else
1313                 device->modifier_state &= ~modifier;
1314 }
1315
1316 void
1317 notify_key(struct wl_input_device *device,
1318            uint32_t time, uint32_t key, uint32_t state)
1319 {
1320         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1321         struct wlsc_compositor *compositor =
1322                 (struct wlsc_compositor *) device->compositor;
1323         uint32_t *k, *end;
1324         struct wlsc_binding *b;
1325
1326         if (state)
1327                 wlsc_compositor_idle_inhibit(compositor);
1328         else
1329                 wlsc_compositor_idle_release(compositor);
1330
1331         wl_list_for_each(b, &compositor->binding_list, link) {
1332                 if (b->key == key &&
1333                     b->modifier == wd->modifier_state) {
1334                         b->handler(&wd->input_device,
1335                                    time, key, 0, state, b->data);
1336                         break;
1337                 }
1338         }
1339
1340         update_modifier_state(wd, key, state);
1341         end = device->keys.data + device->keys.size;
1342         for (k = device->keys.data; k < end; k++) {
1343                 if (*k == key)
1344                         *k = *--end;
1345         }
1346         device->keys.size = (void *) end - device->keys.data;
1347         if (state) {
1348                 k = wl_array_add(&device->keys, sizeof *k);
1349                 *k = key;
1350         }
1351
1352         if (device->keyboard_focus != NULL)
1353                 wl_client_post_event(device->keyboard_focus->client,
1354                                      &device->object,
1355                                      WL_INPUT_DEVICE_KEY, time, key, state);
1356 }
1357
1358 void
1359 notify_pointer_focus(struct wl_input_device *device,
1360                      uint32_t time, struct wlsc_output *output,
1361                      int32_t x, int32_t y)
1362 {
1363         struct wlsc_input_device *wd = (struct wlsc_input_device *) device;
1364         struct wlsc_compositor *compositor =
1365                 (struct wlsc_compositor *) device->compositor;
1366         struct wlsc_surface *es;
1367         int32_t sx, sy;
1368
1369         if (output) {
1370                 device->x = x;
1371                 device->y = y;
1372                 es = pick_surface(device, &sx, &sy);
1373                 wl_input_device_set_pointer_focus(device,
1374                                                   &es->surface,
1375                                                   time, x, y, sx, sy);
1376
1377                 compositor->focus = 1;
1378
1379                 wd->sprite->x = device->x - wd->hotspot_x;
1380                 wd->sprite->y = device->y - wd->hotspot_y;
1381                 wlsc_surface_update_matrix(wd->sprite);
1382         } else {
1383                 wl_input_device_set_pointer_focus(device, NULL,
1384                                                   time, 0, 0, 0, 0);
1385                 compositor->focus = 0;
1386         }
1387
1388         wlsc_surface_damage(wd->sprite);
1389 }
1390
1391 void
1392 notify_keyboard_focus(struct wl_input_device *device,
1393                       uint32_t time, struct wlsc_output *output,
1394                       struct wl_array *keys)
1395 {
1396         struct wlsc_input_device *wd =
1397                 (struct wlsc_input_device *) device;
1398         struct wlsc_compositor *compositor =
1399                 (struct wlsc_compositor *) device->compositor;
1400         struct wlsc_surface *es;
1401         uint32_t *k, *end;
1402
1403         if (!wl_list_empty(&compositor->surface_list))
1404                 es = container_of(compositor->surface_list.next,
1405                                   struct wlsc_surface, link);
1406         else
1407                 es = NULL;
1408
1409         if (output) {
1410                 wl_array_copy(&wd->input_device.keys, keys);
1411                 wd->modifier_state = 0;
1412                 end = device->keys.data + device->keys.size;
1413                 for (k = device->keys.data; k < end; k++) {
1414                         wlsc_compositor_idle_inhibit(compositor);
1415                         update_modifier_state(wd, *k, 1);
1416                 }
1417
1418                 wl_input_device_set_keyboard_focus(&wd->input_device,
1419                                                    &es->surface, time);
1420         } else {
1421                 end = device->keys.data + device->keys.size;
1422                 for (k = device->keys.data; k < end; k++)
1423                         wlsc_compositor_idle_release(compositor);
1424
1425                 wd->modifier_state = 0;
1426                 wl_input_device_set_keyboard_focus(&wd->input_device,
1427                                                    NULL, time);
1428         }
1429 }
1430
1431
1432 static void
1433 input_device_attach(struct wl_client *client,
1434                     struct wl_input_device *device_base,
1435                     uint32_t time,
1436                     struct wl_buffer *buffer, int32_t x, int32_t y)
1437 {
1438         struct wlsc_input_device *device =
1439                 (struct wlsc_input_device *) device_base;
1440
1441         if (time < device->input_device.pointer_focus_time)
1442                 return;
1443         if (device->input_device.pointer_focus == NULL)
1444                 return;
1445         if (device->input_device.pointer_focus->client != client)
1446                 return;
1447
1448         if (buffer == NULL) {
1449                 wlsc_input_device_set_pointer_image(device,
1450                                                     WLSC_POINTER_LEFT_PTR);
1451                 return;
1452         }
1453
1454         wlsc_input_device_attach_buffer(device, buffer, x, y);
1455 }
1456
1457 const static struct wl_input_device_interface input_device_interface = {
1458         input_device_attach,
1459 };
1460
1461 void
1462 wlsc_input_device_init(struct wlsc_input_device *device,
1463                        struct wlsc_compositor *ec)
1464 {
1465         wl_input_device_init(&device->input_device, &ec->compositor);
1466
1467         device->input_device.object.interface = &wl_input_device_interface;
1468         device->input_device.object.implementation =
1469                 (void (**)(void)) &input_device_interface;
1470         wl_display_add_object(ec->wl_display, &device->input_device.object);
1471         wl_display_add_global(ec->wl_display, &device->input_device.object, NULL);
1472
1473         device->sprite = wlsc_surface_create(ec,
1474                                              device->input_device.x,
1475                                              device->input_device.y, 32, 32);
1476         device->hotspot_x = 16;
1477         device->hotspot_y = 16;
1478         device->modifier_state = 0;
1479
1480         device->input_device.motion_grab.interface = &motion_grab_interface;
1481
1482         wl_list_insert(ec->input_device_list.prev, &device->link);
1483
1484         wlsc_input_device_set_pointer_image(device, WLSC_POINTER_LEFT_PTR);
1485 }
1486
1487 static void
1488 wlsc_output_post_geometry(struct wl_client *client,
1489                           struct wl_object *global, uint32_t version)
1490 {
1491         struct wlsc_output *output =
1492                 container_of(global, struct wlsc_output, object);
1493
1494         wl_client_post_event(client, global,
1495                              WL_OUTPUT_GEOMETRY,
1496                              output->x, output->y,
1497                              output->width, output->height);
1498 }
1499
1500 static const char vertex_shader[] =
1501         "uniform mat4 proj;\n"
1502         "attribute vec2 position;\n"
1503         "attribute vec2 texcoord;\n"
1504         "varying vec2 v_texcoord;\n"
1505         "void main()\n"
1506         "{\n"
1507         "   gl_Position = proj * vec4(position, 0.0, 1.0);\n"
1508         "   v_texcoord = texcoord;\n"
1509         "}\n";
1510
1511 static const char fragment_shader[] =
1512         "precision mediump float;\n"
1513         "varying vec2 v_texcoord;\n"
1514         "uniform sampler2D tex;\n"
1515         "void main()\n"
1516         "{\n"
1517         "   gl_FragColor = texture2D(tex, v_texcoord)\n;"
1518         "}\n";
1519
1520 static int
1521 init_shaders(struct wlsc_compositor *ec)
1522 {
1523         GLuint v, f, program;
1524         const char *p;
1525         char msg[512];
1526         GLint status;
1527
1528         p = vertex_shader;
1529         v = glCreateShader(GL_VERTEX_SHADER);
1530         glShaderSource(v, 1, &p, NULL);
1531         glCompileShader(v);
1532         glGetShaderiv(v, GL_COMPILE_STATUS, &status);
1533         if (!status) {
1534                 glGetShaderInfoLog(v, sizeof msg, NULL, msg);
1535                 fprintf(stderr, "vertex shader info: %s\n", msg);
1536                 return -1;
1537         }
1538
1539         p = fragment_shader;
1540         f = glCreateShader(GL_FRAGMENT_SHADER);
1541         glShaderSource(f, 1, &p, NULL);
1542         glCompileShader(f);
1543         glGetShaderiv(f, GL_COMPILE_STATUS, &status);
1544         if (!status) {
1545                 glGetShaderInfoLog(f, sizeof msg, NULL, msg);
1546                 fprintf(stderr, "fragment shader info: %s\n", msg);
1547                 return -1;
1548         }
1549
1550         program = glCreateProgram();
1551         glAttachShader(program, v);
1552         glAttachShader(program, f);
1553         glBindAttribLocation(program, 0, "position");
1554         glBindAttribLocation(program, 1, "texcoord");
1555
1556         glLinkProgram(program);
1557         glGetProgramiv(program, GL_LINK_STATUS, &status);
1558         if (!status) {
1559                 glGetProgramInfoLog(program, sizeof msg, NULL, msg);
1560                 fprintf(stderr, "link info: %s\n", msg);
1561                 return -1;
1562         }
1563
1564         glUseProgram(program);
1565         ec->proj_uniform = glGetUniformLocation(program, "proj");
1566         ec->tex_uniform = glGetUniformLocation(program, "tex");
1567
1568         return 0;
1569 }
1570
1571 void
1572 wlsc_output_destroy(struct wlsc_output *output)
1573 {
1574         destroy_surface(&output->background->surface.resource, NULL);
1575 }
1576
1577 void
1578 wlsc_output_move(struct wlsc_output *output, int x, int y)
1579 {
1580         struct wlsc_compositor *c = output->compositor;
1581         int flip;
1582
1583         output->x = x;
1584         output->y = y;
1585
1586         if (output->background) {
1587                 output->background->x = x;
1588                 output->background->y = y;
1589                 wlsc_surface_update_matrix(output->background);
1590         }
1591
1592         pixman_region32_init(&output->previous_damage_region);
1593
1594         wlsc_matrix_init(&output->matrix);
1595         wlsc_matrix_translate(&output->matrix,
1596                               -output->x - output->width / 2.0,
1597                               -output->y - output->height / 2.0, 0);
1598
1599         flip = (output->flags & WL_OUTPUT_FLIPPED) ? -1 : 1;
1600         wlsc_matrix_scale(&output->matrix,
1601                           2.0 / output->width,
1602                           flip * 2.0 / output->height, 1);
1603
1604         pixman_region32_union_rect(&c->damage_region,
1605                                    &c->damage_region,
1606                                    x, y, output->width, output->height);
1607 }
1608
1609 void
1610 wlsc_output_init(struct wlsc_output *output, struct wlsc_compositor *c,
1611                  int x, int y, int width, int height, uint32_t flags)
1612 {
1613         output->compositor = c;
1614         output->x = x;
1615         output->y = y;
1616         output->width = width;
1617         output->height = height;
1618
1619         output->background =
1620                 background_create(output, option_background);
1621
1622         output->flags = flags;
1623         output->finished = 1;
1624         wlsc_output_move(output, x, y);
1625
1626         output->object.interface = &wl_output_interface;
1627         wl_display_add_object(c->wl_display, &output->object);
1628         wl_display_add_global(c->wl_display, &output->object,
1629                               wlsc_output_post_geometry);
1630 }
1631
1632 static void
1633 shm_buffer_created(struct wl_buffer *buffer)
1634 {
1635         struct wl_list *surfaces_attached_to;
1636
1637         surfaces_attached_to = malloc(sizeof *surfaces_attached_to);
1638         if (!surfaces_attached_to) {
1639                 buffer->user_data = NULL;
1640                 return;
1641         }
1642
1643         wl_list_init(surfaces_attached_to);
1644
1645         buffer->user_data = surfaces_attached_to;
1646 }
1647
1648 static void
1649 shm_buffer_damaged(struct wl_buffer *buffer,
1650                    int32_t x, int32_t y, int32_t width, int32_t height)
1651 {
1652         struct wl_list *surfaces_attached_to = buffer->user_data;
1653         struct wlsc_surface *es;
1654
1655         wl_list_for_each(es, surfaces_attached_to, buffer_link) {
1656                 glBindTexture(GL_TEXTURE_2D, es->texture);
1657                 glTexImage2D(GL_TEXTURE_2D, 0, GL_BGRA_EXT,
1658                              buffer->width, buffer->height, 0,
1659                              GL_BGRA_EXT, GL_UNSIGNED_BYTE,
1660                              wl_shm_buffer_get_data(buffer));
1661                 /* Hmm, should use glTexSubImage2D() here but GLES2 doesn't
1662                  * support any unpack attributes except GL_UNPACK_ALIGNMENT. */
1663         }
1664 }
1665
1666 static void
1667 shm_buffer_destroyed(struct wl_buffer *buffer)
1668 {
1669         struct wl_list *surfaces_attached_to = buffer->user_data;
1670         struct wlsc_surface *es, *next;
1671
1672         wl_list_for_each_safe(es, next, surfaces_attached_to, buffer_link) {
1673                 es->buffer = NULL;
1674                 wl_list_remove(&es->buffer_link);
1675         }
1676
1677         free(surfaces_attached_to);
1678 }
1679
1680 const static struct wl_shm_callbacks shm_callbacks = {
1681         shm_buffer_created,
1682         shm_buffer_damaged,
1683         shm_buffer_destroyed
1684 };
1685
1686 int
1687 wlsc_compositor_init(struct wlsc_compositor *ec, struct wl_display *display)
1688 {
1689         struct wl_event_loop *loop;
1690         const char *extensions;
1691
1692         ec->wl_display = display;
1693
1694         wl_compositor_init(&ec->compositor, &compositor_interface, display);
1695
1696         ec->shm = wl_shm_init(display, &shm_callbacks);
1697         eglBindWaylandDisplayWL(ec->display, ec->wl_display);
1698
1699         wl_list_init(&ec->surface_list);
1700         wl_list_init(&ec->input_device_list);
1701         wl_list_init(&ec->output_list);
1702         wl_list_init(&ec->binding_list);
1703
1704         wlsc_shell_init(ec);
1705         wlsc_switcher_init(ec);
1706
1707         wlsc_compositor_add_binding(ec, KEY_BACKSPACE, 0,
1708                                     MODIFIER_CTRL | MODIFIER_ALT,
1709                                     terminate_binding, ec);
1710
1711         create_pointer_images(ec);
1712
1713         screenshooter_create(ec);
1714
1715         extensions = (const char *) glGetString(GL_EXTENSIONS);
1716         if (!strstr(extensions, "GL_EXT_texture_format_BGRA8888")) {
1717                 fprintf(stderr,
1718                         "GL_EXT_texture_format_BGRA8888 not available\n");
1719                 return -1;
1720         }
1721
1722         glActiveTexture(GL_TEXTURE0);
1723         if (init_shaders(ec) < 0)
1724                 return -1;
1725
1726         loop = wl_display_get_event_loop(ec->wl_display);
1727         ec->idle_source = wl_event_loop_add_timer(loop, idle_handler, ec);
1728         wl_event_source_timer_update(ec->idle_source, option_idle_time * 1000);
1729
1730         ec->timer_source = wl_event_loop_add_timer(loop, repaint, ec);
1731         pixman_region32_init(&ec->damage_region);
1732         wlsc_compositor_schedule_repaint(ec);
1733
1734         return 0;
1735 }
1736
1737 static int on_term_signal(int signal_number, void *data)
1738 {
1739         struct wlsc_compositor *ec = data;
1740
1741         wl_display_terminate(ec->wl_display);
1742
1743         return 1;
1744 }
1745
1746 int main(int argc, char *argv[])
1747 {
1748         struct wl_display *display;
1749         struct wlsc_compositor *ec;
1750         struct wl_event_loop *loop;
1751         GError *error = NULL;
1752         GOptionContext *context;
1753         int width, height;
1754
1755         g_type_init(); /* GdkPixbuf needs this, it seems. */
1756
1757         context = g_option_context_new(NULL);
1758         g_option_context_add_main_entries(context, option_entries, "Wayland");
1759         if (!g_option_context_parse(context, &argc, &argv, &error)) {
1760                 fprintf(stderr, "option parsing failed: %s\n", error->message);
1761                 exit(EXIT_FAILURE);
1762         }
1763         if (sscanf(option_geometry, "%dx%d", &width, &height) != 2) {
1764                 fprintf(stderr, "invalid geometry option: %s \n",
1765                         option_geometry);
1766                 exit(EXIT_FAILURE);
1767         }
1768
1769         display = wl_display_create();
1770
1771         ec = NULL;
1772
1773 #if BUILD_WAYLAND_COMPOSITOR
1774         if (getenv("WAYLAND_DISPLAY"))
1775                 ec = wayland_compositor_create(display, width, height);
1776 #endif
1777
1778 #if BUILD_X11_COMPOSITOR
1779         if (ec == NULL && getenv("DISPLAY"))
1780                 ec = x11_compositor_create(display, width, height);
1781 #endif
1782
1783 #if BUILD_OPENWFD_COMPOSITOR
1784         if (ec == NULL && getenv("OPENWFD"))
1785                 ec = wfd_compositor_create(display, option_connector);
1786 #endif
1787
1788 #if BUILD_DRM_COMPOSITOR
1789         if (ec == NULL)
1790                 ec = drm_compositor_create(display, option_connector);
1791 #endif
1792
1793         if (ec == NULL) {
1794                 fprintf(stderr, "failed to create compositor\n");
1795                 exit(EXIT_FAILURE);
1796         }
1797
1798         if (wl_display_add_socket(display, option_socket_name)) {
1799                 fprintf(stderr, "failed to add socket: %m\n");
1800                 exit(EXIT_FAILURE);
1801         }
1802
1803         loop = wl_display_get_event_loop(ec->wl_display);
1804         wl_event_loop_add_signal(loop, SIGTERM, on_term_signal, ec);
1805         wl_event_loop_add_signal(loop, SIGINT, on_term_signal, ec);
1806
1807         wl_display_run(display);
1808
1809         eglUnbindWaylandDisplayWL(ec->display, display);
1810         wl_display_destroy(display);
1811
1812         ec->destroy(ec);
1813
1814         return 0;
1815 }