Dmitry Timoshkov : mlang: Implement Rfc1766ToLcidA.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 2182d4600a4043ab41fcc291e4ac0718d4091348
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=2182d4600a4043ab41fcc291e4...

Author: Dmitry Timoshkov 
Date:   Tue Mar 18 21:55:09 2008 +0800

mlang: Implement Rfc1766ToLcidA.

---

dlls/mlang/mlang.c    |   10 ++++++++++
 dlls/mlang/mlang.spec |    2 +-
 2 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/dlls/mlang/mlang.c b/dlls/mlang/mlang.c
index 42da54e..a60ad70 100644
--- a/dlls/mlang/mlang.c
+++ b/dlls/mlang/mlang.c
@@ -784,6 +784,16 @@ HRESULT WINAPI Rfc1766ToLcidW(LCID *pLocale, LPCWSTR pszRfc1766)
     return hr;
 }

+HRESULT WINAPI Rfc1766ToLcidA(LCID *lcid, LPCSTR rfc1766A)
+{
+    WCHAR rfc1766W[MAX_RFC1766_NAME + 1];
+
+    MultiByteToWideChar(CP_ACP, 0, rfc1766A, -1, rfc1766W, MAX_RFC1766_NAME);
+    rfc1766W[MAX_RFC1766_NAME] = 0;
+
+    return Rfc1766ToLcidW(lcid, rfc1766W);
+}
+
 /******************************************************************************
  * MLANG ClassFactory
  */
diff --git a/dlls/mlang/mlang.spec b/dlls/mlang/mlang.spec
index d087b3c..1e8f022 100644
--- a/dlls/mlang/mlang.spec
+++ b/dlls/mlang/mlang.spec
@@ -10,5 +10,5 @@
 @ stdcall IsConvertINetStringAvailable(long long)
 @ stdcall LcidToRfc1766A(long ptr long)
 @ stdcall LcidToRfc1766W(long ptr long)
-@ stub Rfc1766ToLcidA
+@ stdcall Rfc1766ToLcidA(ptr str)
 @ stdcall Rfc1766ToLcidW(ptr wstr)