1 files changed, 447 insertions, 0 deletions

diff --git a/video/out/vo_x11.c b/video/out/vo_x11.c
new file mode 100644
index 0000000..fa93157
--- /dev/null
+++ b/video/out/vo_x11.c
@@ -0,0 +1,447 @@
+/*
+ * Original author: Aaron Holtzman <aholtzma@ess.engr.uvic.ca>
+ *
+ * This file is part of mpv.
+ *
+ * mpv is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * mpv is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with mpv.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+
+#include <libswscale/swscale.h>
+
+#include "vo.h"
+#include "video/csputils.h"
+#include "video/mp_image.h"
+
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+
+#include <errno.h>
+
+#include "present_sync.h"
+#include "x11_common.h"
+
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <X11/extensions/XShm.h>
+
+#include "sub/osd.h"
+#include "sub/draw_bmp.h"
+
+#include "video/sws_utils.h"
+#include "video/fmt-conversion.h"
+
+#include "common/msg.h"
+#include "input/input.h"
+#include "options/options.h"
+#include "osdep/timer.h"
+
+struct priv {
+    struct vo *vo;
+
+    struct mp_image *original_image;
+
+    XImage *myximage[2];
+    struct mp_image mp_ximages[2];
+    int depth;
+    GC gc;
+
+    uint32_t image_width;
+    uint32_t image_height;
+
+    struct mp_rect src;
+    struct mp_rect dst;
+    struct mp_osd_res osd;
+
+    struct mp_sws_context *sws;
+
+    XVisualInfo vinfo;
+
+    int current_buf;
+
+    int Shmem_Flag;
+    XShmSegmentInfo Shminfo[2];
+    int Shm_Warned_Slow;
+};
+
+static bool resize(struct vo *vo);
+
+static bool getMyXImage(struct priv *p, int foo)
+{
+    struct vo *vo = p->vo;
+    if (vo->x11->display_is_local && XShmQueryExtension(vo->x11->display)) {
+        p->Shmem_Flag = 1;
+        vo->x11->ShmCompletionEvent = XShmGetEventBase(vo->x11->display)
+                                    + ShmCompletion;
+    } else {
+        p->Shmem_Flag = 0;
+        MP_WARN(vo, "Shared memory not supported\nReverting to normal Xlib\n");
+    }
+
+    if (p->Shmem_Flag) {
+        p->myximage[foo] =
+            XShmCreateImage(vo->x11->display, p->vinfo.visual, p->depth,
+                            ZPixmap, NULL, &p->Shminfo[foo], p->image_width,
+                            p->image_height);
+        if (p->myximage[foo] == NULL) {
+            MP_WARN(vo, "Shared memory error,disabling ( Ximage error )\n");
+            goto shmemerror;
+        }
+        p->Shminfo[foo].shmid = shmget(IPC_PRIVATE,
+                                       p->myximage[foo]->bytes_per_line *
+                                       p->myximage[foo]->height,
+                                       IPC_CREAT | 0777);
+        if (p->Shminfo[foo].shmid < 0) {
+            XDestroyImage(p->myximage[foo]);
+            MP_WARN(vo, "Shared memory error,disabling ( seg id error )\n");
+            goto shmemerror;
+        }
+        p->Shminfo[foo].shmaddr = (char *) shmat(p->Shminfo[foo].shmid, 0, 0);
+
+        if (p->Shminfo[foo].shmaddr == ((char *) -1)) {
+            XDestroyImage(p->myximage[foo]);
+            MP_WARN(vo, "Shared memory error,disabling ( address error )\n");
+            goto shmemerror;
+        }
+        p->myximage[foo]->data = p->Shminfo[foo].shmaddr;
+        p->Shminfo[foo].readOnly = False;
+        XShmAttach(vo->x11->display, &p->Shminfo[foo]);
+
+        XSync(vo->x11->display, False);
+
+        shmctl(p->Shminfo[foo].shmid, IPC_RMID, 0);
+    } else {
+shmemerror:
+        p->Shmem_Flag = 0;
+
+        MP_VERBOSE(vo, "Not using SHM.\n");
+        p->myximage[foo] =
+            XCreateImage(vo->x11->display, p->vinfo.visual, p->depth, ZPixmap,
+                         0, NULL, p->image_width, p->image_height, 8, 0);
+        if (p->myximage[foo]) {
+            p->myximage[foo]->data =
+                calloc(1, p->myximage[foo]->bytes_per_line * p->image_height + 32);
+        }
+        if (!p->myximage[foo] || !p->myximage[foo]->data) {
+            MP_WARN(vo, "could not allocate image");
+            return false;
+        }
+    }
+    return true;
+}
+
+static void freeMyXImage(struct priv *p, int foo)
+{
+    struct vo *vo = p->vo;
+    if (p->Shmem_Flag) {
+        XShmDetach(vo->x11->display, &p->Shminfo[foo]);
+        XDestroyImage(p->myximage[foo]);
+        shmdt(p->Shminfo[foo].shmaddr);
+    } else {
+        if (p->myximage[foo]) {
+            // XDestroyImage() would free the data too since XFree() just calls
+            // free(), but do it ourselves for portability reasons
+            free(p->myximage[foo]->data);
+            p->myximage[foo]->data = NULL;
+            XDestroyImage(p->myximage[foo]);
+        }
+    }
+    p->myximage[foo] = NULL;
+}
+
+#define MAKE_MASK(comp) (((1ul << (comp).size) - 1) << (comp).offset)
+
+static int reconfig(struct vo *vo, struct mp_image_params *fmt)
+{
+    vo_x11_config_vo_window(vo);
+
+    if (!resize(vo))
+        return -1;
+
+    return 0;
+}
+
+static bool resize(struct vo *vo)
+{
+    struct priv *p = vo->priv;
+
+    // Attempt to align. We don't know the size in bytes yet (????), so just
+    // assume worst case (1 byte per pixel).
+    int nw = MPMAX(1, MP_ALIGN_UP(vo->dwidth, MP_IMAGE_BYTE_ALIGN));
+    int nh = MPMAX(1, vo->dheight);
+
+    if (nw > p->image_width || nh > p->image_height) {
+        for (int i = 0; i < 2; i++)
+            freeMyXImage(p, i);
+
+        p->image_width = nw;
+        p->image_height = nh;
+
+        for (int i = 0; i < 2; i++) {
+            if (!getMyXImage(p, i)) {
+                p->image_width = 0;
+                p->image_height = 0;
+                return false;
+            }
+        }
+    }
+
+    int mpfmt = 0;
+    for (int fmt = IMGFMT_START; fmt < IMGFMT_END; fmt++) {
+        struct mp_imgfmt_desc desc = mp_imgfmt_get_desc(fmt);
+        if ((desc.flags & MP_IMGFLAG_HAS_COMPS) && desc.num_planes == 1 &&
+            (desc.flags & MP_IMGFLAG_COLOR_MASK) == MP_IMGFLAG_COLOR_RGB &&
+            (desc.flags & MP_IMGFLAG_TYPE_MASK) == MP_IMGFLAG_TYPE_UINT &&
+            (desc.flags & MP_IMGFLAG_NE) && !(desc.flags & MP_IMGFLAG_ALPHA) &&
+            desc.bpp[0] <= 8 * sizeof(unsigned long) &&
+            p->myximage[0]->bits_per_pixel == desc.bpp[0] &&
+            p->myximage[0]->byte_order == MP_SELECT_LE_BE(LSBFirst, MSBFirst))
+        {
+            // desc.comps[] uses little endian bit offsets, so "swap" the
+            // offsets here.
+            if (MP_SELECT_LE_BE(0, 1)) {
+                // Except for formats that use byte swapping; for these, the
+                // offsets are in native endian. There is no way to distinguish
+                // which one a given format is (could even be both), and using
+                // mp_find_other_endian() is just a guess.
+                if (!mp_find_other_endian(fmt)) {
+                    for (int c = 0; c < 3; c++) {
+                        desc.comps[c].offset =
+                            desc.bpp[0] - desc.comps[c].size -desc.comps[c].offset;
+                    }
+                }
+            }
+            if (p->myximage[0]->red_mask == MAKE_MASK(desc.comps[0]) &&
+                p->myximage[0]->green_mask == MAKE_MASK(desc.comps[1]) &&
+                p->myximage[0]->blue_mask == MAKE_MASK(desc.comps[2]))
+            {
+                mpfmt = fmt;
+                break;
+            }
+        }
+    }
+
+    if (!mpfmt) {
+        MP_ERR(vo, "X server image format not supported, use another VO.\n");
+        return false;
+    }
+    MP_VERBOSE(vo, "Using mp format: %s\n", mp_imgfmt_to_name(mpfmt));
+
+    for (int i = 0; i < 2; i++) {
+        struct mp_image *img = &p->mp_ximages[i];
+        *img = (struct mp_image){0};
+        mp_image_setfmt(img, mpfmt);
+        mp_image_set_size(img, p->image_width, p->image_height);
+        img->planes[0] = p->myximage[i]->data;
+        img->stride[0] = p->myximage[i]->bytes_per_line;
+
+        mp_image_params_guess_csp(&img->params);
+    }
+
+    vo_get_src_dst_rects(vo, &p->src, &p->dst, &p->osd);
+
+    if (vo->params) {
+        p->sws->src = *vo->params;
+        p->sws->src.w = mp_rect_w(p->src);
+        p->sws->src.h = mp_rect_h(p->src);
+
+        p->sws->dst = p->mp_ximages[0].params;
+        p->sws->dst.w = mp_rect_w(p->dst);
+        p->sws->dst.h = mp_rect_h(p->dst);
+
+        if (mp_sws_reinit(p->sws) < 0)
+            return false;
+    }
+
+    vo->want_redraw = true;
+    return true;
+}
+
+static void Display_Image(struct priv *p, XImage *myximage)
+{
+    struct vo *vo = p->vo;
+
+    XImage *x_image = p->myximage[p->current_buf];
+
+    if (p->Shmem_Flag) {
+        XShmPutImage(vo->x11->display, vo->x11->window, p->gc, x_image,
+                     0, 0, 0, 0, vo->dwidth, vo->dheight, True);
+        vo->x11->ShmCompletionWaitCount++;
+    } else {
+        XPutImage(vo->x11->display, vo->x11->window, p->gc, x_image,
+                  0, 0, 0, 0, vo->dwidth, vo->dheight);
+    }
+}
+
+static void wait_for_completion(struct vo *vo, int max_outstanding)
+{
+    struct priv *ctx = vo->priv;
+    struct vo_x11_state *x11 = vo->x11;
+    if (ctx->Shmem_Flag) {
+        while (x11->ShmCompletionWaitCount > max_outstanding) {
+            if (!ctx->Shm_Warned_Slow) {
+                MP_WARN(vo, "can't keep up! Waiting"
+                            " for XShm completion events...\n");
+                ctx->Shm_Warned_Slow = 1;
+            }
+            mp_sleep_ns(MP_TIME_MS_TO_NS(1));
+            vo_x11_check_events(vo);
+        }
+    }
+}
+
+static void flip_page(struct vo *vo)
+{
+    struct priv *p = vo->priv;
+    Display_Image(p, p->myximage[p->current_buf]);
+    p->current_buf = (p->current_buf + 1) % 2;
+    if (vo->x11->use_present) {
+        vo_x11_present(vo);
+        present_sync_swap(vo->x11->present);
+    }
+}
+
+static void get_vsync(struct vo *vo, struct vo_vsync_info *info)
+{
+    struct vo_x11_state *x11 = vo->x11;
+    if (x11->use_present)
+        present_sync_get_info(x11->present, info);
+}
+
+static void draw_frame(struct vo *vo, struct vo_frame *frame)
+{
+    struct priv *p = vo->priv;
+
+    wait_for_completion(vo, 1);
+    bool render = vo_x11_check_visible(vo);
+    if (!render)
+        return;
+
+    struct mp_image *img = &p->mp_ximages[p->current_buf];
+
+    if (frame->current) {
+        mp_image_clear_rc_inv(img, p->dst);
+
+        struct mp_image *src = frame->current;
+        struct mp_rect src_rc = p->src;
+        src_rc.x0 = MP_ALIGN_DOWN(src_rc.x0, src->fmt.align_x);
+        src_rc.y0 = MP_ALIGN_DOWN(src_rc.y0, src->fmt.align_y);
+        mp_image_crop_rc(src, src_rc);
+
+        struct mp_image dst = *img;
+        mp_image_crop_rc(&dst, p->dst);
+
+        mp_sws_scale(p->sws, &dst, src);
+    } else {
+        mp_image_clear(img, 0, 0, img->w, img->h);
+    }
+
+    osd_draw_on_image(vo->osd, p->osd, frame->current ? frame->current->pts : 0, 0, img);
+
+    if (frame->current != p->original_image)
+        p->original_image = frame->current;
+}
+
+static int query_format(struct vo *vo, int format)
+{
+    struct priv *p = vo->priv;
+    if (mp_sws_supports_formats(p->sws, IMGFMT_RGB0, format))
+        return 1;
+    return 0;
+}
+
+static void uninit(struct vo *vo)
+{
+    struct priv *p = vo->priv;
+    if (p->myximage[0])
+        freeMyXImage(p, 0);
+    if (p->myximage[1])
+        freeMyXImage(p, 1);
+    if (p->gc)
+        XFreeGC(vo->x11->display, p->gc);
+
+    vo_x11_uninit(vo);
+}
+
+static int preinit(struct vo *vo)
+{
+    struct priv *p = vo->priv;
+    p->vo = vo;
+    p->sws = mp_sws_alloc(vo);
+    p->sws->log = vo->log;
+    mp_sws_enable_cmdline_opts(p->sws, vo->global);
+
+    if (!vo_x11_init(vo))
+        goto error;
+    struct vo_x11_state *x11 = vo->x11;
+
+    XWindowAttributes attribs;
+    XGetWindowAttributes(x11->display, x11->rootwin, &attribs);
+    p->depth = attribs.depth;
+
+    if (!XMatchVisualInfo(x11->display, x11->screen, p->depth,
+                          TrueColor, &p->vinfo))
+        goto error;
+
+    MP_VERBOSE(vo, "selected visual: %d\n", (int)p->vinfo.visualid);
+
+    if (!vo_x11_create_vo_window(vo, &p->vinfo, "x11"))
+        goto error;
+
+    p->gc = XCreateGC(x11->display, x11->window, 0, NULL);
+    MP_WARN(vo, "Warning: this legacy VO has bad performance. Consider fixing "
+                "your graphics drivers, or not forcing the x11 VO.\n");
+    return 0;
+
+error:
+    uninit(vo);
+    return -1;
+}
+
+static int control(struct vo *vo, uint32_t request, void *data)
+{
+    switch (request) {
+    case VOCTRL_SET_PANSCAN:
+        if (vo->config_ok)
+            resize(vo);
+        return VO_TRUE;
+    }
+
+    int events = 0;
+    int r = vo_x11_control(vo, &events, request, data);
+    if (vo->config_ok && (events & (VO_EVENT_EXPOSE | VO_EVENT_RESIZE)))
+        resize(vo);
+    vo_event(vo, events);
+    return r;
+}
+
+const struct vo_driver video_out_x11 = {
+    .description = "X11 (software scaling)",
+    .name = "x11",
+    .priv_size = sizeof(struct priv),
+    .preinit = preinit,
+    .query_format = query_format,
+    .reconfig = reconfig,
+    .control = control,
+    .draw_frame = draw_frame,
+    .flip_page = flip_page,
+    .get_vsync = get_vsync,
+    .wakeup = vo_x11_wakeup,
+    .wait_events = vo_x11_wait_events,
+    .uninit = uninit,
+};