nuclear@0: /*
nuclear@0:  * Copyright 2007 Red Hat, Inc.
nuclear@0:  *
nuclear@0:  * Permission is hereby granted, free of charge, to any person obtaining a
nuclear@0:  * copy of this software and associated documentation files (the "Software"),
nuclear@0:  * to deal in the Software without restriction, including without limitation
nuclear@0:  * on the rights to use, copy, modify, merge, publish, distribute, sub
nuclear@0:  * license, and/or sell copies of the Software, and to permit persons to whom
nuclear@0:  * the Software is furnished to do so, subject to the following conditions:
nuclear@0:  *
nuclear@0:  * The above copyright notice and this permission notice (including the next
nuclear@0:  * paragraph) shall be included in all copies or substantial portions of the
nuclear@0:  * Software.
nuclear@0:  *
nuclear@0:  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
nuclear@0:  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
nuclear@0:  * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.  IN NO EVENT SHALL
nuclear@0:  * THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
nuclear@0:  * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
nuclear@0:  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
nuclear@0:  */
nuclear@0: 
nuclear@0: /* Author: Soren Sandmann <sandmann@redhat.com> */
nuclear@0: #include "edid.h"
nuclear@0: #include <stdint.h>
nuclear@0: #include <math.h>
nuclear@0: #include <memory.h>
nuclear@0: #include <X11/Xatom.h>
nuclear@0: 
nuclear@0: 
nuclear@0: static int get_bit(int in, int bit) {
nuclear@0:     return (in & (1 << bit)) >> bit;
nuclear@0: }
nuclear@0: 
nuclear@0: static int get_bits(int in, int begin, int end) {
nuclear@0:     int mask = (1 << (end - begin + 1)) - 1;
nuclear@0: 
nuclear@0:     return (in >> begin) & mask;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_header(const uint8_t *edid) {
nuclear@0:     if (memcmp(edid, "\x00\xff\xff\xff\xff\xff\xff\x00", 8) == 0)
nuclear@0:         return true;
nuclear@0:     return false;
nuclear@0: }
nuclear@0: 
nuclear@0: static int decode_vendor_and_product_identification(const uint8_t *edid, MonitorInfo *info) {
nuclear@0: 
nuclear@0:     /* Manufacturer Code */
nuclear@0:     info->manufacturer_code[0] = get_bits(edid[0x08], 2, 6);
nuclear@0:     info->manufacturer_code[1] = get_bits(edid[0x08], 0, 1) << 3;
nuclear@0:     info->manufacturer_code[1] |= get_bits(edid[0x09], 5, 7);
nuclear@0:     info->manufacturer_code[2] = get_bits(edid[0x09], 0, 4);
nuclear@0:     info->manufacturer_code[3] = '\0';
nuclear@0: 
nuclear@0:     info->manufacturer_code[0] += 'A' - 1;
nuclear@0:     info->manufacturer_code[1] += 'A' - 1;
nuclear@0:     info->manufacturer_code[2] += 'A' - 1;
nuclear@0: 
nuclear@0:     /* Product Code */
nuclear@0:     info->product_code = edid[0x0b] << 8 | edid[0x0a];
nuclear@0: 
nuclear@0:     /* Serial Number */
nuclear@0:     info->serial_number = edid[0x0c] | edid[0x0d] << 8 | edid[0x0e] << 16 | edid[0x0f] << 24;
nuclear@0: 
nuclear@0:     /* Week and Year */
nuclear@0:     bool is_model_year = false;
nuclear@0:     switch (edid[0x10]) {
nuclear@0:     case 0x00:
nuclear@0:         info->production_week = -1;
nuclear@0:         break;
nuclear@0: 
nuclear@0:     case 0xff:
nuclear@0:         info->production_week = -1;
nuclear@0:         is_model_year = true;
nuclear@0:         break;
nuclear@0: 
nuclear@0:     default:
nuclear@0:         info->production_week = edid[0x10];
nuclear@0:         break;
nuclear@0:     }
nuclear@0: 
nuclear@0:     if (is_model_year) {
nuclear@0:         info->production_year = -1;
nuclear@0:         info->model_year = 1990 + edid[0x11];
nuclear@0:     } else {
nuclear@0:         info->production_year = 1990 + edid[0x11];
nuclear@0:         info->model_year = -1;
nuclear@0:     }
nuclear@0: 
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_edid_version(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     info->major_version = edid[0x12];
nuclear@0:     info->minor_version = edid[0x13];
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_display_parameters(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     /* Digital vs Analog */
nuclear@0:     info->is_digital = get_bit(edid[0x14], 7);
nuclear@0: 
nuclear@0:     if (info->is_digital) {
nuclear@0:         static const int bit_depth[8] = { -1, 6, 8, 10, 12, 14, 16, -1 };
nuclear@0:         static const Interface interfaces[6] = { UNDEFINED, DVI, HDMI_A, HDMI_B, MDDI, DISPLAY_PORT };
nuclear@0: 
nuclear@0:         int bits = get_bits(edid[0x14], 4, 6);
nuclear@0:         info->connector.digital.bits_per_primary = bit_depth[bits];
nuclear@0: 
nuclear@0:         bits = get_bits(edid[0x14], 0, 3);
nuclear@0:         if (bits <= 5)
nuclear@0:             info->connector.digital.interface = interfaces[bits];
nuclear@0:         else
nuclear@0:             info->connector.digital.interface = UNDEFINED;
nuclear@0:     } else {
nuclear@0:         int bits = get_bits(edid[0x14], 5, 6);
nuclear@0:         static const double levels[][3] = { //
nuclear@0:                 { 0.7, 0.3, 1.0 }, //
nuclear@0:                 { 0.714, 0.286, 1.0 }, //
nuclear@0:                 { 1.0, 0.4, 1.4 }, //
nuclear@0:                 { 0.7, 0.0, 0.7 }, //
nuclear@0:                 };
nuclear@0: 
nuclear@0:         info->connector.analog.video_signal_level = levels[bits][0];
nuclear@0:         info->connector.analog.sync_signal_level = levels[bits][1];
nuclear@0:         info->connector.analog.total_signal_level = levels[bits][2];
nuclear@0:         info->connector.analog.blank_to_black = get_bit(edid[0x14], 4);
nuclear@0:         info->connector.analog.separate_hv_sync = get_bit(edid[0x14], 3);
nuclear@0:         info->connector.analog.composite_sync_on_h = get_bit(edid[0x14], 2);
nuclear@0:         info->connector.analog.composite_sync_on_green = get_bit(edid[0x14], 1);
nuclear@0:         info->connector.analog.serration_on_vsync = get_bit(edid[0x14], 0);
nuclear@0:     }
nuclear@0: 
nuclear@0:     /* Screen Size / Aspect Ratio */
nuclear@0:     if (edid[0x15] == 0 && edid[0x16] == 0) {
nuclear@0:         info->width_mm = -1;
nuclear@0:         info->height_mm = -1;
nuclear@0:         info->aspect_ratio = -1.0;
nuclear@0:     } else if (edid[0x16] == 0) {
nuclear@0:         info->width_mm = -1;
nuclear@0:         info->height_mm = -1;
nuclear@0:         info->aspect_ratio = 100.0 / (edid[0x15] + 99);
nuclear@0:     } else if (edid[0x15] == 0) {
nuclear@0:         info->width_mm = -1;
nuclear@0:         info->height_mm = -1;
nuclear@0:         info->aspect_ratio = 100.0 / (edid[0x16] + 99);
nuclear@0:         info->aspect_ratio = 1 / info->aspect_ratio; /* portrait */
nuclear@0:     } else {
nuclear@0:         info->width_mm = 10 * edid[0x15];
nuclear@0:         info->height_mm = 10 * edid[0x16];
nuclear@0:     }
nuclear@0: 
nuclear@0:     /* Gamma */
nuclear@0:     if (edid[0x17] == 0xFF)
nuclear@0:         info->gamma = -1.0;
nuclear@0:     else
nuclear@0:         info->gamma = (edid[0x17] + 100.0) / 100.0;
nuclear@0: 
nuclear@0:     /* Features */
nuclear@0:     info->standby = get_bit(edid[0x18], 7);
nuclear@0:     info->suspend = get_bit(edid[0x18], 6);
nuclear@0:     info->active_off = get_bit(edid[0x18], 5);
nuclear@0: 
nuclear@0:     if (info->is_digital) {
nuclear@0:         info->connector.digital.rgb444 = 1;
nuclear@0:         if (get_bit(edid[0x18], 3))
nuclear@0:             info->connector.digital.ycrcb444 = 1;
nuclear@0:         if (get_bit(edid[0x18], 4))
nuclear@0:             info->connector.digital.ycrcb422 = 1;
nuclear@0:     } else {
nuclear@0:         int bits = get_bits(edid[0x18], 3, 4);
nuclear@0:         ColorType color_type[4] = { MONOCHROME, RGB, OTHER_COLOR, UNDEFINED_COLOR };
nuclear@0: 
nuclear@0:         info->connector.analog.color_type = color_type[bits];
nuclear@0:     }
nuclear@0: 
nuclear@0:     info->srgb_is_standard = get_bit(edid[0x18], 2);
nuclear@0: 
nuclear@0:     /* In 1.3 this is called "has preferred timing" */
nuclear@0:     info->preferred_timing_includes_native = get_bit(edid[0x18], 1);
nuclear@0: 
nuclear@0:     /* FIXME: In 1.3 this indicates whether the monitor accepts GTF */
nuclear@0:     info->continuous_frequency = get_bit(edid[0x18], 0);
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static double decode_fraction(int high, int low) {
nuclear@0:     double result = 0.0;
nuclear@0:     high = (high << 2) | low;
nuclear@0:     for (int i = 0; i < 10; ++i)
nuclear@0:         result += get_bit(high, i) * pow(2, i - 10);
nuclear@0:     return result;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_color_characteristics(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     info->red_x = decode_fraction(edid[0x1b], get_bits(edid[0x19], 6, 7));
nuclear@0:     info->red_y = decode_fraction(edid[0x1c], get_bits(edid[0x19], 5, 4));
nuclear@0:     info->green_x = decode_fraction(edid[0x1d], get_bits(edid[0x19], 2, 3));
nuclear@0:     info->green_y = decode_fraction(edid[0x1e], get_bits(edid[0x19], 0, 1));
nuclear@0:     info->blue_x = decode_fraction(edid[0x1f], get_bits(edid[0x1a], 6, 7));
nuclear@0:     info->blue_y = decode_fraction(edid[0x20], get_bits(edid[0x1a], 4, 5));
nuclear@0:     info->white_x = decode_fraction(edid[0x21], get_bits(edid[0x1a], 2, 3));
nuclear@0:     info->white_y = decode_fraction(edid[0x22], get_bits(edid[0x1a], 0, 1));
nuclear@0: 
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_established_timings(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     static const Timing established[][8] = { //
nuclear@0:             { { 800, 600, 60 }, { 800, 600, 56 }, //
nuclear@0:               { 640, 480, 75 }, { 640, 480, 72 }, //
nuclear@0:               { 640, 480, 67 }, { 640, 480, 60 }, //
nuclear@0:               { 720, 400, 88 }, { 720, 400, 70 } }, //
nuclear@0:             { { 1280, 1024, 75 }, { 1024, 768, 75 }, //
nuclear@0:               { 1024, 768, 70 }, { 1024, 768, 60 }, //
nuclear@0:               { 1024, 768, 87 }, { 832, 624, 75 }, //
nuclear@0:               { 800, 600, 75 }, { 800, 600, 72 } }, //
nuclear@0:             { { 0, 0, 0 }, { 0, 0, 0 }, { 0, 0, 0 }, { 0, 0, 0 }, //
nuclear@0:               { 0, 0, 0 }, { 0, 0, 0 }, { 0, 0, 0 }, { 1152, 870, 75 } }, //
nuclear@0:             };
nuclear@0: 
nuclear@0:     int idx = 0;
nuclear@0:     for (int i = 0; i < 3; ++i) {
nuclear@0:         for (int j = 0; j < 8; ++j) {
nuclear@0:             int byte = edid[0x23 + i];
nuclear@0: 
nuclear@0:             if (get_bit(byte, j) && established[i][j].frequency != 0)
nuclear@0:                 info->established[idx++] = established[i][j];
nuclear@0:         }
nuclear@0:     }
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_standard_timings(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     int i;
nuclear@0: 
nuclear@0:     for (i = 0; i < 8; i++) {
nuclear@0:         int first = edid[0x26 + 2 * i];
nuclear@0:         int second = edid[0x27 + 2 * i];
nuclear@0: 
nuclear@0:         if (first != 0x01 && second != 0x01) {
nuclear@0:             int w = 8 * (first + 31);
nuclear@0:             int h = 0;
nuclear@0: 
nuclear@0:             switch (get_bits(second, 6, 7)) {
nuclear@0:             case 0x00:
nuclear@0:                 h = (w / 16) * 10;
nuclear@0:                 break;
nuclear@0:             case 0x01:
nuclear@0:                 h = (w / 4) * 3;
nuclear@0:                 break;
nuclear@0:             case 0x02:
nuclear@0:                 h = (w / 5) * 4;
nuclear@0:                 break;
nuclear@0:             case 0x03:
nuclear@0:                 h = (w / 16) * 9;
nuclear@0:                 break;
nuclear@0:             }
nuclear@0: 
nuclear@0:             info->standard[i].width = w;
nuclear@0:             info->standard[i].height = h;
nuclear@0:             info->standard[i].frequency = get_bits(second, 0, 5) + 60;
nuclear@0:         }
nuclear@0:     }
nuclear@0: 
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static void decode_lf_string(const uint8_t *s, int n_chars, char *result) {
nuclear@0:     int i;
nuclear@0:     for (i = 0; i < n_chars; ++i) {
nuclear@0:         if (s[i] == 0x0a) {
nuclear@0:             *result++ = '\0';
nuclear@0:             break;
nuclear@0:         } else if (s[i] == 0x00) {
nuclear@0:             /* Convert embedded 0's to spaces */
nuclear@0:             *result++ = ' ';
nuclear@0:         } else {
nuclear@0:             *result++ = s[i];
nuclear@0:         }
nuclear@0:     }
nuclear@0: }
nuclear@0: 
nuclear@0: static void decode_display_descriptor(const uint8_t *desc, MonitorInfo *info) {
nuclear@0:     switch (desc[0x03]) {
nuclear@0:     case 0xFC:
nuclear@0:         decode_lf_string(desc + 5, 13, info->dsc_product_name);
nuclear@0:         break;
nuclear@0:     case 0xFF:
nuclear@0:         decode_lf_string(desc + 5, 13, info->dsc_serial_number);
nuclear@0:         break;
nuclear@0:     case 0xFE:
nuclear@0:         decode_lf_string(desc + 5, 13, info->dsc_string);
nuclear@0:         break;
nuclear@0:     case 0xFD:
nuclear@0:         /* Range Limits */
nuclear@0:         break;
nuclear@0:     case 0xFB:
nuclear@0:         /* Color Point */
nuclear@0:         break;
nuclear@0:     case 0xFA:
nuclear@0:         /* Timing Identifications */
nuclear@0:         break;
nuclear@0:     case 0xF9:
nuclear@0:         /* Color Management */
nuclear@0:         break;
nuclear@0:     case 0xF8:
nuclear@0:         /* Timing Codes */
nuclear@0:         break;
nuclear@0:     case 0xF7:
nuclear@0:         /* Established Timings */
nuclear@0:         break;
nuclear@0:     case 0x10:
nuclear@0:         break;
nuclear@0:     }
nuclear@0: }
nuclear@0: 
nuclear@0: static void decode_detailed_timing(const uint8_t *timing, DetailedTiming *detailed) {
nuclear@0:     int bits;
nuclear@0:     StereoType stereo[] = { //
nuclear@0:             NO_STEREO, NO_STEREO, //
nuclear@0:             FIELD_RIGHT, FIELD_LEFT, //
nuclear@0:             TWO_WAY_RIGHT_ON_EVEN, TWO_WAY_LEFT_ON_EVEN, //
nuclear@0:             FOUR_WAY_INTERLEAVED, //
nuclear@0:             SIDE_BY_SIDE //
nuclear@0:             };
nuclear@0: 
nuclear@0:     detailed->pixel_clock = (timing[0x00] | timing[0x01] << 8) * 10000;
nuclear@0:     detailed->h_addr = timing[0x02] | ((timing[0x04] & 0xf0) << 4);
nuclear@0:     detailed->h_blank = timing[0x03] | ((timing[0x04] & 0x0f) << 8);
nuclear@0:     detailed->v_addr = timing[0x05] | ((timing[0x07] & 0xf0) << 4);
nuclear@0:     detailed->v_blank = timing[0x06] | ((timing[0x07] & 0x0f) << 8);
nuclear@0:     detailed->h_front_porch = timing[0x08] | get_bits(timing[0x0b], 6, 7) << 8;
nuclear@0:     detailed->h_sync = timing[0x09] | get_bits(timing[0x0b], 4, 5) << 8;
nuclear@0:     detailed->v_front_porch = get_bits(timing[0x0a], 4, 7) | get_bits(timing[0x0b], 2, 3) << 4;
nuclear@0:     detailed->v_sync = get_bits(timing[0x0a], 0, 3) | get_bits(timing[0x0b], 0, 1) << 4;
nuclear@0:     detailed->width_mm = timing[0x0c] | get_bits(timing[0x0e], 4, 7) << 8;
nuclear@0:     detailed->height_mm = timing[0x0d] | get_bits(timing[0x0e], 0, 3) << 8;
nuclear@0:     detailed->right_border = timing[0x0f];
nuclear@0:     detailed->top_border = timing[0x10];
nuclear@0:     detailed->interlaced = get_bit(timing[0x11], 7);
nuclear@0: 
nuclear@0:     /* Stereo */
nuclear@0:     bits = get_bits(timing[0x11], 5, 6) << 1 | get_bit(timing[0x11], 0);
nuclear@0:     detailed->stereo = stereo[bits];
nuclear@0: 
nuclear@0:     /* Sync */
nuclear@0:     bits = timing[0x11];
nuclear@0: 
nuclear@0:     detailed->digital_sync = get_bit(bits, 4);
nuclear@0:     if (detailed->digital_sync) {
nuclear@0:         detailed->connector.digital.composite = !get_bit(bits, 3);
nuclear@0:         if (detailed->connector.digital.composite) {
nuclear@0:             detailed->connector.digital.serrations = get_bit(bits, 2);
nuclear@0:             detailed->connector.digital.negative_vsync = 0;
nuclear@0:         } else {
nuclear@0:             detailed->connector.digital.serrations = 0;
nuclear@0:             detailed->connector.digital.negative_vsync = !get_bit(bits, 2);
nuclear@0:         }
nuclear@0:         detailed->connector.digital.negative_hsync = !get_bit(bits, 0);
nuclear@0:     } else {
nuclear@0:         detailed->connector.analog.bipolar = get_bit(bits, 3);
nuclear@0:         detailed->connector.analog.serrations = get_bit(bits, 2);
nuclear@0:         detailed->connector.analog.sync_on_green = !get_bit(bits, 1);
nuclear@0:     }
nuclear@0: }
nuclear@0: 
nuclear@0: static bool decode_descriptors(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     int timing_idx = 0;
nuclear@0:     for (int i = 0; i < 4; ++i) {
nuclear@0:         int index = 0x36 + i * 18;
nuclear@0:         if (edid[index + 0] == 0x00 && edid[index + 1] == 0x00) {
nuclear@0:             decode_display_descriptor(edid + index, info);
nuclear@0:         } else {
nuclear@0:             decode_detailed_timing(edid + index, &(info->detailed_timings[timing_idx++]));
nuclear@0:         }
nuclear@0:     }
nuclear@0:     info->n_detailed_timings = timing_idx;
nuclear@0:     return true;
nuclear@0: }
nuclear@0: 
nuclear@0: static void decode_check_sum(const uint8_t *edid, MonitorInfo *info) {
nuclear@0:     uint8_t check = 0;
nuclear@0:     for (int i = 0; i < 128; ++i)
nuclear@0:         check += edid[i];
nuclear@0:     info->checksum = check;
nuclear@0: }
nuclear@0: 
nuclear@0: MonitorInfo * decode_edid(const uint8_t *edid) {
nuclear@0:     MonitorInfo *info = new MonitorInfo();
nuclear@0:     decode_check_sum(edid, info);
nuclear@0:     if (decode_header(edid) && //
nuclear@0:             decode_vendor_and_product_identification(edid, info) && //
nuclear@0:             decode_edid_version(edid, info) && //
nuclear@0:             decode_display_parameters(edid, info) && //
nuclear@0:             decode_color_characteristics(edid, info) && //
nuclear@0:             decode_established_timings(edid, info) && //
nuclear@0:             decode_standard_timings(edid, info) && //
nuclear@0:             decode_descriptors(edid, info)) {
nuclear@0:         return info;
nuclear@0:     } else {
nuclear@0:         delete info;
nuclear@0:         return 0;
nuclear@0:     }
nuclear@0: }
nuclear@0: 
nuclear@0: static uint8_t * get_property(Display *dpy, RROutput output, Atom atom, int *len) {
nuclear@0:     unsigned char *prop;
nuclear@0:     int actual_format;
nuclear@0:     unsigned long nitems, bytes_after;
nuclear@0:     Atom actual_type;
nuclear@0:     uint8_t *result = NULL;
nuclear@0: 
nuclear@0:     XRRGetOutputProperty(dpy, output, atom, 0, 100, False, False,
nuclear@0:     AnyPropertyType, &actual_type, &actual_format, &nitems, &bytes_after, &prop);
nuclear@0: 
nuclear@0:     if (actual_type == XA_INTEGER && actual_format == 8) {
nuclear@0:         result = new uint8_t[nitems];
nuclear@0:         memcpy(result, prop, nitems);
nuclear@0:         if (len)
nuclear@0:             *len = nitems;
nuclear@0:     }
nuclear@0:     XFree(prop);
nuclear@0:     return result;
nuclear@0: }
nuclear@0: 
nuclear@0: MonitorInfo * read_edid_data(Display * disp, RROutput id) {
nuclear@0:     int len;
nuclear@0:     Atom edid_atom = XInternAtom(disp, "EDID", false);
nuclear@0:     uint8_t *edid = get_property(disp, id, edid_atom, &len);
nuclear@0:     if (!edid) {
nuclear@0:         edid_atom = XInternAtom(disp, "EDID_DATA", false);
nuclear@0:         edid = get_property(disp, id, edid_atom, &len);
nuclear@0:     }
nuclear@0: 
nuclear@0:     MonitorInfo * result = 0;
nuclear@0:     if (edid) {
nuclear@0:         if (len % 128 == 0) {
nuclear@0:             result = decode_edid(edid);
nuclear@0:         }
nuclear@0:         delete[] edid;
nuclear@0:     }
nuclear@0: 
nuclear@0:     return result;
nuclear@0: }