/[dtapublic]/projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkatom.c
ViewVC logotype

Diff of /projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkatom.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 69 by dashley, Sat Nov 5 10:54:17 2016 UTC revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC
# Line 1  Line 1 
1  /* $Header$ */  /* $Header$ */
2    
3  /*  /*
4   * tkAtom.c --   * tkAtom.c --
5   *   *
6   *      This file manages a cache of X Atoms in order to avoid   *      This file manages a cache of X Atoms in order to avoid
7   *      interactions with the X server.  It's much like the Xmu   *      interactions with the X server.  It's much like the Xmu
8   *      routines, except it has a cleaner interface (caller   *      routines, except it has a cleaner interface (caller
9   *      doesn't have to provide permanent storage for atom names,   *      doesn't have to provide permanent storage for atom names,
10   *      for example).   *      for example).
11   *   *
12   * Copyright (c) 1990-1994 The Regents of the University of California.   * Copyright (c) 1990-1994 The Regents of the University of California.
13   * Copyright (c) 1994 Sun Microsystems, Inc.   * Copyright (c) 1994 Sun Microsystems, Inc.
14   *   *
15   * See the file "license.terms" for information on usage and redistribution   * See the file "license.terms" for information on usage and redistribution
16   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
17   *   *
18   * RCS: @(#) $Id: tkatom.c,v 1.1.1.1 2001/06/13 04:53:38 dtashley Exp $   * RCS: @(#) $Id: tkatom.c,v 1.1.1.1 2001/06/13 04:53:38 dtashley Exp $
19   */   */
20    
21  #include "tkPort.h"  #include "tkPort.h"
22  #include "tkInt.h"  #include "tkInt.h"
23    
24  /*  /*
25   * The following are a list of the predefined atom strings.   * The following are a list of the predefined atom strings.
26   * They should match those found in xatom.h   * They should match those found in xatom.h
27   */   */
28    
29  static char * atomNameArray[] = {  static char * atomNameArray[] = {
30      "PRIMARY",          "SECONDARY",            "ARC",      "PRIMARY",          "SECONDARY",            "ARC",
31      "ATOM",             "BITMAP",               "CARDINAL",      "ATOM",             "BITMAP",               "CARDINAL",
32      "COLORMAP",         "CURSOR",               "CUT_BUFFER0",      "COLORMAP",         "CURSOR",               "CUT_BUFFER0",
33      "CUT_BUFFER1",      "CUT_BUFFER2",          "CUT_BUFFER3",      "CUT_BUFFER1",      "CUT_BUFFER2",          "CUT_BUFFER3",
34      "CUT_BUFFER4",      "CUT_BUFFER5",          "CUT_BUFFER6",      "CUT_BUFFER4",      "CUT_BUFFER5",          "CUT_BUFFER6",
35      "CUT_BUFFER7",      "DRAWABLE",             "FONT",      "CUT_BUFFER7",      "DRAWABLE",             "FONT",
36      "INTEGER",          "PIXMAP",               "POINT",      "INTEGER",          "PIXMAP",               "POINT",
37      "RECTANGLE",        "RESOURCE_MANAGER",     "RGB_COLOR_MAP",      "RECTANGLE",        "RESOURCE_MANAGER",     "RGB_COLOR_MAP",
38      "RGB_BEST_MAP",     "RGB_BLUE_MAP",         "RGB_DEFAULT_MAP",      "RGB_BEST_MAP",     "RGB_BLUE_MAP",         "RGB_DEFAULT_MAP",
39      "RGB_GRAY_MAP",     "RGB_GREEN_MAP",        "RGB_RED_MAP",      "RGB_GRAY_MAP",     "RGB_GREEN_MAP",        "RGB_RED_MAP",
40      "STRING",           "VISUALID",             "WINDOW",      "STRING",           "VISUALID",             "WINDOW",
41      "WM_COMMAND",       "WM_HINTS",             "WM_CLIENT_MACHINE",      "WM_COMMAND",       "WM_HINTS",             "WM_CLIENT_MACHINE",
42      "WM_ICON_NAME",     "WM_ICON_SIZE",         "WM_NAME",      "WM_ICON_NAME",     "WM_ICON_SIZE",         "WM_NAME",
43      "WM_NORMAL_HINTS",  "WM_SIZE_HINTS",        "WM_ZOOM_HINTS",      "WM_NORMAL_HINTS",  "WM_SIZE_HINTS",        "WM_ZOOM_HINTS",
44      "MIN_SPACE",        "NORM_SPACE",           "MAX_SPACE",      "MIN_SPACE",        "NORM_SPACE",           "MAX_SPACE",
45      "END_SPACE",        "SUPERSCRIPT_X",        "SUPERSCRIPT_Y",      "END_SPACE",        "SUPERSCRIPT_X",        "SUPERSCRIPT_Y",
46      "SUBSCRIPT_X",      "SUBSCRIPT_Y",          "UNDERLINE_POSITION",      "SUBSCRIPT_X",      "SUBSCRIPT_Y",          "UNDERLINE_POSITION",
47      "UNDERLINE_THICKNESS", "STRIKEOUT_ASCENT",  "STRIKEOUT_DESCENT",      "UNDERLINE_THICKNESS", "STRIKEOUT_ASCENT",  "STRIKEOUT_DESCENT",
48      "ITALIC_ANGLE",     "X_HEIGHT",             "QUAD_WIDTH",      "ITALIC_ANGLE",     "X_HEIGHT",             "QUAD_WIDTH",
49      "WEIGHT",           "POINT_SIZE",           "RESOLUTION",      "WEIGHT",           "POINT_SIZE",           "RESOLUTION",
50      "COPYRIGHT",        "NOTICE",               "FONT_NAME",      "COPYRIGHT",        "NOTICE",               "FONT_NAME",
51      "FAMILY_NAME",      "FULL_NAME",            "CAP_HEIGHT",      "FAMILY_NAME",      "FULL_NAME",            "CAP_HEIGHT",
52      "WM_CLASS",         "WM_TRANSIENT_FOR",      "WM_CLASS",         "WM_TRANSIENT_FOR",
53      (char *) NULL      (char *) NULL
54  };  };
55    
56  /*  /*
57   * Forward references to procedures defined in this file:   * Forward references to procedures defined in this file:
58   */   */
59    
60  static void     AtomInit _ANSI_ARGS_((TkDisplay *dispPtr));  static void     AtomInit _ANSI_ARGS_((TkDisplay *dispPtr));
61    
62  /*  /*
63   *--------------------------------------------------------------   *--------------------------------------------------------------
64   *   *
65   * Tk_InternAtom --   * Tk_InternAtom --
66   *   *
67   *      Given a string, produce the equivalent X atom.  This   *      Given a string, produce the equivalent X atom.  This
68   *      procedure is equivalent to XInternAtom, except that it   *      procedure is equivalent to XInternAtom, except that it
69   *      keeps a local cache of atoms.  Once a name is known,   *      keeps a local cache of atoms.  Once a name is known,
70   *      the server need not be contacted again for that name.   *      the server need not be contacted again for that name.
71   *   *
72   * Results:   * Results:
73   *      The return value is the Atom corresponding to name.   *      The return value is the Atom corresponding to name.
74   *   *
75   * Side effects:   * Side effects:
76   *      A new entry may be added to the local atom cache.   *      A new entry may be added to the local atom cache.
77   *   *
78   *--------------------------------------------------------------   *--------------------------------------------------------------
79   */   */
80    
81  Atom  Atom
82  Tk_InternAtom(tkwin, name)  Tk_InternAtom(tkwin, name)
83      Tk_Window tkwin;            /* Window token;  map name to atom      Tk_Window tkwin;            /* Window token;  map name to atom
84                                   * for this window's display. */                                   * for this window's display. */
85      char *name;                 /* Name to turn into atom. */      char *name;                 /* Name to turn into atom. */
86  {  {
87      register TkDisplay *dispPtr;      register TkDisplay *dispPtr;
88      register Tcl_HashEntry *hPtr;      register Tcl_HashEntry *hPtr;
89      int new;      int new;
90    
91      dispPtr = ((TkWindow *) tkwin)->dispPtr;      dispPtr = ((TkWindow *) tkwin)->dispPtr;
92      if (!dispPtr->atomInit) {      if (!dispPtr->atomInit) {
93          AtomInit(dispPtr);          AtomInit(dispPtr);
94      }      }
95    
96      hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, name, &new);      hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, name, &new);
97      if (new) {      if (new) {
98          Tcl_HashEntry *hPtr2;          Tcl_HashEntry *hPtr2;
99          Atom atom;          Atom atom;
100    
101          atom = XInternAtom(dispPtr->display, name, False);          atom = XInternAtom(dispPtr->display, name, False);
102          Tcl_SetHashValue(hPtr, atom);          Tcl_SetHashValue(hPtr, atom);
103          hPtr2 = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,          hPtr2 = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
104                  &new);                  &new);
105          Tcl_SetHashValue(hPtr2, Tcl_GetHashKey(&dispPtr->nameTable, hPtr));          Tcl_SetHashValue(hPtr2, Tcl_GetHashKey(&dispPtr->nameTable, hPtr));
106      }      }
107      return (Atom) Tcl_GetHashValue(hPtr);      return (Atom) Tcl_GetHashValue(hPtr);
108  }  }
109    
110  /*  /*
111   *--------------------------------------------------------------   *--------------------------------------------------------------
112   *   *
113   * Tk_GetAtomName --   * Tk_GetAtomName --
114   *   *
115   *      This procedure is equivalent to XGetAtomName except that   *      This procedure is equivalent to XGetAtomName except that
116   *      it uses the local atom cache to avoid contacting the   *      it uses the local atom cache to avoid contacting the
117   *      server.   *      server.
118   *   *
119   * Results:   * Results:
120   *      The return value is a character string corresponding to   *      The return value is a character string corresponding to
121   *      the atom given by "atom".  This string's storage space   *      the atom given by "atom".  This string's storage space
122   *      is static:  it need not be freed by the caller, and should   *      is static:  it need not be freed by the caller, and should
123   *      not be modified by the caller.  If "atom" doesn't exist   *      not be modified by the caller.  If "atom" doesn't exist
124   *      on tkwin's display, then the string "?bad atom?" is returned.   *      on tkwin's display, then the string "?bad atom?" is returned.
125   *   *
126   * Side effects:   * Side effects:
127   *      None.   *      None.
128   *   *
129   *--------------------------------------------------------------   *--------------------------------------------------------------
130   */   */
131    
132  char *  char *
133  Tk_GetAtomName(tkwin, atom)  Tk_GetAtomName(tkwin, atom)
134      Tk_Window tkwin;            /* Window token;  map atom to name      Tk_Window tkwin;            /* Window token;  map atom to name
135                                   * relative to this window's                                   * relative to this window's
136                                   * display. */                                   * display. */
137      Atom atom;                  /* Atom whose name is wanted. */      Atom atom;                  /* Atom whose name is wanted. */
138  {  {
139      register TkDisplay *dispPtr;      register TkDisplay *dispPtr;
140      register Tcl_HashEntry *hPtr;      register Tcl_HashEntry *hPtr;
141    
142      dispPtr = ((TkWindow *) tkwin)->dispPtr;      dispPtr = ((TkWindow *) tkwin)->dispPtr;
143      if (!dispPtr->atomInit) {      if (!dispPtr->atomInit) {
144          AtomInit(dispPtr);          AtomInit(dispPtr);
145      }      }
146    
147      hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);      hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);
148      if (hPtr == NULL) {      if (hPtr == NULL) {
149          char *name;          char *name;
150          Tk_ErrorHandler handler;          Tk_ErrorHandler handler;
151          int new, mustFree;          int new, mustFree;
152    
153          handler= Tk_CreateErrorHandler(dispPtr->display, BadAtom,          handler= Tk_CreateErrorHandler(dispPtr->display, BadAtom,
154                  -1, -1, (Tk_ErrorProc *) NULL, (ClientData) NULL);                  -1, -1, (Tk_ErrorProc *) NULL, (ClientData) NULL);
155          name = XGetAtomName(dispPtr->display, atom);          name = XGetAtomName(dispPtr->display, atom);
156          mustFree = 1;          mustFree = 1;
157          if (name == NULL) {          if (name == NULL) {
158              name = "?bad atom?";              name = "?bad atom?";
159              mustFree = 0;              mustFree = 0;
160          }          }
161          Tk_DeleteErrorHandler(handler);          Tk_DeleteErrorHandler(handler);
162          hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,          hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,
163                  &new);                  &new);
164          Tcl_SetHashValue(hPtr, atom);          Tcl_SetHashValue(hPtr, atom);
165          if (mustFree) {          if (mustFree) {
166              XFree(name);              XFree(name);
167          }          }
168          name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);          name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);
169          hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,          hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
170                  &new);                  &new);
171          Tcl_SetHashValue(hPtr, name);          Tcl_SetHashValue(hPtr, name);
172      }      }
173      return (char *) Tcl_GetHashValue(hPtr);      return (char *) Tcl_GetHashValue(hPtr);
174  }  }
175    
176  /*  /*
177   *--------------------------------------------------------------   *--------------------------------------------------------------
178   *   *
179   * AtomInit --   * AtomInit --
180   *   *
181   *      Initialize atom-related information for a display.   *      Initialize atom-related information for a display.
182   *   *
183   * Results:   * Results:
184   *      None.   *      None.
185   *   *
186   * Side effects:   * Side effects:
187   *      Tables get initialized, etc. etc..   *      Tables get initialized, etc. etc..
188   *   *
189   *--------------------------------------------------------------   *--------------------------------------------------------------
190   */   */
191    
192  static void  static void
193  AtomInit(dispPtr)  AtomInit(dispPtr)
194      register TkDisplay *dispPtr;        /* Display to initialize. */      register TkDisplay *dispPtr;        /* Display to initialize. */
195  {  {
196      Tcl_HashEntry *hPtr;      Tcl_HashEntry *hPtr;
197      Atom atom;      Atom atom;
198    
199      dispPtr->atomInit = 1;      dispPtr->atomInit = 1;
200      Tcl_InitHashTable(&dispPtr->nameTable, TCL_STRING_KEYS);      Tcl_InitHashTable(&dispPtr->nameTable, TCL_STRING_KEYS);
201      Tcl_InitHashTable(&dispPtr->atomTable, TCL_ONE_WORD_KEYS);      Tcl_InitHashTable(&dispPtr->atomTable, TCL_ONE_WORD_KEYS);
202    
203      for (atom = 1; atom <= XA_LAST_PREDEFINED; atom++) {      for (atom = 1; atom <= XA_LAST_PREDEFINED; atom++) {
204          hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);          hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char *) atom);
205          if (hPtr == NULL) {          if (hPtr == NULL) {
206              char *name;              char *name;
207              int new;              int new;
208    
209              name = atomNameArray[atom - 1];              name = atomNameArray[atom - 1];
210              hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,              hPtr = Tcl_CreateHashEntry(&dispPtr->nameTable, (char *) name,
211                  &new);                  &new);
212              Tcl_SetHashValue(hPtr, atom);              Tcl_SetHashValue(hPtr, atom);
213              name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);              name = Tcl_GetHashKey(&dispPtr->nameTable, hPtr);
214              hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,              hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char *) atom,
215                  &new);                  &new);
216              Tcl_SetHashValue(hPtr, name);              Tcl_SetHashValue(hPtr, name);
217          }          }
218      }      }
219  }  }
220    
221  /* End of tkatom.c */  /* End of tkatom.c */
Legend:
Removed from v.69  
changed lines
  Added in v.71
dashley@gmail.com
 ViewVC Help
Powered by ViewVC 1.1.25