code.delx.au - gnu-emacs/blob - src/w32reg.c

   1 /* Emulate the X Resource Manager through the registry.
   2    Copyright (C) 1990, 1993, 1994 Free Software Foundation.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* Written by Kevin Gallo */
  22
  23 #include <config.h>
  24 #include "lisp.h"
  25 #include "w32term.h"
  26 #include "blockinput.h"
  27
  28 #include <stdio.h>
  29 #include <string.h>
  30
  31 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
  32
  33 LPBYTE
  34 w32_get_string_resource (name, class, dwexptype)
  35      char *name, *class;
  36      DWORD dwexptype;
  37 {
  38   LPBYTE lpvalue = NULL;
  39   HKEY hrootkey = NULL;
  40   DWORD dwType;
  41   DWORD cbData;
  42   BOOL ok = FALSE;
  43   HKEY hive = HKEY_CURRENT_USER;
  44
  45  trykey:
  46
  47   BLOCK_INPUT;
  48
  49   /* Check both the current user and the local machine to see if we have
  50      any resources */
  51
  52   if (RegOpenKeyEx (hive, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
  53     {
  54       char *keyname;
  55
  56       if (RegQueryValueEx (hrootkey, name, NULL, &dwType, NULL, &cbData) == ERROR_SUCCESS
  57           && dwType == dwexptype)
  58         {
  59           keyname = name;
  60         }
  61       else if (RegQueryValueEx (hrootkey, class, NULL, &dwType, NULL, &cbData) == ERROR_SUCCESS
  62                && dwType == dwexptype)
  63         {
  64           keyname = class;
  65         }
  66       else
  67         {
  68           keyname = NULL;
  69         }
  70
  71       ok = (keyname
  72             && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
  73             && RegQueryValueEx (hrootkey, keyname, NULL, NULL, lpvalue, &cbData) == ERROR_SUCCESS);
  74
  75       RegCloseKey (hrootkey);
  76     }
  77
  78   UNBLOCK_INPUT;
  79
  80   if (!ok)
  81     {
  82       if (lpvalue)
  83         {
  84           xfree (lpvalue);
  85           lpvalue = NULL;
  86         }
  87       if (hive == HKEY_CURRENT_USER)
  88         {
  89           hive = HKEY_LOCAL_MACHINE;
  90           goto trykey;
  91         }
  92       return (NULL);
  93     }
  94   return (lpvalue);
  95 }
  96
  97 /* Retrieve the string resource specified by NAME with CLASS from
  98    database RDB. */
  99
 100 char *
 101 x_get_string_resource (rdb, name, class)
 102      int rdb;
 103      char *name, *class;
 104 {
 105   return (w32_get_string_resource (name, class, REG_SZ));
 106 }