/* * File: wx_utils.cc * Purpose: Various utilities (X version) * Author: Julian Smart * Created: 1993 * Updated: August 1994 * RCS_ID: $Id: wx_utils.cc,v 1.64 1994/11/03 00:23:48 edz Exp edz $ * Copyright: (c) 1993, AIAI, University of Edinburgh */ // $Log: wx_utils.cc,v $ // Revision 1.64 1994/11/03 00:23:48 edz // Fixed OS Version function for XView, Motif still needs to // be done. The function returned the X protocol version and not // the Window OS version. // // Revision 1.63 1994/11/02 22:38:00 edz // Slight modification to file find first/next code. // // Revision 1.62 1994/11/02 22:18:13 edz // Modification to wxGetWorkingDirectory(). // // Revision 1.61 1994/11/02 12:31:07 edz // Improved (made consistent) the algorithm for the determination of // the Resource Database directory. // // Revision 1.60 1994/11/02 12:12:30 edz // Sync with reference. // // static const char sccsid[] = "%W% %G%"; #ifdef __GNUG__ #pragma implementation #endif #include #include #include #include #include #include #include #include "common.h" #include "wx_setup.h" #include "wx_utils.h" #include "wx_main.h" #include "wx_dialg.h" // Sun CC compatibility (interference with xview/pkg.h, apparently...) #if defined(SUN_CC) && defined(wx_xview) #undef va_start #undef va_end #undef va_arg #undef va_list #endif #include #include #include #ifdef wx_motif #if !(defined(VMS) || defined(linux) || defined(__sgi) || defined(__hpux) || defined(__ultrix)) || defined(__bsdi__) #include #endif #endif #include #include #include /* Experimental removal: gives string.h conflict on Sun/gcc 2.6.3 */ // #include #include #include #include #ifdef VMS /*steve*/ #ifdef __HIDE_FORBIDDEN_NAMES #undefine __HIDE_FORBIDDEN_NAMES #endif #include #ifdef VAX /*because 'noshare' is not valid in vax C++*/ #define CC$VAXCSHR 1 #endif #include #define unlink DELETE #else #if defined(_AIX) || defined(__xlC__) #include #include #else #ifndef DG #include #endif #endif #include #include #include #include #endif #include // Folks: I put this in for the benefit of Solaris + SunPro compiler, // whose sys/signal.h didn't do the trick. // If this screws things up, we probably need to test for // #if (defined(SVR4) && defined(sun) // instead. #ifdef SVR4 #include #else #include #endif #if defined(__osf__) extern "C" { #include } #else #include #endif #ifndef _MAXPATHLEN #define _MAXPATHLEN 1024 #endif #ifdef wx_xview #include #endif #if USE_RESOURCES #ifdef wx_xview #define use_xview_code #include #endif #endif #ifdef sun # ifndef __GNUG__ # ifndef SUN_CC # define SUN_CC 1 # endif # endif #endif // 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 #if !(defined(DG) || defined(_AIX) || defined(__xlC__) || defined(VMS) || defined(SUN_CC) || defined(__CLCC__) || defined(__hpux) || defined(__osf__) || defined(SVR4)) extern "C" { int select (int, fd_set *, fd_set *, fd_set *, struct timeval *); int sigsetmask (int); int sigblock (int); /* int vfork(); kfc */ long int vfork(); #if !defined(__GNUG__) && !defined(__sgi) int gethostname (char *host, unsigned const namelen); #endif } #endif #ifdef __osf__ extern "C" int gethostname(char *host , int len); extern "C" struct passwd *getpwuid(uid_t uid); extern "C" uid_t getuid(void); #endif #ifdef SVR4 #include #endif #if (defined(SUN_CC) || defined(__CLCC__)) #include #endif #ifdef wx_xview #include #include #include extern Xv_Server xview_server; #endif #ifndef use_xview_code static XrmDatabase wxResourceDatabase = 0; #endif #if USE_RESOURCES void wxXMergeDatabases (wxApp * theApp, Display * display); #endif static char *GetIniFile (char *dest, const char *filename); // Get fully qualified hostname e.g. foo.bar.edu Bool wxGetHostName (char *buf, int maxSize) { #ifdef SVR4 return (sysinfo (SI_HOSTNAME, buf, maxSize) != -1); #else /* BSD Sockets */ char name[255]; struct hostent *h; // Get hostname if (gethostname (name, sizeof (name) / sizeof (char) - 1) == -1) return FALSE; // Get official full name of host strncpy (buf ,(h = gethostbyname (name)) != NULL ? h->h_name : name ,maxSize - 1); return TRUE; #endif } // Get user ID e.g. jacs Bool wxGetUserId (char *buf, int maxSize) { #ifdef VMS *buf = '\0'; // return empty string return FALSE; #else struct passwd *who; if ((who = getpwuid (getuid ())) != NULL) { strncpy (buf, who->pw_name, maxSize - 1); return TRUE; } return FALSE; #endif } // Get user name e.g. Julian Smart Bool wxGetUserName (char *buf, int maxSize) { #ifdef VMS *buf = '\0'; // return empty string return FALSE; #else struct passwd *who; if ((who = getpwuid (getuid ())) != NULL) { strncpy (buf, who->pw_gecos, maxSize - 1); return TRUE; } return FALSE; #endif } // Execute a command (e.g. another program) in a // system-independent manner. // Planned: // wxExecute(const char *command, wxFunction *func) // Bool wxExecute (char **argv, Bool Async) { #ifdef VMS return(FALSE); #else if (*argv == NULL) return FALSE; // Nothing??? // Run a program the recomended way under X (XView) /* fork the process */ #if defined(sun) || defined(__ultrix) || defined(__bsdi__) pid_t pid = vfork (); #else pid_t pid = fork (); #endif if (pid == -1) { perror ("fork failed"); return FALSE; } else if (pid == 0) { /* child */ #ifdef _AIX execvp ((const char *)*argv, (const char **)argv); #else execvp (*argv, argv); #endif if (errno == ENOENT) printf ("%s: command not found\n", *argv); else perror (*argv); printf ("wxWindows: could not execute '%s'\n", *argv); _exit (-1); } #ifdef wx_xview static Notify_client sys_client = 42; notify_set_wait3_func (sys_client, (Notify_func) notify_default_wait3, pid); #endif // Code below is NOT really acceptable! // One should NEVER use wait under X // Ideas? A Sleep idle callback? // WARNING: WARNING: WARNING: WARNING: // The CODE BELOW IS BAD BAD BAD BAD! if (Async) { int status; wxSleep (2); // Give a little time #if !defined(DG) && !defined(_AIX) && !defined(__xlC__) && !defined(SVR4) && !defined(sun) && !defined(__alpha) && !defined(__sgi) && !defined(__hpux) && !defined(__SUNPRO_CC) while (wait ((union wait *) &status) != pid) #else while (wait (&status) != pid) #endif wxSleep(3); // 3 sec? } return TRUE; #endif // end VMS } Bool wxExecute (const char *command, Bool Async) { #ifdef VMS return(FALSE); #else if (command == NULL || *command == '\0') return FALSE; // Nothing to do // Run a program the recomended way under X (XView) int argc = 0; char *argv[127]; char tmp[1024]; const char *IFS = " \t\n"; // Build argument vector strncpy (tmp, command, sizeof (tmp) / sizeof (char) - 1); tmp[sizeof (tmp) / sizeof (char) - 1] = '\0'; argv[argc++] = strtok (tmp, IFS); while ((argv[argc++] = strtok (NULL, IFS)) != NULL) /* loop */ ; return wxExecute(argv, Async); #endif // VMS } // // Execute a program in an Interactive Shell // Bool wxShell(const char *command) { #ifdef VMS return(FALSE); #else #if defined(sun) || defined(__ultrix) || defined(__bsdi__) pid_t pid = vfork (); #else pid_t pid = fork (); #endif switch( pid ) { case -1: /* error */ return(FALSE); case 0: /* child */ #ifdef wx_xview execlp("shelltool", "-c", (char *) command, NULL); #else // Generic X windows terminal window if (command && *command) execlp("xterm", "-e", (char *) command, NULL); else execlp("xterm", NULL); #endif _exit(127); } #ifdef wx_xview static Notify_client sys_client = 42; notify_set_wait3_func (sys_client, (Notify_func) notify_default_wait3, pid); #endif return TRUE; #endif // End VMS } // Get a temporary filename, opening and closing the file. char *wxGetTempFileName (const char *prefix, char *dest) { static short last_temp = 0; // cache last to speed things a bit // At most 1000 temp files to a process! We use a ring count. char buf[64]; for (short suffix = last_temp + 1; suffix != last_temp; ++suffix %= 1000) { sprintf (buf, "/tmp/%s%d.%03x", prefix, (int) getpid (), (int) suffix); if (!wxFileExists (buf)) { // Touch the file to create it (reserve name) FILE *fd = fopen (buf, "w"); if (fd) fclose (fd); last_temp = suffix; if (dest) strcpy(dest, buf); else dest = copystring(buf); return dest; } } cerr << "wxWindows: error finding temporary file name.\n"; if (dest) dest[0] = 0; return NULL; } Bool wxRemoveFile (const char *file) { #ifdef VMS // unlink doesn't work on some ALPHAs // therefore a badbadbad solution // but it works! char cmd[256]; sprintf(cmd,"delete %s;*",file); system(cmd); return(TRUE); #else return ((unlink (file) == 0) ? TRUE : FALSE); #endif } Bool wxMkdir (const char *dir) { // give default perms of owner read and write, group read and // others read. The interface to this func should be changed // to pass the perms info in. // Since directory it must also be searchable @@@ // Added S_IXUSR | S_IXGRP | S_IXOTH #ifdef VMS return FALSE; #else return (mkdir (dir, S_IRUSR | S_IWUSR | S_IXUSR | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH) == 0); #endif } Bool wxRmdir (const char *dir) { #ifdef VMS return FALSE; #else return (rmdir (dir) == 0); #endif } Bool wxDirExists (const char *dir) { #ifdef VMS return FALSE; #else struct stat sbuf; return (stat(dir, &sbuf) != -1) && S_ISDIR(sbuf.st_mode) ? TRUE : FALSE; #endif } // Get first file name matching given wild card. // Flags are reserved for future use. #ifndef VMS static DIR *wxDirStream = NULL; static char *wxFileSpec = NULL; static int wxFindFileFlags = 0; #endif char *wxFindFirstFile(const char *spec, int flags) { #ifndef VMS if (wxDirStream) closedir(wxDirStream); // edz 941103: better housekeping wxFindFileFlags = flags; if (wxFileSpec) delete[] wxFileSpec; wxFileSpec = copystring(spec); static char buf[400]; // Find path only so we can concatenate // found file onto path char *p = wxPathOnly(wxFileSpec); char *n = wxFileNameFromPath(wxFileSpec); if ((wxDirStream=opendir(p))==NULL) return NULL; // Do the reading struct dirent *nextDir; for (nextDir = readdir(wxDirStream); nextDir != NULL; nextDir = readdir(wxDirStream)) { if ((strcmp(nextDir->d_name, ".") == 0) || (strcmp(nextDir->d_name, "..") == 0)) { if (flags == wxDIR) { buf[0] = '\0'; if (p && *p) { strcpy(buf, p); if (strcmp(p, "/") != 0) strcat(buf, "/"); } strcat(buf, nextDir->d_name); return buf; } } else if (!wxIsWild(n) || wxMatchWild(n, nextDir->d_name)) { buf[0] = 0; if (p && *p) { strcpy(buf, p); if (strcmp(p, "/") != 0) strcat(buf, "/"); } strcat(buf, nextDir->d_name); // Check for directory if (flags == wxDIR) { if (wxDirExists(buf)) return buf; } else return buf; } } closedir(wxDirStream); wxDirStream = NULL; #endif // ifndef VMS return NULL; } char *wxFindNextFile(void) { #ifndef VMS static char buf[400]; // Find path only so we can concatenate // found file onto path char *p = wxPathOnly(wxFileSpec); char *n = wxFileNameFromPath(wxFileSpec); // Do the reading struct dirent *nextDir; for (nextDir = readdir(wxDirStream); nextDir != NULL; nextDir = readdir(wxDirStream)) { if ((strcmp(nextDir->d_name, ".") == 0) || (strcmp(nextDir->d_name, "..") == 0)) { if (wxFindFileFlags == wxDIR) { buf[0] = '\0'; if (p && *p) { strcpy(buf, p); if (strcmp(p, "/") != 0) strcat(buf, "/"); } strcat(buf, nextDir->d_name); return buf; } } else if (!wxIsWild(n) || wxMatchWild(n, nextDir->d_name)) { buf[0] = '\0'; if (p && *p) { strcpy(buf, p); if (strcmp(p, "/") != 0) strcat(buf, "/"); } strcat(buf, nextDir->d_name); // Check for directory if (wxFindFileFlags == wxDIR) { if (wxDirExists(buf)) return buf; } else return buf; } } closedir(wxDirStream); wxDirStream = NULL; #endif // ifndef VMS return NULL; } // Get current working directory. // If buf is NULL, allocates space using new, else // copies into buf. char *wxGetWorkingDirectory(char *buf, int sz) { if (!buf) buf = new char[sz+1]; if (getcwd(buf, sz) == NULL) { buf[0] = '.'; buf[1] = '\0'; } return buf; } // Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX) long wxGetFreeMemory (void) { return -1; } // Sleep for nSecs seconds. // XView implementation according to the Heller manual void wxSleep (int nSecs) { #if defined(__sgi) || defined(VMS) sleep (nSecs); #else #if defined(SVR4) // struct sigset_t oldmask, mask; sigset_t oldmask, mask; struct timeval tv; tv.tv_sec = nSecs; tv.tv_usec = 0; sigemptyset (&mask); sigaddset (&mask, SIGIO); sigaddset (&mask, SIGALRM); sigprocmask (SIG_BLOCK, &mask, &oldmask); if ((select (0, 0, 0, 0, &tv)) == -1) { perror ("select in wxSleep"); } // sigprocmask(SIG_BLOCK, &oldmask, (sigset_t *) NULL); // Bug according to Kari sigprocmask (SIG_SETMASK, &oldmask, (sigset_t *) NULL); #else int oldmask, mask; struct timeval tv; tv.tv_sec = nSecs; tv.tv_usec = 0; mask = sigmask (SIGIO); mask |= sigmask (SIGALRM); oldmask = sigblock (mask); if ((select (0, 0, 0, 0, &tv)) == -1) { perror ("select in wxSleep"); } sigsetmask (oldmask); #endif #endif // __sgi } // Consume all events until no more left #ifdef wx_xview extern "C" int xv_input_pending (Display *, int); extern "C" int ndis_dispatch (void); #endif void wxFlushEvents (void) { #ifdef wx_motif XSync (XtDisplay (wxTheApp->topLevel), FALSE); XEvent event; while (XtAppPending (wxTheApp->appContext)) { XFlush (XtDisplay (wxTheApp->topLevel)); XtAppNextEvent (wxTheApp->appContext, &event); XtDispatchEvent (&event); } #endif #ifdef wx_xview Display *display = wxGetDisplay(); XSync (display, FALSE); XFlush (display); /* Causes nasty internal problems. Pity, I thought I'd cracked it... while(XPending(display)) { XEvent event; XPeekEvent(display, &event); xv_input_pending(display, 0); ndis_dispatch(); } */ // My try.... (edz) xv_set(xview_server, SERVER_SYNC_AND_PROCESS_EVENTS, NULL); #endif } // Output a debug mess., in a system dependent fashion. void wxDebugMsg (const char *fmt...) { // #ifndef __sgi va_list ap; char buffer[BUFSIZ]; if (!wxTheApp->wantDebugOutput) return ; va_start (ap, fmt); vsprintf (buffer, fmt, ap); cerr << buffer; va_end (ap); // #else // cerr << "Error: cannot use variable-argument functions on SGI!\n"; // #endif } // Non-fatal error: write error and continue void wxError (const char *msg, const char *title) { cerr << title << ": " << msg << "\n"; } // Fatal error: pop up message box and abort void wxFatalError (const char *msg, const char *title) { cerr << title << ": " << msg << "\n"; exit (1); } // Emit a beeeep... void wxBell () { Display *display = wxGetDisplay(); // Use current setting for the bell XBell (display, 0); } int wxGetOsVersion (int *majorVsn, int *minorVsn) { #ifdef wx_xview Display *display = wxGetDisplay(); // Edward, xview_version not defined! if (majorVsn) *majorVsn = ProtocolVersion (display); if (minorVsn) *minorVsn = ProtocolRevision (display); /* // Fetch Version of XView (not X11) if (majorVsn) *majorVsn = xview_version / 1000; if (minorVsn) *minorVsn = xview_version % 1000; */ return wxXVIEW_X; #elif defined(wx_motif) // This code is WRONG!! Does NOT return the // Motif version of the libs but the X protocol // version! @@@@@ Fix ME!!!!!!!!! Display *display = XtDisplay (wxTheApp->topLevel); if (majorVsn) *majorVsn = ProtocolVersion (display); if (minorVsn) *minorVsn = ProtocolRevision (display); return wxMOTIF_X; #endif } // Reading and writing resources (eg WIN.INI, .Xdefaults) #if USE_RESOURCES static char * GetResourcePath(char *buf, char *name, Bool create = FALSE) { 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 #ifdef wx_xview // OpenWindows home dir (don't know about relative Motif) char *openwin = getenv("OPENWINHOME"); if (openwin) { strcpy(buf, openwin); strcat(buf, "/lib/app-defaults"); } else #endif 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; } /* * We have a cache for writing different resource files, * which will only get flushed when we call wxFlushResources(). * Build up a list of resource databases waiting to be written. * */ wxList wxResourceCache (wxKEY_STRING); void wxFlushResources (void) { char nameBuffer[512]; wxNode *node = wxResourceCache.First (); while (node) { char *file = node->key.string; // 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; } } Bool wxWriteResource (const char *section, const char *entry, char *value, const char *file) { char buffer[500]; (void) GetIniFile (buffer, file); XrmDatabase database; wxNode *node = wxResourceCache.Find (buffer); if (node) database = (XrmDatabase) node->Data (); else { database = XrmGetFileDatabase (buffer); wxResourceCache.Append (buffer, (wxObject *) database); } char resName[300]; strcpy (resName, section); strcat (resName, "."); strcat (resName, entry); XrmPutStringResource (&database, resName, value); return TRUE; } Bool wxWriteResource (const char *section, const char *entry, float value, const char *file) { char buf[50]; sprintf (buf, "%.4f", value); return wxWriteResource (section, entry, buf, file); } Bool wxWriteResource (const char *section, const char *entry, long value, const char *file) { char buf[50]; sprintf (buf, "%ld", value); return wxWriteResource (section, entry, buf, file); } Bool wxWriteResource (const char *section, const char *entry, int value, const char *file) { char buf[50]; sprintf (buf, "%d", value); return wxWriteResource (section, entry, buf, file); } Bool wxGetResource (const char *section, const char *entry, char **value, const char *file) { #ifdef use_xview_code /* @@@ */ // New code using Xview char buf[1024]; char *result; defaults_load_db (GetIniFile (buf, file)); strcpy (buf, section); strcat (buf, "."); strcat (buf, entry); result = (char *) defaults_get_string (buf, buf, "$$default"); if (strcmp (result, "$$default") == 0) return FALSE; if (*value) delete[] value; *value = copystring (result); return TRUE; #else // Old code for XView and code for Motif if (!wxResourceDatabase) { Display *display = wxGetDisplay(); wxXMergeDatabases (wxTheApp, display); } XrmDatabase database; if (file) { char buffer[500]; // Is this right? Trying to get it to look in the user's // home directory instead of current directory -- JACS (void) GetIniFile (buffer, file); wxNode *node = wxResourceCache.Find (buffer); if (node) database = (XrmDatabase) node->Data (); else { database = XrmGetFileDatabase (buffer); wxResourceCache.Append (buffer, (wxObject *) database); } /* wxNode *node = wxResourceCache.Find (file); if (node) database = (XrmDatabase) node->Data (); else { database = XrmGetFileDatabase (file); wxResourceCache.Append (file, (wxObject *) database); } */ } else database = wxResourceDatabase; XrmValue xvalue; char *str_type[20]; char buf[150]; strcpy (buf, section); strcat (buf, "."); strcat (buf, entry); Bool success = XrmGetResource (database, buf, "*", str_type, &xvalue); // Try different combinations of upper/lower case, just in case... if (!success) { buf[0] = (isupper (buf[0]) ? tolower (buf[0]) : toupper (buf[0])); success = XrmGetResource (database, buf, "*", str_type, &xvalue); } if (success) { if (*value) delete[] *value; *value = new char[xvalue.size + 1]; strncpy (*value, xvalue.addr, (int) xvalue.size); return TRUE; } return FALSE; #endif // use_xview_code } Bool wxGetResource (const char *section, const char *entry, float *value, const char *file) { char *s = NULL; Bool succ = wxGetResource (section, entry, &s, file); if (succ) { *value = (float) strtod (s, NULL); delete[]s; return TRUE; } else return FALSE; } Bool wxGetResource (const char *section, const char *entry, long *value, const char *file) { char *s = NULL; Bool succ = wxGetResource (section, entry, &s, file); if (succ) { *value = strtol (s, NULL, 10); delete[]s; return TRUE; } else return FALSE; } Bool wxGetResource (const char *section, const char *entry, int *value, const char *file) { char *s = NULL; Bool succ = wxGetResource (section, entry, &s, file); if (succ) { // Handle True, False here // True, Yes, Enables, Set or Activated if (*s == 'T' || *s == 'Y' || *s == 'E' || *s == 'S' || *s == 'A') *value = TRUE; // False, No, Disabled, Reset, Cleared, Deactivated else if (*s == 'F' || *s == 'N' || *s == 'D' || *s == 'R' || *s == 'C') *value = FALSE; // Handle as Integer else *value = (int) strtol (s, NULL, 10); delete[]s; return TRUE; } else return FALSE; } #ifdef XXXX #ifdef wx_motif /* * Not yet used but may be useful. * */ void wxSetDefaultResources (const Widget w, const char **resourceSpec, const char *name) { int i; Display *dpy = XtDisplay (w); // Retrieve the display pointer XrmDatabase rdb = NULL; // A resource data base // Create an empty resource database rdb = XrmGetStringDatabase (""); // Add the Component resources, prepending the name of the component i = 0; while (resourceSpec[i] != NULL) { char buf[1000]; sprintf (buf, "*%s%s", name, resourceSpec[i++]); XrmPutLineResource (&rdb, buf); } // Merge them into the Xt database, with lowest precendence if (rdb) { #if (XlibSpecificationRelease>=5) XrmDatabase db = XtDatabase (dpy); XrmCombineDatabase (rdb, &db, FALSE); #else XrmMergeDatabases (dpy->db, &rdb); dpy->db = rdb; #endif } } #endif #endif // 0 #ifndef use_xview_code /* * Merging defaults databases. We need to find resource information * from various sources and merge them before we query resources. * */ void wxXMergeDatabases (wxApp * theApp, Display * display) { XrmDatabase homeDB, serverDB, applicationDB; char filenamebuf[1024]; char *filename = &filenamebuf[0]; char *environment; char *classname = theApp->wx_class; char name[256]; (void) strcpy (name, "/usr/lib/X11/app-defaults/"); (void) strcat (name, classname); /* Get application defaults file, if any */ 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 (display) != NULL) { serverDB = XrmGetStringDatabase (XResourceManagerString (display)); } else { (void) GetIniFile (filename, NULL); serverDB = XrmGetFileDatabase (filename); } 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, NULL); len = strlen (environment); #ifndef SVR4 (void) gethostname (environment + len, 1024 - len); #else (void) sysinfo (SI_HOSTNAME, environment + len, 1024 - len); #endif } homeDB = XrmGetFileDatabase (environment); XrmMergeDatabases (homeDB, &wxResourceDatabase); } #endif // !use_xview_code #endif /* USE_RESOURCES */ // 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 = NULL; if (filename && wxIsAbsolutePath(filename)) { strcpy(dest, filename); } else if ((home = wxGetUserHome(NULL)) != 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; } // SOON History.... char *wxGetHomeDir(char *dest) { #ifdef VMS *dest = '\0'; // return an empty string #else char *ptr = wxGetUserHome(NULL); strcpy(dest, ptr && *ptr ? ptr : "/"); #endif // ifdef VMS return dest; } // 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. char *wxGetUserHome (const char *user) { #ifdef VMS return(NULL); #else struct passwd *who = NULL; if (user == NULL || *user == '\0') { register char *ptr; if ((ptr = getenv("HOME")) != NULL) return ptr; if ((ptr = getenv("USER")) != NULL || (ptr = getenv("LOGNAME")) != NULL) { who = getpwnam( ptr ); } // We now make sure the the user exists! if (who == NULL) who = getpwuid( getuid() ); } else who = getpwnam (user); return who ? who->pw_dir : NULL; #endif // ifdef VMS } // Get X display: often needed in the wxWindows implementation. Display *wxGetDisplay(void) { #ifdef wx_motif return XtDisplay (wxTheApp->topLevel); #endif #ifdef wx_xview Xv_Screen screen = xv_get (xview_server, SERVER_NTH_SCREEN, 0); Xv_opaque root_window = xv_get (screen, XV_ROOT); return (Display *) xv_get (root_window, XV_DISPLAY); #endif } // Helper function for XView #ifdef wx_xview static void SetXCursor(wxWindow *win, wxCursor *cursor) { Display *dpy = win->GetXDisplay(); Window xwin = win->GetXWindow(); if (cursor) { if (cursor->x_cursor) { if (cursor->use_raw_x_cursor) { XDefineCursor(dpy, xwin, cursor->x_cursor); } else { Xv_opaque x_win = (Xv_opaque)win->handle; if (wxSubType(win->__type, wxTYPE_CANVAS)) { Xv_Window win2 = xv_get(x_win, CANVAS_NTH_PAINT_WINDOW, 0); xv_set(win2, WIN_CURSOR, cursor->x_cursor, NULL); } else xv_set(x_win, WIN_CURSOR, cursor->x_cursor, NULL); } } } else { XSetWindowAttributes attrs; attrs.cursor = None; XChangeWindowAttributes (dpy, xwin, CWCursor, &attrs); } } #endif // Old cursor static int wxBusyCursorCount = FALSE; // Helper function static void wxXSetBusyCursor (wxWindow * win, wxCursor * cursor) { Display *display = win->GetXDisplay(); #ifdef wx_motif Window xwin = win->GetXWindow(); XSetWindowAttributes attrs; if (cursor) { attrs.cursor = cursor->x_cursor; } else { // Restore old cursor if (win->wx_cursor) attrs.cursor = win->wx_cursor->x_cursor; else attrs.cursor = None; } if (xwin) XChangeWindowAttributes (display, xwin, CWCursor, &attrs); #endif #ifdef wx_xview if (cursor) SetXCursor(win, cursor); else SetXCursor(win, win->wx_cursor); #endif XFlush (display); // Forget old cursor if we're resetting // if (!cursor) // win->currentWindowCursor = 0; for(wxNode *node = win->GetChildren()->First (); node; node = node->Next()) { wxWindow *child = (wxWindow *) node->Data (); if (wxSubType (child->__type, wxTYPE_FRAME) || wxSubType (child->__type, wxTYPE_CANVAS) || wxSubType (child->__type, wxTYPE_PANEL) || wxSubType (child->__type, wxTYPE_TEXT_WINDOW)) wxXSetBusyCursor (child, cursor); } } // Set the cursor to the busy cursor for all windows void wxBeginBusyCursor (wxCursor * cursor) { wxBusyCursorCount++; if (wxBusyCursorCount == 1) { for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next()) { wxWindow *win = (wxWindow *) node->Data (); wxXSetBusyCursor (win, cursor); } } } // Restore cursor to normal void wxEndBusyCursor (void) { if (wxBusyCursorCount == 0) return; wxBusyCursorCount--; if (wxBusyCursorCount == 0) { for(wxNode *node = wxTopLevelWindows.First (); node; node = node->Next()) { wxWindow *win = (wxWindow *) node->Data (); wxXSetBusyCursor (win, NULL); } } } // TRUE if we're between the above two calls Bool wxIsBusy (void) { return (wxBusyCursorCount > 0); } /* * Some colour manipulation routines */ void wxHSVToXColor(wxHSV *hsv,XColor *rgb) { int h = hsv->h; int s = hsv->s; int v = hsv->v; int r, g, b; int i, f; int p, q, t; s = (s * wxMAX_RGB) / wxMAX_SV; v = (v * wxMAX_RGB) / wxMAX_SV; if (h == 360) h = 0; if (s == 0) { h = 0; r = g = b = v; } i = h / 60; f = h % 60; p = v * (wxMAX_RGB - s) / wxMAX_RGB; q = v * (wxMAX_RGB - s * f / 60) / wxMAX_RGB; t = v * (wxMAX_RGB - s * (60 - f) / 60) / wxMAX_RGB; switch (i) { case 0: r = v, g = t, b = p; break; case 1: r = q, g = v, b = p; break; case 2: r = p, g = v, b = t; break; case 3: r = p, g = q, b = v; break; case 4: r = t, g = p, b = v; break; case 5: r = v, g = p, b = q; break; } rgb->red = r << 8; rgb->green = g << 8; rgb->blue = b << 8; } void wxXColorToHSV(wxHSV *hsv,XColor *rgb) { int r = rgb->red >> 8; int g = rgb->green >> 8; int b = rgb->blue >> 8; int maxv = wxMax3(r, g, b); int minv = wxMin3(r, g, b); int h, s, v; v = maxv; if (maxv) s = (maxv - minv) * wxMAX_RGB / maxv; else s = 0; if (s == 0) h = 0; else { int rc, gc, bc, hex; rc = (maxv - r) * wxMAX_RGB / (maxv - minv); gc = (maxv - g) * wxMAX_RGB / (maxv - minv); bc = (maxv - b) * wxMAX_RGB / (maxv - minv); if (r == maxv) { h = bc - gc, hex = 0; } else if (g == maxv) { h = rc - bc, hex = 2; } else if (b == maxv) { h = gc - rc, hex = 4; } h = hex * 60 + (h * 60 / wxMAX_RGB); if (h < 0) h += 360; } hsv->h = h; hsv->s = (s * wxMAX_SV) / wxMAX_RGB; hsv->v = (v * wxMAX_SV) / wxMAX_RGB; } void wxAllocNearestColor(Display *d,Colormap cmp,XColor *xc) { int llp; int screen = DefaultScreen(d); int num_colors = DisplayCells(d,screen); XColor *color_defs = new XColor[num_colors]; for(llp = 0;llp < num_colors;llp++) color_defs[llp].pixel = llp; XQueryColors(d,cmp,color_defs,num_colors); wxHSV hsv_defs, hsv; wxXColorToHSV(&hsv,xc); int diff, min_diff, pixel = 0; for(llp = 0;llp < num_colors;llp++) { wxXColorToHSV(&hsv_defs,&color_defs[llp]); diff = wxSIGN(wxH_WEIGHT * (hsv.h - hsv_defs.h)) + wxSIGN(wxS_WEIGHT * (hsv.s - hsv_defs.s)) + wxSIGN(wxV_WEIGHT * (hsv.v - hsv_defs.v)); if (llp == 0) min_diff = diff; if (min_diff > diff) { min_diff = diff; pixel = llp; } if (min_diff == 0) break; } xc -> red = color_defs[pixel].red; xc -> green = color_defs[pixel].green; xc -> blue = color_defs[pixel].blue; xc -> flags = DoRed | DoGreen | DoBlue; if (!XAllocColor(d,cmp,xc)) cout << "wxAllocNearestColor : Warning : Cannot find nearest color !\n"; delete color_defs; } void wxAllocColor(Display *d,Colormap cmp,XColor *xc) { if (!XAllocColor(d,cmp,xc)) { // cout << "wxAllocColor : Warning : Can not allocate color, attempt find nearest !\n"; wxAllocNearestColor(d,cmp,xc); } }