dlls/kernel32/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 "winbase.h"
  35 #include "wingdi.h"
  36 #include "winuser.h"
  37 #include "winternl.h"
  38 #include "winerror.h"
  39 #include "wine/winbase16.h"
  40 #include "wine/unicode.h"
  41 #include "wine/debug.h"
  42
  43 WINE_DEFAULT_DEBUG_CHANNEL(ver);
  44
  45
  46 /***********************************************************************
  47  *         GetVersion   (KERNEL.3)
  48  */
  49 DWORD WINAPI GetVersion16(void)
  50 {
  51     static WORD dosver, winver;
  52
  53     if (!dosver)  /* not determined yet */
  54     {
  55         RTL_OSVERSIONINFOEXW info;
  56
  57         info.dwOSVersionInfoSize = sizeof(info);
  58         if (RtlGetVersion( &info ) != STATUS_SUCCESS) return 0;
  59
  60         if (info.dwMajorVersion <= 3)
  61             winver = MAKEWORD( info.dwMajorVersion, info.dwMinorVersion );
  62         else
  63             winver = MAKEWORD( 3, 95 );
  64
  65         switch(info.dwPlatformId)
  66         {
  67         case VER_PLATFORM_WIN32s:
  68             switch(MAKELONG( info.dwMinorVersion, info.dwMajorVersion ))
  69             {
  70             case 0x0200:
  71                 dosver = 0x0303;  /* DOS 3.3 for Windows 2.0 */
  72                 break;
  73             case 0x0300:
  74                 dosver = 0x0500;  /* DOS 5.0 for Windows 3.0 */
  75                 break;
  76             default:
  77                 dosver = 0x0616;  /* DOS 6.22 for Windows 3.1 and later */
  78                 break;
  79             }
  80             break;
  81         case VER_PLATFORM_WIN32_WINDOWS:
  82             /* DOS 8.0 for WinME, 7.0 for Win95/98 */
  83             if (info.dwMinorVersion >= 90) dosver = 0x0800;
  84             else dosver = 0x0700;
  85             break;
  86         case VER_PLATFORM_WIN32_NT:
  87             dosver = 0x0500;  /* always DOS 5.0 for NT */
  88             break;
  89         }
  90         TRACE( "DOS %d.%02d Win %d.%02d\n",
  91                HIBYTE(dosver), LOBYTE(dosver), LOBYTE(winver), HIBYTE(winver) );
  92     }
  93     return MAKELONG( winver, dosver );
  94 }
  95
  96
  97 /***********************************************************************
  98  *         GetVersion   (KERNEL32.@)
  99  *
 100  * Win31   0x80000a03
 101  * Win95   0xc0000004
 102  * Win98   0xc0000a04
 103  * WinME   0xc0005a04
 104  * NT351   0x04213303
 105  * NT4     0x05650004
 106  * Win2000 0x08930005
 107  * WinXP   0x0a280105
 108  */
 109 DWORD WINAPI GetVersion(void)
 110 {
 111     DWORD result = MAKELONG( MAKEWORD( NtCurrentTeb()->Peb->OSMajorVersion,
 112                                        NtCurrentTeb()->Peb->OSMinorVersion ),
 113                              (NtCurrentTeb()->Peb->OSPlatformId ^ 2) << 14 );
 114     if (NtCurrentTeb()->Peb->OSPlatformId == VER_PLATFORM_WIN32_NT)
 115         result |= LOWORD(NtCurrentTeb()->Peb->OSBuildNumber) << 16;
 116     return result;
 117 }
 118
 119
 120 /***********************************************************************
 121  *         GetVersionEx   (KERNEL.149)
 122  */
 123 BOOL16 WINAPI GetVersionEx16(OSVERSIONINFO16 *v)
 124 {
 125     OSVERSIONINFOA info;
 126
 127     if (v->dwOSVersionInfoSize < sizeof(OSVERSIONINFO16))
 128     {
 129         WARN("wrong OSVERSIONINFO size from app\n");
 130         return FALSE;
 131     }
 132
 133     info.dwOSVersionInfoSize = sizeof(info);
 134     if (!GetVersionExA( &info )) return FALSE;
 135
 136     v->dwMajorVersion = info.dwMajorVersion;
 137     v->dwMinorVersion = info.dwMinorVersion;
 138     v->dwBuildNumber  = info.dwBuildNumber;
 139     v->dwPlatformId   = info.dwPlatformId;
 140     strcpy( v->szCSDVersion, info.szCSDVersion );
 141     return TRUE;
 142 }
 143
 144
 145 /***********************************************************************
 146  *         GetVersionExA   (KERNEL32.@)
 147  */
 148 BOOL WINAPI GetVersionExA(OSVERSIONINFOA *v)
 149 {
 150     RTL_OSVERSIONINFOEXW infoW;
 151
 152     if (v->dwOSVersionInfoSize != sizeof(OSVERSIONINFOA) &&
 153         v->dwOSVersionInfoSize != sizeof(OSVERSIONINFOEXA))
 154     {
 155         WARN("wrong OSVERSIONINFO size from app (got: %d)\n",
 156                         v->dwOSVersionInfoSize );
 157         SetLastError(ERROR_INSUFFICIENT_BUFFER);
 158         return FALSE;
 159     }
 160
 161     infoW.dwOSVersionInfoSize = sizeof(infoW);
 162     if (RtlGetVersion( &infoW ) != STATUS_SUCCESS) return FALSE;
 163
 164     v->dwMajorVersion = infoW.dwMajorVersion;
 165     v->dwMinorVersion = infoW.dwMinorVersion;
 166     v->dwBuildNumber  = infoW.dwBuildNumber;
 167     v->dwPlatformId   = infoW.dwPlatformId;
 168     WideCharToMultiByte( CP_ACP, 0, infoW.szCSDVersion, -1,
 169                          v->szCSDVersion, sizeof(v->szCSDVersion), NULL, NULL );
 170
 171     if(v->dwOSVersionInfoSize == sizeof(OSVERSIONINFOEXA))
 172     {
 173         LPOSVERSIONINFOEXA vex = (LPOSVERSIONINFOEXA) v;
 174         vex->wServicePackMajor = infoW.wServicePackMajor;
 175         vex->wServicePackMinor = infoW.wServicePackMinor;
 176         vex->wSuiteMask        = infoW.wSuiteMask;
 177         vex->wProductType      = infoW.wProductType;
 178     }
 179     return TRUE;
 180 }
 181
 182
 183 /***********************************************************************
 184  *         GetVersionExW   (KERNEL32.@)
 185  */
 186 BOOL WINAPI GetVersionExW( OSVERSIONINFOW *info )
 187 {
 188     if (info->dwOSVersionInfoSize != sizeof(OSVERSIONINFOW) &&
 189         info->dwOSVersionInfoSize != sizeof(OSVERSIONINFOEXW))
 190     {
 191         WARN("wrong OSVERSIONINFO size from app (got: %d)\n",
 192                         info->dwOSVersionInfoSize);
 193         return FALSE;
 194     }
 195     return (RtlGetVersion( (RTL_OSVERSIONINFOEXW *)info ) == STATUS_SUCCESS);
 196 }
 197
 198
 199 /******************************************************************************
 200  *        VerifyVersionInfoA   (KERNEL32.@)
 201  */
 202 BOOL WINAPI VerifyVersionInfoA( LPOSVERSIONINFOEXA lpVersionInfo, DWORD dwTypeMask,
 203                                 DWORDLONG dwlConditionMask)
 204 {
 205     OSVERSIONINFOEXW verW;
 206
 207     verW.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEXW);
 208     verW.dwMajorVersion = lpVersionInfo->dwMajorVersion;
 209     verW.dwMinorVersion = lpVersionInfo->dwMinorVersion;
 210     verW.dwBuildNumber = lpVersionInfo->dwBuildNumber;
 211     verW.dwPlatformId = lpVersionInfo->dwPlatformId;
 212     verW.wServicePackMajor = lpVersionInfo->wServicePackMajor;
 213     verW.wServicePackMinor = lpVersionInfo->wServicePackMinor;
 214     verW.wSuiteMask = lpVersionInfo->wSuiteMask;
 215     verW.wProductType = lpVersionInfo->wProductType;
 216     verW.wReserved = lpVersionInfo->wReserved;
 217
 218     return VerifyVersionInfoW(&verW, dwTypeMask, dwlConditionMask);
 219 }
 220
 221
 222 /******************************************************************************
 223  *        VerifyVersionInfoW   (KERNEL32.@)
 224  */
 225 BOOL WINAPI VerifyVersionInfoW( LPOSVERSIONINFOEXW lpVersionInfo, DWORD dwTypeMask,
 226                                 DWORDLONG dwlConditionMask)
 227 {
 228     switch(RtlVerifyVersionInfo( lpVersionInfo, dwTypeMask, dwlConditionMask ))
 229     {
 230     case STATUS_INVALID_PARAMETER:
 231         SetLastError( ERROR_BAD_ARGUMENTS );
 232         return FALSE;
 233     case STATUS_REVISION_MISMATCH:
 234         SetLastError( ERROR_OLD_WIN_VERSION );
 235         return FALSE;
 236     }
 237     return TRUE;
 238 }
 239
 240
 241 /***********************************************************************
 242  *          GetWinFlags   (KERNEL.132)
 243  */
 244 DWORD WINAPI GetWinFlags16(void)
 245 {
 246   static const long cpuflags[5] =
 247     { WF_CPU086, WF_CPU186, WF_CPU286, WF_CPU386, WF_CPU486 };
 248   SYSTEM_INFO si;
 249   OSVERSIONINFOA ovi;
 250   DWORD result;
 251
 252   GetSystemInfo(&si);
 253
 254   /* There doesn't seem to be any Pentium flag.  */
 255   result = cpuflags[min(si.wProcessorLevel, 4)] | WF_ENHANCED | WF_PMODE | WF_80x87 | WF_PAGING;
 256   if (si.wProcessorLevel >= 4) result |= WF_HASCPUID;
 257   ovi.dwOSVersionInfoSize = sizeof(ovi);
 258   GetVersionExA(&ovi);
 259   if (ovi.dwPlatformId == VER_PLATFORM_WIN32_NT)
 260       result |= WF_WIN32WOW; /* undocumented WF_WINNT */
 261   return result;
 262 }
 263
 264
 265 #if 0
 266 /* Not used at this time. This is here for documentation only */
 267
 268 /* WINDEBUGINFO flags values */
 269 #define WDI_OPTIONS         0x0001
 270 #define WDI_FILTER          0x0002
 271 #define WDI_ALLOCBREAK      0x0004
 272
 273 /* dwOptions values */
 274 #define DBO_CHECKHEAP       0x0001
 275 #define DBO_BUFFERFILL      0x0004
 276 #define DBO_DISABLEGPTRAPPING 0x0010
 277 #define DBO_CHECKFREE       0x0020
 278
 279 #define DBO_SILENT          0x8000
 280
 281 #define DBO_TRACEBREAK      0x2000
 282 #define DBO_WARNINGBREAK    0x1000
 283 #define DBO_NOERRORBREAK    0x0800
 284 #define DBO_NOFATALBREAK    0x0400
 285 #define DBO_INT3BREAK       0x0100
 286
 287 /* DebugOutput flags values */
 288 #define DBF_TRACE           0x0000
 289 #define DBF_WARNING         0x4000
 290 #define DBF_ERROR           0x8000
 291 #define DBF_FATAL           0xc000
 292
 293 /* dwFilter values */
 294 #define DBF_KERNEL          0x1000
 295 #define DBF_KRN_MEMMAN      0x0001
 296 #define DBF_KRN_LOADMODULE  0x0002
 297 #define DBF_KRN_SEGMENTLOAD 0x0004
 298 #define DBF_USER            0x0800
 299 #define DBF_GDI             0x0400
 300 #define DBF_MMSYSTEM        0x0040
 301 #define DBF_PENWIN          0x0020
 302 #define DBF_APPLICATION     0x0008
 303 #define DBF_DRIVER          0x0010
 304
 305 #endif /* NOLOGERROR */
 306
 307
 308 /***********************************************************************
 309  *          GetWinDebugInfo   (KERNEL.355)
 310  */
 311 BOOL16 WINAPI GetWinDebugInfo16(WINDEBUGINFO16 *lpwdi, UINT16 flags)
 312 {
 313     FIXME("(%8lx,%d): stub returning 0\n",
 314           (unsigned long)lpwdi, flags);
 315     /* 0 means not in debugging mode/version */
 316     /* Can this type of debugging be used in wine ? */
 317     /* Constants: WDI_OPTIONS WDI_FILTER WDI_ALLOCBREAK */
 318     return 0;
 319 }
 320
 321
 322 /***********************************************************************
 323  *          SetWinDebugInfo   (KERNEL.356)
 324  */
 325 BOOL16 WINAPI SetWinDebugInfo16(WINDEBUGINFO16 *lpwdi)
 326 {
 327     FIXME("(%8lx): stub returning 0\n", (unsigned long)lpwdi);
 328     /* 0 means not in debugging mode/version */
 329     /* Can this type of debugging be used in wine ? */
 330     /* Constants: WDI_OPTIONS WDI_FILTER WDI_ALLOCBREAK */
 331     return 0;
 332 }
 333
 334
 335 /***********************************************************************
 336  *           K329                    (KERNEL.329)
 337  *
 338  * TODO:
 339  * Should fill lpBuffer only if DBO_BUFFERFILL has been set by SetWinDebugInfo()
 340  */
 341 void WINAPI DebugFillBuffer(LPSTR lpBuffer, WORD wBytes)
 342 {
 343         memset(lpBuffer, DBGFILL_BUFFER, wBytes);
 344 }
 345
 346 /***********************************************************************
 347  *           DiagQuery                          (KERNEL.339)
 348  *
 349  * returns TRUE if Win called with "/b" (bootlog.txt)
 350  */
 351 BOOL16 WINAPI DiagQuery16(void)
 352 {
 353         /* perhaps implement a Wine "/b" command line flag sometime ? */
 354         return FALSE;
 355 }
 356
 357 /***********************************************************************
 358  *           DiagOutput                         (KERNEL.340)
 359  *
 360  * writes a debug string into <windir>\bootlog.txt
 361  */
 362 void WINAPI DiagOutput16(LPCSTR str)
 363 {
 364         /* FIXME */
 365         TRACE("DIAGOUTPUT:%s\n", debugstr_a(str));
 366 }
 367
 368 /***********************************************************************
 369  *           TermsrvAppInstallMode       (KERNEL32.@)
 370  *
 371  * Find out whether the terminal server is in INSTALL or EXECUTE mode.
 372  */
 373 BOOL WINAPI TermsrvAppInstallMode(void)
 374 {
 375     FIXME("stub\n");
 376     return FALSE;
 377 }
 378
 379 /***********************************************************************
 380  *           SetTermsrvAppInstallMode       (KERNEL32.@)
 381  *
 382  * This function is said to switch between the INSTALL (TRUE) or
 383  * EXECUTE (FALSE) terminal server modes.
 384  *
 385  * This function always returns zero on WinXP Home so it's probably
 386  * safe to return that value in most cases. However, if a terminal
 387  * server is running it will probably return something else.
 388  */
 389 DWORD WINAPI SetTermsrvAppInstallMode(BOOL bInstallMode)
 390 {
 391     FIXME("(%d): stub\n", bInstallMode);
 392     return 0;
 393 }