[PATCH] typelib (oleaut32): Implement LHASHVALOFNAMESYS

[Detlef Riekenberg]

---
 dlls/oleaut32/typelib.spec |    2 +-
 dlls/oleaut32/typelib16.c  |   24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletions(-)

diff --git a/dlls/oleaut32/typelib.spec b/dlls/oleaut32/typelib.spec
index 3f943e2..3d995e9 100644
--- a/dlls/oleaut32/typelib.spec
+++ b/dlls/oleaut32/typelib.spec
@@ -1,6 +1,6 @@
 2  stub CREATETYPELIB
 3  pascal LoadTypeLib(ptr ptr) LoadTypeLib16
-4  stub LHASHVALOFNAMESYS
+4  pascal LHASHVALOFNAMESYS(word long str) LHashValOfNameSys16
 5  stub _IID_ICREATETYPEINFO
 6  stub _IID_ICREATETYPELIB
 7  stub _IID_ITYPECOMP
diff --git a/dlls/oleaut32/typelib16.c b/dlls/oleaut32/typelib16.c
index a7b2639..67ed860 100644
--- a/dlls/oleaut32/typelib16.c
+++ b/dlls/oleaut32/typelib16.c
@@ -38,6 +38,7 @@
 
 #include "objbase.h"
 #include "ole2disp.h"
+#include "oleauto.h"
 #include "wine/debug.h"
 
 WINE_DEFAULT_DEBUG_CHANNEL(ole);
@@ -57,6 +58,29 @@ WINE_DEFAULT_DEBUG_CHANNEL(ole);
  *  oleaut32(), ole2disp().
  */
 
+
+/****************************************************************************
+ * LHashValOfNameSys    [TYPELIB.4]
+ *
+ * Produce a string hash value.
+ *
+ * PARAMS
+ *  skind [I] Type of the system.
+ *  lcid  [I] Locale id for the hash.
+ *  lpStr [I] String to hash.
+ *
+ * RETURNS
+ *  The hash value of the string.
+ *
+ */
+ULONG WINAPI
+LHashValOfNameSys16(SYSKIND skind, LCID lcid, LPCSTR lpStr)
+{
+    TRACE("(%d, %d, %s) %s\n", skind, lcid, debugstr_a(lpStr),
+        (skind == SYS_WIN16) ? "SYS_WIN16" : (skind == SYS_WIN32) ? "SYS_WIN32" : "");
+    return LHashValOfNameSysA(skind, lcid, lpStr);
+}
+
 /****************************************************************************
  *		QueryPathOfRegTypeLib	[TYPELIB.14]
  *
-- 
1.5.4.3


--=-XaYMTIVaEsw7a+bXVWNT--