usrbench.c File Reference

#include "precomp.h"
#include "resource.h"
#include "wchar.h"
#include "usrbench.h"
#include "bench.h"

Go to the source code of this file.

Defines
#define	MAIN_MODULE
#define	SUBITEM(fmt, v)
Functions
LRESULT APIENTRY	MDIChildWndProc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
BOOL APIENTRY	InitializeInstance (HINSTANCE hInst, HINSTANCE hPrev, INT nCmdShow)
int PASCAL	WinMain (HINSTANCE hInst, HINSTANCE hPrev, LPSTR szCmdLine, int cmdShow)
LRESULT FAR PASCAL	WndProc (HWND hWnd, unsigned msg, WPARAM wParam, LPARAM lParam)
VOID	SaveResults ()
INT_PTR APIENTRY	ResultsDlgProc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
INT_PTR APIENTRY	HelpDlgProc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
char *	SelectOutFileName (HWND hWnd)
void	WriteBatchResults (FILE *fpOut, int TestType, int cycle)
int	SyncMenuChecks (HWND hWnd, int Last_Checked, int New_Checked)
int	Std_Parse (char *txtbuf, int limit, int *array)
Variables
PSZ	pszTest = DEFAULT_A_STRING
PWSTR	pwszTest = DEFAULT_W_STRING
BOOL	gfPentium = FALSE
BOOL	gfUseCycleCount = TRUE
HINSTANCE	hInstMain
HANDLE	ghaccel
HANDLE	ghinst
HWND	ghwndFrame = NULL ghwndMDIClient = NULL
MDICREATESTRUCT	mcs
CHAR	szChild [] = "child"
CHAR	szFrame [] = "frame"
CHOOSEFONT	cf
LOGFONT	lf

---

Define Documentation

#define MAIN_MODULE

Definition at line 57 of file usrbench.c.

#define SUBITEM (  fmt, v   )

Value: sprintf(szT, fmt, v); \ ListView_SetItemText(hwndList, lvl.iItem, ++lvl.iSubItem, szT); Referenced by ResultsDlgProc().

---

Function Documentation

INT_PTR APIENTRY HelpDlgProc (  HWND  hwnd, UINT  msg, WPARAM  wParam, LPARAM  lParam )

Definition at line 1500 of file usrbench.c. References EndDialog(), FALSE, IDC_HELPLIST, msg, SendDlgItemMessage(), and TRUE. Referenced by WndProc(). { ULONG ix, last_ix; static const char* szT[] = { "Usage:", "usrbench (interactive mode), or ", "usrbench /b (batch mode)", " /d (Print detailed distribution if more than 5 percent of samples filtered out)", " /m (Message when batch finished)", " /s (Stay, don't close application when batch finished)", " /t (Batch and Interactive Modes; Measure test time - not Cycle Counts, on Pentium Machines)", " /i [INI filename] (optional, def.= USRBATCH.INI )", "", "Batch Mode requires preparing an INI file (default: USRBATCH.INI) in the same directory where the application is being run.", "You may also specify an INI filename using /i [INI filename] in the command line (must reside in the directory mentioned above).", "", "INI file Sections and Keys: (Use ' , ' or ' ; ' as separators where necessary)", "[BATCH]", "RUN= ALL / QUICK / TEXT / SELECT (Test type, select one, def.= TEXT", "CYCLE= (No. of batch cycles, def.= 1)", "TEST= test numbers (Selected tests to run, needed only for test type= SELECT)", "[TEXT]", "FONT = name, +optional parameters (Font name + any combination of:", " BOLD, ITALIC, UNDERLINE, STRIKE, TRANSPARENT, RGB(r,g,b), def.= Arial)", "STRING_CONTENT= string (Text string to be used, up to 128 characters)", "[RUN]", "FONT_SIZE= font sizes (Font sizes to be tested, def. 12)", "STRING_LENGTH= string lengths (String Length to be tested, taken as sub-strings of the one specified, def. 32)", "ORDER= test loop order (Order of test loops (first is outer); example: FONT_SIZE STRING_LENGTH )", "", "Batch Output:", "Output files will be generated automatically in the run directory, with the name [USBxxx.log], where xxx is a number.", "Note that the program will refuse to run if more than 200 output files are accumulated...", }; int aiT[2]; switch (msg) { case WM_INITDIALOG: aiT[0] = 100; aiT[1] = 190; SendDlgItemMessage(hwnd, IDC_HELPLIST, LB_SETTABSTOPS, 2, (LPARAM)aiT); for (ix = 0; ix < sizeof szT / sizeof szT[0]; ix++) { SendDlgItemMessage(hwnd, IDC_HELPLIST, LB_ADDSTRING, 0, (LPARAM)szT[ix]); } break; case WM_COMMAND: switch (LOWORD(wParam)) { case IDOK: EndDialog(hwnd, 0); break; default: return FALSE; } break; default: return FALSE; } return TRUE; }

BOOL APIENTRY InitializeInstance (  HINSTANCE  hInst, HINSTANCE  hPrev, INT  nCmdShow )

Definition at line 1995 of file usrbench.c. References APIENTRY, BOOL, FALSE, GetClientRect(), GetDesktopWindow(), GetWindowRect(), ghinst, ghwndFrame, ghwndMDIClient, hInst, IDNOTE, IDR_USRBENCH_MENU, mcs, MDIChildWndProc(), NULL, RegisterClass, SendMessage(), SetFocus, ShowWindow, szChild, szFrame, TRUE, UINT, UpdateWindow(), and WndProc(). Referenced by WinMain(). { WNDCLASS wc; HWND hWndDesk; RECT hwRect; RECT rc; CLIENTCREATESTRUCT ccs; hWndDesk = GetDesktopWindow(); GetWindowRect(hWndDesk,&hwRect); if (!hPrev) { wc.hInstance = hInst; wc.hCursor = LoadCursor((HINSTANCE)NULL, IDC_ARROW); wc.hIcon = LoadIcon(hInst, MAKEINTRESOURCE(IDR_USRBENCH_MENU)); wc.lpszMenuName = MAKEINTRESOURCE(IDR_USRBENCH_MENU); wc.lpszClassName = szFrame; wc.hbrBackground = (HBRUSH)GetStockObject(GRAY_BRUSH); wc.style = (UINT)0; wc.lpfnWndProc = WndProc; wc.cbWndExtra = 0; wc.cbClsExtra = 0; if (!RegisterClass(&wc)) { return FALSE; } /* * Register the MDI child class */ wc.lpfnWndProc = MDIChildWndProc; wc.hIcon = LoadIcon(ghinst, IDNOTE); wc.lpszMenuName = NULL; wc.cbWndExtra = sizeof(HWND); wc.lpszClassName = szChild; if(!RegisterClass(&wc))return FALSE; } // // Create and show the main Frame window // ghwndFrame = CreateWindow (szFrame, "USER Call Performance", WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN, 0, 0, hwRect.right, hwRect.bottom, (HWND)NULL, (HMENU)NULL, (HINSTANCE)hInst, (LPSTR)NULL ); if (ghwndFrame == NULL) { return(FALSE); } // // Show the window // ShowWindow(ghwndFrame,nCmdShow); UpdateWindow(ghwndFrame); SetFocus(ghwndFrame); // Create a Desktop Window inside the Frame Window ccs.hWindowMenu = NULL; ccs.idFirstChild = 0; GetClientRect(ghwndFrame, (LPRECT)&rc); ghwndMDIClient = CreateWindow("mdiclient", "Desktop", WS_CHILD | WS_CLIPCHILDREN | WS_VISIBLE | WS_BORDER, rc.left, rc.top+100, rc.right-rc.left, rc.bottom-(rc.top+100), ghwndFrame, (HMENU)0xCAC, ghinst, (LPSTR)&ccs ); if (ghwndMDIClient == NULL) { return(FALSE); } /* * Create MDI child window for potential use of Userbench tests. */ mcs.szClass = "mdiclient"; mcs.szTitle = "Test Object"; mcs.hOwner = ghinst; mcs.x = mcs.cx = CW_USEDEFAULT; mcs.y = mcs.cy = CW_USEDEFAULT; mcs.style = WS_OVERLAPPEDWINDOW; SendMessage(ghwndMDIClient, WM_MDICREATE, 0, (LPARAM)&mcs); return TRUE; }

LRESULT APIENTRY MDIChildWndProc (  HWND  hwnd, UINT  msg, WPARAM  wParam, LPARAM  lParam )

Definition at line 1934 of file usrbench.c. References APIENTRY, FALSE, GetClientRect(), GetWindowLongPtr(), ghinst, ghwndMDIClient, GWLP_HWNDEDIT, ID_EDIT, msg, NULL, SetFocus, SetWindowLongPtr(), and TRUE. Referenced by InitializeInstance(). { HWND hwndEdit; switch (msg) { case WM_MDICREATE: /* * Create an edit control */ hwndEdit = CreateWindow("edit", NULL, WS_CHILD | WS_HSCROLL | WS_MAXIMIZE | WS_VISIBLE | WS_VSCROLL | ES_AUTOHSCROLL | ES_AUTOVSCROLL | ES_MULTILINE | WS_OVERLAPPEDWINDOW, 0, 0, 0, 0, ghwndMDIClient, (HMENU)ID_EDIT, ghinst, NULL); /* * Remember the window handle and initialize some window attributes */ SetWindowLongPtr(hwnd, GWLP_HWNDEDIT, (LONG_PTR)hwndEdit); SetFocus(hwndEdit); break; case WM_CLOSE: break; case WM_SIZE: { RECT rc; /* * On creation or resize, size the edit control. */ hwndEdit = (HWND)GetWindowLongPtr(hwnd, GWLP_HWNDEDIT); GetClientRect(hwnd, &rc); MoveWindow(hwndEdit, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, TRUE); return DefMDIChildProc(hwnd, msg, wParam, lParam); } case WM_SETFOCUS: SetFocus((HWND)GetWindowLongPtr(hwnd, GWLP_HWNDEDIT)); break; default: return DefMDIChildProc(hwnd, msg, wParam, lParam); } return FALSE; }

INT_PTR APIENTRY ResultsDlgProc (  HWND  hwnd, UINT  msg, WPARAM  wParam, LPARAM  lParam )

Definition at line 1398 of file usrbench.c. References _TEST_ENTRY::Api, _TEST_STATS::Average, BOOL, EndDialog(), FALSE, GetClientRect(), GetDlgItem(), gfPentium, gTestEntry, IDC_RESULTSLIST, IDM_SAVERESULTS, msg, NULL, NUM_SAMPLES, NUM_TESTS, SaveResults(), SUBITEM, TestStats, TRUE, and UINT. Referenced by WndProc(). { ULONG ix; char szT[180]; BOOL fResults; int aiT[2]; switch (msg) { case WM_INITDIALOG: aiT[0] = 100; aiT[1] = 190; fResults = FALSE; { LV_COLUMN lvc; LV_ITEM lvl; UINT width; RECT rc; HWND hwndList = GetDlgItem(hwnd, IDC_RESULTSLIST); int i; static LPCSTR title[] = { "Function", "Time(100ns)", "StdDev%", "Best", "Worst", "Valid Samples", "Out of", "Iterations", }; #ifdef _X86_ if (gfPentium) title[1] = "Cycle Counts"; #endif if (hwndList == NULL) break; GetClientRect(hwndList, &rc); // only first column has doubled width lvc.cx = (width = (rc.right - rc.left) / (sizeof title / sizeof *title + 1)) * 2; lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM; lvc.fmt = LVCFMT_LEFT; for (i = 0; i < sizeof title / sizeof *title; ++i) { lvc.pszText = (LPSTR)title[i]; ListView_InsertColumn(hwndList, i, &lvc); lvc.cx = width; // normal width } lvl.iItem = 0; lvl.mask = LVIF_TEXT; for (ix = 0; ix < NUM_TESTS; ix++) { if ((long)(0.5 + TestStats[ix].Average) == 0) { // no measuement, skip continue; } lvl.iSubItem = 0; lvl.pszText = gTestEntry[ix].Api; ListView_InsertItem(hwndList, &lvl); #define SUBITEM(fmt, v) \ sprintf(szT, fmt, v); \ ListView_SetItemText(hwndList, lvl.iItem, ++lvl.iSubItem, szT); SUBITEM("%ld", (long)(0.5 + TestStats[ix].Average)); SUBITEM("%.2f", (float)TestStats[ix].StdDev); SUBITEM("%ld", (long)(0.5 + TestStats[ix].Minimum_Result)); SUBITEM("%ld", (long)(0.5 + TestStats[ix].Maximum_Result)); SUBITEM("%ld", TestStats[ix].NumSamplesValid); SUBITEM("%ld", (long)NUM_SAMPLES); SUBITEM("%ld", gTestEntry[ix].Iter); #undef SUBITEM ++lvl.iItem; fResults = TRUE; } if (!fResults) MessageBox(hwnd, "No results have been generated yet or Test may have failed!", "UsrBench", MB_OK | MB_ICONEXCLAMATION); } break; case WM_COMMAND: switch (LOWORD(wParam)) { case IDOK: case IDCANCEL: EndDialog(hwnd, 0); break; case IDM_SAVERESULTS: SaveResults(); break; default: return FALSE; } break; default: return FALSE; } return TRUE; }

VOID SaveResults (   )

Definition at line 1317 of file usrbench.c. References BatchFlag, FALSE, ghwndFrame, hInstMain, NULL, and WriteBatchResults(). Referenced by ResultsDlgProc(). { static OPENFILENAME ofn; static char szFilename[80]; char szT[80]; int i, hfile; FILE *fpOut; BatchFlag = FALSE; for (i = 0; i < sizeof(ofn); i++) { // // clear out the OPENFILENAME struct // ((char *)&ofn)[i] = 0; } ofn.lStructSize = sizeof(ofn); ofn.hwndOwner = ghwndFrame; ofn.hInstance = hInstMain; ofn.lpstrFilter = "USRBench (*.cs;*.km)\0*.cs;*.km\0All Files\0*.*\0\0"; ofn.lpstrCustomFilter = NULL; ofn.nMaxCustFilter = 0; ofn.nFilterIndex = 0; ofn.lpstrFileTitle = NULL; ofn.nMaxFileTitle = 0; ofn.lpstrInitialDir = "C:\\"; ofn.Flags = 0; ofn.lpstrDefExt = NULL; ofn.lCustData = 0; ofn.lpfnHook = NULL; ofn.lpTemplateName = NULL; lstrcpy(szFilename, "USRB001.km"); ofn.lpstrFile = szFilename; ofn.nMaxFile = sizeof(szFilename); ofn.lpstrTitle = "Save As"; if (!GetSaveFileName(&ofn)) { return; } fpOut = fopen(szFilename, "w+"); if(NULL != fpOut) { WriteBatchResults(fpOut,0,0); fclose(fpOut); } else { MessageBox(ghwndFrame,"Cannot Open File to Save Results", "Output File Creation Error",MB_ICONSTOP|MB_OK); } }

char* SelectOutFileName (  HWND  hWnd  )

Definition at line 1590 of file usrbench.c. References buf2, hWnd, NULL, and sprintf(). Referenced by WndProc(). { static char buf[11]; char buf2[4]; FILE *fpFile; int i; lstrcpy(buf,"usb"); for (i=1; i<201; i++) // Allow for up to 200 output files to exist in current directory { sprintf(&buf[3],"%03s.log",_itoa(i,buf2,10)); fpFile = fopen(&buf[0],"r"); // Try to open for read, if succeeds the file already exists // if fails, thats the next file selected if(NULL != fpFile) { fclose(fpFile); continue; } return buf; } MessageBox(hWnd,"Cannot Continue, Limit of 200 usbxxx.log Output Files Exceeded, Please Clean Up! ", "Output File Creation Error",MB_ICONSTOP|MB_OK); return NULL; }

int Std_Parse (  char *  txtbuf, int  limit, int *  array )

Definition at line 1886 of file usrbench.c. References n. Referenced by WndProc(). { int i = 0; int n = 0; char tst[2]; array[0] = 0; do { sscanf(&txtbuf[n],"%1c",tst); if((array[i] != 0)&&((tst[0] == ' ')||(tst[0] == ',')||(tst[0] == ';'))) { ++i; array[i] = 0; } if(tst[0] == '\n') { ++i; break; } while((n<limit)&&((tst[0] == ' ')||(tst[0] == ',')||(tst[0] == ';'))) { ++n; sscanf(&txtbuf[n],"%1c",tst); } if(n>=limit) break; array[i] = 10*array[i] + atoi(tst); ++n; }while(n<limit ); if(array[i] != 0) ++i; return i; }

int SyncMenuChecks (  HWND  hWnd, int  Last_Checked, int  New_Checked )

Definition at line 1859 of file usrbench.c. References CheckMenuItem(), GetMenu(), GetSubMenu(), and hWnd. Referenced by WndProc(). { HMENU hmenu = GetSubMenu(GetSubMenu(GetSubMenu(GetMenu(hWnd),2),0),0); CheckMenuItem(hmenu,Last_Checked,MF_BYPOSITION|MF_UNCHECKED); CheckMenuItem(hmenu,New_Checked,MF_BYPOSITION|MF_CHECKED); Last_Checked = New_Checked; return Last_Checked; }

int PASCAL WinMain (  HINSTANCE  hInst, HINSTANCE  hPrev, LPSTR  szCmdLine, int  cmdShow )

Definition at line 103 of file usrbench.c. References BatchFlag, CMD_IS, DBGPRINT, DEFAULT_STRING_LENGTH, DispatchMessage(), Dont_Close_App, dwConsoleThreadId, FALSE, Finish_Message, GetMessage(), gfUseCycleCount, ghaccel, ghinst, ghwndFrame, ghwndMDIClient, hInst, hInstMain, IDM_HELP, IniFileName, InitConsoleIME(), InitializeInstance(), InputExceptionFilter, L, MAX_PATH, msg, NULL, PeekMessage(), Print_Detailed, RUN_BATCH, SelectedFontTransparent, SendMessage(), SourceString, SourceStringW, String_Length_Warn, StrLen, TextSuiteFlag, TranslateAccelerator, TranslateMDISysAccel(), TranslateMessage(), and TRUE. : Process messages. Arguments: hWnd - window hande msg - type of message wParam - additional information lParam - additional information Return Value: status of operation Revision History: 02-17-91 Initial code --*/ { MSG msg; HWND hWndDesk; HWND hwnd; HDC hdc2; char txtbuf[80]; char *ptr; hInstMain = hInst; ghinst = hInst; // Initialize Instance, Create Frame Window, Desktop Window and an MDI client Window if(!InitializeInstance(hInst, hPrev, cmdShow)) return FALSE; // Initialize Source Strings strcpy(SourceString, "This is just a silly test string. Would you rather have a different one? Well, you can define one if you run GDI bench in batch!"); wcscpy(SourceStringW, L"This is just a silly test string. Would you rather have a different one? Well, you can define one if you run GDI bench in batch!"); StrLen = DEFAULT_STRING_LENGTH; // Batch Mode Related TextSuiteFlag = FALSE; BatchFlag = FALSE; Finish_Message = FALSE; Dont_Close_App = FALSE; SelectedFontTransparent = FALSE; String_Length_Warn = FALSE; Print_Detailed = FALSE; // GdiSetBatchLimit(1); // Kills all GDI Batching // Check for help or batch-mode command-line parameters if(CMD_IS("-?") || CMD_IS("/?") || CMD_IS("-h") || CMD_IS("-H") ||CMD_IS("/h") || CMD_IS("/H")) { SendMessage(ghwndFrame,WM_COMMAND,IDM_HELP,0L); // Show Help Dialog } if (CMD_IS("-b") || CMD_IS("-B") || CMD_IS("/b") || CMD_IS("/B")) { BatchFlag = TRUE; GetCurrentDirectory(sizeof(IniFileName),IniFileName); // Prepare INI file path, append name later strcat(IniFileName,"\\"); } if (CMD_IS("-m") || CMD_IS("-M") || CMD_IS("/m") || CMD_IS("/M")) Finish_Message = TRUE; if ( CMD_IS("-s") || CMD_IS("-S") || CMD_IS("/s") || CMD_IS("/S")) Dont_Close_App = TRUE; if ( CMD_IS("-t") || CMD_IS("-T") || CMD_IS("/t") || CMD_IS("/T")) gfUseCycleCount = FALSE; if ( CMD_IS("-d") || CMD_IS("-D") || CMD_IS("/d") || CMD_IS("/D")) Print_Detailed = TRUE; if ( CMD_IS("-i")) { ptr = strstr(szCmdLine, "-i"); sscanf(ptr+2,"%s",txtbuf); strcat(IniFileName,txtbuf); } else if (CMD_IS("-I")) { ptr = strstr(szCmdLine, "-I"); sscanf(ptr+2,"%s",txtbuf); strcat(IniFileName,txtbuf); } else if (CMD_IS("/i")) { ptr = strstr(szCmdLine, "/i"); sscanf(ptr+2,"%s",txtbuf); strcat(IniFileName,txtbuf); } else if (CMD_IS("/I")) { ptr = strstr(szCmdLine, "/I"); sscanf(ptr+2,"%s",txtbuf); strcat(IniFileName,txtbuf); } else { strcat(IniFileName,"USRBATCH.INI"); } if(BatchFlag == TRUE) { /* * Suck any messages out of the queue before starting to avoid * contaminating our results. */ while (PeekMessage(&msg,NULL,0,0,PM_REMOVE)) { TranslateMessage(&msg); DispatchMessage(&msg); } SendMessage(ghwndFrame,WM_COMMAND,RUN_BATCH,0L); // Start Batch } // // Main message loop // while (GetMessage(&msg,(HWND)NULL,0,0)) { /* * If a keyboard message is for the MDI, let the MDI client * take care of it. Otherwise, check to see if it's a normal * accelerator key (like F3 = find next). Otherwise, just handle * the message as usual. */ if (!TranslateMDISysAccel(ghwndMDIClient, &msg) && !TranslateAccelerator(ghwndFrame, ghaccel, &msg)) { TranslateMessage(&msg); DispatchMessage(&msg); } } return (int)msg.wParam; }

LRESULT FAR PASCAL WndProc (  HWND  hWnd, unsigned  msg, WPARAM  wParam, LPARAM  lParam )

Definition at line 268 of file usrbench.c. References ALL, AppendMenu(), BatchCycle, BatchFlag, BeginPaint, BOOL, BYTE, cf, CheckMenuItem(), DEFAULT_A_STRING, DestString, DestStringW, Detailed_Data, Dont_Close_App, FALSE, FillRect(), Finish_Message, FIRST_TEXT_FUNCTION, fpIniFile, fpOutFile, Get_Stats(), GetDC, GetMenu(), GetSubMenu(), GetWindow(), ghwndMDIClient, gTestEntry, HelpDlgProc(), HI_FILTER, hInstMain, hWnd, ID_TEST_START, IDD_HELP, IDD_RESULTS, IDM_EXIT, IDM_FONT, IDM_HELP, IDM_QRUN1, IDM_QRUN2, IDM_RUN, IDM_S001, IDM_S002, IDM_S004, IDM_S008, IDM_S016, IDM_S032, IDM_S064, IDM_S128, IDM_SHOW, IDM_TRANSPARENT, Index, IniFileName, _TEST_ENTRY::Iter, L, LAST_TEXT_FUNCTION, lf, mcs, msg, n, NULL, NUM_QTESTS, NUM_SAMPLES, NUM_TESTS, OutFileName, PerformanceFreq, _TEST_ENTRY::pfn, PFN_MS, POINTS_PER_INCH, PostQuitMessage(), pszTest, pwszTest, QUICK, ReleaseDC(), _TEST_ENTRY::Result, ResultsDlgProc(), RUN_BATCH, SELECT, SelectedFontTransparent, SelectOutFileName(), SendMessage(), ShowCursor(), SourceString, SourceStringW, Status, Std_Parse(), String_Length_Warn, StringLength(), StrLen, strlen(), Sum, SyncMenuChecks(), Test(), TestStats, TEXT_SUITE, TextSuiteFlag, TRUE, VAR_LIMIT, and WriteBatchResults(). : Process messages. Arguments: hWnd - window hande msg - type of message wParam - additional information lParam - additional information Return Value: status of operation Revision History: 02-17-91 Initial code --*/ { BOOL Status; UCHAR tmsg[256]; int MBresult; char txtbuf[80]; char strbuf[256]; char tmpbuf[5][20]; int i,j,k,n; char *kptr; char TestTypeEntry[16]; int TestType; int Num_Selected_Tests; int Test_Item[25]; char SelectedFont[32]; int SelectedFontSize = 12; BYTE SelectedFontBold = FALSE; BYTE SelectedFontItalic = FALSE; BYTE SelectedFontUnderline = FALSE; BYTE SelectedFontStrike = FALSE; COLORREF SelectedFontColor = RGB(0,0,0); char tst[2]; BYTE FontRed, FontGreen, FontBlue; char TextString[256]; int No_String_Lengths, No_Font_Sizes; int StringLength[16], FontSize[16]; int Source_String_Length; int Text_Test_Order[16]; int VPixelsPerLogInch; static int Last_Checked = 5; double Sum; double Sample[NUM_SAMPLES]; static HDC hdc2; /* display DC handle */ static HFONT hfont; /* new logical font handle */ static HFONT hfontOld; /* original logical font handle */ static COLORREF crOld; /* original text color */ switch (msg) { case WM_CREATE: { ULONG ix; HWND hwnd; HMENU hAdd = GetSubMenu(GetMenu(hWnd),1); HMENU hmenu = GetSubMenu(GetSubMenu(GetSubMenu(GetMenu(hWnd),2),0),0); for (ix=0;ix<NUM_TESTS;ix++) { if ((ix > 0) && ((ix % 20) == 0)) { AppendMenu(hAdd, MF_MENUBARBREAK | MF_SEPARATOR,0,0); } wsprintf(tmsg,"T%i: %s",ix,gTestEntry[ix].Api); AppendMenu(hAdd, MF_STRING | MF_ENABLED, ID_TEST_START + ix, tmsg); } CheckMenuItem(hmenu,5,MF_BYPOSITION|MF_CHECKED); } break; case WM_COMMAND: { switch (LOWORD(wParam)){ case IDM_EXIT: { SendMessage(hWnd,WM_CLOSE,0,0L); } break; case IDM_SHOW: DialogBox(hInstMain, (LPSTR)IDD_RESULTS, hWnd, ResultsDlgProc); break; case IDM_HELP: DialogBox(hInstMain, (LPSTR)IDD_HELP, hWnd, HelpDlgProc); break; // // Choose and Set Text String Length // case IDM_S001: { StrLen = 1; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 0); } break; case IDM_S002: { StrLen = 2; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 1); } break; case IDM_S004: { StrLen = 4; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 2); } break; case IDM_S008: { StrLen = 8; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 3); } break; case IDM_S016: { StrLen = 16; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 4); } break; case IDM_S032: { StrLen = 32; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 5); } break; case IDM_S064: { StrLen = 64; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 6); } break; case IDM_S128: { StrLen = 128; Last_Checked = SyncMenuChecks(hWnd, Last_Checked, 7); } break; // case IDM_SXXX: // // break; case IDM_TRANSPARENT: { HMENU hmenu = GetSubMenu(GetSubMenu(GetMenu(hWnd),2),0); if(SelectedFontTransparent == TRUE) { SelectedFontTransparent = FALSE; CheckMenuItem(hmenu,2,MF_BYPOSITION|MF_UNCHECKED); } else if(SelectedFontTransparent == FALSE) { SelectedFontTransparent = TRUE; CheckMenuItem(hmenu,2,MF_BYPOSITION|MF_CHECKED); } } break; case IDM_FONT: // Invoke the ChooseFont Dialog (interactive mode) { /* Initialize the necessary members */ cf.lStructSize = sizeof (CHOOSEFONT); cf.hwndOwner = hWnd; cf.lpLogFont = &lf; cf.Flags = CF_SCREENFONTS | CF_EFFECTS | CF_INITTOLOGFONTSTRUCT; cf.nFontType = SCREEN_FONTTYPE; /* * Display the dialog box, allow the user to * choose a font, and render the text in the * window with that selection. */ if (ChooseFont(&cf)){ hdc2 = GetDC(hWnd); hfont = CreateFontIndirect(cf.lpLogFont); hfontOld = SelectObject(hdc2, hfont); crOld = SetTextColor(hdc2, cf.rgbColors); } } break; // // Run all tests // case IDM_RUN: // Run all tests { ULONG Index; PFN_MS pfn; HDC hdc = GetDC(hWnd); RECT CliRect = {20,20,500,40}; if(NULL==GetWindow(ghwndMDIClient,GW_CHILD)) //If Test Object doesn't exist SendMessage(ghwndMDIClient, WM_MDICREATE, 0, (LPARAM)&mcs); //Create Test Object for (Index=0;Index<NUM_TESTS;Index++) { HDC hdc2 = GetDC(hWnd); FillRect(hdc,&CliRect,GetStockObject(GRAY_BRUSH)); wsprintf(tmsg,"Testing %s",gTestEntry[Index].Api); TextOut(hdc2,20,20,tmsg,strlen(tmsg)); pfn = gTestEntry[Index].pfn; ShowCursor(FALSE); hfont = CreateFontIndirect(cf.lpLogFont); hfontOld = SelectObject(hdc2, hfont); crOld = SetTextColor(hdc2, cf.rgbColors); if(SelectedFontTransparent)SetBkMode(hdc2,TRANSPARENT); for(j=0; j<NUM_SAMPLES; j++) { GdiFlush(); Sample[j] = (double)(*pfn)(hdc2,gTestEntry[Index].Iter); Detailed_Data[Index][j] = (long)(0.5 + Sample[j]); } Get_Stats(Sample,NUM_SAMPLES,HI_FILTER,VAR_LIMIT,&TestStats[Index]); ShowCursor(TRUE); SetTextColor(hdc, crOld); SelectObject(hdc, hfontOld); DeleteObject(hfont); SetBkMode(hdc2,OPAQUE); ReleaseDC(hWnd,hdc2); } ReleaseDC(hWnd,hdc); if(BatchFlag != TRUE) DialogBox(hInstMain, (LPSTR)IDD_RESULTS, hWnd, ResultsDlgProc); } break; case IDM_QRUN1: // Run the quick test suite 1 { ULONG Index; PFN_MS pfn; HDC hdc = GetDC(hWnd); RECT CliRect = {20,20,500,40}; if(NULL==GetWindow(ghwndMDIClient,GW_CHILD)) //If Test Object doesn't exist SendMessage(ghwndMDIClient, WM_MDICREATE, 0, (LPARAM)&mcs); //Create Test Object for (Index=0;Index<NUM_QTESTS;Index++) { HDC hdc2 = GetDC(hWnd); FillRect(hdc,&CliRect,GetStockObject(GRAY_BRUSH)); wsprintf(tmsg,"Testing %s",gTestEntry[Index].Api); TextOut(hdc2,20,20,tmsg,strlen(tmsg)); pfn = gTestEntry[Index].pfn; ShowCursor(FALSE); hfont = CreateFontIndirect(cf.lpLogFont); hfontOld = SelectObject(hdc2, hfont); crOld = SetTextColor(hdc2, cf.rgbColors); if(SelectedFontTransparent)SetBkMode(hdc2,TRANSPARENT); for(j=0; j<NUM_SAMPLES; j++) { GdiFlush(); Sample[j] = (double)(*pfn)(hdc2,gTestEntry[Index].Iter); Detailed_Data[Index][j] = (long)(0.5 + Sample[j]); } Get_Stats(Sample,NUM_SAMPLES,HI_FILTER,VAR_LIMIT,&TestStats[Index]); ShowCursor(TRUE); SetTextColor(hdc, crOld); SelectObject(hdc, hfontOld); DeleteObject(hfont); SetBkMode(hdc2,OPAQUE); ReleaseDC(hWnd,hdc2); } ReleaseDC(hWnd,hdc); if(BatchFlag != TRUE) DialogBox(hInstMain, (LPSTR)IDD_RESULTS, hWnd, ResultsDlgProc); } break; case IDM_QRUN2: // Run Quick Test Suite 2 { ULONG Index; PFN_MS pfn; HDC hdc = GetDC(hWnd); RECT CliRect = {20,20,500,40}; TextSuiteFlag = TRUE; if(NULL==GetWindow(ghwndMDIClient,GW_CHILD)) //If Test Object doesn't exist SendMessage(ghwndMDIClient, WM_MDICREATE, 0, (LPARAM)&mcs); //Create Test Object for (Index = FIRST_TEXT_FUNCTION; Index <= LAST_TEXT_FUNCTION; Index++) { HDC hdc2 = GetDC(hWnd); FillRect(hdc,&CliRect,GetStockObject(GRAY_BRUSH)); wsprintf(tmsg,"Testing %s",gTestEntry[Index].Api); TextOut(hdc2,20,20,tmsg,strlen(tmsg)); pfn = gTestEntry[Index].pfn; ShowCursor(FALSE); hfont = CreateFontIndirect(cf.lpLogFont); hfontOld = SelectObject(hdc2, hfont); crOld = SetTextColor(hdc2, cf.rgbColors); if(SelectedFontTransparent)SetBkMode(hdc2,TRANSPARENT); for(j=0; j<NUM_SAMPLES; j++) { GdiFlush(); Sample[j] = (double)(*pfn)(hdc2,gTestEntry[Index].Iter); Detailed_Data[Index][j] = (long)(0.5 + Sample[j]); } Get_Stats(Sample,NUM_SAMPLES,HI_FILTER,VAR_LIMIT,&TestStats[Index]); ShowCursor(TRUE); SetTextColor(hdc, crOld); SelectObject(hdc, hfontOld); DeleteObject(hfont); SetBkMode(hdc2,OPAQUE); ReleaseDC(hWnd,hdc2); } ReleaseDC(hWnd,hdc); if(BatchFlag != TRUE) DialogBox(hInstMain, (LPSTR)IDD_RESULTS, hWnd, ResultsDlgProc); } break; // // Run in Batch Mode // case RUN_BATCH: { fpIniFile = fopen(IniFileName,"r"); if(NULL == fpIniFile) { MessageBox(hWnd,"USRBATCH.INI File Not Found, Cannot Continue in Batch Mode","INI File Not Found",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } else //Start reading INI file Keys { if(!GetPrivateProfileString("BATCH","RUN","TEXT",TestTypeEntry,sizeof(TestTypeEntry),IniFileName)) { MessageBox(hWnd,"Invalid Caption 1 in USRBATCH.INI File ", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } BatchCycle = GetPrivateProfileInt("BATCH","CYCLE",1,IniFileName); if(NULL != strstr(TestTypeEntry, "ALL")) { TestType = ALL; } else if(NULL != strstr(TestTypeEntry, "QUICK")) { TestType = QUICK; } else if(NULL != strstr(TestTypeEntry, "TEXT")) { TestType = TEXT_SUITE; } else if(NULL != strstr(TestTypeEntry, "SELECT")) { TestType = SELECT; } else { MessageBox(hWnd,"Invalid or No Test-Type Entry in USRBATCH.INI File", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } switch (TestType) { case ALL: // Run all tests { fclose(fpIniFile); OutFileName = SelectOutFileName(hWnd); if(NULL == OutFileName) { BatchFlag = FALSE; break; } fpOutFile = fopen(OutFileName, "w+"); for(i=0; i < BatchCycle; i++) { SendMessage(hWnd,WM_COMMAND,IDM_RUN,0L); WriteBatchResults(fpOutFile, TestType, i+1); } fclose(fpOutFile); if(Finish_Message == TRUE) { strcpy(txtbuf,"Batch Job Finished Successfully, Results Written to "); strcat(txtbuf,OutFileName); MessageBox(hWnd,txtbuf, "Batch Job Finished",MB_ICONINFORMATION|MB_OK); } if(Dont_Close_App == TRUE) { BatchFlag = FALSE; for(i=0; i<(int)NUM_TESTS; i++) { gTestEntry[i].Result = 0; } } else { SendMessage(hWnd,WM_COMMAND,IDM_EXIT,0L); } } break; case QUICK: // Run the quick suite { fclose(fpIniFile); OutFileName = SelectOutFileName(hWnd); fpOutFile = fopen(OutFileName, "w+"); if(NULL == fpOutFile) { BatchFlag = FALSE; break; } for(i=0; i < BatchCycle; i++) { SendMessage(hWnd,WM_COMMAND,IDM_QRUN1,0L); WriteBatchResults(fpOutFile, TestType, i+1); } fclose(fpOutFile); if(Finish_Message == TRUE) { strcpy(txtbuf,"Batch Job Finished Successfully, Results Written to "); strcat(txtbuf,OutFileName); MessageBox(hWnd,txtbuf, "Batch Job Finished",MB_ICONINFORMATION|MB_OK); } if(Dont_Close_App == TRUE) { BatchFlag = FALSE; for(i=0; i<(int)NUM_TESTS; i++) { gTestEntry[i].Result = 0; } } else { SendMessage(hWnd,WM_COMMAND,IDM_EXIT,0L); } } break; case TEXT_SUITE: // Get some more keys then run the text suite { n = GetPrivateProfileString("TEXT","FONT","Arial",txtbuf,sizeof(txtbuf),IniFileName); i = 0; do { sscanf(&txtbuf[i],"%1c",tst); ++i; } while((i <= n ) && (tst[0] != ',') && (tst[0] != ';')); strncpy(&SelectedFont[0],&txtbuf[0],i-1); strcpy(&SelectedFont[i-1],"\0"); if(NULL != strstr(&txtbuf[i], "BOLD")) { SelectedFontBold = TRUE; } if(NULL != strstr(&txtbuf[i], "ITALIC")) { SelectedFontItalic = TRUE; } if(NULL != strstr(&txtbuf[i], "UNDERLINE")) { SelectedFontUnderline = TRUE; } if(NULL != strstr(&txtbuf[i], "STRIKE")) { SelectedFontStrike = TRUE; } if(NULL != strstr(&txtbuf[i], "TRANSPARENT")) { SelectedFontTransparent = TRUE; } kptr = strstr(&txtbuf[0], "RGB("); // Parse and interpret the RGB values if exist if(NULL != kptr) { sscanf(kptr+4,"%s",tmpbuf[0]); FontRed = 0; FontGreen = 0; FontBlue = 0; j = 0; sscanf(&tmpbuf[0][j],"%1c",tst); while(tst[0] == ' ') { ++j; sscanf(&tmpbuf[0][j],"%1c",tst); } while(tst[0] != ',') { FontRed = 10*FontRed + atoi(tst); ++j; sscanf(&tmpbuf[0][j],"%1c",tst); } ++j; sscanf(&tmpbuf[0][j],"%1c",tst); while(tst[0] == ' ') { ++j; sscanf(&tmpbuf[0][j],"%1c",tst); } while(tst[0] != ',') { FontGreen = 10*FontGreen + atoi(tst); ++j; sscanf(&tmpbuf[0][j],"%1c",tst); } ++j; sscanf(&tmpbuf[0][j],"%1c",tst); while(tst[0] == ' ') { ++j; sscanf(&tmpbuf[0][j],"%1c",tst); } while(tst[0] != ')') { FontBlue = 10*FontBlue + atoi(tst); ++j; sscanf(&tmpbuf[0][j],"%1c",tst); if(tst[0] == ' ')break; } SelectedFontColor = RGB(FontRed, FontGreen, FontBlue); } k = GetPrivateProfileString("TEXT","STRING_CONTENT",DEFAULT_A_STRING,strbuf,sizeof(strbuf),IniFileName); strncpy(SourceString,strbuf,(size_t)k); Source_String_Length = k; MultiByteToWideChar(CP_ACP|CP_OEMCP,0,SourceString,-1,SourceStringW,sizeof(SourceStringW)); for(j=0; j<2; j++) Text_Test_Order[j] = 0; GetPrivateProfileString("RUN","ORDER","FONT_SIZE, STRING_LENGTH",txtbuf,sizeof(txtbuf),IniFileName); if(strstr(txtbuf,"STRING_LENGTH") > strstr(txtbuf,"FONT_SIZE")) { Text_Test_Order[0] = 1; Text_Test_Order[1] = 2; } else { Text_Test_Order[0] = 2; Text_Test_Order[1] = 1; } k = GetPrivateProfileString("RUN","STRING_LENGTH","32",txtbuf,sizeof(txtbuf),IniFileName); No_String_Lengths = Std_Parse(txtbuf, k, StringLength); if(No_String_Lengths==0) { MessageBox(hWnd,"Invalid or No String Length Entry in GDIBATCH.INI File", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } k = GetPrivateProfileString("RUN","FONT_SIZE","10",txtbuf,sizeof(txtbuf),IniFileName); No_Font_Sizes = Std_Parse(txtbuf, k, FontSize); if(No_Font_Sizes==0) { MessageBox(hWnd,"Invalid or No Font Size Entry in GDIBATCH.INI File", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } fclose(fpIniFile); // Initialize the LOGFONT struct lf.lfWidth = 0; lf.lfEscapement = 0; lf.lfOrientation = 0; lf.lfWeight = (SelectedFontBold == FALSE)? 400 : 700; lf.lfItalic = SelectedFontItalic; lf.lfUnderline = SelectedFontUnderline; lf.lfStrikeOut = SelectedFontStrike; lf.lfCharSet = ANSI_CHARSET; lf.lfOutPrecision = OUT_DEFAULT_PRECIS; lf.lfClipPrecision = CLIP_DEFAULT_PRECIS; lf.lfQuality = DEFAULT_QUALITY; lf.lfPitchAndFamily = DEFAULT_PITCH | FF_DONTCARE; lstrcpy(&lf.lfFaceName[0],&SelectedFont[0]); // Get some necessary font information for the present screen to be able to determine its height hdc2 = GetDC(hWnd); GetTextFace(hdc2, sizeof(SelectedFont), &SelectedFont[0]); VPixelsPerLogInch = GetDeviceCaps(hdc2, LOGPIXELSY); ReleaseDC(hWnd,hdc2); // Some more font initialization cf.lStructSize = sizeof (CHOOSEFONT); cf.hwndOwner = hWnd; cf.lpLogFont = &lf; cf.Flags = CF_SCREENFONTS | CF_EFFECTS | CF_INITTOLOGFONTSTRUCT; cf.nFontType = SCREEN_FONTTYPE; cf.rgbColors = SelectedFontColor; // Auto Select an output file name OutFileName = SelectOutFileName(hWnd); fpOutFile = fopen(OutFileName, "w+"); if(NULL == OutFileName) { MessageBox(hWnd,"Could not Open an Output File, Batch Mode Halted", "Output Open File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } // Execute Text Suite, Depending on the Predefined Order of Loops if(Text_Test_Order[1] == 1) { for(i = 0; i < No_String_Lengths; i++) { StrLen = StringLength[i]; String_Length_Warn = (StrLen <= (size_t)Source_String_Length)? FALSE : TRUE; strcpy(&DestString[StrLen],"\0"); pszTest =(PSZ) strncpy(&DestString[0], SourceString, StrLen); pwszTest = (PWSTR) wcsncpy(&DestStringW[0], SourceStringW, StrLen); for(j = 0; j < No_Font_Sizes; j++) { lf.lfHeight = -MulDiv(FontSize[j], VPixelsPerLogInch, POINTS_PER_INCH); cf.iPointSize = 10*FontSize[j]; // Point Size is in 1/10 of a point for(k=0; k < BatchCycle; k++) { SendMessage(hWnd,WM_COMMAND,IDM_QRUN2,0L); WriteBatchResults(fpOutFile, TestType, k+1); } } } } //endif else { for(i = 0; i < No_Font_Sizes; i++) { lf.lfHeight = -MulDiv(FontSize[i], VPixelsPerLogInch, POINTS_PER_INCH); cf.iPointSize = 10*FontSize[i]; // Point Size is in 1/10 of a point for(j = 0; j < No_String_Lengths; j++) { StrLen = StringLength[j]; String_Length_Warn = (StrLen <= (size_t)Source_String_Length)? FALSE : TRUE; strcpy(&DestString[StrLen],"\0"); pszTest =(PSZ) strncpy(&DestString[0], SourceString, StrLen); pwszTest = (PWSTR) wcsncpy(&DestStringW[0], SourceStringW, StrLen); for(k=0; k < BatchCycle; k++) { SendMessage(hWnd,WM_COMMAND,IDM_QRUN2,0L); WriteBatchResults(fpOutFile, TestType, k+1); } } } } //else // Cleanup fclose(fpOutFile); if(Finish_Message == TRUE) { strcpy(txtbuf,"Batch Job Finished Successfully, Results Written to "); strcat(txtbuf,OutFileName); MessageBox(hWnd,txtbuf, "Batch Job Finished",MB_ICONINFORMATION|MB_OK); } if(Dont_Close_App == TRUE)// App Stays Open, Check Appropriate Menu Items for Last Selection { HMENU hmenu = GetSubMenu(GetSubMenu(GetMenu(hWnd),2),0); if(SelectedFontTransparent == TRUE) { CheckMenuItem(hmenu,2,MF_BYPOSITION|MF_CHECKED); } if(StrLen == 1)i=0; else if(StrLen == 2)i=1; else if(StrLen == 4)i=2; else if(StrLen == 8)i=3; else if(StrLen == 16)i=4; else if(StrLen == 32)i=5; else if(StrLen == 64)i=6; else if(StrLen == 128)i=7; else { i = 8; // "Other" non-standard menu selection } Last_Checked = SyncMenuChecks(hWnd, Last_Checked, i); BatchFlag = FALSE; for(i=0; i<(int)NUM_TESTS; i++) { gTestEntry[i].Result = 0; } } else { SendMessage(hWnd,WM_COMMAND,IDM_EXIT,0L); } } //case TEXT_SUITE break; case SELECT: // Read some more keys then run the selected test suite { k = GetPrivateProfileString("BATCH","TEST","0",txtbuf,sizeof(txtbuf),IniFileName); fclose(fpIniFile); Num_Selected_Tests = Std_Parse(txtbuf, k, Test_Item); if(Num_Selected_Tests == 0) { MessageBox(hWnd,"Invalid Test-Number Entry in USRBATCH.INI File ", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } for(i=0; i<Num_Selected_Tests; i++) { if(Test_Item[i] > (int)NUM_TESTS) { MessageBox(hWnd,"Invalid Test-Number Entry in USRBATCH.INI File ", "INI File Error",MB_ICONSTOP|MB_OK); BatchFlag = FALSE; break; } } OutFileName = SelectOutFileName(hWnd); if(NULL == OutFileName) { BatchFlag = FALSE; break; } fpOutFile = fopen(OutFileName, "w+"); for(j=0; j < BatchCycle; j++) { for(i=0; i < Num_Selected_Tests; i++) { SendMessage(hWnd,WM_COMMAND,ID_TEST_START+Test_Item[i],0L); } WriteBatchResults(fpOutFile, TestType, i+1); } fclose(fpOutFile); if(Finish_Message == TRUE) { strcpy(txtbuf,"Batch Job Finished Successfully, Results Written to "); strcat(txtbuf,OutFileName); MessageBox(hWnd,txtbuf, "Batch Job Finished",MB_ICONINFORMATION|MB_OK); } if(Dont_Close_App == TRUE) { BatchFlag = FALSE; for(i=0; i<(int)NUM_TESTS; i++) { gTestEntry[i].Result = 0; } } else { SendMessage(hWnd,WM_COMMAND,IDM_EXIT,0L); } } break; } // switch TestType } //else (RUN_BATCH - OK to Proceed) } // case RUN_BATCH break; // // run a single selected test (interactive mode) // default: { ULONG Test = LOWORD(wParam) - ID_TEST_START; ULONG Index; PFN_MS pfn; RECT CliRect = {0,0,10000,10000}; HDC hdc = GetDC(hWnd); FillRect(hdc,&CliRect,GetStockObject(GRAY_BRUSH)); if(NULL==GetWindow(ghwndMDIClient,GW_CHILD)) //If Test Object doesn't exist SendMessage(ghwndMDIClient, WM_MDICREATE, 0, (LPARAM)&mcs); //Create Test Object if (Test < NUM_TESTS) { HDC hdc2 = GetDC(hWnd); wsprintf(tmsg,"Testing %s",gTestEntry[Test].Api); TextOut(hdc,20,20,tmsg,strlen(tmsg)); pfn = gTestEntry[Test].pfn; ShowCursor(FALSE); hfont = CreateFontIndirect(cf.lpLogFont); hfontOld = SelectObject(hdc2, hfont); crOld = SetTextColor(hdc2, cf.rgbColors); if(SelectedFontTransparent)SetBkMode(hdc2,TRANSPARENT); Index = Test; for(j = 0; j < NUM_SAMPLES; j++) { GdiFlush(); Sample[j] = (double)(*pfn)(hdc2,gTestEntry[Index].Iter); Detailed_Data[Index][j] = (long)(0.5 + Sample[j]); if (Sample[j] == 0) { // error occurred break; } } Get_Stats(Sample,NUM_SAMPLES,HI_FILTER,VAR_LIMIT,&TestStats[Index]); ShowCursor(TRUE); SetTextColor(hdc2, crOld); SelectObject(hdc2, hfontOld); DeleteObject(hfont); SetBkMode(hdc2, OPAQUE); ReleaseDC(hWnd,hdc2); // HIRO wsprintf(tmsg,"Finished %s",gTestEntry[Test].Api); TextOut(hdc,20,20,tmsg,strlen(tmsg)); } ReleaseDC(hWnd,hdc); } } // SWITCH CASE if(BatchFlag == FALSE) // Initialize Test Strings (interactive mode) { pszTest =(PSZ) strncpy(DestString, SourceString, StrLen); DestString[StrLen] = '\0'; pwszTest = (PWSTR) wcsncpy(DestStringW, SourceStringW, StrLen); DestStringW[StrLen] = L'\0'; } } // WM_COMMAND break; case WM_PAINT: { PAINTSTRUCT ps; HDC hDC = BeginPaint(hWnd,&ps); EndPaint(hWnd,&ps); } break; case WM_DESTROY: PostQuitMessage(0); break; default: // // Passes message on if unproccessed // /* * Use DefFrameProc() instead of DefWindowProc() since there are * things that have to be handled differently because of MDI. */ return DefFrameProc(hWnd, ghwndMDIClient, msg, wParam, lParam); } /* Calculate Timer Frequency For Current Machine and Convert to MicroSeconds (Actual time will be presented in units of 100ns) */ Status = QueryPerformanceFrequency((LARGE_INTEGER *)&PerformanceFreq); if(Status){ PerformanceFreq /= 10000;//PerformanceFreq is in Counts/Sec. //Dividing it by 1,000,000 gives Counts/nanosecond } //Dividing it by 10,000 gives Counts/(100 nanosecond unit) else { MessageBox(NULL, "High Resolution Performance Counter Doesn't Seem to be Supported on This Machine", "Warning", MB_OK | MB_ICONEXCLAMATION); PerformanceFreq = 1; /* To Prevent Possible Div by zero later */ } return ((LRESULT)NULL); }

void WriteBatchResults (  FILE *  fpOut, int  TestType, int  cycle )

Definition at line 1638 of file usrbench.c. References _X86_, _TEST_STATS::Average, BatchCycle, BatchFlag, cf, DestString, Detailed_Data, FALSE, FIRST_TEXT_FUNCTION, gfPentium, gTestEntry, LAST_TEXT_FUNCTION, lf, NUM_SAMPLES, NUM_TESTS, _TEST_STATS::NumSamplesValid, Physical, Print_Detailed, SelectedFontTransparent, sprintf(), String_Length_Warn, StrLen, TestStats, TEXT_SUITE, TextSuiteFlag, TRUE, VAR_LIMIT, and Version. Referenced by SaveResults(), and WndProc(). { char szT[180]; OSVERSIONINFO Win32VersionInformation; MEMORYSTATUS MemoryStatus; char ComputerName[MAX_COMPUTERNAME_LENGTH + 1]; int SizBuf = MAX_COMPUTERNAME_LENGTH + 1; int i,j; ULONG ix; char *pszOSName; ULONG ixStart = 0; ULONG ixEnd = NUM_TESTS; if(TEXT_SUITE == TestType){ ixStart = FIRST_TEXT_FUNCTION; ixEnd = LAST_TEXT_FUNCTION + 1; } /* * Write out the build information and current date. */ Win32VersionInformation.dwOSVersionInfoSize = sizeof(Win32VersionInformation); if (GetVersionEx(&Win32VersionInformation)) { switch (Win32VersionInformation.dwPlatformId) { case VER_PLATFORM_WIN32s: pszOSName = "WIN32S"; break; case VER_PLATFORM_WIN32_WINDOWS: pszOSName = "Windows 95"; break; case VER_PLATFORM_WIN32_NT: pszOSName = "Windows NT"; break; default: pszOSName = "Windows ???"; break; } GetComputerName(ComputerName, &SizBuf); wsprintf(szT, "\n\n fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT, "%s Version %d.%d Build %d ", pszOSName, Win32VersionInformation.dwMajorVersion, Win32VersionInformation.dwMinorVersion, Win32VersionInformation.dwBuildNumber); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); MemoryStatus.dwLength = sizeof(MEMORYSTATUS); GlobalMemoryStatus(&MemoryStatus); wsprintf(szT, "Physical Memory = %dKB fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT,"\nComputer Name = %s", ComputerName); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } wsprintf(szT, "\n\nMaximum Variation Coefficient (Standard Deviation/Average) Imposed on Test Data = %d %%", VAR_LIMIT); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT, "\n\nBest and Worst Cycle or Time Counts per Call are Unprocessed Values", VAR_LIMIT); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); if(BatchFlag == TRUE) { wsprintf(szT, "\n\nBatch Cycle No. %d Out of %d Cycles", cycle, BatchCycle ); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } else { wsprintf(szT, "\n\nResults of interactive mode session;"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } if(TEXT_SUITE == TestType || TRUE == TextSuiteFlag){ wsprintf(szT, "\n\nFor Text Function Suit:\n\nTest String Length = %d Characters", StrLen); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT, "\nString Used= %s", DestString); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); if(String_Length_Warn == TRUE) { wsprintf(szT, "\n!!!WARNING: One or More String Lengths Specified in INI File \n is Longer than Supplied or Default Source String"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } wsprintf(szT, "\nFont name = %s, Font Size = %d", &lf.lfFaceName[0], cf.iPointSize/10); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT, "\nFont Weight = %ld (400 = Normal, 700 = Bold)",lf.lfWeight); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); (lf.lfItalic != FALSE)?wsprintf(szT,"\nItalic = TRUE"):wsprintf(szT,"\nItalic = FALSE"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); (lf.lfUnderline==TRUE)?wsprintf(szT,"\nUnderline = TRUE"):wsprintf(szT,"\nUnderline = FALSE"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); (lf.lfStrikeOut==TRUE)?wsprintf(szT,"\nStrikeOut = TRUE"):wsprintf(szT,"\nStrikeOut = FALSE"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); (SelectedFontTransparent==TRUE)?wsprintf(szT,"\nTransparent Background = TRUE"):wsprintf(szT,"\nOpaque Background = TRUE"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); wsprintf(szT, "\nColor Used: RED = %d, GREEN = %d, BLUE = %d", (unsigned char)cf.rgbColors, (unsigned char)(cf.rgbColors>>8), (unsigned char)(cf.rgbColors>>16) ); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } if(TEXT_SUITE == TestType || TRUE == TextSuiteFlag) { #ifdef _X86_ if(gfPentium) lstrcpy(szT, "\n\n Function\t\t Cycle Counts \tStdDev%\tBest \t Worst \t Valid Samples \t Out of\tIterations StrLen \t Font Size Font Name\n\n"); else #endif lstrcpy(szT, "\n\n Function\t\tTime (100 ns) \tStdDev%\tBest \t Worst \t Valid Samples \t Out of\tIterations StrLen \t Font Size Font Name\n\n"); } else { #ifdef _X86_ if(gfPentium) lstrcpy(szT, "\n\n Function\t\t Cycle Counts \tStdDev% \t Best \t Worst \t Valid Samples \t Out of \t Iterations\n\n"); else #endif lstrcpy(szT, "\n\n Function\t\tTime (100 ns) \tStdDev% \t Best \t Worst \t Valid Samples \t Out of \t Iterations\n\n"); } fwrite(szT, sizeof(char), lstrlen(szT), fpOut); for (ix = ixStart; ix < ixEnd; ix++) { if(TEXT_SUITE == TestType || TRUE == TextSuiteFlag) { sprintf(szT, "%-30s\t,%6ld\t,%6.2f\t,%6ld\t,%6ld\t,%6ld\t\t,%6ld\t,%6ld\t,%6ld\t,%6ld\t,%s\n", (LPSTR)gTestEntry[ix].Api, (long)(0.5 + TestStats[ix].Average), (float)TestStats[ix].StdDev, (long)(0.5 + TestStats[ix].Minimum_Result), (long)(0.5 + TestStats[ix].Maximum_Result), TestStats[ix].NumSamplesValid, (long)NUM_SAMPLES, gTestEntry[ix].Iter, StrLen, cf.iPointSize / 10, &lf.lfFaceName[0]); } else { sprintf(szT, "%-50s\t,%10ld\t,%6.2f\t,%10ld\t,%10ld\t,%6ld\t\t,%6ld\t,%6ld\n", (LPSTR)gTestEntry[ix].Api, (long)(0.5 + TestStats[ix].Average), (float)TestStats[ix].StdDev, (long)(0.5 + TestStats[ix].Minimum_Result), (long)(0.5 + TestStats[ix].Maximum_Result), TestStats[ix].NumSamplesValid, (long)NUM_SAMPLES, gTestEntry[ix].Iter); } if((long)(0.5 + TestStats[ix].Average) != 0) { fwrite(szT, sizeof(char), lstrlen(szT), fpOut); if((Print_Detailed == TRUE) && ((float)(NUM_SAMPLES - TestStats[ix].NumSamplesValid)/(float)NUM_SAMPLES > 0.05F)) { sprintf(szT,"\nThe Last Test Had More Than 5 Percent of Its Samples Filtered Out;\n\n"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); sprintf(szT,"Here Is a Detailed Distribution of the Samples:\n\n"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); for(j = 0; j < NUM_SAMPLES; j++) { if((j+1)%10) sprintf(szT,"%d\t",Detailed_Data[ix][j]); else sprintf(szT,"%d\n",Detailed_Data[ix][j]); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } sprintf(szT,"\n"); fwrite(szT, sizeof(char), lstrlen(szT), fpOut); } } else { fputs("\n", fpOut); } } if(TRUE == TextSuiteFlag)TextSuiteFlag = FALSE; }

---

Variable Documentation

CHOOSEFONT cf [static]

Definition at line 87 of file usrbench.c. Referenced by WndProc(), and WriteBatchResults().

BOOL gfPentium = FALSE

Definition at line 69 of file usrbench.c. Referenced by BeginTimeMeasurement(), EndTimeMeasurement(), ResultsDlgProc(), and WriteBatchResults().

BOOL gfUseCycleCount = TRUE

Definition at line 70 of file usrbench.c. Referenced by BeginTimeMeasurement(), and WinMain().

HANDLE ghaccel

Definition at line 75 of file usrbench.c. Referenced by WinMain().

HANDLE ghinst

Definition at line 76 of file usrbench.c. Referenced by InitializeInstance(), MDIChildWndProc(), msProfAvgDlgCreate(), msProfAvgDlgCreateDestroy(), msProfAvgDlgCreateDestroyEmpty(), msProfAvgDlgCreateDestroyNoFont(), msProfAvgDlgCreateDestroyNoMenu(), msProfAvgDlgDraw(), msProfCallback(), msProfClassGroup(), msProfCreateDestroyButton(), msProfCreateDestroyChildWindow(), msProfCreateDestroyCombobox(), msProfCreateDestroyEdit(), msProfCreateDestroyListbox(), msProfCreateDestroyScrollbar(), msProfCreateDestroyStatic(), msProfCreateDestroyWindow(), msProfDispatchMessage(), msProfGetWindowLong(), msProfListboxInsert1(), msProfListboxInsert2(), msProfListboxInsert3(), msProfRegisterClass(), msProfSendMessage(), msProfSetWindowLong(), msProfTranslateMessage(), msProfUpdateWindow(), SendMessageDiffThreadFunc(), and WinMain().

HWND ghwndFrame = NULL ghwndMDIClient = NULL

Definition at line 77 of file usrbench.c. Referenced by InitializeInstance(), msProfAvgDlgCreate(), msProfAvgDlgCreateDestroy(), msProfAvgDlgCreateDestroyEmpty(), msProfAvgDlgCreateDestroyNoFont(), msProfAvgDlgCreateDestroyNoMenu(), msProfAvgDlgDraw(), msProfClassGroup(), msProfClipboardGroup(), SaveResults(), and WinMain().

HINSTANCE hInstMain

Definition at line 72 of file usrbench.c. Referenced by SaveResults(), WinMain(), and WndProc().

LOGFONT lf [static]

Definition at line 88 of file usrbench.c.

MDICREATESTRUCT mcs

Definition at line 81 of file usrbench.c. Referenced by InitializeInstance(), and WndProc().

PSZ pszTest = DEFAULT_A_STRING

Definition at line 66 of file usrbench.c. Referenced by WndProc().

PWSTR pwszTest = DEFAULT_W_STRING

Definition at line 67 of file usrbench.c. Referenced by WndProc().

CHAR szChild[] = "child"

Definition at line 84 of file usrbench.c. Referenced by InitializeInstance().

CHAR szFrame[] = "frame"

Definition at line 85 of file usrbench.c. Referenced by InitializeInstance().

---