From e611b132f9b8abe35b362e5870b74bce94a1e58e Mon Sep 17 00:00:00 2001
From: Adam <you@example.com>
Date: Sat, 16 May 2020 20:51:50 -0700
Subject: initial commit

---
 private/nw/perf/prfutil.c | 203 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 203 insertions(+)
 create mode 100644 private/nw/perf/prfutil.c

(limited to 'private/nw/perf/prfutil.c')

diff --git a/private/nw/perf/prfutil.c b/private/nw/perf/prfutil.c
new file mode 100644
index 000000000..f13286d93
--- /dev/null
+++ b/private/nw/perf/prfutil.c
@@ -0,0 +1,203 @@
+//
+// Prfutil.h
+//
+// Utility procedures from the VGACTRS code in the DDK
+//
+#include "windows.h"
+#include <winperf.h>
+
+#define DEFINE_STRING
+#include "prfutil.h"
+
+DWORD
+GetQueryType (
+    IN LPWSTR lpValue
+)
+/*++
+
+GetQueryType
+
+    returns the type of query described in the lpValue string so that
+    the appropriate processing method may be used
+
+Arguments
+
+    IN lpValue
+        string passed to PerfRegQuery Value for processing
+
+Return Value
+
+    QUERY_GLOBAL
+        if lpValue == 0 (null pointer)
+           lpValue == pointer to Null string
+           lpValue == pointer to "Global" string
+
+    QUERY_FOREIGN
+        if lpValue == pointer to "Foriegn" string
+
+    QUERY_COSTLY
+        if lpValue == pointer to "Costly" string
+
+    otherwise:
+
+    QUERY_ITEMS
+
+--*/
+{
+    TCHAR   *pwcArgChar, *pwcTypeChar;
+    BOOL    bFound;
+
+    if (lpValue == 0) {
+        return QUERY_GLOBAL;
+    } else if (*lpValue == 0) {
+        return QUERY_GLOBAL;
+    }
+
+    // check for "Global" request
+
+    pwcArgChar = lpValue;
+    pwcTypeChar = GLOBAL_STRING;
+    bFound = TRUE;  // assume found until contradicted
+
+    // check to the length of the shortest string
+
+    while ((*pwcArgChar != 0) && (*pwcTypeChar != 0)) {
+        if (*pwcArgChar++ != *pwcTypeChar++) {
+            bFound = FALSE; // no match
+            break;          // bail out now
+        }
+    }
+
+    if (bFound) return QUERY_GLOBAL;
+
+    // check for "Foreign" request
+
+    pwcArgChar = lpValue;
+    pwcTypeChar = FOREIGN_STRING;
+    bFound = TRUE;  // assume found until contradicted
+
+    // check to the length of the shortest string
+
+    while ((*pwcArgChar != 0) && (*pwcTypeChar != 0)) {
+        if (*pwcArgChar++ != *pwcTypeChar++) {
+            bFound = FALSE; // no match
+            break;          // bail out now
+        }
+    }
+
+    if (bFound) return QUERY_FOREIGN;
+
+    // check for "Costly" request
+
+    pwcArgChar = lpValue;
+    pwcTypeChar = COSTLY_STRING;
+    bFound = TRUE;  // assume found until contradicted
+
+    // check to the length of the shortest string
+
+    while ((*pwcArgChar != 0) && (*pwcTypeChar != 0)) {
+        if (*pwcArgChar++ != *pwcTypeChar++) {
+            bFound = FALSE; // no match
+            break;          // bail out now
+        }
+    }
+
+    if (bFound) return QUERY_COSTLY;
+
+    // if not Global and not Foreign and not Costly,
+    // then it must be an item list
+
+    return QUERY_ITEMS;
+
+}
+
+BOOL
+IsNumberInUnicodeList (
+    IN DWORD   dwNumber,
+    IN LPWSTR  lpwszUnicodeList
+)
+/*++
+
+IsNumberInUnicodeList
+
+Arguments:
+
+    IN dwNumber
+        DWORD number to find in list
+
+    IN lpwszUnicodeList
+        Null terminated, Space delimited list of decimal numbers
+
+Return Value:
+
+    TRUE:
+            dwNumber was found in the list of unicode number strings
+
+    FALSE:
+            dwNumber was not found in the list.
+
+--*/
+{
+    DWORD   dwThisNumber;
+    TCHAR   *pwcThisChar;
+    BOOL    bValidNumber;
+    BOOL    bNewItem;
+    TCHAR   wcDelimiter;    // could be an argument to be more flexible
+
+    if (lpwszUnicodeList == 0) return FALSE;    // null pointer, # not founde
+
+    pwcThisChar = lpwszUnicodeList;
+    dwThisNumber = 0;
+    wcDelimiter = TEXT(' ');
+    bValidNumber = FALSE;
+    bNewItem = TRUE;
+
+    while (TRUE) {
+        switch (EvalThisChar (*pwcThisChar, wcDelimiter)) {
+            case DIGIT:
+                // if this is the first digit after a delimiter, then
+                // set flags to start computing the new number
+                if (bNewItem) {
+                    bNewItem = FALSE;
+                    bValidNumber = TRUE;
+                }
+                if (bValidNumber) {
+                    dwThisNumber *= 10;
+                    dwThisNumber += (*pwcThisChar - TEXT('0'));
+                }
+                break;
+
+            case DELIMITER:
+                // a delimter is either the delimiter character or the
+                // end of the string ('\0') if when the delimiter has been
+                // reached a valid number was found, then compare it to the
+                // number from the argument list. if this is the end of the
+                // string and no match was found, then return.
+                //
+                if (bValidNumber) {
+                    if (dwThisNumber == dwNumber) return TRUE;
+                    bValidNumber = FALSE;
+                }
+                if (*pwcThisChar == 0) {
+                    return FALSE;
+                } else {
+                    bNewItem = TRUE;
+                    dwThisNumber = 0;
+                }
+                break;
+
+            case INVALID:
+                // if an invalid character was encountered, ignore all
+                // characters up to the next delimiter and then start fresh.
+                // the invalid number is not compared.
+                bValidNumber = FALSE;
+                break;
+
+            default:
+                break;
+
+        }
+        pwcThisChar++;
+    }
+
+}   // IsNumberInUnicodeList
-- 
cgit v1.2.3