tests/surface-screenshot.c

   1 /*
   2  * Copyright © 2015 Collabora, Ltd.
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining
   5  * a copy of this software and associated documentation files (the
   6  * "Software"), to deal in the Software without restriction, including
   7  * without limitation the rights to use, copy, modify, merge, publish,
   8  * distribute, sublicense, and/or sell copies of the Software, and to
   9  * permit persons to whom the Software is furnished to do so, subject to
  10  * the following conditions:
  11  *
  12  * The above copyright notice and this permission notice (including the
  13  * next paragraph) shall be included in all copies or substantial
  14  * portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  17  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  18  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  19  * NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
  20  * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
  21  * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  23  * SOFTWARE.
  24  */
  25
  26 #include "config.h"
  27
  28 #include <stdlib.h>
  29 #include <assert.h>
  30 #include <ctype.h>
  31 #include <string.h>
  32 #include <errno.h>
  33 #include <linux/input.h>
  34
  35 #include "compositor.h"
  36 #include "file-util.h"
  37
  38 static char *
  39 encode_PAM_comment_line(const char *comment)
  40 {
  41         size_t len = strlen(comment);
  42         char *str = malloc(len + 2);
  43         char *dst = str;
  44         const char *src = comment;
  45         const char *end = src + len;
  46
  47         *dst++ = '#';
  48         *dst++ = ' ';
  49         for (; src < end; src++, dst++) {
  50                 if (*src == '\n' || !isprint(*src))
  51                         *dst = '_';
  52                 else
  53                         *dst = *src;
  54         }
  55
  56         return str;
  57 }
  58
  59 /*
  60  * PAM image format:
  61  * http://en.wikipedia.org/wiki/Netpbm#PAM_graphics_format
  62  * RGBA is in byte address order.
  63  *
  64  * ImageMagick 'convert' can convert a PAM image to a more common format.
  65  * To view the image metadata: $ head -n7 image.pam
  66  */
  67 static int
  68 write_PAM_image_rgba(FILE *fp, int width, int height,
  69                      void *pixels, size_t size, const char *comment)
  70 {
  71         char *str;
  72         int ret;
  73
  74         assert(size == (size_t)4 * width * height);
  75
  76         ret = fprintf(fp, "P7\nWIDTH %d\nHEIGHT %d\nDEPTH 4\nMAXVAL 255\n"
  77                       "TUPLTYPE RGB_ALPHA\n", width, height);
  78         if (ret < 0)
  79                 return -1;
  80
  81         if (comment) {
  82                 str = encode_PAM_comment_line(comment);
  83                 ret = fprintf(fp, "%s\n", str);
  84                 free(str);
  85
  86                 if (ret < 0)
  87                         return -1;
  88         }
  89
  90         ret = fprintf(fp, "ENDHDR\n");
  91         if (ret < 0)
  92                 return -1;
  93
  94         if (fwrite(pixels, 1, size, fp) != size)
  95                 return -1;
  96
  97         if (ferror(fp))
  98                 return -1;
  99
 100         return 0;
 101 }
 102
 103 static uint32_t
 104 unmult(uint32_t c, uint32_t a)
 105 {
 106         return (c * 255 + a / 2) / a;
 107 }
 108
 109 static void
 110 unpremultiply_and_swap_a8b8g8r8_to_PAMrgba(void *pixels, size_t size)
 111 {
 112         uint32_t *p = pixels;
 113         uint32_t *end;
 114
 115         for (end = p + size / 4; p < end; p++) {
 116                 uint32_t v = *p;
 117                 uint32_t a;
 118
 119                 a = (v & 0xff000000) >> 24;
 120                 if (a == 0) {
 121                         *p = 0;
 122                 } else {
 123                         uint8_t *dst = (uint8_t *)p;
 124
 125                         dst[0] = unmult((v & 0x000000ff) >> 0, a);
 126                         dst[1] = unmult((v & 0x0000ff00) >> 8, a);
 127                         dst[2] = unmult((v & 0x00ff0000) >> 16, a);
 128                         dst[3] = a;
 129                 }
 130         }
 131 }
 132
 133 static void
 134 trigger_binding(struct weston_keyboard *keyboard, uint32_t time, uint32_t key,
 135                 void *data)
 136 {
 137         const char *prefix = "surfaceshot-";
 138         const char *suffix = ".pam";
 139         char fname[1024];
 140         struct weston_surface *surface;
 141         struct weston_seat *seat = keyboard->seat;
 142         int width, height;
 143         char desc[512];
 144         void *pixels;
 145         const size_t bytespp = 4; /* PIXMAN_a8b8g8r8 */
 146         size_t sz;
 147         int ret;
 148         FILE *fp;
 149
 150         if (seat->pointer_device_count == 0 ||
 151             !seat->pointer ||
 152             !seat->pointer->focus)
 153                 return;
 154
 155         surface = seat->pointer->focus->surface;
 156
 157         weston_surface_get_content_size(surface, &width, &height);
 158
 159         if (!surface->get_label ||
 160             surface->get_label(surface, desc, sizeof(desc)) < 0)
 161                 snprintf(desc, sizeof(desc), "(unknown)");
 162
 163         weston_log("surface screenshot of %p: '%s', %dx%d\n",
 164                    surface, desc, width, height);
 165
 166         sz = width * bytespp * height;
 167         if (sz == 0) {
 168                 weston_log("no content for %p\n", surface);
 169                 return;
 170         }
 171
 172         pixels = malloc(sz);
 173         if (!pixels) {
 174                 weston_log("%s: failed to malloc %zu B\n", __func__, sz);
 175                 return;
 176         }
 177
 178         ret = weston_surface_copy_content(surface, pixels, sz,
 179                                           0, 0, width, height);
 180         if (ret < 0) {
 181                 weston_log("shooting surface %p failed\n", surface);
 182                 goto out;
 183         }
 184
 185         unpremultiply_and_swap_a8b8g8r8_to_PAMrgba(pixels, sz);
 186
 187         fp = file_create_dated(prefix, suffix, fname, sizeof(fname));
 188         if (!fp) {
 189                 const char *msg;
 190
 191                 switch (errno) {
 192                 case ETIME:
 193                         msg = "failure in datetime formatting";
 194                         break;
 195                 default:
 196                         msg = strerror(errno);
 197                 }
 198
 199                 weston_log("Cannot open '%s*%s' for writing: %s\n",
 200                            prefix, suffix, msg);
 201                 goto out;
 202         }
 203
 204         ret = write_PAM_image_rgba(fp, width, height, pixels, sz, desc);
 205         if (fclose(fp) != 0 || ret < 0)
 206                 weston_log("writing surface %p screenshot failed.\n", surface);
 207         else
 208                 weston_log("successfully shot surface %p into '%s'\n",
 209                            surface, fname);
 210
 211 out:
 212         free(pixels);
 213 }
 214
 215 WL_EXPORT int
 216 module_init(struct weston_compositor *ec,
 217             int *argc, char *argv[])
 218 {
 219         weston_compositor_add_debug_binding(ec, KEY_H, trigger_binding, ec);
 220
 221         return 0;
 222 }