1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/* Copyright (C) 2001-2006 Artifex Software, Inc.
All Rights Reserved.
This software is provided AS-IS with no warranty, either express or
implied.
This software is distributed under license and may not be copied, modified
or distributed except as expressly authorized under the terms of that
license. Refer to licensing information at http://www.artifex.com/
or contact Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134,
San Rafael, CA 94903, U.S.A., +1(415)492-9861, for further information.
*/
/* $Id$ */
/* MS Windows implementation of gp_getenv */
#include <windows.h>
#include <stdio.h>
#include <stdlib.h> /* for getenv */
#include <string.h>
#include "gscdefs.h" /* for gs_productfamily and gs_revision */
/* prototypes */
int gp_getenv_registry(HKEY hkeyroot, const char *key, const char *name,
char *ptr, int *plen);
/* ------ Environment variables ------ */
/* Get the value of an environment variable. See gp.h for details. */
int
gp_getenv(const char *name, char *ptr, int *plen)
{
const char *str = getenv(name);
if (str) {
int len = strlen(str);
if (len < *plen) {
/* string fits */
strcpy(ptr, str);
*plen = len + 1;
return 0;
}
/* string doesn't fit */
*plen = len + 1;
return -1;
}
/* environment variable was not found */
#ifdef __WIN32__
{
/* If using Win32, look in the registry for a value with
* the given name. The registry value will be under the key
* HKEY_CURRENT_USER\Software\GPL Ghostscript\N.NN
* or if that fails under the key
* HKEY_LOCAL_MACHINE\Software\GPL Ghostscript\N.NN
* where "GPL Ghostscript" is actually gs_productfamily
* and N.NN is obtained from gs_revision.
*/
DWORD version = GetVersion();
if (!(((HIWORD(version) & 0x8000) != 0)
&& ((HIWORD(version) & 0x4000) == 0))) {
/* not Win32s */
int code;
char key[256];
char dotversion[16];
sprintf(dotversion, "%d.%02d", (int)(gs_revision / 100),
(int)(gs_revision % 100));
sprintf(key, "Software\\%s\\%s", gs_productfamily, dotversion);
code = gp_getenv_registry(HKEY_CURRENT_USER, key, name, ptr, plen);
if ( code <= 0 )
return code; /* found it */
code = gp_getenv_registry(HKEY_LOCAL_MACHINE, key, name, ptr, plen);
if ( code <= 0 )
return code; /* found it */
}
}
#endif
/* nothing found at all */
if (*plen > 0)
*ptr = 0;
*plen = 1;
return 1;
}
/*
* Get a named registry value.
* Key = hkeyroot\\key, named value = name.
* name, ptr, plen and return values are the same as in gp_getenv();
*/
int
gp_getenv_registry(HKEY hkeyroot, const char *key, const char *name,
char *ptr, int *plen)
{
HKEY hkey;
DWORD cbData, keytype;
BYTE b;
LONG rc;
BYTE *bptr = (BYTE *)ptr;
if (RegOpenKeyEx(hkeyroot, key, 0, KEY_READ, &hkey)
== ERROR_SUCCESS) {
keytype = REG_SZ;
cbData = *plen;
if (bptr == (char *)NULL)
bptr = &b; /* Registry API won't return ERROR_MORE_DATA */
/* if ptr is NULL */
rc = RegQueryValueEx(hkey, (char *)name, 0, &keytype, bptr, &cbData);
RegCloseKey(hkey);
if (rc == ERROR_SUCCESS) {
*plen = cbData;
return 0; /* found environment variable and copied it */
} else if (rc == ERROR_MORE_DATA) {
/* buffer wasn't large enough */
*plen = cbData;
return -1;
}
}
return 1; /* not found */
}
|
