SVN property stuff Modified: trunk/reactos/apps/utils/rosperf/Makefile Modified: trunk/reactos/apps/utils/rosperf/fill.c Modified: trunk/reactos/apps/utils/rosperf/lines.c Modified: trunk/reactos/apps/utils/rosperf/rosperf.c Modified: trunk/reactos/apps/utils/rosperf/rosperf.h Modified: trunk/reactos/apps/utils/rosperf/rosperf.rc Modified: trunk/reactos/apps/utils/rosperf/testlist.c Property changes on: trunk/reactos/apps/utils/rosperf ___________________________________________________________________ Name: svn:ignore + *.o *.a *.d *.exe *.coff *.sym *.map _____
Modified: trunk/reactos/apps/utils/rosperf/Makefile --- trunk/reactos/apps/utils/rosperf/Makefile 2005-01-18 10:41:49 UTC (rev 13119) +++ trunk/reactos/apps/utils/rosperf/Makefile 2005-01-18 11:07:34 UTC (rev 13120) @@ -1,24 +1,24 @@
-PATH_TO_TOP = ../../.. - -TARGET_TYPE = program - -TARGET_APPTYPE = console - -TARGET_NAME = rosperf - -TARGET_SDKLIBS = version.a gdi32.a user32.a kernel32.a ntdll.a - -TARGET_OBJECTS = rosperf.o testlist.o fill.o lines.o - -TARGET_CFLAGS = -Wall -Werror -D__USE_W32API - -include $(PATH_TO_TOP)/rules.mak - -include $(TOOLS_PATH)/helper.mk - -# Automatic dependency tracking -DEP_OBJECTS := $(TARGET_OBJECTS) - -include $(PATH_TO_TOP)/tools/depend.mk - -# EOF +PATH_TO_TOP = ../../.. + +TARGET_TYPE = program + +TARGET_APPTYPE = console + +TARGET_NAME = rosperf + +TARGET_SDKLIBS = version.a gdi32.a user32.a kernel32.a ntdll.a + +TARGET_OBJECTS = rosperf.o testlist.o fill.o lines.o + +TARGET_CFLAGS = -Wall -Werror -D__USE_W32API + +include $(PATH_TO_TOP)/rules.mak + +include $(TOOLS_PATH)/helper.mk + +# Automatic dependency tracking +DEP_OBJECTS := $(TARGET_OBJECTS) + +include $(PATH_TO_TOP)/tools/depend.mk + +# EOF Property changes on: trunk/reactos/apps/utils/rosperf/Makefile ___________________________________________________________________ Name: svn:eol-style + native _____
Modified: trunk/reactos/apps/utils/rosperf/fill.c --- trunk/reactos/apps/utils/rosperf/fill.c 2005-01-18 10:41:49 UTC (rev 13119) +++ trunk/reactos/apps/utils/rosperf/fill.c 2005-01-18 11:07:34 UTC (rev 13120) @@ -1,60 +1,60 @@
-/* - * ReactOS RosPerf - ReactOS GUI performance test program - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ - -#include <windows.h> -#include "rosperf.h" - -void -FillProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) -{ - unsigned Rep; - - for (Rep = 0; Rep < Reps; Rep++) - { - PatBlt((Rep & 0x100) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc, 0, 0, - PerfInfo->WndWidth, PerfInfo->WndHeight, PATCOPY); - } -} - -void -FillSmallProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) -{ -#define SMALL_SIZE 16 - unsigned Rep; - unsigned x, y; - - x = 0; - y = 0; - - for (Rep = 0; Rep < Reps; Rep++) - { - PatBlt((Rep & 0x10000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc, x, y, - SMALL_SIZE, SMALL_SIZE, PATCOPY); - x += SMALL_SIZE + 1; - if (PerfInfo->WndWidth < x + SMALL_SIZE) - { - x = 0; - y += SMALL_SIZE + 1; - if (PerfInfo->WndHeight < y + SMALL_SIZE) - { - y = 0; - } - } - } -} -/* EOF */ +/* + * ReactOS RosPerf - ReactOS GUI performance test program + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + */ + +#include <windows.h> +#include "rosperf.h" + +void +FillProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) +{ + unsigned Rep; + + for (Rep = 0; Rep < Reps; Rep++) + { + PatBlt((Rep & 0x100) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc, 0, 0, + PerfInfo->WndWidth, PerfInfo->WndHeight, PATCOPY); + } +} + +void +FillSmallProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) +{ +#define SMALL_SIZE 16 + unsigned Rep; + unsigned x, y; + + x = 0; + y = 0; + + for (Rep = 0; Rep < Reps; Rep++) + { + PatBlt((Rep & 0x10000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc, x, y, + SMALL_SIZE, SMALL_SIZE, PATCOPY); + x += SMALL_SIZE + 1; + if (PerfInfo->WndWidth < x + SMALL_SIZE) + { + x = 0; + y += SMALL_SIZE + 1; + if (PerfInfo->WndHeight < y + SMALL_SIZE) + { + y = 0; + } + } + } +} +/* EOF */ Property changes on: trunk/reactos/apps/utils/rosperf/fill.c ___________________________________________________________________ Name: svn:eol-style + native _____
Modified: trunk/reactos/apps/utils/rosperf/lines.c --- trunk/reactos/apps/utils/rosperf/lines.c 2005-01-18 10:41:49 UTC (rev 13119) +++ trunk/reactos/apps/utils/rosperf/lines.c 2005-01-18 11:07:34 UTC (rev 13120) @@ -1,97 +1,97 @@
-/* - * ReactOS RosPerf - ReactOS GUI performance test program - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ - -#include <windows.h> -#include "rosperf.h" - -void -LinesProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) -{ - unsigned Rep; - int Dest; - HDC Dc; - - for (Rep = 0; Rep < Reps; ) - { - Dc = (Rep & 0x1000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; - - for (Dest = 2; Dest < PerfInfo->WndHeight && Rep < Reps; Rep++, Dest += 2) - { - MoveToEx(Dc, 0, 0, NULL); - LineTo(Dc, PerfInfo->WndWidth, Dest); - } - - for (Dest = PerfInfo->WndWidth - 2; 0 <= Dest && Rep < Reps; Rep++, Dest -= 2) - { - MoveToEx(Dc, PerfInfo->WndWidth, 0, NULL); - LineTo(Dc, Dest, PerfInfo->WndHeight); - } - - for (Dest = PerfInfo->WndHeight - 2; 0 <= Dest && Rep < Reps; Rep++, Dest -= 2) - { - MoveToEx(Dc, PerfInfo->WndWidth, PerfInfo->WndHeight, NULL); - LineTo(Dc, 0, Dest); - } - - for (Dest = 2; Dest < PerfInfo->WndWidth && Rep < Reps; Rep++, Dest += 2) - { - MoveToEx(Dc, 0, PerfInfo->WndHeight, NULL); - LineTo(Dc, Dest, 0); - } - } -} - -void -LinesHorizontalProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) -{ - unsigned Rep; - unsigned y; - HDC Dc; - - for (Rep = 0; Rep < Reps; ) - { - Dc = (Rep & 0x10000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; - - for (y = 0; y < PerfInfo->WndHeight && Rep < Reps; Rep++, y += 3) - { - MoveToEx(Dc, 0, y, NULL); - LineTo(Dc, PerfInfo->WndWidth, y); - } - } -} - -void -LinesVerticalProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) -{ - unsigned Rep; - unsigned x; - HDC Dc; - - for (Rep = 0; Rep < Reps; ) - { - Dc = (Rep & 0x1000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; - - for (x = 0; x < PerfInfo->WndWidth && Rep < Reps; Rep++, x += 3) - { - MoveToEx(Dc, x, 0, NULL); - LineTo(Dc, x, PerfInfo->WndHeight); - } - } -} - -/* EOF */ +/* + * ReactOS RosPerf - ReactOS GUI performance test program + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + */ + +#include <windows.h> +#include "rosperf.h" + +void +LinesProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) +{ + unsigned Rep; + int Dest; + HDC Dc; + + for (Rep = 0; Rep < Reps; ) + { + Dc = (Rep & 0x1000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; + + for (Dest = 2; Dest < PerfInfo->WndHeight && Rep < Reps; Rep++, Dest += 2) + { + MoveToEx(Dc, 0, 0, NULL); + LineTo(Dc, PerfInfo->WndWidth, Dest); + } + + for (Dest = PerfInfo->WndWidth - 2; 0 <= Dest && Rep < Reps; Rep++, Dest -= 2) + { + MoveToEx(Dc, PerfInfo->WndWidth, 0, NULL); + LineTo(Dc, Dest, PerfInfo->WndHeight); + } + + for (Dest = PerfInfo->WndHeight - 2; 0 <= Dest && Rep < Reps; Rep++, Dest -= 2) + { + MoveToEx(Dc, PerfInfo->WndWidth, PerfInfo->WndHeight, NULL); + LineTo(Dc, 0, Dest); + } + + for (Dest = 2; Dest < PerfInfo->WndWidth && Rep < Reps; Rep++, Dest += 2) + { + MoveToEx(Dc, 0, PerfInfo->WndHeight, NULL); + LineTo(Dc, Dest, 0); + } + } +} + +void +LinesHorizontalProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) +{ + unsigned Rep; + unsigned y; + HDC Dc; + + for (Rep = 0; Rep < Reps; ) + { + Dc = (Rep & 0x10000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; + + for (y = 0; y < PerfInfo->WndHeight && Rep < Reps; Rep++, y += 3) + { + MoveToEx(Dc, 0, y, NULL); + LineTo(Dc, PerfInfo->WndWidth, y); + } + } +} + +void +LinesVerticalProc(void *Context, PPERF_INFO PerfInfo, unsigned Reps) +{ + unsigned Rep; + unsigned x; + HDC Dc; + + for (Rep = 0; Rep < Reps; ) + { + Dc = (Rep & 0x1000) ? PerfInfo->BackgroundDc : PerfInfo->ForegroundDc; + + for (x = 0; x < PerfInfo->WndWidth && Rep < Reps; Rep++, x += 3) + { + MoveToEx(Dc, x, 0, NULL); + LineTo(Dc, x, PerfInfo->WndHeight); + } + } +} + +/* EOF */ Property changes on: trunk/reactos/apps/utils/rosperf/lines.c ___________________________________________________________________ Name: svn:eol-style + native _____
Modified: trunk/reactos/apps/utils/rosperf/rosperf.c --- trunk/reactos/apps/utils/rosperf/rosperf.c 2005-01-18 10:41:49 UTC (rev 13119) +++ trunk/reactos/apps/utils/rosperf/rosperf.c 2005-01-18 11:07:34 UTC (rev 13120) @@ -1,923 +1,923 @@
-/* - * ReactOS RosPerf - ReactOS GUI performance test program - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - */ -/* - * Ideas copied from x11perf: - * - * Copyright 1988, 1989 by Digital Equipment Corporation, Maynard, Massachusetts. - * - * All Rights Reserved - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, - * provided that the above copyright notice appear in all copies and that - * both that copyright notice and this permission notice appear in - * supporting documentation, and that the name of Digital not be - * used in advertising or publicity pertaining to distribution of the - * software without specific, written prior permission. - * - * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING - * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL - * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR - * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, - * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, - * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS - * SOFTWARE. - */ - -#include <limits.h> -#include <stdio.h> -#include <stdlib.h> -#include <windows.h> -#include <reactos/buildno.h> - -#include "rosperf.h" - -#define MAINWND_WIDTH 400 -#define MAINWND_HEIGHT 400 - -static HWND LabelWnd; - -unsigned -NullInit(void **Context, PPERF_INFO PerfInfo, unsigned Reps) -{ - *Context = NULL; - - return Reps; -} - -void -NullCleanup(void *Context, PPERF_INFO PerfInfo) -{ -} - -static void -ProcessMessages(void) -{ - MSG Msg; - - while (PeekMessageW(&Msg, NULL, 0, 0, PM_REMOVE)) - { - if (WM_QUIT == Msg.message) - { - exit(Msg.wParam); - } - TranslateMessage(&Msg); - DispatchMessageW(&Msg); - } -} - -static void -ClearWindow(PPERF_INFO PerfInfo) -{ - InvalidateRect(PerfInfo->Wnd, NULL, TRUE); - UpdateWindow(PerfInfo->Wnd); -} - -static unsigned -CalibrateTest(PTEST Test, PPERF_INFO PerfInfo) -{ -#define GOAL 2500 /* Try to get up to 2.5 seconds */ -#define ENOUGH 2000 /* But settle for 2.0 seconds */ -#define TICK 10 /* Assume clock not faster than .01 seconds */ - - unsigned Reps, DidReps; /* Reps desired, reps performed */ - unsigned Exponent; - void *Context; - DWORD StartTick; - DWORD Duration; - - /* Attempt to get an idea how long each rep lasts by getting enough - reps to last more than ENOUGH. Then scale that up to the number of - seconds desired. - - If init call to test ever fails, return False and test will be skipped. - */ - - Reps = 1; - for (;;) - { - ClearWindow(PerfInfo); - DidReps = (*Test->Init)(&Context, PerfInfo, Reps); - ProcessMessages(); - if (0 == DidReps) - { - return 0; - } - StartTick = GetTickCount(); - (*Test->Proc)(Context, PerfInfo, Reps); - Duration = GetTickCount() - StartTick; - (*Test->PassCleanup) (Context, PerfInfo); - (*Test->Cleanup)(Context, PerfInfo); - ProcessMessages(); - - if (DidReps != Reps) - { - /* The test can't do the number of reps as we asked for. - Give up */ - return DidReps; - } - /* Did we go long enough? */ - if (ENOUGH <= Duration) - { - break; - } - - /* Don't let too short a clock make new reps wildly high */ - if (Duration <= TICK) - { - Reps *= 10; - } - else - { - /* Try to get up to GOAL seconds. */ - Reps = (int)(GOAL * (double) Reps / (double) Duration) + 1; - } - } - - Reps = (int) ((double) PerfInfo->Seconds * 1000.0 * (double) Reps / (double) Duration) + 1; - - /* Now round reps up to 1 digit accuracy, so we don't get stupid-looking - numbers of repetitions. */ - Reps--; - Exponent = 1; - while (9 < Reps) - { - Reps /= 10; - Exponent *= 10; - } - Reps = (Reps + 1) * Exponent; - - return Reps; -} - -static void -DisplayStatus(HWND Label, LPCWSTR Message, LPCWSTR Test, int Try) -{ - WCHAR Status[128]; - - snwprintf(Status, sizeof(Status) / sizeof(Status[0]), L"%d %s %s", Try, Message, Test); - SetWindowTextW(Label, Status); - InvalidateRect(Label, NULL, TRUE); - UpdateWindow(Label); -} - -static double -RoundTo3Digits(double d) -{ - /* It's kind of silly to print out things like ``193658.4/sec'' so just - junk all but 3 most significant digits. */ - - double exponent, sign; - - exponent = 1.0; - /* the code below won't work if d should happen to be non-positive. */ - if (d < 0.0) - { - d = -d; - sign = -1.0; - } - else - { - sign = 1.0; - } - - if (1000.0 <= d) - { - do - { - exponent *= 10.0; - } - while (1000.0 <= d / exponent); - d = (double)((int)(d / exponent + 0.5)); - d *= exponent; - } - else - { - if (0.0 != d) - { - while (d * exponent < 100.0) - { - exponent *= 10.0; - } - } - d = (double)((int)(d * exponent + 0.5)); - d /= exponent; - } - - return d * sign; -} - -static void -ReportTimes(DWORD Time, int Reps, LPCWSTR Label, BOOL Average) -{ - double MSecsPerObj, ObjsPerSec; - - if (0 != Time) - { - MSecsPerObj = (double) Time / (double) Reps; - ObjsPerSec = (double) Reps * 1000.0 / (double) Time; - - /* Round obj/sec to 3 significant digits. Leave msec untouched, to - allow averaging results from several repetitions. */ - ObjsPerSec = RoundTo3Digits(ObjsPerSec); - - wprintf(L"%7d %s @ %8.4f msec (%8.1f/sec): %s\n", - Reps, Average ? L"trep" : L"reps", MSecsPerObj, ObjsPerSec, Label); - } - else - { - wprintf(L"%6d %sreps @ 0.0 msec (unmeasurably fast): %s\n", - Reps, Average ? L"t" : L"", Label); - } - -} - -static void -ProcessTest(PTEST Test, PPERF_INFO PerfInfo) -{ - unsigned Reps; - unsigned Repeat; - void *Context; - DWORD StartTick; - DWORD Time, TotalTime; - - DisplayStatus(LabelWnd, L"Calibrating", Test->Label, 0); - Reps = CalibrateTest(Test, PerfInfo); - if (0 == Reps) - { - return; - } - - Reps = Test->Init(&Context, PerfInfo, Reps); - if (0 == Reps) - { - return; - } - TotalTime = 0; - for (Repeat = 0; Repeat < PerfInfo->Repeats; Repeat++) - { - DisplayStatus(LabelWnd, L"Testing", Test->Label, Repeat + 1); - ClearWindow(PerfInfo); - StartTick = GetTickCount(); - (*Test->Proc)(Context, PerfInfo, Reps); - Time = GetTickCount() - StartTick; - ProcessMessages(); - TotalTime += Time; - ReportTimes(Time, Reps, Test->Label, FALSE); - (*Test->PassCleanup)(Context, PerfInfo); - ProcessMessages(); - } - (*Test->Cleanup)(Context, PerfInfo); - ReportTimes(TotalTime, Repeat * Reps, Test->Label, TRUE); - ProcessMessages(); -} - -static void -PrintOSVersion(void) -{ -#define BUFSIZE 160 - OSVERSIONINFOEXW VersionInfo; - BOOL OsVersionInfoEx; - HKEY hKey; - WCHAR ProductType[BUFSIZE]; - DWORD BufLen; - LONG Ret; - unsigned RosVersionLen; - LPWSTR RosVersion; - - /* Try calling GetVersionEx using the OSVERSIONINFOEX structure. - * If that fails, try using the OSVERSIONINFO structure. */ - - ZeroMemory(&VersionInfo, sizeof(OSVERSIONINFOEXW)); - VersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEXW); - - OsVersionInfoEx = GetVersionExW((OSVERSIONINFOW *) &VersionInfo); - if (! OsVersionInfoEx) - { - VersionInfo.dwOSVersionInfoSize = sizeof (OSVERSIONINFO); - if (! GetVersionExW((OSVERSIONINFOW *) &VersionInfo)) - { - return; - } - } - - RosVersion = VersionInfo.szCSDVersion + wcslen(VersionInfo.szCSDVersion) + 1; - RosVersionLen = sizeof(VersionInfo.szCSDVersion) / sizeof(VersionInfo.szCSDVersion[0]) - - (RosVersion - VersionInfo.szCSDVersion); - if (7 <= RosVersionLen && 0 == wcsnicmp(RosVersion, L"ReactOS", 7)) - { - wprintf(L"Running on %s\n", RosVersion); - return; - } - - switch (VersionInfo.dwPlatformId) - { - /* Test for the Windows NT product family. */ - case VER_PLATFORM_WIN32_NT: - - /* Test for the specific product. */ - if (5 == VersionInfo.dwMajorVersion && 2 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows Server 2003, "); - } - else if (5 == VersionInfo.dwMajorVersion && 1 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows XP "); - } - else if (5 == VersionInfo.dwMajorVersion && 0 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows 2000 "); - } - else if (VersionInfo.dwMajorVersion <= 4 ) - { - wprintf(L"Running on Microsoft Windows NT "); - } - - /* Test for specific product on Windows NT 4.0 SP6 and later. */ - if (OsVersionInfoEx) - { - /* Test for the workstation type. */ - if (VER_NT_WORKSTATION == VersionInfo.wProductType) - { - if (4 == VersionInfo.dwMajorVersion) - { - wprintf(L"Workstation 4.0 "); - } - else if (0 != (VersionInfo.wSuiteMask & VER_SUITE_PERSONAL)) - { - wprintf(L"Home Edition "); - } - else - { - wprintf(L"Professional "); - } - } - - /* Test for the server type. */ - else if (VER_NT_SERVER == VersionInfo.wProductType || - VER_NT_DOMAIN_CONTROLLER == VersionInfo.wProductType) - { - if (5 == VersionInfo.dwMajorVersion && 2 == VersionInfo.dwMinorVersion) - { - if (0 != (VersionInfo.wSuiteMask & VER_SUITE_DATACENTER)) - { - wprintf(L"Datacenter Edition "); - } - else if (0 != (VersionInfo.wSuiteMask & VER_SUITE_ENTERPRISE)) - { - wprintf(L"Enterprise Edition "); - } - else if (VER_SUITE_BLADE == VersionInfo.wSuiteMask) - { - wprintf(L"Web Edition "); - } - else - { - wprintf(L"Standard Edition "); - } - } - - else if (5 == VersionInfo.dwMajorVersion && 0 == VersionInfo.dwMinorVersion) - { - if (0 != (VersionInfo.wSuiteMask & VER_SUITE_DATACENTER)) - { - wprintf(L"Datacenter Server "); - } - else if (0 != (VersionInfo.wSuiteMask & VER_SUITE_ENTERPRISE)) - { - wprintf(L"Advanced Server " ); - } - else - { - wprintf(L"Server " ); - } - } - - else /* Windows NT 4.0 */ - { - if (0 != (VersionInfo.wSuiteMask & VER_SUITE_ENTERPRISE)) - { - wprintf(L"Server 4.0, Enterprise Edition "); - } - else - { - wprintf(L"Server 4.0 "); - } - } - } - } - else /* Test for specific product on Windows NT 4.0 SP5 and earlier */ - { - BufLen = BUFSIZE; - - Ret = RegOpenKeyExW(HKEY_LOCAL_MACHINE, - L"SYSTEM\CurrentControlSet\Control\ProductOptions", - 0, KEY_QUERY_VALUE, &hKey); - if (ERROR_SUCCESS != Ret) - { - return; - } - - Ret = RegQueryValueExW(hKey, L"ProductType", NULL, NULL, - (LPBYTE) ProductType, &BufLen); - if (ERROR_SUCCESS != Ret || BUFSIZE < BufLen) - { - return; - } - - RegCloseKey(hKey); - - if (0 == lstrcmpiW(L"WINNT", ProductType)) - { - wprintf(L"Workstation "); - } - else if (0 == lstrcmpiW(L"LANMANNT", ProductType)) - { - wprintf(L"Server "); - } - else if (0 == lstrcmpiW(L"SERVERNT", ProductType)) - { - wprintf(L"Advanced Server "); - } - - wprintf(L"%d.%d ", VersionInfo.dwMajorVersion, VersionInfo.dwMinorVersion); - } - - /* Display service pack (if any) and build number. */ - - if (4 == VersionInfo.dwMajorVersion && - 0 == lstrcmpiW(VersionInfo.szCSDVersion, L"Service Pack 6")) - { - /* Test for SP6 versus SP6a. */ - Ret = RegOpenKeyExW(HKEY_LOCAL_MACHINE, - L"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Hotfix\Q246009", - 0, KEY_QUERY_VALUE, &hKey); - if (ERROR_SUCCESS == Ret) - { - wprintf(L"Service Pack 6a (Build %d)\n", VersionInfo.dwBuildNumber & 0xFFFF); - } - else /* Windows NT 4.0 prior to SP6a */ - { - wprintf(L"%s (Build %d)\n", - VersionInfo.szCSDVersion, - VersionInfo.dwBuildNumber & 0xFFFF); - } - - RegCloseKey(hKey); - } - else /* not Windows NT 4.0 */ - { - wprintf(L"%s (Build %d)\n", - VersionInfo.szCSDVersion, - VersionInfo.dwBuildNumber & 0xFFFF); - } - - - break; - - /* Test for the Windows Me/98/95. A bit silly since we're using Unicode... */ - case VER_PLATFORM_WIN32_WINDOWS: - - if (4 == VersionInfo.dwMajorVersion && 0 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows 95 "); - if (L'C' == VersionInfo.szCSDVersion[1] || L'B' == VersionInfo.szCSDVersion[1]) - { - wprintf(L"OSR2"); - } - } - - else if (4 == VersionInfo.dwMajorVersion && 10 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows 98 "); - if (L'A' == VersionInfo.szCSDVersion[1]) - { - wprintf(L"SE"); - } - } - - else if (4 == VersionInfo.dwMajorVersion && 90 == VersionInfo.dwMinorVersion) - { - wprintf(L"Running on Microsoft Windows Millennium Edition"); - } - wprintf(L"\n"); - break; - - case VER_PLATFORM_WIN32s: /* Even silier... */ - - wprintf(L"Running on Microsoft Win32s\n"); - break; - } -} - -static void -PrintAppVersion(void) -{ - wprintf(L"RosPerf %S (Build %S)\n", KERNEL_VERSION_STR, KERNEL_VERSION_BUILD_STR); -} - -static void -PrintDisplayInfo(void) -{ - HDC Dc; - - Dc = GetDC(NULL); - if (NULL == Dc) - { - return; - } - - wprintf(L"Display settings %d * %d * %d\n", GetDeviceCaps(Dc, HORZRES), - GetDeviceCaps(Dc, VERTRES), GetDeviceCaps(Dc, BITSPIXEL) * GetDeviceCaps(Dc, PLANES)); - - ReleaseDC(NULL, Dc); -} - -static void -PrintStartupInfo(void) -{ - PrintAppVersion(); - PrintOSVersion(); - PrintDisplayInfo(); -} - -static LRESULT CALLBACK -MainWndProc(HWND Wnd, UINT Msg, WPARAM wParam, LPARAM lParam) -{ - PAINTSTRUCT Ps; - HDC Dc; - LRESULT Result; - - switch (Msg) - { - case WM_DESTROY: - PostQuitMessage(0); - Result = 0; - break; - - case WM_PAINT: - Dc = BeginPaint(Wnd, &Ps); - EndPaint (Wnd, &Ps); - Result = 0; - break; - - default: - Result = DefWindowProcW(Wnd, Msg, wParam, lParam); - break; - } - - return Result; -} - -static LRESULT CALLBACK -LabelWndProc(HWND Wnd, UINT Msg, WPARAM wParam, LPARAM lParam) -{ - PAINTSTRUCT Ps; - HDC Dc; - RECT ClientRect, WindowRect; - TEXTMETRICW Tm; - LRESULT Result; - WCHAR Title[80]; - [truncated at 1000 lines; 1495 more skipped]
-
gvg＠svn.reactos.com