1 /*
2
3 Copyright 1988, 1998 The Open Group
4
5 Permission to use, copy, modify, distribute, and sell this software and its
6 documentation for any purpose is hereby granted without fee, provided that
7 the above copyright notice appear in all copies and that both that
8 copyright notice and this permission notice appear in supporting
9 documentation.
10
11 The above copyright notice and this permission notice shall be included in
12 all copies or substantial portions of the Software.
13
14 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
17 OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
18 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
19 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
20
21 Except as contained in this notice, the name of The Open Group shall not be
22 used in advertising or otherwise to promote the sale, use or other dealings
23 in 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
46 typedef struct _DisplayRec {
47 struct _DisplayRec* next;
48 Display *dpy;
49 Atom atom;
50 } DisplayRec;
51
52 struct _AtomRec {
53 _Xconst char *name;
54 DisplayRec* head;
55 };
56
57 #define DeclareAtom(atom,text) \
58 static struct _AtomRec __##atom = { text, NULL }; \
59 AtomPtr _##atom = &__##atom;
60
61 DeclareAtom(XA_ATOM_PAIR, "ATOM_PAIR" )
62 DeclareAtom(XA_CHARACTER_POSITION, "CHARACTER_POSITION" )
63 DeclareAtom(XA_CLASS, "CLASS" )
64 DeclareAtom(XA_CLIENT_WINDOW, "CLIENT_WINDOW" )
65 DeclareAtom(XA_CLIPBOARD, "CLIPBOARD" )
66 DeclareAtom(XA_COMPOUND_TEXT, "COMPOUND_TEXT" )
67 DeclareAtom(XA_DECNET_ADDRESS, "DECNET_ADDRESS" )
68 DeclareAtom(XA_DELETE, "DELETE" )
69 DeclareAtom(XA_FILENAME, "FILENAME" )
70 DeclareAtom(XA_HOSTNAME, "HOSTNAME" )
71 DeclareAtom(XA_IP_ADDRESS, "IP_ADDRESS" )
72 DeclareAtom(XA_LENGTH, "LENGTH" )
73 DeclareAtom(XA_LIST_LENGTH, "LIST_LENGTH" )
74 DeclareAtom(XA_NAME, "NAME" )
75 DeclareAtom(XA_NET_ADDRESS, "NET_ADDRESS" )
76 DeclareAtom(XA_NULL, "NULL" )
77 DeclareAtom(XA_OWNER_OS, "OWNER_OS" )
78 DeclareAtom(XA_SPAN, "SPAN" )
79 DeclareAtom(XA_TARGETS, "TARGETS" )
80 DeclareAtom(XA_TEXT, "TEXT" )
81 DeclareAtom(XA_TIMESTAMP, "TIMESTAMP" )
82 DeclareAtom(XA_USER, "USER" )
83 DeclareAtom(XA_UTF8_STRING, "UTF8_STRING" )
84
85 /******************************************************************
86
87 Public procedures
88
89 ******************************************************************/
90
91
92 AtomPtr
XmuMakeAtom(_Xconst char * name)93 XmuMakeAtom(_Xconst char *name)
94 {
95 AtomPtr ptr = XtNew(struct _AtomRec);
96 ptr->name = name;
97 ptr->head = NULL;
98 return ptr;
99 }
100
101 char *
XmuNameOfAtom(AtomPtr atom_ptr)102 XmuNameOfAtom(AtomPtr atom_ptr)
103 {
104 return (char *) atom_ptr->name;
105 }
106
107
108 Atom
XmuInternAtom(Display * d,AtomPtr atom_ptr)109 XmuInternAtom(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
126 char *
XmuGetAtomName(Display * d,Atom atom)127 XmuGetAtomName(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 */
134 void
XmuInternStrings(Display * d,register String * names,register Cardinal count,register Atom * atoms)135 XmuInternStrings(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