makefiles: Define __WINESRC__ when building programs.
[wine] / programs / services / utils.c
1 /*
2  * Services.exe - some utility functions
3  *
4  * Copyright 2007 Google (Mikolaj Zalewski)
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library 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 GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #define WIN32_LEAN_AND_MEAN
22
23 #include <stdarg.h>
24 #include <windows.h>
25 #include <winsvc.h>
26
27 #include "wine/unicode.h"
28 #include "wine/debug.h"
29 #include "services.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(service);
32
33 LPWSTR strdupW(LPCWSTR str)
34 {
35     int len;
36     WCHAR *buf;
37
38     if (str == NULL)
39         return NULL;
40     len = strlenW(str);
41     buf = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR)*(len+1));
42     if (buf == NULL)
43         return NULL;
44     strcpyW(buf, str);
45     return buf;
46 }
47
48 BOOL check_multisz(LPCWSTR lpMultiSz, DWORD cbSize)
49 {
50     if (cbSize == 0 || (cbSize == sizeof(WCHAR) && lpMultiSz[0] == 0))
51         return TRUE;
52     if ((cbSize % sizeof(WCHAR)) != 0 || cbSize < 2*sizeof(WCHAR))
53         return FALSE;
54     if (lpMultiSz[cbSize/2 - 1] || lpMultiSz[cbSize/2 - 2])
55         return FALSE;
56     return TRUE;
57 }
58
59 DWORD load_reg_string(HKEY hKey, LPCWSTR szValue, BOOL bExpand, LPWSTR *output)
60 {
61     DWORD size, type;
62     LPWSTR buf = NULL;
63     DWORD err;
64
65     *output = NULL;
66     if ((err = RegQueryValueExW(hKey, szValue, 0, &type, NULL, &size)) != 0)
67     {
68         if (err == ERROR_FILE_NOT_FOUND)
69             return ERROR_SUCCESS;
70         goto failed;
71     }
72     if (!(type == REG_SZ || (type == REG_EXPAND_SZ && bExpand)))
73     {
74         err = ERROR_INVALID_DATATYPE;
75         goto failed;
76     }
77     buf = HeapAlloc(GetProcessHeap(), 0, size + sizeof(WCHAR));
78     if ((err = RegQueryValueExW(hKey, szValue, 0, &type, (LPBYTE)buf, &size)) != 0)
79         goto failed;
80     buf[size/sizeof(WCHAR)] = 0;
81
82     if (type == REG_EXPAND_SZ)
83     {
84         LPWSTR str;
85         DWORD size = ExpandEnvironmentStringsW(buf, NULL, 0);
86         if (size == 0)
87         {
88             err = GetLastError();
89             goto failed;
90         }
91         str = HeapAlloc(GetProcessHeap(), 0, size * sizeof(WCHAR));
92         ExpandEnvironmentStringsW(buf, str, size);
93         HeapFree(GetProcessHeap(), 0, buf);
94         *output = str;
95     }
96     else
97         *output = buf;
98     return ERROR_SUCCESS;
99
100 failed:
101     WINE_ERR("Error %d while reading value %s\n", err, wine_dbgstr_w(szValue));
102     HeapFree(GetProcessHeap(), 0, buf);
103     return err;
104 }
105
106 DWORD load_reg_multisz(HKEY hKey, LPCWSTR szValue, BOOL bAllowSingle, LPWSTR *output)
107 {
108     DWORD size, type;
109     LPWSTR buf = NULL;
110     DWORD err;
111
112     *output = NULL;
113     if ((err = RegQueryValueExW(hKey, szValue, 0, &type, NULL, &size)) != 0)
114     {
115         if (err == ERROR_FILE_NOT_FOUND)
116         {
117             *output = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(WCHAR));
118             return ERROR_SUCCESS;
119         }
120         goto failed;
121     }
122     if (!((type == REG_MULTI_SZ) || ((type == REG_SZ) && bAllowSingle)))
123     {
124         err = ERROR_INVALID_DATATYPE;
125         goto failed;
126     }
127     buf = HeapAlloc(GetProcessHeap(), 0, size + 2*sizeof(WCHAR));
128     if ((err = RegQueryValueExW(hKey, szValue, 0, &type, (LPBYTE)buf, &size)) != 0)
129         goto failed;
130     buf[size/sizeof(WCHAR)] = 0;
131     buf[size/sizeof(WCHAR) + 1] = 0;
132     *output = buf;
133     return ERROR_SUCCESS;
134
135 failed:
136     WINE_ERR("Error %d while reading value %s\n", err, wine_dbgstr_w(szValue));
137     HeapFree(GetProcessHeap(), 0, buf);
138     return err;
139 }
140
141 DWORD load_reg_dword(HKEY hKey, LPCWSTR szValue, DWORD *output)
142 {
143     DWORD size, type;
144     DWORD err;
145
146     *output = 0;
147     size = sizeof(DWORD);
148     if ((err = RegQueryValueExW(hKey, szValue, 0, &type, (LPBYTE)output, &size)) != 0)
149     {
150         if (err == ERROR_FILE_NOT_FOUND)
151             return ERROR_SUCCESS;
152         goto failed;
153     }
154     if (type != REG_DWORD || size != sizeof(DWORD))
155     {
156         err = ERROR_INVALID_DATATYPE;
157         goto failed;
158     }
159     return ERROR_SUCCESS;
160
161 failed:
162     WINE_ERR("Error %d while reading value %s\n", err, wine_dbgstr_w(szValue));
163     return err;
164 }