]> git.saurik.com Git - wxWidgets.git/blob - src/gtk1/utilsres.cpp
Added dummy DeleteChildren so the sample will at least link.
[wxWidgets.git] / src / gtk1 / utilsres.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: utils.cpp
3 // Purpose:
4 // Author: Robert Roebling
5 // Id: $Id$
6 // Copyright: (c) 1998 Robert Roebling, Julian Smart and Markus Holzem
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
9
10
11 //#ifdef __GNUG__
12 //#pragma implementation "utils.h"
13 //#endif
14
15 #include "wx/utils.h"
16 #include "wx/string.h"
17 #include "wx/list.h"
18
19 #include <ctype.h>
20 #include <string.h>
21 #include <unistd.h>
22 #ifdef __SVR4__
23 #include <sys/systeminfo.h>
24 #endif
25
26 #include "gdk/gdkx.h" // GDK_DISPLAY
27 #include "gdk/gdkprivate.h" // gdk_progclass
28
29 #include <X11/Xlib.h>
30 #include <X11/Xutil.h>
31 #include <X11/Xresource.h>
32
33 #include "wx/log.h"
34
35 //-----------------------------------------------------------------------------
36 // constants
37 //-----------------------------------------------------------------------------
38
39 // Yuck this is really BOTH site and platform dependent
40 // so we should use some other strategy!
41 #ifdef __SUN__
42 #define DEFAULT_XRESOURCE_DIR "/usr/openwin/lib/app-defaults"
43 #else
44 #define DEFAULT_XRESOURCE_DIR "/usr/lib/X11/app-defaults"
45 #endif
46
47 //-----------------------------------------------------------------------------
48 // glabal data (data.cpp)
49 //-----------------------------------------------------------------------------
50
51 extern wxResourceCache *wxTheResourceCache;
52 extern XrmDatabase wxResourceDatabase;
53
54 //-----------------------------------------------------------------------------
55 // utility functions for get/write resources
56 //-----------------------------------------------------------------------------
57
58 static char *GetResourcePath(char *buf, char *name, bool create)
59 {
60 if (create && FileExists(name)) {
61 strcpy(buf, name);
62 return buf; // Exists so ...
63 }
64 if (*name == '/')
65 strcpy(buf, name);
66 else {
67 // Put in standard place for resource files if not absolute
68 strcpy(buf, DEFAULT_XRESOURCE_DIR);
69 strcat(buf, "/");
70 strcat(buf, FileNameFromPath(name));
71 }
72 if (create) {
73 // Touch the file to create it
74 FILE *fd = fopen(buf, "w");
75 if (fd) fclose(fd);
76 }
77 return buf;
78 }
79
80 // Read $HOME for what it says is home, if not
81 // read $USER or $LOGNAME for user name else determine
82 // the Real User, then determine the Real home dir.
83 static char *GetIniFile(char *dest, const char *filename)
84 {
85 char *home = (char *) NULL;
86 if (filename && wxIsAbsolutePath(filename))
87 {
88 strcpy(dest, filename);
89 }
90 else
91 {
92 if ((home = wxGetUserHome(wxString())) != NULL)
93 {
94 strcpy(dest, home);
95 if (dest[strlen(dest) - 1] != '/') strcat(dest, "/");
96 if (filename == NULL)
97 {
98 if ((filename = getenv("XENVIRONMENT")) == NULL) filename = ".Xdefaults";
99 }
100 else
101 if (*filename != '.') strcat(dest, ".");
102 strcat(dest, filename);
103 }
104 else
105 {
106 dest[0] = '\0';
107 }
108 }
109 return dest;
110 }
111
112 static void wxXMergeDatabases()
113 {
114 XrmDatabase homeDB, serverDB, applicationDB;
115 char filenamebuf[1024];
116
117 char *filename = &filenamebuf[0];
118 char *environment;
119 char *classname = gdk_progclass; // Robert Roebling ??
120 char name[256];
121 (void)strcpy(name, "/usr/lib/X11/app-defaults/");
122 (void)strcat(name, classname ? classname : "wxWindows");
123
124 // Get application defaults file, if any
125 if ((applicationDB = XrmGetFileDatabase(name)))
126 (void)XrmMergeDatabases(applicationDB, &wxResourceDatabase);
127
128 // Merge server defaults, created by xrdb, loaded as a property of the root
129 // window when the server initializes and loaded into the display
130 // structure on XOpenDisplay;
131 // if not defined, use .Xdefaults
132 if (XResourceManagerString(GDK_DISPLAY()) != NULL) {
133 serverDB = XrmGetStringDatabase(XResourceManagerString(GDK_DISPLAY()));
134 } else {
135 (void)GetIniFile(filename, (char *) NULL);
136 serverDB = XrmGetFileDatabase(filename);
137 }
138 if (serverDB)
139 XrmMergeDatabases(serverDB, &wxResourceDatabase);
140
141 // Open XENVIRONMENT file, or if not defined, the .Xdefaults,
142 // and merge into existing database
143
144 if ((environment = getenv("XENVIRONMENT")) == NULL) {
145 size_t len;
146 environment = GetIniFile(filename, (const char *) NULL);
147 len = strlen(environment);
148 #if !defined(SVR4) || defined(__sgi)
149 (void)gethostname(environment + len, 1024 - len);
150 #else
151 (void)sysinfo(SI_HOSTNAME, environment + len, 1024 - len);
152 #endif
153 }
154 if ((homeDB = XrmGetFileDatabase(environment)))
155 XrmMergeDatabases(homeDB, &wxResourceDatabase);
156 }
157
158 //-----------------------------------------------------------------------------
159 // called on application exit
160 //-----------------------------------------------------------------------------
161
162 void wxFlushResources()
163 {
164 char nameBuffer[512];
165
166 wxNode *node = wxTheResourceCache->First();
167 while (node) {
168 wxString str = node->GetKeyString();
169 char *file = WXSTRINGCAST str;
170 // If file doesn't exist, create it first.
171 (void)GetResourcePath(nameBuffer, file, TRUE);
172
173 XrmDatabase database = (XrmDatabase)node->Data();
174 XrmPutFileDatabase(database, nameBuffer);
175 XrmDestroyDatabase(database);
176 wxNode *next = node->Next();
177 // delete node;
178 node = next;
179 }
180 }
181
182 void wxDeleteResources(const char *file)
183 {
184 wxLogTrace(wxTraceResAlloc, "Delete: Number = %d", wxTheResourceCache->Number());
185 char buffer[500];
186 (void)GetIniFile(buffer, file);
187
188 wxNode *node = wxTheResourceCache->Find(buffer);
189 if (node) {
190 XrmDatabase database = (XrmDatabase)node->Data();
191 XrmDestroyDatabase(database);
192 // delete node;
193 }
194 }
195
196 //-----------------------------------------------------------------------------
197 // resource functions
198 //-----------------------------------------------------------------------------
199
200 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file )
201 {
202 char buffer[500];
203
204 if (!entry) return FALSE;
205
206 (void)GetIniFile(buffer, file);
207
208 XrmDatabase database;
209 wxNode *node = wxTheResourceCache->Find(buffer);
210 if (node)
211 database = (XrmDatabase)node->Data();
212 else {
213 database = XrmGetFileDatabase(buffer);
214 wxLogTrace(wxTraceResAlloc, "Write: Number = %d", wxTheResourceCache->Number());
215 wxTheResourceCache->Append(buffer, (wxObject *)database);
216 }
217 char resName[300];
218 strcpy(resName, !section.IsNull() ? WXSTRINGCAST section : "wxWindows");
219 strcat(resName, ".");
220 strcat(resName, entry);
221 XrmPutStringResource(&database, resName, value);
222 return TRUE;
223 };
224
225 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file )
226 {
227 char buf[50];
228 sprintf(buf, "%.4f", value);
229 return wxWriteResource(section, entry, buf, file);
230 };
231
232 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file )
233 {
234 char buf[50];
235 sprintf(buf, "%ld", value);
236 return wxWriteResource(section, entry, buf, file);
237 };
238
239 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file )
240 {
241 char buf[50];
242 sprintf(buf, "%d", value);
243 return wxWriteResource(section, entry, buf, file);
244 };
245
246 bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file )
247 {
248 if (!wxResourceDatabase)
249 wxXMergeDatabases();
250
251 XrmDatabase database;
252 if (file) {
253 char buffer[500];
254 // Is this right? Trying to get it to look in the user's
255 // home directory instead of current directory -- JACS
256 (void)GetIniFile(buffer, file);
257
258 wxNode *node = wxTheResourceCache->Find(buffer);
259 if (node)
260 database = (XrmDatabase)node->Data();
261 else {
262 database = XrmGetFileDatabase(buffer);
263 wxLogTrace(wxTraceResAlloc, "Get: Number = %d", wxTheResourceCache->Number());
264 wxTheResourceCache->Append(buffer, (wxObject *)database);
265 }
266 } else
267 database = wxResourceDatabase;
268
269 XrmValue xvalue;
270 char *str_type[20];
271 char buf[150];
272 strcpy(buf, section);
273 strcat(buf, ".");
274 strcat(buf, entry);
275
276 bool success = XrmGetResource(database, buf, "*", str_type, &xvalue);
277 // Try different combinations of upper/lower case, just in case...
278 if (!success) {
279 buf[0] = (isupper(buf[0]) ? tolower(buf[0]) : toupper(buf[0]));
280 success = XrmGetResource(database, buf, "*", str_type, &xvalue);
281 }
282 if (success) {
283 if (*value)
284 delete[] *value;
285 *value = new char[xvalue.size + 1];
286 strncpy(*value, xvalue.addr, (int)xvalue.size);
287 return TRUE;
288 }
289 return FALSE;
290 };
291
292 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file )
293 {
294 char *s = (char *) NULL;
295 bool succ = wxGetResource(section, entry, &s, file);
296 if (succ) {
297 *value = (float)strtod(s, (char **) NULL);
298 delete[]s;
299 return TRUE;
300 } else
301 return FALSE;
302 };
303
304 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file )
305 {
306 char *s = (char *) NULL;
307 bool succ = wxGetResource(section, entry, &s, file);
308 if (succ) {
309 *value = strtol(s, (char **) NULL, 10);
310 delete[]s;
311 return TRUE;
312 } else
313 return FALSE;
314 };
315
316 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file )
317 {
318 char *s = (char *) NULL;
319 bool succ = wxGetResource(section, entry, &s, file);
320 if (succ) {
321 // Handle True, False here
322 // True, Yes, Enables, Set or Activated
323 if (*s == 'T' || *s == 'Y' || *s == 'E' || *s == 'S' || *s == 'A')
324 *value = TRUE;
325 // False, No, Disabled, Reset, Cleared, Deactivated
326 else if (*s == 'F' || *s == 'N' || *s == 'D' || *s == 'R' || *s == 'C')
327 *value = FALSE;
328 // Handle as Integer
329 else
330 *value = (int)strtol(s, (char **) NULL, 10);
331 delete[]s;
332 return TRUE;
333 } else
334 return FALSE;
335 };
336