Commit | Line | Data |
---|---|---|
ee78dc32 GV |
1 | /* Emulate the X Resource Manager through the registry. |
2 | Copyright (C) 1990, 1993, 1994 Free Software Foundation. | |
3 | ||
3b7ad313 EN |
4 | This file is part of GNU Emacs. |
5 | ||
6 | GNU Emacs is free software; you can redistribute it and/or modify | |
ee78dc32 GV |
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 | ||
3b7ad313 | 11 | GNU Emacs is distributed in the hope that it will be useful, |
ee78dc32 GV |
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 | |
3b7ad313 EN |
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. */ | |
ee78dc32 GV |
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 | ||
f79eea00 | 31 | #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
ee78dc32 GV |
32 | |
33 | LPBYTE | |
fbd6baed | 34 | w32_get_string_resource (name, class, dwexptype) |
ee78dc32 GV |
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; | |
49fb6381 | 43 | HKEY hive = HKEY_CURRENT_USER; |
ee78dc32 | 44 | |
49fb6381 AI |
45 | trykey: |
46 | ||
ee78dc32 GV |
47 | BLOCK_INPUT; |
48 | ||
49fb6381 AI |
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) | |
ee78dc32 GV |
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 | { | |
49fb6381 AI |
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 | } | |
ee78dc32 GV |
92 | return (NULL); |
93 | } | |
49fb6381 | 94 | return (lpvalue); |
ee78dc32 GV |
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 | { | |
fbd6baed | 105 | return (w32_get_string_resource (name, class, REG_SZ)); |
ee78dc32 | 106 | } |