mshtml/tests: Add a trailing '\n' to ok() calls.
[wine] / dlls / ole2nls.dll16 / 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 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 "winnls.h"
35 #include "winuser.h"
36
37 #include "wine/winbase16.h"
38
39 #include "wine/debug.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(ole);
42
43 static LPVOID lpNLSInfo = NULL;
44
45 /******************************************************************************
46  *              GetLocaleInfoA  [OLE2NLS.5]
47  * Is the last parameter really WORD for Win16?
48  */
49 INT16 WINAPI GetLocaleInfo16(LCID lcid,LCTYPE LCType,LPSTR buf,INT16 len)
50 {
51         return GetLocaleInfoA(lcid,LCType,buf,len);
52 }
53
54 /******************************************************************************
55  *              GetStringTypeA  [OLE2NLS.7]
56  */
57 BOOL16 WINAPI GetStringType16(LCID locale,DWORD dwInfoType,LPCSTR src,
58                               INT16 cchSrc,LPWORD chartype)
59 {
60         return GetStringTypeExA(locale,dwInfoType,src,cchSrc,chartype);
61 }
62
63 /******************************************************************************
64  *              GetUserDefaultLCID      [OLE2NLS.1]
65  */
66 LCID WINAPI GetUserDefaultLCID16(void)
67 {
68     return GetUserDefaultLCID();
69 }
70
71 /******************************************************************************
72  *              GetSystemDefaultLCID    [OLE2NLS.2]
73  */
74 LCID WINAPI GetSystemDefaultLCID16(void)
75 {
76     return GetSystemDefaultLCID();
77 }
78
79 /******************************************************************************
80  *              GetUserDefaultLangID    [OLE2NLS.3]
81  */
82 LANGID WINAPI GetUserDefaultLangID16(void)
83 {
84     return GetUserDefaultLangID();
85 }
86
87 /******************************************************************************
88  *              GetSystemDefaultLangID  [OLE2NLS.4]
89  */
90 LANGID WINAPI GetSystemDefaultLangID16(void)
91 {
92     return GetSystemDefaultLangID();
93 }
94
95 /******************************************************************************
96  *              LCMapStringA    [OLE2NLS.6]
97  */
98 INT16 WINAPI LCMapString16(LCID lcid, DWORD mapflags, LPCSTR srcstr, INT16 srclen,
99                            LPSTR dststr, INT16 dstlen)
100 {
101     return LCMapStringA(lcid, mapflags, srcstr, srclen, dststr, dstlen);
102 }
103
104 /***********************************************************************
105  *           CompareStringA       (OLE2NLS.8)
106  */
107 UINT16 WINAPI CompareString16(DWORD lcid,DWORD fdwStyle,
108                               LPCSTR s1,DWORD l1,LPCSTR s2,DWORD l2)
109 {
110         return (UINT16)CompareStringA(lcid,fdwStyle,s1,l1,s2,l2);
111 }
112
113 /******************************************************************************
114  *      RegisterNLSInfoChanged  [OLE2NLS.9]
115  */
116 BOOL16 WINAPI RegisterNLSInfoChanged16(LPVOID lpNewNLSInfo) /* [???] FIXME */
117 {
118         FIXME("Fully implemented, but doesn't effect anything.\n");
119
120         if (!lpNewNLSInfo) {
121                 lpNLSInfo = NULL;
122                 return TRUE;
123         }
124         else {
125                 if (!lpNLSInfo) {
126                         lpNLSInfo = lpNewNLSInfo;
127                         return TRUE;
128                 }
129         }
130
131         return FALSE; /* ptr not set */
132 }