- Implement CoDisconnectObject.
[wine] / dlls / ole32 / ole2nls.c
1 /*
2  *      OLE2NLS library
3  *
4  *      Copyright 1995  Martin von Loewis
5  *      Copyright 1998  David Lee Lambert
6  *      Copyright 2000  Julio César Gázquez
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  */
22
23 #include "config.h"
24
25 #include <string.h>
26 #include <stdarg.h>
27 #include <stdio.h>
28 #include <ctype.h>
29 #include <stdlib.h>
30 #include <locale.h>
31
32 #include "windef.h"
33 #include "winbase.h"
34 #include "winerror.h"
35 #include "winnls.h"
36 #include "winreg.h"
37 #include "winuser.h"
38 #include "winver.h"
39
40 #include "wine/winbase16.h"
41
42 #include "wine/debug.h"
43
44 WINE_DEFAULT_DEBUG_CHANNEL(ole);
45
46 static LPVOID lpNLSInfo = NULL;
47
48 /******************************************************************************
49  *              GetLocaleInfoA  [OLE2NLS.5]
50  * Is the last parameter really WORD for Win16?
51  */
52 INT16 WINAPI GetLocaleInfo16(LCID lcid,LCTYPE LCType,LPSTR buf,INT16 len)
53 {
54         return GetLocaleInfoA(lcid,LCType,buf,len);
55 }
56
57 /******************************************************************************
58  *              GetStringTypeA  [OLE2NLS.7]
59  */
60 BOOL16 WINAPI GetStringType16(LCID locale,DWORD dwInfoType,LPCSTR src,
61                               INT16 cchSrc,LPWORD chartype)
62 {
63         return GetStringTypeExA(locale,dwInfoType,src,cchSrc,chartype);
64 }
65
66 /******************************************************************************
67  *              GetUserDefaultLCID      [OLE2NLS.1]
68  */
69 LCID WINAPI GetUserDefaultLCID16(void)
70 {
71     return GetUserDefaultLCID();
72 }
73
74 /******************************************************************************
75  *              GetSystemDefaultLCID    [OLE2NLS.2]
76  */
77 LCID WINAPI GetSystemDefaultLCID16(void)
78 {
79     return GetSystemDefaultLCID();
80 }
81
82 /******************************************************************************
83  *              GetUserDefaultLangID    [OLE2NLS.3]
84  */
85 LANGID WINAPI GetUserDefaultLangID16(void)
86 {
87     return GetUserDefaultLangID();
88 }
89
90 /******************************************************************************
91  *              GetSystemDefaultLangID  [OLE2NLS.4]
92  */
93 LANGID WINAPI GetSystemDefaultLangID16(void)
94 {
95     return GetSystemDefaultLangID();
96 }
97
98 /******************************************************************************
99  *              LCMapStringA    [OLE2NLS.6]
100  */
101 INT16 LCMapString16(LCID lcid, DWORD mapflags, LPCSTR srcstr, INT16 srclen,
102                     LPSTR dststr, INT16 dstlen)
103 {
104     return LCMapStringA(lcid, mapflags, srcstr, srclen, dststr, dstlen);
105 }
106
107 /***********************************************************************
108  *           CompareStringA       (OLE2NLS.8)
109  */
110 UINT16 WINAPI CompareString16(DWORD lcid,DWORD fdwStyle,
111                               LPCSTR s1,DWORD l1,LPCSTR s2,DWORD l2)
112 {
113         return (UINT16)CompareStringA(lcid,fdwStyle,s1,l1,s2,l2);
114 }
115
116 /******************************************************************************
117  *      RegisterNLSInfoChanged  [OLE2NLS.9]
118  */
119 BOOL16 WINAPI RegisterNLSInfoChanged16(LPVOID lpNewNLSInfo) /* [???] FIXME */
120 {
121         FIXME("Fully implemented, but doesn't effect anything.\n");
122
123         if (!lpNewNLSInfo) {
124                 lpNLSInfo = NULL;
125                 return TRUE;
126         }
127         else {
128                 if (!lpNLSInfo) {
129                         lpNLSInfo = lpNewNLSInfo;
130                         return TRUE;
131                 }
132         }
133
134         return FALSE; /* ptr not set */
135 }
136