Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtcalc/ds_xlib.c

@@ -0,0 +1,278 @@
+/* $XConsortium: ds_xlib.c /main/3 1995/11/01 12:40:45 rswiston $ */
+/*									*
+ *  ds_xlib.c                                                           *
+ *   Contains some common functions which use the xlib library used     *
+ *   throughout the Desktop Calculator.                                 *
+ *                                                                      *
+ * (c) Copyright 1993, 1994 Hewlett-Packard Company			*
+ * (c) Copyright 1993, 1994 International Business Machines Corp.	*
+ * (c) Copyright 1993, 1994 Sun Microsystems, Inc.			*
+ * (c) Copyright 1993, 1994 Novell, Inc. 				*
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <sys/param.h>
+#include <sys/stat.h>
+#include "ds_xlib.h"
+#include <X11/Xutil.h>
+#include <X11/StringDefs.h>
+#include <Xm/Xm.h>
+#include <Xm/Protocols.h>
+
+#define  FREE         (void) free
+#define  FPRINTF      (void) fprintf
+#define  GETHOSTNAME  (void) gethostname
+#define  SPRINTF      (void) sprintf
+#define  STRCPY       (void) strcpy
+
+#define  EQUAL(a, b)  !strncmp(a, b, strlen(b))
+#define  MAXLINE      120        /* Maximum length for character strings. */
+
+/*  Function:     ds_beep()
+ *
+ *  Purpose:      Ring the bell (at base volume).
+ *
+ *  Parameters:   display    connection to the X server.
+ *                           (returned from XOpenDisplay).
+ *
+ *  Returns:      None.
+ */
+
+void
+ds_beep(display)
+Display *display ;
+{
+  XBell(display, 0) ;
+}
+
+
+
+/*  Function:     ds_get_resource()
+ *
+ *  Purpose:      Get an X resource from the server.
+ *
+ *  Parameters:   rDB          X resources database.
+ *
+ *                appname      application name.
+ *
+ *                resource     X resource string to search for.
+ *
+ *  Returns:      resource string, or NULL if not found.
+ *
+ *  Note:         The first character of the appname and resource strings may
+ *                be modified.
+ */
+
+char *
+ds_get_resource(rDB, appname, resource)
+XrmDatabase rDB ;                         /* Resources database. */
+char *appname ;                           /* Application name. */
+char *resource ;                          /* X resource to search for. */
+{
+  char app[MAXLINE], res[MAXLINE] ;
+  char cstr[MAXLINE], nstr[MAXLINE], str[MAXLINE] ;
+  char *str_type[20] ;
+  XrmValue value ;
+
+  STRCPY(app, appname) ;
+  STRCPY(res, resource) ;
+  if (isupper(app[0])) app[0] = tolower(app[0]) ;
+  SPRINTF(nstr, "%s.%s", app, res) ;
+
+  if (islower(res[0])) res[0] = toupper(res[0]) ;
+  if (islower(app[0])) app[0] = toupper(app[0]) ;
+  SPRINTF(cstr, "%s.%s", app, res) ;
+
+  if (XrmGetResource(rDB, nstr, cstr, str_type, &value) == 0)
+    return((char *) NULL) ;
+  else return(value.addr) ;
+}
+
+
+/*  Function:     ds_load_resources()
+ *
+ *  Purpose:      Get the resource databases. These are looked for in the
+ *                following ways:
+ *
+ *                Classname file in the app-defaults directory. 
+ *
+ *                Classname file in the directory specified by the
+ *                XUSERFILESEARCHPATH or XAPPLRESDIR environment variable.
+ *
+ *                Property set using xrdb, accessible through the
+ *                XResourceManagerString macro or, if that is empty, the
+ *                ~/.Xdefaults file.
+ *
+ *                XENVIRONMENT environment variable or, if not set,
+ *                .Xdefaults-hostname file.
+ *
+ *                DTCALCDEF environment variable or, if not set, the
+ *                ~/.dtcalcdef file
+ *
+ *  Parameters:   display    connection to the X server.
+ *                           (returned from XOpenDisplay).
+ *
+ *  Returns:      X combined resources database.
+ */
+
+XrmDatabase
+ds_load_resources(display)
+Display *display ;
+{
+  XrmDatabase db, rDB ;
+  char *home, name[MAXPATHLEN], *ptr ;
+  int len ;
+
+  rDB  = NULL ;
+  home = getenv("HOME") ;
+  XrmInitialize() ;
+
+/* Merge server defaults, created by xrdb. If nor defined, use ~/.Xdefaults. */
+
+  if (XResourceManagerString(display) != NULL)
+    db = XrmGetStringDatabase(XResourceManagerString(display)) ;
+  else
+    { 
+      SPRINTF(name, "%s/.Xdefaults", home) ;
+      db = XrmGetFileDatabase(name) ;
+    }
+  XrmMergeDatabases(db, &rDB) ;
+
+/*  Open XENVIRONMENT file or, if not defined, the .Xdefaults, and merge
+ *  into existing database.
+ */
+
+  if ((ptr = getenv("XENVIRONMENT")) == NULL)
+    {
+      SPRINTF(name, "%s/.Xdefaults-", home) ;
+      len = strlen(name) ;
+      GETHOSTNAME(name+len, 1024-len) ;
+      db = XrmGetFileDatabase(name) ;
+    }
+  else db = XrmGetFileDatabase(ptr) ;
+  XrmMergeDatabases(db, &rDB) ;
+
+/*  Finally merge in Dtcalc defaults via DTCALCDEF or, if not
+ *  defined, the ~/.dtcalcdef file.
+ */
+
+  if ((ptr = getenv("DTCALCDEF")) == NULL)
+    {
+      SPRINTF(name, "%s/.dtcalcdef", home) ;
+      db = XrmGetFileDatabase(name) ;
+    }
+  else db = XrmGetFileDatabase(ptr) ;
+  XrmMergeDatabases(db, &rDB) ;
+  return(rDB) ;
+}
+
+
+/*  Function:     ds_put_resource()
+ *
+ *  Purpose:      Adds an X resource string (name and value) to a resources
+ *                database.
+ *
+ *  Parameters:   rDB          X resources database.
+ *
+ *                appname      application name.
+ *
+ *                rstr         X resource string name.
+ *
+ *                rval         X resource string value.
+ *
+ *  Returns:      None.
+ *
+ *  Note:         The first character of the appname and resource strings may
+ *                be modified.
+ */
+
+void
+ds_put_resource(rDB, appname, rstr, rval)
+XrmDatabase *rDB ;
+char *appname, *rstr, *rval ;
+{
+  char app[MAXLINE], resource[MAXLINE] ;
+
+  STRCPY(app, appname) ;
+  if (isupper(app[0])) app[0] = tolower(app[0]) ;
+  SPRINTF(resource, "%s.%s", app, rstr) ;
+
+  XrmPutStringResource(rDB, resource, rval) ;
+}
+
+
+/*  Function:     ds_save_cmdline()
+ *
+ *  Purpose:      Save away the application command line options.
+ *
+ *  Parameters:   display      connection to the X server.
+ *                             (returned from XOpenDisplay).
+ *
+ *                w            The id of the applications main window.
+ *
+ *                argc         Number of command line options.
+ *
+ *                argv         An array of command line options.
+ *
+ *  Returns:      None.
+ */
+
+void
+ds_save_cmdline(display, w, argc, argv)
+Display *display ;
+Window w ;
+int argc ;
+char **argv ;
+{
+  XSetCommand(display, w, argv, argc) ;
+}
+
+
+/*  Function:     ds_save_resources()
+ *
+ *  Purpose:      Save away the resources database to the file given by the
+ *                DTCALCDEF environment variable (if set), or
+ *                to $HOME/.dtcalcdef.
+ *
+ *  Parameters:   rDB        X resources database to save.
+ *
+ *  Returns:      1          if cannot access resource database to write.
+ *                0          on successful completion.
+ */
+
+
+int
+ds_save_resources(rDB, filename)
+XrmDatabase rDB ;
+char *filename;
+{
+  char *home;
+  struct stat statbuf ;
+
+  if(filename == NULL)
+  {
+    if ((filename = getenv("DTCALCDEF")) == NULL)
+      {
+        home = getenv("HOME") ;
+        filename = (char*) calloc(1, strlen(home) + 18) ;
+        SPRINTF(filename, "%s/.dtcalcdef", home) ;
+      }
+  }
+
+/* If file exists but user does not have access. */
+
+  if (stat(filename, &statbuf) != -1 && access(filename, W_OK) != 0)
+    { 
+      FREE(filename) ;
+      return(1) ;
+    }
+
+/* If file does not exist this call will create it. */
+
+  XrmPutFileDatabase(rDB, filename) ;
+  FREE(filename) ;
+  return(0) ;
+}
+