|
Packit Service |
2b1f13 |
/*
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
Copyright 1988, 1998 The Open Group
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
Permission to use, copy, modify, distribute, and sell this software and its
|
|
Packit Service |
2b1f13 |
documentation for any purpose is hereby granted without fee, provided that
|
|
Packit Service |
2b1f13 |
the above copyright notice appear in all copies and that both that
|
|
Packit Service |
2b1f13 |
copyright notice and this permission notice appear in supporting
|
|
Packit Service |
2b1f13 |
documentation.
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
The above copyright notice and this permission notice shall be included in
|
|
Packit Service |
2b1f13 |
all copies or substantial portions of the Software.
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
Packit Service |
2b1f13 |
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
Packit Service |
2b1f13 |
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
Packit Service |
2b1f13 |
OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
|
Packit Service |
2b1f13 |
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
Packit Service |
2b1f13 |
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
Except as contained in this notice, the name of The Open Group shall not be
|
|
Packit Service |
2b1f13 |
used in advertising or otherwise to promote the sale, use or other dealings
|
|
Packit Service |
2b1f13 |
in this Software without prior written authorization from The Open Group.
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
*/
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
/*
|
|
Packit Service |
2b1f13 |
* This file contains routines to cache atoms, avoiding multiple
|
|
Packit Service |
2b1f13 |
* server round-trips. Not so useful now that Xlib caches them.
|
|
Packit Service |
2b1f13 |
*
|
|
Packit Service |
2b1f13 |
* Public entry points:
|
|
Packit Service |
2b1f13 |
*
|
|
Packit Service |
2b1f13 |
* XmuMakeAtom creates & initializes an opaque AtomRec
|
|
Packit Service |
2b1f13 |
* XmuInternAtom fetches an Atom from cache or Display
|
|
Packit Service |
2b1f13 |
* XmuInternStrings fetches multiple Atoms as strings
|
|
Packit Service |
2b1f13 |
* XmuGetAtomName returns name of an Atom
|
|
Packit Service |
2b1f13 |
* XmuNameOfAtom returns name from an AtomPtr
|
|
Packit Service |
2b1f13 |
*/
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
#ifdef HAVE_CONFIG_H
|
|
Packit Service |
2b1f13 |
#include <config.h>
|
|
Packit Service |
2b1f13 |
#endif
|
|
Packit Service |
2b1f13 |
#include <X11/Intrinsic.h>
|
|
Packit Service |
2b1f13 |
#include "Atoms.h"
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
typedef struct _DisplayRec {
|
|
Packit Service |
2b1f13 |
struct _DisplayRec* next;
|
|
Packit Service |
2b1f13 |
Display *dpy;
|
|
Packit Service |
2b1f13 |
Atom atom;
|
|
Packit Service |
2b1f13 |
} DisplayRec;
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
struct _AtomRec {
|
|
Packit Service |
2b1f13 |
_Xconst char *name;
|
|
Packit Service |
2b1f13 |
DisplayRec* head;
|
|
Packit Service |
2b1f13 |
};
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
#define DeclareAtom(atom,text) \
|
|
Packit Service |
2b1f13 |
static struct _AtomRec __##atom = { text, NULL }; \
|
|
Packit Service |
2b1f13 |
AtomPtr _##atom = &__##atom;
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_ATOM_PAIR, "ATOM_PAIR" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_CHARACTER_POSITION, "CHARACTER_POSITION" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_CLASS, "CLASS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_CLIENT_WINDOW, "CLIENT_WINDOW" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_CLIPBOARD, "CLIPBOARD" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_COMPOUND_TEXT, "COMPOUND_TEXT" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_DECNET_ADDRESS, "DECNET_ADDRESS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_DELETE, "DELETE" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_FILENAME, "FILENAME" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_HOSTNAME, "HOSTNAME" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_IP_ADDRESS, "IP_ADDRESS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_LENGTH, "LENGTH" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_LIST_LENGTH, "LIST_LENGTH" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_NAME, "NAME" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_NET_ADDRESS, "NET_ADDRESS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_NULL, "NULL" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_OWNER_OS, "OWNER_OS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_SPAN, "SPAN" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_TARGETS, "TARGETS" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_TEXT, "TEXT" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_TIMESTAMP, "TIMESTAMP" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_USER, "USER" )
|
|
Packit Service |
2b1f13 |
DeclareAtom(XA_UTF8_STRING, "UTF8_STRING" )
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
/******************************************************************
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
Public procedures
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
******************************************************************/
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
AtomPtr
|
|
Packit Service |
2b1f13 |
XmuMakeAtom(_Xconst char *name)
|
|
Packit Service |
2b1f13 |
{
|
|
Packit Service |
2b1f13 |
AtomPtr ptr = XtNew(struct _AtomRec);
|
|
Packit Service |
2b1f13 |
ptr->name = name;
|
|
Packit Service |
2b1f13 |
ptr->head = NULL;
|
|
Packit Service |
2b1f13 |
return ptr;
|
|
Packit Service |
2b1f13 |
}
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
char *
|
|
Packit Service |
2b1f13 |
XmuNameOfAtom(AtomPtr atom_ptr)
|
|
Packit Service |
2b1f13 |
{
|
|
Packit Service |
2b1f13 |
return (char *) atom_ptr->name;
|
|
Packit Service |
2b1f13 |
}
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
Atom
|
|
Packit Service |
2b1f13 |
XmuInternAtom(Display *d, AtomPtr atom_ptr)
|
|
Packit Service |
2b1f13 |
{
|
|
Packit Service |
2b1f13 |
DisplayRec* display_rec;
|
|
Packit Service |
2b1f13 |
for (display_rec = atom_ptr->head; display_rec != NULL;
|
|
Packit Service |
2b1f13 |
display_rec = display_rec->next) {
|
|
Packit Service |
2b1f13 |
if (display_rec->dpy == d)
|
|
Packit Service |
2b1f13 |
return display_rec->atom;
|
|
Packit Service |
2b1f13 |
}
|
|
Packit Service |
2b1f13 |
display_rec = XtNew(DisplayRec);
|
|
Packit Service |
2b1f13 |
display_rec->next = atom_ptr->head;
|
|
Packit Service |
2b1f13 |
atom_ptr->head = display_rec;
|
|
Packit Service |
2b1f13 |
display_rec->dpy = d;
|
|
Packit Service |
2b1f13 |
display_rec->atom = XInternAtom(d, atom_ptr->name, False);
|
|
Packit Service |
2b1f13 |
return display_rec->atom;
|
|
Packit Service |
2b1f13 |
}
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
char *
|
|
Packit Service |
2b1f13 |
XmuGetAtomName(Display *d, Atom atom)
|
|
Packit Service |
2b1f13 |
{
|
|
Packit Service |
2b1f13 |
if (atom == 0) return (NULL);
|
|
Packit Service |
2b1f13 |
return XGetAtomName(d, atom);
|
|
Packit Service |
2b1f13 |
}
|
|
Packit Service |
2b1f13 |
|
|
Packit Service |
2b1f13 |
/* convert (names, count) to a list of atoms. Caller allocates list */
|
|
Packit Service |
2b1f13 |
void
|
|
Packit Service |
2b1f13 |
XmuInternStrings(Display *d, register String *names,
|
|
Packit Service |
2b1f13 |
register Cardinal count, register Atom *atoms)
|
|
Packit Service |
2b1f13 |
{
|
|
Packit Service |
2b1f13 |
(void) XInternAtoms(d, (char**)names, (int)count, FALSE, atoms);
|
|
Packit Service |
2b1f13 |
}
|