#

1 files changed, 184 insertions, 0 deletions

diff --git a/lwlib/xrdb-cpp.c b/lwlib/xrdb-cpp.c
new file mode 100644
index 00000000000..4ede12e7652
--- /dev/null
+++ b/lwlib/xrdb-cpp.c
@@ -0,0 +1,184 @@
+/* A general interface to the widgets of different toolkits.
+   Copyright (C) 1992, 1993 Lucid, Inc.
+
+This file is part of the Lucid Widget Library.
+
+The Lucid Widget Library is free software; you can redistribute it and/or 
+modify it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The Lucid Widget Library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of 
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* This code reads a resource database file and filters it through cpp
+   with the same set of preprocessor defines that `xrdb' uses.
+   Call lwlib_xrdb_initialize(dpy) once, and then call the function
+   lwlib_GetFileDatabase() instead of XrmGetFileDatabase(), 
+   and lwlib_CombineFileDatabase() instead of XrmCombineFileDatabase().
+ */
+
+#ifndef __STDC_EXTENDED__
+#define __STDC_EXTENDED__
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+#include <X11/Xlib.h>
+#include <X11/Xos.h>
+#include <X11/Intrinsic.h>
+#include <X11/Xmu/SysUtil.h>
+#include <sys/stat.h>
+
+extern char *index ();
+
+static int
+file_p (path)
+     char *path;
+{
+  struct stat status;
+
+  return (access (path, R_OK) == 0              /* exists and is readable */
+          && stat (path, &status) == 0          /* get the status */
+          && (status.st_mode & S_IFDIR) == 0);  /* not a directory */
+}
+
+#ifndef CPP_PROGRAM
+#define CPP_PROGRAM "/lib/cpp"
+#endif
+
+static char cpp_string [BUFSIZ];
+static char *cpp_file = 0;
+
+#define Resolution(pixels, mm) ((((pixels) * 100000 / (mm)) + 50) / 100)
+
+void
+lwlib_xrdb_initialize (display)
+     Display *display;
+{
+  Screen *screen;
+  Visual *visual;
+  char server [255];
+  char *colon, *s;
+
+#define Push(str)  \
+  (strncpy (s, str, sizeof(str)), s += (sizeof(str)-1))
+
+#define Print(str, thing)  \
+  (sprintf (s, str, thing), s = index (s, 0))
+
+  s = cpp_string;
+  Push (CPP_PROGRAM);
+
+  Push (" -DCLIENTHOST=");
+  XmuGetHostname (s, sizeof (cpp_string) - (s - cpp_string));
+  s = index (s, 0);
+  Push (" -DSERVERHOST=");
+  strcpy (s, XDisplayName (DisplayString (display)));
+  colon = index (s, ':');
+  if (colon == s)
+    {
+      XmuGetHostname (s, sizeof (cpp_string) - (s - cpp_string));
+      s = index (s, 0);
+    }
+  else if (colon)
+    s = colon;
+  else
+    s = index (s, 0);
+  
+  Print (" -DVERSION=%d", ProtocolVersion(display));
+  Print (" -DREVISION=%d", ProtocolRevision(display));
+  Print (" -DVENDOR=\"%s\"", ServerVendor(display));
+  Print (" -DRELEASE=%d", VendorRelease(display));
+  screen = DefaultScreenOfDisplay(display);
+  visual = DefaultVisualOfScreen(screen);
+  Print (" -DWIDTH=%d", screen->width);
+  Print (" -DHEIGHT=%d", screen->height);
+  Print (" -DX_RESOLUTION=%d", Resolution(screen->width,screen->mwidth));
+  Print (" -DY_RESOLUTION=%d", Resolution(screen->height,screen->mheight));
+  Print (" -DPLANES=%d", DisplayPlanes(display, DefaultScreen(display)));
+  Print (" -DBITS_PER_RGB=%d", visual->bits_per_rgb);
+  switch(visual->class) {
+  case StaticGray:      Print (" -DCLASS=%s", "StaticGray");    break;
+  case GrayScale:       Print (" -DCLASS=%s", "GrayScale");     break;
+  case StaticColor:     Print (" -DCLASS=%s", "StaticColor");
+                        Print (" -DCOLOR", 0);                  break;
+  case PseudoColor:     Print (" -DCLASS=%s", "PseudoColor");
+                        Print (" -DCOLOR", 0);                  break;
+  case TrueColor:       Print (" -DCLASS=%s", "TrueColor");
+                        Print (" -DCOLOR", 0);                  break;
+  case DirectColor:     Print (" -DCLASS=%s", "DirectColor");
+                        Print (" -DCOLOR", 0);                  break;
+  default:
+    fprintf (stderr, "unexpected visual class=%d\n", visual->class);
+    exit (-1);
+  }
+  *s++ = ' ';
+  *s = 0;
+  cpp_file = s;
+}
+
+XrmDatabase
+lwlib_GetFileDatabase (path)
+     char *path;
+{
+  XrmDatabase db = 0;
+  char line [BUFSIZ];
+  char *s;
+  FILE *file;
+
+  if (! file_p (path))
+    return 0;
+
+  strcpy (cpp_file, path);
+  if (! (file = popen (cpp_string, "r")))
+    {
+      fprintf (stderr,
+               "couldn't execute %s; resource file %s file not munged.\n",
+               CPP_PROGRAM, path);
+      return XrmGetFileDatabase (path);
+    }
+  while (s = fgets (line, sizeof (line), file))
+    {
+      char ch, *tail;
+      if (*s == '!') continue;
+      for (; ((ch = *s) != '\n') && isspace(ch); s++);
+      if ((ch == '\0') || (ch == '\n') || (ch == '#')) continue;
+      tail = s + strlen (s);
+      if (tail - s < 3) continue;   /* this would be syntactically incorrect */
+      while (*(tail-1) == '\n' &&   /* handle \ at end of line */
+             *(tail-2) == '\\')
+        {
+          if (! fgets (tail, sizeof (line) - (tail - line), file))
+            continue;
+          tail += strlen (tail);
+        }
+      XrmPutLineResource (&db, s);
+    }
+  pclose (file);
+  return db;
+}
+
+#ifdef THIS_IS_X11R5
+
+int
+lwlib_CombineFileDatabase (path, target_db, override)
+     char *path;
+     XrmDatabase *target_db;
+     Bool override;
+{
+  XrmDatabase source_db = lwlib_GetFileDatabase (path);
+  if (! source_db)
+    return (! file_p (path));
+  XrmCombineDatabase (source_db, target_db, override);
+  return 1;
+}
+
+#endif /* r5 */