16 Jan
2005
16 Jan
'05
10:35 p.m.
Create performance test program
Added: trunk/reactos/apps/utils/rosperf/
Added: trunk/reactos/apps/utils/rosperf/Makefile
Added: trunk/reactos/apps/utils/rosperf/fill.c
Added: trunk/reactos/apps/utils/rosperf/lines.c
Added: trunk/reactos/apps/utils/rosperf/rosperf.c
Added: trunk/reactos/apps/utils/rosperf/rosperf.h
Added: trunk/reactos/apps/utils/rosperf/rosperf.rc
Added: trunk/reactos/apps/utils/rosperf/testlist.c
_____
Added: trunk/reactos/apps/utils/rosperf/Makefile
--- trunk/reactos/apps/utils/rosperf/Makefile 2005-01-16 22:26:26 UTC
(rev 13086)
+++ trunk/reactos/apps/utils/rosperf/Makefile 2005-01-16 22:35:11 UTC
(rev 13087)
@@ -0,0 +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
_____
Added: trunk/reactos/apps/utils/rosperf/fill.c
--- trunk/reactos/apps/utils/rosperf/fill.c 2005-01-16 22:26:26 UTC
(rev 13086)
+++ trunk/reactos/apps/utils/rosperf/fill.c 2005-01-16 22:35:11 UTC
(rev 13087)
@@ -0,0 +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 */
_____
Added: trunk/reactos/apps/utils/rosperf/lines.c
--- trunk/reactos/apps/utils/rosperf/lines.c 2005-01-16 22:26:26 UTC
(rev 13086)
+++ trunk/reactos/apps/utils/rosperf/lines.c 2005-01-16 22:35:11 UTC
(rev 13087)
@@ -0,0 +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 */
_____
Added: trunk/reactos/apps/utils/rosperf/rosperf.c
--- trunk/reactos/apps/utils/rosperf/rosperf.c 2005-01-16 22:26:26 UTC
(rev 13086)
+++ trunk/reactos/apps/utils/rosperf/rosperf.c 2005-01-16 22:35:11 UTC
(rev 13087)
@@ -0,0 +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];
+
+ switch (Msg)
+ {
+ case WM_CREATE:
+ /* Make text fit */
+ Dc = GetDC(Wnd);
+ if (NULL != Dc && GetClientRect(Wnd, &ClientRect) &&
GetWindowRect(Wnd, &WindowRect)
+ && GetTextMetricsW(Dc, &Tm))
+ {
+ if (Tm.tmHeight != ClientRect.bottom)
+ {
+ SetWindowPos(Wnd, NULL, 0, 0, WindowRect.right -
WindowRect.left,
+ (WindowRect.bottom - WindowRect.top) +
(Tm.tmHeight - ClientRect.bottom),
+ SWP_NOACTIVATE | SWP_NOMOVE |
SWP_NOOWNERZORDER | SWP_NOZORDER);
+ }
+ }
+ if (NULL != Dc)
+ {
+ ReleaseDC(Wnd, Dc);
+ }
+ Result = DefWindowProcW(Wnd, Msg, wParam, lParam);
+ break;
+
+ case WM_PAINT:
+ Dc = BeginPaint(Wnd, &Ps);
+ GetWindowTextW(Wnd, Title, sizeof(Title) / sizeof(Title[0]));
+ TextOutW(Dc, 0, 0, Title, wcslen(Title));
+ EndPaint (Wnd, &Ps);
+ Result = 0;
+ break;
+
+ default:
+ Result = DefWindowProcW(Wnd, Msg, wParam, lParam);
+ break;
+ }
+
+ return Result;
+}
+
+static HWND
+CreatePerfWindows(HINSTANCE hInstance, PPERF_INFO PerfInfo)
+{
+ WNDCLASSW wc;
+ HWND MainWnd;
+
+ wc.lpszClassName = L"RosPerfMain";
+ wc.lpfnWndProc = MainWndProc;
+ wc.style = 0;
+ wc.hInstance = hInstance;
+ wc.hIcon = LoadIconW(NULL, (LPCWSTR) IDI_APPLICATION);
+ wc.hCursor = LoadCursorW(NULL, (LPCWSTR)IDC_ARROW);
+ wc.hbrBackground = CreateSolidBrush(PerfInfo->BackgroundColor);
+ wc.lpszMenuName = NULL;
+ wc.cbClsExtra = 0;
+ wc.cbWndExtra = 0;
+ if (RegisterClassW(&wc) == 0)
+ {
+ fwprintf(stderr, L"Failed to register RosPerfMain (last error
%d)\n",
+ GetLastError());
+ return NULL;
+ }
+
+ wc.lpszClassName = L"RosPerfLabel";
+ wc.lpfnWndProc = LabelWndProc;
+ wc.style = 0;
+ wc.hInstance = hInstance;
+ wc.hIcon = LoadIconW(NULL, (LPCWSTR) IDI_APPLICATION);
+ wc.hCursor = LoadCursorW(NULL, (LPCWSTR)IDC_ARROW);
+ wc.hbrBackground = (HBRUSH) GetStockObject(WHITE_BRUSH);
+ wc.lpszMenuName = NULL;
+ wc.cbClsExtra = 0;
+ wc.cbWndExtra = 0;
+ if (RegisterClassW(&wc) == 0)
+ {
+ fwprintf(stderr, L"Failed to register RosPerfLabel (last error
%d)\n",
+ GetLastError());
+ return NULL;
+ }
+
+ MainWnd = CreateWindowW(L"RosPerfMain",
+ L"ReactOS performance test",
+ WS_OVERLAPPEDWINDOW | WS_VISIBLE,
+ 0,
+ 0,
+ MAINWND_WIDTH,
+ MAINWND_HEIGHT,
+ NULL,
+ NULL,
+ hInstance,
+ NULL);
+ if (NULL == MainWnd)
+ {
+ fwprintf(stderr, L"Failed to create main window (last error
%d)\n",
+ GetLastError());
+ return NULL;
+ }
+
+ LabelWnd = CreateWindowW(L"RosPerfLabel",
+ L"",
+ WS_POPUP | WS_THICKFRAME | WS_VISIBLE,
+ 0,
+ MAINWND_HEIGHT + 10,
+ MAINWND_WIDTH,
+ 20,
+ MainWnd,
+ NULL,
+ hInstance,
+ NULL);
+ if (NULL == LabelWnd)
+ {
+ fwprintf(stderr, L"Failed to create label window (last error
0x%lX)\n",
+ GetLastError());
+ return NULL;
+ }
+
+ SetActiveWindow(MainWnd);
+
+ return MainWnd;
+}
+
+static BOOL
+ProcessCommandLine(PPERF_INFO PerfInfo, unsigned *TestCount, PTEST
*Tests)
+{
+ int ArgC, Arg;
+ LPWSTR *ArgV;
+ LPWSTR EndPtr;
+ PTEST AllTests;
+ BOOL *DoTest;
+ BOOL DoAll;
+ unsigned AllTestCount, i, j;
+
+ ArgV = CommandLineToArgvW(GetCommandLineW(), &ArgC);
+ if (NULL == ArgV)
+ {
+ fwprintf(stderr, L"CommandLineToArgvW failed\n");
+ return FALSE;
+ }
+
+ GetTests(&AllTestCount, &AllTests);
+ DoTest = malloc(AllTestCount * sizeof(BOOL));
+ if (NULL == DoTest)
+ {
+ fwprintf(stderr, L"Out of memory\n");
+ return FALSE;
+ }
+ DoAll = TRUE;
+
+ for (Arg = 1; Arg < ArgC; Arg++)
+ {
+ if (L'/' == ArgV[Arg][0] || L'-' == ArgV[Arg][0])
+ {
+ if (0 == wcsicmp(ArgV[Arg] + 1, L"repeat"))
+ {
+ if (ArgC <= Arg + 1)
+ {
+ fwprintf(stderr, L"%s needs a repeat count\n",
ArgV[Arg]);
+ free(DoTest);
+ GlobalFree(ArgV);
+ return FALSE;
+ }
+ Arg++;
+ PerfInfo->Repeats = wcstoul(ArgV[Arg], &EndPtr, 0);
+ if (L'\0' != *EndPtr || (long) PerfInfo->Repeats <= 0 ||
ULONG_MAX == PerfInfo->Repeats)
+ {
+ fwprintf(stderr, L"Invalid repeat count %s\n",
ArgV[Arg]);
+ free(DoTest);
+ GlobalFree(ArgV);
+ return FALSE;
+ }
+ }
+ else if (0 == wcsicmp(ArgV[Arg] + 1, L"seconds"))
+ {
+ if (ArgC <= Arg + 1)
+ {
+ fwprintf(stderr, L"%s needs a number of seconds\n",
ArgV[Arg]);
+ free(DoTest);
+ GlobalFree(ArgV);
+ return FALSE;
+ }
+ Arg++;
+ PerfInfo->Seconds = wcstoul(ArgV[Arg], &EndPtr, 0);
+ if (L'\0' != *EndPtr || (long) PerfInfo->Seconds < 0 ||
ULONG_MAX == PerfInfo->Seconds)
+ {
+ fwprintf(stderr, L"Invalid duration %s\n",
ArgV[Arg]);
+ free(DoTest);
+ GlobalFree(ArgV);
+ return FALSE;
+ }
+ }
+ else
+ {
+ fwprintf(stderr, L"Unrecognized option %s\n", ArgV[Arg]);
+ free(DoTest);
+ GlobalFree(ArgV);
+ return FALSE;
+ }
+ }
+ else
+ {
+ if (DoAll)
+ {
+ for (i = 0; i < AllTestCount; i++)
+ {
+ DoTest[i] = FALSE;
[truncated at 1000 lines; 246 more skipped]