urlmon/tests: Don't bother testing unimplemented functions to reduce test output.
[wine] / dlls / ntdll / version.c
1 /*
2  * Windows and DOS version functions
3  *
4  * Copyright 1997 Marcus Meissner
5  * Copyright 1998 Patrik Stridvall
6  * Copyright 1998, 2003 Andreas Mohr
7  * Copyright 1997, 2003 Alexandre Julliard
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include "config.h"
25 #include "wine/port.h"
26
27 #include <string.h>
28 #include <stdlib.h>
29 #include <stdarg.h>
30 #include <stdio.h>
31 #include "ntstatus.h"
32 #define WIN32_NO_STATUS
33 #include "windef.h"
34 #include "wine/unicode.h"
35 #include "wine/debug.h"
36 #include "ntdll_misc.h"
37 #include "ddk/wdm.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(ver);
40
41 typedef enum
42 {
43     WIN20,   /* Windows 2.0 */
44     WIN30,   /* Windows 3.0 */
45     WIN31,   /* Windows 3.1 */
46     WIN95,   /* Windows 95 */
47     WIN98,   /* Windows 98 */
48     WINME,   /* Windows Me */
49     NT351,   /* Windows NT 3.51 */
50     NT40,    /* Windows NT 4.0 */
51     NT2K,    /* Windows 2000 */
52     WINXP,   /* Windows XP */
53     WIN2K3,  /* Windows 2003 */
54     WINVISTA,/* Windows Vista */
55     WIN2K8,  /* Windows 2008 */
56     WIN7,    /* Windows 7 */
57     NB_WINDOWS_VERSIONS
58 } WINDOWS_VERSION;
59
60 /* FIXME: compare values below with original and fix.
61  * An *excellent* win9x version page (ALL versions !)
62  * can be found at www.mdgx.com/ver.htm */
63 static const RTL_OSVERSIONINFOEXW VersionData[NB_WINDOWS_VERSIONS] =
64 {
65     /* WIN20 FIXME: verify values */
66     {
67         sizeof(RTL_OSVERSIONINFOEXW), 2, 0, 0, VER_PLATFORM_WIN32s,
68         {'W','i','n','3','2','s',' ','1','.','3',0},
69         0, 0, 0, 0, 0
70     },
71     /* WIN30 FIXME: verify values */
72     {
73         sizeof(RTL_OSVERSIONINFOEXW), 3, 0, 0, VER_PLATFORM_WIN32s,
74         {'W','i','n','3','2','s',' ','1','.','3',0},
75         0, 0, 0, 0, 0
76     },
77     /* WIN31 */
78     {
79         sizeof(RTL_OSVERSIONINFOEXW), 3, 10, 0, VER_PLATFORM_WIN32s,
80         {'W','i','n','3','2','s',' ','1','.','3',0},
81         0, 0, 0, 0, 0
82     },
83     /* WIN95 */
84     {
85         /* Win95:       4, 0, 0x40003B6, ""
86          * Win95sp1:    4, 0, 0x40003B6, " A " (according to doc)
87          * Win95osr2:   4, 0, 0x4000457, " B " (according to doc)
88          * Win95osr2.1: 4, 3, 0x40304BC, " B " (according to doc)
89          * Win95osr2.5: 4, 3, 0x40304BE, " C " (according to doc)
90          * Win95a/b can be discerned via regkey SubVersionNumber
91          */
92         sizeof(RTL_OSVERSIONINFOEXW), 4, 0, 0x40003B6, VER_PLATFORM_WIN32_WINDOWS,
93         {0},
94         0, 0, 0, 0, 0
95     },
96     /* WIN98 (second edition) */
97     {
98         /* Win98:   4, 10, 0x40A07CE, " "   4.10.1998
99          * Win98SE: 4, 10, 0x40A08AE, " A " 4.10.2222
100          */
101         sizeof(RTL_OSVERSIONINFOEXW), 4, 10, 0x40A08AE, VER_PLATFORM_WIN32_WINDOWS,
102         {' ','A',' ',0},
103         0, 0, 0, 0, 0
104     },
105     /* WINME */
106     {
107         sizeof(RTL_OSVERSIONINFOEXW), 4, 90, 0x45A0BB8, VER_PLATFORM_WIN32_WINDOWS,
108         {' ',0},
109         0, 0, 0, 0, 0
110     },
111     /* NT351 */
112     {
113         sizeof(RTL_OSVERSIONINFOEXW), 3, 51, 0x421, VER_PLATFORM_WIN32_NT,
114         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','2',0},
115         0, 0, 0, 0, 0
116     },
117     /* NT40 */
118     {
119         sizeof(RTL_OSVERSIONINFOEXW), 4, 0, 0x565, VER_PLATFORM_WIN32_NT,
120         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','6','a',0},
121         6, 0, 0, VER_NT_WORKSTATION, 0
122     },
123     /* NT2K */
124     {
125         sizeof(RTL_OSVERSIONINFOEXW), 5, 0, 0x893, VER_PLATFORM_WIN32_NT,
126         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','4',0},
127         4, 0, 0, VER_NT_WORKSTATION, 30 /* FIXME: Great, a reserved field with a value! */
128     },
129     /* WINXP */
130     {
131         sizeof(RTL_OSVERSIONINFOEXW), 5, 1, 0xA28, VER_PLATFORM_WIN32_NT,
132         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','3',0},
133         3, 0, VER_SUITE_SINGLEUSERTS, VER_NT_WORKSTATION, 30 /* FIXME: Great, a reserved field with a value! */
134     },
135     /* WIN2K3 */
136     {
137         sizeof(RTL_OSVERSIONINFOEXW), 5, 2, 0xECE, VER_PLATFORM_WIN32_NT,
138         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','1',0},
139         1, 0, VER_SUITE_SINGLEUSERTS, VER_NT_SERVER, 0
140     },
141     /* WINVISTA */
142     {
143         sizeof(RTL_OSVERSIONINFOEXW), 6, 0, 0x1772, VER_PLATFORM_WIN32_NT,
144         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','2',0},
145         2, 0, VER_SUITE_SINGLEUSERTS, VER_NT_WORKSTATION, 0
146     },
147     /* WIN2K8 */
148     {
149         sizeof(RTL_OSVERSIONINFOEXW), 6, 0, 0x1771, VER_PLATFORM_WIN32_NT,
150         {'S','e','r','v','i','c','e',' ','P','a','c','k',' ','1',0},
151         0, 0, VER_SUITE_SINGLEUSERTS, VER_NT_SERVER, 0
152     },
153     /* WIN7 */
154     {
155         sizeof(RTL_OSVERSIONINFOEXW), 6, 1, 0x1DB0, VER_PLATFORM_WIN32_NT,
156         {' ',0},
157         0, 0, VER_SUITE_SINGLEUSERTS, VER_NT_WORKSTATION, 0
158     }
159 };
160
161 static const char * const WinVersionNames[NB_WINDOWS_VERSIONS] =
162 { /* no spaces in here ! */
163     "win20",                      /* WIN20 */
164     "win30",                      /* WIN30 */
165     "win31",                      /* WIN31 */
166     "win95",                      /* WIN95 */
167     "win98",                      /* WIN98 */
168     "winme",                      /* WINME */
169     "nt351",                      /* NT351 */
170     "nt40",                       /* NT40 */
171     "win2000,win2k,nt2k,nt2000",  /* NT2K */
172     "winxp",                      /* WINXP */
173     "win2003,win2k3",             /* WIN2K3 */
174     "vista,winvista",             /* WINVISTA*/
175     "win2008,win2k8",             /* WIN2K8 */
176     "win7",                       /* WIN7 */
177 };
178
179
180 /* initialized to null so that we crash if we try to retrieve the version too early at startup */
181 static const RTL_OSVERSIONINFOEXW *current_version;
182
183
184 /**********************************************************************
185  *         get_nt_registry_version
186  *
187  * Fetch the version information from the NT-style registry keys.
188  */
189 static BOOL get_nt_registry_version( RTL_OSVERSIONINFOEXW *version )
190 {
191     static const WCHAR version_keyW[] = {'M','a','c','h','i','n','e','\\',
192                                          'S','o','f','t','w','a','r','e','\\',
193                                          'M','i','c','r','o','s','o','f','t','\\',
194                                          'W','i','n','d','o','w','s',' ','N','T','\\',
195                                          'C','u','r','r','e','n','t','V','e','r','s','i','o','n',0};
196     static const WCHAR service_pack_keyW[] = {'M','a','c','h','i','n','e','\\',
197                                               'S','y','s','t','e','m','\\',
198                                               'C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\',
199                                               'C','o','n','t','r','o','l','\\',
200                                               'W','i','n','d','o','w','s',0};
201     static const WCHAR product_keyW[] = {'M','a','c','h','i','n','e','\\',
202                                          'S','y','s','t','e','m','\\',
203                                          'C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\',
204                                          'C','o','n','t','r','o','l','\\',
205                                          'P','r','o','d','u','c','t','O','p','t','i','o','n','s',0};
206     static const WCHAR CurrentBuildNumberW[] = {'C','u','r','r','e','n','t','B','u','i','l','d','N','u','m','b','e','r',0};
207     static const WCHAR CSDVersionW[] = {'C','S','D','V','e','r','s','i','o','n',0};
208     static const WCHAR CurrentVersionW[] = {'C','u','r','r','e','n','t','V','e','r','s','i','o','n',0};
209     static const WCHAR ProductTypeW[] = {'P','r','o','d','u','c','t','T','y','p','e',0};
210     static const WCHAR WinNTW[]    = {'W','i','n','N','T',0};
211     static const WCHAR ServerNTW[] = {'S','e','r','v','e','r','N','T',0};
212     static const WCHAR LanmanNTW[] = {'L','a','n','m','a','n','N','T',0};
213
214     OBJECT_ATTRIBUTES attr;
215     UNICODE_STRING nameW, valueW;
216     HANDLE hkey, hkey2;
217     char tmp[64];
218     DWORD count;
219     BOOL ret = FALSE;
220     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)tmp;
221
222     attr.Length = sizeof(attr);
223     attr.RootDirectory = 0;
224     attr.ObjectName = &nameW;
225     attr.Attributes = 0;
226     attr.SecurityDescriptor = NULL;
227     attr.SecurityQualityOfService = NULL;
228     RtlInitUnicodeString( &nameW, version_keyW );
229
230     if (NtOpenKey( &hkey, KEY_ALL_ACCESS, &attr )) return FALSE;
231
232     memset( version, 0, sizeof(*version) );
233
234     RtlInitUnicodeString( &valueW, CurrentVersionW );
235     if (!NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
236     {
237         WCHAR *p, *str = (WCHAR *)info->Data;
238         str[info->DataLength / sizeof(WCHAR)] = 0;
239         p = strchrW( str, '.' );
240         if (p)
241         {
242             *p++ = 0;
243             version->dwMinorVersion = atoiW( p );
244         }
245         version->dwMajorVersion = atoiW( str );
246     }
247
248     if (version->dwMajorVersion)   /* we got the main version, now fetch the other fields */
249     {
250         ret = TRUE;
251         version->dwPlatformId = VER_PLATFORM_WIN32_NT;
252
253         /* get build number */
254
255         RtlInitUnicodeString( &valueW, CurrentBuildNumberW );
256         if (!NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
257         {
258             WCHAR *str = (WCHAR *)info->Data;
259             str[info->DataLength / sizeof(WCHAR)] = 0;
260             version->dwBuildNumber = atoiW( str );
261         }
262
263         /* get version description */
264
265         RtlInitUnicodeString( &valueW, CSDVersionW );
266         if (!NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
267         {
268             DWORD len = min( info->DataLength, sizeof(version->szCSDVersion) - sizeof(WCHAR) );
269             memcpy( version->szCSDVersion, info->Data, len );
270             version->szCSDVersion[len / sizeof(WCHAR)] = 0;
271         }
272
273         /* get service pack version */
274
275         RtlInitUnicodeString( &nameW, service_pack_keyW );
276         if (!NtOpenKey( &hkey2, KEY_ALL_ACCESS, &attr ))
277         {
278             RtlInitUnicodeString( &valueW, CSDVersionW );
279             if (!NtQueryValueKey( hkey2, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp), &count ))
280             {
281                 if (info->DataLength >= sizeof(DWORD))
282                 {
283                     DWORD dw = *(DWORD *)info->Data;
284                     version->wServicePackMajor = LOWORD(dw) >> 8;
285                     version->wServicePackMinor = LOWORD(dw) & 0xff;
286                 }
287             }
288             NtClose( hkey2 );
289         }
290
291         /* get product type */
292
293         RtlInitUnicodeString( &nameW, product_keyW );
294         if (!NtOpenKey( &hkey2, KEY_ALL_ACCESS, &attr ))
295         {
296             RtlInitUnicodeString( &valueW, ProductTypeW );
297             if (!NtQueryValueKey( hkey2, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
298             {
299                 WCHAR *str = (WCHAR *)info->Data;
300                 str[info->DataLength / sizeof(WCHAR)] = 0;
301                 if (!strcmpiW( str, WinNTW )) version->wProductType = VER_NT_WORKSTATION;
302                 else if (!strcmpiW( str, LanmanNTW )) version->wProductType = VER_NT_DOMAIN_CONTROLLER;
303                 else if (!strcmpiW( str, ServerNTW )) version->wProductType = VER_NT_SERVER;
304             }
305             NtClose( hkey2 );
306         }
307
308         /* FIXME: get wSuiteMask */
309     }
310
311     NtClose( hkey );
312     return ret;
313 }
314
315
316 /**********************************************************************
317  *         get_win9x_registry_version
318  *
319  * Fetch the version information from the Win9x-style registry keys.
320  */
321 static BOOL get_win9x_registry_version( RTL_OSVERSIONINFOEXW *version )
322 {
323     static const WCHAR version_keyW[] = {'M','a','c','h','i','n','e','\\',
324                                          'S','o','f','t','w','a','r','e','\\',
325                                          'M','i','c','r','o','s','o','f','t','\\',
326                                          'W','i','n','d','o','w','s','\\',
327                                          'C','u','r','r','e','n','t','V','e','r','s','i','o','n',0};
328     static const WCHAR VersionNumberW[] = {'V','e','r','s','i','o','n','N','u','m','b','e','r',0};
329     static const WCHAR SubVersionNumberW[] = {'S','u','b','V','e','r','s','i','o','n','N','u','m','b','e','r',0};
330
331     OBJECT_ATTRIBUTES attr;
332     UNICODE_STRING nameW, valueW;
333     HANDLE hkey;
334     char tmp[64];
335     DWORD count;
336     BOOL ret = FALSE;
337     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)tmp;
338
339     attr.Length = sizeof(attr);
340     attr.RootDirectory = 0;
341     attr.ObjectName = &nameW;
342     attr.Attributes = 0;
343     attr.SecurityDescriptor = NULL;
344     attr.SecurityQualityOfService = NULL;
345     RtlInitUnicodeString( &nameW, version_keyW );
346
347     if (NtOpenKey( &hkey, KEY_ALL_ACCESS, &attr )) return FALSE;
348
349     memset( version, 0, sizeof(*version) );
350
351     RtlInitUnicodeString( &valueW, VersionNumberW );
352     if (!NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
353     {
354         WCHAR *p, *str = (WCHAR *)info->Data;
355         str[info->DataLength / sizeof(WCHAR)] = 0;
356         p = strchrW( str, '.' );
357         if (p) *p++ = 0;
358         version->dwMajorVersion = atoiW( str );
359         if (p)
360         {
361             str = p;
362             p = strchrW( str, '.' );
363             if (p)
364             {
365                 *p++ = 0;
366                 version->dwBuildNumber = atoiW( p );
367             }
368             version->dwMinorVersion = atoiW( str );
369         }
370         /* build number contains version too on Win9x */
371         version->dwBuildNumber |= MAKEWORD( version->dwMinorVersion, version->dwMajorVersion ) << 16;
372     }
373
374     if (version->dwMajorVersion)   /* we got the main version, now fetch the other fields */
375     {
376         ret = TRUE;
377         version->dwPlatformId = VER_PLATFORM_WIN32_WINDOWS;
378
379         RtlInitUnicodeString( &valueW, SubVersionNumberW );
380         if (!NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp)-1, &count ))
381         {
382             DWORD len = min( info->DataLength, sizeof(version->szCSDVersion) - sizeof(WCHAR) );
383             memcpy( version->szCSDVersion, info->Data, len );
384             version->szCSDVersion[len / sizeof(WCHAR)] = 0;
385         }
386     }
387
388     NtClose( hkey );
389     return ret;
390 }
391
392
393 /**********************************************************************
394  *         parse_win_version
395  *
396  * Parse the contents of the Version key.
397  */
398 static BOOL parse_win_version( HANDLE hkey )
399 {
400     static const WCHAR VersionW[] = {'V','e','r','s','i','o','n',0};
401
402     UNICODE_STRING valueW;
403     char tmp[64], buffer[50];
404     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)tmp;
405     DWORD count, len;
406     int i;
407
408     RtlInitUnicodeString( &valueW, VersionW );
409     if (NtQueryValueKey( hkey, &valueW, KeyValuePartialInformation, tmp, sizeof(tmp), &count ))
410         return FALSE;
411
412     RtlUnicodeToMultiByteN( buffer, sizeof(buffer)-1, &len, (WCHAR *)info->Data, info->DataLength );
413     buffer[len] = 0;
414
415     for (i = 0; i < NB_WINDOWS_VERSIONS; i++)
416     {
417         const char *p, *pCurr = WinVersionNames[i];
418         /* iterate through all winver aliases separated by comma */
419         do {
420             p = strchr(pCurr, ',');
421             len = p ? p - pCurr : strlen(pCurr);
422             if ( (!strncmp( pCurr, buffer, len )) && (buffer[len] == 0) )
423             {
424                 current_version = &VersionData[i];
425                 TRACE( "got win version %s\n", WinVersionNames[i] );
426                 return TRUE;
427             }
428             pCurr = p+1;
429         } while (p);
430     }
431
432     MESSAGE("Invalid Windows version value '%s' specified in config file.\n", buffer );
433     MESSAGE("Valid versions are:" );
434     for (i = 0; i < NB_WINDOWS_VERSIONS; i++)
435     {
436         /* only list the first, "official" alias in case of aliases */
437         const char *pCurr = WinVersionNames[i];
438         const char *p = strchr(pCurr, ',');
439         len = (p) ? p - pCurr : strlen(pCurr);
440
441         MESSAGE(" '%.*s'%c", (int)len, pCurr, (i == NB_WINDOWS_VERSIONS - 1) ? '\n' : ',' );
442     }
443     return FALSE;
444 }
445
446
447 /**********************************************************************
448  *         version_init
449  */
450 void version_init( const WCHAR *appname )
451 {
452     static const WCHAR configW[] = {'S','o','f','t','w','a','r','e','\\','W','i','n','e',0};
453     static const WCHAR appdefaultsW[] = {'A','p','p','D','e','f','a','u','l','t','s','\\',0};
454
455     OBJECT_ATTRIBUTES attr;
456     UNICODE_STRING nameW;
457     HANDLE root, hkey, config_key;
458     BOOL got_win_ver = FALSE;
459
460     current_version = &VersionData[WINXP];  /* default if nothing else is specified */
461
462     RtlOpenCurrentUser( KEY_ALL_ACCESS, &root );
463     attr.Length = sizeof(attr);
464     attr.RootDirectory = root;
465     attr.ObjectName = &nameW;
466     attr.Attributes = 0;
467     attr.SecurityDescriptor = NULL;
468     attr.SecurityQualityOfService = NULL;
469     RtlInitUnicodeString( &nameW, configW );
470
471     /* @@ Wine registry key: HKCU\Software\Wine */
472     if (NtOpenKey( &config_key, KEY_ALL_ACCESS, &attr )) config_key = 0;
473     NtClose( root );
474     if (!config_key) goto done;
475
476     /* open AppDefaults\\appname key */
477     if (appname && *appname)
478     {
479         const WCHAR *p;
480         WCHAR appversion[MAX_PATH+20];
481
482         if ((p = strrchrW( appname, '/' ))) appname = p + 1;
483         if ((p = strrchrW( appname, '\\' ))) appname = p + 1;
484
485         strcpyW( appversion, appdefaultsW );
486         strcatW( appversion, appname );
487         RtlInitUnicodeString( &nameW, appversion );
488         attr.RootDirectory = config_key;
489
490         /* @@ Wine registry key: HKCU\Software\Wine\AppDefaults\app.exe */
491         if (!NtOpenKey( &hkey, KEY_ALL_ACCESS, &attr ))
492         {
493             TRACE( "getting version from %s\n", debugstr_w(appversion) );
494             got_win_ver = parse_win_version( hkey );
495             NtClose( hkey );
496         }
497     }
498
499     if (!got_win_ver)
500     {
501         TRACE( "getting default version\n" );
502         got_win_ver = parse_win_version( config_key );
503     }
504     NtClose( config_key );
505
506 done:
507     if (!got_win_ver)
508     {
509         static RTL_OSVERSIONINFOEXW registry_version;
510
511         TRACE( "getting registry version\n" );
512         if (get_nt_registry_version( &registry_version ) ||
513             get_win9x_registry_version( &registry_version ))
514             current_version = &registry_version;
515     }
516
517
518     NtCurrentTeb()->Peb->OSMajorVersion = current_version->dwMajorVersion;
519     NtCurrentTeb()->Peb->OSMinorVersion = current_version->dwMinorVersion;
520     NtCurrentTeb()->Peb->OSBuildNumber  = current_version->dwBuildNumber;
521     NtCurrentTeb()->Peb->OSPlatformId   = current_version->dwPlatformId;
522
523     user_shared_data->NtProductType      = current_version->wProductType;
524     user_shared_data->ProductTypeIsValid = TRUE;
525     user_shared_data->MajorNtVersion     = current_version->dwMajorVersion;
526     user_shared_data->MinorNtVersion     = current_version->dwMinorVersion;
527     user_shared_data->MinorNtVersion     = current_version->dwMinorVersion;
528     user_shared_data->SuiteMask          = current_version->wSuiteMask;
529
530     TRACE( "got %d.%d platform %d build %x name %s service pack %d.%d product %d\n",
531            current_version->dwMajorVersion, current_version->dwMinorVersion,
532            current_version->dwPlatformId, current_version->dwBuildNumber,
533            debugstr_w(current_version->szCSDVersion),
534            current_version->wServicePackMajor, current_version->wServicePackMinor,
535            current_version->wProductType );
536 }
537
538 /***********************************************************************
539  *           GetProductInfo       (NTDLL.@)
540  *
541  * Gives info about the current Windows product type, in a format compatible
542  * with the given Windows version
543  *
544  * Returns TRUE if the input is valid, FALSE otherwise
545  */
546 BOOLEAN WINAPI RtlGetProductInfo(DWORD dwOSMajorVersion, DWORD dwOSMinorVersion, DWORD dwSpMajorVersion,
547                                  DWORD dwSpMinorVersion, PDWORD pdwReturnedProductType)
548 {
549     FIXME("(%d,%d,%d,%d,%p): stub\n", dwOSMajorVersion, dwOSMinorVersion,
550           dwSpMajorVersion, dwSpMinorVersion, pdwReturnedProductType);
551
552     *pdwReturnedProductType = PRODUCT_ULTIMATE_N;
553
554     return TRUE;
555 }
556
557 /***********************************************************************
558  *         RtlGetVersion   (NTDLL.@)
559  */
560 NTSTATUS WINAPI RtlGetVersion( RTL_OSVERSIONINFOEXW *info )
561 {
562     info->dwMajorVersion = current_version->dwMajorVersion;
563     info->dwMinorVersion = current_version->dwMinorVersion;
564     info->dwBuildNumber  = current_version->dwBuildNumber;
565     info->dwPlatformId   = current_version->dwPlatformId;
566     strcpyW( info->szCSDVersion, current_version->szCSDVersion );
567     if(info->dwOSVersionInfoSize == sizeof(RTL_OSVERSIONINFOEXW))
568     {
569         info->wServicePackMajor = current_version->wServicePackMajor;
570         info->wServicePackMinor = current_version->wServicePackMinor;
571         info->wSuiteMask        = current_version->wSuiteMask;
572         info->wProductType      = current_version->wProductType;
573     }
574     return STATUS_SUCCESS;
575 }
576
577
578 /******************************************************************************
579  *  RtlGetNtVersionNumbers   (NTDLL.@)
580  *
581  * Get the version numbers of the run time library.
582  *
583  * PARAMS
584  *  major [O] Destination for the Major version
585  *  minor [O] Destination for the Minor version
586  *  build [O] Destination for the Build version
587  *
588  * RETURNS
589  *  Nothing.
590  *
591  * NOTES
592  * Introduced in Windows XP (NT5.1)
593  */
594 void WINAPI RtlGetNtVersionNumbers( LPDWORD major, LPDWORD minor, LPDWORD build )
595 {
596     if (major) *major = current_version->dwMajorVersion;
597     if (minor) *minor = current_version->dwMinorVersion;
598     /* FIXME: Does anybody know the real formula? */
599     if (build) *build = (0xF0000000 | current_version->dwBuildNumber);
600 }
601
602
603 /******************************************************************************
604  *  RtlGetNtProductType   (NTDLL.@)
605  */
606 BOOLEAN WINAPI RtlGetNtProductType( LPDWORD type )
607 {
608     if (type) *type = current_version->wProductType;
609     return TRUE;
610 }
611
612
613 static inline NTSTATUS version_compare_values(ULONG left, ULONG right, UCHAR condition)
614 {
615     switch (condition) {
616         case VER_EQUAL:
617             if (left != right) return STATUS_REVISION_MISMATCH;
618             break;
619         case VER_GREATER:
620             if (left <= right) return STATUS_REVISION_MISMATCH;
621             break;
622         case VER_GREATER_EQUAL:
623             if (left < right) return STATUS_REVISION_MISMATCH;
624             break;
625         case VER_LESS:
626             if (left >= right) return STATUS_REVISION_MISMATCH;
627             break;
628         case VER_LESS_EQUAL:
629             if (left > right) return STATUS_REVISION_MISMATCH;
630             break;
631         default:
632             return STATUS_REVISION_MISMATCH;
633     }
634     return STATUS_SUCCESS;
635 }
636
637 /******************************************************************************
638  *        RtlVerifyVersionInfo   (NTDLL.@)
639  */
640 NTSTATUS WINAPI RtlVerifyVersionInfo( const RTL_OSVERSIONINFOEXW *info,
641                                       DWORD dwTypeMask, DWORDLONG dwlConditionMask )
642 {
643     RTL_OSVERSIONINFOEXW ver;
644     NTSTATUS status;
645
646     TRACE("(%p,0x%x,0x%s)\n", info, dwTypeMask, wine_dbgstr_longlong(dwlConditionMask));
647
648     ver.dwOSVersionInfoSize = sizeof(ver);
649     if ((status = RtlGetVersion( &ver )) != STATUS_SUCCESS) return status;
650
651     if(!(dwTypeMask && dwlConditionMask)) return STATUS_INVALID_PARAMETER;
652
653     if(dwTypeMask & VER_PRODUCT_TYPE)
654     {
655         status = version_compare_values(ver.wProductType, info->wProductType, dwlConditionMask >> 7*3 & 0x07);
656         if (status != STATUS_SUCCESS)
657             return status;
658     }
659     if(dwTypeMask & VER_SUITENAME)
660         switch(dwlConditionMask >> 6*3 & 0x07)
661         {
662             case VER_AND:
663                 if((info->wSuiteMask & ver.wSuiteMask) != info->wSuiteMask)
664                     return STATUS_REVISION_MISMATCH;
665                 break;
666             case VER_OR:
667                 if(!(info->wSuiteMask & ver.wSuiteMask) && info->wSuiteMask)
668                     return STATUS_REVISION_MISMATCH;
669                 break;
670             default:
671                 return STATUS_INVALID_PARAMETER;
672         }
673     if(dwTypeMask & VER_PLATFORMID)
674     {
675         status = version_compare_values(ver.dwPlatformId, info->dwPlatformId, dwlConditionMask >> 3*3 & 0x07);
676         if (status != STATUS_SUCCESS)
677             return status;
678     }
679     if(dwTypeMask & VER_BUILDNUMBER)
680     {
681         status = version_compare_values(ver.dwBuildNumber, info->dwBuildNumber, dwlConditionMask >> 2*3 & 0x07);
682         if (status != STATUS_SUCCESS)
683             return status;
684     }
685
686     if(dwTypeMask & (VER_MAJORVERSION|VER_MINORVERSION|VER_SERVICEPACKMAJOR|VER_SERVICEPACKMINOR))
687     {
688         unsigned char condition = 0;
689         BOOLEAN do_next_check = TRUE;
690
691         if(dwTypeMask & VER_MAJORVERSION)
692             condition = dwlConditionMask >> 1*3 & 0x07;
693         else if(dwTypeMask & VER_MINORVERSION)
694             condition = dwlConditionMask >> 0*3 & 0x07;
695         else if(dwTypeMask & VER_SERVICEPACKMAJOR)
696             condition = dwlConditionMask >> 5*3 & 0x07;
697         else if(dwTypeMask & VER_SERVICEPACKMINOR)
698             condition = dwlConditionMask >> 4*3 & 0x07;
699
700         if(dwTypeMask & VER_MAJORVERSION)
701         {
702             status = version_compare_values(ver.dwMajorVersion, info->dwMajorVersion, condition);
703             do_next_check = (ver.dwMajorVersion == info->dwMajorVersion) &&
704                 ((condition != VER_EQUAL) || (status == STATUS_SUCCESS));
705         }
706         if((dwTypeMask & VER_MINORVERSION) && do_next_check)
707         {
708             status = version_compare_values(ver.dwMinorVersion, info->dwMinorVersion, condition);
709             do_next_check = (ver.dwMinorVersion == info->dwMinorVersion) &&
710                 ((condition != VER_EQUAL) || (status == STATUS_SUCCESS));
711         }
712         if((dwTypeMask & VER_SERVICEPACKMAJOR) && do_next_check)
713         {
714             status = version_compare_values(ver.wServicePackMajor, info->wServicePackMajor, condition);
715             do_next_check = (ver.wServicePackMajor == info->wServicePackMajor) &&
716                 ((condition != VER_EQUAL) || (status == STATUS_SUCCESS));
717         }
718         if((dwTypeMask & VER_SERVICEPACKMINOR) && do_next_check)
719         {
720             status = version_compare_values(ver.wServicePackMinor, info->wServicePackMinor, condition);
721         }
722
723         if (status != STATUS_SUCCESS)
724             return status;
725     }
726
727     return STATUS_SUCCESS;
728 }