Atoms.c revision 198e4c3c 
1/*
2
3Copyright 1988, 1998  The Open Group
4
5Permission to use, copy, modify, distribute, and sell this software and its
6documentation for any purpose is hereby granted without fee, provided that
7the above copyright notice appear in all copies and that both that
8copyright notice and this permission notice appear in supporting
9documentation.
10
11The above copyright notice and this permission notice shall be included in
12all copies or substantial portions of the Software.
13
14THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
17OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
18AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
19CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20
21Except as contained in this notice, the name of The Open Group shall not be
22used in advertising or otherwise to promote the sale, use or other dealings
23in this Software without prior written authorization from The Open Group.
24
25*/
26
27/*
28 * This file contains routines to cache atoms, avoiding multiple
29 * server round-trips.  Not so useful now that Xlib caches them.
30 *
31 * Public entry points:
32 *
33 *	XmuMakeAtom		creates & initializes an opaque AtomRec
34 *	XmuInternAtom		fetches an Atom from cache or Display
35 *	XmuInternStrings	fetches multiple Atoms as strings
36 *	XmuGetAtomName		returns name of an Atom
37 *	XmuNameOfAtom		returns name from an AtomPtr
38 */
39
40#ifdef HAVE_CONFIG_H
41#include <config.h>
42#endif
43#include <X11/Intrinsic.h>
44#include "Atoms.h"
45
46typedef struct _DisplayRec {
47    struct _DisplayRec* next;
48    Display *dpy;
49    Atom atom;
50} DisplayRec;
51
52struct _AtomRec {
53    _Xconst char *name;
54    DisplayRec* head;
55};
56
57#define DeclareAtom(atom,text) \
58static struct _AtomRec __##atom = { text, NULL }; \
59AtomPtr _##atom = &__##atom;
60
61DeclareAtom(XA_ATOM_PAIR,		"ATOM_PAIR"		)
62DeclareAtom(XA_CHARACTER_POSITION,	"CHARACTER_POSITION"	)
63DeclareAtom(XA_CLASS,			"CLASS"			)
64DeclareAtom(XA_CLIENT_WINDOW,		"CLIENT_WINDOW"		)
65DeclareAtom(XA_CLIPBOARD,		"CLIPBOARD"		)
66DeclareAtom(XA_COMPOUND_TEXT,		"COMPOUND_TEXT"		)
67DeclareAtom(XA_DECNET_ADDRESS,		"DECNET_ADDRESS"	)
68DeclareAtom(XA_DELETE,			"DELETE"		)
69DeclareAtom(XA_FILENAME,		"FILENAME"		)
70DeclareAtom(XA_HOSTNAME,		"HOSTNAME"		)
71DeclareAtom(XA_IP_ADDRESS,		"IP_ADDRESS"		)
72DeclareAtom(XA_LENGTH,			"LENGTH"		)
73DeclareAtom(XA_LIST_LENGTH,		"LIST_LENGTH"		)
74DeclareAtom(XA_NAME,			"NAME"			)
75DeclareAtom(XA_NET_ADDRESS,		"NET_ADDRESS"		)
76DeclareAtom(XA_NULL,			"NULL"			)
77DeclareAtom(XA_OWNER_OS,		"OWNER_OS"		)
78DeclareAtom(XA_SPAN,			"SPAN"			)
79DeclareAtom(XA_TARGETS,			"TARGETS"		)
80DeclareAtom(XA_TEXT,			"TEXT"			)
81DeclareAtom(XA_TIMESTAMP,		"TIMESTAMP"		)
82DeclareAtom(XA_USER,			"USER"			)
83DeclareAtom(XA_UTF8_STRING,		"UTF8_STRING"		)
84
85/******************************************************************
86
87  Public procedures
88
89 ******************************************************************/
90
91
92AtomPtr
93XmuMakeAtom(_Xconst char *name)
94{
95    AtomPtr ptr = XtNew(struct _AtomRec);
96    ptr->name = name;
97    ptr->head = NULL;
98    return ptr;
99}
100
101char *
102XmuNameOfAtom(AtomPtr atom_ptr)
103{
104    return (char *) atom_ptr->name;
105}
106
107
108Atom
109XmuInternAtom(Display *d, AtomPtr atom_ptr)
110{
111    DisplayRec* display_rec;
112    for (display_rec = atom_ptr->head; display_rec != NULL;
113	 display_rec = display_rec->next) {
114	if (display_rec->dpy == d)
115	    return display_rec->atom;
116    }
117    display_rec = XtNew(DisplayRec);
118    display_rec->next = atom_ptr->head;
119    atom_ptr->head = display_rec;
120    display_rec->dpy = d;
121    display_rec->atom = XInternAtom(d, atom_ptr->name, False);
122    return display_rec->atom;
123}
124
125
126char *
127XmuGetAtomName(Display *d, Atom atom)
128{
129    if (atom == 0) return (NULL);
130    return XGetAtomName(d, atom);
131}
132
133/* convert (names, count) to a list of atoms. Caller allocates list */
134void
135XmuInternStrings(Display *d, register String *names,
136		 register Cardinal count, register Atom *atoms)
137{
138    (void) XInternAtoms(d, (char**)names, (int)count, FALSE, atoms);
139}
140