BSD 4_4_Lite2 development

Work on file usr/src/contrib/X11R5-lib/lib/X/XcmsProp.c

Synthesized-from: CSRG/cd3/4.4BSD-Lite2

diff --git a/usr/src/contrib/X11R5-lib/lib/X/XcmsProp.c b/usr/src/contrib/X11R5-lib/lib/X/XcmsProp.c
new file mode 100644 (file)
index 0000000..c771d22
--- /dev/null
+++ b/usr/src/contrib/X11R5-lib/lib/X/XcmsProp.c
@@ -0,0 +1,155 @@
+/* $XConsortium: XcmsProp.c,v 1.10 91/07/22 17:22:46 rws Exp $" */
+
+/*
+ *
+ * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
+ *     All Rights Reserved
+ * 
+ * This file is a component of an X Window System-specific implementation
+ * of Xcms based on the TekColor Color Management System.  Permission is
+ * hereby granted to use, copy, modify, sell, and otherwise distribute this
+ * software and its documentation for any purpose and without fee, provided
+ * that this copyright, permission, and disclaimer notice is reproduced in
+ * all copies of this software and in supporting documentation.  TekColor
+ * is a trademark of Tektronix, Inc.
+ * 
+ * Tektronix makes no representation about the suitability of this software
+ * for any purpose.  It is provided "as is" and with all faults.
+ * 
+ * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
+ * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+ * PARTICULAR PURPOSE.  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 THE PERFORMANCE OF THIS SOFTWARE.
+ *
+ *     NAME
+ *             XcmsProp.c
+ *
+ *     DESCRIPTION
+ *             This utility routines for manipulating properties.
+ *
+ */
+
+#include <X11/Xatom.h>
+#include "Xlibint.h"
+#include "Xcmsint.h"
+
+\f
+/************************************************************************
+ *                                                                     *
+ *                     API PRIVATE ROUTINES                            *
+ *                                                                     *
+ ************************************************************************/
+
+\f
+/*
+ *     NAME
+ *             _XcmsGetElement -- get an element value from the property passed
+ *
+ *     SYNOPSIS
+ */
+unsigned long
+_XcmsGetElement (format, pValue, pCount) 
+    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:
+#ifdef WORD64
+       value = ((unsigned long)(((unsigned char *)(*pValue))[0])) << 24 ||
+               ((unsigned long)(((unsigned char *)(*pValue))[1])) << 16 ||
+               ((unsigned long)(((unsigned char *)(*pValue))[2])) << 8 ||
+               ((unsigned long)(((unsigned char *)(*pValue))[0]));
+#else
+       value = *((unsigned long *)(*pValue));
+#endif
+       *pValue += 4;
+       *pCount -= 1;
+       break;
+      case 16:
+#ifdef WORD64
+       value = ((unsigned long)(((unsigned char *)(*pValue))[0])) << 8 ||
+               ((unsigned long)(((unsigned char *)(*pValue))[1]));
+#else
+       value = *((unsigned short *)(*pValue));
+#endif
+       *pValue += 2;
+       *pCount -= 1;
+       break;
+      case 8:
+       value = *((unsigned char *) (*pValue));
+       *pValue += 1;
+       *pCount -= 1;
+       break;
+      default:
+       value = 0;
+       break;
+    }
+    return(value);
+}
+
+\f
+/*
+ *     NAME
+ *             _XcmsGetProperty -- Determine the existance of a property
+ *
+ *     SYNOPSIS
+ */
+int
+_XcmsGetProperty (pDpy, w, property, pFormat, pNItems, pNBytes, pValue) 
+    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);
+}