-
-//-----------------------------------------------------------------------------
-// constants
-//-----------------------------------------------------------------------------
-
-// Yuck this is really BOTH site and platform dependent
-// so we should use some other strategy!
-#ifdef __SUN__
- #define DEFAULT_XRESOURCE_DIR "/usr/openwin/lib/app-defaults"
-#else
- #define DEFAULT_XRESOURCE_DIR "/usr/lib/X11/app-defaults"
-#endif
-
-//-----------------------------------------------------------------------------
-// glabal data (data.cpp)
-//-----------------------------------------------------------------------------
-
-extern wxResourceCache *wxTheResourceCache;
-extern XrmDatabase wxResourceDatabase;
-
-//-----------------------------------------------------------------------------
-// utility functions for get/write resources
-//-----------------------------------------------------------------------------
-
-static char *GetResourcePath(char *buf, char *name, bool create)
-{
- if (create && FileExists(name)) {
- strcpy(buf, name);
- return buf; // Exists so ...
- }
- if (*name == '/')
- strcpy(buf, name);
- else {
- // Put in standard place for resource files if not absolute
- strcpy(buf, DEFAULT_XRESOURCE_DIR);
- strcat(buf, "/");
- strcat(buf, FileNameFromPath(name));
- }
- if (create) {
- // Touch the file to create it
- FILE *fd = fopen(buf, "w");
- if (fd) fclose(fd);
- }
- return buf;
-}
-
-// Read $HOME for what it says is home, if not
-// read $USER or $LOGNAME for user name else determine
-// the Real User, then determine the Real home dir.
-static char *GetIniFile(char *dest, const char *filename)
-{
- char *home = (char *) NULL;
- if (filename && wxIsAbsolutePath(filename))
- {
- strcpy(dest, filename);
- }
- else
- {
- if ((home = wxGetUserHome(wxString())) != NULL)
- {
- strcpy(dest, home);
- if (dest[strlen(dest) - 1] != '/') strcat(dest, "/");
- if (filename == NULL)
- {
- if ((filename = getenv("XENVIRONMENT")) == NULL) filename = ".Xdefaults";
- }
- else
- if (*filename != '.') strcat(dest, ".");
- strcat(dest, filename);
- }
- else
- {
- dest[0] = '\0';
- }
- }
- return dest;
-}
-
-static void wxXMergeDatabases()
-{
- XrmDatabase homeDB, serverDB, applicationDB;
- char filenamebuf[1024];
-
- char *filename = &filenamebuf[0];
- char *environment;
- char *classname = gdk_progclass; // Robert Roebling ??
- char name[256];
- (void)strcpy(name, "/usr/lib/X11/app-defaults/");
- (void)strcat(name, classname ? classname : "wxWindows");
-
- // Get application defaults file, if any
- if ((applicationDB = XrmGetFileDatabase(name)))
- (void)XrmMergeDatabases(applicationDB, &wxResourceDatabase);
-
- // Merge server defaults, created by xrdb, loaded as a property of the root
- // window when the server initializes and loaded into the display
- // structure on XOpenDisplay;
- // if not defined, use .Xdefaults
- if (XResourceManagerString(GDK_DISPLAY()) != NULL) {
- serverDB = XrmGetStringDatabase(XResourceManagerString(GDK_DISPLAY()));
- } else {
- (void)GetIniFile(filename, (char *) NULL);
- serverDB = XrmGetFileDatabase(filename);
- }
- if (serverDB)
- XrmMergeDatabases(serverDB, &wxResourceDatabase);
-
- // Open XENVIRONMENT file, or if not defined, the .Xdefaults,
- // and merge into existing database
-
- if ((environment = getenv("XENVIRONMENT")) == NULL) {
- size_t len;
- environment = GetIniFile(filename, (const char *) NULL);
- len = strlen(environment);
-#if !defined(SVR4) || defined(__sgi)
- (void)gethostname(environment + len, 1024 - len);
-#else
- (void)sysinfo(SI_HOSTNAME, environment + len, 1024 - len);
-#endif
- }
- if ((homeDB = XrmGetFileDatabase(environment)))
- XrmMergeDatabases(homeDB, &wxResourceDatabase);
-}
-
-//-----------------------------------------------------------------------------
-// called on application exit
-//-----------------------------------------------------------------------------
-
-void wxFlushResources()
-{
- char nameBuffer[512];
-
- wxNode *node = wxTheResourceCache->First();
- while (node) {
- wxString str = node->GetKeyString();
- char *file = WXSTRINGCAST str;
- // If file doesn't exist, create it first.
- (void)GetResourcePath(nameBuffer, file, TRUE);
-
- XrmDatabase database = (XrmDatabase)node->Data();
- XrmPutFileDatabase(database, nameBuffer);
- XrmDestroyDatabase(database);
- wxNode *next = node->Next();
-// delete node;
- node = next;
- }
-}
-
-void wxDeleteResources(const char *file)
-{
- wxLogTrace(wxTraceResAlloc, "Delete: Number = %d", wxTheResourceCache->Number());
- char buffer[500];
- (void)GetIniFile(buffer, file);
-
- wxNode *node = wxTheResourceCache->Find(buffer);
- if (node) {
- XrmDatabase database = (XrmDatabase)node->Data();
- XrmDestroyDatabase(database);
-// delete node;
- }
-}