Added alias capability to --winver.
[wine] / misc / version.c
1 /*
2  * Windows and DOS version functions
3  *
4  * Copyright 1997 Alexandre Julliard
5  * Copyright 1997 Marcus Meissner
6  * Copyright 1998 Patrik Stridvall
7  * Copyright 1998 Andreas Mohr
8  */
9
10 #include <string.h>
11 #include <stdlib.h>
12 #include <stdio.h>
13 #include "windef.h"
14 #include "winbase.h"
15 #include "wingdi.h"
16 #include "winuser.h"
17 #include "wine/winbase16.h"
18 #include "process.h"
19 #include "options.h"
20 #include "debugtools.h"
21 #include "neexe.h"
22 #include "winerror.h"
23
24 DEFAULT_DEBUG_CHANNEL(ver);
25
26 typedef enum
27 {
28     WIN20,   /* Windows 2.0 */
29     WIN30,   /* Windows 3.0 */
30     WIN31,   /* Windows 3.1 */
31     WIN95,   /* Windows 95 */
32     WIN98,   /* Windows 98 */
33  /* insert Windows ME here as WINME if needed */
34     NT351,   /* Windows NT 3.51 */
35     NT40,    /* Windows NT 4.0 */  
36     NT2K,    /* Windows 2000 */
37     NB_WINDOWS_VERSIONS
38 } WINDOWS_VERSION;
39
40 typedef struct
41 {
42     LONG             getVersion16; 
43     LONG             getVersion32;
44     OSVERSIONINFOA getVersionEx;
45 } VERSION_DATA;
46
47 /* FIXME: compare values below with original and fix */
48 static VERSION_DATA VersionData[NB_WINDOWS_VERSIONS] =
49 {
50     /* WIN20 FIXME: verify values */
51     {
52         MAKELONG( 0x0002, 0x0303 ), /* assume DOS 3.3 */
53         MAKELONG( 0x0003, 0x8000 ),
54         {
55             sizeof(OSVERSIONINFOA), 2, 0, 0,
56             VER_PLATFORM_WIN32s, "Win32s 1.3" 
57         }
58     },
59     /* WIN30 FIXME: verify values */
60     {
61         MAKELONG( 0x0003, 0x0500 ), /* assume DOS 5.00 */
62         MAKELONG( 0x0003, 0x8000 ),
63         {
64             sizeof(OSVERSIONINFOA), 3, 0, 0,
65             VER_PLATFORM_WIN32s, "Win32s 1.3" 
66         }
67     },
68     /* WIN31 */
69     {
70         MAKELONG( 0x0a03, 0x0616 ), /* DOS 6.22 */
71         MAKELONG( 0x0a03, 0x8000 ),
72         {
73             sizeof(OSVERSIONINFOA), 3, 10, 0,
74             VER_PLATFORM_WIN32s, "Win32s 1.3" 
75         }
76     },
77     /* WIN95 */
78     {
79         0x07005F03,
80         0xC0000004,
81         {
82             sizeof(OSVERSIONINFOA), 4, 0, 0x40003B6,
83             VER_PLATFORM_WIN32_WINDOWS, "Win95"
84         }
85     },
86     /* WIN98 */
87     {
88         0x070A5F03,
89         0xC0000A04,
90         {
91             sizeof(OSVERSIONINFOA), 4, 10, 0x40A07CE,
92             VER_PLATFORM_WIN32_WINDOWS, "Win98"
93         }
94     },
95     /* NT351 */
96     {
97         0x05000A03,
98         0x04213303,
99         {
100             sizeof(OSVERSIONINFOA), 3, 51, 0x421,
101             VER_PLATFORM_WIN32_NT, "Service Pack 2"
102         }
103     },
104     /* NT40 */
105     {
106         0x05000A03,
107         0x05650004,
108         {
109             sizeof(OSVERSIONINFOA), 4, 0, 0x565,
110             VER_PLATFORM_WIN32_NT, "Service Pack 6"
111         }
112     },
113     /* NT2K FIXME: verify values */
114     {
115         0x05000A03, /* ? */
116         0x08930005, /* better build ? using 2195 (final) for now */
117         {
118             sizeof(OSVERSIONINFOA), 5, 0, 0x893,
119             VER_PLATFORM_WIN32_NT, "FIXME: OS version string not known yet"
120         }
121     }
122 };
123
124 static const char *WinVersionNames[NB_WINDOWS_VERSIONS] =
125 { /* no spaces in here ! */
126     "win20",
127     "win30",
128     "win31",
129     "win95",
130     "win98",
131     "nt351",
132     "nt40",
133     "win2000,win2k,nt2k,nt2000"
134 };
135
136 /* if one of the following dlls is importing ntdll the windows
137 version autodetection switches wine to unicode (nt 3.51 or 4.0) */
138 static char * special_dlls[] =
139 {
140         "COMDLG32",
141         "COMCTL32",
142         "SHELL32",
143         "OLE32",
144         "RPCRT4",
145         NULL
146 };
147
148 /* the current version has not been autodetected but forced via cmdline */
149 static BOOL versionForced = FALSE;
150 static WINDOWS_VERSION defaultWinVersion = WIN31;
151
152 /**********************************************************************
153  *         VERSION_ParseWinVersion
154  */
155 void VERSION_ParseWinVersion( const char *arg )
156 {
157     int i, len;
158     const char *pCurr, *p;
159     for (i = 0; i < NB_WINDOWS_VERSIONS; i++)
160     {
161         pCurr = WinVersionNames[i];
162         /* iterate through all winver aliases separated by comma */
163         do {
164             p = strchr(pCurr, ',');
165             len = p ? (int)p - (int)pCurr : strlen(pCurr);
166             if ( (!strncmp( pCurr, arg, len )) && (arg[len] == '\0') )
167             {
168                 defaultWinVersion = (WINDOWS_VERSION)i;
169                 versionForced = TRUE;
170                 return;
171             }
172             pCurr = p+1;
173         } while (p);
174     }
175     MESSAGE("Invalid winver value '%s' specified.\n", arg );
176     MESSAGE("Valid versions are:" );
177     for (i = 0; i < NB_WINDOWS_VERSIONS; i++)
178     {
179         /* only list the first, "official" alias in case of aliases */
180         pCurr = WinVersionNames[i];
181         p = strchr(pCurr, ',');
182         len = (p) ? (int)p - (int)pCurr : strlen(pCurr);
183
184         MESSAGE(" '%.*s'%c", len, pCurr,
185                 (i == NB_WINDOWS_VERSIONS - 1) ? '\n' : ',' );
186     }
187     ExitProcess(1);
188 }
189
190
191 /**********************************************************************
192  *         VERSION_ParseDosVersion
193  */
194 void VERSION_ParseDosVersion( const char *arg )
195 {
196     int hi, lo;
197     if (sscanf( arg, "%d.%d", &hi, &lo ) == 2)
198     {
199         VersionData[WIN31].getVersion16 =
200             MAKELONG(LOWORD(VersionData[WIN31].getVersion16),
201                      (hi<<8) + lo);
202     }
203     else
204     {
205         MESSAGE("--dosver: Wrong version format. Use \"--dosver x.xx\"\n");
206         ExitProcess(1);
207     }
208 }
209
210 /**********************************************************************
211  *      VERSION_GetSystemDLLVersion
212  *
213  * This function tries to figure out if a given (native) dll comes from
214  * win95/98 or winnt. Since all values in the OptionalHeader are not a 
215  * usable hint, we test if a dll imports the ntdll.
216  * This is at least working for all system dlls like comctl32, comdlg32 and
217  * shell32.
218  * If you have a better idea to figure this out...
219  */
220 static DWORD VERSION_GetSystemDLLVersion( HMODULE hmod )
221 {
222     IMAGE_DATA_DIRECTORY *dir = PE_HEADER(hmod)->OptionalHeader.DataDirectory
223                                 + IMAGE_DIRECTORY_ENTRY_IMPORT;
224     if (dir->Size && dir->VirtualAddress)
225     {
226         IMAGE_IMPORT_DESCRIPTOR *pe_imp = (IMAGE_IMPORT_DESCRIPTOR *)((char *)hmod + dir->VirtualAddress);
227         for ( ; pe_imp->Name; pe_imp++)
228         {
229             char * name = (char *)hmod + (unsigned int)pe_imp->Name;
230             TRACE("%s\n", name);
231             
232             if (!strncasecmp(name, "ntdll", 5))
233             {
234               if (3 == PE_HEADER(hmod)->OptionalHeader.MajorOperatingSystemVersion)
235                 return NT351;
236               else
237                 return NT40;
238             }
239         }
240     }
241     return WIN95;
242 }
243 /**********************************************************************
244  *      VERSION_GetLinkedDllVersion
245  *
246  * Some version data (not reliable!):
247  * linker/OS/image/subsys
248  *
249  * x.xx/1.00/0.00/3.10  Win32s          (any version ?)
250  * 2.39/1.00/0.00/3.10  Win32s          freecell.exe (any version)
251  * 2.50/1.00/4.00/4.00  Win32s 1.30     winhlp32.exe    
252  * 2.60/3.51/3.51/3.51  NT351SP5        system dlls 
253  * 2.60/3.51/3.51/4.00  NT351SP5        comctl32 dll
254  * 2.xx/1.00/0.00/4.00  Win95           system files
255  * x.xx/4.00/0.00/4.00  Win95           most applications
256  * 3.10/4.00/0.00/4.00  Win98           notepad
257  * x.xx/5.00/5.00/4.00  Win98           system dlls
258  * x.xx/4.00/4.00/4.00  NT 4            most apps
259  * 5.12/5.00/5.00/4.00  NT4+IE5         comctl32.dll
260  * 5.12/5.00/5.00/4.00  Win98           calc
261  * x.xx/5.00/5.00/4.00  win95/win98/NT4 IE5 files
262  */
263 DWORD VERSION_GetLinkedDllVersion(PDB *pdb)
264 {
265         WINE_MODREF *wm;
266         DWORD WinVersion = NB_WINDOWS_VERSIONS;
267         PIMAGE_OPTIONAL_HEADER ophd;
268
269         if (!pdb->exe_modref)
270         {
271           if (!pdb->modref_list)
272             return WIN31;
273
274           /* FIXME: The above condition will never trigger, since all our
275            * standard dlls load their win32 equivalents. We have usually at
276            * this point: kernel32.dll and ntdll.dll.
277            */
278           return WIN95;
279         }
280         /* First check the native dlls provided. These have to be
281         from one windows version */
282         for ( wm = pdb->modref_list; wm; wm=wm->next )
283         {
284           ophd = &(PE_HEADER(wm->module)->OptionalHeader);
285
286           TRACE("%s: %02x.%02x/%02x.%02x/%02x.%02x/%02x.%02x\n",
287             wm->modname,
288             ophd->MajorLinkerVersion, ophd->MinorLinkerVersion,
289             ophd->MajorOperatingSystemVersion, ophd->MinorOperatingSystemVersion,
290             ophd->MajorImageVersion, ophd->MinorImageVersion,
291             ophd->MajorSubsystemVersion, ophd->MinorSubsystemVersion);
292
293           /* test if it is an external (native) dll */
294           if (!(wm->flags & WINE_MODREF_INTERNAL))
295           {
296             int i;
297             for (i = 0; special_dlls[i]; i++)
298             {
299               /* test if it is a special dll */
300               if (!strncasecmp(wm->modname, special_dlls[i], strlen(special_dlls[i]) ))
301               {
302                 DWORD DllVersion = VERSION_GetSystemDLLVersion(wm->module);
303                 if (WinVersion == NB_WINDOWS_VERSIONS) 
304                   WinVersion = DllVersion;
305                 else {
306                   if (WinVersion != DllVersion) {
307                     ERR("You mixed system dlls from different windows versions! Expect a crash! (%s: expected version '%s', but is '%s')\n",
308                         wm->modname,
309                         VersionData[WinVersion].getVersionEx.szCSDVersion,
310                         VersionData[DllVersion].getVersionEx.szCSDVersion);
311                     return WIN31; /* this may let the exe exiting */
312                   }
313                 }
314                 break;
315               }
316             }
317           }
318         }
319         
320         if(WinVersion != NB_WINDOWS_VERSIONS) return WinVersion;
321         
322         /* we are using no external system dlls, look at the exe */
323         ophd = &(PE_HEADER(pdb->exe_modref->module)->OptionalHeader);
324         
325         TRACE("-%s: %02x.%02x/%02x.%02x/%02x.%02x/%02x.%02x\n",
326             pdb->exe_modref->modname,
327             ophd->MajorLinkerVersion, ophd->MinorLinkerVersion,
328             ophd->MajorOperatingSystemVersion, ophd->MinorOperatingSystemVersion,
329             ophd->MajorImageVersion, ophd->MinorImageVersion,
330             ophd->MajorSubsystemVersion, ophd->MinorSubsystemVersion);
331
332         /* special nt 3.51 */
333         if (3 == ophd->MajorOperatingSystemVersion && 51 == ophd->MinorOperatingSystemVersion)
334         {
335             return NT351;
336         }
337
338         /* the MajorSubsystemVersion is the only usable sign */
339         if (ophd->MajorSubsystemVersion < 4)
340         {
341           if ( ophd->MajorOperatingSystemVersion == 1 
342             && ophd->MinorOperatingSystemVersion == 0)
343           {
344             return WIN31; /* win32s */
345           }
346           
347           if (ophd->Subsystem == IMAGE_SUBSYSTEM_WINDOWS_CUI)
348             return NT351; /* FIXME: NT 3.1, not tested */
349           else
350             return WIN95;
351         }       
352
353         return WIN95;
354 }
355
356 /**********************************************************************
357  *         VERSION_GetVersion
358  *
359  * WARNING !!!
360  * Don't call this function too early during the Wine init,
361  * as pdb->exe_modref (required by VERSION_GetImageVersion()) might still
362  * be NULL in such cases, which causes the winver to ALWAYS be detected
363  * as WIN31.
364  * And as we cache the winver once it has been determined, this is bad.
365  * This can happen much easier than you might think, as this function
366  * is called by EVERY GetVersion*() API !
367  *
368  */
369 static WINDOWS_VERSION VERSION_GetVersion(void)
370 {
371         static WORD winver = 0xffff;
372
373         if (versionForced) /* user has overridden any sensible checks */
374           return defaultWinVersion;
375
376         if (winver == 0xffff) /* to be determined */ {
377           WINDOWS_VERSION retver = VERSION_GetLinkedDllVersion( PROCESS_Current() );
378
379           if (retver != WIN31) winver = retver;
380           return retver;
381         }
382         return winver;
383 }
384
385
386 /***********************************************************************
387  *         GetVersion16   (KERNEL.3)
388  */
389 LONG WINAPI GetVersion16(void)
390 {
391     WINDOWS_VERSION ver = VERSION_GetVersion();
392     return VersionData[ver].getVersion16;
393 }
394
395
396 /***********************************************************************
397  *         GetVersion   (KERNEL32.427)
398  */
399 LONG WINAPI GetVersion(void)
400 {
401     WINDOWS_VERSION ver = VERSION_GetVersion();
402     return VersionData[ver].getVersion32;
403 }
404
405
406 /***********************************************************************
407  *         GetVersionEx16   (KERNEL.149)
408  */
409 BOOL16 WINAPI GetVersionEx16(OSVERSIONINFO16 *v)
410 {
411     WINDOWS_VERSION ver = VERSION_GetVersion();
412     if (v->dwOSVersionInfoSize != sizeof(OSVERSIONINFO16))
413     {
414         WARN("wrong OSVERSIONINFO size from app");
415         SetLastError(ERROR_INSUFFICIENT_BUFFER);
416         return FALSE;
417     }
418     v->dwMajorVersion = VersionData[ver].getVersionEx.dwMajorVersion;
419     v->dwMinorVersion = VersionData[ver].getVersionEx.dwMinorVersion;
420     v->dwBuildNumber  = VersionData[ver].getVersionEx.dwBuildNumber;
421     v->dwPlatformId   = VersionData[ver].getVersionEx.dwPlatformId;
422     strcpy( v->szCSDVersion, VersionData[ver].getVersionEx.szCSDVersion );
423     return TRUE;
424 }
425
426
427 /***********************************************************************
428  *         GetVersionExA   (KERNEL32.428)
429  */
430 BOOL WINAPI GetVersionExA(OSVERSIONINFOA *v)
431 {
432     WINDOWS_VERSION ver = VERSION_GetVersion();
433     if (v->dwOSVersionInfoSize != sizeof(OSVERSIONINFOA))
434     {
435         WARN("wrong OSVERSIONINFO size from app (got: %ld, expected: %d)",
436                         v->dwOSVersionInfoSize, sizeof(OSVERSIONINFOA));
437         SetLastError(ERROR_INSUFFICIENT_BUFFER);
438         return FALSE;
439     }
440     v->dwMajorVersion = VersionData[ver].getVersionEx.dwMajorVersion;
441     v->dwMinorVersion = VersionData[ver].getVersionEx.dwMinorVersion;
442     v->dwBuildNumber  = VersionData[ver].getVersionEx.dwBuildNumber;
443     v->dwPlatformId   = VersionData[ver].getVersionEx.dwPlatformId;
444     strcpy( v->szCSDVersion, VersionData[ver].getVersionEx.szCSDVersion );
445     return TRUE;
446 }
447
448
449 /***********************************************************************
450  *         GetVersionExW   (KERNEL32.429)
451  */
452 BOOL WINAPI GetVersionExW(OSVERSIONINFOW *v)
453 {
454     WINDOWS_VERSION ver = VERSION_GetVersion();
455
456     if (v->dwOSVersionInfoSize!=sizeof(OSVERSIONINFOW))
457     {
458         WARN("wrong OSVERSIONINFO size from app (got: %ld, expected: %d)",
459                         v->dwOSVersionInfoSize, sizeof(OSVERSIONINFOW));
460         SetLastError(ERROR_INSUFFICIENT_BUFFER);
461         return FALSE;
462     }
463     v->dwMajorVersion = VersionData[ver].getVersionEx.dwMajorVersion;
464     v->dwMinorVersion = VersionData[ver].getVersionEx.dwMinorVersion;
465     v->dwBuildNumber  = VersionData[ver].getVersionEx.dwBuildNumber;
466     v->dwPlatformId   = VersionData[ver].getVersionEx.dwPlatformId;
467     MultiByteToWideChar( CP_ACP, 0, VersionData[ver].getVersionEx.szCSDVersion, -1,
468                          v->szCSDVersion, sizeof(v->szCSDVersion)/sizeof(WCHAR) );
469     return TRUE;
470 }
471
472
473 /***********************************************************************
474  *          GetWinFlags   (KERNEL.132)
475  */
476 DWORD WINAPI GetWinFlags16(void)
477 {
478   static const long cpuflags[5] =
479     { WF_CPU086, WF_CPU186, WF_CPU286, WF_CPU386, WF_CPU486 };
480   SYSTEM_INFO si;
481   OSVERSIONINFOA ovi;
482   DWORD result;
483
484   GetSystemInfo(&si);
485
486   /* There doesn't seem to be any Pentium flag.  */
487   result = cpuflags[min(si.wProcessorLevel, 4)] | WF_ENHANCED | WF_PMODE | WF_80x87 | WF_PAGING;
488   if (si.wProcessorLevel >= 4) result |= WF_HASCPUID;
489   ovi.dwOSVersionInfoSize = sizeof(ovi);
490   GetVersionExA(&ovi);
491   if (ovi.dwPlatformId == VER_PLATFORM_WIN32_NT)
492       result |= WF_WIN32WOW; /* undocumented WF_WINNT */
493   return result;
494 }
495
496
497 /***********************************************************************
498  *          GetWinDebugInfo   (KERNEL.355)
499  */
500 BOOL16 WINAPI GetWinDebugInfo16(WINDEBUGINFO *lpwdi, UINT16 flags)
501 {
502     FIXME("(%8lx,%d): stub returning 0\n",
503           (unsigned long)lpwdi, flags);
504     /* 0 means not in debugging mode/version */
505     /* Can this type of debugging be used in wine ? */
506     /* Constants: WDI_OPTIONS WDI_FILTER WDI_ALLOCBREAK */
507     return 0;
508 }
509
510
511 /***********************************************************************
512  *          SetWinDebugInfo   (KERNEL.356)
513  */
514 BOOL16 WINAPI SetWinDebugInfo16(WINDEBUGINFO *lpwdi)
515 {
516     FIXME("(%8lx): stub returning 0\n", (unsigned long)lpwdi);
517     /* 0 means not in debugging mode/version */
518     /* Can this type of debugging be used in wine ? */
519     /* Constants: WDI_OPTIONS WDI_FILTER WDI_ALLOCBREAK */
520     return 0;
521 }
522
523
524 /***********************************************************************
525  *           DebugFillBuffer                    (KERNEL.329)
526  *
527  * TODO:
528  * Should fill lpBuffer only if DBO_BUFFERFILL has been set by SetWinDebugInfo()
529  */
530 void WINAPI DebugFillBuffer(LPSTR lpBuffer, WORD wBytes)
531 {
532         memset(lpBuffer, DBGFILL_BUFFER, wBytes);
533 }
534
535 /***********************************************************************
536  *           DiagQuery                          (KERNEL.339)
537  *
538  * returns TRUE if Win called with "/b" (bootlog.txt)
539  */
540 BOOL16 WINAPI DiagQuery16()
541 {
542         /* perhaps implement a Wine "/b" command line flag sometime ? */
543         return FALSE;
544 }
545
546 /***********************************************************************
547  *           DiagOutput                         (KERNEL.340)
548  *
549  * writes a debug string into <windir>\bootlog.txt
550  */
551 void WINAPI DiagOutput16(LPCSTR str)
552 {
553         /* FIXME */
554         DPRINTF("DIAGOUTPUT:%s\n", debugstr_a(str));
555 }