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