diff options
Diffstat (limited to 'src/core/xprops.c')
| -rw-r--r-- | src/core/xprops.c | 1238 |
1 files changed, 0 insertions, 1238 deletions
diff --git a/src/core/xprops.c b/src/core/xprops.c deleted file mode 100644 index a39c7b4f..00000000 --- a/src/core/xprops.c +++ /dev/null @@ -1,1238 +0,0 @@ -/* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*- */ - -/* Metacity X property convenience routines */ - -/* - * Copyright (C) 2001 Havoc Pennington - * Copyright (C) 2002 Red Hat Inc. - * - * Some trivial property-unpacking code from Xlib: - * Copyright 1987, 1988, 1998 The Open Group - * Copyright 1988 by Wyse Technology, Inc., San Jose, Ca, - * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License as - * published by the Free Software Foundation; either version 2 of the - * License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA - * 02111-1307, USA. - */ - -/*********************************************************** -Copyright 1988 by Wyse Technology, Inc., San Jose, Ca, -Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts, - - 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 Digital not be -used in advertising or publicity pertaining to distribution of the -software without specific, written prior permission. - -DIGITAL AND WYSE DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, -INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO -EVENT SHALL DIGITAL OR WYSE 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. - -******************************************************************/ - -/* - -Copyright 1987, 1988, 1998 The Open Group - -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. - -The above copyright notice and this permission notice shall be included -in all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. - -Except as contained in this notice, the name of The Open Group shall -not be used in advertising or otherwise to promote the sale, use or -other dealings in this Software without prior written authorization -from The Open Group. - -*/ - - -#include <config.h> -#include "xprops.h" -#include "errors.h" -#include "util.h" -#include "async-getprop.h" -#include "ui.h" -#include "metacity-Xatomtype.h" -#include <X11/Xatom.h> -#include <string.h> -#include "window-private.h" - -typedef struct -{ - MetaDisplay *display; - Window xwindow; - Atom xatom; - Atom type; - int format; - unsigned long n_items; - unsigned long bytes_after; - unsigned char *prop; -} GetPropertyResults; - -static gboolean -validate_or_free_results (GetPropertyResults *results, - int expected_format, - Atom expected_type, - gboolean must_have_items) -{ - char *type_name; - char *expected_name; - char *prop_name; - const char *title; - const char *res_class; - const char *res_name; - MetaWindow *w; - - if (expected_format == results->format && - expected_type == results->type && - (!must_have_items || results->n_items > 0)) - return TRUE; - - meta_error_trap_push (results->display); - type_name = XGetAtomName (results->display->xdisplay, results->type); - expected_name = XGetAtomName (results->display->xdisplay, expected_type); - prop_name = XGetAtomName (results->display->xdisplay, results->xatom); - meta_error_trap_pop (results->display, TRUE); - - w = meta_display_lookup_x_window (results->display, results->xwindow); - - if (w != NULL) - { - title = w->title; - res_class = w->res_class; - res_name = w->res_name; - } - else - { - title = NULL; - res_class = NULL; - res_name = NULL; - } - - if (title == NULL) - title = "unknown"; - - if (res_class == NULL) - res_class = "unknown"; - - if (res_name == NULL) - res_name = "unknown"; - - meta_warning (_("Window 0x%lx has property %s\nthat was expected to have type %s format %d\nand actually has type %s format %d n_items %d.\nThis is most likely an application bug, not a window manager bug.\nThe window has title=\"%s\" class=\"%s\" name=\"%s\"\n"), - results->xwindow, - prop_name ? prop_name : "(bad atom)", - expected_name ? expected_name : "(bad atom)", - expected_format, - type_name ? type_name : "(bad atom)", - results->format, (int) results->n_items, - title, res_class, res_name); - - if (type_name) - XFree (type_name); - if (expected_name) - XFree (expected_name); - if (prop_name) - XFree (prop_name); - - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - - return FALSE; -} - -static gboolean -get_property (MetaDisplay *display, - Window xwindow, - Atom xatom, - Atom req_type, - GetPropertyResults *results) -{ - results->display = display; - results->xwindow = xwindow; - results->xatom = xatom; - results->prop = NULL; - results->n_items = 0; - results->type = None; - results->bytes_after = 0; - results->format = 0; - - meta_error_trap_push_with_return (display); - if (XGetWindowProperty (display->xdisplay, xwindow, xatom, - 0, G_MAXLONG, - False, req_type, &results->type, &results->format, - &results->n_items, - &results->bytes_after, - &results->prop) != Success || - results->type == None) - { - if (results->prop) - XFree (results->prop); - meta_error_trap_pop_with_return (display, TRUE); - return FALSE; - } - - if (meta_error_trap_pop_with_return (display, TRUE) != Success) - { - if (results->prop) - XFree (results->prop); - return FALSE; - } - - return TRUE; -} - -static gboolean -atom_list_from_results (GetPropertyResults *results, - Atom **atoms_p, - int *n_atoms_p) -{ - if (!validate_or_free_results (results, 32, XA_ATOM, FALSE)) - return FALSE; - - *atoms_p = (Atom*) results->prop; - *n_atoms_p = results->n_items; - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_atom_list (MetaDisplay *display, - Window xwindow, - Atom xatom, - Atom **atoms_p, - int *n_atoms_p) -{ - GetPropertyResults results; - - *atoms_p = NULL; - *n_atoms_p = 0; - - if (!get_property (display, xwindow, xatom, XA_ATOM, - &results)) - return FALSE; - - return atom_list_from_results (&results, atoms_p, n_atoms_p); -} - -static gboolean -cardinal_list_from_results (GetPropertyResults *results, - gulong **cardinals_p, - int *n_cardinals_p) -{ - if (!validate_or_free_results (results, 32, XA_CARDINAL, FALSE)) - return FALSE; - - *cardinals_p = (gulong*) results->prop; - *n_cardinals_p = results->n_items; - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_cardinal_list (MetaDisplay *display, - Window xwindow, - Atom xatom, - gulong **cardinals_p, - int *n_cardinals_p) -{ - GetPropertyResults results; - - *cardinals_p = NULL; - *n_cardinals_p = 0; - - if (!get_property (display, xwindow, xatom, XA_CARDINAL, - &results)) - return FALSE; - - return cardinal_list_from_results (&results, cardinals_p, n_cardinals_p); -} - -static gboolean -motif_hints_from_results (GetPropertyResults *results, - MotifWmHints **hints_p) -{ - int real_size, max_size; -#define MAX_ITEMS sizeof (MotifWmHints)/sizeof (gulong) - - *hints_p = NULL; - - if (results->type == None || results->n_items <= 0) - { - meta_verbose ("Motif hints had unexpected type or n_items\n"); - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - return FALSE; - } - - /* The issue here is that some old crufty code will set a smaller - * MotifWmHints than the one we expect, apparently. I'm not sure of - * the history behind it. See bug #89841 for example. - */ - *hints_p = ag_Xmalloc (sizeof (MotifWmHints)); - if (*hints_p == NULL) - { - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - return FALSE; - } - real_size = results->n_items * sizeof (gulong); - max_size = MAX_ITEMS * sizeof (gulong); - memcpy (*hints_p, results->prop, MIN (real_size, max_size)); - - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - - return TRUE; -} - -gboolean -meta_prop_get_motif_hints (MetaDisplay *display, - Window xwindow, - Atom xatom, - MotifWmHints **hints_p) -{ - GetPropertyResults results; - - *hints_p = NULL; - - if (!get_property (display, xwindow, xatom, AnyPropertyType, - &results)) - return FALSE; - - return motif_hints_from_results (&results, hints_p); -} - -static gboolean -latin1_string_from_results (GetPropertyResults *results, - char **str_p) -{ - *str_p = NULL; - - if (!validate_or_free_results (results, 8, XA_STRING, FALSE)) - return FALSE; - - *str_p = (char*) results->prop; - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_latin1_string (MetaDisplay *display, - Window xwindow, - Atom xatom, - char **str_p) -{ - GetPropertyResults results; - - *str_p = NULL; - - if (!get_property (display, xwindow, xatom, XA_STRING, - &results)) - return FALSE; - - return latin1_string_from_results (&results, str_p); -} - -static gboolean -utf8_string_from_results (GetPropertyResults *results, - char **str_p) -{ - *str_p = NULL; - - if (!validate_or_free_results (results, 8, - results->display->atom_UTF8_STRING, FALSE)) - return FALSE; - - if (results->n_items > 0 && - !g_utf8_validate ((gchar *)results->prop, results->n_items, NULL)) - { - char *name; - - name = XGetAtomName (results->display->xdisplay, results->xatom); - meta_warning (_("Property %s on window 0x%lx contained invalid UTF-8\n"), - name, results->xwindow); - meta_XFree (name); - XFree (results->prop); - results->prop = NULL; - - return FALSE; - } - - *str_p = (char*) results->prop; - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_utf8_string (MetaDisplay *display, - Window xwindow, - Atom xatom, - char **str_p) -{ - GetPropertyResults results; - - *str_p = NULL; - - if (!get_property (display, xwindow, xatom, - display->atom_UTF8_STRING, - &results)) - return FALSE; - - return utf8_string_from_results (&results, str_p); -} - -/* this one freakishly returns g_malloc memory */ -static gboolean -utf8_list_from_results (GetPropertyResults *results, - char ***str_p, - int *n_str_p) -{ - int i; - int n_strings; - char **retval; - const char *p; - - *str_p = NULL; - *n_str_p = 0; - - if (!validate_or_free_results (results, 8, - results->display->atom_UTF8_STRING, FALSE)) - return FALSE; - - /* I'm not sure this is right, but I'm guessing the - * property is nul-separated - */ - i = 0; - n_strings = 0; - while (i < (int) results->n_items) - { - if (results->prop[i] == '\0') - ++n_strings; - ++i; - } - - if (results->prop[results->n_items - 1] != '\0') - ++n_strings; - - /* we're guaranteed that results->prop has a nul on the end - * by XGetWindowProperty - */ - - retval = g_new0 (char*, n_strings + 1); - - p = (char *)results->prop; - i = 0; - while (i < n_strings) - { - if (!g_utf8_validate (p, -1, NULL)) - { - char *name; - - meta_error_trap_push (results->display); - name = XGetAtomName (results->display->xdisplay, results->xatom); - meta_error_trap_pop (results->display, TRUE); - meta_warning (_("Property %s on window 0x%lx contained invalid UTF-8 for item %d in the list\n"), - name, results->xwindow, i); - meta_XFree (name); - meta_XFree (results->prop); - results->prop = NULL; - - g_strfreev (retval); - return FALSE; - } - - retval[i] = g_strdup (p); - - p = p + strlen (p) + 1; - ++i; - } - - *str_p = retval; - *n_str_p = i; - - meta_XFree (results->prop); - results->prop = NULL; - - return TRUE; -} - -/* returns g_malloc not Xmalloc memory */ -gboolean -meta_prop_get_utf8_list (MetaDisplay *display, - Window xwindow, - Atom xatom, - char ***str_p, - int *n_str_p) -{ - GetPropertyResults results; - - *str_p = NULL; - - if (!get_property (display, xwindow, xatom, - display->atom_UTF8_STRING, - &results)) - return FALSE; - - return utf8_list_from_results (&results, str_p, n_str_p); -} - -void -meta_prop_set_utf8_string_hint (MetaDisplay *display, - Window xwindow, - Atom atom, - const char *val) -{ - meta_error_trap_push (display); - XChangeProperty (display->xdisplay, - xwindow, atom, - display->atom_UTF8_STRING, - 8, PropModeReplace, (guchar*) val, strlen (val)); - meta_error_trap_pop (display, FALSE); -} - -static gboolean -window_from_results (GetPropertyResults *results, - Window *window_p) -{ - if (!validate_or_free_results (results, 32, XA_WINDOW, TRUE)) - return FALSE; - - *window_p = *(Window*) results->prop; - XFree (results->prop); - results->prop = NULL; - - return TRUE; -} - -#ifdef HAVE_XSYNC -static gboolean -counter_from_results (GetPropertyResults *results, - XSyncCounter *counter_p) -{ - if (!validate_or_free_results (results, 32, - XA_CARDINAL, - TRUE)) - return FALSE; - - *counter_p = *(XSyncCounter*) results->prop; - XFree (results->prop); - results->prop = NULL; - - return TRUE; -} -#endif - -gboolean -meta_prop_get_window (MetaDisplay *display, - Window xwindow, - Atom xatom, - Window *window_p) -{ - GetPropertyResults results; - - *window_p = None; - - if (!get_property (display, xwindow, xatom, XA_WINDOW, - &results)) - return FALSE; - - return window_from_results (&results, window_p); -} - -gboolean -meta_prop_get_cardinal (MetaDisplay *display, - Window xwindow, - Atom xatom, - gulong *cardinal_p) -{ - return meta_prop_get_cardinal_with_atom_type (display, xwindow, xatom, - XA_CARDINAL, cardinal_p); -} - -static gboolean -cardinal_with_atom_type_from_results (GetPropertyResults *results, - Atom prop_type, - gulong *cardinal_p) -{ - if (!validate_or_free_results (results, 32, prop_type, TRUE)) - return FALSE; - - *cardinal_p = *(gulong*) results->prop; - XFree (results->prop); - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_cardinal_with_atom_type (MetaDisplay *display, - Window xwindow, - Atom xatom, - Atom prop_type, - gulong *cardinal_p) -{ - GetPropertyResults results; - - *cardinal_p = 0; - - if (!get_property (display, xwindow, xatom, prop_type, - &results)) - return FALSE; - - return cardinal_with_atom_type_from_results (&results, prop_type, cardinal_p); -} - -static gboolean -text_property_from_results (GetPropertyResults *results, - char **utf8_str_p) -{ - XTextProperty tp; - - *utf8_str_p = NULL; - - tp.value = results->prop; - results->prop = NULL; - tp.encoding = results->type; - tp.format = results->format; - tp.nitems = results->n_items; - - *utf8_str_p = meta_text_property_to_utf8 (results->display->xdisplay, - &tp); - - if (tp.value != NULL) - XFree (tp.value); - - return *utf8_str_p != NULL; -} - -gboolean -meta_prop_get_text_property (MetaDisplay *display, - Window xwindow, - Atom xatom, - char **utf8_str_p) -{ - GetPropertyResults results; - - if (!get_property (display, xwindow, xatom, AnyPropertyType, - &results)) - return FALSE; - - return text_property_from_results (&results, utf8_str_p); -} - -/* From Xmd.h */ -#ifndef cvtINT32toInt -#if SIZEOF_VOID_P == 8 -#define cvtINT8toInt(val) ((((unsigned int)val) & 0x00000080) ? (((unsigned int)val) | 0xffffffffffffff00) : ((unsigned int)val)) -#define cvtINT16toInt(val) ((((unsigned int)val) & 0x00008000) ? (((unsigned int)val) | 0xffffffffffff0000) : ((unsigned int)val)) -#define cvtINT32toInt(val) ((((unsigned int)val) & 0x80000000) ? (((unsigned int)val) | 0xffffffff00000000) : ((unsigned int)val)) -#define cvtINT8toShort(val) cvtINT8toInt(val) -#define cvtINT16toShort(val) cvtINT16toInt(val) -#define cvtINT32toShort(val) cvtINT32toInt(val) -#define cvtINT8toLong(val) cvtINT8toInt(val) -#define cvtINT16toLong(val) cvtINT16toInt(val) -#define cvtINT32toLong(val) cvtINT32toInt(val) -#else -#define cvtINT8toInt(val) (val) -#define cvtINT16toInt(val) (val) -#define cvtINT32toInt(val) (val) -#define cvtINT8toShort(val) (val) -#define cvtINT16toShort(val) (val) -#define cvtINT32toShort(val) (val) -#define cvtINT8toLong(val) (val) -#define cvtINT16toLong(val) (val) -#define cvtINT32toLong(val) (val) -#endif /* SIZEOF_VOID_P == 8 */ -#endif /* cvtINT32toInt() */ - -static gboolean -wm_hints_from_results (GetPropertyResults *results, - XWMHints **hints_p) -{ - XWMHints *hints; - xPropWMHints *raw; - - *hints_p = NULL; - - if (!validate_or_free_results (results, 32, XA_WM_HINTS, TRUE)) - return FALSE; - - /* pre-R3 bogusly truncated window_group, don't fail on them */ - if (results->n_items < (NumPropWMHintsElements - 1)) - { - meta_verbose ("WM_HINTS property too short: %d should be %d\n", - (int) results->n_items, NumPropWMHintsElements - 1); - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - return FALSE; - } - - hints = ag_Xmalloc0 (sizeof (XWMHints)); - - raw = (xPropWMHints*) results->prop; - - hints->flags = raw->flags; - hints->input = (raw->input ? True : False); - hints->initial_state = cvtINT32toInt (raw->initialState); - hints->icon_pixmap = raw->iconPixmap; - hints->icon_window = raw->iconWindow; - hints->icon_x = cvtINT32toInt (raw->iconX); - hints->icon_y = cvtINT32toInt (raw->iconY); - hints->icon_mask = raw->iconMask; - if (results->n_items >= NumPropWMHintsElements) - hints->window_group = raw->windowGroup; - else - hints->window_group = 0; - - if (results->prop) - { - XFree (results->prop); - results->prop = NULL; - } - - *hints_p = hints; - - return TRUE; -} - -gboolean -meta_prop_get_wm_hints (MetaDisplay *display, - Window xwindow, - Atom xatom, - XWMHints **hints_p) -{ - GetPropertyResults results; - - *hints_p = NULL; - - if (!get_property (display, xwindow, xatom, XA_WM_HINTS, - &results)) - return FALSE; - - return wm_hints_from_results (&results, hints_p); -} - -static gboolean -class_hint_from_results (GetPropertyResults *results, - XClassHint *class_hint) -{ - int len_name, len_class; - - class_hint->res_class = NULL; - class_hint->res_name = NULL; - - if (!validate_or_free_results (results, 8, XA_STRING, FALSE)) - return FALSE; - - len_name = strlen ((char *) results->prop); - if (! (class_hint->res_name = ag_Xmalloc (len_name+1))) - { - XFree (results->prop); - results->prop = NULL; - return FALSE; - } - - strcpy (class_hint->res_name, (char *)results->prop); - - if (len_name == (int) results->n_items) - len_name--; - - len_class = strlen ((char *)results->prop + len_name + 1); - - if (! (class_hint->res_class = ag_Xmalloc(len_class+1))) - { - XFree(class_hint->res_name); - class_hint->res_name = NULL; - XFree (results->prop); - results->prop = NULL; - return FALSE; - } - - strcpy (class_hint->res_class, (char *)results->prop + len_name + 1); - - XFree (results->prop); - results->prop = NULL; - - return TRUE; -} - -gboolean -meta_prop_get_class_hint (MetaDisplay *display, - Window xwindow, - Atom xatom, - XClassHint *class_hint) -{ - GetPropertyResults results; - - class_hint->res_class = NULL; - class_hint->res_name = NULL; - - if (!get_property (display, xwindow, xatom, XA_STRING, - &results)) - return FALSE; - - return class_hint_from_results (&results, class_hint); -} - -static gboolean -size_hints_from_results (GetPropertyResults *results, - XSizeHints **hints_p, - gulong *flags_p) -{ - xPropSizeHints *raw; - XSizeHints *hints; - - *hints_p = NULL; - *flags_p = 0; - - if (!validate_or_free_results (results, 32, XA_WM_SIZE_HINTS, FALSE)) - return FALSE; - - if (results->n_items < OldNumPropSizeElements) - return FALSE; - - raw = (xPropSizeHints*) results->prop; - - hints = ag_Xmalloc (sizeof (XSizeHints)); - - /* XSizeHints misdeclares these as int instead of long */ - hints->flags = raw->flags; - hints->x = cvtINT32toInt (raw->x); - hints->y = cvtINT32toInt (raw->y); - hints->width = cvtINT32toInt (raw->width); - hints->height = cvtINT32toInt (raw->height); - hints->min_width = cvtINT32toInt (raw->minWidth); - hints->min_height = cvtINT32toInt (raw->minHeight); - hints->max_width = cvtINT32toInt (raw->maxWidth); - hints->max_height = cvtINT32toInt (raw->maxHeight); - hints->width_inc = cvtINT32toInt (raw->widthInc); - hints->height_inc = cvtINT32toInt (raw->heightInc); - hints->min_aspect.x = cvtINT32toInt (raw->minAspectX); - hints->min_aspect.y = cvtINT32toInt (raw->minAspectY); - hints->max_aspect.x = cvtINT32toInt (raw->maxAspectX); - hints->max_aspect.y = cvtINT32toInt (raw->maxAspectY); - - *flags_p = (USPosition | USSize | PAllHints); - if (results->n_items >= NumPropSizeElements) - { - hints->base_width= cvtINT32toInt (raw->baseWidth); - hints->base_height= cvtINT32toInt (raw->baseHeight); - hints->win_gravity= cvtINT32toInt (raw->winGravity); - *flags_p |= (PBaseSize | PWinGravity); - } - - hints->flags &= (*flags_p); /* get rid of unwanted bits */ - - XFree (results->prop); - results->prop = NULL; - - *hints_p = hints; - - return TRUE; -} - -gboolean -meta_prop_get_size_hints (MetaDisplay *display, - Window xwindow, - Atom xatom, - XSizeHints **hints_p, - gulong *flags_p) -{ - GetPropertyResults results; - - *hints_p = NULL; - *flags_p = 0; - - if (!get_property (display, xwindow, xatom, XA_WM_SIZE_HINTS, - &results)) - return FALSE; - - return size_hints_from_results (&results, hints_p, flags_p); -} - -static AgGetPropertyTask* -get_task (MetaDisplay *display, - Window xwindow, - Atom xatom, - Atom req_type) -{ - return ag_task_create (display->xdisplay, - xwindow, - xatom, 0, G_MAXLONG, - False, req_type); -} - -static char* -latin1_to_utf8 (const char *text) -{ - GString *str; - const char *p; - - str = g_string_new (""); - - p = text; - while (*p) - { - g_string_append_unichar (str, *p); - ++p; - } - - return g_string_free (str, FALSE); -} - -void -meta_prop_get_values (MetaDisplay *display, - Window xwindow, - MetaPropValue *values, - int n_values) -{ - int i; - AgGetPropertyTask **tasks; - - meta_verbose ("Requesting %d properties of 0x%lx at once\n", - n_values, xwindow); - - if (n_values == 0) - return; - - tasks = g_new0 (AgGetPropertyTask*, n_values); - - /* Start up tasks. The "values" array can have values - * with atom == None, which means to ignore that element. - */ - i = 0; - while (i < n_values) - { - if (values[i].required_type == None) - { - switch (values[i].type) - { - case META_PROP_VALUE_INVALID: - /* This means we don't really want a value, e.g. got - * property notify on an atom we don't care about. - */ - if (values[i].atom != None) - meta_bug ("META_PROP_VALUE_INVALID requested in %s\n", G_STRFUNC); - break; - case META_PROP_VALUE_UTF8_LIST: - case META_PROP_VALUE_UTF8: - values[i].required_type = display->atom_UTF8_STRING; - break; - case META_PROP_VALUE_STRING: - case META_PROP_VALUE_STRING_AS_UTF8: - values[i].required_type = XA_STRING; - break; - case META_PROP_VALUE_MOTIF_HINTS: - values[i].required_type = AnyPropertyType; - break; - case META_PROP_VALUE_CARDINAL_LIST: - case META_PROP_VALUE_CARDINAL: - values[i].required_type = XA_CARDINAL; - break; - case META_PROP_VALUE_WINDOW: - values[i].required_type = XA_WINDOW; - break; - case META_PROP_VALUE_ATOM_LIST: - values[i].required_type = XA_ATOM; - break; - case META_PROP_VALUE_TEXT_PROPERTY: - values[i].required_type = AnyPropertyType; - break; - case META_PROP_VALUE_WM_HINTS: - values[i].required_type = XA_WM_HINTS; - break; - case META_PROP_VALUE_CLASS_HINT: - values[i].required_type = XA_STRING; - break; - case META_PROP_VALUE_SIZE_HINTS: - values[i].required_type = XA_WM_SIZE_HINTS; - break; - case META_PROP_VALUE_SYNC_COUNTER: - values[i].required_type = XA_CARDINAL; - break; - } - } - - if (values[i].atom != None) - tasks[i] = get_task (display, xwindow, - values[i].atom, values[i].required_type); - - ++i; - } - - /* Get replies for all our tasks */ - meta_topic (META_DEBUG_SYNC, "Syncing to get %d GetProperty replies in %s\n", - n_values, G_STRFUNC); - XSync (display->xdisplay, False); - - /* Collect results, should arrive in order requested */ - i = 0; - while (i < n_values) - { - AgGetPropertyTask *task; - GetPropertyResults results; - - if (tasks[i] == NULL) - { - /* Probably values[i].type was None, or ag_task_create() - * returned NULL. - */ - values[i].type = META_PROP_VALUE_INVALID; - goto next; - } - - task = ag_get_next_completed_task (display->xdisplay); - g_assert (task != NULL); - g_assert (ag_task_have_reply (task)); - - results.display = display; - results.xwindow = xwindow; - results.xatom = values[i].atom; - results.prop = NULL; - results.n_items = 0; - results.type = None; - results.bytes_after = 0; - results.format = 0; - - if (ag_task_get_reply_and_free (task, - &results.type, &results.format, - &results.n_items, - &results.bytes_after, - &results.prop) != Success || - results.type == None) - { - values[i].type = META_PROP_VALUE_INVALID; - if (results.prop) - { - XFree (results.prop); - results.prop = NULL; - } - goto next; - } - - switch (values[i].type) - { - case META_PROP_VALUE_INVALID: - g_assert_not_reached (); - break; - case META_PROP_VALUE_UTF8_LIST: - if (!utf8_list_from_results (&results, - &values[i].v.string_list.strings, - &values[i].v.string_list.n_strings)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_UTF8: - if (!utf8_string_from_results (&results, - &values[i].v.str)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_STRING: - if (!latin1_string_from_results (&results, - &values[i].v.str)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_STRING_AS_UTF8: - if (!latin1_string_from_results (&results, - &values[i].v.str)) - values[i].type = META_PROP_VALUE_INVALID; - else - { - char *new_str; - char *xmalloc_new_str; - - new_str = latin1_to_utf8 (values[i].v.str); - xmalloc_new_str = ag_Xmalloc (strlen (new_str) + 1); - if (xmalloc_new_str != NULL) - { - strcpy (xmalloc_new_str, new_str); - meta_XFree (values[i].v.str); - values[i].v.str = xmalloc_new_str; - } - - g_free (new_str); - } - break; - case META_PROP_VALUE_MOTIF_HINTS: - if (!motif_hints_from_results (&results, - &values[i].v.motif_hints)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_CARDINAL_LIST: - if (!cardinal_list_from_results (&results, - &values[i].v.cardinal_list.cardinals, - &values[i].v.cardinal_list.n_cardinals)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_CARDINAL: - if (!cardinal_with_atom_type_from_results (&results, - values[i].required_type, - &values[i].v.cardinal)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_WINDOW: - if (!window_from_results (&results, - &values[i].v.xwindow)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_ATOM_LIST: - if (!atom_list_from_results (&results, - &values[i].v.atom_list.atoms, - &values[i].v.atom_list.n_atoms)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_TEXT_PROPERTY: - if (!text_property_from_results (&results, &values[i].v.str)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_WM_HINTS: - if (!wm_hints_from_results (&results, &values[i].v.wm_hints)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_CLASS_HINT: - if (!class_hint_from_results (&results, &values[i].v.class_hint)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_SIZE_HINTS: - if (!size_hints_from_results (&results, - &values[i].v.size_hints.hints, - &values[i].v.size_hints.flags)) - values[i].type = META_PROP_VALUE_INVALID; - break; - case META_PROP_VALUE_SYNC_COUNTER: -#ifdef HAVE_XSYNC - if (!counter_from_results (&results, - &values[i].v.xcounter)) - values[i].type = META_PROP_VALUE_INVALID; -#else - values[i].type = META_PROP_VALUE_INVALID; - if (results.prop) - { - XFree (results.prop); - results.prop = NULL; - } -#endif - break; - } - - next: - ++i; - } - - g_free (tasks); -} - -static void -free_value (MetaPropValue *value) -{ - switch (value->type) - { - case META_PROP_VALUE_INVALID: - break; - case META_PROP_VALUE_UTF8: - case META_PROP_VALUE_STRING: - case META_PROP_VALUE_STRING_AS_UTF8: - meta_XFree (value->v.str); - break; - case META_PROP_VALUE_MOTIF_HINTS: - meta_XFree (value->v.motif_hints); - break; - case META_PROP_VALUE_CARDINAL: - break; - case META_PROP_VALUE_WINDOW: - break; - case META_PROP_VALUE_ATOM_LIST: - meta_XFree (value->v.atom_list.atoms); - break; - case META_PROP_VALUE_TEXT_PROPERTY: - meta_XFree (value->v.str); - break; - case META_PROP_VALUE_WM_HINTS: - meta_XFree (value->v.wm_hints); - break; - case META_PROP_VALUE_CLASS_HINT: - meta_XFree (value->v.class_hint.res_class); - meta_XFree (value->v.class_hint.res_name); - break; - case META_PROP_VALUE_SIZE_HINTS: - meta_XFree (value->v.size_hints.hints); - break; - case META_PROP_VALUE_UTF8_LIST: - g_strfreev (value->v.string_list.strings); - break; - case META_PROP_VALUE_CARDINAL_LIST: - meta_XFree (value->v.cardinal_list.cardinals); - break; - case META_PROP_VALUE_SYNC_COUNTER: - break; - } -} - -void -meta_prop_free_values (MetaPropValue *values, - int n_values) -{ - int i; - - i = 0; - while (i < n_values) - { - free_value (&values[i]); - ++i; - } - - /* Zero the whole thing to quickly detect breakage */ - memset (values, '\0', sizeof (MetaPropValue) * n_values); -} |