Print spaces between XA_ATOM property values

[xorg/xrandr] / xrandr.c

/* 
 * Copyright © 2001 Keith Packard, member of The XFree86 Project, Inc.
 * Copyright © 2002 Hewlett Packard Company, Inc.
 * Copyright © 2006 Intel Corporation
 * Copyright © 2013 NVIDIA Corporation
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that copyright
 * notice and this permission notice appear in supporting documentation, and
 * that the name of the copyright holders not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  The copyright holders make no representations
 * about the suitability of this software for any purpose.  It is provided "as
 * is" without express or implied warranty.
 *
 * THE COPYRIGHT HOLDERS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
 * EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 *
 * Thanks to Jim Gettys who wrote most of the client side code,
 * and part of the server code for randr.
 */

#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xlibint.h>
#include <X11/Xproto.h>
#include <X11/Xatom.h>
#include <X11/extensions/Xrandr.h>
#include <X11/extensions/Xrender.h>     /* we share subpixel information */
#include <strings.h>
#include <string.h>
#include <stdlib.h>
#include <stdint.h>
#include <inttypes.h>
#include <stdarg.h>
#include <math.h>

#include "config.h"

static char     *program_name;
static Display  *dpy;
static Window   root;
static int      screen = -1;
static Bool     verbose = False;
static Bool     automatic = False;
static Bool     properties = False;
static Bool     grab_server = True;
static Bool     no_primary = False;

static const char *direction[5] = {
    "normal", 
    "left", 
    "inverted", 
    "right",
    "\n"};

static const char *reflections[5] = {
    "normal", 
    "x", 
    "y", 
    "xy",
    "\n"};

/* subpixel order */
static const char *order[6] = {
    "unknown",
    "horizontal rgb",
    "horizontal bgr",
    "vertical rgb",
    "vertical bgr",
    "no subpixels"};

static const struct {
    const char      *string;
    unsigned long   flag;
} mode_flags[] = {
    { "+HSync", RR_HSyncPositive },
    { "-HSync", RR_HSyncNegative },
    { "+VSync", RR_VSyncPositive },
    { "-VSync", RR_VSyncNegative },
    { "Interlace", RR_Interlace },
    { "DoubleScan", RR_DoubleScan },
    { "CSync",      RR_CSync },
    { "+CSync",     RR_CSyncPositive },
    { "-CSync",     RR_CSyncNegative },
    { NULL,         0 }
};

static void
usage(void)
{
    printf("usage: %s [options]\n", program_name);
    printf("  where options are:\n");
    printf("  -display <display> or -d <display>\n");
    printf("  --help\n");
    printf("  -o <normal,inverted,left,right,0,1,2,3>\n");
    printf("            or --orientation <normal,inverted,left,right,0,1,2,3>\n");
    printf("  -q        or --query\n");
    printf("  -s <size>/<width>x<height> or --size <size>/<width>x<height>\n");
    printf("  -r <rate> or --rate <rate> or --refresh <rate>\n");
    printf("  -v        or --version\n");
    printf("  -x        (reflect in x)\n");
    printf("  -y        (reflect in y)\n");
    printf("  --screen <screen>\n");
    printf("  --verbose\n");
    printf("  --current\n");
    printf("  --dryrun\n");
    printf("  --nograb\n");
    printf("  --prop or --properties\n");
    printf("  --fb <width>x<height>\n");
    printf("  --fbmm <width>x<height>\n");
    printf("  --dpi <dpi>/<output>\n");
    printf("  --output <output>\n");
    printf("      --auto\n");
    printf("      --mode <mode>\n");
    printf("      --preferred\n");
    printf("      --pos <x>x<y>\n");
    printf("      --rate <rate> or --refresh <rate>\n");
    printf("      --reflect normal,x,y,xy\n");
    printf("      --rotate normal,inverted,left,right\n");
    printf("      --left-of <output>\n");
    printf("      --right-of <output>\n");
    printf("      --above <output>\n");
    printf("      --below <output>\n");
    printf("      --same-as <output>\n");
    printf("      --set <property> <value>\n");
    printf("      --scale <x>x<y>\n");
    printf("      --scale-from <w>x<h>\n");
    printf("      --transform <a>,<b>,<c>,<d>,<e>,<f>,<g>,<h>,<i>\n");
    printf("      --off\n");
    printf("      --crtc <crtc>\n");
    printf("      --panning <w>x<h>[+<x>+<y>[/<track:w>x<h>+<x>+<y>[/<border:l>/<t>/<r>/<b>]]]\n");
    printf("      --gamma <r>:<g>:<b>\n");
    printf("      --primary\n");
    printf("  --noprimary\n");
    printf("  --newmode <name> <clock MHz>\n");
    printf("            <hdisp> <hsync-start> <hsync-end> <htotal>\n");
    printf("            <vdisp> <vsync-start> <vsync-end> <vtotal>\n");
    printf("            [flags...]\n");
    printf("            Valid flags: +HSync -HSync +VSync -VSync\n");
    printf("                         +CSync -CSync CSync Interlace DoubleScan\n");
    printf("  --rmmode <name>\n");
    printf("  --addmode <output> <name>\n");
    printf("  --delmode <output> <name>\n");
    printf("  --listproviders\n");
    printf("  --setprovideroutputsource <prov-xid> <source-xid>\n");
    printf("  --setprovideroffloadsink <prov-xid> <sink-xid>\n");
}

static void _X_NORETURN _X_ATTRIBUTE_PRINTF(1,2)
fatal (const char *format, ...)
{
    va_list ap;
    
    va_start (ap, format);
    fprintf (stderr, "%s: ", program_name);
    vfprintf (stderr, format, ap);
    va_end (ap);
    exit (1);
    /*NOTREACHED*/
}

static void _X_ATTRIBUTE_PRINTF(1,2)
warning (const char *format, ...)
{
    va_list ap;
    
    va_start (ap, format);
    fprintf (stderr, "%s: ", program_name);
    vfprintf (stderr, format, ap);
    va_end (ap);
}

static void _X_NORETURN _X_ATTRIBUTE_PRINTF(1,2)
argerr (const char *format, ...)
{
    va_list ap;

    va_start (ap, format);
    fprintf (stderr, "%s: ", program_name);
    vfprintf (stderr, format, ap);
    fprintf (stderr, "Try '%s --help' for more information.\n", program_name);
    va_end (ap);
    exit (1);
    /*NOTREACHED*/
}

/* Because fmin requires C99 suppport */
static inline double dmin (double x, double y)
{
    return x < y ? x : y;
}

static const char *
rotation_name (Rotation rotation)
{
    int i;

    if ((rotation & 0xf) == 0)
        return "normal";
    for (i = 0; i < 4; i++)
        if (rotation & (1 << i))
            return direction[i];
    return "invalid rotation";
}

static const char *
reflection_name (Rotation rotation)
{
    rotation &= (RR_Reflect_X|RR_Reflect_Y);
    switch (rotation) {
    case 0:
        return "none";
    case RR_Reflect_X:
        return "X axis";
    case RR_Reflect_Y:
        return "Y axis";
    case RR_Reflect_X|RR_Reflect_Y:
        return "X and Y axis";
    }
    return "invalid reflection";
}

static char *
capability_name (int cap_bit)
{
    switch (cap_bit) {
    case RR_Capability_SourceOutput:
        return "Source Output";
    case RR_Capability_SinkOutput:
        return "Sink Output";
    case RR_Capability_SourceOffload:
        return "Source Offload";
    case RR_Capability_SinkOffload:
        return "Sink Offload";
    }
    return "invalid capability";
}

typedef enum _relation {
    relation_left_of,
    relation_right_of,
    relation_above,
    relation_below,
    relation_same_as,
} relation_t;

typedef struct {
    int     x, y, width, height;
} rectangle_t;

typedef struct {
    int     x1, y1, x2, y2;
} box_t;

typedef struct {
    int     x, y;
} point_t;

typedef enum _changes {
    changes_none = 0,
    changes_crtc = (1 << 0),
    changes_mode = (1 << 1),
    changes_relation = (1 << 2),
    changes_position = (1 << 3),
    changes_rotation = (1 << 4),
    changes_reflection = (1 << 5),
    changes_automatic = (1 << 6),
    changes_refresh = (1 << 7),
    changes_property = (1 << 8),
    changes_transform = (1 << 9),
    changes_panning = (1 << 10),
    changes_gamma = (1 << 11),
    changes_primary = (1 << 12),
} changes_t;

typedef enum _name_kind {
    name_none = 0,
    name_string = (1 << 0),
    name_xid = (1 << 1),
    name_index = (1 << 2),
    name_preferred = (1 << 3),
} name_kind_t;

typedef struct {
    name_kind_t     kind;
    char            *string;
    XID             xid;
    int             index;
} name_t;

typedef struct _crtc crtc_t;
typedef struct _output  output_t;
typedef struct _transform transform_t;
typedef struct _umode   umode_t;
typedef struct _output_prop output_prop_t;
typedef struct _provider provider_t;

struct _transform {
    XTransform      transform;
    const char      *filter;
    int             nparams;
    XFixed          *params;
};

struct _crtc {
    name_t          crtc;
    Bool            changing;
    XRRCrtcInfo     *crtc_info;

    XRRModeInfo     *mode_info;
    XRRPanning      *panning_info;
    int             x;
    int             y;
    Rotation        rotation;
    output_t        **outputs;
    int             noutput;
    transform_t     current_transform, pending_transform;
};

struct _output_prop {
    struct _output_prop *next;
    char                *name;
    char                *value;
};

struct _output {
    struct _output   *next;
    
    changes_t       changes;
    
    output_prop_t   *props;

    name_t          output;
    XRROutputInfo   *output_info;
    
    name_t          crtc;
    crtc_t          *crtc_info;
    crtc_t          *current_crtc_info;
    
    name_t          mode;
    double          refresh;
    XRRModeInfo     *mode_info;
    
    name_t          addmode;

    relation_t      relation;
    char            *relative_to;

    int             x, y;
    Rotation        rotation;

    XRRPanning      panning;

    Bool            automatic;
    int             scale_from_w, scale_from_h;
    transform_t     transform;

    struct {
        float red;
        float green;
        float blue;
    } gamma;

    float           brightness;

    Bool            primary;

    Bool            found;
};

typedef enum _umode_action {
    umode_create, umode_destroy, umode_add, umode_delete
} umode_action_t;


struct _umode {
    struct _umode   *next;
    
    umode_action_t  action;
    XRRModeInfo     mode;
    name_t          output;
    name_t          name;
};

struct _provider {
    name_t              provider;
    XRRProviderInfo     *info;
};

static const char *connection[3] = {
    "connected",
    "disconnected",
    "unknown connection"};

#define OUTPUT_NAME 1

#define CRTC_OFF    2
#define CRTC_UNSET  3
#define CRTC_INDEX  0x40000000

#define MODE_NAME   1
#define MODE_OFF    2
#define MODE_UNSET  3
#define MODE_PREF   4

#define POS_UNSET   -1

static output_t *all_outputs = NULL;
static output_t **all_outputs_tail = &all_outputs;
static crtc_t   *crtcs;
static provider_t       *providers;
static umode_t  *umodes;
static int      num_crtcs, num_providers;
static XRRScreenResources  *res;
static int      fb_width = 0, fb_height = 0;
static int      fb_width_mm = 0, fb_height_mm = 0;
static double   dpi = 0;
static char     *dpi_output_name = NULL;
static Bool     dryrun = False;
static int      minWidth, maxWidth, minHeight, maxHeight;
static Bool     has_1_2 = False;
static Bool     has_1_3 = False;
static Bool     has_1_4 = False;
static name_t   provider_name, output_source_provider_name, offload_sink_provider_name;

static int
mode_height (XRRModeInfo *mode_info, Rotation rotation)
{
    switch (rotation & 0xf) {
    case RR_Rotate_0:
    case RR_Rotate_180:
        return mode_info->height;
    case RR_Rotate_90:
    case RR_Rotate_270:
        return mode_info->width;
    default:
        return 0;
    }
}

static int
mode_width (XRRModeInfo *mode_info, Rotation rotation)
{
    switch (rotation & 0xf) {
    case RR_Rotate_0:
    case RR_Rotate_180:
        return mode_info->width;
    case RR_Rotate_90:
    case RR_Rotate_270:
        return mode_info->height;
    default:
        return 0;
    }
}

static Bool
transform_point (XTransform *transform, double *xp, double *yp)
{
    double  vector[3];
    double  result[3];
    int     i, j;
    double  v;

    vector[0] = *xp;
    vector[1] = *yp;
    vector[2] = 1;
    for (j = 0; j < 3; j++)
    {
        v = 0;
        for (i = 0; i < 3; i++)
            v += (XFixedToDouble (transform->matrix[j][i]) * vector[i]);
        result[j] = v;
    }
    if (!result[2])
        return False;
    for (j = 0; j < 2; j++) {
        vector[j] = result[j] / result[2];
        if (vector[j] > 32767 || vector[j] < -32767)
            return False;
    }
    *xp = vector[0];
    *yp = vector[1];
    return True;
}

static void
path_bounds (XTransform *transform, point_t *points, int npoints, box_t *box)
{
    int     i;
    box_t   point;

    for (i = 0; i < npoints; i++) {
        double  x, y;
        x = points[i].x;
        y = points[i].y;
        transform_point (transform, &x, &y);
        point.x1 = floor (x);
        point.y1 = floor (y);
        point.x2 = ceil (x);
        point.y2 = ceil (y);
        if (i == 0)
            *box = point;
        else {
            if (point.x1 < box->x1) box->x1 = point.x1;
            if (point.y1 < box->y1) box->y1 = point.y1;
            if (point.x2 > box->x2) box->x2 = point.x2;
            if (point.y2 > box->y2) box->y2 = point.y2;
        }
    }
}

static void
mode_geometry (XRRModeInfo *mode_info, Rotation rotation,
               XTransform *transform,
               box_t *bounds)
{
    point_t rect[4];
    int width = mode_width (mode_info, rotation);
    int height = mode_height (mode_info, rotation);

    rect[0].x = 0;
    rect[0].y = 0;
    rect[1].x = width;
    rect[1].y = 0;
    rect[2].x = width;
    rect[2].y = height;
    rect[3].x = 0;
    rect[3].y = height;
    path_bounds (transform, rect, 4, bounds);
}

/* v refresh frequency in Hz */
static double
mode_refresh (XRRModeInfo *mode_info)
{
    double rate;
    unsigned int vTotal = mode_info->vTotal;

    if (mode_info->modeFlags & RR_DoubleScan) {
        /* doublescan doubles the number of lines */
        vTotal *= 2;
    }

    if (mode_info->modeFlags & RR_Interlace) {
        /* interlace splits the frame into two fields */
        /* the field rate is what is typically reported by monitors */
        vTotal /= 2;
    }
    
    if (mode_info->hTotal && vTotal)
        rate = ((double) mode_info->dotClock /
                ((double) mode_info->hTotal * (double) vTotal));
    else
        rate = 0;
    return rate;
}

/* h sync frequency in Hz */
static double
mode_hsync (XRRModeInfo *mode_info)
{
    double rate;
    
    if (mode_info->hTotal)
        rate = (double) mode_info->dotClock / (double) mode_info->hTotal;
    else
        rate = 0;
    return rate;
}

static void
init_name (name_t *name)
{
    name->kind = name_none;
}

static void
set_name_string (name_t *name, char *string)
{
    name->kind |= name_string;
    name->string = string;
}

static void
set_name_xid (name_t *name, XID xid)
{
    name->kind |= name_xid;
    name->xid = xid;
}

static void
set_name_index (name_t *name, int idx)
{
    name->kind |= name_index;
    name->index = idx;
}

static void
set_name_preferred (name_t *name)
{
    name->kind |= name_preferred;
}

static void
set_name_all (name_t *name, name_t *old)
{
    if (old->kind & name_xid)
        name->xid = old->xid;
    if (old->kind & name_string)
        name->string = old->string;
    if (old->kind & name_index)
        name->index = old->index;
    name->kind |= old->kind;
}

static void
set_name (name_t *name, char *string, name_kind_t valid)
{
    unsigned int xid; /* don't make it XID (which is unsigned long):
                         scanf() takes unsigned int */
    int idx;

    if ((valid & name_xid) && sscanf (string, "0x%x", &xid) == 1)
        set_name_xid (name, xid);
    else if ((valid & name_index) && sscanf (string, "%d", &idx) == 1)
        set_name_index (name, idx);
    else if (valid & name_string)
        set_name_string (name, string);
    else
        argerr ("invalid name '%s'\n", string);
}

static int
print_name (const name_t *name)
{
    name_kind_t kind = name->kind;

    if ((kind & name_xid))         return printf("XID 0x%x", (unsigned int)name->xid);
    else if ((kind & name_string)) return printf("name %s", name->string);
    else if ((kind & name_index))  return printf("index %d", name->index);
    else                           return printf("unknown name");
}

static void
init_transform (transform_t *transform)
{
    int x;
    memset (&transform->transform, '\0', sizeof (transform->transform));
    for (x = 0; x < 3; x++)
        transform->transform.matrix[x][x] = XDoubleToFixed (1.0);
    transform->filter = "";
    transform->nparams = 0;
    transform->params = NULL;
}

static void
set_transform (transform_t  *dest,
               XTransform   *transform,
               const char   *filter,
               XFixed       *params,
               int          nparams)
{
    dest->transform = *transform;
    /* note: this string is leaked */
    dest->filter = strdup (filter);
    dest->nparams = nparams;
    dest->params = malloc (nparams * sizeof (XFixed));
    memcpy (dest->params, params, nparams * sizeof (XFixed));
}

static void
copy_transform (transform_t *dest, transform_t *src)
{
    set_transform (dest, &src->transform,
                   src->filter, src->params, src->nparams);
}

static Bool
equal_transform (transform_t *a, transform_t *b)
{
    if (memcmp (&a->transform, &b->transform, sizeof (XTransform)) != 0)
        return False;
    if (strcmp (a->filter, b->filter) != 0)
        return False;
    if (a->nparams != b->nparams)
        return False;
    if (memcmp (a->params, b->params, a->nparams * sizeof (XFixed)) != 0)
        return False;
    return True;
}

static output_t *
add_output (void)
{
    output_t *output = calloc (1, sizeof (output_t));

    if (!output)
        fatal ("out of memory\n");
    output->next = NULL;
    output->found = False;
    output->brightness = 1.0;
    *all_outputs_tail = output;
    all_outputs_tail = &output->next;
    return output;
}

static output_t *
find_output (name_t *name)
{
    output_t *output;

    for (output = all_outputs; output; output = output->next)
    {
        name_kind_t common = name->kind & output->output.kind;
        
        if ((common & name_xid) && name->xid == output->output.xid)
            break;
        if ((common & name_string) && !strcmp (name->string, output->output.string))
            break;
        if ((common & name_index) && name->index == output->output.index)
            break;
    }
    return output;
}

static output_t *
find_output_by_xid (RROutput output)
{
    name_t  output_name;

    init_name (&output_name);
    set_name_xid (&output_name, output);
    return find_output (&output_name);
}

static output_t *
find_output_by_name (char *name)
{
    name_t  output_name;

    init_name (&output_name);
    set_name_string (&output_name, name);
    return find_output (&output_name);
}

static crtc_t *
find_crtc (name_t *name)
{
    int     c;
    crtc_t  *crtc = NULL;

    for (c = 0; c < num_crtcs; c++)
    {
        name_kind_t common;
        
        crtc = &crtcs[c];
        common = name->kind & crtc->crtc.kind;
        
        if ((common & name_xid) && name->xid == crtc->crtc.xid)
            break;
        if ((common & name_string) && !strcmp (name->string, crtc->crtc.string))
            break;
        if ((common & name_index) && name->index == crtc->crtc.index)
            break;
        crtc = NULL;
    }
    return crtc;
}

static crtc_t *
find_crtc_by_xid (RRCrtc crtc)
{
    name_t  crtc_name;

    init_name (&crtc_name);
    set_name_xid (&crtc_name, crtc);
    return find_crtc (&crtc_name);
}

static XRRModeInfo *
find_mode (name_t *name, double refresh)
{
    int         m;
    XRRModeInfo *best = NULL;
    double      bestDist = 0;

    for (m = 0; m < res->nmode; m++)
    {
        XRRModeInfo *mode = &res->modes[m];
        if ((name->kind & name_xid) && name->xid == mode->id)
        {
            best = mode;
            break;
        }
        if ((name->kind & name_string) && !strcmp (name->string, mode->name))
        {
            double   dist;
            
            if (refresh)
                dist = fabs (mode_refresh (mode) - refresh);
            else
                dist = 0;
            if (!best || dist < bestDist)
            {
                bestDist = dist;
                best = mode;
            }
        }
    }
    return best;
}

static XRRModeInfo *
find_mode_by_xid (RRMode mode)
{
    name_t  mode_name;

    init_name (&mode_name);
    set_name_xid (&mode_name, mode);
    return find_mode (&mode_name, 0);
}

#if 0
static XRRModeInfo *
find_mode_by_name (char *name)
{
    name_t  mode_name;
    init_name (&mode_name);
    set_name_string (&mode_name, name);
    return find_mode (&mode_name, 0);
}
#endif

static
XRRModeInfo *
find_mode_for_output (output_t *output, name_t *name)
{
    XRROutputInfo   *output_info = output->output_info;
    int             m;
    XRRModeInfo     *best = NULL;
    double          bestDist = 0;

    for (m = 0; m < output_info->nmode; m++)
    {
        XRRModeInfo         *mode;

        mode = find_mode_by_xid (output_info->modes[m]);
        if (!mode) continue;
        if ((name->kind & name_xid) && name->xid == mode->id)
        {
            best = mode;
            break;
        }
        if ((name->kind & name_string) && !strcmp (name->string, mode->name))
        {
            double   dist;

            /* Stay away from doublescan modes unless refresh rate is specified. */
            if (!output->refresh && (mode->modeFlags & RR_DoubleScan))
                continue;

            if (output->refresh)
                dist = fabs (mode_refresh (mode) - output->refresh);
            else
                dist = 0;
            if (!best || dist < bestDist)
            {
                bestDist = dist;
                best = mode;
            }
        }
    }
    return best;
}

static XRRModeInfo *
preferred_mode (output_t *output)
{
    XRROutputInfo   *output_info = output->output_info;
    int             m;
    XRRModeInfo     *best;
    int             bestDist;
    
    best = NULL;
    bestDist = 0;
    for (m = 0; m < output_info->nmode; m++)
    {
        XRRModeInfo *mode_info = find_mode_by_xid (output_info->modes[m]);
        int         dist;
        
        if (m < output_info->npreferred)
            dist = 0;
        else if (output_info->mm_height)
            dist = (1000 * DisplayHeight(dpy, screen) / DisplayHeightMM(dpy, screen) -
                    1000 * mode_info->height / output_info->mm_height);
        else
            dist = DisplayHeight(dpy, screen) - mode_info->height;

        if (dist < 0) dist = -dist;
        if (!best || dist < bestDist)
        {
            best = mode_info;
            bestDist = dist;
        }
    }
    return best;
}

static Bool
output_can_use_crtc (output_t *output, crtc_t *crtc)
{
    XRROutputInfo   *output_info = output->output_info;
    int             c;

    for (c = 0; c < output_info->ncrtc; c++)
        if (output_info->crtcs[c] == crtc->crtc.xid)
            return True;
    return False;
}

static Bool
output_can_use_mode (output_t *output, XRRModeInfo *mode)
{
    XRROutputInfo   *output_info = output->output_info;
    int             m;

    for (m = 0; m < output_info->nmode; m++)
        if (output_info->modes[m] == mode->id)
            return True;
    return False;
}

static Bool
crtc_can_use_rotation (crtc_t *crtc, Rotation rotation)
{
    Rotation    rotations = crtc->crtc_info->rotations;
    Rotation    dir = rotation & (RR_Rotate_0|RR_Rotate_90|RR_Rotate_180|RR_Rotate_270);
    Rotation    reflect = rotation & (RR_Reflect_X|RR_Reflect_Y);
    if (((rotations & dir) != 0) && ((rotations & reflect) == reflect))
        return True;
    return False;
}

#if 0
static Bool
crtc_can_use_transform (crtc_t *crtc, XTransform *transform)
{
    int major, minor;

    XRRQueryVersion (dpy, &major, &minor);
    if (major > 1 || (major == 1 && minor >= 3))
        return True;
    return False;
}
#endif

/*
 * Report only rotations that are supported by all crtcs
 */
static Rotation
output_rotations (output_t *output)
{
    Bool            found = False;
    Rotation        rotation = RR_Rotate_0;
    XRROutputInfo   *output_info = output->output_info;
    int             c;
    
    for (c = 0; c < output_info->ncrtc; c++)
    {
        crtc_t  *crtc = find_crtc_by_xid (output_info->crtcs[c]);
        if (crtc)
        {
            if (!found) {
                rotation = crtc->crtc_info->rotations;
                found = True;
            } else
                rotation &= crtc->crtc_info->rotations;
        }
    }
    return rotation;
}

static Bool
output_can_use_rotation (output_t *output, Rotation rotation)
{
    XRROutputInfo   *output_info = output->output_info;
    int             c;

    /* make sure all of the crtcs can use this rotation.
     * yes, this is not strictly necessary, but it is 
     * simpler,and we expect most drivers to either
     * support rotation everywhere or nowhere
     */
    for (c = 0; c < output_info->ncrtc; c++)
    {
        crtc_t  *crtc = find_crtc_by_xid (output_info->crtcs[c]);
        if (crtc && !crtc_can_use_rotation (crtc, rotation))
            return False;
    }
    return True;
}

static Bool
output_is_primary(output_t *output)
{
    if (has_1_3)
            return XRRGetOutputPrimary(dpy, root) == output->output.xid;
    return False;
}

/* Returns the index of the last value in an array < 0xffff */
static int
find_last_non_clamped(CARD16 array[], int size) {
    int i;
    for (i = size - 1; i > 0; i--) {
        if (array[i] < 0xffff)
            return i;
    }
    return 0;
}

static void
set_gamma_info(output_t *output)
{
    XRRCrtcGamma *crtc_gamma;
    double i1, v1, i2, v2;
    int size, middle, last_best, last_red, last_green, last_blue;
    CARD16 *best_array;

    if (!output->crtc_info)
        return;

    size = XRRGetCrtcGammaSize(dpy, output->crtc_info->crtc.xid);
    if (!size) {
        warning("Failed to get size of gamma for output %s\n", output->output.string);
        return;
    }

    crtc_gamma = XRRGetCrtcGamma(dpy, output->crtc_info->crtc.xid);
    if (!crtc_gamma) {
        warning("Failed to get gamma for output %s\n", output->output.string);
        return;
    }

    /*
     * Here is a bit tricky because gamma is a whole curve for each
     * color.  So, typically, we need to represent 3 * 256 values as 3 + 1
     * values.  Therefore, we approximate the gamma curve (v) by supposing
     * it always follows the way we set it: a power function (i^g)
     * multiplied by a brightness (b).
     * v = i^g * b
     * so g = (ln(v) - ln(b))/ln(i)
     * and b can be found using two points (v1,i1) and (v2, i2):
     * b = e^((ln(v2)*ln(i1) - ln(v1)*ln(i2))/ln(i1/i2))
     * For the best resolution, we select i2 at the highest place not
     * clamped and i1 at i2/2. Note that if i2 = 1 (as in most normal
     * cases), then b = v2.
     */
    last_red = find_last_non_clamped(crtc_gamma->red, size);
    last_green = find_last_non_clamped(crtc_gamma->green, size);
    last_blue = find_last_non_clamped(crtc_gamma->blue, size);
    best_array = crtc_gamma->red;
    last_best = last_red;
    if (last_green > last_best) {
        last_best = last_green;
        best_array = crtc_gamma->green;
    }
    if (last_blue > last_best) {
        last_best = last_blue;
        best_array = crtc_gamma->blue;
    }
    if (last_best == 0)
        last_best = 1;

    middle = last_best / 2;
    i1 = (double)(middle + 1) / size;
    v1 = (double)(best_array[middle]) / 65535;
    i2 = (double)(last_best + 1) / size;
    v2 = (double)(best_array[last_best]) / 65535;
    if (v2 < 0.0001) { /* The screen is black */
        output->brightness = 0;
        output->gamma.red = 1;
        output->gamma.green = 1;
        output->gamma.blue = 1;
    } else {
        if ((last_best + 1) == size)
            output->brightness = v2;
        else
            output->brightness = exp((log(v2)*log(i1) - log(v1)*log(i2))/log(i1/i2));
        output->gamma.red = log((double)(crtc_gamma->red[last_red / 2]) / output->brightness
                                / 65535) / log((double)((last_red / 2) + 1) / size);
        output->gamma.green = log((double)(crtc_gamma->green[last_green / 2]) / output->brightness
                                  / 65535) / log((double)((last_green / 2) + 1) / size);
        output->gamma.blue = log((double)(crtc_gamma->blue[last_blue / 2]) / output->brightness
                                 / 65535) / log((double)((last_blue / 2) + 1) / size);
    }

    XRRFreeGamma(crtc_gamma);
}

static void
set_output_info (output_t *output, RROutput xid, XRROutputInfo *output_info)
{
    /* sanity check output info */
    if (output_info->connection != RR_Disconnected && !output_info->nmode)
        warning ("Output %s is not disconnected but has no modes\n",
                 output_info->name);
    
    /* set output name and info */
    if (!(output->output.kind & name_xid))
        set_name_xid (&output->output, xid);
    if (!(output->output.kind & name_string))
        set_name_string (&output->output, output_info->name);
    output->output_info = output_info;
    
    /* set crtc name and info */
    if (!(output->changes & changes_crtc))
        set_name_xid (&output->crtc, output_info->crtc);
    
    if (output->crtc.kind == name_xid && output->crtc.xid == None)
        output->crtc_info = NULL;
    else
    {
        output->crtc_info = find_crtc (&output->crtc);
        if (!output->crtc_info)
        {
            if (output->crtc.kind & name_xid)
                fatal ("cannot find crtc 0x%lx\n", output->crtc.xid);
            if (output->crtc.kind & name_index)
                fatal ("cannot find crtc %d\n", output->crtc.index);
        }
        if (!output_can_use_crtc (output, output->crtc_info))
            fatal ("output %s cannot use crtc 0x%lx\n", output->output.string,
                   output->crtc_info->crtc.xid);
    }

    /* set mode name and info */
    if (!(output->changes & changes_mode))
    {
        crtc_t  *crtc = NULL;
        
        if (output_info->crtc)
            crtc = find_crtc_by_xid(output_info->crtc);
        if (crtc && crtc->crtc_info)
            set_name_xid (&output->mode, crtc->crtc_info->mode);
        else if (output->crtc_info)
            set_name_xid (&output->mode, output->crtc_info->crtc_info->mode);
        else
            set_name_xid (&output->mode, None);
        if (output->mode.xid)
        {
            output->mode_info = find_mode_by_xid (output->mode.xid);
            if (!output->mode_info)
                fatal ("server did not report mode 0x%lx for output %s\n",
                       output->mode.xid, output->output.string);
        }
        else
            output->mode_info = NULL;
    }
    else if (output->mode.kind == name_xid && output->mode.xid == None)
        output->mode_info = NULL;
    else
    {
        if (output->mode.kind == name_preferred)
            output->mode_info = preferred_mode (output);
        else
            output->mode_info = find_mode_for_output (output, &output->mode);
        if (!output->mode_info)
        {
            if (output->mode.kind & name_preferred)
                fatal ("cannot find preferred mode\n");
            if (output->mode.kind & name_string)
                fatal ("cannot find mode %s\n", output->mode.string);
            if (output->mode.kind & name_xid)
                fatal ("cannot find mode 0x%lx\n", output->mode.xid);
        }
        if (!output_can_use_mode (output, output->mode_info))
            fatal ("output %s cannot use mode %s\n", output->output.string,
                   output->mode_info->name);
    }

    /* set position */
    if (!(output->changes & changes_position))
    {
        if (output->crtc_info)
        {
            output->x = output->crtc_info->crtc_info->x;
            output->y = output->crtc_info->crtc_info->y;
        }
        else
        {
            output->x = 0;
            output->y = 0;
        }
    }

    /* set rotation */
    if (!(output->changes & changes_rotation))
    {
        output->rotation &= ~0xf;
        if (output->crtc_info)
            output->rotation |= (output->crtc_info->crtc_info->rotation & 0xf);
        else
            output->rotation = RR_Rotate_0;
    }
    if (!(output->changes & changes_reflection))
    {
        output->rotation &= ~(RR_Reflect_X|RR_Reflect_Y);
        if (output->crtc_info)
            output->rotation |= (output->crtc_info->crtc_info->rotation &
                                 (RR_Reflect_X|RR_Reflect_Y));
    }
    if (!output_can_use_rotation (output, output->rotation))
        fatal ("output %s cannot use rotation \"%s\" reflection \"%s\"\n",
               output->output.string,
               rotation_name (output->rotation),
               reflection_name (output->rotation));

    /* set gamma */
    if (!(output->changes & changes_gamma))
            set_gamma_info(output);

    /* set transformation */
    if (!(output->changes & changes_transform))
    {
        if (output->crtc_info)
            copy_transform (&output->transform, &output->crtc_info->current_transform);
        else
            init_transform (&output->transform);
    } else {
        /* transform was already set for --scale or --transform */

        /* for --scale-from, figure out the mode size and compute the transform
         * for the target framebuffer area */
        if (output->scale_from_w > 0 && output->mode_info) {
            double sx = (double)output->scale_from_w /
                                output->mode_info->width;
            double sy = (double)output->scale_from_h /
                                output->mode_info->height;
            if (verbose)
                printf("scaling %s by %lfx%lf\n", output->output.string, sx,
                       sy);
            init_transform (&output->transform);
            output->transform.transform.matrix[0][0] = XDoubleToFixed (sx);
            output->transform.transform.matrix[1][1] = XDoubleToFixed (sy);
            output->transform.transform.matrix[2][2] = XDoubleToFixed (1.0);
            if (sx != 1 || sy != 1)
                output->transform.filter = "bilinear";
            else
                output->transform.filter = "nearest";
            output->transform.nparams = 0;
            output->transform.params = NULL;
        }
    }

    /* set primary */
    if (!(output->changes & changes_primary))
        output->primary = output_is_primary(output);
}
    
static void
get_screen (Bool current)
{
    if (!has_1_2)
        fatal ("Server RandR version before 1.2\n");

    if (res)
        return;

    XRRGetScreenSizeRange (dpy, root, &minWidth, &minHeight,
                           &maxWidth, &maxHeight);
    
    if (current)
        res = XRRGetScreenResourcesCurrent (dpy, root);
    else
        res = XRRGetScreenResources (dpy, root);
    if (!res) fatal ("could not get screen resources");
}

static void
get_crtcs (void)
{
    int         c;

    num_crtcs = res->ncrtc;
    crtcs = calloc (num_crtcs, sizeof (crtc_t));
    if (!crtcs) fatal ("out of memory\n");
    
    for (c = 0; c < res->ncrtc; c++)
    {
        XRRCrtcInfo *crtc_info = XRRGetCrtcInfo (dpy, res, res->crtcs[c]);
        XRRCrtcTransformAttributes  *attr;
        XRRPanning  *panning_info = NULL;

        if (has_1_3) {
            XRRPanning zero;
            memset(&zero, 0, sizeof(zero));
            panning_info = XRRGetPanning  (dpy, res, res->crtcs[c]);
            zero.timestamp = panning_info->timestamp;
            if (!memcmp(panning_info, &zero, sizeof(zero))) {
                Xfree(panning_info);
                panning_info = NULL;
            }
        }

        set_name_xid (&crtcs[c].crtc, res->crtcs[c]);
        set_name_index (&crtcs[c].crtc, c);
        if (!crtc_info) fatal ("could not get crtc 0x%lx information\n", res->crtcs[c]);
        crtcs[c].crtc_info = crtc_info;
        crtcs[c].panning_info = panning_info;
        if (crtc_info->mode == None)
        {
            crtcs[c].mode_info = NULL;
            crtcs[c].x = 0;
            crtcs[c].y = 0;
            crtcs[c].rotation = RR_Rotate_0;
        }
        if (XRRGetCrtcTransform (dpy, res->crtcs[c], &attr) && attr) {
            set_transform (&crtcs[c].current_transform,
                           &attr->currentTransform,
                           attr->currentFilter,
                           attr->currentParams,
                           attr->currentNparams);
            XFree (attr);
        }
        else
        {
            init_transform (&crtcs[c].current_transform);
        }
        copy_transform (&crtcs[c].pending_transform, &crtcs[c].current_transform);
   }
}

static void
crtc_add_output (crtc_t *crtc, output_t *output)
{
    if (crtc->outputs)
        crtc->outputs = realloc (crtc->outputs, (crtc->noutput + 1) * sizeof (output_t *));
    else
    {
        crtc->outputs = malloc (sizeof (output_t *));
        crtc->x = output->x;
        crtc->y = output->y;
        crtc->rotation = output->rotation;
        crtc->mode_info = output->mode_info;
        copy_transform (&crtc->pending_transform, &output->transform);
   }
    if (!crtc->outputs) fatal ("out of memory\n");
    crtc->outputs[crtc->noutput++] = output;
}

static void
set_crtcs (void)
{
    output_t    *output;

    for (output = all_outputs; output; output = output->next)
    {
        if (!output->mode_info) continue;
        crtc_add_output (output->crtc_info, output);
    }
}

static void
set_panning (void)
{
    output_t    *output;

    for (output = all_outputs; output; output = output->next)
    {
        if (! output->crtc_info)
            continue;
        if (! (output->changes & changes_panning))
            continue;
        if (! output->crtc_info->panning_info)
            output->crtc_info->panning_info = malloc (sizeof(XRRPanning));
        memcpy (output->crtc_info->panning_info, &output->panning, sizeof(XRRPanning));
        output->crtc_info->changing = 1;
    }
}

static void
set_gamma(void)
{
    output_t    *output;

    for (output = all_outputs; output; output = output->next) {
        int i, size, shift;
        crtc_t *crtc;
        XRRCrtcGamma *crtc_gamma;
        float gammaRed;
        float gammaGreen;
        float gammaBlue;

        if (!(output->changes & changes_gamma))
            continue;

        if (!output->crtc_info) {
            fatal("Need crtc to set gamma on.\n");
            continue;
        }

        crtc = output->crtc_info;

        size = XRRGetCrtcGammaSize(dpy, crtc->crtc.xid);

        if (!size) {
            fatal("Gamma size is 0.\n");
            continue;
        }

        /*
         * The gamma-correction lookup table managed through XRR[GS]etCrtcGamma
         * is 2^n in size, where 'n' is the number of significant bits in
         * the X Color.  Because an X Color is 16 bits, size cannot be larger
         * than 2^16.
         */
        if (size > 65536) {
            fatal("Gamma correction table is impossibly large.\n");
            continue;
        }

        /*
         * The hardware color lookup table has a number of significant
         * bits equal to ffs(size) - 1; compute all values so that
         * they are in the range [0,size) then shift the values so
         * that they occupy the MSBs of the 16-bit X Color.
         */
        shift = 16 - (ffs(size) - 1);

        crtc_gamma = XRRAllocGamma(size);
        if (!crtc_gamma) {
            fatal("Gamma allocation failed.\n");
            continue;
        }

        if (output->gamma.red == 0.0)
            output->gamma.red = 1.0;
        if (output->gamma.green == 0.0)
            output->gamma.green = 1.0;
        if (output->gamma.blue == 0.0)
            output->gamma.blue = 1.0;

        gammaRed = 1.0 / output->gamma.red;
        gammaGreen = 1.0 / output->gamma.green;
        gammaBlue = 1.0 / output->gamma.blue;

        for (i = 0; i < size; i++) {
            if (gammaRed == 1.0 && output->brightness == 1.0)
                crtc_gamma->red[i] = i;
            else
                crtc_gamma->red[i] = dmin(pow((double)i/(double)(size - 1),
                                              gammaRed) * output->brightness,
                                          1.0) * (double)(size - 1);
            crtc_gamma->red[i] <<= shift;

            if (gammaGreen == 1.0 && output->brightness == 1.0)
                crtc_gamma->green[i] = i;
            else
                crtc_gamma->green[i] = dmin(pow((double)i/(double)(size - 1),
                                                gammaGreen) * output->brightness,
                                            1.0) * (double)(size - 1);
            crtc_gamma->green[i] <<= shift;

            if (gammaBlue == 1.0 && output->brightness == 1.0)
                crtc_gamma->blue[i] = i;
            else
                crtc_gamma->blue[i] = dmin(pow((double)i/(double)(size - 1),
                                               gammaBlue) * output->brightness,
                                           1.0) * (double)(size - 1);
            crtc_gamma->blue[i] <<= shift;
        }

        XRRSetCrtcGamma(dpy, crtc->crtc.xid, crtc_gamma);

        free(crtc_gamma);
    }
}

static void
set_primary(void)
{
    output_t *output;

    if (no_primary) {
        XRRSetOutputPrimary(dpy, root, None);
    } else {
        for (output = all_outputs; output; output = output->next) {
            if (!(output->changes & changes_primary))
                continue;
            if (output->primary)
                XRRSetOutputPrimary(dpy, root, output->output.xid);
        }
    }
}

static Status
crtc_disable (crtc_t *crtc)
{
    if (verbose)
        printf ("crtc %d: disable\n", crtc->crtc.index);
        
    if (dryrun)
        return RRSetConfigSuccess;
    return XRRSetCrtcConfig (dpy, res, crtc->crtc.xid, CurrentTime,
                             0, 0, None, RR_Rotate_0, NULL, 0);
}

static void
crtc_set_transform (crtc_t *crtc, transform_t *transform)
{
    int major, minor;

    XRRQueryVersion (dpy, &major, &minor);
    if (major > 1 || (major == 1 && minor >= 3))
        XRRSetCrtcTransform (dpy, crtc->crtc.xid,
                             &transform->transform,
                             transform->filter,
                             transform->params,
                             transform->nparams);
}

static Status
crtc_revert (crtc_t *crtc)
{
    XRRCrtcInfo *crtc_info = crtc->crtc_info;
    
    if (verbose)
        printf ("crtc %d: revert\n", crtc->crtc.index);
        
    if (dryrun)
        return RRSetConfigSuccess;

    if (!equal_transform (&crtc->current_transform, &crtc->pending_transform))
        crtc_set_transform (crtc, &crtc->current_transform);
    return XRRSetCrtcConfig (dpy, res, crtc->crtc.xid, CurrentTime,
                            crtc_info->x, crtc_info->y,
                            crtc_info->mode, crtc_info->rotation,
                            crtc_info->outputs, crtc_info->noutput);
}

static Status
crtc_apply (crtc_t *crtc)
{
    RROutput    *rr_outputs;
    int         o;
    Status      s;
    RRMode      mode = None;

    if (!crtc->changing || !crtc->mode_info)
        return RRSetConfigSuccess;

    rr_outputs = calloc (crtc->noutput, sizeof (RROutput));
    if (!rr_outputs)
        return BadAlloc;
    for (o = 0; o < crtc->noutput; o++)
        rr_outputs[o] = crtc->outputs[o]->output.xid;
    mode = crtc->mode_info->id;
    if (verbose) {
        printf ("crtc %d: %12s %6.1f +%d+%d", crtc->crtc.index,
                crtc->mode_info->name, mode_refresh (crtc->mode_info),
                crtc->x, crtc->y);
        for (o = 0; o < crtc->noutput; o++)
            printf (" \"%s\"", crtc->outputs[o]->output.string);
        printf ("\n");
    }
    
    if (dryrun)
        s = RRSetConfigSuccess;
    else
    {
        if (!equal_transform (&crtc->current_transform, &crtc->pending_transform))
            crtc_set_transform (crtc, &crtc->pending_transform);
        s = XRRSetCrtcConfig (dpy, res, crtc->crtc.xid, CurrentTime,
                              crtc->x, crtc->y, mode, crtc->rotation,
                              rr_outputs, crtc->noutput);
        if (s == RRSetConfigSuccess && crtc->panning_info) {
            if (has_1_3)
                s = XRRSetPanning (dpy, res, crtc->crtc.xid, crtc->panning_info);
            else
                fatal ("panning needs RandR 1.3\n");
        }
    }
    free (rr_outputs);
    return s;
}

static void
screen_revert (void)
{
    if (verbose)
        printf ("screen %d: revert\n", screen);

    if (dryrun)
        return;
    XRRSetScreenSize (dpy, root,
                      DisplayWidth (dpy, screen),
                      DisplayHeight (dpy, screen),
                      DisplayWidthMM (dpy, screen),
                      DisplayHeightMM (dpy, screen));
}

static void
screen_apply (void)
{
    if (fb_width == DisplayWidth (dpy, screen) &&
        fb_height == DisplayHeight (dpy, screen) &&
        fb_width_mm == DisplayWidthMM (dpy, screen) &&
        fb_height_mm == DisplayHeightMM (dpy, screen))
    {
        return;
    }
    if (verbose)
        printf ("screen %d: %dx%d %dx%d mm %6.2fdpi\n", screen,
                fb_width, fb_height, fb_width_mm, fb_height_mm, dpi);
    if (dryrun)
        return;
    XRRSetScreenSize (dpy, root, fb_width, fb_height,
                      fb_width_mm, fb_height_mm);
}

static void
revert (void)
{
    int c;

    /* first disable all crtcs */
    for (c = 0; c < res->ncrtc; c++)
        crtc_disable (&crtcs[c]);
    /* next reset screen size */
    screen_revert ();
    /* now restore all crtcs */
    for (c = 0; c < res->ncrtc; c++)
        crtc_revert (&crtcs[c]);
}

/*
 * uh-oh, something bad happened in the middle of changing
 * the configuration. Revert to the previous configuration
 * and bail
 */
static void _X_NORETURN
panic (Status s, crtc_t *crtc)
{
    int     c = crtc->crtc.index;
    const char *message;
    
    switch (s) {
    case RRSetConfigSuccess:            message = "succeeded";              break;
    case BadAlloc:                      message = "out of memory";          break;
    case RRSetConfigFailed:             message = "failed";                 break;
    case RRSetConfigInvalidConfigTime:  message = "invalid config time";    break;
    case RRSetConfigInvalidTime:        message = "invalid time";           break;
    default:                            message = "unknown failure";        break;
    }
    
    fprintf (stderr, "%s: Configure crtc %d %s\n", program_name, c, message);
    revert ();
    exit (1);
}

static void
apply (void)
{
    Status  s;
    int     c;
    
    /*
     * Hold the server grabbed while messing with
     * the screen so that apps which notice the resize
     * event and ask for xinerama information from the server
     * receive up-to-date information
     */
    if (grab_server)
        XGrabServer (dpy);
    
    /*
     * Turn off any crtcs which are to be disabled or which are
     * larger than the target size
     */
    for (c = 0; c < res->ncrtc; c++)
    {
        crtc_t      *crtc = &crtcs[c];
        XRRCrtcInfo *crtc_info = crtc->crtc_info;

        /* if this crtc is already disabled, skip it */
        if (crtc_info->mode == None) 
            continue;
        
        /* 
         * If this crtc is to be left enabled, make
         * sure the old size fits then new screen
         */
        if (crtc->mode_info) 
        {
            XRRModeInfo *old_mode = find_mode_by_xid (crtc_info->mode);
            int x, y, w, h;
            box_t bounds;

            if (!old_mode) 
                panic (RRSetConfigFailed, crtc);
            
            /* old position and size information */
            mode_geometry (old_mode, crtc_info->rotation,
                           &crtc->current_transform.transform,
                           &bounds);

            x = crtc_info->x + bounds.x1;
            y = crtc_info->y + bounds.y1;
            w = bounds.x2 - bounds.x1;
            h = bounds.y2 - bounds.y1;

            /* if it fits, skip it */
            if (x + w <= fb_width && y + h <= fb_height) 
                continue;
            crtc->changing = True;
        }
        s = crtc_disable (crtc);
        if (s != RRSetConfigSuccess)
            panic (s, crtc);
    }

    /*
     * Set the screen size
     */
    screen_apply ();
    
    /*
     * Set crtcs
     */

    for (c = 0; c < res->ncrtc; c++)
    {
        crtc_t  *crtc = &crtcs[c];
        
        s = crtc_apply (crtc);
        if (s != RRSetConfigSuccess)
            panic (s, crtc);
    }

    set_primary ();

    /*
     * Release the server grab and let all clients
     * respond to the updated state
     */
    if (grab_server)
        XUngrabServer (dpy);
}

/*
 * Use current output state to complete the output list
 */
static void
get_outputs (void)
{
    int         o;
    output_t    *q;
    
    for (o = 0; o < res->noutput; o++)
    {
        XRROutputInfo   *output_info = XRRGetOutputInfo (dpy, res, res->outputs[o]);
        output_t        *output;
        name_t          output_name;
        if (!output_info) fatal ("could not get output 0x%lx information\n", res->outputs[o]);
        set_name_xid (&output_name, res->outputs[o]);
        set_name_index (&output_name, o);
        set_name_string (&output_name, output_info->name);
        output = find_output (&output_name);
        if (!output)
        {
            output = add_output ();
            set_name_all (&output->output, &output_name);
            /*
             * When global --automatic mode is set, turn on connected but off
             * outputs, turn off disconnected but on outputs
             */
            if (automatic)
            {
                switch (output_info->connection) {
                case RR_Connected:
                    if (!output_info->crtc) {
                        output->changes |= changes_automatic;
                        output->automatic = True;
                    }
                    break;
                case RR_Disconnected:
                    if (output_info->crtc)
                    {
                        output->changes |= changes_automatic;
                        output->automatic = True;
                    }
                    break;
                }
            }
        }
        output->found = True;

        /*
         * Automatic mode -- track connection state and enable/disable outputs
         * as necessary
         */
        if (output->automatic)
        {
            switch (output_info->connection) {
            case RR_Connected:
            case RR_UnknownConnection:
                if ((!(output->changes & changes_mode)))
                {
                    set_name_preferred (&output->mode);
                    output->changes |= changes_mode;
                }
                break;
            case RR_Disconnected:
                if ((!(output->changes & changes_mode)))
                {
                    set_name_xid (&output->mode, None);
                    set_name_xid (&output->crtc, None);
                    output->changes |= changes_mode;
                    output->changes |= changes_crtc;
                }
                break;
            }
        }

        set_output_info (output, res->outputs[o], output_info);
    }
    for (q = all_outputs; q; q = q->next)
    {
        if (!q->found)
        {
            fprintf(stderr, "warning: output %s not found; ignoring\n",
                    q->output.string);
        }
    }
}

static void
mark_changing_crtcs (void)
{
    int c;

    for (c = 0; c < num_crtcs; c++)
    {
        crtc_t      *crtc = &crtcs[c];
        int         o;
        output_t    *output;

        /* walk old output list (to catch disables) */
        for (o = 0; o < crtc->crtc_info->noutput; o++)
        {
            output = find_output_by_xid (crtc->crtc_info->outputs[o]);
            if (!output) fatal ("cannot find output 0x%lx\n",
                                crtc->crtc_info->outputs[o]);
            if (output->changes)
                crtc->changing = True;
        }
        /* walk new output list */
        for (o = 0; o < crtc->noutput; o++)
        {
            output = crtc->outputs[o];
            if (output->changes)
                crtc->changing = True;
        }
    }
}

/*
 * Test whether 'crtc' can be used for 'output'
 */
static Bool
check_crtc_for_output (crtc_t *crtc, output_t *output)
{
    int         c;
    int         l;
    output_t    *other;
    
    for (c = 0; c < output->output_info->ncrtc; c++)
        if (output->output_info->crtcs[c] == crtc->crtc.xid)
            break;
    if (c == output->output_info->ncrtc)
        return False;
    for (other = all_outputs; other; other = other->next)
    {
        if (other == output)
            continue;

        if (other->mode_info == NULL)
            continue;

        if (other->crtc_info != crtc)
            continue;

        /* see if the output connected to the crtc can clone to this output */
        for (l = 0; l < output->output_info->nclone; l++)
            if (output->output_info->clones[l] == other->output.xid)
                break;
        /* not on the list, can't clone */
        if (l == output->output_info->nclone) 
            return False;
    }

    if (crtc->noutput)
    {
        /* make sure the state matches */
        if (crtc->mode_info != output->mode_info)
            return False;
        if (crtc->x != output->x)
            return False;
        if (crtc->y != output->y)
            return False;
        if (crtc->rotation != output->rotation)
            return False;
        if (!equal_transform (&crtc->current_transform, &output->transform))
            return False;
    }
    else if (crtc->crtc_info->noutput)
    {
        /* make sure the state matches the already used state */
        XRRModeInfo *mode = find_mode_by_xid (crtc->crtc_info->mode);

        if (mode != output->mode_info)
            return False;
        if (crtc->crtc_info->x != output->x)
            return False;
        if (crtc->crtc_info->y != output->y)
            return False;
        if (crtc->crtc_info->rotation != output->rotation)
            return False;
    }
    return True;
}

static crtc_t *
find_crtc_for_output (output_t *output)
{
    int     c;

    for (c = 0; c < output->output_info->ncrtc; c++)
    {
        crtc_t      *crtc;

        crtc = find_crtc_by_xid (output->output_info->crtcs[c]);
        if (!crtc) fatal ("cannot find crtc 0x%lx\n", output->output_info->crtcs[c]);

        if (check_crtc_for_output (crtc, output))
            return crtc;
    }
    return NULL;
}

static void
set_positions (void)
{
    output_t    *output;
    Bool        keep_going;
    Bool        any_set;
    int         min_x, min_y;

    for (;;)
    {
        any_set = False;
        keep_going = False;
        for (output = all_outputs; output; output = output->next)
        {
            output_t    *relation;
            name_t      relation_name;

            if (!(output->changes & changes_relation)) continue;
            
            if (output->mode_info == NULL) continue;

            init_name (&relation_name);
            set_name_string (&relation_name, output->relative_to);
            relation = find_output (&relation_name);
            if (!relation) fatal ("cannot find output \"%s\"\n", output->relative_to);
            
            if (relation->mode_info == NULL) 
            {
                output->x = 0;
                output->y = 0;
                output->changes |= changes_position;
                any_set = True;
                continue;
            }
            /*
             * Make sure the dependent object has been set in place
             */
            if ((relation->changes & changes_relation) && 
                !(relation->changes & changes_position))
            {
                keep_going = True;
                continue;
            }
            
            switch (output->relation) {
            case relation_left_of:
                output->y = relation->y;
                output->x = relation->x - mode_width (output->mode_info, output->rotation);
                break;
            case relation_right_of:
                output->y = relation->y;
                output->x = relation->x + mode_width (relation->mode_info, relation->rotation);
                break;
            case relation_above:
                output->x = relation->x;
                output->y = relation->y - mode_height (output->mode_info, output->rotation);
                break;
            case relation_below:
                output->x = relation->x;
                output->y = relation->y + mode_height (relation->mode_info, relation->rotation);
                break;
            case relation_same_as:
                output->x = relation->x;
                output->y = relation->y;
            }
            output->changes |= changes_position;
            any_set = True;
        }
        if (!keep_going)
            break;
        if (!any_set)
            fatal ("loop in relative position specifications\n");
    }

    /*
     * Now normalize positions so the upper left corner of all outputs is at 0,0
     */
    min_x = 32768;
    min_y = 32768;
    for (output = all_outputs; output; output = output->next)
    {
        if (output->mode_info == NULL) continue;
        
        if (output->x < min_x) min_x = output->x;
        if (output->y < min_y) min_y = output->y;
    }
    if (min_x || min_y)
    {
        /* move all outputs */
        for (output = all_outputs; output; output = output->next)
        {
            if (output->mode_info == NULL) continue;

            output->x -= min_x;
            output->y -= min_y;
            output->changes |= changes_position;
        }
    }
}

static void
set_screen_size (void)
{
    output_t    *output;
    Bool        fb_specified = fb_width != 0 && fb_height != 0;
    
    for (output = all_outputs; output; output = output->next)
    {
        XRRModeInfo *mode_info = output->mode_info;
        int         x, y, w, h;
        box_t       bounds;
        
        if (!mode_info) continue;
        
        mode_geometry (mode_info, output->rotation,
                       &output->transform.transform,
                       &bounds);
        x = output->x + bounds.x1;
        y = output->y + bounds.y1;
        w = bounds.x2 - bounds.x1;
        h = bounds.y2 - bounds.y1;
        /* make sure output fits in specified size */
        if (fb_specified)
        {
            if (x + w > fb_width || y + h > fb_height)
                warning ("specified screen %dx%d not large enough for output %s (%dx%d+%d+%d)\n",
                         fb_width, fb_height, output->output.string, w, h, x, y);
        }
        /* fit fb to output */
        else
        {
            XRRPanning *pan;
            if (x + w > fb_width)
                fb_width = x + w;
            if (y + h > fb_height)
                fb_height = y + h;
            if (output->changes & changes_panning)
                pan = &output->panning;
            else
                pan = output->crtc_info ? output->crtc_info->panning_info : NULL;
            if (pan && pan->left + pan->width > fb_width)
                fb_width = pan->left + pan->width;
            if (pan && pan->top + pan->height > fb_height)
                fb_height = pan->top + pan->height;
        }
    }   

    if (fb_width > maxWidth || fb_height > maxHeight)
        fatal ("screen cannot be larger than %dx%d (desired size %dx%d)\n",
               maxWidth, maxHeight, fb_width, fb_height);
    if (fb_specified)
    {
        if (fb_width < minWidth || fb_height < minHeight)
            fatal ("screen must be at least %dx%d\n", minWidth, minHeight);
    }
    else
    {
        if (fb_width < minWidth) fb_width = minWidth;
        if (fb_height < minHeight) fb_height = minHeight;
    }
}
    

static void
disable_outputs (output_t *outputs)
{
    while (outputs)
    {
        outputs->crtc_info = NULL;
        outputs = outputs->next;
    }
}

/*
 * find the best mapping from output to crtc available
 */
static int
pick_crtcs_score (output_t *outputs)
{
    output_t    *output;
    int         best_score;
    int         my_score;
    int         score;
    crtc_t      *best_crtc;
    int         c;
    
    if (!outputs)
        return 0;
    
    output = outputs;
    outputs = outputs->next;
    /*
     * Score with this output disabled
     */
    output->crtc_info = NULL;
    best_score = pick_crtcs_score (outputs);
    if (output->mode_info == NULL)
        return best_score;

    best_crtc = NULL;
    /* 
     * Now score with this output any valid crtc
     */
    for (c = 0; c < output->output_info->ncrtc; c++)
    {
        crtc_t      *crtc;

        crtc = find_crtc_by_xid (output->output_info->crtcs[c]);
        if (!crtc)
            fatal ("cannot find crtc 0x%lx\n", output->output_info->crtcs[c]);
        
        /* reset crtc allocation for following outputs */
        disable_outputs (outputs);
        if (!check_crtc_for_output (crtc, output))
            continue;
        
        my_score = 1000;
        /* slight preference for existing connections */
        if (crtc == output->current_crtc_info)
            my_score++;

        output->crtc_info = crtc;
        score = my_score + pick_crtcs_score (outputs);
        if (score > best_score)
        {
            best_crtc = crtc;
            best_score = score;
        }
    }
    if (output->crtc_info != best_crtc)
        output->crtc_info = best_crtc;
    /*
     * Reset other outputs based on this one using the best crtc
     */
    (void) pick_crtcs_score (outputs);

    return best_score;
}

/*
 * Pick crtcs for any changing outputs that don't have one
 */
static void
pick_crtcs (void)
{
    output_t    *output;

    /*
     * First try to match up newly enabled outputs with spare crtcs
     */
    for (output = all_outputs; output; output = output->next)
    {
        if (output->changes && output->mode_info)
        {
            if (output->crtc_info) {
                if (output->crtc_info->crtc_info->noutput > 0 &&
                    (output->crtc_info->crtc_info->noutput > 1 ||
                     output != find_output_by_xid (output->crtc_info->crtc_info->outputs[0])))
                    break;
            } else {
                output->crtc_info = find_crtc_for_output (output);
                if (!output->crtc_info)
                    break;
            }
        }
    }
    /*
     * Everyone is happy
     */
    if (!output)
        return;
    /*
     * When the simple way fails, see if there is a way
     * to swap crtcs around and make things work
     */
    for (output = all_outputs; output; output = output->next)
        output->current_crtc_info = output->crtc_info;
    pick_crtcs_score (all_outputs);
    for (output = all_outputs; output; output = output->next)
    {
        if (output->mode_info && !output->crtc_info)
            fatal ("cannot find crtc for output %s\n", output->output.string);
        if (!output->changes && output->crtc_info != output->current_crtc_info)
            output->changes |= changes_crtc;
    }
}

static int
check_strtol(char *s)
{
    char *endptr;
    int result = strtol(s, &endptr, 10);
    if (s == endptr)
        argerr ("failed to parse '%s' as a number\n", s);
    return result;
}

static double
check_strtod(char *s)
{
    char *endptr;
    double result = strtod(s, &endptr);
    if (s == endptr)
        argerr ("failed to parse '%s' as a number\n", s);
    return result;
}


static void *
property_values_from_string(const char *str, const Atom type, const int format,
                            int *returned_nitems)
{
    char *token, *tmp;
    void *returned_bytes = NULL;
    int nitems = 0, bytes_per_item = format / 8;

    if ((type != XA_INTEGER && type != XA_CARDINAL) ||
        (format != 8 && format != 16 && format != 32))
    {
        return NULL;
    }

    tmp = strdup (str);

    for (token = strtok (tmp, ","); token; token = strtok (NULL, ","))
    {
        char *endptr;
        long int val = strtol (token, &endptr, 0);

        if (token == endptr || *endptr != '\0')
        {
            argerr ("failed to parse '%s' as a number\n", token);
        }

        returned_bytes = realloc (returned_bytes, (nitems + 1) * bytes_per_item);

        if (type == XA_INTEGER && format == 8)
        {
            int8_t *ptr = returned_bytes;
            ptr[nitems] = (int8_t) val;
        }
        else if (type == XA_INTEGER && format == 16)
        {
            int16_t *ptr = returned_bytes;
            ptr[nitems] = (int16_t) val;
        }
        else if (type == XA_INTEGER && format == 32)
        {
            int32_t *ptr = returned_bytes;
            ptr[nitems] = (int32_t) val;
        }
        else if (type == XA_CARDINAL && format == 8)
        {
            uint8_t *ptr = returned_bytes;
            ptr[nitems] = (uint8_t) val;
        }
        else if (type == XA_CARDINAL && format == 16)
        {
            uint16_t *ptr = returned_bytes;
            ptr[nitems] = (uint16_t) val;
        }
        else if (type == XA_CARDINAL && format == 32)
        {
            uint32_t *ptr = returned_bytes;
            ptr[nitems] = (uint32_t) val;
        }
        else
        {
            free (tmp);
            free (returned_bytes);
            return NULL;
        }

        nitems++;
    }

    free (tmp);

    *returned_nitems = nitems;
    return returned_bytes;
}


static void
print_output_property_value(Bool is_edid,
                            int value_format, /* 8, 16, 32 */
                            Atom value_type,  /* XA_{ATOM,INTEGER,CARDINAL} */
                            const void *value_bytes)
{
    /* special-case the EDID */
    if (is_edid && value_format == 8)
    {
        const uint8_t *val = value_bytes;
        printf ("%02" PRIx8, *val);
        return;
    }

    if (value_type == XA_ATOM && value_format == 32)
    {
        const Atom *val = value_bytes;
        char *str = XGetAtomName (dpy, *val);
        if (str != NULL)
        {
            printf ("%s", str);
            XFree (str);
            return;
        }
    }

    if (value_type == XA_INTEGER)
    {
        if (value_format == 8)
        {
            const int8_t *val = value_bytes;
            printf ("%" PRId8, *val);
            return;
        }
        if (value_format == 16)
        {
            const int16_t *val = value_bytes;
            printf ("%" PRId16, *val);
            return;
        }
        if (value_format == 32)
        {
            const int32_t *val = value_bytes;
            printf ("%" PRId32, *val);
            return;
        }
    }

    if (value_type == XA_CARDINAL)
    {
        if (value_format == 8)
        {
            const uint8_t *val = value_bytes;
            printf ("%" PRIu8, *val);
            return;
        }
        if (value_format == 16)
        {
            const uint16_t *val = value_bytes;
            printf ("%" PRIu16, *val);
            return;
        }
        if (value_format == 32)
        {
            const uint32_t *val = value_bytes;
            printf ("%" PRIu32, *val);
            return;
        }
    }

    printf ("?");
}

static void
get_providers (void)
{
    XRRProviderResources *pr;
    int i;

    if (!has_1_4 || providers)
        return;

    pr = XRRGetProviderResources(dpy, root);
    num_providers = pr->nproviders;
    providers = calloc (num_providers, sizeof (provider_t));
    if (!providers)
        fatal ("out of memory\n");

    for (i = 0; i < num_providers; i++) {
        provider_t *provider = &providers[i];
        name_t *name = &provider->provider;
        XRRProviderInfo *info = XRRGetProviderInfo(dpy, res, pr->providers[i]);

        provider->info = info;
        set_name_xid (name, pr->providers[i]);
        set_name_index (name, i);
        set_name_string (name, info->name);
   }

   XRRFreeProviderResources(pr);
}

static provider_t *
find_provider (name_t *name)
{
    int i;

    for (i = 0; i < num_providers; i++) {
        provider_t *p = &providers[i];
        name_kind_t common = name->kind & p->provider.kind;

        if ((common & name_xid) && name->xid == p->provider.xid)
            return p;
        if ((common & name_string) && !strcmp (name->string, p->provider.string))
            return p;
        if ((common & name_index) && name->index == p->provider.index)
            return p;
    }

    printf ("Could not find provider with ");
    print_name (name);
    printf ("\n");
    exit (1);
}


int
main (int argc, char **argv)
{
    XRRScreenSize *sizes;
    XRRScreenConfiguration *sc;
    int         nsize;
    int         nrate;
    short               *rates;
    Status      status = RRSetConfigFailed;
    int         rot = -1;
    int         query = False;
    int         action_requested = False;
    Rotation    current_rotation;
    XEvent      event;
    XRRScreenChangeNotifyEvent *sce;    
    char          *display_name = NULL;
    int                 i;
    SizeID      current_size;
    short       current_rate;
    double      rate = -1;
    int         size = -1;
    int         dirind = 0;
    Bool        setit = False;
    Bool        version = False;
    int         event_base, error_base;
    int         reflection = 0;
    int         width = 0, height = 0;
    Bool        have_pixel_size = False;
    int         ret = 0;
    output_t    *config_output = NULL;
    Bool        setit_1_2 = False;
    Bool        query_1_2 = False;
    Bool        modeit = False;
    Bool        propit = False;
    Bool        query_1 = False;
    Bool        list_providers = False;
    Bool        provsetoutsource = False;
    Bool        provsetoffsink = False;
    int         major, minor;
    Bool        current = False;

    program_name = argv[0];
    for (i = 1; i < argc; i++) {
        if (!strcmp ("-display", argv[i]) || !strcmp ("-d", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            display_name = argv[i];
            continue;
        }
        if (!strcmp("-help", argv[i]) || !strcmp("--help", argv[i])) {
            usage();
            exit(0);
        }
        if (!strcmp ("--verbose", argv[i])) {
            verbose = True;
            continue;
        }
        if (!strcmp ("--dryrun", argv[i])) {
            dryrun = True;
            verbose = True;
            continue;
        }
        if (!strcmp ("--nograb", argv[i])) {
            grab_server = False;
            continue;
        }
        if (!strcmp("--current", argv[i])) {
            current = True;
            continue;
        }

        if (!strcmp ("-s", argv[i]) || !strcmp ("--size", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%dx%d", &width, &height) == 2) {
                have_pixel_size = True;
            } else {
                size = check_strtol(argv[i]);
                if (size < 0) argerr ("--size argument must be nonnegative\n");
            }
            setit = True;
            action_requested = True;
            continue;
        }

        if (!strcmp ("-r", argv[i]) ||
            !strcmp ("--rate", argv[i]) ||
            !strcmp ("--refresh", argv[i]))
        {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            rate = check_strtod(argv[i]);
            setit = True;
            if (config_output)
            {
                config_output->refresh = rate;
                config_output->changes |= changes_refresh;
                setit_1_2 = True;
            }
            action_requested = True;
            continue;
        }

        if (!strcmp ("-v", argv[i]) || !strcmp ("--version", argv[i])) {
            version = True;
            action_requested = True;
            continue;
        }

        if (!strcmp ("-x", argv[i])) {
            reflection |= RR_Reflect_X;
            setit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("-y", argv[i])) {
            reflection |= RR_Reflect_Y;
            setit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--screen", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            screen = check_strtol(argv[i]);
            if (screen < 0) argerr ("--screen argument must be nonnegative\n");
            continue;
        }
        if (!strcmp ("-q", argv[i]) || !strcmp ("--query", argv[i])) {
            query = True;
            continue;
        }
        if (!strcmp ("-o", argv[i]) || !strcmp ("--orientation", argv[i])) {
            char *endptr;
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            dirind = strtol(argv[i], &endptr, 10);
            if (argv[i] == endptr) {
                for (dirind = 0; dirind < 4; dirind++) {
                    if (strcmp (direction[dirind], argv[i]) == 0) break;
                }
            }
            if ((dirind < 0) || (dirind > 3))
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            rot = dirind;
            setit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--prop", argv[i]) ||
            !strcmp ("--props", argv[i]) ||
            !strcmp ("--madprops", argv[i]) ||
            !strcmp ("--properties", argv[i]))
        {
            query_1_2 = True;
            properties = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--output", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);

            config_output = find_output_by_name (argv[i]);
            if (!config_output) {
                config_output = add_output ();
                set_name (&config_output->output, argv[i], name_string|name_xid);
            }
            
            setit_1_2 = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--crtc", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            set_name (&config_output->crtc, argv[i], name_xid|name_index);
            config_output->changes |= changes_crtc;
            continue;
        }
        if (!strcmp ("--mode", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            set_name (&config_output->mode, argv[i], name_string|name_xid);
            config_output->changes |= changes_mode;
            continue;
        }
        if (!strcmp ("--preferred", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            set_name_preferred (&config_output->mode);
            config_output->changes |= changes_mode;
            continue;
        }
        if (!strcmp ("--pos", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%dx%d",
                        &config_output->x, &config_output->y) != 2)
                argerr ("failed to parse '%s' as a position\n", argv[i]);
            config_output->changes |= changes_position;
            continue;
        }
        if (!strcmp ("--rotation", argv[i]) || !strcmp ("--rotate", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            for (dirind = 0; dirind < 4; dirind++) {
                if (strcmp (direction[dirind], argv[i]) == 0) break;
            }
            if (dirind == 4)
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            config_output->rotation &= ~0xf;
            config_output->rotation |= 1 << dirind;
            config_output->changes |= changes_rotation;
            continue;
        }
        if (!strcmp ("--reflect", argv[i]) || !strcmp ("--reflection", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            for (dirind = 0; dirind < 4; dirind++) {
                if (strcmp (reflections[dirind], argv[i]) == 0) break;
            }
            if (dirind == 4)
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            config_output->rotation &= ~(RR_Reflect_X|RR_Reflect_Y);
            config_output->rotation |= dirind * RR_Reflect_X;
            config_output->changes |= changes_reflection;
            continue;
        }
        if (!strcmp ("--left-of", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            config_output->relation = relation_left_of;
            config_output->relative_to = argv[i];
            config_output->changes |= changes_relation;
            continue;
        }
        if (!strcmp ("--right-of", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            config_output->relation = relation_right_of;
            config_output->relative_to = argv[i];
            config_output->changes |= changes_relation;
            continue;
        }
        if (!strcmp ("--above", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            config_output->relation = relation_above;
            config_output->relative_to = argv[i];
            config_output->changes |= changes_relation;
            continue;
        }
        if (!strcmp ("--below", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            config_output->relation = relation_below;
            config_output->relative_to = argv[i];
            config_output->changes |= changes_relation;
            continue;
        }
        if (!strcmp ("--same-as", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            config_output->relation = relation_same_as;
            config_output->relative_to = argv[i];
            config_output->changes |= changes_relation;
            continue;
        }
        if (!strcmp ("--panning", argv[i])) {
            XRRPanning *pan;
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            pan = &config_output->panning;
            switch (sscanf (argv[i], "%dx%d+%d+%d/%dx%d+%d+%d/%d/%d/%d/%d",
                            &pan->width, &pan->height, &pan->left, &pan->top,
                            &pan->track_width, &pan->track_height,
                            &pan->track_left, &pan->track_top,
                            &pan->border_left, &pan->border_top,
                            &pan->border_right, &pan->border_bottom)) {
            case 2:
                pan->left = pan->top = 0;
                /* fall through */
            case 4:
                pan->track_left = pan->track_top =
                    pan->track_width = pan->track_height = 0;
                /* fall through */
            case 8:
                pan->border_left = pan->border_top =
                    pan->border_right = pan->border_bottom = 0;
                /* fall through */
            case 12:
                break;
            default:
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            }
            config_output->changes |= changes_panning;
            continue;
        }
        if (!strcmp ("--gamma", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf(argv[i], "%f:%f:%f", &config_output->gamma.red,
                    &config_output->gamma.green, &config_output->gamma.blue) != 3)
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            config_output->changes |= changes_gamma;
            setit_1_2 = True;
            continue;
        }
        if (!strcmp ("--brightness", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf(argv[i], "%f", &config_output->brightness) != 1)
                argerr ("%s: invalid argument '%s'\n", argv[i-1], argv[i]);
            config_output->changes |= changes_gamma;
            setit_1_2 = True;
            continue;
        }
        if (!strcmp ("--primary", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            config_output->changes |= changes_primary;
            config_output->primary = True;
            setit_1_2 = True;
            continue;
        }
        if (!strcmp ("--noprimary", argv[i])) {
            no_primary = True;
            setit_1_2 = True;
            continue;
        }
        if (!strcmp ("--set", argv[i])) {
            output_prop_t   *prop;
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (i+2 >= argc) argerr ("%s requires two arguments\n", argv[i]);
            prop = malloc (sizeof (output_prop_t));
            prop->next = config_output->props;
            config_output->props = prop;
            prop->name = argv[++i];
            prop->value = argv[++i];
            propit = True;
            config_output->changes |= changes_property;
            setit_1_2 = True;
            continue;
        }
        if (!strcmp ("--scale", argv[i]))
        {
            double  sx, sy;
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%lfx%lf", &sx, &sy) != 2)
                argerr ("failed to parse '%s' as a scaling factor\n", argv[i]);
            init_transform (&config_output->transform);
            config_output->transform.transform.matrix[0][0] = XDoubleToFixed (sx);
            config_output->transform.transform.matrix[1][1] = XDoubleToFixed (sy);
            config_output->transform.transform.matrix[2][2] = XDoubleToFixed (1.0);
            if (sx != 1 || sy != 1)
                config_output->transform.filter = "bilinear";
            else
                config_output->transform.filter = "nearest";
            config_output->transform.nparams = 0;
            config_output->transform.params = NULL;
            config_output->changes |= changes_transform;
            continue;
        }
        if (!strcmp ("--scale-from", argv[i]))
        {
            int w, h;
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%dx%d", &w, &h) != 2)
                argerr ("failed to parse '%s' as a scale-from size\n", argv[i]);
            if (w <=0 || h <= 0)
                argerr ("--scale-from dimensions must be nonnegative\n");
            config_output->scale_from_w = w;
            config_output->scale_from_h = h;
            config_output->changes |= changes_transform;
            continue;
        }
        if (!strcmp ("--transform", argv[i])) {
            double  transform[3][3];
            int     k, l;
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            init_transform (&config_output->transform);
            if (strcmp (argv[i], "none") != 0)
            {
                if (sscanf(argv[i], "%lf,%lf,%lf,%lf,%lf,%lf,%lf,%lf,%lf",
                           &transform[0][0],&transform[0][1],&transform[0][2],
                           &transform[1][0],&transform[1][1],&transform[1][2],
                           &transform[2][0],&transform[2][1],&transform[2][2])
                    != 9)
                    argerr ("failed to parse '%s' as a transformation\n", argv[i]);
                init_transform (&config_output->transform);
                for (k = 0; k < 3; k++)
                    for (l = 0; l < 3; l++) {
                        config_output->transform.transform.matrix[k][l] = XDoubleToFixed (transform[k][l]);
                    }
                config_output->transform.filter = "bilinear";
                config_output->transform.nparams = 0;
                config_output->transform.params = NULL;
            }
            config_output->changes |= changes_transform;
            continue;
        }
        if (!strcmp ("--off", argv[i])) {
            if (!config_output) argerr ("%s must be used after --output\n", argv[i]);
            set_name_xid (&config_output->mode, None);
            set_name_xid (&config_output->crtc, None);
            config_output->changes |= changes_mode;
            continue;
        }
        if (!strcmp ("--fb", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%dx%d",
                        &fb_width, &fb_height) != 2)
                argerr ("failed to parse '%s' as a framebuffer size\n", argv[i]);
            setit_1_2 = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--fbmm", argv[i])) {
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            if (sscanf (argv[i], "%dx%d",
                        &fb_width_mm, &fb_height_mm) != 2)
                argerr ("failed to parse '%s' as a physical size\n", argv[i]);
            setit_1_2 = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--dpi", argv[i])) {
            char *strtod_error;
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            dpi = strtod(argv[i], &strtod_error);
            if (argv[i] == strtod_error)
            {
                dpi = 0.0;
                dpi_output_name = argv[i];
            }
            setit_1_2 = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--auto", argv[i])) {
            if (config_output)
            {
                config_output->automatic = True;
                config_output->changes |= changes_automatic;
            }
            else
                automatic = True;
            setit_1_2 = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--q12", argv[i]))
        {
            query_1_2 = True;
            continue;
        }
        if (!strcmp ("--q1", argv[i]))
        {
            query_1 = True;
            continue;
        }
        if (!strcmp ("--newmode", argv[i]))
        {
            umode_t  *m = malloc (sizeof (umode_t));
            double    clock;
            
            ++i;
            if (i + 9 >= argc)
                argerr ("failed to parse '%s' as a mode specification\n", argv[i]);
            m->mode.name = argv[i];
            m->mode.nameLength = strlen (argv[i]);
            i++;
            clock = check_strtod(argv[i++]);
            m->mode.dotClock = clock * 1e6;

            m->mode.width = check_strtol(argv[i++]);
            m->mode.hSyncStart = check_strtol(argv[i++]);
            m->mode.hSyncEnd = check_strtol(argv[i++]);
            m->mode.hTotal = check_strtol(argv[i++]);
            m->mode.height = check_strtol(argv[i++]);
            m->mode.vSyncStart = check_strtol(argv[i++]);
            m->mode.vSyncEnd = check_strtol(argv[i++]);
            m->mode.vTotal = check_strtol(argv[i++]);
            m->mode.modeFlags = 0;
            while (i < argc) {
                int f;
                
                for (f = 0; mode_flags[f].string; f++)
                    if (!strcasecmp (mode_flags[f].string, argv[i]))
                        break;
                
                if (!mode_flags[f].string)
                    break;
                m->mode.modeFlags |= mode_flags[f].flag;
                i++;
            }
            m->next = umodes;
            m->action = umode_create;
            umodes = m;
            modeit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--rmmode", argv[i]))
        {
            umode_t  *m = malloc (sizeof (umode_t));

            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            set_name (&m->name, argv[i], name_string|name_xid);
            m->action = umode_destroy;
            m->next = umodes;
            umodes = m;
            modeit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--addmode", argv[i]))
        {
            umode_t  *m = malloc (sizeof (umode_t));

            if (i+2 >= argc) argerr ("%s requires two arguments\n", argv[i]);
            set_name (&m->output, argv[++i], name_string|name_xid);
            set_name (&m->name, argv[++i], name_string|name_xid);
            m->action = umode_add;
            m->next = umodes;
            umodes = m;
            modeit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--delmode", argv[i]))
        {
            umode_t  *m = malloc (sizeof (umode_t));

            if (i+2 >= argc) argerr ("%s requires two arguments\n", argv[i]);
            set_name (&m->output, argv[++i], name_string|name_xid);
            set_name (&m->name, argv[++i], name_string|name_xid);
            m->action = umode_delete;
            m->next = umodes;
            umodes = m;
            modeit = True;
            action_requested = True;
            continue;
        }
        if (!strcmp ("--listproviders", argv[i]))
        {
            list_providers = True;
            action_requested = True;
            continue;
        }
        if (!strcmp("--setprovideroutputsource", argv[i]))
        { 
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            set_name (&provider_name, argv[i], name_string|name_xid|name_index);
            if (++i>=argc) 
                set_name_xid (&output_source_provider_name, 0);
            else
                set_name (&output_source_provider_name, argv[i], name_string|name_xid|name_index);
            action_requested = True;
            provsetoutsource = True;
            continue;
        }
        if (!strcmp("--setprovideroffloadsink", argv[i]))
        { 
            if (++i >= argc) argerr ("%s requires an argument\n", argv[i-1]);
            set_name (&provider_name, argv[i], name_string|name_xid|name_index);
            if (++i>=argc) 
                set_name_xid (&offload_sink_provider_name, 0);
            else
                set_name (&offload_sink_provider_name, argv[i], name_string|name_xid|name_index);
            action_requested = True;
            provsetoffsink = True;
            continue;
        }

        argerr ("unrecognized option '%s'\n", argv[i]);
    }
    if (!action_requested)
            query = True;
    if (verbose) 
    {
        query = True;
        if (setit && !setit_1_2)
            query_1 = True;
    }
    if (version)
        printf("xrandr program version       " VERSION "\n");

    dpy = XOpenDisplay (display_name);

    if (dpy == NULL) {
        fprintf (stderr, "Can't open display %s\n", XDisplayName(display_name));
        exit (1);
    }
    if (screen < 0)
        screen = DefaultScreen (dpy);
    if (screen >= ScreenCount (dpy)) {
        fprintf (stderr, "Invalid screen number %d (display has %d)\n",
                 screen, ScreenCount (dpy));
        exit (1);
    }

    root = RootWindow (dpy, screen);

    if (!XRRQueryExtension (dpy, &event_base, &error_base) ||
        !XRRQueryVersion (dpy, &major, &minor))
    {
        fprintf (stderr, "RandR extension missing\n");
        exit (1);
    }
    if (major > 1 || (major == 1 && minor >= 2))
        has_1_2 = True;
    if (major > 1 || (major == 1 && minor >= 3))
        has_1_3 = True;
    if (major > 1 || (major == 1 && minor >= 4))
        has_1_4 = True;
        
    if (has_1_2 && modeit)
    {
        umode_t *m;

        get_screen (current);
        get_crtcs();
        get_outputs();
        
        for (m = umodes; m; m = m->next)
        {
            XRRModeInfo *e;
            output_t    *o;
            
            switch (m->action) {
            case umode_create:
                XRRCreateMode (dpy, root, &m->mode);
                break;
            case umode_destroy:
                e = find_mode (&m->name, 0);
                if (!e)
                    fatal ("cannot find mode \"%s\"\n", m->name.string);
                XRRDestroyMode (dpy, e->id);
                break;
            case umode_add:
                o = find_output (&m->output);
                if (!o)
                    fatal ("cannot find output \"%s\"\n", m->output.string);
                e = find_mode (&m->name, 0);
                if (!e)
                    fatal ("cannot find mode \"%s\"\n", m->name.string);
                XRRAddOutputMode (dpy, o->output.xid, e->id);
                break;
            case umode_delete:
                o = find_output (&m->output);
                if (!o)
                    fatal ("cannot find output \"%s\"\n", m->output.string);
                e = find_mode (&m->name, 0);
                if (!e)
                    fatal ("cannot find mode \"%s\"\n", m->name.string);
                XRRDeleteOutputMode (dpy, o->output.xid, e->id);
                break;
            }
        }
        if (!setit_1_2)
        {
            XSync (dpy, False);
            exit (0);
        }
    }
    if (has_1_2 && propit)
    {
        output_t *output;

        get_screen (current);
        get_crtcs();
        get_outputs();
        
        for (output = all_outputs; output; output = output->next)
        {
            output_prop_t   *prop;

            for (prop = output->props; prop; prop = prop->next)
            {
                Atom            name = XInternAtom (dpy, prop->name, False);
                Atom            type;
                int             format = 0;
                unsigned char   *data, *malloced_data = NULL;
                int             nelements;
                int             int_value;
                unsigned long   ulong_value;
                unsigned char   *prop_data;
                int             actual_format;
                unsigned long   nitems, bytes_after;
                Atom            actual_type;
                XRRPropertyInfo *propinfo;

                type = AnyPropertyType;
                
                if (XRRGetOutputProperty (dpy, output->output.xid, name,
                                          0, 100, False, False,
                                          AnyPropertyType,
                                          &actual_type, &actual_format,
                                          &nitems, &bytes_after, &prop_data) == Success &&

                    (propinfo = XRRQueryOutputProperty(dpy, output->output.xid,
                                                      name)))
                {
                    type = actual_type;
                    format = actual_format;
                }

                malloced_data = property_values_from_string
                    (prop->value, type, actual_format, &nelements);

                if (malloced_data)
                {
                    data = malloced_data;
                    type = actual_type;
                    format = actual_format;
                }
                else if (type == AnyPropertyType &&
                    (sscanf (prop->value, "%d", &int_value) == 1 ||
                     sscanf (prop->value, "0x%x", &int_value) == 1))
                {
                    type = XA_INTEGER;
                    ulong_value = int_value;
                    data = (unsigned char *) &ulong_value;
                    nelements = 1;
                    format = 32;
                }
                else if ((type == XA_ATOM))
                {
                    ulong_value = XInternAtom (dpy, prop->value, False);
                    data = (unsigned char *) &ulong_value;
                    nelements = 1;
                }
                else if ((type == XA_STRING || type == AnyPropertyType))
                {
                    type = XA_STRING;
                    data = (unsigned char *) prop->value;
                    nelements = strlen (prop->value);
                    format = 8;
                }
                else
                    continue;
                XRRChangeOutputProperty (dpy, output->output.xid,
                                         name, type, format, PropModeReplace,
                                         data, nelements);
                free (malloced_data);
            }
        }
        if (!setit_1_2)
        {
            XSync (dpy, False);
            exit (0);
        }
    }
    if (provsetoutsource)
    {
        provider_t *provider, *source;

        if (!has_1_4)
            fatal ("--setprovideroutputsource requires RandR 1.4\n");

        get_screen (current);
        get_providers ();

        provider = find_provider (&provider_name);
        source = find_provider(&output_source_provider_name);

        XRRSetProviderOutputSource(dpy, provider->provider.xid, source->provider.xid);
    }
    if (provsetoffsink)
    {
        provider_t *provider, *sink;

        if (!has_1_4)
            fatal ("--setprovideroffloadsink requires RandR 1.4\n");

        get_screen (current);
        get_providers ();

        provider = find_provider (&provider_name);
        sink = find_provider(&offload_sink_provider_name);

        XRRSetProviderOffloadSink(dpy, provider->provider.xid, sink->provider.xid);
    }
    if (setit_1_2)
    {
        get_screen (current);
        get_crtcs ();
        get_outputs ();
        set_positions ();
        set_screen_size ();

        pick_crtcs ();

        /*
         * Assign outputs to crtcs
         */
        set_crtcs ();
        
        /*
         * Mark changing crtcs
         */
        mark_changing_crtcs ();

        /*
         * If an output was specified to track dpi, use it
         */
        if (dpi_output_name)
        {
            output_t    *dpi_output = find_output_by_name (dpi_output_name);
            XRROutputInfo       *output_info;
            XRRModeInfo *mode_info;
            if (!dpi_output)
                fatal ("Cannot find output %s\n", dpi_output_name);
            output_info = dpi_output->output_info;
            mode_info = dpi_output->mode_info;
            if (output_info && mode_info && output_info->mm_height)
            {
                /*
                 * When this output covers the whole screen, just use
                 * the known physical size
                 */
                if (fb_width == mode_info->width &&
                    fb_height == mode_info->height)
                {
                    fb_width_mm = output_info->mm_width;
                    fb_height_mm = output_info->mm_height;
                }
                else
                {
                    dpi = (25.4 * mode_info->height) / output_info->mm_height;
                }
            }
        }

        /*
         * Compute physical screen size
         */
        if (fb_width_mm == 0 || fb_height_mm == 0)
        {
            if (fb_width != DisplayWidth (dpy, screen) ||
                fb_height != DisplayHeight (dpy, screen) || dpi != 0.0)
            {
                if (dpi <= 0)
                    dpi = (25.4 * DisplayHeight (dpy, screen)) / DisplayHeightMM(dpy, screen);

                fb_width_mm = (25.4 * fb_width) / dpi;
                fb_height_mm = (25.4 * fb_height) / dpi;
            }
            else
            {
                fb_width_mm = DisplayWidthMM (dpy, screen);
                fb_height_mm = DisplayHeightMM (dpy, screen);
            }
        }
        
        /*
         * Set panning
         */
        set_panning ();

        /* 
         * Set gamma on crtc's that belong to the outputs.
         */
        set_gamma ();

        /*
         * Now apply all of the changes
         */
        apply ();
        
        XSync (dpy, False);
        exit (0);
    }
    if (query_1_2 || (query && has_1_2 && !query_1))
    {
        output_t    *output;
        int         m;
        
#define ModeShown   0x80000000
        
        get_screen (current);
        get_crtcs ();
        get_outputs ();

        printf ("Screen %d: minimum %d x %d, current %d x %d, maximum %d x %d\n",
                screen, minWidth, minHeight,
                DisplayWidth (dpy, screen), DisplayHeight(dpy, screen),
                maxWidth, maxHeight);

        for (output = all_outputs; output; output = output->next)
        {
            XRROutputInfo   *output_info = output->output_info;
            crtc_t          *cur_crtc = output->crtc_info;
            XRRCrtcInfo     *crtc_info = cur_crtc ? cur_crtc->crtc_info : NULL;
            XRRModeInfo     *cur_mode = output->mode_info;
            Atom            *props;
            int             j, nprop;
            Bool            *mode_shown;
            Rotation        rotations = output_rotations (output);

            printf ("%s %s", output_info->name, connection[output_info->connection]);
            if (output->primary) {
                printf(" primary");
            }
            if (cur_mode)
            {
                if (crtc_info) {
                    printf (" %dx%d+%d+%d",
                            crtc_info->width, crtc_info->height,
                            crtc_info->x, crtc_info->y);
                } else {
                    printf (" %dx%d+%d+%d",
                            cur_mode->width, cur_mode->height, output->x,
                            output->y);
                }
                if (verbose)
                    printf (" (0x%x)", (int)cur_mode->id);
                if (output->rotation != RR_Rotate_0 || verbose)
                {
                    printf (" %s", 
                            rotation_name (output->rotation));
                    if (output->rotation & (RR_Reflect_X|RR_Reflect_Y))
                        printf (" %s", reflection_name (output->rotation));
                }
            }
            if (rotations != RR_Rotate_0 || verbose)
            {
                Bool    first = True;
                printf (" (");
                for (i = 0; i < 4; i ++) {
                    if ((rotations >> i) & 1) {
                        if (!first) printf (" "); first = False;
                        printf("%s", direction[i]);
                    }
                }
                if (rotations & RR_Reflect_X)
                {
                    if (!first) printf (" "); first = False;
                    printf ("x axis");
                }
                if (rotations & RR_Reflect_Y)
                {
                    if (!first) printf (" ");
                    printf ("y axis");
                }
                printf (")");
            }

            if (cur_mode)
            {
                printf (" %dmm x %dmm",
                        (int)output_info->mm_width, (int)output_info->mm_height);
            }

            if (cur_crtc && cur_crtc->panning_info &&
                cur_crtc->panning_info->width > 0)
            {
                XRRPanning *pan = cur_crtc->panning_info;
                printf (" panning %dx%d+%d+%d",
                        pan->width, pan->height, pan->left, pan->top);
                if ((pan->track_width    != 0 &&
                     (pan->track_left    != pan->left           ||
                      pan->track_width   != pan->width          ||
                      pan->border_left   != 0                   ||
                      pan->border_right  != 0))                 ||
                    (pan->track_height   != 0 &&
                     (pan->track_top     != pan->top            ||
                      pan->track_height  != pan->height         ||
                      pan->border_top    != 0                   ||
                      pan->border_bottom != 0)))
                    printf (" tracking %dx%d+%d+%d border %d/%d/%d/%d",
                            pan->track_width,  pan->track_height,
                            pan->track_left,   pan->track_top,
                            pan->border_left,  pan->border_top,
                            pan->border_right, pan->border_bottom);
            }
            printf ("\n");

            if (verbose)
            {
                printf ("\tIdentifier: 0x%x\n", (int)output->output.xid);
                printf ("\tTimestamp:  %d\n", (int)output_info->timestamp);
                printf ("\tSubpixel:   %s\n", order[output_info->subpixel_order]);
                if (output->gamma.red != 0.0 && output->gamma.green != 0.0 && output->gamma.blue != 0.0) {
                    printf ("\tGamma:      %#.2g:%#.2g:%#.2g\n",
                            output->gamma.red, output->gamma.green, output->gamma.blue);
                    printf ("\tBrightness: %#.2g\n", output->brightness);
                }
                printf ("\tClones:    ");
                for (j = 0; j < output_info->nclone; j++)
                {
                    output_t    *clone = find_output_by_xid (output_info->clones[j]);

                    if (clone) printf (" %s", clone->output.string);
                }
                printf ("\n");
                if (output->crtc_info)
                    printf ("\tCRTC:       %d\n", output->crtc_info->crtc.index);
                printf ("\tCRTCs:     ");
                for (j = 0; j < output_info->ncrtc; j++)
                {
                    crtc_t      *crtc = find_crtc_by_xid (output_info->crtcs[j]);
                    if (crtc)
                        printf (" %d", crtc->crtc.index);
                }
                printf ("\n");
                if (output->crtc_info && output->crtc_info->panning_info) {
                    XRRPanning *pan = output->crtc_info->panning_info;
                    printf ("\tPanning:    %dx%d+%d+%d\n",
                            pan->width, pan->height, pan->left, pan->top);
                    printf ("\tTracking:   %dx%d+%d+%d\n",
                            pan->track_width,  pan->track_height,
                            pan->track_left,   pan->track_top);
                    printf ("\tBorder:     %d/%d/%d/%d\n",
                            pan->border_left,  pan->border_top,
                            pan->border_right, pan->border_bottom);
                }
            }
            if (verbose)
            {
                int x, y;

                printf ("\tTransform: ");
                for (y = 0; y < 3; y++)
                {
                    for (x = 0; x < 3; x++)
                        printf (" %f", XFixedToDouble (output->transform.transform.matrix[y][x]));
                    if (y < 2)
                        printf ("\n\t           ");
                }
                if (output->transform.filter)
                    printf ("\n\t           filter: %s", output->transform.filter);
                printf ("\n");
            }
            if (verbose || properties)
            {
                props = XRRListOutputProperties (dpy, output->output.xid,
                                                 &nprop);
                for (j = 0; j < nprop; j++) {
                    unsigned char *prop;
                    int actual_format;
                    unsigned long nitems, bytes_after;
                    Atom actual_type;
                    XRRPropertyInfo *propinfo;
                    char *atom_name = XGetAtomName (dpy, props[j]);
                    Bool is_edid = strcmp (atom_name, "EDID") == 0;
                    int bytes_per_item, k;

                    XRRGetOutputProperty (dpy, output->output.xid, props[j],
                                          0, 100, False, False,
                                          AnyPropertyType,
                                          &actual_type, &actual_format,
                                          &nitems, &bytes_after, &prop);

                    propinfo = XRRQueryOutputProperty(dpy, output->output.xid,
                                                      props[j]);

                    bytes_per_item = actual_format / 8;

                    printf ("\t%s: ", atom_name);

                    if (is_edid)
                    {
                        printf ("\n\t\t");
                    }

                    for (k = 0; k < nitems; k++)
                    {
                        if (k != 0)
                        {
                            if ((k % 16) == 0)
                            {
                                printf ("\n\t\t");
                            }
                        }
                        print_output_property_value (is_edid, actual_format,
                                                     actual_type,
                                                     prop + (k * bytes_per_item));
                        if (!is_edid)
                        {
                            printf (" ");
                        }
                    }
                    printf ("\n");

                    if (propinfo->range && propinfo->num_values > 0)
                    {
                        printf ("\t\trange%s: ",
                                (propinfo->num_values == 2) ? "" : "s");
                        for (k = 0; k < propinfo->num_values / 2; k++)
                        {
                            printf ("(");
                            print_output_property_value (False, 32, actual_type,
                                                         (unsigned char *) &(propinfo->values[k * 2]));
                            printf (", ");
                            print_output_property_value (False, 32, actual_type,
                                                         (unsigned char *) &(propinfo->values[k * 2 + 1]));
                            printf (")");
                            if (k < propinfo->num_values / 2 - 1)
                                printf (", ");
                        }
                        printf ("\n");
                    }
                    if (!propinfo->range && propinfo->num_values > 0)
                    {
                        printf ("\t\tsupported: ");
                        for (k = 0; k < propinfo->num_values; k++)
                        {
                            print_output_property_value (False, 32, actual_type,
                                                         (unsigned char *) &(propinfo->values[k]));
                            if (k < propinfo->num_values - 1)
                                printf (", ");
                        }
                        printf ("\n");
                    }

                    free(propinfo);
                }
            }

            if (verbose)
            {
                for (j = 0; j < output_info->nmode; j++)
                {
                    XRRModeInfo *mode = find_mode_by_xid (output_info->modes[j]);
                    int         f;
                    
                    printf ("  %s (0x%x) %6.1fMHz",
                            mode->name, (int)mode->id,
                            (double)mode->dotClock / 1000000.0);
                    for (f = 0; mode_flags[f].flag; f++)
                        if (mode->modeFlags & mode_flags[f].flag)
                            printf (" %s", mode_flags[f].string);
                    if (mode == output->mode_info)
                        printf (" *current");
                    if (j < output_info->npreferred)
                        printf (" +preferred");
                    printf ("\n");
                    printf ("        h: width  %4d start %4d end %4d total %4d skew %4d clock %6.1fKHz\n",
                            mode->width, mode->hSyncStart, mode->hSyncEnd,
                            mode->hTotal, mode->hSkew, mode_hsync (mode) / 1000);
                    printf ("        v: height %4d start %4d end %4d total %4d           clock %6.1fHz\n",
                            mode->height, mode->vSyncStart, mode->vSyncEnd, mode->vTotal,
                            mode_refresh (mode));
                    mode->modeFlags |= ModeShown;
                }
            }
            else
            {
                mode_shown = calloc (output_info->nmode, sizeof (Bool));
                if (!mode_shown) fatal ("out of memory\n");
                for (j = 0; j < output_info->nmode; j++)
                {
                    XRRModeInfo *jmode, *kmode;
                    int k;
                    
                    if (mode_shown[j]) continue;
    
                    jmode = find_mode_by_xid (output_info->modes[j]);
                    printf (" ");
                    printf ("  %-12s", jmode->name);
                    for (k = j; k < output_info->nmode; k++)
                    {
                        if (mode_shown[k]) continue;
                        kmode = find_mode_by_xid (output_info->modes[k]);
                        if (strcmp (jmode->name, kmode->name) != 0) continue;
                        mode_shown[k] = True;
                        kmode->modeFlags |= ModeShown;
                        printf (" %6.1f", mode_refresh (kmode));
                        if (kmode == output->mode_info)
                            printf ("*");
                        else
                            printf (" ");
                        if (k < output_info->npreferred)
                            printf ("+");
                        else
                            printf (" ");
                    }
                    printf ("\n");
                }
                free (mode_shown);
            }
        }
        for (m = 0; m < res->nmode; m++)
        {
            XRRModeInfo *mode = &res->modes[m];

            if (!(mode->modeFlags & ModeShown))
            {
                printf ("  %s (0x%x) %6.1fMHz\n",
                        mode->name, (int)mode->id,
                        (double)mode->dotClock / 1000000.0);
                printf ("        h: width  %4d start %4d end %4d total %4d skew %4d clock %6.1fKHz\n",
                        mode->width, mode->hSyncStart, mode->hSyncEnd,
                        mode->hTotal, mode->hSkew, mode_hsync (mode) / 1000);
                printf ("        v: height %4d start %4d end %4d total %4d           clock %6.1fHz\n",
                        mode->height, mode->vSyncStart, mode->vSyncEnd, mode->vTotal,
                        mode_refresh (mode));
            }
        }
        exit (0);
    }
    if (list_providers) {
        int k;

        if (!has_1_4) {
            printf ("RandR 1.4 not supported\n");
            exit (0);
        }

        get_screen (current);
        get_providers ();

        if (providers) {
            int j;

            printf("Providers: number : %d\n", num_providers);

            for (j = 0; j < num_providers; j++) {
                provider_t *provider = &providers[j];
                XRRProviderInfo *info = provider->info;

                printf("Provider %d: id: 0x%x cap: 0x%x", j, (int)provider->provider.xid, info->capabilities);
                for (k = 0; k < 4; k++)
                        if (info->capabilities & (1 << k))
                                printf(", %s", capability_name(1<<k));

                printf(" crtcs: %d outputs: %d associated providers: %d name:%s\n", info->ncrtcs, info->noutputs, info->nassociatedproviders, info->name);
            }
        }
    }

    sc = XRRGetScreenInfo (dpy, root);

    if (sc == NULL) 
        exit (1);

    current_size = XRRConfigCurrentConfiguration (sc, &current_rotation);

    sizes = XRRConfigSizes(sc, &nsize);

    if (have_pixel_size) {
        for (size = 0; size < nsize; size++)
        {
            if (sizes[size].width == width && sizes[size].height == height)
                break;
        }
        if (size >= nsize) {
            fprintf (stderr,
                     "Size %dx%d not found in available modes\n", width, height);
            exit (1);
        }
    }
    else if (size < 0)
        size = current_size;
    else if (size >= nsize) {
        fprintf (stderr,
                 "Size index %d is too large, there are only %d sizes\n",
                 size, nsize);
        exit (1);
    }

    if (rot < 0)
    {
        for (rot = 0; rot < 4; rot++)
            if (1 << rot == (current_rotation & 0xf))
                break;
    }

    current_rate = XRRConfigCurrentRate (sc);

    if (rate < 0)
    {
        if (size == current_size)
            rate = current_rate;
        else
            rate = 0;
    }
    else
    {
        rates = XRRConfigRates (sc, size, &nrate);
        for (i = 0; i < nrate; i++)
            if (rate == rates[i])
                break;
        if (i == nrate) {
            fprintf (stderr, "Rate %.1f Hz not available for this size\n", rate);
            exit (1);
        }
    }

    if (version) {
        int major_version, minor_version;
        XRRQueryVersion (dpy, &major_version, &minor_version);
        printf("Server reports RandR version %d.%d\n", 
               major_version, minor_version);
    }

    if (query || query_1) {
        printf(" SZ:    Pixels          Physical       Refresh\n");
        for (i = 0; i < nsize; i++) {
            int j;

            printf ("%c%-2d %5d x %-5d  (%4dmm x%4dmm )",
                    i == current_size ? '*' : ' ',
                    i, sizes[i].width, sizes[i].height,
                    sizes[i].mwidth, sizes[i].mheight);
            rates = XRRConfigRates (sc, i, &nrate);
            if (nrate) printf ("  ");
            for (j = 0; j < nrate; j++)
                printf ("%c%-4d",
                        i == current_size && rates[j] == current_rate ? '*' : ' ',
                        rates[j]);
            printf ("\n");
        }
    }

    {
        Rotation rotations = XRRConfigRotations(sc, &current_rotation);

        if (query) {
            printf("Current rotation - %s\n",
                   rotation_name (current_rotation));

            printf("Current reflection - %s\n",
                   reflection_name (current_rotation));

            printf ("Rotations possible - ");
            for (i = 0; i < 4; i ++) {
                if ((rotations >> i) & 1)  printf("%s ", direction[i]);
            }
            printf ("\n");

            printf ("Reflections possible - ");
            if (rotations & (RR_Reflect_X|RR_Reflect_Y))
            {
                if (rotations & RR_Reflect_X) printf ("X Axis ");
                if (rotations & RR_Reflect_Y) printf ("Y Axis");
            }
            else
                printf ("none");
            printf ("\n");
        }
    }

    if (verbose) { 
        printf("Setting size to %d, rotation to %s\n",  size, direction[rot]);

        printf ("Setting reflection on ");
        if (reflection)
        {
            if (reflection & RR_Reflect_X) printf ("X Axis ");
            if (reflection & RR_Reflect_Y) printf ("Y Axis");
        }
        else
            printf ("neither axis");
        printf ("\n");

        if (reflection & RR_Reflect_X) printf("Setting reflection on X axis\n");

        if (reflection & RR_Reflect_Y) printf("Setting reflection on Y axis\n");
    }

    /* we should test configureNotify on the root window */
    XSelectInput (dpy, root, StructureNotifyMask);

    if (setit && !dryrun) XRRSelectInput (dpy, root,
                               RRScreenChangeNotifyMask);
    if (setit && !dryrun) {
        Rotation rotation = 1 << rot;
        status = XRRSetScreenConfigAndRate (dpy, sc, root, (SizeID) size,
                                            (Rotation) (rotation | reflection),
                                            rate, CurrentTime);
    }

    if (setit && !dryrun && status == RRSetConfigFailed) {
        printf ("Failed to change the screen configuration!\n");
        ret = 1;
    }

    if (verbose && setit && !dryrun && size != current_size) {
        if (status == RRSetConfigSuccess)
        {
            Bool    seen_screen = False;
            while (!seen_screen) {
                int spo;
                XNextEvent(dpy, (XEvent *) &event);

                printf ("Event received, type = %d\n", event.type);
                /* update Xlib's knowledge of the event */
                XRRUpdateConfiguration (&event);
                if (event.type == ConfigureNotify)
                    printf("Received ConfigureNotify Event!\n");

                switch (event.type - event_base) {
                case RRScreenChangeNotify:
                    sce = (XRRScreenChangeNotifyEvent *) &event;

                    printf("Got a screen change notify event!\n");
                    printf(" window = %d\n root = %d\n size_index = %d\n rotation %d\n", 
                           (int) sce->window, (int) sce->root, 
                           sce->size_index,  sce->rotation);
                    printf(" timestamp = %ld, config_timestamp = %ld\n",
                           sce->timestamp, sce->config_timestamp);
                    printf(" Rotation = %x\n", sce->rotation);
                    printf(" %d X %d pixels, %d X %d mm\n",
                           sce->width, sce->height, sce->mwidth, sce->mheight);
                    printf("Display width   %d, height   %d\n",
                           DisplayWidth(dpy, screen), DisplayHeight(dpy, screen));
                    printf("Display widthmm %d, heightmm %d\n", 
                           DisplayWidthMM(dpy, screen), DisplayHeightMM(dpy, screen));
                    spo = sce->subpixel_order;
                    if ((spo < 0) || (spo > 5))
                        printf ("Unknown subpixel order, value = %d\n", spo);
                    else printf ("new Subpixel rendering model is %s\n", order[spo]);
                    seen_screen = True;
                    break;
                default:
                    if (event.type != ConfigureNotify) 
                        printf("unknown event received, type = %d!\n", event.type);
                }
            }
        }
    }
    XRRFreeScreenConfigInfo(sc);
    return(ret);
}