Edit
IABSD.fr/xenocara/app/xcmsdb/xcmsdb.c
matthieu
- app/xcmsdb/xcmsdb.c
-
/* $Xorg: xcmsdb.c,v 1.3 2000/08/17 19:54:13 cpqbld Exp $ */ /* * (c) Copyright 1990 Tektronix Inc. * All Rights Reserved * * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose and without fee is hereby granted, * 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 Tektronix not be used * in advertising or publicity pertaining to distribution of the software * without specific, written prior permission. * * Tektronix disclaims all warranties with regard to this software, including * all implied warranties of merchantability and fitness, in no event shall * Tektronix 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. * * * NAME * xcmsdb.c * * DESCRIPTION * Program to load, query or remove the Screen Color * Characterization Data from the root window of the screen. * */ /* $XFree86: xc/programs/xcmsdb/xcmsdb.c,v 1.5 2001/01/17 23:45:19 dawes Exp $ */ /* * INCLUDES */ #include <stdio.h> #include <stdlib.h> #include <X11/Xlib.h> #include <X11/Xatom.h> #include <X11/Xos.h> #include <ctype.h> #include "SCCDFile.h" static void QuerySCCDataRGB(Display *dpy, Window root); static void RemoveSCCData(Display *dpy, Window root, int colorFlag); static unsigned long _XcmsGetElement(int format, char **pValue, unsigned long *pCount); static int _XcmsGetProperty(Display *pDpy, Window w, Atom property, int *pFormat, unsigned long *pNItems, unsigned long *pNBytes, char **pValue); static char *ProgramName; static void Syntax (void) { fprintf (stderr, "usage: %s [-options ...] [filename]\n\n", ProgramName); fprintf (stderr, "where options include:\n"); fprintf (stderr, " -display host:dpy[.scrn] display to use\n"); fprintf (stderr, " -format [ 32 | 16 | 8 ] property format\n"); fprintf (stderr, " -query query Screen Color Characterization Data\n"); fprintf (stderr, " -remove remove Screen Color Characterization Data\n"); #ifdef GRAY fprintf (stderr, " -color use color as default\n"); fprintf (stderr, " -gray use gray-scale as default\n"); #endif /* GRAY */ fprintf (stderr, "\n"); exit (1); } static Bool optionmatch(char *opt, char *arg, int minlen) { int arglen; if (strcmp(opt, arg) == 0) { return(True); } if ((arglen = strlen(arg)) >= (int)strlen(opt) || arglen < minlen) { return(False); } if (strncmp (opt, arg, arglen) == 0) { return(True); } return(False); } int main(int argc, char *argv[]) { Display *dpy; int i; char *displayname = NULL; char *filename = NULL; int query = 0; int remove = 0; int load = 0; int color = -1; int targetFormat = 32; ProgramName = argv[0]; for (i = 1; i < argc; i++) { char *arg = argv[i]; if (arg[0] == '-') { if (arg[1] == '\0') { filename = NULL; continue; } else if (optionmatch ("-help", arg, 1)) { Syntax (); /* doesn't return */ } else if (optionmatch ("-display", arg, 1)) { if (++i >= argc) Syntax (); displayname = argv[i]; continue; } else if (optionmatch ("-format", arg, 1)) { if (++i >= argc) Syntax (); targetFormat = atoi(argv[i]); if (targetFormat != 32 && targetFormat != 16 && targetFormat != 8) Syntax(); continue; } else if (optionmatch ("-query", arg, 1)) { query = 1; continue; } else if (optionmatch ("-remove", arg, 1)) { remove = 1; continue; #ifdef GRAY } else if (optionmatch ("-color", arg, 1)) { color = 1; continue; } else if (optionmatch ("-gray", arg, 1)) { color = 0; continue; #endif /* GRAY */ } Syntax (); } else { load = 1; filename = arg; } } /* Open display */ if (!(dpy = XOpenDisplay (displayname))) { fprintf (stderr, "%s: Can't open display '%s'\n", ProgramName, XDisplayName(displayname)); exit (1); } if (query || remove) { load = 0; } if (load) { LoadSCCData(dpy, DefaultScreen(dpy), filename, targetFormat); } if (query) { if (color != 0) QuerySCCDataRGB(dpy, RootWindow(dpy, DefaultScreen(dpy))); #ifdef GRAY if (color != 1) QuerySCCDataGray(dpy, RootWindow(dpy, DefaultScreen(dpy))); #endif /* GRAY */ } if (remove) { RemoveSCCData(dpy, RootWindow(dpy, DefaultScreen(dpy)), color); } XCloseDisplay(dpy); exit (0); /*NOTREACHED*/ } static Atom ParseAtom(Display *dpy, char *name, int only_flag) { return(XInternAtom(dpy, name, only_flag)); } /* * NAME * PrintTableType0 * * SYNOPSIS */ static void PrintTableType0(int format, char **pChar, unsigned long *pCount) /* * DESCRIPTION * * RETURNS * XcmsFailure if failed. * XcmsSuccess if succeeded. * */ { unsigned int nElements; unsigned short hValue; XcmsFloat fValue; nElements = _XcmsGetElement(format, pChar, pCount) + 1; printf ("\t length:%d\n", nElements); switch (format) { case 8: while (nElements--) { /* 0xFFFF/0xFF = 0x101 */ hValue = _XcmsGetElement (format, pChar, pCount) * 0x101; fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; case 16: while (nElements--) { hValue = _XcmsGetElement (format, pChar, pCount); fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)65535.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; case 32: while (nElements--) { hValue = _XcmsGetElement (format, pChar, pCount); fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)4294967295.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; default: return; } } /* * NAME * PrintTableType1 * * SYNOPSIS */ static void PrintTableType1(int format, char **pChar, unsigned long *pCount) /* * DESCRIPTION * * RETURNS * XcmsFailure if failed. * XcmsSuccess if succeeded. * */ { int count; unsigned int max_index; unsigned short hValue; XcmsFloat fValue; max_index = _XcmsGetElement(format, pChar, pCount); printf ("\t length:%d\n", max_index + 1); switch (format) { case 8: for (count = 0; count < max_index+1; count++) { hValue = (count * 65535) / max_index; fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; case 16: for (count = 0; count < max_index+1; count++) { hValue = (count * 65535) / max_index; fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)65535.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; case 32: for (count = 0; count < max_index+1; count++) { hValue = (count * 65535) / max_index; fValue = _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)4294967295.0; printf ("\t\t0x%x\t%8.5f\n", hValue, fValue); } break; default: return; } } /* * NAME * QuerySCCData - Query for the SCC data on the root window * * SYNOPSIS */ static void QuerySCCDataRGB(Display *dpy, Window root) /* * DESCRIPTION * * RETURNS * None */ { char *property_return, *pChar; int i, j; int count, format, cType, nTables; unsigned long nitems, nbytes_return; Atom MatricesAtom, CorrectAtom; VisualID visualID; XVisualInfo vinfo_template, *vinfo_ret; int nvis; static char *visual_strings[] = { "StaticGray", "GrayScale", "StaticColor", "PseudoColor", "TrueColor", "DirectColor" }; /* * Get Matrices */ MatricesAtom = ParseAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True); if (MatricesAtom != None) { if (_XcmsGetProperty (dpy, root, MatricesAtom, &format, &nitems, &nbytes_return, &property_return) == XcmsFailure) { format = 0; } else if (nitems != 18) { printf ("Property %s had invalid length of %ld\n", XDCCC_MATRIX_ATOM_NAME, nitems); if (property_return) { XFree (property_return); } return; } } if (MatricesAtom == None || !format) { printf ("Could not find property %s\n", XDCCC_MATRIX_ATOM_NAME); } else if (format != 32) { printf ("Data in property %s not in 32 bit format\n", XDCCC_MATRIX_ATOM_NAME); } else { pChar = property_return; printf ("Screen: %d\n", DefaultScreen(dpy)); printf ("Querying property %s\n", XDCCC_MATRIX_ATOM_NAME); printf ("\tXYZtoRGB matrix :\n"); for (i = 0; i < 3; i++) { printf ("\t"); for (j = 0; j < 3; j++) { printf ("\t%8.5f", (long)_XcmsGetElement(format, &pChar, &nitems) / (XcmsFloat) XDCCC_NUMBER); } printf ("\n"); } printf ("\tRGBtoXYZ matrix :\n"); for (i = 0; i < 3; i++) { printf ("\t"); for (j = 0; j < 3; j++) { printf ("\t%8.5f", (long) _XcmsGetElement(format, &pChar, &nitems) / (XcmsFloat) XDCCC_NUMBER); } printf ("\n"); } XFree (property_return); } /* * Get Intensity Tables */ CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True); if (CorrectAtom != None) { if (_XcmsGetProperty (dpy, root, CorrectAtom, &format, &nitems, &nbytes_return, &property_return) == XcmsFailure) { format = 0; } else if (nitems <= 0) { printf ("Property %s had invalid length of %ld\n", XDCCC_CORRECT_ATOM_NAME, nitems); if (property_return) { XFree (property_return); } return; } } if (CorrectAtom == None || !format) { printf ("Could not find property %s\n", XDCCC_CORRECT_ATOM_NAME); } else { printf ("\nQuerying property %s\n", XDCCC_CORRECT_ATOM_NAME); pChar = property_return; while (nitems) { switch (format) { case 8: /* * Must have at least: * VisualID0 * VisualID1 * VisualID2 * VisualID3 * type * count * length * intensity1 * intensity2 */ if (nitems < 9) { goto IntensityTblError; } count = 3; break; case 16: /* * Must have at least: * VisualID0 * VisualID3 * type * count * length * intensity1 * intensity2 */ if (nitems < 7) { goto IntensityTblError; } count = 1; break; case 32: /* * Must have at least: * VisualID0 * type * count * length * intensity1 * intensity2 */ if (nitems < 6) { goto IntensityTblError; } count = 0; break; default: goto IntensityTblError; } /* * Get VisualID */ visualID = _XcmsGetElement(format, &pChar, &nitems); /* add the depth, class, and bits info in output */ vinfo_template.visualid = visualID; vinfo_ret = XGetVisualInfo(dpy, VisualIDMask, &vinfo_template, &nvis); while (count--) { visualID = visualID << format; visualID |= _XcmsGetElement(format, &pChar, &nitems); } if (vinfo_ret != NULL) { printf ("\n\tVisualID: 0x%lx class: %s depth: %d bits_per_rgb: %d\n", visualID, visual_strings[vinfo_ret->class], vinfo_ret->depth, vinfo_ret->bits_per_rgb); } else printf ("\n\tVisualID: 0x%lx\n", visualID); XFree(vinfo_ret); cType = _XcmsGetElement(format, &pChar, &nitems); printf ("\ttype: %d\n", cType); nTables = _XcmsGetElement(format, &pChar, &nitems); printf ("\tcount: %d\n", nTables); switch (cType) { case 0: /* Red Table should always exist */ printf ("\tRed Conversion Table:\n"); PrintTableType0(format, &pChar, &nitems); if (nTables > 1) { printf ("\tGreen Conversion Table:\n"); PrintTableType0(format, &pChar, &nitems); printf ("\tBlue Conversion Table:\n"); PrintTableType0(format, &pChar, &nitems); } break; case 1: /* Red Table should always exist */ printf ("\tRed Conversion Table:\n"); PrintTableType1(format, &pChar, &nitems); if (nTables > 1) { printf ("\tGreen Conversion Table:\n"); PrintTableType1(format, &pChar, &nitems); printf ("\tBlue Conversion Table:\n"); PrintTableType1(format, &pChar, &nitems); } break; default: goto IntensityTblError; } } XFree (property_return); } return; IntensityTblError: XFree (property_return); printf("Fatal error in %s property\n", XDCCC_CORRECT_ATOM_NAME); } #ifdef GRAY /* * NAME * QuerySCCDataGray - Query for the SCC data on the root window * * SYNOPSIS */ int QuerySCCDataGray(Display *dpy, Window root) /* * DESCRIPTION * * RETURNS * None */ { char *property_return, *pChar; int j; int count, format, cType; unsigned long nitems, nbytes_return; Atom MatricesAtom, CorrectAtom; VisualID visualID; MatricesAtom = ParseAtom (dpy, XDCCC_SCREENWHITEPT_ATOM_NAME, True); if (MatricesAtom != None) { if (_XcmsGetProperty (dpy, root, MatricesAtom, &format, &nitems, &nbytes_return, &property_return) == XcmsFailure) { format = 0; } else if (nitems != 3) { printf ("Property %s had invalid length of %d\n", XDCCC_SCREENWHITEPT_ATOM_NAME, nitems); if (property_return) { XFree (property_return); } return; } } if (MatricesAtom == None || !format) { printf ("Could not find property %s\n", XDCCC_SCREENWHITEPT_ATOM_NAME); } else { pChar = property_return; printf ("\nQuerying property %s\n", XDCCC_SCREENWHITEPT_ATOM_NAME); printf ("\tWhite Point XYZ :\n"); printf ("\t"); for (j = 0; j < 3; j++) { printf ("\t%8.5lf", (long) _XcmsGetElement(format, &pChar, &nitems) / (XcmsFloat) XDCCC_NUMBER); } printf ("\n"); XFree (property_return); } CorrectAtom = XInternAtom (dpy, XDCCC_GRAY_CORRECT_ATOM_NAME, True); if (CorrectAtom != None) { if (_XcmsGetProperty (dpy, root, CorrectAtom, &format, &nitems, &nbytes_return, &property_return) == XcmsFailure) { format = 0; } else if (nitems <= 0) { printf ("Property %s had invalid length of %d\n", XDCCC_GRAY_CORRECT_ATOM_NAME, nitems); if (property_return) { XFree (property_return); } return; } } if (CorrectAtom == None || !format) { printf ("Could not find property %s\n", XDCCC_GRAY_CORRECT_ATOM_NAME); } else { printf ("\nQuerying property %s\n\n", XDCCC_GRAY_CORRECT_ATOM_NAME); pChar = property_return; while (nitems) { switch (format) { case 8: /* * Must have at least: * VisualID0 * VisualID1 * VisualID2 * VisualID3 * type * count * length * intensity1 * intensity2 */ if (nitems < 9) { goto IntensityTblError; } count = 3; break; case 16: /* * Must have at least: * VisualID0 * VisualID3 * type * count * length * intensity1 * intensity2 */ if (nitems < 7) { goto IntensityTblError; } count = 1; break; case 32: /* * Must have at least: * VisualID0 * type * count * length * intensity1 * intensity2 */ if (nitems < 6) { goto IntensityTblError; } count = 0; break; default: goto IntensityTblError; break; } /* * Get VisualID */ visualID = _XcmsGetElement(format, &pChar, &nitems); while (count--) { visualID = visualID << format; visualID |= _XcmsGetElement(format, &pChar, &nitems); } printf ("\n\tVisualID: 0x%lx\n", visualID); cType = _XcmsGetElement(format, &pChar, &nitems); printf ("\ttype: %d\n", cType); printf ("\tGray Conversion Table:\n"); switch (cType) { case 0: PrintTableType0(format, &pChar, &nitems); break; case 1: PrintTableType1(format, &pChar, &nitems); break; default: goto IntensityTblError; } } XFree (property_return); } return; IntensityTblError: XFree (property_return); printf("Fatal error in %s property\n", XDCCC_CORRECT_ATOM_NAME); } #endif /* GRAY */ /* * NAME * RemoveSCCData - Remove for the SCC data on the root window * * SYNOPSIS */ static void RemoveSCCData(Display *dpy, Window root, int colorFlag) /* * DESCRIPTION * * RETURNS * None */ { unsigned char *ret_prop; unsigned long ret_len, ret_after; int ret_format; Atom MatricesAtom, CorrectAtom, ret_atom; if (colorFlag != 0) { MatricesAtom = ParseAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True); if (MatricesAtom != None) { XGetWindowProperty (dpy, root, MatricesAtom, 0, 8192, False, XA_INTEGER, &ret_atom, &ret_format, &ret_len, &ret_after, &ret_prop); } if (MatricesAtom == None || !ret_format) { printf ("Could not find property %s\n", XDCCC_MATRIX_ATOM_NAME); } else { printf ("Deleting property %s\n", XDCCC_MATRIX_ATOM_NAME); XDeleteProperty (dpy, root, MatricesAtom); XFree ((char *)ret_prop); } CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True); if (CorrectAtom != None) { XGetWindowProperty (dpy, root, CorrectAtom, 0, 8192, False, XA_INTEGER, &ret_atom, &ret_format, &ret_len, &ret_after, &ret_prop); } if (CorrectAtom == None || !ret_format) { printf ("Could not find property %s\n", XDCCC_CORRECT_ATOM_NAME); } else { printf ("Deleting property %s\n", XDCCC_CORRECT_ATOM_NAME); XDeleteProperty (dpy, root, CorrectAtom); XFree ((char *)ret_prop); } } #ifdef GRAY if (colorFlag != 1) { MatricesAtom = ParseAtom (dpy, XDCCC_SCREENWHITEPT_ATOM_NAME, True); if (MatricesAtom != None) { XGetWindowProperty (dpy, root, MatricesAtom, 0, 8192, False, XA_INTEGER, &ret_atom, &ret_format, &ret_len, &ret_after, &ret_prop); } if (MatricesAtom == None || !ret_format) { printf ("Could not find property %s\n", XDCCC_SCREENWHITEPT_ATOM_NAME); } else { printf ("Deleting property %s\n", XDCCC_SCREENWHITEPT_ATOM_NAME); XDeleteProperty (dpy, root, MatricesAtom); XFree ((char *)ret_prop); } CorrectAtom = XInternAtom (dpy, XDCCC_GRAY_CORRECT_ATOM_NAME, True); if (CorrectAtom != None) { XGetWindowProperty (dpy, root, CorrectAtom, 0, 8192, False, XA_INTEGER, &ret_atom, &ret_format, &ret_len, &ret_after, &ret_prop); } if (CorrectAtom == None || !ret_format) { printf ("Could not find property %s\n", XDCCC_GRAY_CORRECT_ATOM_NAME); } else { printf ("Deleting property %s\n", XDCCC_GRAY_CORRECT_ATOM_NAME); XDeleteProperty (dpy, root, CorrectAtom); XFree ((char *)ret_prop); } } #endif /* GRAY */ } static unsigned long _XcmsGetElement(int format, char **pValue, unsigned long *pCount) /* * DESCRIPTION * Get the next element from the property and return it. * Also increment the pointer the amount needed. * * Returns * unsigned long */ { unsigned long value; switch (format) { case 32: value = *((unsigned long *)(*pValue)) & 0xFFFFFFFF; *pValue += sizeof(unsigned long); *pCount -= 1; break; case 16: value = *((unsigned short *)(*pValue)); *pValue += sizeof(unsigned short); *pCount -= 1; break; case 8: value = *((unsigned char *) (*pValue)); *pValue += 1; *pCount -= 1; break; default: value = 0; break; } return(value); } /* * NAME * _XcmsGetProperty -- Determine the existance of a property * * SYNOPSIS */ static int _XcmsGetProperty(Display *pDpy, Window w, Atom property, int *pFormat, unsigned long *pNItems, unsigned long *pNBytes, char **pValue) /* * DESCRIPTION * * Returns * 0 if property does not exist. * 1 if property exists. */ { char *prop_ret; int format_ret; long len = 6516; unsigned long nitems_ret, after_ret; Atom atom_ret; while (XGetWindowProperty (pDpy, w, property, 0, len, False, XA_INTEGER, &atom_ret, &format_ret, &nitems_ret, &after_ret, (unsigned char **)&prop_ret)) { if (after_ret > 0) { len += nitems_ret * (format_ret >> 3); XFree (prop_ret); } else { break; } } if (format_ret == 0 || nitems_ret == 0) { /* the property does not exist or is of an unexpected type */ return(XcmsFailure); } *pFormat = format_ret; *pNItems = nitems_ret; *pNBytes = nitems_ret * (format_ret >> 3); *pValue = prop_ret; return(XcmsSuccess); }