src/gtk/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(void)
 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(void)
 163 {
 164     char nameBuffer[512];
 165
 166     wxNode *node = wxTheResourceCache->First();
 167     while (node) {
 168         char *file = node->key.string;
 169         // If file doesn't exist, create it first.
 170         (void)GetResourcePath(nameBuffer, file, TRUE);
 171
 172         XrmDatabase database = (XrmDatabase)node->Data();
 173         XrmPutFileDatabase(database, nameBuffer);
 174         XrmDestroyDatabase(database);
 175         wxNode *next = node->Next();
 176 //        delete node;
 177         node = next;
 178     }
 179 }
 180
 181 void wxDeleteResources(const char *file)
 182 {
 183     wxLogTrace(wxTraceResAlloc, "Delete: Number = %d", wxTheResourceCache->Number());
 184     char buffer[500];
 185     (void)GetIniFile(buffer, file);
 186
 187     wxNode *node = wxTheResourceCache->Find(buffer);
 188     if (node) {
 189         XrmDatabase database = (XrmDatabase)node->Data();
 190         XrmDestroyDatabase(database);
 191 //        delete node;
 192     }
 193 }
 194
 195 //-----------------------------------------------------------------------------
 196 // resource functions
 197 //-----------------------------------------------------------------------------
 198
 199 bool wxWriteResource(const wxString& section, const wxString& entry, const wxString& value, const wxString& file )
 200 {
 201     char buffer[500];
 202
 203     if (!entry) return FALSE;
 204
 205     (void)GetIniFile(buffer, file);
 206
 207     XrmDatabase database;
 208     wxNode *node = wxTheResourceCache->Find(buffer);
 209     if (node)
 210         database = (XrmDatabase)node->Data();
 211     else {
 212         database = XrmGetFileDatabase(buffer);
 213         wxLogTrace(wxTraceResAlloc, "Write: Number = %d", wxTheResourceCache->Number());
 214         wxTheResourceCache->Append(buffer, (wxObject *)database);
 215     }
 216     char resName[300];
 217     strcpy(resName, !section.IsNull() ? WXSTRINGCAST section : "wxWindows");
 218     strcat(resName, ".");
 219     strcat(resName, entry);
 220     XrmPutStringResource(&database, resName, value);
 221     return TRUE;
 222 };
 223
 224 bool wxWriteResource(const wxString& section, const wxString& entry, float value, const wxString& file )
 225 {
 226     char buf[50];
 227     sprintf(buf, "%.4f", value);
 228     return wxWriteResource(section, entry, buf, file);
 229 };
 230
 231 bool wxWriteResource(const wxString& section, const wxString& entry, long value, const wxString& file )
 232 {
 233     char buf[50];
 234     sprintf(buf, "%ld", value);
 235     return wxWriteResource(section, entry, buf, file);
 236 };
 237
 238 bool wxWriteResource(const wxString& section, const wxString& entry, int value, const wxString& file )
 239 {
 240     char buf[50];
 241     sprintf(buf, "%d", value);
 242     return wxWriteResource(section, entry, buf, file);
 243 };
 244
 245 bool wxGetResource(const wxString& section, const wxString& entry, char **value, const wxString& file )
 246 {
 247     if (!wxResourceDatabase)
 248         wxXMergeDatabases();
 249
 250     XrmDatabase database;
 251     if (file) {
 252         char buffer[500];
 253         // Is this right? Trying to get it to look in the user's
 254         // home directory instead of current directory -- JACS
 255         (void)GetIniFile(buffer, file);
 256
 257         wxNode *node = wxTheResourceCache->Find(buffer);
 258         if (node)
 259             database = (XrmDatabase)node->Data();
 260         else {
 261             database = XrmGetFileDatabase(buffer);
 262             wxLogTrace(wxTraceResAlloc, "Get: Number = %d", wxTheResourceCache->Number());
 263             wxTheResourceCache->Append(buffer, (wxObject *)database);
 264         }
 265     } else
 266         database = wxResourceDatabase;
 267
 268     XrmValue xvalue;
 269     char *str_type[20];
 270     char buf[150];
 271     strcpy(buf, section);
 272     strcat(buf, ".");
 273     strcat(buf, entry);
 274
 275     bool success = XrmGetResource(database, buf, "*", str_type, &xvalue);
 276     // Try different combinations of upper/lower case, just in case...
 277     if (!success) {
 278         buf[0] = (isupper(buf[0]) ? tolower(buf[0]) : toupper(buf[0]));
 279         success = XrmGetResource(database, buf, "*", str_type,        &xvalue);
 280     }
 281     if (success) {
 282         if (*value)
 283             delete[] *value;
 284         *value = new char[xvalue.size + 1];
 285         strncpy(*value, xvalue.addr, (int)xvalue.size);
 286         return TRUE;
 287     }
 288     return FALSE;
 289 };
 290
 291 bool wxGetResource(const wxString& section, const wxString& entry, float *value, const wxString& file )
 292 {
 293     char *s = (char *) NULL;
 294     bool succ = wxGetResource(section, entry, &s, file);
 295     if (succ) {
 296         *value = (float)strtod(s, (char **) NULL);
 297         delete[]s;
 298         return TRUE;
 299     } else
 300         return FALSE;
 301 };
 302
 303 bool wxGetResource(const wxString& section, const wxString& entry, long *value, const wxString& file )
 304 {
 305     char *s = (char *) NULL;
 306     bool succ = wxGetResource(section, entry, &s, file);
 307     if (succ) {
 308         *value = strtol(s, (char **) NULL, 10);
 309         delete[]s;
 310         return TRUE;
 311     } else
 312         return FALSE;
 313 };
 314
 315 bool wxGetResource(const wxString& section, const wxString& entry, int *value, const wxString& file )
 316 {
 317     char *s = (char *) NULL;
 318     bool succ = wxGetResource(section, entry, &s, file);
 319     if (succ) {
 320         // Handle True, False here
 321         // True, Yes, Enables, Set or  Activated
 322         if (*s == 'T' || *s == 'Y' || *s == 'E' || *s == 'S' || *s == 'A')
 323             *value = TRUE;
 324         // False, No, Disabled, Reset, Cleared, Deactivated
 325         else if (*s == 'F' || *s == 'N' || *s == 'D' || *s == 'R' || *s == 'C')
 326             *value = FALSE;
 327         // Handle as Integer
 328         else
 329             *value = (int)strtol(s, (char **) NULL, 10);
 330         delete[]s;
 331         return TRUE;
 332     } else
 333         return FALSE;
 334 };
 335