/* Copyright (C) 2001-2023 Artifex Software, Inc.
   All Rights Reserved.

   This software is provided AS-IS with no warranty, either express or
   implied.

   This software is distributed under license and may not be copied,
   modified or distributed except as expressly authorized under the terms
   of the license contained in the file LICENSE in this distribution.

   Refer to licensing information at http://www.artifex.com or contact
   Artifex Software, Inc.,  39 Mesa Street, Suite 108A, San Francisco,
   CA 94129, USA, for further information.
*/


/* Alternative X Windows drivers for help in driver debugging */
#include "gx.h"			/* for gx_bitmap; includes std.h */
#include "math_.h"
#include "memory_.h"
#include "x_.h"
#include "gserrors.h"
#include "gsparam.h"
#include "gsstruct.h"
#include "gxdevice.h"
#include "gsdevice.h"		/* for gs_copydevice */
#include "gdevx.h"
#include "gsbitops.h"
#include "gxgetbit.h"

void
gs_shared_init(void);

extern const gx_device_X gs_x11_device;
extern const gx_device_X gs_x11alpha_device;

#define X_COLOR_CACHE_SIZE 16

/*
 * Define a forwarding device with a cache for the first 16 colors,
 * which avoids all of the time-consuming color mapping calls for
 * the black-and-white, 2-bit gray, and 1-bit CMYK devices defined here.
 */
typedef struct {
    gx_device_forward_common;
    gx_color_index color_cache[X_COLOR_CACHE_SIZE];
    /*
     * alt_map_color returns a value >= 0 if it maps directly to the final
     * gx_color_index, or < 0 if it only sets RGB values.
     */
    dev_proc_map_color_rgb((*alt_map_color));
} gx_device_X_wrapper;
#define X_WRAPPER_DATA(amc_proc)\
        /* gx_device_forward_common */\
    {0},			/* std_procs */\
    0,				/* target */\
        /* gx_device_X_wrapper */\
    {0},			/* cache */\
    amc_proc
gs_private_st_suffix_add0_final(st_device_X_wrapper, gx_device_X_wrapper,
  "gx_device_X_wrapper", gdevx_wrapper_enum_ptrs, gdevx_wrapper_reloc_ptrs,
  gx_device_finalize, st_device_forward);

/* ---------------- Generic procedures ---------------- */

/* Forward declarations */
static int get_dev_target(gx_device **, gx_device *);

static int get_target_info(gx_device *);
static gx_color_index x_alt_map_color(gx_device *, gx_color_index);

/* Clear the color mapping cache. */
static void
x_clear_color_cache(gx_device /*gx_device_X_wrapper */  * dev)
{
    gx_device_X_wrapper *xdev = (gx_device_X_wrapper *) dev;
    int i;

    for (i = 0; i < X_COLOR_CACHE_SIZE; ++i)
        xdev->color_cache[i] = gx_no_color_index;
    gx_device_decache_colors(dev);
}

/* "Wrappers" for driver procedures */

static int
x_wrap_open(gx_device * dev)
{
    gx_device *tdev;
    int rcode, code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    rcode = (*dev_proc(tdev, open_device)) (tdev);
    if (rcode < 0)
        return rcode;
    tdev->is_open = true;
    code = get_target_info(dev);
    return (code < 0 ? code : rcode);
}

static int
x_forward_sync_output(gx_device * dev)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, sync_output)) (tdev);
}

static int
x_forward_output_page(gx_device * dev, int num_copies, int flush)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    code = (*dev_proc(tdev, output_page)) (tdev, num_copies, flush);
    dev->PageCount = tdev->PageCount;
    return code;
}

static int
x_wrap_close(gx_device * dev)
{
    /*
     * The underlying x11 device will be closed and freed as soon as there
     * are no more pointers to it, which normally occurs in the next
     * statement.
     */
    gx_device_set_target((gx_device_forward *)dev, NULL);
    x_clear_color_cache(dev);
    return 0;
}

static int
x_wrap_map_color_rgb(gx_device * dev, gx_color_index color,
                     gx_color_value prgb[3])
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, map_color_rgb)) (tdev,
                                             x_alt_map_color(dev, color),
                                             prgb);
}

static int
x_wrap_fill_rectangle(gx_device * dev, int x, int y, int w, int h,
                      gx_color_index color)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, fill_rectangle)) (tdev, x, y, w, h,
                                              x_alt_map_color(dev, color));
}

static int
x_wrap_copy_mono(gx_device * dev,
                 const byte * base, int sourcex, int raster, gx_bitmap_id id,
                 int x, int y, int w, int h,
                 gx_color_index zero, gx_color_index one)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, copy_mono)) (tdev, base, sourcex, raster, id,
                                         x, y, w, h,
                                         x_alt_map_color(dev, zero),
                                         x_alt_map_color(dev, one));

}

static int
x_wrap_copy_color(gx_device * dev, const byte * base, int sourcex,
                  int raster, gx_bitmap_id id, int x, int y, int w, int h)
{
    gx_device *tdev;

#define mapped_bytes 480	/* must be a multiple of 3 & 4 */
    int depth_bytes, source_bits, source_bytes;
    int block_w, block_h;
    int xblock, yblock;
    byte mapped[mapped_bytes];
    int code;
    gx_color_index mask = 0;
    int k;

    fit_copy(dev, base, sourcex, raster, id, x, y, w, h);
    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    /* Device pixels must be an integral number of bytes. */
    if (tdev->color_info.depth & 7)
        return gx_default_copy_color(dev, base, sourcex, raster, id,
                                     x, y, w, h);
    depth_bytes = tdev->color_info.depth >> 3;
    source_bits = dev->color_info.depth;
    if (source_bits > 8) {
        for (k = 0; k < dev->color_info.num_components; k++) {
            mask |= dev->color_info.comp_mask[k];
        }
    }
    source_bytes = dev->color_info.depth >> 3;

    {
        int mapped_pixels = mapped_bytes / depth_bytes;

        if (w > mapped_pixels >> 1)
            block_w = min(w, mapped_pixels), block_h = 1;
        else
            block_w = w, block_h = mapped_pixels / w;
    }
    for (yblock = y; yblock < y + h; yblock += block_h)
        for (xblock = x; xblock < x + w; xblock += block_w) {
            byte *p = mapped;
            int xend = min(xblock + block_w, x + w);
            int yend = min(yblock + block_h, y + h);
            int xcur, ycur;
            int code;
            gx_color_index cindex;
            uint spixel;
            uint sbyte;

            for (ycur = yblock; ycur < yend; ++ycur)
                for (xcur = xblock; xcur < xend; ++xcur) {
                    int sbit = (xcur - x + sourcex) * source_bits;
                    if (source_bits <= 8) {
                        sbyte = base[(ycur - y) * raster + (sbit >> 3)];
                        spixel =
                            ((sbyte << (sbit & 7)) & 0xff) >> (8 - source_bits);
                        if (spixel < X_COLOR_CACHE_SIZE) {
                            cindex =
                                ((gx_device_X_wrapper *)dev)->color_cache[spixel];
                            if (cindex == gx_no_color_index)
                                cindex = x_alt_map_color(dev, spixel);
                        } else {
                            cindex = x_alt_map_color(dev, spixel);
                        }
                    } else {
                        gx_color_index temp_color1 = 0;
                        gx_color_index temp_color2 = 0;

                        memcpy(&temp_color1, &(base[(ycur - y) * raster + (sbit >> 3)]), sizeof(gx_color_index));
                        temp_color1 = (temp_color1 << (sbit & 7)) & mask;

                        for (k = 0; k < source_bytes; k++) {
                            byte color = temp_color1 & 0xff;
                            temp_color1 >>= 8;
                            temp_color2 += (uint32_t)(color << ((source_bytes - k - 1) * 8));
                        }
                        cindex = x_alt_map_color(dev, temp_color2);
                    }

                    switch (depth_bytes) {
                        case 4:
                            *p++ = (byte) (cindex >> 24);
                            /* fall through */
                        case 3:
                            *p++ = (byte) (cindex >> 16);
                            /* fall through */
                        case 2:
                            *p++ = (byte) (cindex >> 8);
                            /* fall through */
                        default /*case 1 */ :
                            *p++ = (byte) cindex;
                    }
                }
            code = (*dev_proc(tdev, copy_color))
                (tdev, mapped, 0, (xend - xblock) * depth_bytes, gx_no_bitmap_id,
                 xblock, yblock, xend - xblock, yend - yblock);
            if (code < 0)
                return code;
        }
    return 0;
}

static int
x_forward_copy_color(gx_device * dev, const byte * base, int sourcex,
                     int raster, gx_bitmap_id id, int x, int y, int w, int h)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, copy_color)) (tdev, base, sourcex, raster, id,
                                          x, y, w, h);
}

static int
x_forward_get_bits_rectangle(gx_device * dev, const gs_int_rect *prect,
                             gs_get_bits_params_t *params)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    return (*dev_proc(tdev, get_bits_rectangle)) (tdev, prect, params);
}

static int
x_wrap_get_bits_rectangle(gx_device * dev, const gs_int_rect *prect,
                          gs_get_bits_params_t *params)
{
    int depth = dev->color_info.depth;
    gx_device *tdev;
    int width;
    int sdepth;
    byte smask;
    uint dsize;
    gs_memory_t *mem = dev->memory;
    byte *row;
    byte *base;
    int code;
    gx_color_index pixel_in = gx_no_color_index;
    /*
     * The following initialization is unnecessary: since no pixel has a
     * value of gx_no_color_index, the test pixel != pixel_in will always
     * succeed the first time through the loop below, so pixel_out will
     * always be set before it is used.  We initialize pixel_out solely to
     * suppress bogus warning messages from certain compilers.
     */
    gx_color_index pixel_out = 0;
    int xi;
    int sbit;

    byte *l_dptr = params->data[0];
    int l_dbit = 0;
    byte l_dbyte = 0;
    gs_int_rect rect;
    int y;

    if ((~params->options & GB_RETURN_COPY) ||
        !(params->options & (GB_OFFSET_0 | GB_OFFSET_SPECIFIED)) ||
        !(params->options & (GB_RASTER_STANDARD | GB_RASTER_SPECIFIED))
        )
        return_error(gs_error_rangecheck);

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    width = tdev->width;
    sdepth = tdev->color_info.depth;
    smask = (sdepth <= 8 ? (1 << sdepth) - 1 : 0xff);
    dsize = (width * sdepth + 7) / 8;
    row = gs_alloc_bytes(mem, dsize, "x_wrap_get_bits");
    if (row == 0)
        return_error(gs_error_VMerror);
    rect.p.x = prect->p.x;
    rect.q.x = prect->q.x;
    for (y = prect->p.y; y < prect->q.y; y++)
    {
        gs_get_bits_params_t lparams;
        rect.p.y = y;
        rect.q.y = y+1;
        lparams.options = GB_ALIGN_ANY |
                          GB_RETURN_COPY |
                          GB_OFFSET_0 | GB_RASTER_STANDARD |
                          GB_PACKING_CHUNKY |
                          GB_COLORS_NATIVE | GB_ALPHA_NONE;
        lparams.raster = 0;
        lparams.data[0] = row;
        lparams.x_offset = 0;
        code = (*dev_proc(tdev, get_bits_rectangle))(tdev, &rect, &lparams);
        if (code < 0)
            break;
        base = lparams.data[0];
        for (sbit = 0, xi = 0; xi < width; sbit += sdepth, ++xi) {
            const byte *sptr = base + (sbit >> 3);
            gx_color_index pixel;
            gx_color_value rgb[3];
            int i;

            if (sdepth <= 8)
                pixel = (*sptr >> (8 - sdepth - (sbit & 7))) & smask;
            else {
                pixel = 0;
                for (i = 0; i < sdepth; i += 8, ++sptr)
                    pixel = (pixel << 8) + *sptr;
            }
            if (pixel != pixel_in) {
                (*dev_proc(tdev, map_color_rgb))(tdev, pixel, rgb);
                pixel_in = pixel;
                if (dev->color_info.num_components <= 3)
                    pixel_out = (*dev_proc(dev, map_rgb_color))(dev, rgb);
                else {
                    /* Convert RGB to CMYK. */
                    gx_color_value c = gx_max_color_value - rgb[0];
                    gx_color_value m = gx_max_color_value - rgb[1];
                    gx_color_value y = gx_max_color_value - rgb[2];
                    gx_color_value k = (c < m ? min(c, y) : min(m, y));

                    gx_color_value cmyk[4];
                    cmyk[0] = c - k; cmyk[1] = m - k; cmyk[2] = y - k; cmyk[3] = k;
                    pixel_out = (*dev_proc(dev, map_cmyk_color))(dev, cmyk);
                }
            }
            if (sizeof(pixel_out) > 4) {
                if (sample_store_next64(pixel_out, &l_dptr,
                                        &l_dbit, depth, &l_dbyte) < 0)
                    return_error(gs_error_rangecheck);
            }
            else {
                if (sample_store_next32(pixel_out, &l_dptr,
                                        &l_dbit, depth, &l_dbyte) < 0)
                    return_error(gs_error_rangecheck);
            }
        }
        sample_store_flush(l_dptr, l_dbit, l_dbyte);
    }
    gs_free_object(mem, row, "x_wrap_get_bits");

    return code;
}

static int
x_wrap_get_params(gx_device * dev, gs_param_list * plist)
{
    gx_device *tdev;
    /* We assume that a get_params call has no side effects.... */
    gx_device_X save_dev, *xdev;
    int ecode;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    xdev = (gx_device_X *) tdev;
    xdev->orig_color_info = xdev->color_info;

    save_dev = *xdev;

    if (tdev->is_open)
        tdev->color_info = dev->color_info;
    tdev->dname = dev->dname;
    ecode = (*dev_proc(tdev, get_params)) (tdev, plist);
    *(gx_device_X *) tdev = save_dev;
    return ecode;
}

static int
x_wrap_put_params(gx_device * dev, gs_param_list * plist)
{
    gx_device *tdev;
    gx_device_X *xdev;
    const char *dname;
    int rcode, code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    /*
     * put_params will choke if we simply feed it the output of
     * get_params; we have to substitute color_info the same way.
     */
    xdev = (gx_device_X *) tdev;
    xdev->orig_color_info = xdev->color_info;
    dname = tdev->dname;
    tdev->color_info = dev->color_info;
    tdev->dname = dev->dname;
    rcode = (*dev_proc(tdev, put_params)) (tdev, plist);
    tdev->color_info = xdev->orig_color_info;
    tdev->dname = dname;
    if (rcode < 0)
        return rcode;
    code = get_target_info(dev);
    return (code < 0 ? code : rcode);
}

/* Internal procedures */

/* Get the target, creating it if necessary. */
static int
get_dev_target(gx_device ** ptdev, gx_device * dev)
{
    gx_device *tdev = ((gx_device_forward *) dev)->target;

    if (tdev == 0) {
        /* Create an X device instance. */
        int code = gs_copydevice(&tdev, (const gx_device *)&gs_x11_device,
                                 dev->memory);

        if (code < 0)
            return code;
        check_device_separable(tdev);
        gx_device_fill_in_procs(tdev);
        gx_device_set_target((gx_device_forward *)dev, tdev);
        x_clear_color_cache(dev);
    }
    *ptdev = tdev;
    return 0;
}

/* Copy parameters back from the target. */
static int
get_target_info(gx_device * dev)
{
    gx_device *tdev;
    int code;

    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;

#define copy(m) dev->m = tdev->m;
#define copy2(m) copy(m[0]); copy(m[1])
#define copy4(m) copy2(m); copy(m[2]); copy(m[3])

    copy(width);
    copy(height);
    copy2(MediaSize);
    copy4(ImagingBBox);
    copy(ImagingBBox_set);
    copy2(HWResolution);
    copy2(Margins);
    copy4(HWMargins);
    if (dev->color_info.num_components == 3) {
        /* Leave the anti-aliasing information alone. */
        gx_device_anti_alias_info aa;

        aa = dev->color_info.anti_alias;
        copy(color_info);
        dev->color_info.anti_alias = aa;
    }

#undef copy4
#undef copy2
#undef copy

    x_clear_color_cache(dev);
    return 0;
}

/* Map a fake CMYK or black/white color to a real X color if necessary. */
static gx_color_index
x_alt_map_color(gx_device * dev, gx_color_index color)
{
    gx_device_X_wrapper *xdev = (gx_device_X_wrapper *) dev;
    gx_device *tdev;
    gx_color_value rgb[3];
    gx_color_index cindex;
    int result;
    int code;

    if (color == gx_no_color_index)
        return color;
    if (color < X_COLOR_CACHE_SIZE) {
        cindex = ((gx_device_X_wrapper *) dev)->color_cache[color];
        if (cindex != gx_no_color_index)
            return cindex;
    }
    if ((code = get_dev_target(&tdev, dev)) < 0)
        return code;
    result = xdev->alt_map_color(dev, color, rgb);
    if (result >= 0)
        cindex = result;
    else
        cindex = dev_proc(tdev, map_rgb_color)(tdev, rgb);
    if (color < X_COLOR_CACHE_SIZE)
        ((gx_device_X_wrapper *) dev)->color_cache[color] = cindex;
    return cindex;
}

/* ---------------- CMYK procedures ---------------- */

/* Device procedures */
static dev_proc_open_device(x_cmyk_open);
static dev_proc_put_params(x_cmyk_put_params);
static dev_proc_map_cmyk_color(x_cmyk_map_cmyk_color);
/* Extended device procedures */
static dev_proc_map_color_rgb(x_cmyk_alt_map_color);

static void
x_cmyk_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, open_device, x_cmyk_open);
    set_dev_proc(dev, get_initial_matrix, gx_forward_get_initial_matrix);
    set_dev_proc(dev, sync_output, x_forward_sync_output);
    set_dev_proc(dev, output_page, x_forward_output_page);
    set_dev_proc(dev, close_device, x_wrap_close);
    set_dev_proc(dev, map_color_rgb, x_wrap_map_color_rgb);
    set_dev_proc(dev, fill_rectangle, x_wrap_fill_rectangle);
    set_dev_proc(dev, copy_mono, x_wrap_copy_mono);
    set_dev_proc(dev, copy_color, x_wrap_copy_color);
    set_dev_proc(dev, get_bits_rectangle, x_wrap_get_bits_rectangle);
    set_dev_proc(dev, get_params, x_wrap_get_params);
    set_dev_proc(dev, put_params, x_cmyk_put_params);
    set_dev_proc(dev, map_cmyk_color, x_cmyk_map_cmyk_color);
    set_dev_proc(dev, get_page_device, gx_forward_get_page_device);
    set_dev_proc(dev, get_alpha_bits, gx_forward_get_alpha_bits);
}

/* The instances are public. */
const gx_device_X_wrapper gs_x11cmyk_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_cmyk_initialize_device_procs, "x11cmyk",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        4, 4, 1, 1, 2, 2),
    X_WRAPPER_DATA(x_cmyk_alt_map_color)
};
const gx_device_X_wrapper gs_x11cmyk2_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_cmyk_initialize_device_procs, "x11cmyk2",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        4, 8, 3, 3, 4, 4),
    X_WRAPPER_DATA(x_cmyk_alt_map_color)
};
const gx_device_X_wrapper gs_x11cmyk4_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_cmyk_initialize_device_procs, "x11cmyk4",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        4, 16, 15, 15, 16, 16),
    X_WRAPPER_DATA(x_cmyk_alt_map_color)
};
const gx_device_X_wrapper gs_x11cmyk8_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_cmyk_initialize_device_procs, "x11cmyk8",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        4, 32, 255, 255, 256, 256),
    X_WRAPPER_DATA(x_cmyk_alt_map_color)
};

/* Map a fake color to RGB. */
static int
x_cmyk_alt_map_color(gx_device * dev, gx_color_index color,
                     gx_color_value rgb[3])
{
    int shift = dev->color_info.depth >> 2;
    int mask = (1 << shift) - 1;
    /* The following division is guaranteed exact. */
    gx_color_value scale = gx_max_color_value / mask;
    int cw = ~color & mask;
    int cb = cw - ((color >> shift) & mask);
    int cg = cw - ((color >> (shift * 2)) & mask);
    int cr = cw - ((color >> (shift * 3)) & mask);

    rgb[0] = max(cr, 0) * scale;
    rgb[1] = max(cg, 0) * scale;
    rgb[2] = max(cb, 0) * scale;
    return -1;
}

/* Set color mapping procedures */
static void
x_cmyk_set_procs(gx_device *dev)
{
    if (dev->color_info.depth == 4) {
        set_dev_proc(dev, map_cmyk_color, cmyk_1bit_map_cmyk_color);
    } else {
        set_dev_proc(dev, map_cmyk_color, x_cmyk_map_cmyk_color);
    }
}

/* Device procedures */

static int
x_cmyk_open(gx_device *dev)
{
    int code = x_wrap_open(dev);

    if (code >= 0)
        x_cmyk_set_procs(dev);
    return code;
}

static int
x_cmyk_put_params(gx_device * dev, gs_param_list * plist)
{
    int code = x_wrap_put_params(dev, plist);

    if (code >= 0)
        x_cmyk_set_procs(dev);
    return code;
}

static gx_color_index
x_cmyk_map_cmyk_color(gx_device * dev, const gx_color_value cv[])
{
    int shift = dev->color_info.depth >> 2;
    gx_color_index pixel;
    gx_color_value c, m, y, k;
    c = cv[0]; m = cv[1]; y = cv[2]; k = cv[3];
    pixel = c >> (gx_color_value_bits - shift);
    pixel = (pixel << shift) | (m >> (gx_color_value_bits - shift));
    pixel = (pixel << shift) | (y >> (gx_color_value_bits - shift));
    return (pixel << shift) | (k >> (gx_color_value_bits - shift));
}

/* ---------------- Black-and-white procedures ---------------- */

/* Extended device procedures */
static dev_proc_map_color_rgb(x_mono_alt_map_color);

/* The device descriptor */
static void
x_mono_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, open_device, x_wrap_open);
    set_dev_proc(dev, get_initial_matrix, gx_forward_get_initial_matrix);
    set_dev_proc(dev, sync_output, x_forward_sync_output);
    set_dev_proc(dev, output_page, x_forward_output_page);
    set_dev_proc(dev, close_device, x_wrap_close);
    set_dev_proc(dev, map_rgb_color, gx_default_b_w_map_rgb_color);
    set_dev_proc(dev, map_color_rgb, x_wrap_map_color_rgb);
    set_dev_proc(dev, fill_rectangle, x_wrap_fill_rectangle);
    set_dev_proc(dev, copy_mono, x_wrap_copy_mono);
    set_dev_proc(dev, get_bits_rectangle, x_wrap_get_bits_rectangle);
    set_dev_proc(dev, get_params, x_wrap_get_params);
    set_dev_proc(dev, put_params, x_wrap_put_params);
    set_dev_proc(dev, get_page_device, gx_forward_get_page_device);
    set_dev_proc(dev, get_alpha_bits, gx_forward_get_alpha_bits);
}

/* The instance is public. */
const gx_device_X_wrapper gs_x11mono_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_mono_initialize_device_procs, "x11mono",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        1, 1, 1, 0, 2, 0),
    X_WRAPPER_DATA(x_mono_alt_map_color)
};

/* Map a fake color to RGB. */
static int
x_mono_alt_map_color(gx_device * dev, gx_color_index color,
                     gx_color_value rgb[3])
{
    rgb[0] = rgb[1] = rgb[2] = (color ? 0 : gx_max_color_value);
    return -1;
}

/* ---------------- 2- and 4-bit gray-scale procedures ---------------- */

/* Extended device procedures */
static dev_proc_map_color_rgb(x_gray_alt_map_color);

/* The device descriptor */
static void
x_gray_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, open_device, x_wrap_open);
    set_dev_proc(dev, get_initial_matrix, gx_forward_get_initial_matrix);
    set_dev_proc(dev, sync_output, x_forward_sync_output);
    set_dev_proc(dev, output_page, x_forward_output_page);
    set_dev_proc(dev, close_device, x_wrap_close);
    set_dev_proc(dev, map_rgb_color, gx_default_gray_map_rgb_color);
    set_dev_proc(dev, map_color_rgb, x_wrap_map_color_rgb);
    set_dev_proc(dev, fill_rectangle, x_wrap_fill_rectangle);
    set_dev_proc(dev, copy_mono, x_wrap_copy_mono);
    set_dev_proc(dev, copy_color, x_wrap_copy_color);
    set_dev_proc(dev, get_bits_rectangle, x_wrap_get_bits_rectangle);
    set_dev_proc(dev, get_params, x_wrap_get_params);
    set_dev_proc(dev, put_params, x_wrap_put_params);
    set_dev_proc(dev, get_page_device, gx_forward_get_page_device);
    set_dev_proc(dev, get_alpha_bits, gx_forward_get_alpha_bits);
}

/* The instances are public. */
const gx_device_X_wrapper gs_x11gray2_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_gray_initialize_device_procs, "x11gray2",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        1, 2, 3, 0, 4, 0),
    X_WRAPPER_DATA(x_gray_alt_map_color)
};

const gx_device_X_wrapper gs_x11gray4_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_gray_initialize_device_procs, "x11gray4",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        1, 4, 15, 0, 16, 0),
    X_WRAPPER_DATA(x_gray_alt_map_color)
};

/* Map a fake color to RGB. */
static int
x_gray_alt_map_color(gx_device * dev, gx_color_index color,
                     gx_color_value rgb[3])
{
    rgb[0] = rgb[1] = rgb[2] =
        color * gx_max_color_value / dev->color_info.max_gray;
    return -1;
}

/* Device procedures */

/* ---------------- Permuted RGB16/32 procedures ---------------- */

/* Device procedures */
static dev_proc_map_rgb_color(x_rg16x_map_rgb_color);
static dev_proc_map_rgb_color(x_rg32x_map_rgb_color);
/* Extended device procedures */
static dev_proc_map_color_rgb(x_rg16x_alt_map_color);
static dev_proc_map_color_rgb(x_rg32x_alt_map_color);

/* The device descriptor */
static void
rgbx_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, open_device, x_wrap_open);
    set_dev_proc(dev, get_initial_matrix, gx_forward_get_initial_matrix);
    set_dev_proc(dev, sync_output, x_forward_sync_output);
    set_dev_proc(dev, output_page, x_forward_output_page);
    set_dev_proc(dev, close_device, x_wrap_close);
    set_dev_proc(dev, map_color_rgb, x_wrap_map_color_rgb);
    set_dev_proc(dev, fill_rectangle, x_wrap_fill_rectangle);
    set_dev_proc(dev, copy_mono, x_wrap_copy_mono);
    set_dev_proc(dev, copy_color, x_forward_copy_color);
    set_dev_proc(dev, get_bits_rectangle, x_forward_get_bits_rectangle);
    set_dev_proc(dev, get_params, x_wrap_get_params);
    set_dev_proc(dev, put_params, x_wrap_put_params);
    set_dev_proc(dev, map_cmyk_color, gx_forward_map_cmyk_color);
    set_dev_proc(dev, get_page_device, gx_forward_get_page_device);
}

static void
x_rg16x_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, map_rgb_color, x_rg16x_map_rgb_color);

    rgbx_initialize_device_procs(dev);
}

const gx_device_X_wrapper gs_x11rg16x_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_rg16x_initialize_device_procs, "x11rg16x",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        3, 16, 31, 31, 32, 32),
    X_WRAPPER_DATA(x_rg16x_alt_map_color)
};

static void
x_rg32x_initialize_device_procs(gx_device *dev)
{
    set_dev_proc(dev, map_rgb_color, x_rg32x_map_rgb_color);

    rgbx_initialize_device_procs(dev);
}

const gx_device_X_wrapper gs_x11rg32x_device = {
    std_device_dci_type_body(gx_device_X_wrapper,
        x_rg32x_initialize_device_procs, "x11rg32x",
        &st_device_X_wrapper,
        FAKE_RES * 85 / 10, FAKE_RES * 11,	/* x and y extent (nominal) */
        FAKE_RES, FAKE_RES,	/* x and y density (nominal) */
        3, 32, 1023, 1023, 1024, 1024),
    X_WRAPPER_DATA(x_rg32x_alt_map_color)
};

/* Map RGB to a fake color. */
static gx_color_index
x_rg16x_map_rgb_color(gx_device * dev, const gx_color_value cv[])
{
    /* Permute the colors to G5/B5/R6. */
    gx_color_value r, g, b;
    r = cv[0]; g = cv[1]; b = cv[2];
    return (r >> (gx_color_value_bits - 6)) +
        ((g >> (gx_color_value_bits - 5)) << 11) +
        ((b >> (gx_color_value_bits - 5)) << 6);
}
static gx_color_index
x_rg32x_map_rgb_color(gx_device * dev, const gx_color_value cv[])
{
    /* Permute the colors to G11/B10/R11. */
    gx_color_value r, g, b;
    r = cv[0]; g = cv[1]; b = cv[2];
    return (r >> (gx_color_value_bits - 11)) +
        ((gx_color_index)(g >> (gx_color_value_bits - 11)) << 21) +
        ((gx_color_index)(b >> (gx_color_value_bits - 10)) << 11);
}

/* Map a fake color to RGB. */
static int
x_rg16x_alt_map_color(gx_device * dev, gx_color_index color,
                      gx_color_value rgb[3])
{
    rgb[0] = (color & 0x3f) * gx_max_color_value / 0x3f;
    rgb[1] = ((color >> 11) & 0x1f) * gx_max_color_value / 0x1f;
    rgb[2] = ((color >> 6) & 0x1f) * gx_max_color_value / 0x1f;
    return -1;
}
static int
x_rg32x_alt_map_color(gx_device * dev, gx_color_index color,
                      gx_color_value rgb[3])
{
    rgb[0] = (color & 0x7ff) * gx_max_color_value / 0x7ff;
    rgb[1] = ((color >> 21) & 0x7ff) * gx_max_color_value / 0x7ff;
    rgb[2] = ((color >> 11) & 0x3ff) * gx_max_color_value / 0x3ff;
    return -1;
}

#ifdef GS_DEVS_SHARED
extern void gs_lib_register_device(const gx_device *dev);
void
gs_shared_init(void)
{
  gs_lib_register_device((const gx_device *)&gs_x11_device);
  gs_lib_register_device((const gx_device *)&gs_x11alpha_device);
  gs_lib_register_device((const gx_device *)&gs_x11cmyk_device);
  gs_lib_register_device((const gx_device *)&gs_x11cmyk2_device);
  gs_lib_register_device((const gx_device *)&gs_x11cmyk4_device);
  gs_lib_register_device((const gx_device *)&gs_x11cmyk8_device);
  gs_lib_register_device((const gx_device *)&gs_x11gray2_device);
  gs_lib_register_device((const gx_device *)&gs_x11gray4_device);
  gs_lib_register_device((const gx_device *)&gs_x11mono_device);
}
#endif