reactos/lib/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 WINAPI 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 }